home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / casestdy / ch12_isn / ledshow.dcr / 00073.ls < prev    next >
Encoding:
Text File  |  1996-11-13  |  363 b   |  15 lines
  1. global gHowLongHold, gIterCount, gNumCharsToBlink, gBlinkOffset
  2.  
  3. on exitFrame
  4.   if the timer < (60 * gHowLongHold) then
  5.     go(#loop)
  6.   else
  7.     set gIterCount to gIterCount + 1
  8.     writeMessage()
  9.     repeat with x = gBlinkOffset + 12 to gBlinkOffset + gNumCharsToBlink + 11
  10.       set the visible of sprite x to 1
  11.     end repeat
  12.     go("WriteNStop")
  13.   end if
  14. end
  15.