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 / A.dcr / 00105.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  370 b   |  22 lines
  1. on beepa
  2.   puppetSound("Lock")
  3.   updateStage()
  4.   wait(30)
  5.   puppetSound(0)
  6.   updateStage()
  7. end
  8.  
  9. on wait n
  10.   set startticks to the timer
  11.   set nowticks to the timer
  12.   set waitticks to nowticks - startticks
  13.   repeat while waitticks < n
  14.     set nowticks to the timer
  15.     set waitticks to nowticks - startticks
  16.   end repeat
  17. end
  18.  
  19. on ppt n
  20.   puppetTransition(1, 2 * n, 1)
  21. end
  22.