home *** CD-ROM | disk | FTP | other *** search
/ Encyklopedia Omnia / Planeta.iso / data / s_gen.dir / 00021_OBJau360Handlers.ls < prev    next >
Encoding:
Text File  |  2000-11-09  |  1.8 KB  |  57 lines
  1. on handleMouseUpOBJau360
  2.   global gMouseDownLocVR, 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(2)
  7.     case id of
  8.       129, 251:
  9.         if gCatenaccio = #testa then
  10.           set oldLevel to the volume of sound 2
  11.           set the volume of sound 2 to 40
  12.           puppetSound(1, "omo7")
  13.           repeat while soundBusy(1)
  14.             nothing()
  15.           end repeat
  16.           set the volume of sound 2 to oldLevel
  17.           go(#next)
  18.           set the MouseUpHandler of sprite(1) to EMPTY
  19.         else
  20.           if gCatenaccio <> #mani then
  21.             set oldLevel to the volume of sound 2
  22.             set the volume of sound 2 to 40
  23.             puppetSound(1, "omo7")
  24.             repeat while soundBusy(1)
  25.               nothing()
  26.             end repeat
  27.             set the volume of sound 2 to oldLevel
  28.             set gCatenaccio to #mani
  29.           end if
  30.         end if
  31.       168, 169, 132, 133, 138, 175:
  32.         if gCatenaccio = #mani then
  33.           set oldLevel to the volume of sound 2
  34.           set the volume of sound 2 to 40
  35.           puppetSound(1, "omo6")
  36.           repeat while soundBusy(1)
  37.             nothing()
  38.           end repeat
  39.           set the volume of sound 2 to oldLevel
  40.           go(#next)
  41.           set the MouseUpHandler of sprite(1) to EMPTY
  42.         else
  43.           if gCatenaccio <> #testa then
  44.             set oldLevel to the volume of sound 2
  45.             set the volume of sound 2 to 40
  46.             puppetSound(1, "omo6")
  47.             repeat while soundBusy(1)
  48.               nothing()
  49.             end repeat
  50.             set the volume of sound 2 to oldLevel
  51.             set gCatenaccio to #testa
  52.           end if
  53.         end if
  54.     end case
  55.   end if
  56. end
  57.