home *** CD-ROM | disk | FTP | other *** search
/ Encyklopedia Omnia / Planeta.iso / data / s_gen.dir / 00024_HabilisHandlers.ls < prev    next >
Encoding:
Text File  |  2000-11-09  |  930 b   |  33 lines
  1. on handleMouseUpHabilis
  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.     case id of
  8.       47:
  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.         go(">8")
  13.       otherwise:
  14.         set tipo to the HotSpotType of sprite(1)
  15.         if tipo starts "undf" then
  16.           set oldLevel to the volume of sound 2
  17.           set the volume of sound 2 to 40
  18.           puppetSound(1, "omo7b")
  19.           repeat while soundBusy(1)
  20.             nothing()
  21.           end repeat
  22.           set the volume of sound 2 to oldLevel
  23.         end if
  24.     end case
  25.   end if
  26. end
  27.  
  28. on handleNodeEnterHabilis pNodeID
  29.   if (pNodeID = 133) or (pNodeID = 128) then
  30.     set the BackBufferMovie of sprite(1) to EMPTY
  31.   end if
  32. end
  33.