home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Main.dxr / 00029_suonotasto.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  1.5 KB  |  66 lines
  1. global gMovie, finestra, gDVisPlaying
  2.  
  3. on mouseEnter me
  4.   tell window(finestra)
  5.     tmp = the frame
  6.   end tell
  7.   if (gMovie = "studi") and (tmp > 2) then
  8.     exit
  9.   end if
  10.   cursor(280)
  11.   set the member of sprite the currentSpriteNum to member("Audio_F3")
  12. end
  13.  
  14. on mouseDown me
  15.   tell window(finestra)
  16.     tmp = the frame
  17.   end tell
  18.   if (gMovie = "studi") and (tmp > 2) then
  19.     exit
  20.   end if
  21.   cursor(280)
  22.   set the member of sprite the currentSpriteNum to member("Audio_F2")
  23. end
  24.  
  25. on mouseLeave me
  26.   global gSuonoAttivo, riattivagSuonoAttivo
  27.   tell window(finestra)
  28.     tmp = the frame
  29.   end tell
  30.   if (gMovie = "studi") and (tmp > 2) then
  31.     exit
  32.   end if
  33.   cursor(-1)
  34.   if gSuonoAttivo = 1 then
  35.     set the member of sprite the currentSpriteNum to member("Audio")
  36.   else
  37.     set the member of sprite the currentSpriteNum to member("Audio_F4")
  38.   end if
  39. end
  40.  
  41. on mouseUp me
  42.   global gSuonoAttivo, riattivagSuonoAttivo
  43.   tell window(finestra)
  44.     tmp = the frame
  45.   end tell
  46.   if (gMovie = "studi") and (tmp > 2) then
  47.     exit
  48.   end if
  49.   cursor(-1)
  50.   if gSuonoAttivo = 1 then
  51.     gSuonoAttivo = 0
  52.     riattivagSuonoAttivo = 0
  53.     sound stop 3
  54.     set the member of sprite the currentSpriteNum to member("Audio_F4")
  55.   else
  56.     if (gSuonoAttivo = 0) and not gDVisPlaying then
  57.       gSuonoAttivo = 1
  58.       set the member of sprite the currentSpriteNum to member("Audio")
  59.     else
  60.       if (gSuonoAttivo = 0) and gDVisPlaying then
  61.         set the member of sprite the currentSpriteNum to member("Audio_F4")
  62.       end if
  63.     end if
  64.   end if
  65. end
  66.