Encyklopedia Omnia/Planeta.iso/data/a_gen.dir/00076_prepVR9.ls

Text File | 2000-11-14 | 359 b | 19 lines

on enterFrame
  set the MovieMouseClick of sprite(1) to 0
end

on exitFrame
  if soundBusy(1) then
    swingStep(1, #right, 1)
    go(the frame)
  else
    set x to stageRight() - 96
    set y to stageTop()
    apriMiawTipo2("m_navhab", x, y, 0)
    tell window "m_navhab"
      fase1()
    end tell
    set the MovieMouseClick of sprite(1) to 1
  end if
end