Shocking The Web CD-ROM/SHOCK_CD.ISO/pc/tutorial/casestdy/ch12_isn/ledshow.dcr/00055.ls

Text File | 1996-11-13 | 1.0 KB | 32 lines

global gStopPoint, gHowLongHold, gStopFlag, gBlinkFlag, gBlinkOffset, gNumCharsToBlink, gStopOffset, gCharToNumList, gCharColorList, gURLName

on exitFrame
  go(the frame)
end

on idle
  if neterror() = "OK" then
    set newLEDValues to NetTextResult()
    if not listp(value(line 8 of newLEDValues)) then
      alert("Not a valid LED Player text file!")
      go("Set Up")
    else
      set gStopPoint to value(line 1 of newLEDValues)
      set gHowLongHold to value(line 2 of newLEDValues)
      set gStopFlag to value(line 3 of newLEDValues)
      set gBlinkFlag to value(line 4 of newLEDValues)
      set gBlinkOffset to value(line 5 of newLEDValues)
      set gNumCharsToBlink to value(line 6 of newLEDValues)
      set gStopOffset to value(line 7 of newLEDValues)
      set gCharToNumList to value(line 8 of newLEDValues)
      set gCharColorList to value(line 9 of newLEDValues)
      set gURLName to line 10 of newLEDValues
    end if
    if gStopFlag then
      go("WriteNStop")
    else
      go("Write Message")
    end if
  end if
end