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 / shockwave / S.dcr / 00020.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  718 b   |  35 lines
  1. on flash
  2.   global flasha, flashb
  3.   set flasha to the name of cast the castNum of sprite clickOn()
  4.   puppetSound("Lock")
  5.   set flashb to flasha & "B"
  6.   set the castNum of sprite clickOn() to the number of cast flashb
  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 beepa
  15.   puppetSound("Lock")
  16.   updateStage()
  17.   wait(30)
  18.   puppetSound(0)
  19.   updateStage()
  20. end
  21.  
  22. on wait n
  23.   set startticks to the timer
  24.   set nowticks to the timer
  25.   set waitticks to nowticks - startticks
  26.   repeat while waitticks < n
  27.     set nowticks to the timer
  28.     set waitticks to nowticks - startticks
  29.   end repeat
  30. end
  31.  
  32. on ppt n
  33.   puppetTransition(1, 2 * n, 1)
  34. end
  35.