home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 25 / CDMM_25.iso / takeru / g078 / jail.dxr / Internal_80.ls < prev    next >
Encoding:
Text File  |  1996-09-04  |  625 b   |  21 lines
  1. on mouseDown
  2.   set the castNum of sprite 45 to 102
  3.   updateStage()
  4.   puppetSound(2, 302)
  5.   repeat while the stillDown
  6.     set mymouseh to the mouseH
  7.     set mymousev to the mouseV
  8.     set oldLocV2 to the locV of sprite 19
  9.     set oldLocV to the locV of sprite 17
  10.     set the locV of sprite 17 to oldLocV + (2 * (the mouseV - mymousev))
  11.     updateStage()
  12.     if the locV of sprite 17 <> oldLocV then
  13.       set the locV of sprite 19 to oldLocV2 + (2 * (mymousev - the mouseV))
  14.     end if
  15.     set the locH of sprite 45 to mymouseh
  16.     set the locV of sprite 45 to mymousev
  17.     updateStage()
  18.   end repeat
  19.   puppetSound(2, 0)
  20. end
  21.