Encyklopedia Omnia/Planeta.iso/data/g_gen.dir/00018_g_vr02Handlers.ls

Text File | 2000-10-17 | 615 b | 26 lines

on handleMouseUpG_vr02
  global gMouseDownLocVR
  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
      5:
        set the MouseUpHandler of sprite(1) to EMPTY
        moveToBack(window "m_navig")
        set the visible of window "m_navig" to 0
        sound stop 2
        go(">8")
      30:
        set the MovieMouseClick of sprite(1) to 0
        apriMessaggio("m_geo02")
    end case
  end if
end

on handleNodeEnterG_vr02 pNodeID
  if pNodeID = 135 then
    go("7")
  end if
end