home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2001 #13 / CD 13 (Black) - 2001.iso / K-CS.DCR / 00452.ls < prev    next >
Encoding:
Text File  |  2001-08-24  |  350 b   |  20 lines
  1. global BlinkObjekt
  2.  
  3. on new me
  4.   cursor(0)
  5.   set BlinkObject to 0
  6.   set the locH of sprite 99 to 780
  7.   set BlinkObjekt to new(script "Blink", 4, 80)
  8.   startTimer()
  9. end
  10.  
  11. on exitFrame
  12.   checkBlink(BlinkObjekt)
  13.   if (the timer mod 100) < 50 then
  14.     set the visible of sprite 74 to 0
  15.   else
  16.     set the visible of sprite 74 to 1
  17.   end if
  18.   go(#loop)
  19. end
  20.