home *** CD-ROM | disk | FTP | other *** search
/ PC Direkt 1998 #11 / PCDIREKT_1198.bin / SHOWDATA / SHOWKOMM.DXR / 00083.ls < prev    next >
Encoding:
Text File  |  1997-07-31  |  869 b   |  25 lines
  1. on blink
  2.   startTimer()
  3.   repeat while the timer < 120
  4.     set Blinker to 13
  5.     puppetSprite(Blinker, 1)
  6.     set the visible of sprite Blinker to not (the visible of sprite Blinker)
  7.     set the locH of sprite Blinker to random(480) + 20
  8.     set the locV of sprite Blinker to random(300) + 20
  9.     set blinker2 to 14
  10.     puppetSprite(blinker2, 1)
  11.     set the visible of sprite blinker2 to not (the visible of sprite blinker2)
  12.     set the locH of sprite blinker2 to random(480) + 20
  13.     set the locV of sprite blinker2 to random(300) + 20
  14.     set blinker3 to 15
  15.     puppetSprite(blinker3, 1)
  16.     set the visible of sprite blinker3 to not (the visible of sprite blinker3)
  17.     set the locH of sprite blinker3 to random(480) + 20
  18.     set the locV of sprite blinker3 to random(300) + 20
  19.     updateStage()
  20.   end repeat
  21.   if the timer < 120 then
  22.     go(the frame)
  23.   end if
  24. end
  25.