home *** CD-ROM | disk | FTP | other *** search
/ Encyklopedia Omnia / Planeta.iso / data / s_gen.dir / 00008_OBJhomoHandlers.ls < prev    next >
Encoding:
Text File  |  2000-11-09  |  439 b   |  16 lines
  1. on handleMouseUpOBJhomo
  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(2)
  7.     if (id = 28) or (id = 21) then
  8.       set the MouseUpHandler of sprite(2) to EMPTY
  9.       moveToBack(window "m_navig")
  10.       set the visible of window "m_navig" to 0
  11.       cursor(200)
  12.       go(#next)
  13.     end if
  14.   end if
  15. end
  16.