Encyklopedia Omnia/Planeta.iso/data/a_gen.dir/00002_prepVR1.ls

Text File | 2000-11-14 | 788 b | 24 lines

on enterFrame
  global gInfoContext
  set the MovieMouseClick of sprite(1) to 0
  set gInfoContext to "a_01"
end

on exitFrame
  if soundBusy(1) then
    swingStep(1, #right, 0.5)
    go(the frame)
  else
    set x to stageRight() - 96
    set y to stageTop()
    apriMiawTipo2("m_navig", x, y, 0)
    set the MouseUpHandler of sprite(1) to "handleMouseUpA_VR01"
    set the NodeLeaveHandler of sprite(1) to "handleNodeEnterA_VR01"
    set the MouseDownHandler of sprite(1) to "handleMouseDownCommon"
    ReplaceCursor(sprite(1), 1, -32000, member "vrspot", member "vrspot_m")
    ReplaceCursor(sprite(1), 1, -31999, member "vrspot", member "vrspot_m")
    ReplaceCursor(sprite(1), 1, -31998, member "vrspot", member "vrspot_m")
    set the MovieMouseClick of sprite(1) to 1
  end if
end