home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mobiclic 51
/
Mobiclic51.iso
/
mac
/
DATA
/
COMMUNS
/
MOBICLIC_MENUS.CST
/
00085_Script_SCRIPT_MENU_EQUERRE_BLEUE
< prev
next >
Wrap
Text File
|
2003-01-30
|
1KB
|
58 lines
-- scripts menu Θquerre bleue
global validMBG,rollMessBG,menuMsg,fermeMenuBG, menuFermeBG,pisteMenuBG,menuOuvert, gFlag_hideWindows
-- 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
if rollMessBG <> "nul" then
menuMsg = rollMessBG
masqueMenu
else
menuMsg = empty
end if
if voidP(menuMsg)<>1 then
gestMenus
end if
menuMsg = empty
end mouseUp
-- dissimulation menu
on masqueMenu
show_zevideo
if gFlag_hideWindows = 2 then resume_window()
cursor -1
fermeMenuBG=1
repeat while menuFermeBG<>1
temporise(0.01)
updateStage
end repeat
put " Fermeture Θquerre bleue"
masquerPistes the currentSpriteNum
sprite(pisteMenuBG).memberNum = member("pointPourGlisserSur").number
menuouvert = 0
end masqueMenu
-- repΘrage de la piste du menu Θquerre bleue
on beginSprite
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