home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / random.dir / 00281.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  419 b   |  17 lines
  1. on DemoOnly Ssprite, TheLoc, PrevLoc, Choose
  2.   beep()
  3.   puppetSprite(Ssprite, 1)
  4.   set the locH of sprite Ssprite to TheLoc
  5.   updateStage()
  6.   repeat while the mouseDown
  7.     updateStage()
  8.   end repeat
  9.   set STIcks to the ticks
  10.   repeat while not (the mouseDown) and ((the ticks - STIcks) < (60 * 3))
  11.     rollOvers()
  12.   end repeat
  13.   set the locH of sprite Ssprite to PrevLoc
  14.   puppetSprite(Ssprite, 0)
  15.   updateStage()
  16. end
  17.