home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / power / globe.dir / 00082.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  461 b   |  20 lines
  1. on DemoOnly Ssprite, TheLoc, PrevLoc
  2.   global CurrRoll
  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))
  12.     CheckQT()
  13.     updateStage()
  14.     rollOvers()
  15.   end repeat
  16.   set the locH of sprite Ssprite to PrevLoc
  17.   puppetSprite(Ssprite, 0)
  18.   updateStage()
  19. end
  20.