home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2001 #13 / CD 13 (Black) - 2001.iso / K-CS.DCR / 00345.ls < prev    next >
Encoding:
Text File  |  2001-08-24  |  476 b   |  22 lines

  1. global ThreeDee, Dark3D, Pattern3D, 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.   set Dark3D to 0
  9.   set ThreeDee to 0
  10.   set Pattern3D to 0
  11.   set the visible of sprite 80 to 0
  12.   set the visible of sprite 81 to 0
  13.   set the visible of sprite 82 to 0
  14.   set the visible of sprite 83 to 0
  15.   set the visible of sprite 84 to 0
  16. end
  17.  
  18. on exitFrame
  19.   checkBlink(BlinkObjekt)
  20.   go(#loop)
  21. end
  22.