home *** CD-ROM | disk | FTP | other *** search
/ Encyklopedia Omnia / Planeta.iso / data / g_gen.dir / 00032_g_vr02Handlers.ls < prev    next >
Encoding:
Text File  |  2000-10-17  |  962 b   |  34 lines
  1. on handleMouseUpG_vr03
  2.   global gMouseDownLocVR
  3.   set offs to point(2, 2)
  4.   set p to point(mouseH(), mouseV())
  5.   if inside(gMouseDownLocVR, rect(p - offs, p + offs)) then
  6.     set id to the hotSpotID of sprite(1)
  7.     if id = 13 then
  8.       set the MouseUpHandler of sprite(1) to EMPTY
  9.       moveToBack(window "m_navig")
  10.       set the visible of window "m_navig" to 0
  11.       go(#next)
  12.     end if
  13.   end if
  14. end
  15.  
  16. on handleNodeEnterG_vr03 pNodeID
  17.   global gCountDown
  18.   if pNodeID = 128 then
  19.     set the BackBufferMovie of sprite(1) to EMPTY
  20.   end if
  21.   if pNodeID = 130 then
  22.     set gCountDown to -1
  23.     sound stop 2
  24.     moveToBack(window "m_navig")
  25.     set the visible of window "m_navig" to 0
  26.     set the MovieMouseClick of sprite(1) to 0
  27.     SwingSpeed(sprite(1), 5)
  28.     SwingComplete(sprite(1), 176, 11, 66)
  29.     set the AreaOfInterest of sprite(1) to rect(0, 1094, 319, 1335)
  30.     PlayBackBufferMovie(sprite(1), "@\files\G_in10e.mov", #once)
  31.     go("14")
  32.   end if
  33. end
  34.