home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mobiclic 46
/
Mobiclic46.iso
/
pc
/
DATA
/
COMMUNS
/
MOBICLIC_MENUS.CST
/
00041_Script_41
< prev
next >
Wrap
Text File
|
2002-08-21
|
1KB
|
56 lines
-- scripts menu Θquerre jaune
global validMHG, rollMessHG, menuMsg, fermeMenuHG, menuFermeHG, pisteMenuHG, menuOuvert
-- validMHG : liste donnant les items du menu sΘlectionnables
-- rollMessHG : indique sur quel item du menu a lieu le rollOver
-- menuMsg : message renvoyΘ par le menu α sa fermeture
-- la souris quitte le menu sans clic
on mouseLeave
if menuMsg<>empty then
masqueMenu
end if
masqueMenu
end mouseLeave
-- clic dans menu
on mouseUp
if rollMessHG <> "nul" then
set menuMsg = rollMessHG
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 fermeMenuHG=1
repeat while menuFermeHG<>1
temporise(0.01)
updateStage
end repeat
masquerPistes the currentSpriteNum
set the memberNum of sprite(pisteMenuHG)=the number of member "pointPourGlisserSur"
set menuOuvert = 0
put " Fermeture Θquerre jaune"
end masqueMenu
-- repΘrage de la piste du menu Θquerre jaune
on beginSprite
set pisteMenuHG = the currentSpriteNum
masquerPistes pisteMenuHG
end
-- fermeture du menu si restΘ ouvert
on exitFrame
if menuFermeHG=1 and menuOuvert="HG" then
masqueMenu
end if
end