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

Text File | 1997-09-24 | 1.5 KB | 54 lines

on enterFrame
  global larghezza, altezza, parlata, puzzle, chisono, msprite
  set larghezza to the mouseH
  set altezza to the mouseV
  if chisono <> 5 then
    checkSALVA()
  end if
  pulsante()
  if parlata then
    if not soundBusy(1) then
      repeat with i = 37 to 39
        puppetSprite(i, 1)
        set the moveableSprite of sprite i to 1
      end repeat
      set parlata to 0
    end if
  end if
  if puzzle then
    Sequenza()
    repeat with i = 13 to 16
      puppetSprite(i, 1)
      set the moveableSprite of sprite i to 0
    end repeat
    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
  end if
end

on exitFrame
  go(the frame)
end