home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 51 / Mobiclic51.iso / mac / DATA / COMMUNS / MOBICLIC_MENUS.CST / 00095_Script_SCRIPT_MENU_EQUERRE_ROUGE < prev    next >
Text File  |  2003-01-30  |  1KB  |  61 lines
  1. -- scripts menu Θquerre rouge
  2.  
  3. global validMBD,rollMessBD,menuMsg,fermeMenuBD, menuFermeBD,pisteMenuBD,menuOuvert, gFlag_hideWindows
  4. -- validMBD : liste donnant les items du menu sΘlectionnables
  5. -- rollMessBD : 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 rollMessBD <> "nul" then
  19. --    menuMsg = rollMessBD
  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. --  volumeOff
  29. --end mouseUp
  30.  
  31. -- dissimulation menu
  32. on masqueMenu
  33.   show_zevideo
  34.   if gFlag_hideWindows = 2 then resume_window()
  35.   cursor -1
  36.   fermeMenuBD = 1
  37.   repeat while menuFermeBD<>1
  38.     temporise(0.01)
  39.     updateStage
  40.   end repeat
  41.   put "    Fermeture Θquerre rouge"
  42.   masquerPistes the currentSpriteNum
  43.   sprite(pisteMenuBD).memberNum = member("pointPourGlisserSur").number
  44.   menuOuvert = 0
  45. end masqueMenu
  46.  
  47. -- repΘrage de la piste du menu Θquerre rouge
  48. on beginSprite
  49.   pisteMenuBD = the currentSpriteNum
  50.   masquerPistes pisteMenuBD
  51. end
  52.  
  53. on exitFrame
  54.   if menuFermeBD=1 and menuOuvert="BD" then
  55.     masqueMenu
  56.     menuMsg = rollMessBD
  57.   end if
  58.   if voidP(menuMsg)<>1 then
  59.     gestMenus
  60.   end if
  61. end