home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mobiclic 51
/
Mobiclic51.iso
/
mac
/
DATA
/
COMMUNS
/
MOBICLIC_MENUS.CST
/
00039_Script_39
< prev
next >
Wrap
Text File
|
2003-01-30
|
1KB
|
56 lines
-- scripts menu Θquerre verte
global validMHD,rollMessHD,menuMsg,fermeMenuHD, menuFermeHD,pisteMenuHD,menuOuvert
-- validMHD : liste donnant les items du menu sΘlectionnables
-- rollMessHD : indique sur quel item du menu a lieu le rollOver
-- menuMsg : message renvoyΘ par le menu α sa fermeture
-- la souris quitte le menu
on mouseLeave
if menuMsg <> empty then
masqueMenu
end if
masqueMenu
end mouseLeave
-- clic dans menu
on mouseUp
if rollMessHD <> "nul" then
put rollMessHD
set menuMsg = rollMessHD
masqueMenu
else
set menuMsg = empty
end if
if voidP(menuMsg)<>1 then
gestMenus
end if
set menuMsg = empty
end mouseUp
-- dissimulation du menu
on masqueMenu
cursor -1
set fermeMenuHD=1
repeat while menuFermeHD<>1
temporise(0.01)
updateStage
end repeat
put " Fermeture Θquerre verte"
masquerPistes the currentSpriteNum
set the memberNum of sprite(pisteMenuHD)=the number of member "pointPourGlisserSur"
set menuOuvert = 0
end masqueMenu
-- repΘrage de la piste du menu Θquerre verte
on beginSprite
set pisteMenuHD = the currentSpriteNum
masquerPistes pisteMenuHD
end
-- fermeture du menu si restΘ ouvert
on exitFrame
if menuFermeHD=1 and menuOuvert="HD" then
masqueMenu
end if
end