Encyklopedia Omnia/Planeta.iso/data/e_gen_pl.dir/00052_VR12Handlers.ls

Text File | 1999-06-27 | 1.0 KB | 34 lines

on handleMouseUpVR12
  global gMouseDownLocVR, gMessageID, gFrameToGo, gCatenaccio
  set offs to point(2, 2)
  set p to point(mouseH(), mouseV())
  if inside(gMouseDownLocVR, rect(p - offs, p + offs)) then
    set id to the hotSpotID of sprite(1)
    case id of
      107:
        if getPos(gCatenaccio, #cielo) = 0 then
          set the MouseUpHandler of sprite(1) to EMPTY
          moveToBack(window "m_navig")
          set the visible of window "m_navig" to 0
          add(gCatenaccio, #cielo)
          set gFrameToGo to "cielo"
          go(marker(2))
        end if
      202:
        if getPos(gCatenaccio, #mare) = 0 then
          set the MouseUpHandler of sprite(1) to EMPTY
          moveToBack(window "m_navig")
          set the visible of window "m_navig" to 0
          add(gCatenaccio, #mare)
          set gFrameToGo to "mare"
          go(marker(2))
        end if
      31:
        set the MovieMouseClick of sprite(1) to 0
        apriMessaggio("m_evo09")
      otherwise:
        nothing()
    end case
  end if
end