Micromanía 25/CDMM_25.iso/takeru/g078/jail.dxr/Internal_56.ls

Text File | 1996-09-04 | 1.5 KB | 51 lines

on mouseDown
  set the castNum of sprite 45 to 102
  updateStage()
  puppetSound(2, 304)
  repeat while the stillDown
    set mymouseh to the mouseH
    set mymousev to the mouseV
    set the locH of sprite 10 to mymouseh
    set the locV of sprite 10 to mymousev
    set the locH of sprite 45 to mymouseh
    set the locV of sprite 45 to mymousev
    updateStage()
    if the locH of sprite 10 > 390 then
      set the castNum of sprite 12 to 125
    else
      if the locH of sprite 10 > 380 then
        set the castNum of sprite 12 to 126
      else
        if the locH of sprite 10 > 330 then
          set the castNum of sprite 12 to 127
        else
          if the locH of sprite 10 > 311 then
            set the castNum of sprite 12 to 128
          else
            set the castNum of sprite 12 to 129
            if the locV of sprite 21 = 226 then
              set the constraint of sprite 10 to 0
              set the constraint of sprite 21 to 0
              set the constraint of sprite 17 to 0
              set the constraint of sprite 24 to 0
              set the constraint of sprite 19 to 0
              puppetSprite(12, 0)
              puppetSprite(10, 0)
              puppetSprite(24, 0)
              puppetSprite(21, 0)
              puppetSprite(17, 0)
              puppetSprite(19, 0)
              puppetSound(2, 0)
              puppetSprite(40, 0)
              go("hooked")
              exit repeat
            end if
          end if
        end if
      end if
    end if
    updateStage()
  end repeat
  puppetSound(2, 0)
end