home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / ingenius / shockwav / quest.dcr / 00013.ls < prev    next >
Encoding:
Text File  |  1996-05-10  |  638 b   |  28 lines
  1. on mouseDown
  2.   global guyX, guyY
  3.   if not (the shiftDown) then
  4.     exit
  5.   end if
  6.   if (guyX <> 3) and (guyY <> 0) then
  7.     exit
  8.   end if
  9.   set v to the locV of sprite 41
  10.   repeat while 1
  11.     if (the locV of sprite 46 > 210) and (the locV of sprite 41 > 0) then
  12.       set the locV of sprite 41 to -100
  13.       puppetSound("Thump.wav")
  14.     end if
  15.     if the locV of sprite 46 > 230 then
  16.       exit repeat
  17.     end if
  18.     set the locV of sprite 46 to the locV of sprite 46 + 5
  19.     updateStage()
  20.   end repeat
  21.   repeat while the mouseDown
  22.   end repeat
  23.   repeat while the mouseUp
  24.   end repeat
  25.   puppetSound(0)
  26.   set the locV of sprite 41 to v
  27. end
  28.