home *** CD-ROM | disk | FTP | other *** search
/ Encyklopedia Omnia / Planeta.iso / data / s_gen.dir / 00012_SavausHandlers.ls < prev    next >
Encoding:
Text File  |  2000-11-09  |  2.2 KB  |  74 lines
  1. on handleMouseUpSavaus
  2.   global gMouseDownLocVR, gMessageID
  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.     case id of
  8.       183:
  9.         set the MouseUpHandler of sprite(1) to EMPTY
  10.         moveToBack(window "m_navig")
  11.         set the visible of window "m_navig" to 0
  12.         sound fadeOut 2, 60
  13.         go("out")
  14.       10, 47:
  15.         set the MovieMouseClick of sprite(1) to 0
  16.         apriMessaggio("m_omo01")
  17.       218, 142, 30:
  18.         set the MovieMouseClick of sprite(1) to 0
  19.         apriMessaggio("m_omo02")
  20.       13:
  21.         set the MouseUpHandler of sprite(1) to EMPTY
  22.         SwingSpeed(sprite(1), 5)
  23.         SwingComplete(sprite(1), 141.82929999999998927, -11.36599999999999966, 42.77009999999999934, 0, EMPTY, 0)
  24.         set the BackBufferMovie of sprite(1) to EMPTY
  25.         moveToBack(window "m_navig")
  26.         set the visible of window "m_navig" to 0
  27.         go(">4")
  28.       otherwise:
  29.         nothing()
  30.     end case
  31.   end if
  32. end
  33.  
  34. on handleNodeEnterSavaus pNodeID
  35.   if pNodeID = 136 then
  36.     go("3")
  37.   end if
  38. end
  39.  
  40. on handleNodeLeaveSavaus pFromNodeID, pToNodeID
  41.   global gInfoContext
  42.   if pToNodeID = 134 then
  43.     set the MovieMouseClick of sprite(1) to 0
  44.     set oldLevel to the volume of sound 2
  45.     set the volume of sound 2 to 40
  46.     puppetSound(1, "omo3")
  47.     SwingSpeed(sprite(1), 2)
  48.     SwingComplete(sprite(1), 188.58239999999997849, 0, 38.6530000000000058, 0, EMPTY, 0)
  49.     repeat while soundBusy(1)
  50.       nothing()
  51.     end repeat
  52.     set the volume of sound 2 to oldLevel
  53.     set the MovieMouseClick of sprite(1) to 1
  54.   end if
  55.   if pToNodeID = 135 then
  56.     set the MovieMouseClick of sprite(1) to 0
  57.     set oldLevel to the volume of sound 2
  58.     set the volume of sound 2 to 40
  59.     set gInfoContext to "s_03"
  60.     puppetSound(1, "omo3b")
  61.     SwingSpeed(sprite(1), 5)
  62.     SwingComplete(sprite(1), 175.06819999999999027, 6.72189999999999976, 43, 0, EMPTY, 0)
  63.     repeat while soundBusy(1)
  64.       nothing()
  65.     end repeat
  66.     set the volume of sound 2 to oldLevel
  67.     set the MovieMouseClick of sprite(1) to 1
  68.   end if
  69.   if pToNodeID = 136 then
  70.     SwingSpeed(sprite(1), 5)
  71.     SwingComplete(sprite(1), 159, -6.5, 45.71269999999999811, 0, EMPTY, 0)
  72.   end if
  73. end
  74.