home *** CD-ROM | disk | FTP | other *** search
/ Encyklopedia Omnia / Planeta.iso / data / a_gen.dir / 00004_VR01Handlers.ls < prev    next >
Encoding:
Text File  |  2000-11-14  |  1021 b   |  37 lines
  1. on handleMouseUpA_VR01
  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.       28:
  9.         sound stop 2
  10.         set the MouseUpHandler of sprite(1) to EMPTY
  11.         moveToBack(window "m_navig")
  12.         set the visible of window "m_navig" to 0
  13.         go(#next)
  14.       254:
  15.         set the MovieMouseClick of sprite(1) to 0
  16.         apriMessaggio("m_hab01")
  17.       255:
  18.         set the MovieMouseClick of sprite(1) to 0
  19.         apriMessaggio("m_hab02")
  20.     end case
  21.   end if
  22. end
  23.  
  24. on handleNodeEnterA_VR01 nodeID
  25.   global gInfoContext
  26.   if nodeID = 127 then
  27.     set gInfoContext to "a_02"
  28.     set the volume of sound 2 to 80
  29.     WalkThruTransStep(sprite(1), 20)
  30.     SetupWalkThruTrans(sprite(1), EMPTY, #tempo, "dslv", 0, 1)
  31.     go(#next)
  32.     ReplaceCursor(sprite(1), 0, -32000)
  33.     ReplaceCursor(sprite(1), 0, -31999)
  34.     ReplaceCursor(sprite(1), 0, -31998)
  35.   end if
  36. end
  37.