home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mobiclic 46
/
Mobiclic46.iso
/
pc
/
DATA
/
COMMUNS
/
MOBICLIC_MENUS.CST
/
00095_Script_SCRIPT_MENU_EQUERRE_ROUGE
< prev
next >
Wrap
Text File
|
2002-08-21
|
1KB
|
61 lines
-- scripts menu Θquerre rouge
global validMBD,rollMessBD,menuMsg,fermeMenuBD, menuFermeBD,pisteMenuBD,menuOuvert, gFlag_hideWindows
-- validMBD : liste donnant les items du menu sΘlectionnables
-- rollMessBD : 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 rollMessBD <> "nul" then
-- menuMsg = rollMessBD
-- masqueMenu
-- else
-- menuMsg = empty
-- end if
-- if voidP(menuMsg)<>1 then
-- gestMenus
-- end if
-- menuMsg = empty
-- volumeOff
--end mouseUp
-- dissimulation menu
on masqueMenu
show_zevideo
if gFlag_hideWindows = 2 then resume_window()
cursor -1
fermeMenuBD = 1
repeat while menuFermeBD<>1
temporise(0.01)
updateStage
end repeat
put " Fermeture Θquerre rouge"
masquerPistes the currentSpriteNum
sprite(pisteMenuBD).memberNum = member("pointPourGlisserSur").number
menuOuvert = 0
end masqueMenu
-- repΘrage de la piste du menu Θquerre rouge
on beginSprite
pisteMenuBD = the currentSpriteNum
masquerPistes pisteMenuBD
end
on exitFrame
if menuFermeBD=1 and menuOuvert="BD" then
masqueMenu
menuMsg = rollMessBD
end if
if voidP(menuMsg)<>1 then
gestMenus
end if
end