Mobiclic 51/Mobiclic51.iso/mac/DATA/COMMUNS/MOBICLIC_MENUS.CST/00035_Script_GESTION_COIN_ROUGE_STANDARD

Text File | 2003-01-30 | 978b | 39 lines

global validMBD, menusActifs, menuOuvert, pisteMenuBD, pisteCoinBD, ouvreMenuBD, fermeMenuBD, menuFermeBD, volumeOn
-------------------------------------------
on beginSprite
  pisteCoinBD = the currentSpriteNum
end
----------------------------------
on mouseUp
  if the pauseState=0 then
    if menusActifs=1 and menuOuvert=0 then
      cursor 280
      ouvreMenuBD=1
      menuFermeBD=0
      sprite(pisteMenuBD).memberNum = member("MenuBD").number
      sprite(pisteMenuBD).rect = rect(320, 382, 640, 480)
      afficherPistes pisteMenuBD
      updateStage
      menuouvert = "BD"
      put "  Ouverture Θquerre rouge"
    end if
  end if
end
-----------------------------
on mouseEnter
  if menusActifs=1 then
    equerre pisteCoinBD
  end if
end
-----------------------------
on mouseLeave
  if the pauseState=0 then
    if rollOver(pisteMenuBD)=0 then
      cursor -1
      menuOuvert = 0
      fermeMenuBD=1
    end if
  end if
end