home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mobiclic 51
/
Mobiclic51.iso
/
pc
/
DATA
/
COMMUNS
/
MOBICLIC_MENUS.CST
/
00228_Script_GESTION_BTON_PLUS_SON
< prev
next >
Wrap
Text File
|
2003-01-30
|
1KB
|
44 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_HI"
updateStage
end
------------------
on mouseUp
case(gvolumeSon < 6) 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
6:
member("WARNING_NIV_SON").text = "son MAXI"
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
------------------