home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 46 / Mobiclic46.iso / pc / DATA / COMMUNS / MOBICLIC_MENUS.CST / 00075_Script_SCRIPT_MENU_EQUERRE_VERTE < prev    next >
Text File  |  2002-08-21  |  1KB  |  56 lines
  1. -- scripts menu Θquerre verte
  2.  
  3. global validMHD,rollMessHD,menuMsg,fermeMenuHD, menuFermeHD,pisteMenuHD,menuOuvert, gFlag_hideWindows
  4. -- validMHD : liste donnant les items du menu sΘlectionnables
  5. -- rollMessHD : indique sur quel item du menu a lieu le rollOver
  6. -- menuMsg : message renvoyΘ par le menu α sa fermeture
  7.  
  8. -- la souris quitte le menu
  9. on mouseLeave
  10.   if menuMsg <> empty then
  11.     masqueMenu
  12.   end if
  13.   masqueMenu
  14. end mouseLeave
  15.  
  16. -- clic dans menu
  17. on mouseUp
  18.   if rollMessHD <> "nul" then
  19.     menuMsg = rollMessHD
  20.     masqueMenu
  21.   else
  22.     menuMsg = empty
  23.   end if
  24.   if voidP(menuMsg)<>1 then
  25.     gestMenus
  26.   end if
  27.   menuMsg = empty
  28. end mouseUp
  29.  
  30. -- dissimulation du menu
  31. on masqueMenu
  32.   if gFlag_hideWindows =2  then resume_window()
  33.   show_zevideo
  34.   cursor -1
  35.   fermeMenuHD=1
  36.   repeat while menuFermeHD<>1
  37.     temporise(0.01)
  38.     updateStage
  39.   end repeat
  40.   put "    Fermeture Θquerre verte"
  41.   masquerPistes the currentSpriteNum
  42.   sprite(pisteMenuHD).memberNum = member("pointPourGlisserSur").number
  43.   menuOuvert = 0
  44. end
  45. -- repΘrage de la piste du menu Θquerre verte
  46. on beginSprite
  47.   pisteMenuHD = the currentSpriteNum
  48.   masquerPistes pisteMenuHD
  49. end
  50.  
  51. -- fermeture du menu si restΘ ouvert
  52. on exitFrame
  53.   if menuFermeHD=1 and menuOuvert="HD" then
  54.     masqueMenu
  55.   end if
  56. end