home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2002 #10 / K-CD-10-2002.ISO / Tools / K-CS.dcr / 00259_Blink.ls < prev    next >
Encoding:
Text File  |  2002-04-19  |  289 b   |  18 lines
  1. on new me
  2.   startTimer()
  3.   set the visible of sprite 60 to 0
  4.   return me
  5. end
  6.  
  7. on checkBlink me
  8.   if the timer < 500 then
  9.     return 
  10.   else
  11.     if (the timer mod 80) < 15 then
  12.       set the visible of sprite 60 to 1
  13.     else
  14.       set the visible of sprite 60 to 0
  15.     end if
  16.   end if
  17. end
  18.