home *** CD-ROM | disk | FTP | other *** search
/ PC Shareware 1997 June / PC_Shareware-1997-06.iso / gry / rescue / rescue.exe / rescue.DXR / 00186.ls < prev    next >
Encoding:
Text File  |  1996-07-09  |  761 b   |  28 lines
  1. on mouseDown
  2.   set whichSprite to the clickOn
  3.   set the loc of sprite whichSprite to the loc of sprite whichSprite + point(1, 1)
  4.   updateStage()
  5.   set the loc of sprite whichSprite to the loc of sprite whichSprite + point(1, 1)
  6.   updateStage()
  7.   repeat while the mouseDown
  8.     nothing()
  9.   end repeat
  10.   startTimer()
  11.   repeat while the timer < 10
  12.     nothing()
  13.   end repeat
  14.   set the loc of sprite whichSprite to the loc of sprite whichSprite - point(1, 1)
  15.   updateStage()
  16.   set the loc of sprite whichSprite to the loc of sprite whichSprite - point(1, 1)
  17.   updateStage()
  18.   startTimer()
  19.   repeat while the timer < 30
  20.     nothing()
  21.   end repeat
  22.   repeat with x = 1 to 48
  23.     puppetSprite(x, 0)
  24.     set the visible of sprite x to 1
  25.   end repeat
  26.   go(marker(1))
  27. end
  28.