home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mobiclic 51
/
Mobiclic51.iso
/
mac
/
DATA
/
COMMUNS
/
MOBICLIC_MENUS.CST
/
00040_Script_40
< prev
next >
Wrap
Text File
|
2003-01-30
|
1KB
|
57 lines
-- scripts menu Θquerre bleue
global validMBG,rollMessBG,menuMsg,fermeMenuBG, menuFermeBG,pisteMenuBG,menuOuvert
-- validMBG : liste donnant les items du menu sΘlectionnables
-- rollMessBG : 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
put rollMessBG
if rollMessBG <> "nul" then
set menuMsg = rollMessBG
masqueMenu
else
set menuMsg = empty
end if
if voidP(menuMsg)<>1 then
gestMenus
end if
set menuMsg = empty
end mouseUp
-- dissimulation menu
on masqueMenu
cursor -1
set fermeMenuBG=1
repeat while menuFermeBG<>1
temporise(0.01)
updateStage
end repeat
put " Fermeture Θquerre bleue"
masquerPistes the currentSpriteNum
set the memberNum of sprite(pisteMenuBG)=the number of member "pointPourGlisserSur"
set menuouvert = 0
end masqueMenu
-- repΘrage de la piste du menu Θquerre bleue
on beginSprite
set pisteMenuBG = the currentSpriteNum
masquerPistes pisteMenuBG
end
-- fermeture du menu si restΘ ouvert
on exitFrame
if menuFermeBG=1 and menuOuvert="BG" then
masqueMenu
end if
end