home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 25 / CDMM_25.iso / takeru / g078 / jail.dxr / Internal_89.ls < prev    next >
Encoding:
Text File  |  1996-09-04  |  609 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 24
  9.     set oldLocV to the locV of sprite 21
  10.     set the locV of sprite 21 to oldLocV - mymousev + the mouseV
  11.     updateStage()
  12.     if the locV of sprite 21 <> oldLocV then
  13.       set the locV of sprite 24 to oldLocV2 + 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.