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

Text File | 1996-11-13 | 1.5 KB | 62 lines

global gMyMessage, gMessageLength, gIterCount, gCharToNumList, gCastNumList, gStopPoint, gStopFlag, gHowLongHold, gBlinkFlag, gBlinkOffset, gNumCharsToBlink, gStopOffset, gCharColorList, gURLName

on startMovie
  puppetTempo(10)
  set gStopFlag to 0
  set gStopPoint to 36
  set gHowLongHold to 5
  repeat with x = 12 to 47
    puppetSprite(x, 1)
  end repeat
  readLEDText()
end

on clearNHold
  repeat with x = 12 to 47
    set the castNum of sprite x to the number of cast " "
    set the visible of sprite x to 1
  end repeat
  go("Set Up")
  updateStage()
end

on writeMessage
  if gIterCount >= (count(gCharToNumList) - 35) then
    set gIterCount to 0
  else
    repeat with x = 47 down to 12
      set myNum to getAt(gCharToNumList, x - 11 + gIterCount)
      set the castNum of sprite x to myNum
      set the foreColor of sprite x to getAt(gCharColorList, x - 11 + gIterCount)
    end repeat
    updateStage()
    set gIterCount to gIterCount + 1
  end if
end

on writeNStop
  if gIterCount >= (count(gCharToNumList) - 35) then
    set gIterCount to 0
  else
    if gIterCount = gStopPoint then
      if gBlinkFlag then
        go("HoldNBlink")
      else
        go("Hold")
      end if
    else
      repeat with x = 47 down to 12
        set myNum to getAt(gCharToNumList, x - 11 + gIterCount)
        set the castNum of sprite x to myNum
        set the foreColor of sprite x to getAt(gCharColorList, x - 11 + gIterCount)
      end repeat
      updateStage()
      set gIterCount to gIterCount + 1
    end if
  end if
end

on readLEDText
  getNetText("LEDText.txt")
end