Encyklopedia Omnia/Planeta.iso/data/a_gen.dir/00069_VR07Handlers.ls

Text File | 2000-11-14 | 438 b | 18 lines

on handleMouseUpA_VR07
  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)
    put id
    case id of
      0:
        set the MouseUpHandler of sprite(1) to EMPTY
        go(#next)
      255:
        set the MovieMouseClick of sprite(1) to 0
        apriMessaggio("m_hab06")
    end case
  end if
end