Encyklopedia Omnia/Planeta.iso/data/f_gen.dir/00044_prepVR10.ls

Text File | 2000-11-09 | 655 b | 27 lines

on enterFrame
  global gDisasterToChoose, gInfoContext
  set gInfoContext to "f_05"
  trackNewMilestone(the frame)
  set gDisasterToChoose to 1
  set the MovieMouseClick of sprite(1) to 0
end

on exitFrame
  if soundBusy(1) then
    swingStep(1, #left, 1.5)
    go(the frame)
  else
    set the MouseUpHandler of sprite(1) to "handleMouseUpF_vr10"
    set the MouseDownHandler of sprite(1) to "handleMouseDownCommon"
    set x to stageRight() - 96
    set y to stageTop()
    apriMiawTipo2("m_navfut", x, y, 0)
    cursor(200)
    cursor(-1)
    tell window "m_navfut"
      fase1()
    end tell
    set the MovieMouseClick of sprite(1) to 1
  end if
end