home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / Panasonic- / time_capsule / roulette / e.dcr / 00034.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  524 b   |  24 lines
  1. on flashon
  2.   global flasha, flashb
  3.   puppetSprite(clickOn(), 1)
  4.   set the castNum of sprite 29 to the number of cast "RB"
  5.   updateStage()
  6. end
  7.  
  8. on flashoff
  9.   global flasha, flashb
  10.   set the castNum of sprite clickOn() to the number of cast flasha
  11.   updateStage()
  12.   puppetSprite(clickOn(), 1)
  13. end
  14.  
  15. on wait n
  16.   set startticks to the timer
  17.   set nowticks to the timer
  18.   set waitticks to nowticks - startticks
  19.   repeat while waitticks < n
  20.     set nowticks to the timer
  21.     set waitticks to nowticks - startticks
  22.   end repeat
  23. end
  24.