Encyklopedia Omnia/Planeta.iso/data/f_gen.dir/00067_F_vr17Handlers.ls

Text File | 2000-11-09 | 470 b | 17 lines

on handleMouseUpF_vr17
  global gMouseDownLocVR, gInfoContext
  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)
    if id = 172 then
      set the MouseUpHandler of sprite(1) to EMPTY
      set the DisableHotSpotID of sprite(1) to 172
      set gInfoContext to "f_disast"
      tell window "m_navfut"
        fase2()
      end tell
    end if
  end if
end