home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 51 / Mobiclic51.iso / mac / DATA / COMMUNS / MOBICLIC_MENUS.CST / 00094_Script_GESTION_COIN_ROUGE_STANDARD < prev    next >
Text File  |  2003-01-30  |  1KB  |  49 lines
  1. global validMBD, menusActifs, menuOuvert, pisteMenuBD, pisteCoinBD, ouvreMenuBD, fermeMenuBD, menuFermeBD, volumeOn
  2. global gFlagMagic, gFlag_hideWindows
  3. ----------------------------------------------
  4. on beginSprite
  5.   pisteCoinBD = the currentSpriteNum
  6. end
  7. -----------------------------------------------
  8. on mouseUp
  9.   if the pauseState = 1 then exit
  10.   case(gFlagMagic) of
  11.     0, VOID:--Θquerres Bernard
  12.       if menusActifs=1 and menuOuvert=0 then
  13.         if menusActifs=1 and menuOuvert = 1 then exit
  14.         cursor 280
  15.         ouvreMenuBD=1
  16.         menuFermeBD=0
  17.         sprite(pisteMenuBD).memberNum = member("MenuBD").number
  18.         sprite(pisteMenuBD).rect = rect(194, 374, 640, 480)
  19.         afficherPistes pisteMenuBD
  20.         updateStage
  21.         menuouvert = "BD"
  22.         hide_zevideo()
  23.         if gFlag_hideWindows <> VOID then hide_window()
  24.         put " Ouverture Θquerre rouge"
  25.       end if
  26.     1:--Θquerres JLM
  27.       cursor 280
  28.       manage_magicWindow("RED","STD")
  29.       put "  Ouverture Θquerre magique rouge" 
  30.   end case
  31. end
  32. -----------------------------------------------
  33. on mouseEnter
  34.   if menusActifs=1 then
  35.     equerre pisteCoinBD
  36.   end if
  37. end
  38. -----------------------------------------------
  39. on mouseLeave
  40.   if the pauseState=0 then
  41.     if rollOver(pisteMenuBD)=0 then
  42.       cursor -1
  43.       menuOuvert = 0
  44.       fermeMenuBD=1
  45.     end if
  46.   end if
  47. end
  48. -----------------------------------------------
  49.