Encyklopedia Omnia/Planeta.iso/data/g_gen.dir/00022_prepVR5.ls

Text File | 2000-10-17 | 682 b | 25 lines

on enterFrame
  global gInfoContext
  set gInfoContext to "g_05"
  trackNewMilestone(the frame)
  set the MovieMouseClick of sprite(1) to 0
  set the AreaOfInterest of sprite(1) to rect(385, 1208, 564, 1447)
  PlayBackBufferMovie(sprite(1), "@\files\g_in05.mov", #loop)
end

on exitFrame
  if soundBusy(1) then
    swingStep(1, #right, 1)
    go(the frame)
  else
    set the MouseUpHandler of sprite(1) to "handleMouseUpG_vr02b"
    set the MouseDownHandler of sprite(1) to "handleMouseDownCommon"
    set x to stageRight() - 96
    set y to stageTop()
    apriMiawTipo2("m_navig", x, y, 0)
    cursor(200)
    cursor(-1)
    set the MovieMouseClick of sprite(1) to 1
  end if
end