home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mobiclic 46
/
Mobiclic46.iso
/
pc
/
DATA
/
COMMUNS
/
MOBICLIC_MENUS.CST
/
00229_Script_GESTION_BTON_MOINS_SON
< prev
next >
Wrap
Text File
|
2002-08-21
|
1KB
|
43 lines
property pdizsprite, pdizspriteNo
global gpisteFondVolume, gvolumeSon, gpisteVumetre, gpisteWarning_Volume, nivSon
------------------
on beginSprite me
pdizspriteNo = me.spriteNum
pdizsprite = sprite(pdizspriteNo)
end
-----------------
on mouseEnter
cursor 280
sprite(gpisteFondVolume).Member = "FDVOL_LW"
updateStage
end
------------------
on mouseUp
case(gvolumeSon > 0) of
1:
gvolumeSon = gvolumeSon - 1
sprite(gpisteVumetre). member = "NEZ_"&gimme2digits(gvolumeSon)
repeat with i = 1 to 3
nivSon[i] = 42.5*(gvolumeSon)
sound(i).volume = nivSon[i]
updateStage
end repeat
case(gvolumeSon) of
0:
member("WARNING_NIV_SON").text = "son = 0"
sprite(gpisteWarning_Volume).ink = 0
otherwise:
member("WARNING_NIV_SON").text = EMPTY
sprite(gpisteWarning_Volume).ink = 36
end case
updateStage
0:
beep
end case
end
------------------
on mouseLeave
cursor -1
puppetsprite gpisteFondVolume, FALSE
end
------------------