PC Open 10/pcopen10.iso/aaron/dida/sequenz.dxr/00069.ls

Text File | 1997-09-24 | 1.3 KB | 43 lines

on exitFrame
  go(the frame)
end

on enterFrame
  global larghezza, altezza, msprite, grandezza
  set larghezza to the mouseH
  set altezza to the mouseV
  if grandezza = 0 then
    set the loc of sprite 48 to point(771, 0)
  end if
  if (larghezza > 109) and (larghezza < 475) and (altezza > 77) and (altezza < 404) then
    updateStage()
    pulsante()
    puppetSprite(48, 1)
    set the moveableSprite of sprite 48 to 1
    if the mouseDown or the stillDown then
      set the loc of sprite 48 to point(larghezza, altezza)
      if msprite <> 0 then
        if sprite 48 intersects msprite then
          set the memberNum of sprite 48 to the memberNum of sprite msprite
          set the rect of sprite 48 to the rect of sprite msprite
          set the visible of sprite 48 to 1
          set the visible of sprite msprite to 0
        end if
      end if
    end if
  else
    set the loc of sprite 48 to point(771, 0)
    puppetSprite(48, 0)
    set the visible of sprite 48 to 0
    set the visible of sprite msprite to 1
    updateStage()
    set msprite to 0
  end if
  if the mouseUp then
    set the memberNum of sprite 48 to 17
    set the rect of sprite 48 to rect(larghezza, altezza, larghezza + 1, altezza + 1)
    set the visible of sprite msprite to 1
    updateStage()
  end if
end