home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / search.dir / 00093.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  463 b   |  18 lines
  1. on DemoOnly Ssprite, TheLoc, PrevLoc
  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.   end repeat
  12.   if the mouseCast <> the number of cast "demo" then
  13.     set the locH of sprite Ssprite to PrevLoc
  14.     puppetSprite(Ssprite, 0)
  15.     updateStage()
  16.   end if
  17. end
  18.