Encyklopedia Omnia/Planeta.iso/data/f_gen.dir/00049_prepVR12b.ls

Text File | 2000-11-09 | 1020 b | 30 lines

on exitFrame
  if soundBusy(1) then
    swingStep(1, #left, 1.44999999999999996)
    set angle to the PanAngle of sprite(1)
    set fileName to the BackBufferMovie of sprite(1)
    if (angle >= 310) or (angle <= 100) then
      if not (fileName contains "f_in12.mov") then
        set the AreaOfInterest of sprite(1) to rect(286, 104, 405, 343)
        PlayBackBufferMovie(sprite(1), "@\files\f_in12.mov", #loop)
      end if
    else
      if not (fileName contains "f_in12b.mov") then
        set the AreaOfInterest of sprite(1) to rect(334, 1296, 513, 1535)
        PlayBackBufferMovie(sprite(1), "@\files\f_in12b.mov", #loop)
      end if
    end if
    go(the frame)
  else
    set the MouseUpHandler of sprite(1) to "handleMouseUpF_vr12"
    set the MouseDownHandler of sprite(1) to "handleMouseDownCommon"
    set x to stageRight() - 96
    set y to stageTop()
    apriMiawTipo2("m_navfut", x, y, 0)
    tell window "m_navfut"
      fase1()
    end tell
    set the MovieMouseClick of sprite(1) to 1
  end if
end