home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 25 / CDMM_25.iso / takeru / g078 / jail.dxr / Internal_90.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 21
  9.     set oldLocV to the locV of sprite 24
  10.     set the locV of sprite 24 to oldLocV + (2 * (the mouseV - mymousev))
  11.     updateStage()
  12.     if the locV of sprite 24 <> oldLocV then
  13.       set the locV of sprite 21 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.