home *** CD-ROM | disk | FTP | other *** search
/ Encyklopedia Omnia / Planeta.iso / data / f_gen.dir / 00011_prepVR2b.ls < prev    next >
Encoding:
Text File  |  2000-11-09  |  593 b   |  21 lines
  1. on exitFrame
  2.   if soundBusy(1) then
  3.     swingStep(1, #right, 1)
  4.     go(the frame)
  5.   else
  6.     set the MouseUpHandler of sprite(1) to "handleMouseUpF_vr02"
  7.     set the MouseDownHandler of sprite(1) to "handleMouseDownCommon"
  8.     set x to stageRight() - 96
  9.     set y to stageTop()
  10.     apriMiawTipo2("m_navfut", x, y, 0)
  11.     cursor(200)
  12.     cursor(-1)
  13.     tell window "m_navfut"
  14.       fase1()
  15.     end tell
  16.     set the AreaOfInterest of sprite(1) to rect(220, 746, 399, 985)
  17.     PlayBackBufferMovie(sprite(1), "@\files\f_in03.mov", #loop)
  18.     set the MovieMouseClick of sprite(1) to 1
  19.   end if
  20. end
  21.