home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 46 / Mobiclic46.iso / pc / DATA / COMMUNS / MOBICLIC_MENUS.CST / 00228_Script_GESTION_BTON_PLUS_SON < prev    next >
Text File  |  2002-08-21  |  1KB  |  44 lines
  1. property pdizsprite, pdizspriteNo
  2. global gpisteFondVolume, gvolumeSon, gpisteVumetre, gpisteWarning_Volume, nivSon
  3. ------------------
  4. on beginSprite me
  5.   pdizspriteNo = me.spriteNum
  6.   pdizsprite = sprite(pdizspriteNo) 
  7. end
  8. -----------------
  9. on mouseEnter
  10.   cursor 280
  11.   sprite(gpisteFondVolume).Member = "FDVOL_HI"
  12.   updateStage
  13. end
  14. ------------------
  15. on mouseUp
  16.   case(gvolumeSon < 6) of
  17.     1:
  18.       gvolumeSon = gvolumeSon + 1
  19.       sprite(gpisteVumetre). member = "NEZ_"&gimme2digits(gvolumeSon)
  20.       repeat with i = 1 to 3
  21.         nivSon[i] = 42.5*(gvolumeSon)
  22.         sound(i).volume = nivSon[i]
  23.         updateStage
  24.       end repeat
  25.       case(gvolumeSon) of
  26.         6:
  27.           member("WARNING_NIV_SON").text = "son MAXI"
  28.           sprite(gpisteWarning_Volume).ink = 0
  29.         otherwise:
  30.           member("WARNING_NIV_SON").text = EMPTY
  31.           sprite(gpisteWarning_Volume).ink = 36
  32.       end case
  33.       
  34.       updateStage
  35.     0:
  36.       beep
  37.   end case  
  38. end
  39. ------------------
  40. on mouseLeave
  41.   cursor -1
  42.   puppetsprite  gpisteFondVolume, FALSE
  43. end
  44. ------------------