home *** CD-ROM | disk | FTP | other *** search
/ Encyklopedia Omnia / Planeta.iso / data / e_gen_pl.dir / 00073_VR16Handlers.ls < prev    next >
Encoding:
Text File  |  1999-06-27  |  956 b   |  33 lines
  1. on handleMouseUpVR16
  2.   global gMouseDownLocVR, gMessageID, gCatenaccio
  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.     put id
  8.     case id of
  9.       175, 5, 166:
  10.         if getPos(gCatenaccio, id) = 0 then
  11.           add(gCatenaccio, id)
  12.           set the DisableHotSpotID of sprite(1) to id
  13.           if count(gCatenaccio) = 3 then
  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.             go(#next)
  18.           else
  19.             set the MovieMouseClick of sprite(1) to 0
  20.             apriMessaggioPositivo("m_evo13")
  21.           end if
  22.         else
  23.           nothing()
  24.         end if
  25.       31:
  26.         set the MovieMouseClick of sprite(1) to 0
  27.         apriMessaggio("m_evo12")
  28.       otherwise:
  29.         nothing()
  30.     end case
  31.   end if
  32. end
  33.