home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 25 / CDMM_25.iso / takeru / g078 / jail.dxr / Internal_63.ls < prev    next >
Encoding:
Text File  |  1996-09-04  |  1.1 KB  |  36 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 + (2 * (the mouseV - mymousev))
  11.     updateStage()
  12.     if the locV of sprite 21 <> oldLocV then
  13.       set the locV of sprite 24 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.   if (the castNum of sprite 12 = 129) and (the locV of sprite 21 = 226) then
  21.     set the constraint of sprite 10 to 0
  22.     set the constraint of sprite 21 to 0
  23.     set the constraint of sprite 17 to 0
  24.     set the constraint of sprite 24 to 0
  25.     set the constraint of sprite 19 to 0
  26.     puppetSprite(12, 0)
  27.     puppetSprite(10, 0)
  28.     puppetSprite(24, 0)
  29.     puppetSprite(21, 0)
  30.     puppetSprite(17, 0)
  31.     puppetSprite(19, 0)
  32.     puppetSprite(40, 0)
  33.     go("hooked")
  34.   end if
  35. end
  36.