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 / emaki / m2.dcr / 00017.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  548 b   |  21 lines
  1. on dragspriteex
  2.   puppetSprite(clickOn(), 1)
  3.   set mh to mouseH() - the locH of sprite clickOn()
  4.   set mv to mouseV() - the locV of sprite clickOn()
  5.   repeat while stillDown()
  6.     set the locH of sprite clickOn() to mouseH() - mh
  7.     set the locV of sprite clickOn() to mouseV() - mv
  8.     updateStage()
  9.   end repeat
  10. end
  11.  
  12. on wait n
  13.   set startticks to the timer
  14.   set nowticks to the timer
  15.   set waitticks to nowticks - startticks
  16.   repeat while waitticks < n
  17.     set nowticks to the timer
  18.     set waitticks to nowticks - startticks
  19.   end repeat
  20. end
  21.