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