home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 46 / Mobiclic46.iso / pc / DATA / COMMUNS / MOBICLIC_MENUS.CST / 00084_Script_GESTION_COIN_BLEU_STANDARD < prev    next >
Text File  |  2002-08-21  |  1KB  |  50 lines
  1. global validMBG, menusActifs, menuOuvert, pisteMenuBG, pisteCoinBG, ouvreMenuBG,fermeMenuBG, menuFermeBG
  2. global gFlagmagic, gFlag_hideWindows
  3. ---------------------------------------
  4. on beginSprite
  5.   pisteCoinBG = 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.         cursor 280
  14.         ouvreMenuBG=1
  15.         menuFermeBG=0
  16.         afficherPistes pisteMenuBG
  17.         sprite(pisteMenuBG).memberNum = member("MenuBG").number
  18.         sprite(pisteMenuBG).rect = rect(0,80,106,480)
  19.         afficherPistes pisteMenuBG
  20.         updateStage
  21.         menuOuvert = "BG"
  22.         hide_zevideo()
  23.         if gFlag_hideWindows <> VOID then hide_window()
  24.         put "  Ouverture Θquerre bleue"
  25.       end if
  26.     1:--Θquerres JLM
  27.       cursor 280
  28.       manage_magicWindow("BLUE","STD")
  29.       put "  Ouverture Θquerre magique bleue"
  30.   end case
  31. end
  32. ---------------------------------------
  33. on mouseEnter
  34.   if menusActifs=1 then
  35.     equerre pisteCoinBG
  36.   end if
  37. end
  38. ---------------------------------------
  39. on mouseLeave
  40.   if the pauseState=0 then
  41.     if rollOver(pisteMenuBG)=0 then
  42.       cursor -1
  43.       menuouvert = 0
  44.       fermeMenuBG=1
  45.     end if
  46.   end if
  47. end
  48. ---------------------------------------
  49.  
  50.