home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / power / ue.dir / 00280.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  584 b   |  24 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))
  12.     if marker(0) = label("map") then
  13.       go(the frame)
  14.       next repeat
  15.     end if
  16.     rollOvers()
  17.   end repeat
  18.   if the mouseCast <> the number of cast "demo" then
  19.     set the locH of sprite Ssprite to PrevLoc
  20.     puppetSprite(Ssprite, 0)
  21.     updateStage()
  22.   end if
  23. end
  24.