Mobiclic 46/Mobiclic46.iso/pc/DATA/COMMUNS/MOBICLIC_MENUS.CST/00041_Script_41

Text File | 2002-08-21 | 1KB | 56 lines

-- scripts menu Θquerre jaune

global validMHG, rollMessHG, menuMsg, fermeMenuHG, menuFermeHG, pisteMenuHG, menuOuvert
-- validMHG : liste donnant les items du menu sΘlectionnables
-- rollMessHG : indique sur quel item du menu a lieu le rollOver
-- menuMsg : message renvoyΘ par le menu α sa fermeture


-- la souris quitte le menu sans clic
on mouseLeave
  if menuMsg<>empty then
    masqueMenu
  end if
  masqueMenu
end mouseLeave

-- clic dans menu
on mouseUp
  if rollMessHG <> "nul" then
    set menuMsg = rollMessHG
    masqueMenu
  else
    set menuMsg = empty
  end if
  if voidP(menuMsg)<>1 then
    gestMenus
  end if
  set menuMsg = empty
end mouseUp

-- dissimulation du menu
on masqueMenu
  cursor -1
  set fermeMenuHG=1
  repeat while menuFermeHG<>1
    temporise(0.01)
    updateStage
  end repeat
  masquerPistes the currentSpriteNum
  set the memberNum of sprite(pisteMenuHG)=the number of member "pointPourGlisserSur"
  set menuOuvert = 0
  put "    Fermeture Θquerre jaune"
end masqueMenu

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

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