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 / tape.dcr / 00030.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  577 b   |  23 lines
  1. on flash
  2.   global flasha, flashb
  3.   set flasha to the name of cast the castNum of sprite clickOn()
  4.   set flashb to flasha & "B"
  5.   set the castNum of sprite clickOn() to the number of cast flashb
  6.   puppetSound("click")
  7.   updateStage()
  8.   wait(15)
  9.   set the castNum of sprite clickOn() to the number of cast flasha
  10.   puppetSound(0)
  11.   updateStage()
  12. end
  13.  
  14. on wait n
  15.   set startticks to the timer
  16.   set nowticks to the timer
  17.   set waitticks to nowticks - startticks
  18.   repeat while waitticks < n
  19.     set nowticks to the timer
  20.     set waitticks to nowticks - startticks
  21.   end repeat
  22. end
  23.