home *** CD-ROM | disk | FTP | other *** search
/ Encyklopedia Omnia / Planeta.iso / data / u_gen.dir / 00030_handleMouseUpOBJ09.ls < prev    next >
Encoding:
Text File  |  2000-10-16  |  416 b   |  18 lines
  1. on handleMouseUpOBJ09
  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.     put id
  8.     case id of
  9.       13:
  10.         puppetSound(2, "h_go")
  11.         set the MouseUpHandler of sprite(2) to EMPTY
  12.         go(#next)
  13.       11:
  14.         puppetSound(2, "h_si")
  15.     end case
  16.   end if
  17. end
  18.