home *** CD-ROM | disk | FTP | other *** search
/ Encyklopedia Omnia / Planeta.iso / data / e_gen.dir / 00065_VR15Handlers.ls < prev    next >
Encoding:
Text File  |  2000-10-16  |  683 b   |  24 lines
  1. on handleMouseUpVR15
  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.       66:
  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("met")
  13.       59:
  14.         set the MouseUpHandler of sprite(1) to EMPTY
  15.         moveToBack(window "m_navig")
  16.         set the visible of window "m_navig" to 0
  17.         set the MovieMouseClick of sprite(1) to 0
  18.         go("tRex")
  19.       otherwise:
  20.         nothing()
  21.     end case
  22.   end if
  23. end
  24.