Mobiclic 51/Mobiclic51.iso/mac/DATA/COMMUNS/MOBICLIC_MENUS.CST/00040_Script_40

Text File | 2003-01-30 | 1KB | 57 lines

-- scripts menu Θquerre bleue

global validMBG,rollMessBG,menuMsg,fermeMenuBG, menuFermeBG,pisteMenuBG,menuOuvert
-- validMBG : liste donnant les items du menu sΘlectionnables
-- rollMessBG : 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
  put rollMessBG
  if rollMessBG <> "nul" then

    set menuMsg = rollMessBG
    masqueMenu
  else
    set menuMsg = empty
  end if
  if voidP(menuMsg)<>1 then
    gestMenus
  end if
  set menuMsg = empty
end mouseUp

-- dissimulation menu
on masqueMenu
  cursor -1
  set fermeMenuBG=1
  repeat while menuFermeBG<>1
    temporise(0.01)
    updateStage
  end repeat
  put "    Fermeture Θquerre bleue"
  masquerPistes the currentSpriteNum
  set the memberNum of sprite(pisteMenuBG)=the number of member "pointPourGlisserSur"
  set menuouvert = 0
end masqueMenu

-- repΘrage de la piste du menu Θquerre bleue
on beginSprite
  set pisteMenuBG = the currentSpriteNum
  masquerPistes pisteMenuBG
end

-- fermeture du menu si restΘ ouvert
on exitFrame
  if menuFermeBG=1 and menuOuvert="BG" then
    masqueMenu
  end if
end