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