home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 July / macformat-039.iso / MAKERS / MAIN.DIR / 00140.ls < prev    next >
Encoding:
Text File  |  1996-03-12  |  450 b   |  18 lines
  1. on DemoOnly Ssprite, TheLoc, PrevLoc
  2.   global theSprite
  3.   beep()
  4.   puppetSprite(Ssprite, 1)
  5.   set the locH of sprite Ssprite to TheLoc
  6.   updateStage()
  7.   repeat while the mouseDown
  8.     updateStage()
  9.   end repeat
  10.   set STIcks to the ticks
  11.   repeat while not (the mouseDown) and ((the ticks - STIcks) < (60 * 3)) and not rollOver(9)
  12.     rollOvers()
  13.   end repeat
  14.   set the locH of sprite Ssprite to PrevLoc
  15.   puppetSprite(Ssprite, 0)
  16.   updateStage()
  17. end
  18.