home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 51 / Mobiclic51.iso / mac / DATA / COMMUNS / MOBICLIC_MENUS.CST / 00036_Script_36 < prev    next >
Text File  |  2003-01-30  |  1KB  |  58 lines
  1. -- scripts menu Θquerre rouge
  2.  
  3. global validMBD,rollMessBD,menuMsg,fermeMenuBD, menuFermeBD,pisteMenuBD,menuOuvert
  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.     set menuMsg = empty
  23.   end if
  24.   if voidP(menuMsg)<>1 then
  25.     gestMenus
  26.   end if
  27.   set menuMsg = empty
  28. end mouseUp
  29.  
  30. -- dissimulation menu
  31. on masqueMenu
  32.   show_zevideo
  33.   cursor -1
  34.   set fermeMenuBD=1 -- commande la fermeture du menu
  35.   repeat while menuFermeBD<>1
  36.     temporise(0.01)
  37.     updateStage
  38.   end repeat
  39.   put "    Fermeture Θquerre rouge"
  40.   masquerPistes the currentSpriteNum
  41.   set the memberNum of sprite(pisteMenuBD)=the number of member "pointPourGlisserSur"
  42.   set menuOuvert = 0
  43. end masqueMenu
  44.  
  45. -- repΘrage de la piste du menu Θquerre rouge
  46. on beginSprite
  47.   set pisteMenuBD = the currentSpriteNum
  48.   masquerPistes pisteMenuBD
  49. end
  50.  
  51. on exitFrame
  52.   if menuFermeBD=1 and menuOuvert="BD" then
  53.     masqueMenu
  54.   end if
  55.   if voidP(menuMsg)<>1 then
  56.     gestMenus
  57.   end if
  58. end