

    ' Created By Atomose Studio (atomose.fr) avec LibertyBasic 4.51 pro
    ' Stargate Master of Universe : production 2013/2025


    nomainwin
    on error goto [file]
    pass$ = "1"
    open "data\pref.txt" for input as #pref
    input #pref, pass$ 
    input #pref, introGAME
    input #pref, music
    input #pref, bruitage
    input #pref, language
    close #pref
    if pass$ <> "1" then end
    pass$ = "0"
    [file]
    open "data\pref.txt" for output as #pref
    print #pref, pass$ 
    print #pref, introGAME
    print #pref, music
    print #pref, bruitage
    print #pref, language
    close #pref

    GameVersion = 0.88
    sprites1$ = "territoire1a territoire1b territoire2a territoire2b territoire3a territoire3b territoire4a territoire4b territoire5a territoire5b territoire6a territoire6b territoire7a territoire7b territoire8a territoire8b territoire9a territoire9b territoire10a territoire10b territoire11a territoire11b territoire12a territoire12b territoire13a territoire13b territoire14a territoire14b territoire15a territoire15b territoire16a territoire16b territoire17a territoire17b territoire18a territoire18b territoire19a territoire19b territoire20a territoire20b"
    for s = 1 to 40
        loadbmp word$(sprites1$,s), "bmp\game\selection\GAMEstart\HUMANOIDE\world1\"+word$(sprites1$,s)+".bmp"
    next

    LOADBMP "menu", "bmp\game\choix\menu.bmp"
    LOADBMP "clan1", "bmp\game\selection\GAMEstart\HUMANOIDE\world1\clans\c1.bmp"
    LOADBMP "clan2", "bmp\game\selection\GAMEstart\HUMANOIDE\world1\clans\c2.bmp"
    LOADBMP "expedition", "bmp\game\selection\GAMEstart\expedition.bmp"
    LOADBMP "exploration", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\explo1.bmp"
    LOADBMP "AgePassage", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\agePASSAGE.bmp"
    LOADBMP "logo", "bmp\start\logo.bmp"
    LOADBMP "JB", "bmp\start\fondTEXTURE2.bmp"
    LOADBMP "Select", "bmp\game\selection\Select.bmp"
    LOADBMP "im1", "bmp\game\choix\1.bmp"
    LOADBMP "im2", "bmp\game\choix\2.bmp"
    LOADBMP "sg1", "bmp\game\choix\sg1.bmp"
    LOADBMP "sga", "bmp\game\choix\sga.bmp"
    LOADBMP "sgu", "bmp\game\choix\sgu.bmp"
    LOADBMP "f1", "bmp\game\selection\button1.bmp"
    LOADBMP "f2", "bmp\game\selection\button3.bmp"
    LOADBMP "JBc", "bmp\game\selection\GAMEstart\HUMANOIDE\fond1.bmp"
    LOADBMP "bois", "bmp\game\selection\GAMEstart\HUMANOIDE\boisBUTTON.bmp"
    LOADBMP "fer", "bmp\game\selection\GAMEstart\HUMANOIDE\ferBUTTON.bmp"
    LOADBMP "food", "bmp\game\selection\GAMEstart\HUMANOIDE\food.bmp"
    LOADBMP "naquada", "bmp\game\selection\GAMEstart\HUMANOIDE\naqBUTTON.bmp"
    LOADBMP "gold", "bmp\game\selection\GAMEstart\HUMANOIDE\orBUTTON.bmp"
    LOADBMP "mili", "bmp\game\selection\GAMEstart\HUMANOIDE\MillBUTTON.bmp"
    LOADBMP "pop", "bmp\game\selection\GAMEstart\HUMANOIDE\popBUTTON.bmp"
    LOADBMP "scient", "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp"
    LOADBMP "str1", "bmp\game\selection\GAMEstart\structur1.bmp"
    LOADBMP "str2", "bmp\game\selection\GAMEstart\structur2.bmp"
    LOADBMP "PlaneteT1", "bmp\game\selection\GAMEstart\PlaneteT1.bmp"
    LOADBMP "button1", "bmp\game\selection\GAMEstart\button1.bmp"
    LOADBMP "button3", "bmp\game\selection\GAMEstart\button3.bmp"
    LOADBMP "button4", "bmp\game\selection\GAMEstart\button4.bmp"
    LOADBMP "button5", "bmp\game\selection\GAMEstart\button5.bmp"
    LOADBMP "button6", "bmp\game\selection\GAMEstart\button6.bmp"
    LOADBMP "P1mini", "bmp\game\selection\GAMEstart\PlaneteMiniT1.bmp"
    LOADBMP "JBd", "bmp\game\selection\GAMEstart\HUMANOIDE\interface1.bmp"
    LOADBMP "h1", "bmp\game\selection\GAMEstart\HUMANOIDE\h1.bmp"
    LOADBMP "h2", "bmp\game\selection\GAMEstart\HUMANOIDE\h2.bmp"
    LOADBMP "h3", "bmp\game\selection\GAMEstart\HUMANOIDE\h3.bmp"
    LOADBMP "h4", "bmp\game\selection\GAMEstart\HUMANOIDE\h4.bmp"
    LOADBMP "h5", "bmp\game\selection\GAMEstart\HUMANOIDE\h5.bmp"
    LOADBMP "h6", "bmp\game\selection\GAMEstart\HUMANOIDE\h6.bmp"
    LOADBMP "h7", "bmp\game\selection\GAMEstart\HUMANOIDE\h7.bmp"
    LOADBMP "loca1", "bmp\game\selection\GAMEstart\HUMANOIDE\loca1.bmp"
    LOADBMP "loca2", "bmp\game\selection\GAMEstart\HUMANOIDE\loca2.bmp"
    LOADBMP "locaESPION", "bmp\game\selection\GAMEstart\HUMANOIDE\locaESPION.bmp"
    LOADBMP "locaESPION2", "bmp\game\selection\GAMEstart\HUMANOIDE\locaESPION2.bmp"
    LOADBMP "locaENNEMI", "bmp\game\selection\GAMEstart\HUMANOIDE\locaENNEMI.bmp"
    LOADBMP "porte1", "bmp\game\selection\GAMEstart\HUMANOIDE\porte1.bmp"
    LOADBMP "m", "bmp\game\selection\GAMEstart\-.bmp"
    LOADBMP "+", "bmp\game\selection\GAMEstart\+.bmp"
    LOADBMP "o", "bmp\game\selection\GAMEstart\o.bmp"
    LOADBMP "++", "bmp\game\selection\GAMEstart\++.bmp"
    LOADBMP "?", "bmp\game\selection\GAMEstart\HUMANOIDE\autres.bmp"
    LOADBMP "fond1", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\fondecran2.bmp"
    LOADBMP "bat1age1", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\bat1age1.bmp"
    LOADBMP "BAThouse1AGE1", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\BAThouse1AGE1.bmp"
    LOADBMP "centreScientifiqueAGE1", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\centreScientifiqueAGE1.bmp"
    LOADBMP "centreMillitaireAGE1", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\centreMillitaireAGE1.bmp"
    LOADBMP "scierie", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\scierieAGE1.bmp"
    LOADBMP "ferme", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\fermeAGE1.bmp"
    LOADBMP "mines", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\BATminesAGE1.bmp"
    LOADBMP "fond3", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\fondecran3.bmp"
    LOADBMP "fond", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\fondecran5.bmp"
    LOADBMP "fond1b", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\fondecran1.bmp"
    LOADBMP "unit1", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\slot1.bmp"
    LOADBMP "pop2", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\popUP.bmp"
    LOADBMP "house", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\maisonUP.bmp"
    LOADBMP "gauche", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\gauche1bis.bmp"
    LOADBMP "gauche2", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\gauche2bis.bmp"
    LOADBMP "droite", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\droite1bis.bmp"
    LOADBMP "droite2", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\droite2bis.bmp"
    LOADBMP "haut", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\haut1bis.bmp"
    LOADBMP "haut2", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\haut2bis.bmp"
    LOADBMP "bas", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\bas1bis.bmp"
    LOADBMP "bas2", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\bas2bis.bmp"
    LOADBMP "recy", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\recyclageUP.bmp"
    LOADBMP "coupe", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\coupeUP.bmp"
    LOADBMP "entr", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\entrForetUP.bmp"
    LOADBMP "fermage", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\fermage.bmp"
    LOADBMP "minerai", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\mineraisUP.bmp"
    LOADBMP "raff", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\raffUP.bmp"
    LOADBMP "murs", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\fortification1.bmp"
    LOADBMP "fondATK", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\attaquer1.bmp"
    LOADBMP "fondATK2", "bmp\game\selection\GAMEstart\stargateMAP.bmp"
    LOADBMP "solaire1", "bmp\game\selection\GAMEstart\solaire1.bmp"
    LOADBMP "attaquer", "bmp\game\selection\GAMEstart\HUMANOIDE\attaquer.bmp"
    LOADBMP "espionnage", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\espionnage.bmp"
    LOADBMP "ScienBUTTON1", "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON1.bmp"
    LOADBMP "land", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\land.bmp"
    LOADBMP "land2", "bmp\game\selection\GAMEstart\HUMANOIDE\ages\land2.bmp"
    LOADBMP "pic1", "bmp\start\pic1.bmp"
    LOADBMP "pic2", "bmp\start\pic2.bmp"
    LOADBMP "pic3", "bmp\start\pic3.bmp"
    LOADBMP "pic4", "bmp\start\pic4.bmp"
    LOADBMP "pic5", "bmp\start\pic5.bmp"
    LOADBMP "pic6", "bmp\start\pic6.bmp"

    f$ = chr$(34) + "music\themeSong1.mp3" + chr$(34)
    r$ = mcisend$("open " + f$ + " type mpegvideo alias main")

[dataINI]
IA1dif = 2 : IA1dif$ = "Désactivé" : teamP1$ = "-" : teamP0$ = "-"
IA2dif = 0 : IA2dif$ = "Désactivé" : teamP2$ = "-" : raceIA1 = 0
IA3dif = 0 : IA3dif$ = "Désactivé" : teamP3$ = "-"
IA4dif = 0 : IA4dif$ = "Désactivé" : teamP4$ = "-"
IA5dif = 0 : IA5dif$ = "Désactivé" : teamP5$ = "-"
IA6dif = 0 : IA6dif$ = "Désactivé" : teamP6$ = "-"
IA7dif = 0 : IA7dif$ = "Désactivé" : teamP7$ = "-"
IA8dif = 0 : IA8dif$ = "Désactivé" : teamP8$ = "-"
IA9dif = 0 : IA9dif$ = "Désactivé" : teamP9$ = "-"
IA10dif = 0 : IA10dif$ = "Désactivé" : teamP10$ = "-"
IA11dif = 0 : IA11dif$ = "Désactivé" : teamP11$ = "-"
RepA1$ = "OUI" : RepA2$ = "OUI" : RepA3$ = "OUI"
RepA4$ = "OUI" : RepA5$ = "OUI" : RepA6$ = "OUI"
RepA7$ = "OUI" : RepA8$ = "OUI" : RepA10$ = "OUI"
RepA11$ = "OUI" : RepA13$ = "OUI" : RepA14$ = "OUI"
RepA16$ = "OUI" : RepA17$ = "OUI" : RepA18$ = "OUI"
RepA19$ = "OUI" : RepA20$ = "OUI" : RepA21$ = "OUI"
RepA22$ = "OUI" : RepA23$ = "OUI"
VitExp = 1 : TauxRess = 1 : VitSav = 5
TBuilding= 1 : TTechno = 1 : TMoove = 1
VitInc = 7 : RepA1 = 1 : RepA2 = 1
RepA3 = 1 : RepA4 = 1 : RepA5 = 1
RepA6 = 1 : RepA7 = 1 : RepA8 = 1
RepA10 = 1 : RepA11 = 1 : RepA13 = 1
RepA14 = 1 : RepA15 = 1 : RepA16 = 1
RepA17 = 1 : RepA18 = 1 : RepA19 = 1
RepA20 = 1 : RepA21 = 1 : RepA22 = 1 : RepA23 = 1
introGAME = 0

    on error goto [logo]
    open "data\pref.txt" for input as #pref
    input #pref, pass$
    input #pref, introGAME
    input #pref, music
    input #pref, bruitage
    input #pref, language
    close #pref
    if introGAME = 1 then goto [logo]
    open "data\pref.txt" for output as #pref
    introGAME = 1 : music = 0 : saturation = 0 : ameStartini = 0
    print #pref, pass$ 
    print #pref, introGAME
    print #pref, music
    print #pref, bruitage
    print #pref, language
    close #pref

 [logo]
 BackgroundColor$ = "black"
 WindowWidth= 1350 : WindowHeight = 850
 UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
 graphicbox #a.bmap, -5, -5, WindowWidth+15, WindowHeight+30
 bmpbutton #a.passer, "bmp\start\skip.bmp", [endLogo], UL, int(WindowWidth/2-65),int(WindowHeight-150)
 Open "" for window_nf as #a
 #a.bmap, "down; fill black"
 #a.bmap, "drawbmp logo ";int(WindowWidth/2-75);" 75"
 #a.bmap, "font Times New Roman 18; color white"
 #a.bmap, "backcolor black ;place ";"540 200 ;\"; "Atomose Studio 2021-2025"
 #a.bmap, "font Times New Roman 14; color white"
 #a.bmap, "backcolor black ;place ";"270 300 ;\"; "Le jeu développé et présenté est inspiré de l'univers de Stargate comprenant les franchises SG1, Atlantis et Universe."
 #a.bmap, "backcolor black ;place ";"360 400 ;\"; "Ce jeu n'est pas un jeu officiel de la franchise Stargate et n'est pas rattaché à la MGM."
 #a.bmap, "backcolor black ;place ";"320 430 ;\"; "Tous les produits, audio et images présents dans ce jeu sont la propriété de leur marque respective."
 #a.bmap, "backcolor black ;place ";"485 460 ;\"; "Ce jeu est gratuit et n'a donc aucun but commercial."
 #a.bmap, "backcolor black ;place ";"505 590 ;\"; "Projet Stargate Masters of Univers 2013-2025"
 #a.passer, "show"
 #a, "trapclose [AnimWindowCloseA]"
 #a.bmap, "flush"
 timer 10000, [endLogo]
 wait

 [endLogo]
 timer 0 : close #a : goto [ini]

 [w]
 wait

 function mcisend$(s$)
        buffer$=space$(256)+chr$(0)
        calldll #winmm,"mciSendStringA",s$ as ptr,buffer$ as ptr,_
            256 as long,0 as long,r as long
        if r>0 then
            mcisend$="error r="+str$(r)+" "+buffer$
        else
            mcisend$=buffer$
        end if
    end function

    [AnimWindowCloseA]
    close #a
    playwave ""
    music = 1
    r$ = mcisend$("pause main")
    pass$ = "1"
    open "data\pref.txt" for output as #pref
    print #pref, pass$ 
    print #pref, introGAME
    print #pref, music
    print #pref, bruitage
    print #pref, language
    close #pref
    end

    [ini]
    timer 0
    [start]
    on error goto [AnimWindowCloseSGC]
    load = 0 : DecouverteCiv2P1 = 0 : sedentarisation = 0 : scierie = 0 : fermage = 0 : mines = 0 : fortifications = 0
    agriculture = 0 : elevage = 0 : lvlChasse = 1 : lvlAgriculture = 1 : lvlElevage = 1 : lvlCueillette = 1 : ChasseFOOD = 60
    CueilletteFOOD = 40 : RECHEARCHpoint = 0 : batimentBUILDpop = 0 : batimentBUILDcs = 0 : batimentBUILDferme = 0
    batimentBUILDscierie= 0 : batimentBUILDcm= 0 : batimentBUILDmines = 0 : batimentBUILDFortifications= 0 : gameStartini = 0
    coutlvlRecyclageBOIS = 150 : coutlvlRecyclageFOOD = 150 : coutlvlCoupeBOIS = 50 : coutlvlCoupeFOOD = 200 : porteEtoileP1 = 0
    coutlvlEntretienBOIS = 40 : coutlvlEntretienFOOD = 100 : lvlRecyclageBOIS = 0 : coutlvlChasseBOIS = 150
    coutlvlChasseFOOD = 50 : coutlvlCeuilletteBOIS = 50 : coutlvlCueilletteFOOD = 50 : coutlvlElevageBOIS = 200
    coutlvlElevageFOOD = 50 : coutlvlAgricultureBOIS = 150 : coutlvlAgricultureFOOD = 150 : RECYbois = 0 : lvlCoupeBOIS = 1
    COUPEbois = 25 : lvlEntretienBOIS = 0 : ENTRbois = 0 : coutlvlEXTRACTIONmetalBOIS = 500 : coutlvlEXTRACTIONmetalFOOD = 1000
    EXTRACTIONmetal = 2 : lvlEXTRACTIONmetal = 1 : RECYCLEmetal = 0 : lvlRecyclageMETAL = 0 : coutlvlRECYCLEBOIS = 900
    coutlvlRECYCLEFOOD = 400 : lvlRAFFmetal = 0 : coutlvlRAFFBOIS = 500 : coutlvlRAFFFOOD = 500 : RAFFmetal = 0 : lancierUPGRADE1 = 0
    lancierUPGRADE2 = 0 : lancierUPGRADE3 = 0 : frondeurUPGRADE1 = 0 : frondeurUPGRADE2 = 0 : frondeurUPGRADE3 = 0
    archerUPGRADE1 = 0 : archerUPGRADE2 = 0 : archerUPGRADE3 = 0 : hommeDarmeUPGRADE1 = 0 : hommeDarmeUPGRADE2 = 0 : hommeDarmeUPGRADE3 = 0
    UPscientifiq1a = 0 : UPscientifiq1b = 0 : UPscientifiq1c = 0 : UPcitoyen1a = 0 : UPcitoyen1b = 0 : UPcitoyen1c = 0
    CentreMilitaire2 = 0 : CentreMilitaire3 = 0 : archerSEARCH = 0 : frondeurSEARCH = 0 : lancierSEARCH = 0 : centreSCI = 0
    territoire1 = 0 : territoire2 = 0 : territoire3 = 0 : territoire4 = 0 : territoire5 = 0 : territoire6 = 0 : territoire7 = 0 : territoire8 = 0 : territoire9 = 0 : territoire10 = 0
    territoire11 = 0 : territoire12 = 0 : territoire13 = 0 : territoire14 = 0 : territoire15 = 0 : territoire16 = 0 : territoire17 = 0 : territoire18 = 0 : territoire19 = 0 : territoire20 = 0
    nombrePLAYER1territoire = 0 : INCOMEterritoireFOOD = 0 : INCOMEterritoireBOIS = 0 : INCOMEterritoireMETAL = 0 : STATUTiam2TOiam1 = 50
    INCOMEterritoireFOODiam1 = 0 : INCOMEterritoireBOISiam1 = 0 : INCOMEterritoireMETALiam1 = 0 : INCOMEterritoireFOODiam2 = 0 : INCOMEterritoireBOISiam2 = 0
    INCOMEterritoireMETALiam2 = 0 : nombrePLAYER2territoire = 0 : nombrePLAYER3territoire = 0 : IA2Alife1 = 0 : RaceIAm2$ = "" : STATUTiam2 = 50 : STATUTiam1 = 50 : DecouverteCiv3P1 = 0
    IA1terre = 0 : IA2terre = 0 : zoomPlanete = 0 : attaqueAIm2 = 0 : attaqueAIm1 = 0
    attaqueAIm2 = 0 : attaqueAIm1 = 0 : espionnageEXPEDITION = 0 : attaqueEXPEDITION = 0
    BackgroundColor$ = "black" : ForegroundColor$ = "white"
    ini = 1 : start = 1 : game$ = "off" : menuIngame = 0 : ageJOUEUR$ = "ÂGE DE SÉDENTARISATION" : ageJOUEURnext$ = "ÂGE DE PIERRE"
    vitesse$ = "Vitesse du jeu : x1"
    WindowWidth= 1350 : WindowHeight = 850 : UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)

    graphicbox #sgc.bmap, -5, -5, WindowWidth+15, WindowHeight+30
    Open " " for window_nf as #sgc
    if music = 1 then r$ = mcisend$("pause main")
    if music = 0 then r$  =mcisend$("set main time format ms") : r$ = mcisend$("status main length") : looplength=val(r$) : r$ = mcisend$("play main from 0 repeat")
    #sgc.bmap,"when leftButtonDown [STARTINGgame]"
    #sgc, "trapclose [AnimWindowCloseSGC]"
    #sgc.bmap, "setfocus;down"
    [refreshINIgame]
    #sgc.bmap, "drawbmp JB 0 0"
    #sgc.bmap, "background JB"
    OPENmaj = 0
    print #sgc.bmap, "font Times New Roman 12;color white"
    print #sgc.bmap, "backcolor black;place 1123 772 ;\"; "Version : ";GameVersion
    print #sgc.bmap, "font Times New Roman 8"
    print #sgc.bmap, "backcolor ";9;" ";9;" ";11;";place 149 305 ;\"; "2013 - 2025"
    print #sgc.bmap, "backcolor black;font Times New Roman 13"
    if language = 0 then
        print #sgc.bmap, "backcolor black ;place 1065 130 ;\"; "COMMENCER L'AVENTURE"
        print #sgc.bmap, "backcolor black ;place 1129 209 ;\"; "CHARGER"
        print #sgc.bmap, "backcolor black ;place 1135 288 ;\"; "OPTIONS"
        print #sgc.bmap, "backcolor black ;place 1150 367 ;\"; "AIDE"
    end if
    if language = 1 then
        print #sgc.bmap, "backcolor black ;place 1105 130 ;\"; "START THE GAME"
        print #sgc.bmap, "backcolor black ;place 1150 209 ;\"; "LOAD"
        print #sgc.bmap, "backcolor black ;place 1135 288 ;\"; "OPTIONS"
        print #sgc.bmap, "backcolor black ;place 1150 367 ;\"; "HELP"
    end if
    #sgc.bmap, "flush"
    wait

    [STARTINGgame]
    mX = MouseX
    mY = MouseY
    'Notice mX; "/";mY
    if Setting = 1 then close #setting : Setting = 0
    if mX>1040 and mX<1300 and mY>100 and mY<150 then goto [SELECTION1]
    if mX>1090 and mX<1250 and mY>175 and mY<230 then goto [dataLOADmode]
    if mX>1090 and mX<1250 and mY>250 and mY<310 then goto [setting]
    if mX>1090 and mX<1250 and mY>330 and mY<390 then goto [aide]
    if mX>1090 and mX<1250 and mY>745 and mY<790 then goto [maj]
    if OPENmaj = 1 then
        if mX<440 or mX>925 or mY<300 or mY>585 then goto [refreshINIgame]
        if mX>590 and mX<770 and mY>490 and mY<540 then goto [b2]
        wait
    end if
    goto [refreshINIgame]


    [AnimWindowCloseSGC]
    playwave ""
    gosub [securAIDE]
    r$ = mcisend$("pause main")
    if Setting = 1 then close #setting
    if menuIngame = 1 then close #menuIngame
    if fen1 = 1 then close #fen1
    if saveMain=1 then close #saveMain
    if rapportWindows = 1 then close #rapport
    if batmurs = 1 then close #murs : batmurs = 0
    if batmines = 1 then close #mines : batmines = 0
    if batscierie = 1 then close #scierie : batscierie = 0
    if ferme = 1 then close #fermage : ferme = 0
    if house = 1 then close #house : house = 0
    if Sm = 1 then close #Sm : Sm = 0
    if openRechearch = 1 then close #recheach : openRechearch = 0
    if Sc = 1 then close #Sc : Sc = 0
    if bp = 1 then close #bp : bp = 0
    close #sgc
    pass$ = "1"
    open "data\pref.txt" for output as #pref
    print #pref, pass$ 
    print #pref, introGAME
    print #pref, music
    print #pref, bruitage
    print #pref, language
    close #pref
    end

'----------------------------------------------------------------------------------------


[setting]
if bruitage = 0 then playwave "music\buton.wav", async
if Setting = 1 then close #setting
Setting = 1
BackgroundColor$ = "white" : ForegroundColor$ = "black"
WindowWidth = 250 : WindowHeight = 110
UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)

checkbox #setting.cb1, "Fr", [version], [version], 130, 10, 40, 20
checkbox #setting.cb2, "Eng", [version], [version], 190, 10, 40, 20
checkbox #setting.cb3, "On", [iniMUSIC], [iniMUSIC2], 130, 30, 40, 20
checkbox #setting.cb4, "Off", [iniMUSIC2], [iniMUSIC], 190, 30, 40, 20
checkbox #setting.cb5, "On", [bruitageGame], [bruitageGame], 130, 50, 40, 20
checkbox #setting.cb6, "Off", [bruitageGame], [bruitageGame], 190, 50, 40, 20

if language = 0 then
   statictext #setting, "Langue", 10, 10, 60, 20
   statictext #setting, "Musique de fond", 10, 30, 100, 20
   statictext #setting, "Bruitage jeu", 10, 50, 100, 20
end if
if language = 1 then
   statictext #setting, "Language", 10, 10, 60, 20
   statictext #setting, "Music", 10, 30, 60, 20
   statictext #setting, "Game Song", 10, 50, 100, 20
end if
Open "" for window_nf As #setting
if language = 0 then print #setting.cb1, "set" : print #setting.cb2, "reset"
if language = 1 then print #setting.cb2, "set" : print #setting.cb1, "reset"
if music = 0 then print #setting.cb3, "set" : print #setting.cb4, "reset"
if music = 1 then print #setting.cb4, "set" : print #setting.cb3, "reset"
if bruitage = 0 then print #setting.cb5, "set" : print #setting.cb6, "reset"
if bruitage = 1 then print #setting.cb6, "set" : print #setting.cb5, "reset"

#setting, "trapclose [quitSetting]"
#setting, "font Times New Roman 10 bold; color black"
wait

[quitSetting]
Setting = 0
close #setting
wait

    [maj]
    on error goto [error]
    htmlText$ = httpget$("https://www.petit-fichier.fr/2023/02/01/majsg/")
    if htmlText$ <> "" then run "curl -O https://www.petit-fichier.fr/2023/02/01/majsg/majsg.txt"
    if htmlText$ = "" and language =0 then notice " " + chr$(13) +  "Serveur indisponible" : wait
    if htmlText$ = "" and language =1 then notice " " + chr$(13) +  "Server unavailable" : wait
    htmlText$ =""
    call Sleep 1000 : goto [maj2]
    [maj2]
    open "majsg.txt" for input as #secu
    input #secu, GameVersionNEW
    input #secu, LinkDownloadNewVersion$
    close #secu
    call Sleep 500 : goto [maj3]
    [maj3]
    q$=chr$(34)
    versionTXT1$ = "    Vous avez la version ";GameVersion;"."
    versionTXT2$ = "    La dernière version en ligne est la ";GameVersionNEW
    versionTXT3$ = "    You have version ";GameVersion;"."
    versionTXT4$ = "    The last available version is ";GameVersionNEW
    if language = 0 then confirm " " + chr$(13) +  versionTXT1$ + chr$(13) +  versionTXT2$+ chr$(13) + chr$(13) +"    Voulez-vous télécharger la version en ligne ?";confirm$
    if language = 1 then confirm " " + chr$(13) +  versionTXT3$ + chr$(13) +  versionTXT4$+ chr$(13) + chr$(13) +"    Do you want to download the online version?";confirm$
    if confirm$ = "no" then goto [error]
    run "curl -O ";q$;LinkDownloadNewVersion$;q$
    call Sleep 200
    kill "majsg.txt"
    if language = 0 then confirm " " + chr$(13) +  "Téléchargement terminé." + chr$(13) + "La nouvelle version est disponible dans le dossier du jeu." + chr$(13) + chr$(13) + "Voulez-vous fermer la version actuelle ?";confirm$
    if language = 1 then confirm " " + chr$(13) +  "Download complete." + chr$(13) + "The new version is available in the game folder." + chr$(13) + chr$(13) + "Do you want to close the current version ?";confirm$
    if confirm$ = "no" then goto [error]
    goto [AnimWindowCloseSGC]
    [error]
    dir$ = "" : file$ = "majsg.txt"
    if fileExist(dir$,file$) = 1 then kill "majsg.txt"
    wait

    Sub Sleep ms
        CallDLL #kernel32, "Sleep",_
        ms as long,_
        ret as void
    End Sub

    [version]
    if language = 0 THEN language = 1 : goto [preferencesGame]
    if language = 1 THEN language = 0 : goto [preferencesGame]
    [bruitageGame]
    if bruitage = 0 THEN bruitage = 1 : print #setting.cb6, "set" : print #setting.cb5, "reset" : wait
    if bruitage = 1 THEN bruitage = 0 : print #setting.cb5, "set" : print #setting.cb6, "reset" : wait
    [astucesGame]
   ' print #option.astuces, "selectionindex? xVar"
   ' if xVar=1 then astuces = 0
   ' if xVar=2 then astuces = 1
    goto [preferencesGame]

    [preferencesGame]
    if preferences = 0 then
        open "data\pref.txt" for output as #pref
        print #pref, pass$ 
        print #pref, introGAME
        print #pref, music
        print #pref, bruitage
        print #pref, language
        close #pref
    end if
    if preferences = 1 then kill "data\pref.txt" : music = 0
    if language = 0 then print #setting.cb1, "set" : print #setting.cb2, "reset"
    if language = 1 then print #setting.cb2, "set" : print #setting.cb1, "reset"
    if gameStartini = 0 then close #sgc : goto [start]
    wait

    [SimpleClickOPTION]
    mX = MouseX
    mY = MouseY
    if mX>int(55*lc) and mX<int(55*lc+200) and mY>int(3*lc) and mY<int((3*lc)+150) then
        if bruitage = 0 then playwave "music\buton.wav", async
        goto [AnimWindowCloseOPTION]
    end if
    wait

    [AnimWindowCloseOPTION]
    close #option
    option = 0 : menuIngame = 2
    if gameStartini = 0 then goto [ini]
    if gameStartini = 1 then goto [GAMEstartINI]
    wait


    [AnimWindowCloseAIDE]
    if bruitage = 0 then playwave "music\buton.wav", async
    close #aide
    menuIngame = 2
    if gameStartini = 0 then goto [ini]
    if gameStartini = 1 then goto [GAMEstartINI]

    [aide]
    timer 0
    if bruitage = 0 then playwave "music\buton.wav", async
    if start = 1 then close #sgc : start = 0
    WindowWidth= 1350 : WindowHeight = 850
    UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
    graphicbox #aide.bmap, -5, -5, WindowWidth+15, WindowHeight+30
    if language = 0 then bmpbutton #aide.bmap, "bmp\game\selection\retour.bmp", [AnimWindowCloseAIDE], UL, 60, 740
    if language = 1 then bmpbutton #aide.bmap, "bmp\game\selection\back.bmp", [AnimWindowCloseAIDE], UL, 60, 740
    Open " " for window_nf as #aide
    #aide.bmap, "backcolor black; setfocus;down"
    #aide, "trapclose [AnimWindowCloseAIDE]"
    print #aide.bmap, "font Times New Roman 9; color white"

    if language = 0 then
        print #aide.bmap, "backcolor black;font Times New Roman 11; color green"
        print #aide.bmap, "place 60 60 ;\"; "Stargate : Master Of Universe"
        print #aide.bmap, "place 60 210 ;\"; "Comment jouer ?"
        print #aide.bmap, "place 60 325 ;\"; "Les IA :"
        print #aide.bmap, "place 60 430 ;\"; "Les unitées :"
        print #aide.bmap, "place 60 520 ;\"; "Les recherches :"
        print #aide.bmap, "place 60 610 ;\"; "Les bâtiments :"
        print #aide.bmap, "backcolor black;font Times New Roman 11; color white"
        print #aide.bmap, "place 60 60 ;\"; "\\Ce projet est un concept de jeu non officiel des franchises Stargate et n'est en aucun cas rattaché à la MGM. Il a pour but de donner à la communauté un jeu dans le thème des franchises Stargate. \Tous les produits, audio et images présents dans ce jeu sont la propriété de leur marque respective. Ce jeu est gratuit et n'a donc aucun but commercial."
        print #aide.bmap, "place 60 140 ;\"; "Ce jeu à été créé avec LibertyBasic 4.51 Pro Par Atomose Studio (contact : unlimited.freeware.corporation@gmail.com)\Musique : Sin of solar"
        print #aide.bmap, "place 60 200 ;\"; "\\- Selectionnez votre race\- Votre ville est indiqué sur la carte, cliquez dessus pour y accéder.\- Les recherches sont indispensables pour débloquer de nouveaux batiments !\- L'exploration vous permettra de récupérer des ressources facilement. Elle peut aussi vous permettre de trouver les autres civilisations sur la carte."
        print #aide.bmap, "place 60 315 ;\"; "\\Il existe plusieurs types d'IA, les mineures et les principales. Il peut y avoir (ou non) des IA mineures sur votre planètes initiale mais les IA principales sont disséminées à travers l'univers sur des planètes distinctes. \La principale différence entre ces deux type d'IA est la compléxité de raisonnement, d'apprentissage et de gestion de sa civilisation. Là ou les IA mineures vont se focalisé sur les ressources et la conquête de \territoire, les IA principales développerons des technologie, des alliances et aurons une vision plus large de leur plans futurs."
        print #aide.bmap, "place 60 420 ;\"; "\\Chaque race a ses unités distinct. 3 caractéristiques sont a retenir : La force offensive, la capacité défensive et la santé. Les unitées a distance auront un bonus de dégâts, les unitées au corps a corps recevrons \les dégâts en premier. Il est donc important de bien diversifier ses armée car une armée a distance aura une force offensive importante mais sera très vite débordé si l'ennemi a des unités résistante."
        print #aide.bmap, "place 60 510 ;\"; "\\Indispensable pour un développement rapide, les recherches vous permettent de débloquer de nouvelles capacitées, de nouvelles unitées et batiments. Pour valider une recherche vous devez avoir les ressources \nécéssaire ainsi que les points de recherche que vous pourrez avoir mensuellement grâce aux chercheurs. 1 chercheur génère 1 point par mois."
        print #aide.bmap, "place 60 600 ;\"; "\\A travers les bâtiments vous pouvez développer votre ville. Il y a deux moyens : le premier est en construisant et augmentant le niveau des batiments grâce aux bouton présent sur la vue de la ville en haut. \Ces boutons construisent et développent les batiments mais ne permettent pas d'accéder a ce que le bâtiment produit. Pour cela, il suffit de cliquer sur l'image du batiment sur votre ville. Une fois dedans, vous \pourrez accéder a ce que celui-ci offre (unités, recherches, bonus). Il est important de noter que pour valider un âge, vous devez avoir les niveaux des batiments nécéssaires. Vous pouvez voir la liste dans le \bâtiment principal."
    end if

    if language = 1 then
        print #aide.bmap, "backcolor black;font Times New Roman 11; color green"
        print #aide.bmap, "place 60 60 ;\"; "Stargate : Master Of Universe"
        print #aide.bmap, "place 60 210 ;\"; "How to play ?"
        print #aide.bmap, "place 60 325 ;\"; "AI :"
        print #aide.bmap, "place 60 430 ;\"; "Units :"
        print #aide.bmap, "place 60 520 ;\"; "Rechearchs :"
        print #aide.bmap, "place 60 610 ;\"; "Buildings :"
        print #aide.bmap, "backcolor black;font Times New Roman 11; color white"
        print #aide.bmap, "place 60 60 ;\"; "\\This project is an unofficial game concept from the Stargate franchises and is in no way connected to MGM. It aims to give the community a game in the theme of the Stargate franchises. \All products, audio and images present in this game are the property of their respective brands. This game is free and therefore has no commercial purposes."
        print #aide.bmap, "place 60 140 ;\"; "This game was created with LibertyBasic 4.51 Pro By Atomose Studio (contact: unlimited.freeware.corporation@gmail.com)\Music: Sin of solar"
        print #aide.bmap, "place 60 200 ;\"; "\\- Select your race\- Your city is indicated on the map, click on it to access it.\- Research is essential to unlock new buildings!\- Exploration will allow you to recover resources easily. It can also allow you to find other civilizations on the map."
        print #aide.bmap, "place 60 315 ;\"; "\\There are several types of AI, minor and major. There may (or may not) be minor AIs on your initial planets, but the major AIs are scattered across the universe on separate planets. \The main difference between these two types of AI is the complexity of reasoning, learning and managing its civilization. Where the minor AIs will focus on resources and the conquest of territory, the \main AIs will develop technologies, alliances and have a broader vision of their future plans."
        print #aide.bmap, "place 60 420 ;\"; "\\Each race has its distinct units. 3 characteristics should be remembered: Offensive strength, defensive capacity and health. Ranged units will have a damage bonus, melee units will receive damage first. It is \therefore important to diversify your army well because a ranged army will have a significant offensive force but will very quickly be overwhelmed if the enemy has resistant units."
        print #aide.bmap, "place 60 510 ;\"; "\\Essential for rapid development, research allows you to unlock new abilities, new units and buildings. To validate a research you must have the necessary resources as well as the research points that you can \have monthly thanks to the researchers. 1 researcher generates 1 point per month."
        print #aide.bmap, "place 60 600 ;\"; "\\Through buildings you can develop your city. There are two ways: the first is by constructing and increasing the level of buildings using the buttons on the city view at the top. \These buttons construct and develop buildings but do not provide access to \what the building produces. To do this, simply click on the image of the building in your city. Once inside, you will be able to access what it offers (units, research, bonuses). It is important to note that \to validate an age, you must have the necessary building levels. You can see the list in the main building."
    end if

    #aide.bmap, "flush"
    wait

    [SimpleClickHELPmenu]
    mX = MouseX
    mY = MouseY
    if mX>250 and mX<370 and mY>720 and mY<750 then close #aide : goto [start]
    wait



   [SELECTION1]
    choixPART = 1
    if bruitage = 0 then playwave "music\buton.wav", async
    close #sgc
    if saveMain > 0 then close #saveMain
    saveMain = 0
    WindowWidth= 1350 : WindowHeight = 850
    UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
    BackgroundColor$ = "black" : ForegroundColor$ = "white"
    stylebits #sgc.map, 0, _WS_BORDER, 0, 0
    graphicbox #sgc.map, -5, -5, WindowWidth+5, WindowHeight+5
    Open " " for window_nf as #sgc
    #sgc.map, "down;fill black"
    #sgc, "trapclose [AnimWindowCloseSGC]"
    print #sgc.map, "drawbmp menu 200 720"
    print #sgc.map, "drawbmp im1 200 180"
    print #sgc.map, "drawbmp im2 750 180"
    print #sgc.map, "drawbmp f1 60 60"
    print #sgc.map, "drawbmp f2 1120 60"

    if language = 0 then
        print #sgc.map, "backcolor black;font Times New Roman 20 underscore; color white"
        print #sgc.map, "place 330 200 ;\";"CAMPAGNE"
        print #sgc.map, "place 880 200 ;\";"CONQUÊTE"
        print #sgc.map, "font Times New Roman 12; color red"
        print #sgc.map, "place 320 505 ;\";"(NON DISPONIBLE)"
        print #sgc.map, "font Times New Roman 12; color green"
        print #sgc.map, "place 875 505 ;\";"(DISPONIBLE)"
        print #sgc.map, "font Times New Roman 12; color white"
        print #sgc.map, "place 200 505 ;\";"FPS / Exploration"
      '  print #sgc.map, "place 275 735 ;\";"RETOUR"
        print #sgc.map, "place 750 505 ;\";"Stratégie / Gestion"
        print #sgc.map, "font Times New Roman 10"
        print #sgc.map, "place 200 530 ;\";"Vous commencez au SGC, lors de la première mission de SG-1.\Dans cette campagne vous ferez partie de cette équipe et revivrez chaque\voyages à travers vos yeux. Tous vos choix définirons le déroulement des\évènements. Vous pourrez ainsi suivre le déroulement de l'histoire originelle,\ou créer votre propre série ..."
        print #sgc.map, "place 750 530 ;\";"Choisissez parmis l'une des races connues et dominantes de la galaxie.\Construisez votre civilisation de l'age de la pierre jusqu'à l'ascension.\Développez votre empire et votre économie. Fonder des alliances fortes ou trahissez\vos alliés pour dominer l'univers !\Jusqu'à 12 joueurs peuvent s'affronter avec un nombre illimité d'IA mineures\pour pimenter les parties !"
    end if

    if language = 1 then
        print #sgc.map, "backcolor black ;font Times New Roman 20 underscore; color white"
        print #sgc.map, "place 330 200 ;\";"CAMPAGNE"
        print #sgc.map, "place 880 200 ;\";"CONQUEST"
        print #sgc.map, "font Times New Roman 12; color red"
        print #sgc.map, "place 320 505 ;\";"(NOT AVAILABLE)"
        print #sgc.map, "font Times New Roman 12; color green"
        print #sgc.map, "place 875 505 ;\";"(AVAILABLE)"
        print #sgc.map, "place 750 505 ;\";"Strategy / Gestion"
        print #sgc.map, "font Times New Roman 12; color white"
        print #sgc.map, "place 200 505 ;\";"FPS / Exploration"
     '   print #sgc.map, "place 275 735 ;\";"BACK"
        print #sgc.map, "place 750 505 ;\";"Strategy / Gestion"
        print #sgc.map, "font Times New Roman 10"
        print #sgc.map, "place 200 530 ;\";"You start at the SGC during the first mission of SG-1.\In this campaign you will be part of this team and relive each\trip through your eyes. All your choices will define the course of events.\You can follow the course of the original story, or create your own series ..."
        print #sgc.map, "place 750 530 ;\";"Choose from one of the dominant races in the galaxy.\Build your civilization from the Stone Age to the ascent.\Develop your empire and your economy. Found strong alliances or betray\Your allies to dominate the universe !\Up to 12 players can compete with an unlimited number of minor AIs\to spice up the games!"
    end if
    #sgc.map, "when leftButtonDown [SimpleClickSTARTING]"
    #sgc.map , "flush"
    wait

   [SimpleClickSTARTING]
    mX = MouseX
    mY = MouseY
 '   notice mX;" / ";mY
    if mX>250 and mX<370 and mY>720 and mY<750 then close #sgc : goto [start]
    if mX>750 and mX<1150 and mY>215 and mY<450 then goto [gamestart]
    wait



    [SELECTION1b]
    choixPART= 0
    if bruitage = 0 then playwave "music\buton.wav", async
    close #sgc

    WindowWidth= 1350 : WindowHeight = 750
    UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
    BackgroundColor$ = "black" : ForegroundColor$ = "white"
    stylebits #sgc.map, 0, _WS_BORDER, 0, 0
    graphicbox #sgc.map, -5, -5, WindowWidth+5, WindowHeight+5

    if language = 0 then
        bmpbutton #sgc.b1, "bmp\game\choix\jouer.bmp", [w], UL, 250, 380
        bmpbutton #sgc.b2, "bmp\game\choix\jouer.bmp", [w], UL, 630, 380
        bmpbutton #sgc.b3, "bmp\game\choix\jouer.bmp", [w], UL, 990, 380
        bmpbutton #sgc, "bmp\game\selection\retour.bmp", [SELECTION1], UL, 40, WindowHeight-100
        Open " " for window_nf as #sgc
        #sgc.map , "backcolor black"
        #sgc.map , "down"
        #sgc, "trapclose [AnimWindowCloseSGC]"
        print #sgc.map, "drawbmp sg1 525 135"
        print #sgc.map, "drawbmp sga 150 135"
        print #sgc.map, "drawbmp sgu 890 135"
        print #sgc.map, "font Times New Roman 14; color white"
        print #sgc.map, "backcolor black ; place 150 500 ;\";"Cette partie est non disponible pour le moment. Merci de bien vouloir patienter pour les nouvelles versions et leurs nouvelles fonctionnalités."
    end if
    if language = 1 then
        bmpbutton #sgc.b1, "bmp\game\choix\play.bmp", [w], UL, 250, 380
        bmpbutton #sgc.b2, "bmp\game\choix\play.bmp", [w], UL, 630, 380
        bmpbutton #sgc.b3, "bmp\game\choix\play.bmp", [w], UL, 990, 380
        bmpbutton #sgc, "bmp\game\selection\back.bmp", [SELECTION1], UL, 40, WindowHeight-100
        Open " " for window_nf as #sgc
        #sgc.map , "backcolor black"
        #sgc.map , "down"
        #sgc, "trapclose [AnimWindowCloseSGC]"
        print #sgc.map, "drawbmp sg1 525 135"
        print #sgc.map, "drawbmp sga 150 135"
        print #sgc.map, "drawbmp sgu 890 135"
        print #sgc.map, "font Times New Roman 14; color white"
        print #sgc.map, "backcolor black ; place 400 500 ;\";"This part isnt available for now. Thx to wait news version and news adds."
    end if
    #sgc.map , "flush"
    wait


[gamestart]
if bruitage = 0 then playwave "music\buton.wav", async
[gamestartBACK]
close #sgc

BackgroundColor$ = "black" : ForegroundColor$ = "white"
ini = 0 : start = 0 : raceSelect = 1 : choixCiv = 1 : choixPART= 0
WindowWidth= 1350 : WindowHeight = 850 : UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
graphicbox #sgc.map, -5, -5, WindowWidth+5, WindowHeight+5

LOADBMP "SELECTION","bmp\game\selection\SELECTION.bmp"

bmpbutton #sgc.humainOn, "bmp\game\selection\races\humainSelect.bmp", [humainSelect], UL, 280,200
bmpbutton #sgc.humainOff, "bmp\game\selection\races\humain.bmp", [humainSelect], UL, 280,200
bmpbutton #sgc.goaOn, "bmp\game\selection\races\goa'uldsSelect.bmp", [goaSelect], UL, 420,200
bmpbutton #sgc.goaOff, "bmp\game\selection\races\goa'ulds.bmp", [goaSelect], UL, 420,200
bmpbutton #sgc.asgardOn, "bmp\game\selection\races\asgardsSelect.bmp", [asgSelect], UL, 560,200
bmpbutton #sgc.asgardOff, "bmp\game\selection\races\asgards.bmp", [asgSelect], UL, 560,200
bmpbutton #sgc.repliOn, "bmp\game\selection\races\réplicateursSelect.bmp", [replSelect], UL, 700,200
bmpbutton #sgc.repliOff, "bmp\game\selection\races\réplicateurs.bmp", [replSelect], UL, 700,200
bmpbutton #sgc.wraithsOn, "bmp\game\selection\races\wraithsSelect.bmp", [wraithSelect], UL, 840,200
bmpbutton #sgc.wraithsOff, "bmp\game\selection\races\wraiths.bmp", [wraithSelect], UL, 840,200
bmpbutton #sgc.alteranOn, "bmp\game\selection\races\AlteransSelect.bmp", [alteranSelect], UL, 980,200
bmpbutton #sgc.alteranOff, "bmp\game\selection\races\Alterans.bmp", [alteranSelect], UL, 980,200

if language = 0 then
    bmpbutton #sgc.b1, "bmp\game\choix\menu2.bmp", [quitSelect], UL, 200, 720
    bmpbutton #sgc.b2, "bmp\game\choix\menu3.bmp", [GAMEstart], UL, 800, 670  '[gamestartIA]
end if
if language = 1 then
    bmpbutton #sgc.b1, "bmp\game\choix\menu2b.bmp", [quitSelect], UL, 200, 720
    bmpbutton #sgc.b2, "bmp\game\choix\menu3b.bmp", [GAMEstart], UL, 800, 670
end if

Open " " for window_nf as #sgc
#sgc.map , "backcolor black;color white;font Times New Roman 14"
#sgc.map , "down;fill black"
#sgc, "trapclose [AnimWindowCloseSGC]"
print #sgc.map, "drawbmp f1 60 60"
print #sgc.map, "drawbmp f2 1120 60"
print #sgc.map, "drawbmp Select 500 60"
print #sgc.humainOff, "hide"
print #sgc.b1, "disable"
print #sgc.b1, "enable"
print #sgc.b2, "disable"
print #sgc.b2, "enable"
if language = 0 then print #sgc.map, "place 560 130 ;\";"SELECTIONNEZ VOTRE RACE"
if language = 1 then print #sgc.map, "place 600 130 ;\";"SELECT YOUR RACE"
goto [humainSelect]

[quitSelect]
if choixPART = 1 then
    if bruitage = 0 then playwave "music\buton.wav", async
    close #sgc
    choixPART = 0
    goto [ini]
end if
if choixCiv = 1 then
    if bruitage = 0 then playwave "music\buton.wav", async
    choixCiv = 0
    goto [SELECTION1]
end if
if choixCivIA = 1 then
    if bruitage = 0 then playwave "music\buton.wav", async
    choixCivIA = 0
    goto [gamestartBACK]
end if

[securAIDE]
if siteAide = 1 then close #site : siteAide = 0 : wait
if about = 1 then close #about : about = 0 : wait
if wikiAide = 1 then close #wiki : wikiAide = 0 : wait
if butAide = 1 then close #but : butAide = 0 : wait
if victoireAide = 1 then close #victoire : victoireAide = 0 : wait
if limiteAide = 1 then close #limite : limiteAide = 0 : wait
if modesAide = 1 then close #modes : modesAide = 0 : wait
if creditAide = 1 then close #credit : creditAide = 0 : wait
return

[quit]
gosub [securAIDE] : wait
[quitlogo]
playwave ""
timer 0
close #logo
end

  [hideshow]
  for x=1 to 6
      hand$="#sgc."+word$(listex$,x)
      #hand$, "show"
  next x
  for x=7 to 12
      hand$="#sgc."+word$(listex$,x)
      #hand$, "hide"
  next x
  return

    [humainSelect]
    print #sgc.map, "font Times New Roman 12;color white"
    print #sgc.map, "drawbmp SELECTION 200 300"
    print #sgc.map, "drawbmp pic4 887 360"

    if language = 0 then
        #sgc.map, "backcolor black ; place 265 380 ;\";"Appelé Tau'ri par les habitants de la voie lactée, les Humains de la terre ont réussi \à acquérir de nouvelles technologiques leurs permettant de s'étendre et d'acquérir \des moyens de défenses efficaces face aux diverses menaces. Leur capacité \unique ''Recherche spontané'' leur permet de faire des bonds technologique. \\L'exploration est leur domaine de prédilection avec un bonus relationnelle important \par rapport aux autres civilisations. \\C'est une race simple et équilibré idéale pour commencer l'aventure."
        #sgc.map, "color green; backcolor black ; place 265 350 ;\";"Population initiale : "
        #sgc.map, "color white; backcolor black ; place 390 350 ;\";"60"
        #sgc.map, "color green; backcolor black ; place 936 560 ;\";"Capacité unique :"
        #sgc.map, "color white; backcolor black ; place 920 580 ;\";"Recherches Spontanées"
    end if
    if language = 1 then
        #sgc.map, "backcolor black ; place 265 380 ;\";"Called Tau'ri by the inhabitants of the Milky Way, the Humans of Earth have managed \to acquire new technologies allowing them to expand and acquire effective means of \defense against various threats. Their unique ability ''Spontaneous Research'' \allows them to make technological leaps. \\Exploration is their preferred field with a significant relational bonus compared to \other civilizations. \\It is a simple and balanced race ideal for starting the adventure."
        #sgc.map, "color green; backcolor black ; place 265 350 ;\";"Initiale population : "
        #sgc.map, "color white; backcolor black ; place 390 350 ;\";"60"
        #sgc.map, "color green; backcolor black ; place 942 560 ;\";"Unique ability :"
        #sgc.map, "color white; backcolor black ; place 920 580 ;\";"Spontaneous research"
    end if
    if bruitage = 0 then playwave "music\buton.wav", async
    raceSelect = 1
    listex$="humainOn goaOff asgardOff repliOff wraithsOff alteranOff humainOff goaOn asgardOn repliOn wraithsOn alteranOn"
    gosub [hideshow]
    print #sgc.map, "flush"
    wait

    [goaSelect]
    print #sgc.map, "font Times New Roman 12;color white"
    print #sgc.map, "drawbmp SELECTION 200 300"
    print #sgc.map, "drawbmp pic5 887 360"

    if language = 0 then
        #sgc.map, "color green; backcolor black ; place 265 350 ;\";"Population initiale : "
        #sgc.map, "color white; backcolor black ; place 390 350 ;\";"38"
        #sgc.map, "backcolor black ; place 265 380 ;\";"Les Goa'uld sont une race de parasites qui prennent le contrôle d'hôtes, principalement \les humanoides. Avec un égocentrisme démesuré, ils se considèrent comme des dieux \par rapports aux autres. Leur capacité unique leur permet de contrôler des unités \adverse et d'en acquérir leurs technologie. \\Ils préfèrent la guerre aux alliances durables ce qui leur donne un malus important \en relation avec les autres races. \\Cette race est conseillée pour des joueurs avertis."
        #sgc.map, "color green; backcolor black ; place 936 560 ;\";"Capacité unique :"
        #sgc.map, "color white; backcolor black ; place 955 580 ;\";"Parasitisme"
    end if
    if language = 1 then
        #sgc.map, "color green; backcolor black ; place 265 350 ;\";"Initiale population : "
        #sgc.map, "color white; backcolor black ; place 390 350 ;\";"38"
        #sgc.map, "backcolor black ; place 265 380 ;\";"The Goa'uld are a race of parasites that take control of hosts, mainly humanoids. \With an excessive egocentrism, they consider themselves gods compared to others. \Their unique ability allows them to control opposing units and acquire their \technology. \\They prefer war to lasting alliances, which gives them a significant penalty \in relation to other races. \\This race is recommended for experienced players."
        #sgc.map, "color green; backcolor black ; place 940 560 ;\";"Unique ability :"
        #sgc.map, "color white; backcolor black ; place 953 580 ;\";"Parasitism"
    end if
    if bruitage = 0 then playwave "music\buton.wav", async
    raceSelect = 2
    listex$="goaOn humainOff asgardOff repliOff wraithsOff alteranOff goaOff humainOn asgardOn repliOn wraithsOn alteranOn"
    gosub [hideshow]
    print #sgc.map, "flush"
    wait

    [asgSelect]
    print #sgc.map, "font Times New Roman 12;color white"
    print #sgc.map, "drawbmp SELECTION 200 300"
    print #sgc.map, "drawbmp pic3 887 360"

    if language = 0 then
        #sgc.map, "color green; backcolor black ; place 265 350 ;\";"Population initiale : "
        #sgc.map, "color white; backcolor black ; place 390 350 ;\";"20"
        #sgc.map, "backcolor black ; place 265 380 ;\";"Les asgards sont une race qui se focalise sur les recherches. Suite a une série de \manipulation génétique afin d'améliorer leurs corps, ils ont perdus la faculté de se \reproduire de façon sexué et sont donc obligé de créer des clones. Véritable \gendarmes de la voie lactée, ils disposent d'un important arsenal militiaire comblant \le déficie de leur infantrie. \\Cette race possède un bon rapport relationnel avec les autres. Elle reste néanmoins \assez difficile à prendre en main."
        #sgc.map, "color green; backcolor black ; place 940 560 ;\";"Capacité unique :"
        #sgc.map, "color white; backcolor black ; place 925 580 ;\";"Recherches Accélérées"
    end if
    if language = 1 then
        #sgc.map, "color green; backcolor black ; place 265 350 ;\";"Initiale population : "
        #sgc.map, "color white; backcolor black ; place 390 350 ;\";"20"
        #sgc.map, "backcolor black ; place 265 380 ;\";"The Asgards are a race that focuses on research. Following a series of genetic \manipulations to improve their bodies, they have lost the ability to reproduce sexually \and are therefore forced to create clones. True policemen of the Milky Way, they \have a large military arsenal that makes up for the deficiency of their infantry.\\This race has a good relationship with others. However, it remains quite difficult to \take control of."
        #sgc.map, "color green; backcolor black ; place 940 560 ;\";"Unique ability :"
        #sgc.map, "color white; backcolor black ; place 925 580 ;\";"Accelerated Searches"
    end if
    if bruitage = 0 then playwave "music\buton.wav", async
    raceSelect = 3
    listex$="asgardOn goaOff humainOff repliOff wraithsOff alteranOff asgardOff goaOn humainOn repliOn wraithsOn alteranOn"
    gosub [hideshow]
    print #sgc.map, "flush"
    wait

    [replSelect]
    print #sgc.map, "font Times New Roman 12;color white"
    print #sgc.map, "drawbmp SELECTION 200 300"
    print #sgc.map, "drawbmp pic2 887 360"

    if language = 0 then
        #sgc.map, "color green; backcolor black ; place 265 350 ;\";"Population initiale : "
        #sgc.map, "color white; backcolor black ; place 390 350 ;\";"1"
        #sgc.map, "backcolor black ; place 265 380 ;\";"Les réplicateurs sont une forme avancée de robot, capable de se reproduire et \d'évoluer par leurs propres moyens tant que les ressources le leur permettent. \Cette race à l'avantage que chaque unité peut créer un nouvel  empire tout en \restant connecté avec ses semblables. \\C'est une race conseillée pour découvrir le jeu."
        #sgc.map, "color green; backcolor black ; place 940 560 ;\";"Capacité unique :"
        #sgc.map, "color white; backcolor black ; place 960 580 ;\";"Adaptation"
    end if
    if language = 1 then
        #sgc.map, "color green; backcolor black ; place 265 350 ;\";"Initiale population : "
        #sgc.map, "color white; backcolor black ; place 390 350 ;\";"1"
        #sgc.map, "backcolor black ; place 265 380 ;\";"Replicators are an advanced form of robot, capable of reproducing and evolving \on their own as long as resources allow them to. This race has the advantage \that each unit can create a new empire while remaining connected to its peers. \\This is a recommended race to discover the game."
        #sgc.map, "color green; backcolor black ; place 945 560 ;\";"Unique ability :"
        #sgc.map, "color white; backcolor black ; place 955 580 ;\";"Adaptation"
    end if
    if bruitage = 0 then playwave "music\buton.wav", async
    raceSelect = 4
    listex$="repliOn asgardOff goaOff humainOff wraithsOff alteranOff repliOff asgardOn goaOn humainOn wraithsOn alteranOn"
    gosub [hideshow]
    print #sgc.map, "flush"
    wait

    [wraithSelect]
    print #sgc.map, "font Times New Roman 12;color white"
    print #sgc.map, "drawbmp SELECTION 200 300"
    print #sgc.map, "drawbmp pic1 887 360"

    if language = 0 then
        #sgc.map, "color green; backcolor black ; place 265 350 ;\";"Population initiale : "
        #sgc.map, "color white; backcolor black ; place 390 350 ;\";"30"
        #sgc.map, "backcolor black ; place 265 380 ;\";"Les Wraiths sont une race se nourrissant de la force vitale d'autres espèces \humanoïdes dont principalement les humains.Cette race possède d'immenses \vaisseaux de combats ruche formant d'impressiannantes flottes de chasseurs. \Elle a besoin de la force vitale d'une proie pour se multiplier et survivre. Il faut donc \bien faire attention à ne pas éliminer toutes les \cibles potentielles autour de vous si vous ne voulez pas mourir de faim. Si la \nourriture vient à manquer, vos unités peuvent se mettre en état de ''dormance'', \ne consommant plus d'énergie vitale.\\C'est une race extrêmement difficile à jouer."
        #sgc.map, "color green; backcolor black ; place 940 560 ;\";"Capacité unique :"
        #sgc.map, "color white; backcolor black ; place 960 580 ;\";"Dormance"
    end if
    if language = 1 then
        #sgc.map, "color green; backcolor black ; place 265 350 ;\";"Initiale population : "
        #sgc.map, "color white; backcolor black ; place 390 350 ;\";"30"
        #sgc.map, "backcolor black ; place 265 380 ;\";"The Wraiths are a race that feeds on the life force of other humanoid species, \mainly humans. This race has huge hive combat ships that form impressive \fleets of hunters. It needs the life force of a prey to multiply and survive. \You must therefore be careful not to eliminate all the potential targets around you if \you do not want to die of hunger. If food runs out, your units can go into a state \of ''dormancy'', no longer consuming life energy. \\This is an extremely difficult race to play."
        #sgc.map, "color green; backcolor black ; place 945 560 ;\";"Unique ability :"
        #sgc.map, "color white; backcolor black ; place 958 580 ;\";"Dormance"
    end if
    if bruitage = 0 then playwave "music\buton.wav", async
    raceSelect = 5
    listex$="wraithsOn repliOff asgardOff goaOff humainOff alteranOff wraithsOff repliOn asgardOn goaOn humainOn alteranOn"
    gosub [hideshow]
    print #sgc.map, "flush"
    wait

    [alteranSelect]
    print #sgc.map, "font Times New Roman 12;color white"
    print #sgc.map, "drawbmp SELECTION 200 300"
    print #sgc.map, "drawbmp pic6 887 360"

    if language = 0 then
        #sgc.map, "color green; backcolor black ; place 265 350 ;\";"Population initiale : "
        #sgc.map, "color white; backcolor black ; place 390 350 ;\";"44"
        #sgc.map, "backcolor black ; place 265 380 ;\";"Les Altérans sont un peuple ouvert au progrès scientifique. Ils fuirent leur \galaxie d'origine pour la Voie Lactée à cause d'un schisme avec leurs semblables, \les Oris. Cette race est la plus avancée de tout point de vue dans la Voie Lactée \grâce à l'ascension les ayant transformés en êtres de pure énergie et les dotant de \pouvoirs quasiment divins. Pour autant ,le chemin pour y arriver est long et \dangereux. Cette race est un bon choix pour les joueurs voulant expérimenter le \maximum de complexité. \\C'est une des race les plus dure à jouer mais qui offre un plein potentiel."
        #sgc.map, "color green; backcolor black ; place 940 560 ;\";"Capacité unique :"
        #sgc.map, "color white; backcolor black ; place 960 580 ;\";"Ascension"
    end if
    if language = 1 then
        #sgc.map, "color green; backcolor black ; place 265 350 ;\";"Initiale population : "
        #sgc.map, "color white; backcolor black ; place 390 350 ;\";"44"
        #sgc.map, "backcolor black ; place 265 380 ;\";"The Alterans are a people open to scientific progress. They fled their original \galaxy for the Milky Way because of a schism with their fellow Ori. This race is \the most advanced in every way in the Milky Way thanks to the ascension that \transformed them into beings of pure energy and endowed them with almost divine \powers. However, the path to get there is long and dangerous. This race is a good \choice for players wanting to experience maximum complexity. \\It is one of the hardest races to play but offers full potential."
        #sgc.map, "color green; backcolor black ; place 945 560 ;\";"Unique ability :"
        #sgc.map, "color white; backcolor black ; place 957 580 ;\";"Ascension"
    end if
    if bruitage = 0 then playwave "music\buton.wav", async
    raceSelect = 6
    listex$="alteranOn wraithsOff repliOff asgardOff goaOff humainOff alteranOff wraithsOn repliOn asgardOn goaOn humainOn"
    gosub [hideshow]
    print #sgc.map, "flush"
    wait


[GAMEstart]
if load = 0 then gosub [dataGAME]
r$ = mcisend$("pause main")
game$ = "on"
if music = 1 then r$ = mcisend$("pause main")
if music = 0 then r$  =mcisend$("set main time format ms") : r$ = mcisend$("status main length") : looplength=val(r$) : r$ = mcisend$("play main from 0 repeat")
if bruitage = 0 then playwave "music\buton.wav", async
goto [planeteP1]


    [GAMEstartINI]
  '  loadbmp "moon","bmp\game\selection\GAMEstart\moon.bmp"
    game$ = "on"
    r$ = mcisend$("pause main")
    if music = 1 then r$ = mcisend$("pause main")
    if music = 0 then r$  =mcisend$("set main time format ms") : r$ = mcisend$("status main length") : looplength=val(r$) : r$ = mcisend$("play main from 0 repeat")
    [GAMEstartINI2]

    BackgroundColor$ = "black" : ForegroundColor$ = "white"
    gameStartini = 1 : start = 1 : secuSYSsolaire = 0
    WindowWidth= 1300 : WindowHeight = 800 : UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
  '  bmpbutton #sgc.son1, "bmp\game\selection\GAMEstart\HUMANOIDE\sonOFFGame.bmp", [iniMUSIC], UL, 1250,25
  '  bmpbutton #sgc.son2, "bmp\game\selection\GAMEstart\HUMANOIDE\sonONGame.bmp", [iniMUSIC2], UL, 1250,25
    graphicbox #sgc.map, 0, 0, WindowWidth+5, WindowHeight+5

    Open " " for window_nf as #sgc
    #sgc, "trapclose [AnimWindowCloseSGC]"
    #sgc.map, "when leftButtonDown [SimpleClick]"
  '  if music = 0 then print #sgc.son2, "show" : print #sgc.son1, "hide"
   ' if music = 1 then print #sgc.son1, "show" : print #sgc.son2, "hide"

    #sgc.map, "down"
    #sgc.map, "drawbmp JBc 00 00"
    #sgc.map, "background JBc"
    #sgc.map, "addsprite PlaneteT1 PlaneteT1"
    #sgc.map, "spritexy PlaneteT1 530 300"
    #sgc.map, "spritevisible PlaneteT1 on"
    button1x = int((WindowWidth/2)-235) : button1y = int(WindowHeight-100)
    button3x = 730 : button3y = 265
    #sgc.map,"addsprite button1 button1"
    #sgc.map,"addsprite button3 button3"
    #sgc.map,"spritexy button1 ";button1x;" ";button1y
    #sgc.map,"spritexy button3 ";button3x;" ";button3y
    #sgc.map, "drawsprites"
   ' #sgc.map "addsprite moon moon" : n=1

    hGBox = hwnd(#sgc.map)
    CallDLL #user32, "GetDC",_
        hGBox As ulong,_  'handle of graphicbox
        gDC As ulong      'device context
    CallDLL #gdi32, "SetBkMode",_
        gDC As ulong,_          'handle of graphicbox
        _TRANSPARENT As long,_  'OPAQUE
        result As long          'previous bkmode
    CallDLL#user32,"ReleaseDC",_
        hGBox As ulong,_    'graphicbox handle
        gDC As ulong,_      'device context
        result As long

    #sgc.map, "flush"

    if menuIngame = 2 then gosub [menuINgame]
    goto [time]

    [dataGAME]

    'a supprimer une fois que les autres races sont faites
    raceSelect = 1

    select case raceSelect
    case 1
        RaceSelection$ = "Humain"
        NombreHommeDarme = 3
        NombreEXPLORATEUR = 1
        popSCIENT = 1
            placePARhabitationJ1 = 4
            nombreHabitationJ1 = 18
        popMILIT = 4
        popTOTAL = 60
        popMILITlim = 20
        popSCIENTlim = 3
        hpFortifications = 0
    case 2
        RaceSelection$ = "Goa'uld"
        NombreHommeDarme = 4
        NombreEXPLORATEUR = 0
        popSCIENT = 2
            placePARhabitationJ1 = 3
            nombreHabitationJ1 = 30
        popMILIT = 4
        popTOTAL = 38
        popMILITlim = 35
        popSCIENTlim = 4
        hpFortifications = 0
    case 3
        RaceSelection$ = "Asgard"
        NombreHommeDarme = 0
        NombreEXPLORATEUR = 0
        popSCIENT = 6
            placePARhabitationJ1 = 3
            nombreHabitationJ1 = 25
        popMILIT = 0
        popTOTAL = 20
        popMILITlim = 10
        popSCIENTlim = 6
        hpFortifications = 0
    case 4
        RaceSelection$ = "Réplicateur"
        NombreHommeDarme = 0
        NombreEXPLORATEUR = 0
        popSCIENT = 0
            placePARhabitationJ1 = 150
            nombreHabitationJ1 = 1
        popMILIT = 0
        popTOTAL = 1
        popMILITlim = 100
        popSCIENTlim = 3
        hpFortifications = 0
    case 5
        RaceSelection$ = "Wraith"
        NombreHommeDarme = 8
        NombreEXPLORATEUR = 2
        popSCIENT = 1
            placePARhabitationJ1 = 15
            nombreHabitationJ1 = 4
        popMILIT = 10
        popTOTAL = 30
        popMILITlim = 70
        popSCIENTlim = 2
        hpFortifications = 0
    case 6
        RaceSelection$ = "Alteran"
        NombreHommeDarme = 0
        NombreEXPLORATEUR = 1
        popSCIENT = 6
            placePARhabitationJ1 = 5
            nombreHabitationJ1 = 10
        popMILIT = 1
        popMILITlim = 10
        popSCIENTlim = 9
        popTOTAL = 44
        hpFortifications = 0
    end select

    INCOMEterritoire1FOOD = 100 : INCOMEterritoire1BOIS = 380 : INCOMEterritoire1METAL = 8
    INCOMEterritoire2FOOD = 160 : INCOMEterritoire2BOIS = 320 : INCOMEterritoire2METAL = 2
    INCOMEterritoire3FOOD = 220 : INCOMEterritoire3BOIS = 240 : INCOMEterritoire3METAL = 3
    INCOMEterritoire4FOOD = 80 : INCOMEterritoire4BOIS = 500 : INCOMEterritoire4METAL = 5
    INCOMEterritoire5FOOD = 110 : INCOMEterritoire5BOIS = 320 : INCOMEterritoire5METAL = 4
    INCOMEterritoire6FOOD = 150 : INCOMEterritoire6BOIS = 350 : INCOMEterritoire6METAL = 5
    INCOMEterritoire7FOOD = 150 : INCOMEterritoire7BOIS = 380 : INCOMEterritoire7METAL = 8
    INCOMEterritoire8FOOD = 100 : INCOMEterritoire8BOIS = 250 : INCOMEterritoire8METAL = 14
    INCOMEterritoire9FOOD = 400 : INCOMEterritoire9BOIS = 220 : INCOMEterritoire9METAL = 1
    INCOMEterritoire10FOOD = 300 : INCOMEterritoire10BOIS = 500 : INCOMEterritoire10METAL = 20
    INCOMEterritoire11FOOD = 105 : INCOMEterritoire11BOIS = 380 : INCOMEterritoire11METAL = 0
    INCOMEterritoire12FOOD = 50 : INCOMEterritoire12BOIS = 250 : INCOMEterritoire12METAL = 25
    INCOMEterritoire13FOOD = 140 : INCOMEterritoire13BOIS = 310 : INCOMEterritoire13METAL = 6
    INCOMEterritoire14FOOD = 160 : INCOMEterritoire14BOIS = 380 : INCOMEterritoire14METAL = 4
    INCOMEterritoire15FOOD = 150 : INCOMEterritoire15BOIS = 290 : INCOMEterritoire15METAL = 3
    INCOMEterritoire16FOOD = 200 : INCOMEterritoire16BOIS = 400 : INCOMEterritoire16METAL = 1
    INCOMEterritoire17FOOD = 320 : INCOMEterritoire17BOIS = 220 : INCOMEterritoire17METAL = 3
    INCOMEterritoire18FOOD = 100 : INCOMEterritoire18BOIS = 600 : INCOMEterritoire18METAL = 0
    INCOMEterritoire19FOOD = 50 : INCOMEterritoire19BOIS = 720 : INCOMEterritoire19METAL = 2
    INCOMEterritoire20FOOD = 80 : INCOMEterritoire20BOIS = 280 : INCOMEterritoire20METAL = 8
    LVLterritoire1 = 1 : LVLterritoire2 = 1 : LVLterritoire3 = 1 : LVLterritoire4 = 1 : LVLterritoire5 = 1
    LVLterritoire6 = 1 : LVLterritoire7 = 1 : LVLterritoire8 = 1 : LVLterritoire9 = 1 : LVLterritoire10 = 1
    LVLterritoire11 = 1 : LVLterritoire12 = 1 : LVLterritoire13 = 1 : LVLterritoire14 = 1 : LVLterritoire15 = 1
    LVLterritoire16 = 1 : LVLterritoire17 = 1 : LVLterritoire18 = 1 : LVLterritoire19 = 1 : LVLterritoire20 = 1

    compteur1 = 1
    popPossible = int(placePARhabitationJ1*nombreHabitationJ1+(2*lvlbatimentHabitation))
    nombre2planeteJ1 = 1
    nombreRAPPORT = 1
    ScCULTURE = 1
    Agej1 = 1
    money = 0
    bois = 1800
    metal = 0
    naqada = 0
    food = 1800
    nplayerP1 = 1
    nomplanete1$ = "Planète 1"

    PositionJoueur1 = int(rnd(1)*14+1)
    select case PositionJoueur1
    case 1
         P1x = 228 : P1y = 431
    case 2
         P1x = 272 : P1y = 491
    case 3
         P1x = 327 : P1y = 406
    case 4
         P1x = 372 : P1y = 516
    case 5
         P1x = 426 : P1y = 330
    case 6
         P1x = 427 : P1y = 414
    case 7
         P1x = 461 : P1y = 501
    case 8
         P1x = 500 : P1y = 590
    case 9
         P1x = 588 : P1y = 573
    case 10
         P1x = 554 : P1y = 485
    case 11
         P1x = 505 : P1y = 425
    case 12
         P1x = 591 : P1y = 413
    case 13
         P1x = 527 : P1y = 347
    case 14
         P1x = 631 : P1y = 341
    case 15
         P1x = 535 : P1y = 266
    case 16
         P1x = 629 : P1y = 262
    case 17
         P1x = 738 : P1y = 366
    case 18
         P1x = 744 : P1y = 291
    case 19
         P1x = 741 : P1y = 234
    case 20
         P1x = 853 : P1y = 248
    end select

    [tryAGAIN]
    PositionIAm1 = int(rnd(1)*20+1)
    select case PositionIAm1
    case 1
         P1bisx = 228 : P1bisy = 431 : PositionINIai1 = 1
    case 2
         P1bisx = 272 : P1bisy = 491 : PositionINIai1 = 2
    case 3
         P1bisx = 327 : P1bisy = 406 : PositionINIai1 = 3
    case 4
         P1bisx = 372 : P1bisy = 516 : PositionINIai1 = 4
    case 5
         P1bisx = 426 : P1bisy = 330 : PositionINIai1 = 5
    case 6
         P1bisx = 427 : P1bisy = 414 : PositionINIai1 = 6
    case 7
         P1bisx = 461 : P1bisy = 501 : PositionINIai1 = 7
    case 8
         P1bisx = 500 : P1bisy = 590 : PositionINIai1 = 8
    case 9
         P1bisx = 588 : P1bisy = 573 : PositionINIai1 = 9
    case 10
         P1bisx = 554 : P1bisy = 485 : PositionINIai1 = 10
    case 11
         P1bisx = 505 : P1bisy = 425 : PositionINIai1 = 11
    case 12
         P1bisx = 591 : P1bisy = 413 : PositionINIai1 = 12
    case 13
         P1bisx = 527 : P1bisy = 347 : PositionINIai1 = 13
    case 14
         P1bisx = 631 : P1bisy = 341 : PositionINIai1 = 14
    case 15
         P1bisx = 535 : P1bisy = 266 : PositionINIai1 = 15
    case 16
         P1bisx = 629 : P1bisy = 262 : PositionINIai1 = 16
    case 17
         P1bisx = 738 : P1bisy = 366 : PositionINIai1 = 17
    case 18
         P1bisx = 744 : P1bisy = 291 : PositionINIai1 = 18
    case 19
         P1bisx = 741 : P1bisy = 234 : PositionINIai1 = 19
    case 20
         P1bisx = 853 : P1bisy = 248 : PositionINIai1 = 20
    end select

    if P1bisx = P1x and P1bisy = P1y then goto [tryAGAIN]

    [tryAGAINB]
    PositionIAm2 = int(rnd(1)*20+1)
    select case PositionIAm2
    case 1
         P2bisx = 228 : P2bisy = 431 : PositionINIai2 = 1
    case 2
         P2bisx = 272 : P2bisy = 491 : PositionINIai2 = 2
    case 3
         P2bisx = 327 : P2bisy = 406 : PositionINIai2 = 3
    case 4
         P2bisx = 372 : P2bisy = 516 : PositionINIai2 = 4
    case 5
         P2bisx = 426 : P2bisy = 330 : PositionINIai2 = 5
    case 6
         P2bisx = 427 : P2bisy = 414 : PositionINIai2 = 6
    case 7
         P2bisx = 461 : P2bisy = 501 : PositionINIai2 = 7
    case 8
         P2bisx = 500 : P2bisy = 590 : PositionINIai2 = 8
    case 9
         P2bisx = 588 : P2bisy = 573 : PositionINIai2 = 9
    case 10
         P2bisx = 554 : P2bisy = 485 : PositionINIai2 = 10
    case 11
         P2bisx = 505 : P2bisy = 425 : PositionINIai2 = 11
    case 12
         P2bisx = 591 : P2bisy = 413 : PositionINIai2 = 12
    case 13
         P2bisx = 527 : P2bisy = 347 : PositionINIai2 = 13
    case 14
         P2bisx = 631 : P2bisy = 341 : PositionINIai2 = 14
    case 15
         P2bisx = 535 : P2bisy = 266 : PositionINIai2 = 15
    case 16
         P2bisx = 629 : P2bisy = 262 : PositionINIai2 = 16
    case 17
         P2bisx = 738 : P2bisy = 366 : PositionINIai2 = 17
    case 18
         P2bisx = 744 : P2bisy = 291 : PositionINIai2 = 18
    case 19
         P2bisx = 741 : P2bisy = 234 : PositionINIai2 = 19
    case 20
         P2bisx = 853 : P2bisy = 248 : PositionINIai2 = 20
    end select

    if P2bisx = P1bisx or P2bisx = P1x then goto [tryAGAINB]

    [tryAGAIN2]
    PositionPorte1 = int(rnd(1)*14+1)
    select case PositionPorte1
    case 1
         porteEx = 450 : porteEy = 360
    case 2
         porteEx = 330 : porteEy = 440
    case 3
         porteEx = 530 : porteEy = 420
    case 4
         porteEx = 480 : porteEy = 460
    case 5
         porteEx = 380 : porteEy = 500
    case 6
         porteEx = 260 : porteEy = 360
    case 7
         porteEx = 290 : porteEy = 430
    case 8
         porteEx = 520 : porteEy = 270
    case 9
         porteEx = 500 : porteEy = 270
    case 10
         porteEx = 615 : porteEy = 305
    case 11
         porteEx = 700 : porteEy = 330
    case 12
         porteEx = 710 : porteEy = 245
    case 13
         porteEx = 810 : porteEy = 205
    case 14
         porteEx = 540 : porteEy = 580
    end select

    SurfaceOceanP1 = 5524858
    SurfaceTerreP1 = 3401256
    SurfaceOceanP1j1 = 0
    SurfaceTerreP1j1 = 200
    year = 0
    mouths = 0
    days = 0
    lvlbatimentPrincipal = 1
    lvlbatimentFerme = 0
    lvlbatimentScierie = 0
    lvlbatimentMines = 0
    lvlbatimentHabitation = 0
    lvlbatimentCentrePolitique = 0
    lvlbatimentCentreScientifique = 0
    lvlbatimentCentreMilitaire = 0
    lvlbatimentFortifications = 0
    coutFortifications2BOISindex = 420
    coutFortifications2BOIS = coutFortifications2BOISindex + (int(lvlbatimentFortifications*50))
    influencePossible = 1000
    influenceADD = int((influencePossible/100)*50)
    popADD = 10
    UpgradeHommeDarmeOFF = 1
    UpgradeHommeDarmeDEF = 1
    UpgradeLancierOFF = 1
    UpgradeLancierDEF = 1
    UpgradeFrondeurOFF = 1
    UpgradeFrondeurDEF = 1
    UpgradeArcherOFF = 1
    UpgradeArcherDEF = 1
    coutFOODhommedarme = 100
    coutBOIShommedarme = 20
    coutFOODexplorateur = 70
    coutBOISexplorateur = 5
    coutFOODlancier = 20
    coutBOISlancier = 100
    coutFOODfrondeur = 200
    coutBOISfrondeur = 00
    coutFOODarcher = 15
    coutBOISarcher = 60
    coutFOODspy = 500
    coutBOISspy = 0
    offHommedarme = 12
    defHommedarme = 3
    vieHommedarme = 37
    offlancier = 14
    deflancier = 2
    vielancier = 32
    offfrondeur = 38
    deffrondeur = 1
    viefrondeur = 18
    offarcher = 12
    defarcher = 2
    viearcher = 24
    offcitoyen = 3
    defcitoyen = 0
    viecitoyen = 10
    offscientifique = 4
    defscientifique = 1
    viescientifique = 14
    offEXPLORATEUR = 10
    defEXPLORATEUR = 3
    vieEXPLORATEUR = 30
    STOCKAGEfood = int((lvlbatimentPrincipal*3000)+((lvlbatimentFerme*4500)*lvlbatimentFerme))
    STOCKAGEbois = int((lvlbatimentPrincipal*4000)+((lvlbatimentScierie*6000)*lvlbatimentScierie))
    STOCKAGEminerais = int((lvlbatimentPrincipal*500)+((lvlbatimentMines*250)*lvlbatimentMines))
    coutHabitationBOISindex = 350
    coutHabitationBOIS = coutHabitationBOISindex + (int(lvlbatimentHabitation*190))
    coutHabitationMETAL = 4*(int(lvlbatimentHabitation))
    coutScBOISindex = 450
    coutScBOIS = coutScBOISindex + (int(lvlbatimentCentreScientifique*450))
    coutScMETAL = (12*(int(lvlbatimentCentreScientifique)))
    coutPrincipalBOISindex = 1500
    coutPrincipalBOIS = coutPrincipalBOISindex + (int(lvlbatimentPrincipal*2150))
    coutPrincipalMETAL =(20*int(lvlbatimentPrincipal))
    coutSmBOISindex = 350
    coutSmBOIS = coutSmBOISindex + (int(lvlbatimentCentreMilitaire*370))
    coutSmMETAL = 50*(int(lvlbatimentCentreMilitaire))
    coutFermeBOISindex = 640
    coutfermageBOIS = coutFermeBOISindex + (int(lvlbatimentFerme*600))
    coutfermageMETAL = 50*(int(lvlbatimentFerme))
    coutScierieBOISindex = 400
    coutScierieBOIS = coutScierieBOISindex + (int(lvlbatimentScierie*240))
    coutScierieMETAL = 20*(int(lvlbatimentScierie))
    coutMinesBOISindex = 1200
    coutMinesBOIS = coutMinesBOISindex + (int(lvlbatimentMines*280))
    coutMinesMETAL = 20*(int(lvlbatimentMines))
    coutFortificationsBOISindex = 1000
    coutFortificationsBOIS = coutFortificationsBOISindex + (int(lvlbatimentFortifications*3000))
    coutFortificationsMETAL = 200*(int(lvlbatimentFortifications))

' ----------IA 1 initialisation -----------------------------------

    IA1terre = 0
    STATUTiam2TOiam1 = 50
    IA1Alife1 = 1
    compteurIA1m = 1
    boisIAm1 = 5000
    metalIAm1 = 500
    foodIAm1 = 3000
    naqadaIAm1 = 500
    lvlbatimentPrincipalIAm1 = 2
    lvlbatimentFermeIAm1 = 0
    lvlbatimentScierieIAm1 = 0
    lvlbatimentMinesIAm1 = 0
    lvlbatimentHabitationIAm1 = 0
    lvlbatimentCentrePolitiqueIAm1 = 0
    lvlbatimentCentreScientifiqueIAm1 = 0
    lvlbatimentCentreMilitaireIAm1 = 0
    lvlbatimentFortificationsIAm1 = 0
    influencePossibleIAm1 = 2000
    NombreHommeDarmeIAm1 = 5
    popSCIENTIAm1 = 2
    popMILITIAm1 = 4
    popMILITlimIAm1 = 15
    popPossibleIAm1 = 90
    popTOTALIAm1 = 70
    SurfaceTerreP1IAm1 = 500
    popSCIENTlimIAm1 = 5
    UpgradeHommeDarmeOFFIAm1 = 1
    UpgradeHommeDarmeDEFIAm1 = 1
    coutFOODhommedarmeIAm1 = 110
    coutBOIShommedarmeIAm1 = 20
    coutFOODlancierIAm1 = 130
    coutBOISlancierIAm1 = 60
    coutFOODfrondeurIAm1 = 250
    coutBOISfrondeurIAm1 = 00
    coutFOODarcherIAm1 = 60
    coutBOISarcherIAm1 = 190
    coutFOODspyIAm1 = 200
    coutBOISspyIAm1 = 20
    offHommedarmeIAm1 = 12
    defHommedarmeIAm1 = 3
    vieHommedarmeIAm1 = 37
    offlancierIAm1 = 14
    deflancierIAm1 = 2
    vielancierIAm1 = 32
    offfrondeurIAm1 = 38
    defFrondeurIAm1 = 1
    viefrondeurIAm1 = 18
    offarcherIAm1 = 12
    defarcherIAm1 = 2
    viearcherIAm1 = 24
    offcitoyenIAm1 = 3
    defcitoyenIAm1 = 0
    viecitoyenIAm1 = 10
    offscientifiqueIAm1 = 4
    defscientifiqueIAm1 = 1
    viescientifiqueIAm1 = 12
    hpFortificationsIAm1 = 50
    lvlbatimentFortificationsIAm1 = 0
    coutFortificationsBOISindexIAm1 = 3050
    coutFortifications2BOISindexIAm1 = 420
    coutFortifications2BOISIAm1 = coutFortifications2BOISindexIAm1 + (int(lvlbatimentFortificationsIAm1*50))
    coutFortifications2METALIAm1 = 200*(int(lvlbatimentFortificationsIAm1))
    coutHabitationBOISindexIAm1 = 280
    coutHabitationBOISIAm1 = coutHabitationBOISindexIAm1 + (int(lvlbatimentHabitationIAm1*250))
    coutHabitationMETALIAm1 = 4*(int(lvlbatimentHabitationIAm1))
    coutScBOISindexIAm1 = 440
    coutScBOISIAm1 = coutScBOISindexIAm1 + (int(lvlbatimentCentreScientifiqueIAm1*800))
    coutScMETALIAm1 = (12*(int(lvlbatimentCentreScientifiqueIAm1)))
    coutPrincipalBOISindexIAm1 = 900
    coutPrincipalBOISIAm1 = coutPrincipalBOISindexIAm1 + (int(lvlbatimentPrincipalIAm1*1100))
    coutPrincipalMETALIAm1 =(20*int(lvlbatimentPrincipalIAm1))
    coutSmBOISindexIAm1 = 190
    coutSmBOISIAm1 = coutSmBOISindexIAm1 + (int(lvlbatimentCentreMilitaireIAm1*540))
    coutSmMETALIAm1 = 50*(int(lvlbatimentCentreMilitaireIAm1))
    coutFermeBOISindexIAm1 = 850
    coutfermageBOISIAm1 = coutFermeBOISindexIAm1 + (int(lvlbatimentFermeIAm1*950))
    coutfermageMETALIAm1 = 50*(int(lvlbatimentFermeIAm1))
    coutScierieBOISindexIAm1 = 300
    coutScierieBOISIAm1 = coutScierieBOISindexIAm1 + (int(lvlbatimentScierieIAm1*390))
    coutScierieMETALIAm1 = 20*(int(lvlbatimentScierieIAm1))
    coutMinesBOISindexIAm1 = 780
    coutMinesBOISIAm1 = coutMinesBOISindexIAm1 + (int(lvlbatimentMinesIAm1*2390))
    coutMinesMETALIAm1 = 20*(int(lvlbatimentMinesIAm1))
    STATUTiam1 = 50
    raceSelectIAm1 = int(rnd(1)*5+1)
    select case raceSelectIAm1
        case 1
            RaceSelectionIAm1$ = "Alteran"
            RaceIAm1$ = "Alteran"
        case 2
            RaceSelectionIAm1$ = "Goa'uld"
            RaceIAm1$ = "Goa'uld"
        case 3
            RaceSelectionIAm1$ = "Humain"
            RaceIAm1$ = "Humain"
        case 4
            RaceSelectionIAm1$ = "Wraith"
            RaceIAm1$ = "Wraith"
        case 5
            RaceSelectionIAm1$ = "Asgard"
            RaceIAm1$ = "Asgard"
    end select

' ----------IA 2 initialisation -----------------------------------

    IA2terre = 0
    STATUTiam2TOiam1 = 50
    IA2Alife1 = 1
    compteurIA2m = 1
    boisIAm2 = 5000
    metalIAm2 = 500
    foodIAm2 = 3000
    naqadaIAm2 = 500
    lvlbatimentPrincipalIAm2 = 1
    lvlbatimentFermeIAm2 = 0
    lvlbatimentScierieIAm2 = 0
    lvlbatimentMinesIAm2 = 0
    lvlbatimentHabitationIAm2 = 0
    lvlbatimentCentrePolitiqueIAm2 = 0
    lvlbatimentCentreScientifiqueIAm2 = 0
    lvlbatimentCentreMilitaireIAm2 = 1
    lvlbatimentFortificationsIAm2 = 0
    influencePossibleIAm2 = 2000
    NombreHommeDarmeIAm2 = 8
    popSCIENTIAm2 = 1
    popMILITIAm2 = 8
    popMILITlimIAm2 = 25
    popPossibleIAm2 = 100
    popTOTALIAm2 = 75
    SurfaceTerreP1IAm2 = 700
    popSCIENTlimIAm2 = 2
    UpgradeHommeDarmeOFFIAm2 = 1
    UpgradeHommeDarmeDEFIAm2 = 1
    coutFOODhommedarmeIAm2 = 110
    coutBOIShommedarmeIAm2 = 20
    coutFOODlancierIAm2 = 130
    coutBOISlancierIAm2 = 60
    coutFOODfrondeurIAm2 = 250
    coutBOISfrondeurIAm2 = 00
    coutFOODarcherIAm2 = 60
    coutBOISarcherIAm2 = 190
    coutFOODspyIAm2 = 200
    coutBOISspyIAm2 = 20
    offHommedarmeIAm2 = 12
    defHommedarmeIAm2 = 3
    vieHommedarmeIAm2 = 37
    offlancierIAm2 = 14
    deflancierIAm2 = 2
    vielancierIAm2 = 32
    offfrondeurIAm2 = 38
    defFrondeurIAm2 = 1
    viefrondeurIAm2 = 18
    offarcherIAm2 = 12
    defarcherIAm2 = 2
    viearcherIAm2 = 24
    offcitoyenIAm2 = 3
    defcitoyenIAm2 = 0
    viecitoyenIAm2 = 10
    offscientifiqueIAm2 = 4
    defscientifiqueIAm2 = 1
    viescientifiqueIAm2 = 12
    hpFortificationsIAm2 = 50
    lvlbatimentFortificationsIAm2 = 0
    coutFortificationsBOISindexIAm2 = 3050
    coutFortifications2BOISindexIAm2 = 420
    coutFortifications2BOISIAm2 = coutFortifications2BOISindexIAm2 + (int(lvlbatimentFortificationsIAm2*50))
    coutFortifications2METALIAm2 = 200*(int(lvlbatimentFortificationsIAm2))
    coutHabitationBOISindexIAm2 = 280
    coutHabitationBOISIAm2 = coutHabitationBOISindexIAm2 + (int(lvlbatimentHabitationIAm2*250))
    coutHabitationMETALIAm2 = 4*(int(lvlbatimentHabitationIAm2))
    coutScBOISindexIAm2 = 440
    coutScBOISIAm2 = coutScBOISindexIAm2 + (int(lvlbatimentCentreScientifiqueIAm2*800))
    coutScMETALIAm2 = (12*(int(lvlbatimentCentreScientifiqueIAm2)))
    coutPrincipalBOISindexIAm2 = 900
    coutPrincipalBOISIAm2 = coutPrincipalBOISindexIAm2 + (int(lvlbatimentPrincipalIAm2*1100))
    coutPrincipalMETALIAm2 =(20*int(lvlbatimentPrincipalIAm2))
    coutSmBOISindexIAm2 = 190
    coutSmBOISIAm2 = coutSmBOISindexIAm2 + (int(lvlbatimentCentreMilitaireIAm2*540))
    coutSmMETALIAm2 = 50*(int(lvlbatimentCentreMilitaireIAm2))
    coutFermeBOISindexIAm2 = 850
    coutfermageBOISIAm2 = coutFermeBOISindexIAm2 + (int(lvlbatimentFermeIAm2*950))
    coutfermageMETALIAm2 = 50*(int(lvlbatimentFermeIAm2))
    coutScierieBOISindexIAm2 = 300
    coutScierieBOISIAm2 = coutScierieBOISindexIAm2 + (int(lvlbatimentScierieIAm2*390))
    coutScierieMETALIAm2 = 20*(int(lvlbatimentScierieIAm2))
    coutMinesBOISindexIAm2 = 780
    coutMinesBOISIAm2 = coutMinesBOISindexIAm2 + (int(lvlbatimentMinesIAm2*2390))
    coutMinesMETALIAm2 = 20*(int(lvlbatimentMinesIAm2))
    STATUTiam2 = 50
    raceSelectIAm2 = int(rnd(1)*5+1)
    select case raceSelectIAm2
        case 1
            RaceSelectionIAm2$ = "Alteran"
            RaceIAm2$ = "Alteran"
        case 2
            RaceSelectionIAm2$ = "Goa'uld"
            RaceIAm2$ = "Goa'uld"
        case 3
            RaceSelectionIAm2$ = "Humain"
            RaceIAm2$ = "Humain"
        case 4
            RaceSelectionIAm2$ = "Wraith"
            RaceIAm2$ = "Wraith"
        case 5
            RaceSelectionIAm2$ = "Asgard"
            RaceIAm2$ = "Asgard"
    end select
return

    [SimpleClick]
    mX = MouseX
    mY = MouseY
    'notice mX; "/"; mY
    secuSYSsolaire = 0 : securityRELOADcity = 0
    if saveMain=1 then close #saveMain : saveMain = 0
    if Setting = 1 then close #setting : Setting = 0
    if menuIngame = 1 then close #menuIngame : menuIngame = 0 : goto [time]
    if mX>530 and mX<770 and mY>300 and mY<530 then goto [planeteP1]
    if mX>430 and mX<520 and mY>700 and mY<745 then goto [empireConsol]
    if mX>525 and mX<605 and mY>700 and mY<745 then goto [planeteP1]
    if mX>610 and mX<695 and mY>700 and mY<745 then goto [menuINgame]
    if mX>700 and mX<780 and mY>700 and mY<745 then goto [diplomatieConsol]
    if mX>785 and mX<875 and mY>700 and 745 then goto [commerceConsol]
    #sgc.map, "spritexy PlaneteT1 530 300"
    #sgc.map, "drawsprites"
    if language = 0 then print #sgc.map, "color white; backcolor black ; place 20 23 ;\";" Année : ";year;"  | Mois : ";mouths;"  | Jour : ";days;"     "
    if language = 1 then print #sgc.map, "color white; backcolor black ; place 20 23 ;\";" Year : ";year;"  | Mouth : ";mouths;"  | Day : ";days;"     "
    'print #sgc.map, "backcolor black ; place 800 315 ;\";" "; RaceSelection$; " : ";popTOTAL;" / "; int(placePARhabitationJ1*nombreHabitationJ1+(2*lvlbatimentHabitation));"    "
    if (IA1Alife1 = 0 and IA2Alife1 = 1) or (IA1Alife1 = 1 and IA2Alife1 = 0) then nplayerP1 = 2

    if IA1Alife1 = 1 and DecouverteCiv2P1 = 1 then IA1Alife1C = 1
    if IA2Alife1 = 1 and DecouverteCiv3P1 = 1 then IA2Alife1C = 1
    nomPLANETE$ = "Civilisation(s) :";" "; int(nplayerP1 + IA1Alife1C + IA2Alife1C)
    print #sgc.map, "color white ; place 800 290 ;\";" ";nomPLANETE$;"       "
    print #sgc.map, "color green ; place 800 305 ;\";"- ";RaceSelection$;"       "
    if IA1Alife1 = 1 and DecouverteCiv2P1 = 1 then print #sgc.map, "color white; backcolor ";r;" ";v;" ";b;"; place 800 320 ;\";"- "; RaceIAm1$;"     "
    if IA2Alife1 = 1 and DecouverteCiv3P1 = 1 then print #sgc.map, "color white; backcolor ";r;" ";v;" ";b;"; place 800 335 ;\";"- "; RaceIAm2$;"     "
    IA1Alife1C = 0 : IA2Alife1C = 0
    wait


    [empireConsol]
    timer 0
    close #sgc
    WindowWidth= 1300 : WindowHeight = 800 : UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
    BackgroundColor$ = "black" : ForegroundColor$ = "white"
   ' stylebits #sgc.map, 0, _WS_BORDER, 0, 0
    graphicbox #sgc.map, -5, -5, WindowWidth+5, WindowHeight+5
    bmpbutton #sgc.b1, "bmp\game\selection\retour.bmp", [closeFEN1], UL, 100,60
    Open " " for window_nf as #sgc
    #sgc, "trapclose [closeFEN1]"
    #sgc.map , "down;fill black"
    print #sgc.map, "font Times New Roman 20 underscore;backcolor black; color white"
    if language = 0 then print #sgc.map, "place ";int(WindowWidth/2 - 150);" 110 ;\";"Contrôle avancé de votre Empire"
    if language = 1 then print #sgc.map, "place ";int(WindowWidth/2 - 150);" 110 ;\";"Advanced control of your Empire"

    print #sgc.map, "font Times New Roman 10"
    if language = 0 then
    print #sgc.map, "place 40 170 ;\";"Nombre total de planète(s) sous votre contrôle : ";nombre2planeteJ1
    print #sgc.map, "place 40 230 ;\";"Planète :"
    print #sgc.map, "place 40 265 ;\";"Population total :"
    print #sgc.map, "place 40 280 ;\";"Population militaire :"
    print #sgc.map, "place 40 295 ;\";"Population Scientifique :"
    print #sgc.map, "place 40 310 ;\";"Population libre :"
    print #sgc.map, "place 40 325 ;\";"Nourriture généré (jour) :"
    print #sgc.map, "place 40 340 ;\";"Bois généré (jour) :"
    print #sgc.map, "place 40 340 ;\";"Bois généré (jour) :"
    print #sgc.map, "place 40 355 ;\";"Minerais générés (jour) :"
    print #sgc.map, "place 40 370 ;\";"Naquada généré (jour) :"
    print #sgc.map, "place 40 385 ;\";"Revenus générés (mois) :"
    print #sgc.map, "place 40 420 ;\";"Points de recherche disponible :"
    print #sgc.map, "place 40 435 ;\";"Présence d'une porte des étoiles :"
    print #sgc.map, "place 40 450 ;\";"Présence autre(s) civilisation(s) :"
    print #sgc.map, "place 40 465 ;\";"Hostilité ?"
    print #sgc.map, "place 40 490 ;\";"Superficie total terrestre  :"
    print #sgc.map, "place 40 505 ;\";"Superficie total maritime :"
    print #sgc.map, "place 40 520 ;\";"Pourcentage de contrôle planétaire :"
    print #sgc.map, "place 40 535 ;\";"Contrôle terrestre :"
    print #sgc.map, "place 40 550 ;\";"Contrôle maritime :"
    print #sgc.map, "place 40 565 ;\";"Planète en état de siège :"
    print #sgc.map, "place 40 580 ;\";"Nombre de batailles remportés :"
    print #sgc.map, "place 40 595 ;\";"Nombre de batailles perdues :"
    print #sgc.map, "place 40 625 ;\";"Points de culturels :"
    print #sgc.map, "place 40 640 ;\";"Points militaires :"
    end if
    if language = 1 then
    print #sgc.map, "place 40 170 ;\";"Total planet(s) under your control : ";nombre2planeteJ1
    print #sgc.map, "place 40 230 ;\";"Planet :"
    print #sgc.map, "place 40 265 ;\";"Total population  :"
    print #sgc.map, "place 40 280 ;\";"Military population :"
    print #sgc.map, "place 40 295 ;\";"Scientific population :"
    print #sgc.map, "place 40 310 ;\";"Free population :"
    print #sgc.map, "place 40 325 ;\";"Food generated (by day) :"
    print #sgc.map, "place 40 340 ;\";"Wood generated (by day) :"
    print #sgc.map, "place 40 355 ;\";"Minerals generated (by day) :"
    print #sgc.map, "place 40 370 ;\";"Naquada generated (by day) :"
    print #sgc.map, "place 40 385 ;\";"Incomes generated (by mouth) :"
    print #sgc.map, "place 40 420 ;\";"Points available research :"
    print #sgc.map, "place 40 435 ;\";"Presence of Stargate :"
    print #sgc.map, "place 40 450 ;\";"Presence other(s) Civilization(s): :"
    print #sgc.map, "place 40 465 ;\";"Hostility ?"
    print #sgc.map, "place 40 490 ;\";"Total land area  :"
    print #sgc.map, "place 40 505 ;\";"Total maritime area :"
    print #sgc.map, "place 40 520 ;\";"Global monitoring Percent :"
    print #sgc.map, "place 40 535 ;\";"Ground control :"
    print #sgc.map, "place 40 550 ;\";"Maritime control :"
    print #sgc.map, "place 40 565 ;\";"Planet under siege :"
    print #sgc.map, "place 40 580 ;\";"Number of won battles :"
    print #sgc.map, "place 40 595 ;\";"Number of lost battles :"
    print #sgc.map, "place 40 625 ;\";"Cultural points :"
    print #sgc.map, "place 40 640 ;\";"Military Points :"
    end if

    print #sgc.map, "place 310 265 ;\"; popTOTAL
    print #sgc.map, "place 310 280 ;\"; popMILIT
    print #sgc.map, "place 310 295 ;\"; popSCIENT
    print #sgc.map, "place 310 310 ;\"; int(popPossible-popTOTAL)
    print #sgc.map, "place 310 325 ;\";int((SurfaceTerreP1j1/4+SurfaceOceanP1j1/8+foodADD)-(popMILIT*4+popSCIENT*3+(popTOTAL-popMILIT-popSCIENT)))
    print #sgc.map, "place 310 340 ;\";int((popMILIT*2+(popTOTAL-popMILIT-popSCIENT)*1) + Upbois)
    if RECHEARCHmetal = 0 then print #sgc.map, "place 310 355 ;\"; "0"
    if RECHEARCHmetal > 0 then print #sgc.map, "place 310 355 ;\";int((popMILIT*4+popSCIENT*1)/4 + Upmetal)
    if RECHEARCHnaquada = 0 then print #sgc.map, "place 310 370 ;\"; "0"
    if RECHEARCHnaquada > 0 then print #sgc.map, "place 310 370 ;\";int((SurfaceTerreP1j1+SurfaceOceanP1j1)/250 + Upnaqada)
    if RECHEARCHmoney = 0 then print #sgc.map, "place 310 385 ;\"; "0"
    if RECHEARCHmoney > 0 then print #sgc.map, "place 310 385 ;\";popTOTAL
    print #sgc.map, "place 310 420 ;\";RECHEARCHpoint
    if porteEtoileP1 = 1 then print #sgc.map, "place 310 435 ;\"; "Oui"
    if porteEtoileP1 = 0 then print #sgc.map, "place 310 435 ;\"; "Non"
    if DecouverteCiv2P1 = 1 then print #sgc.map, "place 310 450 ;\"; "Oui"
    if DecouverteCiv2P1 = 0 then print #sgc.map, "place 310 450 ;\"; "Non"
    print #sgc.map, "place 310 465 ;\"; "non"
    print #sgc.map, "place 310 490 ;\"; SurfaceTerreP1 ; " m²"
    print #sgc.map, "place 310 505 ;\"; SurfaceOceanP1 ; " m²"
    print #sgc.map, "place 310 550 ;\"; SurfaceOceanP1j1 ; " m²"
    print #sgc.map, "place 310 535 ;\"; SurfaceTerreP1j1 ; " m²"
    print #sgc.map, "place 310 565 ;\"; "0"
    print #sgc.map, "place 310 580 ;\"; "0"
    print #sgc.map, "place 310 595 ;\"; "0"
    print #sgc.map, "place 310 625 ;\"; "0"
    print #sgc.map, "place 310 640 ;\"; "0"
    print #sgc.map, "drawbmp P1mini 300 200"
    #sgc.map, "when leftButtonDown [SimpleClickFen1]"
    wait

    [SystemSolaire1]
    timer 0
    close #sgc : secuSYSsolaire = 1 : nomPLANETE$ = nomplanete1$;" | ";"Civilisation(s) :";" "; nplayerP1
    WindowWidth= 1300 : WindowHeight = 800 : UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
    BackgroundColor$ = "black" : ForegroundColor$ = "white"
    'stylebits #sgc.map, 0, _WS_BORDER, 0, 0
    graphicbox #sgc.map, -5, -5, WindowWidth+5, WindowHeight+5
    Open " " for window_nf as #sgc
    #sgc.map , "down;fill black"
    #sgc.map, "drawbmp solaire1 5 5"
    #sgc.map, "when leftButtonDown [SimpleClickFen1]"
    print #sgc.map, "backcolor black;font Times New Roman 8 ; color green"
    print #sgc.map, "place 498 265 ;\";" ";nomPLANETE$;"\ Race : "; RaceSelection$; " "
    print #sgc.map, "color white"
    print #sgc.map, "place 270 180 ;\";"Planète inconnue (?) \Race : (?)"
    print #sgc.map, "place 430 400 ;\";"Planète inconnue (?) \Race : (?)"
    print #sgc.map, "place 670 570 ;\";"Planète inconnue (?) \Race : (?)"
    print #sgc.map, "place 770 385 ;\";"Planète inconnue (?) \Race : (?)"
    print #sgc.map, "place 1005 380 ;\";"Planète inconnue (?) \Race : (?)"
    print #sgc.map, "place 740 200 ;\";"Planète inconnue (?) \Race : (?)"
    wait

    [commerceConsol]
    timer 0
    close #sgc
    WindowWidth= 1300 : WindowHeight = 800 : UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
    BackgroundColor$ = "black" : ForegroundColor$ = "white"
   ' stylebits #sgc.map, 0, _WS_BORDER, 0, 0
    graphicbox #sgc.map, -5, -5, WindowWidth+5, WindowHeight+5
    bmpbutton #sgc.map, "bmp\game\selection\retour.bmp", [closeFEN1], UL, 100,60
    Open " " for window_nf as #sgc
    #sgc, "trapclose [closeFEN1]"
    #sgc.map , "down;fill black"
    print #sgc.map, "font Times New Roman 20 underscore; backcolor black; color white"
    if language = 0 then print #sgc.map, "place ";int(WindowWidth/2 - 150);" 110 ;\";"Contrôle central du commerce"
    if language = 1 then print #sgc.map, "place ";int(WindowWidth/2 - 150);" 110 ;\";"Central control of trade"
    print #sgc.map, "font Times New Roman 10 ; color white"
    if language = 0 then print #sgc.map, "place 570 200 ;\";"Planétaire    |       Interplanétaire"
    if language = 1 then print #sgc.map, "place 550 200 ;\";"Planetary    |      Interplanetary"
    print #sgc.map, "font Times New Roman 10 underscore; color white"
    if language = 0 then
        print #sgc.map, "place 100 280 ;\";"Votre ville"
        print #sgc.map, "place 300 280 ;\";"Ville étrangère"
        print #sgc.map, "place 500 280 ;\";"Quantité de ressource livré :"
        print #sgc.map, "place 750 280 ;\";"Type de ressource livré :"
        print #sgc.map, "place 1000 280 ;\";"Distance :"
        print #sgc.map, "place 1120 280 ;\";"Temps de livraison :"
    end if
    if language = 1 then
        print #sgc.map, "place 100 280 ;\";"Your city"
        print #sgc.map, "place 300 280 ;\";"Foreign city"
        print #sgc.map, "place 500 280 ;\";"Resource Quantity delivered :"
        print #sgc.map, "place 750 280 ;\";"Type of resource delivered :"
        print #sgc.map, "place 1000 280 ;\";"Distance :"
        print #sgc.map, "place 1120 280 ;\";"Delivery time :"
    end if
    wait

    [diplomatieConsol]
    timer 0
    close #sgc
    WindowWidth= 1300 : WindowHeight = 800 : UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
    BackgroundColor$ = "black" : ForegroundColor$ = "white"
  '  stylebits #fen1.map, 0, _WS_BORDER, 0, 0
    graphicbox #sgc.map, -5, -5, WindowWidth+5, WindowHeight+5
    bmpbutton #sgc.b1, "bmp\game\selection\retour.bmp", [closeFEN1], UL, 100,60
    Open " " for window_nf as #sgc
    #sgc, "trapclose [closeFEN1]"
    #sgc.map , "down;fill black"
    print #sgc.map, "font Times New Roman 20 underscore;backcolor black; color white"
    if language = 0 then
        print #sgc.map, "place ";int(WindowWidth/2 - 150);" 110 ;\";"CENTRE DE LA DIPLOMATIE"
        print #sgc.map, "font Times New Roman 10 underscore"
        print #sgc.map, "place 150 200 ;\";"Alliés"
        print #sgc.map, "place 460 200 ;\";"Ennemis"
        print #sgc.map, "place 800 200 ;\";"Neutre"
        print #sgc.map, "place 1100 200 ;\";"Localisation"
    end if
    if language = 1 then
        print #sgc.map, "place ";int(WindowWidth/2 - 150);" 110 ;\";"CENTER OF DIPLOMACY"
        print #sgc.map, "font Times New Roman 10 underscore"
        print #sgc.map, "place 150 200 ;\";"allies"
        print #sgc.map, "place 460 200 ;\";"Enemies"
        print #sgc.map, "place 800 200 ;\";"Neutral"
        print #sgc.map, "place 1100 200 ;\";"Localisation"
    end if
    wait

    [BackPlaneteP1]
    securityRELOADcity = 0 : zoomPlanete = 0
    if bat1 = 1 then close #bat1 : bat1 = 0
    if villeJ1 = 1 then villeJ1 = 0 : close #villeJ1
    close #sgc : goto [GAMEstartINI2]

    [vitesse]
    if vitesse$ = "Vitesse du jeu : x3" then vitesse$ = "Vitesse du jeu : x1" : goto [endVitesse]
    if vitesse$ = "Vitesse du jeu : x2" then vitesse$ = "Vitesse du jeu : x3" : goto [endVitesse]
    if vitesse$ = "Vitesse du jeu : x1" then vitesse$ = "Vitesse du jeu : x2"
    [endVitesse]
    print #sgc.vitesse, vitesse$
    wait


    [spritesTerritoires]
    if territoire1 = 1 then #sgc.map, "addsprite territoire1a territoire1a" : #sgc.map,"spritexy territoire1a ";153;" ";372 : #sgc.map, "spritetofront territoire1a"
    if territoire1 = 2 then
        #sgc.map, "addsprite territoire1b territoire1b" :#sgc.map, "addsprite clan1a clan1" : #sgc.map,"spritexy territoire1b ";153;" ";372 : #sgc.map,"spritexy clan1a ";220;" ";405
        if DecouverteCiv2P1 = 1 then #sgc.map, "SpriteVisible territoire1b on" : #sgc.map, "SpriteVisible clan1a on" : #sgc.map, "spritetofront territoire1b" : #sgc.map, "spritetofront clan1a"
        if DecouverteCiv2P1 = 0 then #sgc.map, "SpriteVisible territoire1b off" : #sgc.map, "SpriteVisible clan1a off"
    end if
    if territoire1 = 3 then
        #sgc.map, "addsprite territoire1b territoire1b" :#sgc.map, "addsprite clan2a clan2" : #sgc.map,"spritexy territoire1b ";153;" ";372 : #sgc.map,"spritexy clan2a ";220;" ";405
        if DecouverteCiv3P1 = 1 then #sgc.map, "SpriteVisible territoire1b on" : #sgc.map, "SpriteVisible clan2a on" : #sgc.map, "spritetofront territoire1b" : #sgc.map, "spritetofront clan2a"
        if DecouverteCiv3P1 = 0 then #sgc.map, "SpriteVisible territoire1b off" : #sgc.map, "SpriteVisible clan2a off"
    end if
    if territoire2 = 1 then #sgc.map, "addsprite territoire2a territoire2a" : #sgc.map,"spritexy territoire2a ";204;" ";435 : #sgc.map, "spritetofront territoire2a"
    if territoire2 = 2 then
        #sgc.map, "addsprite territoire2b territoire2b" :#sgc.map, "addsprite clan1b clan1" : #sgc.map,"spritexy territoire2b ";204;" ";435 : #sgc.map,"spritexy clan1b ";260;" ";480
        if DecouverteCiv2P1 = 1 then #sgc.map, "SpriteVisible territoire2b on" : #sgc.map, "SpriteVisible clan1b on" : #sgc.map, "spritetofront clan1b"
        if DecouverteCiv2P1 = 0 then #sgc.map, "SpriteVisible territoire2b off" : #sgc.map, "SpriteVisible clan1b off"
    end if
    if territoire2 = 3 then
        #sgc.map, "addsprite territoire2b territoire2b" :#sgc.map, "addsprite clan2b clan2" : #sgc.map,"spritexy territoire2b ";204;" ";435 : #sgc.map,"spritexy clan2b ";260;" ";480
        if DecouverteCiv3P1 = 1 then #sgc.map, "SpriteVisible territoire2b on" : #sgc.map, "SpriteVisible clan2b on" : #sgc.map, "spritetofront clan2b"
        if DecouverteCiv3P1 = 0 then #sgc.map, "SpriteVisible territoire2b off" : #sgc.map, "SpriteVisible clan2b off"
    end if
    if territoire3 = 1 then #sgc.map, "addsprite territoire3a territoire3a" : #sgc.map,"spritexy territoire3a ";272;" ";303 : #sgc.map, "spritetofront territoire3a"
    if territoire3 = 2 then
        #sgc.map, "addsprite territoire3b territoire3b" :#sgc.map, "addsprite clan1c clan1" : #sgc.map,"spritexy territoire3b ";272;" ";303 : #sgc.map,"spritexy clan1c ";320;" ";385
        if DecouverteCiv2P1 = 1 then #sgc.map, "SpriteVisible territoire3b on" : #sgc.map, "SpriteVisible clan1c on" : #sgc.map, "spritetofront clan1c"
        if DecouverteCiv2P1 = 0 then #sgc.map, "SpriteVisible territoire3b off" : #sgc.map, "SpriteVisible clan1c off"
    end if
    if territoire3 = 3 then
        #sgc.map, "addsprite territoire3b territoire3b" :#sgc.map, "addsprite clan2c clan2" : #sgc.map,"spritexy territoire3b ";272;" ";303 : #sgc.map,"spritexy clan2c ";320;" ";385
        if DecouverteCiv3P1 = 1 then #sgc.map, "SpriteVisible territoire3b on" : #sgc.map, "SpriteVisible clan2c on" : #sgc.map, "spritetofront clan2c"
        if DecouverteCiv3P1 = 0 then #sgc.map, "SpriteVisible territoire3b off" : #sgc.map, "SpriteVisible clan2c off"
    end if
    if territoire4 = 1 then #sgc.map, "addsprite territoire4a territoire4a" : #sgc.map,"spritexy territoire4a ";316;" ";465 : #sgc.map, "spritetofront territoire4a"
    if territoire4 = 2 then
        #sgc.map, "addsprite territoire4b territoire4b" :#sgc.map, "addsprite clan1d clan1" : #sgc.map,"spritexy territoire4b ";316;" ";465 : #sgc.map,"spritexy clan1d ";360;" ";505
        if DecouverteCiv2P1 = 1 then #sgc.map, "SpriteVisible territoire4b on" : #sgc.map, "SpriteVisible clan1d on" : #sgc.map, "spritetofront clan1d"
        if DecouverteCiv2P1 = 0 then #sgc.map, "SpriteVisible territoire4b off" : #sgc.map, "SpriteVisible clan1d off"
    end if
    if territoire4 = 3 then
        #sgc.map, "addsprite territoire4b territoire4b" :#sgc.map, "addsprite clan2d clan2" : #sgc.map,"spritexy territoire4b ";316;" ";465 : #sgc.map,"spritexy clan2d ";360;" ";505
        if DecouverteCiv3P1 = 1 then #sgc.map, "SpriteVisible territoire4b on" : #sgc.map, "SpriteVisible clan2d on" : #sgc.map, "spritetofront clan2d"
        if DecouverteCiv3P1 = 0 then #sgc.map, "SpriteVisible territoire4b off" : #sgc.map, "SpriteVisible clan2d off"
    end if
    if territoire5 = 1 then #sgc.map, "addsprite territoire5a territoire5a" : #sgc.map,"spritexy territoire5a ";372;" ";229 : #sgc.map, "spritetofront territoire5a"
    if territoire5 = 2 then
        #sgc.map, "addsprite territoire5b territoire5b" :#sgc.map, "addsprite clan1e clan1" : #sgc.map,"spritexy territoire5b ";372;" ";229 : #sgc.map,"spritexy clan1e ";415;" ";310
        if DecouverteCiv2P1 = 1 then #sgc.map, "SpriteVisible territoire5b on" : #sgc.map, "SpriteVisible clan1e on" : #sgc.map, "spritetofront clan1e"
        if DecouverteCiv2P1 = 0 then #sgc.map, "SpriteVisible territoire5b off" : #sgc.map, "SpriteVisible clan1e off"
    end if
    if territoire5 = 3 then
        #sgc.map, "addsprite territoire5b territoire5b" :#sgc.map, "addsprite clan2e clan2" : #sgc.map,"spritexy territoire5b ";372;" ";229 : #sgc.map,"spritexy clan2e ";415;" ";310
        if DecouverteCiv3P1 = 1 then #sgc.map, "SpriteVisible territoire5b on" : #sgc.map, "SpriteVisible clan2e on" : #sgc.map, "spritetofront clan2e"
        if DecouverteCiv3P1 = 0 then #sgc.map, "SpriteVisible territoire5b off" : #sgc.map, "SpriteVisible clan2e off"
    end if
    if territoire6 = 1 then #sgc.map, "addsprite territoire6a territoire6a" : #sgc.map,"spritexy territoire6a ";378;" ";368 : #sgc.map, "spritetofront territoire6a"
    if territoire6 = 2 then
        #sgc.map, "addsprite territoire6b territoire6b" :#sgc.map, "addsprite clan1f clan1" : #sgc.map,"spritexy territoire6b ";378;" ";368 : #sgc.map,"spritexy clan1f ";415;" ";400
        if DecouverteCiv2P1 = 1 then #sgc.map, "SpriteVisible territoire6b on" : #sgc.map, "SpriteVisible clan1f on" : #sgc.map, "spritetofront clan1f"
        if DecouverteCiv2P1 = 0 then #sgc.map, "SpriteVisible territoire6b off" : #sgc.map, "SpriteVisible clan1f off"
    end if
    if territoire6 = 3 then
        #sgc.map, "addsprite territoire6b territoire6b" :#sgc.map, "addsprite clan2f clan2" : #sgc.map,"spritexy territoire6b ";378;" ";368 : #sgc.map,"spritexy clan2f ";415;" ";400
        if DecouverteCiv3P1 = 1 then #sgc.map, "SpriteVisible territoire6b on" : #sgc.map, "SpriteVisible clan2f on" : #sgc.map, "spritetofront clan2f"
        if DecouverteCiv3P1 = 0 then #sgc.map, "SpriteVisible territoire6b off" : #sgc.map, "SpriteVisible clan2f off"
    end if
    if territoire7 = 1 then #sgc.map, "addsprite territoire7a territoire7a" : #sgc.map,"spritexy territoire7a ";393;" ";450 : #sgc.map, "spritetofront territoire7a"
    if territoire7 = 2 then
        #sgc.map, "addsprite territoire7b territoire7b" :#sgc.map, "addsprite clan1g clan1" : #sgc.map,"spritexy territoire7b ";393;" ";450 : #sgc.map,"spritexy clan1g ";440;" ";485
        if DecouverteCiv2P1 = 1 then #sgc.map, "SpriteVisible territoire7b on" : #sgc.map, "SpriteVisible clan1g on" : #sgc.map, "spritetofront clan1g"
        if DecouverteCiv2P1 = 0 then #sgc.map, "SpriteVisible territoire7b off" : #sgc.map, "SpriteVisible clan1g off"
    end if
    if territoire7 = 3 then
        #sgc.map, "addsprite territoire7b territoire7b" :#sgc.map, "addsprite clan2g clan2" : #sgc.map,"spritexy territoire7b ";393;" ";450 : #sgc.map,"spritexy clan2g ";440;" ";485
        if DecouverteCiv3P1 = 1 then #sgc.map, "SpriteVisible territoire7b on" : #sgc.map, "SpriteVisible clan2g on" : #sgc.map, "spritetofront clan2g"
        if DecouverteCiv3P1 = 0 then #sgc.map, "SpriteVisible territoire7b off" : #sgc.map, "SpriteVisible clan2g off"
    end if
    if territoire8 = 1 then #sgc.map, "addsprite territoire8a territoire8a" : #sgc.map,"spritexy territoire8a ";427;" ";555 : #sgc.map, "spritetofront territoire8a"
    if territoire8 = 2 then
        #sgc.map, "addsprite territoire8b territoire8b" :#sgc.map, "addsprite clan1h clan1" : #sgc.map,"spritexy territoire8b ";427;" ";555 : #sgc.map,"spritexy clan1h ";480;" ";585
        if DecouverteCiv2P1 = 1 then #sgc.map, "SpriteVisible territoire8b on" : #sgc.map, "SpriteVisible clan1h on" : #sgc.map, "spritetofront clan1h"
        if DecouverteCiv2P1 = 0 then #sgc.map, "SpriteVisible territoire8b off" : #sgc.map, "SpriteVisible clan1h off"
    end if
    if territoire8 = 3 then
        #sgc.map, "addsprite territoire8b territoire8b" :#sgc.map, "addsprite clan2h clan2" : #sgc.map,"spritexy territoire8b ";427;" ";555 : #sgc.map,"spritexy clan2h ";480;" ";585
        if DecouverteCiv3P1 = 1 then #sgc.map, "SpriteVisible territoire8b on" : #sgc.map, "SpriteVisible clan2h on" : #sgc.map, "spritetofront clan2h"
        if DecouverteCiv3P1 = 0 then #sgc.map, "SpriteVisible territoire8b off" : #sgc.map, "SpriteVisible clan2h off"
    end if
    if territoire9 = 1 then #sgc.map, "addsprite territoire9a territoire9a" : #sgc.map,"spritexy territoire9a ";534;" ";521 : #sgc.map, "spritetofront territoire9a"
    if territoire9 = 2 then
        #sgc.map, "addsprite territoire9b territoire9b" :#sgc.map, "addsprite clan1i clan1" : #sgc.map,"spritexy territoire9b ";534;" ";521 : #sgc.map,"spritexy clan1i ";580;" ";560
        if DecouverteCiv2P1 = 1 then #sgc.map, "SpriteVisible territoire9b on" : #sgc.map, "SpriteVisible clan1i on" : #sgc.map, "spritetofront clan1i"
        if DecouverteCiv2P1 = 0 then #sgc.map, "SpriteVisible territoire9b off" : #sgc.map, "SpriteVisible clan1i off"
    end if
    if territoire9 = 3 then
        #sgc.map, "addsprite territoire9b territoire9b" :#sgc.map, "addsprite clan2i clan2" : #sgc.map,"spritexy territoire9b ";534;" ";521 : #sgc.map,"spritexy clan2i ";580;" ";560
        if DecouverteCiv3P1 = 1 then #sgc.map, "SpriteVisible territoire9b on" : #sgc.map, "SpriteVisible clan2i on" : #sgc.map, "spritetofront clan2i"
        if DecouverteCiv3P1 = 0 then #sgc.map, "SpriteVisible territoire9b off" : #sgc.map, "SpriteVisible clan2i off"
    end if
    if territoire10 = 1 then #sgc.map, "addsprite territoire10a territoire10a" : #sgc.map,"spritexy territoire10a ";494;" ";446 : #sgc.map, "spritetofront territoire10a"
    if territoire10 = 2 then
        #sgc.map, "addsprite territoire10b territoire10b" :#sgc.map, "addsprite clan1j clan1" : #sgc.map,"spritexy territoire10b ";494;" ";446 : #sgc.map,"spritexy clan1j ";545;" ";480
        if DecouverteCiv2P1 = 1 then #sgc.map, "SpriteVisible territoire10b on" : #sgc.map, "SpriteVisible clan1j on" : #sgc.map, "spritetofront clan1j"
        if DecouverteCiv2P1 = 0 then #sgc.map, "SpriteVisible territoire10b off" : #sgc.map, "SpriteVisible clan1j off"
    end if
    if territoire10 = 3 then
        #sgc.map, "addsprite territoire10b territoire10b" :#sgc.map, "addsprite clan2j clan2" : #sgc.map,"spritexy territoire10b ";494;" ";446 : #sgc.map,"spritexy clan2j ";545;" ";480
        if DecouverteCiv3P1 = 1 then #sgc.map, "SpriteVisible territoire10b on" : #sgc.map, "SpriteVisible clan2j on" : #sgc.map, "spritetofront clan2j"
        if DecouverteCiv3P1 = 0 then #sgc.map, "SpriteVisible territoire10b off" : #sgc.map, "SpriteVisible clan2j off"
    end if
    if territoire11 = 1 then #sgc.map, "addsprite territoire11a territoire11a" : #sgc.map,"spritexy territoire11a ";472;" ";366 : #sgc.map, "spritetofront territoire11a"
    if territoire11 = 2 then
        #sgc.map, "addsprite territoire11b territoire11b" :#sgc.map, "addsprite clan1k clan1" : #sgc.map,"spritexy territoire11b ";472;" ";366 : #sgc.map,"spritexy clan1k ";495;" ";410
        if DecouverteCiv2P1 = 1 then #sgc.map, "SpriteVisible territoire11b on" : #sgc.map, "SpriteVisible clan1k on" : #sgc.map, "spritetofront clan1k"
        if DecouverteCiv2P1 = 0 then #sgc.map, "SpriteVisible territoire11b off" : #sgc.map, "SpriteVisible clan1k off"
    end if
    if territoire11 = 3 then
        #sgc.map, "addsprite territoire11b territoire11b" :#sgc.map, "addsprite clan2k clan2" : #sgc.map,"spritexy territoire11b ";472;" ";366 : #sgc.map,"spritexy clan2k ";495;" ";410
        if DecouverteCiv3P1 = 1 then #sgc.map, "SpriteVisible territoire11b on" : #sgc.map, "SpriteVisible clan2k on" : #sgc.map, "spritetofront clan2k"
        if DecouverteCiv3P1 = 0 then #sgc.map, "SpriteVisible territoire11b off" : #sgc.map, "SpriteVisible clan2k off"
    end if
    if territoire12 = 1 then #sgc.map, "addsprite territoire12a territoire12a" : #sgc.map,"spritexy territoire12a ";535;" ";364 : #sgc.map, "spritetofront territoire12a"
    if territoire12 = 2 then
        #sgc.map, "addsprite territoire12b territoire12b" :#sgc.map, "addsprite clan1l clan1" : #sgc.map,"spritexy territoire12b ";535;" ";364 : #sgc.map,"spritexy clan1l ";570;" ";400
        if DecouverteCiv2P1 = 1 then #sgc.map, "SpriteVisible territoire12b on" : #sgc.map, "SpriteVisible clan1l on" : #sgc.map, "spritetofront clan1l"
        if DecouverteCiv2P1 = 0 then #sgc.map, "SpriteVisible territoire12b off" : #sgc.map, "SpriteVisible clan1l off"
    end if
    if territoire12 = 3 then
        #sgc.map, "addsprite territoire12b territoire12b" :#sgc.map, "addsprite clan2l clan2" : #sgc.map,"spritexy territoire12b ";535;" ";364 : #sgc.map,"spritexy clan2l ";570;" ";400
        if DecouverteCiv3P1 = 1 then #sgc.map, "SpriteVisible territoire12b on" : #sgc.map, "SpriteVisible clan2l on" : #sgc.map, "spritetofront clan2l"
        if DecouverteCiv3P1 = 0 then #sgc.map, "SpriteVisible territoire12b off" : #sgc.map, "SpriteVisible clan2l off"
    end if
    if territoire13 = 1 then #sgc.map, "addsprite territoire13a territoire13a" : #sgc.map,"spritexy territoire13a ";476;" ";306 : #sgc.map, "spritetofront territoire13a"
    if territoire13 = 2 then
        #sgc.map, "addsprite territoire13b territoire13b" :#sgc.map, "addsprite clan1m clan1" : #sgc.map,"spritexy territoire13b ";476;" ";306 : #sgc.map,"spritexy clan1m ";515;" ";330
        if DecouverteCiv2P1 = 1 then #sgc.map, "SpriteVisible territoire13b on" : #sgc.map, "SpriteVisible clan1m on" : #sgc.map, "spritetofront clan1m"
        if DecouverteCiv2P1 = 0 then #sgc.map, "SpriteVisible territoire13b off" : #sgc.map, "SpriteVisible clan1m off"
    end if
    if territoire13 = 3 then
        #sgc.map, "addsprite territoire13b territoire13b" :#sgc.map, "addsprite clan2m clan2" : #sgc.map,"spritexy territoire13b ";476;" ";306 : #sgc.map,"spritexy clan2m ";515;" ";330
        if DecouverteCiv3P1 = 1 then #sgc.map, "SpriteVisible territoire13b on" : #sgc.map, "SpriteVisible clan2m on" : #sgc.map, "spritetofront clan2m"
        if DecouverteCiv3P1 = 0 then #sgc.map, "SpriteVisible territoire13b off" : #sgc.map, "SpriteVisible clan2m off"
    end if
    if territoire14 = 1 then #sgc.map, "addsprite territoire14a territoire14a" : #sgc.map,"spritexy territoire14a ";568;" ";307 : #sgc.map, "spritetofront territoire14a"
    if territoire14 = 2 then
        #sgc.map, "addsprite territoire14b territoire14b" :#sgc.map, "addsprite clan1n clan1" : #sgc.map,"spritexy territoire14b ";568;" ";307 : #sgc.map,"spritexy clan1n ";610;" ";330
        if DecouverteCiv2P1 = 1 then #sgc.map, "SpriteVisible territoire14b on" : #sgc.map, "SpriteVisible clan1n on" : #sgc.map, "spritetofront clan1n"
        if DecouverteCiv2P1 = 0 then #sgc.map, "SpriteVisible territoire14b off" : #sgc.map, "SpriteVisible clan1n off"
    end if
    if territoire14 = 3 then
        #sgc.map, "addsprite territoire14b territoire14b" :#sgc.map, "addsprite clan2n clan2" : #sgc.map,"spritexy territoire14b ";568;" ";307 : #sgc.map,"spritexy clan2n ";610;" ";330
        if DecouverteCiv3P1 = 1 then #sgc.map, "SpriteVisible territoire14b on" : #sgc.map, "SpriteVisible clan2n on" : #sgc.map, "spritetofront clan2n"
        if DecouverteCiv3P1 = 0 then #sgc.map, "SpriteVisible territoire14b off" : #sgc.map, "SpriteVisible clan2n off"
    end if
    if territoire15 = 1 then #sgc.map, "addsprite territoire15a territoire15a" : #sgc.map,"spritexy territoire15a ";437;" ";204 : #sgc.map, "spritetofront territoire15a"
    if territoire15 = 2 then
        #sgc.map, "addsprite territoire15b territoire15b" :#sgc.map, "addsprite clan1o clan1" : #sgc.map,"spritexy territoire15b ";437;" ";204 : #sgc.map,"spritexy clan1o ";520;" ";250
        if DecouverteCiv2P1 = 1 then #sgc.map, "SpriteVisible territoire15b on" : #sgc.map, "SpriteVisible clan1o on" : #sgc.map, "spritetofront clan1o"
        if DecouverteCiv2P1 = 0 then #sgc.map, "SpriteVisible territoire15b off" : #sgc.map, "SpriteVisible clan1o off"
    end if
    if territoire15 = 3 then
        #sgc.map, "addsprite territoire15b territoire15b" :#sgc.map, "addsprite clan2o clan2" : #sgc.map,"spritexy territoire15b ";437;" ";204 : #sgc.map,"spritexy clan2o ";520;" ";250
        if DecouverteCiv3P1 = 1 then #sgc.map, "SpriteVisible territoire15b on" : #sgc.map, "SpriteVisible clan2o on" : #sgc.map, "spritetofront clan2o"
        if DecouverteCiv3P1 = 0 then #sgc.map, "SpriteVisible territoire15b off" : #sgc.map, "SpriteVisible clan2o off"
    end if
    errorGAME = 11111111111114
    if territoire16 = 1 then #sgc.map, "addsprite territoire16a territoire16a" : #sgc.map,"spritexy territoire16a ";586;" ";186 : #sgc.map, "spritetofront territoire16a"
    if territoire16 = 2 then
        #sgc.map, "addsprite territoire16b territoire16b" :#sgc.map, "addsprite clan1p clan1" : #sgc.map,"spritexy territoire16b ";586;" ";186 : #sgc.map,"spritexy clan1p ";620;" ";245
        if DecouverteCiv2P1 = 1 then #sgc.map, "SpriteVisible territoire16b on" : #sgc.map, "SpriteVisible clan1p on" : #sgc.map, "spritetofront clan1p"
        if DecouverteCiv2P1 = 0 then #sgc.map, "SpriteVisible territoire16b off" : #sgc.map, "SpriteVisible clan1p off"
    end if
    if territoire16 = 3 then
        #sgc.map, "addsprite territoire16b territoire16b" :#sgc.map, "addsprite clan2p clan2" : #sgc.map,"spritexy territoire16b ";586;" ";186 : #sgc.map,"spritexy clan2p ";620;" ";245
        if DecouverteCiv3P1 = 1 then #sgc.map, "SpriteVisible territoire16b on" : #sgc.map, "SpriteVisible clan2p on" : #sgc.map, "spritetofront clan2p"
        if DecouverteCiv3P1 = 0 then #sgc.map, "SpriteVisible territoire16b off" : #sgc.map, "SpriteVisible clan2p off"
    end if
    if territoire17 = 1 then #sgc.map, "addsprite territoire17a territoire17a" : #sgc.map,"spritexy territoire17a ";676;" ";324 : #sgc.map, "spritetofront territoire17a"
    if territoire17 = 2 then
        #sgc.map, "addsprite territoire17b territoire17b" :#sgc.map, "addsprite clan1q clan1" : #sgc.map,"spritexy territoire17b ";676;" ";324 : #sgc.map,"spritexy clan1q ";725;" ";355
        if DecouverteCiv2P1 = 1 then #sgc.map, "SpriteVisible territoire17b on" : #sgc.map, "SpriteVisible clan1q on" : #sgc.map, "spritetofront clan1q"
        if DecouverteCiv2P1 = 0 then #sgc.map, "SpriteVisible territoire17b off" : #sgc.map, "SpriteVisible clan1q off"
    end if
    if territoire17 = 3 then
        #sgc.map, "addsprite territoire17b territoire17b" :#sgc.map, "addsprite clan2q clan2" : #sgc.map,"spritexy territoire17b ";676;" ";324 : #sgc.map,"spritexy clan2q ";725;" ";355
        if DecouverteCiv3P1 = 1 then #sgc.map, "SpriteVisible territoire17b on" : #sgc.map, "SpriteVisible clan2q on" : #sgc.map, "spritetofront clan2q"
        if DecouverteCiv3P1 = 0 then #sgc.map, "SpriteVisible territoire17b off" : #sgc.map, "SpriteVisible clan2q off"
    end if
    if territoire18 = 1 then #sgc.map, "addsprite territoire18a territoire18a" : #sgc.map,"spritexy territoire18a ";674;" ";266 : #sgc.map, "spritetofront territoire18a"
    if territoire18 = 2 then
        #sgc.map, "addsprite territoire18b territoire18b" :#sgc.map, "addsprite clan1r clan1" : #sgc.map,"spritexy territoire18b ";674;" ";266 : #sgc.map,"spritexy clan1r ";735;" ";275
        if DecouverteCiv2P1 = 1 then #sgc.map, "SpriteVisible territoire18b on" : #sgc.map, "SpriteVisible clan1r on" : #sgc.map, "spritetofront clan1r"
        if DecouverteCiv2P1 = 0 then #sgc.map, "SpriteVisible territoire18b off" : #sgc.map, "SpriteVisible clan1r off"
    end if
    if territoire18 = 3 then
        #sgc.map, "addsprite territoire18b territoire18b" :#sgc.map, "addsprite clan2r clan2" : #sgc.map,"spritexy territoire18b ";674;" ";266 : #sgc.map,"spritexy clan2r ";735;" ";275
        if DecouverteCiv3P1 = 1 then #sgc.map, "SpriteVisible territoire18b on" : #sgc.map, "SpriteVisible clan2r on" : #sgc.map, "spritetofront clan2r"
        if DecouverteCiv3P1 = 0 then #sgc.map, "SpriteVisible territoire18b off" : #sgc.map, "SpriteVisible clan2r off"
    end if
    if territoire19 = 1 then #sgc.map, "addsprite territoire19a territoire17a" : #sgc.map,"spritexy territoire19a ";657;" ";181 : #sgc.map, "spritetofront territoire19a"
    if territoire19 = 2 then
        #sgc.map, "addsprite territoire19b territoire19b" :#sgc.map, "addsprite clan1s clan1" : #sgc.map,"spritexy territoire19b ";657;" ";181 : #sgc.map,"spritexy clan1s ";720;" ";220
        if DecouverteCiv2P1 = 1 then #sgc.map, "SpriteVisible territoire19b on" : #sgc.map, "SpriteVisible clan1s on" : #sgc.map, "spritetofront clan1s"
        if DecouverteCiv2P1 = 0 then #sgc.map, "SpriteVisible territoire19b off" : #sgc.map, "SpriteVisible clan1s off"
    end if
    if territoire19 = 3 then
        #sgc.map, "addsprite territoire19b territoire19b" :#sgc.map, "addsprite clan2s clan2" : #sgc.map,"spritexy territoire19b ";657;" ";181 : #sgc.map,"spritexy clan2s ";720;" ";220
        if DecouverteCiv3P1 = 1 then #sgc.map, "SpriteVisible territoire19b on" : #sgc.map, "SpriteVisible clan2s on" : #sgc.map, "spritetofront clan2s"
        if DecouverteCiv3P1 = 0 then #sgc.map, "SpriteVisible territoire19b off" : #sgc.map, "SpriteVisible clan2s off"
    end if
    if territoire20 = 1 then #sgc.map, "addsprite territoire20a territoire20a" : #sgc.map,"spritexy territoire20a ";800;" ";198 : #sgc.map, "spritetofront territoire20a"
    if territoire20 = 2 then
        #sgc.map, "addsprite territoire20b territoire20b" :#sgc.map, "addsprite clan1t clan1" : #sgc.map,"spritexy territoire20b ";800;" ";198 : #sgc.map,"spritexy clan1t ";840;" ";235
        if DecouverteCiv2P1 = 1 then #sgc.map, "SpriteVisible territoire20b on" : #sgc.map, "SpriteVisible clan1t on" : #sgc.map, "spritetofront clan1t"
        if DecouverteCiv2P1 = 0 then #sgc.map, "SpriteVisible territoire20b off" : #sgc.map, "SpriteVisible clan1t off"
    end if
    if territoire20 = 3 then
        #sgc.map, "addsprite territoire20b territoire20b" :#sgc.map, "addsprite clan2t clan2" : #sgc.map,"spritexy territoire20b ";800;" ";198 : #sgc.map,"spritexy clan2t ";840;" ";235
        if DecouverteCiv3P1 = 1 then #sgc.map, "SpriteVisible territoire20b on" : #sgc.map, "SpriteVisible clan2t on" : #sgc.map, "spritetofront clan2t"
        if DecouverteCiv3P1 = 0 then #sgc.map, "SpriteVisible territoire20b off" : #sgc.map, "SpriteVisible clan2t off"
    end if
    return

    [planeteP1]
    close #sgc
    WindowWidth= 1300 : WindowHeight = 800 : UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2) : zoomPlanete = 1
    bmpbutton #sgc.espionnage, "bmp\game\selection\GAMEstart\HUMANOIDE\espionner.bmp", [infoConsolESPIONNAGE1], UL, P1bisx-35,P1bisy+20
    bmpbutton #sgc.attaquer, "bmp\game\selection\GAMEstart\HUMANOIDE\attaquer.bmp", [infoConso1], UL, P1bisx-35,P1bisy+45
    bmpbutton #sgc.espionnage2, "bmp\game\selection\GAMEstart\HUMANOIDE\espionner.bmp", [infoConsolESPIONNAGE1], UL, P2bisx-35,P2bisy+20
    bmpbutton #sgc.attaquer2, "bmp\game\selection\GAMEstart\HUMANOIDE\attaquer.bmp", [infoConso1], UL, P2bisx-35,P2bisy+45
    button #sgc.vitesse, vitesse$ , [vitesse], UL, 1035, 660, 150, 20
    graphicbox #sgc.map, -5, -5, WindowWidth, WindowHeight
    Open " " for window_nf as #sgc
    #sgc, "trapclose [BackPlaneteP1]"
    print #sgc.espionnage, "hide"
    print #sgc.attaquer, "hide"
    print #sgc.espionnage2, "hide"
    print #sgc.attaquer2, "hide"
    #sgc.map, "setfocus;down;fill black; when leftButtonDown [SimpleClickP1]"
    [territoireREFRESH1]
    errorGAME = 99999999999999999999

    if zoomPlanete = 1 then
        #sgc.map, "drawbmp JBd 00 00; background JBd"
        #sgc.map,"addsprite loca1 loca1; addsprite loca2 loca2" : loca2x=P1bisx : loca2y=P1bisy : #sgc.map,"spritexy loca2 ";loca2x;" ";loca2y
        #sgc.map,"addsprite loca3 loca2" : loca3x=P2bisx : loca3y=P2bisy : #sgc.map,"spritexy loca3 ";loca3x;" ";loca3y
        #sgc.map,"addsprite locaESPION locaESPION; addsprite locaESPION2 locaESPION2; addsprite locaENNEMI locaENNEMI"
        #sgc.map,"spritexy loca1 ";P1x;" ";P1y
        #sgc.map,"spritexy locaESPION ";P1x;" ";P1y
        #sgc.map,"spritexy locaESPION2 ";P1x;" ";P1y
        #sgc.map,"spritexy locaENNEMI ";P1bisx;" ";P1bisy
        territoire = 0 : nomV$ = "territoire" : nom2V$ = "territoire2" : nom3V$ = "territoireIA1" : nom4V$ = "territoireIA2"
        gosub [spritesTerritoires]

        territoireX1 = 228 : territoireY1 = 431 : territoireX2 = 272 : territoireY2 = 491 : territoireX3 = 327 : territoireY3 = 406 : territoireX4 = 372 : territoireY4 = 516
        territoireX5 = 426 : territoireY5 = 330 : territoireX6 = 427 : territoireY6 = 414 : territoireX7 = 461 : territoireY7 = 501 : territoireX8 = 500 : territoireY8 = 590
        territoireX9 = 588 : territoireY9 = 573 : territoireX10 = 554 : territoireY10 = 485 : territoireX11 = 505 : territoireY11 = 425 : territoireX12 = 591 : territoireY12 = 413
        territoireX13 = 527 : territoireY13 = 347 : territoireX14 = 631 : territoireY14 = 341 : territoireX15 = 535 : territoireY15 = 266 : territoireX16 = 629 : territoireY16 = 262
        territoireX17 = 738 : territoireY17 = 366 : territoireX18 = 744 : territoireY18 = 291 : territoireX19 = 741 : territoireY19 = 234 : territoireX20 = 853 : territoireY20 = 248

    hGBox = hwnd(#sgc.map)
    CallDLL #user32, "GetDC",_
        hGBox As ulong,_  'handle of graphicbox
        gDC As ulong      'device context
    CallDLL #gdi32, "SetBkMode",_
        gDC As ulong,_          'handle of graphicbox
        _TRANSPARENT As long,_  'flag for transparent background
        result As long          'previous bkmode
    CallDLL#user32,"ReleaseDC",_
        hGBox As ulong,_    'graphicbox handle
        gDC As ulong,_      'device context
        result As long

        #sgc.map, "spritetofront loca1"
        if IA1Alife1 = 1 then #sgc.map "spritetofront loca2"
        if IA2Alife1 = 1 then #sgc.map "spritetofront loca3"
        #sgc.map, "addsprite porte1 porte1; spritexy porte1 ";porteEx;" ";porteEy
        if porteEtoileP1=1 then print #sgc.map, "SpriteVisible porte1 on"
        if porteEtoileP1=0 then print #sgc.map, "SpriteVisible porte1 off"
        if IA1Alife1 = 1 or IA1Alife1SECU = 1 then #sgc.map, "SpriteVisible loca2 off"
        if IA2Alife1 = 1 or IA2Alife1SECU = 1 then #sgc.map, "SpriteVisible loca3 off"
        #sgc.map, "SpriteVisible locaESPION off; SpriteVisible locaESPION2 off; SpriteVisible locaENNEMI off"
        if nplayerP1>1 and DecouverteCiv2P1 = 1 and IA1Alife1 = 1 then #sgc.map, "SpriteVisible loca2 on"
        if nplayerP1>1 and DecouverteCiv3P1 = 1 and IA2Alife1 = 1 then #sgc.map, "SpriteVisible loca3 on"
        if IA1Alife1 = 0 then #sgc.map,"removesprite loca2"
        if IA2Alife1 = 0 then #sgc.map,"removesprite loca3"
        print #sgc.map, "color black; font Times New Roman 8 italic"
        if language = 0 then print #sgc.map, "place ";P1x-6;" ";P1y-5;" ;\";"Votre ville"
        if language = 1 then print #sgc.map, "place ";P1x-3;" ";P1y-5;" ;\";"Your city"
    end if

    if IA1Alife1SECU = 1 or IA2Alife1SECU = 1 or refreshIAterreCAPTURE = 1 or refreshIA2terreCAPTURE = 1 then refreshIAterreCAPTURE = 0 : refreshIA2terreCAPTURE = 0 : return
    popMILIT = NombreHommeDarme + NombreLancier + NombreFrondeur + NombreArcher + NombreEXPLORATEUR
    goto [time]



    [diplo1]
    CLICKonDIPLO = 1
    print #sgc.map, "font Times New Roman 9; color white"
    if STATUTiam1 > 100 then STATUTiam1 = 100
    if STATUTiam2 > 100 then STATUTiam2 = 100
 '   if STATUTiam1 < 0 then STATUTiam1 = 0
  '  if STATUTiam2 < 0 then STATUTiam2 = 0
    if STATUTiam1 >= 50 then STATUTiam1$ = "En paix"
    if STATUTiam1 < 50 then STATUTiam1$ = "En guerre"
    if STATUTiam2 >= 50 then STATUTiam2$ = "En paix"
    if STATUTiam2 < 50 then STATUTiam2$ = "En guerre"
    if IA1Alife1 = 1 and DecouverteCiv2P1 = 1 then print #sgc.map, "backcolor ";r;" ";v;" ";b;"; place 1030 575 ;\";"Civilisation 1 : "; RaceIAm1$ ; "\            Statut [ ";STATUTiam1$;" ]  ";STATUTiam1
    if IA2Alife1 = 1 and DecouverteCiv3P1 = 1 then print #sgc.map, "backcolor ";r;" ";v;" ";b;"; place 1030 605 ;\";"Civilisation 2 : "; RaceIAm2$ ; "\            Statut [ ";STATUTiam2$;" ]  ";STATUTiam2
    if DecouverteCiv2P1 = 0 and DecouverteCiv3P1 = 0 then print #sgc.map, "backcolor ";r;" ";v;" ";b;"; place 1030 580 ;\";"Rien a signaler "
    return

    [SimpleClickP1]
    mX = MouseX
    mY = MouseY
    'notice mX;" / ";mY
    gosub [closeBAT1gosub]
    attaquant = 0 : securityRELOADcity = 0
    r = 14 : v = 25 : b = 43
    print #sgc.espionnage, "hide"
    print #sgc.attaquer, "hide"
    print #sgc.espionnage2, "hide"
    print #sgc.attaquer2, "hide"
    #sgc.map, "drawsprites"

    if bat1 = 1 then close #bat1
    bat1 = 0
    if rapportWindows = 1 then close #rapport
    rapportWindows = 0
    if fen1 = 1 then close #fen1
    fen1 = 0

    if mX>int(P1x+20) or mX<int(P1x-20) and mX<int(P1bisx-20) or mX>int(P1bisx+20) then WindowWidth=int(DisplayWidth+10) : WindowHeight=int(DisplayHeight+30) : activationJ2 = 0
    if mX>int(P1x+20) or mX<int(P1x-20) and mX<int(P2bisx-20) or mX>int(P2bisx+20) then WindowWidth=int(DisplayWidth+10) : WindowHeight=int(DisplayHeight+30) : activationJ3 = 0

    if mX>740 and mX<890 and mY>560 and mY<605 then
        if villeJ1 = 1 then goto [AnimWindowCloseVilleJ1]
        goto [BackPlaneteP1]
    end if
    if mX>740 and mX<890 and mY>505 and mY<550 and villeJ1 = 0 then goto [exploreMap1]

   ' if mX>65 and mX<185 and mY>530 and mY<575 and villeJ1 = 0 then gosub [diplo1] : wait
    CLICKonDIPLO = 0
    if mX>porteEx-5 and mX<porteEx+25 and mY>porteEy-5 and mY<porteEy+25 and villeJ1 = 0 and porteEtoileP1 = 1 then goto [STARGATEmap1]
    territoire = 0

    activationJ1 = 0
  '  if mX>65 and mX<185 and mY>75 and mY<110 then goto [azerstrretz]
    if mX>int(P1x-10) and mX<int(P1x+40) and mY>int(P1y-10) and mY<int(P1y+20) then
        [azerstrretz]
         WindowWidth=int(DisplayWidth+10) : WindowHeight=int(DisplayHeight+30)
         activationJ2 = 0 : activationJ3 = 0 : activationJ1 = 1
        goto [gotoVILLE]
    end if
    if mX>int(P1bisx-10) and mX<int(P1bisx+40) and mY>int(P1bisy-10) and mY<int(P1bisy+20) and nplayerP1>1 and DecouverteCiv2P1 = 1 and IA1Alife1 = 1 then
         WindowWidth=int(DisplayWidth+10) : WindowHeight=int(DisplayHeight+30)
         activationJ1 = 0 : activationJ2 = 1 : activationJ3 = 0
         #sgc.map, "drawsprites"
         gosub [openCITYe]
         goto [mapFIXrefresh]
    end if

    if mX>int(P2bisx-10) and mX<int(P2bisx+40) and mY>int(P2bisy-10) and mY<int(P2bisy+20) and nplayerP1>1 and DecouverteCiv3P1 = 1 and IA2Alife1 = 1 then
         WindowWidth=int(DisplayWidth+10) : WindowHeight=int(DisplayHeight+30)
         activationJ1 = 0 : activationJ2 = 0 : activationJ3 = 1
         #sgc.map, "drawsprites"
         gosub [openCITYe2]
         goto [mapFIXrefresh]
    end if

    if mX>180 and mX<250 and mY>390 and mY<450 then
       territoire = 1
       LVLterritoire = LVLterritoire1
       INCOMEterritoireFOODsee = INCOMEterritoire1FOOD
       INCOMEterritoireBOISsee = INCOMEterritoire1BOIS
       INCOMEterritoireMETALsee = INCOMEterritoire1METAL
       if territoire1 = 0 then territoirePLAYER$ = "Mère nature"
       if territoire1 = 1 then territoirePLAYER$ = "Vous"
       if territoire1 > 1 then territoirePLAYER$ = "IA mineure"
       goto [GESTIONterritoires] 'print #sgc.territoire1, "show"
    end if
    if mX>240 and mX<300 and mY>470 and mY<520 then
       territoire = 2
       LVLterritoire = LVLterritoire2
       INCOMEterritoireFOODsee = INCOMEterritoire2FOOD
       INCOMEterritoireBOISsee = INCOMEterritoire2BOIS
       INCOMEterritoireMETALsee = INCOMEterritoire2METAL
       if territoire2 = 0 then territoirePLAYER$ = "Mère nature"
       if territoire2 = 1 then territoirePLAYER$ = "Vous"
       if territoire2 > 1 then territoirePLAYER$ = "IA mineure"
       goto [GESTIONterritoires]
    end if
    if mX>285 and mX<375 and mY>355 and mY<440 then
       territoire = 3
       LVLterritoire = LVLterritoire3
       INCOMEterritoireFOODsee = INCOMEterritoire3FOOD
       INCOMEterritoireBOISsee = INCOMEterritoire3BOIS
       INCOMEterritoireMETALsee = INCOMEterritoire3METAL
       if territoire3 = 0 then territoirePLAYER$ = "Mère nature"
       if territoire3 = 1 then territoirePLAYER$ = "Vous"
       if territoire3 > 1 then territoirePLAYER$ = "IA mineure"
       goto [GESTIONterritoires]
    end if
    if mX>325 and mX<400 and mY>470 and mY<540 then
       territoire = 4
       LVLterritoire = LVLterritoire4
       INCOMEterritoireFOODsee = INCOMEterritoire4FOOD
       INCOMEterritoireBOISsee = INCOMEterritoire4BOIS
       INCOMEterritoireMETALsee = INCOMEterritoire4METAL
       if territoire4 = 0 then territoirePLAYER$ = "Mère nature"
       if territoire4 = 1 then territoirePLAYER$ = "Vous"
       if territoire4 > 1 then territoirePLAYER$ = "IA mineure"
       goto [GESTIONterritoires]
    end if
    if mX>385 and mX<470 and mY>280 and mY<360 then
       territoire = 5
       LVLterritoire = LVLterritoire5
       INCOMEterritoireFOODsee = INCOMEterritoire5FOOD
       INCOMEterritoireBOISsee = INCOMEterritoire5BOIS
       INCOMEterritoireMETALsee = INCOMEterritoire5METAL
       if territoire5 = 0 then territoirePLAYER$ = "Mère nature"
       if territoire5 = 1 then territoirePLAYER$ = "Vous"
       if territoire5 > 1 then territoirePLAYER$ = "IA mineure"
       goto [GESTIONterritoires]
    end if
    if mX>390 and mX<460 and mY>380 and mY<450 then
       territoire = 6
       LVLterritoire = LVLterritoire6
       INCOMEterritoireFOODsee = INCOMEterritoire6FOOD
       INCOMEterritoireBOISsee = INCOMEterritoire6BOIS
       INCOMEterritoireMETALsee = INCOMEterritoire6METAL
       if territoire6 = 0 then territoirePLAYER$ = "Mère nature"
       if territoire6 = 1 then territoirePLAYER$ = "Vous"
       if territoire6 > 1 then territoirePLAYER$ = "IA mineure"
       goto [GESTIONterritoires]
    end if
    if mX>430 and mX<490 and mY>460 and mY<540 then
       territoire = 7
       LVLterritoire = LVLterritoire7
       INCOMEterritoireFOODsee = INCOMEterritoire7FOOD
       INCOMEterritoireBOISsee = INCOMEterritoire7BOIS
       INCOMEterritoireMETALsee = INCOMEterritoire7METAL
       if territoire7 = 0 then territoirePLAYER$ = "Mère nature"
       if territoire7 = 1 then territoirePLAYER$ = "Vous"
       if territoire7 > 1 then territoirePLAYER$ = "IA mineure"
       goto [GESTIONterritoires]
    end if
    if mX>440 and mX<540 and mY>570 and mY<600 then
       territoire = 8
       LVLterritoire = LVLterritoire8
       INCOMEterritoireFOODsee = INCOMEterritoire8FOOD
       INCOMEterritoireBOISsee = INCOMEterritoire8BOIS
       INCOMEterritoireMETALsee = INCOMEterritoire8METAL
       if territoire8 = 0 then territoirePLAYER$ = "Mère nature"
       if territoire8 = 1 then territoirePLAYER$ = "Vous"
       if territoire8 > 1 then territoirePLAYER$ = "IA mineure"
       goto [GESTIONterritoires]
    end if
    if mX>550 and mX<640 and mY>550 and mY<600 then
       territoire = 9
       LVLterritoire = LVLterritoire9
       INCOMEterritoireFOODsee = INCOMEterritoire9FOOD
       INCOMEterritoireBOISsee = INCOMEterritoire9BOIS
       INCOMEterritoireMETALsee = INCOMEterritoire9METAL
       if territoire9 = 0 then territoirePLAYER$ = "Mère nature"
       if territoire9 = 1 then territoirePLAYER$ = "Vous"
       if territoire9 > 1 then territoirePLAYER$ = "IA mineure"
       goto [GESTIONterritoires]
    end if
    if mX>515 and mX<600 and mY>460 and mY<520 then
       territoire = 10
       LVLterritoire = LVLterritoire10
       INCOMEterritoireFOODsee = INCOMEterritoire10FOOD
       INCOMEterritoireBOISsee = INCOMEterritoire10BOIS
       INCOMEterritoireMETALsee = INCOMEterritoire10METAL
       if territoire10 = 0 then territoirePLAYER$ = "Mère nature"
       if territoire10 = 1 then territoirePLAYER$ = "Vous"
       if territoire10 > 1 then territoirePLAYER$ = "IA mineure"
       goto [GESTIONterritoires]
    end if
    if mX>480 and mX<530 and mY>380 and mY<450 then
       territoire = 11
       LVLterritoire = LVLterritoire11
       INCOMEterritoireFOODsee = INCOMEterritoire11FOOD
       INCOMEterritoireBOISsee = INCOMEterritoire11BOIS
       INCOMEterritoireMETALsee = INCOMEterritoire11METAL
       if territoire11 = 0 then territoirePLAYER$ = "Mère nature"
       if territoire11 = 1 then territoirePLAYER$ = "Vous"
       if territoire11 > 1 then territoirePLAYER$ = "IA mineure"
       goto [GESTIONterritoires]
    end if
    if mX>550 and mX<650 and mY>380 and mY<440 then
       territoire = 12
       LVLterritoire = LVLterritoire12
       INCOMEterritoireFOODsee = INCOMEterritoire12FOOD
       INCOMEterritoireBOISsee = INCOMEterritoire12BOIS
       INCOMEterritoireMETALsee = INCOMEterritoire12METAL
       if territoire12 = 0 then territoirePLAYER$ = "Mère nature"
       if territoire12 = 1 then territoirePLAYER$ = "Vous"
       if territoire12 > 1 then territoirePLAYER$ = "IA mineure"
       goto [GESTIONterritoires]
    end if
    if mX>480 and mX<560 and mY>310 and mY<370 then
       territoire = 13
       LVLterritoire = LVLterritoire13
       INCOMEterritoireFOODsee = INCOMEterritoire13FOOD
       INCOMEterritoireBOISsee = INCOMEterritoire13BOIS
       INCOMEterritoireMETALsee = INCOMEterritoire13METAL
       if territoire13 = 0 then territoirePLAYER$ = "Mère nature"
       if territoire13 = 1 then territoirePLAYER$ = "Vous"
       if territoire13 > 1 then territoirePLAYER$ = "IA mineure"
       goto [GESTIONterritoires]
    end if
    if mX>590 and mX<680 and mY>310 and mY<370 then
       territoire = 14
       LVLterritoire = LVLterritoire14
       INCOMEterritoireFOODsee = INCOMEterritoire14FOOD
       INCOMEterritoireBOISsee = INCOMEterritoire14BOIS
       INCOMEterritoireMETALsee = INCOMEterritoire14METAL
       if territoire14 = 0 then territoirePLAYER$ = "Mère nature"
       if territoire14 = 1 then territoirePLAYER$ = "Vous"
       if territoire14 > 1 then territoirePLAYER$ = "IA mineure"
       goto [GESTIONterritoires]
    end if
    if mX>470 and mX<590 and mY>220 and mY<300 then
       territoire = 15
       LVLterritoire = LVLterritoire15
       INCOMEterritoireFOODsee = INCOMEterritoire15FOOD
       INCOMEterritoireBOISsee = INCOMEterritoire15BOIS
       INCOMEterritoireMETALsee = INCOMEterritoire15METAL
       if territoire15 = 0 then territoirePLAYER$ = "Mère nature"
       if territoire15 = 1 then territoirePLAYER$ = "Vous"
       if territoire15 > 1 then territoirePLAYER$ = "IA mineure"
       goto [GESTIONterritoires]
    end if
    if mX>600 and mX<660 and mY>205 and mY<300 then
       territoire = 16
       LVLterritoire = LVLterritoire16
       INCOMEterritoireFOODsee = INCOMEterritoire16FOOD
       INCOMEterritoireBOISsee = INCOMEterritoire16BOIS
       INCOMEterritoireMETALsee = INCOMEterritoire16METAL
       if territoire16 = 0 then territoirePLAYER$ = "Mère nature"
       if territoire16 = 1 then territoirePLAYER$ = "Vous"
       if territoire16 > 1 then territoirePLAYER$ = "IA mineure"
       goto [GESTIONterritoires]
    end if
    if mX>700 and mX<780 and mY>330 and mY<430 then
       territoire = 17
       LVLterritoire = LVLterritoire17
       INCOMEterritoireFOODsee = INCOMEterritoire17FOOD
       INCOMEterritoireBOISsee = INCOMEterritoire17BOIS
       INCOMEterritoireMETALsee = INCOMEterritoire17METAL
       if territoire17 = 0 then territoirePLAYER$ = "Mère nature"
       if territoire17 = 1 then territoirePLAYER$ = "Vous"
       if territoire17 > 1 then territoirePLAYER$ = "IA mineure"
       goto [GESTIONterritoires]
    end if
    if mX>680 and mX<810 and mY>280 and mY<320 then
       territoire = 18
       LVLterritoire = LVLterritoire18
       INCOMEterritoireFOODsee = INCOMEterritoire18FOOD
       INCOMEterritoireBOISsee = INCOMEterritoire18BOIS
       INCOMEterritoireMETALsee = INCOMEterritoire18METAL
       if territoire18 = 0 then territoirePLAYER$ = "Mère nature"
       if territoire18 = 1 then territoirePLAYER$ = "Vous"
       if territoire18 > 1 then territoirePLAYER$ = "IA mineure"
       goto [GESTIONterritoires]
    end if
    if mX>700 and mX<800 and mY>200 and mY<270 then
       territoire = 19
       LVLterritoire = LVLterritoire19
       INCOMEterritoireFOODsee = INCOMEterritoire19FOOD
       INCOMEterritoireBOISsee = INCOMEterritoire19BOIS
       INCOMEterritoireMETALsee = INCOMEterritoire19METAL
       if territoire19 = 0 then territoirePLAYER$ = "Mère nature"
       if territoire19 = 1 then territoirePLAYER$ = "Vous"
       if territoire19 > 1 then territoirePLAYER$ = "IA mineure"
       goto [GESTIONterritoires]
    end if
    if mX>815 and mX<900 and mY>210 and mY<290 then
       territoire = 20
       LVLterritoire = LVLterritoire20
       INCOMEterritoireFOODsee = INCOMEterritoire20FOOD
       INCOMEterritoireBOISsee = INCOMEterritoire20BOIS
       INCOMEterritoireMETALsee = INCOMEterritoire20METAL
       if territoire20 = 0 then territoirePLAYER$ = "Mère nature"
       if territoire20 = 1 then territoirePLAYER$ = "Vous"
       if territoire20 > 1 then territoirePLAYER$ = "IA mineure"
       goto [GESTIONterritoires]
    end if

    [mapFIXrefresh]
    if batmurs = 1 then close #murs : batmurs = 0
    if batmines = 1 then close #mines : batmines = 0
    if batscierie = 1 then close #scierie : batscierie = 0
    if ferme = 1 then close #fermage : ferme = 0
    if house = 1 then close #house : house = 0
    if Sm = 1 then close #Sm : Sm = 0
    if openRechearch = 1 then close #recheach : openRechearch = 0
    if Sc = 1 then close #Sc : Sc = 0
    if bp = 1 then close #bp : bp = 0
    #sgc.map, "drawsprites"

    gosub [refreshMAPdata]
    if mX>1030 and mX<1050 and mY>155 and mY<175 then
        if language = 0 then notice " " + chr$(13) + "Ressource : Monnaie" + chr$(13) + "Le système monétaire conduit à la fin de l'ère du troc. L'argent est récolté chaque mois. Chaque habitant donne 1 unité de monnaie. Certaines améliorations permettent d'augmenter ces revenues."
        if language = 1 then notice " " + chr$(13) + "Ressource : Money" + chr$(13) + "The monetary system led to the end of the era of barter. The money is collected every month. Every inhabitant is 1 currency unit. Some improvements can increase these revenues."
    end if
    if mX>1030 and mX<1050 and mY>180 and mY<200 then
        if language = 0 then notice " " + chr$(13) + "Ressource : Bois" + chr$(13) + "Le bois est la première et la plus abondante ressource naturelle dont vous disposez dès le départ. Elle sert à bâtir vos premiers bâtiments. Cette ressource dépend en grande partie de la taille de votre territoire terrestre exploité. (Chaque citoyen non scientifique rapporte 1 unité de bois par jour. Les unités militaires ramènent deux fois plus de bois que les autres)"
        if language = 1 then notice " " + chr$(13) + "Ressource : Wood" + chr$(13) + "Wood is the first and most abundant natural resource you have available from the start. It is used to build your first buildings. This resource depends largely on the size of the exploited land territory. (Each citizen unscientific worth 1 unit of wood per day. Military units bring two times more wood than the others)"
    end if
    if mX>1030 and mX<1050 and mY>205 and mY<225 then
        if language = 0 then notice " " + chr$(13) + "Ressource : Naquada" + chr$(13) + "Le naquada est une ressource rare qui demande de nombreuses techologies pour le raffiner et l'exploiter. Cette ressource est utilisée pour de gros besoins en puissance énergétique (militaire ou civile). Il vous faudra développer les technologies dans le centre de recherche."
        if language = 1 then notice " " + chr$(13) + "Ressource : Naquada" + chr$(13) + "The naquada is a scarce resource that requires many techologies for the refining and exploit it. This resource is used for large energy needs power (military or civilian). You will develop technologies in the research center."
    end if
    if mX>1030 and mX<1050 and mY>230 and mY<250 then
        if language = 0 then notice " " + chr$(13) + "Ressource : Fer" + chr$(13) + "Le minerai de fer est une des ressources principales pour bâtir des batîments et rechercher de nouvelles technologies. Pour avoir cette ressource vous devez préalablement être au mimimum à l'âge de fer et avoir fait les recherches nécéssaires pour permettre l'extraction et le raffinement de ce minerai."
        if language = 1 then notice " " + chr$(13) + "Ressource : Iron" + chr$(13) + "Iron ore is one of the main resources to build batîments and research new technologies. To this resource you must first be at mimimum age of iron and have done the necessary research to enable extraction and refinement of this mineral."
    end if
    if mX>1030 and mX<1050 and mY>295 and mY<315 then
        if language = 0 then notice " " + chr$(13) + "Information : Population totale / Population d'accueil max" + chr$(13) + "Le nombre de gauche représente votre population totale dans la cité. Elle regroupe vos unités non affectées, vos scientifiques et vos soldats. Le nombre de droite représente la population d'acceuil maximale que votre ville vous permet d'avoir. Si cette limite est atteinte, la natalité de votre population sera ramenée à 0."
        if language = 1 then notice " " + chr$(13) + "Information : Total population / Max Home Population" + chr$(13) + "The left number represents your total population in the city. It groups your unassigned units, your scientists and your soldiers. The right number is the maximum population that your Home City enables you to have. If this limit is reached, the birth of your population will be reduced to 0."
    end if
    if mX>1030 and mX<1050 and mY>255 and mY<275 then
        if language = 0 then notice " " + chr$(13) + "Ressource : Nourriture" + chr$(13) + "Cela représente les ressources alimentaires de votre cité. Chaque jour vous perdez 1 unité de ressource par habitant (+1 unité par soldat). Si le stock de ressource est à 0, votre population n'augmentera plus (fertilité 0) et vous ne pourrez plus former de soldat."
        if language = 1 then notice " " + chr$(13) + "Ressource : Food" + chr$(13) + "This represents the food resources of your city. Every day you lose 1 unit of resource per capita (one unit per soldier). If the resource stock is 0, your population will no longer increase (fertility 0) and you can not train a soldier."
    end if
    if mX>1060 and mX<1080 and mY>325 and mY<345 then
        if language = 0 then notice " " + chr$(13) + "Information : unités terrestres militaires" + chr$(13) + "Ceci représente le nombre total de soldat terrestre dont votre cité dispose. Les soldats peuvent être formés et améliorés dans le centre militaire ainsi que dans le centre scientifique. Chaque niveau du centre militaire augmente le maximum de militaire recrutable de 10%."
        if language = 1 then notice " " + chr$(13) + "Information : military ground units" + chr$(13) + "This represents the total number of terrestrial soldier that your city has. The soldiers can be trained and improved in the military center and in the science center. Each level of the military center increases the maximum military recruitable 10%."
    end if
    if mX>1060 and mX<1080 and mY>350 and mY<370 then
        if language = 0 then notice " " + chr$(13) + "Information : unités scientifiques" + chr$(13) + "Une des deux branches principales de votre population. Ils servent à rechercher de nouvelles technologies en générant des points de recherche tous les mois. 3 chercheurs génèrent 1 point de recherche. Chaque niveau du centre de recherche augmente le maximum de scientifique recrutable de 2. (PdR = Point de Recherche)"
        if language = 1 then notice " " + chr$(13) + "Information : scientific units" + chr$(13) + "One of the two main branches of your population. They are used to research new technologies by generating research points every month. 3 researchers generate 1 point for research. Every level of the research center increases the maximum scientific recruitable 2. (PdR = Point of Research)"
    end if
    if mX>1020 and mX<1140 and mY>380 and mY<400 then
        if language = 0 then notice " " + chr$(13) + "Information : population libre" + chr$(13) + "La population libre représente votre population non affectée dans un des deux dommaines principaux - militaire ou scientifique - de votre ville. Ce nombre représente donc le maximum de personnes pouvant être formé, soit en soldat, soit en scientifique. Ce nombre augmente en fonction de votre population totale et de la capacité d'acceuil (logement) de votre ville."
        if language = 1 then notice " " + chr$(13) + "Information : free population" + chr$(13) + "The free population represents your population not affected in one of two main dommaines - military or scientific - your city. This number represents the maximum number of people can be formed either as a soldier or scientist. This number increases as your total population and the home capacity (housing) of your city."
    end if
    if villeJ1 = 1 then goto [AnimWindowCloseVilleJ1]
    timer 1000, [time]
    wait

    [refreshMAPdata]
    r = 12 : v = 25 : b = 43
    print #sgc.map, "font Times New Roman 8 italic"
    print #sgc.map, "color yellow;backcolor ";r;" ";v;" ";b;"; place 1030 550 ;\";"DIPLOMATIE :"
    print #sgc.map, "color white"
    gosub [diplo1]
    print #sgc.map, "font Times New Roman 12 bold; color brown"
    print #sgc.map, "backcolor ";r;" ";v;" ";b;"; place 755 585 ;\";"VUE ORBITALE"
    print #sgc.map, "font Times New Roman 11 bold; color yellow"
    print #sgc.map, "backcolor ";r;" ";v;" ";b;"; place 758 530 ;\";"EXPLORATION"
    print #sgc.map, "font Times New Roman 10; color black"
    if language = 0 then print #sgc.map, "backcolor ";202;" ";232;" ";240;"; place 1030 120 ;\";" Année : ";year;"  | Mois : ";mouths;"  | Jour : ";days;"       "
    if language = 1 then print #sgc.map, "backcolor ";202;" ";232;" ";240;"; place 1030 120 ;\";" Year : ";year;"  | Mouths : ";mouths;"  | Days : ";days;"      "
    print #sgc.map, "color black; font Times New Roman 8 italic"
    if language = 0 then print #sgc.map, "place ";P1x-6;" ";P1y-5;" ;\";"Votre ville"
    if language = 1 then print #sgc.map, "place ";P1x-3;" ";P1y-5;" ;\";"Your city"
    print #sgc.map, "font Times New Roman 8 italic; color yellow"
    print #sgc.map, "backcolor ";r;" ";v;" ";b;"; place 1030 440 ;\";"TERRITOIRES [";nombrePLAYER1territoire;"/20]"
    print #sgc.map, "font Times New Roman 10; color white"
    print #sgc.map, "backcolor ";r;" ";v;" ";b;"; place 1030 470 ;\";INCOMEterritoireFOOD;" nourriture par mois\";INCOMEterritoireBOIS;" bois par mois\";INCOMEterritoireMETAL;" minerais par mois"
    print #sgc.map, "font Times New Roman 8; backcolor white;color white"
    if language = 0 then print #sgc.map, "backcolor ";202;" ";232;" ";240;";color black; place 400 720;\";"Surface terrestre estimée : ";" ";SurfaceTerreP1;" m² ( Vous possédez : ";SurfaceTerreP1j1;" m² )"
    if language = 1 then print #sgc.map, "backcolor ";202;" ";232;" ";240;";color black; place 400 720;\";"Estimated land surface : ";" ";SurfaceTerreP1;" m² ( You control : ";SurfaceTerreP1j1;" m² )"
    print #sgc.map, "font Times New Roman 10; color white"
    print #sgc.map, "backcolor ";14;" ";25;" ";43;"; place 1070 175 ;\"; money; "    "
    if bois = STOCKAGEbois then
        print #sgc.map, "font Times New Roman 10; color red"
        print #sgc.map, "backcolor ";14;" ";25;" ";43;"; place 1070 198 ;\"; bois; " / "; STOCKAGEbois;"    "
        print #sgc.map, "font Times New Roman 10; color white"
    end if
    if bois < STOCKAGEbois then print #sgc.map, "backcolor ";14;" ";25;" ";43;"; place 1070 198 ;\"; bois; " / "; STOCKAGEbois;"    "
    if naqada = STOCKAGEminerais then
        print #sgc.map, "font Times New Roman 10; color red"
        print #sgc.map, "backcolor ";14;" ";25;" ";43;"; place 1070 221 ;\"; naqada; " / "; STOCKAGEminerais;"    "
        print #sgc.map, "font Times New Roman 10; color white"
        else
        print #sgc.map, "backcolor ";14;" ";25;" ";43;"; place 1070 221 ;\"; naqada; " / "; STOCKAGEminerais;"    "
    end if
    if metal = STOCKAGEminerais then
        print #sgc.map, "font Times New Roman 10; color red"
        print #sgc.map, "backcolor ";14;" ";25;" ";43;"; place 1070 244 ;\"; metal; " / "; STOCKAGEminerais;"    "
        print #sgc.map, "font Times New Roman 10; color white"
        else
        print #sgc.map, "backcolor ";14;" ";25;" ";43;"; place 1070 244 ;\"; metal; " / "; STOCKAGEminerais;"    "
    end if
    print #sgc.map, "backcolor ";14;" ";25;" ";43;"; place 1070 312 ;\"; popTOTAL ;" / "; int(placePARhabitationJ1*nombreHabitationJ1+(2*lvlbatimentHabitation));"         "
    if food = STOCKAGEfood then
        print #sgc.map, "font Times New Roman 10; color red"
        print #sgc.map, "backcolor ";14;" ";25;" ";43;"; place 1070 267 ;\"; food; " / "; STOCKAGEfood;"    "
        print #sgc.map, "font Times New Roman 10; color white"
        else
        print #sgc.map, "backcolor ";14;" ";25;" ";43;"; place 1070 267 ;\"; food; " / "; STOCKAGEfood;"    "
    end if
  '  popMILIT = int(NombreHommeDarme + NombreHommeDarmeSELECTED + NombreHommeDarmeTERR1 + NombreHommeDarmeTERR2 + NombreHommeDarmeTERR3 + NombreHommeDarmeTERR4 + NombreHommeDarmeTERR5 + NombreHommeDarmeTERR6 + NombreHommeDarmeTERR7 + NombreHommeDarmeTERR8 + NombreHommeDarmeTERR9 + NombreHommeDarmeTERR10 + NombreHommeDarmeTERR11 + NombreHommeDarmeTERR12 + NombreHommeDarmeTERR13 + NombreHommeDarmeTERR14 + NombreHommeDarmeTERR15 + NombreHommeDarmeTERR16 + NombreHommeDarmeTERR17 + NombreHommeDarmeTERR18 + NombreHommeDarmeTERR19 + NombreHommeDarmeTERR20) + int(NombreLancier + NombreLancierSELECTED + NombreLancierTERR1 + NombreLancierTERR2 + NombreLancierTERR3 + NombreLancierTERR4 + NombreLancierTERR5 + NombreLancierTERR6 + NombreLancierTERR7 + NombreLancierTERR8 + NombreLancierTERR9 + NombreLancierTERR10 + NombreLancierTERR11 + NombreLancierTERR12 + NombreLancierTERR13 + NombreLancierTERR14 + NombreLancierTERR15 + NombreLancierTERR16 + NombreLancierTERR17 + NombreLancierTERR18 + NombreLancierTERR19 + NombreLancierTERR20) + int(NombreFrondeur + NombreFrondeurSELECTED + NombreFrondeurTERR1 + NombreFrondeurTERR2 + NombreFrondeurTERR3 + NombreFrondeurTERR4 + NombreFrondeurTERR5 + NombreFrondeurTERR6 + NombreFrondeurTERR7 + NombreFrondeurTERR8 + NombreFrondeurTERR9 + NombreFrondeurTERR10 + NombreFrondeurTERR11 + NombreFrondeurTERR12 + NombreFrondeurTERR13 + NombreFrondeurTERR14 + NombreFrondeurTERR15 + NombreFrondeurTERR16 + NombreFrondeurTERR17 + NombreFrondeurTERR18 + NombreFrondeurTERR19 + NombreFrondeurTERR20) + int(NombreArcher + NombreArcherSELECTED + NombreArcherTERR1 + NombreArcherTERR2 + NombreArcherTERR3 + NombreArcherTERR4 + NombreArcherTERR5 + NombreArcherTERR6 + NombreArcherTERR7 + NombreArcherTERR8 + NombreArcherTERR9 + NombreArcherTERR10 + NombreArcherTERR11 + NombreArcherTERR12 + NombreArcherTERR13 + NombreArcherTERR14 + NombreArcherTERR15 + NombreArcherTERR16 + NombreArcherTERR17 + NombreArcherTERR18 + NombreArcherTERR19 + NombreArcherTERR20) + int(NombreEXPLORATEUR + NombreEXPLORATEURSELECTED + NombreEXPLORATEURTERR1 + NombreEXPLORATEURTERR2 + NombreEXPLORATEURTERR3 + NombreEXPLORATEURTERR4 + NombreEXPLORATEURTERR5 + NombreEXPLORATEURTERR6 + NombreEXPLORATEURTERR7 + NombreEXPLORATEURTERR8 + NombreEXPLORATEURTERR9 + NombreEXPLORATEURTERR10 + NombreEXPLORATEURTERR11 + NombreEXPLORATEURTERR12 + NombreEXPLORATEURTERR13 + NombreEXPLORATEURTERR14 + NombreEXPLORATEURTERR15 + NombreEXPLORATEURTERR16 + NombreEXPLORATEURTERR17 + NombreEXPLORATEURTERR18 + NombreEXPLORATEURTERR19 + NombreEXPLORATEURTERR20)
    popMILIT = int(NombreHommeDarme + NombreLancier + NombreFrondeur + NombreArcher + NombreEXPLORATEUR)
    print #sgc.map, "backcolor ";14;" ";25;" ";43;"; place 1090 367 ;\"; popMILIT;" / ";popMILITlim;"   "
    print #sgc.map, "backcolor ";14;" ";25;" ";43;"; place 1090 340 ;\"; popSCIENT;" / ";popSCIENTlim;" [ ";RECHEARCHpoint;" ]     "
    popCIVIL = (popTOTAL-(popSCIENT+popMILIT))
    if language = 0 then print #sgc.map, "backcolor ";14;" ";25;" ";43;"; place 1030 395 ;\"; "Population libre : ";popCIVIL;"             "
    if language = 1 then print #sgc.map, "backcolor ";14;" ";25;" ";43;"; place 1030 395 ;\"; "Free population : ";popCIVIL;"             "
    return

    [GESTIONterritoires]
   ' notice NombreHommeDarmeTERR1;" : "; NombreHommeDarmeTERR2;" : "; NombreHommeDarmeTERR3;" : "; NombreHommeDarmeTERR4;" : "; NombreHommeDarmeTERR5;" : "; NombreHommeDarmeTERR6;" : "; NombreHommeDarmeTERR7;" : "; NombreHommeDarmeTERR8;" : "; NombreHommeDarmeTERR9;" : "; NombreHommeDarmeTERR10
    #sgc.map, "drawsprites"
    gosub [refreshMAPdata]
    if bat1 = 1 then close #bat1
    bat1 = 1 : WindowWidth= 500 : WindowHeight= 326
    UpperLeftX=int((DisplayWidth-WindowWidth)/2.4) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
    BackgroundColor$ = "black" : ForegroundColor$ = "white"
    stylebits #bat1.map, 0, _WS_BORDER, 0, 0
    graphicbox #bat1.map, 0, 0, WindowWidth+5, WindowHeight+5
    Open " " for window_popup as #bat1
    #bat1.map, "down;fill black"
    #bat1.map, "drawbmp land 0 0"
    print #bat1.map, "backcolor white;font Times New Roman 12; color black"
    if territoirePLAYER$ = "Vous" then print #bat1.map, "place 310 252 ;\"; "GESTION" : gestionTERRITOIRE = 1
    if territoirePLAYER$ <> "Vous" then print #bat1.map, "place 300 252 ;\"; "ATTAQUER" : gestionTERRITOIRE = 0
    print #bat1.map, "font Times New Roman 8; color black"
    print #bat1.map, "place 65 55 ;\"; "(";territoire;")  ";territoirePLAYER$
    territoireSAV = territoire
    print #bat1.map, "place 360 55 ;\"; POPterritoire
    print #bat1.map, "place 60 199 ;\"; INCOMEterritoireBOISsee;" /mois"
    print #bat1.map, "place 60 247 ;\"; INCOMEterritoireFOODsee;" /mois"
    print #bat1.map, "place 60 295 ;\"; INCOMEterritoireMETALsee;" /mois"
    #bat1.map, "when leftButtonDown [SimpleClickGESTIONterritoires]"
    wait

    [GESTIONterritoires2]
   ' #sgc.map, "drawsprites"
   ' gosub [refreshMAPdata]
    gosub [unitSCANterritoire]
    if bat1 = 1 then close #bat1
    bat1 = 1 : WindowWidth= 500 : WindowHeight= 326
    UpperLeftX=int((DisplayWidth-WindowWidth)/2.4) : UpperLeftY=int((DisplayHeight-WindowHeight)/2) : BackgroundColor$ = "black" : ForegroundColor$ = "black"
    stylebits #bat1.map, 0, _WS_BORDER, 0, 0
    textbox #bat1.unit1, 95, 265, 30, 22
    textbox #bat1.unit2, 170, 265, 30, 22
    textbox #bat1.unit3, 245, 265, 30, 22
    textbox #bat1.unit4, 320, 265, 30, 22
    textbox #bat1.unit5, 395, 265, 30, 22
    bmpbutton #bat1.close, "bmp\game\selection\GAMEstart\HUMANOIDE\fermetureINGame.bmp", [resetUNITterre1], UL, 70, 265
    bmpbutton #bat1.close, "bmp\game\selection\GAMEstart\HUMANOIDE\fermetureINGame.bmp", [resetUNITterre2], UL, 145, 265
    bmpbutton #bat1.close, "bmp\game\selection\GAMEstart\HUMANOIDE\fermetureINGame.bmp", [resetUNITterre3], UL, 220, 265
    bmpbutton #bat1.close, "bmp\game\selection\GAMEstart\HUMANOIDE\fermetureINGame.bmp", [resetUNITterre4], UL, 295, 265
    bmpbutton #bat1.close, "bmp\game\selection\GAMEstart\HUMANOIDE\fermetureINGame.bmp", [resetUNITterre5], UL, 370, 265
    if fortifications =0 then bmpbutton #bat1.no, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\builder2.bmp", [NoMURSrechercher], UL, 65, 170
    if fortifications =1 and LVLfortificationTERRITOIRE = 0 then bmpbutton #bat1.no, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\builder.bmp", [fortificationsTERR], UL, 65, 170
    if fortifications =1 and LVLfortificationTERRITOIRE >= 1 then bmpbutton #bat1.no, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\upgrader.bmp", [fortificationsTERR], UL, 65, 170
    graphicbox #bat1.map, 0, 0, WindowWidth+5, WindowHeight+5
    Open " " for window_popup as #bat1
    #bat1.map, "down;fill black"
    #bat1.map, "drawbmp land2 0 0"
    #bat1.map, "drawbmp land2 0 0"
    #bat1.map, "when leftButtonDown [SimpleClickGESTIONterritoires]"
    print #bat1.map, "backcolor white;font Times New Roman 8; color black"
    BOISterr = int((1+LVLfortificationTERRITOIRE)*3000) : FOODterr = int((1+LVLfortificationTERRITOIRE)*1000)
    print #bat1.map, "place 170 170 ;\"; "Fortifications ";LVLfortificationTERRITOIRE;" (";hpFortificationsTERR;")\Coût Bois : ";BOISterr;"\Coût Nourriture : ";FOODterr';"\Coût Métal : ";METALterr
    print #bat1.map, "place 55 70 ;\"; "Améliorer"
    print #bat1.map, "place 55 97 ;\"; "Améliorer"
    print #bat1.map, "place 55 125 ;\"; "Améliorer"
    print #bat1.map, "place 338 189 ;\"; "Dépôt d'unités"
    print #bat1.map, "place 150 70 ;\"; INCOMEterritoireBOISsee;" /mois       Amélioration : ";int(INCOMEterritoireBOISsee*12.22);" Bois + ";int(INCOMEterritoireBOISsee*7.64);" Nourriture"
    print #bat1.map, "place 150 97 ;\"; INCOMEterritoireFOODsee;" /mois       Amélioration : ";int(INCOMEterritoireFOODsee*8.27);" Bois + ";int(INCOMEterritoireFOODsee*2.27);" Nourriture"
    print #bat1.map, "place 150 125 ;\"; INCOMEterritoireMETALsee;" /mois       Amélioration : ";int(INCOMEterritoireMETALsee*95.18);" Bois + ";int(INCOMEterritoireMETALsee*54.81);" Nourriture"
    print #bat1.map, "backcolor white;font Times New Roman 7; color black"
    print #bat1.map, "place 90 230 ;\"; "(";int(NombreHommeDarme- NombreHommeDarmeSELECTED-(NombreHommeDarmeTERR1+NombreHommeDarmeTERR2+NombreHommeDarmeTERR3+NombreHommeDarmeTERR4+NombreHommeDarmeTERR5+NombreHommeDarmeTERR6+NombreHommeDarmeTERR7+NombreHommeDarmeTERR8+NombreHommeDarmeTERR9+NombreHommeDarmeTERR10+NombreHommeDarmeTERR11+NombreHommeDarmeTERR12+NombreHommeDarmeTERR13+NombreHommeDarmeTERR14+NombreHommeDarmeTERR15+NombreHommeDarmeTERR16+NombreHommeDarmeTERR17+NombreHommeDarmeTERR18+NombreHommeDarmeTERR19+NombreHommeDarmeTERR20));")  ";NombreHommeDarmeTERR;"     "
    print #bat1.map, "place 165 230 ;\"; "(";int(NombreLancier-NombreLancierSELECTED-(NombreLancierTERR1+NombreLancierTERR2+NombreLancierTERR3+NombreLancierTERR4+NombreLancierTERR5+NombreLancierTERR6+NombreLancierTERR7+NombreLancierTERR8+NombreLancierTERR9+NombreLancierTERR10NombreLancierTERR11+NombreLancierTERR12+NombreLancierTERR13+NombreLancierTERR14+NombreLancierTERR15+NombreLancierTERR16+NombreLancierTERR17+NombreLancierTERR18+NombreLancierTERR19+NombreLancierTERR20));")  ";NombreLancierTERR;"     "
    print #bat1.map, "place 240 230 ;\"; "(";int(NombreFrondeur-NombreFrondeurSELECTED-(NombreFrondeurTERR1+NombreFrondeurTERR2+NombreFrondeurTERR3+NombreFrondeurTERR4+NombreFrondeurTERR5+NombreFrondeurTERR6+NombreFrondeurTERR7+NombreFrondeurTERR8+NombreFrondeurTERR9+NombreFrondeurTERR10+NombreFrondeurTERR11+NombreFrondeurTERR12+NombreFrondeurTERR13+NombreFrondeurTERR14+NombreFrondeurTERR15+NombreFrondeurTERR16+NombreFrondeurTERR17+NombreFrondeurTERR18+NombreFrondeurTERR19+NombreFrondeurTERR20));")  ";NombreFrondeurTERR;"     "
    print #bat1.map, "place 315 230 ;\"; "(";int(NombreArcher-NombreArcherSELECTED-(NombreArcherTERR1+NombreArcherTERR2+NombreArcherTERR3+NombreArcherTERR4+NombreArcherTERR5+NombreArcherTERR6+NombreArcherTERR7+NombreArcherTERR8+NombreArcherTERR9+NombreArcherTERR10+NombreArcherTERR11+NombreArcherTERR12+NombreArcherTERR13+NombreArcherTERR14+NombreArcherTERR15+NombreArcherTERR16+NombreArcherTERR17+NombreArcherTERR18+NombreArcherTERR19+NombreArcherTERR20));")  ";NombreArcherTERR;"     "
    print #bat1.map, "place 390 230 ;\"; "(";int(NombreEXPLORATEUR-NombreEXPLORATEURSELECTED-(NombreEXPLORATEURTERR1+NombreEXPLORATEURTERR2+NombreEXPLORATEURTERR3+NombreEXPLORATEURTERR4+NombreEXPLORATEURTERR5+NombreEXPLORATEURTERR6+NombreEXPLORATEURTERR7+NombreEXPLORATEURTERR8+NombreEXPLORATEURTERR9+NombreEXPLORATEURTERR10+NombreEXPLORATEURTERR11+NombreEXPLORATEURTERR12+NombreEXPLORATEURTERR13+NombreEXPLORATEURTERR14+NombreEXPLORATEURTERR15+NombreEXPLORATEURTERR16+NombreEXPLORATEURTERR17+NombreEXPLORATEURTERR18+NombreEXPLORATEURTERR19+NombreEXPLORATEURTERR20));")  ";NombreEXPLORATEURTERR;"     "
    print #bat1.unit1, "!font Times New Roman 7"
    print #bat1.unit2, "!font Times New Roman 7"
    print #bat1.unit3, "!font Times New Roman 7"
    print #bat1.unit4, "!font Times New Roman 7"
    print #bat1.unit5, "!font Times New Roman 7"
    wait

    [fortificationsTERR]
    select case territoireSAV
        case 1
            if bois >= BOISterr and food >= FOODterr then
                bois = bois - BOISterr : food = food - FOODterr
                hpFortificationsTERR1 = hpFortificationsTERR1 + int(250*(LVLfortificationTERRITOIRE1+1))
                LVLfortificationTERRITOIRE1 = LVLfortificationTERRITOIRE1 + 1 : hpFortificationsTERR = hpFortificationsTERR1
            end if
        case 2
            if bois >= BOISterr and food >= FOODterr then
                bois = bois - BOISterr : food = food - FOODterr
                hpFortificationsTERR2 = hpFortificationsTERR2 + int(250*(LVLfortificationTERRITOIRE2+1))
                LVLfortificationTERRITOIRE2 = LVLfortificationTERRITOIRE2 + 1 : hpFortificationsTERR = hpFortificationsTERR2
            end if
        case 3
            if bois >= BOISterr and food >= FOODterr then
                bois = bois - BOISterr : food = food - FOODterr
                hpFortificationsTERR3 = hpFortificationsTERR3 + int(250*(LVLfortificationTERRITOIRE3+1))
                LVLfortificationTERRITOIRE3 = LVLfortificationTERRITOIRE3 + 1 : hpFortificationsTERR = hpFortificationsTERR3
            end if
        case 4
            if bois >= BOISterr and food >= FOODterr then
                bois = bois - BOISterr : food = food - FOODterr
                hpFortificationsTERR4 = hpFortificationsTERR4 + int(250*(LVLfortificationTERRITOIRE4+1))
                LVLfortificationTERRITOIRE4 = LVLfortificationTERRITOIRE4 + 1 : hpFortificationsTERR = hpFortificationsTERR4
            end if
        case 5
            if bois >= BOISterr and food >= FOODterr then
                bois = bois - BOISterr : food = food - FOODterr
                hpFortificationsTERR5 = hpFortificationsTERR5 + int(250*(LVLfortificationTERRITOIRE5+1))
                LVLfortificationTERRITOIRE5 = LVLfortificationTERRITOIRE5 + 1 : hpFortificationsTERR = hpFortificationsTERR5
            end if
        case 6
            if bois >= BOISterr and food >= FOODterr then
                bois = bois - BOISterr : food = food - FOODterr
                hpFortificationsTERR6 = hpFortificationsTERR6 + int(250*(LVLfortificationTERRITOIRE6+1))
                LVLfortificationTERRITOIRE6 = LVLfortificationTERRITOIRE6 + 1 : hpFortificationsTERR = hpFortificationsTERR6
            end if
        case 7
            if bois >= BOISterr and food >= FOODterr then
                bois = bois - BOISterr : food = food - FOODterr
                hpFortificationsTERR7 = hpFortificationsTERR7 + int(250*(LVLfortificationTERRITOIRE7+1))
                LVLfortificationTERRITOIRE7 = LVLfortificationTERRITOIRE7 + 1 : hpFortificationsTERR = hpFortificationsTERR7
            end if
        case 8
            if bois >= BOISterr and food >= FOODterr then
                bois = bois - BOISterr : food = food - FOODterr
                hpFortificationsTERR8 = hpFortificationsTERR8 + int(250*(LVLfortificationTERRITOIRE8+1))
                LVLfortificationTERRITOIRE8 = LVLfortificationTERRITOIRE8 + 1 : hpFortificationsTERR = hpFortificationsTERR8
            end if
        case 9
            if bois >= BOISterr and food >= FOODterr then
                bois = bois - BOISterr : food = food - FOODterr
                hpFortificationsTERR9 = hpFortificationsTERR9 + int(250*(LVLfortificationTERRITOIRE9+1))
                LVLfortificationTERRITOIRE9 = LVLfortificationTERRITOIRE9 + 1 : hpFortificationsTERR = hpFortificationsTERR9
            end if
        case 10
            if bois >= BOISterr and food >= FOODterr then
                bois = bois - BOISterr : food = food - FOODterr
                hpFortificationsTERR9 = hpFortificationsTERR9 + int(250*(LVLfortificationTERRITOIRE9+1))
                LVLfortificationTERRITOIRE9 = LVLfortificationTERRITOIRE9 + 1 : hpFortificationsTERR = hpFortificationsTERR10
            end if
        case 11
            if bois >= BOISterr and food >= FOODterr then
                bois = bois - BOISterr : food = food - FOODterr
                hpFortificationsTERR11 = hpFortificationsTERR11 + int(250*(LVLfortificationTERRITOIRE11+1))
                LVLfortificationTERRITOIRE11 = LVLfortificationTERRITOIRE11 + 1 : hpFortificationsTERR = hpFortificationsTERR11
            end if
        case 12
            if bois >= BOISterr and food >= FOODterr then
                bois = bois - BOISterr : food = food - FOODterr
                hpFortificationsTERR12 = hpFortificationsTERR12 + int(250*(LVLfortificationTERRITOIRE12+1))
                LVLfortificationTERRITOIRE12 = LVLfortificationTERRITOIRE12 + 1 : hpFortificationsTERR = hpFortificationsTERR12
            end if
        case 13
            if bois >= BOISterr and food >= FOODterr then
                bois = bois - BOISterr : food = food - FOODterr
                hpFortificationsTERR13 = hpFortificationsTERR13 + int(250*(LVLfortificationTERRITOIRE13+1))
                LVLfortificationTERRITOIRE13 = LVLfortificationTERRITOIRE13 + 1 : hpFortificationsTERR = hpFortificationsTERR13
            end if
        case 14
            if bois >= BOISterr and food >= FOODterr then
                bois = bois - BOISterr : food = food - FOODterr
                hpFortificationsTERR14 = hpFortificationsTERR14 + int(250*(LVLfortificationTERRITOIRE14+1))
                LVLfortificationTERRITOIRE14 = LVLfortificationTERRITOIRE14 + 1 : hpFortificationsTERR = hpFortificationsTERR14
            end if
        case 15
            if bois >= BOISterr and food >= FOODterr then
                bois = bois - BOISterr : food = food - FOODterr
                hpFortificationsTERR15 = hpFortificationsTERR15 + int(250*(LVLfortificationTERRITOIRE15+1))
                LVLfortificationTERRITOIRE15 = LVLfortificationTERRITOIRE15 + 1 : hpFortificationsTERR = hpFortificationsTERR15
            end if
        case 16
            if bois >= BOISterr and food >= FOODterr then
                bois = bois - BOISterr : food = food - FOODterr
                hpFortificationsTERR16 = hpFortificationsTERR16 + int(250*(LVLfortificationTERRITOIRE16+1))
                LVLfortificationTERRITOIRE16 = LVLfortificationTERRITOIRE16 + 1 : hpFortificationsTERR = hpFortificationsTERR16
            end if
        case 17
            if bois >= BOISterr and food >= FOODterr then
                bois = bois - BOISterr : food = food - FOODterr
                hpFortificationsTERR17 = hpFortificationsTERR17 + int(250*(LVLfortificationTERRITOIRE17+1))
                LVLfortificationTERRITOIRE17 = LVLfortificationTERRITOIRE17 + 1 : hpFortificationsTERR = hpFortificationsTERR17
            end if
        case 18
            if bois >= BOISterr and food >= FOODterr then
                bois = bois - BOISterr : food = food - FOODterr
                hpFortificationsTERR18 = hpFortificationsTERR18 + int(250*(LVLfortificationTERRITOIRE18+1))
                LVLfortificationTERRITOIRE18 = LVLfortificationTERRITOIRE18 + 1 : hpFortificationsTERR = hpFortificationsTERR18
            end if
        case 19
            if bois >= BOISterr and food >= FOODterr then
                bois = bois - BOISterr : food = food - FOODterr
                hpFortificationsTERR19 = hpFortificationsTERR19 + int(250*(LVLfortificationTERRITOIRE19+1))
                LVLfortificationTERRITOIRE19 = LVLfortificationTERRITOIRE19 + 1 : hpFortificationsTERR = hpFortificationsTERR19
            end if
        case 20
            if bois >= BOISterr and food >= FOODterr then
                bois = bois - BOISterr : food = food - FOODterr
                hpFortificationsTERR20 = hpFortificationsTERR20 + int(250*(LVLfortificationTERRITOIRE20+1))
                LVLfortificationTERRITOIRE20 = LVLfortificationTERRITOIRE20 + 1 : hpFortificationsTERR = hpFortificationsTERR20
            end if
    end select
    goto [GESTIONterritoires2]

    [unitSCANterritoire]
    select case territoire
        case 1
            hpFortificationsTERR = hpFortificationsTERR1 : LVLfortificationTERRITOIRE = LVLfortificationTERRITOIRE1 : NombreHommeDarmeTERR = NombreHommeDarmeTERR1 : NombreLancierTERR = NombreLancierTERR1 : NombreFrondeurTERR = NombreFrondeurTERR1 : NombreArcherTERR = NombreArcherTERR1 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR1
        case 2
            hpFortificationsTERR = hpFortificationsTERR2 : LVLfortificationTERRITOIRE = LVLfortificationTERRITOIRE2 : NombreHommeDarmeTERR = NombreHommeDarmeTERR2 : NombreLancierTERR = NombreLancierTERR2 : NombreFrondeurTERR = NombreFrondeurTERR2 : NombreArcherTERR = NombreArcherTERR2 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR2
        case 3
            hpFortificationsTERR = hpFortificationsTERR3 : LVLfortificationTERRITOIRE = LVLfortificationTERRITOIRE3 : NombreHommeDarmeTERR = NombreHommeDarmeTERR3 : NombreLancierTERR = NombreLancierTERR3 : NombreFrondeurTERR = NombreFrondeurTERR3 : NombreArcherTERR = NombreArcherTERR3 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR3
        case 4
            hpFortificationsTERR = hpFortificationsTERR4 : LVLfortificationTERRITOIRE = LVLfortificationTERRITOIRE4 : NombreHommeDarmeTERR = NombreHommeDarmeTERR4 : NombreLancierTERR = NombreLancierTERR4 : NombreFrondeurTERR = NombreFrondeurTERR4 : NombreArcherTERR = NombreArcherTERR4 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR4
        case 5
            hpFortificationsTERR = hpFortificationsTERR5 : LVLfortificationTERRITOIRE = LVLfortificationTERRITOIRE5 : NombreHommeDarmeTERR = NombreHommeDarmeTERR5 : NombreLancierTERR = NombreLancierTERR5 : NombreFrondeurTERR = NombreFrondeurTERR5 : NombreArcherTERR = NombreArcherTERR5 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR5
        case 6
            hpFortificationsTERR = hpFortificationsTERR6 : LVLfortificationTERRITOIRE = LVLfortificationTERRITOIRE6 : NombreHommeDarmeTERR = NombreHommeDarmeTERR6 : NombreLancierTERR = NombreLancierTERR6 : NombreFrondeurTERR = NombreFrondeurTERR6 : NombreArcherTERR = NombreArcherTERR6 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR6
        case 7
            hpFortificationsTERR = hpFortificationsTERR7 : LVLfortificationTERRITOIRE = LVLfortificationTERRITOIRE7 : NombreHommeDarmeTERR = NombreHommeDarmeTERR7 : NombreLancierTERR = NombreLancierTERR7 : NombreFrondeurTERR = NombreFrondeurTERR7 : NombreArcherTERR = NombreArcherTERR7 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR7
        case 8
            hpFortificationsTERR = hpFortificationsTERR8 : LVLfortificationTERRITOIRE = LVLfortificationTERRITOIRE8 : NombreHommeDarmeTERR = NombreHommeDarmeTERR8 : NombreLancierTERR = NombreLancierTERR8 : NombreFrondeurTERR = NombreFrondeurTERR8 : NombreArcherTERR = NombreArcherTERR8 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR8
        case 9
            hpFortificationsTERR = hpFortificationsTERR9 : LVLfortificationTERRITOIRE = LVLfortificationTERRITOIRE9 : NombreHommeDarmeTERR = NombreHommeDarmeTERR9 : NombreLancierTERR = NombreLancierTERR9 : NombreFrondeurTERR = NombreFrondeurTERR9 : NombreArcherTERR = NombreArcherTERR9 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR9
        case 10
            hpFortificationsTERR = hpFortificationsTERR10 : LVLfortificationTERRITOIRE = LVLfortificationTERRITOIRE10 : NombreHommeDarmeTERR = NombreHommeDarmeTERR10 : NombreLancierTERR = NombreLancierTERR10 : NombreFrondeurTERR = NombreFrondeurTERR10 : NombreArcherTERR = NombreArcherTERR10 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR10
        case 11
            hpFortificationsTERR = hpFortificationsTERR11 : LVLfortificationTERRITOIRE = LVLfortificationTERRITOIRE11 : NombreHommeDarmeTERR = NombreHommeDarmeTERR11 : NombreLancierTERR = NombreLancierTERR11 : NombreFrondeurTERR = NombreFrondeurTERR11 : NombreArcherTERR = NombreArcherTERR11 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR11
        case 12
            hpFortificationsTERR = hpFortificationsTERR12 : LVLfortificationTERRITOIRE = LVLfortificationTERRITOIRE12 : NombreHommeDarmeTERR = NombreHommeDarmeTERR12 : NombreLancierTERR = NombreLancierTERR12 : NombreFrondeurTERR = NombreFrondeurTERR12 : NombreArcherTERR = NombreArcherTERR12 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR12
        case 13
            hpFortificationsTERR = hpFortificationsTERR13 : LVLfortificationTERRITOIRE = LVLfortificationTERRITOIRE13 : NombreHommeDarmeTERR = NombreHommeDarmeTERR13 : NombreLancierTERR = NombreLancierTERR13 : NombreFrondeurTERR = NombreFrondeurTERR13 : NombreArcherTERR = NombreArcherTERR13 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR13
        case 14
            hpFortificationsTERR = hpFortificationsTERR14 : LVLfortificationTERRITOIRE = LVLfortificationTERRITOIRE14 : NombreHommeDarmeTERR = NombreHommeDarmeTERR14 : NombreLancierTERR = NombreLancierTERR14 : NombreFrondeurTERR = NombreFrondeurTERR14 : NombreArcherTERR = NombreArcherTERR14 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR14
        case 15
            hpFortificationsTERR = hpFortificationsTERR15 : LVLfortificationTERRITOIRE = LVLfortificationTERRITOIRE15 : NombreHommeDarmeTERR = NombreHommeDarmeTERR15 : NombreLancierTERR = NombreLancierTERR15 : NombreFrondeurTERR = NombreFrondeurTERR15 : NombreArcherTERR = NombreArcherTERR15 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR15
        case 16
            hpFortificationsTERR = hpFortificationsTERR16 : LVLfortificationTERRITOIRE = LVLfortificationTERRITOIRE16 : NombreHommeDarmeTERR = NombreHommeDarmeTERR16 : NombreLancierTERR = NombreLancierTERR16 : NombreFrondeurTERR = NombreFrondeurTERR16 : NombreArcherTERR = NombreArcherTERR16 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR16
        case 17
            hpFortificationsTERR = hpFortificationsTERR17 : LVLfortificationTERRITOIRE = LVLfortificationTERRITOIRE17 : NombreHommeDarmeTERR = NombreHommeDarmeTERR17 : NombreLancierTERR = NombreLancierTERR17 : NombreFrondeurTERR = NombreFrondeurTERR17 : NombreArcherTERR = NombreArcherTERR17 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR17
        case 18
            hpFortificationsTERR = hpFortificationsTERR18 : LVLfortificationTERRITOIRE = LVLfortificationTERRITOIRE18 : NombreHommeDarmeTERR = NombreHommeDarmeTERR18 : NombreLancierTERR = NombreLancierTERR18 : NombreFrondeurTERR = NombreFrondeurTERR18 : NombreArcherTERR = NombreArcherTERR18 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR18
        case 19
            hpFortificationsTERR = hpFortificationsTERR19 : LVLfortificationTERRITOIRE = LVLfortificationTERRITOIRE19 : NombreHommeDarmeTERR = NombreHommeDarmeTERR19 : NombreLancierTERR = NombreLancierTERR19 : NombreFrondeurTERR = NombreFrondeurTERR19 : NombreArcherTERR = NombreArcherTERR19 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR19
        case 20
            hpFortificationsTERR = hpFortificationsTERR20 : LVLfortificationTERRITOIRE = LVLfortificationTERRITOIRE20 : NombreHommeDarmeTERR = NombreHommeDarmeTERR20 : NombreLancierTERR = NombreLancierTERR20 : NombreFrondeurTERR = NombreFrondeurTERR20 : NombreArcherTERR = NombreArcherTERR20 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR20
    end select
    return

    [resetUNITterre1]
    select case territoire
        case 1
            NombreHommeDarmeTERR1 = 0 : NombreHommeDarmeTERR = NombreHommeDarmeTERR1
        case 2
            NombreHommeDarmeTERR2 = 0 : NombreHommeDarmeTERR = NombreHommeDarmeTERR2
        case 3
            NombreHommeDarmeTERR3 = 0 : NombreHommeDarmeTERR = NombreHommeDarmeTERR3
        case 4
            NombreHommeDarmeTERR4 = 0 : NombreHommeDarmeTERR = NombreHommeDarmeTERR4
        case 5
            NombreHommeDarmeTERR5 = 0 : NombreHommeDarmeTERR = NombreHommeDarmeTERR5
        case 6
            NombreHommeDarmeTERR6 = 0 : NombreHommeDarmeTERR = NombreHommeDarmeTERR6
        case 7
            NombreHommeDarmeTERR7 = 0 : NombreHommeDarmeTERR = NombreHommeDarmeTERR7
        case 8
            NombreHommeDarmeTERR8 = 0 : NombreHommeDarmeTERR = NombreHommeDarmeTERR8
        case 9
            NombreHommeDarmeTERR9 = 0 : NombreHommeDarmeTERR = NombreHommeDarmeTERR9
        case 10
            NombreHommeDarmeTERR10 = 0 : NombreHommeDarmeTERR = NombreHommeDarmeTERR10
        case 11
            NombreHommeDarmeTERR11 = 0 : NombreHommeDarmeTERR = NombreHommeDarmeTERR11
        case 12
            NombreHommeDarmeTERR12 = 0 : NombreHommeDarmeTERR = NombreHommeDarmeTERR12
        case 13
            NombreHommeDarmeTERR13 = 0 : NombreHommeDarmeTERR = NombreHommeDarmeTERR13
        case 14
            NombreHommeDarmeTERR14 = 0 : NombreHommeDarmeTERR = NombreHommeDarmeTERR14
        case 15
            NombreHommeDarmeTERR15 = 0 : NombreHommeDarmeTERR = NombreHommeDarmeTERR15
        case 16
            NombreHommeDarmeTERR16 = 0 : NombreHommeDarmeTERR = NombreHommeDarmeTERR16
        case 17
            NombreHommeDarmeTERR17 = 0 : NombreHommeDarmeTERR = NombreHommeDarmeTERR17
        case 18
            NombreHommeDarmeTERR18 = 0 : NombreHommeDarmeTERR = NombreHommeDarmeTERR18
        case 19
            NombreHommeDarmeTERR19 = 0 : NombreHommeDarmeTERR = NombreHommeDarmeTERR19
        case 20
            NombreHommeDarmeTERR20 = 0 : NombreHommeDarmeTERR = NombreHommeDarmeTERR20
    end select
    goto [endUNITterr]

    [resetUNITterre2]
    select case territoire
        case 1
            NombreLancierTERR1 = 0 : NombreLancierTERR = NombreLancierTERR1
        case 2
            NombreLancierTERR2 = 0 : NombreLancierTERR = NombreLancierTERR2
        case 3
            NombreLancierTERR3 = 0 : NombreLancierTERR = NombreLancierTERR3
        case 4
            NombreLancierTERR4 = 0 : NombreLancierTERR = NombreLancierTERR4
        case 5
            NombreLancierTERR5 = 0 : NombreLancierTERR = NombreLancierTERR5
        case 6
            NombreLancierTERR6 = 0 : NombreLancierTERR = NombreLancierTERR6
        case 7
            NombreLancierTERR7 = 0 : NombreLancierTERR = NombreLancierTERR7
        case 8
            NombreLancierTERR8 = 0 : NombreLancierTERR = NombreLancierTERR8
        case 9
            NombreLancierTERR9 = 0 : NombreLancierTERR = NombreLancierTERR9
        case 10
            NombreLancierTERR10 = 0 : NombreLancierTERR = NombreLancierTERR10
        case 11
            NombreLancierTERR11 = 0 : NombreLancierTERR = NombreLancierTERR11
        case 12
            NombreLancierTERR12 = 0 : NombreLancierTERR = NombreLancierTERR12
        case 13
            NombreLancierTERR13 = 0 : NombreLancierTERR = NombreLancierTERR13
        case 14
            NombreLancierTERR14 = 0 : NombreLancierTERR = NombreLancierTERR14
        case 15
            NombreLancierTERR15 = 0 : NombreLancierTERR = NombreLancierTERR15
        case 16
            NombreLancierTERR16 = 0 : NombreLancierTERR = NombreLancierTERR16
        case 17
            NombreLancierTERR17 = 0 : NombreLancierTERR = NombreLancierTERR17
        case 18
            NombreLancierTERR18 = 0 : NombreLancierTERR = NombreLancierTERR18
        case 19
            NombreLancierTERR19 = 0 : NombreLancierTERR = NombreLancierTERR19
        case 20
            NombreLancierTERR20 = 0 : NombreLancierTERR = NombreLancierTERR20
    end select
    goto [endUNITterr]

    [resetUNITterre3]
    select case territoire
        case 1
            NombreFrondeurTERR1 = 0 : NombreFrondeurTERR = NombreFrondeurTERR1
        case 2
            NombreFrondeurTERR2 = 0 : NombreFrondeurTERR = NombreFrondeurTERR2
        case 3
            NombreFrondeurTERR3 = 0 : NombreFrondeurTERR = NombreFrondeurTERR3
        case 4
            NombreFrondeurTERR4 = 0 : NombreFrondeurTERR = NombreFrondeurTERR4
        case 5
            NombreFrondeurTERR5 = 0 : NombreFrondeurTERR = NombreFrondeurTERR5
        case 6
            NombreFrondeurTERR6 = 0 : NombreFrondeurTERR = NombreFrondeurTERR6
        case 7
            NombreFrondeurTERR7 = 0 : NombreFrondeurTERR = NombreFrondeurTERR7
        case 8
            NombreFrondeurTERR8 = 0 : NombreFrondeurTERR = NombreFrondeurTERR8
        case 9
            NombreFrondeurTERR9 = 0 : NombreFrondeurTERR = NombreFrondeurTERR9
        case 10
            NombreFrondeurTERR10 = 0 : NombreFrondeurTERR = NombreFrondeurTERR10
        case 11
            NombreFrondeurTERR11 = 0 : NombreFrondeurTERR = NombreFrondeurTERR11
        case 12
            NombreFrondeurTERR12 = 0 : NombreFrondeurTERR = NombreFrondeurTERR12
        case 13
            NombreFrondeurTERR13 = 0 : NombreFrondeurTERR = NombreFrondeurTERR13
        case 14
            NombreFrondeurTERR14 = 0 : NombreFrondeurTERR = NombreFrondeurTERR14
        case 15
            NombreFrondeurTERR15 = 0 : NombreFrondeurTERR = NombreFrondeurTERR15
        case 16
            NombreFrondeurTERR16 = 0 : NombreFrondeurTERR = NombreFrondeurTERR16
        case 17
            NombreFrondeurTERR17 = 0 : NombreFrondeurTERR = NombreFrondeurTERR17
        case 18
            NombreFrondeurTERR18 = 0 : NombreFrondeurTERR = NombreFrondeurTERR18
        case 19
            NombreFrondeurTERR19 = 0 : NombreFrondeurTERR = NombreFrondeurTERR19
        case 20
            NombreFrondeurTERR20 = 0 : NombreFrondeurTERR = NombreFrondeurTERR20
    end select
    goto [endUNITterr]

    [resetUNITterre4]
    select case territoire
        case 1
            NombreArcherTERR1 = 0 : NombreArcherTERR = NombreArcherTERR1
        case 2
            NombreArcherTERR2 = 0 : NombreArcherTERR = NombreArcherTERR2
        case 3
            NombreArcherTERR3 = 0 : NombreArcherTERR = NombreArcherTERR3
        case 4
            NombreArcherTERR4 = 0 : NombreArcherTERR = NombreArcherTERR4
        case 5
            NombreArcherTERR5 = 0 : NombreArcherTERR = NombreArcherTERR5
        case 6
            NombreArcherTERR6 = 0 : NombreArcherTERR = NombreArcherTERR6
        case 7
            NombreArcherTERR7 = 0 : NombreArcherTERR = NombreArcherTERR7
        case 8
            NombreArcherTERR8 = 0 : NombreArcherTERR = NombreArcherTERR8
        case 9
            NombreArcherTERR9 = 0 : NombreArcherTERR = NombreArcherTERR9
        case 10
            NombreArcherTERR10 = 0 : NombreArcherTERR = NombreArcherTERR10
        case 11
            NombreArcherTERR11 = 0 : NombreArcherTERR = NombreArcherTERR11
        case 12
            NombreArcherTERR12 = 0 : NombreArcherTERR = NombreArcherTERR12
        case 13
            NombreArcherTERR13 = 0 : NombreArcherTERR = NombreArcherTERR13
        case 14
            NombreArcherTERR14 = 0 : NombreArcherTERR = NombreArcherTERR14
        case 15
            NombreArcherTERR15 = 0 : NombreArcherTERR = NombreArcherTERR15
        case 16
            NombreArcherTERR16 = 0 : NombreArcherTERR = NombreArcherTERR16
        case 17
            NombreArcherTERR17 = 0 : NombreArcherTERR = NombreArcherTERR17
        case 18
            NombreArcherTERR18 = 0 : NombreArcherTERR = NombreArcherTERR18
        case 19
            NombreArcherTERR19 = 0 : NombreArcherTERR = NombreArcherTERR19
        case 20
            NombreArcherTERR20 = 0 : NombreArcherTERR = NombreArcherTERR20
    end select
    goto [endUNITterr]

    [resetUNITterre5]
    select case territoire
        case 1
            NombreEXPLORATEURTERR1 = 0 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR1
        case 2
            NombreEXPLORATEURTERR2 = 0 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR2
        case 3
            NombreEXPLORATEURTERR3 = 0 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR3
        case 4
            NombreEXPLORATEURTERR4 = 0 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR4
        case 5
            NombreEXPLORATEURTERR5 = 0 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR5
        case 6
            NombreEXPLORATEURTERR6 = 0 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR6
        case 7
            NombreEXPLORATEURTERR7 = 0 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR7
        case 8
            NombreEXPLORATEURTERR8 = 0 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR8
        case 9
            NombreEXPLORATEURTERR9 = 0 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR9
        case 10
            NombreEXPLORATEURTERR10 = 0 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR10
        case 11
            NombreEXPLORATEURTERR11 = 0 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR11
        case 12
            NombreEXPLORATEURTERR12 = 0 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR12
        case 13
            NombreEXPLORATEURTERR13 = 0 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR13
        case 14
            NombreEXPLORATEURTERR14 = 0 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR14
        case 15
            NombreEXPLORATEURTERR15 = 0 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR15
        case 16
            NombreEXPLORATEURTERR16 = 0 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR16
        case 17
            NombreEXPLORATEURTERR17 = 0 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR17
        case 18
            NombreEXPLORATEURTERR18 = 0 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR18
        case 19
            NombreEXPLORATEURTERR19 = 0 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR19
        case 20
            NombreEXPLORATEURTERR20 = 0 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR20
    end select
    goto [endUNITterr]

    [ajoutUNITterre]
    print #bat1.unit1, "!contents? unitT1$" : print #bat1.unit2, "!contents? unitT2$" : print #bat1.unit3, "!contents? unitT3$" : print #bat1.unit4, "!contents? unitT4$" : print #bat1.unit5, "!contents? unitT5$"
    NombreHommeDarmeTERR = val(unitT1$) : NombreLancierTERR = val(unitT2$) : NombreFrondeurTERR = val(unitT3$) : NombreArcherTERR = val(unitT4$) : NombreEXPLORATEURTERR = val(unitT5$)
    select case territoire
        case 1
            if int(NombreHommeDarme - NombreHommeDarmeSELECTED - (NombreHommeDarmeTERR1+NombreHommeDarmeTERR2+NombreHommeDarmeTERR3+NombreHommeDarmeTERR4+NombreHommeDarmeTERR5+NombreHommeDarmeTERR6+NombreHommeDarmeTERR7+NombreHommeDarmeTERR8+NombreHommeDarmeTERR9+NombreHommeDarmeTERR10+NombreHommeDarmeTERR11+NombreHommeDarmeTERR12+NombreHommeDarmeTERR13+NombreHommeDarmeTERR14+NombreHommeDarmeTERR15+NombreHommeDarmeTERR16+NombreHommeDarmeTERR17+NombreHommeDarmeTERR18+NombreHommeDarmeTERR19+NombreHommeDarmeTERR20)) >= NombreHommeDarmeTERR then NombreHommeDarmeTERR1 = NombreHommeDarmeTERR1 + NombreHommeDarmeTERR
            if int(NombreLancier - NombreLancierSELECTED - (NombreLancierTERR1+NombreLancierTERR2+NombreLancierTERR3+NombreLancierTERR4+NombreLancierTERR5+NombreLancierTERR6+NombreLancierTERR7+NombreLancierTERR8+NombreLancierTERR9+NombreLancierTERR10NombreLancierTERR11+NombreLancierTERR12+NombreLancierTERR13+NombreLancierTERR14+NombreLancierTERR15+NombreLancierTERR16+NombreLancierTERR17+NombreLancierTERR18+NombreLancierTERR19+NombreLancierTERR20)) >= NombreLancierTERR then NombreLancierTERR1 = NombreLancierTERR1 + NombreLancierTERR
            if int(NombreFrondeur - NombreFrondeurSELECTED - (NombreFrondeurTERR1+NombreFrondeurTERR2+NombreFrondeurTERR3+NombreFrondeurTERR4+NombreFrondeurTERR5+NombreFrondeurTERR6+NombreFrondeurTERR7+NombreFrondeurTERR8+NombreFrondeurTERR9+NombreFrondeurTERR10+NombreFrondeurTERR11+NombreFrondeurTERR12+NombreFrondeurTERR13+NombreFrondeurTERR14+NombreFrondeurTERR15+NombreFrondeurTERR16+NombreFrondeurTERR17+NombreFrondeurTERR18+NombreFrondeurTERR19+NombreFrondeurTERR20)) >= NombreFrondeurTERR then NombreFrondeurTERR1 = NombreFrondeurTERR1 + NombreFrondeurTERR
            if int(NombreArcher - NombreArcherSELECTED - (NombreArcherTERR1+NombreArcherTERR2+NombreArcherTERR3+NombreArcherTERR4+NombreArcherTERR5+NombreArcherTERR6+NombreArcherTERR7+NombreArcherTERR8+NombreArcherTERR9+NombreArcherTERR10+NombreArcherTERR11+NombreArcherTERR12+NombreArcherTERR13+NombreArcherTERR14+NombreArcherTERR15+NombreArcherTERR16+NombreArcherTERR17+NombreArcherTERR18+NombreArcherTERR19+NombreArcherTERR20)) >= NombreArcherTERR then NombreArcherTERR1 = NombreArcherTERR1 + NombreArcherTERR
            if int(NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - (NombreEXPLORATEURTERR1+NombreEXPLORATEURTERR2+NombreEXPLORATEURTERR3+NombreEXPLORATEURTERR4+NombreEXPLORATEURTERR5+NombreEXPLORATEURTERR6+NombreEXPLORATEURTERR7+NombreEXPLORATEURTERR8+NombreEXPLORATEURTERR9+NombreEXPLORATEURTERR10+NombreEXPLORATEURTERR11+NombreEXPLORATEURTERR12+NombreEXPLORATEURTERR13+NombreEXPLORATEURTERR14+NombreEXPLORATEURTERR15+NombreEXPLORATEURTERR16+NombreEXPLORATEURTERR17+NombreEXPLORATEURTERR18+NombreEXPLORATEURTERR19+NombreEXPLORATEURTERR20)) >= NombreEXPLORATEURTERR then NombreEXPLORATEURTERR1 = NombreEXPLORATEURTERR1 + NombreEXPLORATEURTERR
            NombreHommeDarmeTERR = NombreHommeDarmeTERR1 : NombreLancierTERR = NombreLancierTERR1 : NombreFrondeurTERR = NombreFrondeurTERR1 : NombreArcherTERR = NombreArcherTERR1 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR1
        case 2
            if int(NombreHommeDarme - NombreHommeDarmeSELECTED - (NombreHommeDarmeTERR1+NombreHommeDarmeTERR2+NombreHommeDarmeTERR3+NombreHommeDarmeTERR4+NombreHommeDarmeTERR5+NombreHommeDarmeTERR6+NombreHommeDarmeTERR7+NombreHommeDarmeTERR8+NombreHommeDarmeTERR9+NombreHommeDarmeTERR10+NombreHommeDarmeTERR11+NombreHommeDarmeTERR12+NombreHommeDarmeTERR13+NombreHommeDarmeTERR14+NombreHommeDarmeTERR15+NombreHommeDarmeTERR16+NombreHommeDarmeTERR17+NombreHommeDarmeTERR18+NombreHommeDarmeTERR19+NombreHommeDarmeTERR20)) >= NombreHommeDarmeTERR then NombreHommeDarmeTERR2 = NombreHommeDarmeTERR2 + NombreHommeDarmeTERR
            if int(NombreLancier - NombreLancierSELECTED - (NombreLancierTERR1+NombreLancierTERR2+NombreLancierTERR3+NombreLancierTERR4+NombreLancierTERR5+NombreLancierTERR6+NombreLancierTERR7+NombreLancierTERR8+NombreLancierTERR9+NombreLancierTERR10NombreLancierTERR11+NombreLancierTERR12+NombreLancierTERR13+NombreLancierTERR14+NombreLancierTERR15+NombreLancierTERR16+NombreLancierTERR17+NombreLancierTERR18+NombreLancierTERR19+NombreLancierTERR20)) >= NombreLancierTERR then NombreLancierTERR2 = NombreLancierTERR2 + NombreLancierTERR
            if int(NombreFrondeur - NombreFrondeurSELECTED - (NombreFrondeurTERR1+NombreFrondeurTERR2+NombreFrondeurTERR3+NombreFrondeurTERR4+NombreFrondeurTERR5+NombreFrondeurTERR6+NombreFrondeurTERR7+NombreFrondeurTERR8+NombreFrondeurTERR9+NombreFrondeurTERR10+NombreFrondeurTERR11+NombreFrondeurTERR12+NombreFrondeurTERR13+NombreFrondeurTERR14+NombreFrondeurTERR15+NombreFrondeurTERR16+NombreFrondeurTERR17+NombreFrondeurTERR18+NombreFrondeurTERR19+NombreFrondeurTERR20)) >= NombreFrondeurTERR then NombreFrondeurTERR2 = NombreFrondeurTERR2 + NombreFrondeurTERR
            if int(NombreArcher - NombreArcherSELECTED - (NombreArcherTERR1+NombreArcherTERR2+NombreArcherTERR3+NombreArcherTERR4+NombreArcherTERR5+NombreArcherTERR6+NombreArcherTERR7+NombreArcherTERR8+NombreArcherTERR9+NombreArcherTERR10+NombreArcherTERR11+NombreArcherTERR12+NombreArcherTERR13+NombreArcherTERR14+NombreArcherTERR15+NombreArcherTERR16+NombreArcherTERR17+NombreArcherTERR18+NombreArcherTERR19+NombreArcherTERR20)) >= NombreArcherTERR then NombreArcherTERR2 = NombreArcherTERR2 + NombreArcherTERR
            if int(NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - (NombreEXPLORATEURTERR1+NombreEXPLORATEURTERR2+NombreEXPLORATEURTERR3+NombreEXPLORATEURTERR4+NombreEXPLORATEURTERR5+NombreEXPLORATEURTERR6+NombreEXPLORATEURTERR7+NombreEXPLORATEURTERR8+NombreEXPLORATEURTERR9+NombreEXPLORATEURTERR10+NombreEXPLORATEURTERR11+NombreEXPLORATEURTERR12+NombreEXPLORATEURTERR13+NombreEXPLORATEURTERR14+NombreEXPLORATEURTERR15+NombreEXPLORATEURTERR16+NombreEXPLORATEURTERR17+NombreEXPLORATEURTERR18+NombreEXPLORATEURTERR19+NombreEXPLORATEURTERR20)) >= NombreEXPLORATEURTERR then NombreEXPLORATEURTERR2 = NombreEXPLORATEURTERR2 + NombreEXPLORATEURTERR
            NombreHommeDarmeTERR = NombreHommeDarmeTERR2 : NombreLancierTERR = NombreLancierTERR2 : NombreFrondeurTERR = NombreFrondeurTERR2 : NombreArcherTERR = NombreArcherTERR2 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR2
        case 3
            if int(NombreHommeDarme - NombreHommeDarmeSELECTED - (NombreHommeDarmeTERR1+NombreHommeDarmeTERR2+NombreHommeDarmeTERR3+NombreHommeDarmeTERR4+NombreHommeDarmeTERR5+NombreHommeDarmeTERR6+NombreHommeDarmeTERR7+NombreHommeDarmeTERR8+NombreHommeDarmeTERR9+NombreHommeDarmeTERR10+NombreHommeDarmeTERR11+NombreHommeDarmeTERR12+NombreHommeDarmeTERR13+NombreHommeDarmeTERR14+NombreHommeDarmeTERR15+NombreHommeDarmeTERR16+NombreHommeDarmeTERR17+NombreHommeDarmeTERR18+NombreHommeDarmeTERR19+NombreHommeDarmeTERR20)) >= NombreHommeDarmeTERR then NombreHommeDarmeTERR3 = NombreHommeDarmeTERR3 + NombreHommeDarmeTERR
            if int(NombreLancier - NombreLancierSELECTED - (NombreLancierTERR1+NombreLancierTERR2+NombreLancierTERR3+NombreLancierTERR4+NombreLancierTERR5+NombreLancierTERR6+NombreLancierTERR7+NombreLancierTERR8+NombreLancierTERR9+NombreLancierTERR10NombreLancierTERR11+NombreLancierTERR12+NombreLancierTERR13+NombreLancierTERR14+NombreLancierTERR15+NombreLancierTERR16+NombreLancierTERR17+NombreLancierTERR18+NombreLancierTERR19+NombreLancierTERR20)) >= NombreLancierTERR then NombreLancierTERR3 = NombreLancierTERR3 + NombreLancierTERR
            if int(NombreFrondeur - NombreFrondeurSELECTED - (NombreFrondeurTERR1+NombreFrondeurTERR2+NombreFrondeurTERR3+NombreFrondeurTERR4+NombreFrondeurTERR5+NombreFrondeurTERR6+NombreFrondeurTERR7+NombreFrondeurTERR8+NombreFrondeurTERR9+NombreFrondeurTERR10+NombreFrondeurTERR11+NombreFrondeurTERR12+NombreFrondeurTERR13+NombreFrondeurTERR14+NombreFrondeurTERR15+NombreFrondeurTERR16+NombreFrondeurTERR17+NombreFrondeurTERR18+NombreFrondeurTERR19+NombreFrondeurTERR20)) >= NombreFrondeurTERR then NombreFrondeurTERR3 = NombreFrondeurTERR3 + NombreFrondeurTERR
            if int(NombreArcher - NombreArcherSELECTED - (NombreArcherTERR1+NombreArcherTERR2+NombreArcherTERR3+NombreArcherTERR4+NombreArcherTERR5+NombreArcherTERR6+NombreArcherTERR7+NombreArcherTERR8+NombreArcherTERR9+NombreArcherTERR10+NombreArcherTERR11+NombreArcherTERR12+NombreArcherTERR13+NombreArcherTERR14+NombreArcherTERR15+NombreArcherTERR16+NombreArcherTERR17+NombreArcherTERR18+NombreArcherTERR19+NombreArcherTERR20)) >= NombreArcherTERR then NombreArcherTERR3 = NombreArcherTERR3 + NombreArcherTERR
            if int(NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - (NombreEXPLORATEURTERR1+NombreEXPLORATEURTERR2+NombreEXPLORATEURTERR3+NombreEXPLORATEURTERR4+NombreEXPLORATEURTERR5+NombreEXPLORATEURTERR6+NombreEXPLORATEURTERR7+NombreEXPLORATEURTERR8+NombreEXPLORATEURTERR9+NombreEXPLORATEURTERR10+NombreEXPLORATEURTERR11+NombreEXPLORATEURTERR12+NombreEXPLORATEURTERR13+NombreEXPLORATEURTERR14+NombreEXPLORATEURTERR15+NombreEXPLORATEURTERR16+NombreEXPLORATEURTERR17+NombreEXPLORATEURTERR18+NombreEXPLORATEURTERR19+NombreEXPLORATEURTERR20)) >= NombreEXPLORATEURTERR then NombreEXPLORATEURTERR3 = NombreEXPLORATEURTERR3 + NombreEXPLORATEURTERR
            NombreHommeDarmeTERR = NombreHommeDarmeTERR3 : NombreLancierTERR = NombreLancierTERR3 : NombreFrondeurTERR = NombreFrondeurTERR3 : NombreArcherTERR = NombreArcherTERR3 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR3
        case 4
            if int(NombreHommeDarme - NombreHommeDarmeSELECTED - (NombreHommeDarmeTERR1+NombreHommeDarmeTERR2+NombreHommeDarmeTERR3+NombreHommeDarmeTERR4+NombreHommeDarmeTERR5+NombreHommeDarmeTERR6+NombreHommeDarmeTERR7+NombreHommeDarmeTERR8+NombreHommeDarmeTERR9+NombreHommeDarmeTERR10+NombreHommeDarmeTERR11+NombreHommeDarmeTERR12+NombreHommeDarmeTERR13+NombreHommeDarmeTERR14+NombreHommeDarmeTERR15+NombreHommeDarmeTERR16+NombreHommeDarmeTERR17+NombreHommeDarmeTERR18+NombreHommeDarmeTERR19+NombreHommeDarmeTERR20)) >= NombreHommeDarmeTERR then NombreHommeDarmeTERR4 = NombreHommeDarmeTERR4 + NombreHommeDarmeTERR
            if int(NombreLancier - NombreLancierSELECTED - (NombreLancierTERR1+NombreLancierTERR2+NombreLancierTERR3+NombreLancierTERR4+NombreLancierTERR5+NombreLancierTERR6+NombreLancierTERR7+NombreLancierTERR8+NombreLancierTERR9+NombreLancierTERR10NombreLancierTERR11+NombreLancierTERR12+NombreLancierTERR13+NombreLancierTERR14+NombreLancierTERR15+NombreLancierTERR16+NombreLancierTERR17+NombreLancierTERR18+NombreLancierTERR19+NombreLancierTERR20)) >= NombreLancierTERR then NombreLancierTERR4 = NombreLancierTERR4 + NombreLancierTERR
            if int(NombreFrondeur - NombreFrondeurSELECTED - (NombreFrondeurTERR1+NombreFrondeurTERR2+NombreFrondeurTERR3+NombreFrondeurTERR4+NombreFrondeurTERR5+NombreFrondeurTERR6+NombreFrondeurTERR7+NombreFrondeurTERR8+NombreFrondeurTERR9+NombreFrondeurTERR10+NombreFrondeurTERR11+NombreFrondeurTERR12+NombreFrondeurTERR13+NombreFrondeurTERR14+NombreFrondeurTERR15+NombreFrondeurTERR16+NombreFrondeurTERR17+NombreFrondeurTERR18+NombreFrondeurTERR19+NombreFrondeurTERR20)) >= NombreFrondeurTERR then NombreFrondeurTERR4 = NombreFrondeurTERR4 + NombreFrondeurTERR
            if int(NombreArcher - NombreArcherSELECTED - (NombreArcherTERR1+NombreArcherTERR2+NombreArcherTERR3+NombreArcherTERR4+NombreArcherTERR5+NombreArcherTERR6+NombreArcherTERR7+NombreArcherTERR8+NombreArcherTERR9+NombreArcherTERR10+NombreArcherTERR11+NombreArcherTERR12+NombreArcherTERR13+NombreArcherTERR14+NombreArcherTERR15+NombreArcherTERR16+NombreArcherTERR17+NombreArcherTERR18+NombreArcherTERR19+NombreArcherTERR20)) >= NombreArcherTERR then NombreArcherTERR4 = NombreArcherTERR4 + NombreArcherTERR
            if int(NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - (NombreEXPLORATEURTERR1+NombreEXPLORATEURTERR2+NombreEXPLORATEURTERR3+NombreEXPLORATEURTERR4+NombreEXPLORATEURTERR5+NombreEXPLORATEURTERR6+NombreEXPLORATEURTERR7+NombreEXPLORATEURTERR8+NombreEXPLORATEURTERR9+NombreEXPLORATEURTERR10+NombreEXPLORATEURTERR11+NombreEXPLORATEURTERR12+NombreEXPLORATEURTERR13+NombreEXPLORATEURTERR14+NombreEXPLORATEURTERR15+NombreEXPLORATEURTERR16+NombreEXPLORATEURTERR17+NombreEXPLORATEURTERR18+NombreEXPLORATEURTERR19+NombreEXPLORATEURTERR20)) >= NombreEXPLORATEURTERR then NombreEXPLORATEURTERR4 = NombreEXPLORATEURTERR4 + NombreEXPLORATEURTERR
            NombreHommeDarmeTERR = NombreHommeDarmeTERR4 : NombreLancierTERR = NombreLancierTERR4 : NombreFrondeurTERR = NombreFrondeurTERR4 : NombreArcherTERR = NombreArcherTERR4 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR4
        case 5
            if int(NombreHommeDarme - NombreHommeDarmeSELECTED - (NombreHommeDarmeTERR1+NombreHommeDarmeTERR2+NombreHommeDarmeTERR3+NombreHommeDarmeTERR4+NombreHommeDarmeTERR5+NombreHommeDarmeTERR6+NombreHommeDarmeTERR7+NombreHommeDarmeTERR8+NombreHommeDarmeTERR9+NombreHommeDarmeTERR10+NombreHommeDarmeTERR11+NombreHommeDarmeTERR12+NombreHommeDarmeTERR13+NombreHommeDarmeTERR14+NombreHommeDarmeTERR15+NombreHommeDarmeTERR16+NombreHommeDarmeTERR17+NombreHommeDarmeTERR18+NombreHommeDarmeTERR19+NombreHommeDarmeTERR20)) >= NombreHommeDarmeTERR then NombreHommeDarmeTERR5 = NombreHommeDarmeTERR5 + NombreHommeDarmeTERR
            if int(NombreLancier - NombreLancierSELECTED - (NombreLancierTERR1+NombreLancierTERR2+NombreLancierTERR3+NombreLancierTERR4+NombreLancierTERR5+NombreLancierTERR6+NombreLancierTERR7+NombreLancierTERR8+NombreLancierTERR9+NombreLancierTERR10NombreLancierTERR11+NombreLancierTERR12+NombreLancierTERR13+NombreLancierTERR14+NombreLancierTERR15+NombreLancierTERR16+NombreLancierTERR17+NombreLancierTERR18+NombreLancierTERR19+NombreLancierTERR20)) >= NombreLancierTERR then NombreLancierTERR5 = NombreLancierTERR5 + NombreLancierTERR
            if int(NombreFrondeur - NombreFrondeurSELECTED - (NombreFrondeurTERR1+NombreFrondeurTERR2+NombreFrondeurTERR3+NombreFrondeurTERR4+NombreFrondeurTERR5+NombreFrondeurTERR6+NombreFrondeurTERR7+NombreFrondeurTERR8+NombreFrondeurTERR9+NombreFrondeurTERR10+NombreFrondeurTERR11+NombreFrondeurTERR12+NombreFrondeurTERR13+NombreFrondeurTERR14+NombreFrondeurTERR15+NombreFrondeurTERR16+NombreFrondeurTERR17+NombreFrondeurTERR18+NombreFrondeurTERR19+NombreFrondeurTERR20)) >= NombreFrondeurTERR then NombreFrondeurTERR5 = NombreFrondeurTERR5 + NombreFrondeurTERR
            if int(NombreArcher - NombreArcherSELECTED - (NombreArcherTERR1+NombreArcherTERR2+NombreArcherTERR3+NombreArcherTERR4+NombreArcherTERR5+NombreArcherTERR6+NombreArcherTERR7+NombreArcherTERR8+NombreArcherTERR9+NombreArcherTERR10+NombreArcherTERR11+NombreArcherTERR12+NombreArcherTERR13+NombreArcherTERR14+NombreArcherTERR15+NombreArcherTERR16+NombreArcherTERR17+NombreArcherTERR18+NombreArcherTERR19+NombreArcherTERR20)) >= NombreArcherTERR then NombreArcherTERR5 = NombreArcherTERR5 + NombreArcherTERR
            if int(NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - (NombreEXPLORATEURTERR1+NombreEXPLORATEURTERR2+NombreEXPLORATEURTERR3+NombreEXPLORATEURTERR4+NombreEXPLORATEURTERR5+NombreEXPLORATEURTERR6+NombreEXPLORATEURTERR7+NombreEXPLORATEURTERR8+NombreEXPLORATEURTERR9+NombreEXPLORATEURTERR10+NombreEXPLORATEURTERR11+NombreEXPLORATEURTERR12+NombreEXPLORATEURTERR13+NombreEXPLORATEURTERR14+NombreEXPLORATEURTERR15+NombreEXPLORATEURTERR16+NombreEXPLORATEURTERR17+NombreEXPLORATEURTERR18+NombreEXPLORATEURTERR19+NombreEXPLORATEURTERR20)) >= NombreEXPLORATEURTERR then NombreEXPLORATEURTERR5 = NombreEXPLORATEURTERR5 + NombreEXPLORATEURTERR
            NombreHommeDarmeTERR = NombreHommeDarmeTERR5 : NombreLancierTERR = NombreLancierTERR5 : NombreFrondeurTERR = NombreFrondeurTERR5 : NombreArcherTERR = NombreArcherTERR5 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR5
        case 6
            if int(NombreHommeDarme - NombreHommeDarmeSELECTED - (NombreHommeDarmeTERR1+NombreHommeDarmeTERR2+NombreHommeDarmeTERR3+NombreHommeDarmeTERR4+NombreHommeDarmeTERR5+NombreHommeDarmeTERR6+NombreHommeDarmeTERR7+NombreHommeDarmeTERR8+NombreHommeDarmeTERR9+NombreHommeDarmeTERR10+NombreHommeDarmeTERR11+NombreHommeDarmeTERR12+NombreHommeDarmeTERR13+NombreHommeDarmeTERR14+NombreHommeDarmeTERR15+NombreHommeDarmeTERR16+NombreHommeDarmeTERR17+NombreHommeDarmeTERR18+NombreHommeDarmeTERR19+NombreHommeDarmeTERR20)) >= NombreHommeDarmeTERR then NombreHommeDarmeTERR6 = NombreHommeDarmeTERR6 + NombreHommeDarmeTERR
            if int(NombreLancier - NombreLancierSELECTED - (NombreLancierTERR1+NombreLancierTERR2+NombreLancierTERR3+NombreLancierTERR4+NombreLancierTERR5+NombreLancierTERR6+NombreLancierTERR7+NombreLancierTERR8+NombreLancierTERR9+NombreLancierTERR10NombreLancierTERR11+NombreLancierTERR12+NombreLancierTERR13+NombreLancierTERR14+NombreLancierTERR15+NombreLancierTERR16+NombreLancierTERR17+NombreLancierTERR18+NombreLancierTERR19+NombreLancierTERR20)) >= NombreLancierTERR then NombreLancierTERR6 = NombreLancierTERR6 + NombreLancierTERR
            if int(NombreFrondeur - NombreFrondeurSELECTED - (NombreFrondeurTERR1+NombreFrondeurTERR2+NombreFrondeurTERR3+NombreFrondeurTERR4+NombreFrondeurTERR5+NombreFrondeurTERR6+NombreFrondeurTERR7+NombreFrondeurTERR8+NombreFrondeurTERR9+NombreFrondeurTERR10+NombreFrondeurTERR11+NombreFrondeurTERR12+NombreFrondeurTERR13+NombreFrondeurTERR14+NombreFrondeurTERR15+NombreFrondeurTERR16+NombreFrondeurTERR17+NombreFrondeurTERR18+NombreFrondeurTERR19+NombreFrondeurTERR20)) >= NombreFrondeurTERR then NombreFrondeurTERR6 = NombreFrondeurTERR6 + NombreFrondeurTERR
            if int(NombreArcher - NombreArcherSELECTED - (NombreArcherTERR1+NombreArcherTERR2+NombreArcherTERR3+NombreArcherTERR4+NombreArcherTERR5+NombreArcherTERR6+NombreArcherTERR7+NombreArcherTERR8+NombreArcherTERR9+NombreArcherTERR10+NombreArcherTERR11+NombreArcherTERR12+NombreArcherTERR13+NombreArcherTERR14+NombreArcherTERR15+NombreArcherTERR16+NombreArcherTERR17+NombreArcherTERR18+NombreArcherTERR19+NombreArcherTERR20)) >= NombreArcherTERR then NombreArcherTERR6 = NombreArcherTERR6 + NombreArcherTERR
            if int(NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - (NombreEXPLORATEURTERR1+NombreEXPLORATEURTERR2+NombreEXPLORATEURTERR3+NombreEXPLORATEURTERR4+NombreEXPLORATEURTERR5+NombreEXPLORATEURTERR6+NombreEXPLORATEURTERR7+NombreEXPLORATEURTERR8+NombreEXPLORATEURTERR9+NombreEXPLORATEURTERR10+NombreEXPLORATEURTERR11+NombreEXPLORATEURTERR12+NombreEXPLORATEURTERR13+NombreEXPLORATEURTERR14+NombreEXPLORATEURTERR15+NombreEXPLORATEURTERR16+NombreEXPLORATEURTERR17+NombreEXPLORATEURTERR18+NombreEXPLORATEURTERR19+NombreEXPLORATEURTERR20)) >= NombreEXPLORATEURTERR then NombreEXPLORATEURTERR6 = NombreEXPLORATEURTERR6 + NombreEXPLORATEURTERR
            NombreHommeDarmeTERR = NombreHommeDarmeTERR6 : NombreLancierTERR = NombreLancierTERR6 : NombreFrondeurTERR = NombreFrondeurTERR6 : NombreArcherTERR = NombreArcherTERR6 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR6
        case 7
            if int(NombreHommeDarme - NombreHommeDarmeSELECTED - (NombreHommeDarmeTERR1+NombreHommeDarmeTERR2+NombreHommeDarmeTERR3+NombreHommeDarmeTERR4+NombreHommeDarmeTERR5+NombreHommeDarmeTERR6+NombreHommeDarmeTERR7+NombreHommeDarmeTERR8+NombreHommeDarmeTERR9+NombreHommeDarmeTERR10+NombreHommeDarmeTERR11+NombreHommeDarmeTERR12+NombreHommeDarmeTERR13+NombreHommeDarmeTERR14+NombreHommeDarmeTERR15+NombreHommeDarmeTERR16+NombreHommeDarmeTERR17+NombreHommeDarmeTERR18+NombreHommeDarmeTERR19+NombreHommeDarmeTERR20)) >= NombreHommeDarmeTERR then NombreHommeDarmeTERR7 = NombreHommeDarmeTERR7 + NombreHommeDarmeTERR
            if int(NombreLancier - NombreLancierSELECTED - (NombreLancierTERR1+NombreLancierTERR2+NombreLancierTERR3+NombreLancierTERR4+NombreLancierTERR5+NombreLancierTERR6+NombreLancierTERR7+NombreLancierTERR8+NombreLancierTERR9+NombreLancierTERR10NombreLancierTERR11+NombreLancierTERR12+NombreLancierTERR13+NombreLancierTERR14+NombreLancierTERR15+NombreLancierTERR16+NombreLancierTERR17+NombreLancierTERR18+NombreLancierTERR19+NombreLancierTERR20)) >= NombreLancierTERR then NombreLancierTERR7 = NombreLancierTERR7 + NombreLancierTERR
            if int(NombreFrondeur - NombreFrondeurSELECTED - (NombreFrondeurTERR1+NombreFrondeurTERR2+NombreFrondeurTERR3+NombreFrondeurTERR4+NombreFrondeurTERR5+NombreFrondeurTERR6+NombreFrondeurTERR7+NombreFrondeurTERR8+NombreFrondeurTERR9+NombreFrondeurTERR10+NombreFrondeurTERR11+NombreFrondeurTERR12+NombreFrondeurTERR13+NombreFrondeurTERR14+NombreFrondeurTERR15+NombreFrondeurTERR16+NombreFrondeurTERR17+NombreFrondeurTERR18+NombreFrondeurTERR19+NombreFrondeurTERR20)) >= NombreFrondeurTERR then NombreFrondeurTERR7 = NombreFrondeurTERR7 + NombreFrondeurTERR
            if int(NombreArcher - NombreArcherSELECTED - (NombreArcherTERR1+NombreArcherTERR2+NombreArcherTERR3+NombreArcherTERR4+NombreArcherTERR5+NombreArcherTERR6+NombreArcherTERR7+NombreArcherTERR8+NombreArcherTERR9+NombreArcherTERR10+NombreArcherTERR11+NombreArcherTERR12+NombreArcherTERR13+NombreArcherTERR14+NombreArcherTERR15+NombreArcherTERR16+NombreArcherTERR17+NombreArcherTERR18+NombreArcherTERR19+NombreArcherTERR20)) >= NombreArcherTERR then NombreArcherTERR7 = NombreArcherTERR7 + NombreArcherTERR
            if int(NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - (NombreEXPLORATEURTERR1+NombreEXPLORATEURTERR2+NombreEXPLORATEURTERR3+NombreEXPLORATEURTERR4+NombreEXPLORATEURTERR5+NombreEXPLORATEURTERR6+NombreEXPLORATEURTERR7+NombreEXPLORATEURTERR8+NombreEXPLORATEURTERR9+NombreEXPLORATEURTERR10+NombreEXPLORATEURTERR11+NombreEXPLORATEURTERR12+NombreEXPLORATEURTERR13+NombreEXPLORATEURTERR14+NombreEXPLORATEURTERR15+NombreEXPLORATEURTERR16+NombreEXPLORATEURTERR17+NombreEXPLORATEURTERR18+NombreEXPLORATEURTERR19+NombreEXPLORATEURTERR20)) >= NombreEXPLORATEURTERR then NombreEXPLORATEURTERR7 = NombreEXPLORATEURTERR7 + NombreEXPLORATEURTERR
            NombreHommeDarmeTERR = NombreHommeDarmeTERR7 : NombreLancierTERR = NombreLancierTERR7 : NombreFrondeurTERR = NombreFrondeurTERR7 : NombreArcherTERR = NombreArcherTERR7 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR7
        case 8
            if int(NombreHommeDarme - NombreHommeDarmeSELECTED - (NombreHommeDarmeTERR1+NombreHommeDarmeTERR2+NombreHommeDarmeTERR3+NombreHommeDarmeTERR4+NombreHommeDarmeTERR5+NombreHommeDarmeTERR6+NombreHommeDarmeTERR7+NombreHommeDarmeTERR8+NombreHommeDarmeTERR9+NombreHommeDarmeTERR10+NombreHommeDarmeTERR11+NombreHommeDarmeTERR12+NombreHommeDarmeTERR13+NombreHommeDarmeTERR14+NombreHommeDarmeTERR15+NombreHommeDarmeTERR16+NombreHommeDarmeTERR17+NombreHommeDarmeTERR18+NombreHommeDarmeTERR19+NombreHommeDarmeTERR20)) >= NombreHommeDarmeTERR then NombreHommeDarmeTERR8 = NombreHommeDarmeTERR8 + NombreHommeDarmeTERR
            if int(NombreLancier - NombreLancierSELECTED - (NombreLancierTERR1+NombreLancierTERR2+NombreLancierTERR3+NombreLancierTERR4+NombreLancierTERR5+NombreLancierTERR6+NombreLancierTERR7+NombreLancierTERR8+NombreLancierTERR9+NombreLancierTERR10NombreLancierTERR11+NombreLancierTERR12+NombreLancierTERR13+NombreLancierTERR14+NombreLancierTERR15+NombreLancierTERR16+NombreLancierTERR17+NombreLancierTERR18+NombreLancierTERR19+NombreLancierTERR20)) >= NombreLancierTERR then NombreLancierTERR8 = NombreLancierTERR8 + NombreLancierTERR
            if int(NombreFrondeur - NombreFrondeurSELECTED - (NombreFrondeurTERR1+NombreFrondeurTERR2+NombreFrondeurTERR3+NombreFrondeurTERR4+NombreFrondeurTERR5+NombreFrondeurTERR6+NombreFrondeurTERR7+NombreFrondeurTERR8+NombreFrondeurTERR9+NombreFrondeurTERR10+NombreFrondeurTERR11+NombreFrondeurTERR12+NombreFrondeurTERR13+NombreFrondeurTERR14+NombreFrondeurTERR15+NombreFrondeurTERR16+NombreFrondeurTERR17+NombreFrondeurTERR18+NombreFrondeurTERR19+NombreFrondeurTERR20)) >= NombreFrondeurTERR then NombreFrondeurTERR8 = NombreFrondeurTERR8 + NombreFrondeurTERR
            if int(NombreArcher - NombreArcherSELECTED - (NombreArcherTERR1+NombreArcherTERR2+NombreArcherTERR3+NombreArcherTERR4+NombreArcherTERR5+NombreArcherTERR6+NombreArcherTERR7+NombreArcherTERR8+NombreArcherTERR9+NombreArcherTERR10+NombreArcherTERR11+NombreArcherTERR12+NombreArcherTERR13+NombreArcherTERR14+NombreArcherTERR15+NombreArcherTERR16+NombreArcherTERR17+NombreArcherTERR18+NombreArcherTERR19+NombreArcherTERR20)) >= NombreArcherTERR then NombreArcherTERR8 = NombreArcherTERR8 + NombreArcherTERR
            if int(NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - (NombreEXPLORATEURTERR1+NombreEXPLORATEURTERR2+NombreEXPLORATEURTERR3+NombreEXPLORATEURTERR4+NombreEXPLORATEURTERR5+NombreEXPLORATEURTERR6+NombreEXPLORATEURTERR7+NombreEXPLORATEURTERR8+NombreEXPLORATEURTERR9+NombreEXPLORATEURTERR10+NombreEXPLORATEURTERR11+NombreEXPLORATEURTERR12+NombreEXPLORATEURTERR13+NombreEXPLORATEURTERR14+NombreEXPLORATEURTERR15+NombreEXPLORATEURTERR16+NombreEXPLORATEURTERR17+NombreEXPLORATEURTERR18+NombreEXPLORATEURTERR19+NombreEXPLORATEURTERR20)) >= NombreEXPLORATEURTERR then NombreEXPLORATEURTERR8 = NombreEXPLORATEURTERR8 + NombreEXPLORATEURTERR
            NombreHommeDarmeTERR = NombreHommeDarmeTERR8 : NombreLancierTERR = NombreLancierTERR8 : NombreFrondeurTERR = NombreFrondeurTERR8 : NombreArcherTERR = NombreArcherTERR8 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR8
        case 9
            if int(NombreHommeDarme - NombreHommeDarmeSELECTED - (NombreHommeDarmeTERR1+NombreHommeDarmeTERR2+NombreHommeDarmeTERR3+NombreHommeDarmeTERR4+NombreHommeDarmeTERR5+NombreHommeDarmeTERR6+NombreHommeDarmeTERR7+NombreHommeDarmeTERR8+NombreHommeDarmeTERR9+NombreHommeDarmeTERR10+NombreHommeDarmeTERR11+NombreHommeDarmeTERR12+NombreHommeDarmeTERR13+NombreHommeDarmeTERR14+NombreHommeDarmeTERR15+NombreHommeDarmeTERR16+NombreHommeDarmeTERR17+NombreHommeDarmeTERR18+NombreHommeDarmeTERR19+NombreHommeDarmeTERR20)) >= NombreHommeDarmeTERR then NombreHommeDarmeTERR9 = NombreHommeDarmeTERR9 + NombreHommeDarmeTERR
            if int(NombreLancier - NombreLancierSELECTED - (NombreLancierTERR1+NombreLancierTERR2+NombreLancierTERR3+NombreLancierTERR4+NombreLancierTERR5+NombreLancierTERR6+NombreLancierTERR7+NombreLancierTERR8+NombreLancierTERR9+NombreLancierTERR10NombreLancierTERR11+NombreLancierTERR12+NombreLancierTERR13+NombreLancierTERR14+NombreLancierTERR15+NombreLancierTERR16+NombreLancierTERR17+NombreLancierTERR18+NombreLancierTERR19+NombreLancierTERR20)) >= NombreLancierTERR then NombreLancierTERR9 = NombreLancierTERR9 + NombreLancierTERR
            if int(NombreFrondeur - NombreFrondeurSELECTED - (NombreFrondeurTERR1+NombreFrondeurTERR2+NombreFrondeurTERR3+NombreFrondeurTERR4+NombreFrondeurTERR5+NombreFrondeurTERR6+NombreFrondeurTERR7+NombreFrondeurTERR8+NombreFrondeurTERR9+NombreFrondeurTERR10+NombreFrondeurTERR11+NombreFrondeurTERR12+NombreFrondeurTERR13+NombreFrondeurTERR14+NombreFrondeurTERR15+NombreFrondeurTERR16+NombreFrondeurTERR17+NombreFrondeurTERR18+NombreFrondeurTERR19+NombreFrondeurTERR20)) >= NombreFrondeurTERR then NombreFrondeurTERR9 = NombreFrondeurTERR9 + NombreFrondeurTERR
            if int(NombreArcher - NombreArcherSELECTED - (NombreArcherTERR1+NombreArcherTERR2+NombreArcherTERR3+NombreArcherTERR4+NombreArcherTERR5+NombreArcherTERR6+NombreArcherTERR7+NombreArcherTERR8+NombreArcherTERR9+NombreArcherTERR10+NombreArcherTERR11+NombreArcherTERR12+NombreArcherTERR13+NombreArcherTERR14+NombreArcherTERR15+NombreArcherTERR16+NombreArcherTERR17+NombreArcherTERR18+NombreArcherTERR19+NombreArcherTERR20)) >= NombreArcherTERR then NombreArcherTERR9 = NombreArcherTERR9 + NombreArcherTERR
            if int(NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - (NombreEXPLORATEURTERR1+NombreEXPLORATEURTERR2+NombreEXPLORATEURTERR3+NombreEXPLORATEURTERR4+NombreEXPLORATEURTERR5+NombreEXPLORATEURTERR6+NombreEXPLORATEURTERR7+NombreEXPLORATEURTERR8+NombreEXPLORATEURTERR9+NombreEXPLORATEURTERR10+NombreEXPLORATEURTERR11+NombreEXPLORATEURTERR12+NombreEXPLORATEURTERR13+NombreEXPLORATEURTERR14+NombreEXPLORATEURTERR15+NombreEXPLORATEURTERR16+NombreEXPLORATEURTERR17+NombreEXPLORATEURTERR18+NombreEXPLORATEURTERR19+NombreEXPLORATEURTERR20)) >= NombreEXPLORATEURTERR then NombreEXPLORATEURTERR9 = NombreEXPLORATEURTERR9 + NombreEXPLORATEURTERR
            NombreHommeDarmeTERR = NombreHommeDarmeTERR9 : NombreLancierTERR = NombreLancierTERR9 : NombreFrondeurTERR = NombreFrondeurTERR9 : NombreArcherTERR = NombreArcherTERR9 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR9
        case 10
            if int(NombreHommeDarme - NombreHommeDarmeSELECTED - (NombreHommeDarmeTERR1+NombreHommeDarmeTERR2+NombreHommeDarmeTERR3+NombreHommeDarmeTERR4+NombreHommeDarmeTERR5+NombreHommeDarmeTERR6+NombreHommeDarmeTERR7+NombreHommeDarmeTERR8+NombreHommeDarmeTERR9+NombreHommeDarmeTERR10+NombreHommeDarmeTERR11+NombreHommeDarmeTERR12+NombreHommeDarmeTERR13+NombreHommeDarmeTERR14+NombreHommeDarmeTERR15+NombreHommeDarmeTERR16+NombreHommeDarmeTERR17+NombreHommeDarmeTERR18+NombreHommeDarmeTERR19+NombreHommeDarmeTERR20)) >= NombreHommeDarmeTERR then NombreHommeDarmeTERR10 = NombreHommeDarmeTERR10 + NombreHommeDarmeTERR
            if int(NombreLancier - NombreLancierSELECTED - (NombreLancierTERR1+NombreLancierTERR2+NombreLancierTERR3+NombreLancierTERR4+NombreLancierTERR5+NombreLancierTERR6+NombreLancierTERR7+NombreLancierTERR8+NombreLancierTERR9+NombreLancierTERR10NombreLancierTERR11+NombreLancierTERR12+NombreLancierTERR13+NombreLancierTERR14+NombreLancierTERR15+NombreLancierTERR16+NombreLancierTERR17+NombreLancierTERR18+NombreLancierTERR19+NombreLancierTERR20)) >= NombreLancierTERR then NombreLancierTERR10 = NombreLancierTERR10 + NombreLancierTERR
            if int(NombreFrondeur - NombreFrondeurSELECTED - (NombreFrondeurTERR1+NombreFrondeurTERR2+NombreFrondeurTERR3+NombreFrondeurTERR4+NombreFrondeurTERR5+NombreFrondeurTERR6+NombreFrondeurTERR7+NombreFrondeurTERR8+NombreFrondeurTERR9+NombreFrondeurTERR10+NombreFrondeurTERR11+NombreFrondeurTERR12+NombreFrondeurTERR13+NombreFrondeurTERR14+NombreFrondeurTERR15+NombreFrondeurTERR16+NombreFrondeurTERR17+NombreFrondeurTERR18+NombreFrondeurTERR19+NombreFrondeurTERR20)) >= NombreFrondeurTERR then NombreFrondeurTERR10 = NombreFrondeurTERR10 + NombreFrondeurTERR
            if int(NombreArcher - NombreArcherSELECTED - (NombreArcherTERR1+NombreArcherTERR2+NombreArcherTERR3+NombreArcherTERR4+NombreArcherTERR5+NombreArcherTERR6+NombreArcherTERR7+NombreArcherTERR8+NombreArcherTERR9+NombreArcherTERR10+NombreArcherTERR11+NombreArcherTERR12+NombreArcherTERR13+NombreArcherTERR14+NombreArcherTERR15+NombreArcherTERR16+NombreArcherTERR17+NombreArcherTERR18+NombreArcherTERR19+NombreArcherTERR20)) >= NombreArcherTERR then NombreArcherTERR10 = NombreArcherTERR10 + NombreArcherTERR
            if int(NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - (NombreEXPLORATEURTERR1+NombreEXPLORATEURTERR2+NombreEXPLORATEURTERR3+NombreEXPLORATEURTERR4+NombreEXPLORATEURTERR5+NombreEXPLORATEURTERR6+NombreEXPLORATEURTERR7+NombreEXPLORATEURTERR8+NombreEXPLORATEURTERR9+NombreEXPLORATEURTERR10+NombreEXPLORATEURTERR11+NombreEXPLORATEURTERR12+NombreEXPLORATEURTERR13+NombreEXPLORATEURTERR14+NombreEXPLORATEURTERR15+NombreEXPLORATEURTERR16+NombreEXPLORATEURTERR17+NombreEXPLORATEURTERR18+NombreEXPLORATEURTERR19+NombreEXPLORATEURTERR20)) >= NombreEXPLORATEURTERR then NombreEXPLORATEURTERR10 = NombreEXPLORATEURTERR10 + NombreEXPLORATEURTERR
            NombreHommeDarmeTERR = NombreHommeDarmeTERR10 : NombreLancierTERR = NombreLancierTERR10 : NombreFrondeurTERR = NombreFrondeurTERR10 : NombreArcherTERR = NombreArcherTERR10 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR10
        case 11
            if int(NombreHommeDarme - NombreHommeDarmeSELECTED - (NombreHommeDarmeTERR1+NombreHommeDarmeTERR2+NombreHommeDarmeTERR3+NombreHommeDarmeTERR4+NombreHommeDarmeTERR5+NombreHommeDarmeTERR6+NombreHommeDarmeTERR7+NombreHommeDarmeTERR8+NombreHommeDarmeTERR9+NombreHommeDarmeTERR10+NombreHommeDarmeTERR11+NombreHommeDarmeTERR12+NombreHommeDarmeTERR13+NombreHommeDarmeTERR14+NombreHommeDarmeTERR15+NombreHommeDarmeTERR16+NombreHommeDarmeTERR17+NombreHommeDarmeTERR18+NombreHommeDarmeTERR19+NombreHommeDarmeTERR20)) >= NombreHommeDarmeTERR then NombreHommeDarmeTERR11 = NombreHommeDarmeTERR11 + NombreHommeDarmeTERR
            if int(NombreLancier - NombreLancierSELECTED - (NombreLancierTERR1+NombreLancierTERR2+NombreLancierTERR3+NombreLancierTERR4+NombreLancierTERR5+NombreLancierTERR6+NombreLancierTERR7+NombreLancierTERR8+NombreLancierTERR9+NombreLancierTERR10NombreLancierTERR11+NombreLancierTERR12+NombreLancierTERR13+NombreLancierTERR14+NombreLancierTERR15+NombreLancierTERR16+NombreLancierTERR17+NombreLancierTERR18+NombreLancierTERR19+NombreLancierTERR20)) >= NombreLancierTERR then NombreLancierTERR11 = NombreLancierTERR11 + NombreLancierTERR
            if int(NombreFrondeur - NombreFrondeurSELECTED - (NombreFrondeurTERR1+NombreFrondeurTERR2+NombreFrondeurTERR3+NombreFrondeurTERR4+NombreFrondeurTERR5+NombreFrondeurTERR6+NombreFrondeurTERR7+NombreFrondeurTERR8+NombreFrondeurTERR9+NombreFrondeurTERR10+NombreFrondeurTERR11+NombreFrondeurTERR12+NombreFrondeurTERR13+NombreFrondeurTERR14+NombreFrondeurTERR15+NombreFrondeurTERR16+NombreFrondeurTERR17+NombreFrondeurTERR18+NombreFrondeurTERR19+NombreFrondeurTERR20)) >= NombreFrondeurTERR then NombreFrondeurTERR11 = NombreFrondeurTERR11 + NombreFrondeurTERR
            if int(NombreArcher - NombreArcherSELECTED - (NombreArcherTERR1+NombreArcherTERR2+NombreArcherTERR3+NombreArcherTERR4+NombreArcherTERR5+NombreArcherTERR6+NombreArcherTERR7+NombreArcherTERR8+NombreArcherTERR9+NombreArcherTERR10+NombreArcherTERR11+NombreArcherTERR12+NombreArcherTERR13+NombreArcherTERR14+NombreArcherTERR15+NombreArcherTERR16+NombreArcherTERR17+NombreArcherTERR18+NombreArcherTERR19+NombreArcherTERR20)) >= NombreArcherTERR then NombreArcherTERR11 = NombreArcherTERR11 + NombreArcherTERR
            if int(NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - (NombreEXPLORATEURTERR1+NombreEXPLORATEURTERR2+NombreEXPLORATEURTERR3+NombreEXPLORATEURTERR4+NombreEXPLORATEURTERR5+NombreEXPLORATEURTERR6+NombreEXPLORATEURTERR7+NombreEXPLORATEURTERR8+NombreEXPLORATEURTERR9+NombreEXPLORATEURTERR10+NombreEXPLORATEURTERR11+NombreEXPLORATEURTERR12+NombreEXPLORATEURTERR13+NombreEXPLORATEURTERR14+NombreEXPLORATEURTERR15+NombreEXPLORATEURTERR16+NombreEXPLORATEURTERR17+NombreEXPLORATEURTERR18+NombreEXPLORATEURTERR19+NombreEXPLORATEURTERR20)) >= NombreEXPLORATEURTERR then NombreEXPLORATEURTERR11 = NombreEXPLORATEURTERR11 + NombreEXPLORATEURTERR
            NombreHommeDarmeTERR = NombreHommeDarmeTERR11 : NombreLancierTERR = NombreLancierTERR11 : NombreFrondeurTERR = NombreFrondeurTERR11 : NombreArcherTERR = NombreArcherTERR11 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR11
        case 12
            if int(NombreHommeDarme - NombreHommeDarmeSELECTED - (NombreHommeDarmeTERR1+NombreHommeDarmeTERR2+NombreHommeDarmeTERR3+NombreHommeDarmeTERR4+NombreHommeDarmeTERR5+NombreHommeDarmeTERR6+NombreHommeDarmeTERR7+NombreHommeDarmeTERR8+NombreHommeDarmeTERR9+NombreHommeDarmeTERR10+NombreHommeDarmeTERR11+NombreHommeDarmeTERR12+NombreHommeDarmeTERR13+NombreHommeDarmeTERR14+NombreHommeDarmeTERR15+NombreHommeDarmeTERR16+NombreHommeDarmeTERR17+NombreHommeDarmeTERR18+NombreHommeDarmeTERR19+NombreHommeDarmeTERR20)) >= NombreHommeDarmeTERR then NombreHommeDarmeTERR12 = NombreHommeDarmeTERR12 + NombreHommeDarmeTERR
            if int(NombreLancier - NombreLancierSELECTED - (NombreLancierTERR1+NombreLancierTERR2+NombreLancierTERR3+NombreLancierTERR4+NombreLancierTERR5+NombreLancierTERR6+NombreLancierTERR7+NombreLancierTERR8+NombreLancierTERR9+NombreLancierTERR10NombreLancierTERR11+NombreLancierTERR12+NombreLancierTERR13+NombreLancierTERR14+NombreLancierTERR15+NombreLancierTERR16+NombreLancierTERR17+NombreLancierTERR18+NombreLancierTERR19+NombreLancierTERR20)) >= NombreLancierTERR then NombreLancierTERR12 = NombreLancierTERR12 + NombreLancierTERR
            if int(NombreFrondeur - NombreFrondeurSELECTED - (NombreFrondeurTERR1+NombreFrondeurTERR2+NombreFrondeurTERR3+NombreFrondeurTERR4+NombreFrondeurTERR5+NombreFrondeurTERR6+NombreFrondeurTERR7+NombreFrondeurTERR8+NombreFrondeurTERR9+NombreFrondeurTERR10+NombreFrondeurTERR11+NombreFrondeurTERR12+NombreFrondeurTERR13+NombreFrondeurTERR14+NombreFrondeurTERR15+NombreFrondeurTERR16+NombreFrondeurTERR17+NombreFrondeurTERR18+NombreFrondeurTERR19+NombreFrondeurTERR20)) >= NombreFrondeurTERR then NombreFrondeurTERR12 = NombreFrondeurTERR12 + NombreFrondeurTERR
            if int(NombreArcher - NombreArcherSELECTED - (NombreArcherTERR1+NombreArcherTERR2+NombreArcherTERR3+NombreArcherTERR4+NombreArcherTERR5+NombreArcherTERR6+NombreArcherTERR7+NombreArcherTERR8+NombreArcherTERR9+NombreArcherTERR10+NombreArcherTERR11+NombreArcherTERR12+NombreArcherTERR13+NombreArcherTERR14+NombreArcherTERR15+NombreArcherTERR16+NombreArcherTERR17+NombreArcherTERR18+NombreArcherTERR19+NombreArcherTERR20)) >= NombreArcherTERR then NombreArcherTERR12 = NombreArcherTERR12 + NombreArcherTERR
            if int(NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - (NombreEXPLORATEURTERR1+NombreEXPLORATEURTERR2+NombreEXPLORATEURTERR3+NombreEXPLORATEURTERR4+NombreEXPLORATEURTERR5+NombreEXPLORATEURTERR6+NombreEXPLORATEURTERR7+NombreEXPLORATEURTERR8+NombreEXPLORATEURTERR9+NombreEXPLORATEURTERR10+NombreEXPLORATEURTERR11+NombreEXPLORATEURTERR12+NombreEXPLORATEURTERR13+NombreEXPLORATEURTERR14+NombreEXPLORATEURTERR15+NombreEXPLORATEURTERR16+NombreEXPLORATEURTERR17+NombreEXPLORATEURTERR18+NombreEXPLORATEURTERR19+NombreEXPLORATEURTERR20)) >= NombreEXPLORATEURTERR then NombreEXPLORATEURTERR12 = NombreEXPLORATEURTERR12 + NombreEXPLORATEURTERR
            NombreHommeDarmeTERR = NombreHommeDarmeTERR12 : NombreLancierTERR = NombreLancierTERR12 : NombreFrondeurTERR = NombreFrondeurTERR12 : NombreArcherTERR = NombreArcherTERR12 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR12
        case 13
            if int(NombreHommeDarme - NombreHommeDarmeSELECTED - (NombreHommeDarmeTERR1+NombreHommeDarmeTERR2+NombreHommeDarmeTERR3+NombreHommeDarmeTERR4+NombreHommeDarmeTERR5+NombreHommeDarmeTERR6+NombreHommeDarmeTERR7+NombreHommeDarmeTERR8+NombreHommeDarmeTERR9+NombreHommeDarmeTERR10+NombreHommeDarmeTERR11+NombreHommeDarmeTERR12+NombreHommeDarmeTERR13+NombreHommeDarmeTERR14+NombreHommeDarmeTERR15+NombreHommeDarmeTERR16+NombreHommeDarmeTERR17+NombreHommeDarmeTERR18+NombreHommeDarmeTERR19+NombreHommeDarmeTERR20)) >= NombreHommeDarmeTERR then NombreHommeDarmeTERR13 = NombreHommeDarmeTERR13 + NombreHommeDarmeTERR
            if int(NombreLancier - NombreLancierSELECTED - (NombreLancierTERR1+NombreLancierTERR2+NombreLancierTERR3+NombreLancierTERR4+NombreLancierTERR5+NombreLancierTERR6+NombreLancierTERR7+NombreLancierTERR8+NombreLancierTERR9+NombreLancierTERR10NombreLancierTERR11+NombreLancierTERR12+NombreLancierTERR13+NombreLancierTERR14+NombreLancierTERR15+NombreLancierTERR16+NombreLancierTERR17+NombreLancierTERR18+NombreLancierTERR19+NombreLancierTERR20)) >= NombreLancierTERR then NombreLancierTERR13 = NombreLancierTERR13 + NombreLancierTERR
            if int(NombreFrondeur - NombreFrondeurSELECTED - (NombreFrondeurTERR1+NombreFrondeurTERR2+NombreFrondeurTERR3+NombreFrondeurTERR4+NombreFrondeurTERR5+NombreFrondeurTERR6+NombreFrondeurTERR7+NombreFrondeurTERR8+NombreFrondeurTERR9+NombreFrondeurTERR10+NombreFrondeurTERR11+NombreFrondeurTERR12+NombreFrondeurTERR13+NombreFrondeurTERR14+NombreFrondeurTERR15+NombreFrondeurTERR16+NombreFrondeurTERR17+NombreFrondeurTERR18+NombreFrondeurTERR19+NombreFrondeurTERR20)) >= NombreFrondeurTERR then NombreFrondeurTERR13 = NombreFrondeurTERR13 + NombreFrondeurTERR
            if int(NombreArcher - NombreArcherSELECTED - (NombreArcherTERR1+NombreArcherTERR2+NombreArcherTERR3+NombreArcherTERR4+NombreArcherTERR5+NombreArcherTERR6+NombreArcherTERR7+NombreArcherTERR8+NombreArcherTERR9+NombreArcherTERR10+NombreArcherTERR11+NombreArcherTERR12+NombreArcherTERR13+NombreArcherTERR14+NombreArcherTERR15+NombreArcherTERR16+NombreArcherTERR17+NombreArcherTERR18+NombreArcherTERR19+NombreArcherTERR20)) >= NombreArcherTERR then NombreArcherTERR13 = NombreArcherTERR13 + NombreArcherTERR
            if int(NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - (NombreEXPLORATEURTERR1+NombreEXPLORATEURTERR2+NombreEXPLORATEURTERR3+NombreEXPLORATEURTERR4+NombreEXPLORATEURTERR5+NombreEXPLORATEURTERR6+NombreEXPLORATEURTERR7+NombreEXPLORATEURTERR8+NombreEXPLORATEURTERR9+NombreEXPLORATEURTERR10+NombreEXPLORATEURTERR11+NombreEXPLORATEURTERR12+NombreEXPLORATEURTERR13+NombreEXPLORATEURTERR14+NombreEXPLORATEURTERR15+NombreEXPLORATEURTERR16+NombreEXPLORATEURTERR17+NombreEXPLORATEURTERR18+NombreEXPLORATEURTERR19+NombreEXPLORATEURTERR20)) >= NombreEXPLORATEURTERR then NombreEXPLORATEURTERR13 = NombreEXPLORATEURTERR13 + NombreEXPLORATEURTERR
            NombreHommeDarmeTERR = NombreHommeDarmeTERR13 : NombreLancierTERR = NombreLancierTERR13 : NombreFrondeurTERR = NombreFrondeurTERR13 : NombreArcherTERR = NombreArcherTERR13 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR13
        case 14
            if int(NombreHommeDarme - NombreHommeDarmeSELECTED - (NombreHommeDarmeTERR1+NombreHommeDarmeTERR2+NombreHommeDarmeTERR3+NombreHommeDarmeTERR4+NombreHommeDarmeTERR5+NombreHommeDarmeTERR6+NombreHommeDarmeTERR7+NombreHommeDarmeTERR8+NombreHommeDarmeTERR9+NombreHommeDarmeTERR10+NombreHommeDarmeTERR11+NombreHommeDarmeTERR12+NombreHommeDarmeTERR13+NombreHommeDarmeTERR14+NombreHommeDarmeTERR15+NombreHommeDarmeTERR16+NombreHommeDarmeTERR17+NombreHommeDarmeTERR18+NombreHommeDarmeTERR19+NombreHommeDarmeTERR20)) >= NombreHommeDarmeTERR then NombreHommeDarmeTERR14 = NombreHommeDarmeTERR14 + NombreHommeDarmeTERR
            if int(NombreLancier - NombreLancierSELECTED - (NombreLancierTERR1+NombreLancierTERR2+NombreLancierTERR3+NombreLancierTERR4+NombreLancierTERR5+NombreLancierTERR6+NombreLancierTERR7+NombreLancierTERR8+NombreLancierTERR9+NombreLancierTERR10NombreLancierTERR11+NombreLancierTERR12+NombreLancierTERR13+NombreLancierTERR14+NombreLancierTERR15+NombreLancierTERR16+NombreLancierTERR17+NombreLancierTERR18+NombreLancierTERR19+NombreLancierTERR20)) >= NombreLancierTERR then NombreLancierTERR14 = NombreLancierTERR14 + NombreLancierTERR
            if int(NombreFrondeur - NombreFrondeurSELECTED - (NombreFrondeurTERR1+NombreFrondeurTERR2+NombreFrondeurTERR3+NombreFrondeurTERR4+NombreFrondeurTERR5+NombreFrondeurTERR6+NombreFrondeurTERR7+NombreFrondeurTERR8+NombreFrondeurTERR9+NombreFrondeurTERR10+NombreFrondeurTERR11+NombreFrondeurTERR12+NombreFrondeurTERR13+NombreFrondeurTERR14+NombreFrondeurTERR15+NombreFrondeurTERR16+NombreFrondeurTERR17+NombreFrondeurTERR18+NombreFrondeurTERR19+NombreFrondeurTERR20)) >= NombreFrondeurTERR then NombreFrondeurTERR14 = NombreFrondeurTERR14 + NombreFrondeurTERR
            if int(NombreArcher - NombreArcherSELECTED - (NombreArcherTERR1+NombreArcherTERR2+NombreArcherTERR3+NombreArcherTERR4+NombreArcherTERR5+NombreArcherTERR6+NombreArcherTERR7+NombreArcherTERR8+NombreArcherTERR9+NombreArcherTERR10+NombreArcherTERR11+NombreArcherTERR12+NombreArcherTERR13+NombreArcherTERR14+NombreArcherTERR15+NombreArcherTERR16+NombreArcherTERR17+NombreArcherTERR18+NombreArcherTERR19+NombreArcherTERR20)) >= NombreArcherTERR then NombreArcherTERR14 = NombreArcherTERR14 + NombreArcherTERR
            if int(NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - (NombreEXPLORATEURTERR1+NombreEXPLORATEURTERR2+NombreEXPLORATEURTERR3+NombreEXPLORATEURTERR4+NombreEXPLORATEURTERR5+NombreEXPLORATEURTERR6+NombreEXPLORATEURTERR7+NombreEXPLORATEURTERR8+NombreEXPLORATEURTERR9+NombreEXPLORATEURTERR10+NombreEXPLORATEURTERR11+NombreEXPLORATEURTERR12+NombreEXPLORATEURTERR13+NombreEXPLORATEURTERR14+NombreEXPLORATEURTERR15+NombreEXPLORATEURTERR16+NombreEXPLORATEURTERR17+NombreEXPLORATEURTERR18+NombreEXPLORATEURTERR19+NombreEXPLORATEURTERR20)) >= NombreEXPLORATEURTERR then NombreEXPLORATEURTERR14 = NombreEXPLORATEURTERR14 + NombreEXPLORATEURTERR
            NombreHommeDarmeTERR = NombreHommeDarmeTERR14 : NombreLancierTERR = NombreLancierTERR14 : NombreFrondeurTERR = NombreFrondeurTERR14 : NombreArcherTERR = NombreArcherTERR14 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR14
        case 15
            if int(NombreHommeDarme - NombreHommeDarmeSELECTED - (NombreHommeDarmeTERR1+NombreHommeDarmeTERR2+NombreHommeDarmeTERR3+NombreHommeDarmeTERR4+NombreHommeDarmeTERR5+NombreHommeDarmeTERR6+NombreHommeDarmeTERR7+NombreHommeDarmeTERR8+NombreHommeDarmeTERR9+NombreHommeDarmeTERR10+NombreHommeDarmeTERR11+NombreHommeDarmeTERR12+NombreHommeDarmeTERR13+NombreHommeDarmeTERR14+NombreHommeDarmeTERR15+NombreHommeDarmeTERR16+NombreHommeDarmeTERR17+NombreHommeDarmeTERR18+NombreHommeDarmeTERR19+NombreHommeDarmeTERR20)) >= NombreHommeDarmeTERR then NombreHommeDarmeTERR15 = NombreHommeDarmeTERR15 + NombreHommeDarmeTERR
            if int(NombreLancier - NombreLancierSELECTED - (NombreLancierTERR1+NombreLancierTERR2+NombreLancierTERR3+NombreLancierTERR4+NombreLancierTERR5+NombreLancierTERR6+NombreLancierTERR7+NombreLancierTERR8+NombreLancierTERR9+NombreLancierTERR10NombreLancierTERR11+NombreLancierTERR12+NombreLancierTERR13+NombreLancierTERR14+NombreLancierTERR15+NombreLancierTERR16+NombreLancierTERR17+NombreLancierTERR18+NombreLancierTERR19+NombreLancierTERR20)) >= NombreLancierTERR then NombreLancierTERR15 = NombreLancierTERR15 + NombreLancierTERR
            if int(NombreFrondeur - NombreFrondeurSELECTED - (NombreFrondeurTERR1+NombreFrondeurTERR2+NombreFrondeurTERR3+NombreFrondeurTERR4+NombreFrondeurTERR5+NombreFrondeurTERR6+NombreFrondeurTERR7+NombreFrondeurTERR8+NombreFrondeurTERR9+NombreFrondeurTERR10+NombreFrondeurTERR11+NombreFrondeurTERR12+NombreFrondeurTERR13+NombreFrondeurTERR14+NombreFrondeurTERR15+NombreFrondeurTERR16+NombreFrondeurTERR17+NombreFrondeurTERR18+NombreFrondeurTERR19+NombreFrondeurTERR20)) >= NombreFrondeurTERR then NombreFrondeurTERR15 = NombreFrondeurTERR15 + NombreFrondeurTERR
            if int(NombreArcher - NombreArcherSELECTED - (NombreArcherTERR1+NombreArcherTERR2+NombreArcherTERR3+NombreArcherTERR4+NombreArcherTERR5+NombreArcherTERR6+NombreArcherTERR7+NombreArcherTERR8+NombreArcherTERR9+NombreArcherTERR10+NombreArcherTERR11+NombreArcherTERR12+NombreArcherTERR13+NombreArcherTERR14+NombreArcherTERR15+NombreArcherTERR16+NombreArcherTERR17+NombreArcherTERR18+NombreArcherTERR19+NombreArcherTERR20)) >= NombreArcherTERR then NombreArcherTERR15 = NombreArcherTERR15 + NombreArcherTERR
            if int(NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - (NombreEXPLORATEURTERR1+NombreEXPLORATEURTERR2+NombreEXPLORATEURTERR3+NombreEXPLORATEURTERR4+NombreEXPLORATEURTERR5+NombreEXPLORATEURTERR6+NombreEXPLORATEURTERR7+NombreEXPLORATEURTERR8+NombreEXPLORATEURTERR9+NombreEXPLORATEURTERR10+NombreEXPLORATEURTERR11+NombreEXPLORATEURTERR12+NombreEXPLORATEURTERR13+NombreEXPLORATEURTERR14+NombreEXPLORATEURTERR15+NombreEXPLORATEURTERR16+NombreEXPLORATEURTERR17+NombreEXPLORATEURTERR18+NombreEXPLORATEURTERR19+NombreEXPLORATEURTERR20)) >= NombreEXPLORATEURTERR then NombreEXPLORATEURTERR15 = NombreEXPLORATEURTERR15 + NombreEXPLORATEURTERR
            NombreHommeDarmeTERR = NombreHommeDarmeTERR15 : NombreLancierTERR = NombreLancierTERR15 : NombreFrondeurTERR = NombreFrondeurTERR15 : NombreArcherTERR = NombreArcherTERR15 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR15
        case 16
            if int(NombreHommeDarme - NombreHommeDarmeSELECTED - (NombreHommeDarmeTERR1+NombreHommeDarmeTERR2+NombreHommeDarmeTERR3+NombreHommeDarmeTERR4+NombreHommeDarmeTERR5+NombreHommeDarmeTERR6+NombreHommeDarmeTERR7+NombreHommeDarmeTERR8+NombreHommeDarmeTERR9+NombreHommeDarmeTERR10+NombreHommeDarmeTERR11+NombreHommeDarmeTERR12+NombreHommeDarmeTERR13+NombreHommeDarmeTERR14+NombreHommeDarmeTERR15+NombreHommeDarmeTERR16+NombreHommeDarmeTERR17+NombreHommeDarmeTERR18+NombreHommeDarmeTERR19+NombreHommeDarmeTERR20)) >= NombreHommeDarmeTERR then NombreHommeDarmeTERR16 = NombreHommeDarmeTERR16 + NombreHommeDarmeTERR
            if int(NombreLancier - NombreLancierSELECTED - (NombreLancierTERR1+NombreLancierTERR2+NombreLancierTERR3+NombreLancierTERR4+NombreLancierTERR5+NombreLancierTERR6+NombreLancierTERR7+NombreLancierTERR8+NombreLancierTERR9+NombreLancierTERR10NombreLancierTERR11+NombreLancierTERR12+NombreLancierTERR13+NombreLancierTERR14+NombreLancierTERR15+NombreLancierTERR16+NombreLancierTERR17+NombreLancierTERR18+NombreLancierTERR19+NombreLancierTERR20)) >= NombreLancierTERR then NombreLancierTERR16 = NombreLancierTERR16 + NombreLancierTERR
            if int(NombreFrondeur - NombreFrondeurSELECTED - (NombreFrondeurTERR1+NombreFrondeurTERR2+NombreFrondeurTERR3+NombreFrondeurTERR4+NombreFrondeurTERR5+NombreFrondeurTERR6+NombreFrondeurTERR7+NombreFrondeurTERR8+NombreFrondeurTERR9+NombreFrondeurTERR10+NombreFrondeurTERR11+NombreFrondeurTERR12+NombreFrondeurTERR13+NombreFrondeurTERR14+NombreFrondeurTERR15+NombreFrondeurTERR16+NombreFrondeurTERR17+NombreFrondeurTERR18+NombreFrondeurTERR19+NombreFrondeurTERR20)) >= NombreFrondeurTERR then NombreFrondeurTERR16 = NombreFrondeurTERR16 + NombreFrondeurTERR
            if int(NombreArcher - NombreArcherSELECTED - (NombreArcherTERR1+NombreArcherTERR2+NombreArcherTERR3+NombreArcherTERR4+NombreArcherTERR5+NombreArcherTERR6+NombreArcherTERR7+NombreArcherTERR8+NombreArcherTERR9+NombreArcherTERR10+NombreArcherTERR11+NombreArcherTERR12+NombreArcherTERR13+NombreArcherTERR14+NombreArcherTERR15+NombreArcherTERR16+NombreArcherTERR17+NombreArcherTERR18+NombreArcherTERR19+NombreArcherTERR20)) >= NombreArcherTERR then NombreArcherTERR16 = NombreArcherTERR16 + NombreArcherTERR
            if int(NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - (NombreEXPLORATEURTERR1+NombreEXPLORATEURTERR2+NombreEXPLORATEURTERR3+NombreEXPLORATEURTERR4+NombreEXPLORATEURTERR5+NombreEXPLORATEURTERR6+NombreEXPLORATEURTERR7+NombreEXPLORATEURTERR8+NombreEXPLORATEURTERR9+NombreEXPLORATEURTERR10+NombreEXPLORATEURTERR11+NombreEXPLORATEURTERR12+NombreEXPLORATEURTERR13+NombreEXPLORATEURTERR14+NombreEXPLORATEURTERR15+NombreEXPLORATEURTERR16+NombreEXPLORATEURTERR17+NombreEXPLORATEURTERR18+NombreEXPLORATEURTERR19+NombreEXPLORATEURTERR20)) >= NombreEXPLORATEURTERR then NombreEXPLORATEURTERR16 = NombreEXPLORATEURTERR16 + NombreEXPLORATEURTERR
            NombreHommeDarmeTERR = NombreHommeDarmeTERR16 : NombreLancierTERR = NombreLancierTERR16 : NombreFrondeurTERR = NombreFrondeurTERR16 : NombreArcherTERR = NombreArcherTERR16 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR16
        case 17
            if int(NombreHommeDarme - NombreHommeDarmeSELECTED - (NombreHommeDarmeTERR1+NombreHommeDarmeTERR2+NombreHommeDarmeTERR3+NombreHommeDarmeTERR4+NombreHommeDarmeTERR5+NombreHommeDarmeTERR6+NombreHommeDarmeTERR7+NombreHommeDarmeTERR8+NombreHommeDarmeTERR9+NombreHommeDarmeTERR10+NombreHommeDarmeTERR11+NombreHommeDarmeTERR12+NombreHommeDarmeTERR13+NombreHommeDarmeTERR14+NombreHommeDarmeTERR15+NombreHommeDarmeTERR16+NombreHommeDarmeTERR17+NombreHommeDarmeTERR18+NombreHommeDarmeTERR19+NombreHommeDarmeTERR20)) >= NombreHommeDarmeTERR then NombreHommeDarmeTERR17 = NombreHommeDarmeTERR17 + NombreHommeDarmeTERR
            if int(NombreLancier - NombreLancierSELECTED - (NombreLancierTERR1+NombreLancierTERR2+NombreLancierTERR3+NombreLancierTERR4+NombreLancierTERR5+NombreLancierTERR6+NombreLancierTERR7+NombreLancierTERR8+NombreLancierTERR9+NombreLancierTERR10NombreLancierTERR11+NombreLancierTERR12+NombreLancierTERR13+NombreLancierTERR14+NombreLancierTERR15+NombreLancierTERR16+NombreLancierTERR17+NombreLancierTERR18+NombreLancierTERR19+NombreLancierTERR20)) >= NombreLancierTERR then NombreLancierTERR17 = NombreLancierTERR17 + NombreLancierTERR
            if int(NombreFrondeur - NombreFrondeurSELECTED - (NombreFrondeurTERR1+NombreFrondeurTERR2+NombreFrondeurTERR3+NombreFrondeurTERR4+NombreFrondeurTERR5+NombreFrondeurTERR6+NombreFrondeurTERR7+NombreFrondeurTERR8+NombreFrondeurTERR9+NombreFrondeurTERR10+NombreFrondeurTERR11+NombreFrondeurTERR12+NombreFrondeurTERR13+NombreFrondeurTERR14+NombreFrondeurTERR15+NombreFrondeurTERR16+NombreFrondeurTERR17+NombreFrondeurTERR18+NombreFrondeurTERR19+NombreFrondeurTERR20)) >= NombreFrondeurTERR then NombreFrondeurTERR17 = NombreFrondeurTERR17 + NombreFrondeurTERR
            if int(NombreArcher - NombreArcherSELECTED - (NombreArcherTERR1+NombreArcherTERR2+NombreArcherTERR3+NombreArcherTERR4+NombreArcherTERR5+NombreArcherTERR6+NombreArcherTERR7+NombreArcherTERR8+NombreArcherTERR9+NombreArcherTERR10+NombreArcherTERR11+NombreArcherTERR12+NombreArcherTERR13+NombreArcherTERR14+NombreArcherTERR15+NombreArcherTERR16+NombreArcherTERR17+NombreArcherTERR18+NombreArcherTERR19+NombreArcherTERR20)) >= NombreArcherTERR then NombreArcherTERR17 = NombreArcherTERR17 + NombreArcherTERR
            if int(NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - (NombreEXPLORATEURTERR1+NombreEXPLORATEURTERR2+NombreEXPLORATEURTERR3+NombreEXPLORATEURTERR4+NombreEXPLORATEURTERR5+NombreEXPLORATEURTERR6+NombreEXPLORATEURTERR7+NombreEXPLORATEURTERR8+NombreEXPLORATEURTERR9+NombreEXPLORATEURTERR10+NombreEXPLORATEURTERR11+NombreEXPLORATEURTERR12+NombreEXPLORATEURTERR13+NombreEXPLORATEURTERR14+NombreEXPLORATEURTERR15+NombreEXPLORATEURTERR16+NombreEXPLORATEURTERR17+NombreEXPLORATEURTERR18+NombreEXPLORATEURTERR19+NombreEXPLORATEURTERR20)) >= NombreEXPLORATEURTERR then NombreEXPLORATEURTERR17 = NombreEXPLORATEURTERR17 + NombreEXPLORATEURTERR
            NombreHommeDarmeTERR = NombreHommeDarmeTERR17 : NombreLancierTERR = NombreLancierTERR17 : NombreFrondeurTERR = NombreFrondeurTERR17 : NombreArcherTERR = NombreArcherTERR17 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR17
        case 18
            if int(NombreHommeDarme - NombreHommeDarmeSELECTED - (NombreHommeDarmeTERR1+NombreHommeDarmeTERR2+NombreHommeDarmeTERR3+NombreHommeDarmeTERR4+NombreHommeDarmeTERR5+NombreHommeDarmeTERR6+NombreHommeDarmeTERR7+NombreHommeDarmeTERR8+NombreHommeDarmeTERR9+NombreHommeDarmeTERR10+NombreHommeDarmeTERR11+NombreHommeDarmeTERR12+NombreHommeDarmeTERR13+NombreHommeDarmeTERR14+NombreHommeDarmeTERR15+NombreHommeDarmeTERR16+NombreHommeDarmeTERR17+NombreHommeDarmeTERR18+NombreHommeDarmeTERR19+NombreHommeDarmeTERR20)) >= NombreHommeDarmeTERR then NombreHommeDarmeTERR18 = NombreHommeDarmeTERR18 + NombreHommeDarmeTERR
            if int(NombreLancier - NombreLancierSELECTED - (NombreLancierTERR1+NombreLancierTERR2+NombreLancierTERR3+NombreLancierTERR4+NombreLancierTERR5+NombreLancierTERR6+NombreLancierTERR7+NombreLancierTERR8+NombreLancierTERR9+NombreLancierTERR10NombreLancierTERR11+NombreLancierTERR12+NombreLancierTERR13+NombreLancierTERR14+NombreLancierTERR15+NombreLancierTERR16+NombreLancierTERR17+NombreLancierTERR18+NombreLancierTERR19+NombreLancierTERR20)) >= NombreLancierTERR then NombreLancierTERR18 = NombreLancierTERR18 + NombreLancierTERR
            if int(NombreFrondeur - NombreFrondeurSELECTED - (NombreFrondeurTERR1+NombreFrondeurTERR2+NombreFrondeurTERR3+NombreFrondeurTERR4+NombreFrondeurTERR5+NombreFrondeurTERR6+NombreFrondeurTERR7+NombreFrondeurTERR8+NombreFrondeurTERR9+NombreFrondeurTERR10+NombreFrondeurTERR11+NombreFrondeurTERR12+NombreFrondeurTERR13+NombreFrondeurTERR14+NombreFrondeurTERR15+NombreFrondeurTERR16+NombreFrondeurTERR17+NombreFrondeurTERR18+NombreFrondeurTERR19+NombreFrondeurTERR20)) >= NombreFrondeurTERR then NombreFrondeurTERR18 = NombreFrondeurTERR18 + NombreFrondeurTERR
            if int(NombreArcher - NombreArcherSELECTED - (NombreArcherTERR1+NombreArcherTERR2+NombreArcherTERR3+NombreArcherTERR4+NombreArcherTERR5+NombreArcherTERR6+NombreArcherTERR7+NombreArcherTERR8+NombreArcherTERR9+NombreArcherTERR10+NombreArcherTERR11+NombreArcherTERR12+NombreArcherTERR13+NombreArcherTERR14+NombreArcherTERR15+NombreArcherTERR16+NombreArcherTERR17+NombreArcherTERR18+NombreArcherTERR19+NombreArcherTERR20)) >= NombreArcherTERR then NombreArcherTERR18 = NombreArcherTERR18 + NombreArcherTERR
            if int(NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - (NombreEXPLORATEURTERR1+NombreEXPLORATEURTERR2+NombreEXPLORATEURTERR3+NombreEXPLORATEURTERR4+NombreEXPLORATEURTERR5+NombreEXPLORATEURTERR6+NombreEXPLORATEURTERR7+NombreEXPLORATEURTERR8+NombreEXPLORATEURTERR9+NombreEXPLORATEURTERR10+NombreEXPLORATEURTERR11+NombreEXPLORATEURTERR12+NombreEXPLORATEURTERR13+NombreEXPLORATEURTERR14+NombreEXPLORATEURTERR15+NombreEXPLORATEURTERR16+NombreEXPLORATEURTERR17+NombreEXPLORATEURTERR18+NombreEXPLORATEURTERR19+NombreEXPLORATEURTERR20)) >= NombreEXPLORATEURTERR then NombreEXPLORATEURTERR18 = NombreEXPLORATEURTERR18 + NombreEXPLORATEURTERR
            NombreHommeDarmeTERR = NombreHommeDarmeTERR18 : NombreLancierTERR = NombreLancierTERR18 : NombreFrondeurTERR = NombreFrondeurTERR18 : NombreArcherTERR = NombreArcherTERR18 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR18
        case 19
            if int(NombreHommeDarme - NombreHommeDarmeSELECTED - (NombreHommeDarmeTERR1+NombreHommeDarmeTERR2+NombreHommeDarmeTERR3+NombreHommeDarmeTERR4+NombreHommeDarmeTERR5+NombreHommeDarmeTERR6+NombreHommeDarmeTERR7+NombreHommeDarmeTERR8+NombreHommeDarmeTERR9+NombreHommeDarmeTERR10+NombreHommeDarmeTERR11+NombreHommeDarmeTERR12+NombreHommeDarmeTERR13+NombreHommeDarmeTERR14+NombreHommeDarmeTERR15+NombreHommeDarmeTERR16+NombreHommeDarmeTERR17+NombreHommeDarmeTERR18+NombreHommeDarmeTERR19+NombreHommeDarmeTERR20)) >= NombreHommeDarmeTERR then NombreHommeDarmeTERR19 = NombreHommeDarmeTERR19 + NombreHommeDarmeTERR
            if int(NombreLancier - NombreLancierSELECTED - (NombreLancierTERR1+NombreLancierTERR2+NombreLancierTERR3+NombreLancierTERR4+NombreLancierTERR5+NombreLancierTERR6+NombreLancierTERR7+NombreLancierTERR8+NombreLancierTERR9+NombreLancierTERR10NombreLancierTERR11+NombreLancierTERR12+NombreLancierTERR13+NombreLancierTERR14+NombreLancierTERR15+NombreLancierTERR16+NombreLancierTERR17+NombreLancierTERR18+NombreLancierTERR19+NombreLancierTERR20)) >= NombreLancierTERR then NombreLancierTERR19 = NombreLancierTERR19 + NombreLancierTERR
            if int(NombreFrondeur - NombreFrondeurSELECTED - (NombreFrondeurTERR1+NombreFrondeurTERR2+NombreFrondeurTERR3+NombreFrondeurTERR4+NombreFrondeurTERR5+NombreFrondeurTERR6+NombreFrondeurTERR7+NombreFrondeurTERR8+NombreFrondeurTERR9+NombreFrondeurTERR10+NombreFrondeurTERR11+NombreFrondeurTERR12+NombreFrondeurTERR13+NombreFrondeurTERR14+NombreFrondeurTERR15+NombreFrondeurTERR16+NombreFrondeurTERR17+NombreFrondeurTERR18+NombreFrondeurTERR19+NombreFrondeurTERR20)) >= NombreFrondeurTERR then NombreFrondeurTERR19 = NombreFrondeurTERR19 + NombreFrondeurTERR
            if int(NombreArcher - NombreArcherSELECTED - (NombreArcherTERR1+NombreArcherTERR2+NombreArcherTERR3+NombreArcherTERR4+NombreArcherTERR5+NombreArcherTERR6+NombreArcherTERR7+NombreArcherTERR8+NombreArcherTERR9+NombreArcherTERR10+NombreArcherTERR11+NombreArcherTERR12+NombreArcherTERR13+NombreArcherTERR14+NombreArcherTERR15+NombreArcherTERR16+NombreArcherTERR17+NombreArcherTERR18+NombreArcherTERR19+NombreArcherTERR20)) >= NombreArcherTERR then NombreArcherTERR19 = NombreArcherTERR19 + NombreArcherTERR
            if int(NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - (NombreEXPLORATEURTERR1+NombreEXPLORATEURTERR2+NombreEXPLORATEURTERR3+NombreEXPLORATEURTERR4+NombreEXPLORATEURTERR5+NombreEXPLORATEURTERR6+NombreEXPLORATEURTERR7+NombreEXPLORATEURTERR8+NombreEXPLORATEURTERR9+NombreEXPLORATEURTERR10+NombreEXPLORATEURTERR11+NombreEXPLORATEURTERR12+NombreEXPLORATEURTERR13+NombreEXPLORATEURTERR14+NombreEXPLORATEURTERR15+NombreEXPLORATEURTERR16+NombreEXPLORATEURTERR17+NombreEXPLORATEURTERR18+NombreEXPLORATEURTERR19+NombreEXPLORATEURTERR20)) >= NombreEXPLORATEURTERR then NombreEXPLORATEURTERR19 = NombreEXPLORATEURTERR19 + NombreEXPLORATEURTERR
            NombreHommeDarmeTERR = NombreHommeDarmeTERR19 : NombreLancierTERR = NombreLancierTERR19 : NombreFrondeurTERR = NombreFrondeurTERR19 : NombreArcherTERR = NombreArcherTERR19 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR19
        case 20
            if int(NombreHommeDarme - NombreHommeDarmeSELECTED - (NombreHommeDarmeTERR1+NombreHommeDarmeTERR2+NombreHommeDarmeTERR3+NombreHommeDarmeTERR4+NombreHommeDarmeTERR5+NombreHommeDarmeTERR6+NombreHommeDarmeTERR7+NombreHommeDarmeTERR8+NombreHommeDarmeTERR9+NombreHommeDarmeTERR10+NombreHommeDarmeTERR11+NombreHommeDarmeTERR12+NombreHommeDarmeTERR13+NombreHommeDarmeTERR14+NombreHommeDarmeTERR15+NombreHommeDarmeTERR16+NombreHommeDarmeTERR17+NombreHommeDarmeTERR18+NombreHommeDarmeTERR19+NombreHommeDarmeTERR20)) >= NombreHommeDarmeTERR then NombreHommeDarmeTERR20 = NombreHommeDarmeTERR20 + NombreHommeDarmeTERR
            if int(NombreLancier - NombreLancierSELECTED - (NombreLancierTERR1+NombreLancierTERR2+NombreLancierTERR3+NombreLancierTERR4+NombreLancierTERR5+NombreLancierTERR6+NombreLancierTERR7+NombreLancierTERR8+NombreLancierTERR9+NombreLancierTERR10NombreLancierTERR11+NombreLancierTERR12+NombreLancierTERR13+NombreLancierTERR14+NombreLancierTERR15+NombreLancierTERR16+NombreLancierTERR17+NombreLancierTERR18+NombreLancierTERR19+NombreLancierTERR20)) >= NombreLancierTERR then NombreLancierTERR20 = NombreLancierTERR20 + NombreLancierTERR
            if int(NombreFrondeur - NombreFrondeurSELECTED - (NombreFrondeurTERR1+NombreFrondeurTERR2+NombreFrondeurTERR3+NombreFrondeurTERR4+NombreFrondeurTERR5+NombreFrondeurTERR6+NombreFrondeurTERR7+NombreFrondeurTERR8+NombreFrondeurTERR9+NombreFrondeurTERR10+NombreFrondeurTERR11+NombreFrondeurTERR12+NombreFrondeurTERR13+NombreFrondeurTERR14+NombreFrondeurTERR15+NombreFrondeurTERR16+NombreFrondeurTERR17+NombreFrondeurTERR18+NombreFrondeurTERR19+NombreFrondeurTERR20)) >= NombreFrondeurTERR then NombreFrondeurTERR20 = NombreFrondeurTERR20 + NombreFrondeurTERR
            if int(NombreArcher - NombreArcherSELECTED - (NombreArcherTERR1+NombreArcherTERR2+NombreArcherTERR3+NombreArcherTERR4+NombreArcherTERR5+NombreArcherTERR6+NombreArcherTERR7+NombreArcherTERR8+NombreArcherTERR9+NombreArcherTERR10+NombreArcherTERR11+NombreArcherTERR12+NombreArcherTERR13+NombreArcherTERR14+NombreArcherTERR15+NombreArcherTERR16+NombreArcherTERR17+NombreArcherTERR18+NombreArcherTERR19+NombreArcherTERR20)) >= NombreArcherTERR then NombreArcherTERR20 = NombreArcherTERR20 + NombreArcherTERR
            if int(NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - (NombreEXPLORATEURTERR1+NombreEXPLORATEURTERR2+NombreEXPLORATEURTERR3+NombreEXPLORATEURTERR4+NombreEXPLORATEURTERR5+NombreEXPLORATEURTERR6+NombreEXPLORATEURTERR7+NombreEXPLORATEURTERR8+NombreEXPLORATEURTERR9+NombreEXPLORATEURTERR10+NombreEXPLORATEURTERR11+NombreEXPLORATEURTERR12+NombreEXPLORATEURTERR13+NombreEXPLORATEURTERR14+NombreEXPLORATEURTERR15+NombreEXPLORATEURTERR16+NombreEXPLORATEURTERR17+NombreEXPLORATEURTERR18+NombreEXPLORATEURTERR19+NombreEXPLORATEURTERR20)) >= NombreEXPLORATEURTERR then NombreEXPLORATEURTERR20 = NombreEXPLORATEURTERR20 + NombreEXPLORATEURTERR
            NombreHommeDarmeTERR = NombreHommeDarmeTERR20 : NombreLancierTERR = NombreLancierTERR20 : NombreFrondeurTERR = NombreFrondeurTERR20 : NombreArcherTERR = NombreArcherTERR20 : NombreEXPLORATEURTERR = NombreEXPLORATEURTERR20
    end select
    [endUNITterr]
    print #bat1.map, "backcolor white;font Times New Roman 7; color black"
    print #bat1.map, "place 90 230 ;\"; "(";int(NombreHommeDarme- NombreHommeDarmeSELECTED-(NombreHommeDarmeTERR1+NombreHommeDarmeTERR2+NombreHommeDarmeTERR3+NombreHommeDarmeTERR4+NombreHommeDarmeTERR5+NombreHommeDarmeTERR6+NombreHommeDarmeTERR7+NombreHommeDarmeTERR8+NombreHommeDarmeTERR9+NombreHommeDarmeTERR10+NombreHommeDarmeTERR11+NombreHommeDarmeTERR12+NombreHommeDarmeTERR13+NombreHommeDarmeTERR14+NombreHommeDarmeTERR15+NombreHommeDarmeTERR16+NombreHommeDarmeTERR17+NombreHommeDarmeTERR18+NombreHommeDarmeTERR19+NombreHommeDarmeTERR20));")  ";NombreHommeDarmeTERR;"     "
    print #bat1.map, "place 165 230 ;\"; "(";int(NombreLancier-NombreLancierSELECTED-(NombreLancierTERR1+NombreLancierTERR2+NombreLancierTERR3+NombreLancierTERR4+NombreLancierTERR5+NombreLancierTERR6+NombreLancierTERR7+NombreLancierTERR8+NombreLancierTERR9+NombreLancierTERR10NombreLancierTERR11+NombreLancierTERR12+NombreLancierTERR13+NombreLancierTERR14+NombreLancierTERR15+NombreLancierTERR16+NombreLancierTERR17+NombreLancierTERR18+NombreLancierTERR19+NombreLancierTERR20));")  ";NombreLancierTERR;"     "
    print #bat1.map, "place 240 230 ;\"; "(";int(NombreFrondeur-NombreFrondeurSELECTED-(NombreFrondeurTERR1+NombreFrondeurTERR2+NombreFrondeurTERR3+NombreFrondeurTERR4+NombreFrondeurTERR5+NombreFrondeurTERR6+NombreFrondeurTERR7+NombreFrondeurTERR8+NombreFrondeurTERR9+NombreFrondeurTERR10+NombreFrondeurTERR11+NombreFrondeurTERR12+NombreFrondeurTERR13+NombreFrondeurTERR14+NombreFrondeurTERR15+NombreFrondeurTERR16+NombreFrondeurTERR17+NombreFrondeurTERR18+NombreFrondeurTERR19+NombreFrondeurTERR20));")  ";NombreFrondeurTERR;"     "
    print #bat1.map, "place 315 230 ;\"; "(";int(NombreArcher-NombreArcherSELECTED-(NombreArcherTERR1+NombreArcherTERR2+NombreArcherTERR3+NombreArcherTERR4+NombreArcherTERR5+NombreArcherTERR6+NombreArcherTERR7+NombreArcherTERR8+NombreArcherTERR9+NombreArcherTERR10+NombreArcherTERR11+NombreArcherTERR12+NombreArcherTERR13+NombreArcherTERR14+NombreArcherTERR15+NombreArcherTERR16+NombreArcherTERR17+NombreArcherTERR18+NombreArcherTERR19+NombreArcherTERR20));")  ";NombreArcherTERR;"     "
    print #bat1.map, "place 390 230 ;\"; "(";int(NombreEXPLORATEUR-NombreEXPLORATEURSELECTED-(NombreEXPLORATEURTERR1+NombreEXPLORATEURTERR2+NombreEXPLORATEURTERR3+NombreEXPLORATEURTERR4+NombreEXPLORATEURTERR5+NombreEXPLORATEURTERR6+NombreEXPLORATEURTERR7+NombreEXPLORATEURTERR8+NombreEXPLORATEURTERR9+NombreEXPLORATEURTERR10+NombreEXPLORATEURTERR11+NombreEXPLORATEURTERR12+NombreEXPLORATEURTERR13+NombreEXPLORATEURTERR14+NombreEXPLORATEURTERR15+NombreEXPLORATEURTERR16+NombreEXPLORATEURTERR17+NombreEXPLORATEURTERR18+NombreEXPLORATEURTERR19+NombreEXPLORATEURTERR20));")  ";NombreEXPLORATEURTERR;"     "
    print #bat1.unit1, ""
    print #bat1.unit2, ""
    print #bat1.unit3, ""
    print #bat1.unit4, ""
    print #bat1.unit5, ""
    wait

    [UpgradeTERRbois]
    select case territoire
        case 1
            if food >= int(INCOMEterritoireBOISsee*7.64) and bois >= int(INCOMEterritoireBOISsee*12.22) then
                food = food - int(INCOMEterritoireBOISsee*7.64)
                bois = bois - int(INCOMEterritoireBOISsee*12.22)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire1BOIS
                INCOMEterritoire1BOIS = int(INCOMEterritoire1BOIS + (INCOMEterritoire1BOIS/10) +1)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire1BOIS
                INCOMEterritoireBOISsee = INCOMEterritoire1BOIS
            end if
        case 2
            if food >= int(INCOMEterritoireBOISsee*7.64) and bois >= int(INCOMEterritoireBOISsee*12.22) then
                food = food - int(INCOMEterritoireBOISsee*7.64)
                bois = bois - int(INCOMEterritoireBOISsee*12.22)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire2BOIS
                INCOMEterritoire2BOIS = int(INCOMEterritoire2BOIS + (INCOMEterritoire2BOIS/10) +1)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire2BOIS
                INCOMEterritoireBOISsee = INCOMEterritoire2BOIS
            end if
        case 3
            if food >= int(INCOMEterritoireBOISsee*7.64) and bois >= int(INCOMEterritoireBOISsee*12.22) then
                food = food - int(INCOMEterritoireBOISsee*7.64)
                bois = bois - int(INCOMEterritoireBOISsee*12.22)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire3BOIS
                INCOMEterritoire3BOIS = int(INCOMEterritoire3BOIS + (INCOMEterritoire3BOIS/10) +1)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire3BOIS
                INCOMEterritoireBOISsee = INCOMEterritoire3BOIS
            end if
        case 4
            if food >= int(INCOMEterritoireBOISsee*7.64) and bois >= int(INCOMEterritoireBOISsee*12.22) then
                food = food - int(INCOMEterritoireBOISsee*7.64)
                bois = bois - int(INCOMEterritoireBOISsee*12.22)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire4BOIS
                INCOMEterritoire4BOIS = int(INCOMEterritoire4BOIS + (INCOMEterritoire4BOIS/10) +1)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire4BOIS
                INCOMEterritoireBOISsee = INCOMEterritoire4BOIS
            end if
        case 5
            if food >= int(INCOMEterritoireBOISsee*7.64) and bois >= int(INCOMEterritoireBOISsee*12.22) then
                food = food - int(INCOMEterritoireBOISsee*7.64)
                bois = bois - int(INCOMEterritoireBOISsee*12.22)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire5BOIS
                INCOMEterritoire5BOIS = int(INCOMEterritoire5BOIS + (INCOMEterritoire5BOIS/10) +1)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire5BOIS
                INCOMEterritoireBOISsee = INCOMEterritoire5BOIS
            end if
        case 6
            if food >= int(INCOMEterritoireBOISsee*7.64) and bois >= int(INCOMEterritoireBOISsee*12.22) then
                food = food - int(INCOMEterritoireBOISsee*7.64)
                bois = bois - int(INCOMEterritoireBOISsee*12.22)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire6BOIS
                INCOMEterritoire6BOIS = int(INCOMEterritoire6BOIS + (INCOMEterritoire6BOIS/10) +1)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire6BOIS
                INCOMEterritoireBOISsee = INCOMEterritoire6BOIS
            end if
        case 7
            if food >= int(INCOMEterritoireBOISsee*7.64) and bois >= int(INCOMEterritoireBOISsee*12.22) then
                food = food - int(INCOMEterritoireBOISsee*7.64)
                bois = bois - int(INCOMEterritoireBOISsee*12.22)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire7BOIS
                INCOMEterritoire7BOIS = int(INCOMEterritoire7BOIS + (INCOMEterritoire7BOIS/10) +1)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire7BOIS
                INCOMEterritoireBOISsee = INCOMEterritoire7BOIS
            end if
        case 8
            if food >= int(INCOMEterritoireBOISsee*7.64) and bois >= int(INCOMEterritoireBOISsee*12.22) then
                food = food - int(INCOMEterritoireBOISsee*7.64)
                bois = bois - int(INCOMEterritoireBOISsee*12.22)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire8BOIS
                INCOMEterritoire8BOIS = int(INCOMEterritoire8BOIS + (INCOMEterritoire8BOIS/10) +1)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire8BOIS
                INCOMEterritoireBOISsee = INCOMEterritoire8BOIS
            end if
        case 9
            if food >= int(INCOMEterritoireBOISsee*7.64) and bois >= int(INCOMEterritoireBOISsee*12.22) then
                food = food - int(INCOMEterritoireBOISsee*7.64)
                bois = bois - int(INCOMEterritoireBOISsee*12.22)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire9BOIS
                INCOMEterritoire9BOIS = int(INCOMEterritoire9BOIS + (INCOMEterritoire9BOIS/10) +1)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire9BOIS
                INCOMEterritoireBOISsee = INCOMEterritoire9BOIS
            end if
        case 10
            if food >= int(INCOMEterritoireBOISsee*7.64) and bois >= int(INCOMEterritoireBOISsee*12.22) then
                food = food - int(INCOMEterritoireBOISsee*7.64)
                bois = bois - int(INCOMEterritoireBOISsee*12.22)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire10BOIS
                INCOMEterritoire10BOIS = int(INCOMEterritoire10BOIS + (INCOMEterritoire10BOIS/10) +1)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire10BOIS
                INCOMEterritoireBOISsee = INCOMEterritoire10BOIS
            end if
        case 11
            if food >= int(INCOMEterritoireBOISsee*7.64) and bois >= int(INCOMEterritoireBOISsee*12.22) then
                food = food - int(INCOMEterritoireBOISsee*7.64)
                bois = bois - int(INCOMEterritoireBOISsee*12.22)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire11BOIS
                INCOMEterritoire11BOIS = int(INCOMEterritoire11BOIS + (INCOMEterritoire11BOIS/10) +1)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire11BOIS
                INCOMEterritoireBOISsee = INCOMEterritoire11BOIS
            end if
        case 12
            if food >= int(INCOMEterritoireBOISsee*7.64) and bois >= int(INCOMEterritoireBOISsee*12.22) then
                food = food - int(INCOMEterritoireBOISsee*7.64)
                bois = bois - int(INCOMEterritoireBOISsee*12.22)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire12BOIS
                INCOMEterritoire12BOIS = int(INCOMEterritoire12BOIS + (INCOMEterritoire12BOIS/10) +1)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire12BOIS
                INCOMEterritoireBOISsee = INCOMEterritoire12BOIS
            end if
        case 13
            if food >= int(INCOMEterritoireBOISsee*7.64) and bois >= int(INCOMEterritoireBOISsee*12.22) then
                food = food - int(INCOMEterritoireBOISsee*7.64)
                bois = bois - int(INCOMEterritoireBOISsee*12.22)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire13BOIS
                INCOMEterritoire13BOIS = int(INCOMEterritoire13BOIS + (INCOMEterritoire13BOIS/10) +1)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire13BOIS
                INCOMEterritoireBOISsee = INCOMEterritoire13BOIS
            end if
        case 14
            if food >= int(INCOMEterritoireBOISsee*7.64) and bois >= int(INCOMEterritoireBOISsee*12.22) then
                food = food - int(INCOMEterritoireBOISsee*7.64)
                bois = bois - int(INCOMEterritoireBOISsee*12.22)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire14BOIS
                INCOMEterritoire14BOIS = int(INCOMEterritoire14BOIS + (INCOMEterritoire14BOIS/10) +1)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire14BOIS
                INCOMEterritoireBOISsee = INCOMEterritoire14BOIS
            end if
        case 15
            if food >= int(INCOMEterritoireBOISsee*7.64) and bois >= int(INCOMEterritoireBOISsee*12.22) then
                food = food - int(INCOMEterritoireBOISsee*7.64)
                bois = bois - int(INCOMEterritoireBOISsee*12.22)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire15BOIS
                INCOMEterritoire15BOIS = int(INCOMEterritoire15BOIS + (INCOMEterritoire15BOIS/10) +1)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire15BOIS
                INCOMEterritoireBOISsee = INCOMEterritoire15BOIS
            end if
        case 16
            if food >= int(INCOMEterritoireBOISsee*7.64) and bois >= int(INCOMEterritoireBOISsee*12.22) then
                food = food - int(INCOMEterritoireBOISsee*7.64)
                bois = bois - int(INCOMEterritoireBOISsee*12.22)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire16BOIS
                INCOMEterritoire16BOIS = int(INCOMEterritoire16BOIS + (INCOMEterritoire16BOIS/10) +1)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire16BOIS
                INCOMEterritoireBOISsee = INCOMEterritoire16BOIS
            end if
        case 17
            if food >= int(INCOMEterritoireBOISsee*7.64) and bois >= int(INCOMEterritoireBOISsee*12.22) then
                food = food - int(INCOMEterritoireBOISsee*7.64)
                bois = bois - int(INCOMEterritoireBOISsee*12.22)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire17BOIS
                INCOMEterritoire17BOIS = int(INCOMEterritoire17BOIS + (INCOMEterritoire17BOIS/10) +1)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire17BOIS
                INCOMEterritoireBOISsee = INCOMEterritoire17BOIS
            end if
        case 18
            if food >= int(INCOMEterritoireBOISsee*7.64) and bois >= int(INCOMEterritoireBOISsee*12.22) then
                food = food - int(INCOMEterritoireBOISsee*7.64)
                bois = bois - int(INCOMEterritoireBOISsee*12.22)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire18BOIS
                INCOMEterritoire18BOIS = int(INCOMEterritoire18BOIS + (INCOMEterritoire18BOIS/10) +1)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire18BOIS
                INCOMEterritoireBOISsee = INCOMEterritoire18BOIS
            end if
        case 19
            if food >= int(INCOMEterritoireBOISsee*7.64) and bois >= int(INCOMEterritoireBOISsee*12.22) then
                food = food - int(INCOMEterritoireBOISsee*7.64)
                bois = bois - int(INCOMEterritoireBOISsee*12.22)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire19BOIS
                INCOMEterritoire19BOIS = int(INCOMEterritoire19BOIS + (INCOMEterritoire19BOIS/10) +1)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire19BOIS
                INCOMEterritoireBOISsee = INCOMEterritoire19BOIS
            end if
        case 20
            if food >= int(INCOMEterritoireBOISsee*7.64) and bois >= int(INCOMEterritoireBOISsee*12.22) then
                food = food - int(INCOMEterritoireBOISsee*7.64)
                bois = bois - int(INCOMEterritoireBOISsee*12.22)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire20BOIS
                INCOMEterritoire20BOIS = int(INCOMEterritoire20BOIS + (INCOMEterritoire20BOIS/10) +1)
                INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire20BOIS
                INCOMEterritoireBOISsee = INCOMEterritoire20BOIS
            end if
    end select
    goto [GESTIONterritoires2]


    [UpgradeTERRfood]
    select case territoire
        case 1
            if food >= int(INCOMEterritoireFOODsee*2.27) and bois >= int(INCOMEterritoireFOODsee*8.27) then
                food = food - int(INCOMEterritoireFOODsee*2.27)
                bois = bois - int(INCOMEterritoireFOODsee*8.27)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire1FOOD
                INCOMEterritoire1FOOD = int(INCOMEterritoire1FOOD + (INCOMEterritoire1FOOD/10) +1)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire1FOOD
                INCOMEterritoireFOODsee = INCOMEterritoire1FOOD
            end if
        case 2
            if food >= int(INCOMEterritoireFOODsee*2.27) and bois >= int(INCOMEterritoireFOODsee*8.27) then
                food = food - int(INCOMEterritoireFOODsee*2.27)
                bois = bois - int(INCOMEterritoireFOODsee*8.27)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire2FOOD
                INCOMEterritoire2FOOD = int(INCOMEterritoire2FOOD + (INCOMEterritoire2FOOD/10) +1)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire2FOOD
                INCOMEterritoireFOODsee = INCOMEterritoire2FOOD
            end if
        case 3
            if food >= int(INCOMEterritoireFOODsee*2.27) and bois >= int(INCOMEterritoireFOODsee*8.27) then
                food = food - int(INCOMEterritoireFOODsee*2.27)
                bois = bois - int(INCOMEterritoireFOODsee*8.27)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire3FOOD
                INCOMEterritoire3FOOD = int(INCOMEterritoire3FOOD + (INCOMEterritoire3FOOD/10) +1)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire3FOOD
                INCOMEterritoireFOODsee = INCOMEterritoire3FOOD
            end if
        case 4
            if food >= int(INCOMEterritoireFOODsee*2.27) and bois >= int(INCOMEterritoireFOODsee*8.27) then
                food = food - int(INCOMEterritoireFOODsee*2.27)
                bois = bois - int(INCOMEterritoireFOODsee*8.27)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire4FOOD
                INCOMEterritoire4FOOD = int(INCOMEterritoire4FOOD + (INCOMEterritoire4FOOD/10) +1)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire4FOOD
                INCOMEterritoireFOODsee = INCOMEterritoire4FOOD
            end if
        case 5
            if food >= int(INCOMEterritoireFOODsee*2.27) and bois >= int(INCOMEterritoireFOODsee*8.27) then
                food = food - int(INCOMEterritoireFOODsee*2.27)
                bois = bois - int(INCOMEterritoireFOODsee*8.27)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire5FOOD
                INCOMEterritoire5FOOD = int(INCOMEterritoire5FOOD + (INCOMEterritoire5FOOD/10) +1)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire5FOOD
                INCOMEterritoireFOODsee = INCOMEterritoire5FOOD
            end if
        case 6
            if food >= int(INCOMEterritoireFOODsee*2.27) and bois >= int(INCOMEterritoireFOODsee*8.27) then
                food = food - int(INCOMEterritoireFOODsee*2.27)
                bois = bois - int(INCOMEterritoireFOODsee*8.27)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire6FOOD
                INCOMEterritoire6FOOD = int(INCOMEterritoire6FOOD + (INCOMEterritoire6FOOD/10) +1)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire6FOOD
                INCOMEterritoireFOODsee = INCOMEterritoire6FOOD
            end if
        case 7
            if food >= int(INCOMEterritoireFOODsee*2.27) and bois >= int(INCOMEterritoireFOODsee*8.27) then
                food = food - int(INCOMEterritoireFOODsee*2.27)
                bois = bois - int(INCOMEterritoireFOODsee*8.27)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire7FOOD
                INCOMEterritoire7FOOD = int(INCOMEterritoire7FOOD + (INCOMEterritoire7FOOD/10) +1)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire7FOOD
                INCOMEterritoireFOODsee = INCOMEterritoire7FOOD
            end if
        case 8
            if food >= int(INCOMEterritoireFOODsee*2.27) and bois >= int(INCOMEterritoireFOODsee*8.27) then
                food = food - int(INCOMEterritoireFOODsee*2.27)
                bois = bois - int(INCOMEterritoireFOODsee*8.27)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire8FOOD
                INCOMEterritoire8FOOD = int(INCOMEterritoire8FOOD + (INCOMEterritoire8FOOD/10) +1)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire8FOOD
                INCOMEterritoireFOODsee = INCOMEterritoire8FOOD
            end if
        case 9
            if food >= int(INCOMEterritoireFOODsee*2.27) and bois >= int(INCOMEterritoireFOODsee*8.27) then
                food = food - int(INCOMEterritoireFOODsee*2.27)
                bois = bois - int(INCOMEterritoireFOODsee*8.27)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire9FOOD
                INCOMEterritoire9FOOD = int(INCOMEterritoire9FOOD + (INCOMEterritoire9FOOD/10) +1)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire9FOOD
                INCOMEterritoireFOODsee = INCOMEterritoire9FOOD
            end if
        case 10
            if food >= int(INCOMEterritoireFOODsee*2.27) and bois >= int(INCOMEterritoireFOODsee*8.27) then
                food = food - int(INCOMEterritoireFOODsee*2.27)
                bois = bois - int(INCOMEterritoireFOODsee*8.27)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire10FOOD
                INCOMEterritoire10FOOD = int(INCOMEterritoire10FOOD + (INCOMEterritoire10FOOD/10) +1)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire10FOOD
                INCOMEterritoireFOODsee = INCOMEterritoire10FOOD
            end if
        case 11
            if food >= int(INCOMEterritoireFOODsee*2.27) and bois >= int(INCOMEterritoireFOODsee*8.27) then
                food = food - int(INCOMEterritoireFOODsee*2.27)
                bois = bois - int(INCOMEterritoireFOODsee*8.27)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire11FOOD
                INCOMEterritoire11FOOD = int(INCOMEterritoire11FOOD + (INCOMEterritoire11FOOD/10) +1)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire11FOOD
                INCOMEterritoireFOODsee = INCOMEterritoire11FOOD
            end if
        case 12
            if food >= int(INCOMEterritoireFOODsee*2.27) and bois >= int(INCOMEterritoireFOODsee*8.27) then
                food = food - int(INCOMEterritoireFOODsee*2.27)
                bois = bois - int(INCOMEterritoireFOODsee*8.27)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire12FOOD
                INCOMEterritoire12FOOD = int(INCOMEterritoire12FOOD + (INCOMEterritoire12FOOD/10) +1)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire12FOOD
                INCOMEterritoireFOODsee = INCOMEterritoire12FOOD
            end if
        case 13
            if food >= int(INCOMEterritoireFOODsee*2.27) and bois >= int(INCOMEterritoireFOODsee*8.27) then
                food = food - int(INCOMEterritoireFOODsee*2.27)
                bois = bois - int(INCOMEterritoireFOODsee*8.27)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire13FOOD
                INCOMEterritoire13FOOD = int(INCOMEterritoire13FOOD + (INCOMEterritoire13FOOD/10) +1)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire13FOOD
                INCOMEterritoireFOODsee = INCOMEterritoire13FOOD
            end if
        case 14
            if food >= int(INCOMEterritoireFOODsee*2.27) and bois >= int(INCOMEterritoireFOODsee*8.27) then
                food = food - int(INCOMEterritoireFOODsee*2.27)
                bois = bois - int(INCOMEterritoireFOODsee*8.27)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire14FOOD
                INCOMEterritoire14FOOD = int(INCOMEterritoire14FOOD + (INCOMEterritoire14FOOD/10) +1)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire14FOOD
                INCOMEterritoireFOODsee = INCOMEterritoire14FOOD
            end if
        case 15
            if food >= int(INCOMEterritoireFOODsee*2.27) and bois >= int(INCOMEterritoireFOODsee*8.27) then
                food = food - int(INCOMEterritoireFOODsee*2.27)
                bois = bois - int(INCOMEterritoireFOODsee*8.27)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire15FOOD
                INCOMEterritoire15FOOD = int(INCOMEterritoire15FOOD + (INCOMEterritoire15FOOD/10) +1)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire15FOOD
                INCOMEterritoireFOODsee = INCOMEterritoire15FOOD
            end if
        case 16
            if food >= int(INCOMEterritoireFOODsee*2.27) and bois >= int(INCOMEterritoireFOODsee*8.27) then
                food = food - int(INCOMEterritoireFOODsee*2.27)
                bois = bois - int(INCOMEterritoireFOODsee*8.27)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire16FOOD
                INCOMEterritoire16FOOD = int(INCOMEterritoire16FOOD + (INCOMEterritoire16FOOD/10) +1)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire16FOOD
                INCOMEterritoireFOODsee = INCOMEterritoire16FOOD
            end if
        case 17
            if food >= int(INCOMEterritoireFOODsee*2.27) and bois >= int(INCOMEterritoireFOODsee*8.27) then
                food = food - int(INCOMEterritoireFOODsee*2.27)
                bois = bois - int(INCOMEterritoireFOODsee*8.27)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire17FOOD
                INCOMEterritoire17FOOD = int(INCOMEterritoire17FOOD + (INCOMEterritoire17FOOD/10) +1)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire17FOOD
                INCOMEterritoireFOODsee = INCOMEterritoire17FOOD
            end if
        case 18
            if food >= int(INCOMEterritoireFOODsee*2.27) and bois >= int(INCOMEterritoireFOODsee*8.27) then
                food = food - int(INCOMEterritoireFOODsee*2.27)
                bois = bois - int(INCOMEterritoireFOODsee*8.27)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire18FOOD
                INCOMEterritoire18FOOD = int(INCOMEterritoire18FOOD + (INCOMEterritoire18FOOD/10) +1)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire18FOOD
                INCOMEterritoireFOODsee = INCOMEterritoire18FOOD
            end if
        case 19
            if food >= int(INCOMEterritoireFOODsee*2.27) and bois >= int(INCOMEterritoireFOODsee*8.27) then
                food = food - int(INCOMEterritoireFOODsee*2.27)
                bois = bois - int(INCOMEterritoireFOODsee*8.27)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire19FOOD
                INCOMEterritoire19FOOD = int(INCOMEterritoire19FOOD + (INCOMEterritoire19FOOD/10) +1)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire19FOOD
                INCOMEterritoireFOODsee = INCOMEterritoire19FOOD
            end if
        case 20
            if food >= int(INCOMEterritoireFOODsee*2.27) and bois >= int(INCOMEterritoireFOODsee*8.27) then
                food = food - int(INCOMEterritoireFOODsee*2.27)
                bois = bois - int(INCOMEterritoireFOODsee*8.27)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire20FOOD
                INCOMEterritoire20FOOD = int(INCOMEterritoire20FOOD + (INCOMEterritoire20FOOD/10) +1)
                INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire20FOOD
                INCOMEterritoireFOODsee = INCOMEterritoire20FOOD
            end if
    end select
    goto [GESTIONterritoires2]


    [UpgradeTERRmetal]
    select case territoire
        case 1
            if food >= int(INCOMEterritoireMETALsee*54.81) and bois >= int(INCOMEterritoireMETALsee*95.18) then
                food = food - int(INCOMEterritoireMETALsee*54.81)
                bois = bois - int(INCOMEterritoireMETALsee*95.18)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire1METAL
                INCOMEterritoire1METAL = int(INCOMEterritoire1METAL + (INCOMEterritoire1METAL/10) +1)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire1METAL
                INCOMEterritoireMETALsee = INCOMEterritoire1METAL
            end if
        case 2
            if food >= int(INCOMEterritoireMETALsee*54.81) and bois >= int(INCOMEterritoireMETALsee*95.18) then
                food = food - int(INCOMEterritoireMETALsee*54.81)
                bois = bois - int(INCOMEterritoireMETALsee*95.18)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire2METAL
                INCOMEterritoire2METAL = int(INCOMEterritoire2METAL + (INCOMEterritoire2METAL/10) +1)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire2METAL
                INCOMEterritoireMETALsee = INCOMEterritoire2METAL
            end if
        case 3
            if food >= int(INCOMEterritoireMETALsee*54.81) and bois >= int(INCOMEterritoireMETALsee*95.18) then
                food = food - int(INCOMEterritoireMETALsee*54.81)
                bois = bois - int(INCOMEterritoireMETALsee*95.18)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire3METAL
                INCOMEterritoire3METAL = int(INCOMEterritoire3METAL + (INCOMEterritoire3METAL/10) +1)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire3METAL
                INCOMEterritoireMETALsee = INCOMEterritoire3METAL
            end if
        case 4
            if food >= int(INCOMEterritoireMETALsee*54.81) and bois >= int(INCOMEterritoireMETALsee*95.18) then
                food = food - int(INCOMEterritoireMETALsee*54.81)
                bois = bois - int(INCOMEterritoireMETALsee*95.18)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire4METAL
                INCOMEterritoire4METAL = int(INCOMEterritoire4METAL + (INCOMEterritoire4METAL/10) +1)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire4METAL
                INCOMEterritoireMETALsee = INCOMEterritoire4METAL
            end if
        case 5
            if food >= int(INCOMEterritoireMETALsee*54.81) and bois >= int(INCOMEterritoireMETALsee*95.18) then
                food = food - int(INCOMEterritoireMETALsee*54.81)
                bois = bois - int(INCOMEterritoireMETALsee*95.18)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire5METAL
                INCOMEterritoire5METAL = int(INCOMEterritoire5METAL + (INCOMEterritoire5METAL/10) +1)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire5METAL
                INCOMEterritoireMETALsee = INCOMEterritoire5METAL
            end if
        case 6
            if food >= int(INCOMEterritoireMETALsee*54.81) and bois >= int(INCOMEterritoireMETALsee*95.18) then
                food = food - int(INCOMEterritoireMETALsee*54.81)
                bois = bois - int(INCOMEterritoireMETALsee*95.18)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire6METAL
                INCOMEterritoire6METAL = int(INCOMEterritoire6METAL + (INCOMEterritoire6METAL/10) +1)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire6METAL
                INCOMEterritoireMETALsee = INCOMEterritoire6METAL
            end if
        case 7
            if food >= int(INCOMEterritoireMETALsee*54.81) and bois >= int(INCOMEterritoireMETALsee*95.18) then
                food = food - int(INCOMEterritoireMETALsee*54.81)
                bois = bois - int(INCOMEterritoireMETALsee*95.18)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire7METAL
                INCOMEterritoire7METAL = int(INCOMEterritoire7METAL + (INCOMEterritoire7METAL/10) +1)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire7METAL
                INCOMEterritoireMETALsee = INCOMEterritoire7METAL
            end if
        case 8
            if food >= int(INCOMEterritoireMETALsee*54.81) and bois >= int(INCOMEterritoireMETALsee*95.18) then
                food = food - int(INCOMEterritoireMETALsee*54.81)
                bois = bois - int(INCOMEterritoireMETALsee*95.18)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire8METAL
                INCOMEterritoire8METAL = int(INCOMEterritoire8METAL + (INCOMEterritoire8METAL/10) +1)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire8METAL
                INCOMEterritoireMETALsee = INCOMEterritoire8METAL
            end if
        case 9
            if food >= int(INCOMEterritoireMETALsee*54.81) and bois >= int(INCOMEterritoireMETALsee*95.18) then
                food = food - int(INCOMEterritoireMETALsee*54.81)
                bois = bois - int(INCOMEterritoireMETALsee*95.18)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire9METAL
                INCOMEterritoire9METAL = int(INCOMEterritoire9METAL + (INCOMEterritoire9METAL/10) +1)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire9METAL
                INCOMEterritoireMETALsee = INCOMEterritoire9METAL
            end if
        case 10
            if food >= int(INCOMEterritoireMETALsee*54.81) and bois >= int(INCOMEterritoireMETALsee*95.18) then
                food = food - int(INCOMEterritoireMETALsee*54.81)
                bois = bois - int(INCOMEterritoireMETALsee*95.18)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire10METAL
                INCOMEterritoire10METAL = int(INCOMEterritoire10METAL + (INCOMEterritoire10METAL/10) +1)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire10METAL
                INCOMEterritoireMETALsee = INCOMEterritoire10METAL
            end if
        case 11
            if food >= int(INCOMEterritoireMETALsee*54.81) and bois >= int(INCOMEterritoireMETALsee*95.18) then
                food = food - int(INCOMEterritoireMETALsee*54.81)
                bois = bois - int(INCOMEterritoireMETALsee*95.18)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire11METAL
                INCOMEterritoire11METAL = int(INCOMEterritoire11METAL + (INCOMEterritoire11METAL/10) +1)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire11METAL
                INCOMEterritoireMETALsee = INCOMEterritoire11METAL
            end if
        case 12
            if food >= int(INCOMEterritoireMETALsee*54.81) and bois >= int(INCOMEterritoireMETALsee*95.18) then
                food = food - int(INCOMEterritoireMETALsee*54.81)
                bois = bois - int(INCOMEterritoireMETALsee*95.18)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire12METAL
                INCOMEterritoire12METAL = int(INCOMEterritoire12METAL + (INCOMEterritoire12METAL/10) +1)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire12METAL
                INCOMEterritoireMETALsee = INCOMEterritoire12METAL
            end if
        case 13
            if food >= int(INCOMEterritoireMETALsee*54.81) and bois >= int(INCOMEterritoireMETALsee*95.18) then
                food = food - int(INCOMEterritoireMETALsee*54.81)
                bois = bois - int(INCOMEterritoireMETALsee*95.18)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire13METAL
                INCOMEterritoire13METAL = int(INCOMEterritoire13METAL + (INCOMEterritoire13METAL/10) +1)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire13METAL
                INCOMEterritoireMETALsee = INCOMEterritoire13METAL
            end if
        case 14
            if food >= int(INCOMEterritoireMETALsee*54.81) and bois >= int(INCOMEterritoireMETALsee*95.18) then
                food = food - int(INCOMEterritoireMETALsee*54.81)
                bois = bois - int(INCOMEterritoireMETALsee*95.18)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire14METAL
                INCOMEterritoire14METAL = int(INCOMEterritoire14METAL + (INCOMEterritoire14METAL/10) +1)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire14METAL
                INCOMEterritoireMETALsee = INCOMEterritoire14METAL
            end if
        case 15
            if food >= int(INCOMEterritoireMETALsee*54.81) and bois >= int(INCOMEterritoireMETALsee*95.18) then
                food = food - int(INCOMEterritoireMETALsee*54.81)
                bois = bois - int(INCOMEterritoireMETALsee*95.18)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire15METAL
                INCOMEterritoire15METAL = int(INCOMEterritoire15METAL + (INCOMEterritoire15METAL/10) +1)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire15METAL
                INCOMEterritoireMETALsee = INCOMEterritoire15METAL
            end if
        case 16
            if food >= int(INCOMEterritoireMETALsee*54.81) and bois >= int(INCOMEterritoireMETALsee*95.18) then
                food = food - int(INCOMEterritoireMETALsee*54.81)
                bois = bois - int(INCOMEterritoireMETALsee*95.18)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire16METAL
                INCOMEterritoire16METAL = int(INCOMEterritoire16METAL + (INCOMEterritoire16METAL/10) +1)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire16METAL
                INCOMEterritoireMETALsee = INCOMEterritoire16METAL
            end if
        case 17
            if food >= int(INCOMEterritoireMETALsee*54.81) and bois >= int(INCOMEterritoireMETALsee*95.18) then
                food = food - int(INCOMEterritoireMETALsee*54.81)
                bois = bois - int(INCOMEterritoireMETALsee*95.18)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire17METAL
                INCOMEterritoire17METAL = int(INCOMEterritoire17METAL + (INCOMEterritoire17METAL/10) +1)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire17METAL
                INCOMEterritoireMETALsee = INCOMEterritoire17METAL
            end if
        case 18
            if food >= int(INCOMEterritoireMETALsee*54.81) and bois >= int(INCOMEterritoireMETALsee*95.18) then
                food = food - int(INCOMEterritoireMETALsee*54.81)
                bois = bois - int(INCOMEterritoireMETALsee*95.18)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire18METAL
                INCOMEterritoire18METAL = int(INCOMEterritoire18METAL + (INCOMEterritoire18METAL/10) +1)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire18METAL
                INCOMEterritoireMETALsee = INCOMEterritoire18METAL
            end if
        case 19
            if food >= int(INCOMEterritoireMETALsee*54.81) and bois >= int(INCOMEterritoireMETALsee*95.18) then
                food = food - int(INCOMEterritoireMETALsee*54.81)
                bois = bois - int(INCOMEterritoireMETALsee*95.18)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire19METAL
                INCOMEterritoire19METAL = int(INCOMEterritoire19METAL + (INCOMEterritoire19METAL/10) +1)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire19METAL
                INCOMEterritoireMETALsee = INCOMEterritoire19METAL
            end if
        case 20
            if food >= int(INCOMEterritoireMETALsee*54.81) and bois >= int(INCOMEterritoireMETALsee*95.18) then
                food = food - int(INCOMEterritoireMETALsee*54.81)
                bois = bois - int(INCOMEterritoireMETALsee*95.18)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire20METAL
                INCOMEterritoire20METAL = int(INCOMEterritoire20METAL + (INCOMEterritoire20METAL/10) +1)
                INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire20METAL
                INCOMEterritoireMETALsee = INCOMEterritoire20METAL
            end if
    end select
    goto [GESTIONterritoires2]


    [rapportBatailleTERRITOIRE2]
    notice " " + chr$(13) + "Ouverture du rapport du combat"
 '   notice errorGAME
    if rapportWindows = 1 then close #rapport
    rapportA = 1 : rapportWindows = 1
    WindowWidth=456 : WindowHeight=407
    UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
    BackgroundColor$ = "black" : ForegroundColor$ = "black"
    graphicbox #rapport.map, -5, -5, WindowWidth+5, WindowHeight+5
    bmpbutton #rapport.close, "bmp\game\selection\GAMEstart\HUMANOIDE\fermetureINGame.bmp", [closeRapportBATAILLE], UL, WindowWidth-40, 20
    Open "" for window_popup as #rapport
    #rapport.map, "setfocus;down"
    #rapport.map, "drawbmp fond 5 5"
    print #rapport.map, "color white; size 2"
    print #rapport.map, "line "; 233; " "; 0; " "; 233; " "; 500
    #rapport.map, "drawbmp h1 360 110" : #rapport.map, "drawbmp h2 360 155" : #rapport.map, "drawbmp h3 360 200" : #rapport.map, "drawbmp h4 360 245" : #rapport.map, "drawbmp h7 360 290"
    #rapport.map, "drawbmp h1 70 110" : #rapport.map, "drawbmp h2 70 170" : #rapport.map, "drawbmp h3 70 230" : #rapport.map, "drawbmp h4 70 290"
    print #rapport.map, "font Times New Roman 40; backcolor black"
    print #rapport.map, "place 200 220 ;\"; "Vs"
    if TEXTvictoire$ = "Victoire" then print #rapport.map, "font Times New Roman 20 ; color green"
    if TEXTvictoire$ = "Défaite" then print #rapport.map, "font Times New Roman 20 ; color red"
    print #rapport.map, "place 185 60 ;\"; TEXTvictoire$
    print #rapport.map, "font Times New Roman 7 ; color white"
    print #rapport.map, "place 190 77 ;\"; "(VOUS DEFENDEZ)\\\\\\\\\\\\\      Avant ==> Après"
    print #rapport.map, "place 362 90 ;\"; "VOUS"
    print #rapport.map, "place 63 90 ;\"; "ENNEMIS"

    select case PLAYER
        case 2
            print #rapport.map, "color green"
            if NombreHommeDarmeIAm1SURVIVANTEsave >= 1 then print #rapport.map, "place 40 128 ;\"; NombreHommeDarmeIAm1SURVIVANTEsave
            if NombreLancierIAm1SURVIVANTEsave >= 1 then print #rapport.map, "place 40 188 ;\"; NombreLancierIAm1SURVIVANTEsave
            if NombreFrondeurIAm1SURVIVANTEsave >= 1 then print #rapport.map, "place 40 248 ;\"; NombreFrondeurIAm1SURVIVANTEsave
            if NombreArcherIAm1SURVIVANTEsave >= 1 then print #rapport.map, "place 40 308 ;\"; NombreArcherIAm1SURVIVANTEsave
            if NombreHommeDarmeIAm1SURVIVANTEsave >= 1 then print #rapport.map, "place 120 128 ;\"; NombreHommeDarmeIAm1SURVIVANTEsave
            if NombreLancierIAm1SURVIVANTEsave >= 1 then print #rapport.map, "place 120 188 ;\"; NombreLancierIAm1SURVIVANTEsave
            if NombreFrondeurIAm1SURVIVANTEsave >= 1 then print #rapport.map, "place 120 248 ;\"; NombreFrondeurIAm1SURVIVANTEsave
            if NombreArcherIAm1SURVIVANTEsave >= 1 then print #rapport.map, "place 120 308 ;\"; NombreArcherIAm1SURVIVANTEsave
            print #rapport.map, "color red"
            if NombreHommeDarmeIAm1SURVIVANTEsave < 1 then print #rapport.map, "place 40 128 ;\"; "0"
            if NombreLancierIAm1SURVIVANTEsave < 1 then print #rapport.map, "place 40 188 ;\"; "0"
            if NombreFrondeurIAm1SURVIVANTEsave < 1 then print #rapport.map, "place 40 248 ;\"; "0"
            if NombreArcherIAm1SURVIVANTEsave < 1 then print #rapport.map, "place 40 308 ;\"; "0"
            if NombreHommeDarmeIAm1SURVIVANTEsave < 1 then print #rapport.map, "place 120 128 ;\"; "0"
            if NombreLancierIAm1SURVIVANTEsave < 1 then print #rapport.map, "place 120 188 ;\"; "0"
            if NombreFrondeurIAm1SURVIVANTEsave < 1 then print #rapport.map, "place 120 248 ;\"; "0"
            if NombreArcherIAm1SURVIVANTEsave < 1 then print #rapport.map, "place 120 308 ;\"; "0"
        case 3
            print #rapport.map, "color green"
            if NombreHommeDarmeIAm2SURVIVANTEsave >= 1 then print #rapport.map, "place 40 128 ;\"; NombreHommeDarmeIAm2SURVIVANTEsave
            if NombreLancierIAm2SURVIVANTEsave >= 1 then print #rapport.map, "place 40 188 ;\"; NombreLancierIAm2SURVIVANTEsave
            if NombreFrondeurIAm2SURVIVANTEsave >= 1 then print #rapport.map, "place 40 248 ;\"; NombreFrondeurIAm2SURVIVANTEsave
            if NombreArcherIAm2SURVIVANTEsave >= 1 then print #rapport.map, "place 40 308 ;\"; NombreArcherIAm2SURVIVANTEsave
            if NombreHommeDarmeIAm2SURVIVANTEsave >= 1 then print #rapport.map, "place 120 128 ;\"; NombreHommeDarmeIAm2SURVIVANTEsave
            if NombreLancierIAm2SURVIVANTEsave >= 1 then print #rapport.map, "place 120 188 ;\"; NombreLancierIAm2SURVIVANTEsave
            if NombreFrondeurIAm2SURVIVANTEsave >= 1 then print #rapport.map, "place 120 248 ;\"; NombreFrondeurIAm2SURVIVANTEsave
            if NombreArcherIAm2SURVIVANTEsave >= 1 then print #rapport.map, "place 120 308 ;\"; NombreArcherIAm2SURVIVANTEsave
            print #rapport.map, "color red"
            if NombreHommeDarmeIAm2SURVIVANTEsave < 1 then print #rapport.map, "place 40 128 ;\"; "0"
            if NombreLancierIAm2SURVIVANTEsave < 1 then print #rapport.map, "place 40 188 ;\"; "0"
            if NombreFrondeurIAm2SURVIVANTEsave < 1 then print #rapport.map, "place 40 248 ;\"; "0"
            if NombreArcherIAm2SURVIVANTEsave < 1 then print #rapport.map, "place 40 308 ;\"; "0"
            if NombreHommeDarmeIAm2SURVIVANTEsave < 1 then print #rapport.map, "place 120 128 ;\"; "0"
            if NombreLancierIAm2SURVIVANTEsave < 1 then print #rapport.map, "place 120 188 ;\"; "0"
            if NombreFrondeurIAm2SURVIVANTEsave < 1 then print #rapport.map, "place 120 248 ;\"; "0"
            if NombreArcherIAm2SURVIVANTEsave < 1 then print #rapport.map, "place 120 308 ;\"; "0"
    end select

    select case territoire
        case 1
        print #rapport.map, "color green"
        if NombreHommeDarmeTEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeTEMP
        if NombreLancierTEMP >= 1 then print #rapport.map, "place 330 173 ;\"; NombreLancierTEMP
        if NombreFrondeurTEMP >= 1 then print #rapport.map, "place 330 218 ;\"; NombreFrondeurTEMP
        if NombreArcherTEMP >= 1 then print #rapport.map, "place 330 263 ;\"; NombreArcherTEMP
        if NombreEXPLORATEURTEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreEXPLORATEURTEMP
        if NombreHommeDarmeTERR1 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeTERR1
        if NombreLancierTERR1 >= 1 then print #rapport.map, "place 410 173 ;\"; NombreLancierTERR1
        if NombreFrondeurTERR1 >= 1 then print #rapport.map, "place 410 218 ;\"; NombreFrondeurTERR1
        if NombreArcherTERR1 >= 1 then print #rapport.map, "place 410 263 ;\"; NombreArcherTERR1
        if NombreEXPLORATEURTERR1 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreEXPLORATEURTERR1
        if hpFortificationsTEMP >= 1 and hpFortificationsTERR > 0 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        print #rapport.map, "color red"
        if NombreHommeDarmeTEMPsave < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierTEMPsave < 1 then print #rapport.map, "place 330 173 ;\"; "0"
        if NombreFrondeurTEMPsave < 1 then print #rapport.map, "place 330 218 ;\"; "0"
        if NombreArcherTEMPsave < 1 then print #rapport.map, "place 330 263 ;\"; "0"
        if NombreEXPLORATEURTEMPsave < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeTERR1 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierTERR1 < 1 then print #rapport.map, "place 410 173 ;\"; "0"
        if NombreFrondeurTERR1 < 1 then print #rapport.map, "place 410 218 ;\"; "0"
        if NombreArcherTERR1 < 1 then print #rapport.map, "place 410 263 ;\"; "0"
        if NombreEXPLORATEURTERR1 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if hpFortificationsTERR < 1 and hpFortificationsTEMP >=1 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        if TEXTvictoire$ = "Victoire" then wait
        if PLAYER = 2 then goto [endATTAQUEtoTERRITORY1B]
        if PLAYER = 3 then goto [endATTAQUEtoTERRITORY1C]
        case 2
        print #rapport.map, "color green"
        if NombreHommeDarmeTEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeTEMP
        if NombreLancierTEMP >= 1 then print #rapport.map, "place 330 173 ;\"; NombreLancierTEMP
        if NombreFrondeurTEMP >= 1 then print #rapport.map, "place 330 218 ;\"; NombreFrondeurTEMP
        if NombreArcherTEMP >= 1 then print #rapport.map, "place 330 263 ;\"; NombreArcherTEMP
        if NombreEXPLORATEURTEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreEXPLORATEURTEMP
        if NombreHommeDarmeTERR2 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeTERR2
        if NombreLancierTERR2 >= 1 then print #rapport.map, "place 410 173 ;\"; NombreLancierTERR2
        if NombreFrondeurTERR2 >= 1 then print #rapport.map, "place 410 218 ;\"; NombreFrondeurTERR2
        if NombreArcherTERR2 >= 1 then print #rapport.map, "place 410 263 ;\"; NombreArcherTERR2
        if NombreEXPLORATEURTERR2 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreEXPLORATEURTERR2
        if hpFortificationsTEMP >= 1 and hpFortificationsTERR > 0 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        print #rapport.map, "color red"
        if NombreHommeDarmeTEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierTEMP < 1 then print #rapport.map, "place 330 173 ;\"; "0"
        if NombreFrondeurTEMP < 1 then print #rapport.map, "place 330 218 ;\"; "0"
        if NombreArcherTEMP < 1 then print #rapport.map, "place 330 263 ;\"; "0"
        if NombreEXPLORATEURTEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeTERR2 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierTERR2 < 1 then print #rapport.map, "place 410 173 ;\"; "0"
        if NombreFrondeurTERR2 < 1 then print #rapport.map, "place 410 218 ;\"; "0"
        if NombreArcherTERR2 < 1 then print #rapport.map, "place 410 263 ;\"; "0"
        if NombreEXPLORATEURTERR2 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if hpFortificationsTERR < 1 and hpFortificationsTEMP >=1 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        if TEXTvictoire$ = "Victoire" then wait
        if PLAYER = 2 then goto [endATTAQUEtoTERRITORY2B]
        if PLAYER = 3 then goto [endATTAQUEtoTERRITORY2C]
        case 3
        print #rapport.map, "color green"
        if NombreHommeDarmeTEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeTEMP
        if NombreLancierTEMP >= 1 then print #rapport.map, "place 330 173 ;\"; NombreLancierTEMP
        if NombreFrondeurTEMP >= 1 then print #rapport.map, "place 330 218 ;\"; NombreFrondeurTEMP
        if NombreArcherTEMP >= 1 then print #rapport.map, "place 330 263 ;\"; NombreArcherTEMP
        if NombreEXPLORATEURTEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreEXPLORATEURTEMP
        if NombreHommeDarmeTERR3 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeTERR3
        if NombreLancierTERR3 >= 1 then print #rapport.map, "place 410 173 ;\"; NombreLancierTERR3
        if NombreFrondeurTERR3 >= 1 then print #rapport.map, "place 410 218 ;\"; NombreFrondeurTERR3
        if NombreArcherTERR3 >= 1 then print #rapport.map, "place 410 263 ;\"; NombreArcherTERR3
        if NombreEXPLORATEURTERR3 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreEXPLORATEURTERR3
        if hpFortificationsTEMP >= 1 and hpFortificationsTERR > 0 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        print #rapport.map, "color red"
        if NombreHommeDarmeTEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierTEMP < 1 then print #rapport.map, "place 330 173 ;\"; "0"
        if NombreFrondeurTEMP < 1 then print #rapport.map, "place 330 218 ;\"; "0"
        if NombreArcherTEMP < 1 then print #rapport.map, "place 330 263 ;\"; "0"
        if NombreEXPLORATEURTEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeTERR3 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierTERR3 < 1 then print #rapport.map, "place 410 173 ;\"; "0"
        if NombreFrondeurTERR3 < 1 then print #rapport.map, "place 410 218 ;\"; "0"
        if NombreArcherTERR3 < 1 then print #rapport.map, "place 410 263 ;\"; "0"
        if NombreEXPLORATEURTERR3 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if hpFortificationsTERR < 1 and hpFortificationsTEMP >=1 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        if TEXTvictoire$ = "Victoire" then wait
        if PLAYER = 2 then goto [endATTAQUEtoTERRITORY3B]
        if PLAYER = 3 then goto [endATTAQUEtoTERRITORY3C]
        case 4
        print #rapport.map, "color green"
        if NombreHommeDarmeTEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeTEMP
        if NombreLancierTEMP >= 1 then print #rapport.map, "place 330 173 ;\"; NombreLancierTEMP
        if NombreFrondeurTEMP >= 1 then print #rapport.map, "place 330 218 ;\"; NombreFrondeurTEMP
        if NombreArcherTEMP >= 1 then print #rapport.map, "place 330 263 ;\"; NombreArcherTEMP
        if NombreEXPLORATEURTEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreEXPLORATEURTEMP
        if NombreHommeDarmeTERR24 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeTERR4
        if NombreLancierTERR4 >= 1 then print #rapport.map, "place 410 173 ;\"; NombreLancierTERR4
        if NombreFrondeurTERR4 >= 1 then print #rapport.map, "place 410 218 ;\"; NombreFrondeurTERR4
        if NombreArcherTERR4 >= 1 then print #rapport.map, "place 410 263 ;\"; NombreArcherTERR4
        if NombreEXPLORATEURTERR4 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreEXPLORATEURTERR4
        if hpFortificationsTEMP >= 1 and hpFortificationsTERR > 0 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        print #rapport.map, "color red"
        if NombreHommeDarmeTEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierTEMP < 1 then print #rapport.map, "place 330 173 ;\"; "0"
        if NombreFrondeurTEMP < 1 then print #rapport.map, "place 330 218 ;\"; "0"
        if NombreArcherTEMP < 1 then print #rapport.map, "place 330 263 ;\"; "0"
        if NombreEXPLORATEURTEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeTERR4 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierTERR4 < 1 then print #rapport.map, "place 410 173 ;\"; "0"
        if NombreFrondeurTERR4 < 1 then print #rapport.map, "place 410 218 ;\"; "0"
        if NombreArcherTERR4 < 1 then print #rapport.map, "place 410 263 ;\"; "0"
        if NombreEXPLORATEURTERR4 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if hpFortificationsTERR < 1 and hpFortificationsTEMP >=1 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        if TEXTvictoire$ = "Victoire" then wait
        if PLAYER = 2 then goto [endATTAQUEtoTERRITORY4B]
        if PLAYER = 3 then goto [endATTAQUEtoTERRITORY4C]
        case 5
        print #rapport.map, "color green"
        if NombreHommeDarmeTEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeTEMP
        if NombreLancierTEMP >= 1 then print #rapport.map, "place 330 173 ;\"; NombreLancierTEMP
        if NombreFrondeurTEMP >= 1 then print #rapport.map, "place 330 218 ;\"; NombreFrondeurTEMP
        if NombreArcherTEMP >= 1 then print #rapport.map, "place 330 263 ;\"; NombreArcherTEMP
        if NombreEXPLORATEURTEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreEXPLORATEURTEMP
        if NombreHommeDarmeTERR5 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeTERR5
        if NombreLancierTERR5 >= 1 then print #rapport.map, "place 410 173 ;\"; NombreLancierTERR5
        if NombreFrondeurTERR5 >= 1 then print #rapport.map, "place 410 218 ;\"; NombreFrondeurTERR5
        if NombreArcherTERR5 >= 1 then print #rapport.map, "place 410 263 ;\"; NombreArcherTERR5
        if NombreEXPLORATEURTERR5 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreEXPLORATEURTERR5
        if hpFortificationsTEMP >= 1 and hpFortificationsTERR > 0 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        print #rapport.map, "color red"
        if NombreHommeDarmeTEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierTEMP < 1 then print #rapport.map, "place 330 173 ;\"; "0"
        if NombreFrondeurTEMP < 1 then print #rapport.map, "place 330 218 ;\"; "0"
        if NombreArcherTEMP < 1 then print #rapport.map, "place 330 263 ;\"; "0"
        if NombreEXPLORATEURTEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeTERR5 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierTERR5 < 1 then print #rapport.map, "place 410 173 ;\"; "0"
        if NombreFrondeurTERR5 < 1 then print #rapport.map, "place 410 218 ;\"; "0"
        if NombreArcherTERR5 < 1 then print #rapport.map, "place 410 263 ;\"; "0"
        if NombreEXPLORATEURTERR5 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if hpFortificationsTERR < 1 and hpFortificationsTEMP >=1 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        if TEXTvictoire$ = "Victoire" then wait
        if PLAYER = 2 then goto [endATTAQUEtoTERRITORY5B]
        if PLAYER = 3 then goto [endATTAQUEtoTERRITORY5C]
        case 6
        print #rapport.map, "color green"
        if NombreHommeDarmeTEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeTEMP
        if NombreLancierTEMP >= 1 then print #rapport.map, "place 330 173 ;\"; NombreLancierTEMP
        if NombreFrondeurTEMP >= 1 then print #rapport.map, "place 330 218 ;\"; NombreFrondeurTEMP
        if NombreArcherTEMP >= 1 then print #rapport.map, "place 330 263 ;\"; NombreArcherTEMP
        if NombreEXPLORATEURTEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreEXPLORATEURTEMP
        if NombreHommeDarmeTERR6 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeTERR6
        if NombreLancierTERR6 >= 1 then print #rapport.map, "place 410 173 ;\"; NombreLancierTERR6
        if NombreFrondeurTERR6 >= 1 then print #rapport.map, "place 410 218 ;\"; NombreFrondeurTERR6
        if NombreArcherTERR6 >= 1 then print #rapport.map, "place 410 263 ;\"; NombreArcherTERR6
        if NombreEXPLORATEURTERR6 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreEXPLORATEURTERR6
        if hpFortificationsTEMP >= 1 and hpFortificationsTERR > 0 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        print #rapport.map, "color red"
        if NombreHommeDarmeTEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierTEMP < 1 then print #rapport.map, "place 330 173 ;\"; "0"
        if NombreFrondeurTEMP < 1 then print #rapport.map, "place 330 218 ;\"; "0"
        if NombreArcherTEMP < 1 then print #rapport.map, "place 330 263 ;\"; "0"
        if NombreEXPLORATEURTEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeTERR6 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierTERR6 < 1 then print #rapport.map, "place 410 173 ;\"; "0"
        if NombreFrondeurTERR6 < 1 then print #rapport.map, "place 410 218 ;\"; "0"
        if NombreArcherTERR6 < 1 then print #rapport.map, "place 410 263 ;\"; "0"
        if NombreEXPLORATEURTERR2 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if hpFortificationsTERR < 1 and hpFortificationsTEMP >=1 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        if TEXTvictoire$ = "Victoire" then wait
        if PLAYER = 2 then goto [endATTAQUEtoTERRITORY6B]
        if PLAYER = 3 then goto [endATTAQUEtoTERRITORY6C]
        case 7
        print #rapport.map, "color green"
        if NombreHommeDarmeTEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeTEMP
        if NombreLancierTEMP >= 1 then print #rapport.map, "place 330 173 ;\"; NombreLancierTEMP
        if NombreFrondeurTEMP >= 1 then print #rapport.map, "place 330 218 ;\"; NombreFrondeurTEMP
        if NombreArcherTEMP >= 1 then print #rapport.map, "place 330 263 ;\"; NombreArcherTEMP
        if NombreEXPLORATEURTEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreEXPLORATEURTEMP
        if NombreHommeDarmeTERR7 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeTERR7
        if NombreLancierTERR7 >= 1 then print #rapport.map, "place 410 173 ;\"; NombreLancierTERR7
        if NombreFrondeurTERR7 >= 1 then print #rapport.map, "place 410 218 ;\"; NombreFrondeurTERR7
        if NombreArcherTERR7 >= 1 then print #rapport.map, "place 410 263 ;\"; NombreArcherTERR7
        if NombreEXPLORATEURTERR7 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreEXPLORATEURTERR7
        if hpFortificationsTEMP >= 1 and hpFortificationsTERR > 0 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        print #rapport.map, "color red"
        if NombreHommeDarmeTEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierTEMP < 1 then print #rapport.map, "place 330 173 ;\"; "0"
        if NombreFrondeurTEMP < 1 then print #rapport.map, "place 330 218 ;\"; "0"
        if NombreArcherTEMP < 1 then print #rapport.map, "place 330 263 ;\"; "0"
        if NombreEXPLORATEURTEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeTERR7 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierTERR7 < 1 then print #rapport.map, "place 410 173 ;\"; "0"
        if NombreFrondeurTERR7 < 1 then print #rapport.map, "place 410 218 ;\"; "0"
        if NombreArcherTERR7 < 1 then print #rapport.map, "place 410 263 ;\"; "0"
        if NombreEXPLORATEURTERR7 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if hpFortificationsTERR < 1 and hpFortificationsTEMP >=1 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        if TEXTvictoire$ = "Victoire" then wait
        if PLAYER = 2 then goto [endATTAQUEtoTERRITORY7B]
        if PLAYER = 3 then goto [endATTAQUEtoTERRITORY7C]
        case 8
        print #rapport.map, "color green"
        if NombreHommeDarmeTEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeTEMP
        if NombreLancierTEMP >= 1 then print #rapport.map, "place 330 173 ;\"; NombreLancierTEMP
        if NombreFrondeurTEMP >= 1 then print #rapport.map, "place 330 218 ;\"; NombreFrondeurTEMP
        if NombreArcherTEMP >= 1 then print #rapport.map, "place 330 263 ;\"; NombreArcherTEMP
        if NombreEXPLORATEURTEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreEXPLORATEURTEMP
        if NombreHommeDarmeTERR8 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeTERR8
        if NombreLancierTERR8 >= 1 then print #rapport.map, "place 410 173 ;\"; NombreLancierTERR8
        if NombreFrondeurTERR8 >= 1 then print #rapport.map, "place 410 218 ;\"; NombreFrondeurTERR8
        if NombreArcherTERR8 >= 1 then print #rapport.map, "place 410 263 ;\"; NombreArcherTERR8
        if NombreEXPLORATEURTERR8 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreEXPLORATEURTERR8
        if hpFortificationsTEMP >= 1 and hpFortificationsTERR > 0 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        print #rapport.map, "color red"
        if NombreHommeDarmeTEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierTEMP < 1 then print #rapport.map, "place 330 173 ;\"; "0"
        if NombreFrondeurTEMP < 1 then print #rapport.map, "place 330 218 ;\"; "0"
        if NombreArcherTEMP < 1 then print #rapport.map, "place 330 263 ;\"; "0"
        if NombreEXPLORATEURTEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeTERR8 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierTERR8 < 1 then print #rapport.map, "place 410 173 ;\"; "0"
        if NombreFrondeurTERR8 < 1 then print #rapport.map, "place 410 218 ;\"; "0"
        if NombreArcherTERR8 < 1 then print #rapport.map, "place 410 263 ;\"; "0"
        if NombreEXPLORATEURTERR88 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if hpFortificationsTERR < 1 and hpFortificationsTEMP >=1 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        if TEXTvictoire$ = "Victoire" then wait
        if PLAYER = 2 then goto [endATTAQUEtoTERRITORY8B]
        if PLAYER = 3 then goto [endATTAQUEtoTERRITORY8C]
        case 9
        print #rapport.map, "color green"
        if NombreHommeDarmeTEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeTEMP
        if NombreLancierTEMP >= 1 then print #rapport.map, "place 330 173 ;\"; NombreLancierTEMP
        if NombreFrondeurTEMP >= 1 then print #rapport.map, "place 330 218 ;\"; NombreFrondeurTEMP
        if NombreArcherTEMP >= 1 then print #rapport.map, "place 330 263 ;\"; NombreArcherTEMP
        if NombreEXPLORATEURTEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreEXPLORATEURTEMP
        if NombreHommeDarmeTERR9 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeTERR9
        if NombreLancierTERR9 >= 1 then print #rapport.map, "place 410 173 ;\"; NombreLancierTERR9
        if NombreFrondeurTERR9 >= 1 then print #rapport.map, "place 410 218 ;\"; NombreFrondeurTERR9
        if NombreArcherTERR9 >= 1 then print #rapport.map, "place 410 263 ;\"; NombreArcherTERR9
        if NombreEXPLORATEURTERR9 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreEXPLORATEURTERR9
        if hpFortificationsTEMP >= 1 and hpFortificationsTERR > 0 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        print #rapport.map, "color red"
        if NombreHommeDarmeTEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierTEMP < 1 then print #rapport.map, "place 330 173 ;\"; "0"
        if NombreFrondeurTEMP < 1 then print #rapport.map, "place 330 218 ;\"; "0"
        if NombreArcherTEMP < 1 then print #rapport.map, "place 330 263 ;\"; "0"
        if NombreEXPLORATEURTEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeTERR9 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierTERR9 < 1 then print #rapport.map, "place 410 173 ;\"; "0"
        if NombreFrondeurTERR9 < 1 then print #rapport.map, "place 410 218 ;\"; "0"
        if NombreArcherTERR9 < 1 then print #rapport.map, "place 410 263 ;\"; "0"
        if NombreEXPLORATEURTERR9 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if hpFortificationsTERR < 1 and hpFortificationsTEMP >=1 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        if TEXTvictoire$ = "Victoire" then wait
        if PLAYER = 2 then goto [endATTAQUEtoTERRITORY9B]
        if PLAYER = 3 then goto [endATTAQUEtoTERRITORY9C]
        case 10
        print #rapport.map, "color green"
        if NombreHommeDarmeTEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeTEMP
        if NombreLancierTEMP >= 1 then print #rapport.map, "place 330 173 ;\"; NombreLancierTEMP
        if NombreFrondeurTEMP >= 1 then print #rapport.map, "place 330 218 ;\"; NombreFrondeurTEMP
        if NombreArcherTEMP >= 1 then print #rapport.map, "place 330 263 ;\"; NombreArcherTEMP
        if NombreEXPLORATEURTEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreEXPLORATEURTEMP
        if NombreHommeDarmeTERR10 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeTERR10
        if NombreLancierTERR10 >= 1 then print #rapport.map, "place 410 173 ;\"; NombreLancierTERR10
        if NombreFrondeurTERR10 >= 1 then print #rapport.map, "place 410 218 ;\"; NombreFrondeurTERR10
        if NombreArcherTERR10 >= 1 then print #rapport.map, "place 410 263 ;\"; NombreArcherTERR10
        if NombreEXPLORATEURTERR10 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreEXPLORATEURTERR10
        if hpFortificationsTEMP >= 1 and hpFortificationsTERR > 0 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        print #rapport.map, "color red"
        if NombreHommeDarmeTEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierTEMP < 1 then print #rapport.map, "place 330 173 ;\"; "0"
        if NombreFrondeurTEMP < 1 then print #rapport.map, "place 330 218 ;\"; "0"
        if NombreArcherTEMP < 1 then print #rapport.map, "place 330 263 ;\"; "0"
        if NombreEXPLORATEURTEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeTERR10 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierTERR10 < 1 then print #rapport.map, "place 410 173 ;\"; "0"
        if NombreFrondeurTERR10 < 1 then print #rapport.map, "place 410 218 ;\"; "0"
        if NombreArcherTERR10 < 1 then print #rapport.map, "place 410 263 ;\"; "0"
        if NombreEXPLORATEURTERR10 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if hpFortificationsTERR < 1 and hpFortificationsTEMP >=1 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        if TEXTvictoire$ = "Victoire" then wait
        if PLAYER = 2 then goto [endATTAQUEtoTERRITORY10B]
        if PLAYER = 3 then goto [endATTAQUEtoTERRITORY10C]
        case 11
        if NombreHommeDarmeTEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeTEMP
        if NombreLancierTEMP >= 1 then print #rapport.map, "place 330 173 ;\"; NombreLancierTEMP
        if NombreFrondeurTEMP >= 1 then print #rapport.map, "place 330 218 ;\"; NombreFrondeurTEMP
        if NombreArcherTEMP >= 1 then print #rapport.map, "place 330 263 ;\"; NombreArcherTEMP
        if NombreEXPLORATEURTEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreEXPLORATEURTEMP
        if NombreHommeDarmeTERR11 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeTERR11
        if NombreLancierTERR11 >= 1 then print #rapport.map, "place 410 173 ;\"; NombreLancierTERR11
        if NombreFrondeurTERR11 >= 1 then print #rapport.map, "place 410 218 ;\"; NombreFrondeurTERR11
        if NombreArcherTERR11 >= 1 then print #rapport.map, "place 410 263 ;\"; NombreArcherTERR11
        if NombreEXPLORATEURTERR11 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreEXPLORATEURTERR11
        if hpFortificationsTEMP >= 1 and hpFortificationsTERR > 0 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        print #rapport.map, "color red"
        if NombreHommeDarmeTEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierTEMP < 1 then print #rapport.map, "place 330 173 ;\"; "0"
        if NombreFrondeurTEMP < 1 then print #rapport.map, "place 330 218 ;\"; "0"
        if NombreArcherTEMP < 1 then print #rapport.map, "place 330 263 ;\"; "0"
        if NombreEXPLORATEURTEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeTERR11 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierTERR11 < 1 then print #rapport.map, "place 410 173 ;\"; "0"
        if NombreFrondeurTERR11 < 1 then print #rapport.map, "place 410 218 ;\"; "0"
        if NombreArcherTERR11 < 1 then print #rapport.map, "place 410 263 ;\"; "0"
        if NombreEXPLORATEURTERR11 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if hpFortificationsTERR < 1 and hpFortificationsTEMP >=1 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        if TEXTvictoire$ = "Victoire" then wait
        if PLAYER = 2 then goto [endATTAQUEtoTERRITORY11B]
        if PLAYER = 3 then goto [endATTAQUEtoTERRITORY11C]
        case 12
        if NombreHommeDarmeTEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeTEMP
        if NombreLancierTEMP >= 1 then print #rapport.map, "place 330 173 ;\"; NombreLancierTEMP
        if NombreFrondeurTEMP >= 1 then print #rapport.map, "place 330 218 ;\"; NombreFrondeurTEMP
        if NombreArcherTEMP >= 1 then print #rapport.map, "place 330 263 ;\"; NombreArcherTEMP
        if NombreEXPLORATEURTEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreEXPLORATEURTEMP
        if NombreHommeDarmeTERR12 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeTERR12
        if NombreLancierTERR12 >= 1 then print #rapport.map, "place 410 173 ;\"; NombreLancierTERR12
        if NombreFrondeurTERR12 >= 1 then print #rapport.map, "place 410 218 ;\"; NombreFrondeurTERR12
        if NombreArcherTERR12 >= 1 then print #rapport.map, "place 410 263 ;\"; NombreArcherTERR12
        if NombreEXPLORATEURTERR12 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreEXPLORATEURTERR12
        if hpFortificationsTEMP >= 1 and hpFortificationsTERR > 0 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        print #rapport.map, "color red"
        if NombreHommeDarmeTEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierTEMP < 1 then print #rapport.map, "place 330 173 ;\"; "0"
        if NombreFrondeurTEMP < 1 then print #rapport.map, "place 330 218 ;\"; "0"
        if NombreArcherTEMP < 1 then print #rapport.map, "place 330 263 ;\"; "0"
        if NombreEXPLORATEURTEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeTERR12 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierTERR12 < 1 then print #rapport.map, "place 410 173 ;\"; "0"
        if NombreFrondeurTERR12 < 1 then print #rapport.map, "place 410 218 ;\"; "0"
        if NombreArcherTERR12 < 1 then print #rapport.map, "place 410 263 ;\"; "0"
        if NombreEXPLORATEURTERR12 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if hpFortificationsTERR < 1 and hpFortificationsTEMP >=1 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        if TEXTvictoire$ = "Victoire" then wait
        if PLAYER = 2 then goto [endATTAQUEtoTERRITORY12B]
        if PLAYER = 3 then goto [endATTAQUEtoTERRITORY12C]
        case 13
        if NombreHommeDarmeTEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeTEMP
        if NombreLancierTEMP >= 1 then print #rapport.map, "place 330 173 ;\"; NombreLancierTEMP
        if NombreFrondeurTEMP >= 1 then print #rapport.map, "place 330 218 ;\"; NombreFrondeurTEMP
        if NombreArcherTEMP >= 1 then print #rapport.map, "place 330 263 ;\"; NombreArcherTEMP
        if NombreEXPLORATEURTEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreEXPLORATEURTEMP
        if NombreHommeDarmeTERR13 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeTERR13
        if NombreLancierTERR13 >= 1 then print #rapport.map, "place 410 173 ;\"; NombreLancierTERR13
        if NombreFrondeurTERR13 >= 1 then print #rapport.map, "place 410 218 ;\"; NombreFrondeurTERR13
        if NombreArcherTERR13 >= 1 then print #rapport.map, "place 410 263 ;\"; NombreArcherTERR13
        if NombreEXPLORATEURTERR13 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreEXPLORATEURTERR13
        if hpFortificationsTEMP >= 1 and hpFortificationsTERR > 0 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        print #rapport.map, "color red"
        if NombreHommeDarmeTEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierTEMP < 1 then print #rapport.map, "place 330 173 ;\"; "0"
        if NombreFrondeurTEMP < 1 then print #rapport.map, "place 330 218 ;\"; "0"
        if NombreArcherTEMP < 1 then print #rapport.map, "place 330 263 ;\"; "0"
        if NombreEXPLORATEURTEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeTERR13 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierTERR13 < 1 then print #rapport.map, "place 410 173 ;\"; "0"
        if NombreFrondeurTERR13 < 1 then print #rapport.map, "place 410 218 ;\"; "0"
        if NombreArcherTERR13 < 1 then print #rapport.map, "place 410 263 ;\"; "0"
        if NombreEXPLORATEURTERR13 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if hpFortificationsTERR < 1 and hpFortificationsTEMP >=1 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        if TEXTvictoire$ = "Victoire" then wait
        if PLAYER = 2 then goto [endATTAQUEtoTERRITORY13B]
        if PLAYER = 3 then goto [endATTAQUEtoTERRITORY13C]
        case 14
        if NombreHommeDarmeTEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeTEMP
        if NombreLancierTEMP >= 1 then print #rapport.map, "place 330 173 ;\"; NombreLancierTEMP
        if NombreFrondeurTEMP >= 1 then print #rapport.map, "place 330 218 ;\"; NombreFrondeurTEMP
        if NombreArcherTEMP >= 1 then print #rapport.map, "place 330 263 ;\"; NombreArcherTEMP
        if NombreEXPLORATEURTEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreEXPLORATEURTEMP
        if NombreHommeDarmeTERR14 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeTERR14
        if NombreLancierTERR14 >= 1 then print #rapport.map, "place 410 173 ;\"; NombreLancierTERR14
        if NombreFrondeurTERR14 >= 1 then print #rapport.map, "place 410 218 ;\"; NombreFrondeurTERR14
        if NombreArcherTERR14 >= 1 then print #rapport.map, "place 410 263 ;\"; NombreArcherTERR14
        if NombreEXPLORATEURTERR14 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreEXPLORATEURTERR14
        if hpFortificationsTEMP >= 1 and hpFortificationsTERR > 0 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        print #rapport.map, "color red"
        if NombreHommeDarmeTEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierTEMP < 1 then print #rapport.map, "place 330 173 ;\"; "0"
        if NombreFrondeurTEMP < 1 then print #rapport.map, "place 330 218 ;\"; "0"
        if NombreArcherTEMP < 1 then print #rapport.map, "place 330 263 ;\"; "0"
        if NombreEXPLORATEURTEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeTERR14 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierTERR14 < 1 then print #rapport.map, "place 410 173 ;\"; "0"
        if NombreFrondeurTERR14 < 1 then print #rapport.map, "place 410 218 ;\"; "0"
        if NombreArcherTERR14 < 1 then print #rapport.map, "place 410 263 ;\"; "0"
        if NombreEXPLORATEURTERR14 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if hpFortificationsTERR < 1 and hpFortificationsTEMP >=1 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        if TEXTvictoire$ = "Victoire" then wait
        if PLAYER = 2 then goto [endATTAQUEtoTERRITORY14B]
        if PLAYER = 3 then goto [endATTAQUEtoTERRITORY14C]
        case 15
        if NombreHommeDarmeTEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeTEMP
        if NombreLancierTEMP >= 1 then print #rapport.map, "place 330 173 ;\"; NombreLancierTEMP
        if NombreFrondeurTEMP >= 1 then print #rapport.map, "place 330 218 ;\"; NombreFrondeurTEMP
        if NombreArcherTEMP >= 1 then print #rapport.map, "place 330 263 ;\"; NombreArcherTEMP
        if NombreEXPLORATEURTEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreEXPLORATEURTEMP
        if NombreHommeDarmeTERR15 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeTERR15
        if NombreLancierTERR15 >= 1 then print #rapport.map, "place 410 173 ;\"; NombreLancierTERR15
        if NombreFrondeurTERR15 >= 1 then print #rapport.map, "place 410 218 ;\"; NombreFrondeurTERR15
        if NombreArcherTERR15 >= 1 then print #rapport.map, "place 410 263 ;\"; NombreArcherTERR15
        if NombreEXPLORATEURTERR15 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreEXPLORATEURTERR15
        if hpFortificationsTEMP >= 1 and hpFortificationsTERR > 0 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        print #rapport.map, "color red"
        if NombreHommeDarmeTEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierTEMP < 1 then print #rapport.map, "place 330 173 ;\"; "0"
        if NombreFrondeurTEMP < 1 then print #rapport.map, "place 330 218 ;\"; "0"
        if NombreArcherTEMP < 1 then print #rapport.map, "place 330 263 ;\"; "0"
        if NombreEXPLORATEURTEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeTERR15 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierTERR15 < 1 then print #rapport.map, "place 410 173 ;\"; "0"
        if NombreFrondeurTERR15 < 1 then print #rapport.map, "place 410 218 ;\"; "0"
        if NombreArcherTERR15 < 1 then print #rapport.map, "place 410 263 ;\"; "0"
        if NombreEXPLORATEURTERR15 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if hpFortificationsTERR < 1 and hpFortificationsTEMP >=1 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        if TEXTvictoire$ = "Victoire" then wait
        if PLAYER = 2 then goto [endATTAQUEtoTERRITORY15B]
        if PLAYER = 3 then goto [endATTAQUEtoTERRITORY15C]
        case 16
        if NombreHommeDarmeTEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeTEMP
        if NombreLancierTEMP >= 1 then print #rapport.map, "place 330 173 ;\"; NombreLancierTEMP
        if NombreFrondeurTEMP >= 1 then print #rapport.map, "place 330 218 ;\"; NombreFrondeurTEMP
        if NombreArcherTEMP >= 1 then print #rapport.map, "place 330 263 ;\"; NombreArcherTEMP
        if NombreEXPLORATEURTEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreEXPLORATEURTEMP
        if NombreHommeDarmeTERR16 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeTERR16
        if NombreLancierTERR16 >= 1 then print #rapport.map, "place 410 173 ;\"; NombreLancierTERR16
        if NombreFrondeurTERR16 >= 1 then print #rapport.map, "place 410 218 ;\"; NombreFrondeurTERR16
        if NombreArcherTERR16 >= 1 then print #rapport.map, "place 410 263 ;\"; NombreArcherTERR16
        if NombreEXPLORATEURTERR16 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreEXPLORATEURTERR16
        if hpFortificationsTEMP >= 1 and hpFortificationsTERR > 0 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        print #rapport.map, "color red"
        if NombreHommeDarmeTEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierTEMP < 1 then print #rapport.map, "place 330 173 ;\"; "0"
        if NombreFrondeurTEMP < 1 then print #rapport.map, "place 330 218 ;\"; "0"
        if NombreArcherTEMP < 1 then print #rapport.map, "place 330 263 ;\"; "0"
        if NombreEXPLORATEURTEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeTERR16 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierTERR16 < 1 then print #rapport.map, "place 410 173 ;\"; "0"
        if NombreFrondeurTERR16 < 1 then print #rapport.map, "place 410 218 ;\"; "0"
        if NombreArcherTERR16 < 1 then print #rapport.map, "place 410 263 ;\"; "0"
        if NombreEXPLORATEURTERR16 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if hpFortificationsTERR < 1 and hpFortificationsTEMP >=1 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        if TEXTvictoire$ = "Victoire" then wait
        if PLAYER = 2 then goto [endATTAQUEtoTERRITORY16B]
        if PLAYER = 3 then goto [endATTAQUEtoTERRITORY16C]
        case 17
        if NombreHommeDarmeTEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeTEMP
        if NombreLancierTEMP >= 1 then print #rapport.map, "place 330 173 ;\"; NombreLancierTEMP
        if NombreFrondeurTEMP >= 1 then print #rapport.map, "place 330 218 ;\"; NombreFrondeurTEMP
        if NombreArcherTEMP >= 1 then print #rapport.map, "place 330 263 ;\"; NombreArcherTEMP
        if NombreEXPLORATEURTEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreEXPLORATEURTEMP
        if NombreHommeDarmeTERR17 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeTERR17
        if NombreLancierTERR17 >= 1 then print #rapport.map, "place 410 173 ;\"; NombreLancierTERR17
        if NombreFrondeurTERR17 >= 1 then print #rapport.map, "place 410 218 ;\"; NombreFrondeurTERR17
        if NombreArcherTERR17 >= 1 then print #rapport.map, "place 410 263 ;\"; NombreArcherTERR17
        if NombreEXPLORATEURTERR17 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreEXPLORATEURTERR17
        if hpFortificationsTEMP >= 1 and hpFortificationsTERR > 0 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        print #rapport.map, "color red"
        if NombreHommeDarmeTEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierTEMP < 1 then print #rapport.map, "place 330 173 ;\"; "0"
        if NombreFrondeurTEMP < 1 then print #rapport.map, "place 330 218 ;\"; "0"
        if NombreArcherTEMP < 1 then print #rapport.map, "place 330 263 ;\"; "0"
        if NombreEXPLORATEURTEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeTERR17 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierTERR17 < 1 then print #rapport.map, "place 410 173 ;\"; "0"
        if NombreFrondeurTERR17 < 1 then print #rapport.map, "place 410 218 ;\"; "0"
        if NombreArcherTERR17 < 1 then print #rapport.map, "place 410 263 ;\"; "0"
        if NombreEXPLORATEURTERR17 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if hpFortificationsTERR < 1 and hpFortificationsTEMP >=1 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        if TEXTvictoire$ = "Victoire" then wait
        if PLAYER = 2 then goto [endATTAQUEtoTERRITORY17B]
        if PLAYER = 3 then goto [endATTAQUEtoTERRITORY17C]
        case 18
        if NombreHommeDarmeTEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeTEMP
        if NombreLancierTEMP >= 1 then print #rapport.map, "place 330 173 ;\"; NombreLancierTEMP
        if NombreFrondeurTEMP >= 1 then print #rapport.map, "place 330 218 ;\"; NombreFrondeurTEMP
        if NombreArcherTEMP >= 1 then print #rapport.map, "place 330 263 ;\"; NombreArcherTEMP
        if NombreEXPLORATEURTEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreEXPLORATEURTEMP
        if NombreHommeDarmeTERR18 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeTERR18
        if NombreLancierTERR18 >= 1 then print #rapport.map, "place 410 173 ;\"; NombreLancierTERR18
        if NombreFrondeurTERR18 >= 1 then print #rapport.map, "place 410 218 ;\"; NombreFrondeurTERR18
        if NombreArcherTERR18 >= 1 then print #rapport.map, "place 410 263 ;\"; NombreArcherTERR18
        if NombreEXPLORATEURTERR18 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreEXPLORATEURTERR18
        if hpFortificationsTEMP >= 1 and hpFortificationsTERR > 0 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        print #rapport.map, "color red"
        if NombreHommeDarmeTEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierTEMP < 1 then print #rapport.map, "place 330 173 ;\"; "0"
        if NombreFrondeurTEMP < 1 then print #rapport.map, "place 330 218 ;\"; "0"
        if NombreArcherTEMP < 1 then print #rapport.map, "place 330 263 ;\"; "0"
        if NombreEXPLORATEURTEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeTERR18 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierTERR18 < 1 then print #rapport.map, "place 410 173 ;\"; "0"
        if NombreFrondeurTERR18 < 1 then print #rapport.map, "place 410 218 ;\"; "0"
        if NombreArcherTERR18 < 1 then print #rapport.map, "place 410 263 ;\"; "0"
        if NombreEXPLORATEURTERR18 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if hpFortificationsTERR < 1 and hpFortificationsTEMP >=1 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        if TEXTvictoire$ = "Victoire" then wait
        if PLAYER = 2 then goto [endATTAQUEtoTERRITORY18B]
        if PLAYER = 3 then goto [endATTAQUEtoTERRITORY18C]
        case 19
        if NombreHommeDarmeTEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeTEMP
        if NombreLancierTEMP >= 1 then print #rapport.map, "place 330 173 ;\"; NombreLancierTEMP
        if NombreFrondeurTEMP >= 1 then print #rapport.map, "place 330 218 ;\"; NombreFrondeurTEMP
        if NombreArcherTEMP >= 1 then print #rapport.map, "place 330 263 ;\"; NombreArcherTEMP
        if NombreEXPLORATEURTEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreEXPLORATEURTEMP
        if NombreHommeDarmeTERR19 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeTERR19
        if NombreLancierTERR19 >= 1 then print #rapport.map, "place 410 173 ;\"; NombreLancierTERR19
        if NombreFrondeurTERR19 >= 1 then print #rapport.map, "place 410 218 ;\"; NombreFrondeurTERR19
        if NombreArcherTERR19 >= 1 then print #rapport.map, "place 410 263 ;\"; NombreArcherTERR19
        if NombreEXPLORATEURTERR19 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreEXPLORATEURTERR19
        if hpFortificationsTEMP >= 1 and hpFortificationsTERR > 0 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        print #rapport.map, "color red"
        if NombreHommeDarmeTEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierTEMP < 1 then print #rapport.map, "place 330 173 ;\"; "0"
        if NombreFrondeurTEMP < 1 then print #rapport.map, "place 330 218 ;\"; "0"
        if NombreArcherTEMP < 1 then print #rapport.map, "place 330 263 ;\"; "0"
        if NombreEXPLORATEURTEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeTERR19 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierTERR19 < 1 then print #rapport.map, "place 410 173 ;\"; "0"
        if NombreFrondeurTERR19 < 1 then print #rapport.map, "place 410 218 ;\"; "0"
        if NombreArcherTERR19 < 1 then print #rapport.map, "place 410 263 ;\"; "0"
        if NombreEXPLORATEURTERR19 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if hpFortificationsTERR < 1 and hpFortificationsTEMP >=1 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        if TEXTvictoire$ = "Victoire" then wait
        if PLAYER = 2 then goto [endATTAQUEtoTERRITORY19B]
        if PLAYER = 3 then goto [endATTAQUEtoTERRITORY19C]
        case 20
        if NombreHommeDarmeTEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeTEMP
        if NombreLancierTEMP >= 1 then print #rapport.map, "place 330 173 ;\"; NombreLancierTEMP
        if NombreFrondeurTEMP >= 1 then print #rapport.map, "place 330 218 ;\"; NombreFrondeurTEMP
        if NombreArcherTEMP >= 1 then print #rapport.map, "place 330 263 ;\"; NombreArcherTEMP
        if NombreEXPLORATEURTEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreEXPLORATEURTEMP
        if NombreHommeDarmeTERR20 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeTERR20
        if NombreLancierTERR20 >= 1 then print #rapport.map, "place 410 173 ;\"; NombreLancierTERR20
        if NombreFrondeurTERR20 >= 1 then print #rapport.map, "place 410 218 ;\"; NombreFrondeurTERR20
        if NombreArcherTERR20 >= 1 then print #rapport.map, "place 410 263 ;\"; NombreArcherTERR20
        if NombreEXPLORATEURTERR20 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreEXPLORATEURTERR20
        if hpFortificationsTEMP >= 1 and hpFortificationsTERR > 0 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        print #rapport.map, "color red"
        if NombreHommeDarmeTEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierTEMP < 1 then print #rapport.map, "place 330 173 ;\"; "0"
        if NombreFrondeurTEMP < 1 then print #rapport.map, "place 330 218 ;\"; "0"
        if NombreArcherTEMP < 1 then print #rapport.map, "place 330 263 ;\"; "0"
        if NombreEXPLORATEURTEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeTERR20 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierTERR20 < 1 then print #rapport.map, "place 410 173 ;\"; "0"
        if NombreFrondeurTERR20 < 1 then print #rapport.map, "place 410 218 ;\"; "0"
        if NombreArcherTERR20 < 1 then print #rapport.map, "place 410 263 ;\"; "0"
        if NombreEXPLORATEURTERR20 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if hpFortificationsTERR < 1 and hpFortificationsTEMP >=1 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsTERR)
        if TEXTvictoire$ = "Victoire" then wait
        if PLAYER = 2 then goto [endATTAQUEtoTERRITORY20B]
        if PLAYER = 3 then goto [endATTAQUEtoTERRITORY20C]
    end select
    wait



    [rapportBatailleTERRITOIRE1]
    notice " " + chr$(13) + "Ouverture du rapport du combat"
    if rapportWindows = 1 then close #rapport
    rapportA = 1 : rapportWindows = 1
    WindowWidth=456 : WindowHeight=407
    UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
    BackgroundColor$ = "black" : ForegroundColor$ = "black"
    graphicbox #rapport.map, -5, -5, WindowWidth+5, WindowHeight+5
    bmpbutton #rapport.close, "bmp\game\selection\GAMEstart\HUMANOIDE\fermetureINGame.bmp", [closeRapportBATAILLE], UL, WindowWidth-40, 20
    Open "" for window_popup as #rapport
    #rapport.map, "setfocus;down"
    #rapport.map, "drawbmp fond 5 5"
    print #rapport.map, "color white; size 2"
    print #rapport.map, "line "; 233; " "; 0; " "; 233; " "; 500
    #rapport.map, "drawbmp h1 70 110" : #rapport.map, "drawbmp h2 70 155" : #rapport.map, "drawbmp h3 70 200" : #rapport.map, "drawbmp h4 70 245" : #rapport.map, "drawbmp h7 70 290"
    #rapport.map, "drawbmp h1 360 110" : #rapport.map, "drawbmp h2 360 170" : #rapport.map, "drawbmp h3 360 230" : #rapport.map, "drawbmp h4 360 290"
    print #rapport.map, "font Times New Roman 40; backcolor black"
    print #rapport.map, "place 200 220 ;\"; "Vs"
    if TEXTvictoire$ = "Victoire" then print #rapport.map, "font Times New Roman 20 ; color GREEN"
    if TEXTvictoire$ = "Défaite" then print #rapport.map, "font Times New Roman 20 ; color red"
    print #rapport.map, "place 190 60 ;\"; TEXTvictoire$
    print #rapport.map, "font Times New Roman 7 ; color white"
    print #rapport.map, "place 190 77 ;\"; "(VOUS ATTAQUEZ)\\\\\\\\\\\\\      Avant ==> Après"
    print #rapport.map, "place 63 90 ;\"; "VOUS"
    print #rapport.map, "place 362 90 ;\"; "ENNEMIS"

    print #rapport.map, "color green"
    if NombreHommeDarmeTEMP >= 1 then print #rapport.map, "place 40 128 ;\"; NombreHommeDarmeTEMP
    if NombreLancierTEMP >= 1 then print #rapport.map, "place 40 173 ;\"; NombreLancierTEMP
    if NombreFrondeurTEMP >= 1 then print #rapport.map, "place 40 218 ;\"; NombreFrondeurTEMP
    if NombreArcherTEMP >= 1 then print #rapport.map, "place 40 263 ;\"; NombreArcherTEMP
    if NombreEXPLORATEURTEMP >= 1 then print #rapport.map, "place 40 308 ;\"; NombreEXPLORATEURTEMP
    if int(NombreHommeDarmeTEMP - perteHOMMEdarme) >= 1 then print #rapport.map, "place 120 128 ;\"; int(NombreHommeDarmeTEMP - perteHOMMEdarme)
    if int(NombreLancierTEMP - perteLANCIER) >= 1 then print #rapport.map, "place 120 173 ;\"; int(NombreLancierTEMP - perteLANCIER)
    if int(NombreFrondeurTEMP - perteFRONDEUR) >= 1 then print #rapport.map, "place 120 218 ;\"; int(NombreFrondeurTEMP - perteFRONDEUR)
    if int(NombreArcherTEMP - perteARCHER) >= 1 then print #rapport.map, "place 120 263 ;\"; int(NombreArcherTEMP - perteARCHER)
    if int(NombreEXPLORATEURTEMP - perteEXPLORATEUR) >= 1 then print #rapport.map, "place 120 308 ;\"; int(NombreEXPLORATEURTEMP - perteEXPLORATEUR)
    if hpFortificationsIAm1 >= 1 and hpFortificationsIAm1TEMP >=1 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsIAm1TEMP);"  ==>  ";int(hpFortificationsIAm1)
    print #rapport.map, "color red"
    if NombreHommeDarmeTEMP < 1 then print #rapport.map, "place 40 128 ;\"; "0"
    if NombreLancierTEMP < 1 then print #rapport.map, "place 40 173 ;\"; "0"
    if NombreFrondeurTEMP < 1 then print #rapport.map, "place 40 218 ;\"; "0"
    if NombreArcherTEMP < 1 then print #rapport.map, "place 40 263 ;\"; "0"
    if NombreEXPLORATEURTEMP < 1 then print #rapport.map, "place 40 308 ;\"; "0"
    if int(NombreHommeDarmeTEMP - perteHOMMEdarme) < 1 then print #rapport.map, "place 120 128 ;\"; "0"
    if int(NombreLancierTEMP - perteLANCIER) < 1 then print #rapport.map, "place 120 173 ;\"; "0"
    if int(NombreFrondeurTEMP - perteFRONDEUR) < 1 then print #rapport.map, "place 120 218 ;\"; "0"
    if int(NombreArcherTEMP - perteARCHER) < 1 then print #rapport.map, "place 120 263 ;\"; "0"
    if int(NombreEXPLORATEURTEMP - perteEXPLORATEUR) < 1 then print #rapport.map, "place 120 308 ;\"; "0"
    if hpFortificationsIAm1 < 1 and hpFortificationsIAm1TEMP >=1 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsIAm1TEMP);"  ==>  ";int(hpFortificationsIAm1)

    if territoire1 = 2 and territoire = 1 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm1TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm1TEMP
        if NombreLancierIAm1TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm1TEMP
        if NombreFrondeurIAm1TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm1TEMP
        if NombreArcherIAm1TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm1TEMP
        if NombreHommeDarmeIAm1TERR1 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm1TERR1
        if NombreLancierIAm1TERR1 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm1TERR1
        if NombreFrondeurIAm1TERR1 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm1TERR1
        if NombreArcherIAm1TERR1 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm1TERR1
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm1TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm1TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm1TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm1TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm1TERR1 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm1TERR1 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm1TERR1 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm1TERR1 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY1A]
    end if
    if territoire1 = 3 and territoire = 1 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm2TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm2TEMP
        if NombreLancierIAm2TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm2TEMP
        if NombreFrondeurIAm2TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm2TEMP
        if NombreArcherIAm2TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm2TEMP
        if NombreHommeDarmeIAm2TERR1 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm2TERR1
        if NombreLancierIAm2TERR1 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm2TERR1
        if NombreFrondeurIAm2TERR1 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm2TERR1
        if NombreArcherIAm2TERR1 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm2TERR1
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm2TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm2TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm2TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm2TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm2TERR1 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm2TERR1 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm2TERR1 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm2TERR1 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY1A]
    end if
    if territoire2 = 2 and territoire = 2 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm1TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm1TEMP
        if NombreLancierIAm1TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm1TEMP
        if NombreFrondeurIAm1TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm1TEMP
        if NombreArcherIAm1TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm1TEMP
        if NombreHommeDarmeIAm1TERR2 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm1TERR2
        if NombreLancierIAm1TERR2 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm1TERR2
        if NombreFrondeurIAm1TERR2 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm1TERR2
        if NombreArcherIAm1TERR2 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm1TERR2
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm1TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm1TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm1TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm1TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm1TERR2 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm1TERR2 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm1TERR2 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm1TERR2 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY2A]
    end if
    if territoire2 = 3 and territoire = 2 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm2TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm2TEMP
        if NombreLancierIAm2TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm2TEMP
        if NombreFrondeurIAm2TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm2TEMP
        if NombreArcherIAm2TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm2TEMP
        if NombreHommeDarmeIAm2TERR2 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm2TERR2
        if NombreLancierIAm2TERR2 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm2TERR2
        if NombreFrondeurIAm2TERR2 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm2TERR2
        if NombreArcherIAm2TERR2 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm2TERR2
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm2TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm2TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm2TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm2TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm2TERR2 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm2TERR2 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm2TERR2 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm2TERR2 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY2A]
    end if
    if territoire3 = 2 and territoire = 3 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm1TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm1TEMP
        if NombreLancierIAm1TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm1TEMP
        if NombreFrondeurIAm1TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm1TEMP
        if NombreArcherIAm1TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm1TEMP
        if NombreHommeDarmeIAm1TERR3 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm1TERR3
        if NombreLancierIAm1TERR3 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm1TERR3
        if NombreFrondeurIAm1TERR3 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm1TERR3
        if NombreArcherIAm1TERR3 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm1TERR3
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm1TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm1TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm1TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm1TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm1TERR3 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm1TERR3 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm1TERR3 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm1TERR3 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY3A]
    end if
    if territoire3 = 3 and territoire = 3 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm2TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm2TEMP
        if NombreLancierIAm2TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm2TEMP
        if NombreFrondeurIAm2TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm2TEMP
        if NombreArcherIAm2TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm2TEMP
        if NombreHommeDarmeIAm2TERR3 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm2TERR3
        if NombreLancierIAm2TERR3 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm2TERR3
        if NombreFrondeurIAm2TERR3 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm2TERR3
        if NombreArcherIAm2TERR3 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm2TERR3
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm2TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm2TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm2TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm2TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm2TERR3 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm2TERR3 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm2TERR3 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm2TERR3 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY3A]
    end if
    if territoire4 = 2 and territoire = 4 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm1TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm1TEMP
        if NombreLancierIAm1TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm1TEMP
        if NombreFrondeurIAm1TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm1TEMP
        if NombreArcherIAm1TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm1TEMP
        if NombreHommeDarmeIAm1TERR4 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm1TERR4
        if NombreLancierIAm1TERR4 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm1TERR4
        if NombreFrondeurIAm1TERR4 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm1TERR4
        if NombreArcherIAm1TERR4 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm1TERR4
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm1TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm1TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm1TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm1TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm1TERR4 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm1TERR4 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm1TERR4 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm1TERR4 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY4A]
    end if
    if territoire4 = 3 and territoire = 4 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm2TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm2TEMP
        if NombreLancierIAm2TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm2TEMP
        if NombreFrondeurIAm2TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm2TEMP
        if NombreArcherIAm2TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm2TEMP
        if NombreHommeDarmeIAm2TERR4 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm2TERR4
        if NombreLancierIAm2TERR4 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm2TERR4
        if NombreFrondeurIAm2TERR4 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm2TERR4
        if NombreArcherIAm2TERR4 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm2TERR4
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm2TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm2TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm2TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm2TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm2TERR4 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm2TERR4 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm2TERR4 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm2TERR4 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY4A]
    end if
    if territoire5 = 2 and territoire = 5 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm1TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm1TEMP
        if NombreLancierIAm1TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm1TEMP
        if NombreFrondeurIAm1TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm1TEMP
        if NombreArcherIAm1TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm1TEMP
        if NombreHommeDarmeIAm1TERR3 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm1TERR3
        if NombreLancierIAm1TERR3 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm1TERR3
        if NombreFrondeurIAm1TERR3 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm1TERR3
        if NombreArcherIAm1TERR3 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm1TERR3
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm1TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm1TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm1TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm1TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm1TERR3 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm1TERR3 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm1TERR3 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm1TERR3 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY5A]
    end if
    if territoire5 = 3 and territoire = 5 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm2TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm2TEMP
        if NombreLancierIAm2TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm2TEMP
        if NombreFrondeurIAm2TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm2TEMP
        if NombreArcherIAm2TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm2TEMP
        if NombreHommeDarmeIAm2TERR5 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm2TERR5
        if NombreLancierIAm2TERR5 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm2TERR5
        if NombreFrondeurIAm2TERR5 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm2TERR5
        if NombreArcherIAm2TERR5 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm2TERR5
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm2TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm2TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm2TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm2TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm2TERR5 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm2TERR5 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm2TERR5 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm2TERR5 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY5A]
    end if
    if territoire6 = 2 and territoire = 6 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm1TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm1TEMP
        if NombreLancierIAm1TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm1TEMP
        if NombreFrondeurIAm1TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm1TEMP
        if NombreArcherIAm1TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm1TEMP
        if NombreHommeDarmeIAm1TERR6 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm1TERR6
        if NombreLancierIAm1TERR6 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm1TERR6
        if NombreFrondeurIAm1TERR6 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm1TERR6
        if NombreArcherIAm1TERR6 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm1TERR6
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm1TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm1TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm1TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm1TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm1TERR6 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm1TERR6 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm1TERR6 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm1TERR6 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY6A]
    end if
    if territoire6 = 3 and territoire = 6 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm2TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm2TEMP
        if NombreLancierIAm2TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm2TEMP
        if NombreFrondeurIAm2TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm2TEMP
        if NombreArcherIAm2TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm2TEMP
        if NombreHommeDarmeIAm2TERR6 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm2TERR6
        if NombreLancierIAm2TERR6 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm2TERR6
        if NombreFrondeurIAm2TERR6 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm2TERR6
        if NombreArcherIAm2TERR6 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm2TERR6
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm2TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm2TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm2TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm2TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm2TERR6 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm2TERR6 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm2TERR6 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm2TERR6 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY6A]
    end if
    if territoire7 = 2 and territoire = 7 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm1TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm1TEMP
        if NombreLancierIAm1TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm1TEMP
        if NombreFrondeurIAm1TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm1TEMP
        if NombreArcherIAm1TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm1TEMP
        if NombreHommeDarmeIAm1TERR7 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm1TERR7
        if NombreLancierIAm1TERR7 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm1TERR7
        if NombreFrondeurIAm1TERR7 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm1TERR7
        if NombreArcherIAm1TERR7 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm1TERR7
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm1TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm1TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm1TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm1TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm1TERR7 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm1TERR7 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm1TERR7 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm1TERR7 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY7A]
    end if
    if territoire7 = 3 and territoire = 7 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm2TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm2TEMP
        if NombreLancierIAm2TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm2TEMP
        if NombreFrondeurIAm2TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm2TEMP
        if NombreArcherIAm2TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm2TEMP
        if NombreHommeDarmeIAm2TERR7 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm2TERR7
        if NombreLancierIAm2TERR7 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm2TERR7
        if NombreFrondeurIAm2TERR7 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm2TERR7
        if NombreArcherIAm2TERR7 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm2TERR7
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm2TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm2TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm2TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm2TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm2TERR7 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm2TERR7 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm2TERR7 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm2TERR7 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY7A]
    end if
    if territoire8 = 2 and territoire = 8 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm1TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm1TEMP
        if NombreLancierIAm1TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm1TEMP
        if NombreFrondeurIAm1TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm1TEMP
        if NombreArcherIAm1TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm1TEMP
        if NombreHommeDarmeIAm1TERR8 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm1TERR8
        if NombreLancierIAm1TERR8 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm1TERR8
        if NombreFrondeurIAm1TERR8 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm1TERR8
        if NombreArcherIAm1TERR8 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm1TERR8
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm1TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm1TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm1TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm1TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm1TERR8 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm1TERR8 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm1TERR8 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm1TERR8 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY8A]
    end if
    if territoire8 = 3 and territoire = 8 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm2TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm2TEMP
        if NombreLancierIAm2TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm2TEMP
        if NombreFrondeurIAm2TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm2TEMP
        if NombreArcherIAm2TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm2TEMP
        if NombreHommeDarmeIAm2TERR8 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm2TERR8
        if NombreLancierIAm2TERR8 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm2TERR8
        if NombreFrondeurIAm2TERR8 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm2TERR8
        if NombreArcherIAm2TERR8 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm2TERR8
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm2TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm2TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm2TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm2TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm2TERR8 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm2TERR8 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm2TERR8 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm2TERR8 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY8A]
    end if
    if territoire9 = 2 and territoire = 9 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm1TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm1TEMP
        if NombreLancierIAm1TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm1TEMP
        if NombreFrondeurIAm1TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm1TEMP
        if NombreArcherIAm1TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm1TEMP
        if NombreHommeDarmeIAm1TERR9 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm1TERR9
        if NombreLancierIAm1TERR9 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm1TERR9
        if NombreFrondeurIAm1TERR9 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm1TERR9
        if NombreArcherIAm1TERR9 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm1TERR9
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm1TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm1TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm1TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm1TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm1TERR9 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm1TERR9 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm1TERR9 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm1TERR9 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY9A]
    end if
    if territoire9 = 3 and territoire = 9 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm2TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm2TEMP
        if NombreLancierIAm2TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm2TEMP
        if NombreFrondeurIAm2TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm2TEMP
        if NombreArcherIAm2TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm2TEMP
        if NombreHommeDarmeIAm2TERR9 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm2TERR9
        if NombreLancierIAm2TERR9 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm2TERR9
        if NombreFrondeurIAm2TERR9 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm2TERR9
        if NombreArcherIAm2TERR9 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm2TERR9
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm2TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm2TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm2TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm2TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm2TERR9 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm2TERR9 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm2TERR9 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm2TERR9 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY9A]
    end if
    if territoire10 = 2 and territoire = 10 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm1TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm1TEMP
        if NombreLancierIAm1TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm1TEMP
        if NombreFrondeurIAm1TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm1TEMP
        if NombreArcherIAm1TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm1TEMP
        if NombreHommeDarmeIAm1TERR10 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm1TERR10
        if NombreLancierIAm1TERR10 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm1TERR10
        if NombreFrondeurIAm1TERR10 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm1TERR10
        if NombreArcherIAm1TERR10 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm1TERR10
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm1TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm1TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm1TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm1TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm1TERR10 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm1TERR10 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm1TERR10 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm1TERR10 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY10A]
    end if
    if territoire10 = 3 and territoire = 10 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm2TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm2TEMP
        if NombreLancierIAm2TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm2TEMP
        if NombreFrondeurIAm2TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm2TEMP
        if NombreArcherIAm2TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm2TEMP
        if NombreHommeDarmeIAm2TERR10 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm2TERR10
        if NombreLancierIAm2TERR10 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm2TERR10
        if NombreFrondeurIAm2TERR10 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm2TERR10
        if NombreArcherIAm2TERR10 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm2TERR10
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm2TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm2TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm2TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm2TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm2TERR10 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm2TERR10 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm2TERR10 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm2TERR10 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY10A]
    end if
    if territoire11 = 2 and territoire = 11 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm1TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm1TEMP
        if NombreLancierIAm1TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm1TEMP
        if NombreFrondeurIAm1TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm1TEMP
        if NombreArcherIAm1TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm1TEMP
        if NombreHommeDarmeIAm1TERR11 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm1TERR11
        if NombreLancierIAm1TERR11 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm1TERR11
        if NombreFrondeurIAm1TERR11 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm1TERR11
        if NombreArcherIAm1TERR11 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm1TERR11
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm1TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm1TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm1TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm1TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm1TERR11 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm1TERR11 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm1TERR11 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm1TERR11 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY11A]
    end if
    if territoire11 = 3 and territoire = 11 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm2TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm2TEMP
        if NombreLancierIAm2TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm2TEMP
        if NombreFrondeurIAm2TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm2TEMP
        if NombreArcherIAm2TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm2TEMP
        if NombreHommeDarmeIAm2TERR11 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm2TERR11
        if NombreLancierIAm2TERR11 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm2TERR11
        if NombreFrondeurIAm2TERR11 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm2TERR11
        if NombreArcherIAm2TERR11 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm2TERR11
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm2TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm2TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm2TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm2TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm2TERR11 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm2TERR11 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm2TERR11 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm2TERR11 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY11A]
    end if
    if territoire12 = 2 and territoire = 12 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm1TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm1TEMP
        if NombreLancierIAm1TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm1TEMP
        if NombreFrondeurIAm1TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm1TEMP
        if NombreArcherIAm1TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm1TEMP
        if NombreHommeDarmeIAm1TERR12 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm1TERR12
        if NombreLancierIAm1TERR12 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm1TERR12
        if NombreFrondeurIAm1TERR12 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm1TERR12
        if NombreArcherIAm1TERR12 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm1TERR12
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm1TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm1TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm1TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm1TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm1TERR12 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm1TERR12 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm1TERR12 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm1TERR12 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY12A]
    end if
    if territoire12 = 3 and territoire = 12 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm2TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm2TEMP
        if NombreLancierIAm2TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm2TEMP
        if NombreFrondeurIAm2TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm2TEMP
        if NombreArcherIAm2TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm2TEMP
        if NombreHommeDarmeIAm2TERR12 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm2TERR12
        if NombreLancierIAm2TERR12 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm2TERR12
        if NombreFrondeurIAm2TERR12 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm2TERR12
        if NombreArcherIAm2TERR12 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm2TERR12
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm2TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm2TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm2TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm2TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm2TERR12 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm2TERR12 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm2TERR12 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm2TERR12 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY12A]
    end if
    if territoire13 = 2 and territoire = 13 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm1TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm1TEMP
        if NombreLancierIAm1TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm1TEMP
        if NombreFrondeurIAm1TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm1TEMP
        if NombreArcherIAm1TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm1TEMP
        if NombreHommeDarmeIAm1TERR13 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm1TERR13
        if NombreLancierIAm1TERR13 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm1TERR13
        if NombreFrondeurIAm1TERR13 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm1TERR13
        if NombreArcherIAm1TERR13 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm1TERR13
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm1TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm1TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm1TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm1TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm1TERR13 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm1TERR13 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm1TERR13 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm1TERR13 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY13A]
    end if
    if territoire13 = 3 and territoire = 13 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm2TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm2TEMP
        if NombreLancierIAm2TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm2TEMP
        if NombreFrondeurIAm2TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm2TEMP
        if NombreArcherIAm2TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm2TEMP
        if NombreHommeDarmeIAm2TERR13 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm2TERR13
        if NombreLancierIAm2TERR13 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm2TERR13
        if NombreFrondeurIAm2TERR13 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm2TERR13
        if NombreArcherIAm2TERR13 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm2TERR13
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm2TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm2TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm2TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm2TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm2TERR13 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm2TERR13 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm2TERR13 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm2TERR13 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY13A]
    end if
    if territoire14 = 2 and territoire = 14 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm1TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm1TEMP
        if NombreLancierIAm1TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm1TEMP
        if NombreFrondeurIAm1TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm1TEMP
        if NombreArcherIAm1TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm1TEMP
        if NombreHommeDarmeIAm1TERR14 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm1TERR14
        if NombreLancierIAm1TERR14 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm1TERR14
        if NombreFrondeurIAm1TERR14 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm1TERR14
        if NombreArcherIAm1TERR14 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm1TERR14
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm1TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm1TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm1TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm1TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm1TERR14 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm1TERR14 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm1TERR14 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm1TERR14 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY14A]
    end if
    if territoire14 = 3 and territoire = 14 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm2TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm2TEMP
        if NombreLancierIAm2TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm2TEMP
        if NombreFrondeurIAm2TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm2TEMP
        if NombreArcherIAm2TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm2TEMP
        if NombreHommeDarmeIAm2TERR14 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm2TERR14
        if NombreLancierIAm2TERR14 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm2TERR14
        if NombreFrondeurIAm2TERR14 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm2TERR14
        if NombreArcherIAm2TERR14 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm2TERR14
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm2TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm2TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm2TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm2TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm2TERR14 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm2TERR14 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm2TERR14 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm2TERR14 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY14A]
    end if
    if territoire15 = 2 and territoire = 15 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm1TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm1TEMP
        if NombreLancierIAm1TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm1TEMP
        if NombreFrondeurIAm1TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm1TEMP
        if NombreArcherIAm1TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm1TEMP
        if NombreHommeDarmeIAm1TERR15 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm1TERR15
        if NombreLancierIAm1TERR15 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm1TERR15
        if NombreFrondeurIAm1TERR15 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm1TERR15
        if NombreArcherIAm1TERR15 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm1TERR15
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm1TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm1TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm1TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm1TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm1TERR15 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm1TERR15 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm1TERR15 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm1TERR15 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY15A]
    end if
    if territoire15 = 3 and territoire = 15 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm2TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm2TEMP
        if NombreLancierIAm2TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm2TEMP
        if NombreFrondeurIAm2TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm2TEMP
        if NombreArcherIAm2TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm2TEMP
        if NombreHommeDarmeIAm2TERR15 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm2TERR15
        if NombreLancierIAm2TERR15 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm2TERR15
        if NombreFrondeurIAm2TERR15 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm2TERR15
        if NombreArcherIAm2TERR15 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm2TERR15
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm2TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm2TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm2TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm2TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm2TERR15 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm2TERR15 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm2TERR15 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm2TERR15 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY15A]
    end if
    if territoire16 = 2 and territoire = 16 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm1TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm1TEMP
        if NombreLancierIAm1TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm1TEMP
        if NombreFrondeurIAm1TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm1TEMP
        if NombreArcherIAm1TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm1TEMP
        if NombreHommeDarmeIAm1TERR16 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm1TERR16
        if NombreLancierIAm1TERR16 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm1TERR16
        if NombreFrondeurIAm1TERR16 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm1TERR16
        if NombreArcherIAm1TERR16 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm1TERR16
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm1TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm1TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm1TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm1TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm1TERR16 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm1TERR16 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm1TERR16 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm1TERR16 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY16A]
    end if
    if territoire16 = 3 and territoire = 16 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm2TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm2TEMP
        if NombreLancierIAm2TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm2TEMP
        if NombreFrondeurIAm2TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm2TEMP
        if NombreArcherIAm2TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm2TEMP
        if NombreHommeDarmeIAm2TERR16 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm2TERR16
        if NombreLancierIAm2TERR16 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm2TERR16
        if NombreFrondeurIAm2TERR16 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm2TERR16
        if NombreArcherIAm2TERR16 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm2TERR16
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm2TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm2TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm2TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm2TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm2TERR16 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm2TERR16 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm2TERR16 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm2TERR16 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY16A]
    end if
    if territoire17 = 2 and territoire = 17 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm1TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm1TEMP
        if NombreLancierIAm1TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm1TEMP
        if NombreFrondeurIAm1TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm1TEMP
        if NombreArcherIAm1TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm1TEMP
        if NombreHommeDarmeIAm1TERR17 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm1TERR17
        if NombreLancierIAm1TERR17 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm1TERR17
        if NombreFrondeurIAm1TERR17 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm1TERR17
        if NombreArcherIAm1TERR17 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm1TERR17
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm1TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm1TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm1TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm1TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm1TERR17 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm1TERR17 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm1TERR17 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm1TERR17 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY17A]
    end if
    if territoire17 = 3 and territoire = 17 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm2TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm2TEMP
        if NombreLancierIAm2TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm2TEMP
        if NombreFrondeurIAm2TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm2TEMP
        if NombreArcherIAm2TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm2TEMP
        if NombreHommeDarmeIAm2TERR17 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm2TERR17
        if NombreLancierIAm2TERR17 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm2TERR17
        if NombreFrondeurIAm2TERR17 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm2TERR17
        if NombreArcherIAm2TERR17 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm2TERR17
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm2TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm2TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm2TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm2TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm2TERR17 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm2TERR17 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm2TERR17 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm2TERR17 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY17A]
    end if
    if territoire18 = 2 and territoire = 18 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm1TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm1TEMP
        if NombreLancierIAm1TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm1TEMP
        if NombreFrondeurIAm1TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm1TEMP
        if NombreArcherIAm1TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm1TEMP
        if NombreHommeDarmeIAm1TERR18 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm1TERR18
        if NombreLancierIAm1TERR18 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm1TERR18
        if NombreFrondeurIAm1TERR18 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm1TERR18
        if NombreArcherIAm1TERR18 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm1TERR18
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm1TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm1TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm1TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm1TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm1TERR18 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm1TERR18 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm1TERR18 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm1TERR18 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY18A]
    end if
    if territoire18 = 3 and territoire = 18 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm2TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm2TEMP
        if NombreLancierIAm2TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm2TEMP
        if NombreFrondeurIAm2TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm2TEMP
        if NombreArcherIAm2TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm2TEMP
        if NombreHommeDarmeIAm2TERR18 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm2TERR18
        if NombreLancierIAm2TERR18 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm2TERR18
        if NombreFrondeurIAm2TERR18 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm2TERR18
        if NombreArcherIAm2TERR18 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm2TERR18
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm2TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm2TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm2TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm2TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm2TERR18 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm2TERR18 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm2TERR18 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm2TERR18 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY18A]
    end if
    if territoire19 = 2 and territoire = 19 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm1TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm1TEMP
        if NombreLancierIAm1TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm1TEMP
        if NombreFrondeurIAm1TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm1TEMP
        if NombreArcherIAm1TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm1TEMP
        if NombreHommeDarmeIAm1TERR19 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm1TERR19
        if NombreLancierIAm1TERR19 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm1TERR19
        if NombreFrondeurIAm1TERR19 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm1TERR19
        if NombreArcherIAm1TERR19 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm1TERR19
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm1TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm1TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm1TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm1TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm1TERR19 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm1TERR19 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm1TERR19 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm1TERR19 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY19A]
    end if
    if territoire19 = 3 and territoire = 19 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm2TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm2TEMP
        if NombreLancierIAm2TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm2TEMP
        if NombreFrondeurIAm2TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm2TEMP
        if NombreArcherIAm2TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm2TEMP
        if NombreHommeDarmeIAm2TERR19 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm2TERR19
        if NombreLancierIAm2TERR19 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm2TERR19
        if NombreFrondeurIAm2TERR19 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm2TERR19
        if NombreArcherIAm2TERR19 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm2TERR19
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm2TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm2TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm2TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm2TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm2TERR19 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm2TERR19 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm2TERR19 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm2TERR19 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY19A]
    end if
    if territoire20 = 2 and territoire = 20 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm1TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm1TEMP
        if NombreLancierIAm1TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm1TEMP
        if NombreFrondeurIAm1TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm1TEMP
        if NombreArcherIAm1TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm1TEMP
        if NombreHommeDarmeIAm1TERR20 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm1TERR20
        if NombreLancierIAm1TERR20 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm1TERR20
        if NombreFrondeurIAm1TERR20 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm1TERR20
        if NombreArcherIAm1TERR20 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm1TERR20
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm1TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm1TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm1TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm1TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm1TERR20 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm1TERR20 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm1TERR20 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm1TERR20 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY20A]
    end if
    if territoire20 = 3 and territoire = 20 then
        print #rapport.map, "color green"
        if NombreHommeDarmeIAm2TEMP >= 1 then print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm2TEMP
        if NombreLancierIAm2TEMP >= 1 then print #rapport.map, "place 330 188 ;\"; NombreLancierIAm2TEMP
        if NombreFrondeurIAm2TEMP >= 1 then print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm2TEMP
        if NombreArcherIAm2TEMP >= 1 then print #rapport.map, "place 330 308 ;\"; NombreArcherIAm2TEMP
        if NombreHommeDarmeIAm2TERR20 >= 1 then print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm2TERR20
        if NombreLancierIAm2TERR20 >= 1 then print #rapport.map, "place 410 188 ;\"; NombreLancierIAm2TERR20
        if NombreFrondeurIAm2TERR20 >= 1 then print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm2TERR20
        if NombreArcherIAm2TERR20 >= 1 then print #rapport.map, "place 410 308 ;\"; NombreArcherIAm2TERR20
        print #rapport.map, "color red"
        if NombreHommeDarmeIAm2TEMP < 1 then print #rapport.map, "place 330 128 ;\"; "0"
        if NombreLancierIAm2TEMP < 1 then print #rapport.map, "place 330 188 ;\"; "0"
        if NombreFrondeurIAm2TEMP < 1 then print #rapport.map, "place 330 248 ;\"; "0"
        if NombreArcherIAm2TEMP < 1 then print #rapport.map, "place 330 308 ;\"; "0"
        if NombreHommeDarmeIAm2TERR20 < 1 then print #rapport.map, "place 410 128 ;\"; "0"
        if NombreLancierIAm2TERR20 < 1 then print #rapport.map, "place 410 188 ;\"; "0"
        if NombreFrondeurIAm2TERR20 < 1 then print #rapport.map, "place 410 248 ;\"; "0"
        if NombreArcherIAm2TERR20 < 1 then print #rapport.map, "place 410 308 ;\"; "0"
        if TEXTvictoire$ = "Défaite" then wait
        goto [endATTAQUEtoTERRITORY20A]
    end if
    wait


    [SimpleClickGESTIONterritoires]
    mX = MouseX
    mY = MouseY
    PLAYER = 1
    'notice mX;" / ";mY
    if gestionTERRITOIRE = 0 and mX> 275 and mX<415 and mY>230 and mY<260 then ATTAQUEtoTERRITORY = 1 : goto [infoConso1]'[territoireATTAQUE]
    if gestionTERRITOIRE = 1 and mX> 275 and mX<415 and mY>230 and mY<260 then goto [GESTIONterritoires2]
    if gestionTERRITOIRE = 1 and mX> 320 and mX<420 and mY>170 and mY<195 then goto [ajoutUNITterre]
    if gestionTERRITOIRE = 1 and mX> 45 and mX<115 and mY>55 and mY<75 then goto [UpgradeTERRbois]
    if gestionTERRITOIRE = 1 and mX> 45 and mX<115 and mY>83 and mY<103 then goto [UpgradeTERRfood]
    if gestionTERRITOIRE = 1 and mX> 45 and mX<115 and mY>111 and mY<131 then goto [UpgradeTERRmetal]
    wait

     [territoireATTAQUE]
     timer 0
     refreshIAterreCAPTURE = 0 : refreshIA2terreCAPTURE = 0
     errorGAME = 3
   ' notice territoire; " : "; PLAYER

    if attaquant  = 1 then territoire = territoireSAV

    if territoire = 1 then
            if PLAYER = 1 then
                if territoire1 <> 1 then close #fen1 : close #bat1 : fen1 = 0 : bat1 = 0 : goto [boucleDEFia1TERRITOIRE]
                [endATTAQUEtoTERRITORY1A1]
                if territoire1 > 0 then goto [rapportBatailleTERRITOIRE1]
                [endATTAQUEtoTERRITORY1A]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER1territoire = nombrePLAYER1territoire + 1
                if territoire1 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire1FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire1BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire1METAL
                if territoire1 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 - INCOMEterritoire1FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 - INCOMEterritoire1BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire1METAL
                territoire1 = 1 : INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire1FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire1BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire1METAL : hpFortificationsTERR1 = 0 : LVLfortificationTERRITOIRE1 = 0
            end if
            if PLAYER = 2 then
                ATTAQUEtoTERRITORY = 1
                if territoire1 = 1 or territoire1 = 3 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY1B1]
                if territoire1 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY1B]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER2territoire = nombrePLAYER2territoire + 1
                if territoire1 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire1FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire1BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire1METAL
                if territoire1 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire1FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire1BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire1METAL
                territoire1 = 2 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 + INCOMEterritoire1FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 + INCOMEterritoire1BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 + INCOMEterritoire1METAL : hpFortificationsTERR1 = 0 : LVLfortificationTERRITOIRE1 = 0
            end if
            if PLAYER = 3 then
                ATTAQUEtoTERRITORY = 1
                if territoire1 = 2 or territoire1 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY1C1]
                if territoire1 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY1C]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER3territoire = nombrePLAYER3territoire + 1
                if territoire1 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire1FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire1BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire1METAL
                if territoire1 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire1FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire1BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire1METAL
                territoire1 = 3 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire1FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire1BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 + INCOMEterritoire1METAL : hpFortificationsTERR1 = 0 : LVLfortificationTERRITOIRE1 = 0
            end if
        goto [territoireREFRESH1]
    end if
    if territoire = 2 then
            if PLAYER = 1 then
                ATTAQUEtoTERRITORY = 1
                errorGAME = 4
                if territoire2 <> 1 then close #fen1 : close #bat1 : fen1 = 0 : bat1 = 0 : goto [boucleDEFia1TERRITOIRE]
                [endATTAQUEtoTERRITORY2A1]
                if territoire2 > 0 then goto [rapportBatailleTERRITOIRE1]
                [endATTAQUEtoTERRITORY2A]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER1territoire = nombrePLAYER1territoire + 1
                if territoire2 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire2FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire2BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire2METAL
                if territoire2 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 - INCOMEterritoire2FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 - INCOMEterritoire2BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire2METAL
                territoire2 = 1 : INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire2FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire2BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire2METAL : hpFortificationsTERR2 = 0 : LVLfortificationTERRITOIRE2 = 0
            end if
            if PLAYER = 2 then
                ATTAQUEtoTERRITORY = 1
                if territoire2 = 3 or territoire2 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY2B1]
                if territoire2 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY2B]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER2territoire = nombrePLAYER2territoire + 1
                if territoire2 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire2FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire2BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire2METAL
                if territoire2 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire2FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire2BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire2METAL
                territoire2 = 2 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 + INCOMEterritoire2FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 + INCOMEterritoire2BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 + INCOMEterritoire2METAL : hpFortificationsTERR2 = 0 : LVLfortificationTERRITOIRE2 = 0
            end if
            if PLAYER = 3 then
                ATTAQUEtoTERRITORY = 1
                if territoire2 = 2 or territoire2 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY2C1]
                if territoire2 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY2C]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER3territoire = nombrePLAYER3territoire + 1
                if territoire2 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire2FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire2BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire2METAL
                if territoire2 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire2FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire2BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire2METAL
                territoire2 = 3 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire2FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire2BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 + INCOMEterritoire2METAL : hpFortificationsTERR2 = 0 : LVLfortificationTERRITOIRE2 = 0
            end if
        goto [territoireREFRESH1]
    end if
    if territoire = 3 then
            if PLAYER = 1 then
                ATTAQUEtoTERRITORY = 1
                if territoire3 <> 1 then close #fen1 : close #bat1 : fen1 = 0 : bat1 = 0 : goto [boucleDEFia1TERRITOIRE]
                [endATTAQUEtoTERRITORY3A1]
                if territoire3 > 0 then goto [rapportBatailleTERRITOIRE1]
                [endATTAQUEtoTERRITORY3A]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER1territoire = nombrePLAYER1territoire + 1
                if territoire3 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire3FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire3BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire3METAL
                if territoire3 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 - INCOMEterritoire3FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 - INCOMEterritoire3BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire3METAL
                territoire3 = 1 : INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire3FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire3BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire3METAL : hpFortificationsTERR3 = 0 : LVLfortificationTERRITOIRE3 = 0
            end if
            if PLAYER = 2 then
                ATTAQUEtoTERRITORY = 1
                if territoire3 = 1 or territoire3 = 3 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY3B1]
                if territoire3 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY3B]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER2territoire = nombrePLAYER2territoire + 1
                if territoire3 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire3FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire3BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire3METAL
                if territoire3 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire3FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire3BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire3METAL
                territoire3 = 2 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 + INCOMEterritoire3FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 + INCOMEterritoire3BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 + INCOMEterritoire3METAL : hpFortificationsTERR3 = 0 : LVLfortificationTERRITOIRE3 = 0
            end if
            if PLAYER = 3 then
                ATTAQUEtoTERRITORY = 1
                if territoire3 = 2 or territoire3 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY3C1]
                if territoire3 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY3C]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER3territoire = nombrePLAYER3territoire + 1
                if territoire3 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire3FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire3BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire3METAL
                if territoire3 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire3FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire3BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire3METAL
                territoire3 = 3 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire3FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire3BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 + INCOMEterritoire3METAL : hpFortificationsTERR3 = 0 : LVLfortificationTERRITOIRE3 = 0
            end if
        goto [territoireREFRESH1]
    end if
    if territoire = 4 then
            if PLAYER = 1 then
                ATTAQUEtoTERRITORY = 1
                if territoire4 <> 1 then close #fen1 : close #bat1 : fen1 = 0 : bat1 = 0 : goto [boucleDEFia1TERRITOIRE]
                [endATTAQUEtoTERRITORY4A1]
                if territoire4 > 0 then goto [rapportBatailleTERRITOIRE1]
                [endATTAQUEtoTERRITORY4A]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER1territoire = nombrePLAYER1territoire + 1
                if territoire4 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire4FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire4BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire4METAL
                if territoire4 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 - INCOMEterritoire4FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 - INCOMEterritoire4BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire4METAL
                territoire4 = 1 : INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire4FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire4BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire4METAL : hpFortificationsTERR4 = 0 : LVLfortificationTERRITOIRE4 = 0
            end if
            if PLAYER = 2 then
                ATTAQUEtoTERRITORY = 1
                if territoire4 = 1 or territoire4 = 3 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY4B1]
                if territoire4 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY4B]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER2territoire = nombrePLAYER2territoire + 1
                if territoire4 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire4FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire4BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire4METAL
                if territoire4 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire4FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire4BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire4METAL
                territoire4 = 2 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 + INCOMEterritoire4FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 + INCOMEterritoire4BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 + INCOMEterritoire4METAL : hpFortificationsTERR4 = 0 : LVLfortificationTERRITOIRE4 = 0
            end if
            if PLAYER = 3 then
                ATTAQUEtoTERRITORY = 1
                if territoire4 = 2 or territoire4 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY4C1]
                if territoire4 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY4C]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER3territoire = nombrePLAYER3territoire + 1
                if territoire4 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire4FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire4BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire4METAL
                if territoire4 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire4FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire4BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire4METAL
                territoire4 = 3 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire4FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire4BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 + INCOMEterritoire4METAL : hpFortificationsTERR4 = 0 : LVLfortificationTERRITOIRE4 = 0
            end if
        goto [territoireREFRESH1]
    end if
    if territoire = 5 then
            if PLAYER = 1 then
                ATTAQUEtoTERRITORY = 1
                if territoire5 <> 1 then close #fen1 : close #bat1 : fen1 = 0 : bat1 = 0 : goto [boucleDEFia1TERRITOIRE]
                [endATTAQUEtoTERRITORY5A1]
                if territoire5 > 0 then goto [rapportBatailleTERRITOIRE1]
                [endATTAQUEtoTERRITORY5A]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER1territoire = nombrePLAYER1territoire + 1
                if territoire5 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire5FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire5BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire5METAL
                if territoire5 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 - INCOMEterritoire5FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 - INCOMEterritoire5BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire5METAL
                territoire5 = 1 : INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire5FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire5BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire5METAL : hpFortificationsTERR5 = 0 : LVLfortificationTERRITOIRE5 = 0
            end if
            if PLAYER = 2 then
                ATTAQUEtoTERRITORY = 1
                if territoire5 = 1 or territoire5 = 3 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY5B1]
                if territoire5 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY5B]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER2territoire = nombrePLAYER2territoire + 1
                if territoire5 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire5FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire5BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire5METAL
                if territoire5 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire5FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire5BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire5METAL
                territoire5 = 2 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 + INCOMEterritoire5FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 + INCOMEterritoire5BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 + INCOMEterritoire5METAL : hpFortificationsTERR5 = 0 : LVLfortificationTERRITOIRE5 = 0
            end if
            if PLAYER = 3 then
                ATTAQUEtoTERRITORY = 1
                if territoire5 = 2 or territoire5 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY5C1]
                if territoire5 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY5C]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER3territoire = nombrePLAYER3territoire + 1
                if territoire5 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire5FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire5BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire5METAL
                if territoire5 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire5FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire5BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire5METAL
                territoire5 = 3 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire5FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire5BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 + INCOMEterritoire5METAL : hpFortificationsTERR5 = 0 : LVLfortificationTERRITOIRE5 = 0
            end if
        goto [territoireREFRESH1]
    end if
    if territoire = 6 then
            if PLAYER = 1 then
                ATTAQUEtoTERRITORY = 1
                if territoire6 <> 1 then close #fen1 : close #bat1 : fen1 = 0 : bat1 = 0 : goto [boucleDEFia1TERRITOIRE]
                [endATTAQUEtoTERRITORY6A1]
                if territoire6 > 0 then goto [rapportBatailleTERRITOIRE1]
                [endATTAQUEtoTERRITORY6A]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER1territoire = nombrePLAYER1territoire + 1
                if territoire6 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire6FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire6BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire6METAL
                if territoire6 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 - INCOMEterritoire6FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 - INCOMEterritoire6BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire6METAL
                territoire6 = 1 : INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire6FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire6BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire6METAL : hpFortificationsTERR6 = 0 : LVLfortificationTERRITOIRE6 = 0
            end if
            if PLAYER = 2 then
                ATTAQUEtoTERRITORY = 1
                if territoire6 = 1 or territoire6 = 3 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY6B1]
                if territoire6 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY6B]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER2territoire = nombrePLAYER2territoire + 1
                if territoire6 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire6FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire6BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire6METAL
                if territoire6 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire6FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire6BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire6METAL
                territoire6 = 2 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 + INCOMEterritoire6FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 + INCOMEterritoire6BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 + INCOMEterritoire6METAL : hpFortificationsTERR6 = 0 : LVLfortificationTERRITOIRE6 = 0
            end if
            if PLAYER = 3 then
                ATTAQUEtoTERRITORY = 1
                if territoire6 = 2 or territoire6 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY6C1]
                if territoire6 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY6C]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER3territoire = nombrePLAYER3territoire + 1
                if territoire6 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire6FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire6BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire6METAL
                if territoire6 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire6FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire6BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire6METAL
                territoire6 = 3 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire6FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire6BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 + INCOMEterritoire6METAL : hpFortificationsTERR6 = 0 : LVLfortificationTERRITOIRE6 = 0
            end if
        goto [territoireREFRESH1]
    end if
    if territoire = 7 then
            if PLAYER = 1 then
                ATTAQUEtoTERRITORY = 1
                if territoire7 <> 1 then close #fen1 : close #bat1 : fen1 = 0 : bat1 = 0 : goto [boucleDEFia1TERRITOIRE]
                [endATTAQUEtoTERRITORY7A1]
                if territoire7 > 0 then goto [rapportBatailleTERRITOIRE1]
                [endATTAQUEtoTERRITORY7A]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER1territoire = nombrePLAYER1territoire + 1
                if territoire7 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire7FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire7BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire7METAL
                if territoire7 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 - INCOMEterritoire7FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 - INCOMEterritoire7BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire7METAL
                territoire7 = 1 : INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire7FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire7BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire7METAL : hpFortificationsTERR7 = 0 : LVLfortificationTERRITOIRE7 = 0
            end if
            if PLAYER = 2 then
                ATTAQUEtoTERRITORY = 1
                if territoire7 = 1 or territoire7 = 3 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY7B1]
                if territoire7 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY7B]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER2territoire = nombrePLAYER2territoire + 1
                if territoire7 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire7FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire7BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire7METAL
                if territoire7 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire7FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire7BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire7METAL
                territoire7 = 2 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 + INCOMEterritoire7FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 + INCOMEterritoire7BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 + INCOMEterritoire7METAL : hpFortificationsTERR7 = 0 : LVLfortificationTERRITOIRE7 = 0
            end if
            if PLAYER = 3 then
                ATTAQUEtoTERRITORY = 1
                if territoire7 = 2 or territoire7 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY7C1]
                if territoire7 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY7C]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER3territoire = nombrePLAYER3territoire + 1
                if territoire7 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire7FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire7BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire7METAL
                if territoire7 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire7FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire7BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire7METAL
                territoire7 = 3 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire7FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire7BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 + INCOMEterritoire7METAL : hpFortificationsTERR7 = 0 : LVLfortificationTERRITOIRE7 = 0
            end if
        goto [territoireREFRESH1]
    end if
    if territoire = 8 then
            if PLAYER = 1 then
                ATTAQUEtoTERRITORY = 1
                if territoire8 <> 1 then close #fen1 : close #bat1 : fen1 = 0 : bat1 = 0 : goto [boucleDEFia1TERRITOIRE]
                [endATTAQUEtoTERRITORY8A1]
                if territoire8 > 0 then goto [rapportBatailleTERRITOIRE1]
                [endATTAQUEtoTERRITORY8A]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER1territoire = nombrePLAYER1territoire + 1
                if territoire8 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire8FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire8BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire8METAL
                if territoire8 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 - INCOMEterritoire8FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 - INCOMEterritoire8BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire8METAL
                territoire8 = 1 : INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire8FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire8BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire8METAL : hpFortificationsTERR8 = 0 : LVLfortificationTERRITOIRE8 = 0
            end if
            if PLAYER = 2 then
                ATTAQUEtoTERRITORY = 1
                if territoire8 = 1 or territoire8 = 3 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY8B1]
                if territoire8 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY8B]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER2territoire = nombrePLAYER2territoire + 1
                if territoire8 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire8FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire8BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire8METAL
                if territoire8 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire8FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire8BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire8METAL
                territoire8 = 2 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 + INCOMEterritoire8FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 + INCOMEterritoire8BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 + INCOMEterritoire8METAL : hpFortificationsTERR8 = 0 : LVLfortificationTERRITOIRE8 = 0
            end if
            if PLAYER = 3 then
                ATTAQUEtoTERRITORY = 1
                if territoire8 = 2 or territoire8 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY8C1]
                if territoire8 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY8C]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER3territoire = nombrePLAYER3territoire + 1
                if territoire8 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire8FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire8BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire8METAL
                if territoire8 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire8FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire8BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire8METAL
                territoire8 = 3 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire8FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire8BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 + INCOMEterritoire8METAL : hpFortificationsTERR8 = 0 : LVLfortificationTERRITOIRE8 = 0
            end if
        goto [territoireREFRESH1]
    end if
    if territoire = 9 then
            if PLAYER = 1 then
                ATTAQUEtoTERRITORY = 1
                if territoire9 <> 1 then close #fen1 : close #bat1 : fen1 = 0 : bat1 = 0 : goto [boucleDEFia1TERRITOIRE]
                [endATTAQUEtoTERRITORY9A1]
                if territoire9 > 0 then goto [rapportBatailleTERRITOIRE1]
                [endATTAQUEtoTERRITORY9A]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER1territoire = nombrePLAYER1territoire + 1
                if territoire9 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire9FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire9BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire9METAL
                if territoire9 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 - INCOMEterritoire9FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 - INCOMEterritoire9BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire9METAL
                territoire9 = 1 : INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire9FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire9BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire9METAL : hpFortificationsTERR9 = 0 : LVLfortificationTERRITOIRE9 = 0
            end if
            if PLAYER = 2 then
                ATTAQUEtoTERRITORY = 1
                if territoire9 = 1 or territoire9 = 3 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY9B1]
                if territoire9 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY9B]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER2territoire = nombrePLAYER2territoire + 1
                if territoire9 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire9FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire9BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire9METAL
                if territoire9 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire9FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire9BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire9METAL
                territoire9 = 2 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 + INCOMEterritoire9FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 + INCOMEterritoire9BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 + INCOMEterritoire9METAL : hpFortificationsTERR9 = 0 : LVLfortificationTERRITOIRE9 = 0
            end if
            if PLAYER = 3 then
                ATTAQUEtoTERRITORY = 1
                if territoire9 = 2 or territoire9 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY9C1]
                if territoire9 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY9C]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER3territoire = nombrePLAYER3territoire + 1
                if territoire9 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire9FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire9BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire9METAL
                if territoire9 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire9FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire9BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire9METAL
                territoire9 = 3 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire9FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire9BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 + INCOMEterritoire9METAL : hpFortificationsTERR9 = 0 : LVLfortificationTERRITOIRE9 = 0
            end if
        goto [territoireREFRESH1]
    end if
    if territoire = 10 then
            if PLAYER = 1 then
                ATTAQUEtoTERRITORY = 1
                if territoire10 <> 1 then close #fen1 : close #bat1 : fen1 = 0 : bat1 = 0 : goto [boucleDEFia1TERRITOIRE]
                [endATTAQUEtoTERRITORY10A1]
                if territoire10 > 0 then goto [rapportBatailleTERRITOIRE1]
                [endATTAQUEtoTERRITORY10A]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER1territoire = nombrePLAYER1territoire + 1
                if territoire10 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire10FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire10BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire10METAL
                if territoire10 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 - INCOMEterritoire10FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 - INCOMEterritoire10BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire10METAL
                territoire10 = 1 : INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire10FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire10BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire10METAL : hpFortificationsTERR10 = 0 : LVLfortificationTERRITOIRE10 = 0
            end if
            if PLAYER = 2 then
                ATTAQUEtoTERRITORY = 1
                if territoire10 = 1 or territoire10 = 3 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY10B1]
                if territoire10 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY10B]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER2territoire = nombrePLAYER2territoire + 1
                if territoire10 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire10FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire10BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire10METAL
                if territoire10 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire10FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire10BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire10METAL
                territoire10 = 2 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 + INCOMEterritoire10FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 + INCOMEterritoire10BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 + INCOMEterritoire10METAL : hpFortificationsTERR10 = 0 : LVLfortificationTERRITOIRE10 = 0
            end if
            if PLAYER = 3 then
                ATTAQUEtoTERRITORY = 1
                if territoire10 = 2 or territoire10 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY10C1]
                if territoire10 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY10C]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER3territoire = nombrePLAYER3territoire + 1
                if territoire10 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire10FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire10BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire10METAL
                if territoire10 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire10FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire10BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire10METAL
                territoire10 = 3 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire10FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire10BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 + INCOMEterritoire10METAL : hpFortificationsTERR10 = 0 : LVLfortificationTERRITOIRE10 = 0
            end if
        goto [territoireREFRESH1]
    end if
    if territoire = 11 then
            if PLAYER = 1 then
                ATTAQUEtoTERRITORY = 1
                if territoire11 <> 1 then close #fen1 : close #bat1 : fen1 = 0 : bat1 = 0 : goto [boucleDEFia1TERRITOIRE]
                [endATTAQUEtoTERRITORY11A1]
                if territoire11 > 0 then goto [rapportBatailleTERRITOIRE1]
                [endATTAQUEtoTERRITORY11A]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER1territoire = nombrePLAYER1territoire + 1
                if territoire11 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire11FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire11BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire11METAL
                if territoire11 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 - INCOMEterritoire11FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 - INCOMEterritoire11BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire11METAL
                territoire11 = 1 : INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire11FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire11BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire11METAL : hpFortificationsTERR11 = 0 : LVLfortificationTERRITOIRE11 = 0
            end if
            if PLAYER = 2 then
                ATTAQUEtoTERRITORY = 1
                if territoire11 = 1 or territoire10 = 3 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY11B1]
                if territoire11 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY11B]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER2territoire = nombrePLAYER2territoire + 1
                if territoire11 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire11FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire11BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire11METAL
                if territoire11 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire11FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire11BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire11METAL
                territoire11 = 2 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 + INCOMEterritoire11FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 + INCOMEterritoire11BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 + INCOMEterritoire11METAL : hpFortificationsTERR11 = 0 : LVLfortificationTERRITOIRE11 = 0
            end if
            if PLAYER = 3 then
                ATTAQUEtoTERRITORY = 1
                if territoire11 = 2 or territoire10 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY11C1]
                if territoire11 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY11C]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER3territoire = nombrePLAYER3territoire + 1
                if territoire11 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire11FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire11BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire11METAL
                if territoire11 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire11FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire11BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire11METAL
                territoire11 = 3 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire11FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire11BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 + INCOMEterritoire11METAL : hpFortificationsTERR11 = 0 : LVLfortificationTERRITOIRE11 = 0
            end if
        goto [territoireREFRESH1]
    end if
    if territoire = 12 then
            if PLAYER = 1 then
                ATTAQUEtoTERRITORY = 1
                if territoire12 <> 1 then close #fen1 : close #bat1 : fen1 = 0 : bat1 = 0 : goto [boucleDEFia1TERRITOIRE]
                [endATTAQUEtoTERRITORY12A1]
                if territoire12 > 0 then goto [rapportBatailleTERRITOIRE1]
                [endATTAQUEtoTERRITORY12A]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER1territoire = nombrePLAYER1territoire + 1
                if territoire12 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire12FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire12BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire12METAL
                if territoire12 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 - INCOMEterritoire12FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 - INCOMEterritoire12BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire12METAL
                territoire12 = 1 : INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire12FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire12BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire12METAL : hpFortificationsTERR12 = 0 : LVLfortificationTERRITOIRE12 = 0
            end if
            if PLAYER = 2 then
                ATTAQUEtoTERRITORY = 1
                if territoire12 = 1 or territoire12 = 3 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY12B1]
                if territoire12 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY12B]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER2territoire = nombrePLAYER2territoire + 1
                if territoire12 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire12FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire12BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire12METAL
                if territoire12 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire12FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire12BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire12METAL
                territoire12 = 2 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 + INCOMEterritoire12FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 + INCOMEterritoire12BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 + INCOMEterritoire12METAL : hpFortificationsTERR12 = 0 : LVLfortificationTERRITOIRE12 = 0
            end if
            if PLAYER = 3 then
                ATTAQUEtoTERRITORY = 1
                if territoire12 = 2 or territoire12 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY12C1]
                if territoire12 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY12C]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER3territoire = nombrePLAYER3territoire + 1
                if territoire12 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire12FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire12BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire12METAL
                if territoire12 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire12FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire12BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire12METAL
                territoire12 = 3 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire12FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire12BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 + INCOMEterritoire12METAL : hpFortificationsTERR12 = 0 : LVLfortificationTERRITOIRE12 = 0
            end if
        goto [territoireREFRESH1]
    end if
    if territoire = 13 then
            if PLAYER = 1 then
                ATTAQUEtoTERRITORY = 1
                if territoire13 <> 1 then close #fen1 : close #bat1 : fen1 = 0 : bat1 = 0 : goto [boucleDEFia1TERRITOIRE]
                [endATTAQUEtoTERRITORY13A1]
                if territoire13 > 0 then goto [rapportBatailleTERRITOIRE1]
                [endATTAQUEtoTERRITORY13A]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER1territoire = nombrePLAYER1territoire + 1
                if territoire13 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire13FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire13BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire13METAL
                if territoire13 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 - INCOMEterritoire13FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 - INCOMEterritoire13BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire13METAL
                territoire13 = 1 : INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire13FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire13BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire13METAL : hpFortificationsTERR13 = 0 : LVLfortificationTERRITOIRE13 = 0
            end if
            if PLAYER = 2 then
                ATTAQUEtoTERRITORY = 1
                if territoire13 = 1 or territoire13 = 3 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY13B1]
                if territoire13 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY13B]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER2territoire = nombrePLAYER2territoire + 1
                if territoire13 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire13FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire13BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire13METAL
                if territoire13 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire13FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire13BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire13METAL
                territoire13 = 2 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 + INCOMEterritoire13FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 + INCOMEterritoire13BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 + INCOMEterritoire13METAL : hpFortificationsTERR13 = 0 : LVLfortificationTERRITOIRE13 = 0
            end if
            if PLAYER = 3 then
                ATTAQUEtoTERRITORY = 1
                if territoire13 = 2 or territoire13 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY13C1]
                if territoire13 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY13C]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER3territoire = nombrePLAYER3territoire + 1
                if territoire13 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire13FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire13BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire13METAL
                if territoire13 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire13FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire13BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire13METAL
                territoire13 = 3 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire13FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire13BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 + INCOMEterritoire13METAL : hpFortificationsTERR13 = 0 : LVLfortificationTERRITOIRE13 = 0
            end if
        goto [territoireREFRESH1]
    end if
    if territoire = 14 then
            if PLAYER = 1 then
                ATTAQUEtoTERRITORY = 1
                if territoire14 <> 1 then close #fen1 : close #bat1 : fen1 = 0 : bat1 = 0 : goto [boucleDEFia1TERRITOIRE]
                [endATTAQUEtoTERRITORY14A1]
                if territoire14 > 0 then goto [rapportBatailleTERRITOIRE1]
                [endATTAQUEtoTERRITORY14A]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER1territoire = nombrePLAYER1territoire + 1
                if territoire14 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire14FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire14BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire14METAL
                if territoire14 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 - INCOMEterritoire14FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 - INCOMEterritoire14BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire14METAL
                territoire14 = 1 : INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire14FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire14BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire14METAL : hpFortificationsTERR14 = 0 : LVLfortificationTERRITOIRE14 = 0
            end if
            if PLAYER = 2 then
                ATTAQUEtoTERRITORY = 1
                if territoire14 = 1 or territoire14 = 3 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY14B1]
                if territoire14 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY14B]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER2territoire = nombrePLAYER2territoire + 1
                if territoire14 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire14FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire14BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire14METAL
                if territoire14 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire14FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire14BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire14METAL
                territoire14 = 2 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 + INCOMEterritoire14FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 + INCOMEterritoire14BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 + INCOMEterritoire14METAL : hpFortificationsTERR14 = 0 : LVLfortificationTERRITOIRE14 = 0
            end if
            if PLAYER = 3 then
                ATTAQUEtoTERRITORY = 1
                if territoire14 = 2 or territoire14 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY14C1]
                if territoire14 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY14C]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER3territoire = nombrePLAYER3territoire + 1
                if territoire14 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire14FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire14BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire14METAL
                if territoire14 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire14FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire14BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire14METAL
                territoire14 = 3 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire14FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire14BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 + INCOMEterritoire14METAL : hpFortificationsTERR14 = 0 : LVLfortificationTERRITOIRE14 = 0
            end if
        goto [territoireREFRESH1]
    end if
    if territoire = 15 then
            if PLAYER = 1 then
                ATTAQUEtoTERRITORY = 1
                if territoire15 <> 1 then close #fen1 : close #bat1 : fen1 = 0 : bat1 = 0 : goto [boucleDEFia1TERRITOIRE]
                [endATTAQUEtoTERRITORY15A1]
                if territoire15 > 0 then goto [rapportBatailleTERRITOIRE1]
                [endATTAQUEtoTERRITORY15A]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER1territoire = nombrePLAYER1territoire + 1
                if territoire15 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire15FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire15BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire15METAL
                if territoire15 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 - INCOMEterritoire15FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 - INCOMEterritoire15BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire15METAL
                territoire15 = 1 : INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire15FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire15BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire15METAL : hpFortificationsTERR15 = 0 : LVLfortificationTERRITOIRE15 = 0
            end if
            if PLAYER = 2 then
                ATTAQUEtoTERRITORY = 1
                if territoire15 = 1 or territoire15 = 3 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY15B1]
                if territoire15 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY15B]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER2territoire = nombrePLAYER2territoire + 1
                if territoire15 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire15FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire15BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire15METAL
                if territoire15 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire15FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire15BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire15METAL
                territoire15 = 2 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 + INCOMEterritoire15FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 + INCOMEterritoire15BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 + INCOMEterritoire15METAL : hpFortificationsTERR15 = 0 : LVLfortificationTERRITOIRE15 = 0
            end if
            if PLAYER = 3 then
                ATTAQUEtoTERRITORY = 1
                if territoire15 = 2 or territoire15 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY15C1]
                if territoire15 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY15C]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER3territoire = nombrePLAYER3territoire + 1
                if territoire15 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire15FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire15BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire15METAL
                if territoire15 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire15FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire15BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire15METAL
                territoire15 = 3 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire15FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire15BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 + INCOMEterritoire15METAL : hpFortificationsTERR15 = 0 : LVLfortificationTERRITOIRE15 = 0
            end if
        goto [territoireREFRESH1]
    end if
    if territoire = 16 then
            if PLAYER = 1 then
                ATTAQUEtoTERRITORY = 1
                if territoire16 <> 1 then close #fen1 : close #bat1 : fen1 = 0 : bat1 = 0 : goto [boucleDEFia1TERRITOIRE]
                [endATTAQUEtoTERRITORY16A1]
                if territoire16 > 0 then goto [rapportBatailleTERRITOIRE1]
                [endATTAQUEtoTERRITORY16A]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER1territoire = nombrePLAYER1territoire + 1
                if territoire16 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire16FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire16BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire16METAL
                if territoire16 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 - INCOMEterritoire16FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 - INCOMEterritoire16BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire16METAL
                territoire16 = 1 : INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire16FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire16BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire16METAL : hpFortificationsTERR16 = 0 : LVLfortificationTERRITOIRE16 = 0
            end if
            if PLAYER = 2 then
                ATTAQUEtoTERRITORY = 1
                if territoire16 = 1 or territoire16 = 3 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY16B1]
                if territoire16 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY16B]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER2territoire = nombrePLAYER2territoire + 1
                if territoire16 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire16FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire16BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire16METAL
                if territoire16 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire16FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire16BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire16METAL
                territoire16 = 2 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 + INCOMEterritoire16FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 + INCOMEterritoire16BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 + INCOMEterritoire16METAL : hpFortificationsTERR16 = 0 : LVLfortificationTERRITOIRE16 = 0
            end if
            if PLAYER = 3 then
                ATTAQUEtoTERRITORY = 1
                if territoire16 = 2 or territoire16 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY16C1]
                if territoire16 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY16C]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER3territoire = nombrePLAYER3territoire + 1
                if territoire16 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire16FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire16BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire16METAL
                if territoire16 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire16FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire16BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire16METAL
                territoire16 = 3 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire16FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire16BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 + INCOMEterritoire16METAL : hpFortificationsTERR16 = 0 : LVLfortificationTERRITOIRE16 = 0
            end if
        goto [territoireREFRESH1]
    end if
    if territoire = 17 then
            if PLAYER = 1 then
                ATTAQUEtoTERRITORY = 1
                if territoire17 <> 1 then close #fen1 : close #bat1 : fen1 = 0 : bat1 = 0 : goto [boucleDEFia1TERRITOIRE]
                [endATTAQUEtoTERRITORY17A1]
                if territoire17 > 0 then goto [rapportBatailleTERRITOIRE1]
                [endATTAQUEtoTERRITORY17A]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER1territoire = nombrePLAYER1territoire + 1
                if territoire17 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire17FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire17BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire17METAL
                if territoire17 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 - INCOMEterritoire17FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 - INCOMEterritoire17BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire17METAL
                territoire17 = 1 : INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire16FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire16BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire17METAL : hpFortificationsTERR17 = 0 : LVLfortificationTERRITOIRE17 = 0
            end if
            if PLAYER = 2 then
                ATTAQUEtoTERRITORY = 1
                if territoire17 = 3 or territoire17 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY17B1]
                if territoire17 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY17B]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER2territoire = nombrePLAYER2territoire + 1
                if territoire17 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire17FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire17BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire17METAL
                if territoire17 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire17FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire17BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire17METAL
                territoire17 = 2 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 + INCOMEterritoire17FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 + INCOMEterritoire17BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 + INCOMEterritoire17METAL : hpFortificationsTERR17 = 0 : LVLfortificationTERRITOIRE17 = 0
            end if
            if PLAYER = 3 then
                ATTAQUEtoTERRITORY = 1
                if territoire17 = 2 or territoire17 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY17C1]
                if territoire17 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY17C]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER3territoire = nombrePLAYER3territoire + 1
                if territoire17 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire17FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire17BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire17METAL
                if territoire17 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire17FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire17BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire17METAL
                territoire17 = 3 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire17FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire17BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 + INCOMEterritoire17METAL : hpFortificationsTERR17 = 0 : LVLfortificationTERRITOIRE17 = 0
            end if
        goto [territoireREFRESH1]
    end if
    if territoire = 18 then
            if PLAYER = 1 then
                ATTAQUEtoTERRITORY = 1
                if territoire18 <> 1 then close #fen1 : close #bat1 : fen1 = 0 : bat1 = 0 : goto [boucleDEFia1TERRITOIRE]
                [endATTAQUEtoTERRITORY18A1]
                if territoire18 > 0 then goto [rapportBatailleTERRITOIRE1]
                [endATTAQUEtoTERRITORY18A]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER1territoire = nombrePLAYER1territoire + 1
                if territoire18 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire18FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire18BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire18METAL
                if territoire18 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 - INCOMEterritoire18FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 - INCOMEterritoire18BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire18METAL
                territoire18 = 1 : INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire16FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire16BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire18METAL : hpFortificationsTERR18 = 0 : LVLfortificationTERRITOIRE18 = 0
            end if
            if PLAYER = 2 then
                ATTAQUEtoTERRITORY = 1
                if territoire18 = 3 or territoire18 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY18B1]
                if territoire18 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY18B]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER2territoire = nombrePLAYER2territoire + 1
                if territoire18 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire18FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire18BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire18METAL
                if territoire18 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire18FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire18BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire18METAL
                territoire18 = 2 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 + INCOMEterritoire18FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 + INCOMEterritoire18BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 + INCOMEterritoire18METAL : hpFortificationsTERR18 = 0 : LVLfortificationTERRITOIRE18 = 0
            end if
            if PLAYER = 3 then
                ATTAQUEtoTERRITORY = 1
                if territoire18 = 2 or territoire18 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY18C1]
                if territoire18 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY18C]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER3territoire = nombrePLAYER3territoire + 1
                if territoire18 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire18FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire18BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire18METAL
                if territoire18 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire18FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire18BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire18METAL
                territoire18 = 3 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire18FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire18BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 + INCOMEterritoire18METAL : hpFortificationsTERR18 = 0 : LVLfortificationTERRITOIRE18 = 0
            end if
        goto [territoireREFRESH1]
    end if
    if territoire = 19 then
            if PLAYER = 1 then
                ATTAQUEtoTERRITORY = 1
                if territoire19 <> 1 then close #fen1 : close #bat1 : fen1 = 0 : bat1 = 0 : goto [boucleDEFia1TERRITOIRE]
                [endATTAQUEtoTERRITORY19A1]
                if territoire19 > 0 then goto [rapportBatailleTERRITOIRE1]
                [endATTAQUEtoTERRITORY19A]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER1territoire = nombrePLAYER1territoire + 1
                if territoire19 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire19FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire19BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire19METAL
                if territoire19 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 - INCOMEterritoire19FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 - INCOMEterritoire19BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire19METAL
                territoire19 = 1 : INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire16FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire16BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire19METAL : hpFortificationsTERR19 = 0 : LVLfortificationTERRITOIRE19 = 0
            end if
            if PLAYER = 2 then
                errorGAME = 31
                ATTAQUEtoTERRITORY = 1
                if territoire19 = 3 or territoire19 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY19B1]
                errorGAME = 32
                if territoire19 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY19B]
                errorGAME = 33
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER2territoire = nombrePLAYER2territoire + 1
                if territoire19 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire19FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire19BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire19METAL
                if territoire19 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire19FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire19BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire19METAL
                territoire19 = 2 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 + INCOMEterritoire19FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 + INCOMEterritoire19BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 + INCOMEterritoire19METAL : hpFortificationsTERR19 = 0 : LVLfortificationTERRITOIRE19 = 0
                errorGAME = 34
            end if
            if PLAYER = 3 then
                ATTAQUEtoTERRITORY = 1
                if territoire19 = 2 or territoire19 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY19C1]
                if territoire19 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY19C]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER3territoire = nombrePLAYER3territoire + 1
                if territoire19 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire19FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire19BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire19METAL
                if territoire19 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire19FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire19BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire19METAL
                territoire19 = 3 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire19FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire19BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 + INCOMEterritoire19METAL : hpFortificationsTERR19 = 0 : LVLfortificationTERRITOIRE19 = 0
            end if
        goto [territoireREFRESH1]
    end if
    if territoire = 20 then
            if PLAYER = 1 then
                ATTAQUEtoTERRITORY = 1
                if territoire20 <> 1 then close #fen1 : close #bat1 : fen1 = 0 : bat1 = 0 : goto [boucleDEFia1TERRITOIRE]
                [endATTAQUEtoTERRITORY20A1]
                if territoire20 > 0 then goto [rapportBatailleTERRITOIRE1]
                [endATTAQUEtoTERRITORY20A]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER1territoire = nombrePLAYER1territoire + 1
                if territoire20 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire20FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire20BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire20METAL
                if territoire20 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 - INCOMEterritoire20FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 - INCOMEterritoire20BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire20METAL
                territoire20 = 1 : INCOMEterritoireFOOD = INCOMEterritoireFOOD + INCOMEterritoire20FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS + INCOMEterritoire20BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL + INCOMEterritoire20METAL : hpFortificationsTERR20 = 0 : LVLfortificationTERRITOIRE20 = 0
            end if
            if PLAYER = 2 then
                ATTAQUEtoTERRITORY = 1
                if territoire20 = 3 or territoire20 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY20B1]
                if territoire20 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY20B]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER2territoire = nombrePLAYER2territoire + 1
                if territoire20 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam1 = STATUTiam1 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire20FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire20BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire20METAL
                if territoire20 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire20FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire20BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 - INCOMEterritoire20METAL
                territoire20 = 2 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 + INCOMEterritoire20FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 + INCOMEterritoire20BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 + INCOMEterritoire20METAL : hpFortificationsTERR20 = 0 : LVLfortificationTERRITOIRE20 = 0
            end if
            if PLAYER = 3 then
                ATTAQUEtoTERRITORY = 1
                if territoire20 = 2 or territoire20 = 1 then goto [boucleATKia1TERRITOIRE]
                [endATTAQUEtoTERRITORY20C1]
                if territoire20 = 1 then goto [rapportBatailleTERRITOIRE2]
                [endATTAQUEtoTERRITORY20C]
                ATTAQUEtoTERRITORY = 0
                nombrePLAYER3territoire = nombrePLAYER3territoire + 1
                if territoire20 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire - 1 : STATUTiam2TOiam1 = STATUTiam2TOiam1 - 30 : INCOMEterritoireFOODiam1 = INCOMEterritoireFOODiam1 - INCOMEterritoire20FOOD : INCOMEterritoireBOISiam1 = INCOMEterritoireBOISiam1 - INCOMEterritoire20BOIS : INCOMEterritoireMETALiam1 = INCOMEterritoireMETALiam1 - INCOMEterritoire20METAL
                if territoire20 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire - 1 : STATUTiam2 = STATUTiam2 - 30 : INCOMEterritoireFOOD = INCOMEterritoireFOOD - INCOMEterritoire20FOOD : INCOMEterritoireBOIS = INCOMEterritoireBOIS - INCOMEterritoire20BOIS : INCOMEterritoireMETAL = INCOMEterritoireMETAL - INCOMEterritoire20METAL
                territoire20 = 3 : INCOMEterritoireFOODiam2 = INCOMEterritoireFOODiam2 + INCOMEterritoire20FOOD : INCOMEterritoireBOISiam2 = INCOMEterritoireBOISiam2 + INCOMEterritoire20BOIS : INCOMEterritoireMETALiam2 = INCOMEterritoireMETALiam2 + INCOMEterritoire20METAL : hpFortificationsTERR20 = 0 : LVLfortificationTERRITOIRE20 = 0
            end if
        goto [territoireREFRESH1]
    end if
    wait

    [openCITYe]
    if espionnageEXPEDITION = 0 and attaqueEXPEDITION = 0 then PiaCOORx = P1bisx : PiaCOORy = P1bisy
    print #sgc.espionnage, "show" : print #sgc.attaquer, "show"
    ATTAQUEsurIA1 = 1 : ATTAQUEsurIA2 = 0
    return
    [openCITYe2]
    if espionnageEXPEDITION = 0 and attaqueEXPEDITION = 0 then PiaCOORx = P2bisx : PiaCOORy = P2bisy
    print #sgc.espionnage2, "show" : print #sgc.attaquer2, "show"
    ATTAQUEsurIA1 = 0 : ATTAQUEsurIA2 = 1
    return
    [gotoVILLE]
    if villeJ1 = 1 then goto [AnimWindowCloseVilleJ1]
    if activationJ1 = 1 then goto [villeJ1]
    wait

    [closeFEN1]
    timer 0
    close #sgc
    fen1 = 0 : attaquant = 0 : TYPESrapports = 0 : secuSYSsolaire = 0
    goto [GAMEstartINI2]

    [SimpleClickFen1]
    mX = MouseX
    mY = MouseY
    if secuSYSsolaire = 1 and mX> 490 and mX<530 and mY>260 and mY<310 then goto [closeFEN1]
    if secuSYSsolaire = 0 and mX>int(15*lc) and mX<int((15*lc)+50) and mY>int(10*lc) and mY<int((10*lc)+50) then goto [planeteP1]
    wait

[attaqueIA]
print #fen1.A, "!contents? unit1$"
print #fen1.B, "!contents? unit2$"
print #fen1.C, "!contents? unit3$"
print #fen1.D, "!contents? unit4$"
print #fen1.E, "!contents? unit5$"

NombreHommeDarmeSELECT = val(unit1$)
NombreLancierSELECT = val(unit2$)
NombreFrondeurSELECT = val(unit3$)
NombreArcherSELECT = val(unit4$)
NombreEXPLORATEURSELECT = val(unit5$)

'if NombreHommeDarmeSELECT > NombreHommeDarme - NombreHommeDarmeSELECTED - NombreHommeDarmeTERR1 - NombreHommeDarmeTERR2 - NombreHommeDarmeTERR3 - NombreHommeDarmeTERR4 - NombreHommeDarmeTERR5 - NombreHommeDarmeTERR6 - NombreHommeDarmeTERR7 - NombreHommeDarmeTERR8 - NombreHommeDarmeTERR9 - NombreHommeDarmeTERR10 - NombreHommeDarmeTERR11 - NombreHommeDarmeTERR12 - NombreHommeDarmeTERR13 - NombreHommeDarmeTERR14 - NombreHommeDarmeTERR15 - NombreHommeDarmeTERR16 - NombreHommeDarmeTERR17 - NombreHommeDarmeTERR18 - NombreHommeDarmeTERR19 - NombreHommeDarmeTERR20 then wait
'if NombreLancierSELECT > NombreLancier - NombreLancierSELECTED - NombreLancierTERR1 - NombreLancierTERR2 - NombreLancierTERR3 - NombreLancierTERR4 - NombreLancierTERR5 - NombreLancierTERR6 - NombreLancierTERR7 - NombreLancierTERR8 - NombreLancierTERR9 - NombreLancierTERR10 - NombreLancierTERR11 - NombreLancierTERR12 - NombreLancierTERR13 - NombreLancierTERR14 - NombreLancierTERR15 - NombreLancierTERR16 - NombreLancierTERR17 - NombreLancierTERR18 - NombreLancierTERR19 - NombreLancierTERR20 then wait
'if NombreFrondeurSELECT > NombreFrondeur - NombreFrondeurSELECTED - NombreFrondeurTERR1 - NombreFrondeurTERR2 - NombreFrondeurTERR3 - NombreFrondeurTERR4 - NombreFrondeurTERR5 - NombreFrondeurTERR6 - NombreFrondeurTERR7 - NombreFrondeurTERR8 - NombreFrondeurTERR9 - NombreFrondeurTERR10 - NombreFrondeurTERR11 - NombreFrondeurTERR12 - NombreFrondeurTERR13 - NombreFrondeurTERR14 - NombreFrondeurTERR15 - NombreFrondeurTERR16 - NombreFrondeurTERR17 - NombreFrondeurTERR18 - NombreFrondeurTERR19 - NombreFrondeurTERR20 then wait
'if NombreArcherSELECT > NombreArcher - NombreArcherSELECTED - NombreArcherTERR1 - NombreArcherTERR2 - NombreArcherTERR3 - NombreArcherTERR4 - NombreArcherTERR5 - NombreArcherTERR6 - NombreArcherTERR7 - NombreArcherTERR8 - NombreArcherTERR9 - NombreArcherTERR10 - NombreArcherTERR11 - NombreArcherTERR12 - NombreArcherTERR13 - NombreArcherTERR14 - NombreArcherTERR15 - NombreArcherTERR16 - NombreArcherTERR17 - NombreArcherTERR18 - NombreArcherTERR19 - NombreArcherTERR20 then wait
'if NombreEXPLORATEURSELECT > NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - NombreEXPLORATEURTERR1 - NombreEXPLORATEURTERR2 - NombreEXPLORATEURTERR3 - NombreEXPLORATEURTERR4 - NombreEXPLORATEURTERR5 - NombreEXPLORATEURTERR6 - NombreEXPLORATEURTERR7 - NombreEXPLORATEURTERR8 - NombreEXPLORATEURTERR9 - NombreEXPLORATEURTERR10 - NombreEXPLORATEURTERR11 - NombreEXPLORATEURTERR12 - NombreEXPLORATEURTERR13 - NombreEXPLORATEURTERR14 - NombreEXPLORATEURTERR15 - NombreEXPLORATEURTERR16 - NombreEXPLORATEURTERR17 - NombreEXPLORATEURTERR18 - NombreEXPLORATEURTERR19 - NombreEXPLORATEURTERR20 then wait

if NombreHommeDarmeSELECT <1 and NombreLancierSELECT <1 and NombreFrondeurSELECT <1 and NombreArcherSELECT <1 and NombreEXPLORATEURSELECT <1 then wait

if attaqueEXPEDITION = 1 then wait
NombreHommeDarmeSELECTED = NombreHommeDarmeSELECT
NombreLancierSELECTED = NombreLancierSELECT
NombreFrondeurSELECTED = NombreFrondeurSELECT
NombreArcherSELECTED = NombreArcherSELECT
NombreEXPLORATEURSELECTED = NombreEXPLORATEURSELECT

if ATTAQUEtoTERRITORY = 1 then goto [territoireATTAQUE]
if ATTAQUEsurIA1 = 1 then STATUTiam1 = STATUTiam1 - 100
if ATTAQUEsurIA2 = 1 then STATUTiam2 = STATUTiam2 - 100
attaqueEXPEDITION = 1 : P1espionx = P1x : P1espiony = P1y
[endAttaqueSelect]
close #fen1
fen1 = 0 : attaquant = 0
wait

[allselected1]
NombreHommeDarmeSELECT = NombreHommeDarme - NombreHommeDarmeSELECTED - NombreHommeDarmeTERR1 - NombreHommeDarmeTERR2 - NombreHommeDarmeTERR3 - NombreHommeDarmeTERR4 - NombreHommeDarmeTERR5 - NombreHommeDarmeTERR6 - NombreHommeDarmeTERR7 - NombreHommeDarmeTERR8 - NombreHommeDarmeTERR9 - NombreHommeDarmeTERR10 - NombreHommeDarmeTERR11 - NombreHommeDarmeTERR12 - NombreHommeDarmeTERR13 - NombreHommeDarmeTERR14 - NombreHommeDarmeTERR15 - NombreHommeDarmeTERR16 - NombreHommeDarmeTERR17 - NombreHommeDarmeTERR18 - NombreHommeDarmeTERR19 - NombreHommeDarmeTERR20
print #fen1.A, NombreHommeDarmeSELECT
wait
[allselected2]
NombreLancierSELECT = NombreLancier - NombreLancierSELECTED - NombreLancierTERR1 - NombreLancierTERR2 - NombreLancierTERR3 - NombreLancierTERR4 - NombreLancierTERR5 - NombreLancierTERR6 - NombreLancierTERR7 - NombreLancierTERR8 - NombreLancierTERR9 - NombreLancierTERR10 - NombreLancierTERR11 - NombreLancierTERR12 - NombreLancierTERR13 - NombreLancierTERR14 - NombreLancierTERR15 - NombreLancierTERR16 - NombreLancierTERR17 - NombreLancierTERR18 - NombreLancierTERR19 - NombreLancierTERR20
print #fen1.B, NombreLancierSELECT
wait
[allselected3]
NombreFrondeurSELECT = NombreFrondeur - NombreFrondeurSELECTED - NombreFrondeurTERR1 - NombreFrondeurTERR2 - NombreFrondeurTERR3 - NombreFrondeurTERR4 - NombreFrondeurTERR5 - NombreFrondeurTERR6 - NombreFrondeurTERR7 - NombreFrondeurTERR8 - NombreFrondeurTERR9 - NombreFrondeurTERR10 - NombreFrondeurTERR11 - NombreFrondeurTERR12 - NombreFrondeurTERR13 - NombreFrondeurTERR14 - NombreFrondeurTERR15 - NombreFrondeurTERR16 - NombreFrondeurTERR17 - NombreFrondeurTERR18 - NombreFrondeurTERR19 - NombreFrondeurTERR20
print #fen1.C, NombreFrondeurSELECT
wait
[allselected4]
NombreArcherSELECT = NombreArcher - NombreArcherSELECTED - NombreArcherTERR1 - NombreArcherTERR2 - NombreArcherTERR3 - NombreArcherTERR4 - NombreArcherTERR5 - NombreArcherTERR6 - NombreArcherTERR7 - NombreArcherTERR8 - NombreArcherTERR9 - NombreArcherTERR10 - NombreArcherTERR11 - NombreArcherTERR12 - NombreArcherTERR13 - NombreArcherTERR14 - NombreArcherTERR15 - NombreArcherTERR16 - NombreArcherTERR17 - NombreArcherTERR18 - NombreArcherTERR19 - NombreArcherTERR20
print #fen1.D, NombreArcherSELECT
wait
[allselected7]
NombreEXPLORATEURSELECT = NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - NombreEXPLORATEURTERR1 - NombreEXPLORATEURTERR2 - NombreEXPLORATEURTERR3 - NombreEXPLORATEURTERR4 - NombreEXPLORATEURTERR5 - NombreEXPLORATEURTERR6 - NombreEXPLORATEURTERR7 - NombreEXPLORATEURTERR8 - NombreEXPLORATEURTERR9 - NombreEXPLORATEURTERR10 - NombreEXPLORATEURTERR11 - NombreEXPLORATEURTERR12 - NombreEXPLORATEURTERR13 - NombreEXPLORATEURTERR14 - NombreEXPLORATEURTERR15 - NombreEXPLORATEURTERR16 - NombreEXPLORATEURTERR17 - NombreEXPLORATEURTERR18 - NombreEXPLORATEURTERR19 - NombreEXPLORATEURTERR20
print #fen1.E, NombreEXPLORATEURSELECT
wait

    [infoConso1]
    timer 0
    if fen1 = 1 then close #fen1
    fen1 = 1
    attaquant = 1 : NombreHommeDarmeSELECT = 0 : NombreLancierSELECT = 0 : NombreFrondeurSELECT = 0 : NombreArcherSELECT = 0
    WindowWidth=500 : WindowHeight=250 : UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
    BackgroundColor$ = "black" : ForegroundColor$ = "black"
    stylebits #fen1.map, 0, _WS_BORDER, 0, 0
    textbox #fen1.A, 35, 140, 50, 20
    textbox #fen1.B, 130, 140, 50, 20
    textbox #fen1.C, 225, 140, 50, 20
    textbox #fen1.D, 320, 140, 50, 20
    textbox #fen1.E, 415, 140, 50, 20
    graphicbox #fen1.map, -5, -5, WindowWidth+5, WindowHeight+5
    bmpbutton #fen1.1, "bmp\game\selection\GAMEstart\HUMANOIDE\h1.bmp", [allselected1], UL, 46, 105
    bmpbutton #fen1.2, "bmp\game\selection\GAMEstart\HUMANOIDE\h2.bmp", [allselected2], UL, 141, 105
    bmpbutton #fen1.3, "bmp\game\selection\GAMEstart\HUMANOIDE\h3.bmp", [allselected3], UL, 236, 105
    bmpbutton #fen1.4, "bmp\game\selection\GAMEstart\HUMANOIDE\h4.bmp", [allselected4], UL, 331, 105
    bmpbutton #fen1.7, "bmp\game\selection\GAMEstart\HUMANOIDE\h7.bmp", [allselected7], UL, 426, 105
    bmpbutton #fen1.atk, "bmp\game\selection\GAMEstart\HUMANOIDE\attaquer.bmp", [attaqueIA], UL, 260, 195
    bmpbutton #fen1.close, "bmp\game\selection\GAMEstart\HUMANOIDE\repli.bmp", [endAttaqueSelect], UL, 150, 195
    Open "" for window_popup as #fen1
    #fen1.map, "setfocus;down"
    #fen1.map, "drawbmp fondATK 5 5"
    print #fen1.map, "font Times New Roman 10;backcolor black; color white"
    print #fen1.map, "place 57 185 ;\";  NombreHommeDarme - NombreHommeDarmeSELECTED - NombreHommeDarmeTERR1 - NombreHommeDarmeTERR2 - NombreHommeDarmeTERR3 - NombreHommeDarmeTERR4 - NombreHommeDarmeTERR5 - NombreHommeDarmeTERR6 - NombreHommeDarmeTERR7 - NombreHommeDarmeTERR8 - NombreHommeDarmeTERR9 - NombreHommeDarmeTERR10 - NombreHommeDarmeTERR11 - NombreHommeDarmeTERR12 - NombreHommeDarmeTERR13 - NombreHommeDarmeTERR14 - NombreHommeDarmeTERR15 - NombreHommeDarmeTERR16 - NombreHommeDarmeTERR17 - NombreHommeDarmeTERR18 - NombreHommeDarmeTERR19 - NombreHommeDarmeTERR20
    print #fen1.map, "place 150 185 ;\";  NombreLancier - NombreLancierSELECTED - NombreLancierTERR1 - NombreLancierTERR2 - NombreLancierTERR3 - NombreLancierTERR4 - NombreLancierTERR5 - NombreLancierTERR6 - NombreLancierTERR7 - NombreLancierTERR8 - NombreLancierTERR9 - NombreLancierTERR10 - NombreLancierTERR11 - NombreLancierTERR12 - NombreLancierTERR13 - NombreLancierTERR14 - NombreLancierTERR15 - NombreLancierTERR16 - NombreLancierTERR17 - NombreLancierTERR18 - NombreLancierTERR19 - NombreLancierTERR20
    print #fen1.map, "place 245 185 ;\";  NombreFrondeur - NombreFrondeurSELECTED - NombreFrondeurTERR1 - NombreFrondeurTERR2 - NombreFrondeurTERR3 - NombreFrondeurTERR4 - NombreFrondeurTERR5 - NombreFrondeurTERR6 - NombreFrondeurTERR7 - NombreFrondeurTERR8 - NombreFrondeurTERR9 - NombreFrondeurTERR10 - NombreFrondeurTERR11 - NombreFrondeurTERR12 - NombreFrondeurTERR13 - NombreFrondeurTERR14 - NombreFrondeurTERR15 - NombreFrondeurTERR16 - NombreFrondeurTERR17 - NombreFrondeurTERR18 - NombreFrondeurTERR19 - NombreFrondeurTERR20
    print #fen1.map, "place 340 185 ;\";  NombreArcher - NombreArcherSELECTED - NombreArcherTERR1 - NombreArcherTERR2 - NombreArcherTERR3 - NombreArcherTERR4 - NombreArcherTERR5 - NombreArcherTERR6 - NombreArcherTERR7 - NombreArcherTERR8 - NombreArcherTERR9 - NombreArcherTERR10 - NombreArcherTERR11 - NombreArcherTERR12 - NombreArcherTERR13 - NombreArcherTERR14 - NombreArcherTERR15 - NombreArcherTERR16 - NombreArcherTERR17 - NombreArcherTERR18 - NombreArcherTERR19 - NombreArcherTERR20
    print #fen1.map, "place 435 185 ;\";  NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - NombreEXPLORATEURTERR1 - NombreEXPLORATEURTERR2 - NombreEXPLORATEURTERR3 - NombreEXPLORATEURTERR4 - NombreEXPLORATEURTERR5 - NombreEXPLORATEURTERR6 - NombreEXPLORATEURTERR7 - NombreEXPLORATEURTERR8 - NombreEXPLORATEURTERR9 - NombreEXPLORATEURTERR10 - NombreEXPLORATEURTERR11 - NombreEXPLORATEURTERR12 - NombreEXPLORATEURTERR13 - NombreEXPLORATEURTERR14 - NombreEXPLORATEURTERR15 - NombreEXPLORATEURTERR16 - NombreEXPLORATEURTERR17 - NombreEXPLORATEURTERR18 - NombreEXPLORATEURTERR19 - NombreEXPLORATEURTERR20
    print #fen1.map, "font Times New Roman 14 italic"
    print #fen1.A, "!font Times New Roman 9"
    print #fen1.B, "!font Times New Roman 9"
    print #fen1.C, "!font Times New Roman 9"
    print #fen1.D, "!font Times New Roman 9"
    print #fen1.E, "!font Times New Roman 9"
    if language = 0 then print #fen1.map, "place ";WindowWidth/2-60;" 50 ;\"; "Unitées disponibles"
    if language = 1 then print #fen1.map, "place ";WindowWidth/2-60;" 50 ;\"; "Units available"
    wait

    [infoConsolESPIONNAGE1]
    if bat1 = 1 then close #bat1
    bat1 = 1 : centreMilitaireOpen = 0
    WindowWidth= 500 : WindowHeight= 250 : UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
    BackgroundColor$ = "black" : ForegroundColor$ = "white"
    stylebits #bat1.map, 0, _WS_BORDER, 0, 0
    graphicbox #bat1.map, -5, -5, WindowWidth+5, WindowHeight+5
    bmpbutton #bat1.oui, "bmp\game\selection\OuiREGLAGE.bmp", [espionnageEXPEDITION], UL, 290, 190
    bmpbutton #bat1.non, "bmp\game\selection\NonREGLAGE.bmp", [closeBAT1], UL, 220, 190
    Open " " for window_popup as #bat1
    #bat1.map, "down"
    #bat1.map, "drawbmp fondATK 5 5"
    print #bat1.map, "font Times New Roman 12; backcolor black; color white"
    if language = 0 then
    print #bat1.map, "place 25 50 ;\"; "Vous allez envoyer un espion en reconnaissance."
    print #bat1.map, "place 25 80 ;\"; "Ceci vous permet, si l'espion réussi, d'avoir des informations sur la cible. \(population, batiment, niveau technologique etc ...)\\Si votre espion est démasqué et/ou capturé, vos relations seront dégradées \et ceci pourrait être pris comme une déclaration de guerre."
    print #bat1.map, "place 25 210 ;\"; "Voulez-vous continuez ?"
    end if
    if language = 1 then
    print #bat1.map, "place 25 50 ;\"; "You will send a spy in recognition."
    print #bat1.map, "place 25 80 ;\"; "This allows you whether the spy managed to have information on the target \city. (Military, economy, ...)"
    print #bat1.map, "place 25 120 ;\"; "If your spy is unmasked and/or capture, your relationship will be bader and \this could be taken as a declaration of war."
    print #bat1.map, "place 25 180 ;\"; "Would you continue?"
    end if
    NombreEclaireurESPIONNAGE = 0 : if NombreHommeDarme + NombreLancier + NombreFrondeur + NombreArcher >= 1 then NombreEclaireurESPIONNAGE = 1
    #bat1.map, "when leftButtonDown [SimpleClickESPIONNAGE]"
    wait

    [SimpleClickESPIONNAGE]
    mX = MouseX
    mY = MouseY
    #bat1.map, "place 210 235 ;\"; "                                                                       "
    wait


    [espionnageEXPEDITION]
    if NombreEclaireurESPIONNAGE = 0 then
        print #bat1.map, "font Times New Roman 8"
        if language = 0 then print #bat1.map, "place 210 235 ;\"; "Vous devez former des unités militaires pour espionner !"
        if language = 1 then print #bat1.map, "place 210 235 ;\"; "You have to train military unit for spying !"
        wait
    end if
    if espionnageEXPEDITION > 0 then
        print #bat1.map, "font Times New Roman 8"
        if language = 0 then print #bat1.map, "place 210 235 ;\"; "Vous êtes déjà entrain d'espionner une ville !"
        if language = 1 then print #bat1.map, "place 210 235 ;\"; "You already spying a city !"
        wait
    end if

    close #bat1
    if ATTAQUEsurIA1 = 1 then STATUTiam1 = STATUTiam1 - 20
    if ATTAQUEsurIA2 = 1 then STATUTiam2 = STATUTiam2 - 20
    bat1 = 0
    espionnageEXPEDITION = 1
    P1espion2x = P1x : P1espion2y = P1y
    openRAPPORT = 0
    wait


    [exploreMap1]
    if bat1 = 1 then close #bat1
    centreMilitaireOpen = 0
    NombreHommeDarmeExpeditionDECES = 0
    bat1 = 1
    ExpeditionTXT1$ = ""
    ExpeditionTXT2$ = ""
    ExpeditionTXT3$ = ""
    NombreHommeDarmeMAX = NombreHommeDarme
    NombreLancierMAX = NombreLancier
    NombreFrondeurMAX = NombreFrondeur
    NombreArcherMAX = NombreArcher
    WindowWidth=402 : WindowHeight=401
    UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
    BackgroundColor$ = "black" : ForegroundColor$ = "black"
    stylebits #bat1.map, 0, _WS_BORDER, 0, 0
    graphicbox #bat1.map, -5, -5, WindowWidth+5, WindowHeight+5
    textbox #bat1.surface, 209, 162, 80, 20
    textbox #bat1.soldats, 191, 262, 80, 20
    Open " " for window_popup as #bat1
    #bat1.map, "down;fill black"
    #bat1.map, "drawbmp exploration 6 6"
    #bat1.map, "when leftButtonDown [SimpleClickEXPE]"
    print #bat1.map, "font Times New Roman 8; backcolor black; color white"
    if language = 0 then
        print #bat1.map, "place 125 146 ;\"; "1) Sélectionnez la surface à explorer"
        print #bat1.map, "place 113 244 ;\"; "2) Sélectionnez le nombre d'explorateurs"
        print #bat1.map, "place 167 282 ;\"; NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - NombreEXPLORATEURTERR1 - NombreEXPLORATEURTERR2 - NombreEXPLORATEURTERR3 - NombreEXPLORATEURTERR4 - NombreEXPLORATEURTERR5 - NombreEXPLORATEURTERR6 - NombreEXPLORATEURTERR7 - NombreEXPLORATEURTERR8 - NombreEXPLORATEURTERR9 - NombreEXPLORATEURTERR10 - NombreEXPLORATEURTERR11 - NombreEXPLORATEURTERR12 - NombreEXPLORATEURTERR13 - NombreEXPLORATEURTERR14 - NombreEXPLORATEURTERR15 - NombreEXPLORATEURTERR16 - NombreEXPLORATEURTERR17 - NombreEXPLORATEURTERR18 - NombreEXPLORATEURTERR19 - NombreEXPLORATEURTERR20
        print #bat1.map, "font Times New Roman 12"
        print #bat1.map, "place 180 359 ;\"; "LANCER"
    end if
    if language = 1 then
        print #bat1.map, "place 135 146 ;\"; "1) Select the surface to explore"
        print #bat1.map, "place 130 244 ;\"; "2) Select the number of explorers"
        print #bat1.map, "place 167 282 ;\"; NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - NombreEXPLORATEURTERR1 - NombreEXPLORATEURTERR2 - NombreEXPLORATEURTERR3 - NombreEXPLORATEURTERR4 - NombreEXPLORATEURTERR5 - NombreEXPLORATEURTERR6 - NombreEXPLORATEURTERR7 - NombreEXPLORATEURTERR8 - NombreEXPLORATEURTERR9 - NombreEXPLORATEURTERR10 - NombreEXPLORATEURTERR11 - NombreEXPLORATEURTERR12 - NombreEXPLORATEURTERR13 - NombreEXPLORATEURTERR14 - NombreEXPLORATEURTERR15 - NombreEXPLORATEURTERR16 - NombreEXPLORATEURTERR17 - NombreEXPLORATEURTERR18 - NombreEXPLORATEURTERR19 - NombreEXPLORATEURTERR20
        print #bat1.map, "font Times New Roman 12"
        print #bat1.map, "place 183 359 ;\"; "START"
    end if
    print #bat1.map, "font Times New Roman 10"
    print #bat1.surface, "!font Times New Roman 9"
    print #bat1.soldats, "!font Times New Roman 9"
    if language = 0 then print #bat1.map, "place 125 180 ;\"; "Surface (m²)"
    if language = 1 then print #bat1.map, "place 140 180 ;\"; "Area (m²)"
    print #bat1.surface, metreCarre2
    print #bat1.soldats, UniteDemander
    goto [refreshMAPexploration]


    [SimpleClickEXPE]
    mX = MouseX
    mY = MouseY
   ' notice mX ;" / "; mY
    if mX>140 and mX<280 and mY>335 and mY<370 then goto [LANCEREXPEDITION]
    wait


    [rapportEspionnage]
    openRAPPORT = 1
    if rapportWindows = 1 then close #rapport
    rapportCHANCE = int(rnd(1)*9+1)
    select case rapportCHANCE
           case 1
               ExpeditionTXT1$ = "L'espion est resté à distance et n'a pas été repéré, il rentre avec des informations."
               notice " " + chr$(13) + ExpeditionTXT1$
               goto [rapportEspionnage2]
           case 2
               ExpeditionTXT1$ = "L'espion s'était infiltré chez eux, après quelques jours de retards, il rentre avec des informations."
               notice " " + chr$(13) +  ExpeditionTXT1$
               goto [rapportEspionnage2]
           case 3
               ExpeditionTXT1$ = "L'espion a accompli sa mission avec succès ! Il rentre avec des informations importantes."
               notice " " + chr$(13) +  ExpeditionTXT1$
               goto [rapportEspionnage2]
           case 4
               ExpeditionTXT1$ = "L'espion rentre avec les informations."
               notice " " + chr$(13) +  ExpeditionTXT1$
               goto [rapportEspionnage2]
           case 5
               ExpeditionTXT1$ = "Après avoir été capturé, l'espion à réussi à s'échapper et rentre avec des informations."
               if ATTAQUEsurIA1 = 1 then STATUTiam1 = STATUTiam1 - 10
               if ATTAQUEsurIA2 = 1 then STATUTiam2 = STATUTiam2 - 10
               notice " " + chr$(13) +  ExpeditionTXT1$
               goto [rapportEspionnage2]
           case 6
               ExpeditionTXT1$ = "L'espion rentre bléssé mais avec des informations."
               if ATTAQUEsurIA1 = 1 then STATUTiam1 = STATUTiam1 - 10
               if ATTAQUEsurIA2 = 1 then STATUTiam2 = STATUTiam2 - 10
               notice " " + chr$(13) +  ExpeditionTXT1$
               goto [rapportEspionnage2]
           case 7
               ExpeditionTXT1$ = "Votre espion rentre au camps grievement blessé. Dans ses dernières parole il vous transmet ses informations avant de s'éteindre."
               if NombreHommeDarme >= 1 then NombreHommeDarme = NombreHommeDarme - 1 : goto [deadESPION1]
               if NombreLancier >= 1 then NombreLancier = NombreLancier - 1 : goto [deadESPION1]
               if NombreFrondeur >= 1 then NombreFrondeur = NombreFrondeur - 1 : goto [deadESPION1]
               if NombreArcher >= 1 then NombreArcher = NombreArcher - 1 : goto [deadESPION1]
               [deadESPION1]
               if ATTAQUEsurIA1 = 1 then STATUTiam1 = STATUTiam1 - 10
               if ATTAQUEsurIA2 = 1 then STATUTiam2 = STATUTiam2 - 10
               popMILIT = popMILIT - 1
               notice " " + chr$(13) +  ExpeditionTXT1$
               goto [rapportEspionnage2]
           case 8
               ExpeditionTXT1$ = "L'espion n'est pas présent au point de rendez vous... Il a certainement été capturé !"
               if NombreHommeDarme >= 1 then NombreHommeDarme = NombreHommeDarme - 1 : goto [deadESPION2]
               if NombreLancier >= 1 then NombreLancier = NombreLancier - 1 : goto [deadESPION2]
               if NombreFrondeur >= 1 then NombreFrondeur = NombreFrondeur - 1 : goto [deadESPION2]
               if NombreArcher >= 1 then NombreArcher = NombreArcher - 1 : goto [deadESPION2]
               [deadESPION2]
               if ATTAQUEsurIA1 = 1 then STATUTiam1 = STATUTiam1 - 30
               if ATTAQUEsurIA2 = 1 then STATUTiam2 = STATUTiam2 - 30
               popMILIT = popMILIT - 1
               notice " " + chr$(13) +  ExpeditionTXT1$
               return
           case 9
               ExpeditionTXT1$ = "Nous ne savons pas ce qui l'a attaqué mais il est sûre que nous avons perdu l'espion et ses informations..."
               if NombreHommeDarme >= 1 then NombreHommeDarme = NombreHommeDarme - 1 : goto [deadESPION3]
               if NombreLancier >= 1 then NombreLancier = NombreLancier - 1 : goto [deadESPION3]
               if NombreFrondeur >= 1 then NombreFrondeur = NombreFrondeur - 1 : goto [deadESPION3]
               if NombreArcher >= 1 then NombreArcher = NombreArcher - 1 : goto [deadESPION3]
               [deadESPION3]
               if ATTAQUEsurIA1 = 1 then STATUTiam1 = STATUTiam1 - 30
               if ATTAQUEsurIA2 = 1 then STATUTiam2 = STATUTiam2 - 30
               popMILIT = popMILIT - 1
               notice " " + chr$(13) +  ExpeditionTXT1$
               return
    end select

    [rapportEspionnage2]
    rapportWindows = 1
    WindowWidth=456 : WindowHeight=407
    UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
    BackgroundColor$ = "black" : ForegroundColor$ = "black"
    graphicbox #rapport.map, -5, -5, WindowWidth+5, WindowHeight+5
    bmpbutton #rapport.close, "bmp\game\selection\GAMEstart\HUMANOIDE\fermetureINGame.bmp", [closeRapportBATAILLE], UL, WindowWidth-40, 20
    Open "" for window_popup as #rapport
    #rapport.map, "setfocus;down"
    #rapport.map, "drawbmp espionnage 5 5"
    print #rapport.map, "font Times New Roman 9; color white"
    if language = 0 then
    r = 88 : v = 116 : b = 39
    #rapport.map, "backcolor ";r;" ";v;" ";b
    if PiaCOORx = P1bisx and PiaCOORy = P1bisy then RACE$ = RaceIAm1$
    if PiaCOORx = P2bisx and PiaCOORy = P2bisy then RACE$ = RaceIAm2$
    print #rapport.map, "place 130 25 ;\"; "Rapport d'espionnage : Le ";days;" / ";mouths;" / année "; year;"\Civilisation : ";RACE$
    r = 104 : v = 66 : b = 44
    #rapport.map, "backcolor ";r;" ";v;" ";b
    print #rapport.map, "font Times New Roman 9 ; color white"
        if PiaCOORx = P1bisx and PiaCOORy = P1bisy then
            print #rapport.map, "place 240 213 ;\"; "Bâtiment principal : "; lvlbatimentPrincipalIAm1
            print #rapport.map, "place 240 235 ;\"; "Hâbitations : " ; lvlbatimentHabitationIAm1
            print #rapport.map, "place 240 250 ;\"; "Fermages : "; lvlbatimentFermeIAm1
            print #rapport.map, "place 240 265 ;\"; "Mines : " ; lvlbatimentMinesIAm1
            print #rapport.map, "place 240 280 ;\"; "Scieries : "; lvlbatimentScierieIAm1
            print #rapport.map, "place 240 305 ;\"; "Centre militaire : " ; lvlbatimentCentreMilitaireIAm1
            print #rapport.map, "place 240 320 ;\"; "Centre scientifique : "; lvlbatimentCentreScientifiqueIAm1
            print #rapport.map, "place 240 345 ;\"; "Fortifications : " ;lvlbatimentFortificationsIAm1 ;" (";int(hpFortificationsIAm1);" PS)"
            print #rapport.map, "place 240 370 ;\"; "Territoire sous contrôle : " ; SurfaceTerreP1IAm1; " m²"
        end if
        if PiaCOORx = P2bisx and PiaCOORy = P2bisy then
            print #rapport.map, "place 240 213 ;\"; "Bâtiment principal : "; lvlbatimentPrincipalIAm2
            print #rapport.map, "place 240 235 ;\"; "Hâbitations : " ; lvlbatimentHabitationIAm2
            print #rapport.map, "place 240 250 ;\"; "Fermages : "; lvlbatimentFermeIAm2
            print #rapport.map, "place 240 265 ;\"; "Mines : " ; lvlbatimentMinesIAm2
            print #rapport.map, "place 240 280 ;\"; "Scieries : "; lvlbatimentScierieIAm2
            print #rapport.map, "place 240 305 ;\"; "Centre militaire : " ; lvlbatimentCentreMilitaireIAm2
            print #rapport.map, "place 240 320 ;\"; "Centre scientifique : "; lvlbatimentCentreScientifiqueIAm2
            print #rapport.map, "place 240 345 ;\"; "Fortifications : " ;lvlbatimentFortificationsIAm2 ;" (";int(hpFortificationsIAm2);" PS)"
            print #rapport.map, "place 240 370 ;\"; "Territoire sous contrôle : " ; SurfaceTerreP1IAm2; " m²"
        end if
    end if

    if language = 1 then
    r = 88 : v = 116 : b = 39
    #rapport.map, "backcolor ";r;" ";v;" ";b
    print #rapport.map, "place 130 25 ;\"; "Spy Report : ";daysSAVE;" / ";mouthsSAVE;" / year "; yearSAVE
    r = 104 : v = 66 : b = 44
    #rapport.map, "backcolor ";r;" ";v;" ";b
    print #rapport.map, "font Times New Roman 9 ; color white"
        if PiaCOORx = P1bisx and PiaCOORy = P1bisy then
            print #rapport.map, "place 240 213 ;\"; "Main building : "; lvlbatimentPrincipalIAm1
            print #rapport.map, "place 240 235 ;\"; "Habitations : " ; lvlbatimentHabitationIAm1
            print #rapport.map, "place 240 250 ;\"; "Farm : "; lvlbatimentFermeIAm1
            print #rapport.map, "place 240 265 ;\"; "Mines : " ; lvlbatimentMinesIAm1
            print #rapport.map, "place 240 280 ;\"; "sawmills : "; lvlbatimentScierieIAm1
            print #rapport.map, "place 240 305 ;\"; "Military center : " ; lvlbatimentCentreMilitaireIAm1
            print #rapport.map, "place 240 320 ;\"; "Scientist center : "; lvlbatimentCentreScientifiqueIAm1
            print #rapport.map, "place 240 345 ;\"; "Fortifications : " ;lvlbatimentFortificationsIAm1  ;" ( ";int(hpFortificationsIAm1);" points of life )"
            print #rapport.map, "place 240 370 ;\"; "Territory under control : " ;SurfaceTerreP1IAm1
        end if
        if PiaCOORx = P2bisx and PiaCOORy = P2bisy then
            print #rapport.map, "place 240 213 ;\"; "Main building : "; lvlbatimentPrincipalIAm2
            print #rapport.map, "place 240 235 ;\"; "Habitations : " ; lvlbatimentHabitationIAm2
            print #rapport.map, "place 240 250 ;\"; "Farm : "; lvlbatimentFermeIAm2
            print #rapport.map, "place 240 265 ;\"; "Mines : " ; lvlbatimentMinesIAm2
            print #rapport.map, "place 240 280 ;\"; "sawmills : "; lvlbatimentScierieIAm2
            print #rapport.map, "place 240 305 ;\"; "Military center : " ; lvlbatimentCentreMilitaireIAm2
            print #rapport.map, "place 240 320 ;\"; "Scientist center : "; lvlbatimentCentreScientifiqueIAm2
            print #rapport.map, "place 240 345 ;\"; "Fortifications : " ;lvlbatimentFortificationsIAm2 ;" ( ";int(hpFortificationsIAm2);" points of life )"
            print #rapport.map, "place 240 370 ;\"; "Territory under control : " ;SurfaceTerreP1IAm2
        end if
    end if

    if PiaCOORx = P1bisx and PiaCOORy = P1bisy then
        popCIVILia1 = popTOTALIAm1 - (popMILITIAm1+popSCIENTIAm1)
        if popCIVILia1 < 0 then popCIVILia1 = 0
        popTOTALIAm1 = popCIVILia1 + popMILITIAm1 + popSCIENTIAm1
        print #rapport.map, "place 80 337 ;\"; popTOTALIAm1;" / ";popPossibleIAm1
        print #rapport.map, "place 80 359 ;\"; popMILITIAm1
        print #rapport.map, "place 80 381 ;\"; popSCIENTIAm1
        print #rapport.map, "place 80 213 ;\"; foodIAm1
        print #rapport.map, "place 80 235 ;\"; boisIAm1
        print #rapport.map, "place 80 257 ;\"; metalIAm1
        print #rapport.map, "place 80 279 ;\"; orIAm1
        print #rapport.map, "place 80 301 ;\"; naqadaIAm1
    end if
    if PiaCOORx = P2bisx and PiaCOORy = P2bisy then
        popCIVILia2 = popTOTALIAm2 - (popMILITIAm2+popSCIENTIAm2)
        if popCIVILia2 < 0 then popCIVILia2 = 0
        popTOTALIAm2 = popCIVILia2 + popMILITIAm2 + popSCIENTIAm2
        print #rapport.map, "place 80 337 ;\"; popTOTALIAm2;" / ";popPossibleIAm2
        print #rapport.map, "place 80 359 ;\"; popMILITIAm2
        print #rapport.map, "place 80 381 ;\"; popSCIENTIAm2
        print #rapport.map, "place 80 213 ;\"; foodIAm2
        print #rapport.map, "place 80 235 ;\"; boisIAm2
        print #rapport.map, "place 80 257 ;\"; metalIAm2
        print #rapport.map, "place 80 279 ;\"; orIAm2
        print #rapport.map, "place 80 301 ;\"; naqadaIAm2
    end if
    return


    [rapportBataille]
    notice " " + chr$(13) + "Ouverture du rapport du combat"
    if rapportWindows = 1 then close #rapport
    rapportA = 1 : rapportWindows = 1
    WindowWidth=456 : WindowHeight=407
    UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
    BackgroundColor$ = "black" : ForegroundColor$ = "black"
    graphicbox #rapport.map, -5, -5, WindowWidth+5, WindowHeight+5
    bmpbutton #rapport.close, "bmp\game\selection\GAMEstart\HUMANOIDE\fermetureINGame.bmp", [closeRapportBATAILLE], UL, WindowWidth-40, 20
    Open "" for window_popup as #rapport
    #rapport.map, "setfocus;down"
    #rapport.map, "drawbmp fond 5 5"
     print #rapport.map, "color white"
    print #rapport.map, "size 2"
    print #rapport.map, "line "; 233; " "; 0; " "; 233; " "; 500

    #rapport.map, "drawbmp h1 70 110"
    #rapport.map, "drawbmp h2 70 155"
    #rapport.map, "drawbmp h3 70 200"
    #rapport.map, "drawbmp h4 70 245"
    #rapport.map, "drawbmp h7 70 290"

    #rapport.map, "drawbmp h1 360 110"
    #rapport.map, "drawbmp h2 360 170"
    #rapport.map, "drawbmp h3 360 230"
    #rapport.map, "drawbmp h4 360 290"

    print #rapport.map, "font Times New Roman 40 ; color white"
    print #rapport.map, "backcolor black"
    print #rapport.map, "place 200 220 ;\"; "Vs"
    if TEXTvictoire$ = "Victoire" then print #rapport.map, "font Times New Roman 20 ; color GREEN"
    if TEXTvictoire$ = "Défaite" then print #rapport.map, "font Times New Roman 20 ; color red"
    print #rapport.map, "place 190 60 ;\"; TEXTvictoire$
    print #rapport.map, "font Times New Roman 7 ; color white"
    print #rapport.map, "place 190 77 ;\"; "(VOUS ATTAQUEZ)\\\\\\\\\\\\\      Avant ==> Après"
    print #rapport.map, "place 63 90 ;\"; "VOUS"
    print #rapport.map, "place 362 90 ;\"; "ENNEMIS"

    if NombreHommeDarmeTEMP >= 1 then print #rapport.map, "color green"
    if NombreHommeDarmeTEMP < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 40 128 ;\"; NombreHommeDarmeTEMP
    if NombreLancierTEMP >= 1 then print #rapport.map, "color green"
    if NombreLancierTEMP < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 40 173 ;\"; NombreLancierTEMP
    if NombreFrondeurTEMP >= 1 then print #rapport.map, "color green"
    if NombreFrondeurTEMP < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 40 218 ;\"; NombreFrondeurTEMP
    if NombreArcherTEMP >= 1 then print #rapport.map, "color green"
    if NombreArcherTEMP < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 40 263 ;\"; NombreArcherTEMP
    if NombreEXPLORATEURTEMP >= 1 then print #rapport.map, "color green"
    if NombreEXPLORATEURTEMP < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 40 308 ;\"; NombreEXPLORATEURTEMP

    if int(NombreHommeDarmeTEMP - perteHOMMEdarme) >= 1 then print #rapport.map, "color green"
    if int(NombreHommeDarmeTEMP - perteHOMMEdarme) < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 120 128 ;\"; int(NombreHommeDarmeTEMP - perteHOMMEdarme)
    if int(NombreLancierTEMP - perteLANCIER) >= 1 then print #rapport.map, "color green"
    if int(NombreLancierTEMP - perteLANCIER) < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 120 173 ;\"; int(NombreLancierTEMP - perteLANCIER)
    if int(NombreFrondeurTEMP - perteFRONDEUR) >= 1 then print #rapport.map, "color green"
    if int(NombreFrondeurTEMP - perteFRONDEUR) < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 120 218 ;\"; int(NombreFrondeurTEMP - perteFRONDEUR)
    if int(NombreArcherTEMP - perteARCHER) >= 1 then print #rapport.map, "color green"
    if int(NombreArcherTEMP - perteARCHER) < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 120 263 ;\"; int(NombreArcherTEMP - perteARCHER)
    if int(NombreEXPLORATEURTEMP - perteEXPLORATEUR) >= 1 then print #rapport.map, "color green"
    if int(NombreEXPLORATEURTEMP - perteEXPLORATEUR) < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 120 308 ;\"; int(NombreEXPLORATEURTEMP - perteEXPLORATEUR)

    if PiaCOORx = P1bisx then
    if hpFortificationsTEMP2save >= 1 then print #rapport.map, "color green"
    if hpFortificationsTEMP2save < 1 then print #rapport.map, "color red"
    if hpFortificationsTEMP >=1 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsIAm1)
    if NombreScientIAm1 >= 1 then print #rapport.map, "color green"
    if NombreScientIAm1 < 1 then print #rapport.map, "color red"
    if NombreScientIAm1TEMP >=1 then print #rapport.map, "place 300 375 ;\"; "Scientifiques : ";NombreScientIAm1TEMP;"  ==>  ";int(NombreScientIAm1)
    if popCIVILiam1 >= 1 then print #rapport.map, "color green"
    if popCIVILiam1 < 1 then print #rapport.map, "color red"
    if NombreCitoyenIAm1TEMP >=1 then print #rapport.map, "place 300 390 ;\"; "Citoyens : ";NombreCitoyenIAm1TEMP;"  ==>  ";int(popCIVILiam1)


    if NombreHommeDarmeIAm1TEMP >= 1 then print #rapport.map, "color green"
    if NombreHommeDarmeIAm1TEMP < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm1TEMP
    if NombreLancierIAm1TEMP >= 1 then print #rapport.map, "color green"
    if NombreLancierIAm1TEMP < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 330 188 ;\"; NombreLancierIAm1TEMP
    if NombreFrondeurIAm1TEMP >= 1 then print #rapport.map, "color green"
    if NombreFrondeurIAm1TEMP < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm1TEMP
    if NombreArcherIAm1TEMP >= 1 then print #rapport.map, "color green"
    if NombreArcherIAm1TEMP < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 330 308 ;\"; NombreArcherIAm1TEMP

    if NombreHommeDarmeIAm1 >= 1 then print #rapport.map, "color green"
    if NombreHommeDarmeIAm1 < 1 then print #rapport.map, "color red"
    print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm1
    if NombreLancierIAm1 >= 1 then print #rapport.map, "color green"
    if NombreLancierIAm1 < 1 then print #rapport.map, "color red"
    print #rapport.map, "place 410 188 ;\"; NombreLancierIAm1
    if NombreFrondeurIAm1 >= 1 then print #rapport.map, "color green"
    if NombreFrondeurIAm1 < 1 then print #rapport.map, "color red"
    print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm1
    if NombreArcherIAm1 >= 1 then print #rapport.map, "color green"
    if NombreArcherIAm1 < 1 then print #rapport.map, "color red"
    print #rapport.map, "place 410 308 ;\"; NombreArcherIAm1
    print #rapport.map, "color white"
    if TEXTvictoire$ = "Victoire" then
        money = money + moneyIAm1
        bois = bois + boisIAm1
        metal = metal + metalIAm1
        food = food + foodIAm1
        naqada = naqada + naqadaIAm1
        txtRESSOURCE$ = "Vous remportez "; moneyIAm1 ;" d'or, "; boisIAm1; " de bois, ";metalIAm1;" de minéraux, ";foodIAm1;" de nourriture et ";naqadaIAm1;" de naquada avec vous."
        moneyIAm1 = 0
        boisIAm1 = 0
        metalIAm1 = 0
        foodIAm1 = 0
        naqadaIAm1 = 0
        if popTOTALIAm1 = 0 then
            IA1Alife1 = 0
            nplayerP1 = nplayerP1 - 1
            IA1Alife1SECU = 1
            txtRESSOURCE2$ = "Vous avez vaincu l'ennemi, sa ville n'est plus que ruine et son empire qu'un funeste souvenir."
            if territoire1 = 2 then territoire1= 0
            if territoire2 = 2 then territoire2= 0
            if territoire3 = 2 then territoire3= 0
            if territoire4 = 2 then territoire4= 0
            if territoire5 = 2 then territoire5= 0
            if territoire6 = 2 then territoire6= 0
            if territoire7 = 2 then territoire7= 0
            if territoire8 = 2 then territoire8= 0
            if territoire9 = 2 then territoire9= 0
            if territoire10 = 2 then territoire10= 0
            if territoire11 = 2 then territoire11= 0
            if territoire12 = 2 then territoire12= 0
            if territoire13 = 2 then territoire13= 0
            if territoire14 = 2 then territoire14= 0
            if territoire15 = 2 then territoire15= 0
            if territoire16 = 2 then territoire16= 0
            if territoire17 = 2 then territoire17= 0
            if territoire18 = 2 then territoire18= 0
            if territoire19 = 2 then territoire19= 0
            if territoire20 = 2 then territoire20= 0
            gosub [territoireREFRESH1]
        end if
    notice txtRESSOURCE$; " " ; txtRESSOURCE2$
    end if
    end if
    if PiaCOORx = P2bisx then
    if hpFortificationsTEMP2save >= 1 then print #rapport.map, "color green"
    if hpFortificationsTEMP2save < 1 then print #rapport.map, "color red"
    if hpFortificationsTEMP >=1 then print #rapport.map, "place 300 360 ;\"; "Fortifications : ";  int(hpFortificationsTEMP);"  ==>  ";int(hpFortificationsIAm2)
    if NombreScientIAm2 >= 1 then print #rapport.map, "color green"
    if NombreScientIAm2 < 1 then print #rapport.map, "color red"
    if NombreScientIAm2TEMP >=1 then print #rapport.map, "place 300 375 ;\"; "Scientifiques : ";NombreScientIAm2TEMP;"  ==>  ";int(NombreScientIAm2)
    if popCIVILiam2 >= 1 then print #rapport.map, "color green"
    if popCIVILiam2 < 1 then print #rapport.map, "color red"
    if NombreCitoyenIAm2TEMP >=1 then print #rapport.map, "place 300 390 ;\"; "Citoyens : ";NombreCitoyenIAm2TEMP;"  ==>  ";int(popCIVILiam2)

    if NombreHommeDarmeIAm2TEMP >= 1 then print #rapport.map, "color green"
    if NombreHommeDarmeIAm2TEMP < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeIAm2TEMP
    if NombreLancierIAm2TEMPsave >= 1 then print #rapport.map, "color green"
    if NombreLancierIAm2TEMPsave < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 330 188 ;\"; NombreLancierIAm2TEMPsave
    if NombreFrondeurIAm2TEMPsave >= 1 then print #rapport.map, "color green"
    if NombreFrondeurIAm2TEMPsave < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 330 248 ;\"; NombreFrondeurIAm2TEMPsave
    if NombreArcherIAm2TEMPsave >= 1 then print #rapport.map, "color green"
    if NombreArcherIAm2TEMPsave < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 330 308 ;\"; NombreArcherIAm2TEMPsave

    if NombreHommeDarmeIAm2 >= 1 then print #rapport.map, "color green"
    if NombreHommeDarmeIAm2 < 1 then print #rapport.map, "color red"
    print #rapport.map, "place 410 128 ;\"; NombreHommeDarmeIAm2
    if NombreLancierIAm2 >= 1 then print #rapport.map, "color green"
    if NombreLancierIAm2 < 1 then print #rapport.map, "color red"
    print #rapport.map, "place 410 188 ;\"; NombreLancierIAm2
    if NombreFrondeurIAm2 >= 1 then print #rapport.map, "color green"
    if NombreFrondeurIAm2 < 1 then print #rapport.map, "color red"
    print #rapport.map, "place 410 248 ;\"; NombreFrondeurIAm2
    if NombreArcherIAm2 >= 1 then print #rapport.map, "color green"
    if NombreArcherIAm2 < 1 then print #rapport.map, "color red"
    print #rapport.map, "place 410 308 ;\"; NombreArcherIAm2
    print #rapport.map, "color white"
    if TEXTvictoire$ = "Victoire" then
        money = money + moneyIAm2
        bois = bois + boisIAm2
        metal = metal + metalIAm2
        food = food + foodIAm2
        naqada = naqada + naqadaIAm2
        txtRESSOURCE$ = "Vous remportez "; moneyIAm2 ;" d'or, "; boisIAm2; " de bois, ";metalIAm2;" de minéraux, ";foodIAm2;" de nourriture et ";naqadaIAm2;" de naquada avec vous."
        moneyIAm2 = 0
        boisIAm2 = 0
        metalIAm2 = 0
        foodIAm2 = 0
        naqadaIAm2 = 0
        if popTOTALIAm2 = 0 then
            IA2Alife1 = 0
            IA2Alife1SECU = 1
            nplayerP1 = nplayerP1 - 1
            txtRESSOURCE2$ = "Vous avez vaincu l'ennemi, sa ville n'est plus que ruine et son empire qu'un funeste souvenir."
            if territoire1 = 3 then territoire1= 0
            if territoire2 = 3 then territoire2= 0
            if territoire3 = 3 then territoire3= 0
            if territoire4 = 3 then territoire4= 0
            if territoire5 = 3 then territoire5= 0
            if territoire6 = 3 then territoire6= 0
            if territoire7 = 3 then territoire7= 0
            if territoire8 = 3 then territoire8= 0
            if territoire9 = 3 then territoire9= 0
            if territoire10 = 3 then territoire10= 0
            if territoire11 = 3 then territoire11= 0
            if territoire12 = 3 then territoire12= 0
            if territoire13 = 3 then territoire13= 0
            if territoire14 = 3 then territoire14= 0
            if territoire15 = 3 then territoire15= 0
            if territoire16 = 3 then territoire16= 0
            if territoire17 = 3 then territoire17= 0
            if territoire18 = 3 then territoire18= 0
            if territoire19 = 3 then territoire19= 0
            if territoire20 = 3 then territoire20= 0
            gosub [territoireREFRESH1]
        end if
    notice txtRESSOURCE$; " " ; txtRESSOURCE2$
    end if
    end if
    ATTAQUEsurIA1 = 0 : ATTAQUEsurIA2 = 0
    timer 1000, [time]
    wait

    [rapportBataille2]
    notice " " + chr$(13) + "Ouverture du rapport du combat"
    if rapportWindows = 1 then close #rapport
    rapportWindows = 1
    WindowWidth=456 : WindowHeight=407
    UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
    BackgroundColor$ = "black" : ForegroundColor$ = "black"
    graphicbox #rapport.map, -5, -5, WindowWidth+5, WindowHeight+5
    bmpbutton #rapport.close, "bmp\game\selection\GAMEstart\HUMANOIDE\fermetureINGame.bmp", [closeRapportBATAILLE], UL, WindowWidth-40, 20
    Open "" for window_popup as #rapport
    #rapport.map, "setfocus;down"
    #rapport.map, "drawbmp fond 5 5"
    print #rapport.map, "color white"
    print #rapport.map, "size 2"
    print #rapport.map, "line "; 233; " "; 0; " "; 233; " "; 500
    #rapport.map, "drawbmp h1 70 110"
    #rapport.map, "drawbmp h2 70 170"
    #rapport.map, "drawbmp h3 70 230"
    #rapport.map, "drawbmp h4 70 290"

    #rapport.map, "drawbmp h1 360 110"
    #rapport.map, "drawbmp h2 360 155"
    #rapport.map, "drawbmp h3 360 200"
    #rapport.map, "drawbmp h4 360 245"
    #rapport.map, "drawbmp h7 360 290"

    print #rapport.map, "font Times New Roman 40 ; color white"
    print #rapport.map, "backcolor black"
    print #rapport.map, "place 200 220 ;\"; "Vs"
    if TEXTvictoire$ = "Victoire" then print #rapport.map, "font Times New Roman 20 ; color GREEN"
    if TEXTvictoire$ = "Défaite" then print #rapport.map, "font Times New Roman 20 ; color red"
    print #rapport.map, "place 185 60 ;\"; TEXTvictoire$
    print #rapport.map, "font Times New Roman 7 ; color white"
    print #rapport.map, "place 190 77 ;\"; "(VOUS DEFENDEZ)\\\\\\\\\\\\\      Avant ==> Après"
    print #rapport.map, "place 63 90 ;\"; "ENNEMIS"
    print #rapport.map, "place 362 90 ;\"; "VOUS"

if IA1atk$ = "ON" then
    if NombreHommeDarmeIAm1TEMP >= 1 then print #rapport.map, "color green"
    if NombreHommeDarmeIAm1TEMP < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 40 128 ;\"; NombreHommeDarmeIAm1TEMP
    if NombreLancierIAm1TEMP >= 1 then print #rapport.map, "color green"
    if NombreLancierIAm1TEMP < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 40 188 ;\"; NombreLancierIAm1TEMP
    if NombreFrondeurIAm1TEMP >= 1 then print #rapport.map, "color green"
    if NombreFrondeurIAm1TEMP < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 40 248 ;\"; NombreFrondeurIAm1TEMP
    if NombreArcherIAm1TEMP >= 1 then print #rapport.map, "color green"
    if NombreArcherIAm1TEMP < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 40 308 ;\"; NombreArcherIAm1TEMP
    if (NombreHommeDarmeIAm1TEMP - perteHOMMEdarmeIAm1) >= 1 then print #rapport.map, "color green"
    if (NombreHommeDarmeIAm1TEMP - perteHOMMEdarmeIAm1) < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 120 128 ;\"; (NombreHommeDarmeIAm1TEMP - perteHOMMEdarmeIAm1)
    if (NombreLancierIAm1TEMP - perteLANCIERIAm1) >= 1 then print #rapport.map, "color green"
    if (NombreLancierIAm1TEMP - perteLANCIERIAm1) < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 120 188 ;\"; (NombreLancierIAm1TEMP - perteLANCIERIAm1)
    if (NombreFrondeurIAm1TEMP - perteFRONDEURIAm1) >= 1 then print #rapport.map, "color green"
    if (NombreFrondeurIAm1TEMP - perteFRONDEURIAm1) < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 120 248 ;\"; (NombreFrondeurIAm1TEMP - perteFRONDEURIAm1)
    if (NombreArcherIAm1TEMP - perteARCHERIAm1) >= 1 then print #rapport.map, "color green"
    if (NombreArcherIAm1TEMP - perteARCHERIAm1) < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 120 308 ;\"; (NombreArcherIAm1TEMP - perteARCHERIAm1)
end if

if IA2atk$ = "ON" then
    if NombreHommeDarmeIAm2TEMP >= 1 then print #rapport.map, "color green"
    if NombreHommeDarmeIAm2TEMP < 1 then print #rapport.map, "color red"
    print #rapport.map, "place 40 128 ;\"; NombreHommeDarmeIAm2TEMP
    if NombreLancierIAm2TEMP >= 1 then print #rapport.map, "color green"
    if NombreLancierIAm2TEMP < 1 then print #rapport.map, "color red"
    print #rapport.map, "place 40 188 ;\"; NombreLancierIAm2TEMP
    if NombreFrondeurIAm2TEMP >= 1 then print #rapport.map, "color green"
    if NombreFrondeurIAm2TEMP < 1 then print #rapport.map, "color red"
    print #rapport.map, "place 40 248 ;\"; NombreFrondeurIAm2TEMP
    if NombreArcherIAm2TEMP >= 1 then print #rapport.map, "color green"
    if NombreArcherIAm2TEMP < 1 then print #rapport.map, "color red"
    print #rapport.map, "place 40 308 ;\"; NombreArcherIAm2TEMP
    if (NombreHommeDarmeIAm2TEMP - perteHOMMEdarmeIAm2) >= 1 then print #rapport.map, "color green"
    if (NombreHommeDarmeIAm2TEMP - perteHOMMEdarmeIAm2) < 1 then print #rapport.map, "color red"
    print #rapport.map, "place 120 128 ;\"; (NombreHommeDarmeIAm2TEMP - perteHOMMEdarmeIAm2)
    if (NombreLancierIAm2TEMP - perteLANCIERIAm2) >= 1 then print #rapport.map, "color green"
    if (NombreLancierIAm2TEMP - perteLANCIERIAm2) < 1 then print #rapport.map, "color red"
    print #rapport.map, "place 120 188 ;\"; (NombreLancierIAm2TEMP - perteLANCIERIAm2)
    if (NombreFrondeurIAm2TEMP - perteFRONDEURIAm2) >= 1 then print #rapport.map, "color green"
    if (NombreFrondeurIAm2TEMP - perteFRONDEURIAm2) < 1 then print #rapport.map, "color red"
    print #rapport.map, "place 120 248 ;\"; (NombreFrondeurIAm2TEMP - perteFRONDEURIAm2)
    if (NombreArcherIAm2TEMP - perteARCHERIAm2) >= 1 then print #rapport.map, "color green"
    if (NombreArcherIAm2TEMP - perteARCHERIAm2) < 1 then print #rapport.map, "color red"
    print #rapport.map, "place 120 308 ;\"; (NombreArcherIAm2TEMP - perteARCHERIAm2)
end if

    if hpFortifications >= 1 then print #rapport.map, "color green"
    if hpFortifications < 1 then print #rapport.map, "color red"
    if hpFortificationsTEMP >=1 then print #rapport.map, "place 275 360 ;\"; "Fortifications : "; int(hpFortificationsTEMP);"  ==>  ";int(hpFortifications)

    if int(popTOTAL-popSCIENT-popMILIT) >= 1 then print #rapport.map, "color green"
    if int(popTOTAL-popSCIENT-popMILIT) = 0 then print #rapport.map, "color red"
    print #rapport.map, "place 275 375 ;\"; "Nombre citoyens : ";NombreCitoyenTEMP;" ==> ";int(popTOTAL-popSCIENT-popMILIT)
    if popSCIENT >= 1 then print #rapport.map, "color green"
    if popSCIENT = 0 then print #rapport.map, "color red"
    print #rapport.map, "place 275 390 ;\"; "Personnel scientifique : ";NombreScientTEMP;" ==> ";popSCIENT

    if NombreHommeDarmeTEMP >= 1 then print #rapport.map, "color green"
    if NombreHommeDarmeTEMP < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 330 128 ;\"; NombreHommeDarmeTEMP
    if NombreLancierTEMP >= 1 then print #rapport.map, "color green"
    if NombreLancierTEMP < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 330 173 ;\"; NombreLancierTEMP
    if NombreFrondeurTEMP >= 1 then print #rapport.map, "color green"
    if NombreFrondeurTEMP < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 330 218 ;\"; NombreFrondeurTEMP
    if NombreArcherTEMP >= 1 then print #rapport.map, "color green"
    if NombreArcherTEMP < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 330 263 ;\"; NombreArcherTEMP
    if NombreEXPLORATEURTEMP >= 1 then print #rapport.map, "color green"
    if NombreEXPLORATEURTEMP < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 330 308 ;\"; NombreEXPLORATEURTEMP

    if int(NombreHommeDarme-NombreHommeDarmeSELECTED) >= 1 then print #rapport.map, "color green"
    if int(NombreHommeDarme-NombreHommeDarmeSELECTED) < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 410 128 ;\"; int(NombreHommeDarme-NombreHommeDarmeSELECTED)
    if int(NombreLancier-NombreLancierSELECTED) >= 1 then print #rapport.map, "color green"
    if int(NombreLancier-NombreLancierSELECTED) < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 410 173 ;\"; int(NombreLancier-NombreLancierSELECTED)
    if int(NombreFrondeur-NombreFrondeurSELECTED) >= 1 then print #rapport.map, "color green"
    if int(NombreFrondeur-NombreFrondeurSELECTED) < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 410 218 ;\"; int(NombreFrondeur-NombreFrondeurSELECTED)
    if int(NombreArcher-NombreArcherSELECTED) >= 1 then print #rapport.map, "color green"
    if int(NombreArcher-NombreArcherSELECTED) < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 410 263 ;\"; int(NombreArcher-NombreArcherSELECTED)
    if NombreEXPLORATEURTEMP >= 1 then print #rapport.map, "color green"
    if NombreEXPLORATEURTEMP < 1 then print #rapport.map, "color red"
        print #rapport.map, "place 410 308 ;\"; NombreEXPLORATEUR
    print #rapport.map, "color red"

    attaqueAIm1 = 0
    attaqueAIm2 = 0

    timer 1000, [time]
    wait

    [closeRapportBATAILLE]
    rapportWindows = 0
    close #rapport
    timer 1000, [time]
    wait

    [expeditionHELP]
    if language = 0 then notice " " + chr$(13) + "Exploration et conquête de territoire" + chr$(13) + "L'exploration de votre environnement vous permet d'acquérir plus de ressources et de les diversifier. Plus votre territoire est grand et plus votre quantité de nourriture et de bois importés par jour sera conséquente. Avec un territoire suffisamment grand vous pourrez fonder de nouvelles villes et conquérir de nouvelles terres. C'est en général la civilisation avec le plus grand territoire et l'apport de ressources le plus important qui remporte les guerres. Vous ne devez donc pas négliger votre influence territoriale. En fonction de vos recherches et de votre avancé dans les domaines de l'exploration, vous pourrez choisir de plus grandes zones à contrôler directement. Vous avez besoin d'une unité militaire pour conquérir 10m². Explorer des terres inconnues comporte des risques. Des combats contre des animaux sauvages ou d'autres civilisations peuvent avoir lieux..."
    if language = 1 then notice " " + chr$(13) + "Exploration and conquest of territory" + chr$(13) + "Exploring your environment allows you to acquire more resources and diversify them. The larger your area is, the greater the amount of food and wood imported per day. With a sufficiently large territory you will be able to found new cities and conquer new lands. It is generally the civilization with the largest territory and the most important resource contribution that wins the wars. You must not neglect your territorial influence. Depending on your research and your advanced exploration, you will be able to choose larger areas to control directly. You need a military unit to conquer 10sqm. Exploring unknown lands carries risks. Fighting against wild animals or other civilizations may take place ..."
    wait

    [STARGATEmap1]
    #sgc.map, "drawsprites"
    gosub [refreshMAPdata]
    if fen1 = 1 then close #fen1
    fen1 = 1
    attaquant = 1 : NombreHommeDarmeSELECT = 0 : NombreLancierSELECT = 0 : NombreFrondeurSELECT = 0 : NombreArcherSELECT = 0
    WindowWidth=500 : WindowHeight=250
    UpperLeftX=int((DisplayWidth-WindowWidth)/2 -40) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
    BackgroundColor$ = "black" : ForegroundColor$ = "black"
    stylebits #fen1.map, 0, _WS_BORDER, 0, 0
    graphicbox #fen1.map, -5, -5, WindowWidth+5, WindowHeight+5
    Open "" for window_popup as #fen1
    #fen1.map, "backcolor black"
    #fen1.map, "setfocus;down"
    #fen1.map, "drawbmp fondATK2 5 5"
    print #fen1.map, "font Times New Roman 10; color white"
    print #fen1.map, "place 380 40 ;\"; "En cours de \développement..."
    wait

    [rapportExpedition]
    if rapportWindows = 1 then close #rapport
    rapportWindows = 1
    NombreSoldat = int(NombreHommeDarmeSELECTION+NombreLancierSELECTION+NombreFrondeurSELECTION+NombreArcherSELECTION)
    WindowWidth=726 : WindowHeight=491
    UpperLeftX=int((DisplayWidth-WindowWidth)/2.4) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+20)
    BackgroundColor$ = "black" : ForegroundColor$ = "black"
    graphicbox #rapport.map, -5, -5, WindowWidth+5, WindowHeight+5
   'button #rapport.close, "OK", [closeRapportBATAILLE], UL, 140, 360, 113,25
    Open "" for window_popup as #rapport
    #rapport.map, "backcolor black"
    #rapport.map, "setfocus;down"
    #rapport.map, "drawbmp expedition 5 5"
    #rapport.map, "when leftButtonDown [closeRAPPORT]"
    print #rapport.map, "font Times New Roman 10; color white"
    if language = 0 then
        print #rapport.map, "place 425 50 ;\"; "- RAPPORT D'EXPEDITION -"
        print #rapport.map, "place 330 135 ;\"; "Type de mission : ";typeMISSION$
        print #rapport.map, "place 330 150 ;\"; "Ciblage : ";ciblageEXPE$
        print #rapport.map, "place 330 190 ;\"; "Superficie : ";metreCarre2;" m²"
        print #rapport.map, "place 330 205 ;\"; "Nombre d'explorateur(s) envoyé(s) : ";UniteDemander
        if NombreExplorateurExpeditionDECES >0 then print #rapport.map, "place 330 440 ;\"; "Nombre d'explorateur(s) perdu(s) : ";NombreExplorateurExpeditionDECES
    end if
    if language = 1 then
        print #rapport.map, "place 425 50 ;\"; "- RAPPORT D'EXPEDITION -"
        print #rapport.map, "place 330 135 ;\"; "Type of mission : ";typeMISSION$
        print #rapport.map, "place 330 150 ;\"; "Target : ";ciblageEXPE$
        print #rapport.map, "place 330 190 ;\"; "Area : ";metreCarre2;" m²"
        print #rapport.map, "place 330 205 ;\"; "Number of soldiers send : ";UniteDemander
        if NombreExplorateurExpeditionDECES >0 then print #rapport.map, "place 330 440 ;\"; "Number of soldiers lost : ";NombreExplorateurExpeditionDECES
    end if

    print #rapport.map, "font Times New Roman 10 italic; color yellow"
    print #rapport.map, "place 330 260 ;\"; ExpeditionTXT1$;"\";ExpeditionTXT2$;"\";ExpeditionTXT3$
    NombreHommeDarmeExpeditionDECES = 0 : NombreLancierExpeditionDECES = 0 : NombreFrondeurExpeditionDECES = 0 : NombreArcherExpeditionDECES = 0
    wait
    [closeRAPPORT]
    close #rapport
    rapportWindows = 0
    wait

    [LANCEREXPEDITION]
    openARCHIVES = 0
    NombreExplorateurExpeditionDECES = 0
    ciblageEXPE$ = "Terrestre"
    typeMISSION$ = "Expédition/conquête"
    print #sgc.map, "font Times New Roman 10; color white"
    print #bat1.surface, "!contents? metreCarre$"
    print #bat1.soldats, "!contents? UniteDemander$"
    UniteDemander = val(UniteDemander$)
    metreCarre2 = val(metreCarre$)
    metreCarre = metreCarre2/10

    if UniteDemander > NombreEXPLORATEUR then
        if language = 0 then notice " " + chr$(13) + "Vous devez former plus d'explorateurs pour cette expédition."
        if language = 1 then notice " " + chr$(13) + "You need more explorer for this expedition."
        wait
    end if
    if metreCarre = 0 then
        if language = 0 then notice " " + chr$(13) + "Vous devez selectionner une superficie de territoire à conquérir."
        if language = 1 then notice " " + chr$(13) + "You have to select an area to conquer."
        wait
    end if
    if UniteDemander = 0 then
        if language = 0 then notice " " + chr$(13) + "Vous devez selectionner des explorateurs pour lancer l'expédition."
        if language = 1 then notice " " + chr$(13) + "You have to select some explorer for start expedition."
        wait
    end if
    if UniteDemander < metreCarre then
        if language = 0 then notice " " + chr$(13) + "Vous avez besoin d'au moins ";metreCarre;" explorateur(s) pour lancer cette expédition."+ chr$(13) +"( Vous avez besoin de 1 explorateur tout les 10m² )"
        if language = 1 then notice " " + chr$(13) + "You need ";metreCarre;" explorer(s) to send this expedition."+ chr$(13) +"( You need 1 explorer by 10m² )"
        wait
    end if
    close #bat1
    bat1 = 0
    [relancer]
    lance1 = int(rnd(1)*31+1)
    unitEXPEDITION = UniteDemander
    unitEXPEDITIONold = unitEXPEDITION
    select case lance1
        case 1,30
            offANIMAL = int(rnd(1)*(unitEXPEDITION*5)+10)
            offJOUEUR = int(offEXPLORATEUR*UniteDemander)
            [fightAGAINexpedition]
            offJOUEUR1 = offJOUEUR - offANIMAL
            offANIMAL1 = offANIMAL - offJOUEUR
            if offJOUEUR1 <= 0 then goto [echecEXPE]
            NombreExplorateurSELECTIONrestant = int(offJOUEUR1/offEXPLORATEUR)
            offJOUEUR = int(offEXPLORATEUR*NombreExplorateurSELECTIONrestant)
            if offANIMAL1 > 0 then goto [fightAGAINexpedition]
            goto [echecEXPE2]
            [echecEXPE]
            NombreExplorateurSELECTIONrestant = 0 : unitEXPEDITION = 0
            goto [endEXPEDITION]
            [echecEXPE2]
            if offANIMAL1 <= 0 then
               SurfaceTerreP1j1 = SurfaceTerreP1j1 + metreCarre2
               if SurfaceTerreP1j1 > influencePossible then
                  SurfaceTerreP1j1 = influencePossible
                  goto [endEXPEDITION]
               else
                  goto [fightAGAINexpedition]
               end if
            end if
            [endEXPEDITION]
            NombreExplorateurExpeditionDECES = int(UniteDemander-NombreExplorateurSELECTIONrestant)
            if NombreExplorateurExpeditionDECES = unitEXPEDITIONold then
                if language = 0 then ExpeditionTXT2$ = "Aucuns de vos soldats n'est revenus vivants."
                if language = 1 then ExpeditionTXT2$ = "None of your soldiers came back alive."
                else
                if language = 0 then ExpeditionTXT2$ = "Après un combat acharné vos troupes s'en sortent."
                if language = 1 then ExpeditionTXT2$ = "After a fierce battle your troops get out."
            end if
            NombreEXPLORATEUR = NombreEXPLORATEUR - NombreExplorateurExpeditionDECES
            popMILIT = popMILIT - NombreExplorateurExpeditionDECES
            popTOTAL = (popCIVIL + popMILIT + popSCIENT)
            popCIVIL = (popTOTAL -(popSCIENT+popMILIT))
            if language = 0 then ExpeditionTXT1$ = "L'expédition a rencontré un annimal inconnu et dangereux."
            if language = 1 then ExpeditionTXT1$ = "The expedition encountered an unknown and threatening animal."
            goto [rapportExpedition]
        case 2, 3, 4, 5, 6
            if language = 0 then
            ExpeditionTXT1$ = "L'expédition n'a rencontré aucun problème méritant"
            ExpeditionTXT2$ = "d'être mentionné. Les troupes reviennent en ville."
            end if
            if language = 1 then
            ExpeditionTXT1$ = "The expedition did not encounter any problem"
            ExpeditionTXT2$ = "to be mentioned. The troops return to town."
            end if
            SurfaceTerreP1j1 = SurfaceTerreP1j1 + metreCarre2
            if SurfaceTerreP1j1 > influencePossible then SurfaceTerreP1j1 = influencePossible
            goto [rapportExpedition]
        case 27, 28, 31
        '----
            if DecouverteCiv2P1 = 1 and DecouverteCiv3P1 = 1 then goto [relancer]
            goto [lancerD2]
        case 7, 8, 9
        '------
            foodGAIN = int(rnd(100)*(100*unitEXPEDITION)+(metreCarre2))
            if language = 0 then
            ExpeditionTXT1$ = "L'expédition à découverte un nouveau type de plante"
            ExpeditionTXT2$ = "nutritive. Vous gagner ";foodGAIN;" unitées de nourriture."
            food = food + foodGAIN
            if food > STOCKAGEfood then food = STOCKAGEfood
            end if
            if language = 1 then
            ExpeditionTXT1$ = "The expedition discover new type of vegetal food"
            ExpeditionTXT2$ = "You win ";foodGAIN;" units of food."
            food = food + foodGAIN
            if food > STOCKAGEfood then food = STOCKAGEfood
            end if
            SurfaceTerreP1j1 = SurfaceTerreP1j1 + metreCarre2
            if SurfaceTerreP1j1 > influencePossible then SurfaceTerreP1j1 = influencePossible
            goto [rapportExpedition]
        case 10, 11
            if language = 0 then
            ExpeditionTXT1$ = "L'expédition à rencontrer un drôle d'animal plutôt"
            ExpeditionTXT2$ = "craintif. Les troupes reviennent en ville."
            end if
            if language = 1 then
            ExpeditionTXT1$ = "The expedition to meet a funny animal rather timid."
            ExpeditionTXT2$ = "The troops return to town."
            end if
            SurfaceTerreP1j1 = SurfaceTerreP1j1 + metreCarre2
            if SurfaceTerreP1j1 > influencePossible then SurfaceTerreP1j1 = influencePossible
            goto [rapportExpedition]
        case 12, 13, 14, 15, 16, 25, 21, 22
        '-----
            boisGAIN = int(rnd(100)*(300*unitEXPEDITION)+(metreCarre2))
            if language = 0 then
            ExpeditionTXT1$ = "L'expédition est tombé sur un cimetière d'arbres."
            ExpeditionTXT2$ = "Vous remportez avec vous ";boisGAIN;" unités de bois."
            bois = bois + boisGAIN
            if bois > STOCKAGEbois then bois = STOCKAGEbois
            end if
            if language = 1 then
            ExpeditionTXT1$ = "The expedition fell on a cemetery of trees."
            ExpeditionTXT2$ = "You take with you ";boisGAIN;" units of wood"
            bois = bois + boisGAIN
            if bois > STOCKAGEbois then bois = STOCKAGEbois
            end if
            SurfaceTerreP1j1 = SurfaceTerreP1j1 + metreCarre2
            if SurfaceTerreP1j1 > influencePossible then SurfaceTerreP1j1 = influencePossible
            goto [rapportExpedition]
        case 17, 18, 19, 20
        '------
            if language = 0 then
            ExpeditionTXT1$ = "L'expédition mentionne que le ciel est bleu sans"
            ExpeditionTXT2$ = "l'ombre d'un nuage... Les troupes reviennent en ville."
            end if
            if language = 1 then
            ExpeditionTXT1$ = "The expedition mentions that the sky is blue without"
            ExpeditionTXT2$ = "the shadow of a cloud. The troops return to town."
            end if
            SurfaceTerreP1j1 = SurfaceTerreP1j1 + metreCarre2
            if SurfaceTerreP1j1 > influencePossible then SurfaceTerreP1j1 = influencePossible
            goto [rapportExpedition]
        case 23
        '-----
            ScGAIN = int(rnd(1)*2+1)
            if language = 0 then
            ExpeditionTXT1$ = "L'expédition à trouver un petit artefact. Vous gagnez"
            ExpeditionTXT2$ = " ";ScGAIN;" points de recherche. Les troupes reviennent en ville."
            RECHEARCHpoint = RECHEARCHpoint + ScGAIN
            end if
            if language = 1 then
            ExpeditionTXT1$ = "The expedition find a little strange. You gain "
            ExpeditionTXT2$ = " ";ScGAIN;" points of research. The troops return to town."
            RECHEARCHpoint = RECHEARCHpoint + ScGAIN
            end if
            SurfaceTerreP1j1 = SurfaceTerreP1j1 + metreCarre2
            if SurfaceTerreP1j1 > influencePossible then SurfaceTerreP1j1 = influencePossible
           goto [rapportExpedition]
        case 24
            'notice porteEtoileP1
            if porteEtoileP1 = 1 then goto [relancer]
            if language = 0 then
            ExpeditionTXT1$ = "L'expédition à trouver un étrange artefact imposant. Son "
            ExpeditionTXT2$ = "emplacement a été enregistré."
            end if
            if language = 1 then
            ExpeditionTXT1$ = "The expedition to find a stranger item. Coordonates were saved "
            ExpeditionTXT2$ = "The troops return to town."
            end if
            porteEtoileP1 = 1
            print #sgc.map, "SpriteVisible porte1 on"
            print #sgc.map, "drawsprites"
            SurfaceTerreP1j1 = SurfaceTerreP1j1 + metreCarre2
            if SurfaceTerreP1j1 > influencePossible then SurfaceTerreP1j1 = influencePossible
            goto [rapportExpedition]
        case 26
        '-----
            metalGAIN = int(rnd(50)*100+(metreCarre2))
            if language = 0 then
            ExpeditionTXT1$ = "L'expédition à trouvé un minerai spécial et le ramène"
            ExpeditionTXT2$ = "Les troupes reviennent en ville avec ";metalGAIN;" unitées de métal"
            metal = metal + metalGAIN
            if metal > STOCKAGEminerais then metal  = STOCKAGEminerais
            end if
            if language = 1 then
            ExpeditionTXT1$ = "The expedition finds a special ore and take it back"
            ExpeditionTXT2$ = "to the city. The troops return to town with ";metalGAIN;" unities of metal"
            metal = metal + metalGAIN
            if metal > STOCKAGEminerais then metal  = STOCKAGEminerais
            end if
            SurfaceTerreP1j1 = SurfaceTerreP1j1 + metreCarre2
            if SurfaceTerreP1j1 > influencePossible then SurfaceTerreP1j1 = influencePossible
            goto [rapportExpedition]
        case 29
        '-----
            popTOTALgagner = int(rnd(1)*5+1)
            popTOTAL = popTOTAL + popTOTALgagner
            if language = 0 then
            ExpeditionTXT1$ = "L'expédition à trouvé des réfugiés qui ont fuis leur"
            ExpeditionTXT2$ = "tribu pour le survie. Vous gagnez ";popTOTALgagner;" nouveaux citoyens."
            end if
            if language = 1 then
            ExpeditionTXT1$ = "L'expédition à trouvé des réfugiés qui ont fuis leur"
            ExpeditionTXT2$ = "tribu pour le survie. Vous gagnez ";popTOTALgagner;" nouveaux citoyens."
            end if
            if popTOTAL > popPossible then popTOTAL = popPossible
            SurfaceTerreP1j1 = SurfaceTerreP1j1 + metreCarre2
            if SurfaceTerreP1j1 > influencePossible then SurfaceTerreP1j1 = influencePossible
            goto [rapportExpedition]
       end select
    [lancerD2]
    lance2 = int(rnd(1)*4+1)
    select case lance2
        case 1
            if DecouverteCiv2P1 = 1 then goto [lancerD2]
            'if attaqueAIm1 = 1 then goto [relancer]
            if language = 0 then
            ExpeditionTXT1$ = "La trace d'une autre civilisation à été découverte."
            ExpeditionTXT2$ = "Après avoir suivi les inconnus vos soldats vous"
            ExpeditionTXT3$ = "indique l'emplacement de leur civilisation."
            end if
            if language = 1 then
            ExpeditionTXT1$ = "The trace of another civilization was discovered."
            ExpeditionTXT2$ = "After following the unknowns your soldiers "
            ExpeditionTXT3$ = "tell you the location of their civilization."
            end if
            SurfaceTerreP1j1 = SurfaceTerreP1j1 + metreCarre2
            if SurfaceTerreP1j1 > influencePossible then SurfaceTerreP1j1 = influencePossible
            #sgc.map, "SpriteVisible loca2 on"
            #sgc.map, "drawsprites"
            foundedSECU = 0
            DecouverteCiv2P1 = 1 : nplayerP1 = nplayerP1 +1
            goto [rapportExpedition]
        case 2, 3
            if language = 0 then
            ExpeditionTXT1$ = "Après une longue traque, l'expédition à finalement perdue"
            ExpeditionTXT2$ = "les traces des individus. Les troupes reviennent en ville."
            end if
            if language = 1 then
            ExpeditionTXT1$ = "After a long track, the expedition finally lost the"
            ExpeditionTXT2$ = "traces of the individuals. The troops return to town."
            end if
            SurfaceTerreP1j1 = SurfaceTerreP1j1 + metreCarre2
            if SurfaceTerreP1j1 > influencePossible then SurfaceTerreP1j1 = influencePossible
            goto [rapportExpedition]
        case 4
            if DecouverteCiv3P1 = 1 then goto [lancerD2]
            'if attaqueAIm2 = 1 then goto [relancer]
            if language = 0 then
            ExpeditionTXT1$ = "La trace d'une autre civilisation à été découverte."
            ExpeditionTXT2$ = "Après avoir suivi les inconnus vos soldats vous"
            ExpeditionTXT3$ = "indique l'emplacement de leur civilisation."
            end if
            if language = 1 then
            ExpeditionTXT1$ = "The trace of another civilization was discovered."
            ExpeditionTXT2$ = "After following the unknowns your soldiers "
            ExpeditionTXT3$ = "tell you the location of their civilization."
            end if
            SurfaceTerreP1j1 = SurfaceTerreP1j1 + metreCarre2
            if SurfaceTerreP1j1 > influencePossible then SurfaceTerreP1j1 = influencePossible
            #sgc.map, "SpriteVisible loca3 on"
            #sgc.map, "drawsprites"
            foundedSECU2 = 0
            DecouverteCiv3P1 = 1 : nplayerP1 = nplayerP1 +1
            goto [rapportExpedition]
    end select
    wait


    [BackVilleJ1]
    close #villeJ1
    wait
    [villeJ1]
    #sgc.map, "drawsprites"
    gosub [refreshMAPdata]
    villeJ1 = 1 : centreMilitaireOpen = 0
    WindowWidth=770 : WindowHeight=570
    UpperLeftX=int((DisplayWidth-WindowWidth)/2)-112 : UpperLeftY=int((DisplayHeight-WindowHeight)/2)+40
    BackgroundColor$ = "black" : ForegroundColor$ = "white"

    stylebits #villeJ1.map, 0, _WS_BORDER, 0, 0
    graphicbox #villeJ1.map, -5, -5, WindowWidth+5, WindowHeight+5
    bmpbutton #villeJ1.builder1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\upgrader.bmp", [principalBuilder], UL, 20, 30

    if lvlbatimentCentreScientifique = 0 then bmpbutton #villeJ1.builder3bis, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\builder.bmp", [ScBuilder], UL, 210, 30
    if lvlbatimentCentreScientifique > 0 then bmpbutton #villeJ1.builder3bis, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\upgrader.bmp", [ScBuilder], UL, 210, 30

    if lvlbatimentCentreMilitaire = 0 then bmpbutton #villeJ1.builder4, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\builder.bmp", [SmBuilder], UL, 120, 30
    if lvlbatimentCentreMilitaire > 0 then bmpbutton #villeJ1.builder4, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\upgrader.bmp", [SmBuilder], UL, 120, 30

    if sedentarisation = 1 and lvlbatimentHabitation = 0 then bmpbutton #villeJ1.builder3, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\builder.bmp", [habitationBuilder], UL, 315, 30
    if sedentarisation = 1 and lvlbatimentHabitation > 0 then bmpbutton #villeJ1.builder3, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\upgrader.bmp", [habitationBuilder], UL, 315, 30
    if sedentarisation = 0 then bmpbutton #villeJ1.builder3, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\builder2.bmp", [NoHABITrechercher], UL, 315, 30

    if scierie = 1 and lvlbatimentScierie = 0 then bmpbutton #villeJ1.builder5, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\builder.bmp", [scierieBuilder], UL, 405, 30
    if scierie = 1 and lvlbatimentScierie > 0 then bmpbutton #villeJ1.builder5, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\upgrader.bmp", [scierieBuilder], UL, 405, 30
    if scierie = 0 then bmpbutton #villeJ1.builder5bis, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\builder2.bmp", [NoSCIERIErechercher], UL, 405, 30

    if fermage = 1 and lvlbatimentFerme = 0 then bmpbutton #villeJ1.builder6, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\builder.bmp", [fermageBuilder], UL, 495, 30
    if fermage = 1 and lvlbatimentFerme > 0 then bmpbutton #villeJ1.builder6, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\upgrader.bmp", [fermageBuilder], UL, 495, 30
    if fermage = 0 then bmpbutton #villeJ1.builder6, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\builder2.bmp", [NoFERMErechercher], UL, 495, 30

    if mines = 1 and lvlbatimentMines = 0 then bmpbutton #villeJ1.builder7, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\builder.bmp", [minesBuilder], UL, 590, 30
    if mines = 1 and lvlbatimentMines > 0 then bmpbutton #villeJ1.builder7, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\upgrader.bmp", [minesBuilder], UL, 590, 30
    if mines = 0 then bmpbutton #villeJ1.builder7, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\builder2.bmp", [NoMINESrechercher], UL, 590, 30

    if fortifications = 1 and lvlbatimentFortifications = 0 then bmpbutton #villeJ1.builder8, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\builder.bmp", [fortificationsBuilder], UL, 670, 30
    if fortifications = 1 and lvlbatimentFortifications > 0 then bmpbutton #villeJ1.builder8, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\upgrader.bmp", [fortificationsBuilder], UL, 670, 30
    if fortifications = 0 then bmpbutton #villeJ1.builder8, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\builder2.bmp", [NoMURSrechercher], UL, 670, 30

    Open " " for window_popup as #villeJ1
    #villeJ1.map, "down;fill black"
    #villeJ1.map, "when leftButtonDown [SimpleClickMAINville1]"
    print #villeJ1.map, "drawbmp fond1 0 0"
    if batimentBUILDFortifications = 1 then print #villeJ1.map, "drawbmp murs 5 195"
    print #villeJ1.map, "drawbmp bat1age1 276 280"
    if batimentBUILDpop = 1 then print #villeJ1.map, "drawbmp BAThouse1AGE1 177 390"
    if batimentBUILDcs = 1 then print #villeJ1.map, "drawbmp centreScientifiqueAGE1 28 278"
    if batimentBUILDcm = 1 then print #villeJ1.map, "drawbmp centreMillitaireAGE1 342 419"
    if batimentBUILDferme = 1 then print #villeJ1.map, "drawbmp ferme 593 298"
    if batimentBUILDscierie = 1 then print #villeJ1.map, "drawbmp scierie 580 468"
    if batimentBUILDmines = 1 then print #villeJ1.map, "drawbmp mines 12 425"
    print #villeJ1.map, "font Times New Roman 16; color black;backcolor white"
    if ageJOUEUR$ = "ÂGE DE SÉDENTARISATION" THEN print #villeJ1.map, "place 260 90 ;\"; ageJOUEUR$
    if ageJOUEUR$ = "ÂGE DE PIERRE" THEN print #villeJ1.map, "place 320 90 ;\"; ageJOUEUR$

    print #villeJ1.map, "font Times New Roman 8; color black;backcolor white"
    print #villeJ1.map, "place 26 27 ;\"; "Bâtiment principal \\         Niv ";lvlbatimentPrincipal; "  "
    print #villeJ1.map, "place 126 27 ;\"; "Centre militaire\\         Niv ";lvlbatimentCentreMilitaire; "  "
    print #villeJ1.map, "place 216 27 ;\"; "Centre scientifique\\         Niv ";lvlbatimentCentreScientifique; "  "
    print #villeJ1.map, "place 321 27 ;\"; "Habitations\\         Niv ";lvlbatimentHabitation; "  "
    print #villeJ1.map, "place 411 27 ;\"; "Scierie\\         Niv ";lvlbatimentScierie; "  "
    print #villeJ1.map, "place 501 27 ;\"; "Fermages\\         Niv ";lvlbatimentFerme; "  "
    print #villeJ1.map, "place 596 27 ;\"; "Mines\\         Niv ";lvlbatimentMines; "  "
    print #villeJ1.map, "place 676 27 ;\"; "Fortifications\\         Niv ";lvlbatimentFortifications; "  "
    print #villeJ1.map, "flush"
    if sedentarisationSECU = 1 then sedentarisationSECU = 0 : goto [batimentScHUMAIN2]
    if securityRELOADcity = 1 then return
    securityRELOADcity = 0
    wait

    [SimpleClickMAINville1]
    mX = MouseX
    mY = MouseY
    'notice mX;" / ";mY
    if mX>40 and mX<270 and mY>290 and mY<380 and batimentBUILDcs = 1 then goto [batimentScHUMAIN]
    if mX>290 and mX<485 and mY>295 and mY<385 then goto [principalBuilder2]
    if mX>25 and mX<100 and mY>450 and mY<520 and batimentBUILDmines = 1 then goto [batimentminesHUMAIN]
    if mX>180 and mX<300 and mY>390 and mY<490 and batimentBUILDpop = 1 then goto [batimentPopHUMAIN]
    if mX>360 and mX<535 and mY>430 and mY<515 and batimentBUILDcm = 1 then goto [batimentSmHUMAIN]
    if mX>600 and mX<770 and mY>310 and mY<370 and batimentBUILDferme = 1 then goto [batimentFermeHUMAIN]
    if mX>590 and mX<710 and mY>480 and mY<550 and batimentBUILDscierie = 1 then goto [batimentscierieHUMAIN]
    if mX>10 and mX<770 and mY>230 and mY<300 and batimentBUILDFortifications = 1 then goto [batimentmursHUMAIN]
    wait

    [NoFERMErechercher]
    if language = 0 then notice " " + chr$(13) + "Requis : recherche fermage"
    if language = 1 then notice " " + chr$(13) + "Need : search fermage"
    wait
    [NoHABITrechercher]
    if language = 0 then notice " " + chr$(13) + "Requis : recherche sédentarisation"
    if language = 1 then notice " " + chr$(13) + "Need : search sédentarisation"
    wait
    [NoSCIERIErechercher]
    if language = 0 then notice " " + chr$(13) + "Requis : recherche scierie"
    if language = 1 then notice " " + chr$(13) + "Need : search scierie"
    wait
    [NoMINESrechercher]
    if language = 0 then notice " " + chr$(13) + "Requis : recherche mines"
    if language = 1 then notice " " + chr$(13) + "Need : search mines"
    wait
    [NoMURSrechercher]
    if language = 0 then notice " " + chr$(13) + "Requis : recherche fortifications"
    if language = 1 then notice " " + chr$(13) + "Need : search fortifications"
    wait
    [NoHother]
    if language = 0 then notice " " + chr$(13) + "Non disponible dans cette version."
    if language = 1 then notice " " + chr$(13) + "Not available in this version."
    wait

    [closeBAT1gosub]
    closeBAT1gosub = 1
    [closeBAT1]
    if bat1 = 1 then close #bat1 : centreMilitaireOpen = 0 : bat1 = 0
    if bp = 1 then close #bp : bp = 0
    if Sc = 1 then close #Sc : Sc = 0' : goto [villeJ1]
    if Sm = 1 then close #Sm : Sm = 0
    if house = 1 then close #house : house = 0
    if openRechearch = 1 then close #recheach : openRechearch = 0
    if batmurs = 1 then close #murs : batmurs = 0
    if batscierie = 1 then close #scierie : batscierie = 0
    if batmines = 1 then close #mines : batmines = 0
    if closeBAT1gosub = 1 then closeBAT1gosub = 0 : return
    wait


'ageJOUEUR$ = "ÂGE DE SÉDENTARISATION" : ageJOUEURnext$ = "ÂGE DE PIERRE"

'---------------------------------------------------------------------------------------------------------------------------------

    [principalBuilder2]
   ' ageJOUEUR$ = "ÂGE DE SÉDENTARISATION"

    coutBOIS = 20000
    coutFOOD = 10000
    compteurAge = 360

    if bp = 1 then close #bp
    bp = 1 : centreMilitaireOpen = 0
    influenceADD = 500 + int(200*lvlbatimentPrincipal)
    WindowWidth=393 : WindowHeight=322 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-110) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    BackgroundColor$ = "white" : ForegroundColor$ = "black"
    graphicbox #bp.map, -5, -5, WindowWidth+5, WindowHeight+5
    if ageJOUEUR$ = "ÂGE DE SÉDENTARISATION" and language = 0 and lvlbatimentCentreMilitaire >= 10 and lvlbatimentCentreScientifique >= 6 and lvlbatimentHabitation >= 8 and lvlbatimentPrincipal >= 5 and bois >= coutBOIS and food >= coutFOOD then button #bp.age, "AMÉLIORATION", [passageAGE], UL, 145, 280, 100,25
    if ageJOUEUR$ = "ÂGE DE SÉDENTARISATION" and language = 1 and lvlbatimentCentreMilitaire >= 10 and lvlbatimentCentreScientifique >= 6 and lvlbatimentHabitation >= 8 and lvlbatimentPrincipal >= 5 and bois >= coutBOIS and food >= coutFOOD then button #bp.age, "UPGRADE", [passageAGE], UL, 125, 280, 60,25
    bmpbutton #bp.d1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\droite1bis.bmp", [w], UL, 386, 0
    bmpbutton #bp.g1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\gauche1bis.bmp", [w], UL, 0, 0
    bmpbutton #bp.h1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\haut1bis.bmp", [w], UL, 0, 0
    bmpbutton #bp.b1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\bas1bis.bmp", [w], UL, 0, 315
    if language = 0 then statictext #bp.para1, "L'âge de pierre est le premier âge qui propulse votre civilisation dans les avancées technologiques et lui permet de fabriquer de nombreux outils afin d'améliorer la fabrication des bâtiments, d'armes et d'aquérir de nouvelles ressources.", 20, 70, 360,70
    if language = 1 then statictext #bp.para1, "The main building is the base of your city. It governs the evolution of the city. A main building evolve will be representative of an advanced civilization and will extend your territorial influence. Each level adds an area of ";influenceADD;" m².", 15, 100, 370,70
    Open " " for window_popup as #bp
    [refreshBAT1B]
    #bp.map, "down"
    #bp.map, "drawbmp AgePassage 25 230"
    if RECHEARCHmetal < 1 then coutPrincipalMETAL = 0
    print #bp.map, "backcolor white;font Times New Roman 12; color black"
    if language = 0 then
        print #bp.map, "place 95 50 ;\"; "PASSAGE A L'";ageJOUEURnext$
        print #bp.map, "font Times New Roman 8; color black"
        print #bp.map, "place 25 160 ;\"; "Construire un camps militaire niveau 10 (";lvlbatimentCentreMilitaire;")\Contruire un centre de recherche niveau 6 (";lvlbatimentCentreScientifique;")\Construire des habitations niveau 8 (";lvlbatimentHabitation;")\Construire un bâtiment principal niveau 5 (";lvlbatimentPrincipal;")"
        print #bp.map, "place 350 275 ;\"; compteurAge; " j"
        r = 34 : v = 177 : b = 76
        print #bp.map, "backcolor ";r;" ";v;" ";b
        print #bp.map, "place 35 245 ;\"; "Bois nécéssaire : ";coutBOIS
        r = 239 : v = 228 : b = 176
        print #bp.map, "backcolor ";r;" ";v;" ";b
        print #bp.map, "place 35 267 ;\"; "Nourriture nécéssaire : ";coutFOOD
        print #bp.map, "backcolor white"
    end if
    if language = 1 then
        print #bp.map, "place 95 50 ;\"; "PASSAGE A L'";ageJOUEURnext$
        print #bp.map, "font Times New Roman 8; color black"
        print #bp.map, "place 25 160 ;\"; "Build a level 10 military camp (";lvlbatimentCentreMilitaire;")\ Build a level 6 research center (";lvlbatimentCentreScientifique;")\ Build level 8 dwellings (";lvlbatimentHabitation;")\Build a main building level 5 (";lvlbatimentPrincipal;")"
        print #bp.map, "place 350 275 ;\"; compteurAge; " d"
        r = 34 : v = 177 : b = 76
        print #bp.map, "backcolor ";r;" ";v;" ";b
        print #bp.map, "place 35 245 ;\"; "Wood needed : ";coutBOIS
        r = 239 : v = 228 : b = 176
        print #bp.map, "backcolor ";r;" ";v;" ";b
        print #bp.map, "place 35 267 ;\"; "Food needed : ";coutFOOD
        print #bp.map, "backcolor white"
    end if
    print #bp.para1, "!font times_new_roman 9 bold italic"
    print #bp.d1, "disable"
    print #bp.g1, "disable"
    print #bp.h1, "disable"
    print #bp.b1, "disable"
    wait

    [passageAGE]
    if lvlbatimentCentreMilitaire < 10 or lvlbatimentCentreScientifique < 6 or lvlbatimentHabitation < 8 or lvlbatimentPrincipal < 5 or bois < coutBOIS or food < coutFOOD then notice "Vous ne remplissez pas les conditions !" : wait
    close #bp
    bp = 0
    bois = bois - coutBOIS
    food = food - coutFOOD
    ageJOUEUR$ = ageJOUEURnext$
    foodADD = foodADD + 2500
    Upbois = Upbois + 2500
    natality = natality + 5
    notice "Une nouvelle ère commence ! Vous passez à l'âge de la pierre, vous gagnez un revenu passif de 2500 de nourriture et 2500 de bois par mois ainsi qu'une natalité améliorée de 5 points !"
    close #villeJ1
    goto [villeJ1]


'---------------------------------------------------------------------------------------------------------------------------------
    [principalBuilder]
    if bp = 1 then close #bp
    bp = 1 : centreMilitaireOpen = 0
    influenceADD = 500 + int(200*lvlbatimentPrincipal)
    WindowWidth=393 : WindowHeight=322 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-110) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    BackgroundColor$ = "white" : ForegroundColor$ = "black"
    graphicbox #bp.map, -5, -5, WindowWidth+5, WindowHeight+5
    if language = 0 then
        button #bp.d1, "Améliorer", [buildPrincipal], UL, 125, 280, 60,25
        button #bp.d1, "Fermer", [buildPrincipalNO], UL, 210, 280, 60, 25
    end if
    if language = 1 then
        button #bp.d1, "Upgrade", [buildPrincipal], UL, 125, 280, 60,25
        button #bp.d1, "Close", [buildPrincipalNO], UL, 210, 280, 60, 25
    end if
    bmpbutton #bp.d1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\droite1bis.bmp", [w], UL, 386, 0
    bmpbutton #bp.g1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\gauche1bis.bmp", [w], UL, 0, 0
    bmpbutton #bp.h1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\haut1bis.bmp", [w], UL, 0, 0
    bmpbutton #bp.b1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\bas1bis.bmp", [w], UL, 0, 315
    if language = 0 then statictext #bp.para1, "Le bâtiment principal est la base de votre ville. Il régit l'évolution de la ville .  Un bâtiment principal évoluer sera représentatif d'une civilisation avancé et étendra votre influence territoriale . Chaque niveau permet d'ajouter une surface de ";influenceADD;" m².", 15, 100, 370,70
    if language = 1 then statictext #bp.para1, "The main building is the base of your city. It governs the evolution of the city. A main building evolve will be representative of an advanced civilization and will extend your territorial influence. Each level adds an area of ";influenceADD;" m².", 15, 100, 370,70
    Open " " for window_popup as #bp
    [refreshBAT1]
    if RECHEARCHmetal < 1 then coutPrincipalMETAL = 0
    print #bp.map, "backcolor white;font Times New Roman 12; color black"
    if language = 0 then
    print #bp.map, "place 80 60 ;\"; "Améliorer votre bâtiment principal ";"( ";lvlbatimentPrincipal;" )"
    print #bp.map, "font Times New Roman 8; color black"
    print #bp.map, "place 25 230 ;\"; "Ressources nécéssaires :"
    print #bp.map, "place 25 245 ;\"; "Bois : ";coutPrincipalBOIS
    print #bp.map, "place 25 260 ;\"; "Métal : ";coutPrincipalMETAL
    print #bp.map, "place 140 190 ;\"; "Influence max : ";influencePossible; " m²"
    end if
    if language = 1 then
    print #bp.map, "place 110 60 ;\"; "Upgrade the main building ";"( ";lvlbatimentPrincipal;" )"
    print #bp.map, "font Times New Roman 8; color black"
    print #bp.map, "place 25 230 ;\"; "Resources needed :"
    print #bp.map, "place 25 245 ;\"; "Wood : ";coutPrincipalBOIS
    print #bp.map, "place 25 260 ;\"; "Metal : ";coutPrincipalMETAL
    print #bp.map, "place 140 190 ;\"; "Max influence : ";influencePossible; " m²"
    end if
    print #bp.para1, "!font times_new_roman 9 bold italic"
    print #bp.d1, "disable"
    print #bp.g1, "disable"
    print #bp.h1, "disable"
    print #bp.b1, "disable"
    #bp.map , "down"
    wait

    [buildPrincipalNO]
    bp = 0 : close #bp : wait

    [buildPrincipal]
    if bois < coutPrincipalBOIS then
        print #bp.map, "font Times New Roman 8"
        if language = 0 then print #bp.map, "place 130 90 ;\"; "Vous n'avez pas assez de bois"
        if language = 1 then print #bp.map, "place 130 90 ;\"; "You do not have enough wood"
        wait
    end if
    if minerais < coutPrincipalMETAL then
        print #bp.map, "font Times New Roman 8"
        if language = 0 then print #bp.map, "place 130 90 ;\"; "Vous n'avez pas assez de métal"
        if language = 1 then print #bp.map, "place 130 90 ;\"; "You do not have enough metal"
        wait
    end if

    bois = bois - coutPrincipalBOIS
    lvlbatimentPrincipal = lvlbatimentPrincipal +1
    influenceADD = 500 + int(200*lvlbatimentPrincipal)
    influencePossible = influencePossible + influenceADD
    coutPrincipalBOIS = coutPrincipalBOISindex + (int(lvlbatimentPrincipal*2150))
    coutPrincipalMETAL =(100*int(lvlbatimentPrincipal))
    securityRELOADcity = 1
    if language = 0 then print #bp.para1, "Le bâtiment principal est la base de votre ville. Il régit l'évolution de la ville .  Un bâtiment principal évoluer sera représentatif d'une civilisation avancé et étendra votre influence territoriale . Chaque niveau permet d'ajouter une surface de ";influenceADD;" m²."
    if language = 1 then print #bp.para1, "The main building is the base of your city. It governs the evolution of the city. A main building evolve will be representative of an advanced civilization and will extend your territorial influence. Each level adds an area of ";influenceADD;" m²."
    print #villeJ1.map, "place 26 27 ;\"; "Bâtiment principal \\         Niv ";lvlbatimentPrincipal; "  "
    goto [refreshBAT1]


    [SimpleClickbp]
    mX = MouseX
    mY = MouseY
    #bp.map, "place 120 90 ;\"; "                                                                    "
    wait

    [ScBuilder]
    if Sc = 1 then close #Sc
    Sc = 1
    WindowWidth=393 : WindowHeight=322 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-110) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    BackgroundColor$ = "white" : ForegroundColor$ = "black"
    graphicbox #Sc.map, -5, -5, WindowWidth+5, WindowHeight+5
    if lvlbatimentCentreScientifique = 0 then
        if language = 0 then button #Sc.bt1, "Construire", [buildSc], UL, 125, 280, 60,25
        if language = 1 then button #Sc.bt1, "Build", [buildSc], UL, 125, 280, 60,25
    else
        if language = 0 then button #Sc.bt1, "Améliorer", [buildSc], UL, 125, 280, 60,25
        if language = 1 then button #Sc.bt1, "Upgrade", [buildSc], UL, 125, 280, 60,25
    end if
    if language = 0 then button #Sc.d1, "Fermer", [buildScNO], UL, 210, 280, 60, 25
    if language = 1 then button #Sc.d1, "Close", [buildScNO], UL, 210, 280, 60, 25
    bmpbutton #Sc.d1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\droite1bis.bmp", [w], UL, 386, 0
    bmpbutton #Sc.g1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\gauche1bis.bmp", [w], UL, 0, 0
    bmpbutton #Sc.h1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\haut1bis.bmp", [w], UL, 0, 0
    bmpbutton #Sc.b1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\bas1bis.bmp", [w], UL, 0, 315
    if language = 0 then statictext #Sc.para1, "Le centre de recherche permet de développer de nouvelles technologies à des fins civiles ou militaires. 1 chercheurs génèrent 1 point de recherche tous les mois. Chaque niveau du centre de recherche augmente le maximum de scientifique recrutable de 1.", 15, 100, 370,70
    if language = 1 then statictext #Sc.para1, "The research center enables the development of new technologies for civil or military purposes. 1 researchers generate 1 research point every mouths. Each level of the research center increases the maximum of recruitable scientist by 1.", 15, 100, 370,70
    Open " " for window_popup as #Sc
    [refreshBAT2]
    print #Sc.map, "backcolor white;font Times New Roman 12; color black"
    if language = 0 then
    print #Sc.map, "place 80 60 ;\"; "Construire un centre de recherche ";"( ";lvlbatimentCentreScientifique;" )"
    print #Sc.map, "font Times New Roman 8"
    print #Sc.map, "place 25 200 ;\"; "Nombre maximal de chercheurs : ";popSCIENTlim
    print #Sc.map, "place 25 230 ;\"; "Ressources nécéssaires :"
    print #Sc.map, "place 25 245 ;\"; "Bois : ";coutScBOIS
    print #Sc.map, "place 25 260 ;\"; "Métal : ";coutScMETAL
    end if
    if language = 1 then
    print #Sc.map, "place 140 60 ;\"; "Build a research center ";"( ";lvlbatimentCentreScientifique;" )"
    print #Sc.map, "font Times New Roman 8; color black"
    print #Sc.map, "place 25 230 ;\"; "Resources needed :"
    print #Sc.map, "place 25 245 ;\"; "Wood : ";coutScBOIS
    print #Sc.map, "place 25 260 ;\"; "Metal : ";coutScMETAL
    end if
    print #Sc.para1, "!font times_new_roman 9 bold italic"
    print #Sc.d1, "disable"
    print #Sc.g1, "disable"
    print #Sc.h1, "disable"
    print #Sc.b1, "disable"
    wait

    [SimpleClickSc]
    mX = MouseX
    mY = MouseY
    #Sc.map, "place 120 90 ;\"; "                                                                    "
    wait

    [buildScNO]
    close #Sc : Sc = 0 : wait

    [buildSc]
    if bois < coutScBOIS then
        print #Sc.map, "font Times New Roman 8"
        if language = 0 then print #Sc.map, "place 130 90 ;\"; "Vous n'avez pas assez de bois"
        if language = 1 then print #Sc.map, "place 130 90 ;\"; "You do not have enough wood"
        wait
    end if
    if minerais < coutScMETAL then
        print #Sc.map, "font Times New Roman 8"
        if language = 0 then print #Sc.map, "place 130 90 ;\"; "Vous n'avez pas assez de métal"
        if language = 1 then print #Sc.map, "place 130 90 ;\"; "You do not have enough metal"
        wait
    end if
    bois = bois - coutScBOIS
    batimentBUILDcs = 1
    popSCIENTlim = popSCIENTlim + 1
    if language = 0 then print #Sc.bt1, "Améliorer"
    if language = 1 then print #Sc.bt1, "Upgrade"
    lvlbatimentCentreScientifique = lvlbatimentCentreScientifique +1
    coutScBOIS = coutScBOISindex + (int(lvlbatimentCentreScientifique*800))
    coutScMETAL = (12*(int(lvlbatimentCentreScientifique)))
    if RECHEARCHmetal < 1 then coutScMETAL = 0
    if bat1 = 1 then close #bat1
    bat1 = 0
    securityRELOADcity = 1
    if lvlbatimentCentreScientifique = 1 then close #villeJ1 : gosub [villeJ1]
    print #villeJ1.map, "place 216 27 ;\"; "Centre scientifique\\         Niv ";lvlbatimentCentreScientifique; "  "
    goto [refreshBAT2]


    [scientifiqueACHAT]
    coutfoodScientifique = 300
    if food < coutfoodScientifique then wait
    if int(popTOTAL-popSCIENT-popMILIT) < 1 then wait
    if  popSCIENT = popSCIENTlim then wait
    if food >= coutfoodScientifique and popTOTAL >= 1 and popSCIENT < popSCIENTlim then
        food = food - coutfoodScientifique
        popSCIENT = popSCIENT + 1
        print #bat1.map, "font Times New Roman 10; color black"
        print #bat1.map, "place 103 105 ;\";popSCIENT;" / ";popSCIENTlim; "   "
    end if
    wait
    [scientifiqueVENTE]
    popSCIENT = popSCIENT - 1
    if popSCIENT < 0 then popSCIENT = 0
    print #bat1.map, "font Times New Roman 10; color black"
    print #bat1.map, "place 103 105 ;\";popSCIENT;" / ";popSCIENTlim; "   "
    wait

    [SimpleClickACHATsc]
    mX = MouseX
    mY = MouseY
    'notice mX;"/";mY
    if mX > 78 and mX < 100 and mY > 67 and mY < 89 then goto [scientifiqueVENTE]
    if mX > 132 and mX < 151 and mY > 67 and mY < 89 then goto [scientifiqueACHAT]
    if mY >525 then [closeBAT1]
    wait

    [batimentScHUMAIN]
    ScCULTURE = 1
    ScSCIENTIFIQUE = 0
    ScMILITAIRE = 0
    [batimentScHUMAIN2]

    offHommedarme = 12 + INT((3*hommeDarmeUPGRADE1)+(6*hommeDarmeUPGRADE2)+(10*hommeDarmeUPGRADE3))
    defHommedarme = 1 + INT((1*hommeDarmeUPGRADE1)+(1*hommeDarmeUPGRADE2)+(2*hommeDarmeUPGRADE3))
    vieHommedarme = 37 + INT((3*hommeDarmeUPGRADE1)+(10*hommeDarmeUPGRADE2)+(22*hommeDarmeUPGRADE3))
    offlancier = 14 + INT((5*lancierUPGRADE1)+(9*lancierUPGRADE2)+(17*lancierUPGRADE3))
    deflancier = 2 + INT((1*lancierUPGRADE1)+(1*lancierUPGRADE2)+(1*lancierUPGRADE3))
    vielancier = 32 + INT((2*lancierUPGRADE1)+(6*lancierUPGRADE2)+(10*lancierUPGRADE3))
    offfrondeur = 38 + INT((8*frondeurUPGRADE1)+(16*frondeurUPGRADE2)+(30*frondeurUPGRADE3))
    deffrondeur = 1 + INT((0*frondeurUPGRADE1)+(0*frondeurUPGRADE2)+(1*frondeurUPGRADE3))
    viefrondeur = 18 + INT((2*frondeurUPGRADE1)+(5*frondeurUPGRADE2)+(8*frondeurUPGRADE3))
    offarcher = 12 + INT((4*archerUPGRADE1)+(5*archerUPGRADE2)+(9*archerUPGRADE3))
    defarcher = 2 + INT((1*archerUPGRADE1)+(1*archerUPGRADE2)+(3*archerUPGRADE3))
    viearcher = 24 + INT((6*archerUPGRADE1)+(9*archerUPGRADE2)+(15*archerUPGRADE3))

    if bat1 = 1 then close #bat1
    'close #villeJ1 : villeJ1 = 0

    bat1 = 1 : centreMilitaireOpen = 0
    WindowWidth=770 : WindowHeight=570 : UpperLeftX=int((DisplayWidth-WindowWidth)/2)-112 : UpperLeftY=int((DisplayHeight-WindowHeight)/2)+40
    BackgroundColor$ = "white" : ForegroundColor$ = "black"

    stylebits #bat1.map, 0, _WS_BORDER, 0, 0
    graphicbox #bat1.map, -5, -5, WindowWidth+5, WindowHeight+5
    checkbox #bat1.cb1, "", [ScCULTURE], [ScCULTURE], 123, 130, 15, 20
    checkbox #bat1.cb2, "", [ScMILITAIRE], [ScMILITAIRE], 323, 130, 15, 20
    checkbox #bat1.cb3, "", [ScSCIENTIFIQUE], [ScSCIENTIFIQUE], 523, 130, 15, 20
    'bmpbutton #bat1.close, "bmp\game\selection\GAMEstart\HUMANOIDE\fermetureINGame.bmp", [closeBAT1], UL, WindowWidth-80, 40

    if ScCULTURE = 1 then
    'set1
    if sedentarisation = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch1], UL, 300, 230
    if sedentarisation = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch1], UL, 300, 230
    bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 470, 230
    'set2A
    if sedentarisation = 1 and fermage = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch2], UL, 90, 300
    if sedentarisation = 1 and fermage = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch2], UL, 90, 300
    if sedentarisation = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 90, 300

    if sedentarisation = 1 and  scierie = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch3], UL, 160, 300
    if sedentarisation = 1 and  scierie = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch3], UL, 160, 300
    if sedentarisation = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 160, 300

    if sedentarisation = 1 and  mines = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch4], UL, 230, 300
    if sedentarisation = 1 and  mines = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch4], UL, 230, 300
    if sedentarisation = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 230, 300

    if sedentarisation = 1 and fermage = 1 then
    if elevage = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch5], UL, 30, 360
    if elevage = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch5], UL, 30, 360
    if agriculture = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch6], UL, 90, 360
    if agriculture = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch6], UL, 90, 360
    else
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 90, 360
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 30, 360
    end if
    bmpbutton #bat1.1, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 370, 300
    bmpbutton #bat1.1, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 300, 300
    'set2B
    bmpbutton #bat1.1, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 550, 300
    bmpbutton #bat1.1, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 620, 300
    bmpbutton #bat1.1, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 690, 300
    end if

    if ScSCIENTIFIQUE = 1 then
    'set1
    if centreSCI = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch1c], UL, 300, 230
    if centreSCI > 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch1c], UL, 300, 230
    if centreSCI = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 300, 280
    if centreSCI = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch2c], UL, 300, 280
    if centreSCI = 2 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch2c], UL, 300, 280

    if UPnatality = 0 then
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch25a], UL, 200, 230
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 200, 280
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 200, 330
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 200, 380
    end if
    if UPnatality = 1 then
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch25a], UL, 200, 230
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch25b], UL, 200, 280
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 200, 330
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 200, 380
    end if
    if UPnatality = 2 then
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch25a], UL, 200, 230
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch25b], UL, 200, 280
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch25c], UL, 200, 330
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 200, 380
    end if
    if UPnatality = 3 then
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch25a], UL, 200, 230
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch25b], UL, 200, 280
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch25c], UL, 200, 330
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch25d], UL, 200, 380
    end if
    if UPnatality = 4 then
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch25a], UL, 200, 230
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch25b], UL, 200, 280
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch25c], UL, 200, 330
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch25d], UL, 200, 380
    end if
    end if

    if ScMILITAIRE = 1 then
    'set1
    if fortifications = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch1b], UL, 200, 230
            if fortificationsUP = 0 and fortifications = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 60, 230
            if fortificationsUP = 0 and fortifications = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 60, 290
            if fortificationsUP = 0 and fortifications = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch27a], UL, 60, 230
            if fortificationsUP = 0 and fortifications = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 60, 290
            if fortificationsUP >= 1 and fortifications = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch27a], UL, 60, 230
            if fortificationsUP = 1 and fortifications = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch27b], UL, 60, 290
            if fortificationsUP = 2 and fortifications = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch27b], UL, 60, 290
    if fortifications = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch1b], UL, 200, 230
            if explorateurUPGRADE = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch26a], UL, 135, 310
            if explorateurUPGRADE = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 135, 350
            if explorateurUPGRADE = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 135, 390
            if explorateurUPGRADE = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch26a], UL, 135, 310
            if explorateurUPGRADE = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch26b], UL, 135, 350
            if explorateurUPGRADE = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 135, 390
            if explorateurUPGRADE >= 2 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch26a], UL, 135, 310
            if explorateurUPGRADE >= 2 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch26b], UL, 135, 350
            if explorateurUPGRADE = 2 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch26c], UL, 135, 390
            if explorateurUPGRADE > 2 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch26c], UL, 135, 390
            if hommeDarmeUPGRADE1 = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch22b], UL, 200, 310
            if hommeDarmeUPGRADE2 = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch23b], UL, 200, 350
            if hommeDarmeUPGRADE3 = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch24b], UL, 200, 390
            if hommeDarmeUPGRADE1 = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch22b], UL, 200, 310
            if hommeDarmeUPGRADE2 = 0 and hommeDarmeUPGRADE1 = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch23b], UL, 200, 350
            if hommeDarmeUPGRADE3 = 0 and hommeDarmeUPGRADE2 = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch24b], UL, 200, 390
          '  if hommeDarmeUPGRADE1 = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 200, 350
            if hommeDarmeUPGRADE2 = 0 and hommeDarmeUPGRADE1 = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 200, 350
            if hommeDarmeUPGRADE3 = 0 and hommeDarmeUPGRADE2 = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 200, 390
    if CentreMilitaire2 = 0 then
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch2b], UL, 470, 230
    else
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch2b], UL, 470, 230
    end if
    if CentreMilitaire3 = 0 and CentreMilitaire2 = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch6b], UL, 470, 350
    if CentreMilitaire3 = 1 and CentreMilitaire2 = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch6b], UL, 470, 350
    if CentreMilitaire3 = 0 and CentreMilitaire2 = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 470, 350
    'set2B

    'CentreMilitaire2 = 1 : lancierSEARCH = 1
    if CentreMilitaire2 = 1 then
       if lancierSEARCH = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch3b], UL, 550, 300
            if lancierUPGRADE1 = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch13b], UL, 550, 350
            if lancierUPGRADE2 = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch14b], UL, 550, 390
            if lancierUPGRADE3 = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch15b], UL, 550, 430
            if lancierUPGRADE1 = 0 and lancierSEARCH = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch13b], UL, 550, 350
            if lancierUPGRADE2 = 0 and lancierUPGRADE1 = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch14b], UL, 550, 390
            if lancierUPGRADE3 = 0 and lancierUPGRADE2 = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch15b], UL, 550, 430
            if lancierUPGRADE1 = 0 and lancierSEARCH = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 550, 350
            if lancierUPGRADE2 = 0 and lancierUPGRADE1 = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 550, 390
            if lancierUPGRADE3 = 0 and lancierUPGRADE2 = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 550, 430
       if frondeurSEARCH = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch4b], UL, 620, 300
            if frondeurUPGRADE1 = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch16b], UL, 620, 350
            if frondeurUPGRADE2 = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch17b], UL, 620, 390
            if frondeurUPGRADE3 = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch18b], UL, 620, 430
            if frondeurUPGRADE1 = 0 and frondeurSEARCH = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch16b], UL, 620, 350
            if frondeurUPGRADE2 = 0 and frondeurUPGRADE1 = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch17b], UL, 620, 390
            if frondeurUPGRADE3 = 0 and frondeurUPGRADE2 = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch18b], UL, 620, 430
            if frondeurUPGRADE1 = 0 and frondeurSEARCH = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 620, 350
            if frondeurUPGRADE2 = 0 and frondeurUPGRADE1 = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 620, 390
            if frondeurUPGRADE3 = 0 and frondeurUPGRADE2 = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 620, 430
       if archerSEARCH = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch5b], UL, 690, 300
            if archerUPGRADE1 = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch19b], UL, 690, 350
            if archerUPGRADE2 = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch20b], UL, 690, 390
            if archerUPGRADE3 = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch21b], UL, 690, 430
            if archerUPGRADE1 = 0 and archerSEARCH = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch19b], UL, 690, 350
            if archerUPGRADE2 = 0 and archerUPGRADE1 = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch20b], UL, 690, 390
            if archerUPGRADE3 = 0 and archerUPGRADE2 = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch21b], UL, 690, 430
            if archerUPGRADE1 = 0 and archerSEARCH = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 690, 350
            if archerUPGRADE2 = 0 and archerUPGRADE1 = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 690, 390
            if archerUPGRADE3 = 0 and archerUPGRADE2 = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 690, 430
        if lancierSEARCH = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch3b], UL, 550, 300
        if frondeurSEARCH = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch4b], UL, 620, 300
        if archerSEARCH = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch5b], UL, 690, 300
    end if


    if CentreMilitaire2 = 0 then
       bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 550, 300
       bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 620, 300
       bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 690, 300
       bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 550, 350
       bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 550, 390
       bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 550, 430
       bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 620, 350
       bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 620, 390
       bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 620, 430
       bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 690, 350
       bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 690, 390
       bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 690, 430
    end if
    'set3B
    if CentreMilitaire2 = 0 then
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 295, 310
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 295, 350
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 295, 390
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 385, 310
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 385, 350
        bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 385, 390
    end if
    if CentreMilitaire2 = 1 then
        if UPcitoyen1a = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch7b], UL, 295, 310
        if UPcitoyen1a > 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch7b], UL, 295, 310
        if UPcitoyen1a < 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 295, 350
        if UPcitoyen1a = 1 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch8b], UL, 295, 350
        if UPcitoyen1a >= 3 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch8b], UL, 295, 350
        if UPcitoyen1a < 3 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 295, 390
        if UPcitoyen1a >= 3 and UPcitoyen1a < 6 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch9b], UL, 295, 390
        if UPcitoyen1a = 6 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch9b], UL, 295, 390

        if UPscientifiq1a = 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch10b], UL, 385, 310
        if UPscientifiq1a > 0 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch10b], UL, 385, 310
        if UPscientifiq1a < 1  then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 385, 350
        if UPscientifiq1a = 1  then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch11b], UL, 385, 350
        if UPscientifiq1a >= 3  then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch11b], UL, 385, 350
        if UPscientifiq1a < 3 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON.bmp", [w], UL, 385, 390
        if UPscientifiq1a >= 3 and UPscientifiq1a < 5 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON3.bmp", [rechearch12b], UL, 385, 390
        if UPscientifiq1a = 6 then bmpbutton #bat1.rechearch, "bmp\game\selection\GAMEstart\HUMANOIDE\ScienBUTTON2.bmp", [rechearch12b], UL, 385, 390
    end if
    end if


    Open " " for window_popup as #bat1
    r = 14 : v = 25 : b = 43
    #bat1.map , "backcolor white"';r;" ";v;" ";b
    #bat1.map , "down;fill white" '";r;" ";v;" ";b
    #bat1.map, "when leftButtonDown [SimpleClickACHATsc]"
    print #bat1.map, "drawbmp fond3 5 5"
    print #bat1.map, "drawbmp ScienBUTTON1 80 65"
    print #bat1.map, "font Times New Roman 20; color black"

    if language = 0 then
        r = 183 : v = 228 : b = 240
        #bat1.map , "backcolor ";r;" ";v;" ";b
        print #bat1.map, "place 280 555 ;\"; "RETOUR EN VILLE"
        print #bat1.map, "backcolor white; place 250 70 ;\"; "CENTRE DE RECHERCHE "
        print #bat1.map, "font Times New Roman 10"
        print #bat1.map, "place 103 105 ;\";popSCIENT;" / ";popSCIENTlim; "   "
        print #bat1.map, "font Times New Roman 8; color black"
        print #bat1.map, "place 87 55 ;\"; "Scientifiques"
        print #bat1.map, "place 150 147 ;\"; "Branche culturelle"
        print #bat1.map, "place 350 147 ;\"; "Branche militaire"
        print #bat1.map, "place 550 147 ;\"; "Branche scientifique"
    end if
    if language = 1 then
        r = 183 : v = 228 : b = 240
        #bat1.map , "backcolor ";r;" ";v;" ";b
        print #bat1.map, "place 310 555 ;\"; "BACK TO CITY"
        print #bat1.map, "backcolor white;place 265 70 ;\"; "RESEARCH CENTER "
        print #bat1.map, "font Times New Roman 10"
        print #bat1.map, "place 103 105 ;\";popSCIENT;" / ";popSCIENTlim; "   "
        print #bat1.map, "font Times New Roman 8; color black"
        print #bat1.map, "place 87 55 ;\"; "Scientifiques"
        print #bat1.map, "place 150 147 ;\"; "Cultural branch"
        print #bat1.map, "place 350 147 ;\"; "Military branch"
        print #bat1.map, "place 550 147 ;\"; "Scientific branch"
    end if
    print #bat1.map, "color black;size 2"
    print #bat1.map, "line "; 25; " "; 200; " "; WindowWidth-27; " "; 200
    if ScSCIENTIFIQUE = 1 then
        print #bat1.cb1, "reset"
        print #bat1.cb2, "reset"
        print #bat1.cb3, "set"
        print #bat1.map, "color black"
        print #bat1.map, "size 1"
        print #bat1.map, "line "; 314; " "; 240; " "; 314; " "; 300
        print #bat1.map, "line "; 214; " "; 240; " "; 214; " "; 390
    end if
    if ScMILITAIRE = 1 then
        print #bat1.cb1, "reset"
        print #bat1.cb2, "set"
        print #bat1.cb3, "reset"
        print #bat1.map, "color black"
        print #bat1.map, "size 1"
        print #bat1.map, "line "; 75; " "; 240; " "; 480; " "; 240
            print #bat1.map, "line "; 75; " "; 240; " "; 75; " "; 300
        print #bat1.map, "line "; 150; " "; 290; " "; 215; " "; 290
            print #bat1.map, "line "; 215; " "; 240; " "; 215; " "; 400
            print #bat1.map, "line "; 150; " "; 290; " "; 150; " "; 400
        print #bat1.map, "line "; 355; " "; 280; " "; 700; " "; 280
            print #bat1.map, "line "; 355; " "; 280; " "; 355; " "; 405
            print #bat1.map, "line "; 320; " "; 325; " "; 390;" "; 325
            print #bat1.map, "line "; 320; " "; 365; " "; 390;" "; 365
            print #bat1.map, "line "; 320; " "; 405; " "; 390;" "; 405
        print #bat1.map, "line "; 485; " "; 240; " "; 485; " "; 360
        print #bat1.map, "line "; 560; " "; 280; " "; 560; " "; 445
        print #bat1.map, "line "; 630; " "; 280; " "; 630; " "; 445
        print #bat1.map, "line "; 700; " "; 280; " "; 700; " "; 445
    end if
    if ScCULTURE = 1 then
    print #bat1.cb1, "set"
    print #bat1.cb2, "reset"
    print #bat1.cb3, "reset"
    print #bat1.map, "color black"
    print #bat1.map, "size 1"
    print #bat1.map, "line "; 320; " "; 240; " "; 480; " "; 240
    print #bat1.map, "line "; 100; " "; 280; " "; 380; " "; 280
    print #bat1.map, "line "; 485; " "; 280; " "; 700; " "; 280
    print #bat1.map, "line "; 100; " "; 280; " "; 100; " "; 370
    print #bat1.map, "line "; 170; " "; 280; " "; 170; " "; 310
    print #bat1.map, "line "; 240; " "; 280; " "; 240; " "; 310
    print #bat1.map, "line "; 310; " "; 240; " "; 310; " "; 310
    print #bat1.map, "line "; 380; " "; 280; " "; 380; " "; 310
    print #bat1.map, "line "; 485; " "; 240; " "; 485; " "; 280
    print #bat1.map, "line "; 560; " "; 280; " "; 560; " "; 310
    print #bat1.map, "line "; 630; " "; 280; " "; 630; " "; 310
    print #bat1.map, "line "; 700; " "; 280; " "; 700; " "; 310
    print #bat1.map, "line "; 40; " "; 340; " "; 100; " "; 340
    print #bat1.map, "line "; 40; " "; 340; " "; 40; " "; 370
    end if

    pageRECHEARCH = 1
    print #bat1.map, "font Times New Roman 7; color black"
    if pageRECHEARCH = 1 and ScCULTURE > 0 then
        print #bat1.map, "place 320 230 ;\"; "Sédentarisation"
        print #bat1.map, "place 105 300 ;\"; "Fermage"
        print #bat1.map, "place 177 300 ;\"; "Scierie"
        print #bat1.map, "place 245 300 ;\"; "Mines"
        print #bat1.map, "place 315 300 ;\"; "indisponible"
        print #bat1.map, "place 387 300 ;\"; "indisponible"
        print #bat1.map, "place 045 360 ;\"; "Elevage"
        print #bat1.map, "place 105 360 ;\"; "Agriculture"
        print #bat1.map, "place 500 255 ;\"; "indisponible"
        print #bat1.map, "place 565 300 ;\"; "indisponible"
        print #bat1.map, "place 637 300 ;\"; "indisponible"
        print #bat1.map, "place 705 300 ;\"; "indisponible"
    end if
    if pageRECHEARCH = 1 and ScSCIENTIFIQUE > 0 then
        print #bat1.map, "place 330 248 ;\"; "Science avancée I"
        print #bat1.map, "place 330 298 ;\"; "Science avancée II"
        print #bat1.map, "place 230 248 ;\"; "Natalité I"
        print #bat1.map, "place 230 298 ;\"; "Natalité II"
        print #bat1.map, "place 230 348 ;\"; "Natalité III"
        print #bat1.map, "place 230 398 ;\"; "Natalité IV"
    end if
    if pageRECHEARCH = 1 and ScMILITAIRE > 0 then
        print #bat1.map, "place 155 310 ;\"; "Exploreur I"
        print #bat1.map, "place 155 350 ;\"; "Exploreur II"
        print #bat1.map, "place 155 390 ;\"; "Exploreur III"
        print #bat1.map, "place 230 255 ;\"; "Fortifications"
        print #bat1.map, "place 90 255 ;\"; "Maconerie I"
        print #bat1.map, "place 90 310 ;\"; "Maconerie II"
        print #bat1.map, "place 220 310 ;\"; "Bagareur I"
        print #bat1.map, "place 220 350 ;\"; "Bagareur II"
        print #bat1.map, "place 220 390 ;\"; "Bagareur III"
        print #bat1.map, "place 500 255 ;\"; "Centre \avancé I"
        print #bat1.map, "place 500 365 ;\"; "Centre \avancé II"
        print #bat1.map, "place 300 310 ;\"; "Citoyens I"
        print #bat1.map, "place 390 310 ;\"; "Scientifiques I"
        print #bat1.map, "place 300 350 ;\"; "Citoyens II"
        print #bat1.map, "place 390 350 ;\"; "Scientifiques II"
        print #bat1.map, "place 300 390 ;\"; "Citoyens III"
        print #bat1.map, "place 390 390 ;\"; "Scientifiques III"
        print #bat1.map, "place 565 300 ;\"; "Lanciers"
        print #bat1.map, "place 565 350 ;\"; "Expérience I"
        print #bat1.map, "place 565 390 ;\"; "Expérience II"
        print #bat1.map, "place 565 430 ;\"; "Expérience III"
        print #bat1.map, "place 637 300 ;\"; "Frondeurs"
        print #bat1.map, "place 637 350 ;\"; "Expérience I"
        print #bat1.map, "place 637 390 ;\"; "Expérience II"
        print #bat1.map, "place 637 430 ;\"; "Expérience III"
        print #bat1.map, "place 705 300 ;\"; "Archers"
        print #bat1.map, "place 705 350 ;\"; "Expérience I"
        print #bat1.map, "place 705 390 ;\"; "Expérience II"
        print #bat1.map, "place 705 430 ;\"; "Expérience III"
    end if
    print #bat1.map, "flush"
    wait

    [ScCULTURE]
    ScCULTURE = 1
    ScSCIENTIFIQUE = 0
    ScMILITAIRE = 0
    goto [batimentScHUMAIN2]
    [ScMILITAIRE]
    ScMILITAIRE = 1
    ScCULTURE = 0
    ScSCIENTIFIQUE = 0
    goto [batimentScHUMAIN2]
    [ScSCIENTIFIQUE]
    ScSCIENTIFIQUE = 1
    ScCULTURE = 0
    ScMILITAIRE = 0
    goto [batimentScHUMAIN2]

'numérotation recherche :
' exemple : AL0R0 (A = ligné A ; L0 = ligne 0 ; R0 = recherche 0 en partant de la gauche)

    [recheach]
    close #recheach : openRechearch = 0 : wait
    [rechearch1]
    if openRechearch = 1 then close #recheach
    openRechearch = 1
    WindowWidth=454 : WindowHeight=405
    UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    '---
    condition = 1
    rechearch1BOIS = 450
    rechearch1FER = 0
    rechearch1PDR = 5
    '---
    BackgroundColor$ = "black" : ForegroundColor$ = "white"

    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    'statictext #recheach.para3b2, "Points de recherche : ";pdrRechearch1, 60, 510, 115,15
    if condition = 1 and sedentarisation = 0 then
       if language = 0 then button #recheach.1, "Rechercher" , [recheach1ON], UL, int(WindowWidth/2-45), 330, 100, 25
       if language = 1 then button #recheach.1, "Search" , [recheach1ON], UL, int(WindowWidth/2-45), 330, 100, 25
    end if
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    #recheach.map , "backcolor black"
    #recheach.map , "down"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16; color white"
    print #recheach.map, "place 170 60 ;\"; "Sédentarisation"
    print #recheach.map, "font Times New Roman 8; color white"
    if language = 0 then
    print #recheach.map, "place 20 140 ;\"; "La sédimentarisation permet à votre peuple de bâtir des batiments durables leur conférent"
    print #recheach.map, "place 20 155 ;\"; "une protection supplémentaire contre les dangers potentiels se trouvant à l'extérieur."
    print #recheach.map, "place 20 170 ;\"; "De plus, aménagé dans un climat favorable, cela permet de cultiver des terres environnantes"
    print #recheach.map, "place 20 185 ;\"; "et d'avoir ainsi un meilleur apport quotidien en nourriture."
    print #recheach.map, "place 20 230 ;\"; "Effet : Permet la construction d'habitations primaires"
    if sedentarisation = 0 then
        print #recheach.map, "place 20 270 ;\"; "Coût :"
        print #recheach.map, "place 20 285 ;\"; "Bois : ";rechearch1BOIS
        print #recheach.map, "place 20 300 ;\"; "Métal : ";rechearch1FER
        print #recheach.map, "place 20 315 ;\"; "Points de recherche : ";rechearch1PDR;"  ( disponible : "; RECHEARCHpoint;" ) "
    else
        print #recheach.map, "font Times New Roman 12; color yellow"
        print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
        print #recheach.map, "font Times New Roman 12; color yellow"
    end if
    end if
    if language = 1 then
    print #recheach.map, "place 20 140 ;\"; "Sedimentarization allows your people to build sustainable buildings, giving them "
    print #recheach.map, "place 20 155 ;\"; "additional protection from potential hazards on the outside."
    print #recheach.map, "place 20 170 ;\"; "In addition, landscaped in a favorable climate, it allows to cultivate surrounding land."
    print #recheach.map, "place 20 230 ;\"; "Effect: Allows the construction of primary dwellings"
    if sedentarisation = 0 then
        print #recheach.map, "place 20 270 ;\"; "Cost :"
        print #recheach.map, "place 20 285 ;\"; "Wood : ";rechearch1BOIS
        print #recheach.map, "place 20 300 ;\"; "Metal : ";rechearch1FER
        print #recheach.map, "place 20 315 ;\"; "Points of research : ";rechearch1PDR;"  ( available : "; RECHEARCHpoint;" ) "
    else
        print #recheach.map, "font Times New Roman 12; color yellow"
        print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
        print #recheach.map, "font Times New Roman 12; color yellow"
    end if
    end if

    wait
    [recheach1ON]
    if bois < rechearch1BOIS then wait
    if RECHEARCHpoint < rechearch1PDR then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch1PDR
    sedentarisation = 1
    bois = int(bois - rechearch1BOIS)
    close #recheach
    openRechearch = 0
    close #villeJ1
    sedentarisationSECU = 1
    goto [villeJ1]


    [rechearch1b]
    if openRechearch = 1 then close #recheach
    openRechearch = 1
    WindowWidth=454 : WindowHeight=405
    UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    '---
    condition = 1
    rechearch1bBOIS = 2000
    rechearch1bFER = 0
    rechearch1bPDR = 50
    '---
    BackgroundColor$ = "black" : ForegroundColor$ = "white"

    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    'statictext #recheach.para3b2, "Points de recherche : ";pdrRechearch1, 60, 510, 115,15
    if condition = 1 and fortifications = 0 then
       if language = 0 then button #recheach.1, "Rechercher" , [recheach1bON], UL, int(WindowWidth/2-45), 330, 100, 25
       if language = 1 then button #recheach.1, "Search" , [recheach1bON], UL, int(WindowWidth/2-45), 330, 100, 25
    end if
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    #recheach.map , "backcolor black"
    #recheach.map , "down"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16; color white"
    print #recheach.map, "place 170 60 ;\"; "Fortifications"
    print #recheach.map, "font Times New Roman 8; color white"

    if language = 0 then
    print #recheach.map, "place 20 140 ;\"; "Les fortifications sont l'un des meilleurs moyens de defense pour une cité."
    print #recheach.map, "place 20 155 ;\"; "Avec l'aide de solides remparts, votre armée peut défendre la ville contre des ennemis"
    print #recheach.map, "place 20 170 ;\"; "bien plus nombreux que vous et avoir moins de pertes."
    print #recheach.map, "place 20 185 ;\"; "Les remparts protèges aussi des prédateurs de jour comme de nuit."
    print #recheach.map, "place 20 230 ;\"; "Effet : Permet la construction et l'amélioration des fortifications"
    if fortifications = 0 then
        print #recheach.map, "place 20 270 ;\"; "Coût :"
        print #recheach.map, "place 20 285 ;\"; "Bois : ";rechearch1bBOIS
        print #recheach.map, "place 20 300 ;\"; "Minerais : ";rechearch1bFER
        print #recheach.map, "place 20 315 ;\"; "Points de recherche : ";rechearch1bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
    else
        print #recheach.map, "font Times New Roman 12; color yellow"
        print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
        print #recheach.map, "font Times New Roman 12; color yellow"
    end if
    end if
    if language = 1 then
    print #recheach.map, "place 20 140 ;\"; "Fortifications are one of the best defense for a city. With the help of strong ramparts,"
    print #recheach.map, "place 20 155 ;\"; "your army can defend the city against far more enemies than you and have fewer casualties."
    print #recheach.map, "place 20 170 ;\"; "The ramparts also protect predators day and night."
    print #recheach.map, "place 20 230 ;\"; "Effect: Allows the construction and improvement of fortifications"
    if fortifications = 0 then
        print #recheach.map, "place 20 270 ;\"; "Cost :"
        print #recheach.map, "place 20 285 ;\"; "Wood : ";rechearch1bBOIS
        print #recheach.map, "place 20 300 ;\"; "Metal : ";rechearch1bFER
        print #recheach.map, "place 20 315 ;\"; "Research Points : ";rechearch1bPDR;"  ( available : "; RECHEARCHpoint;" ) "
    else
        print #recheach.map, "font Times New Roman 12; color yellow"
        print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
        print #recheach.map, "font Times New Roman 12; color yellow"
    end if
    end if
    wait
    [recheach1bON]
    if bois < rechearch1bBOIS then wait
    if RECHEARCHpoint < rechearch1bPDR then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch1bPDR
    fortifications = 1
    bois = int(bois - rechearch1bBOIS)
    close #recheach
    openRechearch = 0
    close #villeJ1
    sedentarisationSECU = 1
    goto [villeJ1]


    [rechearch1c]
    if openRechearch = 1 then close #recheach
    openRechearch = 1
    WindowWidth=454 : WindowHeight=405
    UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    '---
    condition = 1
    rechearch1cBOIS = 4000
    rechearch1cFER = 0
    rechearch1cPDR = 20
    '---
    BackgroundColor$ = "black" : ForegroundColor$ = "white"

    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    'statictext #recheach.para3b2, "Points de recherche : ";pdrRechearch1, 60, 510, 115,15
    if condition = 1 and centreSCI = 0 then
       if language = 0 then button #recheach.1, "Rechercher" , [recheach1cON], UL, int(WindowWidth/2-45), 330, 100, 25
       if language = 1 then button #recheach.1, "Search" , [recheach1cON], UL, int(WindowWidth/2-45), 330, 100, 25
    end if
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    #recheach.map , "backcolor black"
    #recheach.map , "down"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16; color white"
    print #recheach.map, "place 105 60 ;\"; "CENTRE DE RECHERCHE I"
    print #recheach.map, "font Times New Roman 8; color white"

    if language = 0 then
    print #recheach.map, "place 20 140 ;\"; "Améliore votre centre de recherche pour dévérouiller de nouvelles technologies"
    print #recheach.map, "place 20 155 ;\"; "et augmenter le nombre de personnes pouvant y travailler."
    print #recheach.map, "place 20 230 ;\"; "Effet : Augmente la limite de scientifique max de 8 places."
    if centreSCI = 0 then
        print #recheach.map, "place 20 270 ;\"; "Coût :"
        print #recheach.map, "place 20 285 ;\"; "Bois : ";rechearch1cBOIS
        print #recheach.map, "place 20 300 ;\"; "Minerais : ";rechearch1cFER
        print #recheach.map, "place 20 315 ;\"; "Points de recherche : ";rechearch1cPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
    else
        print #recheach.map, "font Times New Roman 12; color yellow"
        print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
        print #recheach.map, "font Times New Roman 12; color yellow"
    end if
    end if
    if language = 1 then
    print #recheach.map, "place 20 140 ;\"; "Upgrade your scientist center for unlock new technologies and have more scientist."
    print #recheach.map, "place 20 230 ;\"; "Effect: Give +8 max population for scientist"
    if centreSCI = 0 then
        print #recheach.map, "place 20 270 ;\"; "Cost :"
        print #recheach.map, "place 20 285 ;\"; "Wood : ";rechearch1cBOIS
        print #recheach.map, "place 20 300 ;\"; "Metal : ";rechearch1cFER
        print #recheach.map, "place 20 315 ;\"; "Research Points : ";rechearch1cPDR;"  ( available : "; RECHEARCHpoint;" ) "
    else
        print #recheach.map, "font Times New Roman 12; color yellow"
        print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
        print #recheach.map, "font Times New Roman 12; color yellow"
    end if
    end if
    wait
    [recheach1cON]
    if bois < rechearch1cBOIS then wait
    if RECHEARCHpoint < rechearch1cPDR then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch1cPDR
    centreSCI = 1
    popSCIENTlim = popSCIENTlim +8
    bois = int(bois - rechearch1cBOIS)
    close #recheach
    openRechearch = 0
    goto [batimentScHUMAIN2]

    [rechearch2]
    if openRechearch = 1 then close #recheach
    openRechearch = 1
    WindowWidth=454 : WindowHeight=405
    UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    '---
    condition = 1
    rechearch2BOIS = 2100
    rechearch2FER = 0
    rechearch2PDR = 15
    '---
    BackgroundColor$ = "black" : ForegroundColor$ = "white"

    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5

        if condition = 1 and fermage = 0 then
           if language = 0 then button #recheach.1, "Rechercher" , [recheach2ON], UL, int(WindowWidth/2-45), 330, 100, 25
           if language = 1 then button #recheach.1, "Search" , [recheach2ON], UL, int(WindowWidth/2-45), 330, 100, 25
        end if

    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    #recheach.map , "backcolor black"
    #recheach.map , "down"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16; color white"
    print #recheach.map, "place 200 60 ;\"; "Fermage"
    print #recheach.map, "font Times New Roman 8; color white"
    if language = 0 then
    print #recheach.map, "place 20 140 ;\"; "Le fermage est une des activités majeur suite à la sédentarisation d'un peuple."
    print #recheach.map, "place 20 155 ;\"; "Avec des ressources environnante diminuant rapidement en fonction de l'augmentation"
    print #recheach.map, "place 20 170 ;\"; "de la population du village, ainsi que les intempérie pouvant jouer sur la quantité"
    print #recheach.map, "place 20 185 ;\"; "fournie, la cultivation des terres et l'élevage deviennent vite essentiels."
    print #recheach.map, "place 20 230 ;\"; "Effet : Permet la construction de bâtiments spécialisés dans l'agriculture et l'élevage."
    if fermage = 0 then
        print #recheach.map, "place 20 270 ;\"; "Coût :"
        print #recheach.map, "place 20 285 ;\"; "Bois : ";rechearch2BOIS
        print #recheach.map, "place 20 300 ;\"; "Minerais : ";rechearch2FER
        print #recheach.map, "place 20 315 ;\"; "Points de recherche : ";rechearch2PDR;"  ( disponible : "; RECHEARCHpoint;" ) "
    else
        print #recheach.map, "font Times New Roman 12; color yellow"
        print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
        print #recheach.map, "font Times New Roman 12; color yellow"
    end if
    end if
    if language = 1 then
    print #recheach.map, "place 20 140 ;\"; "Farming is one of the major activities following the sedentarization of a people."
    print #recheach.map, "place 20 155 ;\"; "With surrounding resources decreasing rapidly depending on the increase of the "
    print #recheach.map, "place 20 170 ;\"; "village population, as well as the weather that can affect the quantity supplied,"
    print #recheach.map, "place 20 185 ;\"; "land cultivation and livestock are quickly becoming essential."
    print #recheach.map, "place 20 230 ;\"; "Effect: Allows the construction of specialized buildings in agriculture and livestock."
    if fermage = 0 then
        print #recheach.map, "place 20 270 ;\"; "Cost :"
        print #recheach.map, "place 20 285 ;\"; "Wood : ";rechearch2BOIS
        print #recheach.map, "place 20 300 ;\"; "Metal : ";rechearch2FER
        print #recheach.map, "place 20 315 ;\"; "Research Points : ";rechearch2PDR;"  ( available : "; RECHEARCHpoint;" ) "
    else
        print #recheach.map, "font Times New Roman 12; color yellow"
        print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
        print #recheach.map, "font Times New Roman 12; color yellow"
    end if
    end if
    wait
    [recheach2ON]
    if bois < rechearch2BOIS then wait
    if RECHEARCHpoint < rechearch2PDR then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch2PDR
    fermage = 1
    bois = int(bois - rechearch2BOIS)
    close #recheach
    openRechearch = 0
    close #villeJ1
    sedentarisationSECU = 1
    goto [villeJ1]

    [rechearch2b]
    if openRechearch = 1 then close #recheach
    openRechearch = 1
    WindowWidth=454 : WindowHeight=405
    UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    '---
    condition = 1
    rechearch2bBOIS = 3500
    rechearch2bFOOD = 1000
    rechearch2bFER = 0
    rechearch2bPDR = 30
    '---
    BackgroundColor$ = "black" : ForegroundColor$ = "white"
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    'statictext #recheach.para3b2, "Points de recherche : ";pdrRechearch1, 60, 510, 115,15
    if condition = 1 and CentreMilitaire2 = 0 then
       if language = 0 then button #recheach.1, "Rechercher" , [recheach2bON], UL, int(WindowWidth/2-45), 330, 100, 25
       if language = 1 then button #recheach.1, "Search" , [recheach2bON], UL, int(WindowWidth/2-45), 330, 100, 25
    end if
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    #recheach.map , "backcolor black"
    #recheach.map , "down"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16; color white"
    print #recheach.map, "place 145 60 ;\"; "Centre militaire avancé"
    print #recheach.map, "font Times New Roman 8; color white"

    if language = 0 then
    print #recheach.map, "place 20 140 ;\"; "Le centre militaire avancé permet de diversifier les enseignements ausein du batiment."
    print #recheach.map, "place 20 155 ;\"; "Il permet donc de recruter plus de soldat et de former de nouvelles troupes comme les"
    print #recheach.map, "place 20 170 ;\"; "Archers, les Frondeurs, les Lanciers ou encore la Cavalerie."
    print #recheach.map, "place 20 215 ;\"; "Effet : Ajoute +20 pop max militaire"
    print #recheach.map, "place 20 230 ;\"; "Effet 2 : Permet recherche ''archer'', ''lancier'' et ''frondeur''."
    if CentreMilitaire2 = 0 then
        print #recheach.map, "place 20 270 ;\"; "Coût :"
        print #recheach.map, "place 20 285 ;\"; "Bois : ";rechearch2bBOIS
        print #recheach.map, "place 20 300 ;\"; "Nourriture : ";rechearch2bFOOD
        print #recheach.map, "place 20 315 ;\"; "Points de recherche : ";rechearch2bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
    else
        print #recheach.map, "font Times New Roman 12; color yellow"
        print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
        print #recheach.map, "font Times New Roman 12; color yellow"
    end if
    end if
    if language = 1 then
    print #recheach.map, "place 20 140 ;\"; "The advanced military center give you the possibility to have more type of units."
    print #recheach.map, "place 20 155 ;\"; "You can now search to have archer, spearman, horseman or frondeur and add 20 slots"
    print #recheach.map, "place 20 170 ;\"; "for have bigger army."
    print #recheach.map, "place 20 215 ;\"; "Effect : add +20 pop max milit"
    print #recheach.map, "place 20 230 ;\"; "Effect 2 : unblock ''archer'', ''spearman'' et ''frondeur'' research."
    if CentreMilitaire2 = 0 then
        print #recheach.map, "place 20 270 ;\"; "Cost :"
        print #recheach.map, "place 20 285 ;\"; "Wood : ";rechearch2bBOIS
        print #recheach.map, "place 20 300 ;\"; "Food : ";rechearch2bFER
        print #recheach.map, "place 20 315 ;\"; "Research Points : ";rechearch2bPDR;"  ( available : "; RECHEARCHpoint;" ) "
    else
        print #recheach.map, "font Times New Roman 12; color yellow"
        print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
        print #recheach.map, "font Times New Roman 12; color yellow"
    end if
    end if
    wait
    [recheach2bON]
    if bois < rechearch2bBOIS then wait
    if food < rechearch2bFOOD then wait
    if RECHEARCHpoint < rechearch2bPDR then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch2bPDR
    CentreMilitaire2 = 1
    popMILITlim = popMILITlim +20
    bois = int(bois - rechearch2bBOIS)
    food = int(food - rechearch2bFOOD)
    close #recheach
    openRechearch = 0
    goto [batimentScHUMAIN2]


    [rechearch2c]
    if openRechearch = 1 then close #recheach
    openRechearch = 1
    WindowWidth=454 : WindowHeight=405
    UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    '---
    condition = 1
    rechearch2cBOIS = 9000
    rechearch2cFER = 0
    rechearch2cPDR = 80
    '---
    BackgroundColor$ = "black" : ForegroundColor$ = "white"
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    'statictext #recheach.para3b2, "Points de recherche : ";pdrRechearch1, 60, 510, 115,15
    if condition = 1 and centreSCI = 1 then
       if language = 0 then button #recheach.1, "Rechercher" , [recheach2cON], UL, int(WindowWidth/2-45), 330, 100, 25
       if language = 1 then button #recheach.1, "Search" , [recheach2cON], UL, int(WindowWidth/2-45), 330, 100, 25
    end if
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    #recheach.map , "backcolor black"
    #recheach.map , "down"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16; color white"
    print #recheach.map, "place 105 60 ;\"; "CENTRE DE RECHERCHE II"
    print #recheach.map, "font Times New Roman 8; color white"

    if language = 0 then
    print #recheach.map, "place 20 140 ;\"; "Améliore votre centre de recherche pour dévérouiller de nouvelles technologies"
    print #recheach.map, "place 20 155 ;\"; "et augmenter le nombre de personnes pouvant y travailler."
    print #recheach.map, "place 20 230 ;\"; "Effet : Augmente la limite de scientifique max de 15 places."
    if centreSCI = 1 then
        print #recheach.map, "place 20 270 ;\"; "Coût :"
        print #recheach.map, "place 20 285 ;\"; "Bois : ";rechearch2cBOIS
        print #recheach.map, "place 20 300 ;\"; "Minerais : ";rechearch2cFER
        print #recheach.map, "place 20 315 ;\"; "Points de recherche : ";rechearch2cPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
    else
        print #recheach.map, "font Times New Roman 12; color yellow"
        print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
        print #recheach.map, "font Times New Roman 12; color yellow"
    end if
    end if
    if language = 1 then
    print #recheach.map, "place 20 140 ;\"; "Upgrade your scientist center for unlock new technologies and have more scientist."
    print #recheach.map, "place 20 230 ;\"; "Effect: Give +8 max population for scientist"
    if centreSCI = 1 then
        print #recheach.map, "place 20 270 ;\"; "Cost :"
        print #recheach.map, "place 20 285 ;\"; "Wood : ";rechearch2cBOIS
        print #recheach.map, "place 20 300 ;\"; "Metal : ";rechearch2cFER
        print #recheach.map, "place 20 315 ;\"; "Research Points : ";rechearch2cPDR;"  ( available : "; RECHEARCHpoint;" ) "
    else
        print #recheach.map, "font Times New Roman 12; color yellow"
        print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
        print #recheach.map, "font Times New Roman 12; color yellow"
    end if
    end if
    wait
    [recheach2cON]
    if bois < rechearch2cBOIS then wait
    if RECHEARCHpoint < rechearch2cPDR then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch2cPDR : centreSCI = 2 : popSCIENTlim = popSCIENTlim +15 : bois = int(bois - rechearch2cBOIS) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]

    [rechearch3]
    if openRechearch = 1 then close #recheach
    openRechearch = 1 : WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch3BOIS = 1000 : rechearch3FER = 0 : rechearch3PDR = 15 : BackgroundColor$ = "black" : ForegroundColor$ = "white"
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and scierie = 0 and language = 0 then button #recheach.1, "Rechercher" , [recheach3ON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and scierie = 0 and language = 1 then button #recheach.1, "Search" , [recheach3ON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "backcolor black;font Times New Roman 16; color white"
    if language = 0 then
        print #recheach.map, "place 165 60 ;\"; "Atelier de bois" : print #recheach.map, "font Times New Roman 8" : print #recheach.map, "place 20 140 ;\"; "L'atelier de bois est un espace spécialiser dans le rapatriment, la traite et la coupe\du bois dans le village.\En rassemblant toute l'activité du bois en un point, le processus est plus rapide et\de meilleur qualité avec les outils directement disponibles." : print #recheach.map, "place 20 230 ;\"; "Effet : Permet la construction d'un atelier de bois."
        if scierie = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :" : print #recheach.map, "place 20 285 ;\"; "Bois : ";rechearch3BOIS : print #recheach.map, "place 20 300 ;\"; "Bois : ";rechearch3BOIS : print #recheach.map, "place 20 315 ;\"; "Points de recherche : ";rechearch3PDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if scierie > 0 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 165 60 ;\"; "Wood workshop" : print #recheach.map, "font Times New Roman 8; color white" : print #recheach.map, "place 20 140 ;\"; "The wood workshop is a space specializing in the repatriation, milking and cutting of\wood in the village. By gathering all the activity of the wood at one point, the\process is faster and better with the tools directly available." : print #recheach.map, "place 20 230 ;\"; "Effect: Allows the construction of a wood workshop."
        if scierie = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :" : print #recheach.map, "place 20 285 ;\"; "Wood : ";rechearch3BOIS : print #recheach.map, "place 20 300 ;\"; "Wood : ";rechearch3BOIS : print #recheach.map, "place 20 315 ;\"; "Research Points : ";rechearch3PDR;"  ( available : "; RECHEARCHpoint;" ) "
        if scierie > 0 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach3ON]
    if bois < rechearch3BOIS then wait
    if RECHEARCHpoint < rechearch3PDR then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch3PDR : scierie = 1 : bois = int(bois - rechearch3BOIS) : openRechearch = 0
    close #recheach : close #villeJ1 : sedentarisationSECU = 1 : goto [villeJ1]

    [rechearch3b]
    if openRechearch = 1 then close #recheach
    openRechearch = 1 : WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch3bBOIS = 2000 : rechearch3bFOOD = 500 : rechearch3bFER = 0 : rechearch3bPDR = 30 : BackgroundColor$ = "black" : ForegroundColor$ = "white"
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and lancierSEARCH = 0 and language = 0 then button #recheach.1, "Rechercher" , [recheach3bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and lancierSEARCH = 0 and language = 1 then button #recheach.1, "Search" , [recheach3bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "backcolor black;font Times New Roman 16; color white"
    print #recheach.map, "place 170 60 ;\"; "Unitée : Lanciers"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Les lanciers sont très utiles pour la chasse. Voyant l'importance des dégâts causés par\cette arme, elle fut vite amenée sur les champs de batailles." : print #recheach.map, "place 20 215 ;\"; "Effet : Permet de former des lanciers dans le centre militaire"
        if lancierSEARCH = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :" : print #recheach.map, "place 20 285 ;\"; "Bois : ";rechearch3bBOIS : print #recheach.map, "place 20 300 ;\"; "Nourriture : ";rechearch3bFOOD : print #recheach.map, "place 20 315 ;\"; "Points de recherche : ";rechearch3bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if lancierSEARCH > 0 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "Les lanciers sont très utiles pour la chasse. Voyant l'importance des dégâts causés par\cette arme, elle fut vite amenée sur les champs de batailles." : print #recheach.map, "place 20 215 ;\"; "Effect : give the possibility to make spearman into military center"
        if lancierSEARCH = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :" : print #recheach.map, "place 20 285 ;\"; "Wood : ";rechearch3bBOIS : print #recheach.map, "place 20 300 ;\"; "Food : ";rechearch3bFOOD : print #recheach.map, "place 20 315 ;\"; "Research Points : ";rechearch3bPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if lancierSEARCH > 0 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach3bON]
    if bois < rechearch3bBOIS then wait
    if food < rechearch3bFOOD then wait
    if RECHEARCHpoint < rechearch3bPDR then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch3bPDR : lancierSEARCH = 1 : bois = int(bois - rechearch3bBOIS) : food = int(food - rechearch3bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]

    [rechearch4]
    if openRechearch = 1 then close #recheach
    openRechearch = 1 : WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch4BOIS = 5000 : rechearch5FOOD = 1500 : rechearch4PDR = 60 : BackgroundColor$ = "black" : ForegroundColor$ = "white"
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and mines = 0 and language = 0 then button #recheach.1, "Rechercher" , [recheach4ON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and mines = 0 and language = 1 then button #recheach.1, "Research" , [recheach4ON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map , "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "backcolor black;font Times New Roman 16; color white"
    if language = 0 then
        print #recheach.map, "place 150 60 ;\"; "Mines d'extraction" : print #recheach.map, "font Times New Roman 8; color white" : print #recheach.map, "place 20 140 ;\"; "Les mines d'extraction servent à extraire les ressources plus évoluées tels que les métaux\et le naquada.\Plus le niveau de la mine est évolué et plus importante seront les ressources extraites.\De nombreuses améliorations pour ce bâtiment sont disponibles." : print #recheach.map, "place 20 230 ;\"; "Effet : Permet la construction d'une mine d'extraction."
        if mines = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :" : print #recheach.map, "place 20 285 ;\"; "Bois : ";rechearch4BOIS : print #recheach.map, "place 20 300 ;\"; "Nourriture : ";rechearch4FOOD : print #recheach.map, "place 20 315 ;\"; "Points de recherche : ";rechearch4PDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if mines > 0 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 150 60 ;\"; "Mining mines" : print #recheach.map, "font Times New Roman 8; color white" : print #recheach.map, "place 20 140 ;\"; "Mining mines are used to extract more advanced resources such as metals and naquada.\The more the level of the mine is evolved and the more important will be the extracted\resources. Many improvements for this building are available." : print #recheach.map, "place 20 230 ;\"; "Effect: Allows the construction of an extraction mine."
        if mines = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :" : print #recheach.map, "place 20 285 ;\"; "Wood : ";rechearch4BOIS : print #recheach.map, "place 20 300 ;\"; "Food : ";rechearch4FOOD : print #recheach.map, "place 20 315 ;\"; "Research Points : ";rechearch4PDR;"  ( available : "; RECHEARCHpoint;" ) "
        if mines > 0 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach4ON]
    if bois < rechearch4BOIS or food < rechearch4FOOD then wait
    if RECHEARCHpoint < rechearch4PDR then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch4PDR : mines = 1 : bois = int(bois - rechearch4BOIS) : food = int(food - rechearch4FOOD) : openRechearch = 0
    close #recheach : close #villeJ1 : sedentarisationSECU = 1 : goto [villeJ1]

    [rechearch4b]
    if openRechearch = 1 then close #recheach
    openRechearch = 1 : WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch4bBOIS = 500 : rechearch4bFOOD = 2000 : rechearch4bFER = 0 : rechearch4bPDR = 30 : BackgroundColor$ = "black" : ForegroundColor$ = "white"
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and frondeurSEARCH = 0 and language = 0 then button #recheach.1, "Rechercher" , [recheach4bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and frondeurSEARCH = 0 and language = 1 then button #recheach.1, "Research" , [recheach4bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map , "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "backcolor black;font Times New Roman 16; color white"
    print #recheach.map, "place 170 60 ;\"; "Unitée : Frondeurs"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Les frondeurs utilise une lanière de cuire épaisse pour loger une pierre\dure, la faire tourner et la projeter sur l'ennemi. C'est une technique\peut couteuse mais qui offre une pouvoir offensif très intéréssant." : print #recheach.map, "place 20 215 ;\"; "Effet : Permet de former des frondeurs dans le centre militaire"
        if frondeurSEARCH = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :" : print #recheach.map, "place 20 285 ;\"; "Bois : ";rechearch4bBOIS : print #recheach.map, "place 20 300 ;\"; "Nourriture : ";rechearch4bFOOD : print #recheach.map, "place 20 315 ;\"; "Points de recherche : ";rechearch4bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if frondeurSEARCH > 0 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "Les frondeurs utilise une lanière de cuire épaisse pour loger une pierre\dure, la faire tourner et la projeter sur l'ennemi. C'est une technique\peut couteuse mais qui offre une pouvoir offensif très intéréssant." : print #recheach.map, "place 20 215 ;\"; "Effect : give the possibility to make frondeurs into military center"
        if frondeurSEARCH = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :" : print #recheach.map, "place 20 285 ;\"; "Wood : ";rechearch4bBOIS : print #recheach.map, "place 20 300 ;\"; "Food : ";rechearch4bFOOD : print #recheach.map, "place 20 315 ;\"; "Research Points : ";rechearch4bPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if frondeurSEARCH > 0 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach4bON]
    if bois < rechearch4bBOIS then wait
    if food < rechearch4bFOOD then wait
    if RECHEARCHpoint < rechearch4bPDR then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch4bPDR : frondeurSEARCH = 1 : bois = int(bois - rechearch4bBOIS) : food = int(food - rechearch4bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]

    [rechearch5]
    if openRechearch = 1 then close #recheach
    openRechearch = 1 : WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch5BOIS = 1200 : rechearch5FOOD = 3600 : rechearch5PDR = 80 : BackgroundColor$ = "black" : ForegroundColor$ = "white"
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if language = 0 and condition = 1 and elevage = 0 then button #recheach.1, "Rechercher" , [recheach5ON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 1 and condition = 1 and elevage = 0 then button #recheach.1, "Research" , [recheach5ON], UL, int(WindowWidth/2-45), 330, 100, 25
    button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "backcolor black;font Times New Roman 16; color white"
    if language = 0 then
        print #recheach.map, "place 210 60 ;\"; "Elevage" : print #recheach.map, "font Times New Roman 8; color white" : print #recheach.map, "place 20 140 ;\"; "Avec la sédentarisation et le fait de devoir s'habituer aux différentes saison, l'élevage de" : print #recheach.map, "place 20 155 ;\"; "certains annimaux est devenu indispensable pour contrer les mois difficiles dû au manque de" : print #recheach.map, "place 20 170 ;\"; "nourriture." : print #recheach.map, "place 20 185 ;\"; "Cette technique permet donc d'avoir un apport important et quotidien en nourriture fraiche."
        if elevage = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :" : print #recheach.map, "place 20 285 ;\"; "Bois : ";rechearch5BOIS : print #recheach.map, "place 20 300 ;\"; "Nourriture : ";rechearch5FOOD : print #recheach.map, "place 20 315 ;\"; "Points de recherche : ";rechearch5PDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if elevage > 0 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 210 60 ;\"; "Breeding" : print #recheach.map, "font Times New Roman 8; color white" : print #recheach.map, "place 20 140 ;\"; "With sedentarization and having to get used to the different seasons, the breeding of some  " : print #recheach.map, "place 20 155 ;\"; "animals has become essential to counter the difficult months due to lack of food." : print #recheach.map, "place 20 185 ;\"; "This technique makes it possible to have an important and daily contribution in fresh food."
        if elevage = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :" : print #recheach.map, "place 20 285 ;\"; "Wood : ";rechearch5BOIS : print #recheach.map, "place 20 300 ;\"; "Food : ";rechearch5FOOD : print #recheach.map, "place 20 315 ;\"; "Research Points : ";rechearch5PDR;"  ( available : "; RECHEARCHpoint;" ) "
        if elevage > 0 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach5ON]
    if bois < rechearch5BOIS or food < rechearch5FOOD then wait
    if RECHEARCHpoint < rechearch5PDR then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch5PDR : elevage = 1 : ElevageFOOD = 50 : bois = int(bois - rechearch5BOIS) : food = int(food - rechearch5FOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]

    [rechearch5b]
    if openRechearch = 1 then close #recheach
    openRechearch = 1 : WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch5bBOIS = 2000 : rechearch5bFOOD = 1600 : rechearch5bFER = 0 : rechearch5bPDR = 30 : BackgroundColor$ = "black" : ForegroundColor$ = "white"
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and archerSEARCH = 0 and language = 0 then button #recheach.1, "Rechercher" , [recheach5bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and archerSEARCH = 0 and language = 1 then button #recheach.1, "Research" , [recheach5bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "backcolor black;font Times New Roman 16"
    print #recheach.map, "place 170 60 ;\"; "Unitée : Archers"
    print #recheach.map, "font Times New Roman 8; color white"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Les sont des unités à distances aussi efficasses en attaque qu'en defense." : print #recheach.map, "place 20 155 ;\"; "Ils peuvent encaisser plus de dégâts que les frondeurs mais leurs attaque" : print #recheach.map, "place 20 170 ;\"; "reste plus limitée." : print #recheach.map, "place 20 215 ;\"; "Effet : Permet de former des archers dans le centre militaire"
        if archerSEARCH = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :" : print #recheach.map, "place 20 285 ;\"; "Bois : ";rechearch5bBOIS : print #recheach.map, "place 20 300 ;\"; "Nourriture : ";rechearch5bFOOD : print #recheach.map, "place 20 315 ;\"; "Points de recherche : ";rechearch5bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if archerSEARCH = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "Les sont des unités à distances aussi efficasses en attaque qu'en defense." : print #recheach.map, "place 20 155 ;\"; "Ils peuvent encaisser plus de dégâts que les frondeurs mais leurs attaque" : print #recheach.map, "place 20 170 ;\"; "reste plus limitée." : print #recheach.map, "place 20 215 ;\"; "Effect : give the possibility to make archers into military center"
        if archerSEARCH = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :" : print #recheach.map, "place 20 285 ;\"; "Wood : ";rechearch5bBOIS : print #recheach.map, "place 20 300 ;\"; "Food : ";rechearch5bFOOD : print #recheach.map, "place 20 315 ;\"; "Research Points : ";rechearch5bPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if archerSEARCH = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach5bON]
    if bois < rechearch5bBOIS then wait
    if food < rechearch5bFOOD then wait
    if RECHEARCHpoint < rechearch5bPDR then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch5bPDR : archerSEARCH = 1 : bois = int(bois - rechearch5bBOIS) : food = int(food - rechearch5bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]

    [rechearch6]
    if openRechearch = 1 then close #recheach
    openRechearch = 1 : WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch6BOIS = 2000 : rechearch6FOOD = 4500 : rechearch6PDR = 80 : BackgroundColor$ = "black" : ForegroundColor$ = "white"
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and agriculture = 0 and language = 0 then button #recheach.1, "Rechercher" , [recheach6ON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and agriculture = 0 and language = 1 then button #recheach.1, "Research" , [recheach6ON], UL, int(WindowWidth/2-45), 330, 100, 25
    button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "backcolor black;font Times New Roman 16; color white"
    if language = 0 then
        print #recheach.map, "place 190 60 ;\"; "Agriculture" : print #recheach.map, "font Times New Roman 8; color white" : print #recheach.map, "place 20 140 ;\"; "Contrairement à la cueilliette, l'agriculture permet de rapporter une grosse quantité de" : print #recheach.map, "place 20 155 ;\"; "nourriture pouvant être stocké pour une utilisation future." : print #recheach.map, "place 20 170 ;\"; "Cette technique permet aussi de diversifier les apports et de se préparer pour les mois" : print #recheach.map, "place 20 185 ;\"; "difficiles (hiver, sècheresse)."
        if agriculture = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :" : print #recheach.map, "place 20 285 ;\"; "Bois : ";rechearch6BOIS : print #recheach.map, "place 20 300 ;\"; "Nourriture : ";rechearch6FOOD : print #recheach.map, "place 20 315 ;\"; "Points de recherche : ";rechearch6PDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if agriculture > 0 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 190 60 ;\"; "Agriculture" : print #recheach.map, "font Times New Roman 8; color white" : print #recheach.map, "place 20 140 ;\"; "Unlike picking, agriculture can bring in a large amount of food that can be stored for future use." : print #recheach.map, "place 20 155 ;\"; "This technique also makes it possible to diversify the inputs and to prepare for the difficult " : print #recheach.map, "place 20 170 ;\"; "months (winter, drought)."
        if agriculture = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :" : print #recheach.map, "place 20 285 ;\"; "Wood : ";rechearch6BOIS : print #recheach.map, "place 20 300 ;\"; "Food : ";rechearch6FOOD : print #recheach.map, "place 20 315 ;\"; "Research Points : ";rechearch6PDR;"  ( available : "; RECHEARCHpoint;" ) "
        if agriculture > 0 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach6ON]
    if bois < rechearch6BOIS or food < rechearch6FOOD then wait
    if RECHEARCHpoint < rechearch6PDR then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch6PDR : agriculture = 1 : AgricultureFOOD = 50 : bois = int(bois - rechearch6BOIS) : food = int(food - rechearch6FOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]

    [rechearch6b]
    if openRechearch = 1 then close #recheach
    openRechearch = 1 : WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch6bBOIS = 6000 : rechearch6bFOOD = 7000 : rechearch6bFER = 0 : rechearch6bPDR = 100 : BackgroundColor$ = "black" : ForegroundColor$ = "white"
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and CentreMilitaire3 = 0 and language = 0 then button #recheach.1, "Rechercher" , [recheach6bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and CentreMilitaire3 = 0 and language = 1 then button #recheach.1, "Research" , [recheach6bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "backcolor black;font Times New Roman 16; color white"
    print #recheach.map, "place 140 60 ;\"; "Centre militaire avancé II"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Le centre militaire avancé permet de diversifier les enseignements au sein du batiment." : print #recheach.map, "place 20 155 ;\"; "Il permet donc de recruter plus de soldat pour agrandir vos troupes." : print #recheach.map, "place 20 215 ;\"; "Effet : Ajoute +60 pop max militaire"
        if CentreMilitaire3 = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :" : print #recheach.map, "place 20 285 ;\"; "Bois : ";rechearch6bBOIS : print #recheach.map, "place 20 300 ;\"; "Nourriture : ";rechearch6bFOOD : print #recheach.map, "place 20 315 ;\"; "Points de recherche : ";rechearch6bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if CentreMilitaire3 > 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "The advanced military center give you the possibility to have more type of units" : print #recheach.map, "place 20 155 ;\"; "for have bigger army." : print #recheach.map, "place 20 215 ;\"; "Effect : add +60 pop max milit"
        if CentreMilitaire3 = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :" : print #recheach.map, "place 20 285 ;\"; "Wood : ";rechearch6bBOIS : print #recheach.map, "place 20 300 ;\"; "Food : ";rechearch6bFOOD : print #recheach.map, "place 20 315 ;\"; "Research Points : ";rechearch6bPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if CentreMilitaire3 > 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach6bON]
    if bois < rechearch6bBOIS then wait
    if food < rechearch6bFOOD then wait
    if RECHEARCHpoint < rechearch6bPDR then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch6bPDR : CentreMilitaire3 = 1 : popMILITlim = popMILITlim +60 : bois = int(bois - rechearch6bBOIS) : food = int(food - rechearch6bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]

    [rechearch7b]
    if openRechearch = 1 then close #recheach
    openRechearch = 1 : WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch7bBOIS = 1000 : rechearch7bFOOD = 1000 : rechearch7bFER = 0 : rechearch7bPDR = 15 : BackgroundColor$ = "black" : ForegroundColor$ = "white"
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and CentreMilitaire2 = 1 and language = 0 and UPcitoyen1a = 0 then button #recheach.1, "Rechercher" , [recheach7bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and CentreMilitaire2 = 1 and language = 1 and UPcitoyen1a = 0 then button #recheach.1, "Research" , [recheach7bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "backcolor black;font Times New Roman 16; color white"
    print #recheach.map, "place 140 60 ;\"; "Entrainement civil I"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Augmente les points de vie, l'attaque et la défense de vos citoyens leurs permettant de \survivre aux attaques ennemis. " : print #recheach.map, "place 20 215 ;\"; "Effet : +1 point de vie, d'attaque et de défense aux citoyens"
        if UPcitoyen1a = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :" : print #recheach.map, "place 20 285 ;\"; "Bois : ";rechearch7bBOIS : print #recheach.map, "place 20 300 ;\"; "Nourriture : ";rechearch7bFOOD : print #recheach.map, "place 20 315 ;\"; "Points de recherche : ";rechearch7bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if UPcitoyen1a > 0 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "Up the life point, attack and armor to your people and give they more chance again ennemies atack." : print #recheach.map, "place 20 215 ;\"; "Effect : +1 life, attack and armor points for people"
        if UPcitoyen1a = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :" : print #recheach.map, "place 20 285 ;\"; "Wood : ";rechearch7bBOIS : print #recheach.map, "place 20 300 ;\"; "Food : ";rechearch7bFOOD : print #recheach.map, "place 20 315 ;\"; "Research Points : ";rechearch7bPDR;"  ( avaible : "; RECHEARCHpoint;" ) "
        if UPcitoyen1a > 0 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach7bON]
    if bois < rechearch7bBOIS then wait
    if food < rechearch7bFOOD then wait
    if RECHEARCHpoint < rechearch7bPDR then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch7bPDR : UPcitoyen1a = UPcitoyen1a + 1 : UPcitoyen1b = UPcitoyen1b + 1 : UPcitoyen1c = UPcitoyen1c + 1 : bois = int(bois - rechearch7bBOIS) : food = int(food - rechearch7bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]

    [rechearch8b]
    if openRechearch = 1 then close #recheach
    openRechearch = 1 : WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch8bBOIS = 1500 : rechearch8bFOOD = 2000 : rechearch8bFER = 0 : rechearch8bPDR = 28 : BackgroundColor$ = "black" : ForegroundColor$ = "white"
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and CentreMilitaire2 = 1 and language = 0 and UPcitoyen1a = 1 then button #recheach.1, "Rechercher" , [recheach8bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and CentreMilitaire2 = 1 and language = 1 and UPcitoyen1a = 1 then button #recheach.1, "Research" , [recheach8bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "backcolor black;font Times New Roman 16; color white"
    print #recheach.map, "place 120 60 ;\"; "Entrainement civil II"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Augmente la santé, l'attaque et la défense de vos citoyens leurs permettant de survivre aux \attaques ennemis. " : print #recheach.map, "place 20 215 ;\"; "Effet : +2 points de vie, d'attaque et de défense aux citoyens"
        if UPcitoyen1a = 1 then print #recheach.map, "place 20 270 ;\"; "Coût :" : print #recheach.map, "place 20 285 ;\"; "Bois : ";rechearch8bBOIS : print #recheach.map, "place 20 300 ;\"; "Nourriture : ";rechearch8bFOOD : print #recheach.map, "place 20 315 ;\"; "Points de recherche : ";rechearch8bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if UPcitoyen1a = 3 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "Up the damage, the life and the armor to your people and give they more chance again ennemies atack." : print #recheach.map, "place 20 215 ;\"; "Effect : +2 life, attack and armor points for people"
        if UPcitoyen1a = 1 then print #recheach.map, "place 20 270 ;\"; "Cost :" : print #recheach.map, "place 20 285 ;\"; "Wood : ";rechearch8bBOIS : print #recheach.map, "place 20 300 ;\"; "Food : ";rechearch8bFOOD : print #recheach.map, "place 20 315 ;\"; "Research Points : ";rechearch8bPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if UPcitoyen1a = 3 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach8bON]
    if bois < rechearch8bBOIS then wait
    if food < rechearch8bFOOD then wait
    if RECHEARCHpoint < rechearch8bPDR then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch8bPDR : UPcitoyen1a = UPcitoyen1a + 2 : UPcitoyen1b = UPcitoyen1b + 2 : UPcitoyen1c = UPcitoyen1c + 2 : bois = int(bois - rechearch8bBOIS) : food = int(food - rechearch8bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]

    [rechearch9b]
    if openRechearch = 1 then close #recheach
    openRechearch = 1 : WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch9bBOIS = 3000 : rechearch9bFOOD = 3000 : rechearch9bFER = 0 : rechearch9bPDR = 40 : BackgroundColor$ = "black" : ForegroundColor$ = "white"
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and CentreMilitaire2 = 1 and language = 0 and UPcitoyen1a < 6 then button #recheach.1, "Rechercher" , [recheach9bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and CentreMilitaire2 = 1 and language = 1 and UPcitoyen1a < 6 then button #recheach.1, "Research" , [recheach9bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "backcolor black;font Times New Roman 16; color white"
    print #recheach.map, "place 125 60 ;\"; "Entrainement civil III"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Augmente les points de santé, l'attaque et la défense de vos citoyens leurs permettant de \survivre aux attaques ennemis. "
        print #recheach.map, "place 20 215 ;\"; "Effet : +3 points de vie, d'attaque et de défense aux citoyens"
        if UPcitoyen1a = 3 then print #recheach.map, "place 20 270 ;\"; "Coût :" : print #recheach.map, "place 20 285 ;\"; "Bois : ";rechearch9bBOIS : print #recheach.map, "place 20 300 ;\"; "Nourriture : ";rechearch9bFOOD : print #recheach.map, "place 20 315 ;\"; "Points de recherche : ";rechearch9bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if UPcitoyen1a = 6 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "Up the life point, armor and damages to your people and give they more chance again ennemies atack." : print #recheach.map, "place 20 215 ;\"; "Effect : +3 life, attack and armor points for people"
        if UPcitoyen1a = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :" : print #recheach.map, "place 20 285 ;\"; "Wood : ";rechearch9bBOIS : print #recheach.map, "place 20 300 ;\"; "Food : ";rechearch9bFOOD : print #recheach.map, "place 20 315 ;\"; "Research Points : ";rechearch9bPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if UPcitoyen1a = 6 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach9bON]
    if bois < rechearch9bBOIS then wait
    if food < rechearch9bFOOD then wait
    if RECHEARCHpoint < rechearch9bPDR then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch9bPDR : UPcitoyen1a = UPcitoyen1a + 3 : UPcitoyen1b = UPcitoyen1b + 3 : UPcitoyen1c = UPcitoyen1c + 3 : bois = int(bois - rechearch9bBOIS) : food = int(food - rechearch9bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]

    [rechearch10b]
    if openRechearch = 1 then close #recheach
    openRechearch = 1 : WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch10bBOIS = 1500 : rechearch10bFOOD = 2000 : rechearch10bFER = 0 : rechearch10bPDR = 20 : BackgroundColor$ = "black" : ForegroundColor$ = "white"
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and CentreMilitaire2 = 1 and language = 0 and UPscientifiq1a <1 then button #recheach.1, "Rechercher" , [recheach10bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and CentreMilitaire2 = 1 and language = 1 and UPscientifiq1a <1 then button #recheach.1, "Research" , [recheach10bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map , "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "backcolor black;font Times New Roman 16; color white"
    print #recheach.map, "place 120 60 ;\"; "Entrainement Scientifique I"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Augmente les points de vie de vos scientifiques leurs permettant de survivre aux \attaques ennemis. " : print #recheach.map, "place 20 215 ;\"; "Effet : +1 Points de vie, d'attaque et de défense aux scientifiques"
        if UPscientifiq1a = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :" : print #recheach.map, "place 20 285 ;\"; "Bois : ";rechearch10bBOIS : print #recheach.map, "place 20 300 ;\"; "Nourriture : ";rechearch10bFOOD : print #recheach.map, "place 20 315 ;\"; "Points de recherche : ";rechearch10bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if UPscientifiq1a >= 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "Up the life point to your scientist and give they more chance again ennemies atack." : print #recheach.map, "place 20 215 ;\"; "Effect : +1 life, armor and attack points for scientist"
        if UPscientifiq1a = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :" : print #recheach.map, "place 20 285 ;\"; "Wood : ";rechearch10bBOIS : print #recheach.map, "place 20 300 ;\"; "Food : ";rechearch10bFOOD : print #recheach.map, "place 20 315 ;\"; "Research Points : ";rechearch10bPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if UPscientifiq1a >= 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired" : print #recheach.map, "font Times New Roman 12; color yellow"
    end if
    wait
    [recheach10bON]
    if bois < rechearch10bBOIS then wait
    if food < rechearch10bFOOD then wait
    if RECHEARCHpoint < rechearch10bPDR then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch10bPDR : UPscientifiq1a = UPscientifiq1a + 1 : UPscientifiq1b = UPscientifiq1b + 1 : UPscientifiq1c = UPscientifiq1c + 1 : bois = int(bois - rechearch10bBOIS) : food = int(food - rechearch10bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]


    [rechearch11b]
    if openRechearch = 1 then close #recheach
    openRechearch = 1 : WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch11bBOIS = 2000 : rechearch11bFOOD = 2500 : rechearch11bFER = 0 : rechearch11bPDR = 30 : BackgroundColor$ = "black" : ForegroundColor$ = "white"
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and CentreMilitaire2 = 1 and language = 0 and UPscientifiq1a <= 1 then button #recheach.1, "Rechercher" , [recheach11bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and CentreMilitaire2 = 1 and language = 1 and UPscientifiq1a <= 1 then button #recheach.1, "Search" , [recheach11bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "backcolor black;font Times New Roman 16; color white"
    print #recheach.map, "place 120 60 ;\"; "Entrainement Scientifique II"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Augmente les points d'attaque de vos scientifiques leurs permettant de survivre aux \attaques ennemis. " : print #recheach.map, "place 20 215 ;\"; "Effet : +2 Points de vie, d'attaque et de défense aux scientifiques"
        if UPscientifiq1a = 1 then print #recheach.map, "place 20 270 ;\"; "Coût :" : print #recheach.map, "place 20 285 ;\"; "Bois : ";rechearch11bBOIS : print #recheach.map, "place 20 300 ;\"; "Nourriture : ";rechearch11bFOOD : print #recheach.map, "place 20 315 ;\"; "Points de recherche : ";rechearch11bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if UPscientifiq1a >= 3 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise" : print #recheach.map, "font Times New Roman 12; color yellow"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "Up the damage point to your scientist and give they more chance again ennemies atack." : print #recheach.map, "place 20 215 ;\"; "Effect : +2 life, armor and damage points for scientist"
        if UPscientifiq1a = 1 then print #recheach.map, "place 20 270 ;\"; "Cost :" : print #recheach.map, "place 20 285 ;\"; "Wood : ";rechearch11bBOIS : print #recheach.map, "place 20 300 ;\"; "Food : ";rechearch11bFOOD : print #recheach.map, "place 20 315 ;\"; "Research Points : ";rechearch11bPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if UPscientifiq1a >= 3 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach11bON]
    if bois < rechearch11bBOIS then wait
    if food < rechearch11bFOOD then wait
    if RECHEARCHpoint < rechearch11bPDR then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch11bPDR : UPscientifiq1a = UPscientifiq1a + 2 : UPscientifiq1b = UPscientifiq1b + 2 : UPscientifiq1c = UPscientifiq1c + 2 : bois = int(bois - rechearch11bBOIS) : food = int(food - rechearch11bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]

    [rechearch12b]
    if openRechearch = 1 then close #recheach
    openRechearch = 1 : WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch12bBOIS = 3000 : rechearch12bFOOD = 4000 : rechearch12bFER = 0 : rechearch12bPDR = 40 : BackgroundColor$ = "black" : ForegroundColor$ = "white"
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and CentreMilitaire2 = 1 and language = 0 and UPscientifiq1a <6 then button #recheach.1, "Rechercher" , [recheach12bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and CentreMilitaire2 = 1 and  language = 1 and UPscientifiq1a <6 then button #recheach.1, "Search" , [recheach12bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "backcolor black;font Times New Roman 16; color white"
    print #recheach.map, "place 120 60 ;\"; "Entrainement Scientifique III"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Augmente la défense de vos scientifiques leurs permettant de survivre aux \attaques ennemis. " : print #recheach.map, "place 20 215 ;\"; "Effet : +3 Points de vie, d'attaque et de défense aux scientifiques"
        if UPscientifiq1a = 3 then print #recheach.map, "place 20 270 ;\"; "Coût :" : print #recheach.map, "place 20 285 ;\"; "Bois : ";rechearch12bBOIS : print #recheach.map, "place 20 300 ;\"; "Nourriture : ";rechearch12bFOOD : print #recheach.map, "place 20 315 ;\"; "Points de recherche : ";rechearch12bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if UPscientifiq1a = 6 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "Up the armor point to your scientist and give they more chance again ennemies atack." : print #recheach.map, "place 20 215 ;\"; "Effect : +1 life, attack and armor points for scientist"
        if UPscientifiq1a = 3 then print #recheach.map, "place 20 270 ;\"; "Cost :" : print #recheach.map, "place 20 285 ;\"; "Wood : ";rechearch12bBOIS : print #recheach.map, "place 20 300 ;\"; "Food : ";rechearch12bFOOD : print #recheach.map, "place 20 315 ;\"; "Research Points : ";rechearch12bPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if UPscientifiq1a = 6 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach12bON]
    if bois < rechearch12bBOIS then wait
    if food < rechearch12bFOOD then wait
    if RECHEARCHpoint < rechearch12bPDR then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch12bPDR : UPscientifiq1a = UPscientifiq1a + 3 : UPscientifiq1b = UPscientifiq1b + 3 : UPscientifiq1c = UPscientifiq1c + 3 : bois = int(bois - rechearch12bBOIS) : food = int(food - rechearch12bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]

    [rechearch13b]
    if openRechearch = 1 then close #recheach
    WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch13bBOIS = 2000 : rechearch13bFOOD = 2000 : rechearch13bFER = 0 : rechearch13bPDR = 32 : openRechearch = 1
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and lancierUPGRADE1 = 0 and language = 0 then button #recheach.1, "Rechercher" , [recheach13bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and lancierUPGRADE1 = 0 and language = 1 then button #recheach.1, "Search" , [recheach13bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16;backcolor black;color white"
    print #recheach.map, "place 140 60 ;\"; "Amélioration Lanciers I"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration augmente la capacité defensive et offensive\de vos lancier en leur conférent un meilleur équipement.\\Effet : Aumgente l'attaque, la défense et la vie de vos lanciers"
        if lancierUPGRADE1 = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :\Bois : ";rechearch13bBOIS;"\Nourriture : ";rechearch13bFOOD;"\Points de recherche : ";rechearch13bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if lancierUPGRADE1 = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration augmente la capacité defensive et offensive\de vos lancier en leur conférent un meilleur équipement.\\Effet : Aumgente l'attaque, la défense et la vie de vos lanciers"
        if lancierUPGRADE1 = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :\Wood : ";rechearch13bBOIS;"\Food : ";rechearch13bFOOD;"\Research Points : ";rechearch13bPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if lancierUPGRADE1 = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach13bON]
    if bois < rechearch13bBOIS and language = 0 then wait
    if bois < rechearch13bBOIS and language = 1 then wait
    if food < rechearch13bFOOD and language = 0 then wait
    if food < rechearch13bFOOD and language = 1 then wait
    if RECHEARCHpoint < rechearch13bPDR and language = 0 then wait
    if RECHEARCHpoint < rechearch13bPDR and language = 1 then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch13bPDR : lancierUPGRADE1 = 1 : bois = int(bois - rechearch13bBOIS) : food = int(food - rechearch13bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]


    [rechearch14b]
    if openRechearch = 1 then close #recheach
    WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch14bBOIS = 4000 : rechearch14bFOOD = 2400 : rechearch14bFER = 0 : rechearch14bPDR = 50 : openRechearch = 1
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and lancierUPGRADE2 = 0 and language = 0 then button #recheach.1, "Rechercher" , [recheach14bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and lancierUPGRADE2 = 0 and language = 1 then button #recheach.1, "Search" , [recheach14bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16;backcolor black;color white"
    print #recheach.map, "place 140 60 ;\"; "Amélioration Lanciers II"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration augmente la capacité defensive et offensive\de vos lancier en leur conférent un meilleur équipement.\\Effet : Aumgente l'attaque, la défense et la vie de vos lanciers"
        if lancierUPGRADE2 = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :\Bois : ";rechearch14bBOIS;"\Nourriture : ";rechearch14bFOOD;"\Points de recherche : ";rechearch14bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if lancierUPGRADE2 = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration augmente la capacité defensive et offensive\de vos lancier en leur conférent un meilleur équipement.\\Effet : Aumgente l'attaque, la défense et la vie de vos lanciers"
        if lancierUPGRADE2 = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :\Wood : ";rechearch14bBOIS;"\Food : ";rechearch14bFOOD;"\Research Points : ";rechearch14bPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if lancierUPGRADE2 = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach14bON]
    if bois < rechearch14bBOIS and language = 0 then wait
    if bois < rechearch14bBOIS and language = 1 then wait
    if food < rechearch14bFOOD and language = 0 then wait
    if food < rechearch14bFOOD and language = 1 then wait
    if RECHEARCHpoint < rechearch14bPDR and language = 0 then wait
    if RECHEARCHpoint < rechearch14bPDR and language = 1 then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch14bPDR : lancierUPGRADE2 = 1 : bois = int(bois - rechearch14bBOIS) : food = int(food - rechearch14bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]

    [rechearch15b]
    if openRechearch = 1 then close #recheach
    WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch15bBOIS = 7000 : rechearch15bFOOD = 4000 : rechearch15bFER = 0 : rechearch15bPDR = 90 : openRechearch = 1
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and lancierUPGRADE3 = 0 and language = 0 then button #recheach.1, "Rechercher" , [recheach15bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and lancierUPGRADE3 = 0 and language = 1 then button #recheach.1, "Search" , [recheach15bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16;backcolor black;color white"
    print #recheach.map, "place 140 60 ;\"; "Amélioration Lanciers III"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration augmente la capacité defensive et offensive\de vos lancier en leur conférent un meilleur équipement.\\Effet : Aumgente l'attaque, la défense et la vie de vos lanciers"
        if lancierUPGRADE3 = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :\Bois : ";rechearch15bBOIS;"\Nourriture : ";rechearch15bFOOD;"\Points de recherche : ";rechearch15bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if lancierUPGRADE3 = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration augmente la capacité defensive et offensive\de vos lancier en leur conférent un meilleur équipement.\\Effet : Aumgente l'attaque, la défense et la vie de vos lanciers"
        if lancierUPGRADE3 = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :\Wood : ";rechearch15bBOIS;"\Food : ";rechearch15bFOOD;"\Research Points : ";rechearch15bPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if lancierUPGRADE3 = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach15bON]
    if bois < rechearch15bBOIS and language = 0 then wait
    if bois < rechearch15bBOIS and language = 1 then wait
    if food < rechearch15bFOOD and language = 0 then wait
    if food < rechearch15bFOOD and language = 1 then wait
    if RECHEARCHpoint < rechearch15bPDR and language = 0 then wait
    if RECHEARCHpoint < rechearch15bPDR and language = 1 then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch15bPDR : lancierUPGRADE3 = 1 : bois = int(bois - rechearch15bBOIS) : food = int(food - rechearch15bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]


    [rechearch16b]
    if openRechearch = 1 then close #recheach
    WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch16bBOIS = 1000 : rechearch16bFOOD = 3600 : rechearch16bFER = 0 : rechearch16bPDR = 30 : openRechearch = 1
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and frondeurUPGRADE1 = 0 and language = 0 then button #recheach.1, "Rechercher" , [recheach16bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and frondeurUPGRADE1 = 0 and language = 1 then button #recheach.1, "Search" , [recheach16bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16;backcolor black;color white"
    print #recheach.map, "place 140 60 ;\"; "Amélioration Frondeurs I"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration augmente la capacité defensive et offensive\de vos frondeurs en leur conférent un meilleur équipement.\\Effet : Aumgente l'attaque, la défense et la vie de vos frondeurs"
        if frondeurUPGRADE1 = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :\Bois : ";rechearch16bBOIS;"\Nourriture : ";rechearch16bFOOD;"\Points de recherche : ";rechearch16bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if frondeurUPGRADE1 = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration augmente la capacité defensive et offensive\de vos frondeurs en leur conférent un meilleur équipement.\\Effet : Aumgente l'attaque, la défense et la vie de vos frondeurs"
        if frondeurUPGRADE1 = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :\Wood : ";rechearch16bBOIS;"\Food : ";rechearch16bFOOD;"\Research Points : ";rechearch16bPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if frondeurUPGRADE1 = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach16bON]
    if bois < rechearch16bBOIS and language = 0 then wait
    if bois < rechearch16bBOIS and language = 1 then wait
    if food < rechearch16bFOOD and language = 0 then wait
    if food < rechearch16bFOOD and language = 1 then wait
    if RECHEARCHpoint < rechearch16bPDR and language = 0 then wait
    if RECHEARCHpoint < rechearch16bPDR and language = 1 then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch16bPDR : frondeurUPGRADE1 = 1 : bois = int(bois - rechearch16bBOIS) : food = int(food - rechearch16bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]


    [rechearch17b]
    if openRechearch = 1 then close #recheach
    WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch17bBOIS = 1400 : rechearch17bFOOD = 6500 : rechearch17bFER = 0 : rechearch17bPDR = 55 : openRechearch = 1
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and frondeurUPGRADE2 = 0 and language = 0 then button #recheach.1, "Rechercher" , [recheach17bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and frondeurUPGRADE2 = 0 and language = 1 then button #recheach.1, "Search" , [recheach17bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16;backcolor black;color white"
    print #recheach.map, "place 140 60 ;\"; "Amélioration Frondeurs II"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration augmente la capacité defensive et offensive\de vos frondeurs en leur conférent un meilleur équipement.\\Effet : Aumgente l'attaque, la défense et la vie de vos frondeurs"
        if frondeurUPGRADE2 = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :\Bois : ";rechearch17bBOIS;"\Nourriture : ";rechearch17bFOOD;"\Points de recherche : ";rechearch17bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if frondeurUPGRADE2 = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration augmente la capacité defensive et offensive\de vos frondeurs en leur conférent un meilleur équipement.\\Effet : Aumgente l'attaque, la défense et la vie de vos frondeurs"
        if frondeurUPGRADE2 = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :\Wood : ";rechearch17bBOIS;"\Food : ";rechearch17bFOOD;"\Research Points : ";rechearch17bPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if frondeurUPGRADE2 = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach17bON]
    if bois < rechearch17bBOIS and language = 0 then wait
    if bois < rechearch17bBOIS and language = 1 then wait
    if food < rechearch17bFOOD and language = 0 then wait
    if food < rechearch17bFOOD and language = 1 then wait
    if RECHEARCHpoint < rechearch17bPDR and language = 0 then wait
    if RECHEARCHpoint < rechearch17bPDR and language = 1 then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch17bPDR : frondeurUPGRADE2 = 1 : bois = int(bois - rechearch17bBOIS) : food = int(food - rechearch17bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]


    [rechearch18b]
    if openRechearch = 1 then close #recheach
    WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch18bBOIS = 2000 : rechearch18bFOOD = 8000 : rechearch18bFER = 0 : rechearch18bPDR = 100 : openRechearch = 1
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and frondeurUPGRADE3 = 0 and language = 0 then button #recheach.1, "Rechercher" , [recheach18bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and frondeurUPGRADE3 = 0 and language = 1 then button #recheach.1, "Search" , [recheach18bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16;backcolor black;color white"
    print #recheach.map, "place 140 60 ;\"; "Amélioration Frondeurs III"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration augmente la capacité defensive et offensive\de vos frondeurs en leur conférent un meilleur équipement.\\Effet : Aumgente l'attaque, la défense et la vie de vos frondeurs"
        if frondeurUPGRADE3 = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :\Bois : ";rechearch18bBOIS;"\Nourriture : ";rechearch18bFOOD;"\Points de recherche : ";rechearch18bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if frondeurUPGRADE3 = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration augmente la capacité defensive et offensive\de vos frondeurs en leur conférent un meilleur équipement.\\Effet : Aumgente l'attaque, la défense et la vie de vos frondeurs"
        if frondeurUPGRADE3 = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :\Wood : ";rechearch18bBOIS;"\Food : ";rechearch18bFOOD;"\Research Points : ";rechearch18bPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if frondeurUPGRADE3 = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach18bON]
    if bois < rechearch18bBOIS and language = 0 then wait
    if bois < rechearch18bBOIS and language = 1 then wait
    if food < rechearch18bFOOD and language = 0 then wait
    if food < rechearch18bFOOD and language = 1 then wait
    if RECHEARCHpoint < rechearch18bPDR and language = 0 then wait
    if RECHEARCHpoint < rechearch18bPDR and language = 1 then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch18bPDR : frondeurUPGRADE3 = 1 : bois = int(bois - rechearch18bBOIS) : food = int(food - rechearch18bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]


    [rechearch19b]
    if openRechearch = 1 then close #recheach
    WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch19bBOIS = 3000 : rechearch19bFOOD = 2000 : rechearch19bFER = 0 : rechearch19bPDR = 28 : openRechearch = 1
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and archerUPGRADE1 = 0 and language = 0 then button #recheach.1, "Rechercher" , [recheach19bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and archerUPGRADE1 = 0 and language = 1 then button #recheach.1, "Search" , [recheach19bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16;backcolor black;color white"
    print #recheach.map, "place 140 60 ;\"; "Amélioration Archers I"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration augmente la capacité defensive et offensive\de vos archers en leur conférent un meilleur équipement.\\Effet : Aumgente l'attaque, la défense et la vie de vos archers"
        if archerUPGRADE1 = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :\Bois : ";rechearch19bBOIS;"\Nourriture : ";rechearch19bFOOD;"\Points de recherche : ";rechearch19bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if archerUPGRADE1 = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration augmente la capacité defensive et offensive\de vos archers en leur conférent un meilleur équipement.\\Effet : Aumgente l'attaque, la défense et la vie de vos archers"
        if archerUPGRADE1 = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :\Wood : ";rechearch19bBOIS;"\Food : ";rechearch19bFOOD;"\Research Points : ";rechearch19bPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if archerUPGRADE1 = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach19bON]
    if bois < rechearch19bBOIS and language = 0 then wait
    if bois < rechearch19bBOIS and language = 1 then wait
    if food < rechearch19bFOOD and language = 0 then wait
    if food < rechearch19bFOOD and language = 1 then wait
    if RECHEARCHpoint < rechearch19bPDR and language = 0 then wait
    if RECHEARCHpoint < rechearch19bPDR and language = 1 then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch19bPDR : archerUPGRADE1 = 1 : bois = int(bois - rechearch19bBOIS) : food = int(food - rechearch19bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]


    [rechearch20b]
    if openRechearch = 1 then close #recheach
    WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch20bBOIS = 3000 : rechearch20bFOOD = 4000 : rechearch20bFER = 0 : rechearch20bPDR = 45 : openRechearch = 1
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and archerUPGRADE2 = 0 and language = 0 then button #recheach.1, "Rechercher" , [recheach20bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and archerUPGRADE2 = 0 and language = 1 then button #recheach.1, "Search" , [recheach20bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16;backcolor black;color white"
    print #recheach.map, "place 140 60 ;\"; "Amélioration Archers II"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration augmente la capacité defensive et offensive\de vos archers en leur conférent un meilleur équipement.\\Effet : Aumgente l'attaque, la défense et la vie de vos archers"
        if archerUPGRADE2 = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :\Bois : ";rechearch20bBOIS;"\Nourriture : ";rechearch20bFOOD;"\Points de recherche : ";rechearch20bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if archerUPGRADE2 = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration augmente la capacité defensive et offensive\de vos archers en leur conférent un meilleur équipement.\\Effet : Aumgente l'attaque, la défense et la vie de vos archers"
        if archerUPGRADE2 = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :\Wood : ";rechearch20bBOIS;"\Food : ";rechearch20bFOOD;"\Research Points : ";rechearch20bPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if archerUPGRADE2 = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach20bON]
    if bois < rechearch20bBOIS and language = 0 then wait
    if bois < rechearch20bBOIS and language = 1 then wait
    if food < rechearch20bFOOD and language = 0 then wait
    if food < rechearch20bFOOD and language = 1 then wait
    if RECHEARCHpoint < rechearch20bPDR and language = 0 then wait
    if RECHEARCHpoint < rechearch20bPDR and language = 1 then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch20bPDR : archerUPGRADE2 = 1 : bois = int(bois - rechearch20bBOIS) : food = int(food - rechearch20bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]

    [rechearch21b]
    if openRechearch = 1 then close #recheach
    WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch21bBOIS = 6000 : rechearch21bFOOD = 9000 : rechearch21bFER = 0 : rechearch21bPDR = 80 : openRechearch = 1
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and archerUPGRADE3 = 0 and language = 0 then button #recheach.1, "Rechercher" , [recheach21bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and archerUPGRADE3 = 0 and language = 1 then button #recheach.1, "Search" , [recheach21bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16;backcolor black;color white"
    print #recheach.map, "place 140 60 ;\"; "Amélioration Archers III"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration augmente la capacité defensive et offensive\de vos archers en leur conférent un meilleur équipement.\\Effet : Aumgente l'attaque, la défense et la vie de vos archers"
        if archerUPGRADE3 = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :\Bois : ";rechearch21bBOIS;"\Nourriture : ";rechearch21bFOOD;"\Points de recherche : ";rechearch21bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if archerUPGRADE3 = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration augmente la capacité defensive et offensive\de vos archers en leur conférent un meilleur équipement.\\Effet : Aumgente l'attaque, la défense et la vie de vos archers"
        if archerUPGRADE3 = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :\Wood : ";rechearch21bBOIS;"\Food : ";rechearch21bFOOD;"\Research Points : ";rechearch21bPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if archerUPGRADE3 = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach21bON]
    if bois < rechearch21bBOIS and language = 0 then wait
    if bois < rechearch21bBOIS and language = 1 then wait
    if food < rechearch21bFOOD and language = 0 then wait
    if food < rechearch21bFOOD and language = 1 then wait
    if RECHEARCHpoint < rechearch21bPDR and language = 0 then wait
    if RECHEARCHpoint < rechearch21bPDR and language = 1 then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch21bPDR : archerUPGRADE3 = 1 : bois = int(bois - rechearch21bBOIS) : food = int(food - rechearch21bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]


    [rechearch22b]
    if openRechearch = 1 then close #recheach
    WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch22bBOIS = 1000 : rechearch22bFOOD = 2000 : rechearch22bFER = 0 : rechearch22bPDR = 25 : openRechearch = 1
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and hommeDarmeUPGRADE1 = 0 and language = 0 then button #recheach.1, "Rechercher" , [recheach22bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and hommeDarmeUPGRADE1 = 0 and language = 1 then button #recheach.1, "Search" , [recheach22bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16;backcolor black;color white"
    print #recheach.map, "place 110 60 ;\"; "Amélioration Homme d'arme I"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration augmente la capacité defensive et offensive\de vos hommes d'arme en leur conférent un meilleur équipement.\\Effet : Aumgente l'attaque, la défense et la vie de vos hommes d'arme"
        if hommeDarmeUPGRADE1 = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :\Bois : ";rechearch22bBOIS;"\Nourriture : ";rechearch22bFOOD;"\Points de recherche : ";rechearch22bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if hommeDarmeUPGRADE1 = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration augmente la capacité defensive et offensive\de vos hommes d'arme en leur conférent un meilleur équipement.\\Effet : Aumgente l'attaque, la défense et la vie de vos hommes d'arme"
        if hommeDarmeUPGRADE1 = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :\Wood : ";rechearch22bBOIS;"\Food : ";rechearch22bFOOD;"\Research Points : ";rechearch22bPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if hommeDarmeUPGRADE1 = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach22bON]
    if bois < rechearch22bBOIS and language = 0 then wait
    if bois < rechearch22bBOIS and language = 1 then wait
    if food < rechearch22bFOOD and language = 0 then wait
    if food < rechearch22bFOOD and language = 1 then wait
    if RECHEARCHpoint < rechearch22bPDR and language = 0 then wait
    if RECHEARCHpoint < rechearch22bPDR and language = 1 then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch22bPDR : hommeDarmeUPGRADE1 = 1 : bois = int(bois - rechearch22bBOIS) : food = int(food - rechearch22bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]


    [rechearch23b]
    if openRechearch = 1 then close #recheach
    WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch23bBOIS = 2000 : rechearch23bFOOD = 6000 : rechearch23bFER = 0 : rechearch23bPDR = 40 : openRechearch = 1
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and hommeDarmeUPGRADE2 = 0 and language = 0 then button #recheach.1, "Rechercher" , [recheach23bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and hommeDarmeUPGRADE2 = 0 and language = 1 then button #recheach.1, "Search" , [recheach23bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16;backcolor black;color white"
    print #recheach.map, "place 110 60 ;\"; "Amélioration Homme d'arme II"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration augmente la capacité defensive et offensive\de vos hommes d'arme en leur conférent un meilleur équipement.\\Effet : Aumgente l'attaque, la défense et la vie de vos hommes d'arme"
        if hommeDarmeUPGRADE2 = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :\Bois : ";rechearch23bBOIS;"\Nourriture : ";rechearch23bFOOD;"\Points de recherche : ";rechearch23bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if hommeDarmeUPGRADE2 = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration augmente la capacité defensive et offensive\de vos hommes d'arme en leur conférent un meilleur équipement.\\Effet : Aumgente l'attaque, la défense et la vie de vos hommes d'arme"
        if hommeDarmeUPGRADE2 = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :\Wood : ";rechearch23bBOIS;"\Food : ";rechearch23bFOOD;"\Research Points : ";rechearch23bPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if hommeDarmeUPGRADE2 = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach23bON]
    if bois < rechearch23bBOIS and language = 0 then wait
    if bois < rechearch23bBOIS and language = 1 then wait
    if food < rechearch23bFOOD and language = 0 then wait
    if food < rechearch23bFOOD and language = 1 then wait
    if RECHEARCHpoint < rechearch23bPDR and language = 0 then wait
    if RECHEARCHpoint < rechearch23bPDR and language = 1 then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch23bPDR : hommeDarmeUPGRADE2 = 1 : bois = int(bois - rechearch23bBOIS) : food = int(food - rechearch23bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]


    [rechearch24b]
    if openRechearch = 1 then close #recheach
    WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch24bBOIS = 3000 : rechearch24bFOOD = 10000 : rechearch24bFER = 0 : rechearch24bPDR = 75 : openRechearch = 1
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and hommeDarmeUPGRADE3 = 0 and language = 0 then button #recheach.1, "Rechercher" , [recheach24bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and hommeDarmeUPGRADE3 = 0 and language = 1 then button #recheach.1, "Search" , [recheach24bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16;backcolor black;color white"
    print #recheach.map, "place 110 60 ;\"; "Amélioration Homme d'arme III"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration augmente la capacité defensive et offensive\de vos hommes d'arme en leur conférent un meilleur équipement.\\Effet : Aumgente l'attaque, la défense et la vie de vos hommes d'arme"
        if hommeDarmeUPGRADE3 = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :\Bois : ";rechearch24bBOIS;"\Nourriture : ";rechearch24bFOOD;"\Points de recherche : ";rechearch24bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if hommeDarmeUPGRADE3 = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration augmente la capacité defensive et offensive\de vos hommes d'arme en leur conférent un meilleur équipement.\\Effet : Aumgente l'attaque, la défense et la vie de vos hommes d'arme"
        if hommeDarmeUPGRADE3 = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :\Wood : ";rechearch24bBOIS;"\Food : ";rechearch24bFOOD;"\Research Points : ";rechearch24bPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if hommeDarmeUPGRADE3 = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach24bON]
    if bois < rechearch24bBOIS and language = 0 then wait
    if bois < rechearch24bBOIS and language = 1 then wait
    if food < rechearch24bFOOD and language = 0 then wait
    if food < rechearch24bFOOD and language = 1 then wait
    if RECHEARCHpoint < rechearch24bPDR and language = 0 then wait
    if RECHEARCHpoint < rechearch24bPDR and language = 1 then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch24bPDR : hommeDarmeUPGRADE3 = 1 : bois = int(bois - rechearch24bBOIS) : food = int(food - rechearch24bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]


    [rechearch25a]
    if openRechearch = 1 then close #recheach
    WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch25aBOIS = 2000 : rechearch25aFOOD = 1000 : rechearch25aFER = 0 : rechearch25aPDR = 10 : openRechearch = 1
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and UPnatality = 0 and language = 0 then button #recheach.1, "Rechercher" , [recheach25aON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and UPnatality = 0 and language = 1 then button #recheach.1, "Search" , [recheach25aON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16;backcolor black;color white"
    print #recheach.map, "place 110 60 ;\"; "Amélioration de la natalité I"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration améliore la qualité de vie et l'hygiène de votre peuple.\\Effet : Augmente le minimum de votre natalité de 1 par cycle."
        if UPnatality = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :\Bois : ";rechearch25aBOIS;"\Nourriture : ";rechearch25aFOOD;"\Points de recherche : ";rechearch25aPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if UPnatality = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "This improvement improves the quality of life and hygiene of your people.\\Effect : Increase your minimum birth rate by 1 per cycle."
        if UPnatality = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :\Wood : ";rechearch25aBOIS;"\Food : ";rechearch25aFOOD;"\Research Points : ";rechearch25aPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if UPnatality = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach25aON]
    if bois < rechearch25aBOIS and language = 0 then wait
    if bois < rechearch25aBOIS and language = 1 then wait
    if food < rechearch25aFOOD and language = 0 then wait
    if food < rechearch25aFOOD and language = 1 then wait
    if RECHEARCHpoint < rechearch25aPDR and language = 0 then wait
    if RECHEARCHpoint < rechearch25aPDR and language = 1 then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch25aPDR : UPnatality = 1 : bois = int(bois - rechearch25aBOIS) : food = int(food - rechearch25aFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]


    [rechearch25b]
    if openRechearch = 1 then close #recheach
    WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch25bBOIS = 5000 : rechearch25bFOOD = 3000 : rechearch25bFER = 0 : rechearch25bPDR = 25 : openRechearch = 1
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and UPnatality = 1 and language = 0 then button #recheach.1, "Rechercher" , [recheach25bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and UPnatality = 1 and language = 1 then button #recheach.1, "Search" , [recheach25bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16;backcolor black;color white"
    print #recheach.map, "place 110 60 ;\"; "Amélioration de la natalité II"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration améliore la qualité de vie et l'hygiène de votre peuple.\\Effet : Augmente le minimum de votre natalité de 2 par cycle."
        if UPnatality = 1 then print #recheach.map, "place 20 270 ;\"; "Coût :\Bois : ";rechearch25bBOIS;"\Nourriture : ";rechearch25bFOOD;"\Points de recherche : ";rechearch25bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if UPnatality = 2 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "This improvement improves the quality of life and hygiene of your people.\\Effect : Increase your minimum birth rate by 1 per cycle."
        if UPnatality = 1 then print #recheach.map, "place 20 270 ;\"; "Cost :\Wood : ";rechearch25bBOIS;"\Food : ";rechearch25bFOOD;"\Research Points : ";rechearch25bPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if UPnatality = 2 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach25bON]
    if bois < rechearch25bBOIS and language = 0 then wait
    if bois < rechearch25bBOIS and language = 1 then wait
    if food < rechearch25bFOOD and language = 0 then wait
    if food < rechearch25bFOOD and language = 1 then wait
    if RECHEARCHpoint < rechearch25bPDR and language = 0 then wait
    if RECHEARCHpoint < rechearch25bPDR and language = 1 then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch25bPDR : UPnatality = 2 : bois = int(bois - rechearch25bBOIS) : food = int(food - rechearch25bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]


    [rechearch25c]
    if openRechearch = 1 then close #recheach
    WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch25cBOIS = 8000 : rechearch25cFOOD = 4000 : rechearch25cFER = 0 : rechearch25cPDR = 60 : openRechearch = 1
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and UPnatality = 2 and language = 0 then button #recheach.1, "Rechercher" , [recheach25cON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and UPnatality = 2 and language = 1 then button #recheach.1, "Search" , [recheach25cON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16;backcolor black;color white"
    print #recheach.map, "place 110 60 ;\"; "Amélioration de la natalité III"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration améliore la qualité de vie et l'hygiène de votre peuple.\\Effet : Augmente le minimum de votre natalité de 2 par cycle."
        if UPnatality = 2 then print #recheach.map, "place 20 270 ;\"; "Coût :\Bois : ";rechearch25cBOIS;"\Nourriture : ";rechearch25cFOOD;"\Points de recherche : ";rechearch25cPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if UPnatality = 3 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "This improvement improves the quality of life and hygiene of your people.\\Effect : Increase your minimum birth rate by 1 per cycle."
        if UPnatality = 2 then print #recheach.map, "place 20 270 ;\"; "Cost :\Wood : ";rechearch25cBOIS;"\Food : ";rechearch25cFOOD;"\Research Points : ";rechearch25cPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if UPnatality = 3 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach25cON]
    if bois < rechearch25cBOIS and language = 0 then wait
    if bois < rechearch25cBOIS and language = 1 then wait
    if food < rechearch25cFOOD and language = 0 then wait
    if food < rechearch25cFOOD and language = 1 then wait
    if RECHEARCHpoint < rechearch25cPDR and language = 0 then wait
    if RECHEARCHpoint < rechearch25cPDR and language = 1 then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch25cPDR : UPnatality = 3 : bois = int(bois - rechearch25cBOIS) : food = int(food - rechearch25cFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]


    [rechearch25d]
    if openRechearch = 1 then close #recheach
    WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch25dBOIS = 15000 : rechearch25dFOOD = 10000 : rechearch25dFER = 0 : rechearch25dPDR = 100 : openRechearch = 1
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and UPnatality = 3 and language = 0 then button #recheach.1, "Rechercher" , [recheach25dON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and UPnatality = 3 and language = 1 then button #recheach.1, "Search" , [recheach25dON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16;backcolor black;color white"
    print #recheach.map, "place 110 60 ;\"; "Amélioration de la natalité IV"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration améliore la qualité de vie et l'hygiène de votre peuple.\\Effet : Augmente le minimum de votre natalité de 2 par cycle."
        if UPnatality = 3 then print #recheach.map, "place 20 270 ;\"; "Coût :\Bois : ";rechearch25dBOIS;"\Nourriture : ";rechearch25dFOOD;"\Points de recherche : ";rechearch25dPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if UPnatality = 4 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "This improvement improves the quality of life and hygiene of your people.\\Effect : Increase your minimum birth rate by 1 per cycle."
        if UPnatality = 3 then print #recheach.map, "place 20 270 ;\"; "Cost :\Wood : ";rechearch25dBOIS;"\Food : ";rechearch25dFOOD;"\Research Points : ";rechearch25dPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if UPnatality = 4 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach25dON]
    if bois < rechearch25dBOIS and language = 0 then wait
    if bois < rechearch25dBOIS and language = 1 then wait
    if food < rechearch25dFOOD and language = 0 then wait
    if food < rechearch25dFOOD and language = 1 then wait
    if RECHEARCHpoint < rechearch25dPDR and language = 0 then wait
    if RECHEARCHpoint < rechearch25dPDR and language = 1 then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch25dPDR : UPnatality = 4 : bois = int(bois - rechearch25dBOIS) : food = int(food - rechearch25dFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]


    [rechearch26a]
    if openRechearch = 1 then close #recheach
    WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch26aBOIS = 2000 : rechearch26aFOOD = 1000 : rechearch26aFER = 0 : rechearch26aPDR = 15 : openRechearch = 1
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and explorateurUPGRADE = 0 and language = 0 then button #recheach.1, "Rechercher" , [recheach26aON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and explorateurUPGRADE = 0 and language = 1 then button #recheach.1, "Search" , [recheach26aON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16;backcolor black;color white"
    print #recheach.map, "place 110 60 ;\"; "Amélioration des explorateurs I"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration améliore l'équipement des explorateurs.\\Effet : Augmente les PV, l'attaque et la défense des explorateurs."
        if explorateurUPGRADE = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :\Bois : ";rechearch26aBOIS;"\Nourriture : ";rechearch26aFOOD;"\Points de recherche : ";rechearch26aPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if explorateurUPGRADE = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "This improvement upgrade the explorer's stuff.\\Effect : Increase explorer's hp, atk and armor."
        if explorateurUPGRADE = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :\Wood : ";rechearch26aBOIS;"\Food : ";rechearch26aFOOD;"\Research Points : ";rechearch26aPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if explorateurUPGRADE = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach26aON]
    if bois < rechearch26aBOIS and language = 0 then wait
    if bois < rechearch26aBOIS and language = 1 then wait
    if food < rechearch26aFOOD and language = 0 then wait
    if food < rechearch26aFOOD and language = 1 then wait
    if RECHEARCHpoint < rechearch26aPDR and language = 0 then wait
    if RECHEARCHpoint < rechearch26aPDR and language = 1 then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch26aPDR : explorateurUPGRADE = 1 : bois = int(bois - rechearch26aBOIS) : food = int(food - rechearch26aFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]


    [rechearch26b]
    if openRechearch = 1 then close #recheach
    WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch26bBOIS = 5000 : rechearch26bFOOD = 5000 : rechearch26bFER = 0 : rechearch26bPDR = 40 : openRechearch = 1
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and explorateurUPGRADE = 1 and language = 0 then button #recheach.1, "Rechercher" , [recheach26bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and explorateurUPGRADE = 1 and language = 1 then button #recheach.1, "Search" , [recheach26bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16;backcolor black;color white"
    print #recheach.map, "place 110 60 ;\"; "Amélioration des explorateurs II"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration améliore encore l'équipement des explorateurs.\\Effet : Augmente les PV, l'attaque et la défense des explorateurs."
        if explorateurUPGRADE = 1 then print #recheach.map, "place 20 270 ;\"; "Coût :\Bois : ";rechearch26bBOIS;"\Nourriture : ";rechearch26bFOOD;"\Points de recherche : ";rechearch26bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if explorateurUPGRADE = 2 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "This improvement upgrade the explorer's stuff.\\Effect : Increase explorer's hp, atk and armor."
        if explorateurUPGRADE = 1 then print #recheach.map, "place 20 270 ;\"; "Cost :\Wood : ";rechearch26bBOIS;"\Food : ";rechearch26bFOOD;"\Research Points : ";rechearch26bPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if explorateurUPGRADE = 2 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach26bON]
    if bois < rechearch26bBOIS and language = 0 then wait
    if bois < rechearch26bBOIS and language = 1 then wait
    if food < rechearch26bFOOD and language = 0 then wait
    if food < rechearch26bFOOD and language = 1 then wait
    if RECHEARCHpoint < rechearch26bPDR and language = 0 then wait
    if RECHEARCHpoint < rechearch26bPDR and language = 1 then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch26bPDR : explorateurUPGRADE = 2 : bois = int(bois - rechearch26bBOIS) : food = int(food - rechearch26bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]


    [rechearch26c]
    if openRechearch = 1 then close #recheach
    WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch26cBOIS = 9000 : rechearch26cFOOD = 14000 : rechearch26cFER = 0 : rechearch26cPDR = 60 : openRechearch = 1
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and explorateurUPGRADE = 2 and language = 0 then button #recheach.1, "Rechercher" , [recheach26cON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and explorateurUPGRADE = 2 and language = 1 then button #recheach.1, "Search" , [recheach26cON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16;backcolor black;color white"
    print #recheach.map, "place 110 60 ;\"; "Amélioration des explorateurs III"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration améliore encore l'équipement des explorateurs.\\Effet : Augmente les PV, l'attaque et la défense des explorateurs."
        if explorateurUPGRADE = 2 then print #recheach.map, "place 20 270 ;\"; "Coût :\Bois : ";rechearch26cBOIS;"\Nourriture : ";rechearch26cFOOD;"\Points de recherche : ";rechearch26cPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if explorateurUPGRADE = 3 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "This improvement upgrade the explorer's stuff.\\Effect : Increase explorer's hp, atk and armor."
        if explorateurUPGRADE = 2 then print #recheach.map, "place 20 270 ;\"; "Cost :\Wood : ";rechearch26cBOIS;"\Food : ";rechearch26cFOOD;"\Research Points : ";rechearch26cPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if explorateurUPGRADE = 3 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach26cON]
    if bois < rechearch26cBOIS and language = 0 then wait
    if bois < rechearch26cBOIS and language = 1 then wait
    if food < rechearch26cFOOD and language = 0 then wait
    if food < rechearch26cFOOD and language = 1 then wait
    if RECHEARCHpoint < rechearch26cPDR and language = 0 then wait
    if RECHEARCHpoint < rechearch26cPDR and language = 1 then wait
    RECHEARCHpoint= RECHEARCHpoint - rechearch26cPDR : explorateurUPGRADE = 3 : bois = int(bois - rechearch26cBOIS) : food = int(food - rechearch26cFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]


    [rechearch27a]
    if openRechearch = 1 then close #recheach
    WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch27aBOIS = 5000 : rechearch27aFOOD = 2000 : rechearch27aFER = 0 : rechearch27aPDR = 20 : openRechearch = 1
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and fortificationsUP = 0 and language = 0 then button #recheach.1, "Rechercher" , [recheach27aON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and fortificationsUP = 0 and language = 1 then button #recheach.1, "Search" , [recheach27aON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16;backcolor black;color white"
    print #recheach.map, "place 110 60 ;\"; "Amélioration des fortications I"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Cette amélioration la struture de vos fortifications les rendant plus resistantes contre les \attaques.\\Effet : Augmente la résistance des fortifications de 2000."
        if fortificationsUP = 0 then print #recheach.map, "place 20 270 ;\"; "Coût :\Bois : ";rechearch27aBOIS;"\Nourriture : ";rechearch27aFOOD;"\Points de recherche : ";rechearch27aPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if fortificationsUP = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "This improvement upgrade your fortifications armor agains attack.\\Effect : Increase fortifications points by 2000."
        if fortificationsUP = 0 then print #recheach.map, "place 20 270 ;\"; "Cost :\Wood : ";rechearch27aBOIS;"\Food : ";rechearch27aFOOD;"\Research Points : ";rechearch27aPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if fortificationsUP = 1 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach27aON]
    if bois < rechearch27aBOIS and language = 0 then wait
    if bois < rechearch27aBOIS and language = 1 then wait
    if food < rechearch27aFOOD and language = 0 then wait
    if food < rechearch27aFOOD and language = 1 then wait
    if RECHEARCHpoint < rechearch27aPDR and language = 0 then wait
    if RECHEARCHpoint < rechearch27aPDR and language = 1 then wait
    hpFortifications = hpFortifications + 2000
    RECHEARCHpoint= RECHEARCHpoint - rechearch27aPDR : fortificationsUP = 1 : bois = int(bois - rechearch27aBOIS) : food = int(food - rechearch27aFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]


    [rechearch27b]
    if openRechearch = 1 then close #recheach
    WindowWidth=454 : WindowHeight=405 : UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    condition = 1 : rechearch27bBOIS = 20000 : rechearch27bFOOD = 5000 : rechearch27bFER = 0 : rechearch27bPDR = 80 : openRechearch = 1
    stylebits #recheach.map, 0, _WS_BORDER, 0, 0
    graphicbox #recheach.map, -5, -5, WindowWidth+5, WindowHeight+5
    if condition = 1 and fortificationsUP = 1 and language = 0 then button #recheach.1, "Rechercher" , [recheach27bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if condition = 1 and fortificationsUP = 1 and language = 1 then button #recheach.1, "Search" , [recheach27bON], UL, int(WindowWidth/2-45), 330, 100, 25
    if language = 0 then button #recheach.2, "Fermer", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    if language = 1 then button #recheach.2, "Close", [recheach], UL, int(WindowWidth/2-25), 365, 60, 25
    Open " " for window_popup as #recheach
    print #recheach.map, "down;fill black"
    print #recheach.map, "drawbmp fond 5 5"
    print #recheach.map, "font Times New Roman 16;backcolor black;color white"
    print #recheach.map, "place 110 60 ;\"; "Amélioration des fortications II"
    print #recheach.map, "font Times New Roman 8"
    if language = 0 then
        print #recheach.map, "place 20 140 ;\"; "Cette recherche améliore la struture de vos fortifications les rendant plus resistantes \contre les attaques.\\Effet : Augmente la résistance des fortifications de 10000."
        if fortificationsUP = 1 then print #recheach.map, "place 20 270 ;\"; "Coût :\Bois : ";rechearch27bBOIS;"\Nourriture : ";rechearch27bFOOD;"\Points de recherche : ";rechearch27bPDR;"  ( disponible : "; RECHEARCHpoint;" ) "
        if fortificationsUP = 2 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "Cette recherche est déjà aquise"
    end if
    if language = 1 then
        print #recheach.map, "place 20 140 ;\"; "This improvement upgrade your fortifications armor agains attack.\\Effect : Increase fortifications points by 10000."
        if fortificationsUP = 1 then print #recheach.map, "place 20 270 ;\"; "Cost :\Wood : ";rechearch27bBOIS;"\Food : ";rechearch27bFOOD;"\Research Points : ";rechearch27bPDR;"  ( available : "; RECHEARCHpoint;" ) "
        if fortificationsUP = 2 then print #recheach.map, "font Times New Roman 12; color yellow" : print #recheach.map, "place 135 320 ;\"; "This research is already acquired"
    end if
    wait
    [recheach27bON]
    if bois < rechearch27bBOIS and language = 0 then wait
    if bois < rechearch27bBOIS and language = 1 then wait
    if food < rechearch27bFOOD and language = 0 then wait
    if food < rechearch27bFOOD and language = 1 then wait
    if RECHEARCHpoint < rechearch27bPDR and language = 0 then wait
    if RECHEARCHpoint < rechearch27bPDR and language = 1 then wait
    hpFortifications = hpFortifications + 10000
    RECHEARCHpoint= RECHEARCHpoint - rechearch27bPDR : fortificationsUP = 2 : bois = int(bois - rechearch27bBOIS) : food = int(food - rechearch27bFOOD) : openRechearch = 0
    close #recheach : goto [batimentScHUMAIN2]



'---------------------------------------------------------------------------------------------------------------------------------
    [SmBuilder]
    if Sm = 1 then close #Sm
    Sm = 1
    WindowWidth=393 : WindowHeight=322
    UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-100) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    BackgroundColor$ = "white" : ForegroundColor$ = "black"
    graphicbox #Sm.map, -5, -5, WindowWidth+5, WindowHeight+5
    if lvlbatimentCentreMilitaire = 0 then
        if language = 0 then button #Sm.bt1, "Construire", [buildSm], UL, 125, 280, 60,25
        if language = 1 then button #Sm.bt1, "Build", [buildSm], UL, 125, 280, 60,25
    else
        if language = 0 then button #Sm.bt1, "Améliorer", [buildSm], UL, 125, 280, 60,25
        if language = 1 then button #Sm.bt1, "Upgrade", [buildSm], UL, 125, 280, 60,25
    end if
    if language = 0 then button #Sm.d1, "Fermer", [buildSmNO], UL, 210, 280, 60, 25
    if language = 1 then button #Sm.d1, "Close", [buildSmNO], UL, 210, 280, 60, 25
    bmpbutton #Sm.d1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\droite1bis.bmp", [w], UL, 386, 0
    bmpbutton #Sm.g1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\gauche1bis.bmp", [w], UL, 0, 0
    bmpbutton #Sm.h1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\haut1bis.bmp", [w], UL, 0, 0
    bmpbutton #Sm.b1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\bas1bis.bmp", [w], UL, 0, 315
    noticeMILITup = popMILITlim + int(popMILITlim/10)
    if language = 0 then statictext #Sm.para1, "Vous pouvez entraîner et perfectionner vos troupes dans ce bâtiment. Chaque niveau d'amélioration du centre de commandement augmentera le nombre de troupes pouvant être gérées dans la ville. Pour pourrez avoir jusqu'à "; noticeMILITup ;" soldats au prochain niveau.", 15, 100, 360,70
    if language = 1 then statictext #Sm.para1, "You can train and upgrade your troops in this building. Each level of command center improvement will increase the number of troops that can be managed in the city to ";noticeMILITup; " soldiers at the next level.", 15, 100, 370,70
    Open " " for window_popup as #Sm
    [refreshBAT3]
    #Sm.map , "backcolor white"
     #Sm.map , "down"
    print #Sm.map, "font Times New Roman 12; color black"
    if language = 0 then
    print #Sm.map, "place 100 60 ;\"; "Construire un centre militaire ";"( ";lvlbatimentCentreMilitaire;" )"
    print #Sm.map, "font Times New Roman 8; color black"
    print #Sm.map, "place 25 230 ;\"; "Ressources nécéssaires :"
    print #Sm.map, "place 25 245 ;\"; "Bois : ";coutSmBOIS
    print #Sm.map, "place 25 260 ;\"; "Métal : ";coutSmMETAL
    end if
    if language = 1 then
    print #Sm.map, "place 100 60 ;\"; "Build a military center ";"( ";lvlbatimentCentreMilitaire;" )"
    print #Sm.map, "font Times New Roman 8; color black"
    print #Sm.map, "place 25 230 ;\"; "Resources needed :"
    print #Sm.map, "place 25 245 ;\"; "Wood : ";coutSmBOIS
    print #Sm.map, "place 25 260 ;\"; "Metal : ";coutSmMETAL
    end if
    noticeMILITup = popMILITlim + int(popMILITlim/10)
    if language = 0 then print #Sm.para1, "Vous pouvez entraîner et perfectionner vos troupes dans ce bâtiment. Chaque niveau d'amélioration du centre de commandement augmentera le nombre de troupes pouvant être gérées dans la ville. Pour pourrez avoir jusqu'à "; noticeMILITup ;" soldats au prochain niveau."
    if language = 1 then print #Sm.para1, "You can train and upgrade your troops in this building. Each level of command center improvement will increase the number of troops that can be managed in the city to ";noticeMILITup; " soldiers at the next level."
    print #Sm.para1, "!font times_new_roman 9 bold italic"
    print #Sm.d1, "disable"
    print #Sm.g1, "disable"
    print #Sm.h1, "disable"
    print #Sm.b1, "disable"
    wait

    [buildSmNO]
    close #Sm : Sm = 0 : wait

    [SimpleClickSm]
    mX = MouseX
    mY = MouseY
    #Sm.map, "place 120 290 ;\"; "                                                                                                     "
    wait


    [buildSm]
    if bois < coutSmBOIS then
        print #Sm.map, "font Times New Roman 8"
        if language = 0 then print #Sm.map, "place 130 90 ;\"; "Vous n'avez pas assez de bois"
        if language = 1 then print #Sm.map, "place 130 90 ;\"; "You do not have enough wood"
        wait
    end if
    if minerais < coutSmMETAL then
        print #Sm.map, "font Times New Roman 8"
        if language = 0 then print #Sm.map, "place 130 90 ;\"; "Vous n'avez pas assez de métal"
        if language = 1 then print #Sm.map, "place 130 90 ;\"; "You do not have enough metal"
        wait
    end if
    bois = bois - coutSmBOIS
    batimentBUILDcm = 1
    if language = 0 then print #Sm.bt1, "Améliorer"
    if language = 1 then print #Sm.bt1, "Upgrade"
    lvlbatimentCentreMilitaire = lvlbatimentCentreMilitaire +1
    popMILITlim = popMILITlim + 3
    coutSmBOIS = coutSmBOISindex + (int(lvlbatimentCentreMilitaire*370))
    coutSmMETAL = (20*(int(lvlbatimentCentreMilitaire)))
    if RECHEARCHmetal < 1 then coutSmMETAL = 0
    if bat1 = 1 then close #bat1
    bat1 = 0
    securityRELOADcity = 1
    if lvlbatimentCentreMilitaire = 1 then
        close #villeJ1
        gosub [villeJ1]
    end if
    print #villeJ1.map, "place 126 27 ;\"; "Centre militaire\\         Niv ";lvlbatimentCentreMilitaire; "  "
    goto [refreshBAT3]


    [batimentSmHUMAIN]
    if bat1 = 1 then close #bat1
    bat1 = 1
    popMILIT = int(NombreHommeDarme + NombreLancier + NombreFrondeur + NombreArcher + NombreEXPLORATEUR)
    centreMilitaireOpen = 1
    terrestreUNITselection = 1
    nonDispo$ = "Non Disponible"
    noDispo$ = "Not available"
    WindowWidth=770 : WindowHeight=570
    UpperLeftX=int((DisplayWidth-WindowWidth)/2)-112 : UpperLeftY=int((DisplayHeight-WindowHeight)/2)+40
    BackgroundColor$ = "black" : ForegroundColor$ = "white"
    stylebits #bat1.map, 0, _WS_BORDER, 0, 0
    graphicbox #bat1.map, -5, -5, WindowWidth+5, WindowHeight+5
    Open " " for window_popup as #bat1
    #bat1, "trapclose [AnimWindowCloseCENTREmilitaire]"
    #bat1.map, "down; when leftButtonDown [SimpleClickSM]"
    print #bat1.map, "drawbmp fond1b 5 5"
    print #bat1.map, "drawbmp h1 70 105"
    print #bat1.map, "drawbmp h7 70 462"
    print #bat1.map, "drawbmp h2 70 170"
    print #bat1.map, "drawbmp h3 70 240"
    print #bat1.map, "drawbmp h4 70 315"
    r = 183 : v = 228 : b = 240
    #bat1.map , "backcolor ";r;" ";v;" ";b
    print #bat1.map, "font Times New Roman 20; color black"
    print #bat1.map, "place 280 557 ;\"; "RETOUR EN VILLE"
    print #bat1.map, "font Times New Roman 20; color brown;backcolor white"
    print #bat1.map, "place 240 50 ;\"; "Places disponibles : "; int(popMILITlim-popMILIT); " / "; popMILITlim
    print #bat1.map, "font Times New Roman 6; color black"
    print #bat1.map, "place 120 110 ;\"; vieHommedarme
    print #bat1.map, "place 120 124 ;\"; offHommedarme
    print #bat1.map, "place 120 137 ;\"; defHommedarme
    print #bat1.map, "place 120 467 ;\"; vieEXPLORATEUR
    print #bat1.map, "place 120 481 ;\"; offEXPLORATEUR
    print #bat1.map, "place 120 494 ;\"; defEXPLORATEUR
    print #bat1.map, "place 120 175 ;\"; vielancier
    print #bat1.map, "place 120 189 ;\"; offlancier
    print #bat1.map, "place 120 202 ;\"; deflancier
    print #bat1.map, "place 120 318 ;\"; viearcher
    print #bat1.map, "place 120 332 ;\"; offarcher
    print #bat1.map, "place 120 345 ;\"; defarcher
    print #bat1.map, "place 120 246 ;\"; viefrondeur
    print #bat1.map, "place 120 260 ;\"; offfrondeur
    print #bat1.map, "place 120 273 ;\"; deffrondeur
    print #bat1.map, "place 165 124 ;\"; coutBOIShommedarme
    print #bat1.map, "place 165 137 ;\"; coutFOODhommedarme
    print #bat1.map, "place 165 481 ;\"; coutBOISexplorateur
    print #bat1.map, "place 165 494 ;\"; coutFOODexplorateur
    print #bat1.map, "place 165 189 ;\"; coutBOISlancier
    print #bat1.map, "place 165 202 ;\"; coutFOODlancier
    print #bat1.map, "place 165 260 ;\"; coutBOISfrondeur
    print #bat1.map, "place 165 273 ;\"; coutFOODfrondeur
    print #bat1.map, "place 165 332 ;\"; coutBOISarcher
    print #bat1.map, "place 165 345 ;\"; coutFOODarcher

    if hommeDarmeUPGRADE1 = 0 then lvlUNIT1j$ = "basique"
    if hommeDarmeUPGRADE1 = 1 then lvlUNIT1j$ = "niveau 1"
    if hommeDarmeUPGRADE2 = 1 then lvlUNIT1j$ = "niveau 2"
    if hommeDarmeUPGRADE3 = 1 then lvlUNIT1j$ = "niveau 3"

    if lancierUPGRADE1 = 0 then lvlUNIT2j$ = "basique"
    if lancierUPGRADE1 = 1 then lvlUNIT2j$ = "niveau 1"
    if lancierUPGRADE2 = 1 then lvlUNIT2j$ = "niveau 2"
    if lancierUPGRADE3 = 1 then lvlUNIT2j$ = "niveau 3"

    if frondeurUPGRADE1 = 0 then lvlUNIT3j$ = "basique"
    if frondeurUPGRADE1 = 1 then lvlUNIT3j$ = "niveau 1"
    if frondeurUPGRADE2 = 1 then lvlUNIT3j$ = "niveau 2"
    if frondeurUPGRADE3 = 1 then lvlUNIT3j$ = "niveau 3"

    if archerUPGRADE1 = 0 then lvlUNIT4j$ = "basique"
    if archerUPGRADE1 = 1 then lvlUNIT4j$ = "niveau 1"
    if archerUPGRADE2 = 1 then lvlUNIT4j$ = "niveau 2"
    if archerUPGRADE3 = 1 then lvlUNIT4j$ = "niveau 3"

    if explorateurUPGRADE = 0 then lvlUNIT5j$ = "basique"
    if explorateurUPGRADE = 1 then lvlUNIT5j$ = "niveau 1"
    if explorateurUPGRADE = 2 then lvlUNIT5j$ = "niveau 2"
    if explorateurUPGRADE = 3 then lvlUNIT5j$ = "niveau 3"

    print #bat1.map, "font Times New Roman 9; color black"
    if language = 0 then print #bat1.map, "place 75 93 ;\"; "Bagareur ";lvlUNIT1j$
    if language = 1 then print #bat1.map, "place 75 93 ;\"; "Fighter ";lvlUNIT1j$
    print #bat1.map, "place 240 110 ;\"; "Unités entrainées : "; NombreHommeDarme ;" ( ";int(NombreHommeDarme - NombreHommeDarmeSELECTED -( NombreHommeDarmeTERR1 + NombreHommeDarmeTERR2 + NombreHommeDarmeTERR3 + NombreHommeDarmeTERR4 + NombreHommeDarmeTERR5 + NombreHommeDarmeTERR6 + NombreHommeDarmeTERR7 + NombreHommeDarmeTERR8 + NombreHommeDarmeTERR9 + NombreHommeDarmeTERR10 + NombreHommeDarmeTERR11 + NombreHommeDarmeTERR12 + NombreHommeDarmeTERR13 + NombreHommeDarmeTERR14 + NombreHommeDarmeTERR15 + NombreHommeDarmeTERR16 + NombreHommeDarmeTERR17 + NombreHommeDarmeTERR18 + NombreHommeDarmeTERR19 + NombreHommeDarmeTERR20));" dans cette ville )          \Descriptif : Unité de base de toute armée le bagareur est une unitée polyvalente pouvant attaquer ou \défendre. Avec des capacités équilibrés et un coût faible cette unité est idéale pour commencer."
    if language = 0 then print #bat1.map, "place 75 450 ;\"; "Explorateur ";lvlUNIT5j$
    if language = 1 then print #bat1.map, "place 75 450 ;\"; "Explorer ";lvlUNIT5j$
    print #bat1.map, "place 240 467 ;\"; "Unités entrainées : "; NombreEXPLORATEUR ;" ( ";int(NombreEXPLORATEUR - NombreEXPLORATEURSELECTED -( NombreEXPLORATEURTERR1 + NombreEXPLORATEURTERR2 + NombreEXPLORATEURTERR3 + NombreEXPLORATEURTERR4 + NombreEXPLORATEURTERR5 + NombreEXPLORATEURTERR6 + NombreEXPLORATEURTERR7 + NombreEXPLORATEURTERR8 + NombreEXPLORATEURTERR9 + NombreEXPLORATEURTERR10 + NombreEXPLORATEURTERR11 + NombreEXPLORATEURTERR12 + NombreEXPLORATEURTERR13 + NombreEXPLORATEURTERR14 + NombreEXPLORATEURTERR15 + NombreEXPLORATEURTERR16 + NombreEXPLORATEURTERR17 + NombreEXPLORATEURTERR18 + NombreEXPLORATEURTERR19 + NombreEXPLORATEURTERR20));" dans cette ville )            \Descriptif : L'explorateur est une unité spécialement équipée pour l'exploration. Au détriment d'armes \lourdes il est résistant et peut défendre une ville ou un territoire si besoin."
    if language = 0 then print #bat1.map, "place 75 159 ;\"; "Lancier ";lvlUNIT2j$
    if language = 1 then print #bat1.map, "place 75 159 ;\"; "Spearman ";lvlUNIT2j$
    if language = 0 then print #bat1.map, "place 75 230 ;\"; "Frondeur ";lvlUNIT3j$
    if language = 1 then print #bat1.map, "place 75 230 ;\"; "Frondeur ";lvlUNIT3j$
    print #bat1.map, "place 80 303 ;\"; "Archer ";lvlUNIT4j$
    if lancierSEARCH = 1 then print #bat1.map, "place 240 175 ;\"; "Unités entrainées : "; NombreLancier ;" ( ";int(NombreLancier - NombreLancierSELECTED -( NombreLancierTERR1 + NombreLancierTERR2 + NombreLancierTERR3 + NombreLancierTERR4 + NombreLancierTERR5 + NombreLancierTERR6 + NombreLancierTERR7 + NombreLancierTERR8 + NombreLancierTERR9 + NombreLancierTERR10 + NombreLancierTERR11 + NombreLancierTERR12 + NombreLancierTERR13 + NombreLancierTERR14 + NombreLancierTERR15 + NombreLancierTERR16 + NombreLancierTERR17 + NombreLancierTERR18 + NombreLancierTERR19 + NombreLancierTERR20));" dans cette ville )            \Descriptif : Le lancier est une unité offensive qui est très efficace en attaque grâce à sa force offensive \élevée mais n'a pas une résistance élevée."
    if lancierSEARCH = 0 then print #bat1.map, "place 240 175 ;\"; "Recherche requise pour débloquer cette unité."
    if frondeurSEARCH = 1 then print #bat1.map, "place 240 246 ;\"; "Unités entrainées : "; NombreFrondeur ;" ( ";int(NombreFrondeur - NombreFrondeurSELECTED -( NombreFrondeurTERR1 + NombreFrondeurTERR2 + NombreFrondeurTERR3 + NombreFrondeurTERR4 + NombreFrondeurTERR5 + NombreFrondeurTERR6 + NombreFrondeurTERR7 + NombreFrondeurTERR8 + NombreFrondeurTERR9 + NombreFrondeurTERR10 + NombreFrondeurTERR11 + NombreFrondeurTERR12 + NombreFrondeurTERR13 + NombreFrondeurTERR14 + NombreFrondeurTERR15 + NombreFrondeurTERR16 + NombreFrondeurTERR17 + NombreFrondeurTERR18 + NombreFrondeurTERR19 + NombreFrondeurTERR20));" dans cette ville )            \Descriptif : Cette unité est principalement utilisée pour attaquer les territoires ennemis. Elle possède une \grande capacité offensive mais est malheureusement dépourvue d'armure lourde."
    if frondeurSEARCH = 0 then print #bat1.map, "place 240 246 ;\"; "Recherche requise pour débloquer cette unité."
    if archerSEARCH = 1 then print #bat1.map, "place 240 318 ;\"; "Unités entrainées : "; NombreArcher ;" ( ";int(NombreArcher - NombreArcherSELECTED -( NombreArcherTERR1 + NombreArcherTERR2 + NombreArcherTERR3 + NombreArcherTERR4 + NombreArcherTERR5 + NombreArcherTERR6 + NombreArcherTERR7 + NombreArcherTERR8 + NombreArcherTERR9 + NombreArcherTERR10 + NombreArcherTERR11 + NombreArcherTERR12 + NombreArcherTERR13 + NombreArcherTERR14 + NombreArcherTERR15 + NombreArcherTERR16 + NombreArcherTERR17 + NombreArcherTERR18 + NombreArcherTERR19 + NombreArcherTERR20));" dans cette ville )            \Descriptif : Une version améliorée des frondeurs. Cette unité possède une bonne capacité défensive et \offensive mais son coût d'entrainement est plus conséquent."
    if archerSEARCH = 0 then print #bat1.map, "place 240 318 ;\"; "Recherche requise pour débloquer cette unité."
    wait

    [noticeH1]
    if language = 0 THEN notice " " + chr$(13) + "Les bagarreurs sont les premières unités disponibles et sont essentiels à la défense de votre village. Ce sont des unités robuste pouvant causé de gros dégâts lorsqu'ils sont nombreux."
    if language = 1 THEN notice " " + chr$(13) + "Brawlers are the first units available and are essential to defending your village. These are sturdy units that can cause a lot of damage when they are numerous."
    wait
    [noticeH2]
    if language = 0 THEN notice " " + chr$(13) + "Les lanciers sont de redoutables guerriers en defense. Avec leur lance et leur armures, ils peuvent maintenir les ennemis a distance tout en infliguant des dégâts conséquents."
    if language = 1 THEN notice " " + chr$(13) + "Brawlers are the first units available and are essential to defending your village. These are sturdy units that can cause a lot of damage when they are numerous."
    wait
    [noticeH3]
    if language = 0 THEN notice " " + chr$(13) + "Les frondeurs sont les premières unités a distances qui se sont répendus. Utilisant des pierres solides comme projectile, leur nombre permet de faire des ravages dans les rangs ennemis mais leur faible armure les rendent très vulnérables."
    if language = 1 THEN notice " " + chr$(13) + "Brawlers are the first units available and are essential to defending your village. These are sturdy units that can cause a lot of damage when they are numerous."
    wait
    [noticeH4]
    if language = 0 THEN notice " " + chr$(13) + "Les archers sont des unités assez polyvalentes. Elle peuvent tenir un siège derrière les remparts face à de nombreux ennemis comme elle peuvent aussi soutenir les troupes dans des combats directs."
    if language = 1 THEN notice " " + chr$(13) + "Brawlers are the first units available and are essential to defending your village. These are sturdy units that can cause a lot of damage when they are numerous."
    wait

    [AnimWindowCloseCENTREmilitaire]
    centreMilitaireOpen = 0
    close #bat1
    wait

    [SimpleClickSM]
    mX = MouseX
    mY = MouseY
   ' notice mX;" / "; mY
    if mX >205 and mX <225 and mY >100 and mY <120 then [hommeDarmeACHAT]
    if mX >205 and mX <225 and mY >120 and mY <140 then [hommeDarmeVENTE]
    if mX >205 and mX <225 and mY >166 and mY <186 then [lancierACHAT]
    if mX >205 and mX <225 and mY >186 and mY <206 then [lancierVENTE]
    if mX >205 and mX <225 and mY >240 and mY <260 then [frondeurACHAT]
    if mX >205 and mX <225 and mY >260 and mY <280 then [frondeurVENTE]
    if mX >205 and mX <225 and mY >308 and mY <328 then [ArcherACHAT]
    if mX >205 and mX <225 and mY >328 and mY <348 then [ArcherVENTE]
    if mX >205 and mX <225 and mY >456 and mY <476 then [exploACHAT]
    if mX >205 and mX <225 and mY >476 and mY <496 then [exploVENTE]
    if mY >525 then [closeBAT1]
    wait

    [exploACHAT]
    if popMILIT >= popMILITlim then wait
    if food < coutFOODexplorateur or bois < coutBOISexplorateur then wait
    if int(popTOTAL-popSCIENT-popMILIT) < 1 then wait
    food = int(food - coutFOODexplorateur)
    bois = int(bois - coutBOISexplorateur)
    NombreEXPLORATEUR = NombreEXPLORATEUR +1
    popMILIT = int(NombreHommeDarme + NombreLancier + NombreFrondeur + NombreArcher + NombreEXPLORATEUR)
    print #bat1.map, "font Times New Roman 9; color black"
    print #bat1.map, "place 240 467 ;\"; "Unités entrainées : ";NombreEXPLORATEUR ;" ( ";int(NombreEXPLORATEUR + NombreEXPLORATEURSELECTED -( NombreEXPLORATEURTERR1 + NombreEXPLORATEURTERR2 + NombreEXPLORATEURTERR3 + NombreEXPLORATEURTERR4 + NombreEXPLORATEURTERR5 + NombreEXPLORATEURTERR6 + NombreEXPLORATEURTERR7 + NombreEXPLORATEURTERR8 + NombreEXPLORATEURTERR9 + NombreEXPLORATEURTERR10 + NombreEXPLORATEURTERR11 + NombreEXPLORATEURTERR12 + NombreEXPLORATEURTERR13 + NombreEXPLORATEURTERR14 + NombreEXPLORATEURTERR15 + NombreEXPLORATEURTERR16 + NombreEXPLORATEURTERR17 + NombreEXPLORATEURTERR18 + NombreEXPLORATEURTERR19 + NombreEXPLORATEURTERR20));" dans cette ville )            \Descriptif :"
    print #bat1.map, "font Times New Roman 20; color brown;backcolor white"
    print #bat1.map, "place 240 50 ;\"; "Places disponibles : "; int(popMILITlim-popMILIT); " / "; popMILITlim;"          "
    wait
    [exploVENTE]
    if NombreEXPLORATEUR = 0 or popMILIT = 0 or NombreEXPLORATEUR <1 then wait
    NombreEXPLORATEUR = NombreEXPLORATEUR -1
    popMILIT = int(NombreHommeDarme + NombreLancier + NombreFrondeur + NombreArcher + NombreEXPLORATEUR)
    print #bat1.map, "font Times New Roman 9; color black"
    print #bat1.map, "place 240 467 ;\"; "Unités entrainées : ";NombreEXPLORATEUR ;" ( ";int(NombreEXPLORATEUR + NombreEXPLORATEURSELECTED -( NombreEXPLORATEURTERR1 + NombreEXPLORATEURTERR2 + NombreEXPLORATEURTERR3 + NombreEXPLORATEURTERR4 + NombreEXPLORATEURTERR5 + NombreEXPLORATEURTERR6 + NombreEXPLORATEURTERR7 + NombreEXPLORATEURTERR8 + NombreEXPLORATEURTERR9 + NombreEXPLORATEURTERR10 + NombreEXPLORATEURTERR11 + NombreEXPLORATEURTERR12 + NombreEXPLORATEURTERR13 + NombreEXPLORATEURTERR14 + NombreEXPLORATEURTERR15 + NombreEXPLORATEURTERR16 + NombreEXPLORATEURTERR17 + NombreEXPLORATEURTERR18 + NombreEXPLORATEURTERR19 + NombreEXPLORATEURTERR20));" dans cette ville )            \Descriptif :"
    print #bat1.map, "font Times New Roman 20; color brown;backcolor white"
    print #bat1.map, "place 240 50 ;\"; "Places disponibles : "; int(popMILITlim-popMILIT); " / "; popMILITlim;"          "
    wait

    [hommeDarmeACHAT]
    if popMILIT >= popMILITlim then wait
    if food < coutFOODhommedarme or bois < coutBOIShommedarme then wait
    if int(popTOTAL-popSCIENT-popMILIT) < 1 then wait
    food = int(food - coutFOODhommedarme)
    bois = int(bois - coutBOIShommedarme)
    NombreHommeDarme = NombreHommeDarme +1
    popMILIT = int(NombreHommeDarme + NombreLancier + NombreFrondeur + NombreArcher + NombreEXPLORATEUR)
    print #bat1.map, "font Times New Roman 9; color black"
    print #bat1.map, "place 240 110 ;\"; "Unités entrainées : ";NombreHommeDarme ;" ( ";int(NombreHommeDarme + NombreHommeDarmeSELECTED -( NombreHommeDarmeTERR1 + NombreHommeDarmeTERR2 + NombreHommeDarmeTERR3 + NombreHommeDarmeTERR4 + NombreHommeDarmeTERR5 + NombreHommeDarmeTERR6 + NombreHommeDarmeTERR7 + NombreHommeDarmeTERR8 + NombreHommeDarmeTERR9 + NombreHommeDarmeTERR10 + NombreHommeDarmeTERR11 + NombreHommeDarmeTERR12 + NombreHommeDarmeTERR13 + NombreHommeDarmeTERR14 + NombreHommeDarmeTERR15 + NombreHommeDarmeTERR16 + NombreHommeDarmeTERR17 + NombreHommeDarmeTERR18 + NombreHommeDarmeTERR19 + NombreHommeDarmeTERR20));" dans cette ville )          \Descriptif : "
    print #bat1.map, "font Times New Roman 20; color brown;backcolor white"
    print #bat1.map, "place 240 50 ;\"; "Places disponibles : "; int(popMILITlim-popMILIT); " / "; popMILITlim;"          "
    wait
    [hommeDarmeVENTE]
    if NombreHommeDarme = 0 or int(NombreHommeDarme - NombreHommeDarmeSELECTED - (NombreHommeDarmeTERR1 + NombreHommeDarmeTERR2 + NombreHommeDarmeTERR3 + NombreHommeDarmeTERR4 + NombreHommeDarmeTERR5 + NombreHommeDarmeTERR6 + NombreHommeDarmeTERR7 + NombreHommeDarmeTERR8 + NombreHommeDarmeTERR9 + NombreHommeDarmeTERR10 + NombreHommeDarmeTERR11 + NombreHommeDarmeTERR12 + NombreHommeDarmeTERR13 + NombreHommeDarmeTERR14 + NombreHommeDarmeTERR15 + NombreHommeDarmeTERR16 + NombreHommeDarmeTERR17 + NombreHommeDarmeTERR18 + NombreHommeDarmeTERR19 + NombreHommeDarmeTERR20)) <1 then wait
    NombreHommeDarme = NombreHommeDarme -1
    popMILIT = int(NombreHommeDarme + NombreLancier + NombreFrondeur + NombreArcher + NombreEXPLORATEUR)
    print #bat1.map, "font Times New Roman 9; color black"
    print #bat1.map, "place 240 110 ;\"; "Unités entrainées : ";NombreHommeDarme ;" ( ";int(NombreHommeDarme + NombreHommeDarmeSELECTED -( NombreHommeDarmeTERR1 + NombreHommeDarmeTERR2 + NombreHommeDarmeTERR3 + NombreHommeDarmeTERR4 + NombreHommeDarmeTERR5 + NombreHommeDarmeTERR6 + NombreHommeDarmeTERR7 + NombreHommeDarmeTERR8 + NombreHommeDarmeTERR9 + NombreHommeDarmeTERR10 + NombreHommeDarmeTERR11 + NombreHommeDarmeTERR12 + NombreHommeDarmeTERR13 + NombreHommeDarmeTERR14 + NombreHommeDarmeTERR15 + NombreHommeDarmeTERR16 + NombreHommeDarmeTERR17 + NombreHommeDarmeTERR18 + NombreHommeDarmeTERR19 + NombreHommeDarmeTERR20));" dans cette ville )          \Descriptif : "
    print #bat1.map, "font Times New Roman 20; color brown;backcolor white"
    print #bat1.map, "place 240 50 ;\"; "Places disponibles : "; int(popMILITlim-popMILIT); " / "; popMILITlim;"          "
    wait


    [lancierACHAT]
    if lancierSEARCH = 0 then wait
    if food < coutFOODlancier or bois < coutBOISlancier then wait
    if popMILIT >= popMILITlim then wait
    if int(popTOTAL-popSCIENT-popMILIT) < 1 then wait
    food = int(food - coutFOODlancier)
    bois = int(bois - coutBOISlancier)
    NombreLancier = NombreLancier +1
    popMILIT = int(NombreHommeDarme + NombreLancier + NombreFrondeur + NombreArcher + NombreEXPLORATEUR)
    print #bat1.map, "font Times New Roman 9; color black"
    print #bat1.map, "place 240 175 ;\"; "Unités entrainées : "; NombreLancier ;" ( ";int(NombreLancier + NombreLancierSELECTED -( NombreLancierTERR1 + NombreLancierTERR2 + NombreLancierTERR3 + NombreLancierTERR4 + NombreLancierTERR5 + NombreLancierTERR6 + NombreLancierTERR7 + NombreLancierTERR8 + NombreLancierTERR9 + NombreLancierTERR10 + NombreLancierTERR11 + NombreLancierTERR12 + NombreLancierTERR13 + NombreLancierTERR14 + NombreLancierTERR15 + NombreLancierTERR16 + NombreLancierTERR17 + NombreLancierTERR18 + NombreLancierTERR19 + NombreLancierTERR20));" dans cette ville )            \Descriptif :"
    print #bat1.map, "font Times New Roman 20; color brown;backcolor white"
    print #bat1.map, "place 240 50 ;\"; "Places disponibles : "; int(popMILITlim-popMILIT); " / "; popMILITlim;"          "
    wait
    [lancierVENTE]
    if NombreLancier = 0 or popMILIT = 0 or int(NombreLancier - NombreLancierSELECTED) <1 then wait
    NombreLancier = NombreLancier -1
    popMILIT = int(NombreHommeDarme + NombreLancier + NombreFrondeur + NombreArcher + NombreEXPLORATEUR)
    print #bat1.map, "font Times New Roman 9; color black"
    print #bat1.map, "place 240 175 ;\"; "Unités entrainées : "; NombreLancier ;" ( ";int(NombreLancier + NombreLancierSELECTED -( NombreLancierTERR1 + NombreLancierTERR2 + NombreLancierTERR3 + NombreLancierTERR4 + NombreLancierTERR5 + NombreLancierTERR6 + NombreLancierTERR7 + NombreLancierTERR8 + NombreLancierTERR9 + NombreLancierTERR10 + NombreLancierTERR11 + NombreLancierTERR12 + NombreLancierTERR13 + NombreLancierTERR14 + NombreLancierTERR15 + NombreLancierTERR16 + NombreLancierTERR17 + NombreLancierTERR18 + NombreLancierTERR19 + NombreLancierTERR20));" dans cette ville )            \Descriptif :"
    print #bat1.map, "font Times New Roman 20; color brown;backcolor white"
    print #bat1.map, "place 240 50 ;\"; "Places disponibles : "; int(popMILITlim-popMILIT); " / "; popMILITlim;"          "
    wait

    [frondeurACHAT]
    if frondeurSEARCH = 0 then wait
    if food < coutFOODfrondeur or bois < coutBOISfrondeur then wait
    if popMILIT >= popMILITlim then wait
    if int(popTOTAL-popSCIENT-popMILIT) < 1 then wait
    food = int(food - coutFOODfrondeur)
    bois = int(bois - coutBOISfrondeur)
    NombreFrondeur = NombreFrondeur +1
    popMILIT = int(NombreHommeDarme + NombreLancier + NombreFrondeur + NombreArcher + NombreEXPLORATEUR)
    print #bat1.map, "font Times New Roman 9; color black"
    print #bat1.map, "place 240 246 ;\"; "Unités entrainées : "; NombreFrondeur ;" ( ";int(NombreFrondeur + NombreFrondeurSELECTED -( NombreFrondeurTERR1 + NombreFrondeurTERR2 + NombreFrondeurTERR3 + NombreFrondeurTERR4 + NombreFrondeurTERR5 + NombreFrondeurTERR6 + NombreFrondeurTERR7 + NombreFrondeurTERR8 + NombreFrondeurTERR9 + NombreFrondeurTERR10 + NombreFrondeurTERR11 + NombreFrondeurTERR12 + NombreFrondeurTERR13 + NombreFrondeurTERR14 + NombreFrondeurTERR15 + NombreFrondeurTERR16 + NombreFrondeurTERR17 + NombreFrondeurTERR18 + NombreFrondeurTERR19 + NombreFrondeurTERR20));" dans cette ville )            \Descriptif :"
    print #bat1.map, "font Times New Roman 20; color brown;backcolor white"
    print #bat1.map, "place 240 50 ;\"; "Places disponibles : "; int(popMILITlim-popMILIT); " / "; popMILITlim;"          "
    wait
    [frondeurVENTE]
    if NombreFrondeur = 0 or popMILIT = 0 or int(NombreFrondeur - NombreFrondeurSELECTED) <1  then wait
    NombreFrondeur = NombreFrondeur -1
    popMILIT = int(NombreHommeDarme + NombreLancier + NombreFrondeur + NombreArcher + NombreEXPLORATEUR)
    print #bat1.map, "font Times New Roman 9; color black"
    print #bat1.map, "place 240 246 ;\"; "Unités entrainées : "; NombreFrondeur ;" ( ";int(NombreFrondeur + NombreFrondeurSELECTED -( NombreFrondeurTERR1 + NombreFrondeurTERR2 + NombreFrondeurTERR3 + NombreFrondeurTERR4 + NombreFrondeurTERR5 + NombreFrondeurTERR6 + NombreFrondeurTERR7 + NombreFrondeurTERR8 + NombreFrondeurTERR9 + NombreFrondeurTERR10 + NombreFrondeurTERR11 + NombreFrondeurTERR12 + NombreFrondeurTERR13 + NombreFrondeurTERR14 + NombreFrondeurTERR15 + NombreFrondeurTERR16 + NombreFrondeurTERR17 + NombreFrondeurTERR18 + NombreFrondeurTERR19 + NombreFrondeurTERR20));" dans cette ville )            \Descriptif :"
    print #bat1.map, "font Times New Roman 20; color brown;backcolor white"
    print #bat1.map, "place 240 50 ;\"; "Places disponibles : "; int(popMILITlim-popMILIT); " / "; popMILITlim;"          "
    wait

    [ArcherACHAT]
    if archerSEARCH = 0 then wait
    if food < coutFOODarcher or bois < coutBOISarcher then wait
    if popMILIT >= popMILITlim then wait
    if int(popTOTAL-popSCIENT-popMILIT) < 1 then wait
    food = int(food - coutFOODarcher)
    bois = int(bois - coutBOISarcher)
    NombreArcher = NombreArcher +1
    popMILIT = int(NombreHommeDarme + NombreLancier + NombreFrondeur + NombreArcher + NombreEXPLORATEUR)
    print #bat1.map, "font Times New Roman 9; color black"
    print #bat1.map, "place 240 318 ;\"; "Unités entrainées : ";NombreArcher ;" ( ";int(NombreArcher + NombreArcherSELECTED -( NombreArcherTERR1 + NombreArcherTERR2 + NombreArcherTERR3 + NombreArcherTERR4 + NombreArcherTERR5 + NombreArcherTERR6 + NombreArcherTERR7 + NombreArcherTERR8 + NombreArcherTERR9 + NombreArcherTERR10 + NombreArcherTERR11 + NombreArcherTERR12 + NombreArcherTERR13 + NombreArcherTERR14 + NombreArcherTERR15 + NombreArcherTERR16 + NombreArcherTERR17 + NombreArcherTERR18 + NombreArcherTERR19 + NombreArcherTERR20));" dans cette ville )            \Descriptif :"
    print #bat1.map, "font Times New Roman 20; color brown;backcolor white"
    print #bat1.map, "place 240 50 ;\"; "Places disponibles : "; int(popMILITlim-popMILIT); " / "; popMILITlim;"          "
    wait
    [ArcherVENTE]
    if NombreArcher = 0 or popMILIT = 0 or int(NombreArcher - NombreArcherSELECTED) <1 then wait
    NombreArcher = NombreArcher -1
    popMILIT = int(NombreHommeDarme + NombreLancier + NombreFrondeur + NombreArcher + NombreEXPLORATEUR)
    print #bat1.map, "font Times New Roman 9; color black"
    print #bat1.map, "place 240 318 ;\"; "Unités entrainées : ";NombreArcher ;" ( ";int(NombreArcher + NombreArcherSELECTED -( NombreArcherTERR1 + NombreArcherTERR2 + NombreArcherTERR3 + NombreArcherTERR4 + NombreArcherTERR5 + NombreArcherTERR6 + NombreArcherTERR7 + NombreArcherTERR8 + NombreArcherTERR9 + NombreArcherTERR10 + NombreArcherTERR11 + NombreArcherTERR12 + NombreArcherTERR13 + NombreArcherTERR14 + NombreArcherTERR15 + NombreArcherTERR16 + NombreArcherTERR17 + NombreArcherTERR18 + NombreArcherTERR19 + NombreArcherTERR20));" dans cette ville )            \Descriptif :"
    print #bat1.map, "font Times New Roman 20; color brown;backcolor white"
    print #bat1.map, "place 240 50 ;\"; "Places disponibles : "; int(popMILITlim-popMILIT); " / "; popMILITlim;"          "
    wait

  '     int(popTOTAL-popSCIENT-popMILIT)
  '     popCIVIL = int(popTOTAL-(popSCIENT+popMILIT))

'---------------------------------------------------------------------------------------------------------------------------------
    [habitationBuilder]
    if house = 1 then close #house
    house = 1 : centreMilitaireOpen = 0
    WindowWidth=393 : WindowHeight=322
    UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-110) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    BackgroundColor$ = "white" : ForegroundColor$ = "black"
    graphicbox #house.map, -5, -5, WindowWidth+5, WindowHeight+5
    if lvlbatimentHabitation = 0 then
        if language = 0 then button #house.bt1, "Construire", [buildHabitation], UL, 125, 280, 60,25
        if language = 1 then button #house.bt1, "Build", [buildHabitation], UL, 125, 280, 60,25
    else
        if language = 0 then button #house.bt1, "Améliorer", [buildHabitation], UL, 125, 280, 60,25
        if language = 1 then button #house.bt1, "Upgrade", [buildHabitation], UL, 125, 280, 60,25
    end if
    if language = 0 then button #house.d1, "Fermer", [buildHabitationNO], UL, 210, 280, 60, 25
    if language = 1 then button #house.d1, "Close", [buildHabitationNO], UL, 210, 280, 60, 25
    bmpbutton #house.d1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\droite1bis.bmp", [w], UL, 386, 0
    bmpbutton #house.g1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\gauche1bis.bmp", [w], UL, 0, 0
    bmpbutton #house.h1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\haut1bis.bmp", [w], UL, 0, 0
    bmpbutton #house.b1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\bas1bis.bmp", [w], UL, 0, 315
    if language = 0 then statictext #house.para1, "Les habitations permettent d'augmenter de façon considérable la population. En logeant des personnes en dehors du batiment principal cela permet aux familles de s'accroître. Chaque niveau d'amélioration permet d'augmenter le niveau maximum de place et du nombre d'habitations.", 15, 100, 370,70
    if language = 1 then statictext #house.para1, "The houses allow a considerable increase in the population. By housing people outside the main building this allows families to grow. Each level of improvement increases the maximum level of space and number of dwellings.", 15, 100, 370,70
    Open " " for window_popup as #house
    [refreshBAT4]
    #house.map , "backcolor white"
    #house.map , "down"
    print #house.map, "font Times New Roman 12; color black"
    if language = 0 then
    print #house.map, "place 120 60 ;\"; "Constuire des habitations ";"( ";lvlbatimentHabitation;" )"
    print #house.map, "font Times New Roman 8; color black"
    print #house.map, "place 25 230 ;\"; "Ressources nécéssaires :"
    print #house.map, "place 25 245 ;\"; "Bois : ";coutHabitationBOIS
    print #house.map, "place 25 260 ;\"; "Métal : ";coutHabitationMETAL
    print #house.map, "place 160 190 ;\"; "Pop. max : ";int(placePARhabitationJ1*nombreHabitationJ1+(2*lvlbatimentHabitation))
    end if
    if language = 1 then
    print #house.map, "place 120 60 ;\"; "Build houses ";"( ";lvlbatimentHabitation;" )"
    print #house.map, "font Times New Roman 8; color black"
    print #house.map, "place 25 230 ;\"; "Resources needed :"
    print #house.map, "place 25 245 ;\"; "Wood : ";coutHabitationBOIS
    print #house.map, "place 25 260 ;\"; "Metal : ";coutHabitationMETAL
    print #house.map, "place 160 190 ;\"; "Max Pop. : ";int(placePARhabitationJ1*nombreHabitationJ1+(2*lvlbatimentHabitation))
    end if
    print #house.para1, "!font times_new_roman 9 bold italic"
    print #house.d1, "disable"
    print #house.g1, "disable"
    print #house.h1, "disable"
    print #house.b1, "disable"
    wait

    [buildHabitationNO]
    close #house
    house = 0
    wait

    [SimpleClickHouse]
    mX = MouseX
    mY = MouseY
    #house.map, "place 120 90 ;\"; "                                                                    "
    wait


    [buildHabitation]
    if bois < coutHabitationBOIS then
        print #house.map, "font Times New Roman 8"
        if language = 0 then print #house.map, "place 130 90 ;\"; "Vous n'avez pas assez de bois"
        if language = 1 then print #house.map, "place 130 90 ;\"; "You do not have enough wood"
        wait
    end if
    if minerais < coutHabitationMETAL then
        print #house.map, "font Times New Roman 8"
        if language = 0 then print #house.map, "place 130 90 ;\"; "Vous n'avez pas assez de métal"
        if language = 1 then print #house.map, "place 130 90 ;\"; "You do not have enough metal"
        wait
    end if
    bois = bois - coutHabitationBOIS
    batimentBUILDpop = 1
    if language = 0 then print #house.bt1, "Améliorer"
    if language = 1 then print #house.bt1, "Upgrade"
    lvlbatimentHabitation = lvlbatimentHabitation +1
    popPossible = int(placePARhabitationJ1*nombreHabitationJ1+(2*lvlbatimentHabitation))
    coutHabitationBOIS = coutHabitationBOISindex + (int(lvlbatimentHabitation*190))
    coutHabitationMETAL = 10*(int(lvlbatimentHabitation))
    if RECHEARCHmetal < 1 then coutHabitationMETAL = 0
    if bat1 = 1 then close #bat1
    bat1 = 0
    securityRELOADcity = 1
    if lvlbatimentHabitation = 1 then
        close #villeJ1
        gosub [villeJ1]
    end if
    print #villeJ1.map, "place 321 27 ;\"; "Habitations\\         Niv ";lvlbatimentHabitation; "  "
    goto [refreshBAT4]


    [batimentPopHUMAIN]
    if bat1 = 1 then close #bat1
    bat1 = 1
    WindowWidth=393 : WindowHeight=320
    UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-110) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    BackgroundColor$ = "black" : ForegroundColor$ = "white"
    stylebits #bat1.map, 0, _WS_BORDER, 0, 0
    graphicbox #bat1.map, -5, -5, WindowWidth+5, WindowHeight+5
    bmpbutton #bat1.up1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\upgrader2.bmp", [UPnombreHabitationJ1], UL, 320, 115
    bmpbutton #bat1.up2, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\upgrader2.bmp", [UPplaceHabitationJ1], UL, 320, 195
    Open " " for window_popup as #bat1
    #bat1.map , "backcolor black"
    #bat1.map , "down"
    print #bat1.map, "drawbmp pop2 50 210"
    print #bat1.map, "drawbmp house 50 125"
    print #bat1.map, "drawbmp droite 391 5"
    print #bat1.map, "drawbmp gauche 5 5"
    print #bat1.map, "drawbmp haut 5 5"
    print #bat1.map, "drawbmp bas 5 318"
    [refreshHOUSEtxt1]
    print #bat1.map, "font Times New Roman 20; color white"
    if language = 0 then print #bat1.map, "place ";int(WindowWidth/2-80);" 70 ;\"; "HABITATIONS"
    if language = 1 then print #bat1.map, "place ";int(WindowWidth/2-40);" 70 ;\"; "HOUSES"
    print #bat1.map, "font Times New Roman 10; color white"
    if language = 0 then print #bat1.map, "place 115 140 ;\"; "Nombre d'habitations =  ";nombreHabitationJ1;"     "
    if language = 0 then print #bat1.map, "place 115 155 ;\"; "Coût de construction :  ";int(nombreHabitationJ1*280);" bois    "
    if language = 1 then print #bat1.map, "place 115 140 ;\"; "Numbers of houses : ";nombreHabitationJ1;"     "
    if language = 1 then print #bat1.map, "place 115 155 ;\"; "Build cost : ";int(nombreHabitationJ1*280);" wood    "
    if language = 0 then print #bat1.map, "place 115 220 ;\"; "Places par habitations : ";placePARhabitationJ1;"       "
    if language = 0 then print #bat1.map, "place 115 235 ;\"; "Coût d'amélioration : ";int((placePARhabitationJ1*4000+nombreHabitationJ1*280)*2);" bois      "
    if language = 1 then print #bat1.map, "place 115 220 ;\"; "Places by houses : ";placePARhabitationJ1;"       "
    if language = 1 then print #bat1.map, "place 115 235 ;\"; "Upgrade cost : ";int((placePARhabitationJ1*4000+nombreHabitationJ1*280)*2);" wood      "
    wait

    [UPnombreHabitationJ1]
    if bois >= int(nombreHabitationJ1*280) then
        bois = bois - int(nombreHabitationJ1*280)
        nombreHabitationJ1 = nombreHabitationJ1 +1
        popPossible = placePARhabitationJ1 * nombreHabitationJ1 + popADD -10
        goto [refreshHOUSEtxt1]
    end if
    wait
    [UPplaceHabitationJ1]
    if bois >= int((placePARhabitationJ1*4000+nombreHabitationJ1*280)*2) then
        bois = bois - int((placePARhabitationJ1*4000+nombreHabitationJ1*280)*2)
        placePARhabitationJ1 = placePARhabitationJ1 +1
        popPossible = placePARhabitationJ1 * nombreHabitationJ1 + popADD -10
        goto [refreshHOUSEtxt1]
    end if
    wait


    [fermageBuilder]
    if ferme = 1 then close #fermage
    ferme = 1 : centreMilitaireOpen = 0
    WindowWidth=393 : WindowHeight=322
    UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-110) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    BackgroundColor$ = "white" : ForegroundColor$ = "black"
    graphicbox #fermage.map, -5, -5, WindowWidth+5, WindowHeight+5
    if lvlbatimentFerme = 0 then
        if language = 0 then button #fermage.bt1, "Construire", [buildfermage], UL, 125, 280, 60,25
        if language = 1 then button #fermage.bt1, "Build", [buildfermage], UL, 125, 280, 60,25
    else
        if language = 0 then button #fermage.bt1, "Améliorer", [buildfermage], UL, 125, 280, 60,25
        if language = 1 then button #fermage.bt1, "Upgrade", [buildfermage], UL, 125, 280, 60,25
    end if
    if language = 0 then button #fermage.d1, "Fermer", [buildfermageNO], UL, 210, 280, 60, 25
    if language = 1 then button #fermage.d1, "Close", [buildfermageNO], UL, 210, 280, 60, 25
    bmpbutton #fermage.d1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\droite1bis.bmp", [w], UL, 386, 0
    bmpbutton #fermage.g1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\gauche1bis.bmp", [w], UL, 0, 0
    bmpbutton #fermage.h1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\haut1bis.bmp", [w], UL, 0, 0
    bmpbutton #fermage.b1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\bas1bis.bmp", [w], UL, 0, 315
    STOCKAGEfood = int((lvlbatimentPrincipal*3000)+((lvlbatimentFerme*4500)*lvlbatimentFerme))
    if language = 0 then statictext #fermage.para1, "Les fermages sont les principales revenues en nourriture pour les civilisations évolués. En travaillant les terres de façon cyclique et régulier, la production de vivre est augmenté et bien plus important que la cueillette et la chasse qui devient maigre pour nourrir des peuples nombreux. Chaque niveau d'amélioration permet de fournir plus de nourriture supplémentaire par jour. De nombreuses améliorations sont possibles pour diversifier les cultures et accroitre leur rendement. (Vous pouvez stocker ";STOCKAGEfood;" unités de nourriture)", 15, 80, 370,130
    if language = 1 then statictext #fermage.para1, "Rents are the main income in food for advanced civilizations. By working the land in a regular and cyclical way, the production of living is increased and much more important than the gathering and the hunt, which becomes lean to feed large populations. Each level of improvement can provide more extra food a day. Many improvements are possible to diversify crops and increase their yield. (You can store ";STOCKAGEfood;" units of food)", 15, 80, 370,130

    Open " " for window_popup as #fermage
    [refreshBAT5]
    foodADD = lvlbatimentFerme * 25 + Upfood
    #fermage.map , "backcolor white"
    #fermage.map , "down"
    print #fermage.map, "font Times New Roman 12; color black"
    if language = 0 then
    print #fermage.map, "place 160 40 ;\"; "Fermages ";"( ";lvlbatimentFerme;" )"
    print #fermage.map, "font Times New Roman 8; color black"
    print #fermage.map, "place 25 230 ;\"; "Ressources nécéssaires :"
    print #fermage.map, "place 25 245 ;\"; "Bois : ";coutfermageBOIS
    print #fermage.map, "place 25 260 ;\"; "Métal : ";coutfermageMETAL
    print #fermage.map, "place 125 65 ;\"; "Nourriture produite par mois : ";foodADD
    end if
    if language = 1 then
    print #fermage.map, "place 160 40 ;\"; "farm rent ";"( ";lvlbatimentFerme;" )"
    print #fermage.map, "font Times New Roman 8; color black"
    print #fermage.map, "place 25 230 ;\"; "Resources needed :"
    print #fermage.map, "place 25 245 ;\"; "Wood : ";coutfermageBOIS
    print #fermage.map, "place 25 260 ;\"; "Metal : ";coutfermageMETAL
    print #fermage.map, "place 125 65 ;\"; "Food produced per mouth : ";foodADD
    end if
    STOCKAGEfood = int((lvlbatimentPrincipal*3000)+((lvlbatimentFerme*4500)*lvlbatimentFerme))
    if language = 0 then print #fermage.para1, "Les fermages sont les principales revenues en nourriture pour les civilisations évolués. En travaillant les terres de façon cyclique et régulier, la production de vivre est augmenté et bien plus important que la cueillette et la chasse qui devient maigre pour nourrir des peuples nombreux. Chaque niveau d'amélioration permet de fournir plus de nourriture supplémentaire par jour. De nombreuses améliorations sont possibles pour diversifier les cultures et accroitre leur rendement. (Vous pouvez stocker ";STOCKAGEfood;" unités de nourriture)"
    if language = 1 then print #fermage.para1, "Rents are the main income in food for advanced civilizations. By working the land in a regular and cyclical way, the production of living is increased and much more important than the gathering and the hunt, which becomes lean to feed large populations. Each level of improvement can provide more extra food a day. Many improvements are possible to diversify crops and increase their yield. (You can store ";STOCKAGEfood;" units of food)"
    print #fermage.para1, "!font times_new_roman 9 bold italic"
    print #fermage.d1, "disable"
    print #fermage.g1, "disable"
    print #fermage.h1, "disable"
    print #fermage.b1, "disable"
    wait

    [buildfermageNO]
    close #fermage
    ferme = 0
    wait

    [SimpleClickFermage]
    mX = MouseX
    mY = MouseY
    #fermage.map, "place 120 90 ;\"; "                                                                    "
    wait

    [buildfermage]
    if bois < coutfermageBOIS then
        print #fermage.map, "font Times New Roman 8"
        if language = 0 then print #fermage.map, "place 130 80 ;\"; "Vous n'avez pas assez de bois"
        if language = 1 then print #fermage.map, "place 130 80 ;\"; "You do not have enough wood"
        wait
    end if
    if minerais < coutfermageMETAL then
        print #fermage.map, "font Times New Roman 8"
        if language = 0 then print #fermage.map, "place 130 80 ;\"; "Vous n'avez pas assez de métal"
        if language = 1 then print #fermage.map, "place 130 80 ;\"; "You do not have enough metal"
        wait
    end if

    bois = bois - coutfermageBOIS
    batimentBUILDferme = 1
    if language = 0 then print #fermage.bt1, "Améliorer"
    if language = 1 then print #fermage.bt1, "Upgrade"
    lvlbatimentFerme = lvlbatimentFerme +1
    coutfermageBOIS = coutFermeBOISindex + (int(lvlbatimentFerme*720))
    coutfermageMETAL = 20*(int(lvlbatimentFerme))
    if RECHEARCHmetal < 1 then coutfermageMETAL = 0
    if bat1 = 1 then close #bat1
    bat1 = 0
    securityRELOADcity = 1
    if lvlbatimentFerme = 1 then
        close #villeJ1
        gosub [villeJ1]
    end if
    print #villeJ1.map, "place 501 27 ;\"; "Fermages\\         Niv ";lvlbatimentFerme; "  "
    goto [refreshBAT5]

    [batimentFermeHUMAIN]
    if bat1 = 1 then close #bat1
    bat1 = 1
    WindowWidth=393 : WindowHeight=320
    UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-110) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    BackgroundColor$ = "black" : ForegroundColor$ = "white"
    coutlvlChasseBOIS = int(lvlChasse*ChasseFOOD*1.5)
    coutlvlCueilletteBOIS = int(lvlCueillette*CueilletteFOOD*1.3)
    coutlvlElevageBOIS = int(lvlElevage*ElevageFOOD*1.7)
    coutlvlElevageFOOD = int(lvlElevage*ElevageFOOD*1.2)
    coutlvlAgricultureBOIS = int(lvlAgriculture*AgricultureFOOD*1.8)
    coutlvlAgricultureFOOD = int(lvlAgriculture*AgricultureFOOD*1.2)

    stylebits #bat1.map, 0, _WS_BORDER, 0, 0
    graphicbox #bat1.map, -5, -5, WindowWidth+5, WindowHeight+5
    bmpbutton #bat1.up1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\upgrader3.bmp", [FoodChasse], UL, 55, 110
    bmpbutton #bat1.up2, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\upgrader3.bmp", [FoodCueillette], UL, 55, 230
    bmpbutton #bat1.up3, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\upgrader3.bmp", [FoodElevage], UL, 55, 140
    bmpbutton #bat1.up4, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\upgrader3.bmp", [FoodAgriculture], UL, 55, 260
    Open " " for window_popup as #bat1
    #bat1.map , "backcolor black"
    #bat1.map , "down"
    print #bat1.map, "drawbmp droite 391 5"
    print #bat1.map, "drawbmp gauche 5 5"
    print #bat1.map, "drawbmp haut 5 5"
    print #bat1.map, "drawbmp bas 5 318"
    print #bat1.map, "font Times New Roman 12 underscore; color white"

    if language = 0 then
    print #bat1.map, "place 50 100 ;\"; "Secteur Animal"
    print #bat1.map, "place 50 220 ;\"; "Secteur Agricole"
    print #bat1.map, "font Times New Roman 8"
    if elevage = 1 then print #bat1.map, "place 100 160 ;\"; "Elevage niv ";lvlElevage;" : ";ElevageFOOD;" /Mois      "
    print #bat1.map, "place 100 130 ;\"; "Chasse niv ";lvlChasse;" : ";ChasseFOOD;" /Mois      "
    if agriculture = 1 then print #bat1.map, "place 100 280 ;\"; "Agriculture niv ";lvlAgriculture;" : ";AgricultureFOOD;" /Mois      "
    print #bat1.map, "place 100 250 ;\"; "Cueillette niv ";lvlCueillette;" : ";CueilletteFOOD;" /Mois      "
    print #bat1.map, "place 110 48 ;\"; "PRODUCTION MENSUELLE :  ";int(((SurfaceTerreP1j1+SurfaceOceanP1j1)/30) + foodADD + AgricultureFOOD + ElevageFOOD + CueilletteFOOD + ChasseFOOD - ((popSCIENT*5) + (popMILIT*6) + (popTOTAL-popMILIT-popSCIENT)));"  "
    print #bat1.map, "color white;size 1"
    if agriculture = 0 then print #bat1.map, "place 100 280 ;\"; "Agriculture : Recherche requise!"
    if elevage = 0 then print #bat1.map, "place 100 160 ;\"; "Elevage : Recherche requise!"
    print #bat1.map, "font Times New Roman 7; color green"
    print #bat1.map, "place 100 142 ;\"; "coût d'amélioration : ";coutlvlChasseBOIS;" de bois."
    print #bat1.map, "place 100 262 ;\"; "coût d'amélioration : ";coutlvlCueilletteBOIS;" de bois."
    if elevage = 1 then print #bat1.map, "place 100 172 ;\"; "coût d'amélioration : ";coutlvlElevageBOIS; " bois et ";coutlvlElevageFOOD;" de nourritures."
    if agriculture = 1 then  print #bat1.map, "place 100 292 ;\"; "coût d'amélioration : ";coutlvlAgricultureBOIS; " bois et ";coutlvlAgricultureFOOD;" de nourritures."
    print #bat1.map, "font Times New Roman 8; color white"
    end if

    if language = 1 then
    print #bat1.map, "place 50 100 ;\"; "Secteur Animal"
    print #bat1.map, "place 50 220 ;\"; "Secteur Agricole"
    print #bat1.map, "font Times New Roman 8"
    if elevage = 1 then print #bat1.map, "place 100 160 ;\"; "Elevage niv ";lvlElevage;" : ";ElevageFOOD;" /Mouth      "
    print #bat1.map, "place 100 130 ;\"; "Chasse lvl ";lvlChasse;" : ";ChasseFOOD;" /Mouth      "
    if agriculture = 1 then print #bat1.map, "place 100 280 ;\"; "Agriculture lvl ";lvlAgriculture;" : ";AgricultureFOOD;" /Mouth      "
    print #bat1.map, "place 100 250 ;\"; "Cueillette lvl ";lvlCueillette;" : ";CueilletteFOOD;" /mouth      "
    print #bat1.map, "place 110 48 ;\"; "PRODUCTION MENSUELLE : ";int(((SurfaceTerreP1j1+SurfaceOceanP1j1)/30) + foodADD + AgricultureFOOD + ElevageFOOD + CueilletteFOOD + ChasseFOOD - ((popSCIENT*5) + (popMILIT*6) + (popTOTAL-popMILIT-popSCIENT)));"  "
    print #bat1.map, "color white;size 1"
    if agriculture = 0 then print #bat1.map, "place 100 280 ;\"; "Agriculture : Recherche requise!"
    if elevage = 0 then print #bat1.map, "place 100 160 ;\"; "Elevage : Recherche requise!"
     print #bat1.map, "font Times New Roman 7; color green"
     print #bat1.map, "place 100 142 ;\"; "Upgrade cost : ";coutlvlChasseBOIS;" wood."
     print #bat1.map, "place 100 262 ;\"; "Upgrade cost : ";coutlvlCueilletteBOIS;" wood."
     if elevage = 1 then print #bat1.map, "place 100 172 ;\"; "Upgrade cost : ";coutlvlElevageBOIS; " wood and ";coutlvlElevageFOOD;" food."
     if agriculture = 1 then  print #bat1.map, "place 100 292 ;\"; "Upgrade cost : ";coutlvlAgricultureBOIS; " wood and ";coutlvlAgricultureFOOD;" food."
    print #bat1.map, "font Times New Roman 8; color white"
    end if
    wait


    [FoodChasse]
    print #bat1.map, "place 130 75 ;\"; "                                                        "
    print #bat1.map, "font Times New Roman 8"
    if bois < coutlvlChasseBOIS then
        if language = 0 then print #bat1.map, "place 130 75 ;\"; "Vous n'avez pas assez de bois"
        if language = 1 then print #bat1.map, "place 130 75 ;\"; "You do not have enough wood"
        wait
    end if
    bois = bois - coutlvlChasseBOIS
    lvlChasse = lvlChasse + 1
    coutlvlChasseBOIS = int(lvlChasse*ChasseFOOD*1.5)
    ChasseFOOD = int(lvlChasse*30*lvlChasse)
    print #bat1.map, "place 100 130 ;\"; "Chasse niv ";lvlChasse;" : ";ChasseFOOD;" /Mois      "
    print #bat1.map, "place 110 48 ;\"; "PRODUCTION MENSUELLE :  ";int(((SurfaceTerreP1j1+SurfaceOceanP1j1)/30) + foodADD + AgricultureFOOD + ElevageFOOD + CueilletteFOOD + ChasseFOOD - ((popSCIENT*5) + (popMILIT*6) + (popTOTAL-popMILIT-popSCIENT)));"  "
    print #bat1.map, "font Times New Roman 7; color green"
    print #bat1.map, "place 100 142 ;\"; "coût d'amélioration : ";coutlvlChasseBOIS;" de bois."
    print #bat1.map, "font Times New Roman 8; color white"
    wait
    [FoodCueillette]
    print #bat1.map, "place 130 75 ;\"; "                                                        "
    print #bat1.map, "font Times New Roman 8"
    if bois < coutlvlCueilletteBOIS then
        if language = 0 then print #bat1.map, "place 130 75 ;\"; "Vous n'avez pas assez de bois"
        if language = 1 then print #bat1.map, "place 130 75 ;\"; "You do not have enough wood"
        wait
    end if
    bois = bois - coutlvlCueilletteBOIS
    lvlCueillette = lvlCueillette + 1
    coutlvlCueilletteBOIS = int(lvlCueillette*CueilletteFOOD*1.3)
    CueilletteFOOD = int(lvlCueillette*20*lvlCueillette)
    print #bat1.map, "place 100 250 ;\"; "Cueillette niv ";lvlCueillette;" : ";CueilletteFOOD;" /Mois      "
    print #bat1.map, "place 110 48 ;\"; "PRODUCTION MENSUELLE :  ";int(((SurfaceTerreP1j1+SurfaceOceanP1j1)/30) + foodADD + AgricultureFOOD + ElevageFOOD + CueilletteFOOD + ChasseFOOD - ((popSCIENT*5) + (popMILIT*6) + (popTOTAL-popMILIT-popSCIENT)));"  "
    print #bat1.map, "font Times New Roman 7; color green"
    print #bat1.map, "place 100 262 ;\"; "coût d'amélioration : ";coutlvlCueilletteBOIS;" de bois."
    print #bat1.map, "font Times New Roman 8; color white"
    wait


    [FoodElevage]
    if elevage = 0 then wait
    print #bat1.map, "place 130 75 ;\"; "                                                        "
    print #bat1.map, "font Times New Roman 8"
    if bois < coutlvlElevageBOIS then
        if language = 0 then print #bat1.map, "place 130 75 ;\"; "Vous n'avez pas assez de bois"
        if language = 1 then print #bat1.map, "place 130 75 ;\"; "You do not have enough wood"
        wait
    end if
    if food < coutlvlElevageFOOD then
        if language = 0 then print #bat1.map, "place 130 75 ;\"; "Vous n'avez pas assez de nourriture"
        if language = 1 then print #bat1.map, "place 130 75 ;\"; "You do not have enough food"
        wait
    end if
    bois = bois - coutlvlElevageBOIS
    food = food - coutlvlElevageFOOD
    lvlElevage = lvlElevage + 1
    coutlvlElevageBOIS = int(lvlElevage*ElevageFOOD*1.7)
    coutlvlElevageFOOD = int(lvlElevage*ElevageFOOD*1.2)
    ElevageFOOD = int(lvlElevage*60*lvlElevage)
    print #bat1.map, "place 100 160 ;\"; "Elevage niv ";lvlElevage;" : ";ElevageFOOD;" /Mois      "
    print #bat1.map, "place 110 48 ;\"; "PRODUCTION MENSUELLE :  ";int(((SurfaceTerreP1j1+SurfaceOceanP1j1)/30) + foodADD + AgricultureFOOD + ElevageFOOD + CueilletteFOOD + ChasseFOOD - ((popSCIENT*5) + (popMILIT*6) + (popTOTAL-popMILIT-popSCIENT)));"  "
    print #bat1.map, "font Times New Roman 7; color green"
    print #bat1.map, "place 100 172 ;\"; "coût d'amélioration : ";coutlvlElevageBOIS; " bois et ";coutlvlElevageFOOD;" de nourritures."
    print #bat1.map, "font Times New Roman 8; color white"
    wait
    [FoodAgriculture]
    if agriculture = 0 then wait
    print #bat1.map, "place 130 75 ;\"; "                                                        "
    print #bat1.map, "font Times New Roman 8"
    if bois < coutlvlAgricultureBOIS then
        if language = 0 then print #bat1.map, "place 130 75 ;\"; "Vous n'avez pas assez de bois"
        if language = 1 then print #bat1.map, "place 130 75 ;\"; "You do not have enough wood"
        wait
    end if
    if food < coutlvlAgricultureFOOD then
        if language = 0 then print #bat1.map, "place 130 75 ;\"; "Vous n'avez pas assez de nourriture"
        if language = 1 then print #bat1.map, "place 130 75 ;\"; "You do not have enough food"
        wait
    end if
    bois = bois - coutlvlAgricultureBOIS
    food = food - coutlvlAgricultureFOOD
    lvlAgriculture = lvlAgriculture + 1
    coutlvlAgricultureBOIS = int(lvlAgriculture*AgricultureFOOD*1.8)
    coutlvlAgricultureFOOD = int(lvlAgriculture*AgricultureFOOD*1.2)
    AgricultureFOOD = int(lvlAgriculture*100*lvlAgriculture)
    print #bat1.map, "place 100 280 ;\"; "Agriculture niv ";lvlAgriculture;" : ";AgricultureFOOD;" /Mois      "
    print #bat1.map, "place 110 48 ;\"; "PRODUCTION MENSUELLE :  ";int(((SurfaceTerreP1j1+SurfaceOceanP1j1)/30) + foodADD + AgricultureFOOD + ElevageFOOD + CueilletteFOOD + ChasseFOOD - ((popSCIENT*5) + (popMILIT*6) + (popTOTAL-popMILIT-popSCIENT)));"  "
    print #bat1.map, "font Times New Roman 7; color green"
    print #bat1.map, "place 100 292 ;\"; "coût d'amélioration : ";coutlvlAgricultureBOIS; " bois et ";coutlvlAgricultureFOOD;" de nourritures."
    print #bat1.map, "font Times New Roman 8; color white"
    wait


    [scierieBuilder]
    if batscierie = 1 then close #scierie
    batscierie = 1 : centreMilitaireOpen = 0
    WindowWidth=393 : WindowHeight=322
    UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-110) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    BackgroundColor$ = "white" : ForegroundColor$ = "black"
    graphicbox #scierie.map, -5, -5, WindowWidth+5, WindowHeight+5
    if lvlbatimentScierie = 0 then
        if language = 0 then button #scierie.bt1, "Construire", [buildscierie], UL, 125, 280, 60,25
        if language = 1 then button #scierie.bt1, "Build", [buildscierie], UL, 125, 280, 60,25
    else
        if language = 0 then button #scierie.bt1, "Améliorer", [buildscierie], UL, 125, 280, 60,25
        if language = 1 then button #scierie.bt1, "Upgrade", [buildscierie], UL, 125, 280, 60,25
    end if
    if language = 0 then button #scierie.d1, "Fermer", [buildscierieNO], UL, 210, 280, 60, 25
    if language = 1 then button #scierie.d1, "Close", [buildscierieNO], UL, 210, 280, 60, 25
    bmpbutton #scierie.d1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\droite1bis.bmp", [w], UL, 386, 0
    bmpbutton #scierie.g1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\gauche1bis.bmp", [w], UL, 0, 0
    bmpbutton #scierie.h1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\haut1bis.bmp", [w], UL, 0, 0
    bmpbutton #scierie.b1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\bas1bis.bmp", [w], UL, 0, 315
    STOCKAGEbois = int((lvlbatimentPrincipal*4000)+((lvlbatimentScierie*6000)*lvlbatimentScierie))
    if language = 0 then statictext #scierie.para1, "L'atelier de bois - ou scierie - est un batiments spécialisé dans la découpe, le travail et l'acheminement du bois. En traitant toutes les étapes en un seul point, cela permet une production plus important et plus rapide. (Vous pouvez stocker ";STOCKAGEbois;" unités de bois) .", 15, 100, 365,100
    if language = 1 then statictext #scierie.para1, "The wood workshop - or sawmill - is a building specialized in the cutting, the work and the routing of the wood. By treating all the steps at one point, this allows for larger and faster production. (You can store ";STOCKAGEbois;" units of wood) .", 15, 100, 365,100
    Open " " for window_popup as #scierie
    [refreshBAT6]
    #scierie.map , "down"
    #scierie.map , "backcolor white"
    print #scierie.map, "font Times New Roman 12; color black"
    if language = 0 then
    print #scierie.map, "place 150 60 ;\"; "Atelier de bois ";"( ";lvlbatimentScierie;" )"
    print #scierie.map, "font Times New Roman 8; color black"
    print #scierie.map, "place 25 230 ;\"; "Ressources nécéssaires :"
    print #scierie.map, "place 25 245 ;\"; "Bois : ";coutScierieBOIS
    print #scierie.map, "place 25 260 ;\"; "Métal : ";coutScierieMETAL
    end if
    if language = 1 then
    print #scierie.map, "place 150 60 ;\"; "Wood workshop ";"( ";lvlbatimentScierie;" )"
    print #scierie.map, "font Times New Roman 8; color black"
    print #scierie.map, "place 25 230 ;\"; "Resources needed :"
    print #scierie.map, "place 25 245 ;\"; "Wood : ";coutScierieBOIS
    print #scierie.map, "place 25 260 ;\"; "Metal : ";coutScierieMETAL
    end if
    STOCKAGEbois = int((lvlbatimentPrincipal*4000)+((lvlbatimentScierie*6000)*lvlbatimentScierie))
    if language = 0 then print #scierie.para1, "L'atelier de bois - ou scierie - est un batiments spécialisé dans la découpe, le travail et l'acheminement du bois. En traitant toutes les étapes en un seul point, cela permet une production plus important et plus rapide. (Vous pouvez stocker ";STOCKAGEbois;" unités de bois) ."
    if language = 1 then print #scierie.para1, "The wood workshop - or sawmill - is a building specialized in the cutting, the work and the routing of the wood. By treating all the steps at one point, this allows for larger and faster production. (You can store ";STOCKAGEbois;" units of wood) ."
    print #scierie.para1, "!font times_new_roman 9 bold italic"
    print #scierie.d1, "disable"
    print #scierie.g1, "disable"
    print #scierie.h1, "disable"
    print #scierie.b1, "disable"
    wait

    [buildscierieNO]
    close #scierie
    batscierie = 0
    wait

    [SimpleClickScierie]
    mX = MouseX
    mY = MouseY
    #scierie.map, "place 120 90 ;\"; "                                                                    "
    wait

    [buildscierie]
    if bois < coutScierieBOIS then
        print #scierie.map, "font Times New Roman 8"
        if language = 0 then print #scierie.map, "place 130 90 ;\"; "Vous n'avez pas assez de bois"
        if language = 1 then print #scierie.map, "place 130 90 ;\"; "You do not have enough wood"
        wait
    end if
    if minerais < coutScierieMETAL then
        print #scierie.map, "font Times New Roman 8"
        if language = 0 then print #scierie.map, "place 130 90 ;\"; "Vous n'avez pas assez de métal"
        if language = 1 then print #scierie.map, "place 130 90 ;\"; "You do not have enough metal"
        wait
    end if
    bois = bois - coutScierieBOIS
    batimentBUILDscierie = 1
    if language = 0 then print #scierie.bt1, "Améliorer"
    if language = 1 then print #scierie.bt1, "Upgrade"
    lvlbatimentScierie = lvlbatimentScierie +1
    coutScierieBOIS = coutScierieBOISindex + (int(lvlbatimentScierie*240))
    coutScierieMETAL = 30*(int(lvlbatimentScierie))
    if RECHEARCHmetal < 1 then coutScierieMETAL = 0
    if bat1 = 1 then close #bat1
    bat1 = 0
    securityRELOADcity = 1
    if lvlbatimentScierie = 1 then
        close #villeJ1
        gosub [villeJ1]
    end if
    print #villeJ1.map, "place 411 27 ;\"; "Scierie\\         Niv ";lvlbatimentScierie; "  "
    goto [refreshBAT6]


    [batimentscierieHUMAIN]
    if bat1 = 1 then close #bat1
    bat1 = 1 : centreMilitaireOpen = 0
    coutlvlCoupeBOIS = int(lvlCoupeBOIS*COUPEbois*1.1)
    coutlvlCoupeFOOD = int(lvlCoupeBOIS*COUPEbois*1.5)
    coutlvlRecyclageBOIS = int(lvlRecyclageBOIS*RECYbois*1.3)
    coutlvlRecyclageFOOD = int(lvlRecyclageBOIS*RECYbois*1.7)
    coutlvlEntretienBOIS = int(lvlEntretienBOIS*ENTRbois*1.4)
    coutlvlEntretienFOOD = int(lvlEntretienBOIS*ENTRbois*1.5)
    WindowWidth=393 : WindowHeight=320
    UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-110) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    BackgroundColor$ = "black" : ForegroundColor$ = "white"

    stylebits #bat1.map, 0, _WS_BORDER, 0, 0
    graphicbox #bat1.map, -5, -5, WindowWidth+5, WindowHeight+5
    bmpbutton #bat1.up1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\upgrader3.bmp", [coupeBOIS], UL, 80, 230
    bmpbutton #bat1.up2, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\upgrader3.bmp", [recyclageBOIS], UL, 190, 230
    bmpbutton #bat1.up3, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\upgrader3.bmp", [entretienBOIS], UL, 300, 230
    Open " " for window_popup as #bat1
    #bat1.map , "backcolor black"
    #bat1.map , "down"
    print #bat1.map, "drawbmp coupe 50 120"
    print #bat1.map, "drawbmp recy 160 120"
    print #bat1.map, "drawbmp entr 270 120"
    print #bat1.map, "drawbmp droite 391 5"
    print #bat1.map, "drawbmp gauche 5 5"
    print #bat1.map, "drawbmp haut 5 5"
    print #bat1.map, "drawbmp bas 5 318"
    [refreshSCIERIE]
    print #bat1.map, "font Times New Roman 20; color white"
    if language = 0 then
        print #bat1.map, "place 120 45 ;\"; "Atelier de bois"
        print #bat1.map, "font Times New Roman 8; color white"
        print #bat1.map, "place 100 90 ;\"; "Production de bois mensuelle :   ";int((popTOTAL*3) + Upbois + COUPEbois + RECYbois + ENTRbois - (popMILIT*4));"   "
        print #bat1.map, "place 60 225 ;\"; "Coupe niv. ";lvlCoupeBOIS
        print #bat1.map, "place 165 225 ;\"; "Recyclage niv. ";lvlRecyclageBOIS
        print #bat1.map, "place 275 225 ;\"; "Entretient niv. ";lvlEntretienBOIS
        print #bat1.map, "font Times New Roman 7; color green"
        print #bat1.map, "place 60 295 ;\"; "bois : ";coutlvlCoupeBOIS
        print #bat1.map, "place 60 306 ;\"; "nourriture : ";coutlvlCoupeFOOD
        print #bat1.map, "place 165 295 ;\"; "bois : ";coutlvlRecyclageBOIS
        print #bat1.map, "place 165 306 ;\"; "nourriture : ";coutlvlRecyclageFOOD
        print #bat1.map, "place 275 295 ;\"; "bois : ";coutlvlEntretienBOIS
        print #bat1.map, "place 275 306 ;\"; "nourriture : ";coutlvlEntretienFOOD
        print #bat1.map, "font Times New Roman 8; color white"
        print #bat1.map, "place 75 280 ;\";COUPEbois;"    "
        print #bat1.map, "place 190 280 ;\";RECYbois;"    "
        print #bat1.map, "place 300 280 ;\";ENTRbois;"    "
    end if
    if language = 1 then
        print #bat1.map, "place 115 45 ;\"; "Wood workshop"
        print #bat1.map, "font Times New Roman 8; color white"
        print #bat1.map, "place 120 90 ;\"; "Monthly wood production :   ";int((popTOTAL*3) + Upbois + COUPEbois + RECYbois + ENTRbois - (popMILIT*4));"   "
        print #bat1.map, "place 70 225 ;\"; "Cut lvl. ";lvlCoupeBOIS
        print #bat1.map, "place 165 225 ;\"; "Recycling lvl. ";lvlRecyclageBOIS
        print #bat1.map, "place 275 225 ;\"; "Maintenance lvl. ";lvlEntretienBOIS
        print #bat1.map, "font Times New Roman 7; color green"
        print #bat1.map, "place 70 295 ;\"; "wood : ";coutlvlCoupeBOIS
        print #bat1.map, "place 70 306 ;\"; "food : ";coutlvlCoupeFOOD
        print #bat1.map, "place 175 295 ;\"; "wood : ";coutlvlRecyclageBOIS
        print #bat1.map, "place 175 306 ;\"; "food : ";coutlvlRecyclageFOOD
        print #bat1.map, "place 285 295 ;\"; "wood : ";coutlvlEntretienBOIS
        print #bat1.map, "place 285 306 ;\"; "food : ";coutlvlEntretienFOOD
        print #bat1.map, "font Times New Roman 8; color white"
        print #bat1.map, "place 85 280 ;\";COUPEbois;"    "
        print #bat1.map, "place 195 280 ;\";RECYbois;"    "
        print #bat1.map, "place 305 280 ;\";ENTRbois;"    "
    end if
    wait

    [coupeBOIS]
    print #bat1.map, "place 130 65 ;\"; "                                                         "
    print #bat1.map, "font Times New Roman 8"
    if bois < coutlvlCoupeBOIS then
        if language = 0 then print #bat1.map, "place 130 65 ;\"; "Vous n'avez pas assez de bois"
        if language = 1 then print #bat1.map, "place 130 65 ;\"; "You do not have enough wood"
        wait
    end if
    if food < coutlvlCoupeFOOD then
        if language = 0 then print #bat1.map, "place 130 65 ;\"; "Vous n'avez pas assez de nourriture"
        if language = 1 then print #bat1.map, "place 130 65 ;\"; "You do not have enough food"
        wait
    end if
    bois = bois - coutlvlCoupeBOIS
    food = food - coutlvlCoupeFOOD
    lvlCoupeBOIS = lvlCoupeBOIS + 1
    coutlvlCoupeBOIS = int(lvlCoupeBOIS*COUPEbois*1.1)
    coutlvlCoupeFOOD = int(lvlCoupeBOIS*COUPEbois*1.5)
    COUPEbois = int(lvlCoupeBOIS*40*lvlCoupeBOIS)
    goto [refreshSCIERIE]
    [recyclageBOIS]
    print #bat1.map, "place 130 65 ;\"; "                                                        "
    print #bat1.map, "font Times New Roman 8"
    if bois < coutlvlRecyclageBOIS then
        if language = 0 then print #bat1.map, "place 130 65 ;\"; "Vous n'avez pas assez de bois"
        if language = 1 then print #bat1.map, "place 130 65 ;\"; "You do not have enough wood"
        wait
    end if
    if food < coutlvlRecyclageFOOD then
        if language = 0 then print #bat1.map, "place 130 65 ;\"; "Vous n'avez pas assez de nourriture"
        if language = 1 then print #bat1.map, "place 130 65 ;\"; "You do not have enough food"
        wait
    end if
    bois = bois - coutlvlRecyclageBOIS
    food = food - coutlvlRecyclageFOOD
    lvlRecyclageBOIS = lvlRecyclageBOIS + 1
    coutlvlRecyclageBOIS = int(lvlRecyclageBOIS*RECYbois*1.3)
    coutlvlRecyclageFOOD = int(lvlRecyclageBOIS*RECYbois*1.7)
    RECYbois = int(lvlRecyclageBOIS*25*lvlRecyclageBOIS)
    goto [refreshSCIERIE]
    [entretienBOIS]
    print #bat1.map, "place 130 65 ;\"; "                                                       "
    print #bat1.map, "font Times New Roman 8"
    if bois < coutlvlEntretienBOIS then
        if language = 0 then print #bat1.map, "place 130 65 ;\"; "Vous n'avez pas assez de bois"
        if language = 1 then print #bat1.map, "place 130 65 ;\"; "You do not have enough wood"
        wait
    end if
    if food < coutlvlEntretienFOOD then
        if language = 0 then print #bat1.map, "place 130 65 ;\"; "Vous n'avez pas assez de nourriture"
        if language = 1 then print #bat1.map, "place 130 65 ;\"; "You do not have enough food"
        wait
    end if
    bois = bois - coutlvlEntretienBOIS
    food = food - coutlvlEntretienFOOD
    lvlEntretienBOIS = lvlEntretienBOIS + 1
    coutlvlEntretienBOIS = int(lvlEntretienBOIS*ENTRbois*1.4)
    coutlvlEntretienFOOD = int(lvlEntretienBOIS*ENTRbois*1.5)
    ENTRbois = int(lvlEntretienBOIS*15*lvlEntretienBOIS)
    goto [refreshSCIERIE]


    [minesBuilder]
    if batmines = 1 then close #mines
    batmines = 1 : centreMilitaireOpen = 0
    WindowWidth=393 : WindowHeight=322
    UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-110) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    BackgroundColor$ = "white" : ForegroundColor$ = "black"
    graphicbox #mines.map, -5, -5, WindowWidth+5, WindowHeight+5
    if lvlbatimentMines = 0 then
        if language = 0 then button #mines.bt1, "Construire", [buildmines], UL, 125, 280, 60,25
        if language = 1 then button #mines.bt1, "Build", [buildmines], UL, 125, 280, 60,25
    else
        if language = 0 then button #mines.bt1, "Améliorer", [buildmines], UL, 125, 280, 60,25
        if language = 1 then button #mines.bt1, "Upgrade", [buildmines], UL, 125, 280, 60,25
    end if
    if language = 0 then button #mines.d1, "Fermer", [buildminesNO], UL, 210, 280, 60, 25
    if language = 1 then button #mines.d1, "Close", [buildminesNO], UL, 210, 280, 60, 25
    bmpbutton #mines.d1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\droite1bis.bmp", [w], UL, 386, 0
    bmpbutton #mines.g1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\gauche1bis.bmp", [w], UL, 0, 0
    bmpbutton #mines.h1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\haut1bis.bmp", [w], UL, 0, 0
    bmpbutton #mines.b1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\bas1bis.bmp", [w], UL, 0, 315
    STOCKAGEminerais = int((lvlbatimentPrincipal*500)+((lvlbatimentMines*250)*lvlbatimentMines))
    if language = 0 then statictext #mines.para1, "Ce bâtiment est spécialisé sand l'extraction des minéraux telques les métaux ou encore le naquada dans les sociétés évolués. C'est un bâtiment essentiel pour évoluer rapidement. Il est toute fois indispensable de connaitre les différente techniques d'extraction et de raffinage pour l'utiliser. (Vous pouvez stocker jusqu'à ";STOCKAGEminerais;" unités de métal).", 15, 100, 365,110
    if language = 1 then statictext #mines.para1, "This building specializes in the extraction of minerals such as metals or naquada in advanced societies. It is an essential building to evolve quickly. However, it is essential to know the different techniques of extraction and refining to use it.(You can store up to "; STORAGEminerais;" metal units).", 15, 100, 365,110
    Open " " for window_popup as #mines
    [refreshBAT7]
    #mines.map, "down"
    #mines.map , "backcolor white"
    print #mines.map, "font Times New Roman 12; color black"
    if language = 0 then
    print #mines.map, "place 135 60 ;\"; "Mine d'extraction ";"( ";lvlbatimentMines;" )"
    print #mines.map, "font Times New Roman 8; color black"
    print #mines.map, "place 25 230 ;\"; "Ressources nécéssaires :"
    print #mines.map, "place 25 245 ;\"; "Bois : ";coutMinesBOIS
    print #mines.map, "place 25 260 ;\"; "Métal : ";coutMinesMETAL
    end if
    if language = 1 then
    print #mines.map, "place 135 60 ;\"; "Extraction mine ";"( ";lvlbatimentMines;" )"
    print #mines.map, "font Times New Roman 8; color black"
    print #mines.map, "place 25 230 ;\"; "Resources needed :"
    print #mines.map, "place 25 245 ;\"; "Wood : ";coutMinesBOIS
    print #mines.map, "place 25 260 ;\"; "Metal : ";coutMinesMETAL
    end if
    STOCKAGEminerais = int((lvlbatimentPrincipal*500)+((lvlbatimentMines*250)*lvlbatimentMines))
    if language = 0 then print #mines.para1, "Ce bâtiment est spécialisé sand l'extraction des minéraux telques les métaux ou encore le naquada dans les sociétés évolués. C'est un bâtiment essentiel pour évoluer rapidement. Il est toute fois indispensable de connaitre les différente techniques d'extraction et de raffinage pour l'utiliser. (Vous pouvez stocker jusqu'à ";STOCKAGEminerais;" unités de métal)."
    if language = 1 then print #mines.para1, "This building specializes in the extraction of minerals such as metals or naquada in advanced societies. It is an essential building to evolve quickly. However, it is essential to know the different techniques of extraction and refining to use it.(You can store up to "; STORAGEminerais;" metal units)."
    print #mines.para1, "!font times_new_roman 9 bold italic"
    print #mines.d1, "disable"
    print #mines.g1, "disable"
    print #mines.h1, "disable"
    print #mines.b1, "disable"
    wait


    [buildminesNO]
    close #mines
    batmines = 0
    wait

    [SimpleClickMines]
    mX = MouseX
    mY = MouseY
    #mines.map, "place 120 90 ;\"; "                                                                    "
    wait

    [buildmines]
    if bois < coutMinesBOIS then
        print #mines.map, "font Times New Roman 8"
        if language = 0 then print #mines.map, "place 130 90 ;\"; "Vous n'avez pas assez de bois"
        if language = 1 then print #mines.map, "place 130 90 ;\"; "You do not have enough wood"
        wait
    end if
    if minerais < coutMinesMETAL then
        print #mines.map, "font Times New Roman 8"
        if language = 0 then print #mines.map, "place 130 90 ;\"; "Vous n'avez pas assez de métal"
        if language = 1 then print #mines.map, "place 130 90 ;\"; "You do not have enough metal"
        wait
    end if

    bois = bois - coutMinesBOIS
    batimentBUILDmines = 1
    if language = 0 then print #mines.bt1, "Améliorer"
    if language = 1 then print #mines.bt1, "Upgrade"
    lvlbatimentMines = lvlbatimentMines +1
    coutMinesBOIS = coutMinesBOISindex + (int(lvlbatimentMines*280))
    coutMinesMETAL = 5*(int(lvlbatimentMines))
    if RECHEARCHmetal < 1 then coutMinesMETAL = 0
    if bat1 = 1 then close #bat1
    bat1 = 0
    securityRELOADcity = 1
    if lvlbatimentMines = 1 then
        close #villeJ1
        gosub [villeJ1]
    end if
    print #villeJ1.map, "place 596 27 ;\"; "Mines\\         Niv ";lvlbatimentMines; "  "
     goto [refreshBAT7]


    [batimentminesHUMAIN]
    if bat1 = 1 then close #bat1
    bat1 = 1
    WindowWidth=393 : WindowHeight=320
    UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-110) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    BackgroundColor$ = "black" : ForegroundColor$ = "white"
    coutlvlRAFFBOIS = int(lvlRAFFmetal*RAFFmetal*2)
    coutlvlRAFFFOOD = int(lvlRAFFmetal*RAFFmetal*1.1)
    coutlvlRECYCLEBOIS = int(lvlRecyclageMETAL*RECYCLEmetal*2.8)
    coutlvlRECYCLEFOOD = int(lvlRecyclageMETAL*RECYCLEmetal*1.2)
    coutlvlEXTRACTIONmetalBOIS = int(lvlEXTRACTIONmetal*EXTRACTIONmetal*2.6)
    coutlvlEXTRACTIONmetalFOOD = int(lvlEXTRACTIONmetal*EXTRACTIONmetal*2.1)
    stylebits #bat1.map, 0, _WS_BORDER, 0, 0
    graphicbox #bat1.map, -5, -5, WindowWidth+5, WindowHeight+5
    bmpbutton #bat1.up1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\upgrader3.bmp", [extractionMETAL], UL, 80, 230
    bmpbutton #bat1.up2, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\upgrader3.bmp", [recycleMETAL], UL, 190, 230
    bmpbutton #bat1.up3, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\upgrader3.bmp", [raffMETAL], UL, 300, 230
    Open " " for window_popup as #bat1
    #bat1.map , "backcolor black"
    #bat1.map , "down"
   ' print #bat1.map, "drawbmp fond3 0 0"
    print #bat1.map, "drawbmp minerai 50 120"
    print #bat1.map, "drawbmp recy 160 120"
    print #bat1.map, "drawbmp raff 270 120"
    print #bat1.map, "drawbmp droite 391 5"
    print #bat1.map, "drawbmp gauche 5 5"
    print #bat1.map, "drawbmp haut 5 5"
    print #bat1.map, "drawbmp bas 5 318"
    print #bat1.map, "font Times New Roman 20; color white"
    if language = 0 then
    print #bat1.map, "place 120 45 ;\"; "Mine d'extraction"
    print #bat1.map, "font Times New Roman 8; color white"
    print #bat1.map, "place 105 90 ;\"; "Production de métal mensuelle : ";int(((5*lvlbatimentMines)+EXTRACTIONmetal+RECYCLEmetal+RAFFmetal)/2);"    "
    print #bat1.map, "place 60 225 ;\"; "Extraction niv. ";lvlEXTRACTIONmetal
    print #bat1.map, "place 165 225 ;\"; "Recyclage niv. ";lvlRecyclageMETAL
    print #bat1.map, "place 275 225 ;\"; "Raffinage niv. ";lvlRAFFmetal
    end if
    if language = 1 then
    print #bat1.map, "place 110 45 ;\"; "Wood workshop"
    print #bat1.map, "font Times New Roman 10; color white"
    print #bat1.map, "place 105 90 ;\"; "Mouthly metal production : "; int(((5*lvlbatimentMines)+EXTRACTIONmetal+RECYCLEmetal+RAFFmetal)/2);"    "
    print #bat1.map, "place 80 225 ;\"; "Extraction"
    print #bat1.map, "place 175 225 ;\"; "Recycling"
    print #bat1.map, "place 290 225 ;\"; "Refining"
    end if
    print #bat1.map, "place 90 280 ;\";int(EXTRACTIONmetal/2);"    "
    print #bat1.map, "place 200 280 ;\";int(RECYCLEmetal/2);"    "
    print #bat1.map, "place 310 280 ;\";int(RAFFmetal/2);"    "
    print #bat1.map, "font Times New Roman 7; color green"
    print #bat1.map, "place 60 295 ;\"; "bois : ";coutlvlEXTRACTIONmetalBOIS
    print #bat1.map, "place 60 306 ;\"; "nourriture : ";coutlvlEXTRACTIONmetalFOOD
    print #bat1.map, "place 165 295 ;\"; "bois : ";coutlvlRECYCLEBOIS
    print #bat1.map, "place 165 306 ;\"; "nourriture : ";coutlvlRECYCLEFOOD
    print #bat1.map, "place 275 295 ;\"; "bois : ";coutlvlRAFFBOIS
    print #bat1.map, "place 275 306 ;\"; "nourriture : ";coutlvlRAFFFOOD
    print #bat1.map, "font Times New Roman 8; color white"
    wait

    [extractionMETAL]
    print #bat1.map, "place 130 65 ;\"; "                                                         "
    print #bat1.map, "font Times New Roman 8"
    if bois < coutlvlEXTRACTIONmetalBOIS then
        if language = 0 then print #bat1.map, "place 130 65 ;\"; "Vous n'avez pas assez de bois"
        if language = 1 then print #bat1.map, "place 130 65 ;\"; "You do not have enough wood"
        wait
    end if
    if food < coutlvlEXTRACTIONmetalFOOD then
        if language = 0 then print #bat1.map, "place 130 65 ;\"; "Vous n'avez pas assez de nourriture"
        if language = 1 then print #bat1.map, "place 130 65 ;\"; "You do not have enough food"
        wait
    end if
    bois = bois - coutlvlEXTRACTIONmetalBOIS
    food = food - coutlvlEXTRACTIONmetalFOOD
    lvlEXTRACTIONmetal = lvlEXTRACTIONmetal + 1
    coutlvlEXTRACTIONmetalBOIS = int(lvlEXTRACTIONmetal*EXTRACTIONmetal*2.6)
    coutlvlEXTRACTIONmetalFOOD = int(lvlEXTRACTIONmetal*EXTRACTIONmetal*2.1)
    EXTRACTIONmetal = int(lvlEXTRACTIONmetal*8*lvlEXTRACTIONmetal)
    print #bat1.map, "place 90 280 ;\"; int(EXTRACTIONmetal/2);"    "
    print #bat1.map, "place 60 225 ;\"; "Extraction niv. ";lvlEXTRACTIONmetal
    print #bat1.map, "place 105 90 ;\"; "Production de métal mensuelle : ";int(((5*lvlbatimentMines)+EXTRACTIONmetal+RECYCLEmetal+RAFFmetal)/2);"    "
    print #bat1.map, "font Times New Roman 7; color green"
    print #bat1.map, "place 60 295 ;\"; "bois : ";coutlvlEXTRACTIONmetalBOIS
    print #bat1.map, "place 60 306 ;\"; "nourriture : ";coutlvlEXTRACTIONmetalFOOD
    print #bat1.map, "font Times New Roman 8; color white"
    wait

    [recycleMETAL]
    print #bat1.map, "place 130 65 ;\"; "                                                        "
    print #bat1.map, "font Times New Roman 8"
    if bois < coutlvlRECYCLEBOIS then
        if language = 0 then print #bat1.map, "place 130 65 ;\"; "Vous n'avez pas assez de bois"
        if language = 1 then print #bat1.map, "place 130 65 ;\"; "You do not have enough wood"
        wait
    end if
    if food < coutlvlRECYCLEFOOD then
        if language = 0 then print #bat1.map, "place 130 65 ;\"; "Vous n'avez pas assez de nourriture"
        if language = 1 then print #bat1.map, "place 130 65 ;\"; "You do not have enough food"
        wait
    end if
    bois = bois - coutlvlRECYCLEBOIS
    food = food - coutlvlRECYCLEFOOD
    lvlRecyclageMETAL = lvlRecyclageMETAL + 1
    coutlvlRECYCLEBOIS = int(lvlRecyclageMETAL*RECYCLEmetal*2.8)
    coutlvlRECYCLEFOOD = int(lvlRecyclageMETAL*RECYCLEmetal*1.2)
    RECYCLEmetal = int(lvlRecyclageMETAL*5*lvlRecyclageMETAL)
    print #bat1.map, "place 200 280 ;\";int(RECYCLEmetal/2);"    "
    print #bat1.map, "place 165 225 ;\"; "Recyclage niv. ";lvlRecyclageMETAL
    print #bat1.map, "place 105 90 ;\"; "Production de métal mensuelle : ";int(((5*lvlbatimentMines)+EXTRACTIONmetal+RECYCLEmetal+RAFFmetal)/2);"    "
    print #bat1.map, "font Times New Roman 7; color green"
    print #bat1.map, "place 165 295 ;\"; "bois : ";coutlvlRECYCLEBOIS
    print #bat1.map, "place 165 306 ;\"; "nourriture : ";coutlvlRECYCLEFOOD
    print #bat1.map, "font Times New Roman 8; color white"
    wait

    [raffMETAL]
    print #bat1.map, "place 130 65 ;\"; "                                                       "
    print #bat1.map, "font Times New Roman 8"
    if bois < coutlvlRAFFBOIS then
        if language = 0 then print #bat1.map, "place 130 65 ;\"; "Vous n'avez pas assez de bois"
        if language = 1 then print #bat1.map, "place 130 65 ;\"; "You do not have enough wood"
        wait
    end if
    if food < coutlvlRAFFFOOD then
        if language = 0 then print #bat1.map, "place 130 65 ;\"; "Vous n'avez pas assez de nourriture"
        if language = 1 then print #bat1.map, "place 130 65 ;\"; "You do not have enough food"
        wait
    end if
    bois = bois - coutlvlRAFFBOIS
    food = food - coutlvlRAFFFOOD
    lvlRAFFmetal = lvlRAFFmetal + 1
    coutlvlRAFFBOIS = int(lvlRAFFmetal*RAFFmetal*2)
    coutlvlRAFFFOOD = int(lvlRAFFmetal*RAFFmetal*1.1)
    RAFFmetal = int(lvlRAFFmetal*6*lvlRAFFmetal)
    print #bat1.map, "place 310 280 ;\"; int(RAFFmetal/2);"    "
    print #bat1.map, "place 275 225 ;\"; "Entretient niv. ";lvlRAFFmetal
    print #bat1.map, "place 105 90 ;\"; "Production de métal mensuelle : ";int(((5*lvlbatimentMines)+EXTRACTIONmetal+RECYCLEmetal+RAFFmetal)/2);"    "
    print #bat1.map, "font Times New Roman 7; color green"
    print #bat1.map, "place 275 295 ;\"; "bois : ";coutlvlRAFFBOIS
    print #bat1.map, "place 275 306 ;\"; "nourriture : ";coutlvlRAFFFOOD
    print #bat1.map, "font Times New Roman 8; color white"
    wait


    [fortificationsBuilder]
    if batmurs = 1 then close #murs
    batmurs = 1
    WindowWidth=393 : WindowHeight=322
    coutFortificationsBOISindex = 4000
    coutFortificationsBOIS = coutFortificationsBOISindex + (int(lvlbatimentFortifications*3000))
    UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-110) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    BackgroundColor$ = "white" : ForegroundColor$ = "black"
    graphicbox #murs.map, -5, -5, WindowWidth+5, WindowHeight+5
    if lvlbatimentFortifications = 0 then
        if language = 0 then button #murs.bt1, "Construire", [buildFortifications], UL, 125, 280, 60,25
        if language = 1 then button #murs.bt1, "Build", [buildFortifications], UL, 125, 280, 60,25
    else
        if language = 0 then button #murs.bt1, "Améliorer", [buildFortifications], UL, 125, 280, 60,25
        if language = 1 then button #murs.bt1, "Upgrade", [buildFortifications], UL, 125, 280, 60,25
    end if
    if language = 0 then button #murs.d1, "Fermer", [buildFortificationsNO], UL, 210, 280, 60, 25
    if language = 1 then button #murs.d1, "Close", [buildFortificationsNO], UL, 210, 280, 60, 25
    bmpbutton #murs.d1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\droite1bis.bmp", [w], UL, 386, 0
    bmpbutton #murs.g1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\gauche1bis.bmp", [w], UL, 0, 0
    bmpbutton #murs.h1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\haut1bis.bmp", [w], UL, 0, 0
    bmpbutton #murs.b1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\age1\bas1bis.bmp", [w], UL, 0, 315
    if language = 0 then statictext #murs.para1, "Ce bâtiment assure la protection de votre peuple contre les attaques hostiles venants d'autres tribu ou de prédateurs. Plus vos fortifications seront imposantes et plus l'ennemis sera intimidé. Chaque niveau d'amélioration de vos fortifications augmente de 2% la valeur défensive de vos unités.", 15, 100, 365,110
    if language = 1 then statictext #murs.para1, "This building protects your people against hostile attacks from other tribes or predators. The bigger your fortifications, the more enemies will be intimidated. Each level of improvement of your fortifications increases the defensive value of your units by 2%.", 15, 100, 365,110
    Open " " for window_popup as #murs
    [refreshBAT8]
    #murs.map , "backcolor white"
    #murs.map , "down"
    print #murs.map, "font Times New Roman 12; color black"
    if language = 0 then
    print #murs.map, "place 90 60 ;\"; "Construire des fortifications ";"( ";lvlbatimentFortifications;" )"
    print #murs.map, "font Times New Roman 8; color black"
    print #murs.map, "place 25 230 ;\"; "Ressources nécéssaires :"
    print #murs.map, "place 25 245 ;\"; "Bois : ";coutFortificationsBOIS;"         "
    print #murs.map, "place 25 260 ;\"; "Métal : ";coutFortificationsMETAL;"         "
    end if
    if language = 1 then
    print #murs.map, "place 90 60 ;\"; "Build fortifications ";"( ";lvlbatimentFortifications;" )"
    print #murs.map, "font Times New Roman 8; color black"
    print #murs.map, "place 25 230 ;\"; "Resources needed :"
    print #murs.map, "place 25 245 ;\"; "Wood : ";coutFortificationsBOIS;"         "
    print #murs.map, "place 25 260 ;\"; "Metal : ";coutFortificationsMETAL;"         "
    end if
    print #murs.para1, "!font times_new_roman 9 bold italic"
    print #murs.d1, "disable"
    print #murs.g1, "disable"
    print #murs.h1, "disable"
    print #murs.b1, "disable"
    #murs.map, "when leftButtonDown [SimpleClickMurs]"
    wait

    [buildFortificationsNO]
    close #murs
    batmurs = 0
    wait

    [SimpleClickMurs]
    mX = MouseX
    mY = MouseY
    #murs.map, "place 120 90 ;\"; "                                                                    "
    wait

    [buildFortifications]
    if bois < coutFortificationsBOIS then
        print #murs.map, "font Times New Roman 8"
        if language = 0 then print #murs.map, "place 130 90 ;\"; "Vous n'avez pas assez de bois"
        if language = 1 then print #murs.map, "place 130 90 ;\"; "You do not have enough wood"
        wait
    end if
    if minerais < coutFortificationsMETAL then
        print #murs.map, "font Times New Roman 8"
        if language = 0 then print #murs.map, "place 130 90 ;\"; "Vous n'avez pas assez de métal"
        if language = 1 then print #murs.map, "place 130 90 ;\"; "You do not have enough metal"
        wait
    end if
    bois = bois - coutFortificationsBOIS
    if language = 0 and lvlbatimentFortifications >=1 then print #murs.bt1, "Améliorer"
    if language = 1 and lvlbatimentFortifications >=1 then print #murs.bt1, "Upgrade"
    batimentBUILDFortifications = 1
    lvlbatimentFortifications = lvlbatimentFortifications +1
    hpFortifications = hpFortifications + 1000
    coutFortificationsBOIS = coutFortificationsBOISindex + (int(lvlbatimentFortifications*3000))
    coutFortifications2BOIS = int(coutFortifications2BOISindex + hpFortifications)
    coutFortificationsMETAL = 12*(int(lvlbatimentFortifications))
    if RECHEARCHmetal < 1 then coutFortificationsMETAL = 0
    if bat1 = 1 then close #bat1
    bat1 = 0
    securityRELOADcity = 1
    if lvlbatimentFortifications = 1 then
       close #villeJ1
       gosub [villeJ1]
    end if
    print #villeJ1.map, "place 676 27 ;\"; "Fortifications\\         Niv ";lvlbatimentFortifications; "  "
    goto [refreshBAT8]

    [batimentmursHUMAIN]
    if bat1 = 1 then close #bat1
    bat1 = 1
    WindowWidth=393 : WindowHeight=320
    coutFortifications2BOIS = int(185 + hpFortifications)
    UpperLeftX=int(((DisplayWidth-WindowWidth)/2)-110) : UpperLeftY=int(((DisplayHeight-WindowHeight)/2)+30)
    BackgroundColor$ = "black" : ForegroundColor$ = "white"
    stylebits #bat1.map, 0, _WS_BORDER, 0, 0
    graphicbox #bat1.map, -5, -5, WindowWidth+5, WindowHeight+5
    'bmpbutton #bat1.close, "bmp\game\selection\GAMEstart\HUMANOIDE\fermetureINGame.bmp", [closeBAT1], UL, WindowWidth-35, 15
    bmpbutton #bat1.up1, "bmp\game\selection\GAMEstart\HUMANOIDE\ages\upgrader3.bmp", [upHpFortifications], UL, 180, 230
    Open " " for window_popup as #bat1
    #bat1.map , "backcolor black"
    #bat1.map , "down"
    print #bat1.map, "drawbmp droite 391 5"
    print #bat1.map, "drawbmp gauche 5 5"
    print #bat1.map, "drawbmp haut 5 5"
    print #bat1.map, "drawbmp bas 5 318"
    print #bat1.map, "font Times New Roman 20; color white"
    print #bat1.map, "place 125 60 ;\"; "Fortifications"
    print #bat1.map, "font Times New Roman 9; color white"
    if language = 0 then
    print #bat1.map, "place 102 220 ;\"; "Améliorer la solidité de vos fortifications "
    print #bat1.map, "place 145 290 ;\"; "(coût : ";coutFortifications2BOIS;" de bois)"
    print #bat1.map, "place 45 120 ;\"; "Vos unités en défense ont un bonus de ";lvlbatimentFortifications*2;"% contre les attaquants"
    print #bat1.map, "place 112 190 ;\"; "Solidité de vos fortifications : ";int(hpFortifications);"    "
    end if
    if language = 1 then
    print #bat1.map, "place 102 220 ;\"; "Improve the strength of your fortifications "
    print #bat1.map, "place 145 290 ;\"; "(Cost : ";coutFortifications2BOIS;" wood)"
    print #bat1.map, "place 45 120 ;\"; "Your defending units have a bonus of ";lvlbatimentFortifications*2;"% against the attackers"
    print #bat1.map, "place 112 190 ;\"; "Strength of your fortifications : ";int(hpFortifications);"    "
    end if
    wait


    [upHpFortifications]
    if bois < coutFortifications2BOIS or lvlbatimentFortifications <1 then wait
    bois = bois - coutFortifications2BOIS
    lvlHPFortifications = lvlHPFortifications +1
    if lvlHPFortifications and fortificationsUP = 1 then hpFortifications = hpFortifications + 2000
    if lvlHPFortifications and fortificationsUP = 2 then hpFortifications = hpFortifications + 10000
    hpFortifications = int(hpFortifications+(lvlbatimentFortifications*100))
    coutFortifications2BOIS = int(coutFortifications2BOISindex + hpFortifications)
    if language = 0 then
    print #bat1.map, "place 102 220 ;\"; "Améliorer la solidité de vos fortifications "
    print #bat1.map, "place 145 290 ;\"; "(coût : ";coutFortifications2BOIS;" de bois)"
    print #bat1.map, "place 45 120 ;\"; "Vos unités en défense ont un bonus de ";lvlbatimentFortifications*2;"% contre les attaquants"
    print #bat1.map, "place 112 190 ;\"; "Solidité de vos fortifications : ";int(hpFortifications);"    "
    end if
    if language = 1 then
    print #bat1.map, "place 102 220 ;\"; "Improve the strength of your fortifications "
    print #bat1.map, "place 145 290 ;\"; "(Cost : ";coutFortifications2BOIS;" wood)"
    print #bat1.map, "place 45 120 ;\"; "Your defending units have a bonus of ";lvlbatimentFortifications*2;"% against the attackers"
    print #bat1.map, "place 112 190 ;\"; "Strength of your fortifications : ";int(hpFortifications);"    "
    end if
    wait

    [AnimWindowCloseVilleJ1]
    close #villeJ1 : villeJ1 = 0 : goto [closeBAT1]

    [territoireSECcomptage]
    nombrePLAYER1territoire = 0
    nombrePLAYER2territoire = 0
    nombrePLAYER3territoire = 0
    if territoire1 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire +1
    if territoire1 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire + 1
    if territoire1 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire + 1
    if territoire2 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire +1
    if territoire2 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire + 1
    if territoire2 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire + 1
    if territoire3 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire +1
    if territoire3 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire + 1
    if territoire3 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire + 1
    if territoire4 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire +1
    if territoire4 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire + 1
    if territoire4 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire + 1
    if territoire5 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire +1
    if territoire5 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire + 1
    if territoire5 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire + 1
    if territoire6 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire +1
    if territoire6 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire + 1
    if territoire6 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire + 1
    if territoire7 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire +1
    if territoire7 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire + 1
    if territoire7 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire + 1
    if territoire8 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire +1
    if territoire8 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire + 1
    if territoire8 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire + 1
    if territoire9 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire +1
    if territoire9 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire + 1
    if territoire9 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire + 1
    if territoire10 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire +1
    if territoire10 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire + 1
    if territoire10 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire + 1
    if territoire11 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire +1
    if territoire11 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire + 1
    if territoire11 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire + 1
    if territoire12 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire +1
    if territoire12 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire + 1
    if territoire12 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire + 1
    if territoire13 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire +1
    if territoire13 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire + 1
    if territoire13 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire + 1
    if territoire14 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire +1
    if territoire14 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire + 1
    if territoire14 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire + 1
    if territoire15 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire +1
    if territoire15 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire + 1
    if territoire15 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire + 1
    if territoire16 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire +1
    if territoire16 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire + 1
    if territoire16 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire + 1
    if territoire17 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire +1
    if territoire17 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire + 1
    if territoire17 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire + 1
    if territoire18 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire +1
    if territoire18 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire + 1
    if territoire18 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire + 1
    if territoire19 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire +1
    if territoire19 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire + 1
    if territoire19 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire + 1
    if territoire20 = 1 then nombrePLAYER1territoire = nombrePLAYER1territoire +1
    if territoire20 = 2 then nombrePLAYER2territoire = nombrePLAYER2territoire + 1
    if territoire20 = 3 then nombrePLAYER3territoire = nombrePLAYER3territoire + 1
    return

    [time]
    timer 0
    on error goto [loadEND]
    print #sgc.map, "discard; font Times New Roman 10; color white"
    days = days +1 : errornotification = 0
    if popTOTAL <= 0 then notice " " + chr$(13) + "Vous avez été vaincu !" : close #sgc : goto [ini]
    if territoire1 <> 3 then NombreHommeDarmeIAm2TERR1 = 0 : NombreLancierIAm2TERR1 = 0 : NombreFrondeurIAm2TERR1 = 0 : NombreArcherIAm2TERR1 = 0
    if territoire1 <> 2 then NombreHommeDarmeIAm1TERR1 = 0 : NombreLancierIAm1TERR1 = 0 : NombreFrondeurIAm1TERR1 = 0 : NombreArcherIAm1TERR1 = 0
    if territoire2 <> 3 then NombreHommeDarmeIAm2TERR2 = 0 : NombreLancierIAm2TERR2 = 0 : NombreFrondeurIAm2TERR2 = 0 : NombreArcherIAm2TERR2 = 0
    if territoire2 <> 2 then NombreHommeDarmeIAm1TERR2 = 0 : NombreLancierIAm1TERR2 = 0 : NombreFrondeurIAm1TERR2 = 0 : NombreArcherIAm1TERR2 = 0
    if territoire3 <> 3 then NombreHommeDarmeIAm2TERR3 = 0 : NombreLancierIAm2TERR3 = 0 : NombreFrondeurIAm2TERR3 = 0 : NombreArcherIAm2TERR3 = 0
    if territoire3 <> 2 then NombreHommeDarmeIAm1TERR3 = 0 : NombreLancierIAm1TERR3 = 0 : NombreFrondeurIAm1TERR3 = 0 : NombreArcherIAm1TERR3 = 0
    if territoire4 <> 3 then NombreHommeDarmeIAm2TERR4 = 0 : NombreLancierIAm2TERR4 = 0 : NombreFrondeurIAm2TERR4 = 0 : NombreArcherIAm2TERR4 = 0
    if territoire4 <> 2 then NombreHommeDarmeIAm1TERR4 = 0 : NombreLancierIAm1TERR4 = 0 : NombreFrondeurIAm1TERR4 = 0 : NombreArcherIAm1TERR4 = 0
    if territoire5 <> 3 then NombreHommeDarmeIAm2TERR5 = 0 : NombreLancierIAm2TERR5 = 0 : NombreFrondeurIAm2TERR5 = 0 : NombreArcherIAm2TERR5 = 0
    if territoire5 <> 2 then NombreHommeDarmeIAm1TERR5 = 0 : NombreLancierIAm1TERR5 = 0 : NombreFrondeurIAm1TERR5 = 0 : NombreArcherIAm1TERR5 = 0
    if territoire6 <> 3 then NombreHommeDarmeIAm2TERR6 = 0 : NombreLancierIAm2TERR6 = 0 : NombreFrondeurIAm2TERR6 = 0 : NombreArcherIAm2TERR6 = 0
    if territoire6 <> 2 then NombreHommeDarmeIAm1TERR6 = 0 : NombreLancierIAm1TERR6 = 0 : NombreFrondeurIAm1TERR6 = 0 : NombreArcherIAm1TERR6 = 0
    if territoire7 <> 3 then NombreHommeDarmeIAm2TERR7 = 0 : NombreLancierIAm2TERR7 = 0 : NombreFrondeurIAm2TERR7 = 0 : NombreArcherIAm2TERR7 = 0
    if territoire7 <> 2 then NombreHommeDarmeIAm1TERR7 = 0 : NombreLancierIAm1TERR7 = 0 : NombreFrondeurIAm1TERR7 = 0 : NombreArcherIAm1TERR7 = 0
    if territoire8 <> 3 then NombreHommeDarmeIAm2TERR8 = 0 : NombreLancierIAm2TERR8 = 0 : NombreFrondeurIAm2TERR8 = 0 : NombreArcherIAm2TERR8 = 0
    if territoire8 <> 2 then NombreHommeDarmeIAm1TERR8 = 0 : NombreLancierIAm1TERR8 = 0 : NombreFrondeurIAm1TERR8 = 0 : NombreArcherIAm1TERR8 = 0
    if territoire9 <> 3 then NombreHommeDarmeIAm2TERR9 = 0 : NombreLancierIAm2TERR9 = 0 : NombreFrondeurIAm2TERR9 = 0 : NombreArcherIAm2TERR9 = 0
    if territoire9 <> 2 then NombreHommeDarmeIAm1TERR9 = 0 : NombreLancierIAm1TERR9 = 0 : NombreFrondeurIAm1TERR9 = 0 : NombreArcherIAm1TERR9 = 0
    if territoire10 <> 3 then NombreHommeDarmeIAm2TERR10 = 0 : NombreLancierIAm2TERR10 = 0 : NombreFrondeurIAm2TERR10 = 0 : NombreArcherIAm2TERR10 = 0
    if territoire10 <> 2 then NombreHommeDarmeIAm1TERR10 = 0 : NombreLancierIAm1TERR10 = 0 : NombreFrondeurIAm1TERR10 = 0 : NombreArcherIAm1TERR10 = 0
    if territoire11 <> 3 then NombreHommeDarmeIAm2TERR11 = 0 : NombreLancierIAm2TERR11 = 0 : NombreFrondeurIAm2TERR11 = 0 : NombreArcherIAm2TERR11 = 0
    if territoire11 <> 2 then NombreHommeDarmeIAm1TERR11 = 0 : NombreLancierIAm1TERR11 = 0 : NombreFrondeurIAm1TERR11 = 0 : NombreArcherIAm1TERR11 = 0
    if territoire12 <> 3 then NombreHommeDarmeIAm2TERR12 = 0 : NombreLancierIAm2TERR12 = 0 : NombreFrondeurIAm2TERR12 = 0 : NombreArcherIAm2TERR12 = 0
    if territoire12 <> 2 then NombreHommeDarmeIAm1TERR12 = 0 : NombreLancierIAm1TERR12 = 0 : NombreFrondeurIAm1TERR12 = 0 : NombreArcherIAm1TERR12 = 0
    if territoire13 <> 3 then NombreHommeDarmeIAm2TERR13 = 0 : NombreLancierIAm2TERR13 = 0 : NombreFrondeurIAm2TERR13 = 0 : NombreArcherIAm2TERR13 = 0
    if territoire13 <> 2 then NombreHommeDarmeIAm1TERR13 = 0 : NombreLancierIAm1TERR13 = 0 : NombreFrondeurIAm1TERR13 = 0 : NombreArcherIAm1TERR13 = 0
    if territoire14 <> 3 then NombreHommeDarmeIAm2TERR14 = 0 : NombreLancierIAm2TERR14 = 0 : NombreFrondeurIAm2TERR14 = 0 : NombreArcherIAm2TERR14 = 0
    if territoire14 <> 2 then NombreHommeDarmeIAm1TERR14 = 0 : NombreLancierIAm1TERR14 = 0 : NombreFrondeurIAm1TERR14 = 0 : NombreArcherIAm1TERR14 = 0
    if territoire15 <> 3 then NombreHommeDarmeIAm2TERR15 = 0 : NombreLancierIAm2TERR15 = 0 : NombreFrondeurIAm2TERR15 = 0 : NombreArcherIAm2TERR15 = 0
    if territoire15 <> 2 then NombreHommeDarmeIAm1TERR15 = 0 : NombreLancierIAm1TERR15 = 0 : NombreFrondeurIAm1TERR15 = 0 : NombreArcherIAm1TERR15 = 0
    if territoire16 <> 3 then NombreHommeDarmeIAm2TERR16 = 0 : NombreLancierIAm2TERR16 = 0 : NombreFrondeurIAm2TERR16 = 0 : NombreArcherIAm2TERR16 = 0
    if territoire16 <> 2 then NombreHommeDarmeIAm1TERR16 = 0 : NombreLancierIAm1TERR16 = 0 : NombreFrondeurIAm1TERR16 = 0 : NombreArcherIAm1TERR16 = 0
    if territoire17 <> 3 then NombreHommeDarmeIAm2TERR17 = 0 : NombreLancierIAm2TERR17 = 0 : NombreFrondeurIAm2TERR17 = 0 : NombreArcherIAm2TERR17 = 0
    if territoire17 <> 2 then NombreHommeDarmeIAm1TERR17 = 0 : NombreLancierIAm1TERR17 = 0 : NombreFrondeurIAm1TERR17 = 0 : NombreArcherIAm1TERR17 = 0
    if territoire18 <> 3 then NombreHommeDarmeIAm2TERR18 = 0 : NombreLancierIAm2TERR18 = 0 : NombreFrondeurIAm2TERR18 = 0 : NombreArcherIAm2TERR18 = 0
    if territoire18 <> 2 then NombreHommeDarmeIAm1TERR18 = 0 : NombreLancierIAm1TERR18 = 0 : NombreFrondeurIAm1TERR18 = 0 : NombreArcherIAm1TERR18 = 0
    if territoire19 <> 3 then NombreHommeDarmeIAm2TERR19 = 0 : NombreLancierIAm2TERR19 = 0 : NombreFrondeurIAm2TERR19 = 0 : NombreArcherIAm2TERR19 = 0
    if territoire19 <> 2 then NombreHommeDarmeIAm1TERR19 = 0 : NombreLancierIAm1TERR19 = 0 : NombreFrondeurIAm1TERR19 = 0 : NombreArcherIAm1TERR19 = 0
    if territoire20 <> 3 then NombreHommeDarmeIAm2TERR20 = 0 : NombreLancierIAm2TERR20 = 0 : NombreFrondeurIAm2TERR20 = 0 : NombreArcherIAm2TERR20 = 0
    if territoire20 <> 2 then NombreHommeDarmeIAm1TERR20 = 0 : NombreLancierIAm1TERR20 = 0 : NombreFrondeurIAm1TERR20 = 0 : NombreArcherIAm1TERR20 = 0
      errorGAME = 01
    if popTOTALIAm1 <= 0 then
        popTOTALIAm1 = 0 : IA1Alife1 = 0
        if territoire1 = 2 then territoire1= 0
        if territoire2 = 2 then territoire2= 0
        if territoire3 = 2 then territoire3= 0
        if territoire4 = 2 then territoire4= 0
        if territoire5 = 2 then territoire5= 0
        if territoire6 = 2 then territoire6= 0
        if territoire7 = 2 then territoire7= 0
        if territoire8 = 2 then territoire8= 0
        if territoire9 = 2 then territoire9= 0
        if territoire10 = 2 then territoire10= 0
        if territoire11 = 2 then territoire11= 0
        if territoire12 = 2 then territoire12= 0
        if territoire13 = 2 then territoire13= 0
        if territoire14 = 2 then territoire14= 0
        if territoire15 = 2 then territoire15= 0
        if territoire16 = 2 then territoire16= 0
        if territoire17 = 2 then territoire17= 0
        if territoire18 = 2 then territoire18= 0
        if territoire19 = 2 then territoire19= 0
        if territoire20 = 2 then territoire20= 0
        if zoomPlanete = 1 then gosub [spritesTerritoires]
    end if
    if popTOTALIAm2 <= 0 then
        popTOTALIAm2 = 0 : IA2Alife1 = 0
        if territoire1 = 3 then territoire1= 0
        if territoire2 = 3 then territoire2= 0
        if territoire3 = 3 then territoire3= 0
        if territoire4 = 3 then territoire4= 0
        if territoire5 = 3 then territoire5= 0
        if territoire6 = 3 then territoire6= 0
        if territoire7 = 3 then territoire7= 0
        if territoire8 = 3 then territoire8= 0
        if territoire9 = 3 then territoire9= 0
        if territoire10 = 3 then territoire10= 0
        if territoire11 = 3 then territoire11= 0
        if territoire12 = 3 then territoire12= 0
        if territoire13 = 3 then territoire13= 0
        if territoire14 = 3 then territoire14= 0
        if territoire15 = 3 then territoire15= 0
        if territoire16 = 3 then territoire16= 0
        if territoire17 = 3 then territoire17= 0
        if territoire18 = 3 then territoire18= 0
        if territoire19 = 3 then territoire19= 0
        if territoire20 = 3 then territoire20= 0
        if zoomPlanete = 1 then gosub [spritesTerritoires]
    end if

    if days > 30 then
        mouths = mouths + 1
        gosub [territoireSECcomptage]
        if STATUTiam2TOiam1 <100 then STATUTiam2TOiam1 = STATUTiam2TOiam1 + 4 -(nombrePLAYER2territoire+nombrePLAYER3territoire)
        if STATUTiam1 <100 then STATUTiam1 = STATUTiam1 + (2-nombrePLAYER1territoire)
        if STATUTiam2 <100 then STATUTiam2 = STATUTiam2 + (2-nombrePLAYER1territoire)
        if STATUTiam2TOiam1 < -100 then STATUTiam2TOiam1 = -100
        if STATUTiam1 < -100 then STATUTiam1 = -100
        if STATUTiam2 < -100 then STATUTiam2 = -100

        RECHEARCHpoint = RECHEARCHpoint + popSCIENT
        mouthsNATALITY = mouthsNATALITY + 1
        if mouthsNATALITY >= 9 then
            mouthsNATALITY = 0
            natality = int(popTOTAL/10)
            if natality < 1 and popTOTAL < 20 then natality = 2
            if popTOTAL > 0 then popTOTAL = popTOTAL + natality + UPnatality
            popPossible = int(placePARhabitationJ1*nombreHabitationJ1+(2*lvlbatimentHabitation))
            if popTOTAL > popPossible then popTOTAL = popPossible
            if IA2Alife1 > 0 then
                natalityIAm2 = int(popTOTALIAm2/10)
                if natalityIAm2 < 1 then natalityIAm2 = 1
                if popTOTALIAm2 < 20 then natalityIAm2 = 2
                if popTOTALIAm2 > 0 then popTOTALIAm2 = popTOTALIAm2 + natalityIAm2
                if popTOTALIAm2 > popPossibleIAm2 then popTOTALIAm2 = popPossibleIAm2
            end if
            if IA1Alife1 > 0 then
                natalityIAm1 = int(popTOTALIAm1/10)
                if natalityIAm1 < 1 then natalityIAm1 = 1
                if popTOTALIAm1 < 20 then natalityIAm1 = 2
                if popTOTALIAm1 > 0 then popTOTALIAm1 = popTOTALIAm1 + natalityIAm1
                if popTOTALIAm1 > popPossibleIAm1 then popTOTALIAm1 = popPossibleIAm1
            end if
        end if
        SurfaceTerreP1j1 = SurfaceTerreP1j1 + int(SurfaceTerreP1j1/20)
        if SurfaceTerreP1j1 > SurfaceTerreP1 then SurfaceTerreP1j1 = SurfaceTerreP1
        if SurfaceTerreP1j1 > influencePossible then SurfaceTerreP1j1 = influencePossible

        if IA1Alife1 > 0 then
            SurfaceTerreP1IAm1 = SurfaceTerreP1IAm1 + int(SurfaceTerreP1IAm1/20)
            if SurfaceTerreP1IAm1 > SurfaceTerreP1 then SurfaceTerreP1IAm1 = SurfaceTerreP1
            influencePossibleIAm1 = (500*lvlbatimentPrincipalIAm1)+1000
            if SurfaceTerreP1IAm1 > influencePossibleIAm1 then SurfaceTerreP1IAm1 = influencePossibleIAm1
        end if
        if IA2Alife1 > 0 then
            SurfaceTerreP1IAm2 = SurfaceTerreP1IAm2 + int(SurfaceTerreP1IAm2/20)
            if SurfaceTerreP1IAm2 > SurfaceTerreP1 then SurfaceTerreP1IAm2 = SurfaceTerreP1
            influencePossibleIAm2 = (500*lvlbatimentPrincipalIAm2)+1000
            if SurfaceTerreP1IAm2 > influencePossibleIAm2 then SurfaceTerreP1IAm2 = influencePossibleIAm2
        end if

        if nombrePLAYER1territoire = 0 then INCOMEterritoireFOOD = 0 : INCOMEterritoireBOIS = 0 : INCOMEterritoireMETAL = 0
        if INCOMEterritoireFOOD <0 then INCOMEterritoireFOOD = 0
        if INCOMEterritoireBOIS <0 then INCOMEterritoireBOIS = 0
        if INCOMEterritoireMETAL <0 then INCOMEterritoireMETAL = 0

        if IA1Alife1 > 0 then
        if INCOMEterritoireFOODiam1 <100 then INCOMEterritoireFOODiam1 = 100
        if INCOMEterritoireBOISiam1 <200 then INCOMEterritoireBOISiam1 = 200
        if INCOMEterritoireMETALiam1 <10 then INCOMEterritoireMETALiam1 = 10
        end if
        if IA2Alife1 > 0 then
        if INCOMEterritoireFOODiam2 <100 then INCOMEterritoireFOODiam2 = 100
        if INCOMEterritoireBOISiam2 <200 then INCOMEterritoireBOISiam2 = 200
        if INCOMEterritoireMETALiam2 <10 then INCOMEterritoireMETALiam2 = 10
        end if

        if IA1Alife1 > 0 then
        'ressource IA mineure 1
        STOCKAGEfoodIAm1 = int((lvlbatimentPrincipalIAm1*2000)+(lvlbatimentFermeIAm1*5000))
        STOCKAGEboisIAm1 = int((lvlbatimentPrincipalIAm1*2000)+(lvlbatimentScierieIAm1*5000))
        STOCKAGEmineraisIAm1 = int((lvlbatimentPrincipalIAm1*500)+(lvlbatimentMinesIAm1*1000))
        boisIAm1 = int( boisIAm1 + (popTOTALIAm1*3) + INCOMEterritoireBOISiam1 + (50*lvlbatimentScierieIAm1) - (popMILITIAm1*2) + 1)
        if boisIAm1 < 0 then boisIAm1 = 0
        metalIAm1 = int( metalIAm1 + INCOMEterritoireMETALiam1 + (popMILITIAm1*4+popSCIENTIAm1*1)/4 + UpmetalIAm1)
        naqadaIAm1 = int( naqadaIAm1 + (SurfaceTerreP1IAm1+SurfaceOceanP1IAm1)/250 + UpnaqadaIAm1)
        foodIAm1 = int(foodIAm1 + (((popTOTALIAm1/3)*((SurfaceTerreP1IAm1+SurfaceOceanP1IAm1)/30)) + 300 + INCOMEterritoireFOODiam1 + (50*lvlbatimentFermeIAm1) - ((popSCIENTIAm1*2) + (popMILITIAm1*2)))/3)
        if foodIAm1 < 0 then foodIAm1 = 0
        if foodIAm1 > STOCKAGEfoodIAm1 then foodIAm1 = STOCKAGEfoodIAm1
        if boisIAm1 > STOCKAGEboisIAm1 then boisIAm1 = STOCKAGEboisIAm1
        if metalIAm1 > STOCKAGEmineraisIAm1 then metalIAm1 = STOCKAGEmineraisIAm1
        if naqadaIAm1 > STOCKAGEmineraisIAm1 then naqadaIAm1 = STOCKAGEmineraisIAm1
        end if
        if IA2Alife1 > 0 then
        'ressource IA mineure 2
        STOCKAGEfoodIAm2 = int((lvlbatimentPrincipalIAm2*2000)+(lvlbatimentFermeIAm2*5000))
        STOCKAGEboisIAm2 = int((lvlbatimentPrincipalIAm2*2000)+(lvlbatimentScierieIAm2*5000))
        STOCKAGEmineraisIAm2 = int((lvlbatimentPrincipalIAm2*500)+(lvlbatimentMinesIAm2*1000))
        boisIAm2 = int( boisIAm2 + (popTOTALIAm2*3) + INCOMEterritoireBOISiam2 + (50*lvlbatimentScierieIAm2) - (popMILITIAm2*2) + 1)
        if boisIAm2 < 0 then boisIAm2 = 0
        metalIAm2 = int( metalIAm2 + INCOMEterritoireMETALiam2 + (popMILITIAm2*4+popSCIENTIAm2*1)/4 + UpmetalIAm2)
        naqadaIAm2 = int( naqadaIAm2 + (SurfaceTerreP1IAm2+SurfaceOceanP1IAm2)/250 + UpnaqadaIAm2)
        foodIAm2 = int(foodIAm2 + (((popTOTALIAm2/3)*((SurfaceTerreP1IAm2+SurfaceOceanP1IAm2)/30)) + 300 + INCOMEterritoireFOODiam2 + (50*lvlbatimentFermeIAm2) - ((popSCIENTIAm2*2) + (popMILITIAm2*2)))/3)
        if foodIAm2 < 0 then foodIAm2 = 0
        if foodIAm2 > STOCKAGEfoodIAm2 then foodIAm2 = STOCKAGEfoodIAm2
        if boisIAm2 > STOCKAGEboisIAm2 then boisIAm2 = STOCKAGEboisIAm2
        if metalIAm2 > STOCKAGEmineraisIAm2 then metalIAm2 = STOCKAGEmineraisIAm2
        if naqadaIAm2 > STOCKAGEmineraisIAm2 then naqadaIAm2 = STOCKAGEmineraisIAm2
        end if

        'ressource joueur
        foodADD = lvlbatimentFerme * 25 + Upfood
        STOCKAGEfood = int((lvlbatimentPrincipal*3000)+((lvlbatimentFerme*4500)*lvlbatimentFerme))
        STOCKAGEbois = int((lvlbatimentPrincipal*4000)+((lvlbatimentScierie*6000)*lvlbatimentScierie))
        STOCKAGEminerais = int((lvlbatimentPrincipal*500)+((lvlbatimentMines*250)*lvlbatimentMines))
        if RECHEARCHmoney = 1 then money = int(money + popTOTAL)
        bois = int( bois + (popTOTAL*3) + INCOMEterritoireBOIS + Upbois + COUPEbois + RECYbois + ENTRbois - (popMILIT*4))
        if bois < 0 then bois = 0
        if lvlbatimentMines >= 1 then metal = int( metal + INCOMEterritoireMETAL + (lvlbatimentMines+EXTRACTIONmetal+RECYCLEmetal+RAFFmetal)/2)
        if lvlbatimentMines = 0 then metal = int( metal + INCOMEterritoireMETAL)
        if metal < 0 then metal = 0
        if RECHEARCHnaquada = 1 then naqada = int( naqada + (SurfaceTerreP1j1+SurfaceOceanP1j1)/250 + Upnaqada)
        food = int(food + ((SurfaceTerreP1j1+SurfaceOceanP1j1)/30) + INCOMEterritoireFOOD + foodADD + AgricultureFOOD + ElevageFOOD + CueilletteFOOD + ChasseFOOD - ((popSCIENT*2) + (popMILIT*4) + (popTOTAL-popMILIT-popSCIENT))+100)
        if food < 0 then food = 0
        if food > STOCKAGEfood then food = STOCKAGEfood
        if bois > STOCKAGEbois then bois = STOCKAGEbois
        if metal > STOCKAGEminerais then metal = STOCKAGEminerais
        if naqada > STOCKAGEminerais then naqada = STOCKAGEminerais
        if food < 0 then food = 0

        days = 1
    end if
    if mouths > 11 then year = year + 1 : mouths = 0

    compteurIA1m = compteurIA1m +1 : compteurIA2m = compteurIA2m +1
    if IA1Alife1 = 1 then errorGAME = 1 : gosub [upgradeIA1]
    if IA2Alife1 = 1 then errorGAME = 2 : gosub [upgradeIA2]
    errorGAME = 30

    if zoomPlanete = 1 then
     if attaqueAIm1 = 1 and attaqueAIm2 = 0 then
        if P1ennemix<P1x then P1ennemix = P1ennemix +1
        if P1ennemix>P1x then P1ennemix = P1ennemix -1
        if P1ennemiy>P1y then P1ennemiy = P1ennemiy -1
        if P1ennemiy<P1y then P1ennemiy = P1ennemiy +1
        if foundedSECU = 0 then #sgc.map,"spritexy locaENNEMI ";P1ennemix;" ";P1ennemiy : #sgc.map,"SpriteVisible locaENNEMI on" : #sgc.map "spritetofront locaENNEMI"
        if P1ennemix = P1x and P1ennemiy = P1y then
            P1ennemix = PiaCOORx
            P1ennemiy = PiaCOORy
            attaqueAIm1 = 2
            if foundedSECU = 0 then #sgc.map,"SpriteVisible locaENNEMI off" : print #sgc.map, "drawsprites"
            goto [boucleATKia1A]
        end if
    end if
    errorGAME = 31
    if attaqueAIm2 = 1 and attaqueAIm1 = 0 then
        if P1ennemix<P1x then P1ennemix = P1ennemix +1
        if P1ennemix>P1x then P1ennemix = P1ennemix -1
        if P1ennemiy>P1y then P1ennemiy = P1ennemiy -1
        if P1ennemiy<P1y then P1ennemiy = P1ennemiy +1
        if foundedSECU2 = 0 then #sgc.map,"spritexy locaENNEMI ";P1ennemix;" ";P1ennemiy : #sgc.map,"SpriteVisible locaENNEMI on" : #sgc.map "spritetofront locaENNEMI"
        if P1ennemix = P1x and P1ennemiy = P1y then
            P1ennemix = PiaCOORx
            P1ennemiy = PiaCOORy
            attaqueAIm2 = 2
            if foundedSECU2 = 0 then #sgc.map,"SpriteVisible locaENNEMI off" : print #sgc.map, "drawsprites"
            errorGAME = 311
            goto [boucleATKia2A]
        end if
    end if
    errorGAME = 32
    if espionnageEXPEDITION = 1 then
        repeat1 = 1
        [repeat3]
        if P1espion2x<PiaCOORx then P1espion2x = P1espion2x +3
        if P1espion2x>PiaCOORx then P1espion2x = P1espion2x -3
        if P1espion2y>PiaCOORy then P1espion2y = P1espion2y -3
        if P1espion2y<PiaCOORy then P1espion2y = P1espion2y +3
        #sgc.map,"spritexy locaESPION2 ";P1espion2x;" ";P1espion2y
        #sgc.map,"SpriteVisible locaESPION2 on" : #sgc.map "spritetofront locaESPION2"
        if espionnageEXPEDITION = 1 and P1espion2x > PiaCOORx-5 and P1espion2x < PiaCOORx+5 and P1espion2y > PiaCOORy-5 and P1espion2y < PiaCOORy+5 then
            P1espion2x = PiaCOORx
            P1espion2y = PiaCOORy
            espionnageEXPEDITION = 2
            #sgc.map,"SpriteVisible locaESPION2 off"
        end if
        if repeat1 > 0 then repeat1 = repeat1 - 1 : goto [repeat3]
    end if
    errorGAME = 33
    if attaqueEXPEDITION = 1 then
        if P1espionx<PiaCOORx then P1espionx = P1espionx +1
        if P1espionx>PiaCOORx then P1espionx = P1espionx -1
        if P1espiony>PiaCOORy then P1espiony = P1espiony -1
        if P1espiony<PiaCOORy then P1espiony = P1espiony +1
        #sgc.map,"spritexy locaESPION ";P1espionx;" ";P1espiony
        #sgc.map,"SpriteVisible locaESPION on" : #sgc.map "spritetofront locaESPION"
        if attaqueEXPEDITION = 1 and P1espionx = PiaCOORx and P1espiony = PiaCOORy then
            P1espionx = PiaCOORx
            P1espiony = PiaCOORy
            attaqueEXPEDITION = 2
            #sgc.map,"SpriteVisible locaESPION off"
        end if
    end if
    errorGAME = 34
    if espionnageEXPEDITION = 2 then
        repeat1 = 1
        [repeat4]
        if P1espion2x<P1x then P1espion2x = P1espion2x +3
        if P1espion2x>P1x then P1espion2x = P1espion2x -3
        if P1espion2y>P1y then P1espion2y = P1espion2y -3
        if P1espion2y<P1y then P1espion2y = P1espion2y +3
        #sgc.map,"spritexy locaESPION2 ";P1espion2x;" ";P1espion2y
        #sgc.map,"SpriteVisible locaESPION2 on" : #sgc.map "spritetofront locaESPION2"
        if espionnageEXPEDITION = 2 and P1espion2x > P1x-5 and P1espion2x < P1x+5 and P1espion2y > P1y-5 and P1espion2y < P1y+5 then
            P1espion2x = P1x
            P1espion2y = P1y
            espionnageEXPEDITION = 0 : repeat1 = 0
            #sgc.map,"SpriteVisible locaESPION2 off"
          '  #sgc.map,"removesprite locaESPION2"
            print #sgc.map, "drawsprites"
            if openRAPPORT = 0 then gosub [rapportEspionnage]
        end if
        if repeat1 = 1 then repeat1 = repeat1 - 1 : goto [repeat4]
    end if
    errorGAME = 35
    if attaqueEXPEDITION = 2 then
        if P1espionx<P1x then P1espionx = P1espionx +1
        if P1espionx>P1x then P1espionx = P1espionx -1
        if P1espiony>P1y then P1espiony = P1espiony -1
        if P1espiony<P1y then P1espiony = P1espiony +1
        #sgc.map,"spritexy locaESPION ";P1espionx;" ";P1espiony
        #sgc.map,"SpriteVisible locaESPION on" : #sgc.map "spritetofront locaESPION"
        if attaqueEXPEDITION = 2 and P1espionx = P1x and P1espiony = P1y then
            P1espionx = P1x
            P1espiony = P1y
            attaqueEXPEDITION = 0
            #sgc.map,"SpriteVisible locaESPION off"
            print #sgc.map, "drawsprites"
            if PiaCOORx = P1bisx then goto [boucleDEFia1A]
            if PiaCOORx = P2bisx then goto [boucleDEFia2A]
        end if
    end if
    errorGAME = 36
    print #sgc.map, "drawsprites; color black; font Times New Roman 8 italic"
    if language = 0 then print #sgc.map, "place ";P1x-6;" ";P1y-5;" ;\";"Votre ville"' ";STATUTiam2TOiam1 ; " / "; nombrePLAYER2territoire ; " : "; nombrePLAYER3territoire
    if language = 1 then print #sgc.map, "place ";P1x-3;" ";P1y-5;" ;\";"Your city"
    end if

    [refreshMAPexploration]
    if zoomPlanete = 1 then gosub [refreshMAPdata]

    errorGAME = 37
    if zoomPlanete = 0 then

     if attaqueAIm1 = 1 and attaqueAIm2 = 0 then
        if P1ennemix<P1x then P1ennemix = P1ennemix +1
        if P1ennemix>P1x then P1ennemix = P1ennemix -1
        if P1ennemiy>P1y then P1ennemiy = P1ennemiy -1
        if P1ennemiy<P1y then P1ennemiy = P1ennemiy +1
        if P1ennemix = P1x and P1ennemiy = P1y then
            P1ennemix = PiaCOORx
            P1ennemiy = PiaCOORy
            attaqueAIm1 = 2
            goto [boucleATKia1A]
        end if
    end if

    if attaqueAIm2 = 1 and attaqueAIm1 = 0 then
        if P1ennemix<P1x then P1ennemix = P1ennemix +1
        if P1ennemix>P1x then P1ennemix = P1ennemix -1
        if P1ennemiy>P1y then P1ennemiy = P1ennemiy -1
        if P1ennemiy<P1y then P1ennemiy = P1ennemiy +1
        if P1ennemix = P1x and P1ennemiy = P1y then
            P1ennemix = PiaCOORx
            P1ennemiy = PiaCOORy
            attaqueAIm2 = 2
            goto [boucleATKia2A]
        end if
    end if

    if espionnageEXPEDITION = 1 then
        repeat1 = 1
        [repeat1]
        if P1espion2x<PiaCOORx then P1espion2x = P1espion2x +1
        if P1espion2x>PiaCOORx then P1espion2x = P1espion2x -1
        if P1espion2y>PiaCOORy then P1espion2y = P1espion2y -1
        if P1espion2y<PiaCOORy then P1espion2y = P1espion2y +1
        if espionnageEXPEDITION = 1 and P1espion2x = PiaCOORx and P1espion2y = PiaCOORy then
            P1espion2x = PiaCOORx
            P1espion2y = PiaCOORy
            espionnageEXPEDITION = 2
        end if
        if repeat1 = 1 then repeat1 = repeat1 - 1 : goto [repeat1]
    end if
    if attaqueEXPEDITION = 1 then
        if P1espionx<PiaCOORx then P1espionx = P1espionx +1
        if P1espionx>PiaCOORx then P1espionx = P1espionx -1
        if P1espiony>PiaCOORy then P1espiony = P1espiony -1
        if P1espiony<PiaCOORy then P1espiony = P1espiony +1
        if attaqueEXPEDITION = 1 and P1espionx = PiaCOORx and P1espiony = PiaCOORy then
            P1espionx = PiaCOORx
            P1espiony = PiaCOORy
            attaqueEXPEDITION = 2
        end if
    end if

    if espionnageEXPEDITION = 2 then
        repeat1 = 1
        [repeat2]
        if P1espion2x<P1x then P1espion2x = P1espion2x +1
        if P1espion2x>P1x then P1espion2x = P1espion2x -1
        if P1espion2y>P1y then P1espion2y = P1espion2y -1
        if P1espion2y<P1y then P1espion2y = P1espion2y +1
        if espionnageEXPEDITION = 2 and P1espion2x = P1x and P1espion2y = P1y then
            P1espion2x = P1x
            P1espion2y = P1y
            espionnageEXPEDITION = 0
            if openRAPPORT = 0 then gosub [rapportEspionnage]
        end if
        if repeat1 = 1 then repeat1 = repeat1 - 1 : goto [repeat2]
    end if
    if attaqueEXPEDITION = 2 then
        if P1espionx<P1x then P1espionx = P1espionx +1
        if P1espionx>P1x then P1espionx = P1espionx -1
        if P1espiony>P1y then P1espiony = P1espiony -1
        if P1espiony<P1y then P1espiony = P1espiony +1
        if attaqueEXPEDITION = 2 and P1espionx = P1x and P1espiony = P1y then
            P1espionx = P1x
            P1espiony = P1y
            attaqueEXPEDITION = 0
            if PiaCOORx = P1bisx then goto [boucleDEFia1A]
            if PiaCOORx = P2bisx then goto [boucleDEFia2A]
        end if
    end if

    print #sgc.map, "drawsprites;font Times New Roman 10; backcolor black"
    if language = 0 then print #sgc.map, "place 20 23 ;\";" Année : ";year;"  | Mois : ";mouths;"  | Jour : ";days;"     "
    if language = 1 then print #sgc.map, "place 20 23 ;\";" Year : ";year;"  | Mouth : ";mouths;"  | Day : ";days;"     "

    if IA1Alife1 = 1 and DecouverteCiv2P1 = 1 then IA1Alife1C = 1
    if IA2Alife1 = 1 and DecouverteCiv3P1 = 1 then IA2Alife1C = 1
    nomPLANETE$ = "Civilisation(s) :";" "; int(nplayerP1 + IA1Alife1C + IA2Alife1C)
    print #sgc.map, "color white ; place 800 290 ;\";" ";nomPLANETE$;"       "
    print #sgc.map, "color green ; place 800 305 ;\";"- ";RaceSelection$;"       "
    if IA1Alife1 = 1 and DecouverteCiv2P1 = 1 then print #sgc.map, "color white; backcolor ";r;" ";v;" ";b;"; place 800 320 ;\";"- "; RaceIAm1$;"     "
    if IA2Alife1 = 1 and DecouverteCiv3P1 = 1 then print #sgc.map, "color white; backcolor ";r;" ";v;" ";b;"; place 800 335 ;\";"- "; RaceIAm2$;"     "
    IA1Alife1C = 0 : IA2Alife1C = 0

    end if

    errorGAME = 40

    'print #sgc.map, "drawsprites"
    if vitesse$ = "Vitesse du jeu : x3" then timer 333, [time]
    if vitesse$ = "Vitesse du jeu : x2" then timer 500, [time]
    if vitesse$ = "Vitesse du jeu : x1" then timer 1000, [time]


  '  timer 500, [time]
  '  midx=int(WindowWidth/2)
  '  midy=int(WindowHeight/2)
  '  accountMOON = 0
  '  [reloadMOON]
  '  x=midx-(250*sin(n/57.29577951))
  '  y=midy-(52*cos(n/57.29577951))
  '  d=int(midy-y)+52
  '  if d<50 then #sgc.map "spritetofront PlaneteT1" else #sgc.map "spritetofront moon"
  '  #sgc.map "spritescale moon ";d
  '  #sgc.map "spritexy moon ";x;" ";y
  '  #sgc.map "drawsprites"
  '  n=n+0.01
  '  if n>=360 then n=0
  '  accountMOON = accountMOON + 1
  '  if accountMOON < 300 then goto [reloadMOON]
    wait

    [menuINgame]
    if menuIngame = 1 then goto [AnimWindowClosemenuIngame]
    if menuIngame = 2 then goto [MENU2]
    menuIngame = 1
    [MENU2]
    timer 0
    WindowWidth=300 : WindowHeight=500
    UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
    graphicbox #menuIngame.map, 0, 0, WindowWidth, WindowHeight
    Open " " for window_popup as #menuIngame
    #menuIngame.map, "setfocus; when leftButtonDown [SimpleClickmenuIngame]"
    #menuIngame.map, "down;fill black"
        print #menuIngame.map, "font Times New Roman 30; color white"
        print #menuIngame.map, "backcolor black ; place 82 50 ;\";"Stargate"
        print #menuIngame.map, "font Times New Roman 10; color white"
        print #menuIngame.map, "backcolor black ; place 95 80 ;\";"Master of Universe"
        print #menuIngame.map, "backcolor black ; place 130 100 ;\";GameVersion
    if language = 0 then
        print #menuIngame.map, "font Times New Roman 15; color white"
        print #menuIngame.map, "backcolor black ; place 70 180 ;\";"MENU PRINCIPAL"
        print #menuIngame.map, "backcolor black ; place 125 220 ;\";"AIDE"
        print #menuIngame.map, "backcolor black ; place 75 260 ;\";"SAUVEGARDER"
        print #menuIngame.map, "backcolor black ; place 105 305 ;\";"CHARGER"
        print #menuIngame.map, "backcolor black ; place 65 352 ;\";"OPTIONS SYSTEME"
        print #menuIngame.map, "backcolor black ; place 110 450 ;\";"QUITTER"
    end if
    if language = 1 then
        print #menuIngame.map, "font Times New Roman 15; color white"
        print #menuIngame.map, "backcolor black ; place 95 180 ;\";"MAIN PAGE"
        print #menuIngame.map, "backcolor black ; place 125 220 ;\";"HELP"
        print #menuIngame.map, "backcolor black ; place 95 260 ;\";"SAVE GAME"
        print #menuIngame.map, "backcolor black ; place 95 305 ;\";"LOAD GAME"
        print #menuIngame.map, "backcolor black ; place 65 352 ;\";"SYSTEME OPTIONS"
        print #menuIngame.map, "backcolor black ; place 100 450 ;\";"QUIT GAME"
    end if

    if menuIngame = 2 then menuIngame = 1 : return
    #menuIngame.map, "flush"
    wait

    [SimpleClickmenuIngame]
    mX = MouseX
    mY = MouseY
    timer 0
    if mX>int(70) and mX<int(70+165) and mY>int(150) and mY<int(150+35) then
    if language = 0 then confirm "Voulez-vous vraiment retourner au menu principal ?"; back$
    if language = 1 then confirm "Do you realy want to go back to the main menu ?"; back$
        if back$ = "no" then wait
        close #menuIngame
        menuIngame = 0
        close #sgc
        dwFlags = AW.BLEND
        batimentBUILDpop = 0
        batimentBUILDcs = 0
        batimentBUILDcm = 0
        batimentBUILDferme = 0
        batimentBUILDscierie = 0
        goto [ini]
    end if

    if mX>int(70) and mX<int(70+165) and mY>int(200) and mY<int(200+25) then close #menuIngame : menuIngame = 0 : goto [aide]
    if mX>int(70) and mX<int(70+165) and mY>int(240) and mY<int(240+25) then goto [dataSAVEmode]
    if mX>int(70) and mX<int(70+165) and mY>int(285) and mY<int(285+25) then goto [dataLOADmode]
    if mX>int(70) and mX<int(70+165) and mY>int(330) and mY<int(330+25) then close #menuIngame : menuIngame = 0 : goto [setting]
    if mX>int(70) and mX<int(70+165) and mY>int(425) and mY<int(425+30) then
        close #menuIngame
        menuIngame = 0
        goto [AnimWindowCloseSGC]
    end if
    goto [time]


    [AnimWindowClosemenuIngame]
    close #menuIngame
    menuIngame = 0
    wait


[loadEND]
if language = 0 then notice " " + chr$(13) + "Une erreur est survenue. Fermeture du jeu. "; errorGAME
if language = 1 then notice " " + chr$(13) + "Fatal error. Game must be close. "; errorGAME
kill "data\pref.txt"
end

[load]
if language = 0 then
    confirm "Charger votre dernière partie ?"; load$
    if load$ = "no" then wait
    saveMain=0
    dir$ = "" : file$ = dataloadNAME$
    if fileExist(dir$,file$) = 0 then notice " " + chr$(13) + " " + chr$(13) + "Vous n'avez aucune sauvegarde enregistrée !" : wait
end if
if language = 1 then
    confirm "Load your last game ?";  load$
    if load$ = "no" then wait
    saveMain=0
    dir$ = "" : file$ = dataloadNAME$
    if fileExist(dir$,file$) = 0 then notice " " + chr$(13) + "No game saved!" : wait
end if
[loading1]
attaqueAIm1 = 0 : timer 0
on error goto [loadEND]
load = 1
if menuIngame = 1 then close #menuIngame : menuIngame = 0

[loadingSAVE]
gosub [inputDATA]
if MenuMode = 1 then return
RaceSelection$ = RaceSelectionSAVE$ : year = yearSAVE : mouths = mouthsSAVE : days = daysSAVE : attaqueAIm2 = 0 : attaqueAIm1 = 0
close #saveMain : saveMain = 0 : game$ = "on"
goto [GAMEstart]

[save]
RaceSelectionSAVE$ = RaceSelection$ : yearSAVE = year : mouthsSAVE = mouths : daysSAVE = days
gosub [printDATA]
dataloadNAME$ = "data\TEMP.txt"
gosub [printDATA]
if language = 0 then notice " " + chr$(13) + " " + chr$(13) + "Partie sauvegardée !"
if language = 1 then notice " " + chr$(13) + " " + chr$(13) + "Game saved !"
close #saveMain : saveMain = 0
goto [time]

    [upgradeIA2]
    rechearch1BOISIAm2 = 1500:rechearch2BOISIAm2 = 2000:rechearch3BOISIAm2 = 1500:rechearch4BOISIAm2 = 2000:rechearch5BOISIAm2 = 2500
    if boisIAm2 < 0 then boisIAm2 = 0
    if foodIAm2 < 0 then foodIAm2 = 0

   ' amélioration des batiments et developpement de la ville

    if boisIAm2 >= coutPrincipalBOISIAm2 then
       lvlbatimentPrincipalIAm2 = lvlbatimentPrincipalIAm2 + 1
       boisIAm2 = boisIAm2 - coutPrincipalBOISIAm2
       influenceADDIAm2 = int(influencePossibleIAm2/2)
       influencePossibleIAm2 = influencePossibleIAm2 + influenceADDIAm2
    end if
    if sedentarisationIAm2 = 0 and boisIAm2 >= rechearch1BOISIAm2 then
       sedentarisationIAm2 = 1
       boisIAm2 = boiIAm2 - rechearch1BOISIAm2
    end if
    if fermageIAm2 = 0 and sedentarisationIAm2 = 1 and boisIAm2 >= rechearch2BOISIAm2 then
       fermageIAm2 = 1
       boisIAm2 = boiIAm2 - rechearch2BOISIAm2
    end if

    if NombreHommeDarmeIAm2 < 0 then NombreHommeDarmeIAm2 = 0
    if NombreLancierIAm2 < 0 then NombreLancierIAm2 = 0
    if NombreFrondeurIAm2 < 0 then NombreFrondeurIAm2 = 0
    if NombreArcherIAm2 < 0 then NombreArcherIAm2 = 0
    popCIVILiam2 = popTOTALIAm2 - popSCIENTIAm2 - popMILITIAm2
    popTOTALIAm2 = popSCIENTIAm2 + popMILITIAm2 + popCIVILiam2
    popMILITIAm2 = NombreHommeDarmeIAm2 + NombreLancierIAm2 + NombreFrondeurIAm2 + NombreArcherIAm2
    popMILITlimIAm2 = int((lvlbatimentCentreMilitaireIAm2 * 5) + 20)

    [rechargeUNITia2]
    CHOIXunitesIAm2 = int(rnd(1)*4+1)
    select case CHOIXunitesIAm2
        case 1
            if foodIAm2 >= coutFOODhommedarmeIAm2 and boisIAm2 >= coutBOIShommedarmeIAm2 and popMILITIAm2 < popMILITlimIAm2 and int(popTOTALIAm2-(popSCIENTIAm2+popMILITIAm2)) >= 1 then
                popMILITIAm2 = popMILITIAm2 + 1
                foodIAm2 = foodIAm2 - coutFOODhommedarmeIAm2
                boisIAm2 = boisIAm2 - coutBOIShommedarmeIAm2
                NombreHommeDarmeIAm2 = NombreHommeDarmeIAm2 + 1
            '    goto [rechargeUNITia1]
            end if
        case 2
            if foodIAm2 >= coutFOODlancierIAm2 and boisIAm2 >= coutBOISlancierIAm2 and popMILITIAm2 < popMILITlimIAm2 and int(popTOTALIAm2-(popSCIENTIAm2+popMILITIAm2)) >= 1 then
                popMILITIAm2 = popMILITIAm2 + 1
                foodIAm2 = foodIAm2 - coutFOODlancierIAm2
                boisIAm2 = boisIAm2 - coutBOISlancierIAm2
                NombreLancierIAm2 = NombreLancierIAm2 + 1
           '     goto [rechargeUNITia1]
            end if
        case 3
            if foodIAm2 >= coutFOODfrondeurIAm2 and boisIAm2 >= coutBOISfrondeurIAm2 and popMILITIAm2 < popMILITlimIAm2 and int(popTOTALIAm2-(popSCIENTIAm2+popMILITIAm2)) >= 1 then
                popMILITIAm2 = popMILITIAm2 + 1
                foodIAm2 = foodIAm2 - coutFOODfrondeurIAm2
                boisIAm2 = boisIAm2 - coutBOISfrondeurIAm2
                NombreFrondeurIAm2 = NombreFrondeurIAm2 + 1
             '   goto [rechargeUNITia1]
            end if
        case 4
            if foodIAm2 >= coutFOODarcherIAm2 and boisIAm2 >= coutBOISarcherIAm2 and popMILITIAm2 < popMILITlimIAm2 and int(popTOTALIAm2-(popSCIENTIAm2+popMILITIAm2)) >= 1 then
                popMILITIAm2 = popMILITIAm2 + 1
                foodIAm2 = foodIAm2 - coutFOODarcherIAm2
                boisIAm2 = boisIAm2 - coutBOISarcherIAm2
                NombreArcherIAm2 = NombreArcherIAm2 + 1
              '  goto [rechargeUNITia1]
            end if
    end select

    'UNITES MISES SUR LES TERRITOIRES PAR IA 2

    if territoire1 = 3 and popMILITIAm2 > 0 then
        if int(NombreHommeDarmeIAm2 - (NombreHommeDarmeIAm2SELECTED+NombreHommeDarmeIAm2TERR1+NombreHommeDarmeIAm2TERR2+NombreHommeDarmeIAm2TERR3+NombreHommeDarmeIAm2TERR4+NombreHommeDarmeIAm2TERR5+NombreHommeDarmeIAm2TERR6+NombreHommeDarmeIAm2TERR7+NombreHommeDarmeIAm2TERR8+NombreHommeDarmeIAm2TERR9+NombreHommeDarmeIAm2TERR10+NombreHommeDarmeIAm2TERR11+NombreHommeDarmeIAm2TERR12+NombreHommeDarmeIAm2TERR13+NombreHommeDarmeIAm2TERR14+NombreHommeDarmeIAm2TERR15+NombreHommeDarmeIAm2TERR16+NombreHommeDarmeIAm2TERR17+NombreHommeDarmeIAm2TERR18+NombreHommeDarmeIAm2TERR19+NombreHommeDarmeIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreHommeDarmeIAm2TERR1 < 20 then NombreHommeDarmeIAm2TERR1 = NombreHommeDarmeIAm2TERR1 + 1
        if int(NombreLancierIAm2 - (NombreLancierIAm2SELECTED+NombreLancierIAm2TERR1+NombreLancierIAm2TERR2+NombreLancierIAm2TERR3+NombreLancierIAm2TERR4+NombreLancierIAm2TERR5+NombreLancierIAm2TERR6+NombreLancierIAm2TERR7+NombreLancierIAm2TERR8+NombreLancierIAm2TERR9+NombreLancierIAm2TERR10+NombreLancierIAm2TERR11+NombreLancierIAm2TERR12+NombreLancierIAm2TERR13+NombreLancierIAm2TERR14+NombreLancierIAm2TERR15+NombreLancierIAm2TERR16+NombreLancierIAm2TERR17+NombreLancierIAm2TERR18+NombreLancierIAm2TERR19+NombreLancierIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreLancierIAm2TERR1 < 10 then NombreLancierIAm2TERR1 = NombreLancierIAm2TERR1 + 1
        if int(NombreFrondeurIAm2 - (NombreFrondeurIAm2SELECTED+NombreFrondeurIAm2TERR1+NombreFrondeurIAm2TERR2+NombreFrondeurIAm2TERR3+NombreFrondeurIAm2TERR4+NombreFrondeurIAm2TERR5+NombreFrondeurIAm2TERR6+NombreFrondeurIAm2TERR7+NombreFrondeurIAm2TERR8+NombreFrondeurIAm2TERR9+NombreFrondeurIAm2TERR10+NombreFrondeurIAm2TERR11+NombreFrondeurIAm2TERR12+NombreFrondeurIAm2TERR13+NombreFrondeurIAm2TERR14+NombreFrondeurIAm2TERR15+NombreFrondeurIAm2TERR16+NombreFrondeurIAm2TERR17+NombreFrondeurIAm2TERR18+NombreFrondeurIAm2TERR19+NombreFrondeurIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreFrondeurIAm2TERR1 < 10 then NombreFrondeurIAm2TERR1 = NombreFrondeurIAm2TERR1 + 1
        if int(NombreArcherIAm2 - (NombreArcherIAm2SELECTED+NombreArcherIAm2TERR1+NombreArcherIAm2TERR2+NombreArcherIAm2TERR3+NombreArcherIAm2TERR4+NombreArcherIAm2TERR5+NombreArcherIAm2TERR6+NombreArcherIAm2TERR7+NombreArcherIAm2TERR8+NombreArcherIAm2TERR9+NombreArcherIAm2TERR10+NombreArcherIAm2TERR11+NombreArcherIAm2TERR12+NombreArcherIAm2TERR13+NombreArcherIAm2TERR14+NombreArcherIAm2TERR15+NombreArcherIAm2TERR16+NombreArcherIAm2TERR17+NombreArcherIAm2TERR18+NombreArcherIAm2TERR19+NombreArcherIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreArcherIAm2TERR1 < 20 then NombreArcherIAm2TERR1 = NombreArcherIAm2TERR1 + 1
    end if
    if territoire2 = 3 and popMILITIAm2 > 0 then
        if int(NombreHommeDarmeIAm2 - (NombreHommeDarmeIAm2SELECTED+NombreHommeDarmeIAm2TERR1+NombreHommeDarmeIAm2TERR2+NombreHommeDarmeIAm2TERR3+NombreHommeDarmeIAm2TERR4+NombreHommeDarmeIAm2TERR5+NombreHommeDarmeIAm2TERR6+NombreHommeDarmeIAm2TERR7+NombreHommeDarmeIAm2TERR8+NombreHommeDarmeIAm2TERR9+NombreHommeDarmeIAm2TERR10+NombreHommeDarmeIAm2TERR11+NombreHommeDarmeIAm2TERR12+NombreHommeDarmeIAm2TERR13+NombreHommeDarmeIAm2TERR14+NombreHommeDarmeIAm2TERR15+NombreHommeDarmeIAm2TERR16+NombreHommeDarmeIAm2TERR17+NombreHommeDarmeIAm2TERR18+NombreHommeDarmeIAm2TERR19+NombreHommeDarmeIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreHommeDarmeIAm2TERR2 < 20 then NombreHommeDarmeIAm2TERR2 = NombreHommeDarmeIAm2TERR2 + 1
        if int(NombreLancierIAm2 - (NombreLancierIAm2SELECTED+NombreLancierIAm2TERR1+NombreLancierIAm2TERR2+NombreLancierIAm2TERR3+NombreLancierIAm2TERR4+NombreLancierIAm2TERR5+NombreLancierIAm2TERR6+NombreLancierIAm2TERR7+NombreLancierIAm2TERR8+NombreLancierIAm2TERR9+NombreLancierIAm2TERR10+NombreLancierIAm2TERR11+NombreLancierIAm2TERR12+NombreLancierIAm2TERR13+NombreLancierIAm2TERR14+NombreLancierIAm2TERR15+NombreLancierIAm2TERR16+NombreLancierIAm2TERR17+NombreLancierIAm2TERR18+NombreLancierIAm2TERR19+NombreLancierIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreLancierIAm2TERR2 < 10 then NombreLancierIAm2TERR2 = NombreLancierIAm2TERR2 + 1
        if int(NombreFrondeurIAm2 - (NombreFrondeurIAm2SELECTED+NombreFrondeurIAm2TERR1+NombreFrondeurIAm2TERR2+NombreFrondeurIAm2TERR3+NombreFrondeurIAm2TERR4+NombreFrondeurIAm2TERR5+NombreFrondeurIAm2TERR6+NombreFrondeurIAm2TERR7+NombreFrondeurIAm2TERR8+NombreFrondeurIAm2TERR9+NombreFrondeurIAm2TERR10+NombreFrondeurIAm2TERR11+NombreFrondeurIAm2TERR12+NombreFrondeurIAm2TERR13+NombreFrondeurIAm2TERR14+NombreFrondeurIAm2TERR15+NombreFrondeurIAm2TERR16+NombreFrondeurIAm2TERR17+NombreFrondeurIAm2TERR18+NombreFrondeurIAm2TERR19+NombreFrondeurIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreFrondeurIAm2TERR2 < 10 then NombreFrondeurIAm2TERR2 = NombreFrondeurIAm2TERR2 + 1
        if int(NombreArcherIAm2 - (NombreArcherIAm2SELECTED+NombreArcherIAm2TERR1+NombreArcherIAm2TERR2+NombreArcherIAm2TERR3+NombreArcherIAm2TERR4+NombreArcherIAm2TERR5+NombreArcherIAm2TERR6+NombreArcherIAm2TERR7+NombreArcherIAm2TERR8+NombreArcherIAm2TERR9+NombreArcherIAm2TERR10+NombreArcherIAm2TERR11+NombreArcherIAm2TERR12+NombreArcherIAm2TERR13+NombreArcherIAm2TERR14+NombreArcherIAm2TERR15+NombreArcherIAm2TERR16+NombreArcherIAm2TERR17+NombreArcherIAm2TERR18+NombreArcherIAm2TERR19+NombreArcherIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreArcherIAm2TERR2 < 20 then NombreArcherIAm2TERR2 = NombreArcherIAm2TERR2 + 1
    end if
    if territoire3 = 3 and popMILITIAm2 > 0 then
        if int(NombreHommeDarmeIAm2 - (NombreHommeDarmeIAm2SELECTED+NombreHommeDarmeIAm2TERR1+NombreHommeDarmeIAm2TERR2+NombreHommeDarmeIAm2TERR3+NombreHommeDarmeIAm2TERR4+NombreHommeDarmeIAm2TERR5+NombreHommeDarmeIAm2TERR6+NombreHommeDarmeIAm2TERR7+NombreHommeDarmeIAm2TERR8+NombreHommeDarmeIAm2TERR9+NombreHommeDarmeIAm2TERR10+NombreHommeDarmeIAm2TERR11+NombreHommeDarmeIAm2TERR12+NombreHommeDarmeIAm2TERR13+NombreHommeDarmeIAm2TERR14+NombreHommeDarmeIAm2TERR15+NombreHommeDarmeIAm2TERR16+NombreHommeDarmeIAm2TERR17+NombreHommeDarmeIAm2TERR18+NombreHommeDarmeIAm2TERR19+NombreHommeDarmeIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreHommeDarmeIAm2TERR3 < 20 then NombreHommeDarmeIAm2TERR3 = NombreHommeDarmeIAm2TERR3 + 1
        if int(NombreLancierIAm2 - (NombreLancierIAm2SELECTED+NombreLancierIAm2TERR1+NombreLancierIAm2TERR2+NombreLancierIAm2TERR3+NombreLancierIAm2TERR4+NombreLancierIAm2TERR5+NombreLancierIAm2TERR6+NombreLancierIAm2TERR7+NombreLancierIAm2TERR8+NombreLancierIAm2TERR9+NombreLancierIAm2TERR10+NombreLancierIAm2TERR11+NombreLancierIAm2TERR12+NombreLancierIAm2TERR13+NombreLancierIAm2TERR14+NombreLancierIAm2TERR15+NombreLancierIAm2TERR16+NombreLancierIAm2TERR17+NombreLancierIAm2TERR18+NombreLancierIAm2TERR19+NombreLancierIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreLancierIAm2TERR3 < 10 then NombreLancierIAm2TERR3 = NombreLancierIAm2TERR3 + 1
        if int(NombreFrondeurIAm2 - (NombreFrondeurIAm2SELECTED+NombreFrondeurIAm2TERR1+NombreFrondeurIAm2TERR2+NombreFrondeurIAm2TERR3+NombreFrondeurIAm2TERR4+NombreFrondeurIAm2TERR5+NombreFrondeurIAm2TERR6+NombreFrondeurIAm2TERR7+NombreFrondeurIAm2TERR8+NombreFrondeurIAm2TERR9+NombreFrondeurIAm2TERR10+NombreFrondeurIAm2TERR11+NombreFrondeurIAm2TERR12+NombreFrondeurIAm2TERR13+NombreFrondeurIAm2TERR14+NombreFrondeurIAm2TERR15+NombreFrondeurIAm2TERR16+NombreFrondeurIAm2TERR17+NombreFrondeurIAm2TERR18+NombreFrondeurIAm2TERR19+NombreFrondeurIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreFrondeurIAm2TERR3 < 10 then NombreFrondeurIAm2TERR3 = NombreFrondeurIAm2TERR3 + 1
        if int(NombreArcherIAm2 - (NombreArcherIAm2SELECTED+NombreArcherIAm2TERR1+NombreArcherIAm2TERR2+NombreArcherIAm2TERR3+NombreArcherIAm2TERR4+NombreArcherIAm2TERR5+NombreArcherIAm2TERR6+NombreArcherIAm2TERR7+NombreArcherIAm2TERR8+NombreArcherIAm2TERR9+NombreArcherIAm2TERR10+NombreArcherIAm2TERR11+NombreArcherIAm2TERR12+NombreArcherIAm2TERR13+NombreArcherIAm2TERR14+NombreArcherIAm2TERR15+NombreArcherIAm2TERR16+NombreArcherIAm2TERR17+NombreArcherIAm2TERR18+NombreArcherIAm2TERR19+NombreArcherIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreArcherIAm2TERR3 < 20 then NombreArcherIAm2TERR3 = NombreArcherIAm2TERR3 + 1
    end if
    if territoire4 = 3 and popMILITIAm2 > 0 then
        if int(NombreHommeDarmeIAm2 - (NombreHommeDarmeIAm2SELECTED+NombreHommeDarmeIAm2TERR1+NombreHommeDarmeIAm2TERR2+NombreHommeDarmeIAm2TERR3+NombreHommeDarmeIAm2TERR4+NombreHommeDarmeIAm2TERR5+NombreHommeDarmeIAm2TERR6+NombreHommeDarmeIAm2TERR7+NombreHommeDarmeIAm2TERR8+NombreHommeDarmeIAm2TERR9+NombreHommeDarmeIAm2TERR10+NombreHommeDarmeIAm2TERR11+NombreHommeDarmeIAm2TERR12+NombreHommeDarmeIAm2TERR13+NombreHommeDarmeIAm2TERR14+NombreHommeDarmeIAm2TERR15+NombreHommeDarmeIAm2TERR16+NombreHommeDarmeIAm2TERR17+NombreHommeDarmeIAm2TERR18+NombreHommeDarmeIAm2TERR19+NombreHommeDarmeIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreHommeDarmeIAm2TERR4 < 20 then NombreHommeDarmeIAm2TERR4 = NombreHommeDarmeIAm2TERR4 + 1
        if int(NombreLancierIAm2 - (NombreLancierIAm2SELECTED+NombreLancierIAm2TERR1+NombreLancierIAm2TERR2+NombreLancierIAm2TERR3+NombreLancierIAm2TERR4+NombreLancierIAm2TERR5+NombreLancierIAm2TERR6+NombreLancierIAm2TERR7+NombreLancierIAm2TERR8+NombreLancierIAm2TERR9+NombreLancierIAm2TERR10+NombreLancierIAm2TERR11+NombreLancierIAm2TERR12+NombreLancierIAm2TERR13+NombreLancierIAm2TERR14+NombreLancierIAm2TERR15+NombreLancierIAm2TERR16+NombreLancierIAm2TERR17+NombreLancierIAm2TERR18+NombreLancierIAm2TERR19+NombreLancierIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreLancierIAm2TERR4 < 10 then NombreLancierIAm2TERR4 = NombreLancierIAm2TERR4 + 1
        if int(NombreFrondeurIAm2 - (NombreFrondeurIAm2SELECTED+NombreFrondeurIAm2TERR1+NombreFrondeurIAm2TERR2+NombreFrondeurIAm2TERR3+NombreFrondeurIAm2TERR4+NombreFrondeurIAm2TERR5+NombreFrondeurIAm2TERR6+NombreFrondeurIAm2TERR7+NombreFrondeurIAm2TERR8+NombreFrondeurIAm2TERR9+NombreFrondeurIAm2TERR10+NombreFrondeurIAm2TERR11+NombreFrondeurIAm2TERR12+NombreFrondeurIAm2TERR13+NombreFrondeurIAm2TERR14+NombreFrondeurIAm2TERR15+NombreFrondeurIAm2TERR16+NombreFrondeurIAm2TERR17+NombreFrondeurIAm2TERR18+NombreFrondeurIAm2TERR19+NombreFrondeurIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreFrondeurIAm2TERR4 < 10 then NombreFrondeurIAm2TERR4 = NombreFrondeurIAm2TERR4 + 1
        if int(NombreArcherIAm2 - (NombreArcherIAm2SELECTED+NombreArcherIAm2TERR1+NombreArcherIAm2TERR2+NombreArcherIAm2TERR3+NombreArcherIAm2TERR4+NombreArcherIAm2TERR5+NombreArcherIAm2TERR6+NombreArcherIAm2TERR7+NombreArcherIAm2TERR8+NombreArcherIAm2TERR9+NombreArcherIAm2TERR10+NombreArcherIAm2TERR11+NombreArcherIAm2TERR12+NombreArcherIAm2TERR13+NombreArcherIAm2TERR14+NombreArcherIAm2TERR15+NombreArcherIAm2TERR16+NombreArcherIAm2TERR17+NombreArcherIAm2TERR18+NombreArcherIAm2TERR19+NombreArcherIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreArcherIAm2TERR4 < 20 then NombreArcherIAm2TERR4 = NombreArcherIAm2TERR4 + 1
    end if
    if territoire5 = 3 and popMILITIAm2 > 0 then
        if int(NombreHommeDarmeIAm2 - (NombreHommeDarmeIAm2SELECTED+NombreHommeDarmeIAm2TERR1+NombreHommeDarmeIAm2TERR2+NombreHommeDarmeIAm2TERR3+NombreHommeDarmeIAm2TERR4+NombreHommeDarmeIAm2TERR5+NombreHommeDarmeIAm2TERR6+NombreHommeDarmeIAm2TERR7+NombreHommeDarmeIAm2TERR8+NombreHommeDarmeIAm2TERR9+NombreHommeDarmeIAm2TERR10+NombreHommeDarmeIAm2TERR11+NombreHommeDarmeIAm2TERR12+NombreHommeDarmeIAm2TERR13+NombreHommeDarmeIAm2TERR14+NombreHommeDarmeIAm2TERR15+NombreHommeDarmeIAm2TERR16+NombreHommeDarmeIAm2TERR17+NombreHommeDarmeIAm2TERR18+NombreHommeDarmeIAm2TERR19+NombreHommeDarmeIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreHommeDarmeIAm2TERR5 < 20 then NombreHommeDarmeIAm2TERR5 = NombreHommeDarmeIAm2TERR5 + 1
        if int(NombreLancierIAm2 - (NombreLancierIAm2SELECTED+NombreLancierIAm2TERR1+NombreLancierIAm2TERR2+NombreLancierIAm2TERR3+NombreLancierIAm2TERR4+NombreLancierIAm2TERR5+NombreLancierIAm2TERR6+NombreLancierIAm2TERR7+NombreLancierIAm2TERR8+NombreLancierIAm2TERR9+NombreLancierIAm2TERR10+NombreLancierIAm2TERR11+NombreLancierIAm2TERR12+NombreLancierIAm2TERR13+NombreLancierIAm2TERR14+NombreLancierIAm2TERR15+NombreLancierIAm2TERR16+NombreLancierIAm2TERR17+NombreLancierIAm2TERR18+NombreLancierIAm2TERR19+NombreLancierIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreLancierIAm2TERR5 < 10 then NombreLancierIAm2TERR5 = NombreLancierIAm2TERR5 + 1
        if int(NombreFrondeurIAm2 - (NombreFrondeurIAm2SELECTED+NombreFrondeurIAm2TERR1+NombreFrondeurIAm2TERR2+NombreFrondeurIAm2TERR3+NombreFrondeurIAm2TERR4+NombreFrondeurIAm2TERR5+NombreFrondeurIAm2TERR6+NombreFrondeurIAm2TERR7+NombreFrondeurIAm2TERR8+NombreFrondeurIAm2TERR9+NombreFrondeurIAm2TERR10+NombreFrondeurIAm2TERR11+NombreFrondeurIAm2TERR12+NombreFrondeurIAm2TERR13+NombreFrondeurIAm2TERR14+NombreFrondeurIAm2TERR15+NombreFrondeurIAm2TERR16+NombreFrondeurIAm2TERR17+NombreFrondeurIAm2TERR18+NombreFrondeurIAm2TERR19+NombreFrondeurIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreFrondeurIAm2TERR5 < 10 then NombreFrondeurIAm2TERR5 = NombreFrondeurIAm2TERR5 + 1
        if int(NombreArcherIAm2 - (NombreArcherIAm2SELECTED+NombreArcherIAm2TERR1+NombreArcherIAm2TERR2+NombreArcherIAm2TERR3+NombreArcherIAm2TERR4+NombreArcherIAm2TERR5+NombreArcherIAm2TERR6+NombreArcherIAm2TERR7+NombreArcherIAm2TERR8+NombreArcherIAm2TERR9+NombreArcherIAm2TERR10+NombreArcherIAm2TERR11+NombreArcherIAm2TERR12+NombreArcherIAm2TERR13+NombreArcherIAm2TERR14+NombreArcherIAm2TERR15+NombreArcherIAm2TERR16+NombreArcherIAm2TERR17+NombreArcherIAm2TERR18+NombreArcherIAm2TERR19+NombreArcherIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreArcherIAm2TERR5 < 20 then NombreArcherIAm2TERR5 = NombreArcherIAm2TERR5 + 1
    end if
    if territoire6 = 3 and popMILITIAm2 > 0 then
        if int(NombreHommeDarmeIAm2 - (NombreHommeDarmeIAm2SELECTED+NombreHommeDarmeIAm2TERR1+NombreHommeDarmeIAm2TERR2+NombreHommeDarmeIAm2TERR3+NombreHommeDarmeIAm2TERR4+NombreHommeDarmeIAm2TERR5+NombreHommeDarmeIAm2TERR6+NombreHommeDarmeIAm2TERR7+NombreHommeDarmeIAm2TERR8+NombreHommeDarmeIAm2TERR9+NombreHommeDarmeIAm2TERR10+NombreHommeDarmeIAm2TERR11+NombreHommeDarmeIAm2TERR12+NombreHommeDarmeIAm2TERR13+NombreHommeDarmeIAm2TERR14+NombreHommeDarmeIAm2TERR15+NombreHommeDarmeIAm2TERR16+NombreHommeDarmeIAm2TERR17+NombreHommeDarmeIAm2TERR18+NombreHommeDarmeIAm2TERR19+NombreHommeDarmeIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreHommeDarmeIAm2TERR6 < 20 then NombreHommeDarmeIAm2TERR6 = NombreHommeDarmeIAm2TERR6 + 1
        if int(NombreLancierIAm2 - (NombreLancierIAm2SELECTED+NombreLancierIAm2TERR1+NombreLancierIAm2TERR2+NombreLancierIAm2TERR3+NombreLancierIAm2TERR4+NombreLancierIAm2TERR5+NombreLancierIAm2TERR6+NombreLancierIAm2TERR7+NombreLancierIAm2TERR8+NombreLancierIAm2TERR9+NombreLancierIAm2TERR10+NombreLancierIAm2TERR11+NombreLancierIAm2TERR12+NombreLancierIAm2TERR13+NombreLancierIAm2TERR14+NombreLancierIAm2TERR15+NombreLancierIAm2TERR16+NombreLancierIAm2TERR17+NombreLancierIAm2TERR18+NombreLancierIAm2TERR19+NombreLancierIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreLancierIAm2TERR6 < 10 then NombreLancierIAm2TERR6 = NombreLancierIAm2TERR6 + 1
        if int(NombreFrondeurIAm2 - (NombreFrondeurIAm2SELECTED+NombreFrondeurIAm2TERR1+NombreFrondeurIAm2TERR2+NombreFrondeurIAm2TERR3+NombreFrondeurIAm2TERR4+NombreFrondeurIAm2TERR5+NombreFrondeurIAm2TERR6+NombreFrondeurIAm2TERR7+NombreFrondeurIAm2TERR8+NombreFrondeurIAm2TERR9+NombreFrondeurIAm2TERR10+NombreFrondeurIAm2TERR11+NombreFrondeurIAm2TERR12+NombreFrondeurIAm2TERR13+NombreFrondeurIAm2TERR14+NombreFrondeurIAm2TERR15+NombreFrondeurIAm2TERR16+NombreFrondeurIAm2TERR17+NombreFrondeurIAm2TERR18+NombreFrondeurIAm2TERR19+NombreFrondeurIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreFrondeurIAm2TERR6 < 10 then NombreFrondeurIAm2TERR6 = NombreFrondeurIAm2TERR6 + 1
        if int(NombreArcherIAm2 - (NombreArcherIAm2SELECTED+NombreArcherIAm2TERR1+NombreArcherIAm2TERR2+NombreArcherIAm2TERR3+NombreArcherIAm2TERR4+NombreArcherIAm2TERR5+NombreArcherIAm2TERR6+NombreArcherIAm2TERR7+NombreArcherIAm2TERR8+NombreArcherIAm2TERR9+NombreArcherIAm2TERR10+NombreArcherIAm2TERR11+NombreArcherIAm2TERR12+NombreArcherIAm2TERR13+NombreArcherIAm2TERR14+NombreArcherIAm2TERR15+NombreArcherIAm2TERR16+NombreArcherIAm2TERR17+NombreArcherIAm2TERR18+NombreArcherIAm2TERR19+NombreArcherIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreArcherIAm2TERR6 < 20 then NombreArcherIAm2TERR6 = NombreArcherIAm2TERR6 + 1
    end if
    if territoire7 = 3 and popMILITIAm2 > 0 then
        if int(NombreHommeDarmeIAm2 - (NombreHommeDarmeIAm2SELECTED+NombreHommeDarmeIAm2TERR1+NombreHommeDarmeIAm2TERR2+NombreHommeDarmeIAm2TERR3+NombreHommeDarmeIAm2TERR4+NombreHommeDarmeIAm2TERR5+NombreHommeDarmeIAm2TERR6+NombreHommeDarmeIAm2TERR7+NombreHommeDarmeIAm2TERR8+NombreHommeDarmeIAm2TERR9+NombreHommeDarmeIAm2TERR10+NombreHommeDarmeIAm2TERR11+NombreHommeDarmeIAm2TERR12+NombreHommeDarmeIAm2TERR13+NombreHommeDarmeIAm2TERR14+NombreHommeDarmeIAm2TERR15+NombreHommeDarmeIAm2TERR16+NombreHommeDarmeIAm2TERR17+NombreHommeDarmeIAm2TERR18+NombreHommeDarmeIAm2TERR19+NombreHommeDarmeIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreHommeDarmeIAm2TERR7 < 20 then NombreHommeDarmeIAm2TERR7 = NombreHommeDarmeIAm2TERR7 + 1
        if int(NombreLancierIAm2 - (NombreLancierIAm2SELECTED+NombreLancierIAm2TERR1+NombreLancierIAm2TERR2+NombreLancierIAm2TERR3+NombreLancierIAm2TERR4+NombreLancierIAm2TERR5+NombreLancierIAm2TERR6+NombreLancierIAm2TERR7+NombreLancierIAm2TERR8+NombreLancierIAm2TERR9+NombreLancierIAm2TERR10+NombreLancierIAm2TERR11+NombreLancierIAm2TERR12+NombreLancierIAm2TERR13+NombreLancierIAm2TERR14+NombreLancierIAm2TERR15+NombreLancierIAm2TERR16+NombreLancierIAm2TERR17+NombreLancierIAm2TERR18+NombreLancierIAm2TERR19+NombreLancierIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreLancierIAm2TERR7 < 10 then NombreLancierIAm2TERR7 = NombreLancierIAm2TERR7 + 1
        if int(NombreFrondeurIAm2 - (NombreFrondeurIAm2SELECTED+NombreFrondeurIAm2TERR1+NombreFrondeurIAm2TERR2+NombreFrondeurIAm2TERR3+NombreFrondeurIAm2TERR4+NombreFrondeurIAm2TERR5+NombreFrondeurIAm2TERR6+NombreFrondeurIAm2TERR7+NombreFrondeurIAm2TERR8+NombreFrondeurIAm2TERR9+NombreFrondeurIAm2TERR10+NombreFrondeurIAm2TERR11+NombreFrondeurIAm2TERR12+NombreFrondeurIAm2TERR13+NombreFrondeurIAm2TERR14+NombreFrondeurIAm2TERR15+NombreFrondeurIAm2TERR16+NombreFrondeurIAm2TERR17+NombreFrondeurIAm2TERR18+NombreFrondeurIAm2TERR19+NombreFrondeurIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreFrondeurIAm2TERR7 < 10 then NombreFrondeurIAm2TERR7 = NombreFrondeurIAm2TERR7 + 1
        if int(NombreArcherIAm2 - (NombreArcherIAm2SELECTED+NombreArcherIAm2TERR1+NombreArcherIAm2TERR2+NombreArcherIAm2TERR3+NombreArcherIAm2TERR4+NombreArcherIAm2TERR5+NombreArcherIAm2TERR6+NombreArcherIAm2TERR7+NombreArcherIAm2TERR8+NombreArcherIAm2TERR9+NombreArcherIAm2TERR10+NombreArcherIAm2TERR11+NombreArcherIAm2TERR12+NombreArcherIAm2TERR13+NombreArcherIAm2TERR14+NombreArcherIAm2TERR15+NombreArcherIAm2TERR16+NombreArcherIAm2TERR17+NombreArcherIAm2TERR18+NombreArcherIAm2TERR19+NombreArcherIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreArcherIAm2TERR7 < 20 then NombreArcherIAm2TERR7 = NombreArcherIAm2TERR7 + 1
    end if
    if territoire8 = 3 and popMILITIAm2 > 0 then
        if int(NombreHommeDarmeIAm2 - (NombreHommeDarmeIAm2SELECTED+NombreHommeDarmeIAm2TERR1+NombreHommeDarmeIAm2TERR2+NombreHommeDarmeIAm2TERR3+NombreHommeDarmeIAm2TERR4+NombreHommeDarmeIAm2TERR5+NombreHommeDarmeIAm2TERR6+NombreHommeDarmeIAm2TERR7+NombreHommeDarmeIAm2TERR8+NombreHommeDarmeIAm2TERR9+NombreHommeDarmeIAm2TERR10+NombreHommeDarmeIAm2TERR11+NombreHommeDarmeIAm2TERR12+NombreHommeDarmeIAm2TERR13+NombreHommeDarmeIAm2TERR14+NombreHommeDarmeIAm2TERR15+NombreHommeDarmeIAm2TERR16+NombreHommeDarmeIAm2TERR17+NombreHommeDarmeIAm2TERR18+NombreHommeDarmeIAm2TERR19+NombreHommeDarmeIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreHommeDarmeIAm2TERR8 < 20 then NombreHommeDarmeIAm2TERR8 = NombreHommeDarmeIAm2TERR8 + 1
        if int(NombreLancierIAm2 - (NombreLancierIAm2SELECTED+NombreLancierIAm2TERR1+NombreLancierIAm2TERR2+NombreLancierIAm2TERR3+NombreLancierIAm2TERR4+NombreLancierIAm2TERR5+NombreLancierIAm2TERR6+NombreLancierIAm2TERR7+NombreLancierIAm2TERR8+NombreLancierIAm2TERR9+NombreLancierIAm2TERR10+NombreLancierIAm2TERR11+NombreLancierIAm2TERR12+NombreLancierIAm2TERR13+NombreLancierIAm2TERR14+NombreLancierIAm2TERR15+NombreLancierIAm2TERR16+NombreLancierIAm2TERR17+NombreLancierIAm2TERR18+NombreLancierIAm2TERR19+NombreLancierIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreLancierIAm2TERR8 < 10 then NombreLancierIAm2TERR8 = NombreLancierIAm2TERR8 + 1
        if int(NombreFrondeurIAm2 - (NombreFrondeurIAm2SELECTED+NombreFrondeurIAm2TERR1+NombreFrondeurIAm2TERR2+NombreFrondeurIAm2TERR3+NombreFrondeurIAm2TERR4+NombreFrondeurIAm2TERR5+NombreFrondeurIAm2TERR6+NombreFrondeurIAm2TERR7+NombreFrondeurIAm2TERR8+NombreFrondeurIAm2TERR9+NombreFrondeurIAm2TERR10+NombreFrondeurIAm2TERR11+NombreFrondeurIAm2TERR12+NombreFrondeurIAm2TERR13+NombreFrondeurIAm2TERR14+NombreFrondeurIAm2TERR15+NombreFrondeurIAm2TERR16+NombreFrondeurIAm2TERR17+NombreFrondeurIAm2TERR18+NombreFrondeurIAm2TERR19+NombreFrondeurIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreFrondeurIAm2TERR8 < 10 then NombreFrondeurIAm2TERR8 = NombreFrondeurIAm2TERR8 + 1
        if int(NombreArcherIAm2 - (NombreArcherIAm2SELECTED+NombreArcherIAm2TERR1+NombreArcherIAm2TERR2+NombreArcherIAm2TERR3+NombreArcherIAm2TERR4+NombreArcherIAm2TERR5+NombreArcherIAm2TERR6+NombreArcherIAm2TERR7+NombreArcherIAm2TERR8+NombreArcherIAm2TERR9+NombreArcherIAm2TERR10+NombreArcherIAm2TERR11+NombreArcherIAm2TERR12+NombreArcherIAm2TERR13+NombreArcherIAm2TERR14+NombreArcherIAm2TERR15+NombreArcherIAm2TERR16+NombreArcherIAm2TERR17+NombreArcherIAm2TERR18+NombreArcherIAm2TERR19+NombreArcherIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreArcherIAm2TERR8 < 20 then NombreArcherIAm2TERR8 = NombreArcherIAm2TERR8 + 1
    end if
    if territoire9 = 3 and popMILITIAm2 > 0 then
        if int(NombreHommeDarmeIAm2 - (NombreHommeDarmeIAm2SELECTED+NombreHommeDarmeIAm2TERR1+NombreHommeDarmeIAm2TERR2+NombreHommeDarmeIAm2TERR3+NombreHommeDarmeIAm2TERR4+NombreHommeDarmeIAm2TERR5+NombreHommeDarmeIAm2TERR6+NombreHommeDarmeIAm2TERR7+NombreHommeDarmeIAm2TERR8+NombreHommeDarmeIAm2TERR9+NombreHommeDarmeIAm2TERR10+NombreHommeDarmeIAm2TERR11+NombreHommeDarmeIAm2TERR12+NombreHommeDarmeIAm2TERR13+NombreHommeDarmeIAm2TERR14+NombreHommeDarmeIAm2TERR15+NombreHommeDarmeIAm2TERR16+NombreHommeDarmeIAm2TERR17+NombreHommeDarmeIAm2TERR18+NombreHommeDarmeIAm2TERR19+NombreHommeDarmeIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreHommeDarmeIAm2TERR9 < 20 then NombreHommeDarmeIAm2TERR9 = NombreHommeDarmeIAm2TERR9 + 1
        if int(NombreLancierIAm2 - (NombreLancierIAm2SELECTED+NombreLancierIAm2TERR1+NombreLancierIAm2TERR2+NombreLancierIAm2TERR3+NombreLancierIAm2TERR4+NombreLancierIAm2TERR5+NombreLancierIAm2TERR6+NombreLancierIAm2TERR7+NombreLancierIAm2TERR8+NombreLancierIAm2TERR9+NombreLancierIAm2TERR10+NombreLancierIAm2TERR11+NombreLancierIAm2TERR12+NombreLancierIAm2TERR13+NombreLancierIAm2TERR14+NombreLancierIAm2TERR15+NombreLancierIAm2TERR16+NombreLancierIAm2TERR17+NombreLancierIAm2TERR18+NombreLancierIAm2TERR19+NombreLancierIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreLancierIAm2TERR9 < 10 then NombreLancierIAm2TERR9 = NombreLancierIAm2TERR9 + 1
        if int(NombreFrondeurIAm2 - (NombreFrondeurIAm2SELECTED+NombreFrondeurIAm2TERR1+NombreFrondeurIAm2TERR2+NombreFrondeurIAm2TERR3+NombreFrondeurIAm2TERR4+NombreFrondeurIAm2TERR5+NombreFrondeurIAm2TERR6+NombreFrondeurIAm2TERR7+NombreFrondeurIAm2TERR8+NombreFrondeurIAm2TERR9+NombreFrondeurIAm2TERR10+NombreFrondeurIAm2TERR11+NombreFrondeurIAm2TERR12+NombreFrondeurIAm2TERR13+NombreFrondeurIAm2TERR14+NombreFrondeurIAm2TERR15+NombreFrondeurIAm2TERR16+NombreFrondeurIAm2TERR17+NombreFrondeurIAm2TERR18+NombreFrondeurIAm2TERR19+NombreFrondeurIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreFrondeurIAm2TERR9 < 10 then NombreFrondeurIAm2TERR9 = NombreFrondeurIAm2TERR9 + 1
        if int(NombreArcherIAm2 - (NombreArcherIAm2SELECTED+NombreArcherIAm2TERR1+NombreArcherIAm2TERR2+NombreArcherIAm2TERR3+NombreArcherIAm2TERR4+NombreArcherIAm2TERR5+NombreArcherIAm2TERR6+NombreArcherIAm2TERR7+NombreArcherIAm2TERR8+NombreArcherIAm2TERR9+NombreArcherIAm2TERR10+NombreArcherIAm2TERR11+NombreArcherIAm2TERR12+NombreArcherIAm2TERR13+NombreArcherIAm2TERR14+NombreArcherIAm2TERR15+NombreArcherIAm2TERR16+NombreArcherIAm2TERR17+NombreArcherIAm2TERR18+NombreArcherIAm2TERR19+NombreArcherIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreArcherIAm2TERR9 < 20 then NombreArcherIAm2TERR9 = NombreArcherIAm2TERR9 + 1
    end if
    if territoire10 = 3 and popMILITIAm2 > 0 then
        if int(NombreHommeDarmeIAm2 - (NombreHommeDarmeIAm2SELECTED+NombreHommeDarmeIAm2TERR1+NombreHommeDarmeIAm2TERR2+NombreHommeDarmeIAm2TERR3+NombreHommeDarmeIAm2TERR4+NombreHommeDarmeIAm2TERR5+NombreHommeDarmeIAm2TERR6+NombreHommeDarmeIAm2TERR7+NombreHommeDarmeIAm2TERR8+NombreHommeDarmeIAm2TERR9+NombreHommeDarmeIAm2TERR10+NombreHommeDarmeIAm2TERR11+NombreHommeDarmeIAm2TERR12+NombreHommeDarmeIAm2TERR13+NombreHommeDarmeIAm2TERR14+NombreHommeDarmeIAm2TERR15+NombreHommeDarmeIAm2TERR16+NombreHommeDarmeIAm2TERR17+NombreHommeDarmeIAm2TERR18+NombreHommeDarmeIAm2TERR19+NombreHommeDarmeIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreHommeDarmeIAm2TERR10 < 20 then NombreHommeDarmeIAm2TERR10 = NombreHommeDarmeIAm2TERR10 + 1
        if int(NombreLancierIAm2 - (NombreLancierIAm2SELECTED+NombreLancierIAm2TERR1+NombreLancierIAm2TERR2+NombreLancierIAm2TERR3+NombreLancierIAm2TERR4+NombreLancierIAm2TERR5+NombreLancierIAm2TERR6+NombreLancierIAm2TERR7+NombreLancierIAm2TERR8+NombreLancierIAm2TERR9+NombreLancierIAm2TERR10+NombreLancierIAm2TERR11+NombreLancierIAm2TERR12+NombreLancierIAm2TERR13+NombreLancierIAm2TERR14+NombreLancierIAm2TERR15+NombreLancierIAm2TERR16+NombreLancierIAm2TERR17+NombreLancierIAm2TERR18+NombreLancierIAm2TERR19+NombreLancierIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreLancierIAm2TERR10 < 10 then NombreLancierIAm2TERR10 = NombreLancierIAm2TERR10 + 1
        if int(NombreFrondeurIAm2 - (NombreFrondeurIAm2SELECTED+NombreFrondeurIAm2TERR1+NombreFrondeurIAm2TERR2+NombreFrondeurIAm2TERR3+NombreFrondeurIAm2TERR4+NombreFrondeurIAm2TERR5+NombreFrondeurIAm2TERR6+NombreFrondeurIAm2TERR7+NombreFrondeurIAm2TERR8+NombreFrondeurIAm2TERR9+NombreFrondeurIAm2TERR10+NombreFrondeurIAm2TERR11+NombreFrondeurIAm2TERR12+NombreFrondeurIAm2TERR13+NombreFrondeurIAm2TERR14+NombreFrondeurIAm2TERR15+NombreFrondeurIAm2TERR16+NombreFrondeurIAm2TERR17+NombreFrondeurIAm2TERR18+NombreFrondeurIAm2TERR19+NombreFrondeurIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreFrondeurIAm2TERR10 < 10 then NombreFrondeurIAm2TERR10 = NombreFrondeurIAm2TERR10 + 1
        if int(NombreArcherIAm2 - (NombreArcherIAm2SELECTED+NombreArcherIAm2TERR1+NombreArcherIAm2TERR2+NombreArcherIAm2TERR3+NombreArcherIAm2TERR4+NombreArcherIAm2TERR5+NombreArcherIAm2TERR6+NombreArcherIAm2TERR7+NombreArcherIAm2TERR8+NombreArcherIAm2TERR9+NombreArcherIAm2TERR10+NombreArcherIAm2TERR11+NombreArcherIAm2TERR12+NombreArcherIAm2TERR13+NombreArcherIAm2TERR14+NombreArcherIAm2TERR15+NombreArcherIAm2TERR16+NombreArcherIAm2TERR17+NombreArcherIAm2TERR18+NombreArcherIAm2TERR19+NombreArcherIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreArcherIAm2TERR10 < 20 then NombreArcherIAm2TERR10 = NombreArcherIAm2TERR10 + 1
    end if
    if territoire11 = 3 and popMILITIAm2 > 0 then
        if int(NombreHommeDarmeIAm2 - (NombreHommeDarmeIAm2SELECTED+NombreHommeDarmeIAm2TERR1+NombreHommeDarmeIAm2TERR2+NombreHommeDarmeIAm2TERR3+NombreHommeDarmeIAm2TERR4+NombreHommeDarmeIAm2TERR5+NombreHommeDarmeIAm2TERR6+NombreHommeDarmeIAm2TERR7+NombreHommeDarmeIAm2TERR8+NombreHommeDarmeIAm2TERR9+NombreHommeDarmeIAm2TERR10+NombreHommeDarmeIAm2TERR11+NombreHommeDarmeIAm2TERR12+NombreHommeDarmeIAm2TERR13+NombreHommeDarmeIAm2TERR14+NombreHommeDarmeIAm2TERR15+NombreHommeDarmeIAm2TERR16+NombreHommeDarmeIAm2TERR17+NombreHommeDarmeIAm2TERR18+NombreHommeDarmeIAm2TERR19+NombreHommeDarmeIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreHommeDarmeIAm2TERR11 < 20 then NombreHommeDarmeIAm2TERR11 = NombreHommeDarmeIAm2TERR11 + 1
        if int(NombreLancierIAm2 - (NombreLancierIAm2SELECTED+NombreLancierIAm2TERR1+NombreLancierIAm2TERR2+NombreLancierIAm2TERR3+NombreLancierIAm2TERR4+NombreLancierIAm2TERR5+NombreLancierIAm2TERR6+NombreLancierIAm2TERR7+NombreLancierIAm2TERR8+NombreLancierIAm2TERR9+NombreLancierIAm2TERR10+NombreLancierIAm2TERR11+NombreLancierIAm2TERR12+NombreLancierIAm2TERR13+NombreLancierIAm2TERR14+NombreLancierIAm2TERR15+NombreLancierIAm2TERR16+NombreLancierIAm2TERR17+NombreLancierIAm2TERR18+NombreLancierIAm2TERR19+NombreLancierIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreLancierIAm2TERR11 < 10 then NombreLancierIAm2TERR11 = NombreLancierIAm2TERR11 + 1
        if int(NombreFrondeurIAm2 - (NombreFrondeurIAm2SELECTED+NombreFrondeurIAm2TERR1+NombreFrondeurIAm2TERR2+NombreFrondeurIAm2TERR3+NombreFrondeurIAm2TERR4+NombreFrondeurIAm2TERR5+NombreFrondeurIAm2TERR6+NombreFrondeurIAm2TERR7+NombreFrondeurIAm2TERR8+NombreFrondeurIAm2TERR9+NombreFrondeurIAm2TERR10+NombreFrondeurIAm2TERR11+NombreFrondeurIAm2TERR12+NombreFrondeurIAm2TERR13+NombreFrondeurIAm2TERR14+NombreFrondeurIAm2TERR15+NombreFrondeurIAm2TERR16+NombreFrondeurIAm2TERR17+NombreFrondeurIAm2TERR18+NombreFrondeurIAm2TERR19+NombreFrondeurIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreFrondeurIAm2TERR11 < 10 then NombreFrondeurIAm2TERR11 = NombreFrondeurIAm2TERR11 + 1
        if int(NombreArcherIAm2 - (NombreArcherIAm2SELECTED+NombreArcherIAm2TERR1+NombreArcherIAm2TERR2+NombreArcherIAm2TERR3+NombreArcherIAm2TERR4+NombreArcherIAm2TERR5+NombreArcherIAm2TERR6+NombreArcherIAm2TERR7+NombreArcherIAm2TERR8+NombreArcherIAm2TERR9+NombreArcherIAm2TERR10+NombreArcherIAm2TERR11+NombreArcherIAm2TERR12+NombreArcherIAm2TERR13+NombreArcherIAm2TERR14+NombreArcherIAm2TERR15+NombreArcherIAm2TERR16+NombreArcherIAm2TERR17+NombreArcherIAm2TERR18+NombreArcherIAm2TERR19+NombreArcherIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreArcherIAm2TERR11 < 20 then NombreArcherIAm2TERR11 = NombreArcherIAm2TERR11 + 1
    end if
    if territoire12 = 3 and popMILITIAm2 > 0 then
        if int(NombreHommeDarmeIAm2 - (NombreHommeDarmeIAm2SELECTED+NombreHommeDarmeIAm2TERR1+NombreHommeDarmeIAm2TERR2+NombreHommeDarmeIAm2TERR3+NombreHommeDarmeIAm2TERR4+NombreHommeDarmeIAm2TERR5+NombreHommeDarmeIAm2TERR6+NombreHommeDarmeIAm2TERR7+NombreHommeDarmeIAm2TERR8+NombreHommeDarmeIAm2TERR9+NombreHommeDarmeIAm2TERR10+NombreHommeDarmeIAm2TERR11+NombreHommeDarmeIAm2TERR12+NombreHommeDarmeIAm2TERR13+NombreHommeDarmeIAm2TERR14+NombreHommeDarmeIAm2TERR15+NombreHommeDarmeIAm2TERR16+NombreHommeDarmeIAm2TERR17+NombreHommeDarmeIAm2TERR18+NombreHommeDarmeIAm2TERR19+NombreHommeDarmeIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreHommeDarmeIAm2TERR12 < 20 then NombreHommeDarmeIAm2TERR12 = NombreHommeDarmeIAm2TERR12 + 1
        if int(NombreLancierIAm2 - (NombreLancierIAm2SELECTED+NombreLancierIAm2TERR1+NombreLancierIAm2TERR2+NombreLancierIAm2TERR3+NombreLancierIAm2TERR4+NombreLancierIAm2TERR5+NombreLancierIAm2TERR6+NombreLancierIAm2TERR7+NombreLancierIAm2TERR8+NombreLancierIAm2TERR9+NombreLancierIAm2TERR10+NombreLancierIAm2TERR11+NombreLancierIAm2TERR12+NombreLancierIAm2TERR13+NombreLancierIAm2TERR14+NombreLancierIAm2TERR15+NombreLancierIAm2TERR16+NombreLancierIAm2TERR17+NombreLancierIAm2TERR18+NombreLancierIAm2TERR19+NombreLancierIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreLancierIAm2TERR12 < 10 then NombreLancierIAm2TERR12 = NombreLancierIAm2TERR12 + 1
        if int(NombreFrondeurIAm2 - (NombreFrondeurIAm2SELECTED+NombreFrondeurIAm2TERR1+NombreFrondeurIAm2TERR2+NombreFrondeurIAm2TERR3+NombreFrondeurIAm2TERR4+NombreFrondeurIAm2TERR5+NombreFrondeurIAm2TERR6+NombreFrondeurIAm2TERR7+NombreFrondeurIAm2TERR8+NombreFrondeurIAm2TERR9+NombreFrondeurIAm2TERR10+NombreFrondeurIAm2TERR11+NombreFrondeurIAm2TERR12+NombreFrondeurIAm2TERR13+NombreFrondeurIAm2TERR14+NombreFrondeurIAm2TERR15+NombreFrondeurIAm2TERR16+NombreFrondeurIAm2TERR17+NombreFrondeurIAm2TERR18+NombreFrondeurIAm2TERR19+NombreFrondeurIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreFrondeurIAm2TERR12 < 10 then NombreFrondeurIAm2TERR12 = NombreFrondeurIAm2TERR12 + 1
        if int(NombreArcherIAm2 - (NombreArcherIAm2SELECTED+NombreArcherIAm2TERR1+NombreArcherIAm2TERR2+NombreArcherIAm2TERR3+NombreArcherIAm2TERR4+NombreArcherIAm2TERR5+NombreArcherIAm2TERR6+NombreArcherIAm2TERR7+NombreArcherIAm2TERR8+NombreArcherIAm2TERR9+NombreArcherIAm2TERR10+NombreArcherIAm2TERR11+NombreArcherIAm2TERR12+NombreArcherIAm2TERR13+NombreArcherIAm2TERR14+NombreArcherIAm2TERR15+NombreArcherIAm2TERR16+NombreArcherIAm2TERR17+NombreArcherIAm2TERR18+NombreArcherIAm2TERR19+NombreArcherIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreArcherIAm2TERR12 < 20 then NombreArcherIAm2TERR12 = NombreArcherIAm2TERR12 + 1
    end if
    if territoire13 = 3 and popMILITIAm2 > 0 then
        if int(NombreHommeDarmeIAm2 - (NombreHommeDarmeIAm2SELECTED+NombreHommeDarmeIAm2TERR1+NombreHommeDarmeIAm2TERR2+NombreHommeDarmeIAm2TERR3+NombreHommeDarmeIAm2TERR4+NombreHommeDarmeIAm2TERR5+NombreHommeDarmeIAm2TERR6+NombreHommeDarmeIAm2TERR7+NombreHommeDarmeIAm2TERR8+NombreHommeDarmeIAm2TERR9+NombreHommeDarmeIAm2TERR10+NombreHommeDarmeIAm2TERR11+NombreHommeDarmeIAm2TERR12+NombreHommeDarmeIAm2TERR13+NombreHommeDarmeIAm2TERR14+NombreHommeDarmeIAm2TERR15+NombreHommeDarmeIAm2TERR16+NombreHommeDarmeIAm2TERR17+NombreHommeDarmeIAm2TERR18+NombreHommeDarmeIAm2TERR19+NombreHommeDarmeIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreHommeDarmeIAm2TERR13 < 20 then NombreHommeDarmeIAm2TERR13 = NombreHommeDarmeIAm2TERR13 + 1
        if int(NombreLancierIAm2 - (NombreLancierIAm2SELECTED+NombreLancierIAm2TERR1+NombreLancierIAm2TERR2+NombreLancierIAm2TERR3+NombreLancierIAm2TERR4+NombreLancierIAm2TERR5+NombreLancierIAm2TERR6+NombreLancierIAm2TERR7+NombreLancierIAm2TERR8+NombreLancierIAm2TERR9+NombreLancierIAm2TERR10+NombreLancierIAm2TERR11+NombreLancierIAm2TERR12+NombreLancierIAm2TERR13+NombreLancierIAm2TERR14+NombreLancierIAm2TERR15+NombreLancierIAm2TERR16+NombreLancierIAm2TERR17+NombreLancierIAm2TERR18+NombreLancierIAm2TERR19+NombreLancierIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreLancierIAm2TERR13 < 10 then NombreLancierIAm2TERR13 = NombreLancierIAm2TERR13 + 1
        if int(NombreFrondeurIAm2 - (NombreFrondeurIAm2SELECTED+NombreFrondeurIAm2TERR1+NombreFrondeurIAm2TERR2+NombreFrondeurIAm2TERR3+NombreFrondeurIAm2TERR4+NombreFrondeurIAm2TERR5+NombreFrondeurIAm2TERR6+NombreFrondeurIAm2TERR7+NombreFrondeurIAm2TERR8+NombreFrondeurIAm2TERR9+NombreFrondeurIAm2TERR10+NombreFrondeurIAm2TERR11+NombreFrondeurIAm2TERR12+NombreFrondeurIAm2TERR13+NombreFrondeurIAm2TERR14+NombreFrondeurIAm2TERR15+NombreFrondeurIAm2TERR16+NombreFrondeurIAm2TERR17+NombreFrondeurIAm2TERR18+NombreFrondeurIAm2TERR19+NombreFrondeurIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreFrondeurIAm2TERR13 < 10 then NombreFrondeurIAm2TERR13 = NombreFrondeurIAm2TERR13 + 1
        if int(NombreArcherIAm2 - (NombreArcherIAm2SELECTED+NombreArcherIAm2TERR1+NombreArcherIAm2TERR2+NombreArcherIAm2TERR3+NombreArcherIAm2TERR4+NombreArcherIAm2TERR5+NombreArcherIAm2TERR6+NombreArcherIAm2TERR7+NombreArcherIAm2TERR8+NombreArcherIAm2TERR9+NombreArcherIAm2TERR10+NombreArcherIAm2TERR11+NombreArcherIAm2TERR12+NombreArcherIAm2TERR13+NombreArcherIAm2TERR14+NombreArcherIAm2TERR15+NombreArcherIAm2TERR16+NombreArcherIAm2TERR17+NombreArcherIAm2TERR18+NombreArcherIAm2TERR19+NombreArcherIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreArcherIAm2TERR13 < 20 then NombreArcherIAm2TERR13 = NombreArcherIAm2TERR13 + 1
    end if
    if territoire14 = 3 and popMILITIAm2 > 0 then
        if int(NombreHommeDarmeIAm2 - (NombreHommeDarmeIAm2SELECTED+NombreHommeDarmeIAm2TERR1+NombreHommeDarmeIAm2TERR2+NombreHommeDarmeIAm2TERR3+NombreHommeDarmeIAm2TERR4+NombreHommeDarmeIAm2TERR5+NombreHommeDarmeIAm2TERR6+NombreHommeDarmeIAm2TERR7+NombreHommeDarmeIAm2TERR8+NombreHommeDarmeIAm2TERR9+NombreHommeDarmeIAm2TERR10+NombreHommeDarmeIAm2TERR11+NombreHommeDarmeIAm2TERR12+NombreHommeDarmeIAm2TERR13+NombreHommeDarmeIAm2TERR14+NombreHommeDarmeIAm2TERR15+NombreHommeDarmeIAm2TERR16+NombreHommeDarmeIAm2TERR17+NombreHommeDarmeIAm2TERR18+NombreHommeDarmeIAm2TERR19+NombreHommeDarmeIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreHommeDarmeIAm2TERR14 < 20 then NombreHommeDarmeIAm2TERR14 = NombreHommeDarmeIAm2TERR14 + 1
        if int(NombreLancierIAm2 - (NombreLancierIAm2SELECTED+NombreLancierIAm2TERR1+NombreLancierIAm2TERR2+NombreLancierIAm2TERR3+NombreLancierIAm2TERR4+NombreLancierIAm2TERR5+NombreLancierIAm2TERR6+NombreLancierIAm2TERR7+NombreLancierIAm2TERR8+NombreLancierIAm2TERR9+NombreLancierIAm2TERR10+NombreLancierIAm2TERR11+NombreLancierIAm2TERR12+NombreLancierIAm2TERR13+NombreLancierIAm2TERR14+NombreLancierIAm2TERR15+NombreLancierIAm2TERR16+NombreLancierIAm2TERR17+NombreLancierIAm2TERR18+NombreLancierIAm2TERR19+NombreLancierIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreLancierIAm2TERR14 < 10 then NombreLancierIAm2TERR14 = NombreLancierIAm2TERR14 + 1
        if int(NombreFrondeurIAm2 - (NombreFrondeurIAm2SELECTED+NombreFrondeurIAm2TERR1+NombreFrondeurIAm2TERR2+NombreFrondeurIAm2TERR3+NombreFrondeurIAm2TERR4+NombreFrondeurIAm2TERR5+NombreFrondeurIAm2TERR6+NombreFrondeurIAm2TERR7+NombreFrondeurIAm2TERR8+NombreFrondeurIAm2TERR9+NombreFrondeurIAm2TERR10+NombreFrondeurIAm2TERR11+NombreFrondeurIAm2TERR12+NombreFrondeurIAm2TERR13+NombreFrondeurIAm2TERR14+NombreFrondeurIAm2TERR15+NombreFrondeurIAm2TERR16+NombreFrondeurIAm2TERR17+NombreFrondeurIAm2TERR18+NombreFrondeurIAm2TERR19+NombreFrondeurIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreFrondeurIAm2TERR14 < 10 then NombreFrondeurIAm2TERR14 = NombreFrondeurIAm2TERR14 + 1
        if int(NombreArcherIAm2 - (NombreArcherIAm2SELECTED+NombreArcherIAm2TERR1+NombreArcherIAm2TERR2+NombreArcherIAm2TERR3+NombreArcherIAm2TERR4+NombreArcherIAm2TERR5+NombreArcherIAm2TERR6+NombreArcherIAm2TERR7+NombreArcherIAm2TERR8+NombreArcherIAm2TERR9+NombreArcherIAm2TERR10+NombreArcherIAm2TERR11+NombreArcherIAm2TERR12+NombreArcherIAm2TERR13+NombreArcherIAm2TERR14+NombreArcherIAm2TERR15+NombreArcherIAm2TERR16+NombreArcherIAm2TERR17+NombreArcherIAm2TERR18+NombreArcherIAm2TERR19+NombreArcherIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreArcherIAm2TERR14 < 20 then NombreArcherIAm2TERR14 = NombreArcherIAm2TERR14 + 1
    end if
    if territoire15 = 3 and popMILITIAm2 > 0 then
        if int(NombreHommeDarmeIAm2 - (NombreHommeDarmeIAm2SELECTED+NombreHommeDarmeIAm2TERR1+NombreHommeDarmeIAm2TERR2+NombreHommeDarmeIAm2TERR3+NombreHommeDarmeIAm2TERR4+NombreHommeDarmeIAm2TERR5+NombreHommeDarmeIAm2TERR6+NombreHommeDarmeIAm2TERR7+NombreHommeDarmeIAm2TERR8+NombreHommeDarmeIAm2TERR9+NombreHommeDarmeIAm2TERR10+NombreHommeDarmeIAm2TERR11+NombreHommeDarmeIAm2TERR12+NombreHommeDarmeIAm2TERR13+NombreHommeDarmeIAm2TERR14+NombreHommeDarmeIAm2TERR15+NombreHommeDarmeIAm2TERR16+NombreHommeDarmeIAm2TERR17+NombreHommeDarmeIAm2TERR18+NombreHommeDarmeIAm2TERR19+NombreHommeDarmeIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreHommeDarmeIAm2TERR15 < 20 then NombreHommeDarmeIAm2TERR15 = NombreHommeDarmeIAm2TERR15 + 1
        if int(NombreLancierIAm2 - (NombreLancierIAm2SELECTED+NombreLancierIAm2TERR1+NombreLancierIAm2TERR2+NombreLancierIAm2TERR3+NombreLancierIAm2TERR4+NombreLancierIAm2TERR5+NombreLancierIAm2TERR6+NombreLancierIAm2TERR7+NombreLancierIAm2TERR8+NombreLancierIAm2TERR9+NombreLancierIAm2TERR10+NombreLancierIAm2TERR11+NombreLancierIAm2TERR12+NombreLancierIAm2TERR13+NombreLancierIAm2TERR14+NombreLancierIAm2TERR15+NombreLancierIAm2TERR16+NombreLancierIAm2TERR17+NombreLancierIAm2TERR18+NombreLancierIAm2TERR19+NombreLancierIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreLancierIAm2TERR15 < 10 then NombreLancierIAm2TERR15 = NombreLancierIAm2TERR15 + 1
        if int(NombreFrondeurIAm2 - (NombreFrondeurIAm2SELECTED+NombreFrondeurIAm2TERR1+NombreFrondeurIAm2TERR2+NombreFrondeurIAm2TERR3+NombreFrondeurIAm2TERR4+NombreFrondeurIAm2TERR5+NombreFrondeurIAm2TERR6+NombreFrondeurIAm2TERR7+NombreFrondeurIAm2TERR8+NombreFrondeurIAm2TERR9+NombreFrondeurIAm2TERR10+NombreFrondeurIAm2TERR11+NombreFrondeurIAm2TERR12+NombreFrondeurIAm2TERR13+NombreFrondeurIAm2TERR14+NombreFrondeurIAm2TERR15+NombreFrondeurIAm2TERR16+NombreFrondeurIAm2TERR17+NombreFrondeurIAm2TERR18+NombreFrondeurIAm2TERR19+NombreFrondeurIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreFrondeurIAm2TERR15 < 10 then NombreFrondeurIAm2TERR15 = NombreFrondeurIAm2TERR15 + 1
        if int(NombreArcherIAm2 - (NombreArcherIAm2SELECTED+NombreArcherIAm2TERR1+NombreArcherIAm2TERR2+NombreArcherIAm2TERR3+NombreArcherIAm2TERR4+NombreArcherIAm2TERR5+NombreArcherIAm2TERR6+NombreArcherIAm2TERR7+NombreArcherIAm2TERR8+NombreArcherIAm2TERR9+NombreArcherIAm2TERR10+NombreArcherIAm2TERR11+NombreArcherIAm2TERR12+NombreArcherIAm2TERR13+NombreArcherIAm2TERR14+NombreArcherIAm2TERR15+NombreArcherIAm2TERR16+NombreArcherIAm2TERR17+NombreArcherIAm2TERR18+NombreArcherIAm2TERR19+NombreArcherIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreArcherIAm2TERR15 < 20 then NombreArcherIAm2TERR15 = NombreArcherIAm2TERR15 + 1
    end if
    if territoire16 = 3 and popMILITIAm2 > 0 then
        if int(NombreHommeDarmeIAm2 - (NombreHommeDarmeIAm2SELECTED+NombreHommeDarmeIAm2TERR1+NombreHommeDarmeIAm2TERR2+NombreHommeDarmeIAm2TERR3+NombreHommeDarmeIAm2TERR4+NombreHommeDarmeIAm2TERR5+NombreHommeDarmeIAm2TERR6+NombreHommeDarmeIAm2TERR7+NombreHommeDarmeIAm2TERR8+NombreHommeDarmeIAm2TERR9+NombreHommeDarmeIAm2TERR10+NombreHommeDarmeIAm2TERR11+NombreHommeDarmeIAm2TERR12+NombreHommeDarmeIAm2TERR13+NombreHommeDarmeIAm2TERR14+NombreHommeDarmeIAm2TERR15+NombreHommeDarmeIAm2TERR16+NombreHommeDarmeIAm2TERR17+NombreHommeDarmeIAm2TERR18+NombreHommeDarmeIAm2TERR19+NombreHommeDarmeIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreHommeDarmeIAm2TERR16 < 20 then NombreHommeDarmeIAm2TERR16 = NombreHommeDarmeIAm2TERR16 + 1
        if int(NombreLancierIAm2 - (NombreLancierIAm2SELECTED+NombreLancierIAm2TERR1+NombreLancierIAm2TERR2+NombreLancierIAm2TERR3+NombreLancierIAm2TERR4+NombreLancierIAm2TERR5+NombreLancierIAm2TERR6+NombreLancierIAm2TERR7+NombreLancierIAm2TERR8+NombreLancierIAm2TERR9+NombreLancierIAm2TERR10+NombreLancierIAm2TERR11+NombreLancierIAm2TERR12+NombreLancierIAm2TERR13+NombreLancierIAm2TERR14+NombreLancierIAm2TERR15+NombreLancierIAm2TERR16+NombreLancierIAm2TERR17+NombreLancierIAm2TERR18+NombreLancierIAm2TERR19+NombreLancierIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreLancierIAm2TERR16 < 10 then NombreLancierIAm2TERR16 = NombreLancierIAm2TERR16 + 1
        if int(NombreFrondeurIAm2 - (NombreFrondeurIAm2SELECTED+NombreFrondeurIAm2TERR1+NombreFrondeurIAm2TERR2+NombreFrondeurIAm2TERR3+NombreFrondeurIAm2TERR4+NombreFrondeurIAm2TERR5+NombreFrondeurIAm2TERR6+NombreFrondeurIAm2TERR7+NombreFrondeurIAm2TERR8+NombreFrondeurIAm2TERR9+NombreFrondeurIAm2TERR10+NombreFrondeurIAm2TERR11+NombreFrondeurIAm2TERR12+NombreFrondeurIAm2TERR13+NombreFrondeurIAm2TERR14+NombreFrondeurIAm2TERR15+NombreFrondeurIAm2TERR16+NombreFrondeurIAm2TERR17+NombreFrondeurIAm2TERR18+NombreFrondeurIAm2TERR19+NombreFrondeurIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreFrondeurIAm2TERR16 < 10 then NombreFrondeurIAm2TERR16 = NombreFrondeurIAm2TERR16 + 1
        if int(NombreArcherIAm2 - (NombreArcherIAm2SELECTED+NombreArcherIAm2TERR1+NombreArcherIAm2TERR2+NombreArcherIAm2TERR3+NombreArcherIAm2TERR4+NombreArcherIAm2TERR5+NombreArcherIAm2TERR6+NombreArcherIAm2TERR7+NombreArcherIAm2TERR8+NombreArcherIAm2TERR9+NombreArcherIAm2TERR10+NombreArcherIAm2TERR11+NombreArcherIAm2TERR12+NombreArcherIAm2TERR13+NombreArcherIAm2TERR14+NombreArcherIAm2TERR15+NombreArcherIAm2TERR16+NombreArcherIAm2TERR17+NombreArcherIAm2TERR18+NombreArcherIAm2TERR19+NombreArcherIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreArcherIAm2TERR16 < 20 then NombreArcherIAm2TERR16 = NombreArcherIAm2TERR16 + 1
    end if
    if territoire17 = 3 and popMILITIAm2 > 0 then
        if int(NombreHommeDarmeIAm2 - (NombreHommeDarmeIAm2SELECTED+NombreHommeDarmeIAm2TERR1+NombreHommeDarmeIAm2TERR2+NombreHommeDarmeIAm2TERR3+NombreHommeDarmeIAm2TERR4+NombreHommeDarmeIAm2TERR5+NombreHommeDarmeIAm2TERR6+NombreHommeDarmeIAm2TERR7+NombreHommeDarmeIAm2TERR8+NombreHommeDarmeIAm2TERR9+NombreHommeDarmeIAm2TERR10+NombreHommeDarmeIAm2TERR11+NombreHommeDarmeIAm2TERR12+NombreHommeDarmeIAm2TERR13+NombreHommeDarmeIAm2TERR14+NombreHommeDarmeIAm2TERR15+NombreHommeDarmeIAm2TERR16+NombreHommeDarmeIAm2TERR17+NombreHommeDarmeIAm2TERR18+NombreHommeDarmeIAm2TERR19+NombreHommeDarmeIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreHommeDarmeIAm2TERR17 < 20 then NombreHommeDarmeIAm2TERR17 = NombreHommeDarmeIAm2TERR17 + 1
        if int(NombreLancierIAm2 - (NombreLancierIAm2SELECTED+NombreLancierIAm2TERR1+NombreLancierIAm2TERR2+NombreLancierIAm2TERR3+NombreLancierIAm2TERR4+NombreLancierIAm2TERR5+NombreLancierIAm2TERR6+NombreLancierIAm2TERR7+NombreLancierIAm2TERR8+NombreLancierIAm2TERR9+NombreLancierIAm2TERR10+NombreLancierIAm2TERR11+NombreLancierIAm2TERR12+NombreLancierIAm2TERR13+NombreLancierIAm2TERR14+NombreLancierIAm2TERR15+NombreLancierIAm2TERR16+NombreLancierIAm2TERR17+NombreLancierIAm2TERR18+NombreLancierIAm2TERR19+NombreLancierIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreLancierIAm2TERR17 < 10 then NombreLancierIAm2TERR17 = NombreLancierIAm2TERR17 + 1
        if int(NombreFrondeurIAm2 - (NombreFrondeurIAm2SELECTED+NombreFrondeurIAm2TERR1+NombreFrondeurIAm2TERR2+NombreFrondeurIAm2TERR3+NombreFrondeurIAm2TERR4+NombreFrondeurIAm2TERR5+NombreFrondeurIAm2TERR6+NombreFrondeurIAm2TERR7+NombreFrondeurIAm2TERR8+NombreFrondeurIAm2TERR9+NombreFrondeurIAm2TERR10+NombreFrondeurIAm2TERR11+NombreFrondeurIAm2TERR12+NombreFrondeurIAm2TERR13+NombreFrondeurIAm2TERR14+NombreFrondeurIAm2TERR15+NombreFrondeurIAm2TERR16+NombreFrondeurIAm2TERR17+NombreFrondeurIAm2TERR18+NombreFrondeurIAm2TERR19+NombreFrondeurIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreFrondeurIAm2TERR17 < 10 then NombreFrondeurIAm2TERR17 = NombreFrondeurIAm2TERR17 + 1
        if int(NombreArcherIAm2 - (NombreArcherIAm2SELECTED+NombreArcherIAm2TERR1+NombreArcherIAm2TERR2+NombreArcherIAm2TERR3+NombreArcherIAm2TERR4+NombreArcherIAm2TERR5+NombreArcherIAm2TERR6+NombreArcherIAm2TERR7+NombreArcherIAm2TERR8+NombreArcherIAm2TERR9+NombreArcherIAm2TERR10+NombreArcherIAm2TERR11+NombreArcherIAm2TERR12+NombreArcherIAm2TERR13+NombreArcherIAm2TERR14+NombreArcherIAm2TERR15+NombreArcherIAm2TERR16+NombreArcherIAm2TERR17+NombreArcherIAm2TERR18+NombreArcherIAm2TERR19+NombreArcherIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreArcherIAm2TERR17 < 20 then NombreArcherIAm2TERR17 = NombreArcherIAm2TERR17 + 1
    end if
    if territoire18 = 3 and popMILITIAm2 > 0 then
        if int(NombreHommeDarmeIAm2 - (NombreHommeDarmeIAm2SELECTED+NombreHommeDarmeIAm2TERR1+NombreHommeDarmeIAm2TERR2+NombreHommeDarmeIAm2TERR3+NombreHommeDarmeIAm2TERR4+NombreHommeDarmeIAm2TERR5+NombreHommeDarmeIAm2TERR6+NombreHommeDarmeIAm2TERR7+NombreHommeDarmeIAm2TERR8+NombreHommeDarmeIAm2TERR9+NombreHommeDarmeIAm2TERR10+NombreHommeDarmeIAm2TERR11+NombreHommeDarmeIAm2TERR12+NombreHommeDarmeIAm2TERR13+NombreHommeDarmeIAm2TERR14+NombreHommeDarmeIAm2TERR15+NombreHommeDarmeIAm2TERR16+NombreHommeDarmeIAm2TERR17+NombreHommeDarmeIAm2TERR18+NombreHommeDarmeIAm2TERR19+NombreHommeDarmeIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreHommeDarmeIAm2TERR18 < 20 then NombreHommeDarmeIAm2TERR18 = NombreHommeDarmeIAm2TERR18 + 1
        if int(NombreLancierIAm2 - (NombreLancierIAm2SELECTED+NombreLancierIAm2TERR1+NombreLancierIAm2TERR2+NombreLancierIAm2TERR3+NombreLancierIAm2TERR4+NombreLancierIAm2TERR5+NombreLancierIAm2TERR6+NombreLancierIAm2TERR7+NombreLancierIAm2TERR8+NombreLancierIAm2TERR9+NombreLancierIAm2TERR10+NombreLancierIAm2TERR11+NombreLancierIAm2TERR12+NombreLancierIAm2TERR13+NombreLancierIAm2TERR14+NombreLancierIAm2TERR15+NombreLancierIAm2TERR16+NombreLancierIAm2TERR17+NombreLancierIAm2TERR18+NombreLancierIAm2TERR19+NombreLancierIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreLancierIAm2TERR18 < 10 then NombreLancierIAm2TERR18 = NombreLancierIAm2TERR18 + 1
        if int(NombreFrondeurIAm2 - (NombreFrondeurIAm2SELECTED+NombreFrondeurIAm2TERR1+NombreFrondeurIAm2TERR2+NombreFrondeurIAm2TERR3+NombreFrondeurIAm2TERR4+NombreFrondeurIAm2TERR5+NombreFrondeurIAm2TERR6+NombreFrondeurIAm2TERR7+NombreFrondeurIAm2TERR8+NombreFrondeurIAm2TERR9+NombreFrondeurIAm2TERR10+NombreFrondeurIAm2TERR11+NombreFrondeurIAm2TERR12+NombreFrondeurIAm2TERR13+NombreFrondeurIAm2TERR14+NombreFrondeurIAm2TERR15+NombreFrondeurIAm2TERR16+NombreFrondeurIAm2TERR17+NombreFrondeurIAm2TERR18+NombreFrondeurIAm2TERR19+NombreFrondeurIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreFrondeurIAm2TERR18 < 10 then NombreFrondeurIAm2TERR18 = NombreFrondeurIAm2TERR18 + 1
        if int(NombreArcherIAm2 - (NombreArcherIAm2SELECTED+NombreArcherIAm2TERR1+NombreArcherIAm2TERR2+NombreArcherIAm2TERR3+NombreArcherIAm2TERR4+NombreArcherIAm2TERR5+NombreArcherIAm2TERR6+NombreArcherIAm2TERR7+NombreArcherIAm2TERR8+NombreArcherIAm2TERR9+NombreArcherIAm2TERR10+NombreArcherIAm2TERR11+NombreArcherIAm2TERR12+NombreArcherIAm2TERR13+NombreArcherIAm2TERR14+NombreArcherIAm2TERR15+NombreArcherIAm2TERR16+NombreArcherIAm2TERR17+NombreArcherIAm2TERR18+NombreArcherIAm2TERR19+NombreArcherIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreArcherIAm2TERR18 < 20 then NombreArcherIAm2TERR18 = NombreArcherIAm2TERR18 + 1
    end if
    if territoire19 = 3 and popMILITIAm2 > 0 then
        if int(NombreHommeDarmeIAm2 - (NombreHommeDarmeIAm2SELECTED+NombreHommeDarmeIAm2TERR1+NombreHommeDarmeIAm2TERR2+NombreHommeDarmeIAm2TERR3+NombreHommeDarmeIAm2TERR4+NombreHommeDarmeIAm2TERR5+NombreHommeDarmeIAm2TERR6+NombreHommeDarmeIAm2TERR7+NombreHommeDarmeIAm2TERR8+NombreHommeDarmeIAm2TERR9+NombreHommeDarmeIAm2TERR10+NombreHommeDarmeIAm2TERR11+NombreHommeDarmeIAm2TERR12+NombreHommeDarmeIAm2TERR13+NombreHommeDarmeIAm2TERR14+NombreHommeDarmeIAm2TERR15+NombreHommeDarmeIAm2TERR16+NombreHommeDarmeIAm2TERR17+NombreHommeDarmeIAm2TERR18+NombreHommeDarmeIAm2TERR19+NombreHommeDarmeIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreHommeDarmeIAm2TERR19 < 20 then NombreHommeDarmeIAm2TERR19 = NombreHommeDarmeIAm2TERR19 + 1
        if int(NombreLancierIAm2 - (NombreLancierIAm2SELECTED+NombreLancierIAm2TERR1+NombreLancierIAm2TERR2+NombreLancierIAm2TERR3+NombreLancierIAm2TERR4+NombreLancierIAm2TERR5+NombreLancierIAm2TERR6+NombreLancierIAm2TERR7+NombreLancierIAm2TERR8+NombreLancierIAm2TERR9+NombreLancierIAm2TERR10+NombreLancierIAm2TERR11+NombreLancierIAm2TERR12+NombreLancierIAm2TERR13+NombreLancierIAm2TERR14+NombreLancierIAm2TERR15+NombreLancierIAm2TERR16+NombreLancierIAm2TERR17+NombreLancierIAm2TERR18+NombreLancierIAm2TERR19+NombreLancierIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreLancierIAm2TERR19 < 10 then NombreLancierIAm2TERR19 = NombreLancierIAm2TERR19 + 1
        if int(NombreFrondeurIAm2 - (NombreFrondeurIAm2SELECTED+NombreFrondeurIAm2TERR1+NombreFrondeurIAm2TERR2+NombreFrondeurIAm2TERR3+NombreFrondeurIAm2TERR4+NombreFrondeurIAm2TERR5+NombreFrondeurIAm2TERR6+NombreFrondeurIAm2TERR7+NombreFrondeurIAm2TERR8+NombreFrondeurIAm2TERR9+NombreFrondeurIAm2TERR10+NombreFrondeurIAm2TERR11+NombreFrondeurIAm2TERR12+NombreFrondeurIAm2TERR13+NombreFrondeurIAm2TERR14+NombreFrondeurIAm2TERR15+NombreFrondeurIAm2TERR16+NombreFrondeurIAm2TERR17+NombreFrondeurIAm2TERR18+NombreFrondeurIAm2TERR19+NombreFrondeurIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreFrondeurIAm2TERR19 < 10 then NombreFrondeurIAm2TERR19 = NombreFrondeurIAm2TERR19 + 1
        if int(NombreArcherIAm2 - (NombreArcherIAm2SELECTED+NombreArcherIAm2TERR1+NombreArcherIAm2TERR2+NombreArcherIAm2TERR3+NombreArcherIAm2TERR4+NombreArcherIAm2TERR5+NombreArcherIAm2TERR6+NombreArcherIAm2TERR7+NombreArcherIAm2TERR8+NombreArcherIAm2TERR9+NombreArcherIAm2TERR10+NombreArcherIAm2TERR11+NombreArcherIAm2TERR12+NombreArcherIAm2TERR13+NombreArcherIAm2TERR14+NombreArcherIAm2TERR15+NombreArcherIAm2TERR16+NombreArcherIAm2TERR17+NombreArcherIAm2TERR18+NombreArcherIAm2TERR19+NombreArcherIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreArcherIAm2TERR19 < 20 then NombreArcherIAm2TERR19 = NombreArcherIAm2TERR19 + 1
    end if
    if territoire20 = 3 and popMILITIAm2 > 0 then
        if int(NombreHommeDarmeIAm2 - (NombreHommeDarmeIAm2SELECTED+NombreHommeDarmeIAm2TERR1+NombreHommeDarmeIAm2TERR2+NombreHommeDarmeIAm2TERR3+NombreHommeDarmeIAm2TERR4+NombreHommeDarmeIAm2TERR5+NombreHommeDarmeIAm2TERR6+NombreHommeDarmeIAm2TERR7+NombreHommeDarmeIAm2TERR8+NombreHommeDarmeIAm2TERR9+NombreHommeDarmeIAm2TERR10+NombreHommeDarmeIAm2TERR11+NombreHommeDarmeIAm2TERR12+NombreHommeDarmeIAm2TERR13+NombreHommeDarmeIAm2TERR14+NombreHommeDarmeIAm2TERR15+NombreHommeDarmeIAm2TERR16+NombreHommeDarmeIAm2TERR17+NombreHommeDarmeIAm2TERR18+NombreHommeDarmeIAm2TERR19+NombreHommeDarmeIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreHommeDarmeIAm2TERR20 < 20 then NombreHommeDarmeIAm2TERR20 = NombreHommeDarmeIAm2TERR20 + 1
        if int(NombreLancierIAm2 - (NombreLancierIAm2SELECTED+NombreLancierIAm2TERR1+NombreLancierIAm2TERR2+NombreLancierIAm2TERR3+NombreLancierIAm2TERR4+NombreLancierIAm2TERR5+NombreLancierIAm2TERR6+NombreLancierIAm2TERR7+NombreLancierIAm2TERR8+NombreLancierIAm2TERR9+NombreLancierIAm2TERR10+NombreLancierIAm2TERR11+NombreLancierIAm2TERR12+NombreLancierIAm2TERR13+NombreLancierIAm2TERR14+NombreLancierIAm2TERR15+NombreLancierIAm2TERR16+NombreLancierIAm2TERR17+NombreLancierIAm2TERR18+NombreLancierIAm2TERR19+NombreLancierIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreLancierIAm2TERR20 < 10 then NombreLancierIAm2TERR20 = NombreLancierIAm2TERR20 + 1
        if int(NombreFrondeurIAm2 - (NombreFrondeurIAm2SELECTED+NombreFrondeurIAm2TERR1+NombreFrondeurIAm2TERR2+NombreFrondeurIAm2TERR3+NombreFrondeurIAm2TERR4+NombreFrondeurIAm2TERR5+NombreFrondeurIAm2TERR6+NombreFrondeurIAm2TERR7+NombreFrondeurIAm2TERR8+NombreFrondeurIAm2TERR9+NombreFrondeurIAm2TERR10+NombreFrondeurIAm2TERR11+NombreFrondeurIAm2TERR12+NombreFrondeurIAm2TERR13+NombreFrondeurIAm2TERR14+NombreFrondeurIAm2TERR15+NombreFrondeurIAm2TERR16+NombreFrondeurIAm2TERR17+NombreFrondeurIAm2TERR18+NombreFrondeurIAm2TERR19+NombreFrondeurIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreFrondeurIAm2TERR20 < 10 then NombreFrondeurIAm2TERR20 = NombreFrondeurIAm2TERR20 + 1
        if int(NombreArcherIAm2 - (NombreArcherIAm2SELECTED+NombreArcherIAm2TERR1+NombreArcherIAm2TERR2+NombreArcherIAm2TERR3+NombreArcherIAm2TERR4+NombreArcherIAm2TERR5+NombreArcherIAm2TERR6+NombreArcherIAm2TERR7+NombreArcherIAm2TERR8+NombreArcherIAm2TERR9+NombreArcherIAm2TERR10+NombreArcherIAm2TERR11+NombreArcherIAm2TERR12+NombreArcherIAm2TERR13+NombreArcherIAm2TERR14+NombreArcherIAm2TERR15+NombreArcherIAm2TERR16+NombreArcherIAm2TERR17+NombreArcherIAm2TERR18+NombreArcherIAm2TERR19+NombreArcherIAm2TERR20)) > int((popMILITIAm2/20)+1) and NombreArcherIAm2TERR20 < 20 then NombreArcherIAm2TERR20 = NombreArcherIAm2TERR20 + 1
    end if

        if boisIAm2 >= coutScBOISIAm2 and popSCIENTIAm2 = popSCIENTlimIAm2 then
           lvlbatimentCentreScientifiqueIAm2 = lvlbatimentCentreScientifiqueIAm2 + 1
           boisIAm2 = boisIAm2 - coutScBOISIAm2
           popSCIENTlimIAm2 = popSCIENTlimIAm2 +1
        end if
        if boisIAm2 >= coutSmBOISIAm2 and popMILITIAm2 = popMILITlimIAm2 then
           lvlbatimentCentreMilitaireIAm2 = lvlbatimentCentreMilitaireIAm2 + 1
           popMILITlimIAm2 = popMILITlimIAm2 + 4
           boisIAm2 = boisIAm2 - coutSmBOISIAm2
        end if
        if boisIAm2 >= coutHabitationBOISIAm2 and sedentarisationIAm2 = 1 and popPossibleIAm2 < int(popTOTALIAm2+(popTOTALIAm2/5)) then
            lvlbatimentHabitationIAm2 = lvlbatimentHabitationIAm2 + 1
            popPossibleIAm2 = popPossibleIAm2 + (5+lvlbatimentHabitationIAm2)
            boisIAm2 = boisIAm2 - coutHabitationBOISIAm2
        end if
        if fermageIAm2 = 1 and boisIAm2 >= coutfermageBOISIAm2 and lvlbatimentFermeIAm2 < 2*lvlbatimentPrincipalIAm2 then
           lvlbatimentFermeIAm2 = lvlbatimentFermeIAm2 + 1
           boisIAm2 = boisIAm2 - coutfermageBOISIAm2
        end if
        if scierieIA2 = 0 and boisIAm2 >= rechearch3BOISIAm2 then
            boisIAm2 = boisIAm2 - rechearch3BOISIAm2
            scierieIA2 = 1
        end if
        if scierieIA2 = 1 and boisIAm2 >= coutScierieBOISIAm2 and lvlbatimentScierieIAm2 <  2*lvlbatimentPrincipalIAm2 then
           lvlbatimentScierieIAm2 = lvlbatimentScierieIAm2 + 1
           boisIAm2 = boisIAm2 - coutScierieBOISIAm2
        end if
        if minesIA2 = 0 and boisIAm2 >= rechearch4BOISIAm2 then
            boisIAm2 = boisIAm2 - rechearch4BOISIAm2
            minesIA2 = 1
        end if
        if minesIA2 = 1 and boisIAm2 >= coutMinesBOISIAm2 and lvlbatimentMinesIAm2 <  2*lvlbatimentPrincipalIAm2 then
           lvlbatimentMinesIAm2 = lvlbatimentMinesIAm2 + 1
           boisIAm2 = boisIAm2 - coutMinesBOISIAm2
        end if
        if boisIAm2 >= coutFortificationsBOISIAm2 and lvlbatimentFortificationsIAm2 < int(lvlbatimentCentreMilitaireIAm2+lvlbatimentCentreScientifiqueIAm2+lvlbatimentPrincipalIAm2) then
           lvlbatimentFortificationsIAm2 = lvlbatimentFortificationsIAm2 + 1
           if lvlbatimentFortificationsIAm2 = 1 then hpFortificationsIAm2 = 1000
           boisIAm2 = boisIAm2 - coutFortificationsBOISIAm2
        end if
        if boisIAm2 >= coutFortifications2BOISIAm2 and lvlbatimentFortificationsIAm2 >= 1 then
           lvlHPFortificationsIAm2 = lvlHPFortificationsIAm2 + 1
           hpFortificationsIAm2 = hpFortificationsIAm2 + (int(lvlbatimentFortificationsIAm2*250))
           boisIAm2 = boisIAm2 - coutFortifications2BOISIAm2
        end if
        if foodIAm2 >= coutfoodScientifique and popSCIENTIAm2 <= popSCIENTlimIAm2 and int(popTOTALIAm2-popSCIENTIAm2-popMILITIAm2) >= 1 then
            popSCIENTIAm2 = popSCIENTIAm2 + 1
            foodIAm2 = foodIAm2 - coutfoodScientifique
        end if

    errorGAME = 21

    offHommedarmeIAm2 = 12 + ( 2*lvlbatimentFortificationsIAm2)
    defHommedarmeIAm2 = 3 + lvlbatimentFortificationsIAm2
    vieHommedarmeIAm2 = 37 + ( 5*lvlbatimentFortificationsIAm2)
    offlancierIAm2 = 19 + (2*lvlbatimentFortificationsIAm2)
    deflancierIAm2 = 2 + lvlbatimentFortificationsIAm2
    vielancierIAm2 = 33 + (3*lvlbatimentFortificationsIAm2)
    offfrondeurIAm2 = 38 + (5*lvlbatimentFortificationsIAm2)
    defFrondeurIAm2 = 1 + lvlbatimentFortificationsIAm2
    viefrondeurIAm2 = 18 + (1*lvlbatimentFortificationsIAm2)
    offarcherIAm2 = 12 + (3*lvlbatimentFortificationsIAm2)
    defarcherIAm2 = 2 + lvlbatimentFortificationsIAm2
    viearcherIAm2 = 24 + (3*lvlbatimentFortificationsIAm2)

    coutFortificationsBOISIAm2 = int(lvlbatimentFortificationsIAm2*2500)
    coutFortifications2BOISIAm2 =  int(lvlHPFortificationsIAm2*200)
    coutHabitationBOISIAm2 = coutHabitationBOISindexIAm2 + (int(lvlbatimentHabitationIAm2*150))
    coutScBOISIAm2 = coutScBOISindexIAm2 + (int(lvlbatimentCentreScientifiqueIAm2*600))
    coutPrincipalBOISIAm2 = coutPrincipalBOISindexIAm2 + (int(lvlbatimentPrincipalIAm2*400))
    coutPrincipalMETALIAm2 =(20*int(lvlbatimentPrincipalIAm2))
    coutSmBOISIAm2 = coutSmBOISindexIAm2 + (int(lvlbatimentCentreMilitaireIAm2*450))
    coutSmMETALIAm2 = 50*(int(lvlbatimentCentreMilitaireIAm2))
    coutfermageBOISIAm2 = coutFermeBOISindexIAm2 + (int(lvlbatimentFermeIAm2*500))
    coutfermageMETALIAm2 = 50*(int(lvlbatimentFermeIAm2))
    coutScierieBOISIAm2 = coutScierieBOISindexIAm2 + (int(lvlbatimentScierieIAm2*500))
    coutScierieMETALIAm2 = 20*(int(lvlbatimentScierieIAm2))
    coutMinesBOISIAm2 = coutMinesBOISindexIAm2 + (int(lvlbatimentMinesIAm2*1000))
    coutMinesMETALIAm2 = 20*(int(lvlbatimentMinesIAm2))
    coutfoodScientifique = 300

    if compteurATKia2ON = 0 and DecouverteCiv3P1 = 1 and attaqueAIm2 = 0 then
       valorCOMPTEURia2 = int(rnd(1)*100+30)
       valorCOMPTEURia2 = valorCOMPTEURia2 - (3*nombrePLAYER1territoire)
       if valorCOMPTEURia2 < 20 then valorCOMPTEURia2 = 20
       compteurATKia2surJ1 = 0
       compteurATKia2ON = 1
       NOMBREatk2SURplayer = NOMBREatk2SURplayer + 1
    end if
    compteurATKia2surJ1 = compteurATKia2surJ1 + 1
    if NOMBREatk1SURplayer > NOMBREatk2SURplayer then compteurATKia2surJ1 = compteurATKia2surJ1 + 5
    if attaqueAIm2 = 3 then compteurATKia2surJ1 = valorCOMPTEURia2 - 30 : attaqueAIm2 = 0

    if attaqueAIm2 = 0 and attaqueAIm1 = 0 and STATUTiam2 < 50 and popMILITIAm2 >= 1 and popTOTALIAm2 > 20 and compteurATKia2surJ1 >= valorCOMPTEURia2 and compteurIA2m >= 500 then
       [FOUNDED2]
       FOUNDme2 = 0 : CHOICEia2TOattack = int(rnd(1)*2+1)
       if CHOICEia2TOattack = 1 then valorCOMPTEURia2 = 0 : compteurATKia2surJ1 = 0 : compteurATKia2ON = 0 : goto [noIA2atk]
       NombreHommeDarmeIAm2SELECTED = int(rnd(1)*(NombreHommeDarmeIAm2-(NombreHommeDarmeIAm2TERR1+NombreHommeDarmeIAm2TERR2+NombreHommeDarmeIAm2TERR3+NombreHommeDarmeIAm2TERR4+NombreHommeDarmeIAm2TERR5+NombreHommeDarmeIAm2TERR6+NombreHommeDarmeIAm2TERR7+NombreHommeDarmeIAm2TERR8+NombreHommeDarmeIAm2TERR9+NombreHommeDarmeIAm2TERR10+NombreHommeDarmeIAm2TERR11+NombreHommeDarmeIAm2TERR12+NombreHommeDarmeIAm2TERR13+NombreHommeDarmeIAm2TERR14+NombreHommeDarmeIAm2TERR15+NombreHommeDarmeIAm2TERR16+NombreHommeDarmeIAm2TERR17+NombreHommeDarmeIAm2TERR18+NombreHommeDarmeIAm2TERR19+NombreHommeDarmeIAm2TERR20))) : savNombreHommeDarmeIAm2SELECTED = NombreHommeDarmeIAm2SELECTED
       NombreLancierIAm2SELECTED = int(rnd(1)*(NombreLancierIAm2-(NombreLancierIAm2TERR1+NombreLancierIAm2TERR2+NombreLancierIAm2TERR3+NombreLancierIAm2TERR4+NombreLancierIAm2TERR5+NombreLancierIAm2TERR6+NombreLancierIAm2TERR7+NombreLancierIAm2TERR8+NombreLancierIAm2TERR9+NombreLancierIAm2TERR10+NombreLancierIAm2TERR11+NombreLancierIAm2TERR12+NombreLancierIAm2TERR13+NombreLancierIAm2TERR14+NombreLancierIAm2TERR15+NombreLancierIAm2TERR16+NombreLancierIAm2TERR17+NombreLancierIAm2TERR18+NombreLancierIAm2TERR19+NombreLancierIAm2TERR20))) : savNombreLancierIAm2SELECTED = NombreLancierIAm2SELECTED
       NombreFrondeurIAm2SELECTED = int(rnd(1)*(NombreFrondeurIAm2-(NombreFrondeurIAm2TERR1+NombreFrondeurIAm2TERR2+NombreFrondeurIAm2TERR3+NombreFrondeurIAm2TERR4+NombreFrondeurIAm2TERR5+NombreFrondeurIAm2TERR6+NombreFrondeurIAm2TERR7+NombreFrondeurIAm2TERR8+NombreFrondeurIAm2TERR9+NombreFrondeurIAm2TERR10+NombreFrondeurIAm2TERR11+NombreFrondeurIAm2TERR12+NombreFrondeurIAm2TERR13+NombreFrondeurIAm2TERR14+NombreFrondeurIAm2TERR15+NombreFrondeurIAm2TERR16+NombreFrondeurIAm2TERR17+NombreFrondeurIAm2TERR18+NombreFrondeurIAm2TERR19+NombreFrondeurIAm2TERR20))) : savNombreFrondeurIAm2SELECTED = NombreFrondeurIAm2SELECTED
       NombreArcherIAm2SELECTED = int(rnd(1)*(NombreArcherIAm2-(NombreArcherIAm2TERR1+NombreArcherIAm2TERR2+NombreArcherIAm2TERR3+NombreArcherIAm2TERR4+NombreArcherIAm2TERR5+NombreArcherIAm2TERR6+NombreArcherIAm2TERR7+NombreArcherIAm2TERR8+NombreArcherIAm2TERR9+NombreArcherIAm2TERR10+NombreArcherIAm2TERR11+NombreArcherIAm2TERR12+NombreArcherIAm2TERR13+NombreArcherIAm2TERR14+NombreArcherIAm2TERR15+NombreArcherIAm2TERR16+NombreArcherIAm2TERR17+NombreArcherIAm2TERR18+NombreArcherIAm2TERR19+NombreArcherIAm2TERR20))) : savNombreArcherIAm2SELECTED = NombreArcherIAm2SELECTED
       if NombreHommeDarmeIAm2SELECTED < 0 then NombreHommeDarmeIAm2SELECTED = 0
       if NombreLancierIAm2SELECTED < 0 then NombreLancierIAm2SELECTED = 0
       if NombreFrondeurIAm2SELECTED < 0 then NombreFrondeurIAm2SELECTED = 0
       if NombreArcherIAm2SELECTED < 0 then NombreArcherIAm2SELECTED = 0
       NombreHommeDarmeIAm2SELECTEDtemp = NombreHommeDarmeIAm2SELECTED
       NombreLancierIAm2SELECTEDtemp = NombreLancierIAm2SELECTED
       NombreFrondeurIAm2SELECTEDtemp = NombreFrondeurIAm2SELECTED
       NombreArcherIAm2SELECTEDtemp = NombreArcherIAm2SELECTED
       if NombreHommeDarmeIAm2SELECTED = 0 and NombreLancierIAm2SELECTED = 0 and NombreFrondeurIAm2SELECTED =0 and NombreArcherIAm2SELECTED  = 0 then valorCOMPTEURia2 = 0 : compteurATKia2surJ1 = 0 : compteurATKia2ON = 0 : goto [noIA2atk]
       notice " " + chr$(13) + "Une attaque en provenance d'une autre civilisation est en marche vers votre ville !"
       IA1atk$ = "STOP" : IA2atk$ = "ON"
       attaqueAIm2 = 1
       attaqueAIm1 = 0
       STATUTiam2 = STATUTiam2-100
       valorCOMPTEURia2 = 0
       compteurATKia2surJ1 = 0
       compteurATKia2ON = 0
       P1ennemix = P2bisx : P1ennemiy = P2bisy
    end if

    errorGAME = 22

    [noIA2atk]
    mainTerritory2 = int(rnd(1)*3+1) : if mainTerritory2 > 1 then goto [NoMainTerritory2]
    if PositionINIai2 = 1 and territoire1 <> 3 then
        territoire = 1 : gosub [SELECTunitATKterritoire]
        if armeeIA2dispo > 0 and territoire1 = 0 then IA2terre = IA2terre + 1 : territoire1 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA2dispo > 0 and (territoire1 = 1 and STATUTiam2 < 50) or armeeIA2dispo > 0 and (territoire1 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire1 = territoire1 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia2]
    end if
    if PositionINIai2 = 2 and territoire2 <> 3 then
        territoire = 2 : gosub [SELECTunitATKterritoire]
        if armeeIA2dispo > 0 and territoire2 = 0 then IA2terre = IA2terre + 1 : territoire2 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA2dispo > 0 and (territoire2 = 1 and STATUTiam2 < 50) or armeeIA2dispo > 0 and (territoire2 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire2 = territoire2 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia2]
    end if
    if PositionINIai2 = 3 and territoire3 <> 3 then
        territoire = 3 : gosub [SELECTunitATKterritoire]
        if armeeIA2dispo > 0 and territoire3 = 0 then IA2terre = IA2terre + 1 : territoire3 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA2dispo > 0 and (territoire3 = 1 and STATUTiam2 < 50) or armeeIA2dispo > 0 and (territoire3 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire3 = territoire3 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia2]
    end if
    if PositionINIai2 = 4 and territoire4 <> 3 then
        territoire = 4 : gosub [SELECTunitATKterritoire]
        if armeeIA2dispo > 0 and territoire4 = 0 then IA2terre = IA2terre + 1 : territoire4 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA2dispo > 0 and (territoire4 = 1 and STATUTiam2 < 50) or armeeIA2dispo > 0 and (territoire4 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire4 = territoire4 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia2]
    end if
    if PositionINIai2 = 5 and territoire5 <> 3 then
        territoire = 5 : gosub [SELECTunitATKterritoire]
        if armeeIA2dispo > 0 and territoire5 = 0 then IA2terre = IA2terre + 1 : territoire5 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA2dispo > 0 and (territoire5 = 1 and STATUTiam2 < 50) or armeeIA2dispo > 0 and (territoire5 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire5 = territoire5 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia2]
    end if
    if PositionINIai2 = 6 and territoire6 <> 3 then
        territoire = 6 : gosub [SELECTunitATKterritoire]
        if armeeIA2dispo > 0 and territoire6 = 0 then IA2terre = IA2terre + 1 : territoire6 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA2dispo > 0 and (territoire6 = 1 and STATUTiam2 < 50) or armeeIA2dispo > 0 and (territoire6 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire6 = territoire6 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia2]
    end if
    if PositionINIai2 = 7 and territoire7 <> 3 then
        territoire = 7 : gosub [SELECTunitATKterritoire]
        if armeeIA2dispo > 0 and territoire7 = 0 then IA2terre = IA2terre + 1 : territoire7 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA2dispo > 0 and (territoire7 = 1 and STATUTiam2 < 50) or armeeIA2dispo > 0 and (territoire7 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire7 = territoire7 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia2]
    end if
    if PositionINIai2 = 8 and territoire8 <> 3 then
        territoire = 8 : gosub [SELECTunitATKterritoire]
        if armeeIA2dispo > 0 and territoire8 = 0 then IA2terre = IA2terre + 1 : territoire8 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA2dispo > 0 and (territoire8 = 1 and STATUTiam2 < 50) or armeeIA2dispo > 0 and (territoire8 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire8 = territoire8 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia2]
    end if
    if PositionINIai2 = 9 and territoire9 <> 3 then
        territoire = 9 : gosub [SELECTunitATKterritoire]
        if armeeIA2dispo > 0 and territoire9 = 0 then IA2terre = IA2terre + 1 : territoire9 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA2dispo > 0 and (territoire9 = 1 and STATUTiam2 < 50) or armeeIA2dispo > 0 and (territoire9 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire9 = territoire9 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia2]
    end if
    if PositionINIai2 = 10 and territoire10 <> 3 then
        territoire = 10 : gosub [SELECTunitATKterritoire]
        if armeeIA2dispo > 0 and territoire10 = 0 then IA2terre = IA2terre + 1 : territoire10 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA2dispo > 0 and (territoire10 = 1 and STATUTiam2 < 50) or armeeIA2dispo > 0 and (territoire10 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire10 = territoire10 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia2]
    end if
    if PositionINIai2 = 11 and territoire11 <> 3 then
        territoire = 11 : gosub [SELECTunitATKterritoire]
        if armeeIA2dispo > 0 and territoire11 = 0 then IA2terre = IA2terre + 1 : territoire11 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA2dispo > 0 and (territoire11 = 1 and STATUTiam2 < 50) or armeeIA2dispo > 0 and (territoire11 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire11 = territoire11 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia2]
    end if
    if PositionINIai2 = 12 and territoire12 <> 3 then
        territoire = 12 : gosub [SELECTunitATKterritoire]
        if armeeIA2dispo > 0 and territoire12 = 0 then IA2terre = IA2terre + 1 : territoire12 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA2dispo > 0 and (territoire12 = 1 and STATUTiam2 < 50) or armeeIA2dispo > 0 and (territoire12 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire12 = territoire12 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia2]
    end if
    if PositionINIai2 = 13 and territoire13 <> 3 then
        territoire = 13 : gosub [SELECTunitATKterritoire]
        if armeeIA2dispo > 0 and territoire13 = 0 then IA2terre = IA2terre + 1 : territoire13 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA2dispo > 0 and (territoire13 = 1 and STATUTiam2 < 50) or armeeIA2dispo > 0 and (territoire13 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire13 = territoire13 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia2]
    end if
    if PositionINIai2 = 14 and territoire14 <> 3 then
        territoire = 14 : gosub [SELECTunitATKterritoire]
        if armeeIA2dispo > 0 and territoire14 = 0 then IA2terre = IA2terre + 1 : territoire14 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA2dispo > 0 and (territoire14 = 1 and STATUTiam2 < 50) or armeeIA2dispo > 0 and (territoire14 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire14 = territoire14 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia2]
    end if
    if PositionINIai2 = 15 and territoire15 <> 3 then
        territoire = 15 : gosub [SELECTunitATKterritoire]
        if armeeIA2dispo > 0 and territoire15 = 0 then IA2terre = IA2terre + 1 : territoire15 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA2dispo > 0 and (territoire15 = 1 and STATUTiam2 < 50) or armeeIA2dispo > 0 and (territoire15 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire15 = territoire15 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia2]
    end if
    if PositionINIai2 = 16 and territoire16 <> 3 then
        territoire = 16 : gosub [SELECTunitATKterritoire]
        if armeeIA2dispo > 0 and territoire16 = 0 then IA2terre = IA2terre + 1 : territoire16 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA2dispo > 0 and (territoire16 = 1 and STATUTiam2 < 50) or armeeIA2dispo > 0 and (territoire16 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire16 = territoire16 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia2]
    end if
    if PositionINIai2 = 17 and territoire17 <> 3 then
        territoire = 17 : gosub [SELECTunitATKterritoire]
        if armeeIA2dispo > 0 and territoire17 = 0 then IA2terre = IA2terre + 1 : territoire17 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA2dispo > 0 and (territoire17 = 1 and STATUTiam2 < 50) or armeeIA2dispo > 0 and (territoire17 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire17 = territoire17 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia2]
    end if
    if PositionINIai2 = 18 and territoire18 <> 3 then
        territoire = 18 : gosub [SELECTunitATKterritoire]
        if armeeIA2dispo > 0 and territoire18 = 0 then IA2terre = IA2terre + 1 : territoire18 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA2dispo > 0 and (territoire18 = 1 and STATUTiam2 < 50) or armeeIA2dispo > 0 and (territoire18 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire18 = territoire18 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia2]
    end if
    if PositionINIai2 = 19 and territoire19 <> 3 then
        territoire = 19 : gosub [SELECTunitATKterritoire]
        if armeeIA2dispo > 0 and territoire19 = 0 then IA2terre = IA2terre + 1 : territoire19 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA2dispo > 0 and (territoire19 = 1 and STATUTiam2 < 50) or armeeIA2dispo > 0 and (territoire19 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire19 = territoire19 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia2]
    end if
    if PositionINIai2 = 20 and territoire20 <> 3 then
        territoire = 20 : gosub [SELECTunitATKterritoire]
        if armeeIA2dispo > 0 and territoire20 = 0 then IA2terre = IA2terre + 1 : territoire20 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA2dispo > 0 and (territoire20 = 1 and STATUTiam2 < 50) or armeeIA2dispo > 0 and (territoire20 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire20 = territoire20 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia2]
    end if
    [NoMainTerritory2]

    DEterritoireINI = int(rnd(1)*100+1)  'int(rnd(1)*(STATUTiam2+STATUTiam2TOiam1+100)+1)
    if DEterritoireINI <= 2 and popMILITIAm2 >= 1 then
    PLAYER = 3 : Mini = 10000

    if territoire1 <> 3 then
        if P2bisx > territoireX1 then MiniX1 = P2bisx - territoireX1
        if P2bisx < territoireX1 then MiniX1 = territoireX1 - P2bisx
        if P2bisy > territoireY1 then MiniY1 = P2bisy - territoireY1
        if P2bisy < territoireY1 then MiniY1 = territoireY1 - P2bisy
    end if
    if territoire1 = 3 then MiniX1 = 100001
    if int(MiniX1+MiniY1) < Mini and territoire1 <> 3 then Mini = int(MiniX1+MiniY1)

    if territoire2 <> 3 then
        if P2bisx > territoireX2 then MiniX2 = P2bisx - territoireX2
        if P2bisx < territoireX2 then MiniX2 = territoireX2 - P2bisx
        if P2bisy > territoireY2 then MiniY2 = P2bisy - territoireY2
        if P2bisy < territoireY2 then MiniY2 = territoireY2 - P2bisy
    end if
    if territoire2 = 3 then MiniX2 = 100002
    if int(MiniX2+MiniY2) < Mini and territoire2 <> 3 then Mini = int(MiniX2+MiniY2)
    if territoire3 <> 3 then
        if P2bisx > territoireX3 then MiniX3 = P2bisx - territoireX3
        if P2bisx < territoireX3 then MiniX3 = territoireX3 - P2bisx
        if P2bisy > territoireY3 then MiniY3 = P2bisy - territoireY3
        if P2bisy < territoireY3 then MiniY3 = territoireY3 - P2bisy
    end if
    if territoire3 = 3 then MiniX3 = 100003
    if int(MiniX3+MiniY3) < Mini and territoire3 <> 3 then Mini = int(MiniX3+MiniY3)
    if territoire4 <> 3 then
        if P2bisx > territoireX4 then MiniX4 = P2bisx - territoireX4
        if P2bisx < territoireX4 then MiniX4 = territoireX4 - P2bisx
        if P2bisy > territoireY4 then MiniY4 = P2bisy - territoireY4
        if P2bisy < territoireY4 then MiniY4 = territoireY4 - P2bisy
    end if
    if territoire4 = 3 then MiniX4 = 100004
    if int(MiniX4+MiniY4) < Mini and territoire4 <> 3 then Mini = int(MiniX4+MiniY4)
    if territoire5 <> 3 then
        if P2bisx > territoireX5 then MiniX5 = P2bisx - territoireX5
        if P2bisx < territoireX5 then MiniX5 = territoireX5 - P2bisx
        if P2bisy > territoireY5 then MiniY5 = P2bisy - territoireY5
        if P2bisy < territoireY5 then MiniY5 = territoireY5 - P2bisy
    end if
    if territoire5 = 3 then MiniX5 = 100005
    if int(MiniX5+MiniY5) < Mini and territoire5 <> 3 then Mini = int(MiniX5+MiniY5)
    if territoire6 <> 3 then
        if P2bisx > territoireX6 then MiniX6 = P2bisx - territoireX6
        if P2bisx < territoireX6 then MiniX6 = territoireX6 - P2bisx
        if P2bisy > territoireY6 then MiniY6 = P2bisy - territoireY6
        if P2bisy < territoireY6 then MiniY6 = territoireY6 - P2bisy
    end if
    if territoire6 = 3 then MiniX6 = 100006
    if int(MiniX6+MiniY6) < Mini and territoire6 <> 3 then Mini = int(MiniX6+MiniY6)
    if territoire7 <> 3 then
        if P2bisx > territoireX7 then MiniX7 = P2bisx - territoireX7
        if P2bisx < territoireX7 then MiniX7 = territoireX7 - P2bisx
        if P2bisy > territoireY7 then MiniY7 = P2bisy - territoireY7
        if P2bisy < territoireY7 then MiniY7 = territoireY7 - P2bisy
    end if
    if territoire7 = 3 then MiniX7 = 100007
    if int(MiniX7+MiniY7) < Mini and territoire7 <> 3 then Mini = int(MiniX7+MiniY7)
    if territoire8 <> 3 then
        if P2bisx > territoireX8 then MiniX8 = P2bisx - territoireX8
        if P2bisx < territoireX8 then MiniX8 = territoireX8 - P2bisx
        if P2bisy > territoireY8 then MiniY8 = P2bisy - territoireY8
        if P2bisy < territoireY8 then MiniY8 = territoireY8 - P2bisy
    end if
    if territoire8 = 3 then MiniX8 = 100008
    if int(MiniX8+MiniY8) < Mini and territoire8 <> 3 then Mini = int(MiniX8+MiniY8)
    if territoire9 <> 3 then
        if P2bisx > territoireX9 then MiniX9 = P2bisx - territoireX9
        if P2bisx < territoireX9 then MiniX9 = territoireX9 - P2bisx
        if P2bisy > territoireY9 then MiniY9 = P2bisy - territoireY9
        if P2bisy < territoireY9 then MiniY9 = territoireY9 - P2bisy
    end if
    if territoire9 = 3 then MiniX9 = 100009
    if int(MiniX9+MiniY9) < Mini and territoire9 <> 3 then Mini = int(MiniX9+MiniY9)
    if territoire10 <> 3 then
        if P2bisx > territoireX10 then MiniX10 = P2bisx - territoireX10
        if P2bisx < territoireX10 then MiniX10 = territoireX10 - P2bisx
        if P2bisy > territoireY10 then MiniY10 = P2bisy - territoireY10
        if P2bisy < territoireY10 then MiniY10 = territoireY10 - P2bisy
    end if
    if territoire10 = 3 then MiniX10 = 100010
    if int(MiniX10+MiniY10) < Mini and territoire10 <> 3 then Mini = int(MiniX10+MiniY10)
    if territoire11 <> 3 then
        if P2bisx > territoireX11 then MiniX11 = P2bisx - territoireX11
        if P2bisx < territoireX11 then MiniX11 = territoireX11 - P2bisx
        if P2bisy > territoireY11 then MiniY11 = P2bisy - territoireY11
        if P2bisy < territoireY11 then MiniY11 = territoireY11 - P2bisy
    end if
    if territoire11 = 3 then MiniX11 = 100011
    if int(MiniX11+MiniY11) < Mini and territoire11 <> 3 then Mini = int(MiniX11+MiniY11)
   if territoire12 <> 3 then
        if P2bisx > territoireX12 then MiniX12 = P2bisx - territoireX12
        if P2bisx < territoireX12 then MiniX12 = territoireX12 - P2bisx
        if P2bisy > territoireY12 then MiniY12 = P2bisy - territoireY12
        if P2bisy < territoireY12 then MiniY12 = territoireY12 - P2bisy
    end if
    if territoire12 = 3 then MiniX12 = 100012
    if int(MiniX12+MiniY12) < Mini and territoire12 <> 3 then Mini = int(MiniX12+MiniY12)
    if territoire13 <> 3 then
        if P2bisx > territoireX13 then MiniX13 = P2bisx - territoireX13
        if P2bisx < territoireX13 then MiniX13 = territoireX13 - P2bisx
        if P2bisy > territoireY13 then MiniY13 = P2bisy - territoireY13
        if P2bisy < territoireY13 then MiniY13 = territoireY13 - P2bisy
    end if
    if territoire13 = 3 then MiniX13 = 100013
    if int(MiniX13+MiniY13) < Mini and territoire13 <> 3 then Mini = int(MiniX13+MiniY13)
    if territoire14 <> 3 then
        if P2bisx > territoireX14 then MiniX14 = P2bisx - territoireX14
        if P2bisx < territoireX14 then MiniX14 = territoireX14 - P2bisx
        if P2bisy > territoireY14 then MiniY14 = P2bisy - territoireY14
        if P2bisy < territoireY14 then MiniY14 = territoireY14 - P2bisy
    end if
    if territoire14 = 3 then MiniX14 = 100014
    if int(MiniX14+MiniY14) < Mini and territoire14 <> 3 then Mini = int(MiniX14+MiniY14)
    if territoire15 <> 3 then
        if P2bisx > territoireX15 then MiniX15 = P2bisx - territoireX15
        if P2bisx < territoireX15 then MiniX15 = territoireX15 - P2bisx
        if P2bisy > territoireY15 then MiniY15 = P2bisy - territoireY15
        if P2bisy < territoireY15 then MiniY15 = territoireY15 - P2bisy
    end if
    if territoire15 = 3 then MiniX15 = 100015
    if int(MiniX15+MiniY15) < Mini and territoire15 <> 3 then Mini = int(MiniX15+MiniY15)
   if territoire16 <> 3 then
        if P2bisx > territoireX16 then MiniX16 = P2bisx - territoireX16
        if P2bisx < territoireX16 then MiniX16 = territoireX16 - P2bisx
        if P2bisy > territoireY16 then MiniY16 = P2bisy - territoireY16
        if P2bisy < territoireY16 then MiniY16 = territoireY16 - P2bisy
    end if
    if territoire16 = 3 then MiniX16 = 100016
    if int(MiniX16+MiniY16) < Mini and territoire16 <> 3 then Mini = int(MiniX16+MiniY16)
   if territoire17 <> 3 then
        if P2bisx > territoireX17 then MiniX17 = P2bisx - territoireX17
        if P2bisx < territoireX17 then MiniX17 = territoireX17 - P2bisx
        if P2bisy > territoireY17 then MiniY17 = P2bisy - territoireY17
        if P2bisy < territoireY17 then MiniY17 = territoireY17 - P2bisy
    end if
    if territoire17 = 3 then MiniX17 = 100017
    if int(MiniX17+MiniY17) < Mini and territoire17 <> 3 then Mini = int(MiniX17+MiniY17)
    if territoire18 <> 3 then
        if P2bisx > territoireX18 then MiniX18 = P2bisx - territoireX18
        if P2bisx < territoireX18 then MiniX18 = territoireX18 - P2bisx
        if P2bisy > territoireY18 then MiniY18 = P2bisy - territoireY18
        if P2bisy < territoireY18 then MiniY18 = territoireY18 - P2bisy
    end if
    if territoire18 = 3 then MiniX18 = 100018
    if int(MiniX18+MiniY18) < Mini and territoire18 <> 3 then Mini = int(MiniX18+MiniY18)
    if territoire19 <> 3 then
        if P2bisx > territoireX19 then MiniX19 = P2bisx - territoireX19
        if P2bisx < territoireX19 then MiniX19 = territoireX19 - P2bisx
        if P2bisy > territoireY19 then MiniY19 = P2bisy - territoireY19
        if P2bisy < territoireY19 then MiniY19 = territoireY19 - P2bisy
    end if
    if territoire19 = 3 then MiniX19 = 100019
    if int(MiniX19+MiniY19) < Mini and territoire19 <> 3 then Mini = int(MiniX19+MiniY19)
    if territoire20 <> 3 then
        if P2bisx > territoireX20 then MiniX20 = P2bisx - territoireX20
        if P2bisx < territoireX20 then MiniX20 = territoireX20 - P2bisx
        if P2bisy > territoireY20 then MiniY20 = P2bisy - territoireY20
        if P2bisy < territoireY20 then MiniY20 = territoireY20 - P2bisy
    end if
    if territoire20 = 3 then MiniX20 = 100020
    if int(MiniX20+MiniY20) < Mini and territoire20 <> 3 then Mini = int(MiniX20+MiniY20)

    if Mini = 0 then Mini = 10000

    errorGAME = 23

    select case Mini
        case int(MiniX1+MiniY1)
            territoire = 1
            gosub [SELECTunitATKterritoire]
            if armeeIA2dispo >0 AND territoire1 = 0 then IA2terre = IA2terre + 1 : territoire1 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA2dispo >0 AND (territoire1 = 1 and STATUTiam2 < 50) or armeeIA2dispo >0 AND (territoire1 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire1 = territoire1 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        case int(MiniX2+MiniY2)
            territoire = 2
            gosub [SELECTunitATKterritoire]
            if armeeIA2dispo >0 AND territoire2 = 0 then IA2terre = IA2terre + 1 : territoire2 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA2dispo >0 AND (territoire2 = 1 and STATUTiam2 < 50) or armeeIA2dispo >0 AND (territoire2 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire2 = territoire2 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        case int(MiniX3+MiniY3)
            territoire = 3
            gosub [SELECTunitATKterritoire]
            if armeeIA2dispo >0 AND territoire3 = 0 then IA2terre = IA2terre + 1 : territoire3 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA2dispo >0 AND (territoire3 = 1 and STATUTiam2 < 50) or armeeIA2dispo >0 AND (territoire3 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire3 = territoire3 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        case int(MiniX4+MiniY4)
            territoire = 4
            gosub [SELECTunitATKterritoire]
            if armeeIA2dispo >0 AND territoire4 = 0 then IA2terre = IA2terre + 1 : territoire4 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA2dispo >0 AND (territoire4 = 1 and STATUTiam4 < 50) or armeeIA2dispo >0 AND (territoire4 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire4 = territoire4 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        case int(MiniX5+MiniY5)
            territoire = 5
            gosub [SELECTunitATKterritoire]
            if armeeIA2dispo >0 AND territoire5 = 0 then IA2terre = IA2terre + 1 : territoire5 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA2dispo >0 AND (territoire5 = 1 and STATUTiam2 < 50) or armeeIA2dispo >0 AND (territoire5 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire5 = territoire5 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        case int(MiniX6+MiniY6)
            territoire = 6
            gosub [SELECTunitATKterritoire]
            if armeeIA2dispo >0 AND territoire6 = 0 then IA2terre = IA2terre + 1 : territoire6 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA2dispo >0 AND (territoire6 = 1 and STATUTiam2 < 50) or armeeIA2dispo >0 AND (territoire6 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire6 = territoire6 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        case int(MiniX7+MiniY7)
            territoire = 7
            gosub [SELECTunitATKterritoire]
            if armeeIA2dispo >0 AND territoire7 = 0 then IA2terre = IA2terre + 1 : territoire7 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA2dispo >0 AND (territoire7 = 1 and STATUTiam2 < 50) or armeeIA2dispo >0 AND (territoire7 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire7 = territoire7 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        case int(MiniX8+MiniY8)
            territoire = 8
            gosub [SELECTunitATKterritoire]
            if armeeIA2dispo >0 AND territoire8 = 0 then IA2terre = IA2terre + 1 : territoire8 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA2dispo >0 AND (territoire8 = 1 and STATUTiam2 < 50) or armeeIA2dispo >0 AND (territoire8 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire8 = territoire8 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        case int(MiniX9+MiniY9)
            territoire = 9
            gosub [SELECTunitATKterritoire]
            if armeeIA2dispo >0 AND territoire9 = 0 then IA2terre = IA2terre + 1 : territoire9 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA2dispo >0 AND (territoire9 = 1 and STATUTiam2 < 50) or armeeIA2dispo >0 AND (territoire9 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire9 = territoire9 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        case int(MiniX10+MiniY10)
            territoire = 10
            gosub [SELECTunitATKterritoire]
            if armeeIA2dispo >0 AND territoire10 = 0 then IA2terre = IA2terre + 1 : territoire10 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA2dispo >0 AND (territoire10 = 1 and STATUTiam2 < 50) or armeeIA2dispo >0 AND (territoire10 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire10 = territoire10 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        case int(MiniX11+MiniY11)
            territoire = 11
            gosub [SELECTunitATKterritoire]
            if armeeIA2dispo >0 AND territoire11 = 0 then IA2terre = IA2terre + 1 : territoire11 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA2dispo >0 AND (territoire11 = 1 and STATUTiam2 < 50) or armeeIA2dispo >0 AND (territoire11 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire11 = territoire11 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        case int(MiniX12+MiniY12)
            territoire = 12
            gosub [SELECTunitATKterritoire]
            if armeeIA2dispo >0 AND territoire12 = 0 then IA2terre = IA2terre + 1 : territoire12 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA2dispo >0 AND (territoire12 = 1 and STATUTiam2 < 50) or armeeIA2dispo >0 AND (territoire12 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire12 = territoire12 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        case int(MiniX13+MiniY13)
            territoire = 13
            gosub [SELECTunitATKterritoire]
            if armeeIA2dispo >0 AND territoire13 = 0 then IA2terre = IA2terre + 1 : territoire13 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA2dispo >0 AND (territoire13 = 1 and STATUTiam2 < 50) or armeeIA2dispo >0 AND (territoire13 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire13 = territoire13 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        case int(MiniX14+MiniY14)
            territoire = 14
            gosub [SELECTunitATKterritoire]
            if armeeIA2dispo >0 AND territoire14 = 0 then IA2terre = IA2terre + 1 : territoire14 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA2dispo >0 AND (territoire14 = 1 and STATUTiam2 < 50) or armeeIA2dispo >0 AND (territoire14 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire14 = territoire14 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        case int(MiniX15+MiniY15)
            territoire = 15
            gosub [SELECTunitATKterritoire]
            if armeeIA2dispo >0 AND territoire15 = 0 then IA2terre = IA2terre + 1 : territoire15 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA2dispo >0 AND (territoire15 = 1 and STATUTiam2 < 50) or armeeIA2dispo >0 AND (territoire15 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire15 = territoire15 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        case int(MiniX16+MiniY16)
            territoire = 16
            gosub [SELECTunitATKterritoire]
            if armeeIA2dispo >0 AND territoire16 = 0 then IA2terre = IA2terre + 1 : territoire16 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA2dispo >0 AND (territoire16 = 1 and STATUTiam2 < 50) or (territoire16 = 2 and armeeIA2dispo >0 AND STATUTiam2TOiam1 < 50) then OLDterritoire16 = territoire16 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        case int(MiniX17+MiniY17)
            territoire = 17
            gosub [SELECTunitATKterritoire]
            if armeeIA2dispo >0 AND territoire17 = 0 then IA2terre = IA2terre + 1 : territoire17 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA2dispo >0 AND (territoire17 = 1 and STATUTiam2 < 50) or armeeIA2dispo >0 AND (territoire17 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire17 = territoire17 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        case int(MiniX18+MiniY18)
            territoire = 18
            gosub [SELECTunitATKterritoire]
            if armeeIA2dispo >0 AND territoire18 = 0 then IA2terre = IA2terre + 1 : territoire18 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA2dispo >0 AND (territoire18 = 1 and STATUTiam2 < 50) or (territoire18 = 2 and armeeIA2dispo >0 AND STATUTiam2TOiam1 < 50) then OLDterritoire18 = territoire18 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        case int(MiniX19+MiniY19)
            territoire = 19
            gosub [SELECTunitATKterritoire]
            if armeeIA2dispo >0 AND territoire19 = 0 then IA2terre = IA2terre + 1 : territoire19 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA2dispo >0 AND (territoire19 = 1 and STATUTiam2 < 50) or armeeIA2dispo >0 AND (territoire19 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire19 = territoire19 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        case int(MiniX20+MiniY20)
            territoire = 20
            gosub [SELECTunitATKterritoire]
            if armeeIA2dispo >0 AND territoire20 = 0 then IA2terre = IA2terre + 1 : territoire20 = 3 : refreshIA2terreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA2dispo >0 AND (territoire20 = 1 and STATUTiam2 < 50) or armeeIA2dispo >0 AND (territoire20 = 2 and STATUTiam2TOiam1 < 50) then OLDterritoire20 = territoire20 : IA2terre = IA2terre + 1 : goto [territoireATTAQUE]
        end select
    end if
    [endTERREatkia2]
    refreshIA2terreCAPTURE = 0
    return

    [SELECTunitATKterritoire]
    if attaqueAIm2 = 0 and NombreHommeDarmeIAm2 - (NombreHommeDarmeIAm2TERR1+NombreHommeDarmeIAm2TERR2+NombreHommeDarmeIAm2TERR3+NombreHommeDarmeIAm2TERR4+NombreHommeDarmeIAm2TERR5+NombreHommeDarmeIAm2TERR6+NombreHommeDarmeIAm2TERR7+NombreHommeDarmeIAm2TERR8+NombreHommeDarmeIAm2TERR9+NombreHommeDarmeIAm2TERR10+NombreHommeDarmeIAm2TERR11+NombreHommeDarmeIAm2TERR12+NombreHommeDarmeIAm2TERR13+NombreHommeDarmeIAm2TERR14+NombreHommeDarmeIAm2TERR15+NombreHommeDarmeIAm2TERR16+NombreHommeDarmeIAm2TERR17+NombreHommeDarmeIAm2TERR18+NombreHommeDarmeIAm2TERR19+NombreHommeDarmeIAm2TERR20) > 0 then NombreHommeDarmeIAm2SELECTED = int(rnd(1)*(NombreHommeDarmeIAm2-(NombreHommeDarmeIAm2TERR1+NombreHommeDarmeIAm2TERR2+NombreHommeDarmeIAm2TERR3+NombreHommeDarmeIAm2TERR4+NombreHommeDarmeIAm2TERR5+NombreHommeDarmeIAm2TERR6+NombreHommeDarmeIAm2TERR7+NombreHommeDarmeIAm2TERR8+NombreHommeDarmeIAm2TERR9+NombreHommeDarmeIAm2TERR10+NombreHommeDarmeIAm2TERR11+NombreHommeDarmeIAm2TERR12+NombreHommeDarmeIAm2TERR13+NombreHommeDarmeIAm2TERR14+NombreHommeDarmeIAm2TERR15+NombreHommeDarmeIAm2TERR16+NombreHommeDarmeIAm2TERR17+NombreHommeDarmeIAm2TERR18+NombreHommeDarmeIAm2TERR19+NombreHommeDarmeIAm2TERR20)))
        NombreHommeDarmeIAm2SELECTEDtemp2 = NombreHommeDarmeIAm2SELECTED
    if attaqueAIm2 = 0 and NombreLancierIAm2 - (NombreLancierIAm2TERR1+NombreLancierIAm2TERR2+NombreLancierIAm2TERR3+NombreLancierIAm2TERR4+NombreLancierIAm2TERR5+NombreLancierIAm2TERR6+NombreLancierIAm2TERR7+NombreLancierIAm2TERR8+NombreLancierIAm2TERR9+NombreLancierIAm2TERR10+NombreLancierIAm2TERR11+NombreLancierIAm2TERR12+NombreLancierIAm2TERR13+NombreLancierIAm2TERR14+NombreLancierIAm2TERR15+NombreLancierIAm2TERR16+NombreLancierIAm2TERR17+NombreLancierIAm2TERR18+NombreLancierIAm2TERR19+NombreLancierIAm2TERR20) > 0 then NombreLancierIAm2SELECTED = int(rnd(1)*(NombreLancierIAm2-(NombreLancierIAm2TERR1+NombreLancierIAm2TERR2+NombreLancierIAm2TERR3+NombreLancierIAm2TERR4+NombreLancierIAm2TERR5+NombreLancierIAm2TERR6+NombreLancierIAm2TERR7+NombreLancierIAm2TERR8+NombreLancierIAm2TERR9+NombreLancierIAm2TERR10+NombreLancierIAm2TERR11+NombreLancierIAm2TERR12+NombreLancierIAm2TERR13+NombreLancierIAm2TERR14+NombreLancierIAm2TERR15+NombreLancierIAm2TERR16+NombreLancierIAm2TERR17+NombreLancierIAm2TERR18+NombreLancierIAm2TERR19+NombreLancierIAm2TERR20)))
        NombreLancierIAm2SELECTEDtemp2 = NombreLancierIAm2SELECTED
    if attaqueAIm2 = 0 and NombreFrondeurIAm2 - (NombreFrondeurIAm2TERR1+NombreFrondeurIAm2TERR2+NombreFrondeurIAm2TERR3+NombreFrondeurIAm2TERR4+NombreFrondeurIAm2TERR5+NombreFrondeurIAm2TERR6+NombreFrondeurIAm2TERR7+NombreFrondeurIAm2TERR8+NombreFrondeurIAm2TERR9+NombreFrondeurIAm2TERR10+NombreFrondeurIAm2TERR11+NombreFrondeurIAm2TERR12+NombreFrondeurIAm2TERR13+NombreFrondeurIAm2TERR14+NombreFrondeurIAm2TERR15+NombreFrondeurIAm2TERR16+NombreFrondeurIAm2TERR17+NombreFrondeurIAm2TERR18+NombreFrondeurIAm2TERR19+NombreFrondeurIAm2TERR20) > 0 then NombreFrondeurIAm2SELECTED = int(rnd(1)*(NombreFrondeurIAm2-(NombreFrondeurIAm2TERR1+NombreFrondeurIAm2TERR2+NombreFrondeurIAm2TERR3+NombreFrondeurIAm2TERR4+NombreFrondeurIAm2TERR5+NombreFrondeurIAm2TERR6+NombreFrondeurIAm2TERR7+NombreFrondeurIAm2TERR8+NombreFrondeurIAm2TERR9+NombreFrondeurIAm2TERR10+NombreFrondeurIAm2TERR11+NombreFrondeurIAm2TERR12+NombreFrondeurIAm2TERR13+NombreFrondeurIAm2TERR14+NombreFrondeurIAm2TERR15+NombreFrondeurIAm2TERR16+NombreFrondeurIAm2TERR17+NombreFrondeurIAm2TERR18+NombreFrondeurIAm2TERR19+NombreFrondeurIAm2TERR20)))
        NombreFrondeurIAm2SELECTEDtemp2 = NombreFrondeurIAm2SELECTED
    if attaqueAIm2 = 0 and NombreArcherIAm2 - (NombreArcherIAm2TERR1+NombreArcherIAm2TERR2+NombreArcherIAm2TERR3+NombreArcherIAm2TERR4+NombreArcherIAm2TERR5+NombreArcherIAm2TERR6+NombreArcherIAm2TERR7+NombreArcherIAm2TERR8+NombreArcherIAm2TERR9+NombreArcherIAm2TERR10+NombreArcherIAm2TERR11+NombreArcherIAm2TERR12+NombreArcherIAm2TERR13+NombreArcherIAm2TERR14+NombreArcherIAm2TERR15+NombreArcherIAm2TERR16+NombreArcherIAm2TERR17+NombreArcherIAm2TERR18+NombreArcherIAm2TERR19+NombreArcherIAm2TERR20) > 0 then NombreArcherIAm2SELECTED = int(rnd(1)*(NombreArcherIAm2-(NombreArcherIAm2TERR1+NombreArcherIAm2TERR2+NombreArcherIAm2TERR3+NombreArcherIAm2TERR4+NombreArcherIAm2TERR5+NombreArcherIAm2TERR6+NombreArcherIAm2TERR7+NombreArcherIAm2TERR8+NombreArcherIAm2TERR9+NombreArcherIAm2TERR10+NombreArcherIAm2TERR11+NombreArcherIAm2TERR12+NombreArcherIAm2TERR13+NombreArcherIAm2TERR14+NombreArcherIAm2TERR15+NombreArcherIAm2TERR16+NombreArcherIAm2TERR17+NombreArcherIAm2TERR18+NombreArcherIAm2TERR19+NombreArcherIAm2TERR20)))
        NombreArcherIAm2SELECTEDtemp2 = NombreArcherIAm2SELECTED
    armeeIA2dispo = NombreHommeDarmeIAm2SELECTEDtemp2 + NombreLancierIAm2SELECTEDtemp2 + NombreFrondeurIAm2SELECTEDtemp2 + NombreArcherIAm2SELECTEDtemp2
    return

    [upgradeIA1]
    rechearch1BOISIAm1 = 1500:rechearch2BOISIAm1 = 2000:rechearch3BOISIAm1 = 1500:rechearch4BOISIAm1 = 2000:rechearch5BOISIAm1 = 2500
    if boisIAm1 < 0 then boisIAm1 = 0
    if foodIAm1 < 0 then foodIAm1 = 0

   ' amélioration des batiments et developpement de la ville

    if boisIAm1 >= coutPrincipalBOISIAm1 then
       lvlbatimentPrincipalIAm1 = lvlbatimentPrincipalIAm1 + 1
       boisIAm1 = boisIAm1 - coutPrincipalBOISIAm1
       influenceADDIAm1 = int(influencePossibleIAm1/2)
       influencePossibleIAm1 = influencePossibleIAm1 + influenceADDIAm1
    end if
    if sedentarisationIAm1 = 0 and boisIAm1 >= rechearch1BOISIAm1 then
       sedentarisationIAm1 = 1
       boisIAm1 = boiIAm1 - rechearch1BOISIAm1
    end if
    if fermageIAm1 = 0 and sedentarisationIAm1 = 1 and boisIAm1 >= rechearch2BOISIAm1 then
       fermageIAm1 = 1
       boisIAm1 = boiIAm1 - rechearch2BOISIAm1
    end if

    if NombreHommeDarmeIAm1 < 0 then NombreHommeDarmeIAm1 = 0
    if NombreLancierIAm1 < 0 then NombreLancierIAm1 = 0
    if NombreFrondeurIAm1 < 0 then NombreFrondeurIAm1 = 0
    if NombreArcherIAm1 < 0 then NombreArcherIAm1 = 0
    popCIVILiam1 = popTOTALIAm1 - popSCIENTIAm1 - popMILITIAm1
    popTOTALIAm1 = popSCIENTIAm1 + popMILITIAm1 + popCIVILiam1
    popMILITIAm1 = NombreHommeDarmeIAm1 + NombreLancierIAm1 + NombreFrondeurIAm1 + NombreArcherIAm1
    popMILITlimIAm1 = int((lvlbatimentCentreMilitaireIAm1 * 5) + 20)

    [rechargeUNITia1]
    CHOIXunitesIAm1 = int(rnd(1)*4+1)
    select case CHOIXunitesIAm1
        case 1
            if foodIAm1 >= coutFOODhommedarmeIAm1 and boisIAm1 >= coutBOIShommedarmeIAm1 and popMILITIAm1 < popMILITlimIAm1 and int(popTOTALIAm1-(popSCIENTIAm1+popMILITIAm1)) >= 1 then
                popMILITIAm1 = popMILITIAm1 + 1
                foodIAm1 = foodIAm1 - coutFOODhommedarmeIAm1
                boisIAm1 = boisIAm1 - coutBOIShommedarmeIAm1
                NombreHommeDarmeIAm1 = NombreHommeDarmeIAm1 + 1
              '  goto [rechargeUNITia1]
            end if
        case 2
            if foodIAm1 >= coutFOODlancierIAm1 and boisIAm1 >= coutBOISlancierIAm1 and popMILITIAm1 < popMILITlimIAm1 and int(popTOTALIAm1-(popSCIENTIAm1+popMILITIAm1)) >= 1 then
                popMILITIAm1 = popMILITIAm1 + 1
                foodIAm1 = foodIAm1 - coutFOODlancierIAm1
                boisIAm1 = boisIAm1 - coutBOISlancierIAm1
                NombreLancierIAm1 = NombreLancierIAm1 + 1
             '   goto [rechargeUNITia1]
            end if
        case 3
            if foodIAm1 >= coutFOODfrondeurIAm1 and boisIAm1 >= coutBOISfrondeurIAm1 and popMILITIAm1 < popMILITlimIAm1 and int(popTOTALIAm1-(popSCIENTIAm1+popMILITIAm1)) >= 1 then
                popMILITIAm1 = popMILITIAm1 + 1
                foodIAm1 = foodIAm1 - coutFOODfrondeurIAm1
                boisIAm1 = boisIAm1 - coutBOISfrondeurIAm1
                NombreFrondeurIAm1 = NombreFrondeurIAm1 + 1
               ' goto [rechargeUNITia1]
            end if
        case 4
            if foodIAm1 >= coutFOODarcherIAm1 and boisIAm1 >= coutBOISarcherIAm1 and popMILITIAm1 < popMILITlimIAm1 and int(popTOTALIAm1-(popSCIENTIAm1+popMILITIAm1)) >= 1 then
                popMILITIAm1 = popMILITIAm1 + 1
                foodIAm1 = foodIAm1 - coutFOODarcherIAm1
                boisIAm1 = boisIAm1 - coutBOISarcherIAm1
                NombreArcherIAm1 = NombreArcherIAm1 + 1
           '     goto [rechargeUNITia1]
            end if
    end select

    'UNITES MISES SUR LES TERRITOIRES PAR IA 1

    if territoire1 = 3 and popMILITIAm1 > 0 then
        if int(NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreHommeDarmeIAm1TERR1 < int((popMILITIAm1/30)+1) then NombreHommeDarmeIAm1TERR1 = NombreHommeDarmeIAm1TERR1 + 1
        if int(NombreLancierIAm1-NombreLancierIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreLancierIAm1TERR1 < int((popMILITIAm1/30)+1) then NombreLancierIAm1TERR1 = NombreLancierIAm1TERR1 + 1
        if int(NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreFrondeurIAm1TERR1 < int((popMILITIAm1/30)+1) then NombreFrondeurIAm1TERR1 = NombreFrondeurIAm1TERR1 + 1
        if int(NombreArcherIAm1-NombreArcherIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreArcherIAm1TERR1 < int((popMILITIAm1/30)+1) then NombreArcherIAm1TERR1 = NombreArcherIAm1TERR1 + 1
    end if
    if territoire2 = 3 and popMILITIAm1 > 0 then
        if int(NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreHommeDarmeIAm1TERR2 < int((popMILITIAm1/30)+1) then NombreHommeDarmeIAm1TERR2 = NombreHommeDarmeIAm1TERR2 + 1
        if int(NombreLancierIAm1-NombreLancierIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreLancierIAm1TERR2 < int((popMILITIAm1/30)+1) then NombreLancierIAm1TERR2 = NombreLancierIAm1TERR2 + 1
        if int(NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreFrondeurIAm1TERR2 < int((popMILITIAm1/30)+1) then NombreFrondeurIAm1TERR2 = NombreFrondeurIAm1TERR2 + 1
        if int(NombreArcherIAm1-NombreArcherIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreArcherIAm1TERR2 < int((popMILITIAm1/30)+1) then NombreArcherIAm1TERR1 = NombreArcherIAm1TERR2 + 1
    end if
    if territoire3 = 3 and popMILITIAm1 > 0 then
        if int(NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreHommeDarmeIAm1TERR3 < int((popMILITIAm1/30)+1) then NombreHommeDarmeIAm1TERR3 = NombreHommeDarmeIAm1TERR3 + 1
        if int(NombreLancierIAm1-NombreLancierIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreLancierIAm1TERR3 < int((popMILITIAm1/30)+1) then NombreLancierIAm1TERR3 = NombreLancierIAm1TERR3 + 1
        if int(NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreFrondeurIAm1TERR3 < int((popMILITIAm1/30)+1) then NombreFrondeurIAm1TERR3 = NombreFrondeurIAm1TERR3 + 1
        if int(NombreArcherIAm1-NombreArcherIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreArcherIAm1TERR3 < int((popMILITIAm1/30)+1) then NombreArcherIAm1TERR3 = NombreArcherIAm1TERR3 + 1
    end if
    if territoire4 = 3 and popMILITIAm1 > 0 then
        if int(NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreHommeDarmeIAm1TERR4 < int((popMILITIAm1/30)+1) then NombreHommeDarmeIAm1TERR4 = NombreHommeDarmeIAm1TERR4 + 1
        if int(NombreLancierIAm1-NombreLancierIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreLancierIAm1TERR4 < int((popMILITIAm1/30)+1) then NombreLancierIAm1TERR4 = NombreLancierIAm1TERR4 + 1
        if int(NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreFrondeurIAm1TERR4 < int((popMILITIAm1/30)+1) then NombreFrondeurIAm1TERR4 = NombreFrondeurIAm1TERR4 + 1
        if int(NombreArcherIAm1-NombreArcherIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreArcherIAm1TERR4 < int((popMILITIAm1/30)+1) then NombreArcherIAm1TERR4 = NombreArcherIAm1TERR4 + 1
    end if
    if territoire5 = 3 and popMILITIAm1 > 0 then
        if int(NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreHommeDarmeIAm1TERR5 < int((popMILITIAm1/30)+1) then NombreHommeDarmeIAm1TERR5 = NombreHommeDarmeIAm1TERR5 + 1
        if int(NombreLancierIAm1-NombreLancierIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreLancierIAm1TERR5 < int((popMILITIAm1/30)+1) then NombreLancierIAm1TERR5 = NombreLancierIAm1TERR5 + 1
        if int(NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreFrondeurIAm1TERR5 < int((popMILITIAm1/30)+1) then NombreFrondeurIAm1TERR5 = NombreFrondeurIAm1TERR5 + 1
        if int(NombreArcherIAm1-NombreArcherIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreArcherIAm1TERR5 < int((popMILITIAm1/30)+1) then NombreArcherIAm1TERR5 = NombreArcherIAm1TERR5 + 1
    end if
    if territoire6 = 3 and popMILITIAm1 > 0 then
        if int(NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreHommeDarmeIAm1TERR6 < int((popMILITIAm1/30)+1) then NombreHommeDarmeIAm1TERR6 = NombreHommeDarmeIAm1TERR6 + 1
        if int(NombreLancierIAm1-NombreLancierIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreLancierIAm1TERR6 < int((popMILITIAm1/30)+1) then NombreLancierIAm1TERR6 = NombreLancierIAm1TERR6 + 1
        if int(NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreFrondeurIAm1TERR6 < int((popMILITIAm1/30)+1) then NombreFrondeurIAm1TERR6 = NombreFrondeurIAm1TERR6 + 1
        if int(NombreArcherIAm1-NombreArcherIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreArcherIAm1TERR6 < int((popMILITIAm1/30)+1) then NombreArcherIAm1TERR6 = NombreArcherIAm1TERR6 + 1
    end if
    if territoire7 = 3 and popMILITIAm1 > 0 then
        if int(NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreHommeDarmeIAm1TERR7 < int((popMILITIAm1/30)+1) then NombreHommeDarmeIAm1TERR7 = NombreHommeDarmeIAm1TERR7 + 1
        if int(NombreLancierIAm1-NombreLancierIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreLancierIAm1TERR7 < int((popMILITIAm1/30)+1) then NombreLancierIAm1TERR7 = NombreLancierIAm1TERR7 + 1
        if int(NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreFrondeurIAm1TERR7 < int((popMILITIAm1/30)+1) then NombreFrondeurIAm1TERR7 = NombreFrondeurIAm1TERR7 + 1
        if int(NombreArcherIAm1-NombreArcherIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreArcherIAm1TERR7 < int((popMILITIAm1/30)+1) then NombreArcherIAm1TERR7 = NombreArcherIAm1TERR7 + 1
    end if
    if territoire8 = 3 and popMILITIAm1 > 0 then
        if int(NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreHommeDarmeIAm1TERR8 < int((popMILITIAm1/30)+1) then NombreHommeDarmeIAm1TERR8 = NombreHommeDarmeIAm1TERR8 + 1
        if int(NombreLancierIAm1-NombreLancierIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreLancierIAm1TERR8 < int((popMILITIAm1/30)+1) then NombreLancierIAm1TERR8 = NombreLancierIAm1TERR8 + 1
        if int(NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreFrondeurIAm1TERR8 < int((popMILITIAm1/30)+1) then NombreFrondeurIAm1TERR8 = NombreFrondeurIAm1TERR8 + 1
        if int(NombreArcherIAm1-NombreArcherIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreArcherIAm1TERR8 < int((popMILITIAm1/30)+1) then NombreArcherIAm1TERR8 = NombreArcherIAm1TERR8 + 1
    end if
    if territoire9 = 3 and popMILITIAm1 > 0 then
        if int(NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreHommeDarmeIAm1TERR9 < int((popMILITIAm1/30)+1) then NombreHommeDarmeIAm1TERR9 = NombreHommeDarmeIAm1TERR9 + 1
        if int(NombreLancierIAm1-NombreLancierIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreLancierIAm1TERR9 < int((popMILITIAm1/30)+1) then NombreLancierIAm1TERR9 = NombreLancierIAm1TERR9 + 1
        if int(NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreFrondeurIAm1TERR9 < int((popMILITIAm1/30)+1) then NombreFrondeurIAm1TERR9 = NombreFrondeurIAm1TERR9 + 1
        if int(NombreArcherIAm1-NombreArcherIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreArcherIAm1TERR9 < int((popMILITIAm1/30)+1) then NombreArcherIAm1TERR9 = NombreArcherIAm1TERR9 + 1
    end if
    if territoire10 = 3 and popMILITIAm1 > 0 then
        if int(NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreHommeDarmeIAm1TERR10 < int((popMILITIAm1/30)+1) then NombreHommeDarmeIAm1TERR10 = NombreHommeDarmeIAm1TERR10 + 1
        if int(NombreLancierIAm1-NombreLancierIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreLancierIAm1TERR10 < int((popMILITIAm1/30)+1) then NombreLancierIAm1TERR10 = NombreLancierIAm1TERR10 + 1
        if int(NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreFrondeurIAm1TERR10 < int((popMILITIAm1/30)+1) then NombreFrondeurIAm1TERR10 = NombreFrondeurIAm1TERR10 + 1
        if int(NombreArcherIAm1-NombreArcherIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreArcherIAm1TERR10 < int((popMILITIAm1/30)+1) then NombreArcherIAm1TERR10 = NombreArcherIAm1TERR10 + 1
    end if
    if territoire11 = 3 and popMILITIAm1 > 0 then
        if int(NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreHommeDarmeIAm1TERR11 < int((popMILITIAm1/30)+1) then NombreHommeDarmeIAm1TERR11 = NombreHommeDarmeIAm1TERR11 + 1
        if int(NombreLancierIAm1-NombreLancierIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreLancierIAm1TERR11 < int((popMILITIAm1/30)+1) then NombreLancierIAm1TERR11 = NombreLancierIAm1TERR11 + 1
        if int(NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreFrondeurIAm1TERR11 < int((popMILITIAm1/30)+1) then NombreFrondeurIAm1TERR11 = NombreFrondeurIAm1TERR11 + 1
        if int(NombreArcherIAm1-NombreArcherIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreArcherIAm1TERR11 < int((popMILITIAm1/30)+1) then NombreArcherIAm1TERR11 = NombreArcherIAm1TERR11 + 1
    end if
    if territoire12 = 3 and popMILITIAm1 > 0 then
        if int(NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreHommeDarmeIAm1TERR12 < int((popMILITIAm1/30)+1) then NombreHommeDarmeIAm1TERR12 = NombreHommeDarmeIAm1TERR12 + 1
        if int(NombreLancierIAm1-NombreLancierIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreLancierIAm1TERR12 < int((popMILITIAm1/30)+1) then NombreLancierIAm1TERR12 = NombreLancierIAm1TERR12 + 1
        if int(NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreFrondeurIAm1TERR12 < int((popMILITIAm1/30)+1) then NombreFrondeurIAm1TERR12 = NombreFrondeurIAm1TERR12 + 1
        if int(NombreArcherIAm1-NombreArcherIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreArcherIAm1TERR12 < int((popMILITIAm1/30)+1) then NombreArcherIAm1TERR12 = NombreArcherIAm1TERR12 + 1
    end if
    if territoire13 = 3 and popMILITIAm1 > 0 then
        if int(NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreHommeDarmeIAm1TERR13 < int((popMILITIAm1/30)+1) then NombreHommeDarmeIAm1TERR13 = NombreHommeDarmeIAm1TERR13 + 1
        if int(NombreLancierIAm1-NombreLancierIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreLancierIAm1TERR13 < int((popMILITIAm1/30)+1) then NombreLancierIAm1TERR13 = NombreLancierIAm1TERR13 + 1
        if int(NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreFrondeurIAm1TERR13 < int((popMILITIAm1/30)+1) then NombreFrondeurIAm1TERR13 = NombreFrondeurIAm1TERR13 + 1
        if int(NombreArcherIAm1-NombreArcherIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreArcherIAm1TERR13 < int((popMILITIAm1/30)+1) then NombreArcherIAm1TERR13 = NombreArcherIAm1TERR13 + 1
    end if
    if territoire14 = 3 and popMILITIAm1 > 0 then
        if int(NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreHommeDarmeIAm1TERR14 < int((popMILITIAm1/30)+1) then NombreHommeDarmeIAm1TERR14 = NombreHommeDarmeIAm1TERR14 + 1
        if int(NombreLancierIAm1-NombreLancierIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreLancierIAm1TERR14 < int((popMILITIAm1/30)+1) then NombreLancierIAm1TERR14 = NombreLancierIAm1TERR14 + 1
        if int(NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreFrondeurIAm1TERR14 < int((popMILITIAm1/30)+1) then NombreFrondeurIAm1TERR14 = NombreFrondeurIAm1TERR14 + 1
        if int(NombreArcherIAm1-NombreArcherIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreArcherIAm1TERR14 < int((popMILITIAm1/30)+1) then NombreArcherIAm1TERR14 = NombreArcherIAm1TERR14 + 1
    end if
    if territoire15 = 3 and popMILITIAm1 > 0 then
        if int(NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreHommeDarmeIAm1TERR15 < int((popMILITIAm1/30)+1) then NombreHommeDarmeIAm1TERR15 = NombreHommeDarmeIAm1TERR15 + 1
        if int(NombreLancierIAm1-NombreLancierIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreLancierIAm1TERR15 < int((popMILITIAm1/30)+1) then NombreLancierIAm1TERR15 = NombreLancierIAm1TERR15 + 1
        if int(NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreFrondeurIAm1TERR15 < int((popMILITIAm1/30)+1) then NombreFrondeurIAm1TERR15 = NombreFrondeurIAm1TERR15 + 1
        if int(NombreArcherIAm1-NombreArcherIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreArcherIAm1TERR15 < int((popMILITIAm1/30)+1) then NombreArcherIAm1TERR15 = NombreArcherIAm1TERR15 + 1
    end if
    if territoire16 = 3 and popMILITIAm1 > 0 then
        if int(NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreHommeDarmeIAm1TERR16 < int((popMILITIAm1/30)+1) then NombreHommeDarmeIAm1TERR16 = NombreHommeDarmeIAm1TERR16 + 1
        if int(NombreLancierIAm1-NombreLancierIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreLancierIAm1TERR16 < int((popMILITIAm1/30)+1) then NombreLancierIAm1TERR16 = NombreLancierIAm1TERR16 + 1
        if int(NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreFrondeurIAm1TERR16 < int((popMILITIAm1/30)+1) then NombreFrondeurIAm1TERR16 = NombreFrondeurIAm1TERR16 + 1
        if int(NombreArcherIAm1-NombreArcherIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreArcherIAm1TERR16 < int((popMILITIAm1/30)+1) then NombreArcherIAm1TERR16 = NombreArcherIAm1TERR16 + 1
    end if
    if territoire17 = 3 and popMILITIAm1 > 0 then
        if int(NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreHommeDarmeIAm1TERR17 < int((popMILITIAm1/30)+1) then NombreHommeDarmeIAm1TERR17 = NombreHommeDarmeIAm1TERR17 + 1
        if int(NombreLancierIAm1-NombreLancierIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreLancierIAm1TERR17 < int((popMILITIAm1/30)+1) then NombreLancierIAm1TERR17 = NombreLancierIAm1TERR17 + 1
        if int(NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreFrondeurIAm1TERR17 < int((popMILITIAm1/30)+1) then NombreFrondeurIAm1TERR17 = NombreFrondeurIAm1TERR17 + 1
        if int(NombreArcherIAm1-NombreArcherIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreArcherIAm1TERR17 < int((popMILITIAm1/30)+1) then NombreArcherIAm1TERR17 = NombreArcherIAm1TERR17 + 1
    end if
    if territoire18 = 3 and popMILITIAm1 > 0 then
        if int(NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreHommeDarmeIAm1TERR18 < int((popMILITIAm1/30)+1) then NombreHommeDarmeIAm1TERR18 = NombreHommeDarmeIAm1TERR18 + 1
        if int(NombreLancierIAm1-NombreLancierIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreLancierIAm1TERR18 < int((popMILITIAm1/30)+1) then NombreLancierIAm1TERR18 = NombreLancierIAm1TERR18 + 1
        if int(NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreFrondeurIAm1TERR18 < int((popMILITIAm1/30)+1) then NombreFrondeurIAm1TERR18 = NombreFrondeurIAm1TERR18 + 1
        if int(NombreArcherIAm1-NombreArcherIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreArcherIAm1TERR18 < int((popMILITIAm1/30)+1) then NombreArcherIAm1TERR18 = NombreArcherIAm1TERR18 + 1
    end if
    if territoire19 = 3 and popMILITIAm1 > 0 then
        if int(NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreHommeDarmeIAm1TERR19 < int((popMILITIAm1/30)+1) then NombreHommeDarmeIAm1TERR19 = NombreHommeDarmeIAm1TERR19 + 1
        if int(NombreLancierIAm1-NombreLancierIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreLancierIAm1TERR19 < int((popMILITIAm1/30)+1) then NombreLancierIAm1TERR19 = NombreLancierIAm1TERR19 + 1
        if int(NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreFrondeurIAm1TERR19 < int((popMILITIAm1/30)+1) then NombreFrondeurIAm1TERR19 = NombreFrondeurIAm1TERR19 + 1
        if int(NombreArcherIAm1-NombreArcherIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreArcherIAm1TERR19 < int((popMILITIAm1/30)+1) then NombreArcherIAm1TERR19 = NombreArcherIAm1TERR19 + 1
    end if
    if territoire20 = 3 and popMILITIAm1 > 0 then
        if int(NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreHommeDarmeIAm1TERR20 < int((popMILITIAm1/30)+1) then NombreHommeDarmeIAm1TERR20 = NombreHommeDarmeIAm1TERR20 + 1
        if int(NombreLancierIAm1-NombreLancierIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreLancierIAm1TERR20 < int((popMILITIAm1/30)+1) then NombreLancierIAm1TERR20 = NombreLancierIAm1TERR20 + 1
        if int(NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreFrondeurIAm1TERR20 < int((popMILITIAm1/30)+1) then NombreFrondeurIAm1TERR20 = NombreFrondeurIAm1TERR20 + 1
        if int(NombreArcherIAm1-NombreArcherIAm1SELECTED) > int((popMILITIAm1/30)+1) and NombreArcherIAm1TERR20 < int((popMILITIAm1/30)+1) then NombreArcherIAm1TERR20 = NombreArcherIAm1TERR20 + 1
    end if

    errorGAME = 11
        if boisIAm1 >= coutScBOISIAm1 and popSCIENTIAm1 = popSCIENTlimIAm1 then
           lvlbatimentCentreScientifiqueIAm1 = lvlbatimentCentreScientifiqueIAm1 + 1
           boisIAm1 = boisIAm1 - coutScBOISIAm1
           popSCIENTlimIAm1 = popSCIENTlimIAm1 +1
        end if
        if boisIAm1 >= coutSmBOISIAm1 and popMILITIAm1 = popMILITlimIAm1 then
           lvlbatimentCentreMilitaireIAm1 = lvlbatimentCentreMilitaireIAm1 + 1
           popMILITlimIAm1 = popMILITlimIAm1 + 4
           boisIAm1 = boisIAm1 - coutSmBOISIAm1
        end if
        if boisIAm1 >= coutHabitationBOISIAm1 and sedentarisationIAm1 = 1 and popPossibleIAm1 < int(popTOTALIAm1+(popTOTALIAm1/5)) then
           lvlbatimentHabitationIAm1 = lvlbatimentHabitationIAm1 + 1
           popPossibleIAm1 = popPossibleIAm1 + (5+lvlbatimentHabitationIAm1)
           boisIAm1 = boisIAm1 - coutHabitationBOISIAm1
        end if
        if fermageIAm1 = 1 and boisIAm1 >= coutfermageBOISIAm1 and lvlbatimentFermeIAm1 < 2*lvlbatimentPrincipalIAm1 then
           lvlbatimentFermeIAm1 = lvlbatimentFermeIAm1 + 1
           boisIAm1 = boisIAm1 - coutfermageBOISIAm1
        end if
        if scierieIA1 = 0 and boisIAm1 >= rechearch3BOISIAm1 then
            boisIAm1 = boisIAm1 - rechearch3BOISIAm1
            scierieIA1 = 1
        end if
        if scierieIA1 = 1 and boisIAm1 >= coutScierieBOISIAm1 and lvlbatimentScierieIAm1 <  2*lvlbatimentPrincipalIAm1 then
           lvlbatimentScierieIAm1 = lvlbatimentScierieIAm1 + 1
           boisIAm1 = boisIAm1 - coutScierieBOISIAm1
        end if
        if minesIA1 = 0 and boisIAm1 >= rechearch4BOISIAm1 then
            boisIAm1 = boisIAm1 - rechearch4BOISIAm1
            minesIA1 = 1
        end if
        if minesIA1 = 1 and boisIAm1 >= coutMinesBOISIAm1 and lvlbatimentMinesIAm1 <  2*lvlbatimentPrincipalIAm1 then
           lvlbatimentMinesIAm1 = lvlbatimentMinesIAm1 + 1
           boisIAm1 = boisIAm1 - coutMinesBOISIAm1
        end if
        if boisIAm1 >= coutFortificationsBOISIAm1 and lvlbatimentFortificationsIAm1 < int(lvlbatimentCentreMilitaireIAm1+lvlbatimentCentreScientifiqueIAm1+lvlbatimentPrincipalIAm1) then
           lvlbatimentFortificationsIAm1 = lvlbatimentFortificationsIAm1 + 1
           if lvlbatimentFortificationsIAm1 = 1 then hpFortificationsIAm1 = 1000
           boisIAm1 = boisIAm1 - coutFortificationsBOISIAm1
        end if
        if boisIAm1 >= coutFortifications2BOISIAm1 and lvlbatimentFortificationsIAm1 >= 1 then
           lvlHPFortificationsIAm1 = lvlHPFortificationsIAm1 + 1
           hpFortificationsIAm1 = hpFortificationsIAm1 + (int(lvlbatimentFortificationsIAm1*250))
           boisIAm1 = boisIAm1 - coutFortifications2BOISIAm1
        end if
        if foodIAm1 >= coutfoodScientifique and popSCIENTIAm1 <= popSCIENTlimIAm1 and int(popTOTALIAm1-popSCIENTIAm1-popMILITIAm1) >= 1 then
            popSCIENTIAm1 = popSCIENTIAm1 + 1
            foodIAm1 = foodIAm1 - coutfoodScientifique
        end if

    offHommedarmeIAm1 = 12 + ( 2*lvlbatimentFortificationsIAm1)
    defHommedarmeIAm1 = 3 + lvlbatimentFortificationsIAm1
    vieHommedarmeIAm1 = 37 + ( 5*lvlbatimentFortificationsIAm1)
    offlancierIAm1 = 19 + (2*lvlbatimentFortificationsIAm1)
    deflancierIAm1 = 2 + lvlbatimentFortificationsIAm1
    vielancierIAm1 = 33 + (3*lvlbatimentFortificationsIAm1)
    offfrondeurIAm1 = 38 + (5*lvlbatimentFortificationsIAm1)
    defFrondeurIAm1 = 1 + lvlbatimentFortificationsIAm1
    viefrondeurIAm1 = 18 + (1*lvlbatimentFortificationsIAm1)
    offarcherIAm1 = 12 + (3*lvlbatimentFortificationsIAm1)
    defarcherIAm1 = 2 + lvlbatimentFortificationsIAm1
    viearcherIAm1 = 24 + (3*lvlbatimentFortificationsIAm1)

    coutFortificationsBOISIAm1 = int(lvlbatimentFortificationsIAm1*2500)
    coutFortifications2BOISIAm1 =  int(lvlHPFortificationsIAm1*200)
    coutHabitationBOISIAm1 = coutHabitationBOISindexIAm1 + (int(lvlbatimentHabitationIAm1*150))
    coutScBOISIAm1 = coutScBOISindexIAm1 + (int(lvlbatimentCentreScientifiqueIAm1*600))
    coutPrincipalBOISIAm1 = coutPrincipalBOISindexIAm1 + (int(lvlbatimentPrincipalIAm1*400))
    coutPrincipalMETALIAm1 =(20*int(lvlbatimentPrincipalIAm1))
    coutSmBOISIAm1 = coutSmBOISindexIAm1 + (int(lvlbatimentCentreMilitaireIAm1*450))
    coutSmMETALIAm1 = 50*(int(lvlbatimentCentreMilitaireIAm1))
    coutfermageBOISIAm1 = coutFermeBOISindexIAm1 + (int(lvlbatimentFermeIAm1*500))
    coutfermageMETALIAm1 = 50*(int(lvlbatimentFermeIAm1))
    coutScierieBOISIAm1 = coutScierieBOISindexIAm1 + (int(lvlbatimentScierieIAm1*500))
    coutScierieMETALIAm1 = 20*(int(lvlbatimentScierieIAm1))
    coutMinesBOISIAm1 = coutMinesBOISindexIAm1 + (int(lvlbatimentMinesIAm1*1000))
    coutMinesMETALIAm1 = 20*(int(lvlbatimentMinesIAm1))

    if compteurATKia1ON = 0 and DecouverteCiv2P1 = 1 and attaqueAIm1 = 0 then
       valorCOMPTEURia1 = int(rnd(1)*100+30)
       valorCOMPTEURia1 = valorCOMPTEURia1 - (3*nombrePLAYER1territoire)
       if valorCOMPTEURia1 < 35 then valorCOMPTEURia1 = 35
       compteurATKia1surJ1 = 0
       compteurATKia1ON = 1
       NOMBREatk1SURplayer = NOMBREatk1SURplayer + 1
    end if
    compteurATKia1surJ1 = compteurATKia1surJ1 + 1

    if NOMBREatk2SURplayer > NOMBREatk1SURplayer then compteurATKia1surJ1 = compteurATKia1surJ1 + 5
    if attaqueAIm1 = 3 then compteurATKia1surJ1 = valorCOMPTEURia1 - 30 : attaqueAIm1 = 0

    errorGAME = 12
    if attaqueAIm1 = 0 and attaqueAIm2 = 0 and STATUTiam1 < 50 and popMILITIAm1 >= 1 and popTOTALIAm1 > 20 and compteurATKia1surJ1 >= valorCOMPTEURia1 and compteurIA1m >= 500 then
       [FOUNDED]
       FOUNDme = 0 : CHOICEiaTOattack = int(rnd(1)*2+1)
       if CHOICEiaTOattack = 1 then valorCOMPTEURia1 = 0 : compteurATKia1surJ1 = 0 : compteurATKia1ON = 0 : goto [noIA1atk]
       NombreHommeDarmeIAm1SELECTED = int(rnd(1)*(NombreHommeDarmeIAm1-(NombreHommeDarmeIAm1TERR1+NombreHommeDarmeIAm1TERR2+NombreHommeDarmeIAm1TERR3+NombreHommeDarmeIAm1TERR4+NombreHommeDarmeIAm1TERR5+NombreHommeDarmeIAm1TERR6+NombreHommeDarmeIAm1TERR7+NombreHommeDarmeIAm1TERR8+NombreHommeDarmeIAm1TERR9+NombreHommeDarmeIAm1TERR10+NombreHommeDarmeIAm1TERR11+NombreHommeDarmeIAm1TERR12+NombreHommeDarmeIAm1TERR13+NombreHommeDarmeIAm1TERR14+NombreHommeDarmeIAm1TERR15+NombreHommeDarmeIAm1TERR16+NombreHommeDarmeIAm1TERR17+NombreHommeDarmeIAm1TERR18+NombreHommeDarmeIAm1TERR19+NombreHommeDarmeIAm1TERR20)))
       NombreLancierIAm1SELECTED = int(rnd(1)*(NombreLancierIAm1-(NombreLancierIAm1TERR1+NombreLancierIAm1TERR2+NombreLancierIAm1TERR3+NombreLancierIAm1TERR4+NombreLancierIAm1TERR5+NombreLancierIAm1TERR6+NombreLancierIAm1TERR7+NombreLancierIAm1TERR8+NombreLancierIAm1TERR9+NombreLancierIAm1TERR10+NombreLancierIAm1TERR11+NombreLancierIAm1TERR12+NombreLancierIAm1TERR13+NombreLancierIAm1TERR14+NombreLancierIAm1TERR15+NombreLancierIAm1TERR16+NombreLancierIAm1TERR17+NombreLancierIAm1TERR18+NombreLancierIAm1TERR19+NombreLancierIAm1TERR20)))
       NombreFrondeurIAm1SELECTED = int(rnd(1)*(NombreFrondeurIAm1-(NombreFrondeurIAm1TERR1+NombreFrondeurIAm1TERR2+NombreFrondeurIAm1TERR3+NombreFrondeurIAm1TERR4+NombreFrondeurIAm1TERR5+NombreFrondeurIAm1TERR6+NombreFrondeurIAm1TERR7+NombreFrondeurIAm1TERR8+NombreFrondeurIAm1TERR9+NombreFrondeurIAm1TERR10+NombreFrondeurIAm1TERR11+NombreFrondeurIAm1TERR12+NombreFrondeurIAm1TERR13+NombreFrondeurIAm1TERR14+NombreFrondeurIAm1TERR15+NombreFrondeurIAm1TERR16+NombreFrondeurIAm1TERR17+NombreFrondeurIAm1TERR18+NombreFrondeurIAm1TERR19+NombreFrondeurIAm1TERR20)))
       NombreArcherIAm1SELECTED = int(rnd(1)*(NombreArcherIAm1-(NombreArcherIAm1TERR1+NombreArcherIAm1TERR2+NombreArcherIAm1TERR3+NombreArcherIAm1TERR4+NombreArcherIAm1TERR5+NombreArcherIAm1TERR6+NombreArcherIAm1TERR7+NombreArcherIAm1TERR8+NombreArcherIAm1TERR9+NombreArcherIAm1TERR10+NombreArcherIAm1TERR11+NombreArcherIAm1TERR12+NombreArcherIAm1TERR13+NombreArcherIAm1TERR14+NombreArcherIAm1TERR15+NombreArcherIAm1TERR16+NombreArcherIAm1TERR17+NombreArcherIAm1TERR18+NombreArcherIAm1TERR19+NombreArcherIAm1TERR20)))
       if NombreHommeDarmeIAm1SELECTED < 0 then NombreHommeDarmeIAm1SELECTED = 0
       if NombreLancierIAm1SELECTED < 0 then NombreLancierIAm1SELECTED = 0
       if NombreFrondeurIAm1SELECTED < 0 then NombreFrondeurIAm1SELECTED = 0
       if NombreArcherIAm1SELECTED < 0 then NombreArcherIAm1SELECTED = 0
       NombreHommeDarmeIAm1SELECTEDtemp = NombreHommeDarmeIAm1SELECTED
       NombreLancierIAm1SELECTEDtemp = NombreLancierIAm1SELECTED
       NombreFrondeurIAm1SELECTEDtemp = NombreFrondeurIAm1SELECTED
       NombreArcherIAm1SELECTEDtemp = NombreArcherIAm1SELECTED
       if NombreHommeDarmeIAm1SELECTED = 0 and NombreLancierIAm1SELECTED = 0 and NombreFrondeurIAm1SELECTED =0 and NombreArcherIAm1SELECTED  = 0 then valorCOMPTEURia1 = 0 : compteurATKia1surJ1 = 0 : compteurATKia1ON = 0 : goto [noIA1atk]
       notice " " + chr$(13) + "Une attaque en provenance d'une autre civilisation est en marche vers votre ville !"
       attaqueAIm1 = 1 : attaqueAIm2 = 0
       IA1atk$ = "ON" : IA2atk$ = "STOP"
       STATUTiam1 = STATUTiam1-100
       valorCOMPTEURia1 = 0
       compteurATKia1surJ1 = 0
       compteurATKia1ON = 0
       P1ennemix = P1bisx : P1ennemiy = P1bisy
    end if

    [noIA1atk]
    mainTerritory = int(rnd(1)*3+1) : if mainTerritory > 1 then goto [NoMainTerritory1]
    if PositionINIai1 = 1 and territoire1 <> 2 then
        territoire = 1 : gosub [SELECTunitATKterritoire2]
        if armeeIA1dispo > 0 and territoire1 = 0 then IA1terre = IA1terre + 1 : territoire1 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA1dispo > 0 and (territoire1 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire1 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire1 = territoire1 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia1]
    end if
    if PositionINIai1 = 2 and territoire2 <> 2 then
        territoire = 2 : gosub [SELECTunitATKterritoire2]
        if armeeIA1dispo > 0 and territoire2 = 0 then IA1terre = IA1terre + 1 : territoire2 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA1dispo > 0 and (territoire2 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire2 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire2 = territoire2 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia1]
    end if
    if PositionINIai1 = 3 and territoire3 <> 2 then
        territoire = 3 : gosub [SELECTunitATKterritoire2]
        if armeeIA1dispo > 0 and territoire3 = 0 then IA1terre = IA1terre + 1 : territoire3 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA1dispo > 0 and (territoire3 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire3 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire3 = territoire3 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia1]
    end if
    if PositionINIai1 = 4 and territoire4 <> 2 then
        territoire = 4 : gosub [SELECTunitATKterritoire2]
        if armeeIA1dispo > 0 and territoire4 = 0 then IA1terre = IA1terre + 1 : territoire4 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA1dispo > 0 and (territoire4 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire4 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire4 = territoire4 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia1]
    end if
    if PositionINIai1 = 5 and territoire5 <> 2 then
        territoire = 5 : gosub [SELECTunitATKterritoire2]
        if armeeIA1dispo > 0 and territoire5 = 0 then IA1terre = IA1terre + 1 : territoire5 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA1dispo > 0 and (territoire5 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire5 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire5 = territoire5 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia1]
    end if
    if PositionINIai1 = 6 and territoire6 <> 2 then
        territoire = 6 : gosub [SELECTunitATKterritoire2]
        if armeeIA1dispo > 0 and territoire6 = 0 then IA1terre = IA1terre + 1 : territoire6 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA1dispo > 0 and (territoire6 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire6 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire6 = territoire6 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia1]
    end if
    if PositionINIai1 = 7 and territoire7 <> 2 then
        territoire = 7 : gosub [SELECTunitATKterritoire2]
        if armeeIA1dispo > 0 and territoire7 = 0 then IA1terre = IA1terre + 1 : territoire7 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA1dispo > 0 and (territoire7 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire7 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire7 = territoire7 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia1]
    end if
    if PositionINIai1 = 8 and territoire8 <> 2 then
        territoire = 8 : gosub [SELECTunitATKterritoire2]
        if armeeIA1dispo > 0 and territoire8 = 0 then IA1terre = IA1terre + 1 : territoire8 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA1dispo > 0 and (territoire8 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire8 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire8 = territoire8 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia1]
    end if
    if PositionINIai1 = 9 and territoire9 <> 2 then
        territoire = 9 : gosub [SELECTunitATKterritoire2]
        if armeeIA1dispo > 0 and territoire9 = 0 then IA1terre = IA1terre + 1 : territoire9 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA1dispo > 0 and (territoire9 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire9 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire9 = territoire9 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia1]
    end if
    if PositionINIai1 = 10 and territoire10 <> 2 then
        territoire = 10 : gosub [SELECTunitATKterritoire2]
        if armeeIA1dispo > 0 and territoire10 = 0 then IA1terre = IA1terre + 1 : territoire10 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA1dispo > 0 and (territoire10 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire10 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire10 = territoire10 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia1]
    end if
    if PositionINIai1 = 11 and territoire11 <> 2 then
        territoire = 11 : gosub [SELECTunitATKterritoire2]
        if armeeIA1dispo > 0 and territoire11 = 0 then IA1terre = IA1terre + 1 : territoire11 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA1dispo > 0 and (territoire11 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire11 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire11 = territoire11 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia1]
    end if
    if PositionINIai1 = 12 and territoire12 <> 2 then
        territoire = 12 : gosub [SELECTunitATKterritoire2]
        if armeeIA1dispo > 0 and territoire12 = 0 then IA1terre = IA1terre + 1 : territoire12 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA1dispo > 0 and (territoire12 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire12 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire12 = territoire12 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia1]
    end if
    if PositionINIai1 = 13 and territoire13 <> 2 then
        territoire = 13 : gosub [SELECTunitATKterritoire2]
        if armeeIA1dispo > 0 and territoire13 = 0 then IA1terre = IA1terre + 1 : territoire13 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA1dispo > 0 and (territoire13 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire13 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire13 = territoire13 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia1]
    end if
    if PositionINIai1 = 14 and territoire14 <> 2 then
        territoire = 14 : gosub [SELECTunitATKterritoire2]
        if armeeIA1dispo > 0 and territoire14 = 0 then IA1terre = IA1terre + 1 : territoire14 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA1dispo > 0 and (territoire14 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire14 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire14 = territoire14 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia1]
    end if
    if PositionINIai1 = 15 and territoire15 <> 2 then
        territoire = 15 : gosub [SELECTunitATKterritoire2]
        if armeeIA1dispo > 0 and territoire15 = 0 then IA1terre = IA1terre + 1 : territoire15 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA1dispo > 0 and (territoire15 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire15 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire15 = territoire15 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia1]
    end if
    if PositionINIai1 = 16 and territoire16 <> 2 then
        territoire = 16 : gosub [SELECTunitATKterritoire2]
        if armeeIA1dispo > 0 and territoire16 = 0 then IA1terre = IA1terre + 1 : territoire16 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA1dispo > 0 and (territoire16 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire16 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire16 = territoire16 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia1]
    end if
    if PositionINIai1 = 17 and territoire17 <> 2 then
        territoire = 17 : gosub [SELECTunitATKterritoire2]
        if armeeIA1dispo > 0 and territoire17 = 0 then IA1terre = IA1terre + 1 : territoire17 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA1dispo > 0 and (territoire17 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire17 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire17 = territoire17 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia1]
    end if
    if PositionINIai1 = 18 and territoire18 <> 2 then
        territoire = 18 : gosub [SELECTunitATKterritoire2]
        if armeeIA1dispo > 0 and territoire18 = 0 then IA1terre = IA1terre + 1 : territoire18 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA1dispo > 0 and (territoire18 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire18 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire18 = territoire18 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia1]
    end if
    if PositionINIai1 = 19 and territoire19 <> 2 then
        territoire = 19 : gosub [SELECTunitATKterritoire2]
        if armeeIA1dispo > 0 and territoire19 = 0 then IA1terre = IA1terre + 1 : territoire19 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA1dispo > 0 and (territoire19 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire19 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire19 = territoire19 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia1]
    end if
    if PositionINIai1 = 20 and territoire20 <> 2 then
        territoire = 20 : gosub [SELECTunitATKterritoire2]
        if armeeIA1dispo > 0 and territoire20 = 0 then IA1terre = IA1terre + 1 : territoire20 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
        if armeeIA1dispo > 0 and (territoire20 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire20 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire20 = territoire20 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        goto [endTERREatkia1]
    end if
    [NoMainTerritory1]

    DEterritoireINI = int(rnd(1)*100+1) 'int(rnd(1)*(STATUTiam1+STATUTiam2TOiam1+100)+1)
    if DEterritoireINI <= 2 and popMILITIAm1 >= 1 then
    PLAYER = 2 : MiniX = 10000
    if territoire1 <> 2 then
        if P1bisx > territoireX1 then MiniX1 = P1bisx - territoireX1
        if P1bisx < territoireX1 then MiniX1 = territoireX1 - P1bisx
        if P1bisy > territoireY1 then MiniY1 = P1bisy - territoireY1
        if P1bisy < territoireY1 then MiniY1 = territoireY1 - P1bisy
    end if
    if territoire1 = 2 then MiniX1 = 100001
    if int(MiniX1+MiniY1) < MiniX and territoire1 <> 2 then MiniX = int(MiniX1+MiniY1)
    if territoire2 <> 2 then
        if P1bisx > territoireX2 then MiniX2 = P1bisx - territoireX2
        if P1bisx < territoireX2 then MiniX2 = territoireX2 - P1bisx
        if P1bisy > territoireY2 then MiniY2 = P1bisy - territoireY2
        if P1bisy < territoireY2 then MiniY2 = territoireY2 - P1bisy
    end if
    if territoire2 = 2 then MiniX2 = 100002
    if int(MiniX2+MiniY2) < MiniX and territoire2 <> 2 then MiniX = int(MiniX2+MiniY2)
    if territoire3 <> 2 then
        if P1bisx > territoireX3 then MiniX3 = P1bisx - territoireX3
        if P1bisx < territoireX3 then MiniX3 = territoireX3 - P1bisx
        if P1bisy > territoireY3 then MiniY3 = P1bisy - territoireY3
        if P1bisy < territoireY3 then MiniY3 = territoireY3 - P1bisy
    end if
    if territoire3 = 2 then MiniX3 = 100003
    if int(MiniX3+MiniY3) < MiniX and territoire3 <> 2 then MiniX = int(MiniX3+MiniY3)
    if territoire4 <> 2 then
        if P1bisx > territoireX4 then MiniX4 = P1bisx - territoireX4
        if P1bisx < territoireX4 then MiniX4 = territoireX4 - P1bisx
        if P1bisy > territoireY4 then MiniY4 = P1bisy - territoireY4
        if P1bisy < territoireY4 then MiniY4 = territoireY4 - P1bisy
    end if
    if territoire4 = 2 then MiniX4 = 100004
    if int(MiniX4+MiniY4) < MiniX and territoire4 <> 2 then MiniX = int(MiniX4+MiniY4)
    if territoire5 <> 2 then
        if P1bisx > territoireX5 then MiniX5 = P1bisx - territoireX5
        if P1bisx < territoireX5 then MiniX5 = territoireX5 - P1bisx
        if P1bisy > territoireY5 then MiniY5 = P1bisy - territoireY5
        if P1bisy < territoireY5 then MiniY5 = territoireY5 - P1bisy
    end if
    if territoire5 = 2 then MiniX5 = 100005
    if int(MiniX5+MiniY5) < MiniX and territoire5 <> 2 then MiniX = int(MiniX5+MiniY5)
    if territoire6 <> 2 then
        if P1bisx > territoireX6 then MiniX6 = P1bisx - territoireX6
        if P1bisx < territoireX6 then MiniX6 = territoireX6 - P1bisx
        if P1bisy > territoireY6 then MiniY6 = P1bisy - territoireY6
        if P1bisy < territoireY6 then MiniY6 = territoireY6 - P1bisy
    end if
    if territoire6 = 2 then MiniX6 = 100006
    if int(MiniX6+MiniY6) < MiniX and territoire6 <> 2 then MiniX = int(MiniX6+MiniY6)
    if territoire7 <> 2 then
        if P1bisx > territoireX7 then MiniX7 = P1bisx - territoireX7
        if P1bisx < territoireX7 then MiniX7 = territoireX7 - P1bisx
        if P1bisy > territoireY7 then MiniY7 = P1bisy - territoireY7
        if P1bisy < territoireY7 then MiniY7 = territoireY7 - P1bisy
    end if
    if territoire7 = 2 then MiniX7 = 100007
    if int(MiniX7+MiniY7) < MiniX and territoire7 <> 2 then MiniX = int(MiniX7+MiniY7)
    if territoire8 <> 2 then
        if P1bisx > territoireX8 then MiniX8 = P1bisx - territoireX8
        if P1bisx < territoireX8 then MiniX8 = territoireX8 - P1bisx
        if P1bisy > territoireY8 then MiniY8 = P1bisy - territoireY8
        if P1bisy < territoireY8 then MiniY8 = territoireY8 - P1bisy
    end if
    if territoire8 = 2 then MiniX8 = 100008
    if int(MiniX8+MiniY8) < MiniX and territoire8 <> 2 then MiniX = int(MiniX8+MiniY8)
    if territoire9 <> 2 then
        if P1bisx > territoireX9 then MiniX9 = P1bisx - territoireX9
        if P1bisx < territoireX9 then MiniX9 = territoireX9 - P1bisx
        if P1bisy > territoireY9 then MiniY9 = P1bisy - territoireY9
        if P1bisy < territoireY9 then MiniY9 = territoireY9 - P1bisy
    end if
    if territoire9 = 2 then MiniX9 = 100009
    if int(MiniX9+MiniY9) < MiniX and territoire9 <> 2 then MiniX = int(MiniX9+MiniY9)
    if territoire10 <> 2 then
        if P1bisx > territoireX10 then MiniX10 = P1bisx - territoireX10
        if P1bisx < territoireX10 then MiniX10 = territoireX10 - P1bisx
        if P1bisy > territoireY10 then MiniY10 = P1bisy - territoireY10
        if P1bisy < territoireY10 then MiniY10 = territoireY10 - P1bisy
    end if
    if territoire10 = 2 then MiniX10 = 100010
    if int(MiniX10+MiniY10) < MiniX and territoire10 <> 2 then MiniX = int(MiniX10+MiniY10)
    if territoire11 <> 2 then
        if P1bisx > territoireX11 then MiniX11 = P1bisx - territoireX11
        if P1bisx < territoireX11 then MiniX11 = territoireX11 - P1bisx
        if P1bisy > territoireY11 then MiniY11 = P1bisy - territoireY11
        if P1bisy < territoireY11 then MiniY11 = territoireY11 - P1bisy
    end if
    if territoire11 = 2 then MiniX11 = 100011
    if int(MiniX11+MiniY11) < MiniX and territoire11 <> 2 then MiniX = int(MiniX11+MiniY11)
    if territoire12 <> 2 then
        if P1bisx > territoireX12 then MiniX12 = P1bisx - territoireX12
        if P1bisx < territoireX12 then MiniX12 = territoireX12 - P1bisx
        if P1bisy > territoireY12 then MiniY12 = P1bisy - territoireY12
        if P1bisy < territoireY12 then MiniY12 = territoireY12 - P1bisy
    end if
    if territoire12 = 2 then MiniX12 = 100012
    if int(MiniX12+MiniY12) < MiniX and territoire12 <> 2 then MiniX = int(MiniX12+MiniY12)
    if territoire13 <> 2 then
        if P1bisx > territoireX13 then MiniX13 = P1bisx - territoireX13
        if P1bisx < territoireX13 then MiniX13 = territoireX13 - P1bisx
        if P1bisy > territoireY13 then MiniY13 = P1bisy - territoireY13
        if P1bisy < territoireY13 then MiniY13 = territoireY13 - P1bisy
    end if
    if territoire13 = 2 then MiniX13 = 100013
    if int(MiniX13+MiniY13) < MiniX and territoire13 <> 2 then MiniX = int(MiniX13+MiniY13)
    if territoire14 <> 2 then
        if P1bisx > territoireX14 then MiniX14 = P1bisx - territoireX14
        if P1bisx < territoireX14 then MiniX14 = territoireX14 - P1bisx
        if P1bisy > territoireY14 then MiniY14 = P1bisy - territoireY14
        if P1bisy < territoireY14 then MiniY14 = territoireY14 - P1bisy
    end if
    if territoire14 = 2 then MiniX14 = 100014
    if int(MiniX14+MiniY14) < MiniX and territoire14 <> 2 then MiniX = int(MiniX14+MiniY14)
    if territoire15 <> 2 then
        if P1bisx > territoireX15 then MiniX15 = P1bisx - territoireX15
        if P1bisx < territoireX15 then MiniX15 = territoireX15 - P1bisx
        if P1bisy > territoireY15 then MiniY15 = P1bisy - territoireY15
        if P1bisy < territoireY15 then MiniY15 = territoireY15 - P1bisy
    end if
    if territoire15 = 2 then MiniX15 = 100015
    if int(MiniX15+MiniY15) < MiniX and territoire15 <> 2 then MiniX = int(MiniX15+MiniY15)
    if territoire16 <> 2 then
        if P1bisx > territoireX16 then MiniX16 = P1bisx - territoireX16
        if P1bisx < territoireX16 then MiniX16 = territoireX16 - P1bisx
        if P1bisy > territoireY16 then MiniY16 = P1bisy - territoireY16
        if P1bisy < territoireY16 then MiniY16 = territoireY16 - P1bisy
    end if
    if territoire16 = 2 then MiniX16 = 100016
    if int(MiniX16+MiniY16) < MiniX and territoire16 <> 2 then MiniX = int(MiniX16+MiniY16)
    if territoire17 <> 2 then
        if P1bisx > territoireX17 then MiniX17 = P1bisx - territoireX17
        if P1bisx < territoireX17 then MiniX17 = territoireX17 - P1bisx
        if P1bisy > territoireY17 then MiniY17 = P1bisy - territoireY17
        if P1bisy < territoireY17 then MiniY17 = territoireY17 - P1bisy
    end if
    if territoire17 = 2 then MiniX17 = 100017
    if int(MiniX17+MiniY17) < MiniX and territoire17 <> 2 then MiniX = int(MiniX17+MiniY17)
    if territoire18 <> 2 then
        if P1bisx > territoireX18 then MiniX18 = P1bisx - territoireX18
        if P1bisx < territoireX18 then MiniX18 = territoireX18 - P1bisx
        if P1bisy > territoireY18 then MiniY18 = P1bisy - territoireY18
        if P1bisy < territoireY18 then MiniY18 = territoireY18 - P1bisy
    end if
    if territoire18 = 2 then MiniX18 = 100018
    if int(MiniX18+MiniY18) < MiniX and territoire18 <> 2 then MiniX = int(MiniX18+MiniY18)
    if territoire19 <> 2 then
        if P1bisx > territoireX19 then MiniX19 = P1bisx - territoireX19
        if P1bisx < territoireX19 then MiniX19 = territoireX19 - P1bisx
        if P1bisy > territoireY19 then MiniY19 = P1bisy - territoireY19
        if P1bisy < territoireY19 then MiniY19 = territoireY19 - P1bisy
    end if
    if territoire19 = 2 then MiniX19 = 100019
    if int(MiniX19+MiniY19) < MiniX and territoire19 <> 2 then MiniX = int(MiniX19+MiniY19)
    if territoire20 <> 2 then
        if P1bisx > territoireX20 then MiniX20 = P1bisx - territoireX20
        if P1bisx < territoireX20 then MiniX20 = territoireX20 - P1bisx
        if P1bisy > territoireY20 then MiniY20 = P1bisy - territoireY20
        if P1bisy < territoireY20 then MiniY20 = territoireY20 - P1bisy
    end if
    if territoire20 = 2 then MiniX20 = 100020
    if int(MiniX20+MiniY20) < MiniX and territoire20 <> 2 then MiniX = int(MiniX20+MiniY20)

    if MiniX = 0 then MiniX = 10000

    errorGAME = 13
    select case MiniX
        case int(MiniX1+MiniY1)
            territoire = 1
            gosub [SELECTunitATKterritoire2]
            if armeeIA1dispo > 0 and territoire1 = 0 then IA1terre = IA1terre + 1 : territoire1 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA1dispo > 0 and (territoire1 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire1 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire1 = territoire1 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        case int(MiniX2+MiniY2)
            territoire = 2
            gosub [SELECTunitATKterritoire2]
            if armeeIA1dispo > 0 and territoire2 = 0 then IA1terre = IA1terre + 1 : territoire2 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA1dispo > 0 and (territoire2 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire2 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire2 = territoire2 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        case int(MiniX3+MiniY3)
            territoire = 3
            gosub [SELECTunitATKterritoire2]
            if armeeIA1dispo > 0 and territoire3 = 0 then IA1terre = IA1terre + 1 : territoire3 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA1dispo > 0 and (territoire3 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire3 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire3 = territoire3 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        case int(MiniX4+MiniY4)
            territoire = 4
            gosub [SELECTunitATKterritoire2]
            if armeeIA1dispo > 0 and territoire4 = 0 then IA1terre = IA1terre + 1 : territoire4 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA1dispo > 0 and (territoire4 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire4 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire4 = territoire4 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        case int(MiniX5+MiniY5)
            territoire = 5
            gosub [SELECTunitATKterritoire2]
            if armeeIA1dispo > 0 and territoire5 = 0 then IA1terre = IA1terre + 1 : territoire5 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA1dispo > 0 and (territoire5 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire5 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire5 = territoire5 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        case int(MiniX6+MiniY6)
            territoire = 6
            gosub [SELECTunitATKterritoire2]
            if armeeIA1dispo > 0 and territoire6 = 0 then IA1terre = IA1terre + 1 : territoire6 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA1dispo > 0 and (territoire6 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire6 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire6 = territoire6 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        case int(MiniX7+MiniY7)
            territoire = 7
            gosub [SELECTunitATKterritoire2]
            if armeeIA1dispo > 0 and territoire7 = 0 then IA1terre = IA1terre + 1 : territoire7 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA1dispo > 0 and (territoire7 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire7 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire7 = territoire7 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        case int(MiniX8+MiniY8)
            territoire = 8
            gosub [SELECTunitATKterritoire2]
            if armeeIA1dispo > 0 and erritoire8 = 0 then IA1terre = IA1terre + 1 : territoire8 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA1dispo > 0 and (territoire8 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire8 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire8 = territoire8 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        case int(MiniX9+MiniY9)
            territoire = 9
            gosub [SELECTunitATKterritoire2]
            if armeeIA1dispo > 0 and territoire9 = 0 then IA1terre = IA1terre + 1 : territoire9 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA1dispo > 0 and (territoire9 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire9 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire9 = territoire9 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        case int(MiniX10+MiniY10)
            territoire = 10
            gosub [SELECTunitATKterritoire2]
            if armeeIA1dispo > 0 and territoire10 = 0 then IA1terre = IA1terre + 1 : territoire10 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA1dispo > 0 and (territoire10 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire10 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire10 = territoire10 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        case int(MiniX11+MiniY11)
            territoire = 11
            gosub [SELECTunitATKterritoire2]
            if armeeIA1dispo > 0 and territoire11 = 0 then IA1terre = IA1terre + 1 : territoire11 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA1dispo > 0 and (territoire11 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire11 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire11 = territoire11 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        case int(MiniX12+MiniY12)
            territoire = 12
            gosub [SELECTunitATKterritoire2]
            if armeeIA1dispo > 0 and territoire12 = 0 then IA1terre = IA1terre + 1 : territoire12 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA1dispo > 0 and (territoire12 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire12 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire12 = territoire12 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        case int(MiniX13+MiniY13)
            territoire = 13
            gosub [SELECTunitATKterritoire2]
            if armeeIA1dispo > 0 and territoire13 = 0 then IA1terre = IA1terre + 1 : territoire13 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA1dispo > 0 and (territoire13 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire13 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire13 = territoire13 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        case int(MiniX14+MiniY14)
            territoire = 14
            gosub [SELECTunitATKterritoire2]
            if armeeIA1dispo > 0 and territoire14 = 0 then IA1terre = IA1terre + 1 : territoire14 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA1dispo > 0 and (territoire14 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire14 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire14 = territoire14 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        case int(MiniX15+MiniY15)
            territoire = 15
            gosub [SELECTunitATKterritoire2]
            if armeeIA1dispo > 0 and territoire15 = 0 then IA1terre = IA1terre + 1 : territoire15 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA1dispo > 0 and (territoire15 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire15 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire15 = territoire15 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        case int(MiniX16+MiniY16)
            territoire = 16
            gosub [SELECTunitATKterritoire2]
            if armeeIA1dispo > 0 and territoire16 = 0 then IA1terre = IA1terre + 1 : territoire16 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA1dispo > 0 and (territoire16 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire16 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire16 = territoire16 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        case int(MiniX17+MiniY17)
            territoire = 17
            gosub [SELECTunitATKterritoire2]
            if armeeIA1dispo > 0 and territoire17 = 0 then IA1terre = IA1terre + 1 : territoire17 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA1dispo > 0 and (territoire17 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire17 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire17 = territoire17 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        case int(MiniX18+MiniY18)
            territoire = 18
            gosub [SELECTunitATKterritoire2]
            if armeeIA1dispo > 0 and territoire18 = 0 then IA1terre = IA1terre + 1 : territoire18 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA1dispo > 0 and (territoire18 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire18 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire18 = territoire18 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        case int(MiniX19+MiniY19)
            territoire = 19
            gosub [SELECTunitATKterritoire2]
            if armeeIA1dispo > 0 and territoire19 = 0 then IA1terre = IA1terre + 1 : territoire19 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA1dispo > 0 and (territoire19 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire19 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire19 = territoire19 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        case int(MiniX20+MiniY20)
            territoire = 20
            gosub [SELECTunitATKterritoire2]
            if armeeIA1dispo > 0 and territoire20 = 0 then IA1terre = IA1terre + 1 : territoire20 = 2 : refreshIAterreCAPTURE = 1 : if zoomPlanete = 1 then goto [territoireREFRESH1]
            if armeeIA1dispo > 0 and (territoire20 = 1 and STATUTiam1 < 50) or armeeIA1dispo > 0 and (territoire20 = 3 and STATUTiam2TOiam1 < 50) then OLDterritoire20 = territoire20 : IA1terre = IA1terre + 1 : goto [territoireATTAQUE]
        end select
    end if
    [endTERREatkia1]
    refreshIAterreCAPTURE = 0
    return

    [SELECTunitATKterritoire2]
    if attaqueAIm1 = 0 and NombreHommeDarmeIAm1 - (NombreHommeDarmeIAm1TERR1+NombreHommeDarmeIAm1TERR2+NombreHommeDarmeIAm1TERR3+NombreHommeDarmeIAm1TERR4+NombreHommeDarmeIAm1TERR5+NombreHommeDarmeIAm1TERR6+NombreHommeDarmeIAm1TERR7+NombreHommeDarmeIAm1TERR8+NombreHommeDarmeIAm1TERR9+NombreHommeDarmeIAm1TERR10+NombreHommeDarmeIAm1TERR11+NombreHommeDarmeIAm1TERR12+NombreHommeDarmeIAm1TERR13+NombreHommeDarmeIAm1TERR14+NombreHommeDarmeIAm1TERR15+NombreHommeDarmeIAm1TERR16+NombreHommeDarmeIAm1TERR17+NombreHommeDarmeIAm1TERR18+NombreHommeDarmeIAm1TERR19+NombreHommeDarmeIAm1TERR20) > 0 then NombreHommeDarmeIAm1SELECTED = int(rnd(1)*(NombreHommeDarmeIAm1-(NombreHommeDarmeIAm1TERR1+NombreHommeDarmeIAm1TERR2+NombreHommeDarmeIAm1TERR3+NombreHommeDarmeIAm1TERR4+NombreHommeDarmeIAm1TERR5+NombreHommeDarmeIAm1TERR6+NombreHommeDarmeIAm1TERR7+NombreHommeDarmeIAm1TERR8+NombreHommeDarmeIAm1TERR9+NombreHommeDarmeIAm1TERR10+NombreHommeDarmeIAm1TERR11+NombreHommeDarmeIAm1TERR12+NombreHommeDarmeIAm1TERR13+NombreHommeDarmeIAm1TERR14+NombreHommeDarmeIAm1TERR15+NombreHommeDarmeIAm1TERR16+NombreHommeDarmeIAm1TERR17+NombreHommeDarmeIAm1TERR18+NombreHommeDarmeIAm1TERR19+NombreHommeDarmeIAm1TERR20)))
    NombreHommeDarmeIAm1SELECTEDtemp3 = NombreHommeDarmeIAm1SELECTED
    if attaqueAIm1 = 0 and NombreLancierIAm1 - (NombreLancierIAm1TERR1+NombreLancierIAm1TERR2+NombreLancierIAm1TERR3+NombreLancierIAm1TERR4+NombreLancierIAm1TERR5+NombreLancierIAm1TERR6+NombreLancierIAm1TERR7+NombreLancierIAm1TERR8+NombreLancierIAm1TERR9+NombreLancierIAm1TERR10+NombreLancierIAm1TERR11+NombreLancierIAm1TERR12+NombreLancierIAm1TERR13+NombreLancierIAm1TERR14+NombreLancierIAm1TERR15+NombreLancierIAm1TERR16+NombreLancierIAm1TERR17+NombreLancierIAm1TERR18+NombreLancierIAm1TERR19+NombreLancierIAm1TERR20) > 0 then NombreLancierIAm1SELECTED = int(rnd(1)*(NombreLancierIAm1-(NombreLancierIAm1TERR1+NombreLancierIAm1TERR2+NombreLancierIAm1TERR3+NombreLancierIAm1TERR4+NombreLancierIAm1TERR5+NombreLancierIAm1TERR6+NombreLancierIAm1TERR7+NombreLancierIAm1TERR8+NombreLancierIAm1TERR9+NombreLancierIAm1TERR10+NombreLancierIAm1TERR11+NombreLancierIAm1TERR12+NombreLancierIAm1TERR13+NombreLancierIAm1TERR14+NombreLancierIAm1TERR15+NombreLancierIAm1TERR16+NombreLancierIAm1TERR17+NombreLancierIAm1TERR18+NombreLancierIAm1TERR19+NombreLancierIAm1TERR20)))
    NombreLancierIAm1SELECTEDtemp3 = NombreLancierIAm1SELECTED
    if attaqueAIm1 = 0 and NombreFrondeurIAm1 - (NombreFrondeurIAm1TERR1+NombreFrondeurIAm1TERR2+NombreFrondeurIAm1TERR3+NombreFrondeurIAm1TERR4+NombreFrondeurIAm1TERR5+NombreFrondeurIAm1TERR6+NombreFrondeurIAm1TERR7+NombreFrondeurIAm1TERR8+NombreFrondeurIAm1TERR9+NombreFrondeurIAm1TERR10+NombreFrondeurIAm1TERR11+NombreFrondeurIAm1TERR12+NombreFrondeurIAm1TERR13+NombreFrondeurIAm1TERR14+NombreFrondeurIAm1TERR15+NombreFrondeurIAm1TERR16+NombreFrondeurIAm1TERR17+NombreFrondeurIAm1TERR18+NombreFrondeurIAm1TERR19+NombreFrondeurIAm1TERR20) > 0 then NombreFrondeurIAm1SELECTED = int(rnd(1)*(NombreFrondeurIAm1-(NombreFrondeurIAm1TERR1+NombreFrondeurIAm1TERR2+NombreFrondeurIAm1TERR3+NombreFrondeurIAm1TERR4+NombreFrondeurIAm1TERR5+NombreFrondeurIAm1TERR6+NombreFrondeurIAm1TERR7+NombreFrondeurIAm1TERR8+NombreFrondeurIAm1TERR9+NombreFrondeurIAm1TERR10+NombreFrondeurIAm1TERR11+NombreFrondeurIAm1TERR12+NombreFrondeurIAm1TERR13+NombreFrondeurIAm1TERR14+NombreFrondeurIAm1TERR15+NombreFrondeurIAm1TERR16+NombreFrondeurIAm1TERR17+NombreFrondeurIAm1TERR18+NombreFrondeurIAm1TERR19+NombreFrondeurIAm1TERR20)))
    NombreFrondeurIAm1SELECTEDtemp3 = NombreFrondeurIAm1SELECTED
    if attaqueAIm1 = 0 and NombreArcherIAm1 - (NombreArcherIAm1TERR1+NombreArcherIAm1TERR2+NombreArcherIAm1TERR3+NombreArcherIAm1TERR4+NombreArcherIAm1TERR5+NombreArcherIAm1TERR6+NombreArcherIAm1TERR7+NombreArcherIAm1TERR8+NombreArcherIAm1TERR9+NombreArcherIAm1TERR10+NombreArcherIAm1TERR11+NombreArcherIAm1TERR12+NombreArcherIAm1TERR13+NombreArcherIAm1TERR14+NombreArcherIAm1TERR15+NombreArcherIAm1TERR16+NombreArcherIAm1TERR17+NombreArcherIAm1TERR18+NombreArcherIAm1TERR19+NombreArcherIAm1TERR20) > 0 then NombreArcherIAm1SELECTED = int(rnd(1)*(NombreArcherIAm1-(NombreArcherIAm1TERR1+NombreArcherIAm1TERR2+NombreArcherIAm1TERR3+NombreArcherIAm1TERR4+NombreArcherIAm1TERR5+NombreArcherIAm1TERR6+NombreArcherIAm1TERR7+NombreArcherIAm1TERR8+NombreArcherIAm1TERR9+NombreArcherIAm1TERR10+NombreArcherIAm1TERR11+NombreArcherIAm1TERR12+NombreArcherIAm1TERR13+NombreArcherIAm1TERR14+NombreArcherIAm1TERR15+NombreArcherIAm1TERR16+NombreArcherIAm1TERR17+NombreArcherIAm1TERR18+NombreArcherIAm1TERR19+NombreArcherIAm1TERR20)))
    NombreArcherIAm1SELECTEDtemp3 = NombreArcherIAm1SELECTED
    armeeIA1dispo = NombreHommeDarmeIAm1SELECTEDtemp3 + NombreLancierIAm1SELECTEDtemp3 + NombreFrondeurIAm1SELECTEDtemp3 + NombreArcherIAm1SELECTEDtemp3
    return


    [dataSAVEmode]
    MenuMode = 1
    goto [saveMain]
    [dataLOADmode]
    MenuMode = 2
    [saveMain]
    if saveMain=0 then goto [saveMain2]
    if saveMain=1 then close #saveMain
    [saveMain2]
    saveMain=1
    if bruitage = 0 then playwave "music\buton.wav", async
    loadbmp"save", "bmp\game\choix\save.bmp"
    loadbmp"close", "bmp\game\choix\closeSave.bmp"
    loadbmp"load", "bmp\game\choix\reload.bmp"

    WindowWidth = 600 : WindowHeight = 420
    UpperLeftX=int((DisplayWidth-WindowWidth)/2)
    UpperLeftY=int((DisplayHeight-WindowHeight)/2)
    BackgroundColor$ = "black" : ForegroundColor$ = "white"
    graphicbox #saveMain.map, 0, 0, 1100, 630

    Open "" for window_popup As #saveMain
    #saveMain, "trapclose [Qsave]"
    #saveMain.map, "down; fill black"
    print #saveMain.map, "color white"
    print #saveMain, "font times_new_roman 11"
    print #saveMain.map, "font times_new_roman 16"
    if language = 0  then print #saveMain.map, "backcolor black; place 125 40 ;\"; "SELECTIONNEZ UNE SAUVEGARDE"
    if language = 1  then print #saveMain.map, "backcolor black; place 170 40 ;\"; "SELECT A SAVED GAME"
    print #saveMain.map, "font times_new_roman 9"

    if MenuMode = 1 and gameStartini = 1 then #saveMain.map, "drawbmp save 50 80"
    if gameStartini = 0 then #saveMain.map, "drawbmp save 50 80"
    if MenuMode = 2 and gameStartini = 1 then #saveMain.map, "drawbmp load 50 80"
    #saveMain.map, "drawbmp close 35 85"

    if MenuMode = 1 and gameStartini = 1 then #saveMain.map, "drawbmp save 50 140"
    if gameStartini = 0 then #saveMain.map, "drawbmp save 50 140"
    if MenuMode = 2 and gameStartini = 1 then #saveMain.map, "drawbmp load 50 140"
    #saveMain.map, "drawbmp close 35 145"

    if MenuMode = 1 and gameStartini = 1 then #saveMain.map, "drawbmp save 50 200"
    if gameStartini = 0 then #saveMain.map, "drawbmp save 50 200"
    if MenuMode = 2 and gameStartini = 1 then #saveMain.map, "drawbmp load 50 200"
    #saveMain.map, "drawbmp close 35 205"

    if MenuMode = 1 and gameStartini = 1 then #saveMain.map, "drawbmp save 50 260"
    if gameStartini = 0 then #saveMain.map, "drawbmp save 50 260"
    if MenuMode = 2 and gameStartini = 1 then #saveMain.map, "drawbmp load 50 260"
    #saveMain.map, "drawbmp close 35 265"

    if MenuMode = 1 and gameStartini = 1 then #saveMain.map, "drawbmp save 50 320"
    if gameStartini = 0 then #saveMain.map, "drawbmp save 50 320"
    if MenuMode = 2 and gameStartini = 1 then #saveMain.map, "drawbmp load 50 320"
    #saveMain.map, "drawbmp close 35 325"

    if MenuMode = 1 and gameStartini = 1 then #saveMain.map, "drawbmp save 320 80"
    if gameStartini = 0 then #saveMain.map, "drawbmp save 320 80"
    if MenuMode = 2 and gameStartini = 1 then #saveMain.map, "drawbmp load 320 80"
    #saveMain.map, "drawbmp close 305 85"

    if MenuMode = 1 and gameStartini = 1 then #saveMain.map, "drawbmp save 320 140"
    if gameStartini = 0 then #saveMain.map, "drawbmp save 320 140"
    if MenuMode = 2 and gameStartini = 1 then #saveMain.map, "drawbmp load 320 140"
    #saveMain.map, "drawbmp close 305 145"

    if MenuMode = 1 and gameStartini = 1 then #saveMain.map, "drawbmp save 320 200"
    if gameStartini = 0 then #saveMain.map, "drawbmp save 320 200"
    if MenuMode = 2 and gameStartini = 1 then #saveMain.map, "drawbmp load 320 200"
    #saveMain.map, "drawbmp close 305 205"

    if MenuMode = 1 and gameStartini = 1 then #saveMain.map, "drawbmp save 320 260"
    if gameStartini = 0  then #saveMain.map, "drawbmp save 320 260"
    if MenuMode = 2 and gameStartini = 1 then #saveMain.map, "drawbmp load 320 260"
    #saveMain.map, "drawbmp close 305 265"

    if MenuMode = 1 and gameStartini = 1 then #saveMain.map, "drawbmp save 320 320"
    if gameStartini = 0  then #saveMain.map, "drawbmp save 320 320"
    if MenuMode = 2 and gameStartini = 1 then #saveMain.map, "drawbmp load 320 320"
    #saveMain.map, "drawbmp close 305 325"

    dir$ = "" : file$ = "data\save1.txt"
    if fileExist(dir$,file$) = 0 then goto [Z1]
    dataloadNAME$ = "data\save1.txt"
    if MenuMode = 2 then gosub [dataloadSECURITY2]
    if MenuMode = 1 then gosub [loadingSAVE]
    if language = 0 then print #saveMain.map, "backcolor black ; place 110 90 ;\"; "Race : " ; RaceSelectionSAVE$;"\Nombre planète : " ;nombre2planeteJ1;"\";yearSAVE ;" années "; mouthsSAVE; " mois et "; daysSAVE ;" jours"
    if language = 1 then print #saveMain.map, "backcolor black ; place 110 90 ;\"; "Race : " ; RaceSelectionSAVE$;"\Number of planet : " ;nombre2planeteJ1;"\";yearSAVE ;" années "; mouthsSAVE ; " mois et "; daysSAVE ;" jours"

    [Z1]
    file$ = "data\save2.txt"
    if fileExist(dir$,file$) = 0 then goto [Z2]
    dataloadNAME$ = "data\save2.txt"
    if MenuMode = 2 then gosub [dataloadSECURITY2]
    if MenuMode = 1 then gosub [loadingSAVE]
    if language = 0 then print #saveMain.map, "backcolor black ; place 110 150 ;\"; "Race : " ; RaceSelectionSAVE$;"\Nombre planète : " ;nombre2planeteJ1;"\";yearSAVE ;" années "; mouthsSAVE ; " mois et "; daysSAVE ;" jours"
    if language = 1 then print #saveMain.map, "backcolor black ; place 110 150 ;\"; "Race : " ; RaceSelectionSAVE$;"\Number of planet : " ;nombre2planeteJ1;"\";yearSAVE ;" années "; mouthsSAVE ; " mois et "; daysSAVE ;" jours"

    [Z2]
    file$ = "data\save3.txt"
    if fileExist(dir$,file$) = 0 then goto [Z3]
    dataloadNAME$ = "data\save3.txt"
    if MenuMode = 2 then gosub [dataloadSECURITY2]
    if MenuMode = 1 then gosub [loadingSAVE]
    if language = 0 then print #saveMain.map, "backcolor black ; place 110 210 ;\"; "Race : " ; RaceSelectionSAVE$;"\Nombre planète : " ;nombre2planeteJ1;"\";yearSAVE ;" années "; mouthsSAVE ; " mois et "; daysSAVE ;" jours"
    if language = 1 then print #saveMain.map, "backcolor black ; place 110 210 ;\"; "Race : " ; RaceSelectionSAVE$;"\Number of planet : " ;nombre2planeteJ1;"\";yearSAVE ;" années "; mouthsSAVE ; " mois et "; daysSAVE ;" jours"

    [Z3]
    file$ = "data\save4.txt"
    if fileExist(dir$,file$) = 0 then goto [Z4]
    dataloadNAME$ = "data\save4.txt"
    if MenuMode = 2 then gosub [dataloadSECURITY2]
    if MenuMode = 1 then gosub [loadingSAVE]
    if language = 0 then print #saveMain.map, "backcolor black ; place 110 270 ;\"; "Race : " ; RaceSelectionSAVE$;"\Nombre planète : " ;nombre2planeteJ1;"\";yearSAVE ;" années "; mouthsSAVE ; " mois et "; daysSAVE ;" jours"
    if language = 1 then print #saveMain.map, "backcolor black ; place 110 270 ;\"; "Race : " ; RaceSelectionSAVE$;"\Number of planet : " ;nombre2planeteJ1;"\";yearSAVE ;" années "; mouthsSAVE ; " mois et "; daysSAVE ;" jours"

    [Z4]
    file$ = "data\save5.txt"
    if fileExist(dir$,file$) = 0 then goto [Z5]
    dataloadNAME$ = "data\save5.txt"
    if MenuMode = 2 then gosub [dataloadSECURITY2]
    if MenuMode = 1 then gosub [loadingSAVE]
    if language = 0 then print #saveMain.map, "backcolor black ; place 110 330 ;\"; "Race : " ; RaceSelectionSAVE$;"\Nombre planète : " ;nombre2planeteJ1;"\";yearSAVE ;" années "; mouthsSAVE ; " mois et "; daysSAVE ;" jours"
    if language = 1 then print #saveMain.map, "backcolor black ; place 110 330 ;\"; "Race : " ; RaceSelectionSAVE$;"\Number of planet : " ;nombre2planeteJ1;"\";yearSAVE ;" années "; mouthsSAVE ; " mois et "; daysSAVE ;" jours"

    [Z5]
    file$ = "data\save6.txt"
    if fileExist(dir$,file$) = 0 then goto [Z6]
    dataloadNAME$ = "data\save6.txt"
    if MenuMode = 2 then gosub [dataloadSECURITY2]
    if MenuMode = 1 then gosub [loadingSAVE]
    if language = 0 then print #saveMain.map, "backcolor black ; place 380 90 ;\"; "Race : " ; RaceSelectionSAVE$;"\Nombre planète : " ;nombre2planeteJ1;"\";yearSAVE ;" années "; mouthsSAVE ; " mois et "; daysSAVE ;" jours"
    if language = 1 then print #saveMain.map, "backcolor black ; place 380 90 ;\"; "Race : " ; RaceSelectionSAVE$;"\Number of planet : " ;nombre2planeteJ1;"\";yearSAVE ;" années "; mouthsSAVE ; " mois et "; daysSAVE ;" jours"

    [Z6]
    file$ = "data\save7.txt"
    if fileExist(dir$,file$) = 0 then goto [Z7]
    dataloadNAME$ = "data\save7.txt"
    if MenuMode = 2 then gosub [dataloadSECURITY2]
    if MenuMode = 1 then gosub [loadingSAVE]
    if language = 0 then print #saveMain.map, "backcolor black ; place 380 150 ;\"; "Race : " ; RaceSelectionSAVE$;"\Nombre planète : " ;nombre2planeteJ1;"\";yearSAVE ;" années "; mouthsSAVE ; " mois et "; daysSAVE ;" jours"
    if language = 1 then print #saveMain.map, "backcolor black ; place 380 150 ;\"; "Race : " ; RaceSelectionSAVE$;"\Number of planet : " ;nombre2planeteJ1;"\";yearSAVE ;" années "; mouthsSAVE ; " mois et "; daysSAVE ;" jours"

    [Z7]
    file$ = "data\save8.txt"
    if fileExist(dir$,file$) = 0 then goto [Z8]
    dataloadNAME$ = "data\save8.txt"
    if MenuMode = 2 then gosub [dataloadSECURITY2]
    if MenuMode = 1 then gosub [loadingSAVE]
    if language = 0 then print #saveMain.map, "backcolor black ; place 380 210 ;\"; "Race : " ; RaceSelectionSAVE$;"\Nombre planète : " ;nombre2planeteJ1;"\";yearSAVE ;" années "; mouthsSAVE ; " mois et "; daysSAVE ;" jours"
    if language = 1 then print #saveMain.map, "backcolor black ; place 380 210 ;\"; "Race : " ; RaceSelectionSAVE$;"\Number of planet : " ;nombre2planeteJ1;"\";yearSAVE ;" années "; mouthsSAVE ; " mois et "; daysSAVE ;" jours"

    [Z8]
    file$ = "data\save9.txt"
    if fileExist(dir$,file$) = 0 then goto [Z9]
    dataloadNAME$ = "data\save9.txt"
    if MenuMode = 2 then gosub [dataloadSECURITY2]
    if MenuMode = 1 then gosub [loadingSAVE]
    if language = 0 then print #saveMain.map, "backcolor black ; place 380 270 ;\"; "Race : " ; RaceSelectionSAVE$;"\Nombre planète : " ;nombre2planeteJ1;"\";yearSAVE ;" années "; mouthsSAVE ; " mois et "; daysSAVE ;" jours"
    if language = 1 then print #saveMain.map, "backcolor black ; place 380 270 ;\"; "Race : " ; RaceSelectionSAVE$;"\Number of planet : " ;nombre2planeteJ1;"\";yearSAVE ;" années "; mouthsSAVE ; " mois et "; daysSAVE ;" jours"

    [Z9]
    file$ = "data\save10.txt"
    if fileExist(dir$,file$) = 0 then goto [Z10]
    dataloadNAME$ = "data\save10.txt"
    if MenuMode = 2 then gosub [dataloadSECURITY2]
    if MenuMode = 1 then gosub [loadingSAVE]
    if language = 0 then print #saveMain.map, "backcolor black ; place 380 330 ;\"; "Race : " ; RaceSelectionSAVE$;"\Nombre planète : " ;nombre2planeteJ1;"\";yearSAVE ;" années "; mouthsSAVE ; " mois et "; daysSAVE ;" jours"
    if language = 1 then print #saveMain.map, "backcolor black ; place 380 330 ;\"; "Race : " ; RaceSelectionSAVE$;"\Number of planet : " ;nombre2planeteJ1;"\";yearSAVE ;" années "; mouthsSAVE ; " mois et "; daysSAVE ;" jours"
    [Z10]
    #saveMain.map, "setfocus; when leftButtonDown [SimpleClickSAVE]"

    if MenuMode = 3 then game$ = "off" : MenuMode = 2
    wait


function fileExist(dir$,file$)
    dim info$(10, 10)
    files dir$,file$, info$(
    if val(info$(0, 0)) > 0 then
        fileExist = 1
    else
        fileExist = 0
    end if
end function


    [Qsave]
    close #saveMain : saveMain = 0 : MenuMode = 3 : wait

    [SimpleClickSAVE]
    mX = MouseX : mY = MouseY
    if mX>50 and mX<90 and mY>80 and mY<120 then
        if MenuMode = 2 and gameStartini = 0 then
            dir$ = "" : file$ = "data\save1.txt"
            if fileExist(dir$,file$) = 0 then wait
            dataloadNAME$ = "data\save1.txt"
            game$ = "off"
            goto [load]
        end if
        if MenuMode = 1 then dataloadNAME$ = "data\save1.txt" : saveMain=0 : goto [save]
    end if
    if mX>50 and mX<90 and mY>140 and mY<180 then
        if MenuMode = 2 and gameStartini = 0 then
            dir$ = "" : file$ = "data\save2.txt"
            if fileExist(dir$,file$) = 0 then wait
            dataloadNAME$ = "data\save2.txt"
            game$ = "off"
            goto [loading1]
        end if
        if MenuMode = 1 then dataloadNAME$ = "data\save2.txt" : saveMain=0 : goto [save]
    end if
    if mX>50 and mX<90 and mY>200 and mY<240 then
        if MenuMode = 2 and gameStartini = 0 then
            dir$ = "" : file$ = "data\save3.txt"
            if fileExist(dir$,file$) = 0 then wait
            dataloadNAME$ = "data\save3.txt"
            game$ = "off"
            goto [load]
        end if
        if MenuMode = 1 then dataloadNAME$ = "data\save3.txt" : saveMain=0 : goto [save]
    end if
    if mX>50 and mX<90 and mY>260 and mY<300 then
        if MenuMode = 2 and gameStartini = 0 then
            dir$ = "" : file$ = "data\save4.txt"
            if fileExist(dir$,file$) = 0 then wait
            dataloadNAME$ = "data\save4.txt"
            game$ = "off"
            goto [load]
        end if
        if MenuMode = 1 then dataloadNAME$ = "data\save4.txt" : saveMain=0 : goto [save]
    end if
    if mX>50 and mX<90 and mY>320 and mY<360 then
        if MenuMode = 2 and gameStartini = 0 then
            dir$ = "" : file$ = "data\save5.txt"
            if fileExist(dir$,file$) = 0 then wait
            dataloadNAME$ = "data\save5.txt"
            game$ = "off"
            goto [load]
        end if
        if MenuMode = 1 then dataloadNAME$ = "data\save5.txt" : saveMain=0 : goto [save]
    end if

    if mX>315 and mX<355 and mY>80 and mY<120 then
        if MenuMode = 2 and gameStartini = 0 then
            dir$ = "" : file$ = "data\save6.txt"
            if fileExist(dir$,file$) = 0 then wait
            dataloadNAME$ = "data\save6.txt"
            game$ = "off"
            goto [load]
        end if
        if MenuMode = 1 then dataloadNAME$ = "data\save6.txt" : saveMain=0 : goto [save]
    end if
    if mX>315 and mX<355 and mY>140 and mY<180 then
        if MenuMode = 2 and gameStartini = 0 then
            dir$ = "" : file$ = "data\save7.txt"
            if fileExist(dir$,file$) = 0 then wait
            dataloadNAME$ = "data\save7.txt"
            game$ = "off"
            goto [load]
        end if
        if MenuMode = 1 then dataloadNAME$ = "data\save7.txt" : saveMain=0 : goto [save]
    end if
    if mX>315 and mX<355 and mY>200 and mY<240 then
        if MenuMode = 2 and gameStartini = 0 then
            dir$ = "" : file$ = "data\save8.txt"
            if fileExist(dir$,file$) = 0 then wait
            dataloadNAME$ = "data\save8.txt"
            game$ = "off"
            goto [load]
        end if
        if MenuMode = 1 then dataloadNAME$ = "data\save8.txt" : saveMain=0 : goto [save]
    end if
    if mX>315 and mX<355 and mY>260 and mY<300 then
        if MenuMode = 2 and gameStartini = 0 then
            dir$ = "" : file$ = "data\save9.txt"
            if fileExist(dir$,file$) = 0 then wait
            dataloadNAME$ = "data\save9.txt"
            game$ = "off"
            goto [load]
        end if
        if MenuMode = 1 then dataloadNAME$ = "data\save9.txt" : saveMain=0 : goto [save]
    end if
    if mX>315 and mX<355 and mY>320 and mY<360 then
        if MenuMode = 2 and gameStartini = 0 then
            dir$ = "" : file$ = "data\save10.txt"
            if fileExist(dir$,file$) = 0 then wait
            dataloadNAME$ = "data\save10.txt"
            game$ = "off"
            goto [load]
        end if
        if MenuMode = 1 then dataloadNAME$ = "data\save10.txt" : saveMain=0 : goto [save]
    end if

    if mX>30 and mX<45 and mY>85 and mY<100 then
        dir$ = "" : file$ = "data\save1.txt"
        if fileExist(dir$,file$) = 0 then wait
        if language = 0 then confirm "Êtes-vous sûre de vouloir supprimer cette sauvegarde ?";quit$
        if language = 1 then confirm "Are you sure that you want to delete this saved game ?";quit$
        if quit$ = "no" then wait
        kill "data\save1.txt"
        close #saveMain
        saveMain = 0
        goto [saveMain]
    end if
    if mX>50 and mX<90 and mY>80 and mY<120 and MenuMode = 2 and gameStartini = 1 then
        dir$ = "" : file$ = "data\save1.txt"
        if fileExist(dir$,file$) = 0 then wait
        dataloadNAME$ = "data\save1.txt"
        goto [load]
    end if

    if mX>30 and mX<45 and mY>145 and mY<160 then
        dir$ = "" : file$ = "data\save2.txt"
        if fileExist(dir$,file$) = 0 then wait
        if language = 0 then confirm "Êtes-vous sûre de vouloir supprimer cette sauvegarde ?";quit$
        if language = 1 then confirm "Are you sure that you want to delete this saved game ?";quit$
        if quit$ = "no" then wait
        kill "data\save2.txt"
        close #saveMain
        saveMain = 0
        goto [saveMain]
    end if
    if mX>50 and mX<90 and mY>140 and mY<180 and MenuMode = 2 and gameStartini = 1 then
        dir$ = "" : file$ = "data\save2.txt"
        if fileExist(dir$,file$) = 0 then wait
        dataloadNAME$ = "data\save2.txt"
        goto [load]
    end if

    if mX>30 and mX<45 and mY>205 and mY<220 then
        dir$ = "" : file$ = "data\save3.txt"
        if fileExist(dir$,file$) = 0 then wait
        if language = 0 then confirm "Êtes-vous sûre de vouloir supprimer cette sauvegarde ?";quit$
        if language = 1 then confirm "Are you sure that you want to delete this saved game ?";quit$
        if quit$ = "no" then wait
        kill "data\save3.txt"
        close #saveMain
        saveMain = 0
        goto [saveMain]
    end if
    if mX>50 and mX<90 and mY>200 and mY<240 and MenuMode = 2 and gameStartini = 1 then
        dir$ = "" : file$ = "data\save3.txt"
        if fileExist(dir$,file$) = 0 then wait
        dataloadNAME$ = "data\save3.txt"
        goto [load]
    end if

    if mX>30 and mX<45 and mY>265 and mY<280 then
        dir$ = "" : file$ = "data\save4.txt"
        if fileExist(dir$,file$) = 0 then wait
        if language = 0 then confirm "Êtes-vous sûre de vouloir supprimer cette sauvegarde ?";quit$
        if language = 1 then confirm "Are you sure that you want to delete this saved game ?";quit$
        if quit$ = "no" then wait
        kill "data\save4.txt"
        close #saveMain
        saveMain = 0
        goto [saveMain]
    end if
    if mX>50 and mX<90 and mY>260 and mY<300 and MenuMode = 2 and gameStartini = 1 then
        dir$ = "" : file$ = "data\save4.txt"
        if fileExist(dir$,file$) = 0 then wait
        dataloadNAME$ = "data\save4.txt"
        goto [load]
    end if

    if mX>30 and mX<45 and mY>325 and mY<340 then
        dir$ = "" : file$ = "data\save5.txt"
        if fileExist(dir$,file$) = 0 then wait
        if language = 0 then confirm "Êtes-vous sûre de vouloir supprimer cette sauvegarde ?";quit$
        if language = 1 then confirm "Are you sure that you want to delete this saved game ?";quit$
        if quit$ = "no" then wait
        kill "data\save5.txt"
        close #saveMain
        saveMain = 0
        goto [saveMain]
    end if
    if mX>50 and mX<90 and mY>320 and mY<360 and MenuMode = 2 and gameStartini = 1 then
        dir$ = "" : file$ = "data\save5.txt"
        if fileExist(dir$,file$) = 0 then wait
        dataloadNAME$ = "data\save5.txt"
        goto [load]
    end if

    if mX>300 and mX<315 and mY>85 and mY<100 then
        dir$ = "" : file$ = "data\save6.txt"
        if fileExist(dir$,file$) = 0 then wait
        if language = 0 then confirm "Êtes-vous sûre de vouloir supprimer cette sauvegarde ?";quit$
        if language = 1 then confirm "Are you sure that you want to delete this saved game ?";quit$
        if quit$ = "no" then wait
        kill "data\save6.txt"
        close #saveMain
        saveMain = 0
        goto [saveMain]
    end if
    if mX>315 and mX<355 and mY>80 and mY<120 and MenuMode = 2 and gameStartini = 1 then
        dir$ = "" : file$ = "data\save6.txt"
        if fileExist(dir$,file$) = 0 then wait
        dataloadNAME$ = "data\save6.txt"
        goto [load]
    end if

    if mX>300 and mX<315 and mY>145 and mY<160 then
        dir$ = "" : file$ = "data\save7.txt"
        if fileExist(dir$,file$) = 0 then wait
        if language = 0 then confirm "Êtes-vous sûre de vouloir supprimer cette sauvegarde ?";quit$
        if language = 1 then confirm "Are you sure that you want to delete this saved game ?";quit$
        if quit$ = "no" then wait
        kill "data\save7.txt"
        close #saveMain
        saveMain = 0
        goto [saveMain]
    end if
    if mX>315 and mX<355 and mY>140 and mY<180 and MenuMode = 2 and gameStartini = 1 then
        dir$ = "" : file$ = "data\save7.txt"
        if fileExist(dir$,file$) = 0 then wait
        dataloadNAME$ = "data\save7.txt"
        goto [load]
    end if

    if mX>300 and mX<315 and mY>205 and mY<220 then
        dir$ = "" : file$ = "data\save8.txt"
        if fileExist(dir$,file$) = 0 then wait
        if language = 0 then confirm "Êtes-vous sûre de vouloir supprimer cette sauvegarde ?";quit$
        if language = 1 then confirm "Are you sure that you want to delete this saved game ?";quit$
        if quit$ = "no" then wait
        kill "data\save8.txt"
        close #saveMain
        saveMain = 0
        goto [saveMain]
    end if
    if mX>315 and mX<355 and mY>200 and mY<240 and MenuMode = 2 and gameStartini = 1 then
        dir$ = "" : file$ = "data\save8.txt"
        if fileExist(dir$,file$) = 0 then wait
        dataloadNAME$ = "data\save8.txt"
        goto [load]
    end if

    if mX>300 and mX<315 and mY>265 and mY<280 then
        dir$ = "" : file$ = "data\save9.txt"
        if fileExist(dir$,file$) = 0 then wait
        if language = 0 then confirm "Êtes-vous sûre de vouloir supprimer cette sauvegarde ?";quit$
        if language = 1 then confirm "Are you sure that you want to delete this saved game ?";quit$
        if quit$ = "no" then wait
        kill "data\save9.txt"
        close #saveMain
        saveMain = 0
        goto [saveMain]
    end if
    if mX>315 and mX<355 and mY>260 and mY<300 and MenuMode = 2 and gameStartini = 1 then
        dir$ = "" : file$ = "data\save9.txt"
        if fileExist(dir$,file$) = 0 then wait
        dataloadNAME$ = "data\save9.txt"
        goto [load]
    end if

    if mX>300 and mX<315 and mY>325 and mY<340 then
        dir$ = "" : file$ = "data\save10.txt"
        if fileExist(dir$,file$) = 0 then wait
        if language = 0 then confirm "Êtes-vous sûre de vouloir supprimer cette sauvegarde ?";quit$
        if language = 1 then confirm "Are you sure that you want to delete this saved game ?";quit$
        if quit$ = "no" then wait
        kill "data\save10.txt"
        close #saveMain
        saveMain = 0
        goto [saveMain]
    end if
    if mX>315 and mX<355 and mY>320 and mY<360 and MenuMode = 2 and gameStartini = 1 then
        dir$ = "" : file$ = "data\save10.txt"
        if fileExist(dir$,file$) = 0 then wait
        dataloadNAME$ = "data\save10.txt"
        goto [load]
    end if
    print #saveMain.map, "flush"
    wait


[dataloadTEMP]
dataloadNAME$ = "data\TEMP.txt"
gosub [inputDATA]
RaceSelection$ = RaceSelectionSAVE$ : year = yearSAVE : mouths = mouthsSAVE : days = daysSAVE
return

[dataloadSECURITY2]
open dataloadNAME$ for input as #save
input #save, RaceSelectionSAVE$
input #save, nombre2planeteJ1
input #save, yearSAVE
input #save, mouthsSAVE
input #save, daysSAVE
CLOSE #save
return

[dataloadSECURITY]
gosub [inputDATA]
RaceSelection$ = RaceSelectionSAVE$ : year = yearSAVE : mouths = mouthsSAVE : days = daysSAVE
return


[dataUNITfightPERSO]
offHommedarme = 12 + INT((3*hommeDarmeUPGRADE1)+(6*hommeDarmeUPGRADE2)+(10*hommeDarmeUPGRADE3))
defHommedarme = 1 + INT((1*hommeDarmeUPGRADE1)+(1*hommeDarmeUPGRADE2)+(2*hommeDarmeUPGRADE3))
vieHommedarme = 37 + INT((3*hommeDarmeUPGRADE1)+(10*hommeDarmeUPGRADE2)+(22*hommeDarmeUPGRADE3))
offlancier = 14 + INT((5*lancierUPGRADE1)+(9*lancierUPGRADE2)+(17*lancierUPGRADE3))
deflancier = 2 + INT((1*lancierUPGRADE1)+(1*lancierUPGRADE2)+(1*lancierUPGRADE3))
vielancier = 32 + INT((2*lancierUPGRADE1)+(6*lancierUPGRADE2)+(10*lancierUPGRADE3))
offfrondeur = 38 + INT((8*frondeurUPGRADE1)+(16*frondeurUPGRADE2)+(30*frondeurUPGRADE3))
deffrondeur = 1 + INT((0*frondeurUPGRADE1)+(0*frondeurUPGRADE2)+(1*frondeurUPGRADE3))
viefrondeur = 18 + INT((2*frondeurUPGRADE1)+(5*frondeurUPGRADE2)+(8*frondeurUPGRADE3))
offarcher = 12 + INT((4*archerUPGRADE1)+(5*archerUPGRADE2)+(9*archerUPGRADE3))
defarcher = 2 + INT((1*archerUPGRADE1)+(1*archerUPGRADE2)+(3*archerUPGRADE3))
viearcher = 24 + INT((6*archerUPGRADE1)+(9*archerUPGRADE2)+(15*archerUPGRADE3))
offEXPLORATEUR = 8 + int(1*explorateurUPGRADE)
defEXPLORATEUR = 3 + int(1*explorateurUPGRADE)
vieEXPLORATEUR = 25 + int(3*explorateurUPGRADE)
offcitoyen = 3 + UPcitoyen1a
defcitoyen = 0 + UPcitoyen1b
viecitoyen = 10 + UPcitoyen1c
offscientifique = 4 + UPscientifiq1a
defscientifique = 1 + UPscientifiq1b
viescientifique = 12 + UPscientifiq1c

    offHommedarmeIAm2 = 12 + ( 2*lvlbatimentFortificationsIAm2)
    defHommedarmeIAm2 = 3 + lvlbatimentFortificationsIAm2
    vieHommedarmeIAm2 = 37 + ( 5*lvlbatimentFortificationsIAm2)
    offlancierIAm2 = 19 + (2*lvlbatimentFortificationsIAm2)
    deflancierIAm2 = 2 + lvlbatimentFortificationsIAm2
    vielancierIAm2 = 33 + (3*lvlbatimentFortificationsIAm2)
    offfrondeurIAm2 = 38 + (5*lvlbatimentFortificationsIAm2)
    defFrondeurIAm2 = 1 + lvlbatimentFortificationsIAm2
    viefrondeurIAm2 = 18 + (1*lvlbatimentFortificationsIAm2)
    offarcherIAm2 = 12 + (3*lvlbatimentFortificationsIAm2)
    defarcherIAm2 = 2 + lvlbatimentFortificationsIAm2
    viearcherIAm2 = 24 + (3*lvlbatimentFortificationsIAm2)


    offHommedarmeIAm1 = 12 + ( 2*lvlbatimentFortificationsIAm1)
    defHommedarmeIAm1 = 3 + lvlbatimentFortificationsIAm1
    vieHommedarmeIAm1 = 37 + ( 5*lvlbatimentFortificationsIAm1)
    offlancierIAm1 = 19 + (2*lvlbatimentFortificationsIAm1)
    deflancierIAm1 = 2 + lvlbatimentFortificationsIAm1
    vielancierIAm1 = 33 + (3*lvlbatimentFortificationsIAm1)
    offfrondeurIAm1 = 38 + (5*lvlbatimentFortificationsIAm1)
    defFrondeurIAm1 = 1 + lvlbatimentFortificationsIAm1
    viefrondeurIAm1 = 18 + (1*lvlbatimentFortificationsIAm1)
    offarcherIAm1 = 12 + (3*lvlbatimentFortificationsIAm1)
    defarcherIAm1 = 2 + lvlbatimentFortificationsIAm1
    viearcherIAm1 = 24 + (3*lvlbatimentFortificationsIAm1)

return


'quand vous attaquez l'IA 1 (REFAIT)

[boucleDEFia1A]
hpFortificationsIAm1TEMP = hpFortificationsIAm1
gosub [dataUNITfightPERSO]
offcitoyenIAm1 = 3
defcitoyenIAm1 = 0
viecitoyenIAm1 = 10
offscientifiqueIAm1 = 4
defscientifiqueIAm1 = 1
viescientifiqueIAm1 = 12
NombreCitoyenIAm1 = popTOTALIAm1-(popSCIENTIAm1+popMILITIAm1)

'notice popCIVIL ;" : ";popTOTAL

NombreTROUPE = 0
if NombreHommeDarmeSELECTED >= 1 then NombreTROUPE = NombreTROUPE + 1
if NombreLancierSELECTED >= 1 then NombreTROUPE = NombreTROUPE + 1
if NombreFrondeurSELECTED >= 1 then NombreTROUPE = NombreTROUPE + 1
if NombreArcherSELECTED >= 1 then NombreTROUPE = NombreTROUPE + 1
if NombreEXPLORATEURSELECTED >= 1 then NombreTROUPE = NombreTROUPE + 1
if NombreTROUPE = 0 then wait
NombreHommeDarmeTEMP = NombreHommeDarmeSELECTED
NombreLancierTEMP = NombreLancierSELECTED
NombreFrondeurTEMP = NombreFrondeurSELECTED
NombreArcherTEMP = NombreArcherSELECTED
NombreEXPLORATEURTEMP = NombreEXPLORATEURSELECTED

NombreTROUPEiam1 = 0 : NombreCitoyenTEMP = 0
if NombreHommeDarmeIAm1 >= 1 and int(NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED) >=1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
if NombreLancierIAm1 >= 1 and int(NombreLancierIAm1-NombreLancierIAm1SELECTED) >=1  then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
if NombreFrondeurIAm1 >= 1 and int(NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED) >=1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
if NombreArcherIAm1 >= 1 and int(NombreArcherIAm1-NombreArcherIAm1SELECTED) >=1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
if NombreCitoyenIAm1 >0 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
if popSCIENTIAm1 > 0 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
NombreHommeDarmeIAm1TEMP = NombreHommeDarmeIAm1 - NombreHommeDarmeIAm1SELECTED
NombreLancierIAm1TEMP = NombreLancierIAm1 - NombreLancierIAm1SELECTED
NombreFrondeurIAm1TEMP = NombreFrondeurIAm1 - NombreFrondeurIAm1SELECTED
NombreArcherIAm1TEMP = NombreArcherIAm1 - NombreArcherIAm1SELECTED
NombreCitoyenIAm1TEMP = NombreCitoyenIAm1
NombreScientIAm1TEMP = popSCIENTIAm1

[boucleDEFia1B]
A = hpFortificationsIAm1
B1 = (defHommedarmeIAm1* (1+lvlbatimentFortificationsIAm1*0.02))
B2 = (deflancierIAm1* (1+lvlbatimentFortificationsIAm1*0.02))
B3 = (defFrondeurIAm1* (1+lvlbatimentFortificationsIAm1*0.02))
B4 = (defarcherIAm1* (1+lvlbatimentFortificationsIAm1*0.02))
B5 = (defcitoyenIAm1* (1+lvlbatimentFortificationsIAm1*0.02))
B6 = (defscientifiqueIAm1* (1+lvlbatimentFortificationsIAm1*0.02))

F1 = (offHommedarmeIAm1*NombreHommeDarmeIAm1)
F2 = (offlancierIAm1*NombreLancierIAm1)
F3 = (offfrondeurIAm1*NombreFrondeurIAm1)
F4 = (offarcherIAm1*NombreArcherIAm1)
F5 = (offcitoyenIAm1*NombreCitoyenIAm1)
F6 = (offscientifiqueIAm1*popSCIENTIAm1)

D1 = ((vieHommedarmeIAm1+B1)*NombreHommeDarmeIAm1) ' - E
D2 = ((vielancierIAm1+B2)*NombreLancierIAm1) ' - E
D3 = ((viefrondeurIAm1+B3)*NombreFrondeurIAm1) ' - E
D4 = ((viearcherIAm1+B4)*NombreArcherIAm1) ' - E
D5 = ((viecitoyenIAm1+B5)*NombreCitoyenIAm1) ' - E
D6 = ((viescientifiqueIAm1+B6)*popSCIENTIAm1) ' - E

E1 = (offHommedarme*NombreHommeDarmeSELECTED)
E2 = (offlancier*NombreLancierSELECTED)
E3 = (offfrondeur*NombreFrondeurSELECTED)
E4 = (offarcher*NombreArcherSELECTED)
E5 = (offEXPLORATEUR*NombreEXPLORATEURSELECTED)

C1 = ((vieHommedarme+defHommedarme)*NombreHommeDarmeSELECTED) ' - F
C2 = ((vielancier+deflancier)*NombreLancierSELECTED) ' - F
C3 = ((viefrondeur+deffrondeur)*NombreFrondeurSELECTED) ' - F
C4 = ((viearcher+defarcher)*NombreArcherSELECTED) ' - F
C5 = ((vieEXPLORATEUR+defEXPLORATEUR)*NombreEXPLORATEURSELECTED) ' - F

fight1a = int(A-(E1+E2+E3+E4+E5)) ' les fortifications encaissent les degats
if fight1a > 0 then hpFortificationsIAm1 = int(fight1a)
if hpFortificationsIAm1 > hpFortificationsIAm1TEMP then hpFortificationsIAm1 = hpFortificationsIAm1TEMP
if hpFortificationsIAm1 < 0 then hpFortificationsIAm1 = 0

if fight1a >= 0 then
    if fight1a = 0 then hpFortificationsIAm1 = 0 : lvlbatimentFortificationsIAm1 = 0
    fight1b = int(D1)
    fight1c = int(D2)
    fight1d = int(D3)
    fight1e = int(D4)
    fight1f = int(D5)
    fight1g = int(D6)
end if
if fight1a < 0 then
    E = fight1a : hpFortificationsIAm1 = 0 : lvlbatimentFortificationsIAm1 = 0
    if NombreTROUPEiam1 <= 0 then NombreTROUPEiam1 = 1
    fight1b = int(D1 + (E/NombreTROUPEiam1))
    fight1c = int(D2 + (E/NombreTROUPEiam1))
    fight1d = int(D3 + (E/NombreTROUPEiam1))
    fight1e = int(D4 + (E/NombreTROUPEiam1))
    fight1f = int(D5 + (E/NombreTROUPEiam1))
    fight1g = int(D6 + (E/NombreTROUPEiam1))
end if
if NombreTROUPE <= 0 then NombreTROUPE = 1
fight2a = int(F1+F2+F3+F4+F5+F6) ' chargement des degats du joueur defensif
fight2b = int(C1-(fight2a/NombreTROUPE))
fight2c = int(C2-(fight2a/NombreTROUPE))
fight2d = int(C3-(fight2a/NombreTROUPE))
fight2e = int(C4-(fight2a/NombreTROUPE))
fight2f = int(C5-(fight2a/NombreTROUPE))

if (NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED) > 0 then
    NombreHommeDarmeIAm1 = int(fight1b/(vieHommedarmeIAm1+B1))
    if NombreHommeDarmeIAm1 < 0 then NombreHommeDarmeIAm1 = 0
    if NombreHommeDarmeIAm1 > int(NombreHommeDarmeIAm1TEMP+NombreHommeDarmeIAm1SELECTED) then NombreHommeDarmeIAm1 = int(NombreHommeDarmeIAm1TEMP+NombreHommeDarmeIAm1SELECTED)
end if
if (NombreLancierIAm1-NombreLancierIAm1SELECTED) > 0 then
    NombreLancierIAm1 = int(fight1c/(vielancierIAm1+B2))
    if NombreLancierIAm1 < 0 then NombreLancierIAm1 = 0
    if  NombreLancierIAm1 > int(NombreLancierIAm1TEMP+NombreLancierIAm1SELECTED) then NombreLancierIAm1 = int(NombreLancierIAm1TEMP+NombreLancierIAm1SELECTED)
end if
if (NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED) > 0 then
    NombreFrondeurIAm1 = int(fight1d/(viefrondeurIAm1+B3))
    if NombreFrondeurIAm1 < 0 then NombreFrondeurIAm1 = 0
    if NombreFrondeurIAm1 > int(NombreFrondeurIAm1TEMP+NombreFrondeurIAm1SELECTED) then NombreFrondeurIAm1 = int(NombreFrondeurIAm1TEMP+NombreFrondeurIAm1SELECTED)
end if
if (NombreArcherIAm1TEMP-NombreArcherIAm1SELECTED) > 0 then
    NombreArcherIAm1 = int(fight1e/(viearcherIAm1+B4))
    if NombreArcherIAm1 < 0 then NombreArcherIAm1 = 0
    if NombreArcherIAm1 > int(NombreArcherIAm1TEMP+NombreArcherIAm1SELECTED) then NombreArcherIAm1 = int(NombreArcherIAm1TEMP+NombreArcherIAm1SELECTED)
end if
if NombreCitoyenIAm1 > 0 then
    NombreCitoyenIAm1 = int(fight1f/(viecitoyenIAm1+B5))
    if NombreCitoyenIAm1 < 0 then NombreCitoyenIAm1 = 0
    if NombreCitoyenIAm1 > NombreCitoyenIAm1TEMP then NombreCitoyenIAm1 = NombreCitoyenIAm1TEMP
end if
if popSCIENTIAm1 > 0 then
    popSCIENTIAm1 = int(fight1g/(viescientifiqueIAm1+B6))
    if popSCIENTIAm1 < 0 then popSCIENTIAm1 = 0
    if popSCIENTIAm1 > NombreScientIAm1TEMP then popSCIENTIAm1 = NombreScientIAm1TEMP
end if

if NombreHommeDarmeSELECTED > 0 then
    NombreHommeDarmeSELECTED = int(fight2b/(vieHommedarme+defHommedarme))
    if NombreHommeDarmeSELECTED < 0 then NombreHommeDarmeSELECTED = 0
    if NombreHommeDarmeSELECTED > NombreHommeDarmeTEMP then NombreHommeDarmeSELECTED = NombreHommeDarmeTEMP
end if
if NombreLancierSELECTED > 0 then
    NombreLancierSELECTED = int(fight2c/(vielancier+deflancier))
    if NombreLancierSELECTED < 0 then NombreLancierSELECTED = 0
    if NombreLancierSELECTED > NombreLancierTEMP then NombreLancierSELECTED = NombreLancierTEMP
end if
if NombreFrondeurSELECTED > 0 then
    NombreFrondeurSELECTED = int(fight2d/(viefrondeur+deffrondeur))
    if NombreFrondeurSELECTED < 0 then NombreFrondeurSELECTED = 0
    if NombreFrondeurSELECTED > NombreFrondeurTEMP then NombreFrondeurSELECTED = NombreFrondeurTEMP
end if
if NombreArcherSELECTED > 0 then
    NombreArcherSELECTED = int(fight2e/(viearcher+defarcher))
    if NombreArcherSELECTED < 0 then NombreArcherSELECTED = 0
    if NombreArcherSELECTED > NombreArcherTEMP then NombreArcherSELECTED = NombreArcherTEMP
end if
if NombreEXPLORATEURSELECTED > 0 then
    NombreEXPLORATEURSELECTED = int(fight2f/(vieEXPLORATEUR+defEXPLORATEUR))
    if NombreEXPLORATEURSELECTED < 0 then NombreEXPLORATEURSELECTED = 0
    if NombreEXPLORATEURSELECTED > NombreEXPLORATEURTEMP then NombreEXPLORATEURSELECTED = NombreEXPLORATEURTEMP
end if

if NombreHommeDarmeSELECTED <= 0 and NombreEXPLORATEURSELECTED <= 0 and NombreLancierSELECTED <= 0 and NombreFrondeurSELECTED <= 0 and NombreArcherSELECTED <= 0 then fight1 = 0
if NombreHommeDarmeSELECTED > 0 or NombreEXPLORATEURSELECTED > 0 or NombreLancierSELECTED > 0 or NombreFrondeurSELECTED > 0 or NombreArcherSELECTED > 0 then fight1 = 1
if int(NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED) <= 0 and int(NombreLancierIAm1-NombreLancierIAm1SELECTED) <= 0 and int(NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED) <= 0 and int(NombreArcherIAm1-NombreArcherIAm1SELECTED) <= 0 then fight2 = 0
if int(NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED) > 0 or int(NombreLancierIAm1-NombreLancierIAm1SELECTED) > 0 or int(NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED) > 0 or int(NombreArcherIAm1-NombreArcherIAm1SELECTED) > 0 or NombreCitoyenIAm1 > 0 or popSCIENTIAm1 > 0 then fight2 = 1
if fight1 > 0 and fight2 > 0 then goto [boucleDEFia1B]

hpFortificationsIAm1 = 0 : hpFortificationsIAm1TEMP2 = 0

perteHOMMEdarmeIAm1 = int(NombreHommeDarmeIAm1TEMP-(NombreHommeDarmeIAm1-NombreHommeDarmeIAm1SELECTED))
perteLANCIERIAm1 = int(NombreLancierIAm1TEMP-(NombreLancierIAm1-NombreLancierIAm1SELECTED))
perteFRONDEURIAm1 = int(NombreFrondeurIAm1TEMP-(NombreFrondeurIAm1-NombreFrondeurIAm1SELECTED))
perteARCHERIAm1 = int(NombreArcherIAm1TEMP-(NombreArcherIAm1-NombreArcherIAm1SELECTED))

if perteHOMMEdarmeIAm1<0 then perteHOMMEdarmeIAm1 = 0
if perteLANCIERIAm1<0 then perteLANCIERIAm1 = 0
if perteFRONDEURIAm1<0 then perteFRONDEURIAm1 = 0
if perteARCHERIAm1<0 then perteARCHERIAm1 = 0

popMILITIAm1 = popMILITIAm1 - int(perteHOMMEdarmeIAm1+perteLANCIERIAm1+perteFRONDEURIAm1+perteARCHERIAm1)
popTOTALIAm1 = int((popSCIENTIAm1 +  popMILITIAm1 + NombreCitoyenIAm1))
if popTOTALIAm1 <0 then popTOTALIAm1 = 0

perteHOMMEdarme = int(NombreHommeDarmeTEMP-NombreHommeDarmeSELECTED)
perteLANCIER = int(NombreLancierTEMP-NombreLancierSELECTED)
perteFRONDEUR = int(NombreFrondeurTEMP-NombreFrondeurSELECTED)
perteARCHER = int(NombreArcherTEMP-NombreArcherSELECTED)
perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-NombreEXPLORATEURSELECTED)

if perteHOMMEdarme<0 then perteHOMMEdarme = 0
if perteLANCIER<0 then perteLANCIER = 0
if perteFRONDEUR<0 then perteFRONDEUR = 0
if perteARCHER<0 then perteARCHER = 0
if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0

popMILIT = popMILIT - int(perteHOMMEdarme+perteLANCIER+perteFRONDEUR+perteARCHER+perteEXPLORATEUR)
popCIVIL = popTOTAL - int(popMILIT+popSCIENT) - int(perteHOMMEdarme+perteLANCIER+perteFRONDEUR+perteARCHER+perteEXPLORATEUR)
popTOTAL = int(popSCIENT + popMILIT + popCIVIL)

NombreHommeDarme = NombreHommeDarme - perteHOMMEdarme
NombreLancier = NombreLancier - perteLANCIER
NombreFrondeur = NombreFrondeur - perteFRONDEUR
NombreArcher = NombreArcher - perteARCHER
NombreEXPLORATEUR = NombreEXPLORATEUR - perteEXPLORATEUR

NombreHommeDarmeSELECTED = 0
NombreLancierSELECTED = 0
NombreFrondeurSELECTED = 0
NombreArcherSELECTED = 0
NombreEXPLORATEURSELECTED = 0

if fight1 <= 0 then TEXTvictoire$ = "Défaite"
if fight2 <= 0 then TEXTvictoire$ = "Victoire"

foundedSECU = 0
'notice popCIVIL ;" : ";popTOTAL
goto [rapportBataille]



'quand vous attaquez l'IA 2 (REFAIT)

[boucleDEFia2A]
hpFortificationsIAm2TEMP = hpFortificationsIAm2
gosub [dataUNITfightPERSO]
offcitoyenIAm2 = 3
defcitoyenIAm2 = 0
viecitoyenIAm2 = 10
offscientifiqueIAm2 = 4
defscientifiqueIAm2 = 1
viescientifiqueIAm2 = 12
NombreCitoyenIAm2 = popTOTALIAm2-(popSCIENTIAm2+popMILITIAm2)

'notice popCIVIL ;" : ";popTOTAL

NombreTROUPE = 0
if NombreHommeDarmeSELECTED >= 1 then NombreTROUPE = NombreTROUPE + 1
if NombreLancierSELECTED >= 1 then NombreTROUPE = NombreTROUPE + 1
if NombreFrondeurSELECTED >= 1 then NombreTROUPE = NombreTROUPE + 1
if NombreArcherSELECTED >= 1 then NombreTROUPE = NombreTROUPE + 1
if NombreEXPLORATEURSELECTED >= 1 then NombreTROUPE = NombreTROUPE + 1
if NombreTROUPE = 0 then wait
NombreHommeDarmeTEMP = NombreHommeDarmeSELECTED
NombreLancierTEMP = NombreLancierSELECTED
NombreFrondeurTEMP = NombreFrondeurSELECTED
NombreArcherTEMP = NombreArcherSELECTED
NombreEXPLORATEURTEMP = NombreEXPLORATEURSELECTED

NombreTROUPEiam2 = 0 : NombreCitoyenTEMP = 0
if NombreHommeDarmeIAm2 >= 1 and int(NombreHommeDarmeIAm2-NombreHommeDarmeIAm2SELECTED) >=1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
if NombreLancierIAm2 >= 1 and int(NombreLancierIAm2-NombreLancierIAm2SELECTED) >=1  then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
if NombreFrondeurIAm2 >= 1 and int(NombreFrondeurIAm2-NombreFrondeurIAm2SELECTED) >=1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
if NombreArcherIAm2 >= 1 and int(NombreArcherIAm2-NombreArcherIAm2SELECTED) >=1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
if NombreCitoyenIAm2 >0 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
if popSCIENTIAm2 > 0 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
NombreHommeDarmeIAm2TEMP = NombreHommeDarmeIAm2 - NombreHommeDarmeIAm2SELECTED
NombreLancierIAm2TEMP = NombreLancierIAm2 - NombreLancierIAm2SELECTED
NombreFrondeurIAm2TEMP = NombreFrondeurIAm2 - NombreFrondeurIAm2SELECTED
NombreArcherIAm2TEMP = NombreArcherIAm2 - NombreArcherIAm2SELECTED
NombreCitoyenIAm2TEMP = NombreCitoyenIAm2
NombreScientIAm2TEMP = popSCIENTIAm2

[boucleDEFia2B]
A = hpFortificationsIAm2
B1 = (defHommedarmeIAm2* (1+lvlbatimentFortificationsIAm2*0.02))
B2 = (deflancierIAm2* (1+lvlbatimentFortificationsIAm2*0.02))
B3 = (defFrondeurIAm2* (1+lvlbatimentFortificationsIAm2*0.02))
B4 = (defarcherIAm2* (1+lvlbatimentFortificationsIAm2*0.02))
B5 = (defcitoyenIAm2* (1+lvlbatimentFortificationsIAm2*0.02))
B6 = (defscientifiqueIAm2* (1+lvlbatimentFortificationsIAm2*0.02))

F1 = (offHommedarmeIAm2*NombreHommeDarmeIAm2)
F2 = (offlancierIAm2*NombreLancierIAm2)
F3 = (offfrondeurIAm2*NombreFrondeurIAm2)
F4 = (offarcherIAm2*NombreArcherIAm2)
F5 = (offcitoyenIAm2*NombreCitoyenIAm2)
F6 = (offscientifiqueIAm2*popSCIENTIAm2)

D1 = ((vieHommedarmeIAm2+B1)*NombreHommeDarmeIAm2) ' - E
D2 = ((vielancierIAm2+B2)*NombreLancierIAm2) ' - E
D3 = ((viefrondeurIAm2+B3)*NombreFrondeurIAm2) ' - E
D4 = ((viearcherIAm2+B4)*NombreArcherIAm2) ' - E
D5 = ((viecitoyenIAm2+B5)*NombreCitoyenIAm2) ' - E
D6 = ((viescientifiqueIAm2+B6)*popSCIENTIAm2) ' - E

E1 = (offHommedarme*NombreHommeDarmeSELECTED)
E2 = (offlancier*NombreLancierSELECTED)
E3 = (offfrondeur*NombreFrondeurSELECTED)
E4 = (offarcher*NombreArcherSELECTED)
E5 = (offEXPLORATEUR*NombreEXPLORATEURSELECTED)

C1 = ((vieHommedarme+defHommedarme)*NombreHommeDarmeSELECTED) ' - F
C2 = ((vielancier+deflancier)*NombreLancierSELECTED) ' - F
C3 = ((viefrondeur+deffrondeur)*NombreFrondeurSELECTED) ' - F
C4 = ((viearcher+defarcher)*NombreArcherSELECTED) ' - F
C5 = ((vieEXPLORATEUR+defEXPLORATEUR)*NombreEXPLORATEURSELECTED) ' - F

fight1a = int(A-(E1+E2+E3+E4+E5)) ' les fortifications encaissent les degats
if fight1a > 0 then hpFortificationsIAm2 = int(fight1a)
if hpFortificationsIAm2 > hpFortificationsIAm2TEMP then hpFortificationsIAm2 = hpFortificationsIAm2TEMP
if hpFortificationsIAm2 < 0 then hpFortificationsIAm2 = 0

if fight1a >= 0 then
    if fight1a = 0 then hpFortificationsIAm2 = 0 : lvlbatimentFortificationsIAm2 = 0
    fight1b = int(D1)
    fight1c = int(D2)
    fight1d = int(D3)
    fight1e = int(D4)
    fight1f = int(D5)
    fight1g = int(D6)
end if
if fight1a < 0 then
    E = fight1a : hpFortificationsIAm2 = 0 : lvlbatimentFortificationsIAm2 = 0
    if NombreTROUPEiam2 <= 0 then NombreTROUPEiam2 = 1
    fight1b = int(D1 + (E/NombreTROUPEiam2))
    fight1c = int(D2 + (E/NombreTROUPEiam2))
    fight1d = int(D3 + (E/NombreTROUPEiam2))
    fight1e = int(D4 + (E/NombreTROUPEiam2))
    fight1f = int(D5 + (E/NombreTROUPEiam2))
    fight1g = int(D6 + (E/NombreTROUPEiam2))
end if
if NombreTROUPE <= 0 then NombreTROUPE = 1
fight2a = int(F1+F2+F3+F4+F5+F6) ' chargement des degats du joueur defensif
fight2b = int(C1-(fight2a/NombreTROUPE))
fight2c = int(C2-(fight2a/NombreTROUPE))
fight2d = int(C3-(fight2a/NombreTROUPE))
fight2e = int(C4-(fight2a/NombreTROUPE))
fight2f = int(C5-(fight2a/NombreTROUPE))

if (NombreHommeDarmeIAm2-NombreHommeDarmeIAm2SELECTED) > 0 then
    NombreHommeDarmeIAm2 = int(fight1b/(vieHommedarmeIAm2+B1))
    if NombreHommeDarmeIAm2 < 0 then NombreHommeDarmeIAm2 = 0
    if NombreHommeDarmeIAm2 > int(NombreHommeDarmeIAm2TEMP+NombreHommeDarmeIAm2SELECTED) then NombreHommeDarmeIAm2 = int(NombreHommeDarmeIAm2TEMP+NombreHommeDarmeIAm2SELECTED)
end if
if (NombreLancierIAm2-NombreLancierIAm2SELECTED) > 0 then
    NombreLancierIAm2 = int(fight1c/(vielancierIAm2+B2))
    if NombreLancierIAm2 < 0 then NombreLancierIAm2 = 0
    if  NombreLancierIAm2 > int(NombreLancierIAm2TEMP+NombreLancierIAm2SELECTED) then NombreLancierIAm2 = int(NombreLancierIAm2TEMP+NombreLancierIAm2SELECTED)
end if
if (NombreFrondeurIAm2-NombreFrondeurIAm2SELECTED) > 0 then
    NombreFrondeurIAm2 = int(fight1d/(viefrondeurIAm2+B3))
    if NombreFrondeurIAm2 < 0 then NombreFrondeurIAm2 = 0
    if NombreFrondeurIAm2 > int(NombreFrondeurIAm2TEMP+NombreFrondeurIAm2SELECTED) then NombreFrondeurIAm2 = int(NombreFrondeurIAm2TEMP+NombreFrondeurIAm2SELECTED)
end if
if (NombreArcherIAm2TEMP-NombreArcherIAm2SELECTED) > 0 then
    NombreArcherIAm2 = int(fight1e/(viearcherIAm2+B4))
    if NombreArcherIAm2 < 0 then NombreArcherIAm2 = 0
    if NombreArcherIAm2 > int(NombreArcherIAm2TEMP+NombreArcherIAm2SELECTED) then NombreArcherIAm2 = int(NombreArcherIAm2TEMP+NombreArcherIAm2SELECTED)
end if
if NombreCitoyenIAm2 > 0 then
    NombreCitoyenIAm2 = int(fight1f/(viecitoyenIAm2+B5))
    if NombreCitoyenIAm2 < 0 then NombreCitoyenIAm2 = 0
    if NombreCitoyenIAm2 > NombreCitoyenIAm2TEMP then NombreCitoyenIAm2 = NombreCitoyenIAm2TEMP
end if
if popSCIENTIAm2 > 0 then
    popSCIENTIAm2 = int(fight1g/(viescientifiqueIAm2+B6))
    if popSCIENTIAm2 < 0 then popSCIENTIAm2 = 0
    if popSCIENTIAm2 > NombreScientIAm2TEMP then popSCIENTIAm2 = NombreScientIAm2TEMP
end if

if NombreHommeDarmeSELECTED > 0 then
    NombreHommeDarmeSELECTED = int(fight2b/(vieHommedarme+defHommedarme))
    if NombreHommeDarmeSELECTED < 0 then NombreHommeDarmeSELECTED = 0
    if NombreHommeDarmeSELECTED > NombreHommeDarmeTEMP then NombreHommeDarmeSELECTED = NombreHommeDarmeTEMP
end if
if NombreLancierSELECTED > 0 then
    NombreLancierSELECTED = int(fight2c/(vielancier+deflancier))
    if NombreLancierSELECTED < 0 then NombreLancierSELECTED = 0
    if NombreLancierSELECTED > NombreLancierTEMP then NombreLancierSELECTED = NombreLancierTEMP
end if
if NombreFrondeurSELECTED > 0 then
    NombreFrondeurSELECTED = int(fight2d/(viefrondeur+deffrondeur))
    if NombreFrondeurSELECTED < 0 then NombreFrondeurSELECTED = 0
    if NombreFrondeurSELECTED > NombreFrondeurTEMP then NombreFrondeurSELECTED = NombreFrondeurTEMP
end if
if NombreArcherSELECTED > 0 then
    NombreArcherSELECTED = int(fight2e/(viearcher+defarcher))
    if NombreArcherSELECTED < 0 then NombreArcherSELECTED = 0
    if NombreArcherSELECTED > NombreArcherTEMP then NombreArcherSELECTED = NombreArcherTEMP
end if
if NombreEXPLORATEURSELECTED > 0 then
    NombreEXPLORATEURSELECTED = int(fight2f/(vieEXPLORATEUR+defEXPLORATEUR))
    if NombreEXPLORATEURSELECTED < 0 then NombreEXPLORATEURSELECTED = 0
    if NombreEXPLORATEURSELECTED > NombreEXPLORATEURTEMP then NombreEXPLORATEURSELECTED = NombreEXPLORATEURTEMP
end if

if NombreHommeDarmeSELECTED <= 0 and NombreEXPLORATEURSELECTED <= 0 and NombreLancierSELECTED <= 0 and NombreFrondeurSELECTED <= 0 and NombreArcherSELECTED <= 0 then fight1 = 0
if NombreHommeDarmeSELECTED > 0 or NombreEXPLORATEURSELECTED > 0 or NombreLancierSELECTED > 0 or NombreFrondeurSELECTED > 0 or NombreArcherSELECTED > 0 then fight1 = 1
if int(NombreHommeDarmeIAm2-NombreHommeDarmeIAm2SELECTED) <= 0 and int(NombreLancierIAm2-NombreLancierIAm2SELECTED) <= 0 and int(NombreFrondeurIAm2-NombreFrondeurIAm2SELECTED) <= 0 and int(NombreArcherIAm2-NombreArcherIAm2SELECTED) <= 0 then fight2 = 0
if int(NombreHommeDarmeIAm2-NombreHommeDarmeIAm2SELECTED) > 0 or int(NombreLancierIAm2-NombreLancierIAm2SELECTED) > 0 or int(NombreFrondeurIAm2-NombreFrondeurIAm2SELECTED) > 0 or int(NombreArcherIAm2-NombreArcherIAm2SELECTED) > 0 or NombreCitoyenIAm2 > 0 or popSCIENTIAm2 > 0 then fight2 = 1
if fight1 > 0 and fight2 > 0 then goto [boucleDEFia2B]

hpFortificationsIAm2 = 0 : hpFortificationsIAm2TEMP2 = 0

perteHOMMEdarmeIAm2 = int(NombreHommeDarmeIAm2TEMP-(NombreHommeDarmeIAm2-NombreHommeDarmeIAm2SELECTED))
perteLANCIERIAm2 = int(NombreLancierIAm2TEMP-(NombreLancierIAm2-NombreLancierIAm2SELECTED))
perteFRONDEURIAm2 = int(NombreFrondeurIAm2TEMP-(NombreFrondeurIAm2-NombreFrondeurIAm2SELECTED))
perteARCHERIAm2 = int(NombreArcherIAm2TEMP-(NombreArcherIAm2-NombreArcherIAm2SELECTED))

if perteHOMMEdarmeIAm2<0 then perteHOMMEdarmeIAm2 = 0
if perteLANCIERIAm2<0 then perteLANCIERIAm2 = 0
if perteFRONDEURIAm2<0 then perteFRONDEURIAm2 = 0
if perteARCHERIAm2<0 then perteARCHERIAm2 = 0

popMILITIAm2 = popMILITIAm2 - int(perteHOMMEdarmeIAm2+perteLANCIERIAm2+perteFRONDEURIAm2+perteARCHERIAm2)
popTOTALIAm2 = int((popSCIENTIAm2 +  popMILITIAm2 + NombreCitoyenIAm2))
if popTOTALIAm2 <0 then popTOTALIAm2 = 0

perteHOMMEdarme = int(NombreHommeDarmeTEMP-NombreHommeDarmeSELECTED)
perteLANCIER = int(NombreLancierTEMP-NombreLancierSELECTED)
perteFRONDEUR = int(NombreFrondeurTEMP-NombreFrondeurSELECTED)
perteARCHER = int(NombreArcherTEMP-NombreArcherSELECTED)
perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-NombreEXPLORATEURSELECTED)

if perteHOMMEdarme<0 then perteHOMMEdarme = 0
if perteLANCIER<0 then perteLANCIER = 0
if perteFRONDEUR<0 then perteFRONDEUR = 0
if perteARCHER<0 then perteARCHER = 0
if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0

popMILIT = popMILIT - int(perteHOMMEdarme+perteLANCIER+perteFRONDEUR+perteARCHER+perteEXPLORATEUR)
popCIVIL = popTOTAL - int(popMILIT+popSCIENT) - int(perteHOMMEdarme+perteLANCIER+perteFRONDEUR+perteARCHER+perteEXPLORATEUR)
popTOTAL = int(popSCIENT + popMILIT + popCIVIL)

NombreHommeDarme = NombreHommeDarme - perteHOMMEdarme
NombreLancier = NombreLancier - perteLANCIER
NombreFrondeur = NombreFrondeur - perteFRONDEUR
NombreArcher = NombreArcher - perteARCHER
NombreEXPLORATEUR = NombreEXPLORATEUR - perteEXPLORATEUR

NombreHommeDarmeSELECTED = 0
NombreLancierSELECTED = 0
NombreFrondeurSELECTED = 0
NombreArcherSELECTED = 0
NombreEXPLORATEURSELECTED = 0

if fight1 <= 0 then TEXTvictoire$ = "Défaite"
if fight2 <= 0 then TEXTvictoire$ = "Victoire"

'notice popCIVIL ;" : ";popTOTAL
foundedSECU = 0
goto [rapportBataille]



'quand l'IA 1 vous attaque (REFAIT)

[boucleATKia1A]
gosub [dataUNITfightPERSO]
popCIVIL = int(popTOTAL-(popSCIENT+popMILIT))
NombreTROUPE = 0

if NombreHommeDarme >= 1 and int(NombreHommeDarme - NombreHommeDarmeSELECTED - NombreHommeDarmeTERR1 - NombreHommeDarmeTERR2 - NombreHommeDarmeTERR3 - NombreHommeDarmeTERR4 - NombreHommeDarmeTERR5 - NombreHommeDarmeTERR6 - NombreHommeDarmeTERR7 - NombreHommeDarmeTERR8 - NombreHommeDarmeTERR9 - NombreHommeDarmeTERR10 - NombreHommeDarmeTERR11 - NombreHommeDarmeTERR12 - NombreHommeDarmeTERR13 - NombreHommeDarmeTERR14 - NombreHommeDarmeTERR15 - NombreHommeDarmeTERR16 - NombreHommeDarmeTERR17 - NombreHommeDarmeTERR18 - NombreHommeDarmeTERR19 - NombreHommeDarmeTERR20) >=1 then NombreTROUPE = NombreTROUPE + 1
if NombreLancier >= 1 and int(NombreLancier - NombreLancierSELECTED - NombreLancierTERR1 - NombreLancierTERR2 - NombreLancierTERR3 - NombreLancierTERR4 - NombreLancierTERR5 - NombreLancierTERR6 - NombreLancierTERR7 - NombreLancierTERR8 - NombreLancierTERR9 - NombreLancierTERR10 - NombreLancierTERR11 - NombreLancierTERR12 - NombreLancierTERR13 - NombreLancierTERR14 - NombreLancierTERR15 - NombreLancierTERR16 - NombreLancierTERR17 - NombreLancierTERR18 - NombreLancierTERR19 - NombreLancierTERR20) >=1 then NombreTROUPE = NombreTROUPE + 1
if NombreFrondeur >= 1 and int(NombreFrondeur - NombreFrondeurSELECTED - NombreFrondeurTERR1 - NombreFrondeurTERR2 - NombreFrondeurTERR3 - NombreFrondeurTERR4 - NombreFrondeurTERR5 - NombreFrondeurTERR6 - NombreFrondeurTERR7 - NombreFrondeurTERR8 - NombreFrondeurTERR9 - NombreFrondeurTERR10 - NombreFrondeurTERR11 - NombreFrondeurTERR12 - NombreFrondeurTERR13 - NombreFrondeurTERR14 - NombreFrondeurTERR15 - NombreFrondeurTERR16 - NombreFrondeurTERR17 - NombreFrondeurTERR18 - NombreFrondeurTERR19 - NombreFrondeurTERR20) >=1 then NombreTROUPE = NombreTROUPE + 1
if NombreArcher >= 1 and int(NombreArcher - NombreArcherSELECTED - NombreArcherTERR1 - NombreArcherTERR2 - NombreArcherTERR3 - NombreArcherTERR4 - NombreArcherTERR5 - NombreArcherTERR6 - NombreArcherTERR7 - NombreArcherTERR8 - NombreArcherTERR9 - NombreArcherTERR10 - NombreArcherTERR11 - NombreArcherTERR12 - NombreArcherTERR13 - NombreArcherTERR14 - NombreArcherTERR15 - NombreArcherTERR16 - NombreArcherTERR17 - NombreArcherTERR18 - NombreArcherTERR19 - NombreArcherTERR20) >=1 then NombreTROUPE = NombreTROUPE + 1
if NombreEXPLORATEUR >= 1 and int(NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - NombreEXPLORATEURTERR1 - NombreEXPLORATEURTERR2 - NombreEXPLORATEURTERR3 - NombreEXPLORATEURTERR4 - NombreEXPLORATEURTERR5 - NombreEXPLORATEURTERR6 - NombreEXPLORATEURTERR7 - NombreEXPLORATEURTERR8 - NombreEXPLORATEURTERR9 - NombreEXPLORATEURTERR10 - NombreEXPLORATEURTERR11 - NombreEXPLORATEURTERR12 - NombreEXPLORATEURTERR13 - NombreEXPLORATEURTERR14 - NombreEXPLORATEURTERR15 - NombreEXPLORATEURTERR16 - NombreEXPLORATEURTERR17 - NombreEXPLORATEURTERR18 - NombreEXPLORATEURTERR19 - NombreEXPLORATEURTERR20) >=1 then NombreTROUPE = NombreTROUPE + 1
NombreHommeDarmeTEMP = NombreHommeDarme - NombreHommeDarmeSELECTED - NombreHommeDarmeTERR1 - NombreHommeDarmeTERR2 - NombreHommeDarmeTERR3 - NombreHommeDarmeTERR4 - NombreHommeDarmeTERR5 - NombreHommeDarmeTERR6 - NombreHommeDarmeTERR7 - NombreHommeDarmeTERR8 - NombreHommeDarmeTERR9 - NombreHommeDarmeTERR10 - NombreHommeDarmeTERR11 - NombreHommeDarmeTERR12 - NombreHommeDarmeTERR13 - NombreHommeDarmeTERR14 - NombreHommeDarmeTERR15 - NombreHommeDarmeTERR16 - NombreHommeDarmeTERR17 - NombreHommeDarmeTERR18 - NombreHommeDarmeTERR19 - NombreHommeDarmeTERR20
NombreLancierTEMP = NombreLancier - NombreLancierSELECTED - NombreLancierTERR1 - NombreLancierTERR2 - NombreLancierTERR3 - NombreLancierTERR4 - NombreLancierTERR5 - NombreLancierTERR6 - NombreLancierTERR7 - NombreLancierTERR8 - NombreLancierTERR9 - NombreLancierTERR10 - NombreLancierTERR11 - NombreLancierTERR12 - NombreLancierTERR13 - NombreLancierTERR14 - NombreLancierTERR15 - NombreLancierTERR16 - NombreLancierTERR17 - NombreLancierTERR18 - NombreLancierTERR19 - NombreLancierTERR20
NombreFrondeurTEMP = NombreFrondeur - NombreFrondeurSELECTED - NombreFrondeurTERR1 - NombreFrondeurTERR2 - NombreFrondeurTERR3 - NombreFrondeurTERR4 - NombreFrondeurTERR5 - NombreFrondeurTERR6 - NombreFrondeurTERR7 - NombreFrondeurTERR8 - NombreFrondeurTERR9 - NombreFrondeurTERR10 - NombreFrondeurTERR11 - NombreFrondeurTERR12 - NombreFrondeurTERR13 - NombreFrondeurTERR14 - NombreFrondeurTERR15 - NombreFrondeurTERR16 - NombreFrondeurTERR17 - NombreFrondeurTERR18 - NombreFrondeurTERR19 - NombreFrondeurTERR20
NombreArcherTEMP = NombreArcher - NombreArcherSELECTED - NombreArcherTERR1 - NombreArcherTERR2 - NombreArcherTERR3 - NombreArcherTERR4 - NombreArcherTERR5 - NombreArcherTERR6 - NombreArcherTERR7 - NombreArcherTERR8 - NombreArcherTERR9 - NombreArcherTERR10 - NombreArcherTERR11 - NombreArcherTERR12 - NombreArcherTERR13 - NombreArcherTERR14 - NombreArcherTERR15 - NombreArcherTERR16 - NombreArcherTERR17 - NombreArcherTERR18 - NombreArcherTERR19 - NombreArcherTERR20
NombreEXPLORATEURTEMP = NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - NombreEXPLORATEURTERR1 - NombreEXPLORATEURTERR2 - NombreEXPLORATEURTERR3 - NombreEXPLORATEURTERR4 - NombreEXPLORATEURTERR5 - NombreEXPLORATEURTERR6 - NombreEXPLORATEURTERR7 - NombreEXPLORATEURTERR8 - NombreEXPLORATEURTERR9 - NombreEXPLORATEURTERR10 - NombreEXPLORATEURTERR11 - NombreEXPLORATEURTERR12 - NombreEXPLORATEURTERR13 - NombreEXPLORATEURTERR14 - NombreEXPLORATEURTERR15 - NombreEXPLORATEURTERR16 - NombreEXPLORATEURTERR17 - NombreEXPLORATEURTERR18 - NombreEXPLORATEURTERR19 - NombreEXPLORATEURTERR20
if popCIVIL >0 then NombreCitoyenTEMP = popCIVIL : NombreTROUPE = NombreTROUPE + 1
if popSCIENT >0 then NombreScientTEMP = popSCIENT : NombreTROUPE = NombreTROUPE + 1


if NombreHommeDarmeIAm1SELECTEDtemp > NombreHommeDarmeIAm1SELECTED then NombreHommeDarmeIAm1SELECTED = NombreHommeDarmeIAm1SELECTEDtemp
if NombreLancierIAm1SELECTEDtemp > NombreLancierIAm1SELECTED then NombreLancierIAm1SELECTED = NombreLancierIAm1SELECTEDtemp
if NombreFrondeurIAm1SELECTEDtemp > NombreFrondeurIAm1SELECTED then NombreFrondeurIAm1SELECTED = NombreFrondeurIAm1SELECTEDtemp
if NombreArcherIAm1SELECTEDtemp > NombreArcherIAm1SELECTED then NombreArcherIAm1SELECTED = NombreArcherIAm1SELECTEDtemp

NombreTROUPEiam1 = 0
if NombreHommeDarmeIAm1SELECTED > 0 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
if NombreLancierIAm1SELECTED > 0 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
if NombreFrondeurIAm1SELECTED > 0 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
if NombreArcherIAm1SELECTED > 0 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
NombreHommeDarmeIAm1TEMP = NombreHommeDarmeIAm1SELECTED
NombreLancierIAm1TEMP = NombreLancierIAm1SELECTED
NombreFrondeurIAm1TEMP = NombreFrondeurIAm1SELECTED
NombreArcherIAm1TEMP = NombreArcherIAm1SELECTED
hpFortificationsTEMP = hpFortifications

'notice NombreHommeDarmeIAm1TEMP; " : " ; NombreLancierIAm1TEMP ; " : " ; NombreFrondeurIAm1TEMP ; " : " ; NombreArcherIAm1TEMP
[boucleATKia1B]
A = hpFortifications
B1 = (defHommedarme* (1+lvlbatimentFortifications*0.02))
B2 = (deflancier* (1+lvlbatimentFortifications*0.02))
B3 = (deffrondeur* (1+lvlbatimentFortifications*0.02))
B4 = (defarcher* (1+lvlbatimentFortifications*0.02))
B5 = (defcitoyen* (1+lvlbatimentFortifications*0.02))
B6 = (defscientifique* (1+lvlbatimentFortifications*0.02))
B7 = (defEXPLORATEUR* (1+lvlbatimentFortifications*0.02))

F1 = (offHommedarme*int(NombreHommeDarme-NombreHommeDarmeSELECTED))
F2 = (offlancier*int(NombreLancier-NombreLancierSELECTED))
F3 = (offfrondeur*int(NombreFrondeur-NombreFrondeurSELECTED))
F4 = (offarcher*int(NombreArcher-NombreArcherSELECTED))
F5 = (offcitoyen*(popTOTAL-(popSCIENT+popMILIT)))
F6 = (offscientifique*popSCIENT)
F7 = (offEXPLORATEUR*int(NombreEXPLORATEUR-NombreEXPLORATEURSELECTED))

D1 = ((vieHommedarme+B1)*int(NombreHommeDarme-NombreHommeDarmeSELECTED)) ' - E
D2 = ((vielancier+B2)*int(NombreLancier-NombreLancierSELECTED)) ' - E
D3 = ((viefrondeur+B3)*int(NombreFrondeur-NombreFrondeurSELECTED)) ' - E
D4 = ((viearcher+B4)*int(NombreArcher-NombreArcherSELECTED)) ' - E
D5 = ((viecitoyen+B5)*(popTOTAL-(popSCIENT+popMILIT))) ' - E
D6 = ((viescientifique+B6)*popSCIENT) ' - E
D7 = ((vieEXPLORATEUR+B7)*int(NombreEXPLORATEUR-NombreEXPLORATEURSELECTED)) ' - E

E1 = (offHommedarmeIAm1*NombreHommeDarmeIAm1SELECTED)
E2 = (offlancierIAm1*NombreLancierIAm1SELECTED)
E3 = (offfrondeurIAm1*NombreFrondeurIAm1SELECTED)
E4 = (offarcherIAm1*NombreArcherIAm1SELECTED)

C1 = ((vieHommedarmeIAm1+defHommedarmeIAm1)*NombreHommeDarmeIAm1SELECTED ) ' - F
C2 = ((vielancierIAm1+deflancierIAm1)*NombreLancierIAm1SELECTED) ' - F
C3 = ((viefrondeurIAm1+defFrondeurIAm1)*NombreFrondeurIAm1SELECTED) ' - F
C4 = ((viearcherIAm1+defarcherIAm1)*NombreArcherIAm1SELECTED) ' - F

fight1a = int(A-(E1+E2+E3+E4)) ' les fortifications encaissent les degats

if fight1a > 0 then hpFortifications = int(fight1a) : E = 1
if fight1a <= 0 then
    hpFortifications = 0
    lvlHPFortifications = 0
    E = fight1a
    lvlbatimentFortifications = 0
    batimentBUILDFortifications = 0
    coutFortificationsBOISindex = 0
    coutFortificationsBOIS = 6200
end if
if NombreTROUPE <= 0 then NombreTROUPE = 1
fight1b = int(D1 + (E/NombreTROUPE)) : if fight1b < 0 then fight1b = 0
fight1c = int(D2 + (E/NombreTROUPE)) : if fight1c < 0 then fight1c = 0
fight1d = int(D3 + (E/NombreTROUPE)) : if fight1d < 0 then fight1d = 0
fight1e = int(D4 + (E/NombreTROUPE)) : if fight1e < 0 then fight1e = 0
fight1f = int(D5 + (E/NombreTROUPE)) : if fight1f < 0 then fight1f = 0
fight1g = int(D6 + (E/NombreTROUPE)) : if fight1g < 0 then fight1g = 0
fight1h = int(D7 + (E/NombreTROUPE)) : if fight1h < 0 then fight1h = 0
fight2a = int(F1+F2+F3+F4+F5+F6+F7) ' chargement des degats du joueur defensif
if NombreTROUPEiam1 <= 0 then NombreTROUPEiam1 = 1
fight2b = int(C1-(fight2a/NombreTROUPEiam1))
fight2c = int(C2-(fight2a/NombreTROUPEiam1))
fight2d = int(C3-(fight2a/NombreTROUPEiam1))
fight2e = int(C4-(fight2a/NombreTROUPEiam1))

if NombreHommeDarmeIAm1SELECTED > 0 then
    NombreHommeDarmeIAm1SELECTED = int(fight2b/(vieHommedarmeIAm1+defHommedarmeIAm1))
    if NombreHommeDarmeIAm1SELECTED < 0 then NombreHommeDarmeIAm1SELECTED = 0
    if NombreHommeDarmeIAm1SELECTED > NombreHommeDarmeIAm1TEMP then NombreHommeDarmeIAm1SELECTED = NombreHommeDarmeIAm1TEMP
end if
if NombreLancierIAm1SELECTED > 0 then
    NombreLancierIAm1SELECTED = int(fight2c/(vielancierIAm1+deflancierIAm1))
    if NombreLancierIAm1SELECTED < 0 then NombreLancierIAm1SELECTED = 0
    if NombreLancierIAm1SELECTED > NombreLancierIAm1TEMP then NombreLancierIAm1SELECTED = NombreLancierIAm1TEMP
end if
if NombreFrondeurIAm1SELECTED > 0 then
    NombreFrondeurIAm1SELECTED = int(fight2d/(viefrondeurIAm1+defFrondeurIAm1))
    if NombreFrondeurIAm1SELECTED < 0 then NombreFrondeurIAm1SELECTED = 0
    if NombreFrondeurIAm1SELECTED > NombreFrondeurIAm1TEMP then NombreFrondeurIAm1SELECTED = NombreFrondeurIAm1TEMP
end if
if NombreArcherIAm1SELECTED > 0 then
    NombreArcherIAm1SELECTED = int(fight2e/(viearcherIAm1+defarcherIAm1))
    if NombreArcherIAm1SELECTED < 0 then NombreArcherIAm1SELECTED = 0
    if NombreArcherIAm1SELECTED > NombreArcherIAm1TEMP then NombreArcherIAm1SELECTED = NombreArcherIAm1TEMP
end if

if int(NombreHommeDarme-NombreHommeDarmeSELECTED) > 0 then
    NombreHommeDarme = int(fight1b/(vieHommedarme+B1))+NombreHommeDarmeSELECTED
    if NombreHommeDarme < 0 then NombreHommeDarme = 0
    if NombreHommeDarme > int(NombreHommeDarmeTEMP+NombreHommeDarmeSELECTED) then NombreHommeDarme = int(NombreHommeDarmeTEMP+NombreHommeDarmeSELECTED)
end if
if int(NombreLancier-NombreLancierSELECTED) > 0 then
    NombreLancier = int(fight1c/(vielancier+B2))+NombreLancierSELECTED
    if NombreLancier < 0 then NombreLancier = 0
    if NombreLancier > int(NombreLancierTEMP+NombreLancierSELECTED) then NombreLancier = int(NombreLancierTEMP+NombreLancierSELECTED)
end if
if int(NombreFrondeur-NombreFrondeurSELECTED) > 0 then
    NombreFrondeur = int(fight1d/(viefrondeur+B3))+NombreFrondeurSELECTED
    if NombreFrondeur < 0 then NombreFrondeur = 0
    if NombreFrondeur > int(NombreFrondeurTEMP+NombreFrondeurSELECTED) then NombreFrondeur = int(NombreFrondeurTEMP+NombreFrondeurSELECTED)
end if
if int(NombreArcher-NombreArcherSELECTED) > 0 then
    NombreArcher = int(fight1e/(viearcher+B4))+NombreArcherSELECTED
    if NombreArcher < 0 then NombreArcher = 0
    if NombreArcher > int(NombreArcherTEMP+NombreArcherSELECTED) then NombreArcher = int(NombreArcherTEMP+NombreArcherSELECTED)
end if
if int(NombreEXPLORATEUR-NombreEXPLORATEURSELECTED) > 0 then
    NombreEXPLORATEUR = int(fight1h/(vieEXPLORATEUR+B7))+NombreEXPLORATEURSELECTED
    if NombreEXPLORATEUR < 0 then NombreEXPLORATEUR = 0
    if NombreEXPLORATEUR > int(NombreEXPLORATEURTEMP+NombreEXPLORATEURSELECTED) then NombreEXPLORATEUR = int(NombreEXPLORATEURTEMP+NombreEXPLORATEURSELECTED)
end if

if int(NombreHommeDarme-NombreHommeDarmeSELECTED) = 0 and int(NombreLancier-NombreLancierSELECTED) = 0 and int(NombreFrondeur-NombreFrondeurSELECTED) = 0 and int(NombreArcher-NombreArcherSELECTED) = 0 and int(NombreEXPLORATEUR-NombreEXPLORATEURSELECTED) = 0 then
    if int(popTOTAL-(popSCIENT+popMILIT)) > 0 then
        popCIVIL = int(fight1f/(viecitoyen+B5))
        if popCIVIL < 0 then popCIVIL = 0
        if popCIVIL > NombreCitoyenTEMP then popCIVIL = NombreCitoyenTEMP
    end if
    if popSCIENT > 0 then
        popSCIENT = int(fight1g/(viescientifique+B6))
        if popSCIENT < 0 then popSCIENT = 0
        if popSCIENT > NombreScientTEMP then popSCIENT = NombreScientTEMP
    end if
end if

if int(NombreHommeDarme-NombreHommeDarmeSELECTED) <= 0 and int(NombreEXPLORATEUR-NombreEXPLORATEURSELECTED) <= 0 and int(NombreLancier-NombreLancierSELECTED) <= 0 and int(NombreFrondeur-NombreFrondeurSELECTED) <= 0 and int(NombreArcher-NombreArcherSELECTED) <= 0 and popCIVIL<=0 and popSCIENT<= 0 then fight2 = 0
if int(NombreHommeDarme-NombreHommeDarmeSELECTED) > 0 or int(NombreEXPLORATEUR-NombreEXPLORATEURSELECTED) > 0 or int(NombreLancier-NombreLancierSELECTED) > 0 or int(NombreFrondeur-NombreFrondeurSELECTED) > 0 or int(NombreArcher-NombreArcherSELECTED) > 0 or popCIVIL > 0 or popSCIENT > 0 then fight2 = 1
if NombreHommeDarmeIAm1SELECTED <= 0 and NombreLancierIAm1SELECTED <= 0 and NombreFrondeurIAm1SELECTED <= 0 and NombreArcherIAm1SELECTED<= 0 then fight1 = 0
if NombreHommeDarmeIAm1SELECTED > 0 or NombreLancierIAm1SELECTED > 0 or NombreFrondeurIAm1SELECTED > 0 or NombreArcherIAm1SELECTED > 0 then fight1 = 1
if fight1 > 0 and fight2 > 0 then goto [boucleATKia1B]

perteHOMMEdarme = int(NombreHommeDarmeTEMP-(NombreHommeDarme-NombreHommeDarmeSELECTED))
perteLANCIER = int(NombreLancierTEMP-(NombreLancier-NombreLancierSELECTED))
perteFRONDEUR = int(NombreFrondeurTEMP-(NombreFrondeur-NombreFrondeurSELECTED))
perteARCHER = int(NombreArcherTEMP-(NombreArcher-NombreArcherSELECTED))
perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-(NombreEXPLORATEUR-NombreEXPLORATEURSELECTED))

if perteHOMMEdarme<0 then perteHOMMEdarme = 0
if perteLANCIER<0 then perteLANCIER = 0
if perteFRONDEUR<0 then perteFRONDEUR = 0
if perteARCHER<0 then perteARCHER = 0
if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0

popMILIT = popMILIT - int(perteHOMMEdarme+perteLANCIER+perteFRONDEUR+perteARCHER+perteEXPLORATEUR)
popCIVIL = int(popTOTAL-(popSCIENT+popMILIT)) - int(perteHOMMEdarme+perteLANCIER+perteFRONDEUR+perteARCHER+perteEXPLORATEUR)
popTOTAL = int(popSCIENT +  popMILIT + popCIVIL)

perteHOMMEdarmeIAm1 = int(NombreHommeDarmeIAm1TEMP-NombreHommeDarmeIAm1SELECTED)
perteLANCIERIAm1 = int(NombreLancierIAm1TEMP-NombreLancierIAm1SELECTED)
perteFRONDEURIAm1 = int(NombreFrondeurIAm1TEMP-NombreFrondeurIAm1SELECTED)
perteARCHERIAm1 = int(NombreArcherIAm1TEMP-NombreArcherIAm1SELECTED)

if perteHOMMEdarmeIAm1 <0 then perteHOMMEdarmeIAm1 = 0
if perteLANCIERIAm1 <0 then perteLANCIERIAm1 = 0
if perteFRONDEURIAm1 <0 then perteFRONDEURIAm1 = 0
if perteARCHERIAm1 <0 then perteARCHERIAm1 = 0

popMILITIAm1 = popMILITIAm1 - int(perteHOMMEdarmeIAm1+perteLANCIERIAm1+perteFRONDEURIAm1+perteARCHERIAm1) : if popMILITIAm1 < 0 then popMILITIAm1 = 0
popTOTALIAm1 = int(popSCIENTIAm1 +  popMILITIAm1 + popCIVILiam1)
if popTOTALIAm1 <0 then popTOTALIAm1 = 0

NombreHommeDarmeIAm1 = NombreHommeDarmeIAm1 - perteHOMMEdarmeIAm1
NombreLancierIAm1 = NombreLancierIAm1 - perteLANCIERIAm1
NombreFrondeurIAm1 = NombreFrondeurIAm1 - perteFRONDEURIAm1
NombreArcherIAm1 = NombreArcherIAm1 - perteARCHERIAm1

if fight2 <= 0 then TEXTvictoire$ = "Défaite" : popCIVIL = 0 : if popTOTAL <0 then popTOTAL = 0
if fight1 <= 0 then TEXTvictoire$ = "Victoire"
attaqueAIm1 = 2

NombreHommeDarmeIAm1SELECTED = 0
NombreLancierIAm1SELECTED = 0
NombreFrondeurIAm1SELECTED = 0
NombreArcherIAm1SELECTED = 0
NombreHommeDarmeIAm1SELECTEDtemp = 0
NombreLancierIAm1SELECTEDtemp = 0
NombreFrondeurIAm1SELECTEDtemp = 0
NombreArcherIAm1SELECTEDtemp = 0
goto [rapportBataille2]


  '  NombreHommeDarme = int(NombreHommeDarme + NombreHommeDarmeSELECTED + NombreHommeDarmeTERR1 + NombreHommeDarmeTERR2 + NombreHommeDarmeTERR3 + NombreHommeDarmeTERR4 + NombreHommeDarmeTERR5 + NombreHommeDarmeTERR6 + NombreHommeDarmeTERR7 + NombreHommeDarmeTERR8 + NombreHommeDarmeTERR9 + NombreHommeDarmeTERR10 + NombreHommeDarmeTERR11 + NombreHommeDarmeTERR12 + NombreHommeDarmeTERR13 + NombreHommeDarmeTERR14 + NombreHommeDarmeTERR15 + NombreHommeDarmeTERR16 + NombreHommeDarmeTERR17 + NombreHommeDarmeTERR18 + NombreHommeDarmeTERR19 + NombreHommeDarmeTERR20)
  '  NombreLancier = int(NombreLancier + NombreLancierSELECTED + NombreLancierTERR1 + NombreLancierTERR2 + NombreLancierTERR3 + NombreLancierTERR4 + NombreLancierTERR5 + NombreLancierTERR6 + NombreLancierTERR7 + NombreLancierTERR8 + NombreLancierTERR9 + NombreLancierTERR10 + NombreLancierTERR11 + NombreLancierTERR12 + NombreLancierTERR13 + NombreLancierTERR14 + NombreLancierTERR15 + NombreLancierTERR16 + NombreLancierTERR17 + NombreLancierTERR18 + NombreLancierTERR19 + NombreLancierTERR20)
  '  NombreFrondeur = int(NombreFrondeur + NombreFrondeurSELECTED + NombreFrondeurTERR1 + NombreFrondeurTERR2 + NombreFrondeurTERR3 + NombreFrondeurTERR4 + NombreFrondeurTERR5 + NombreFrondeurTERR6 + NombreFrondeurTERR7 + NombreFrondeurTERR8 + NombreFrondeurTERR9 + NombreFrondeurTERR10 + NombreFrondeurTERR11 + NombreFrondeurTERR12 + NombreFrondeurTERR13 + NombreFrondeurTERR14 + NombreFrondeurTERR15 + NombreFrondeurTERR16 + NombreFrondeurTERR17 + NombreFrondeurTERR18 + NombreFrondeurTERR19 + NombreFrondeurTERR20)
  '  NombreArcher = int(NombreArcher + NombreArcherSELECTED + NombreArcherTERR1 + NombreArcherTERR2 + NombreArcherTERR3 + NombreArcherTERR4 + NombreArcherTERR5 + NombreArcherTERR6 + NombreArcherTERR7 + NombreArcherTERR8 + NombreArcherTERR9 + NombreArcherTERR10 + NombreArcherTERR11 + NombreArcherTERR12 + NombreArcherTERR13 + NombreArcherTERR14 + NombreArcherTERR15 + NombreArcherTERR16 + NombreArcherTERR17 + NombreArcherTERR18 + NombreArcherTERR19 + NombreArcherTERR20)
  '  NombreEXPLORATEUR = int(NombreEXPLORATEUR + NombreEXPLORATEURSELECTED + NombreEXPLORATEURTERR1 + NombreEXPLORATEURTERR2 + NombreEXPLORATEURTERR3 + NombreEXPLORATEURTERR4 + NombreEXPLORATEURTERR5 + NombreEXPLORATEURTERR6 + NombreEXPLORATEURTERR7 + NombreEXPLORATEURTERR8 + NombreEXPLORATEURTERR9 + NombreEXPLORATEURTERR10 + NombreEXPLORATEURTERR11 + NombreEXPLORATEURTERR12 + NombreEXPLORATEURTERR13 + NombreEXPLORATEURTERR14 + NombreEXPLORATEURTERR15 + NombreEXPLORATEURTERR16 + NombreEXPLORATEURTERR17 + NombreEXPLORATEURTERR18 + NombreEXPLORATEURTERR19 + NombreEXPLORATEURTERR20)
  '  popMILIT = int(NombreHommeDarme + NombreHommeDarmeSELECTED + NombreHommeDarmeTERR1 + NombreHommeDarmeTERR2 + NombreHommeDarmeTERR3 + NombreHommeDarmeTERR4 + NombreHommeDarmeTERR5 + NombreHommeDarmeTERR6 + NombreHommeDarmeTERR7 + NombreHommeDarmeTERR8 + NombreHommeDarmeTERR9 + NombreHommeDarmeTERR10 + NombreHommeDarmeTERR11 + NombreHommeDarmeTERR12 + NombreHommeDarmeTERR13 + NombreHommeDarmeTERR14 + NombreHommeDarmeTERR15 + NombreHommeDarmeTERR16 + NombreHommeDarmeTERR17 + NombreHommeDarmeTERR18 + NombreHommeDarmeTERR19 + NombreHommeDarmeTERR20) + int(NombreLancier + NombreLancierSELECTED + NombreLancierTERR1 + NombreLancierTERR2 + NombreLancierTERR3 + NombreLancierTERR4 + NombreLancierTERR5 + NombreLancierTERR6 + NombreLancierTERR7 + NombreLancierTERR8 + NombreLancierTERR9 + NombreLancierTERR10 + NombreLancierTERR11 + NombreLancierTERR12 + NombreLancierTERR13 + NombreLancierTERR14 + NombreLancierTERR15 + NombreLancierTERR16 + NombreLancierTERR17 + NombreLancierTERR18 + NombreLancierTERR19 + NombreLancierTERR20) + int(NombreFrondeur + NombreFrondeurSELECTED + NombreFrondeurTERR1 + NombreFrondeurTERR2 + NombreFrondeurTERR3 + NombreFrondeurTERR4 + NombreFrondeurTERR5 + NombreFrondeurTERR6 + NombreFrondeurTERR7 + NombreFrondeurTERR8 + NombreFrondeurTERR9 + NombreFrondeurTERR10 + NombreFrondeurTERR11 + NombreFrondeurTERR12 + NombreFrondeurTERR13 + NombreFrondeurTERR14 + NombreFrondeurTERR15 + NombreFrondeurTERR16 + NombreFrondeurTERR17 + NombreFrondeurTERR18 + NombreFrondeurTERR19 + NombreFrondeurTERR20) + int(NombreArcher + NombreArcherSELECTED + NombreArcherTERR1 + NombreArcherTERR2 + NombreArcherTERR3 + NombreArcherTERR4 + NombreArcherTERR5 + NombreArcherTERR6 + NombreArcherTERR7 + NombreArcherTERR8 + NombreArcherTERR9 + NombreArcherTERR10 + NombreArcherTERR11 + NombreArcherTERR12 + NombreArcherTERR13 + NombreArcherTERR14 + NombreArcherTERR15 + NombreArcherTERR16 + NombreArcherTERR17 + NombreArcherTERR18 + NombreArcherTERR19 + NombreArcherTERR20) + int(NombreEXPLORATEUR + NombreEXPLORATEURSELECTED + NombreEXPLORATEURTERR1 + NombreEXPLORATEURTERR2 + NombreEXPLORATEURTERR3 + NombreEXPLORATEURTERR4 + NombreEXPLORATEURTERR5 + NombreEXPLORATEURTERR6 + NombreEXPLORATEURTERR7 + NombreEXPLORATEURTERR8 + NombreEXPLORATEURTERR9 + NombreEXPLORATEURTERR10 + NombreEXPLORATEURTERR11 + NombreEXPLORATEURTERR12 + NombreEXPLORATEURTERR13 + NombreEXPLORATEURTERR14 + NombreEXPLORATEURTERR15 + NombreEXPLORATEURTERR16 + NombreEXPLORATEURTERR17 + NombreEXPLORATEURTERR18 + NombreEXPLORATEURTERR19 + NombreEXPLORATEURTERR20)


'quand l'IA 2 vous attaque (REFAIT)

[boucleATKia2A]
gosub [dataUNITfightPERSO]
popCIVIL = int(popTOTAL-(popSCIENT+popMILIT))
NombreTROUPE = 0

if NombreHommeDarme >= 1 and int(NombreHommeDarme - NombreHommeDarmeSELECTED - NombreHommeDarmeTERR1 - NombreHommeDarmeTERR2 - NombreHommeDarmeTERR3 - NombreHommeDarmeTERR4 - NombreHommeDarmeTERR5 - NombreHommeDarmeTERR6 - NombreHommeDarmeTERR7 - NombreHommeDarmeTERR8 - NombreHommeDarmeTERR9 - NombreHommeDarmeTERR10 - NombreHommeDarmeTERR11 - NombreHommeDarmeTERR12 - NombreHommeDarmeTERR13 - NombreHommeDarmeTERR14 - NombreHommeDarmeTERR15 - NombreHommeDarmeTERR16 - NombreHommeDarmeTERR17 - NombreHommeDarmeTERR18 - NombreHommeDarmeTERR19 - NombreHommeDarmeTERR20) >=1 then NombreTROUPE = NombreTROUPE + 1
if NombreLancier >= 1 and int(NombreLancier - NombreLancierSELECTED - NombreLancierTERR1 - NombreLancierTERR2 - NombreLancierTERR3 - NombreLancierTERR4 - NombreLancierTERR5 - NombreLancierTERR6 - NombreLancierTERR7 - NombreLancierTERR8 - NombreLancierTERR9 - NombreLancierTERR10 - NombreLancierTERR11 - NombreLancierTERR12 - NombreLancierTERR13 - NombreLancierTERR14 - NombreLancierTERR15 - NombreLancierTERR16 - NombreLancierTERR17 - NombreLancierTERR18 - NombreLancierTERR19 - NombreLancierTERR20) >=1 then NombreTROUPE = NombreTROUPE + 1
if NombreFrondeur >= 1 and int(NombreFrondeur - NombreFrondeurSELECTED - NombreFrondeurTERR1 - NombreFrondeurTERR2 - NombreFrondeurTERR3 - NombreFrondeurTERR4 - NombreFrondeurTERR5 - NombreFrondeurTERR6 - NombreFrondeurTERR7 - NombreFrondeurTERR8 - NombreFrondeurTERR9 - NombreFrondeurTERR10 - NombreFrondeurTERR11 - NombreFrondeurTERR12 - NombreFrondeurTERR13 - NombreFrondeurTERR14 - NombreFrondeurTERR15 - NombreFrondeurTERR16 - NombreFrondeurTERR17 - NombreFrondeurTERR18 - NombreFrondeurTERR19 - NombreFrondeurTERR20) >=1 then NombreTROUPE = NombreTROUPE + 1
if NombreArcher >= 1 and int(NombreArcher - NombreArcherSELECTED - NombreArcherTERR1 - NombreArcherTERR2 - NombreArcherTERR3 - NombreArcherTERR4 - NombreArcherTERR5 - NombreArcherTERR6 - NombreArcherTERR7 - NombreArcherTERR8 - NombreArcherTERR9 - NombreArcherTERR10 - NombreArcherTERR11 - NombreArcherTERR12 - NombreArcherTERR13 - NombreArcherTERR14 - NombreArcherTERR15 - NombreArcherTERR16 - NombreArcherTERR17 - NombreArcherTERR18 - NombreArcherTERR19 - NombreArcherTERR20) >=1 then NombreTROUPE = NombreTROUPE + 1
if NombreEXPLORATEUR >= 1 and int(NombreEXPLORATEUR - NombreEXPLORATEURSELECTED - NombreEXPLORATEURTERR1 - NombreEXPLORATEURTERR2 - NombreEXPLORATEURTERR3 - NombreEXPLORATEURTERR4 - NombreEXPLORATEURTERR5 - NombreEXPLORATEURTERR6 - NombreEXPLORATEURTERR7 - NombreEXPLORATEURTERR8 - NombreEXPLORATEURTERR9 - NombreEXPLORATEURTERR10 - NombreEXPLORATEURTERR11 - NombreEXPLORATEURTERR12 - NombreEXPLORATEURTERR13 - NombreEXPLORATEURTERR14 - NombreEXPLORATEURTERR15 - NombreEXPLORATEURTERR16 - NombreEXPLORATEURTERR17 - NombreEXPLORATEURTERR18 - NombreEXPLORATEURTERR19 - NombreEXPLORATEURTERR20) >=1 then NombreTROUPE = NombreTROUPE + 1
NombreHommeDarmeTEMP = NombreHommeDarme
NombreLancierTEMP = NombreLancier
NombreFrondeurTEMP = NombreFrondeur
NombreArcherTEMP = NombreArcher
NombreEXPLORATEURTEMP = NombreEXPLORATEUR
if popCIVIL >0 then NombreCitoyenTEMP = popCIVIL : NombreTROUPE = NombreTROUPE + 1
if popSCIENT >0 then NombreScientTEMP = popSCIENT : NombreTROUPE = NombreTROUPE + 1

if NombreHommeDarmeIAm2SELECTEDtemp > NombreHommeDarmeIAm2SELECTED then NombreHommeDarmeIAm2SELECTED = NombreHommeDarmeIAm2SELECTEDtemp
if NombreLancierIAm2SELECTEDtemp > NombreLancierIAm2SELECTED then NombreLancierIAm2SELECTED = NombreLancierIAm2SELECTEDtemp
if NombreFrondeurIAm2SELECTEDtemp > NombreFrondeurIAm2SELECTED then NombreFrondeurIAm2SELECTED = NombreFrondeurIAm2SELECTEDtemp
if NombreArcherIAm2SELECTEDtemp > NombreArcherIAm2SELECTED then NombreArcherIAm2SELECTED = NombreArcherIAm2SELECTEDtemp

NombreTROUPEiam2 = 0
if NombreHommeDarmeIAm2SELECTED > 0 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
if NombreLancierIAm2SELECTED > 0 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
if NombreFrondeurIAm2SELECTED > 0 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
if NombreArcherIAm2SELECTED > 0 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
NombreHommeDarmeIAm2TEMP = NombreHommeDarmeIAm2SELECTED
NombreLancierIAm2TEMP = NombreLancierIAm2SELECTED
NombreFrondeurIAm2TEMP = NombreFrondeurIAm2SELECTED
NombreArcherIAm2TEMP = NombreArcherIAm2SELECTED
hpFortificationsTEMP = hpFortifications

'notice NombreHommeDarmeIAm2TEMP; " : " ; NombreLancierIAm2TEMP ; " : " ; NombreFrondeurIAm2TEMP ; " : " ; NombreArcherIAm2TEMP

[boucleATKia2B]
A = hpFortifications
B1 = (defHommedarme* (1+lvlbatimentFortifications*0.02))
B2 = (deflancier* (1+lvlbatimentFortifications*0.02))
B3 = (deffrondeur* (1+lvlbatimentFortifications*0.02))
B4 = (defarcher* (1+lvlbatimentFortifications*0.02))
B5 = (defcitoyen* (1+lvlbatimentFortifications*0.02))
B6 = (defscientifique* (1+lvlbatimentFortifications*0.02))
B7 = (defEXPLORATEUR* (1+lvlbatimentFortifications*0.02))

F1 = (offHommedarme*int(NombreHommeDarme-NombreHommeDarmeSELECTED))
F2 = (offlancier*int(NombreLancier-NombreLancierSELECTED))
F3 = (offfrondeur*int(NombreFrondeur-NombreFrondeurSELECTED))
F4 = (offarcher*int(NombreArcher-NombreArcherSELECTED))
F5 = (offcitoyen*(popTOTAL-(popSCIENT+popMILIT)))
F6 = (offscientifique*popSCIENT)
F7 = (offEXPLORATEUR*int(NombreEXPLORATEUR-NombreEXPLORATEURSELECTED))

D1 = ((vieHommedarme+B1)*int(NombreHommeDarme-NombreHommeDarmeSELECTED)) ' - E
D2 = ((vielancier+B2)*int(NombreLancier-NombreLancierSELECTED)) ' - E
D3 = ((viefrondeur+B3)*int(NombreFrondeur-NombreFrondeurSELECTED)) ' - E
D4 = ((viearcher+B4)*int(NombreArcher-NombreArcherSELECTED)) ' - E
D5 = ((viecitoyen+B5)*(popTOTAL-(popSCIENT+popMILIT))) ' - E
D6 = ((viescientifique+B6)*popSCIENT) ' - E
D7 = ((vieEXPLORATEUR+B7)*int(NombreEXPLORATEUR-NombreEXPLORATEURSELECTED)) ' - E

E1 = (offHommedarmeIAm2*NombreHommeDarmeIAm2SELECTED)
E2 = (offlancierIAm2*NombreLancierIAm2SELECTED)
E3 = (offfrondeurIAm2*NombreFrondeurIAm2SELECTED)
E4 = (offarcherIAm2*NombreArcherIAm2SELECTED)

C1 = ((vieHommedarmeIAm2+defHommedarmeIAm2)*NombreHommeDarmeIAm2SELECTED ) ' - F
C2 = ((vielancierIAm2+deflancierIAm2)*NombreLancierIAm2SELECTED) ' - F
C3 = ((viefrondeurIAm2+defFrondeurIAm2)*NombreFrondeurIAm2SELECTED) ' - F
C4 = ((viearcherIAm2+defarcherIAm2)*NombreArcherIAm2SELECTED) ' - F

fight1a = int(A-(E1+E2+E3+E4)) ' les fortifications encaissent les degats

if fight1a > 0 then hpFortifications = int(fight1a) : E = 1
if fight1a <= 0 then
    hpFortifications = 0
    lvlHPFortifications = 0
    E = fight1a
    lvlbatimentFortifications = 0
    batimentBUILDFortifications = 0
    coutFortificationsBOISindex = 0
    coutFortificationsBOIS = 6200
end if

if NombreTROUPE <= 0 then NombreTROUPE = 1
fight1b = int(D1 + (E/NombreTROUPE)) : if fight1b < 0 then fight1b = 0
fight1c = int(D2 + (E/NombreTROUPE)) : if fight1c < 0 then fight1c = 0
fight1d = int(D3 + (E/NombreTROUPE)) : if fight1d < 0 then fight1d = 0
fight1e = int(D4 + (E/NombreTROUPE)) : if fight1e < 0 then fight1e = 0
fight1f = int(D5 + (E/NombreTROUPE)) : if fight1f < 0 then fight1f = 0
fight1g = int(D6 + (E/NombreTROUPE)) : if fight1g < 0 then fight1g = 0
fight1h = int(D7 + (E/NombreTROUPE)) : if fight1h < 0 then fight1h = 0
fight2a = int(F1+F2+F3+F4+F5+F6+F7) ' chargement des degats du joueur defensif
if NombreTROUPEiam2 <= 0 then NombreTROUPEiam2 = 1
fight2b = int(C1-(fight2a/NombreTROUPEiam2))
fight2c = int(C2-(fight2a/NombreTROUPEiam2))
fight2d = int(C3-(fight2a/NombreTROUPEiam2))
fight2e = int(C4-(fight2a/NombreTROUPEiam2))

if NombreHommeDarmeIAm2SELECTED > 0 then
    NombreHommeDarmeIAm2SELECTED = int(fight2b/(vieHommedarmeIAm2+defHommedarmeIAm2))
    if NombreHommeDarmeIAm2SELECTED < 0 then NombreHommeDarmeIAm2SELECTED = 0
    if NombreHommeDarmeIAm2SELECTED > NombreHommeDarmeIAm2TEMP then NombreHommeDarmeIAm2SELECTED = NombreHommeDarmeIAm2TEMP
end if
if NombreLancierIAm2SELECTED > 0 then
    NombreLancierIAm2SELECTED = int(fight2c/(vielancierIAm2+deflancierIAm2))
    if NombreLancierIAm2SELECTED < 0 then NombreLancierIAm2SELECTED = 0
    if NombreLancierIAm2SELECTED > NombreLancierIAm2TEMP then NombreLancierIAm2SELECTED = NombreLancierIAm2TEMP
end if
if NombreFrondeurIAm2SELECTED > 0 then
    NombreFrondeurIAm2SELECTED = int(fight2d/(viefrondeurIAm2+defFrondeurIAm2))
    if NombreFrondeurIAm2SELECTED < 0 then NombreFrondeurIAm2SELECTED = 0
    if NombreFrondeurIAm2SELECTED > NombreFrondeurIAm2TEMP then NombreFrondeurIAm2SELECTED = NombreFrondeurIAm2TEMP
end if
if NombreArcherIAm2SELECTED > 0 then
    NombreArcherIAm2SELECTED = int(fight2e/(viearcherIAm2+defarcherIAm2))
    if NombreArcherIAm2SELECTED < 0 then NombreArcherIAm2SELECTED = 0
    if NombreArcherIAm2SELECTED > NombreArcherIAm2TEMP then NombreArcherIAm2SELECTED = NombreArcherIAm2TEMP
end if

if int(NombreHommeDarme-NombreHommeDarmeSELECTED) > 0 then
    NombreHommeDarme = int(fight1b/(vieHommedarme+B1))+NombreHommeDarmeSELECTED
    if NombreHommeDarme < 0 then NombreHommeDarme = 0
    if NombreHommeDarme > int(NombreHommeDarmeTEMP+NombreHommeDarmeSELECTED) then NombreHommeDarme = int(NombreHommeDarmeTEMP+NombreHommeDarmeSELECTED)
end if
if int(NombreLancier-NombreLancierSELECTED) > 0 then
    NombreLancier = int(fight1c/(vielancier+B2))+NombreLancierSELECTED
    if NombreLancier < 0 then NombreLancier = 0
    if NombreLancier > int(NombreLancierTEMP+NombreLancierSELECTED) then NombreLancier = int(NombreLancierTEMP+NombreLancierSELECTED)
end if
if int(NombreFrondeur-NombreFrondeurSELECTED) > 0 then
    NombreFrondeur = int(fight1d/(viefrondeur+B3))+NombreFrondeurSELECTED
    if NombreFrondeur < 0 then NombreFrondeur = 0
    if NombreFrondeur > int(NombreFrondeurTEMP+NombreFrondeurSELECTED) then NombreFrondeur = int(NombreFrondeurTEMP+NombreFrondeurSELECTED)
end if
if int(NombreArcher-NombreArcherSELECTED) > 0 then
    NombreArcher = int(fight1e/(viearcher+B4))+NombreArcherSELECTED
    if NombreArcher < 0 then NombreArcher = 0
    if NombreArcher > int(NombreArcherTEMP+NombreArcherSELECTED) then NombreArcher = int(NombreArcherTEMP+NombreArcherSELECTED)
end if
if int(NombreEXPLORATEUR-NombreEXPLORATEURSELECTED) > 0 then
    NombreEXPLORATEUR = int(fight1h/(vieEXPLORATEUR+B7))+NombreEXPLORATEURSELECTED
    if NombreEXPLORATEUR < 0 then NombreEXPLORATEUR = 0
    if NombreEXPLORATEUR > int(NombreEXPLORATEURTEMP+NombreEXPLORATEURSELECTED) then NombreEXPLORATEUR = int(NombreEXPLORATEURTEMP+NombreEXPLORATEURSELECTED)
end if

if int(NombreHommeDarme-NombreHommeDarmeSELECTED) = 0 and int(NombreLancier-NombreLancierSELECTED) = 0 and int(NombreFrondeur-NombreFrondeurSELECTED) = 0 and int(NombreArcher-NombreArcherSELECTED) = 0 and int(NombreEXPLORATEUR-NombreEXPLORATEURSELECTED) = 0 then
    if int(popTOTAL-(popSCIENT+popMILIT)) > 0 then
        popCIVIL = int(fight1f/(viecitoyen+B5))
        if popCIVIL < 0 then popCIVIL = 0
        if popCIVIL > NombreCitoyenTEMP then popCIVIL = NombreCitoyenTEMP
    end if
    if popSCIENT > 0 then
        popSCIENT = int(fight1g/(viescientifique+B6))
        if popSCIENT < 0 then popSCIENT = 0
        if popSCIENT > NombreScientTEMP then popSCIENT = NombreScientTEMP
    end if
end if

if int(NombreHommeDarme-NombreHommeDarmeSELECTED) <= 0 and int(NombreEXPLORATEUR-NombreEXPLORATEURSELECTED) <= 0 and int(NombreLancier-NombreLancierSELECTED) <= 0 and int(NombreFrondeur-NombreFrondeurSELECTED) <= 0 and int(NombreArcher-NombreArcherSELECTED) <= 0 and popCIVIL<=0 and popSCIENT<= 0 then fight2 = 0
if int(NombreHommeDarme-NombreHommeDarmeSELECTED) > 0 or int(NombreEXPLORATEUR-NombreEXPLORATEURSELECTED) > 0 or int(NombreLancier-NombreLancierSELECTED) > 0 or int(NombreFrondeur-NombreFrondeurSELECTED) > 0 or int(NombreArcher-NombreArcherSELECTED) > 0 or popCIVIL > 0 or popSCIENT > 0 then fight2 = 1
if NombreHommeDarmeIAm2SELECTED <= 0 and NombreLancierIAm2SELECTED <= 0 and NombreFrondeurIAm2SELECTED <= 0 and NombreArcherIAm2SELECTED<= 0 then fight1 = 0
if NombreHommeDarmeIAm2SELECTED > 0 or NombreLancierIAm2SELECTED > 0 or NombreFrondeurIAm2SELECTED > 0 or NombreArcherIAm2SELECTED > 0 then fight1 = 1
if fight1 > 0 and fight2 > 0 then goto [boucleATKia2B]

perteHOMMEdarme = int(NombreHommeDarmeTEMP-(NombreHommeDarme-NombreHommeDarmeSELECTED))
perteLANCIER = int(NombreLancierTEMP-(NombreLancier-NombreLancierSELECTED))
perteFRONDEUR = int(NombreFrondeurTEMP-(NombreFrondeur-NombreFrondeurSELECTED))
perteARCHER = int(NombreArcherTEMP-(NombreArcher-NombreArcherSELECTED))
perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-(NombreEXPLORATEUR-NombreEXPLORATEURSELECTED))
if perteHOMMEdarme<0 then perteHOMMEdarme = 0
if perteLANCIER<0 then perteLANCIER = 0
if perteFRONDEUR<0 then perteFRONDEUR = 0
if perteARCHER<0 then perteARCHER = 0
if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0

popMILIT = popMILIT - int(perteHOMMEdarme+perteLANCIER+perteFRONDEUR+perteARCHER+perteEXPLORATEUR)
popCIVIL = int(popTOTAL-(popSCIENT+popMILIT)) - int(perteHOMMEdarme+perteLANCIER+perteFRONDEUR+perteARCHER+perteEXPLORATEUR)
popTOTAL = int(popSCIENT +  popMILIT + popCIVIL)

perteHOMMEdarmeIAm2 = int(NombreHommeDarmeIAm2TEMP-NombreHommeDarmeIAm2SELECTED)
perteLANCIERIAm2 = int(NombreLancierIAm2TEMP-NombreLancierIAm2SELECTED)
perteFRONDEURIAm2 = int(NombreFrondeurIAm2TEMP-NombreFrondeurIAm2SELECTED)
perteARCHERIAm2 = int(NombreArcherIAm2TEMP-NombreArcherIAm2SELECTED)
if perteHOMMEdarmeIAm2 <0 then perteHOMMEdarmeIAm2 = 0
if perteLANCIERIAm2 <0 then perteLANCIERIAm2 = 0
if perteFRONDEURIAm2 <0 then perteFRONDEURIAm2 = 0
if perteARCHERIAm2 <0 then perteARCHERIAm2 = 0

popMILITIAm2 = popMILITIAm2 - int(perteHOMMEdarmeIAm2+perteLANCIERIAm2+perteFRONDEURIAm2+perteARCHERIAm2) : if popMILITIAm2 < 0 then popMILITIAm2 = 0
popTOTALIAm2 = int(popSCIENTIAm2 +  popMILITIAm2 + popCIVILiam2)
if popTOTALIAm2 <0 then popTOTALIAm2 = 0

NombreHommeDarmeIAm2 = NombreHommeDarmeIAm2 - perteHOMMEdarmeIAm2
NombreLancierIAm2 = NombreLancierIAm2 - perteLANCIERIAm2
NombreFrondeurIAm2 = NombreFrondeurIAm2 - perteFRONDEURIAm2
NombreArcherIAm2 = NombreArcherIAm2 - perteARCHERIAm2

if fight2 <= 0 then TEXTvictoire$ = "Défaite" : popCIVIL = 0 : if popTOTAL <0 then popTOTAL = 0
if fight1 <= 0 then TEXTvictoire$ = "Victoire"
attaqueAIm1 = 2

NombreHommeDarmeIAm2SELECTEDtemp = 0
NombreLancierIAm2SELECTEDtemp = 0
NombreFrondeurIAm2SELECTEDtemp = 0
NombreArcherIAm2SELECTEDtemp = 0

NombreHommeDarmeIAm2SELECTED = 0
NombreLancierIAm2SELECTED = 0
NombreFrondeurIAm2SELECTED = 0
NombreArcherIAm2SELECTED = 0
goto [rapportBataille2]



'quand l'IA attaque vos territoires (REFAIT)

[boucleATKia1TERRITOIRE]
gosub [dataUNITfightPERSO]

errorGAME = 4
select case PLAYER
    case 2
        if NombreHommeDarmeIAm1SELECTEDtemp3 > NombreHommeDarmeIAm1SELECTED then NombreHommeDarmeIAm1SELECTED = NombreHommeDarmeIAm1SELECTEDtemp3
        if NombreLancierIAm1SELECTEDtemp3 > NombreLancierIAm1SELECTED then NombreLancierIAm1SELECTED = NombreLancierIAm1SELECTEDtemp3
        if NombreFrondeurIAm1SELECTEDtemp3 > NombreFrondeurIAm1SELECTED then NombreFrondeurIAm1SELECTED = NombreFrondeurIAm1SELECTEDtemp3
        if NombreArcherIAm1SELECTEDtemp3 > NombreArcherIAm1SELECTED then NombreArcherIAm1SELECTED = NombreArcherIAm1SELECTEDtemp3
        NombreTROUPEiam1 = 0
        if NombreHommeDarmeIAm1SELECTED >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
        if NombreLancierIAm1SELECTED >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
        if NombreFrondeurIAm1SELECTED >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
        if NombreArcherIAm1SELECTED >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
        NombreHommeDarmeIAm1TEMP = NombreHommeDarmeIAm1SELECTED
        NombreLancierIAm1TEMP = NombreLancierIAm1SELECTED
        NombreFrondeurIAm1TEMP = NombreFrondeurIAm1SELECTED
        NombreArcherIAm1TEMP = NombreArcherIAm1SELECTED
    '    notice "1) ";NombreHommeDarmeIAm1TEMP ; " : " ; NombreLancierIAm1TEMP ; " : " ; NombreFrondeurIAm1TEMP ; " : " ; NombreArcherIAm1TEMP
    case 3
        if NombreHommeDarmeIAm2SELECTEDtemp2 > NombreHommeDarmeIAm2SELECTED then NombreHommeDarmeIAm2SELECTED = NombreHommeDarmeIAm2SELECTEDtemp2
        if NombreLancierIAm2SELECTEDtemp2 > NombreLancierIAm2SELECTED then NombreLancierIAm2SELECTED = NombreLancierIAm2SELECTEDtemp2
        if NombreFrondeurIAm2SELECTEDtemp2 > NombreFrondeurIAm2SELECTED then NombreFrondeurIAm2SELECTED = NombreFrondeurIAm2SELECTEDtemp2
        if NombreArcherIAm2SELECTEDtemp2 > NombreArcherIAm2SELECTED then NombreArcherIAm2SELECTED = NombreArcherIAm2SELECTEDtemp2
        NombreTROUPEiam2 = 0
        if NombreHommeDarmeIAm2SELECTED >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
        if NombreLancierIAm2SELECTED >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
        if NombreFrondeurIAm2SELECTED >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
        if NombreArcherIAm2SELECTED >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
        NombreHommeDarmeIAm2TEMP = NombreHommeDarmeIAm2SELECTED
        NombreLancierIAm2TEMP = NombreLancierIAm2SELECTED
        NombreFrondeurIAm2TEMP = NombreFrondeurIAm2SELECTED
        NombreArcherIAm2TEMP = NombreArcherIAm2SELECTED
     '   notice "2) ";NombreHommeDarmeIAm2TEMP ; " : " ; NombreLancierIAm2TEMP ; " : " ; NombreFrondeurIAm2TEMP ; " : " ; NombreArcherIAm2TEMP
end select

select case territoire
case 1
    hpFortificationsTERR = hpFortificationsTERR1 : hpFortificationsTEMP = hpFortificationsTERR
    if NombreHommeDarmeTERR1 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreLancierTERR1 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreFrondeurTERR1 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreArcherTERR1 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreEXPLORATEURTERR1 >=1 then NombreTROUPE = NombreTROUPE + 1
    NombreEXPLORATEURTEMP = NombreEXPLORATEURTERR1 : NombreHommeDarmeTEMP = NombreHommeDarmeTERR1 : NombreLancierTEMP = NombreLancierTERR1 : NombreFrondeurTEMP = NombreFrondeurTERR1 : NombreArcherTEMP = NombreArcherTERR1 : lvlbatimentFortificationsTERRITOIRE = LVLfortificationTERRITOIRE1
case 2
    hpFortificationsTERR = hpFortificationsTERR2 : hpFortificationsTEMP = hpFortificationsTERR
    if NombreHommeDarmeTERR2 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreLancierTERR2 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreFrondeurTERR2 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreArcherTERR2 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreEXPLORATEURTERR2 >=1 then NombreTROUPE = NombreTROUPE + 1
    NombreEXPLORATEURTEMP = NombreEXPLORATEURTERR2 : NombreHommeDarmeTEMP = NombreHommeDarmeTERR2 : NombreLancierTEMP = NombreLancierTERR2 : NombreFrondeurTEMP = NombreFrondeurTERR2 : NombreArcherTEMP = NombreArcherTERR2 : lvlbatimentFortificationsTERRITOIRE = LVLfortificationTERRITOIRE2
case 3
    hpFortificationsTERR = hpFortificationsTERR3 : hpFortificationsTEMP = hpFortificationsTERR
    if NombreHommeDarmeTERR3 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreLancierTERR3 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreFrondeurTERR3 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreArcherTERR3 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreEXPLORATEURTERR3 >=1 then NombreTROUPE = NombreTROUPE + 1
    NombreEXPLORATEURTEMP = NombreEXPLORATEURTERR3 : NombreHommeDarmeTEMP = NombreHommeDarmeTERR3 : NombreLancierTEMP = NombreLancierTERR3 : NombreFrondeurTEMP = NombreFrondeurTERR3 : NombreArcherTEMP = NombreArcherTERR3 : lvlbatimentFortificationsTERRITOIRE = LVLfortificationTERRITOIRE3
case 4
    hpFortificationsTERR = hpFortificationsTERR4 : hpFortificationsTEMP = hpFortificationsTERR
    if NombreHommeDarmeTERR4 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreLancierTERR4 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreFrondeurTERR4 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreArcherTERR4 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreEXPLORATEURTERR4 >=1 then NombreTROUPE = NombreTROUPE + 1
    NombreEXPLORATEURTEMP = NombreEXPLORATEURTERR4 : NombreHommeDarmeTEMP = NombreHommeDarmeTERR4 : NombreLancierTEMP = NombreLancierTERR4 : NombreFrondeurTEMP = NombreFrondeurTERR4 : NombreArcherTEMP = NombreArcherTERR4 : lvlbatimentFortificationsTERRITOIRE = LVLfortificationTERRITOIRE4
case 5
    hpFortificationsTERR = hpFortificationsTERR5 : hpFortificationsTEMP = hpFortificationsTERR
    if NombreHommeDarmeTERR5 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreLancierTERR5 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreFrondeurTERR5 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreArcherTERR5 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreEXPLORATEURTERR5 >=1 then NombreTROUPE = NombreTROUPE + 1
    NombreEXPLORATEURTEMP = NombreEXPLORATEURTERR5 : NombreHommeDarmeTEMP = NombreHommeDarmeTERR5 : NombreLancierTEMP = NombreLancierTERR5 : NombreFrondeurTEMP = NombreFrondeurTERR5 : NombreArcherTEMP = NombreArcherTERR5 : lvlbatimentFortificationsTERRITOIRE = LVLfortificationTERRITOIRE5
case 6
    hpFortificationsTERR = hpFortificationsTERR6 : hpFortificationsTEMP = hpFortificationsTERR
    if NombreHommeDarmeTERR6 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreLancierTERR6 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreFrondeurTERR6 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreArcherTERR6 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreEXPLORATEURTERR6 >=1 then NombreTROUPE = NombreTROUPE + 1
    NombreEXPLORATEURTEMP = NombreEXPLORATEURTERR6 : NombreHommeDarmeTEMP = NombreHommeDarmeTERR6 : NombreLancierTEMP = NombreLancierTERR6 : NombreFrondeurTEMP = NombreFrondeurTERR6 : NombreArcherTEMP = NombreArcherTERR6 : lvlbatimentFortificationsTERRITOIRE = LVLfortificationTERRITOIRE6
case 7
    hpFortificationsTERR = hpFortificationsTERR7 : hpFortificationsTEMP = hpFortificationsTERR
    if NombreHommeDarmeTERR7 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreLancierTERR7 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreFrondeurTERR7 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreArcherTERR7 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreEXPLORATEURTERR7 >=1 then NombreTROUPE = NombreTROUPE + 1
    NombreEXPLORATEURTEMP = NombreEXPLORATEURTERR7 : NombreHommeDarmeTEMP = NombreHommeDarmeTERR7 : NombreLancierTEMP = NombreLancierTERR7 : NombreFrondeurTEMP = NombreFrondeurTERR7 : NombreArcherTEMP = NombreArcherTERR7 : lvlbatimentFortificationsTERRITOIRE = LVLfortificationTERRITOIRE7
case 8
    hpFortificationsTERR = hpFortificationsTERR8 : hpFortificationsTEMP = hpFortificationsTERR
    if NombreHommeDarmeTERR8 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreLancierTERR8 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreFrondeurTERR8 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreArcherTERR8 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreEXPLORATEURTERR8 >=1 then NombreTROUPE = NombreTROUPE + 1
    NombreEXPLORATEURTEMP = NombreEXPLORATEURTERR8 : NombreHommeDarmeTEMP = NombreHommeDarmeTERR8 : NombreLancierTEMP = NombreLancierTERR8 : NombreFrondeurTEMP = NombreFrondeurTERR8 : NombreArcherTEMP = NombreArcherTERR8 : lvlbatimentFortificationsTERRITOIRE = LVLfortificationTERRITOIRE8
case 9
    hpFortificationsTERR = hpFortificationsTERR9 : hpFortificationsTEMP = hpFortificationsTERR
    if NombreHommeDarmeTERR9 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreLancierTERR9 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreFrondeurTERR9 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreArcherTERR9 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreEXPLORATEURTERR9 >=1 then NombreTROUPE = NombreTROUPE + 1
    NombreEXPLORATEURTEMP = NombreEXPLORATEURTERR9 : NombreHommeDarmeTEMP = NombreHommeDarmeTERR9 : NombreLancierTEMP = NombreLancierTERR9 : NombreFrondeurTEMP = NombreFrondeurTERR9 : NombreArcherTEMP = NombreArcherTERR9 : lvlbatimentFortificationsTERRITOIRE = LVLfortificationTERRITOIRE9
case 10
    hpFortificationsTERR = hpFortificationsTERR10 : hpFortificationsTEMP = hpFortificationsTERR
    if NombreHommeDarmeTERR10 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreLancierTERR10 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreFrondeurTERR10 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreArcherTERR10 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreEXPLORATEURTERR10 >=1 then NombreTROUPE = NombreTROUPE + 1
    NombreEXPLORATEURTEMP = NombreEXPLORATEURTERR10 : NombreHommeDarmeTEMP = NombreHommeDarmeTERR10 : NombreLancierTEMP = NombreLancierTERR10 : NombreFrondeurTEMP = NombreFrondeurTERR10 : NombreArcherTEMP = NombreArcherTERR10 : lvlbatimentFortificationsTERRITOIRE = LVLfortificationTERRITOIRE10
case 11
    hpFortificationsTERR = hpFortificationsTERR11 : hpFortificationsTEMP = hpFortificationsTERR
    if NombreHommeDarmeTERR11 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreLancierTERR11 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreFrondeurTERR11 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreArcherTERR11 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreEXPLORATEURTERR11 >=1 then NombreTROUPE = NombreTROUPE + 1
    NombreEXPLORATEURTEMP = NombreEXPLORATEURTERR11 : NombreHommeDarmeTEMP = NombreHommeDarmeTERR11 : NombreLancierTEMP = NombreLancierTERR11 : NombreFrondeurTEMP = NombreFrondeurTERR11 : NombreArcherTEMP = NombreArcherTERR11 : lvlbatimentFortificationsTERRITOIRE = LVLfortificationTERRITOIRE11
case 12
    hpFortificationsTERR = hpFortificationsTERR12 : hpFortificationsTEMP = hpFortificationsTERR
    if NombreHommeDarmeTERR12 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreLancierTERR12 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreFrondeurTERR12 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreArcherTERR12 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreEXPLORATEURTERR12 >=1 then NombreTROUPE = NombreTROUPE + 1
    NombreEXPLORATEURTEMP = NombreEXPLORATEURTERR12 : NombreHommeDarmeTEMP = NombreHommeDarmeTERR12 : NombreLancierTEMP = NombreLancierTERR12 : NombreFrondeurTEMP = NombreFrondeurTERR12 : NombreArcherTEMP = NombreArcherTERR12 : lvlbatimentFortificationsTERRITOIRE = LVLfortificationTERRITOIRE12
case 13
    hpFortificationsTERR = hpFortificationsTERR13 : hpFortificationsTEMP = hpFortificationsTERR
    if NombreHommeDarmeTERR13 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreLancierTERR13 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreFrondeurTERR13 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreArcherTERR13 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreEXPLORATEURTERR13 >=1 then NombreTROUPE = NombreTROUPE + 1
    NombreEXPLORATEURTEMP = NombreEXPLORATEURTERR13 : NombreHommeDarmeTEMP = NombreHommeDarmeTERR13 : NombreLancierTEMP = NombreLancierTERR13 : NombreFrondeurTEMP = NombreFrondeurTERR13 : NombreArcherTEMP = NombreArcherTERR13 : lvlbatimentFortificationsTERRITOIRE = LVLfortificationTERRITOIRE13
case 14
    hpFortificationsTERR = hpFortificationsTERR14: hpFortificationsTEMP = hpFortificationsTERR
    if NombreHommeDarmeTERR14 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreLancierTERR14 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreFrondeurTERR14 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreArcherTERR14 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreEXPLORATEURTERR14 >=1 then NombreTROUPE = NombreTROUPE + 1
    NombreEXPLORATEURTEMP = NombreEXPLORATEURTERR14 : NombreHommeDarmeTEMP = NombreHommeDarmeTERR14 : NombreLancierTEMP = NombreLancierTERR14 : NombreFrondeurTEMP = NombreFrondeurTERR14 : NombreArcherTEMP = NombreArcherTERR14 : lvlbatimentFortificationsTERRITOIRE = LVLfortificationTERRITOIRE14
case 15
    hpFortificationsTERR = hpFortificationsTERR15 : hpFortificationsTEMP = hpFortificationsTERR
    if NombreHommeDarmeTERR15 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreLancierTERR15 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreFrondeurTERR15 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreArcherTERR15 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreEXPLORATEURTERR15 >=1 then NombreTROUPE = NombreTROUPE + 1
    NombreEXPLORATEURTEMP = NombreEXPLORATEURTERR15 : NombreHommeDarmeTEMP = NombreHommeDarmeTERR15 : NombreLancierTEMP = NombreLancierTERR15 : NombreFrondeurTEMP = NombreFrondeurTERR15 : NombreArcherTEMP = NombreArcherTERR15 : lvlbatimentFortificationsTERRITOIRE = LVLfortificationTERRITOIRE15
case 16
    hpFortificationsTERR = hpFortificationsTERR16 : hpFortificationsTEMP = hpFortificationsTERR
    if NombreHommeDarmeTERR16 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreLancierTERR16 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreFrondeurTERR16 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreArcherTERR16 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreEXPLORATEURTERR16 >=1 then NombreTROUPE = NombreTROUPE + 1
    NombreEXPLORATEURTEMP = NombreEXPLORATEURTERR16 : NombreHommeDarmeTEMP = NombreHommeDarmeTERR16 : NombreLancierTEMP = NombreLancierTERR16 : NombreFrondeurTEMP = NombreFrondeurTERR16 : NombreArcherTEMP = NombreArcherTERR16 : lvlbatimentFortificationsTERRITOIRE = LVLfortificationTERRITOIRE16
case 17
    hpFortificationsTERR = hpFortificationsTERR17 : hpFortificationsTEMP = hpFortificationsTERR
    if NombreHommeDarmeTERR17 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreLancierTERR17 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreFrondeurTERR17 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreArcherTERR17 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreEXPLORATEURTERR17 >=1 then NombreTROUPE = NombreTROUPE + 1
    NombreEXPLORATEURTEMP = NombreEXPLORATEURTERR17 : NombreHommeDarmeTEMP = NombreHommeDarmeTERR17 : NombreLancierTEMP = NombreLancierTERR17 : NombreFrondeurTEMP = NombreFrondeurTERR17 : NombreArcherTEMP = NombreArcherTERR17 : lvlbatimentFortificationsTERRITOIRE = LVLfortificationTERRITOIRE17
case 18
    hpFortificationsTERR = hpFortificationsTERR18 : hpFortificationsTEMP = hpFortificationsTERR
    if NombreHommeDarmeTERR18 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreLancierTERR18 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreFrondeurTERR18 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreArcherTERR18 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreEXPLORATEURTERR18 >=1 then NombreTROUPE = NombreTROUPE + 1
    NombreEXPLORATEURTEMP = NombreEXPLORATEURTERR18 : NombreHommeDarmeTEMP = NombreHommeDarmeTERR18 : NombreLancierTEMP = NombreLancierTERR18 : NombreFrondeurTEMP = NombreFrondeurTERR18 : NombreArcherTEMP = NombreArcherTERR18 : lvlbatimentFortificationsTERRITOIRE = LVLfortificationTERRITOIRE18
case 19
    hpFortificationsTERR = hpFortificationsTERR19 : hpFortificationsTEMP = hpFortificationsTERR
    if NombreHommeDarmeTERR19 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreLancierTERR19 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreFrondeurTERR19 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreArcherTERR19 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreEXPLORATEURTERR19 >=1 then NombreTROUPE = NombreTROUPE + 1
    NombreEXPLORATEURTEMP = NombreEXPLORATEURTERR19 : NombreHommeDarmeTEMP = NombreHommeDarmeTERR19 : NombreLancierTEMP = NombreLancierTERR19 : NombreFrondeurTEMP = NombreFrondeurTERR19 : NombreArcherTEMP = NombreArcherTERR19 : lvlbatimentFortificationsTERRITOIRE = LVLfortificationTERRITOIRE19
case 20
    hpFortificationsTERR = hpFortificationsTERR20 : hpFortificationsTEMP = hpFortificationsTERR
    if NombreHommeDarmeTERR20 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreLancierTERR20 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreFrondeurTERR20 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreArcherTERR20 >= 1 then NombreTROUPE = NombreTROUPE + 1
    if NombreEXPLORATEURTERR20 >=1 then NombreTROUPE = NombreTROUPE + 1
    NombreEXPLORATEURTEMP = NombreEXPLORATEURTERR20 : NombreHommeDarmeTEMP = NombreHommeDarmeTERR20 : NombreLancierTEMP = NombreLancierTERR20 : NombreFrondeurTEMP = NombreFrondeurTERR20 : NombreArcherTEMP = NombreArcherTERR20 : lvlbatimentFortificationsTERRITOIRE = LVLfortificationTERRITOIRE20
end select

[boucleATKterr]

   A = hpFortificationsTERR
   B1 = (defHommedarme* (1+lvlbatimentFortificationsTERRITOIRE*0.02))
   B2 = (deflancier* (1+lvlbatimentFortificationsTERRITOIRE*0.02))
   B3 = (deffrondeur* (1+lvlbatimentFortificationsTERRITOIRE*0.02))
   B4 = (defarcher* (1+lvlbatimentFortificationsTERRITOIRE*0.02))
   B5 = (defEXPLORATEUR* (1+lvlbatimentFortificationsTERRITOIRE*0.02))

select territoire
    case 1
        F1 = (offHommedarme*NombreHommeDarmeTERR1)
        F2 = (offlancier*NombreLancierTERR1)
        F3 = (offfrondeur*NombreFrondeurTERR1)
        F4 = (offarcher*NombreArcherTERR1)
        F5 = (offEXPLORATEUR*NombreEXPLORATEURTERR1)
        D1 = ((vieHommedarme+B1)*NombreHommeDarmeTERR1)
        D2 = ((vielancier+B2)*NombreLancierTERR1)
        D3 = ((viefrondeur+B3)*NombreFrondeurTERR1)
        D4 = ((viearcher+B4)*NombreArcherTERR1)
        D5 = ((vieEXPLORATEUR+B5)*NombreEXPLORATEURTERR1)
    case 2
        F1 = (offHommedarme*NombreHommeDarmeTERR2)
        F2 = (offlancier*NombreLancierTERR2)
        F3 = (offfrondeur*NombreFrondeurTERR2)
        F4 = (offarcher*NombreArcherTERR2)
        F5 = (offEXPLORATEUR*NombreEXPLORATEURTERR2)
        D1 = ((vieHommedarme+B1)*NombreHommeDarmeTERR2)
        D2 = ((vielancier+B2)*NombreLancierTERR2)
        D3 = ((viefrondeur+B3)*NombreFrondeurTERR2)
        D4 = ((viearcher+B4)*NombreArcherTERR2)
        D5 = ((vieEXPLORATEUR+B5)*NombreEXPLORATEURTERR2)
    case 3
        F1 = (offHommedarme*NombreHommeDarmeTERR3)
        F2 = (offlancier*NombreLancierTERR3)
        F3 = (offfrondeur*NombreFrondeurTERR3)
        F4 = (offarcher*NombreArcherTERR3)
        F5 = (offEXPLORATEUR*NombreEXPLORATEURTERR3)
        D1 = ((vieHommedarme+B1)*NombreHommeDarmeTERR3)
        D2 = ((vielancier+B2)*NombreLancierTERR3)
        D3 = ((viefrondeur+B3)*NombreFrondeurTERR3)
        D4 = ((viearcher+B4)*NombreArcherTERR3)
        D5 = ((vieEXPLORATEUR+B5)*NombreEXPLORATEURTERR3)
    case 4
        F1 = (offHommedarme*NombreHommeDarmeTERR4)
        F2 = (offlancier*NombreLancierTERR4)
        F3 = (offfrondeur*NombreFrondeurTERR4)
        F4 = (offarcher*NombreArcherTERR4)
        F5 = (offEXPLORATEUR*NombreEXPLORATEURTERR4)
        D1 = ((vieHommedarme+B1)*NombreHommeDarmeTERR4)
        D2 = ((vielancier+B2)*NombreLancierTERR4)
        D3 = ((viefrondeur+B3)*NombreFrondeurTERR4)
        D4 = ((viearcher+B4)*NombreArcherTERR4)
        D5 = ((vieEXPLORATEUR+B5)*NombreEXPLORATEURTERR4)
    case 5
        F1 = (offHommedarme*NombreHommeDarmeTERR5)
        F2 = (offlancier*NombreLancierTERR5)
        F3 = (offfrondeur*NombreFrondeurTERR5)
        F4 = (offarcher*NombreArcherTERR5)
        F5 = (offEXPLORATEUR*NombreEXPLORATEURTERR5)
        D1 = ((vieHommedarme+B1)*NombreHommeDarmeTERR5)
        D2 = ((vielancier+B2)*NombreLancierTERR5)
        D3 = ((viefrondeur+B3)*NombreFrondeurTERR5)
        D4 = ((viearcher+B4)*NombreArcherTERR5)
        D5 = ((vieEXPLORATEUR+B5)*NombreEXPLORATEURTERR5)
    case 6
        F1 = (offHommedarme*NombreHommeDarmeTERR6)
        F2 = (offlancier*NombreLancierTERR6)
        F3 = (offfrondeur*NombreFrondeurTERR6)
        F4 = (offarcher*NombreArcherTERR6)
        F5 = (offEXPLORATEUR*NombreEXPLORATEURTERR6)
        D1 = ((vieHommedarme+B1)*NombreHommeDarmeTERR6)
        D2 = ((vielancier+B2)*NombreLancierTERR6)
        D3 = ((viefrondeur+B3)*NombreFrondeurTERR6)
        D4 = ((viearcher+B4)*NombreArcherTERR6)
        D5 = ((vieEXPLORATEUR+B5)*NombreEXPLORATEURTERR6)
    case 7
        F1 = (offHommedarme*NombreHommeDarmeTERR7)
        F2 = (offlancier*NombreLancierTERR7)
        F3 = (offfrondeur*NombreFrondeurTERR7)
        F4 = (offarcher*NombreArcherTERR7)
        F5 = (offEXPLORATEUR*NombreEXPLORATEURTERR7)
        D1 = ((vieHommedarme+B1)*NombreHommeDarmeTERR7)
        D2 = ((vielancier+B2)*NombreLancierTERR7)
        D3 = ((viefrondeur+B3)*NombreFrondeurTERR7)
        D4 = ((viearcher+B4)*NombreArcherTERR7)
        D5 = ((vieEXPLORATEUR+B5)*NombreEXPLORATEURTERR7)
    case 8
        F1 = (offHommedarme*NombreHommeDarmeTERR8)
        F2 = (offlancier*NombreLancierTERR8)
        F3 = (offfrondeur*NombreFrondeurTERR8)
        F4 = (offarcher*NombreArcherTERR8)
        F5 = (offEXPLORATEUR*NombreEXPLORATEURTERR8)
        D1 = ((vieHommedarme+B1)*NombreHommeDarmeTERR8)
        D2 = ((vielancier+B2)*NombreLancierTERR8)
        D3 = ((viefrondeur+B3)*NombreFrondeurTERR8)
        D4 = ((viearcher+B4)*NombreArcherTERR8)
        D5 = ((vieEXPLORATEUR+B5)*NombreEXPLORATEURTERR8)
    case 9
        F1 = (offHommedarme*NombreHommeDarmeTERR9)
        F2 = (offlancier*NombreLancierTERR9)
        F3 = (offfrondeur*NombreFrondeurTERR9)
        F4 = (offarcher*NombreArcherTERR9)
        F5 = (offEXPLORATEUR*NombreEXPLORATEURTERR9)
        D1 = ((vieHommedarme+B1)*NombreHommeDarmeTERR9)
        D2 = ((vielancier+B2)*NombreLancierTERR9)
        D3 = ((viefrondeur+B3)*NombreFrondeurTERR9)
        D4 = ((viearcher+B4)*NombreArcherTERR9)
        D5 = ((vieEXPLORATEUR+B5)*NombreEXPLORATEURTERR9)
    case 10
        F1 = (offHommedarme*NombreHommeDarmeTERR10)
        F2 = (offlancier*NombreLancierTERR10)
        F3 = (offfrondeur*NombreFrondeurTERR10)
        F4 = (offarcher*NombreArcherTERR10)
        F5 = (offEXPLORATEUR*NombreEXPLORATEURTERR10)
        D1 = ((vieHommedarme+B1)*NombreHommeDarmeTERR10)
        D2 = ((vielancier+B2)*NombreLancierTERR10)
        D3 = ((viefrondeur+B3)*NombreFrondeurTERR10)
        D4 = ((viearcher+B4)*NombreArcherTERR10)
        D5 = ((vieEXPLORATEUR+B5)*NombreEXPLORATEURTERR10)
    case 11
        F1 = (offHommedarme*NombreHommeDarmeTERR11)
        F2 = (offlancier*NombreLancierTERR11)
        F3 = (offfrondeur*NombreFrondeurTERR11)
        F4 = (offarcher*NombreArcherTERR11)
        F5 = (offEXPLORATEUR*NombreEXPLORATEURTERR11)
        D1 = ((vieHommedarme+B1)*NombreHommeDarmeTERR11)
        D2 = ((vielancier+B2)*NombreLancierTERR11)
        D3 = ((viefrondeur+B3)*NombreFrondeurTERR11)
        D4 = ((viearcher+B4)*NombreArcherTERR11)
        D5 = ((vieEXPLORATEUR+B5)*NombreEXPLORATEURTERR11)
    case 12
        F1 = (offHommedarme*NombreHommeDarmeTERR12)
        F2 = (offlancier*NombreLancierTERR12)
        F3 = (offfrondeur*NombreFrondeurTERR12)
        F4 = (offarcher*NombreArcherTERR12)
        F5 = (offEXPLORATEUR*NombreEXPLORATEURTERR12)
        D1 = ((vieHommedarme+B1)*NombreHommeDarmeTERR12)
        D2 = ((vielancier+B2)*NombreLancierTERR12)
        D3 = ((viefrondeur+B3)*NombreFrondeurTERR12)
        D4 = ((viearcher+B4)*NombreArcherTERR12)
        D5 = ((vieEXPLORATEUR+B5)*NombreEXPLORATEURTERR12)
    case 13
        F1 = (offHommedarme*NombreHommeDarmeTERR13)
        F2 = (offlancier*NombreLancierTERR13)
        F3 = (offfrondeur*NombreFrondeurTERR13)
        F4 = (offarcher*NombreArcherTERR13)
        F5 = (offEXPLORATEUR*NombreEXPLORATEURTERR13)
        D1 = ((vieHommedarme+B1)*NombreHommeDarmeTERR13)
        D2 = ((vielancier+B2)*NombreLancierTERR13)
        D3 = ((viefrondeur+B3)*NombreFrondeurTERR13)
        D4 = ((viearcher+B4)*NombreArcherTERR13)
        D5 = ((vieEXPLORATEUR+B5)*NombreEXPLORATEURTERR13)
    case 14
        F1 = (offHommedarme*NombreHommeDarmeTERR14)
        F2 = (offlancier*NombreLancierTERR14)
        F3 = (offfrondeur*NombreFrondeurTERR14)
        F4 = (offarcher*NombreArcherTERR14)
        F5 = (offEXPLORATEUR*NombreEXPLORATEURTERR14)
        D1 = ((vieHommedarme+B1)*NombreHommeDarmeTERR14)
        D2 = ((vielancier+B2)*NombreLancierTERR14)
        D3 = ((viefrondeur+B3)*NombreFrondeurTERR14)
        D4 = ((viearcher+B4)*NombreArcherTERR14)
        D5 = ((vieEXPLORATEUR+B5)*NombreEXPLORATEURTERR14)
    case 15
        F1 = (offHommedarme*NombreHommeDarmeTERR15)
        F2 = (offlancier*NombreLancierTERR15)
        F3 = (offfrondeur*NombreFrondeurTERR15)
        F4 = (offarcher*NombreArcherTERR15)
        F5 = (offEXPLORATEUR*NombreEXPLORATEURTERR15)
        D1 = ((vieHommedarme+B1)*NombreHommeDarmeTERR15)
        D2 = ((vielancier+B2)*NombreLancierTERR15)
        D3 = ((viefrondeur+B3)*NombreFrondeurTERR15)
        D4 = ((viearcher+B4)*NombreArcherTERR15)
        D5 = ((vieEXPLORATEUR+B5)*NombreEXPLORATEURTERR15)
    case 16
        F1 = (offHommedarme*NombreHommeDarmeTERR16)
        F2 = (offlancier*NombreLancierTERR16)
        F3 = (offfrondeur*NombreFrondeurTERR16)
        F4 = (offarcher*NombreArcherTERR16)
        F5 = (offEXPLORATEUR*NombreEXPLORATEURTERR16)
        D1 = ((vieHommedarme+B1)*NombreHommeDarmeTERR16)
        D2 = ((vielancier+B2)*NombreLancierTERR16)
        D3 = ((viefrondeur+B3)*NombreFrondeurTERR16)
        D4 = ((viearcher+B4)*NombreArcherTERR16)
        D5 = ((vieEXPLORATEUR+B5)*NombreEXPLORATEURTERR16)
    case 17
        F1 = (offHommedarme*NombreHommeDarmeTERR17)
        F2 = (offlancier*NombreLancierTERR17)
        F3 = (offfrondeur*NombreFrondeurTERR17)
        F4 = (offarcher*NombreArcherTERR17)
        F5 = (offEXPLORATEUR*NombreEXPLORATEURTERR17)
        D1 = ((vieHommedarme+B1)*NombreHommeDarmeTERR17)
        D2 = ((vielancier+B2)*NombreLancierTERR17)
        D3 = ((viefrondeur+B3)*NombreFrondeurTERR17)
        D4 = ((viearcher+B4)*NombreArcherTERR17)
        D5 = ((vieEXPLORATEUR+B5)*NombreEXPLORATEURTERR17)
    case 18
        F1 = (offHommedarme*NombreHommeDarmeTERR18)
        F2 = (offlancier*NombreLancierTERR18)
        F3 = (offfrondeur*NombreFrondeurTERR18)
        F4 = (offarcher*NombreArcherTERR18)
        F5 = (offEXPLORATEUR*NombreEXPLORATEURTERR18)
        D1 = ((vieHommedarme+B1)*NombreHommeDarmeTERR18)
        D2 = ((vielancier+B2)*NombreLancierTERR18)
        D3 = ((viefrondeur+B3)*NombreFrondeurTERR18)
        D4 = ((viearcher+B4)*NombreArcherTERR18)
        D5 = ((vieEXPLORATEUR+B5)*NombreEXPLORATEURTERR18)
    case 19
        F1 = (offHommedarme*NombreHommeDarmeTERR19)
        F2 = (offlancier*NombreLancierTERR19)
        F3 = (offfrondeur*NombreFrondeurTERR19)
        F4 = (offarcher*NombreArcherTERR19)
        F5 = (offEXPLORATEUR*NombreEXPLORATEURTERR19)
        D1 = ((vieHommedarme+B1)*NombreHommeDarmeTERR19)
        D2 = ((vielancier+B2)*NombreLancierTERR19)
        D3 = ((viefrondeur+B3)*NombreFrondeurTERR19)
        D4 = ((viearcher+B4)*NombreArcherTERR19)
        D5 = ((vieEXPLORATEUR+B5)*NombreEXPLORATEURTERR19)
    case 20
        F1 = (offHommedarme*NombreHommeDarmeTERR20)
        F2 = (offlancier*NombreLancierTERR20)
        F3 = (offfrondeur*NombreFrondeurTERR20)
        F4 = (offarcher*NombreArcherTERR20)
        F5 = (offEXPLORATEUR*NombreEXPLORATEURTERR20)
        D1 = ((vieHommedarme+B1)*NombreHommeDarmeTERR20)
        D2 = ((vielancier+B2)*NombreLancierTERR20)
        D3 = ((viefrondeur+B3)*NombreFrondeurTERR20)
        D4 = ((viearcher+B4)*NombreArcherTERR20)
        D5 = ((vieEXPLORATEUR+B5)*NombreEXPLORATEURTERR20)
end select
errorGAME = 41

select case PLAYER
    case 2
        E1 = (offHommedarmeIAm1*NombreHommeDarmeIAm1SELECTED)
        E2 = (offlancierIAm1*NombreLancierIAm1SELECTED)
        E3 = (offfrondeurIAm1*NombreFrondeurIAm1SELECTED)
        E4 = (offarcherIAm1*NombreArcherIAm1SELECTED)
        C1 = ((vieHommedarmeIAm1+defHommedarmeIAm1)*NombreHommeDarmeIAm1SELECTED) ' - F
        C2 = ((vielancierIAm1+deflancierIAm1)*NombreLancierIAm1SELECTED) ' - F
        C3 = ((viefrondeurIAm1+defFrondeurIAm1)*NombreFrondeurIAm1SELECTED) ' - F
        C4 = ((viearcherIAm1+defarcherIAm1)*NombreArcherIAm1SELECTED) ' - F
    case 3
        E1 = (offHommedarmeIAm2*NombreHommeDarmeIAm2SELECTED)
        E2 = (offlancierIAm2*NombreLancierIAm2SELECTED)
        E3 = (offfrondeurIAm2*NombreFrondeurIAm2SELECTED)
        E4 = (offarcherIAm2*NombreArcherIAm2SELECTED)
        C1 = ((vieHommedarmeIAm2+defHommedarmeIAm2)*NombreHommeDarmeIAm2SELECTED) ' - F
        C2 = ((vielancierIAm2+deflancierIAm2)*NombreLancierIAm2SELECTED) ' - F
        C3 = ((viefrondeurIAm2+defFrondeurIAm2)*NombreFrondeurIAm2SELECTED) ' - F
        C4 = ((viearcherIAm2+defarcherIAm2)*NombreArcherIAm2SELECTED) ' - F
end select
fight1a = int(A-(E1+E2+E3+E4)) ' les fortifications encaissent les degats

    if fight1a > 0 then hpFortificationsTERR = int(fight1a) : E = 1
    if hpFortificationsTERR < 0 then hpFortificationsTERR = 0

    if fight1a <= 0 then hpFortificationsTERR = 0 : lvlHPFortifications = 0 : E = fight1a
    if NombreTROUPE <= 0 then NombreTROUPE = 1
    fight1b = int(D1 + (E/NombreTROUPE))
    fight1c = int(D2 + (E/NombreTROUPE))
    fight1d = int(D3 + (E/NombreTROUPE))
    fight1e = int(D4 + (E/NombreTROUPE))
    fight1f = int(D5 + (E/NombreTROUPE))

select case PLAYER
    case 2
        if NombreTROUPEiam1 <= 0 then NombreTROUPEiam1 = 1
        fight2a = int(F1+F2+F3+F4+F5) ' chargement des degats du joueur defensif
        fight2b = int(C1-(fight2a/NombreTROUPEiam1))
        fight2c = int(C2-(fight2a/NombreTROUPEiam1))
        fight2d = int(C3-(fight2a/NombreTROUPEiam1))
        fight2e = int(C4-(fight2a/NombreTROUPEiam1))
        fight2f = int(C5-(fight2a/NombreTROUPEiam1))
        if NombreHommeDarmeIAm1SELECTED > 0 then
            NombreHommeDarmeIAm1SELECTED = int(fight2b/(vieHommedarmeIAm1+defHommedarmeIAm1))
            if NombreHommeDarmeIAm1SELECTED < 0 then NombreHommeDarmeIAm1SELECTED = 0
            if NombreHommeDarmeIAm1SELECTED > NombreHommeDarmeIAm1TEMP then NombreHommeDarmeIAm1SELECTED = NombreHommeDarmeIAm1TEMP
        end if
        if NombreLancierIAm1SELECTED > 0 then
            NombreLancierIAm1SELECTED = int(fight2c/(vielancierIAm1+deflancierIAm1))
            if NombreLancierIAm1SELECTED < 0 then NombreLancierIAm1SELECTED = 0
            if NombreLancierIAm1SELECTED > NombreLancierIAm1TEMP then NombreLancierIAm1SELECTED = NombreLancierIAm1TEMP
        end if
        if NombreFrondeurIAm1SELECTED > 0 then
            NombreFrondeurIAm1SELECTED = int(fight2d/(viefrondeurIAm1+defFrondeurIAm1))
            if NombreFrondeurIAm1SELECTED < 0 then NombreFrondeurIAm1SELECTED = 0
            if NombreFrondeurIAm1SELECTED > NombreFrondeurIAm1TEMP then NombreFrondeurIAm1SELECTED = NombreFrondeurIAm1TEMP
        end if
        if NombreArcherIAm1SELECTED > 0 then
            NombreArcherIAm1SELECTED = int(fight2e/(viearcherIAm1+defarcherIAm1))
            if NombreArcherIAm1SELECTED < 0 then NombreArcherIAm1SELECTED = 0
            if NombreArcherIAm1SELECTED > NombreArcherIAm1TEMP then NombreArcherIAm1SELECTED = NombreArcherIAm1TEMP
        end if
    case 3
        if NombreTROUPEiam2 <= 0 then NombreTROUPEiam2 = 1
        fight2a = int(F1+F2+F3+F4+F5) ' chargement des degats du joueur defensif
        fight2b = int(C1-(fight2a/NombreTROUPEiam2))
        fight2c = int(C2-(fight2a/NombreTROUPEiam2))
        fight2d = int(C3-(fight2a/NombreTROUPEiam2))
        fight2e = int(C4-(fight2a/NombreTROUPEiam2))
        fight2f = int(C5-(fight2a/NombreTROUPEiam2))
        if NombreHommeDarmeIAm2SELECTED > 0 then
            NombreHommeDarmeIAm2SELECTED = int(fight2b/(vieHommedarmeIAm2+defHommedarmeIAm2))
            if NombreHommeDarmeIAm2SELECTED < 0 then NombreHommeDarmeIAm2SELECTED = 0
            if NombreHommeDarmeIAm2SELECTED > NombreHommeDarmeIAm2TEMP then NombreHommeDarmeIAm2SELECTED = NombreHommeDarmeIAm2TEMP
        end if
        if NombreLancierIAm2SELECTED > 0 then
            NombreLancierIAm2SELECTED = int(fight2c/(vielancierIAm2+deflancierIAm2))
            if NombreLancierIAm2SELECTED < 0 then NombreLancierIAm2SELECTED = 0
            if NombreLancierIAm2SELECTED > NombreLancierIAm2TEMP then NombreLancierIAm2SELECTED = NombreLancierIAm2TEMP
        end if
        if NombreFrondeurIAm2SELECTED > 0 then
            NombreFrondeurIAm2SELECTED = int(fight2d/(viefrondeurIAm2+defFrondeurIAm2))
            if NombreFrondeurIAm2SELECTED < 0 then NombreFrondeurIAm2SELECTED = 0
            if NombreFrondeurIAm2SELECTED > NombreFrondeurIAm2TEMP then NombreFrondeurIAm2SELECTED = NombreFrondeurIAm2TEMP
        end if
        if NombreArcherIAm2SELECTED > 0 then
            NombreArcherIAm2SELECTED = int(fight2e/(viearcherIAm2+defarcherIAm2))
            if NombreArcherIAm2SELECTED < 0 then NombreArcherIAm2SELECTED = 0
            if NombreArcherIAm2SELECTED > NombreArcherIAm2TEMP then NombreArcherIAm2SELECTED = NombreArcherIAm2TEMP
        end if
end select
errorGAME = 42
    select case territoire
        case 1
            if NombreHommeDarmeTERR1 > 0 then NombreHommeDarmeTERR1 = int(fight1b/(vieHommedarme+B1))
                if NombreHommeDarmeTERR1 < 0 then NombreHommeDarmeTERR1 = 0
            if NombreLancierTERR1 > 0 then NombreLancierTERR1 = int(fight1c/(vielancier+B2))
                if NombreLancierTERR1 < 0 then NombreLancierTERR1 = 0
            if NombreFrondeurTERR1 > 0 then NombreFrondeurTERR1 = int(fight1d/(viefrondeur+B3))
                if NombreFrondeurTERR1 < 0 then NombreFrondeurTERR1 = 0
            if NombreArcherTERR1 > 0 then NombreArcherTERR1 = int(fight1e/(viearcher+B4))
                if NombreArcherTERR1 < 0 then NombreArcherTERR1 = 0
            if NombreEXPLORATEURTERR1 > 0 then NombreEXPLORATEURTERR1 = int(fight1f/(vieEXPLORATEUR+B5))
                if NombreEXPLORATEURTERR1 < 0 then NombreEXPLORATEURTERR1 = 0
        case 2
            if NombreHommeDarmeTERR2 > 0 then NombreHommeDarmeTERR2 = int(fight1b/(vieHommedarme+B1))
                if NombreHommeDarmeTERR2 < 0 then NombreHommeDarmeTERR2 = 0
            if NombreLancierTERR2 > 0 then NombreLancierTERR2 = int(fight1c/(vielancier+B2))
                if NombreLancierTERR2 < 0 then NombreLancierTERR2 = 0
            if NombreFrondeurTERR2 > 0 then NombreFrondeurTERR2 = int(fight1d/(viefrondeur+B3))
                if NombreFrondeurTERR2 < 0 then NombreFrondeurTERR2 = 0
            if NombreArcherTERR2 > 0 then NombreArcherTERR2 = int(fight1e/(viearcher+B4))
                if NombreArcherTERR2 < 0 then NombreArcherTERR2 = 0
            if NombreEXPLORATEURTERR2 > 0 then NombreEXPLORATEURTERR2 = int(fight1f/(vieEXPLORATEUR+B5))
                if NombreEXPLORATEURTERR2 < 0 then NombreEXPLORATEURTERR2 = 0
        case 3
            if NombreHommeDarmeTERR3 > 0 then NombreHommeDarmeTERR3 = int(fight1b/(vieHommedarme+B1))
                if NombreHommeDarmeTERR3 < 0 then NombreHommeDarmeTERR3 = 0
            if NombreLancierTERR3 > 0 then NombreLancierTERR3 = int(fight1c/(vielancier+B2))
                if NombreLancierTERR3 < 0 then NombreLancierTERR3 = 0
            if NombreFrondeurTERR3 > 0 then NombreFrondeurTERR3 = int(fight1d/(viefrondeur+B3))
                if NombreFrondeurTERR3 < 0 then NombreFrondeurTERR3 = 0
            if NombreArcherTERR3 > 0 then NombreArcherTERR3 = int(fight1e/(viearcher+B4))
                if NombreArcherTERR3 < 0 then NombreArcherTERR3 = 0
            if NombreEXPLORATEURTERR3 > 0 then NombreEXPLORATEURTERR3 = int(fight1f/(vieEXPLORATEUR+B5))
                if NombreEXPLORATEURTERR3 < 0 then NombreEXPLORATEURTERR3 = 0
        case 4
            if NombreHommeDarmeTERR4 > 0 then NombreHommeDarmeTERR4 = int(fight1b/(vieHommedarme+B1))
                if NombreHommeDarmeTERR4 < 0 then NombreHommeDarmeTERR4 = 0
            if NombreLancierTERR4 > 0 then NombreLancierTERR4 = int(fight1c/(vielancier+B2))
                if NombreLancierTERR4 < 0 then NombreLancierTERR4 = 0
            if NombreFrondeurTERR4 > 0 then NombreFrondeurTERR4 = int(fight1d/(viefrondeur+B3))
                if NombreFrondeurTERR4 < 0 then NombreFrondeurTERR4 = 0
            if NombreArcherTERR4 > 0 then NombreArcherTERR4 = int(fight1e/(viearcher+B4))
                if NombreArcherTERR4 < 0 then NombreArcherTERR4 = 0
            if NombreEXPLORATEURTERR4 > 0 then NombreEXPLORATEURTERR4 = int(fight1f/(vieEXPLORATEUR+B5))
                if NombreEXPLORATEURTERR4 < 0 then NombreEXPLORATEURTERR4 = 0
        case 5
            if NombreHommeDarmeTERR5 > 0 then NombreHommeDarmeTERR5 = int(fight1b/(vieHommedarme+B1))
                if NombreHommeDarmeTERR5 < 0 then NombreHommeDarmeTERR5 = 0
            if NombreLancierTERR5 > 0 then NombreLancierTERR5 = int(fight1c/(vielancier+B2))
                if NombreLancierTERR5 < 0 then NombreLancierTERR5 = 0
            if NombreFrondeurTERR5 > 0 then NombreFrondeurTERR5 = int(fight1d/(viefrondeur+B3))
                if NombreFrondeurTERR5 < 0 then NombreFrondeurTERR5 = 0
            if NombreArcherTERR5 > 0 then NombreArcherTERR5 = int(fight1e/(viearcher+B4))
                if NombreArcherTERR5 < 0 then NombreArcherTERR5 = 0
            if NombreEXPLORATEURTERR5 > 0 then NombreEXPLORATEURTERR5 = int(fight1f/(vieEXPLORATEUR+B5))
                if NombreEXPLORATEURTERR5 < 0 then NombreEXPLORATEURTERR5 = 0
        case 6
            if NombreHommeDarmeTERR6 > 0 then NombreHommeDarmeTERR6 = int(fight1b/(vieHommedarme+B1))
                if NombreHommeDarmeTERR6 < 0 then NombreHommeDarmeTERR6 = 0
            if NombreLancierTERR6 > 0 then NombreLancierTERR6 = int(fight1c/(vielancier+B2))
                if NombreLancierTERR6 < 0 then NombreLancierTERR6 = 0
            if NombreFrondeurTERR6 > 0 then NombreFrondeurTERR6 = int(fight1d/(viefrondeur+B3))
                if NombreFrondeurTERR6 < 0 then NombreFrondeurTERR6 = 0
            if NombreArcherTERR6 > 0 then NombreArcherTERR6 = int(fight1e/(viearcher+B4))
                if NombreArcherTERR6 < 0 then NombreArcherTERR6 = 0
            if NombreEXPLORATEURTERR6 > 0 then NombreEXPLORATEURTERR6 = int(fight1f/(vieEXPLORATEUR+B5))
                if NombreEXPLORATEURTERR6 < 0 then NombreEXPLORATEURTERR6 = 0
        case 7
            if NombreHommeDarmeTERR7 > 0 then NombreHommeDarmeTERR7 = int(fight1b/(vieHommedarme+B1))
                if NombreHommeDarmeTERR7 < 0 then NombreHommeDarmeTERR7 = 0
            if NombreLancierTERR7 > 0 then NombreLancierTERR7 = int(fight1c/(vielancier+B2))
                if NombreLancierTERR7 < 0 then NombreLancierTERR7 = 0
            if NombreFrondeurTERR7 > 0 then NombreFrondeurTERR7 = int(fight1d/(viefrondeur+B3))
                if NombreFrondeurTERR7 < 0 then NombreFrondeurTERR7 = 0
            if NombreArcherTERR7 > 0 then NombreArcherTERR7 = int(fight1e/(viearcher+B4))
                if NombreArcherTERR7 < 0 then NombreArcherTERR7 = 0
            if NombreEXPLORATEURTERR7 > 0 then NombreEXPLORATEURTERR7 = int(fight1f/(vieEXPLORATEUR+B5))
                if NombreEXPLORATEURTERR7 < 0 then NombreEXPLORATEURTERR7 = 0
        case 8
            if NombreHommeDarmeTERR8 > 0 then NombreHommeDarmeTERR8 = int(fight1b/(vieHommedarme+B1))
                if NombreHommeDarmeTERR8 < 0 then NombreHommeDarmeTERR8 = 0
            if NombreLancierTERR8 > 0 then NombreLancierTERR8 = int(fight1c/(vielancier+B2))
                if NombreLancierTERR8 < 0 then NombreLancierTERR8 = 0
            if NombreFrondeurTERR8 > 0 then NombreFrondeurTERR8 = int(fight1d/(viefrondeur+B3))
                if NombreFrondeurTERR8 < 0 then NombreFrondeurTERR8 = 0
            if NombreArcherTERR8 > 0 then NombreArcherTERR8 = int(fight1e/(viearcher+B4))
                if NombreArcherTERR8 < 0 then NombreArcherTERR8 = 0
            if NombreEXPLORATEURTERR8 > 0 then NombreEXPLORATEURTERR8 = int(fight1f/(vieEXPLORATEUR+B5))
                if NombreEXPLORATEURTERR8 < 0 then NombreEXPLORATEURTERR8 = 0
        case 9
            if NombreHommeDarmeTERR9 > 0 then NombreHommeDarmeTERR9 = int(fight1b/(vieHommedarme+B1))
                if NombreHommeDarmeTERR9 < 0 then NombreHommeDarmeTERR9 = 0
            if NombreLancierTERR9 > 0 then NombreLancierTERR9 = int(fight1c/(vielancier+B2))
                if NombreLancierTERR9 < 0 then NombreLancierTERR9 = 0
            if NombreFrondeurTERR9 > 0 then NombreFrondeurTERR9 = int(fight1d/(viefrondeur+B3))
                if NombreFrondeurTERR9 < 0 then NombreFrondeurTERR9 = 0
            if NombreArcherTERR9 > 0 then NombreArcherTERR9 = int(fight1e/(viearcher+B4))
                if NombreArcherTERR9 < 0 then NombreArcherTERR9 = 0
            if NombreEXPLORATEURTERR9 > 0 then NombreEXPLORATEURTERR9 = int(fight1f/(vieEXPLORATEUR+B5))
                if NombreEXPLORATEURTERR9 < 0 then NombreEXPLORATEURTERR9 = 0
        case 10
            if NombreHommeDarmeTERR10 > 0 then NombreHommeDarmeTERR10 = int(fight1b/(vieHommedarme+B1))
                if NombreHommeDarmeTERR10 < 0 then NombreHommeDarmeTERR10 = 0
            if NombreLancierTERR10 > 0 then NombreLancierTERR10 = int(fight1c/(vielancier+B2))
                if NombreLancierTERR10 < 0 then NombreLancierTERR10 = 0
            if NombreFrondeurTERR10 > 0 then NombreFrondeurTERR10 = int(fight1d/(viefrondeur+B3))
                if NombreFrondeurTERR10 < 0 then NombreFrondeurTERR10 = 0
            if NombreArcherTERR10 > 0 then NombreArcherTERR10 = int(fight1e/(viearcher+B4))
                if NombreArcherTERR10 < 0 then NombreArcherTERR10 = 0
            if NombreEXPLORATEURTERR10 > 0 then NombreEXPLORATEURTERR10 = int(fight1f/(vieEXPLORATEUR+B5))
                if NombreEXPLORATEURTERR10 < 0 then NombreEXPLORATEURTERR10 = 0
        case 11
            if NombreHommeDarmeTERR11 > 0 then NombreHommeDarmeTERR11 = int(fight1b/(vieHommedarme+B1))
                if NombreHommeDarmeTERR11 < 0 then NombreHommeDarmeTERR11 = 0
            if NombreLancierTERR11 > 0 then NombreLancierTERR11 = int(fight1c/(vielancier+B2))
                if NombreLancierTERR11 < 0 then NombreLancierTERR11 = 0
            if NombreFrondeurTERR11 > 0 then NombreFrondeurTERR11 = int(fight1d/(viefrondeur+B3))
                if NombreFrondeurTERR11 < 0 then NombreFrondeurTERR11 = 0
            if NombreArcherTERR11 > 0 then NombreArcherTERR11 = int(fight1e/(viearcher+B4))
                if NombreArcherTERR11 < 0 then NombreArcherTERR11 = 0
            if NombreEXPLORATEURTERR11 > 0 then NombreEXPLORATEURTERR11 = int(fight1f/(vieEXPLORATEUR+B5))
                if NombreEXPLORATEURTERR11 < 0 then NombreEXPLORATEURTERR11 = 0
        case 12
            if NombreHommeDarmeTERR12 > 0 then NombreHommeDarmeTERR12 = int(fight1b/(vieHommedarme+B1))
                if NombreHommeDarmeTERR12 < 0 then NombreHommeDarmeTERR12 = 0
            if NombreLancierTERR12 > 0 then NombreLancierTERR12 = int(fight1c/(vielancier+B2))
                if NombreLancierTERR12 < 0 then NombreLancierTERR12 = 0
            if NombreFrondeurTERR12 > 0 then NombreFrondeurTERR12 = int(fight1d/(viefrondeur+B3))
                if NombreFrondeurTERR12 < 0 then NombreFrondeurTERR12 = 0
            if NombreArcherTERR12 > 0 then NombreArcherTERR12 = int(fight1e/(viearcher+B4))
                if NombreArcherTERR12 < 0 then NombreArcherTERR12 = 0
            if NombreEXPLORATEURTERR12 > 0 then NombreEXPLORATEURTERR12 = int(fight1f/(vieEXPLORATEUR+B5))
                if NombreEXPLORATEURTERR12 < 0 then NombreEXPLORATEURTERR12 = 0
        case 13
            if NombreHommeDarmeTERR13 > 0 then NombreHommeDarmeTERR13 = int(fight1b/(vieHommedarme+B1))
                if NombreHommeDarmeTERR13 < 0 then NombreHommeDarmeTERR13 = 0
            if NombreLancierTERR13 > 0 then NombreLancierTERR13 = int(fight1c/(vielancier+B2))
                if NombreLancierTERR13 < 0 then NombreLancierTERR13 = 0
            if NombreFrondeurTERR13 > 0 then NombreFrondeurTERR13 = int(fight1d/(viefrondeur+B3))
                if NombreFrondeurTERR13 < 0 then NombreFrondeurTERR13 = 0
            if NombreArcherTERR13 > 0 then NombreArcherTERR13 = int(fight1e/(viearcher+B4))
                if NombreArcherTERR13 < 0 then NombreArcherTERR13 = 0
            if NombreEXPLORATEURTERR13 > 0 then NombreEXPLORATEURTERR13 = int(fight1f/(vieEXPLORATEUR+B5))
                if NombreEXPLORATEURTERR13 < 0 then NombreEXPLORATEURTERR13 = 0
        case 14
            if NombreHommeDarmeTERR14 > 0 then NombreHommeDarmeTERR14 = int(fight1b/(vieHommedarme+B1))
                if NombreHommeDarmeTERR14 < 0 then NombreHommeDarmeTERR14 = 0
            if NombreLancierTERR14 > 0 then NombreLancierTERR14 = int(fight1c/(vielancier+B2))
                if NombreLancierTERR14 < 0 then NombreLancierTERR14 = 0
            if NombreFrondeurTERR14 > 0 then NombreFrondeurTERR14 = int(fight1d/(viefrondeur+B3))
                if NombreFrondeurTERR14 < 0 then NombreFrondeurTERR14 = 0
            if NombreArcherTERR14 > 0 then NombreArcherTERR14 = int(fight1e/(viearcher+B4))
                if NombreArcherTERR14 < 0 then NombreArcherTERR14 = 0
            if NombreEXPLORATEURTERR14 > 0 then NombreEXPLORATEURTERR14 = int(fight1f/(vieEXPLORATEUR+B5))
                if NombreEXPLORATEURTERR14 < 0 then NombreEXPLORATEURTERR14 = 0
        case 15
            if NombreHommeDarmeTERR15 > 0 then NombreHommeDarmeTERR15 = int(fight1b/(vieHommedarme+B1))
                if NombreHommeDarmeTERR15 < 0 then NombreHommeDarmeTERR15 = 0
            if NombreLancierTERR15 > 0 then NombreLancierTERR15 = int(fight1c/(vielancier+B2))
                if NombreLancierTERR15 < 0 then NombreLancierTERR15 = 0
            if NombreFrondeurTERR15 > 0 then NombreFrondeurTERR15 = int(fight1d/(viefrondeur+B3))
                if NombreFrondeurTERR15 < 0 then NombreFrondeurTERR15 = 0
            if NombreArcherTERR15 > 0 then NombreArcherTERR15 = int(fight1e/(viearcher+B4))
                if NombreArcherTERR15 < 0 then NombreArcherTERR15 = 0
            if NombreEXPLORATEURTERR15 > 0 then NombreEXPLORATEURTERR15 = int(fight1f/(vieEXPLORATEUR+B5))
                if NombreEXPLORATEURTERR15 < 0 then NombreEXPLORATEURTERR15 = 0
        case 16
            if NombreHommeDarmeTERR16 > 0 then NombreHommeDarmeTERR16 = int(fight1b/(vieHommedarme+B1))
                if NombreHommeDarmeTERR16 < 0 then NombreHommeDarmeTERR16 = 0
            if NombreLancierTERR16 > 0 then NombreLancierTERR16 = int(fight1c/(vielancier+B2))
                if NombreLancierTERR16 < 0 then NombreLancierTERR16 = 0
            if NombreFrondeurTERR16 > 0 then NombreFrondeurTERR16 = int(fight1d/(viefrondeur+B3))
                if NombreFrondeurTERR16 < 0 then NombreFrondeurTERR16 = 0
            if NombreArcherTERR16 > 0 then NombreArcherTERR16 = int(fight1e/(viearcher+B4))
                if NombreArcherTERR16 < 0 then NombreArcherTERR16 = 0
            if NombreEXPLORATEURTERR16 > 0 then NombreEXPLORATEURTERR16 = int(fight1f/(vieEXPLORATEUR+B5))
                if NombreEXPLORATEURTERR16 < 0 then NombreEXPLORATEURTERR16 = 0
        case 17
            if NombreHommeDarmeTERR17 > 0 then NombreHommeDarmeTERR17 = int(fight1b/(vieHommedarme+B1))
                if NombreHommeDarmeTERR17 < 0 then NombreHommeDarmeTERR17 = 0
            if NombreLancierTERR17 > 0 then NombreLancierTERR17 = int(fight1c/(vielancier+B2))
                if NombreLancierTERR17 < 0 then NombreLancierTERR17 = 0
            if NombreFrondeurTERR17 > 0 then NombreFrondeurTERR17 = int(fight1d/(viefrondeur+B3))
                if NombreFrondeurTERR17 < 0 then NombreFrondeurTERR17 = 0
            if NombreArcherTERR17 > 0 then NombreArcherTERR17 = int(fight1e/(viearcher+B4))
                if NombreArcherTERR17 < 0 then NombreArcherTERR17 = 0
            if NombreEXPLORATEURTERR17 > 0 then NombreEXPLORATEURTERR17 = int(fight1f/(vieEXPLORATEUR+B5))
                if NombreEXPLORATEURTERR17 < 0 then NombreEXPLORATEURTERR17 = 0
        case 18
            if NombreHommeDarmeTERR18 > 0 then NombreHommeDarmeTERR18 = int(fight1b/(vieHommedarme+B1))
                if NombreHommeDarmeTERR18 < 0 then NombreHommeDarmeTERR18 = 0
            if NombreLancierTERR18 > 0 then NombreLancierTERR18 = int(fight1c/(vielancier+B2))
                if NombreLancierTERR18 < 0 then NombreLancierTERR18 = 0
            if NombreFrondeurTERR18 > 0 then NombreFrondeurTERR18 = int(fight1d/(viefrondeur+B3))
                if NombreFrondeurTERR18 < 0 then NombreFrondeurTERR18 = 0
            if NombreArcherTERR18 > 0 then NombreArcherTERR18 = int(fight1e/(viearcher+B4))
                if NombreArcherTERR18 < 0 then NombreArcherTERR18 = 0
            if NombreEXPLORATEURTERR18 > 0 then NombreEXPLORATEURTERR18 = int(fight1f/(vieEXPLORATEUR+B5))
                if NombreEXPLORATEURTERR18 < 0 then NombreEXPLORATEURTERR18 = 0
        case 19
            if NombreHommeDarmeTERR19 > 0 then NombreHommeDarmeTERR19 = int(fight1b/(vieHommedarme+B1))
                if NombreHommeDarmeTERR19 < 0 then NombreHommeDarmeTERR19 = 0
            if NombreLancierTERR19 > 0 then NombreLancierTERR19 = int(fight1c/(vielancier+B2))
                if NombreLancierTERR19 < 0 then NombreLancierTERR19 = 0
            if NombreFrondeurTERR19 > 0 then NombreFrondeurTERR19 = int(fight1d/(viefrondeur+B3))
                if NombreFrondeurTERR19 < 0 then NombreFrondeurTERR19 = 0
            if NombreArcherTERR19 > 0 then NombreArcherTERR19 = int(fight1e/(viearcher+B4))
                if NombreArcherTERR19 < 0 then NombreArcherTERR19 = 0
            if NombreEXPLORATEURTERR19 > 0 then NombreEXPLORATEURTERR19 = int(fight1f/(vieEXPLORATEUR+B5))
                if NombreEXPLORATEURTERR19 < 0 then NombreEXPLORATEURTERR19 = 0
        case 20
            if NombreHommeDarmeTERR20 > 0 then NombreHommeDarmeTERR20 = int(fight1b/(vieHommedarme+B1))
                if NombreHommeDarmeTERR20 < 0 then NombreHommeDarmeTERR20 = 0
            if NombreLancierTERR20 > 0 then NombreLancierTERR20 = int(fight1c/(vielancier+B2))
                if NombreLancierTERR20 < 0 then NombreLancierTERR20 = 0
            if NombreFrondeurTERR20 > 0 then NombreFrondeurTERR20 = int(fight1d/(viefrondeur+B3))
                if NombreFrondeurTERR20 < 0 then NombreFrondeurTERR20 = 0
            if NombreArcherTERR20 > 0 then NombreArcherTERR20 = int(fight1e/(viearcher+B4))
                if NombreArcherTERR20 < 0 then NombreArcherTERR20 = 0
            if NombreEXPLORATEURTERR20 > 0 then NombreEXPLORATEURTERR20 = int(fight1f/(vieEXPLORATEUR+B5))
                if NombreEXPLORATEURTERR20 < 0 then NombreEXPLORATEURTERR20 = 0
    end select
errorGAME = 43
select case PLAYER
    case 2
        if NombreHommeDarmeIAm1SELECTED <= 0 and NombreLancierIAm1SELECTED <= 0 and NombreFrondeurIAm1SELECTED <= 0 and NombreArcherIAm1SELECTED <= 0 then fight1 = 0
        if NombreHommeDarmeIAm1SELECTED > 0 or NombreLancierIAm1SELECTED > 0 or NombreFrondeurIAm1SELECTED > 0 or NombreArcherIAm1SELECTED > 0 then fight1 = 1
    case 3
        if NombreHommeDarmeIAm2SELECTED <= 0 and NombreLancierIAm2SELECTED <= 0 and NombreFrondeurIAm2SELECTED <= 0 and NombreArcherIAm2SELECTED <= 0 then fight1 = 0
        if NombreHommeDarmeIAm2SELECTED > 0 or NombreLancierIAm2SELECTED > 0 or NombreFrondeurIAm2SELECTED > 0 or NombreArcherIAm2SELECTED > 0 then fight1 = 1
end select

    select case territoire
        case 1
            if NombreHommeDarmeTERR1 <= 0 and NombreEXPLORATEURTERR1 <= 0 and NombreLancierTERR1 <= 0 and NombreFrondeurTERR1 <= 0 and NombreArcherTERR1 <= 0 then fight2 = 0
            if NombreHommeDarmeTERR1 > 0 or NombreEXPLORATEURTERR1 > 0 or NombreLancierTERR1 > 0 or NombreFrondeurTERR1 > 0 or NombreArcherTERR1 > 0 then fight2 = 1
        case 2
            if NombreHommeDarmeTERR2 <= 0 and NombreEXPLORATEURTERR2 <= 0 and NombreLancierTERR2 <= 0 and NombreFrondeurTERR2 <= 0 and NombreArcherTERR2 <= 0 then fight2 = 0
            if NombreHommeDarmeTERR2 > 0 or NombreEXPLORATEURTERR2 > 0 or NombreLancierTERR2 > 0 or NombreFrondeurTERR2 > 0 or NombreArcherTERR2 > 0 then fight2 = 1
        case 3
            if NombreHommeDarmeTERR3 <= 0 and NombreEXPLORATEURTERR3 <= 0 and NombreLancierTERR3 <= 0 and NombreFrondeurTERR3 <= 0 and NombreArcherTERR3 <= 0 then fight2 = 0
            if NombreHommeDarmeTERR3 > 0 or NombreEXPLORATEURTERR3 > 0 or NombreLancierTERR3 > 0 or NombreFrondeurTERR3 > 0 or NombreArcherTERR3 > 0 then fight2 = 1
        case 4
            if NombreHommeDarmeTERR4 <= 0 and NombreEXPLORATEURTERR4 <= 0 and NombreLancierTERR4 <= 0 and NombreFrondeurTERR4 <= 0 and NombreArcherTERR4 <= 0 then fight2 = 0
            if NombreHommeDarmeTERR4 > 0 or NombreEXPLORATEURTERR4 > 0 or NombreLancierTERR4 > 0 or NombreFrondeurTERR4 > 0 or NombreArcherTERR4 > 0 then fight2 = 1
        case 5
            if NombreHommeDarmeTERR5 <= 0 and NombreEXPLORATEURTERR5 <= 0 and NombreLancierTERR5 <= 0 and NombreFrondeurTERR5 <= 0 and NombreArcherTERR5 <= 0 then fight2 = 0
            if NombreHommeDarmeTERR5 > 0 or NombreEXPLORATEURTERR5 > 0 or NombreLancierTERR5 > 0 or NombreFrondeurTERR5 > 0 or NombreArcherTERR5 > 0 then fight2 = 1
        case 6
            if NombreHommeDarmeTERR6 <= 0 and NombreEXPLORATEURTERR6 <= 0 and NombreLancierTERR6 <= 0 and NombreFrondeurTERR6 <= 0 and NombreArcherTERR6 <= 0 then fight2 = 0
            if NombreHommeDarmeTERR6 > 0 or NombreEXPLORATEURTERR6 > 0 or NombreLancierTERR6 > 0 or NombreFrondeurTERR6 > 0 or NombreArcherTERR6 > 0 then fight2 = 1
        case 7
            if NombreHommeDarmeTERR7 <= 0 and NombreEXPLORATEURTERR7 <= 0 and NombreLancierTERR7 <= 0 and NombreFrondeurTERR7 <= 0 and NombreArcherTERR7 <= 0 then fight2 = 0
            if NombreHommeDarmeTERR7 > 0 or NombreEXPLORATEURTERR7 > 0 or NombreLancierTERR7 > 0 or NombreFrondeurTERR7 > 0 or NombreArcherTERR7 > 0 then fight2 = 1
        case 8
            if NombreHommeDarmeTERR8 <= 0 and NombreEXPLORATEURTERR8 <= 0 and NombreLancierTERR8 <= 0 and NombreFrondeurTERR8 <= 0 and NombreArcherTERR8 <= 0 then fight2 = 0
            if NombreHommeDarmeTERR8 > 0 or NombreEXPLORATEURTERR8 > 0 or NombreLancierTERR8 > 0 or NombreFrondeurTERR8 > 0 or NombreArcherTERR8 > 0 then fight2 = 1
        case 9
            if NombreHommeDarmeTERR9 <= 0 and NombreEXPLORATEURTERR9 <= 0 and NombreLancierTERR9 <= 0 and NombreFrondeurTERR9 <= 0 and NombreArcherTERR9 <= 0 then fight2 = 0
            if NombreHommeDarmeTERR9 > 0 or NombreEXPLORATEURTERR9 > 0 or NombreLancierTERR9 > 0 or NombreFrondeurTERR9 > 0 or NombreArcherTERR9 > 0 then fight2 = 1
        case 10
            if NombreHommeDarmeTERR10 <= 0 and NombreEXPLORATEURTERR10 <= 0 and NombreLancierTERR10 <= 0 and NombreFrondeurTERR10 <= 0 and NombreArcherTERR10 <= 0 then fight2 = 0
            if NombreHommeDarmeTERR10 > 0 or NombreEXPLORATEURTERR10 > 0 or NombreLancierTERR10 > 0 or NombreFrondeurTERR10 > 0 or NombreArcherTERR10 > 0 then fight2 = 1
        case 11
            if NombreHommeDarmeTERR11 <= 0 and NombreEXPLORATEURTERR11 <= 0 and NombreLancierTERR11 <= 0 and NombreFrondeurTERR11 <= 0 and NombreArcherTERR11 <= 0 then fight2 = 0
            if NombreHommeDarmeTERR11 > 0 or NombreEXPLORATEURTERR11 > 0 or NombreLancierTERR11 > 0 or NombreFrondeurTERR11 > 0 or NombreArcherTERR11 > 0 then fight2 = 1
        case 12
            if NombreHommeDarmeTERR12 <= 0 and NombreEXPLORATEURTERR12 <= 0 and NombreLancierTERR12 <= 0 and NombreFrondeurTERR12 <= 0 and NombreArcherTERR12 <= 0 then fight2 = 0
            if NombreHommeDarmeTERR12 > 0 or NombreEXPLORATEURTERR12 > 0 or NombreLancierTERR12 > 0 or NombreFrondeurTERR12 > 0 or NombreArcherTERR12 > 0 then fight2 = 1
        case 13
            if NombreHommeDarmeTERR13 <= 0 and NombreEXPLORATEURTERR13 <= 0 and NombreLancierTERR13 <= 0 and NombreFrondeurTERR13 <= 0 and NombreArcherTERR13 <= 0 then fight2 = 0
            if NombreHommeDarmeTERR13 > 0 or NombreEXPLORATEURTERR13 > 0 or NombreLancierTERR13 > 0 or NombreFrondeurTERR13 > 0 or NombreArcherTERR13 > 0 then fight2 = 1
        case 14
            if NombreHommeDarmeTERR14 <= 0 and NombreEXPLORATEURTERR14 <= 0 and NombreLancierTERR14 <= 0 and NombreFrondeurTERR14 <= 0 and NombreArcherTERR14 <= 0 then fight2 = 0
            if NombreHommeDarmeTERR14 > 0 or NombreEXPLORATEURTERR14 > 0 or NombreLancierTERR14 > 0 or NombreFrondeurTERR14 > 0 or NombreArcherTERR14 > 0 then fight2 = 1
        case 15
            if NombreHommeDarmeTERR15 <= 0 and NombreEXPLORATEURTERR15 <= 0 and NombreLancierTERR15 <= 0 and NombreFrondeurTERR15 <= 0 and NombreArcherTERR15 <= 0 then fight2 = 0
            if NombreHommeDarmeTERR15 > 0 or NombreEXPLORATEURTERR15 > 0 or NombreLancierTERR15 > 0 or NombreFrondeurTERR15 > 0 or NombreArcherTERR15 > 0 then fight2 = 1
        case 16
            if NombreHommeDarmeTERR16 <= 0 and NombreEXPLORATEURTERR16 <= 0 and NombreLancierTERR16 <= 0 and NombreFrondeurTERR16 <= 0 and NombreArcherTERR16 <= 0 then fight2 = 0
            if NombreHommeDarmeTERR16 > 0 or NombreEXPLORATEURTERR16 > 0 or NombreLancierTERR16 > 0 or NombreFrondeurTERR16 > 0 or NombreArcherTERR16 > 0 then fight2 = 1
        case 17
            if NombreHommeDarmeTERR17 <= 0 and NombreEXPLORATEURTERR17 <= 0 and NombreLancierTERR17 <= 0 and NombreFrondeurTERR17 <= 0 and NombreArcherTERR17 <= 0 then fight2 = 0
            if NombreHommeDarmeTERR17 > 0 or NombreEXPLORATEURTERR17 > 0 or NombreLancierTERR17 > 0 or NombreFrondeurTERR17 > 0 or NombreArcherTERR17 > 0 then fight2 = 1
        case 18
            if NombreHommeDarmeTERR18 <= 0 and NombreEXPLORATEURTERR18 <= 0 and NombreLancierTERR18 <= 0 and NombreFrondeurTERR18 <= 0 and NombreArcherTERR18 <= 0 then fight2 = 0
            if NombreHommeDarmeTERR18 > 0 or NombreEXPLORATEURTERR18 > 0 or NombreLancierTERR18 > 0 or NombreFrondeurTERR18 > 0 or NombreArcherTERR18 > 0 then fight2 = 1
        case 19
            if NombreHommeDarmeTERR19 <= 0 and NombreEXPLORATEURTERR19 <= 0 and NombreLancierTERR19 <= 0 and NombreFrondeurTERR19 <= 0 and NombreArcherTERR19 <= 0 then fight2 = 0
            if NombreHommeDarmeTERR19 > 0 or NombreEXPLORATEURTERR19 > 0 or NombreLancierTERR19 > 0 or NombreFrondeurTERR19 > 0 or NombreArcherTERR19 > 0 then fight2 = 1
        case 20
            if NombreHommeDarmeTERR20 <= 0 and NombreEXPLORATEURTERR20 <= 0 and NombreLancierTERR20 <= 0 and NombreFrondeurTERR20 <= 0 and NombreArcherTERR20 <= 0 then fight2 = 0
            if NombreHommeDarmeTERR20 > 0 or NombreEXPLORATEURTERR20 > 0 or NombreLancierTERR20 > 0 or NombreFrondeurTERR20 > 0 or NombreArcherTERR20 > 0 then fight2 = 1
    end select

errorGAME = 44
if fight1 > 0 and fight2 > 0 then goto [boucleATKterr]
errorGAME = 45
    select case territoire
        case 1
            perteHOMMEdarme = int(NombreHommeDarmeTEMP-NombreHommeDarmeTERR1) : if perteHOMMEdarme<0 then perteHOMMEdarme = 0
            perteLANCIER = int(NombreLancierTEMP-NombreLancierTERR1) : if perteLANCIER<0 then perteLANCIER = 0
            perteFRONDEUR = int(NombreFrondeurTEMP-NombreFrondeurTERR1) : if perteFRONDEUR<0 then perteFRONDEUR = 0
            perteARCHER = int(NombreArcherTEMP-NombreArcherTERR1) : if perteARCHER<0 then perteARCHER = 0
            perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-NombreEXPLORATEURTERR1) : if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0
        case 2
            perteHOMMEdarme = int(NombreHommeDarmeTEMP-NombreHommeDarmeTERR2) : if perteHOMMEdarme<0 then perteHOMMEdarme = 0
            perteLANCIER = int(NombreLancierTEMP-NombreLancierTERR2) : if perteLANCIER<0 then perteLANCIER = 0
            perteFRONDEUR = int(NombreFrondeurTEMP-NombreFrondeurTERR2) : if perteFRONDEUR<0 then perteFRONDEUR = 0
            perteARCHER = int(NombreArcherTEMP-NombreArcherTERR2) : if perteARCHER<0 then perteARCHER = 0
            perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-NombreEXPLORATEURTERR2) : if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0
        case 3
            perteHOMMEdarme = int(NombreHommeDarmeTEMP-NombreHommeDarmeTERR3) : if perteHOMMEdarme<0 then perteHOMMEdarme = 0
            perteLANCIER = int(NombreLancierTEMP-NombreLancierTERR3) : if perteLANCIER<0 then perteLANCIER = 0
            perteFRONDEUR = int(NombreFrondeurTEMP-NombreFrondeurTERR3) : if perteFRONDEUR<0 then perteFRONDEUR = 0
            perteARCHER = int(NombreArcherTEMP-NombreArcherTERR3) : if perteARCHER<0 then perteARCHER = 0
            perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-NombreEXPLORATEURTERR3) : if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0
        case 4
            perteHOMMEdarme = int(NombreHommeDarmeTEMP-NombreHommeDarmeTERR4) : if perteHOMMEdarme<0 then perteHOMMEdarme = 0
            perteLANCIER = int(NombreLancierTEMP-NombreLancierTERR4) : if perteLANCIER<0 then perteLANCIER = 0
            perteFRONDEUR = int(NombreFrondeurTEMP-NombreFrondeurTERR4) : if perteFRONDEUR<0 then perteFRONDEUR = 0
            perteARCHER = int(NombreArcherTEMP-NombreArcherTERR4) : if perteARCHER<0 then perteARCHER = 0
            perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-NombreEXPLORATEURTERR4) : if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0
        case 5
            perteHOMMEdarme = int(NombreHommeDarmeTEMP-NombreHommeDarmeTERR5) : if perteHOMMEdarme<0 then perteHOMMEdarme = 0
            perteLANCIER = int(NombreLancierTEMP-NombreLancierTERR5) : if perteLANCIER<0 then perteLANCIER = 0
            perteFRONDEUR = int(NombreFrondeurTEMP-NombreFrondeurTERR5) : if perteFRONDEUR<0 then perteFRONDEUR = 0
            perteARCHER = int(NombreArcherTEMP-NombreArcherTERR5) : if perteARCHER<0 then perteARCHER = 0
            perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-NombreEXPLORATEURTERR5) : if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0
        case 6
            perteHOMMEdarme = int(NombreHommeDarmeTEMP-NombreHommeDarmeTERR6) : if perteHOMMEdarme<0 then perteHOMMEdarme = 0
            perteLANCIER = int(NombreLancierTEMP-NombreLancierTERR6) : if perteLANCIER<0 then perteLANCIER = 0
            perteFRONDEUR = int(NombreFrondeurTEMP-NombreFrondeurTERR6) : if perteFRONDEUR<0 then perteFRONDEUR = 0
            perteARCHER = int(NombreArcherTEMP-NombreArcherTERR6) : if perteARCHER<0 then perteARCHER = 0
            perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-NombreEXPLORATEURTERR6) : if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0
        case 7
            perteHOMMEdarme = int(NombreHommeDarmeTEMP-NombreHommeDarmeTERR7) : if perteHOMMEdarme<0 then perteHOMMEdarme = 0
            perteLANCIER = int(NombreLancierTEMP-NombreLancierTERR7) : if perteLANCIER<0 then perteLANCIER = 0
            perteFRONDEUR = int(NombreFrondeurTEMP-NombreFrondeurTERR7) : if perteFRONDEUR<0 then perteFRONDEUR = 0
            perteARCHER = int(NombreArcherTEMP-NombreArcherTERR7) : if perteARCHER<0 then perteARCHER = 0
            perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-NombreEXPLORATEURTERR7) : if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0
        case 8
            perteHOMMEdarme = int(NombreHommeDarmeTEMP-NombreHommeDarmeTERR8) : if perteHOMMEdarme<0 then perteHOMMEdarme = 0
            perteLANCIER = int(NombreLancierTEMP-NombreLancierTERR8) : if perteLANCIER<0 then perteLANCIER = 0
            perteFRONDEUR = int(NombreFrondeurTEMP-NombreFrondeurTERR8) : if perteFRONDEUR<0 then perteFRONDEUR = 0
            perteARCHER = int(NombreArcherTEMP-NombreArcherTERR8) : if perteARCHER<0 then perteARCHER = 0
            perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-NombreEXPLORATEURTERR8) : if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0
        case 9
            perteHOMMEdarme = int(NombreHommeDarmeTEMP-NombreHommeDarmeTERR9) : if perteHOMMEdarme<0 then perteHOMMEdarme = 0
            perteLANCIER = int(NombreLancierTEMP-NombreLancierTERR9) : if perteLANCIER<0 then perteLANCIER = 0
            perteFRONDEUR = int(NombreFrondeurTEMP-NombreFrondeurTERR9) : if perteFRONDEUR<0 then perteFRONDEUR = 0
            perteARCHER = int(NombreArcherTEMP-NombreArcherTERR9) : if perteARCHER<0 then perteARCHER = 0
            perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-NombreEXPLORATEURTERR9) : if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0
        case 10
            perteHOMMEdarme = int(NombreHommeDarmeTEMP-NombreHommeDarmeTERR10) : if perteHOMMEdarme<0 then perteHOMMEdarme = 0
            perteLANCIER = int(NombreLancierTEMP-NombreLancierTERR10) : if perteLANCIER<0 then perteLANCIER = 0
            perteFRONDEUR = int(NombreFrondeurTEMP-NombreFrondeurTERR10) : if perteFRONDEUR<0 then perteFRONDEUR = 0
            perteARCHER = int(NombreArcherTEMP-NombreArcherTERR10) : if perteARCHER<0 then perteARCHER = 0
            perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-NombreEXPLORATEURTERR10) : if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0
        case 11
            perteHOMMEdarme = int(NombreHommeDarmeTEMP-NombreHommeDarmeTERR11) : if perteHOMMEdarme<0 then perteHOMMEdarme = 0
            perteLANCIER = int(NombreLancierTEMP-NombreLancierTERR11) : if perteLANCIER<0 then perteLANCIER = 0
            perteFRONDEUR = int(NombreFrondeurTEMP-NombreFrondeurTERR11) : if perteFRONDEUR<0 then perteFRONDEUR = 0
            perteARCHER = int(NombreArcherTEMP-NombreArcherTERR11) : if perteARCHER<0 then perteARCHER = 0
            perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-NombreEXPLORATEURTERR11) : if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0
        case 12
            perteHOMMEdarme = int(NombreHommeDarmeTEMP-NombreHommeDarmeTERR12) : if perteHOMMEdarme<0 then perteHOMMEdarme = 0
            perteLANCIER = int(NombreLancierTEMP-NombreLancierTERR12) : if perteLANCIER<0 then perteLANCIER = 0
            perteFRONDEUR = int(NombreFrondeurTEMP-NombreFrondeurTERR12) : if perteFRONDEUR<0 then perteFRONDEUR = 0
            perteARCHER = int(NombreArcherTEMP-NombreArcherTERR12) : if perteARCHER<0 then perteARCHER = 0
            perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-NombreEXPLORATEURTERR12) : if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0
        case 13
            perteHOMMEdarme = int(NombreHommeDarmeTEMP-NombreHommeDarmeTERR13) : if perteHOMMEdarme<0 then perteHOMMEdarme = 0
            perteLANCIER = int(NombreLancierTEMP-NombreLancierTERR13) : if perteLANCIER<0 then perteLANCIER = 0
            perteFRONDEUR = int(NombreFrondeurTEMP-NombreFrondeurTERR13) : if perteFRONDEUR<0 then perteFRONDEUR = 0
            perteARCHER = int(NombreArcherTEMP-NombreArcherTERR13) : if perteARCHER<0 then perteARCHER = 0
            perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-NombreEXPLORATEURTERR13) : if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0
        case 14
            perteHOMMEdarme = int(NombreHommeDarmeTEMP-NombreHommeDarmeTERR14) : if perteHOMMEdarme<0 then perteHOMMEdarme = 0
            perteLANCIER = int(NombreLancierTEMP-NombreLancierTERR14) : if perteLANCIER<0 then perteLANCIER = 0
            perteFRONDEUR = int(NombreFrondeurTEMP-NombreFrondeurTERR14) : if perteFRONDEUR<0 then perteFRONDEUR = 0
            perteARCHER = int(NombreArcherTEMP-NombreArcherTERR14) : if perteARCHER<0 then perteARCHER = 0
            perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-NombreEXPLORATEURTERR14) : if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0
        case 15
            perteHOMMEdarme = int(NombreHommeDarmeTEMP-NombreHommeDarmeTERR15) : if perteHOMMEdarme<0 then perteHOMMEdarme = 0
            perteLANCIER = int(NombreLancierTEMP-NombreLancierTERR15) : if perteLANCIER<0 then perteLANCIER = 0
            perteFRONDEUR = int(NombreFrondeurTEMP-NombreFrondeurTERR15) : if perteFRONDEUR<0 then perteFRONDEUR = 0
            perteARCHER = int(NombreArcherTEMP-NombreArcherTERR15) : if perteARCHER<0 then perteARCHER = 0
            perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-NombreEXPLORATEURTERR15) : if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0
        case 16
            perteHOMMEdarme = int(NombreHommeDarmeTEMP-NombreHommeDarmeTERR16) : if perteHOMMEdarme<0 then perteHOMMEdarme = 0
            perteLANCIER = int(NombreLancierTEMP-NombreLancierTERR16) : if perteLANCIER<0 then perteLANCIER = 0
            perteFRONDEUR = int(NombreFrondeurTEMP-NombreFrondeurTERR16) : if perteFRONDEUR<0 then perteFRONDEUR = 0
            perteARCHER = int(NombreArcherTEMP-NombreArcherTERR16) : if perteARCHER<0 then perteARCHER = 0
            perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-NombreEXPLORATEURTERR16) : if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0
        case 17
            perteHOMMEdarme = int(NombreHommeDarmeTEMP-NombreHommeDarmeTERR17) : if perteHOMMEdarme<0 then perteHOMMEdarme = 0
            perteLANCIER = int(NombreLancierTEMP-NombreLancierTERR17) : if perteLANCIER<0 then perteLANCIER = 0
            perteFRONDEUR = int(NombreFrondeurTEMP-NombreFrondeurTERR17) : if perteFRONDEUR<0 then perteFRONDEUR = 0
            perteARCHER = int(NombreArcherTEMP-NombreArcherTERR17) : if perteARCHER<0 then perteARCHER = 0
            perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-NombreEXPLORATEURTERR17) : if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0
        case 18
            perteHOMMEdarme = int(NombreHommeDarmeTEMP-NombreHommeDarmeTERR18) : if perteHOMMEdarme<0 then perteHOMMEdarme = 0
            perteLANCIER = int(NombreLancierTEMP-NombreLancierTERR18) : if perteLANCIER<0 then perteLANCIER = 0
            perteFRONDEUR = int(NombreFrondeurTEMP-NombreFrondeurTERR18) : if perteFRONDEUR<0 then perteFRONDEUR = 0
            perteARCHER = int(NombreArcherTEMP-NombreArcherTERR18) : if perteARCHER<0 then perteARCHER = 0
            perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-NombreEXPLORATEURTERR18) : if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0
        case 19
            perteHOMMEdarme = int(NombreHommeDarmeTEMP-NombreHommeDarmeTERR19) : if perteHOMMEdarme<0 then perteHOMMEdarme = 0
            perteLANCIER = int(NombreLancierTEMP-NombreLancierTERR19) : if perteLANCIER<0 then perteLANCIER = 0
            perteFRONDEUR = int(NombreFrondeurTEMP-NombreFrondeurTERR19) : if perteFRONDEUR<0 then perteFRONDEUR = 0
            perteARCHER = int(NombreArcherTEMP-NombreArcherTERR19) : if perteARCHER<0 then perteARCHER = 0
            perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-NombreEXPLORATEURTERR19) : if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0
        case 20
            perteHOMMEdarme = int(NombreHommeDarmeTEMP-NombreHommeDarmeTERR20) : if perteHOMMEdarme<0 then perteHOMMEdarme = 0
            perteLANCIER = int(NombreLancierTEMP-NombreLancierTERR20) : if perteLANCIER<0 then perteLANCIER = 0
            perteFRONDEUR = int(NombreFrondeurTEMP-NombreFrondeurTERR20) : if perteFRONDEUR<0 then perteFRONDEUR = 0
            perteARCHER = int(NombreArcherTEMP-NombreArcherTERR20) : if perteARCHER<0 then perteARCHER = 0
            perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-NombreEXPLORATEURTERR20) : if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0
        end select

    NombreHommeDarme = NombreHommeDarme - perteHOMMEdarme
    NombreLancier = NombreLancier - perteLANCIER
    NombreFrondeur = NombreFrondeur - perteFRONDEUR
    NombreArcher = NombreArcher - perteARCHER
    NombreEXPLORATEUR = NombreEXPLORATEUR - perteEXPLORATEUR

    popMILIT = popMILIT - int(perteHOMMEdarme+perteLANCIER+perteFRONDEUR+perteARCHER+perteEXPLORATEUR)
    popTOTAL = int(popSCIENT +  popMILIT + popCIVIL)
    popCIVIL = int(popTOTAL-(popSCIENT+popMILIT))
errorGAME = 46
    select case PLAYER
        case 2
            perteHOMMEdarmeIAm1 = int(NombreHommeDarmeIAm1TEMP-NombreHommeDarmeIAm1SELECTED) : if perteHOMMEdarmeIAm1<0 then perteHOMMEdarmeIAm1 = 0
            perteLANCIERIAm1 = int(NombreLancierIAm1TEMP-NombreLancierIAm1SELECTED) : if perteLANCIERIAm1<0 then perteLANCIERIAm1 = 0
            perteFRONDEURIAm1 = int(NombreFrondeurIAm1TEMP-NombreFrondeurIAm1SELECTED) : if perteFRONDEURIAm1<0 then perteFRONDEURIAm1 = 0
            perteARCHERIAm1 = int(NombreArcherIAm1TEMP-NombreArcherIAm1SELECTED) : if perteARCHERIAm1<0 then perteARCHERIAm1 = 0
            popMILITIAm1 = popMILITIAm1 - int(perteHOMMEdarmeIAm1+perteLANCIERIAm1+perteFRONDEURIAm1+perteARCHERIAm1)
            popTOTALIAm1 = int(popSCIENTIAm1 +  popMILITIAm1 + popCIVILiam1)
            popCIVILiam1 = int(popTOTALIAm1-(popSCIENTIAm1+popMILITIAm1))
            NombreHommeDarmeIAm1SURVIVANTEsave = NombreHommeDarmeIAm1SELECTED : NombreHommeDarmeIAm1SELECTED = 0
            NombreLancierIAm1SURVIVANTEsave = NombreLancierIAm1SELECTED: NombreLancierIAm1SELECTED = 0
            NombreFrondeurIAm1SURVIVANTEsave = NombreFrondeurIAm1SELECTED : NombreFrondeurIAm1SELECTED = 0
            NombreArcherIAm1SURVIVANTEsave = NombreArcherIAm1SELECTED : NombreArcherIAm1SELECTED = 0
            if popTOTALIAm1 <0 then popTOTALIAm1 = 0
            NombreHommeDarmeIAm1SELECTEDtemp3 = 0
            NombreLancierIAm1SELECTEDtemp3 = 0
            NombreFrondeurIAm1SELECTEDtemp3 = 0
            NombreArcherIAm1SELECTEDtemp3 = 0
        case 3
            perteHOMMEdarmeIAm2 = int(NombreHommeDarmeIAm2TEMP-NombreHommeDarmeIAm2SELECTED) : if perteHOMMEdarmeIAm2<0 then perteHOMMEdarmeIAm2 = 0
            perteLANCIERIAm2 = int(NombreLancierIAm1TEMP-NombreLancierIAm2SELECTED) : if perteLANCIERIAm2<0 then perteLANCIERIAm2 = 0
            perteFRONDEURIAm2 = int(NombreFrondeurIAm1TEMP-NombreFrondeurIAm2SELECTED) : if perteFRONDEURIAm2<0 then perteFRONDEURIAm2 = 0
            perteARCHERIAm2 = int(NombreArcherIAm1TEMP-NombreArcherIAm2SELECTED) : if perteARCHERIAm2<0 then perteARCHERIAm2 = 0
            popMILITIAm2 = popMILITIAm2 - int(perteHOMMEdarmeIAm2+perteLANCIERIAm2+perteFRONDEURIAm2+perteARCHERIAm2)
            popTOTALIAm2 = int(popSCIENTIAm2 +  popMILITIAm2 + popCIVILiam2)
            popCIVILiam2 = int(popTOTALIAm2-(popSCIENTIAm2+popMILITIAm2))
            NombreHommeDarmeIAm2SURVIVANTEsave = NombreHommeDarmeIAm2SELECTED : NombreHommeDarmeIAm2SELECTED = 0
            NombreLancierIAm2SURVIVANTEsave = NombreLancierIAm2SELECTED: NombreLancierIAm2SELECTED = 0
            NombreFrondeurIAm2SURVIVANTEsave = NombreFrondeurIAm2SELECTED : NombreFrondeurIAm2SELECTED = 0
            NombreArcherIAm2SURVIVANTEsave = NombreArcherIAm2SELECTED : NombreArcherIAm2SELECTED = 0
            if popTOTALIAm2 <0 then popTOTALIAm2 = 0
            NombreHommeDarmeIAm2SELECTEDtemp2 = 0
            NombreLancierIAm2SELECTEDtemp2 = 0
            NombreFrondeurIAm2SELECTEDtemp2 = 0
            NombreArcherIAm2SELECTEDtemp2 = 0
    end select

    if fight1 <= 0 then TEXTvictoire$ = "Victoire"
    if fight2 <= 0 then TEXTvictoire$ = "Défaite"
   ' if bat1 = 1 then close #bat1 : bat1 = 0

    foundedSECU = 0
    errorGAME = 47
    'notice territoire
    select case territoire
         case 1
            NombreHommeDarmeSAVE = NombreHommeDarmeTERR1 : if NombreHommeDarmeTEMP = 0 then NombreHommeDarmeSAVE = 0
            NombreLancierSAVE = NombreLancierTERR1 : if NombreLancierTEMP = 0 then NombreLancierSAVE = 0
            NombreFrondeurSAVE = NombreFrondeurTERR1 : if NombreFrondeurTEMP = 0 then NombreFrondeurSAVE = 0
            NombreArcherSAVE = NombreArcherTERR1 : if NombreArcherTEMP = 0 then NombreArcherSAVE = 0
            if hpFortificationsTERR > 0 then hpFortificationsTERR1 = hpFortificationsTERR
            if hpFortificationsTERR <= 0 then hpFortificationsTERR1 = 0 : LVLfortificationTERRITOIRE1 = 0
            errorGAME = 48
            if PLAYER = 2 then goto [endATTAQUEtoTERRITORY1B1]
            if PLAYER = 3 then goto [endATTAQUEtoTERRITORY1C1]
        case 2
            NombreHommeDarmeSAVE = NombreHommeDarmeTERR2 : if NombreHommeDarmeTEMP = 0 then NombreHommeDarmeSAVE = 0
            NombreLancierSAVE = NombreLancierTERR2 : if NombreLancierTEMP = 0 then NombreLancierSAVE = 0
            NombreFrondeurSAVE = NombreFrondeurTERR2 : if NombreFrondeurTEMP = 0 then NombreFrondeurSAVE = 0
            NombreArcherSAVE = NombreArcherTERR2 : if NombreArcherTEMP = 0 then NombreArcherSAVE = 0
            if hpFortificationsTERR > 0 then hpFortificationsTERR2 = hpFortificationsTERR
            if hpFortificationsTERR <= 0 then hpFortificationsTERR2 = 0 : LVLfortificationTERRITOIRE2 = 0
            errorGAME = 49
            if PLAYER = 2 then goto [endATTAQUEtoTERRITORY2B1]
            if PLAYER = 3 then goto [endATTAQUEtoTERRITORY2C1]
        case 3
            NombreHommeDarmeSAVE = NombreHommeDarmeTERR3 : if NombreHommeDarmeTEMP = 0 then NombreHommeDarmeSAVE = 0
            NombreLancierSAVE = NombreLancierTERR3 : if NombreLancierTEMP = 0 then NombreLancierSAVE = 0
            NombreFrondeurSAVE = NombreFrondeurTERR3 : if NombreFrondeurTEMP = 0 then NombreFrondeurSAVE = 0
            NombreArcherSAVE = NombreArcherTERR3 : if NombreArcherTEMP = 0 then NombreArcherSAVE = 0
            if hpFortificationsTERR > 0 then hpFortificationsTERR3 = hpFortificationsTERR
            if hpFortificationsTERR <= 0 then hpFortificationsTERR3 = 0 : LVLfortificationTERRITOIRE3 = 0
            errorGAME = 4911
            if PLAYER = 2 then goto [endATTAQUEtoTERRITORY3B1]
            errorGAME = 4912
            if PLAYER = 3 then goto [endATTAQUEtoTERRITORY3C1]
        case 4
            NombreHommeDarmeSAVE = NombreHommeDarmeTERR4 : if NombreHommeDarmeTEMP = 0 then NombreHommeDarmeSAVE = 0
            NombreLancierSAVE = NombreLancierTERR4 : if NombreLancierTEMP = 0 then NombreLancierSAVE = 0
            NombreFrondeurSAVE = NombreFrondeurTERR4 : if NombreFrondeurTEMP = 0 then NombreFrondeurSAVE = 0
            NombreArcherSAVE = NombreArcherTERR4 : if NombreArcherTEMP = 0 then NombreArcherSAVE = 0
            if hpFortificationsTERR > 0 then hpFortificationsTERR4 = hpFortificationsTERR
            if hpFortificationsTERR <= 0 then hpFortificationsTERR4 = 0 : LVLfortificationTERRITOIRE4 = 0
            errorGAME = 492
            if PLAYER = 2 then goto [endATTAQUEtoTERRITORY4B1]
            if PLAYER = 3 then goto [endATTAQUEtoTERRITORY4C1]
        case 5
            NombreHommeDarmeSAVE = NombreHommeDarmeTERR5 : if NombreHommeDarmeTEMP = 0 then NombreHommeDarmeSAVE = 0
            NombreLancierSAVE = NombreLancierTERR5 : if NombreLancierTEMP = 0 then NombreLancierSAVE = 0
            NombreFrondeurSAVE = NombreFrondeurTERR5 : if NombreFrondeurTEMP = 0 then NombreFrondeurSAVE = 0
            NombreArcherSAVE = NombreArcherTERR5 : if NombreArcherTEMP = 0 then NombreArcherSAVE = 0
            if hpFortificationsTERR > 0 then hpFortificationsTERR5 = hpFortificationsTERR
            if hpFortificationsTERR <= 0 then hpFortificationsTERR5 = 0 : LVLfortificationTERRITOIRE5 = 0
            errorGAME = 493
            if PLAYER = 2 then goto [endATTAQUEtoTERRITORY5B1]
            if PLAYER = 3 then goto [endATTAQUEtoTERRITORY5C1]
        case 6
            NombreHommeDarmeSAVE = NombreHommeDarmeTERR6 : if NombreHommeDarmeTEMP = 0 then NombreHommeDarmeSAVE = 0
            NombreLancierSAVE = NombreLancierTERR6 : if NombreLancierTEMP = 0 then NombreLancierSAVE = 0
            NombreFrondeurSAVE = NombreFrondeurTERR6 : if NombreFrondeurTEMP = 0 then NombreFrondeurSAVE = 0
            NombreArcherSAVE = NombreArcherTERR6 : if NombreArcherTEMP = 0 then NombreArcherSAVE = 0
            if hpFortificationsTERR > 0 then hpFortificationsTERR6 = hpFortificationsTERR
            if hpFortificationsTERR <= 0 then hpFortificationsTERR6 = 0 : LVLfortificationTERRITOIRE6 = 0
            errorGAME = 494
            if PLAYER = 2 then goto [endATTAQUEtoTERRITORY6B1]
            if PLAYER = 3 then goto [endATTAQUEtoTERRITORY6C1]
        case 7
            NombreHommeDarmeSAVE = NombreHommeDarmeTERR7 : if NombreHommeDarmeTEMP = 0 then NombreHommeDarmeSAVE = 0
            NombreLancierSAVE = NombreLancierTERR7 : if NombreLancierTEMP = 0 then NombreLancierSAVE = 0
            NombreFrondeurSAVE = NombreFrondeurTERR7 : if NombreFrondeurTEMP = 0 then NombreFrondeurSAVE = 0
            NombreArcherSAVE = NombreArcherTERR7 : if NombreArcherTEMP = 0 then NombreArcherSAVE = 0
            if hpFortificationsTERR > 0 then hpFortificationsTERR7 = hpFortificationsTERR
            if hpFortificationsTERR <= 0 then hpFortificationsTERR7 = 0 : LVLfortificationTERRITOIRE7 = 0
            errorGAME = 495
            if PLAYER = 2 then goto [endATTAQUEtoTERRITORY7B1]
            if PLAYER = 3 then goto [endATTAQUEtoTERRITORY7C1]
        case 8
            NombreHommeDarmeSAVE = NombreHommeDarmeTERR8 : if NombreHommeDarmeTEMP = 0 then NombreHommeDarmeSAVE = 0
            NombreLancierSAVE = NombreLancierTERR8 : if NombreLancierTEMP = 0 then NombreLancierSAVE = 0
            NombreFrondeurSAVE = NombreFrondeurTERR8 : if NombreFrondeurTEMP = 0 then NombreFrondeurSAVE = 0
            NombreArcherSAVE = NombreArcherTERR8 : if NombreArcherTEMP = 0 then NombreArcherSAVE = 0
            if hpFortificationsTERR > 0 then hpFortificationsTERR8 = hpFortificationsTERR
            if hpFortificationsTERR <= 0 then hpFortificationsTERR8 = 0 : LVLfortificationTERRITOIRE8 = 0
            errorGAME = 496
            if PLAYER = 2 then goto [endATTAQUEtoTERRITORY8B1]
            if PLAYER = 3 then goto [endATTAQUEtoTERRITORY8C1]
        case 9
            NombreHommeDarmeSAVE = NombreHommeDarmeTERR9 : if NombreHommeDarmeTEMP = 0 then NombreHommeDarmeSAVE = 0
            NombreLancierSAVE = NombreLancierTERR9 : if NombreLancierTEMP = 0 then NombreLancierSAVE = 0
            NombreFrondeurSAVE = NombreFrondeurTERR9 : if NombreFrondeurTEMP = 0 then NombreFrondeurSAVE = 0
            NombreArcherSAVE = NombreArcherTERR9 : if NombreArcherTEMP = 0 then NombreArcherSAVE = 0
            if hpFortificationsTERR > 0 then hpFortificationsTERR9 = hpFortificationsTERR
            if hpFortificationsTERR <= 0 then hpFortificationsTERR9 = 0 : LVLfortificationTERRITOIRE9 = 0
            errorGAME = 497
            if PLAYER = 2 then goto [endATTAQUEtoTERRITORY9B1]
            if PLAYER = 3 then goto [endATTAQUEtoTERRITORY9C1]
        case 10
            NombreHommeDarmeSAVE = NombreHommeDarmeTERR10 : if NombreHommeDarmeTEMP = 0 then NombreHommeDarmeSAVE = 0
            NombreLancierSAVE = NombreLancierTERR10 : if NombreLancierTEMP = 0 then NombreLancierSAVE = 0
            NombreFrondeurSAVE = NombreFrondeurTERR10 : if NombreFrondeurTEMP = 0 then NombreFrondeurSAVE = 0
            NombreArcherSAVE = NombreArcherTERR10 : if NombreArcherTEMP = 0 then NombreArcherSAVE = 0
            if hpFortificationsTERR > 0 then hpFortificationsTERR10 = hpFortificationsTERR
            if hpFortificationsTERR <= 0 then hpFortificationsTERR10 = 0 : LVLfortificationTERRITOIRE10 = 0
            errorGAME = 498
            if PLAYER = 2 then goto [endATTAQUEtoTERRITORY10B1]
            if PLAYER = 3 then goto [endATTAQUEtoTERRITORY10C1]
        case 11
            NombreHommeDarmeSAVE = NombreHommeDarmeTERR11 : if NombreHommeDarmeTEMP = 0 then NombreHommeDarmeSAVE = 0
            NombreLancierSAVE = NombreLancierTERR11 : if NombreLancierTEMP = 0 then NombreLancierSAVE = 0
            NombreFrondeurSAVE = NombreFrondeurTERR11 : if NombreFrondeurTEMP = 0 then NombreFrondeurSAVE = 0
            NombreArcherSAVE = NombreArcherTERR11 : if NombreArcherTEMP = 0 then NombreArcherSAVE = 0
            if hpFortificationsTERR > 0 then hpFortificationsTERR11 = hpFortificationsTERR
            if hpFortificationsTERR <= 0 then hpFortificationsTERR11 = 0 : LVLfortificationTERRITOIRE11 = 0
            errorGAME = 499
            if PLAYER = 2 then goto [endATTAQUEtoTERRITORY11B1]
            if PLAYER = 3 then goto [endATTAQUEtoTERRITORY11C1]
        case 12
            NombreHommeDarmeSAVE = NombreHommeDarmeTERR12 : if NombreHommeDarmeTEMP = 0 then NombreHommeDarmeSAVE = 0
            NombreLancierSAVE = NombreLancierTERR12 : if NombreLancierTEMP = 0 then NombreLancierSAVE = 0
            NombreFrondeurSAVE = NombreFrondeurTERR12 : if NombreFrondeurTEMP = 0 then NombreFrondeurSAVE = 0
            NombreArcherSAVE = NombreArcherTERR12 : if NombreArcherTEMP = 0 then NombreArcherSAVE = 0
            if hpFortificationsTERR > 0 then hpFortificationsTERR12 = hpFortificationsTERR
            if hpFortificationsTERR <= 0 then hpFortificationsTERR12 = 0 : LVLfortificationTERRITOIRE12 = 0
            errorGAME = 4991
            if PLAYER = 2 then goto [endATTAQUEtoTERRITORY12B1]
            if PLAYER = 3 then goto [endATTAQUEtoTERRITORY12C1]
        case 13
            NombreHommeDarmeSAVE = NombreHommeDarmeTERR13 : if NombreHommeDarmeTEMP = 0 then NombreHommeDarmeSAVE = 0
            NombreLancierSAVE = NombreLancierTERR13 : if NombreLancierTEMP = 0 then NombreLancierSAVE = 0
            NombreFrondeurSAVE = NombreFrondeurTERR13 : if NombreFrondeurTEMP = 0 then NombreFrondeurSAVE = 0
            NombreArcherSAVE = NombreArcherTERR13 : if NombreArcherTEMP = 0 then NombreArcherSAVE = 0
            if hpFortificationsTERR > 0 then hpFortificationsTERR13 = hpFortificationsTERR
            if hpFortificationsTERR <= 0 then hpFortificationsTERR13 = 0 : LVLfortificationTERRITOIRE13 = 0
            errorGAME = 4992
            if PLAYER = 2 then goto [endATTAQUEtoTERRITORY13B1]
            if PLAYER = 3 then goto [endATTAQUEtoTERRITORY13C1]
        case 14
            NombreHommeDarmeSAVE = NombreHommeDarmeTERR14 : if NombreHommeDarmeTEMP = 0 then NombreHommeDarmeSAVE = 0
            NombreLancierSAVE = NombreLancierTERR14 : if NombreLancierTEMP = 0 then NombreLancierSAVE = 0
            NombreFrondeurSAVE = NombreFrondeurTERR14 : if NombreFrondeurTEMP = 0 then NombreFrondeurSAVE = 0
            NombreArcherSAVE = NombreArcherTERR14 : if NombreArcherTEMP = 0 then NombreArcherSAVE = 0
            if hpFortificationsTERR > 0 then hpFortificationsTERR14 = hpFortificationsTERR
            if hpFortificationsTERR <= 0 then hpFortificationsTERR14 = 0 : LVLfortificationTERRITOIRE14 = 0
            errorGAME = 4993
            if PLAYER = 2 then goto [endATTAQUEtoTERRITORY14B1]
            if PLAYER = 3 then goto [endATTAQUEtoTERRITORY14C1]
        case 15
            NombreHommeDarmeSAVE = NombreHommeDarmeTERR15 : if NombreHommeDarmeTEMP = 0 then NombreHommeDarmeSAVE = 0
            NombreLancierSAVE = NombreLancierTERR15 : if NombreLancierTEMP = 0 then NombreLancierSAVE = 0
            NombreFrondeurSAVE = NombreFrondeurTERR15 : if NombreFrondeurTEMP = 0 then NombreFrondeurSAVE = 0
            NombreArcherSAVE = NombreArcherTERR15 : if NombreArcherTEMP = 0 then NombreArcherSAVE = 0
            if hpFortificationsTERR > 0 then hpFortificationsTERR15 = hpFortificationsTERR
            if hpFortificationsTERR <= 0 then hpFortificationsTERR15 = 0 : LVLfortificationTERRITOIRE15 = 0
            errorGAME = 4994
            if PLAYER = 2 then goto [endATTAQUEtoTERRITORY15B1]
            if PLAYER = 3 then goto [endATTAQUEtoTERRITORY15C1]
        case 16
            NombreHommeDarmeSAVE = NombreHommeDarmeTERR16 : if NombreHommeDarmeTEMP = 0 then NombreHommeDarmeSAVE = 0
            NombreLancierSAVE = NombreLancierTERR16 : if NombreLancierTEMP = 0 then NombreLancierSAVE = 0
            NombreFrondeurSAVE = NombreFrondeurTERR16 : if NombreFrondeurTEMP = 0 then NombreFrondeurSAVE = 0
            NombreArcherSAVE = NombreArcherTERR16 : if NombreArcherTEMP = 0 then NombreArcherSAVE = 0
            if hpFortificationsTERR > 0 then hpFortificationsTERR16 = hpFortificationsTERR
            if hpFortificationsTERR <= 0 then hpFortificationsTERR16 = 0 : LVLfortificationTERRITOIRE16 = 0
            errorGAME = 4995
            if PLAYER = 2 then goto [endATTAQUEtoTERRITORY16B1]
            if PLAYER = 3 then goto [endATTAQUEtoTERRITORY16C1]
        case 17
            NombreHommeDarmeSAVE = NombreHommeDarmeTERR17 : if NombreHommeDarmeTEMP = 0 then NombreHommeDarmeSAVE = 0
            NombreLancierSAVE = NombreLancierTERR17 : if NombreLancierTEMP = 0 then NombreLancierSAVE = 0
            NombreFrondeurSAVE = NombreFrondeurTERR17 : if NombreFrondeurTEMP = 0 then NombreFrondeurSAVE = 0
            NombreArcherSAVE = NombreArcherTERR17 : if NombreArcherTEMP = 0 then NombreArcherSAVE = 0
            if hpFortificationsTERR > 0 then hpFortificationsTERR17 = hpFortificationsTERR
            if hpFortificationsTERR <= 0 then hpFortificationsTERR17 = 0 : LVLfortificationTERRITOIRE17 = 0
            errorGAME = 4996
            if PLAYER = 2 then goto [endATTAQUEtoTERRITORY17B1]
            if PLAYER = 3 then goto [endATTAQUEtoTERRITORY17C1]
        case 18
            NombreHommeDarmeSAVE = NombreHommeDarmeTERR18 : if NombreHommeDarmeTEMP = 0 then NombreHommeDarmeSAVE = 0
            NombreLancierSAVE = NombreLancierTERR18 : if NombreLancierTEMP = 0 then NombreLancierSAVE = 0
            NombreFrondeurSAVE = NombreFrondeurTERR18 : if NombreFrondeurTEMP = 0 then NombreFrondeurSAVE = 0
            NombreArcherSAVE = NombreArcherTERR18 : if NombreArcherTEMP = 0 then NombreArcherSAVE = 0
            if hpFortificationsTERR > 0 then hpFortificationsTERR18 = hpFortificationsTERR
            if hpFortificationsTERR <= 0 then hpFortificationsTERR18 = 0 : LVLfortificationTERRITOIRE18 = 0
            errorGAME = 4997
            if PLAYER = 2 then goto [endATTAQUEtoTERRITORY18B1]
            if PLAYER = 3 then goto [endATTAQUEtoTERRITORY18C1]
        case 19
            NombreHommeDarmeSAVE = NombreHommeDarmeTERR9 : if NombreHommeDarmeTEMP = 0 then NombreHommeDarmeSAVE = 0
            NombreLancierSAVE = NombreLancierTERR19 : if NombreLancierTEMP = 0 then NombreLancierSAVE = 0
            NombreFrondeurSAVE = NombreFrondeurTERR19 : if NombreFrondeurTEMP = 0 then NombreFrondeurSAVE = 0
            NombreArcherSAVE = NombreArcherTERR19 : if NombreArcherTEMP = 0 then NombreArcherSAVE = 0
            if hpFortificationsTERR > 0 then hpFortificationsTERR19 = hpFortificationsTERR
            if hpFortificationsTERR <= 0 then hpFortificationsTERR19 = 0 : LVLfortificationTERRITOIRE19 = 0
            errorGAME = 4998
            if PLAYER = 2 then goto [endATTAQUEtoTERRITORY19B1]
            if PLAYER = 3 then goto [endATTAQUEtoTERRITORY19C1]
        case 20
            NombreHommeDarmeSAVE = NombreHommeDarmeTERR20 : if NombreHommeDarmeTEMP = 0 then NombreHommeDarmeSAVE = 0
            NombreLancierSAVE = NombreLancierTERR20 : if NombreLancierTEMP = 0 then NombreLancierSAVE = 0
            NombreFrondeurSAVE = NombreFrondeurTERR20 : if NombreFrondeurTEMP = 0 then NombreFrondeurSAVE = 0
            NombreArcherSAVE = NombreArcherTERR20 : if NombreArcherTEMP = 0 then NombreArcherSAVE = 0
            if hpFortificationsTERR > 0 then hpFortificationsTERR20 = hpFortificationsTERR
            if hpFortificationsTERR <= 0 then hpFortificationsTERR20 = 0 : LVLfortificationTERRITOIRE20 = 0
            errorGAME = 4999
            if PLAYER = 2 then goto [endATTAQUEtoTERRITORY20B1]
            if PLAYER = 3 then goto [endATTAQUEtoTERRITORY20C1]
        end select
    wait


'quand vous attaquez les territoires des IA (REFAIT)

[boucleDEFia1TERRITOIRE]
gosub [dataUNITfightPERSO]
hpFortificationsIAm1TEMP = int(lvlbatimentFortificationsIAm1TERRITOIRE*550)
NombreTROUPE = 0

if NombreHommeDarmeSELECTED >= 1 then NombreTROUPE = NombreTROUPE + 1
if NombreLancierSELECTED >= 1 then NombreTROUPE = NombreTROUPE + 1
if NombreFrondeurSELECTED >= 1 then NombreTROUPE = NombreTROUPE + 1
if NombreArcherSELECTED >= 1 then NombreTROUPE = NombreTROUPE + 1
if NombreEXPLORATEURSELECTED >= 1 then NombreTROUPE = NombreTROUPE + 1
if NombreTROUPE = 0 then NombreTROUPE = 1
NombreHommeDarmeTEMP = NombreHommeDarmeSELECTED
NombreLancierTEMP = NombreLancierSELECTED
NombreFrondeurTEMP = NombreFrondeurSELECTED
NombreArcherTEMP = NombreArcherSELECTED
NombreEXPLORATEURTEMP = NombreEXPLORATEURSELECTED
NombreTROUPEiam1 = 0 : NombreTROUPEiam2 = 0

select case territoire
case 1
if territoire1 = 2 then
    if NombreHommeDarmeIAm1TERR1 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreLancierIAm1TERR1 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreFrondeurIAm1TERR1 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreArcherIAm1TERR1 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    playerDEF = 2 : NombreHommeDarmeIAm1TEMP = NombreHommeDarmeIAm1TERR1 : NombreLancierIAm1TEMP = NombreLancierIAm1TERR1 : NombreFrondeurIAm1TEMP = NombreFrondeurIAm1TERR1 : NombreArcherIAm1TEMP = NombreArcherIAm1TERR1 : lvlbatimentFortificationsIAm1TERRITOIRE = LVLfortificationTERRITOIRE1iam1
end if
if territoire1 = 3 then
    if NombreHommeDarmeIAm2TERR1 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreLancierIAm2TERR1 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreFrondeurIAm2TERR1 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreArcherIAm2TERR1 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    playerDEF = 3 : NombreHommeDarmeIAm2TEMP = NombreHommeDarmeIAm2TERR1 : NombreLancierIAm2TEMP = NombreLancierIAm2TERR1 : NombreFrondeurIAm2TEMP = NombreFrondeurIAm2TERR1 : NombreArcherIAm2TEMP = NombreArcherIAm2TERR1 : lvlbatimentFortificationsIAm2TERRITOIRE = LVLfortificationTERRITOIRE1iam2
end if
case 2
if territoire2 = 2 then
    if NombreHommeDarmeIAm1TERR2 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreLancierIAm1TERR2 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreFrondeurIAm1TERR2 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreArcherIAm1TERR2 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    playerDEF = 2 : NombreHommeDarmeIAm1TEMP = NombreHommeDarmeIAm1TERR2 : NombreLancierIAm1TEMP = NombreLancierIAm1TERR2 : NombreFrondeurIAm1TEMP = NombreFrondeurIAm1TERR2 : NombreArcherIAm1TEMP = NombreArcherIAm1TERR2 : lvlbatimentFortificationsIAm1TERRITOIRE = LVLfortificationTERRITOIRE2iam1
end if
if territoire2 = 3 then
    if NombreHommeDarmeIAm2TERR2 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreLancierIAm2TERR2 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreFrondeurIAm2TERR2 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreArcherIAm2TERR2 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    playerDEF = 3 : NombreHommeDarmeIAm2TEMP = NombreHommeDarmeIAm2TERR2 : NombreLancierIAm2TEMP = NombreLancierIAm2TERR2 : NombreFrondeurIAm2TEMP = NombreFrondeurIAm2TERR2 : NombreArcherIAm2TEMP = NombreArcherIAm2TERR2 : lvlbatimentFortificationsIAm2TERRITOIRE = LVLfortificationTERRITOIRE2iam2
end if
case 3
if territoire3 = 2 then
    if NombreHommeDarmeIAm1TERR3 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreLancierIAm1TERR3 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreFrondeurIAm1TERR3 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreArcherIAm1TERR3 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    playerDEF = 2 : NombreHommeDarmeIAm1TEMP = NombreHommeDarmeIAm1TERR3 : NombreLancierIAm1TEMP = NombreLancierIAm1TERR3 : NombreFrondeurIAm1TEMP = NombreFrondeurIAm1TERR3 : NombreArcherIAm1TEMP = NombreArcherIAm1TERR3 : lvlbatimentFortificationsIAm1TERRITOIRE = LVLfortificationTERRITOIRE3iam1
end if
if territoire3 = 3 then
    if NombreHommeDarmeIAm2TERR3 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreLancierIAm2TERR3 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreFrondeurIAm2TERR3 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreArcherIAm2TERR3 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    playerDEF = 3 : NombreHommeDarmeIAm2TEMP = NombreHommeDarmeIAm2TERR3 : NombreLancierIAm2TEMP = NombreLancierIAm2TERR3 : NombreFrondeurIAm2TEMP = NombreFrondeurIAm2TERR3 : NombreArcherIAm2TEMP = NombreArcherIAm2TERR3 : lvlbatimentFortificationsIAm2TERRITOIRE = LVLfortificationTERRITOIRE3iam2
end if
case 4
if territoire4 = 2 then
    if NombreHommeDarmeIAm1TERR4 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreLancierIAm1TERR4 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreFrondeurIAm1TERR4 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreArcherIAm1TERR4 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    playerDEF = 2 : NombreHommeDarmeIAm1TEMP = NombreHommeDarmeIAm1TERR4 : NombreLancierIAm1TEMP = NombreLancierIAm1TERR4 : NombreFrondeurIAm1TEMP = NombreFrondeurIAm1TERR4 : NombreArcherIAm1TEMP = NombreArcherIAm1TERR4 : lvlbatimentFortificationsIAm1TERRITOIRE = LVLfortificationTERRITOIRE4iam1
end if
if territoire4 = 3 then
    if NombreHommeDarmeIAm2TERR4 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreLancierIAm2TERR4 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreFrondeurIAm2TERR4 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreArcherIAm2TERR4 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    playerDEF = 3 : NombreHommeDarmeIAm2TEMP = NombreHommeDarmeIAm2TERR4 : NombreLancierIAm2TEMP = NombreLancierIAm2TERR4 : NombreFrondeurIAm2TEMP = NombreFrondeurIAm2TERR4 : NombreArcherIAm2TEMP = NombreArcherIAm2TERR4 : lvlbatimentFortificationsIAm2TERRITOIRE = LVLfortificationTERRITOIRE4iam2
end if
case 5
if territoire5 = 2 then
    if NombreHommeDarmeIAm1TERR5 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreLancierIAm1TERR5 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreFrondeurIAm1TERR5 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreArcherIAm1TERR5 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    playerDEF = 2 : NombreHommeDarmeIAm1TEMP = NombreHommeDarmeIAm1TERR5 : NombreLancierIAm1TEMP = NombreLancierIAm1TERR5 : NombreFrondeurIAm1TEMP = NombreFrondeurIAm1TERR5 : NombreArcherIAm1TEMP = NombreArcherIAm1TERR5 : lvlbatimentFortificationsIAm1TERRITOIRE = LVLfortificationTERRITOIRE5iam1
end if
if territoire5 = 3 then
    if NombreHommeDarmeIAm2TERR5 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreLancierIAm2TERR5 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreFrondeurIAm2TERR5 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreArcherIAm2TERR5 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    playerDEF = 3 : NombreHommeDarmeIAm2TEMP = NombreHommeDarmeIAm2TERR5 : NombreLancierIAm2TEMP = NombreLancierIAm2TERR5 : NombreFrondeurIAm2TEMP = NombreFrondeurIAm2TERR5 : NombreArcherIAm2TEMP = NombreArcherIAm2TERR5 : lvlbatimentFortificationsIAm2TERRITOIRE = LVLfortificationTERRITOIRE5iam2
end if
case 6
if territoire6 = 2 then
    if NombreHommeDarmeIAm1TERR6 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreLancierIAm1TERR6 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreFrondeurIAm1TERR6 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreArcherIAm1TERR6 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    playerDEF = 2 : NombreHommeDarmeIAm1TEMP = NombreHommeDarmeIAm1TERR6 : NombreLancierIAm1TEMP = NombreLancierIAm1TERR6 : NombreFrondeurIAm1TEMP = NombreFrondeurIAm1TERR6 : NombreArcherIAm1TEMP = NombreArcherIAm1TERR6 : lvlbatimentFortificationsIAm1TERRITOIRE = LVLfortificationTERRITOIRE6iam1
end if
if territoire6 = 3 then
    if NombreHommeDarmeIAm2TERR6 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreLancierIAm2TERR6 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreFrondeurIAm2TERR6 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreArcherIAm2TERR6 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    playerDEF = 3 : NombreHommeDarmeIAm2TEMP = NombreHommeDarmeIAm2TERR6 : NombreLancierIAm2TEMP = NombreLancierIAm2TERR6 : NombreFrondeurIAm2TEMP = NombreFrondeurIAm2TERR6 : NombreArcherIAm2TEMP = NombreArcherIAm2TERR6 : lvlbatimentFortificationsIAm2TERRITOIRE = LVLfortificationTERRITOIRE6iam2
end if
case 7
if territoire7 = 2 then
    if NombreHommeDarmeIAm1TERR7 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreLancierIAm1TERR7 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreFrondeurIAm1TERR7 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreArcherIAm1TERR7 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    playerDEF = 2 : NombreHommeDarmeIAm1TEMP = NombreHommeDarmeIAm1TERR7 : NombreLancierIAm1TEMP = NombreLancierIAm1TERR7 : NombreFrondeurIAm1TEMP = NombreFrondeurIAm1TERR7 : NombreArcherIAm1TEMP = NombreArcherIAm1TERR7 : lvlbatimentFortificationsIAm1TERRITOIRE = LVLfortificationTERRITOIRE7iam1
end if
if territoire7 = 3 then
    if NombreHommeDarmeIAm2TERR7 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreLancierIAm2TERR7 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreFrondeurIAm2TERR7 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreArcherIAm2TERR7 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    playerDEF = 3 : NombreHommeDarmeIAm2TEMP = NombreHommeDarmeIAm2TERR7 : NombreLancierIAm2TEMP = NombreLancierIAm2TERR7 : NombreFrondeurIAm2TEMP = NombreFrondeurIAm2TERR7 : NombreArcherIAm2TEMP = NombreArcherIAm2TERR7 : lvlbatimentFortificationsIAm2TERRITOIRE = LVLfortificationTERRITOIRE7iam2
end if
case 8
if territoire8 = 2 then
    if NombreHommeDarmeIAm1TERR8 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreLancierIAm1TERR8 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreFrondeurIAm1TERR8 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreArcherIAm1TERR8 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    playerDEF = 2 : NombreHommeDarmeIAm1TEMP = NombreHommeDarmeIAm1TERR8 : NombreLancierIAm1TEMP = NombreLancierIAm1TERR8 : NombreFrondeurIAm1TEMP = NombreFrondeurIAm1TERR8 : NombreArcherIAm1TEMP = NombreArcherIAm1TERR8 : lvlbatimentFortificationsIAm1TERRITOIRE = LVLfortificationTERRITOIRE8iam1
end if
if territoire8 = 3 then
    if NombreHommeDarmeIAm2TERR8 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreLancierIAm2TERR8 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreFrondeurIAm2TERR8 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreArcherIAm2TERR8 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    playerDEF = 3 : NombreHommeDarmeIAm2TEMP = NombreHommeDarmeIAm2TERR8 : NombreLancierIAm2TEMP = NombreLancierIAm2TERR8 : NombreFrondeurIAm2TEMP = NombreFrondeurIAm2TERR8 : NombreArcherIAm2TEMP = NombreArcherIAm2TERR8 : lvlbatimentFortificationsIAm2TERRITOIRE = LVLfortificationTERRITOIRE8iam2
end if
case 9
if territoire9 = 2 then
    if NombreHommeDarmeIAm1TERR9 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreLancierIAm1TERR9 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreFrondeurIAm1TERR9 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreArcherIAm1TERR9 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    playerDEF = 2 : NombreHommeDarmeIAm1TEMP = NombreHommeDarmeIAm1TERR9 : NombreLancierIAm1TEMP = NombreLancierIAm1TERR9 : NombreFrondeurIAm1TEMP = NombreFrondeurIAm1TERR9 : NombreArcherIAm1TEMP = NombreArcherIAm1TERR9 : lvlbatimentFortificationsIAm1TERRITOIRE = LVLfortificationTERRITOIRE9iam1
end if
if territoire9 = 3 then
    if NombreHommeDarmeIAm2TERR9 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreLancierIAm2TERR9 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreFrondeurIAm2TERR9 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreArcherIAm2TERR9 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    playerDEF = 3 : NombreHommeDarmeIAm2TEMP = NombreHommeDarmeIAm2TERR9 : NombreLancierIAm2TEMP = NombreLancierIAm2TERR9 : NombreFrondeurIAm2TEMP = NombreFrondeurIAm2TERR9 : NombreArcherIAm2TEMP = NombreArcherIAm2TERR9 : lvlbatimentFortificationsIAm2TERRITOIRE = LVLfortificationTERRITOIRE9iam2
end if
case 10
if territoire10 = 2 then
    if NombreHommeDarmeIAm1TERR10 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreLancierIAm1TERR10 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreFrondeurIAm1TERR10 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreArcherIAm1TERR10 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    playerDEF = 2 : NombreHommeDarmeIAm1TEMP = NombreHommeDarmeIAm1TERR10 : NombreLancierIAm1TEMP = NombreLancierIAm1TERR10 : NombreFrondeurIAm1TEMP = NombreFrondeurIAm1TERR10 : NombreArcherIAm1TEMP = NombreArcherIAm1TERR10 : lvlbatimentFortificationsIAm1TERRITOIRE = LVLfortificationTERRITOIRE10iam1
end if
if territoire10 = 3 then
    if NombreHommeDarmeIAm2TERR10 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreLancierIAm2TERR10 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreFrondeurIAm2TERR10 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreArcherIAm2TERR10 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    playerDEF = 3 : NombreHommeDarmeIAm2TEMP = NombreHommeDarmeIAm2TERR10 : NombreLancierIAm2TEMP = NombreLancierIAm2TERR10 : NombreFrondeurIAm2TEMP = NombreFrondeurIAm2TERR10 : NombreArcherIAm2TEMP = NombreArcherIAm2TERR10 : lvlbatimentFortificationsIAm2TERRITOIRE = LVLfortificationTERRITOIRE10iam2
end if
case 11
if territoire11 = 2 then
    if NombreHommeDarmeIAm1TERR11 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreLancierIAm1TERR11 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreFrondeurIAm1TERR11 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreArcherIAm1TERR11 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    playerDEF = 2 : NombreHommeDarmeIAm1TEMP = NombreHommeDarmeIAm1TERR11 : NombreLancierIAm1TEMP = NombreLancierIAm1TERR11 : NombreFrondeurIAm1TEMP = NombreFrondeurIAm1TERR11 : NombreArcherIAm1TEMP = NombreArcherIAm1TERR11 : lvlbatimentFortificationsIAm1TERRITOIRE = LVLfortificationTERRITOIRE11iam1
end if
if territoire11 = 3 then
    if NombreHommeDarmeIAm2TERR11 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreLancierIAm2TERR11 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreFrondeurIAm2TERR11 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreArcherIAm2TERR11 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    playerDEF = 3 : NombreHommeDarmeIAm2TEMP = NombreHommeDarmeIAm2TERR11 : NombreLancierIAm2TEMP = NombreLancierIAm2TERR11 : NombreFrondeurIAm2TEMP = NombreFrondeurIAm2TERR11 : NombreArcherIAm2TEMP = NombreArcherIAm2TERR11 : lvlbatimentFortificationsIAm2TERRITOIRE = LVLfortificationTERRITOIRE11iam2
end if
case 12
if territoire12 = 2 then
    if NombreHommeDarmeIAm1TERR12 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreLancierIAm1TERR12 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreFrondeurIAm1TERR12 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreArcherIAm1TERR12 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    playerDEF = 2 : NombreHommeDarmeIAm1TEMP = NombreHommeDarmeIAm1TERR12 : NombreLancierIAm1TEMP = NombreLancierIAm1TERR12 : NombreFrondeurIAm1TEMP = NombreFrondeurIAm1TERR12 : NombreArcherIAm1TEMP = NombreArcherIAm1TERR12 : lvlbatimentFortificationsIAm1TERRITOIRE = LVLfortificationTERRITOIRE12iam1
end if
if territoire12 = 3 then
    if NombreHommeDarmeIAm2TERR12 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreLancierIAm2TERR12 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreFrondeurIAm2TERR12 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreArcherIAm2TERR12 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    playerDEF = 3 : NombreHommeDarmeIAm2TEMP = NombreHommeDarmeIAm2TERR12 : NombreLancierIAm2TEMP = NombreLancierIAm2TERR12 : NombreFrondeurIAm2TEMP = NombreFrondeurIAm2TERR12 : NombreArcherIAm2TEMP = NombreArcherIAm2TERR12 : lvlbatimentFortificationsIAm2TERRITOIRE = LVLfortificationTERRITOIRE12iam2
end if
case 13
if territoire13 = 2 then
    if NombreHommeDarmeIAm1TERR13 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreLancierIAm1TERR13 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreFrondeurIAm1TERR13 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreArcherIAm1TERR13 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    playerDEF = 2 : NombreHommeDarmeIAm1TEMP = NombreHommeDarmeIAm1TERR13 : NombreLancierIAm1TEMP = NombreLancierIAm1TERR13 : NombreFrondeurIAm1TEMP = NombreFrondeurIAm1TERR13 : NombreArcherIAm1TEMP = NombreArcherIAm1TERR13 : lvlbatimentFortificationsIAm1TERRITOIRE = LVLfortificationTERRITOIRE13iam1
end if
if territoire13 = 3 then
    if NombreHommeDarmeIAm2TERR13 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreLancierIAm2TERR13 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreFrondeurIAm2TERR13 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreArcherIAm2TERR13 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    playerDEF = 3 : NombreHommeDarmeIAm2TEMP = NombreHommeDarmeIAm2TERR13 : NombreLancierIAm2TEMP = NombreLancierIAm2TERR13 : NombreFrondeurIAm2TEMP = NombreFrondeurIAm2TERR13 : NombreArcherIAm2TEMP = NombreArcherIAm2TERR13 : lvlbatimentFortificationsIAm2TERRITOIRE = LVLfortificationTERRITOIRE13iam2
end if
case 14
if territoire14 = 2 then
    if NombreHommeDarmeIAm1TERR14 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreLancierIAm1TERR14 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreFrondeurIAm1TERR14 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreArcherIAm1TERR14 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    playerDEF = 2 : NombreHommeDarmeIAm1TEMP = NombreHommeDarmeIAm1TERR14 : NombreLancierIAm1TEMP = NombreLancierIAm1TERR14 : NombreFrondeurIAm1TEMP = NombreFrondeurIAm1TERR14 : NombreArcherIAm1TEMP = NombreArcherIAm1TERR14 : lvlbatimentFortificationsIAm1TERRITOIRE = LVLfortificationTERRITOIRE14iam1
end if
if territoire14 = 3 then
    if NombreHommeDarmeIAm2TERR14 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreLancierIAm2TERR14 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreFrondeurIAm2TERR14 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreArcherIAm2TERR14 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    playerDEF = 3 : NombreHommeDarmeIAm2TEMP = NombreHommeDarmeIAm2TERR14 : NombreLancierIAm2TEMP = NombreLancierIAm2TERR14 : NombreFrondeurIAm2TEMP = NombreFrondeurIAm2TERR14 : NombreArcherIAm2TEMP = NombreArcherIAm2TERR14 : lvlbatimentFortificationsIAm2TERRITOIRE = LVLfortificationTERRITOIRE14iam2
end if
case 15
if territoire15 = 2 then
    if NombreHommeDarmeIAm1TERR15 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreLancierIAm1TERR15 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreFrondeurIAm1TERR15 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreArcherIAm1TERR15 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    playerDEF = 2 : NombreHommeDarmeIAm1TEMP = NombreHommeDarmeIAm1TERR15 : NombreLancierIAm1TEMP = NombreLancierIAm1TERR15 : NombreFrondeurIAm1TEMP = NombreFrondeurIAm1TERR15 : NombreArcherIAm1TEMP = NombreArcherIAm1TERR15 : lvlbatimentFortificationsIAm1TERRITOIRE = LVLfortificationTERRITOIRE15iam1
end if
if territoire15 = 3 then
    if NombreHommeDarmeIAm2TERR15 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreLancierIAm2TERR15 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreFrondeurIAm2TERR15 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreArcherIAm2TERR15 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    playerDEF = 3 : NombreHommeDarmeIAm2TEMP = NombreHommeDarmeIAm2TERR15 : NombreLancierIAm2TEMP = NombreLancierIAm2TERR15 : NombreFrondeurIAm2TEMP = NombreFrondeurIAm2TERR15 : NombreArcherIAm2TEMP = NombreArcherIAm2TERR15 : lvlbatimentFortificationsIAm2TERRITOIRE = LVLfortificationTERRITOIRE15iam2
end if
case 16
if territoire16 = 2 then
    if NombreHommeDarmeIAm1TERR16 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreLancierIAm1TERR16 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreFrondeurIAm1TERR16 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreArcherIAm1TERR16 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    playerDEF = 2 : NombreHommeDarmeIAm1TEMP = NombreHommeDarmeIAm1TERR16 : NombreLancierIAm1TEMP = NombreLancierIAm1TERR16 : NombreFrondeurIAm1TEMP = NombreFrondeurIAm1TERR16 : NombreArcherIAm1TEMP = NombreArcherIAm1TERR16 : lvlbatimentFortificationsIAm1TERRITOIRE = LVLfortificationTERRITOIRE16iam1
end if
if territoire16 = 3 then
    if NombreHommeDarmeIAm2TERR16 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreLancierIAm2TERR16 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreFrondeurIAm2TERR16 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreArcherIAm2TERR16 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    playerDEF = 3 : NombreHommeDarmeIAm2TEMP = NombreHommeDarmeIAm2TERR16 : NombreLancierIAm2TEMP = NombreLancierIAm2TERR16 : NombreFrondeurIAm2TEMP = NombreFrondeurIAm2TERR16 : NombreArcherIAm2TEMP = NombreArcherIAm2TERR16 : lvlbatimentFortificationsIAm2TERRITOIRE = LVLfortificationTERRITOIRE16iam2
end if
case 17
if territoire17 = 2 then
    if NombreHommeDarmeIAm1TERR17 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreLancierIAm1TERR17 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreFrondeurIAm1TERR17 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreArcherIAm1TERR17 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    playerDEF = 2 : NombreHommeDarmeIAm1TEMP = NombreHommeDarmeIAm1TERR17 : NombreLancierIAm1TEMP = NombreLancierIAm1TERR17 : NombreFrondeurIAm1TEMP = NombreFrondeurIAm1TERR17 : NombreArcherIAm1TEMP = NombreArcherIAm1TERR17 : lvlbatimentFortificationsIAm1TERRITOIRE = LVLfortificationTERRITOIRE17iam1
end if
if territoire17 = 3 then
    if NombreHommeDarmeIAm2TERR17 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreLancierIAm2TERR17 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreFrondeurIAm2TERR17 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreArcherIAm2TERR17 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    playerDEF = 3 : NombreHommeDarmeIAm2TEMP = NombreHommeDarmeIAm2TERR17 : NombreLancierIAm2TEMP = NombreLancierIAm2TERR17 : NombreFrondeurIAm2TEMP = NombreFrondeurIAm2TERR17 : NombreArcherIAm2TEMP = NombreArcherIAm2TERR17 : lvlbatimentFortificationsIAm2TERRITOIRE = LVLfortificationTERRITOIRE17iam2
end if
case 18
if territoire18 = 2 then
    if NombreHommeDarmeIAm1TERR18 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreLancierIAm1TERR18 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreFrondeurIAm1TERR18 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreArcherIAm1TERR18 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    playerDEF = 2 : NombreHommeDarmeIAm1TEMP = NombreHommeDarmeIAm1TERR18 : NombreLancierIAm1TEMP = NombreLancierIAm1TERR18 : NombreFrondeurIAm1TEMP = NombreFrondeurIAm1TERR18 : NombreArcherIAm1TEMP = NombreArcherIAm1TERR18 : lvlbatimentFortificationsIAm1TERRITOIRE = LVLfortificationTERRITOIRE18iam1
end if
if territoire18 = 3 then
    if NombreHommeDarmeIAm2TERR18 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreLancierIAm2TERR18 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreFrondeurIAm2TERR18 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreArcherIAm2TERR18 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    playerDEF = 3 : NombreHommeDarmeIAm2TEMP = NombreHommeDarmeIAm2TERR18 : NombreLancierIAm2TEMP = NombreLancierIAm2TERR18 : NombreFrondeurIAm2TEMP = NombreFrondeurIAm2TERR18 : NombreArcherIAm2TEMP = NombreArcherIAm2TERR18 : lvlbatimentFortificationsIAm2TERRITOIRE = LVLfortificationTERRITOIRE18iam2
end if
case 19
if territoire19 = 2 then
    if NombreHommeDarmeIAm1TERR19 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreLancierIAm1TERR19 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreFrondeurIAm1TERR19 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreArcherIAm1TERR19 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    playerDEF = 2 : NombreHommeDarmeIAm1TEMP = NombreHommeDarmeIAm1TERR19 : NombreLancierIAm1TEMP = NombreLancierIAm1TERR19 : NombreFrondeurIAm1TEMP = NombreFrondeurIAm1TERR19 : NombreArcherIAm1TEMP = NombreArcherIAm1TERR19 : lvlbatimentFortificationsIAm1TERRITOIRE = LVLfortificationTERRITOIRE19iam1
end if
if territoire19 = 3 then
    if NombreHommeDarmeIAm2TERR19 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreLancierIAm2TERR19 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreFrondeurIAm2TERR19 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreArcherIAm2TERR19 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    playerDEF = 3 : NombreHommeDarmeIAm2TEMP = NombreHommeDarmeIAm2TERR19 : NombreLancierIAm2TEMP = NombreLancierIAm2TERR19 : NombreFrondeurIAm2TEMP = NombreFrondeurIAm2TERR19 : NombreArcherIAm2TEMP = NombreArcherIAm2TERR19 : lvlbatimentFortificationsIAm2TERRITOIRE = LVLfortificationTERRITOIRE19iam2
end if
case 20
if territoire20 = 2 then
    if NombreHommeDarmeIAm1TERR20 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreLancierIAm1TERR20 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreFrondeurIAm1TERR20 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    if NombreArcherIAm1TERR20 >= 1 then NombreTROUPEiam1 = NombreTROUPEiam1 + 1
    playerDEF = 2 : NombreHommeDarmeIAm1TEMP = NombreHommeDarmeIAm1TERR20 : NombreLancierIAm1TEMP = NombreLancierIAm1TERR20 : NombreFrondeurIAm1TEMP = NombreFrondeurIAm1TERR20 : NombreArcherIAm1TEMP = NombreArcherIAm1TERR20 : lvlbatimentFortificationsIAm1TERRITOIRE = LVLfortificationTERRITOIRE20iam1
end if
if territoire20 = 3 then
    if NombreHommeDarmeIAm2TERR20 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreLancierIAm2TERR20 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreFrondeurIAm2TERR20 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    if NombreArcherIAm2TERR20 >= 1 then NombreTROUPEiam2 = NombreTROUPEiam2 + 1
    playerDEF = 3 : NombreHommeDarmeIAm2TEMP = NombreHommeDarmeIAm2TERR20 : NombreLancierIAm2TEMP = NombreLancierIAm2TERR20 : NombreFrondeurIAm2TEMP = NombreFrondeurIAm2TERR20 : NombreArcherIAm2TEMP = NombreArcherIAm2TERR20 : lvlbatimentFortificationsIAm2TERRITOIRE = LVLfortificationTERRITOIRE20iam2
end if
end select

[boucleDEFia1Bterr]

if playerDEF = 2 then
   A = int(lvlbatimentFortificationsIAm1TERRITOIRE*550)
   B1 = (defHommedarmeIAm1* (1+lvlbatimentFortificationsIAm1TERRITOIRE*0.02))
   B2 = (deflancierIAm1* (1+lvlbatimentFortificationsIAm1TERRITOIRE*0.02))
   B3 = (defFrondeurIAm1* (1+lvlbatimentFortificationsIAm1TERRITOIRE*0.02))
   B4 = (defarcherIAm1* (1+lvlbatimentFortificationsIAm1TERRITOIRE*0.02))
end if
if playerDEF = 3 then
   A = int(lvlbatimentFortificationsIAm2TERRITOIRE*550)
   B1 = (defHommedarmeIAm2* (1+lvlbatimentFortificationsIAm2TERRITOIRE*0.02))
   B2 = (deflancierIAm2* (1+lvlbatimentFortificationsIAm2TERRITOIRE*0.02))
   B3 = (defFrondeurIAm2* (1+lvlbatimentFortificationsIAm2TERRITOIRE*0.02))
   B4 = (defarcherIAm2* (1+lvlbatimentFortificationsIAm2TERRITOIRE*0.02))
end if

select territoire
    case 1
        if territoire1 = 2 then
            F1 = (offHommedarmeIAm1*NombreHommeDarmeIAm1TERR1)
            F2 = (offlancierIAm1*NombreLancierIAm1TERR1)
            F3 = (offfrondeurIAm1*NombreFrondeurIAm1TERR1)
            F4 = (offarcherIAm1*NombreArcherIAm1TERR1)
            D1 = ((vieHommedarmeIAm1+B1)*NombreHommeDarmeIAm1TERR1) ' - E
            D2 = ((vielancierIAm1+B2)*NombreLancierIAm1TERR1) ' - E
            D3 = ((viefrondeurIAm1+B3)*NombreFrondeurIAm1TERR1) ' - E
            D4 = ((viearcherIAm1+B4)*NombreArcherIAm1TERR1) ' - E
        end if
        if territoire1 = 3 then
            F1 = (offHommedarmeIAm2*NombreHommeDarmeIAm2TERR1)
            F2 = (offlancierIAm2*NombreLancierIAm2TERR1)
            F3 = (offfrondeurIAm2*NombreFrondeurIAm2TERR1)
            F4 = (offarcherIAm2*NombreArcherIAm2TERR1)
            D1 = ((vieHommedarmeIAm2+B1)*NombreHommeDarmeIAm2TERR1) ' - E
            D2 = ((vielancierIAm2+B2)*NombreLancierIAm2TERR1) ' - E
            D3 = ((viefrondeurIAm2+B3)*NombreFrondeurIAm2TERR1) ' - E
            D4 = ((viearcherIAm2+B4)*NombreArcherIAm2TERR1) ' - E
        end if
    case 2
        if territoire2 = 2 then
            F1 = (offHommedarmeIAm1*NombreHommeDarmeIAm1TERR2)
            F2 = (offlancierIAm1*NombreLancierIAm1TERR2)
            F3 = (offfrondeurIAm1*NombreFrondeurIAm1TERR2)
            F4 = (offarcherIAm1*NombreArcherIAm1TERR2)
            D1 = ((vieHommedarmeIAm1+B1)*NombreHommeDarmeIAm1TERR2) ' - E
            D2 = ((vielancierIAm1+B2)*NombreLancierIAm1TERR2) ' - E
            D3 = ((viefrondeurIAm1+B3)*NombreFrondeurIAm1TERR2) ' - E
            D4 = ((viearcherIAm1+B4)*NombreArcherIAm1TERR2) ' - E
        end if
        if territoire2 = 3 then
            F1 = (offHommedarmeIAm2*NombreHommeDarmeIAm2TERR2)
            F2 = (offlancierIAm2*NombreLancierIAm2TERR2)
            F3 = (offfrondeurIAm2*NombreFrondeurIAm2TERR2)
            F4 = (offarcherIAm2*NombreArcherIAm2TERR2)
            D1 = ((vieHommedarmeIAm2+B1)*NombreHommeDarmeIAm2TERR2) ' - E
            D2 = ((vielancierIAm2+B2)*NombreLancierIAm2TERR2) ' - E
            D3 = ((viefrondeurIAm2+B3)*NombreFrondeurIAm2TERR2) ' - E
            D4 = ((viearcherIAm2+B4)*NombreArcherIAm2TERR2) ' - E
        end if
    case 3
        if territoire3 = 2 then
            F1 = (offHommedarmeIAm1*NombreHommeDarmeIAm1TERR3)
            F2 = (offlancierIAm1*NombreLancierIAm1TERR3)
            F3 = (offfrondeurIAm1*NombreFrondeurIAm1TERR3)
            F4 = (offarcherIAm1*NombreArcherIAm1TERR3)
            D1 = ((vieHommedarmeIAm1+B1)*NombreHommeDarmeIAm1TERR3) ' - E
            D2 = ((vielancierIAm1+B2)*NombreLancierIAm1TERR3) ' - E
            D3 = ((viefrondeurIAm1+B3)*NombreFrondeurIAm1TERR3) ' - E
            D4 = ((viearcherIAm1+B4)*NombreArcherIAm1TERR3) ' - E
        end if
        if territoire3 = 3 then
            F1 = (offHommedarmeIAm2*NombreHommeDarmeIAm2TERR3)
            F2 = (offlancierIAm2*NombreLancierIAm2TERR3)
            F3 = (offfrondeurIAm2*NombreFrondeurIAm2TERR3)
            F4 = (offarcherIAm2*NombreArcherIAm2TERR3)
            D1 = ((vieHommedarmeIAm2+B1)*NombreHommeDarmeIAm2TERR3) ' - E
            D2 = ((vielancierIAm2+B2)*NombreLancierIAm2TERR3) ' - E
            D3 = ((viefrondeurIAm2+B3)*NombreFrondeurIAm2TERR3) ' - E
            D4 = ((viearcherIAm2+B4)*NombreArcherIAm2TERR3) ' - E
        end if
    case 4
        if territoire4 = 2 then
            F1 = (offHommedarmeIAm1*NombreHommeDarmeIAm1TERR4)
            F2 = (offlancierIAm1*NombreLancierIAm1TERR4)
            F3 = (offfrondeurIAm1*NombreFrondeurIAm1TERR2)
            F4 = (offarcherIAm1*NombreArcherIAm1TERR4)
            D1 = ((vieHommedarmeIAm1+B1)*NombreHommeDarmeIAm1TERR4) ' - E
            D2 = ((vielancierIAm1+B2)*NombreLancierIAm1TERR4) ' - E
            D3 = ((viefrondeurIAm1+B3)*NombreFrondeurIAm1TERR4) ' - E
            D4 = ((viearcherIAm1+B4)*NombreArcherIAm1TERR4) ' - E
        end if
        if territoire4 = 3 then
            F1 = (offHommedarmeIAm2*NombreHommeDarmeIAm2TERR4)
            F2 = (offlancierIAm2*NombreLancierIAm2TERR4)
            F3 = (offfrondeurIAm2*NombreFrondeurIAm2TERR4)
            F4 = (offarcherIAm2*NombreArcherIAm2TERR4)
            D1 = ((vieHommedarmeIAm2+B1)*NombreHommeDarmeIAm2TERR4) ' - E
            D2 = ((vielancierIAm2+B2)*NombreLancierIAm2TERR4) ' - E
            D3 = ((viefrondeurIAm2+B3)*NombreFrondeurIAm2TERR4) ' - E
            D4 = ((viearcherIAm2+B4)*NombreArcherIAm2TERR4) ' - E
        end if
    case 5
        if territoire5 = 2 then
            F1 = (offHommedarmeIAm1*NombreHommeDarmeIAm1TERR5)
            F2 = (offlancierIAm1*NombreLancierIAm1TERR5)
            F3 = (offfrondeurIAm1*NombreFrondeurIAm1TERR5)
            F4 = (offarcherIAm1*NombreArcherIAm1TERR5)
            D1 = ((vieHommedarmeIAm1+B1)*NombreHommeDarmeIAm1TERR5) ' - E
            D2 = ((vielancierIAm1+B2)*NombreLancierIAm1TERR5) ' - E
            D3 = ((viefrondeurIAm1+B3)*NombreFrondeurIAm1TERR5) ' - E
            D4 = ((viearcherIAm1+B4)*NombreArcherIAm1TERR5) ' - E
        end if
        if territoire5 = 3 then
            F1 = (offHommedarmeIAm2*NombreHommeDarmeIAm2TERR5)
            F2 = (offlancierIAm2*NombreLancierIAm2TERR5)
            F3 = (offfrondeurIAm2*NombreFrondeurIAm2TERR5)
            F4 = (offarcherIAm2*NombreArcherIAm2TERR5)
            D1 = ((vieHommedarmeIAm2+B1)*NombreHommeDarmeIAm2TERR5) ' - E
            D2 = ((vielancierIAm2+B2)*NombreLancierIAm2TERR5) ' - E
            D3 = ((viefrondeurIAm2+B3)*NombreFrondeurIAm2TERR5) ' - E
            D4 = ((viearcherIAm2+B4)*NombreArcherIAm2TERR5) ' - E
        end if
    case 6
        if territoire6 = 2 then
            F1 = (offHommedarmeIAm1*NombreHommeDarmeIAm1TERR6)
            F2 = (offlancierIAm1*NombreLancierIAm1TERR6)
            F3 = (offfrondeurIAm1*NombreFrondeurIAm1TERR6)
            F4 = (offarcherIAm1*NombreArcherIAm1TERR6)
            D1 = ((vieHommedarmeIAm1+B1)*NombreHommeDarmeIAm1TERR6) ' - E
            D2 = ((vielancierIAm1+B2)*NombreLancierIAm1TERR6) ' - E
            D3 = ((viefrondeurIAm1+B3)*NombreFrondeurIAm1TERR6) ' - E
            D4 = ((viearcherIAm1+B4)*NombreArcherIAm1TERR6) ' - E
        end if
        if territoire6 = 3 then
            F1 = (offHommedarmeIAm2*NombreHommeDarmeIAm2TERR6)
            F2 = (offlancierIAm2*NombreLancierIAm2TERR6)
            F3 = (offfrondeurIAm2*NombreFrondeurIAm2TERR6)
            F4 = (offarcherIAm2*NombreArcherIAm2TERR6)
            D1 = ((vieHommedarmeIAm2+B1)*NombreHommeDarmeIAm2TERR6) ' - E
            D2 = ((vielancierIAm2+B2)*NombreLancierIAm2TERR6) ' - E
            D3 = ((viefrondeurIAm2+B3)*NombreFrondeurIAm2TERR6) ' - E
            D4 = ((viearcherIAm2+B4)*NombreArcherIAm2TERR6) ' - E
        end if
    case 7
        if territoire7 = 2 then
            F1 = (offHommedarmeIAm1*NombreHommeDarmeIAm1TERR7)
            F2 = (offlancierIAm1*NombreLancierIAm1TERR7)
            F3 = (offfrondeurIAm1*NombreFrondeurIAm1TERR7)
            F4 = (offarcherIAm1*NombreArcherIAm1TERR7)
            D1 = ((vieHommedarmeIAm1+B1)*NombreHommeDarmeIAm1TERR7) ' - E
            D2 = ((vielancierIAm1+B2)*NombreLancierIAm1TERR7) ' - E
            D3 = ((viefrondeurIAm1+B3)*NombreFrondeurIAm1TERR7) ' - E
            D4 = ((viearcherIAm1+B4)*NombreArcherIAm1TERR7) ' - E
        end if
        if territoire2 = 7 then
            F1 = (offHommedarmeIAm2*NombreHommeDarmeIAm2TERR7)
            F2 = (offlancierIAm2*NombreLancierIAm2TERR7)
            F3 = (offfrondeurIAm2*NombreFrondeurIAm2TERR7)
            F4 = (offarcherIAm2*NombreArcherIAm2TERR7)
            D1 = ((vieHommedarmeIAm2+B1)*NombreHommeDarmeIAm2TERR7) ' - E
            D2 = ((vielancierIAm2+B2)*NombreLancierIAm2TERR7) ' - E
            D3 = ((viefrondeurIAm2+B3)*NombreFrondeurIAm2TERR7) ' - E
            D4 = ((viearcherIAm2+B4)*NombreArcherIAm2TERR7) ' - E
        end if
    case 8
        if territoire8 = 2 then
            F1 = (offHommedarmeIAm1*NombreHommeDarmeIAm1TERR8)
            F2 = (offlancierIAm1*NombreLancierIAm1TERR8)
            F3 = (offfrondeurIAm1*NombreFrondeurIAm1TERR8)
            F4 = (offarcherIAm1*NombreArcherIAm1TERR8)
            D1 = ((vieHommedarmeIAm1+B1)*NombreHommeDarmeIAm1TERR8) ' - E
            D2 = ((vielancierIAm1+B2)*NombreLancierIAm1TERR8) ' - E
            D3 = ((viefrondeurIAm1+B3)*NombreFrondeurIAm1TERR8) ' - E
            D4 = ((viearcherIAm1+B4)*NombreArcherIAm1TERR8) ' - E
        end if
        if territoire8 = 3 then
            F1 = (offHommedarmeIAm2*NombreHommeDarmeIAm2TERR8)
            F2 = (offlancierIAm2*NombreLancierIAm2TERR8)
            F3 = (offfrondeurIAm2*NombreFrondeurIAm2TERR8)
            F4 = (offarcherIAm2*NombreArcherIAm2TERR8)
            D1 = ((vieHommedarmeIAm2+B1)*NombreHommeDarmeIAm2TERR8) ' - E
            D2 = ((vielancierIAm2+B2)*NombreLancierIAm2TERR8) ' - E
            D3 = ((viefrondeurIAm2+B3)*NombreFrondeurIAm2TERR8) ' - E
            D4 = ((viearcherIAm2+B4)*NombreArcherIAm2TERR8) ' - E
        end if
    case 9
        if territoire9 = 2 then
            F1 = (offHommedarmeIAm1*NombreHommeDarmeIAm1TERR9)
            F2 = (offlancierIAm1*NombreLancierIAm1TERR9)
            F3 = (offfrondeurIAm1*NombreFrondeurIAm1TERR9)
            F4 = (offarcherIAm1*NombreArcherIAm1TERR9)
            D1 = ((vieHommedarmeIAm1+B1)*NombreHommeDarmeIAm1TERR9) ' - E
            D2 = ((vielancierIAm1+B2)*NombreLancierIAm1TERR9) ' - E
            D3 = ((viefrondeurIAm1+B3)*NombreFrondeurIAm1TERR9) ' - E
            D4 = ((viearcherIAm1+B4)*NombreArcherIAm1TERR9) ' - E
        end if
        if territoire9 = 3 then
            F1 = (offHommedarmeIAm2*NombreHommeDarmeIAm2TERR9)
            F2 = (offlancierIAm2*NombreLancierIAm2TERR9)
            F3 = (offfrondeurIAm2*NombreFrondeurIAm2TERR9)
            F4 = (offarcherIAm2*NombreArcherIAm2TERR9)
            D1 = ((vieHommedarmeIAm2+B1)*NombreHommeDarmeIAm2TERR9) ' - E
            D2 = ((vielancierIAm2+B2)*NombreLancierIAm2TERR9) ' - E
            D3 = ((viefrondeurIAm2+B3)*NombreFrondeurIAm2TERR9) ' - E
            D4 = ((viearcherIAm2+B4)*NombreArcherIAm2TERR9) ' - E
        end if
    case 10
        if territoire10 = 2 then
            F1 = (offHommedarmeIAm1*NombreHommeDarmeIAm1TERR10)
            F2 = (offlancierIAm1*NombreLancierIAm1TERR10)
            F3 = (offfrondeurIAm1*NombreFrondeurIAm1TERR10)
            F4 = (offarcherIAm1*NombreArcherIAm1TERR10)
            D1 = ((vieHommedarmeIAm1+B1)*NombreHommeDarmeIAm1TERR10) ' - E
            D2 = ((vielancierIAm1+B2)*NombreLancierIAm1TERR10) ' - E
            D3 = ((viefrondeurIAm1+B3)*NombreFrondeurIAm1TERR10) ' - E
            D4 = ((viearcherIAm1+B4)*NombreArcherIAm1TERR10) ' - E
        end if
        if territoire10 = 3 then
            F1 = (offHommedarmeIAm2*NombreHommeDarmeIAm2TERR10)
            F2 = (offlancierIAm2*NombreLancierIAm2TERR10)
            F3 = (offfrondeurIAm2*NombreFrondeurIAm2TERR10)
            F4 = (offarcherIAm2*NombreArcherIAm2TERR10)
            D1 = ((vieHommedarmeIAm2+B1)*NombreHommeDarmeIAm2TERR10) ' - E
            D2 = ((vielancierIAm2+B2)*NombreLancierIAm2TERR10) ' - E
            D3 = ((viefrondeurIAm2+B3)*NombreFrondeurIAm2TERR10) ' - E
            D4 = ((viearcherIAm2+B4)*NombreArcherIAm2TERR10) ' - E
        end if
    case 11
        if territoire11 = 2 then
            F1 = (offHommedarmeIAm1*NombreHommeDarmeIAm1TERR11)
            F2 = (offlancierIAm1*NombreLancierIAm1TERR11)
            F3 = (offfrondeurIAm1*NombreFrondeurIAm1TERR11)
            F4 = (offarcherIAm1*NombreArcherIAm1TERR11)
            D1 = ((vieHommedarmeIAm1+B1)*NombreHommeDarmeIAm1TERR11) ' - E
            D2 = ((vielancierIAm1+B2)*NombreLancierIAm1TERR11) ' - E
            D3 = ((viefrondeurIAm1+B3)*NombreFrondeurIAm1TERR11) ' - E
            D4 = ((viearcherIAm1+B4)*NombreArcherIAm1TERR11) ' - E
        end if
        if territoire11 = 3 then
            F1 = (offHommedarmeIAm2*NombreHommeDarmeIAm2TERR11)
            F2 = (offlancierIAm2*NombreLancierIAm2TERR11)
            F3 = (offfrondeurIAm2*NombreFrondeurIAm2TERR11)
            F4 = (offarcherIAm2*NombreArcherIAm2TERR11)
            D1 = ((vieHommedarmeIAm2+B1)*NombreHommeDarmeIAm2TERR11) ' - E
            D2 = ((vielancierIAm2+B2)*NombreLancierIAm2TERR11) ' - E
            D3 = ((viefrondeurIAm2+B3)*NombreFrondeurIAm2TERR11) ' - E
            D4 = ((viearcherIAm2+B4)*NombreArcherIAm2TERR11) ' - E
        end if
    case 12
        if territoire12 = 2 then
            F1 = (offHommedarmeIAm1*NombreHommeDarmeIAm1TERR12)
            F2 = (offlancierIAm1*NombreLancierIAm1TERR12)
            F3 = (offfrondeurIAm1*NombreFrondeurIAm1TERR12)
            F4 = (offarcherIAm1*NombreArcherIAm1TERR12)
            D1 = ((vieHommedarmeIAm1+B1)*NombreHommeDarmeIAm1TERR12) ' - E
            D2 = ((vielancierIAm1+B2)*NombreLancierIAm1TERR12) ' - E
            D3 = ((viefrondeurIAm1+B3)*NombreFrondeurIAm1TERR12) ' - E
            D4 = ((viearcherIAm1+B4)*NombreArcherIAm1TERR12) ' - E
        end if
        if territoire12 = 3 then
            F1 = (offHommedarmeIAm2*NombreHommeDarmeIAm2TERR12)
            F2 = (offlancierIAm2*NombreLancierIAm2TERR12)
            F3 = (offfrondeurIAm2*NombreFrondeurIAm2TERR12)
            F4 = (offarcherIAm2*NombreArcherIAm2TERR12)
            D1 = ((vieHommedarmeIAm2+B1)*NombreHommeDarmeIAm2TERR12) ' - E
            D2 = ((vielancierIAm2+B2)*NombreLancierIAm2TERR12) ' - E
            D3 = ((viefrondeurIAm2+B3)*NombreFrondeurIAm2TERR12) ' - E
            D4 = ((viearcherIAm2+B4)*NombreArcherIAm2TERR12) ' - E
        end if
    case 13
        if territoire13 = 2 then
            F1 = (offHommedarmeIAm1*NombreHommeDarmeIAm1TERR13)
            F2 = (offlancierIAm1*NombreLancierIAm1TERR13)
            F3 = (offfrondeurIAm1*NombreFrondeurIAm1TERR13)
            F4 = (offarcherIAm1*NombreArcherIAm1TERR13)
            D1 = ((vieHommedarmeIAm1+B1)*NombreHommeDarmeIAm1TERR13) ' - E
            D2 = ((vielancierIAm1+B2)*NombreLancierIAm1TERR13) ' - E
            D3 = ((viefrondeurIAm1+B3)*NombreFrondeurIAm1TERR13) ' - E
            D4 = ((viearcherIAm1+B4)*NombreArcherIAm1TERR13) ' - E
        end if
        if territoire13 = 3 then
            F1 = (offHommedarmeIAm2*NombreHommeDarmeIAm2TERR13)
            F2 = (offlancierIAm2*NombreLancierIAm2TERR13)
            F3 = (offfrondeurIAm2*NombreFrondeurIAm2TERR13)
            F4 = (offarcherIAm2*NombreArcherIAm2TERR13)
            D1 = ((vieHommedarmeIAm2+B1)*NombreHommeDarmeIAm2TERR13) ' - E
            D2 = ((vielancierIAm2+B2)*NombreLancierIAm2TERR13) ' - E
            D3 = ((viefrondeurIAm2+B3)*NombreFrondeurIAm2TERR13) ' - E
            D4 = ((viearcherIAm2+B4)*NombreArcherIAm2TERR13) ' - E
        end if
    case 14
        if territoire14 = 2 then
            F1 = (offHommedarmeIAm1*NombreHommeDarmeIAm1TERR14)
            F2 = (offlancierIAm1*NombreLancierIAm1TERR14)
            F3 = (offfrondeurIAm1*NombreFrondeurIAm1TERR14)
            F4 = (offarcherIAm1*NombreArcherIAm1TERR14)
            D1 = ((vieHommedarmeIAm1+B1)*NombreHommeDarmeIAm1TERR14) ' - E
            D2 = ((vielancierIAm1+B2)*NombreLancierIAm1TERR14) ' - E
            D3 = ((viefrondeurIAm1+B3)*NombreFrondeurIAm1TERR14) ' - E
            D4 = ((viearcherIAm1+B4)*NombreArcherIAm1TERR14) ' - E
        end if
        if territoire14 = 3 then
            F1 = (offHommedarmeIAm2*NombreHommeDarmeIAm2TERR14)
            F2 = (offlancierIAm2*NombreLancierIAm2TERR14)
            F3 = (offfrondeurIAm2*NombreFrondeurIAm2TERR14)
            F4 = (offarcherIAm2*NombreArcherIAm2TERR14)
            D1 = ((vieHommedarmeIAm2+B1)*NombreHommeDarmeIAm2TERR14) ' - E
            D2 = ((vielancierIAm2+B2)*NombreLancierIAm2TERR14) ' - E
            D3 = ((viefrondeurIAm2+B3)*NombreFrondeurIAm2TERR14) ' - E
            D4 = ((viearcherIAm2+B4)*NombreArcherIAm2TERR14) ' - E
        end if
    case 15
        if territoire15 = 2 then
            F1 = (offHommedarmeIAm1*NombreHommeDarmeIAm1TERR15)
            F2 = (offlancierIAm1*NombreLancierIAm1TERR15)
            F3 = (offfrondeurIAm1*NombreFrondeurIAm1TERR15)
            F4 = (offarcherIAm1*NombreArcherIAm1TERR15)
            D1 = ((vieHommedarmeIAm1+B1)*NombreHommeDarmeIAm1TERR15) ' - E
            D2 = ((vielancierIAm1+B2)*NombreLancierIAm1TERR15) ' - E
            D3 = ((viefrondeurIAm1+B3)*NombreFrondeurIAm1TERR15) ' - E
            D4 = ((viearcherIAm1+B4)*NombreArcherIAm1TERR15) ' - E
        end if
        if territoire15 = 3 then
            F1 = (offHommedarmeIAm2*NombreHommeDarmeIAm2TERR15)
            F2 = (offlancierIAm2*NombreLancierIAm2TERR15)
            F3 = (offfrondeurIAm2*NombreFrondeurIAm2TERR15)
            F4 = (offarcherIAm2*NombreArcherIAm2TERR15)
            D1 = ((vieHommedarmeIAm2+B1)*NombreHommeDarmeIAm2TERR15) ' - E
            D2 = ((vielancierIAm2+B2)*NombreLancierIAm2TERR15) ' - E
            D3 = ((viefrondeurIAm2+B3)*NombreFrondeurIAm2TERR15) ' - E
            D4 = ((viearcherIAm2+B4)*NombreArcherIAm2TERR15) ' - E
        end if
    case 16
        if territoire16 = 2 then
            F1 = (offHommedarmeIAm1*NombreHommeDarmeIAm1TERR16)
            F2 = (offlancierIAm1*NombreLancierIAm1TERR16)
            F3 = (offfrondeurIAm1*NombreFrondeurIAm1TERR16)
            F4 = (offarcherIAm1*NombreArcherIAm1TERR16)
            D1 = ((vieHommedarmeIAm1+B1)*NombreHommeDarmeIAm1TERR16) ' - E
            D2 = ((vielancierIAm1+B2)*NombreLancierIAm1TERR16) ' - E
            D3 = ((viefrondeurIAm1+B3)*NombreFrondeurIAm1TERR16) ' - E
            D4 = ((viearcherIAm1+B4)*NombreArcherIAm1TERR16) ' - E
        end if
        if territoire16 = 3 then
            F1 = (offHommedarmeIAm2*NombreHommeDarmeIAm2TERR16)
            F2 = (offlancierIAm2*NombreLancierIAm2TERR16)
            F3 = (offfrondeurIAm2*NombreFrondeurIAm2TERR16)
            F4 = (offarcherIAm2*NombreArcherIAm2TERR16)
            D1 = ((vieHommedarmeIAm2+B1)*NombreHommeDarmeIAm2TERR16) ' - E
            D2 = ((vielancierIAm2+B2)*NombreLancierIAm2TERR16) ' - E
            D3 = ((viefrondeurIAm2+B3)*NombreFrondeurIAm2TERR16) ' - E
            D4 = ((viearcherIAm2+B4)*NombreArcherIAm2TERR16) ' - E
        end if
    case 17
        if territoire17 = 2 then
            F1 = (offHommedarmeIAm1*NombreHommeDarmeIAm1TERR17)
            F2 = (offlancierIAm1*NombreLancierIAm1TERR17)
            F3 = (offfrondeurIAm1*NombreFrondeurIAm1TERR17)
            F4 = (offarcherIAm1*NombreArcherIAm1TERR17)
            D1 = ((vieHommedarmeIAm1+B1)*NombreHommeDarmeIAm1TERR17) ' - E
            D2 = ((vielancierIAm1+B2)*NombreLancierIAm1TERR17) ' - E
            D3 = ((viefrondeurIAm1+B3)*NombreFrondeurIAm1TERR17) ' - E
            D4 = ((viearcherIAm1+B4)*NombreArcherIAm1TERR17) ' - E
        end if
        if territoire17 = 3 then
            F1 = (offHommedarmeIAm2*NombreHommeDarmeIAm2TERR17)
            F2 = (offlancierIAm2*NombreLancierIAm2TERR17)
            F3 = (offfrondeurIAm2*NombreFrondeurIAm2TERR17)
            F4 = (offarcherIAm2*NombreArcherIAm2TERR17)
            D1 = ((vieHommedarmeIAm2+B1)*NombreHommeDarmeIAm2TERR17) ' - E
            D2 = ((vielancierIAm2+B2)*NombreLancierIAm2TERR17) ' - E
            D3 = ((viefrondeurIAm2+B3)*NombreFrondeurIAm2TERR17) ' - E
            D4 = ((viearcherIAm2+B4)*NombreArcherIAm2TERR17) ' - E
        end if
    case 18
        if territoire18 = 2 then
            F1 = (offHommedarmeIAm1*NombreHommeDarmeIAm1TERR18)
            F2 = (offlancierIAm1*NombreLancierIAm1TERR18)
            F3 = (offfrondeurIAm1*NombreFrondeurIAm1TERR18)
            F4 = (offarcherIAm1*NombreArcherIAm1TERR18)
            D1 = ((vieHommedarmeIAm1+B1)*NombreHommeDarmeIAm1TERR18) ' - E
            D2 = ((vielancierIAm1+B2)*NombreLancierIAm1TERR18) ' - E
            D3 = ((viefrondeurIAm1+B3)*NombreFrondeurIAm1TERR18) ' - E
            D4 = ((viearcherIAm1+B4)*NombreArcherIAm1TERR18) ' - E
        end if
        if territoire18 = 3 then
            F1 = (offHommedarmeIAm2*NombreHommeDarmeIAm2TERR18)
            F2 = (offlancierIAm2*NombreLancierIAm2TERR18)
            F3 = (offfrondeurIAm2*NombreFrondeurIAm2TERR18)
            F4 = (offarcherIAm2*NombreArcherIAm2TERR18)
            D1 = ((vieHommedarmeIAm2+B1)*NombreHommeDarmeIAm2TERR18) ' - E
            D2 = ((vielancierIAm2+B2)*NombreLancierIAm2TERR18) ' - E
            D3 = ((viefrondeurIAm2+B3)*NombreFrondeurIAm2TERR18) ' - E
            D4 = ((viearcherIAm2+B4)*NombreArcherIAm2TERR18) ' - E
        end if
    case 19
        if territoire19 = 2 then
            F1 = (offHommedarmeIAm1*NombreHommeDarmeIAm1TERR19)
            F2 = (offlancierIAm1*NombreLancierIAm1TERR19)
            F3 = (offfrondeurIAm1*NombreFrondeurIAm1TERR19)
            F4 = (offarcherIAm1*NombreArcherIAm1TERR19)
            D1 = ((vieHommedarmeIAm1+B1)*NombreHommeDarmeIAm1TERR19) ' - E
            D2 = ((vielancierIAm1+B2)*NombreLancierIAm1TERR19) ' - E
            D3 = ((viefrondeurIAm1+B3)*NombreFrondeurIAm1TERR19) ' - E
            D4 = ((viearcherIAm1+B4)*NombreArcherIAm1TERR19) ' - E
        end if
        if territoire19 = 3 then
            F1 = (offHommedarmeIAm2*NombreHommeDarmeIAm2TERR19)
            F2 = (offlancierIAm2*NombreLancierIAm2TERR19)
            F3 = (offfrondeurIAm2*NombreFrondeurIAm2TERR19)
            F4 = (offarcherIAm2*NombreArcherIAm2TERR19)
            D1 = ((vieHommedarmeIAm2+B1)*NombreHommeDarmeIAm2TERR19) ' - E
            D2 = ((vielancierIAm2+B2)*NombreLancierIAm2TERR19) ' - E
            D3 = ((viefrondeurIAm2+B3)*NombreFrondeurIAm2TERR19) ' - E
            D4 = ((viearcherIAm2+B4)*NombreArcherIAm2TERR19) ' - E
        end if
    case 20
        if territoire20 = 2 then
            F1 = (offHommedarmeIAm1*NombreHommeDarmeIAm1TERR20)
            F2 = (offlancierIAm1*NombreLancierIAm1TERR20)
            F3 = (offfrondeurIAm1*NombreFrondeurIAm1TERR20)
            F4 = (offarcherIAm1*NombreArcherIAm1TERR20)
            D1 = ((vieHommedarmeIAm1+B1)*NombreHommeDarmeIAm1TERR20) ' - E
            D2 = ((vielancierIAm1+B2)*NombreLancierIAm1TERR20) ' - E
            D3 = ((viefrondeurIAm1+B3)*NombreFrondeurIAm1TERR20) ' - E
            D4 = ((viearcherIAm1+B4)*NombreArcherIAm1TERR20) ' - E
        end if
        if territoire20 = 3 then
            F1 = (offHommedarmeIAm2*NombreHommeDarmeIAm2TERR20)
            F2 = (offlancierIAm2*NombreLancierIAm2TERR20)
            F3 = (offfrondeurIAm2*NombreFrondeurIAm2TERR20)
            F4 = (offarcherIAm2*NombreArcherIAm2TERR20)
            D1 = ((vieHommedarmeIAm2+B1)*NombreHommeDarmeIAm2TERR20) ' - E
            D2 = ((vielancierIAm2+B2)*NombreLancierIAm2TERR20) ' - E
            D3 = ((viefrondeurIAm2+B3)*NombreFrondeurIAm2TERR20) ' - E
            D4 = ((viearcherIAm2+B4)*NombreArcherIAm2TERR20) ' - E
        end if
end select

E1 = (offHommedarme*NombreHommeDarmeSELECTED)
E2 = (offlancier*NombreLancierSELECTED)
E3 = (offfrondeur*NombreFrondeurSELECTED)
E4 = (offarcher*NombreArcherSELECTED)
E5 = (offEXPLORATEUR*NombreEXPLORATEURSELECTED)
C1 = ((vieHommedarme+defHommedarme)*NombreHommeDarmeSELECTED) ' - F
C2 = ((vielancier+deflancier)*NombreLancierSELECTED) ' - F
C3 = ((viefrondeur+deffrondeur)*NombreFrondeurSELECTED) ' - F
C4 = ((viearcher+defarcher)*NombreArcherSELECTED) ' - F
C5 = ((vieEXPLORATEUR+defEXPLORATEUR)*NombreEXPLORATEURSELECTED) ' - F
fight1a = int(A-(E1+E2+E3+E4+E5)) ' les fortifications encaissent les degats

if playerDEF = 2 then
    if fight1a > 0 then A = int(fight1a) : E = 1
    if fight1a <= 0 then A = 0 : E = fight1a
    if NombreTROUPEiam1 <= 0 then NombreTROUPEiam1 = 1
    fight1b = int(D1 + (E/NombreTROUPEiam1))
    fight1c = int(D2 + (E/NombreTROUPEiam1))
    fight1d = int(D3 + (E/NombreTROUPEiam1))
    fight1e = int(D4 + (E/NombreTROUPEiam1))
    fight1f = int(D5 + (E/NombreTROUPEiam1))
    fight1g = int(D6 + (E/NombreTROUPEiam1))
end if
if playerDEF = 3 then
    if fight1a > 0 then A = int(fight1a) : E = 1
    if fight1a <= 0 then A = 0 : E = fight1a' : lvlbatimentFortificationsIAm2 = 0
    if NombreTROUPEiam2 <= 0 then NombreTROUPEiam2 = 1
    fight1b = int(D1 + (E/NombreTROUPEiam2))
    fight1c = int(D2 + (E/NombreTROUPEiam2))
    fight1d = int(D3 + (E/NombreTROUPEiam2))
    fight1e = int(D4 + (E/NombreTROUPEiam2))
    fight1f = int(D5 + (E/NombreTROUPEiam2))
    fight1g = int(D6 + (E/NombreTROUPEiam2))
end if

if NombreTROUPE <= 0 then NombreTROUPE = 0
fight2a = int(F1+F2+F3+F4+F5+F6) ' chargement des degats du joueur defensif
fight2b = int(C1-(fight2a/NombreTROUPE))
fight2c = int(C2-(fight2a/NombreTROUPE))
fight2d = int(C3-(fight2a/NombreTROUPE))
fight2e = int(C4-(fight2a/NombreTROUPE))
fight2f = int(C5-(fight2a/NombreTROUPE))

select case playerDEF
case 2
    select case territoire
        case 1
            if NombreHommeDarmeIAm1TERR1 > 0 then NombreHommeDarmeIAm1TERR1 = int(fight1b/(vieHommedarmeIAm1+B1))
                if NombreHommeDarmeIAm1TERR1 < 0 then NombreHommeDarmeIAm1TERR1 = 0
            if NombreLancierIAm1TERR1 > 0 then NombreLancierIAm1TERR1 = int(fight1c/(vielancierIAm1+B2))
                if NombreLancierIAm1TERR1 < 0 then NombreLancierIAm1TERR1 = 0
            if NombreFrondeurIAm1TERR1 > 0 then NombreFrondeurIAm1TERR1 = int(fight1d/(viefrondeurIAm1+B3))
                if NombreFrondeurIAm1TERR1 < 0 then NombreFrondeurIAm1TERR1 = 0
            if NombreArcherIAm1TERR1 > 0 then NombreArcherIAm1TERR1 = int(fight1e/(viearcherIAm1+B4))
                if NombreArcherIAm1TERR1 < 0 then NombreArcherIAm1TERR1 = 0
        case 2
            if NombreHommeDarmeIAm1TERR2 > 0 then NombreHommeDarmeIAm1TERR2 = int(fight1b/(vieHommedarmeIAm1+B1))
                if NombreHommeDarmeIAm1TERR2 < 0 then NombreHommeDarmeIAm1TERR2 = 0
            if NombreLancierIAm1TERR2 > 0 then NombreLancierIAm1TERR2 = int(fight1c/(vielancierIAm1+B2))
                if NombreLancierIAm1TERR2 < 0 then NombreLancierIAm1TERR2 = 0
            if NombreFrondeurIAm1TERR2 > 0 then NombreFrondeurIAm1TERR2 = int(fight1d/(viefrondeurIAm1+B3))
                if NombreFrondeurIAm1TERR2 < 0 then NombreFrondeurIAm1TERR2 = 0
            if NombreArcherIAm1TERR2 > 0 then NombreArcherIAm1TERR2 = int(fight1e/(viearcherIAm1+B4))
                if NombreArcherIAm1TERR2 < 0 then NombreArcherIAm1TERR2 = 0
        case 3
            if NombreHommeDarmeIAm1TERR3 > 0 then NombreHommeDarmeIAm1TERR3 = int(fight1b/(vieHommedarmeIAm1+B1))
                if NombreHommeDarmeIAm1TERR3 < 0 then NombreHommeDarmeIAm1TERR3 = 0
            if NombreLancierIAm1TERR3 > 0 then NombreLancierIAm1TERR3 = int(fight1c/(vielancierIAm1+B2))
                if NombreLancierIAm1TERR3 < 0 then NombreLancierIAm1TERR3 = 0
            if NombreFrondeurIAm1TERR3 > 0 then NombreFrondeurIAm1TERR3 = int(fight1d/(viefrondeurIAm1+B3))
                if NombreFrondeurIAm1TERR3 < 0 then NombreFrondeurIAm1TERR3 = 0
            if NombreArcherIAm1TERR3 > 0 then NombreArcherIAm1TERR3 = int(fight1e/(viearcherIAm1+B4))
                if NombreArcherIAm1TERR3 < 0 then NombreArcherIAm1TERR3 = 0
        case 4
            if NombreHommeDarmeIAm1TERR4 > 0 then NombreHommeDarmeIAm1TERR4 = int(fight1b/(vieHommedarmeIAm1+B1))
                if NombreHommeDarmeIAm1TERR4 < 0 then NombreHommeDarmeIAm1TERR4 = 0
            if NombreLancierIAm1TERR4 > 0 then NombreLancierIAm1TERR4 = int(fight1c/(vielancierIAm1+B2))
                if NombreLancierIAm1TERR4 < 0 then NombreLancierIAm1TERR4 = 0
            if NombreFrondeurIAm1TERR4 > 0 then NombreFrondeurIAm1TERR4 = int(fight1d/(viefrondeurIAm1+B3))
                if NombreFrondeurIAm1TERR4 < 0 then NombreFrondeurIAm1TERR4 = 0
            if NombreArcherIAm1TERR4 > 0 then NombreArcherIAm1TERR4 = int(fight1e/(viearcherIAm1+B4))
                if NombreArcherIAm1TERR4 < 0 then NombreArcherIAm1TERR4 = 0
        case 5
            if NombreHommeDarmeIAm1TERR5 > 0 then NombreHommeDarmeIAm1TERR5 = int(fight1b/(vieHommedarmeIAm1+B1))
                if NombreHommeDarmeIAm1TERR5 < 0 then NombreHommeDarmeIAm1TERR5 = 0
            if NombreLancierIAm1TERR5 > 0 then NombreLancierIAm1TERR5 = int(fight1c/(vielancierIAm1+B2))
                if NombreLancierIAm1TERR5 < 0 then NombreLancierIAm1TERR5 = 0
            if NombreFrondeurIAm1TERR5 > 0 then NombreFrondeurIAm1TERR5 = int(fight1d/(viefrondeurIAm1+B3))
                if NombreFrondeurIAm1TERR5 < 0 then NombreFrondeurIAm1TERR5 = 0
            if NombreArcherIAm1TERR5 > 0 then NombreArcherIAm1TERR5 = int(fight1e/(viearcherIAm1+B4))
                if NombreArcherIAm1TERR5 < 0 then NombreArcherIAm1TERR5 = 0
        case 6
            if NombreHommeDarmeIAm1TERR6 > 0 then NombreHommeDarmeIAm1TERR6 = int(fight1b/(vieHommedarmeIAm1+B1))
                if NombreHommeDarmeIAm1TERR6 < 0 then NombreHommeDarmeIAm1TERR6 = 0
            if NombreLancierIAm1TERR6 > 0 then NombreLancierIAm1TERR6 = int(fight1c/(vielancierIAm1+B2))
                if NombreLancierIAm1TERR6 < 0 then NombreLancierIAm1TERR6 = 0
            if NombreFrondeurIAm1TERR6 > 0 then NombreFrondeurIAm1TERR6 = int(fight1d/(viefrondeurIAm1+B3))
                if NombreFrondeurIAm1TERR6 < 0 then NombreFrondeurIAm1TERR6 = 0
            if NombreArcherIAm1TERR6 > 0 then NombreArcherIAm1TERR6 = int(fight1e/(viearcherIAm1+B4))
                if NombreArcherIAm1TERR6 < 0 then NombreArcherIAm1TERR6 = 0
        case 7
            if NombreHommeDarmeIAm1TERR7 > 0 then NombreHommeDarmeIAm1TERR7 = int(fight1b/(vieHommedarmeIAm1+B1))
                if NombreHommeDarmeIAm1TERR7 < 0 then NombreHommeDarmeIAm1TERR7 = 0
            if NombreLancierIAm1TERR7 > 0 then NombreLancierIAm1TERR7 = int(fight1c/(vielancierIAm1+B2))
                if NombreLancierIAm1TERR7 < 0 then NombreLancierIAm1TERR7 = 0
            if NombreFrondeurIAm1TERR7 > 0 then NombreFrondeurIAm1TERR7 = int(fight1d/(viefrondeurIAm1+B3))
                if NombreFrondeurIAm1TERR7 < 0 then NombreFrondeurIAm1TERR7 = 0
            if NombreArcherIAm1TERR7 > 0 then NombreArcherIAm1TERR7 = int(fight1e/(viearcherIAm1+B4))
                if NombreArcherIAm1TERR7 < 0 then NombreArcherIAm1TERR7 = 0
        case 8
            if NombreHommeDarmeIAm1TERR8 > 0 then NombreHommeDarmeIAm1TERR8 = int(fight1b/(vieHommedarmeIAm1+B1))
                if NombreHommeDarmeIAm1TERR8 < 0 then NombreHommeDarmeIAm1TERR8 = 0
            if NombreLancierIAm1TERR8 > 0 then NombreLancierIAm1TERR8 = int(fight1c/(vielancierIAm1+B2))
                if NombreLancierIAm1TERR8 < 0 then NombreLancierIAm1TERR8 = 0
            if NombreFrondeurIAm1TERR8 > 0 then NombreFrondeurIAm1TERR8 = int(fight1d/(viefrondeurIAm1+B3))
                if NombreFrondeurIAm1TERR8 < 0 then NombreFrondeurIAm1TERR8 = 0
            if NombreArcherIAm1TERR8 > 0 then NombreArcherIAm1TERR8 = int(fight1e/(viearcherIAm1+B4))
                if NombreArcherIAm1TERR8 < 0 then NombreArcherIAm1TERR8 = 0
        case 9
            if NombreHommeDarmeIAm1TERR9 > 0 then NombreHommeDarmeIAm1TERR9 = int(fight1b/(vieHommedarmeIAm1+B1))
                if NombreHommeDarmeIAm1TERR9 < 0 then NombreHommeDarmeIAm1TERR9 = 0
            if NombreLancierIAm1TERR9 > 0 then NombreLancierIAm1TERR9 = int(fight1c/(vielancierIAm1+B2))
                if NombreLancierIAm1TERR9 < 0 then NombreLancierIAm1TERR9 = 0
            if NombreFrondeurIAm1TERR9 > 0 then NombreFrondeurIAm1TERR9 = int(fight1d/(viefrondeurIAm1+B3))
                if NombreFrondeurIAm1TERR9 < 0 then NombreFrondeurIAm1TERR9 = 0
            if NombreArcherIAm1TERR9 > 0 then NombreArcherIAm1TERR9 = int(fight1e/(viearcherIAm1+B4))
                if NombreArcherIAm1TERR9 < 0 then NombreArcherIAm1TERR9 = 0
        case 10
            if NombreHommeDarmeIAm1TERR10 > 0 then NombreHommeDarmeIAm1TERR10 = int(fight1b/(vieHommedarmeIAm1+B1))
                if NombreHommeDarmeIAm1TERR10 < 0 then NombreHommeDarmeIAm1TERR10 = 0
            if NombreLancierIAm1TERR10 > 0 then NombreLancierIAm1TERR10 = int(fight1c/(vielancierIAm1+B2))
                if NombreLancierIAm1TERR10 < 0 then NombreLancierIAm1TERR10 = 0
            if NombreFrondeurIAm1TERR10 > 0 then NombreFrondeurIAm1TERR10 = int(fight1d/(viefrondeurIAm1+B3))
                if NombreFrondeurIAm1TERR10 < 0 then NombreFrondeurIAm1TERR10 = 0
            if NombreArcherIAm1TERR10 > 0 then NombreArcherIAm1TERR10 = int(fight1e/(viearcherIAm1+B4))
                if NombreArcherIAm1TERR10 < 0 then NombreArcherIAm1TERR10 = 0
        case 11
            if NombreHommeDarmeIAm1TERR11 > 0 then NombreHommeDarmeIAm1TERR11 = int(fight1b/(vieHommedarmeIAm1+B1))
                if NombreHommeDarmeIAm1TERR11 < 0 then NombreHommeDarmeIAm1TERR11 = 0
            if NombreLancierIAm1TERR11 > 0 then NombreLancierIAm1TERR11 = int(fight1c/(vielancierIAm1+B2))
                if NombreLancierIAm1TERR11 < 0 then NombreLancierIAm1TERR11 = 0
            if NombreFrondeurIAm1TERR11 > 0 then NombreFrondeurIAm1TERR11 = int(fight1d/(viefrondeurIAm1+B3))
                if NombreFrondeurIAm1TERR11 < 0 then NombreFrondeurIAm1TERR11 = 0
            if NombreArcherIAm1TERR11 > 0 then NombreArcherIAm1TERR11 = int(fight1e/(viearcherIAm1+B4))
                if NombreArcherIAm1TERR11 < 0 then NombreArcherIAm1TERR11 = 0
        case 12
            if NombreHommeDarmeIAm1TERR12 > 0 then NombreHommeDarmeIAm1TERR12 = int(fight1b/(vieHommedarmeIAm1+B1))
                if NombreHommeDarmeIAm1TERR12 < 0 then NombreHommeDarmeIAm1TERR12 = 0
            if NombreLancierIAm1TERR12 > 0 then NombreLancierIAm1TERR12 = int(fight1c/(vielancierIAm1+B2))
                if NombreLancierIAm1TERR12 < 0 then NombreLancierIAm1TERR12 = 0
            if NombreFrondeurIAm1TERR12 > 0 then NombreFrondeurIAm1TERR12 = int(fight1d/(viefrondeurIAm1+B3))
                if NombreFrondeurIAm1TERR12 < 0 then NombreFrondeurIAm1TERR12 = 0
            if NombreArcherIAm1TERR12 > 0 then NombreArcherIAm1TERR12 = int(fight1e/(viearcherIAm1+B4))
                if NombreArcherIAm1TERR12 < 0 then NombreArcherIAm1TERR12 = 0
        case 13
            if NombreHommeDarmeIAm1TERR13 > 0 then NombreHommeDarmeIAm1TERR13 = int(fight1b/(vieHommedarmeIAm1+B1))
                if NombreHommeDarmeIAm1TERR13 < 0 then NombreHommeDarmeIAm1TERR13 = 0
            if NombreLancierIAm1TERR13 > 0 then NombreLancierIAm1TERR13 = int(fight1c/(vielancierIAm1+B2))
                if NombreLancierIAm1TERR13 < 0 then NombreLancierIAm1TERR13 = 0
            if NombreFrondeurIAm1TERR13 > 0 then NombreFrondeurIAm1TERR13 = int(fight1d/(viefrondeurIAm1+B3))
                if NombreFrondeurIAm1TERR13 < 0 then NombreFrondeurIAm1TERR13 = 0
            if NombreArcherIAm1TERR13 > 0 then NombreArcherIAm1TERR13 = int(fight1e/(viearcherIAm1+B4))
                if NombreArcherIAm1TERR13 < 0 then NombreArcherIAm1TERR13 = 0
        case 14
            if NombreHommeDarmeIAm1TERR14 > 0 then NombreHommeDarmeIAm1TERR14 = int(fight1b/(vieHommedarmeIAm1+B1))
                if NombreHommeDarmeIAm1TERR14 < 0 then NombreHommeDarmeIAm1TERR14 = 0
            if NombreLancierIAm1TERR14 > 0 then NombreLancierIAm1TERR14 = int(fight1c/(vielancierIAm1+B2))
                if NombreLancierIAm1TERR14 < 0 then NombreLancierIAm1TERR14 = 0
            if NombreFrondeurIAm1TERR14 > 0 then NombreFrondeurIAm1TERR14 = int(fight1d/(viefrondeurIAm1+B3))
                if NombreFrondeurIAm1TERR14 < 0 then NombreFrondeurIAm1TERR14 = 0
            if NombreArcherIAm1TERR14 > 0 then NombreArcherIAm1TERR14 = int(fight1e/(viearcherIAm1+B4))
                if NombreArcherIAm1TERR14 < 0 then NombreArcherIAm1TERR14 = 0
        case 15
            if NombreHommeDarmeIAm1TERR15 > 0 then NombreHommeDarmeIAm1TERR15 = int(fight1b/(vieHommedarmeIAm1+B1))
                if NombreHommeDarmeIAm1TERR15 < 0 then NombreHommeDarmeIAm1TERR15 = 0
            if NombreLancierIAm1TERR15 > 0 then NombreLancierIAm1TERR15 = int(fight1c/(vielancierIAm1+B2))
                if NombreLancierIAm1TERR15 < 0 then NombreLancierIAm1TERR15 = 0
            if NombreFrondeurIAm1TERR15 > 0 then NombreFrondeurIAm1TERR15 = int(fight1d/(viefrondeurIAm1+B3))
                if NombreFrondeurIAm1TERR15 < 0 then NombreFrondeurIAm1TERR15 = 0
            if NombreArcherIAm1TERR15 > 0 then NombreArcherIAm1TERR15 = int(fight1e/(viearcherIAm1+B4))
                if NombreArcherIAm1TERR15 < 0 then NombreArcherIAm1TERR15 = 0
        case 16
            if NombreHommeDarmeIAm1TERR16 > 0 then NombreHommeDarmeIAm1TERR16 = int(fight1b/(vieHommedarmeIAm1+B1))
                if NombreHommeDarmeIAm1TERR16 < 0 then NombreHommeDarmeIAm1TERR16 = 0
            if NombreLancierIAm1TERR16 > 0 then NombreLancierIAm1TERR16 = int(fight1c/(vielancierIAm1+B2))
                if NombreLancierIAm1TERR16 < 0 then NombreLancierIAm1TERR16 = 0
            if NombreFrondeurIAm1TERR16 > 0 then NombreFrondeurIAm1TERR16 = int(fight1d/(viefrondeurIAm1+B3))
                if NombreFrondeurIAm1TERR16 < 0 then NombreFrondeurIAm1TERR16 = 0
            if NombreArcherIAm1TERR16 > 0 then NombreArcherIAm1TERR16 = int(fight1e/(viearcherIAm1+B4))
                if NombreArcherIAm1TERR16 < 0 then NombreArcherIAm1TERR16 = 0
        case 17
            if NombreHommeDarmeIAm1TERR17 > 0 then NombreHommeDarmeIAm1TERR17 = int(fight1b/(vieHommedarmeIAm1+B1))
                if NombreHommeDarmeIAm1TERR17 < 0 then NombreHommeDarmeIAm1TERR17 = 0
            if NombreLancierIAm1TERR17 > 0 then NombreLancierIAm1TERR17 = int(fight1c/(vielancierIAm1+B2))
                if NombreLancierIAm1TERR17 < 0 then NombreLancierIAm1TERR17 = 0
            if NombreFrondeurIAm1TERR17 > 0 then NombreFrondeurIAm1TERR17 = int(fight1d/(viefrondeurIAm1+B3))
                if NombreFrondeurIAm1TERR17 < 0 then NombreFrondeurIAm1TERR17 = 0
            if NombreArcherIAm1TERR17 > 0 then NombreArcherIAm1TERR17 = int(fight1e/(viearcherIAm1+B4))
                if NombreArcherIAm1TERR17 < 0 then NombreArcherIAm1TERR17 = 0
        case 18
            if NombreHommeDarmeIAm1TERR18 > 0 then NombreHommeDarmeIAm1TERR18 = int(fight1b/(vieHommedarmeIAm1+B1))
                if NombreHommeDarmeIAm1TERR18 < 0 then NombreHommeDarmeIAm1TERR18 = 0
            if NombreLancierIAm1TERR18 > 0 then NombreLancierIAm1TERR18 = int(fight1c/(vielancierIAm1+B2))
                if NombreLancierIAm1TERR18 < 0 then NombreLancierIAm1TERR18 = 0
            if NombreFrondeurIAm1TERR18 > 0 then NombreFrondeurIAm1TERR18 = int(fight1d/(viefrondeurIAm1+B3))
                if NombreFrondeurIAm1TERR18 < 0 then NombreFrondeurIAm1TERR18 = 0
            if NombreArcherIAm1TERR18 > 0 then NombreArcherIAm1TERR18 = int(fight1e/(viearcherIAm1+B4))
                if NombreArcherIAm1TERR18 < 0 then NombreArcherIAm1TERR18 = 0
        case 19
            if NombreHommeDarmeIAm1TERR19 > 0 then NombreHommeDarmeIAm1TERR19 = int(fight1b/(vieHommedarmeIAm1+B1))
                if NombreHommeDarmeIAm1TERR19 < 0 then NombreHommeDarmeIAm1TERR19 = 0
            if NombreLancierIAm1TERR19 > 0 then NombreLancierIAm1TERR19 = int(fight1c/(vielancierIAm1+B2))
                if NombreLancierIAm1TERR19 < 0 then NombreLancierIAm1TERR19 = 0
            if NombreFrondeurIAm1TERR19 > 0 then NombreFrondeurIAm1TERR19 = int(fight1d/(viefrondeurIAm1+B3))
                if NombreFrondeurIAm1TERR19 < 0 then NombreFrondeurIAm1TERR19 = 0
            if NombreArcherIAm1TERR19 > 0 then NombreArcherIAm1TERR19 = int(fight1e/(viearcherIAm1+B4))
                if NombreArcherIAm1TERR19 < 0 then NombreArcherIAm1TERR19 = 0
        case 20
            if NombreHommeDarmeIAm1TERR20 > 0 then NombreHommeDarmeIAm1TERR20 = int(fight1b/(vieHommedarmeIAm1+B1))
                if NombreHommeDarmeIAm1TERR20 < 0 then NombreHommeDarmeIAm1TERR20 = 0
            if NombreLancierIAm1TERR20 > 0 then NombreLancierIAm1TERR20 = int(fight1c/(vielancierIAm1+B2))
                if NombreLancierIAm1TERR20 < 0 then NombreLancierIAm1TERR20 = 0
            if NombreFrondeurIAm1TERR20 > 0 then NombreFrondeurIAm1TERR20 = int(fight1d/(viefrondeurIAm1+B3))
                if NombreFrondeurIAm1TERR20 < 0 then NombreFrondeurIAm1TERR20 = 0
            if NombreArcherIAm1TERR20 > 0 then NombreArcherIAm1TERR20 = int(fight1e/(viearcherIAm1+B4))
                if NombreArcherIAm1TERR20 < 0 then NombreArcherIAm1TERR20 = 0
    end select
case 3
    select case territoire
        case 1
            if NombreHommeDarmeIAm2TERR1 > 0 then NombreHommeDarmeIAm2TERR1 = int(fight1b/(vieHommedarmeIAm2+B1))
                if NombreHommeDarmeIAm2TERR1 < 0 then NombreHommeDarmeIAm2TERR1 = 0
            if NombreLancierIAm2TERR1 > 0 then NombreLancierIAm2TERR1 = int(fight1c/(vielancierIAm2+B2))
                if NombreLancierIAm2TERR1 < 0 then NombreLancierIAm2TERR1 = 0
            if NombreFrondeurIAm2TERR1 > 0 then NombreFrondeurIAm2TERR1 = int(fight1d/(viefrondeurIAm2+B3))
                if NombreFrondeurIAm2TERR1 < 0 then NombreFrondeurIAm2TERR1 = 0
            if NombreArcherIAm2TERR1 > 0 then NombreArcherIAm2TERR1 = int(fight1e/(viearcherIAm2+B4))
                if NombreArcherIAm2TERR1 < 0 then NombreArcherIAm2TERR1 = 0
        case 2
            if NombreHommeDarmeIAm2TERR2 > 0 then NombreHommeDarmeIAm2TERR2 = int(fight1b/(vieHommedarmeIAm2+B1))
                if NombreHommeDarmeIAm2TERR2 < 0 then NombreHommeDarmeIAm2TERR2 = 0
            if NombreLancierIAm2TERR2 > 0 then NombreLancierIAm2TERR2 = int(fight1c/(vielancierIAm2+B2))
                if NombreLancierIAm2TERR2 < 0 then NombreLancierIAm2TERR2 = 0
            if NombreFrondeurIAm2TERR2 > 0 then NombreFrondeurIAm2TERR2 = int(fight1d/(viefrondeurIAm2+B3))
                if NombreFrondeurIAm2TERR2 < 0 then NombreFrondeurIAm2TERR2 = 0
            if NombreArcherIAm2TERR2 > 0 then NombreArcherIAm2TERR2 = int(fight1e/(viearcherIAm2+B4))
                if NombreArcherIAm2TERR2 < 0 then NombreArcherIAm2TERR2 = 0
        case 3
            if NombreHommeDarmeIAm2TERR3 > 0 then NombreHommeDarmeIAm2TERR3 = int(fight1b/(vieHommedarmeIAm2+B1))
                if NombreHommeDarmeIAm2TERR3 < 0 then NombreHommeDarmeIAm2TERR3 = 0
            if NombreLancierIAm2TERR3 > 0 then NombreLancierIAm2TERR3 = int(fight1c/(vielancierIAm2+B2))
                if NombreLancierIAm2TERR3 < 0 then NombreLancierIAm2TERR3 = 0
            if NombreFrondeurIAm2TERR3 > 0 then NombreFrondeurIAm2TERR3 = int(fight1d/(viefrondeurIAm2+B3))
                if NombreFrondeurIAm2TERR3 < 0 then NombreFrondeurIAm2TERR3 = 0
            if NombreArcherIAm2TERR3 > 0 then NombreArcherIAm2TERR3 = int(fight1e/(viearcherIAm2+B4))
                if NombreArcherIAm2TERR3 < 0 then NombreArcherIAm2TERR3 = 0
        case 4
            if NombreHommeDarmeIAm2TERR4 > 0 then NombreHommeDarmeIAm2TERR4 = int(fight1b/(vieHommedarmeIAm2+B1))
                if NombreHommeDarmeIAm2TERR4 < 0 then NombreHommeDarmeIAm2TERR4 = 0
            if NombreLancierIAm2TERR4 > 0 then NombreLancierIAm2TERR4 = int(fight1c/(vielancierIAm2+B2))
                if NombreLancierIAm2TERR4 < 0 then NombreLancierIAm2TERR4 = 0
            if NombreFrondeurIAm2TERR4 > 0 then NombreFrondeurIAm2TERR4 = int(fight1d/(viefrondeurIAm2+B3))
                if NombreFrondeurIAm2TERR4 < 0 then NombreFrondeurIAm2TERR4 = 0
            if NombreArcherIAm2TERR4 > 0 then NombreArcherIAm2TERR4 = int(fight1e/(viearcherIAm2+B4))
                if NombreArcherIAm2TERR4 < 0 then NombreArcherIAm2TERR4 = 0
        case 5
            if NombreHommeDarmeIAm2TERR5 > 0 then NombreHommeDarmeIAm2TERR5 = int(fight1b/(vieHommedarmeIAm2+B1))
                if NombreHommeDarmeIAm2TERR5 < 0 then NombreHommeDarmeIAm2TERR5 = 0
            if NombreLancierIAm2TERR5 > 0 then NombreLancierIAm2TERR5 = int(fight1c/(vielancierIAm2+B2))
                if NombreLancierIAm2TERR5 < 0 then NombreLancierIAm2TERR5 = 0
            if NombreFrondeurIAm2TERR5 > 0 then NombreFrondeurIAm2TERR5 = int(fight1d/(viefrondeurIAm2+B3))
                if NombreFrondeurIAm2TERR5 < 0 then NombreFrondeurIAm2TERR5 = 0
            if NombreArcherIAm2TERR5 > 0 then NombreArcherIAm2TERR5 = int(fight1e/(viearcherIAm2+B4))
                if NombreArcherIAm2TERR5 < 0 then NombreArcherIAm2TERR5 = 0
        case 6
            if NombreHommeDarmeIAm2TERR6 > 0 then NombreHommeDarmeIAm2TERR6 = int(fight1b/(vieHommedarmeIAm2+B1))
                if NombreHommeDarmeIAm2TERR6 < 0 then NombreHommeDarmeIAm2TERR6 = 0
            if NombreLancierIAm2TERR6 > 0 then NombreLancierIAm2TERR6 = int(fight1c/(vielancierIAm2+B2))
                if NombreLancierIAm2TERR6 < 0 then NombreLancierIAm2TERR6 = 0
            if NombreFrondeurIAm2TERR6 > 0 then NombreFrondeurIAm2TERR6 = int(fight1d/(viefrondeurIAm2+B3))
                if NombreFrondeurIAm2TERR6 < 0 then NombreFrondeurIAm2TERR6 = 0
            if NombreArcherIAm2TERR6 > 0 then NombreArcherIAm2TERR6 = int(fight1e/(viearcherIAm2+B4))
                if NombreArcherIAm2TERR6 < 0 then NombreArcherIAm2TERR6 = 0
        case 7
            if NombreHommeDarmeIAm2TERR7 > 0 then NombreHommeDarmeIAm2TERR7 = int(fight1b/(vieHommedarmeIAm2+B1))
                if NombreHommeDarmeIAm2TERR7 < 0 then NombreHommeDarmeIAm2TERR7 = 0
            if NombreLancierIAm2TERR7 > 0 then NombreLancierIAm2TERR7 = int(fight1c/(vielancierIAm2+B2))
                if NombreLancierIAm2TERR7 < 0 then NombreLancierIAm2TERR7 = 0
            if NombreFrondeurIAm2TERR7 > 0 then NombreFrondeurIAm2TERR7 = int(fight1d/(viefrondeurIAm2+B3))
                if NombreFrondeurIAm2TERR7 < 0 then NombreFrondeurIAm2TERR7 = 0
            if NombreArcherIAm2TERR7 > 0 then NombreArcherIAm2TERR7 = int(fight1e/(viearcherIAm2+B4))
                if NombreArcherIAm2TERR7 < 0 then NombreArcherIAm2TERR7 = 0
        case 8
            if NombreHommeDarmeIAm2TERR8 > 0 then NombreHommeDarmeIAm2TERR8 = int(fight1b/(vieHommedarmeIAm2+B1))
                if NombreHommeDarmeIAm2TERR8 < 0 then NombreHommeDarmeIAm2TERR8 = 0
            if NombreLancierIAm2TERR8 > 0 then NombreLancierIAm2TERR8 = int(fight1c/(vielancierIAm2+B2))
                if NombreLancierIAm2TERR8 < 0 then NombreLancierIAm2TERR8 = 0
            if NombreFrondeurIAm2TERR8 > 0 then NombreFrondeurIAm2TERR8 = int(fight1d/(viefrondeurIAm2+B3))
                if NombreFrondeurIAm2TERR8 < 0 then NombreFrondeurIAm2TERR8 = 0
            if NombreArcherIAm2TERR8 > 0 then NombreArcherIAm2TERR8 = int(fight1e/(viearcherIAm2+B4))
                if NombreArcherIAm2TERR8 < 0 then NombreArcherIAm2TERR8 = 0
        case 9
            if NombreHommeDarmeIAm2TERR9 > 0 then NombreHommeDarmeIAm2TERR9 = int(fight1b/(vieHommedarmeIAm2+B1))
                if NombreHommeDarmeIAm2TERR9 < 0 then NombreHommeDarmeIAm2TERR9 = 0
            if NombreLancierIAm2TERR9 > 0 then NombreLancierIAm2TERR9 = int(fight1c/(vielancierIAm2+B2))
                if NombreLancierIAm2TERR9 < 0 then NombreLancierIAm2TERR9 = 0
            if NombreFrondeurIAm2TERR9 > 0 then NombreFrondeurIAm2TERR9 = int(fight1d/(viefrondeurIAm2+B3))
                if NombreFrondeurIAm2TERR9 < 0 then NombreFrondeurIAm2TERR9 = 0
            if NombreArcherIAm2TERR9 > 0 then NombreArcherIAm2TERR9 = int(fight1e/(viearcherIAm2+B4))
                if NombreArcherIAm2TERR9 < 0 then NombreArcherIAm2TERR9 = 0
        case 10
            if NombreHommeDarmeIAm2TERR10 > 0 then NombreHommeDarmeIAm2TERR10 = int(fight1b/(vieHommedarmeIAm2+B1))
                if NombreHommeDarmeIAm2TERR10 < 0 then NombreHommeDarmeIAm2TERR10 = 0
            if NombreLancierIAm2TERR10 > 0 then NombreLancierIAm2TERR10 = int(fight1c/(vielancierIAm2+B2))
                if NombreLancierIAm2TERR10 < 0 then NombreLancierIAm2TERR10 = 0
            if NombreFrondeurIAm2TERR10 > 0 then NombreFrondeurIAm2TERR10 = int(fight1d/(viefrondeurIAm2+B3))
                if NombreFrondeurIAm2TERR10 < 0 then NombreFrondeurIAm2TERR10 = 0
            if NombreArcherIAm2TERR10 > 0 then NombreArcherIAm2TERR10 = int(fight1e/(viearcherIAm2+B4))
                if NombreArcherIAm2TERR10 < 0 then NombreArcherIAm2TERR10 = 0
        case 11
            if NombreHommeDarmeIAm2TERR11 > 0 then NombreHommeDarmeIAm2TERR11 = int(fight1b/(vieHommedarmeIAm2+B1))
                if NombreHommeDarmeIAm2TERR11 < 0 then NombreHommeDarmeIAm2TERR11 = 0
            if NombreLancierIAm2TERR11 > 0 then NombreLancierIAm2TERR11 = int(fight1c/(vielancierIAm2+B2))
                if NombreLancierIAm2TERR11 < 0 then NombreLancierIAm2TERR11 = 0
            if NombreFrondeurIAm2TERR11 > 0 then NombreFrondeurIAm2TERR11 = int(fight1d/(viefrondeurIAm2+B3))
                if NombreFrondeurIAm2TERR11 < 0 then NombreFrondeurIAm2TERR11 = 0
            if NombreArcherIAm2TERR11 > 0 then NombreArcherIAm2TERR11 = int(fight1e/(viearcherIAm2+B4))
                if NombreArcherIAm2TERR11 < 0 then NombreArcherIAm2TERR11 = 0
        case 12
            if NombreHommeDarmeIAm2TERR12 > 0 then NombreHommeDarmeIAm2TERR12 = int(fight1b/(vieHommedarmeIAm2+B1))
                if NombreHommeDarmeIAm2TERR12 < 0 then NombreHommeDarmeIAm2TERR12 = 0
            if NombreLancierIAm2TERR12 > 0 then NombreLancierIAm2TERR12 = int(fight1c/(vielancierIAm2+B2))
                if NombreLancierIAm2TERR12 < 0 then NombreLancierIAm2TERR12 = 0
            if NombreFrondeurIAm2TERR12 > 0 then NombreFrondeurIAm2TERR12 = int(fight1d/(viefrondeurIAm2+B3))
                if NombreFrondeurIAm2TERR12 < 0 then NombreFrondeurIAm2TERR12 = 0
            if NombreArcherIAm2TERR12 > 0 then NombreArcherIAm2TERR12 = int(fight1e/(viearcherIAm2+B4))
                if NombreArcherIAm2TERR12 < 0 then NombreArcherIAm2TERR12 = 0
        case 13
            if NombreHommeDarmeIAm2TERR13 > 0 then NombreHommeDarmeIAm2TERR13 = int(fight1b/(vieHommedarmeIAm2+B1))
                if NombreHommeDarmeIAm2TERR13 < 0 then NombreHommeDarmeIAm2TERR13 = 0
            if NombreLancierIAm2TERR13 > 0 then NombreLancierIAm2TERR13 = int(fight1c/(vielancierIAm2+B2))
                if NombreLancierIAm2TERR13 < 0 then NombreLancierIAm2TERR13 = 0
            if NombreFrondeurIAm2TERR13 > 0 then NombreFrondeurIAm2TERR13 = int(fight1d/(viefrondeurIAm2+B3))
                if NombreFrondeurIAm2TERR13 < 0 then NombreFrondeurIAm2TERR13 = 0
            if NombreArcherIAm2TERR13 > 0 then NombreArcherIAm2TERR13 = int(fight1e/(viearcherIAm2+B4))
                if NombreArcherIAm2TERR13 < 0 then NombreArcherIAm2TERR13 = 0
        case 14
            if NombreHommeDarmeIAm2TERR14 > 0 then NombreHommeDarmeIAm2TERR14 = int(fight1b/(vieHommedarmeIAm2+B1))
                if NombreHommeDarmeIAm2TERR14 < 0 then NombreHommeDarmeIAm2TERR14 = 0
            if NombreLancierIAm2TERR14 > 0 then NombreLancierIAm2TERR14 = int(fight1c/(vielancierIAm2+B2))
                if NombreLancierIAm2TERR14 < 0 then NombreLancierIAm2TERR14 = 0
            if NombreFrondeurIAm2TERR14 > 0 then NombreFrondeurIAm2TERR14 = int(fight1d/(viefrondeurIAm2+B3))
                if NombreFrondeurIAm2TERR14 < 0 then NombreFrondeurIAm2TERR14 = 0
            if NombreArcherIAm2TERR14 > 0 then NombreArcherIAm2TERR14 = int(fight1e/(viearcherIAm2+B4))
                if NombreArcherIAm2TERR14 < 0 then NombreArcherIAm2TERR14 = 0
        case 15
            if NombreHommeDarmeIAm2TERR15 > 0 then NombreHommeDarmeIAm2TERR15 = int(fight1b/(vieHommedarmeIAm2+B1))
                if NombreHommeDarmeIAm2TERR15 < 0 then NombreHommeDarmeIAm2TERR15 = 0
            if NombreLancierIAm2TERR15 > 0 then NombreLancierIAm2TERR15 = int(fight1c/(vielancierIAm2+B2))
                if NombreLancierIAm2TERR15 < 0 then NombreLancierIAm2TERR15 = 0
            if NombreFrondeurIAm2TERR15 > 0 then NombreFrondeurIAm2TERR15 = int(fight1d/(viefrondeurIAm2+B3))
                if NombreFrondeurIAm2TERR15 < 0 then NombreFrondeurIAm2TERR15 = 0
            if NombreArcherIAm2TERR15 > 0 then NombreArcherIAm2TERR15 = int(fight1e/(viearcherIAm2+B4))
                if NombreArcherIAm2TERR15 < 0 then NombreArcherIAm2TERR15 = 0
        case 16
            if NombreHommeDarmeIAm2TERR16 > 0 then NombreHommeDarmeIAm2TERR16 = int(fight1b/(vieHommedarmeIAm2+B1))
                if NombreHommeDarmeIAm2TERR16 < 0 then NombreHommeDarmeIAm2TERR16 = 0
            if NombreLancierIAm2TERR16 > 0 then NombreLancierIAm2TERR16 = int(fight1c/(vielancierIAm2+B2))
                if NombreLancierIAm2TERR16 < 0 then NombreLancierIAm2TERR16 = 0
            if NombreFrondeurIAm2TERR16 > 0 then NombreFrondeurIAm2TERR16 = int(fight1d/(viefrondeurIAm2+B3))
                if NombreFrondeurIAm2TERR16 < 0 then NombreFrondeurIAm2TERR16 = 0
            if NombreArcherIAm2TERR16 > 0 then NombreArcherIAm2TERR16 = int(fight1e/(viearcherIAm2+B4))
                if NombreArcherIAm2TERR16 < 0 then NombreArcherIAm2TERR16 = 0
        case 17
            if NombreHommeDarmeIAm2TERR17 > 0 then NombreHommeDarmeIAm2TERR17 = int(fight1b/(vieHommedarmeIAm2+B1))
                if NombreHommeDarmeIAm2TERR17 < 0 then NombreHommeDarmeIAm2TERR17 = 0
            if NombreLancierIAm2TERR17 > 0 then NombreLancierIAm2TERR17 = int(fight1c/(vielancierIAm2+B2))
                if NombreLancierIAm2TERR17 < 0 then NombreLancierIAm2TERR17 = 0
            if NombreFrondeurIAm2TERR17 > 0 then NombreFrondeurIAm2TERR17 = int(fight1d/(viefrondeurIAm2+B3))
                if NombreFrondeurIAm2TERR17 < 0 then NombreFrondeurIAm2TERR17 = 0
            if NombreArcherIAm2TERR17 > 0 then NombreArcherIAm2TERR17 = int(fight1e/(viearcherIAm2+B4))
                if NombreArcherIAm2TERR17 < 0 then NombreArcherIAm2TERR17 = 0
        case 18
            if NombreHommeDarmeIAm2TERR18 > 0 then NombreHommeDarmeIAm2TERR18 = int(fight1b/(vieHommedarmeIAm2+B1))
                if NombreHommeDarmeIAm2TERR18 < 0 then NombreHommeDarmeIAm2TERR18 = 0
            if NombreLancierIAm2TERR18 > 0 then NombreLancierIAm2TERR18 = int(fight1c/(vielancierIAm2+B2))
                if NombreLancierIAm2TERR18 < 0 then NombreLancierIAm2TERR18 = 0
            if NombreFrondeurIAm2TERR18 > 0 then NombreFrondeurIAm2TERR18 = int(fight1d/(viefrondeurIAm2+B3))
                if NombreFrondeurIAm2TERR18 < 0 then NombreFrondeurIAm2TERR18 = 0
            if NombreArcherIAm2TERR18 > 0 then NombreArcherIAm2TERR18 = int(fight1e/(viearcherIAm2+B4))
                if NombreArcherIAm2TERR18 < 0 then NombreArcherIAm2TERR18 = 0
        case 19
            if NombreHommeDarmeIAm2TERR19 > 0 then NombreHommeDarmeIAm2TERR19 = int(fight1b/(vieHommedarmeIAm2+B1))
                if NombreHommeDarmeIAm2TERR19 < 0 then NombreHommeDarmeIAm2TERR19 = 0
            if NombreLancierIAm2TERR19 > 0 then NombreLancierIAm2TERR19 = int(fight1c/(vielancierIAm2+B2))
                if NombreLancierIAm2TERR19 < 0 then NombreLancierIAm2TERR19 = 0
            if NombreFrondeurIAm2TERR19 > 0 then NombreFrondeurIAm2TERR19 = int(fight1d/(viefrondeurIAm2+B3))
                if NombreFrondeurIAm2TERR19 < 0 then NombreFrondeurIAm2TERR19 = 0
            if NombreArcherIAm2TERR19 > 0 then NombreArcherIAm2TERR19 = int(fight1e/(viearcherIAm2+B4))
                if NombreArcherIAm2TERR19 < 0 then NombreArcherIAm2TERR19 = 0
        case 20
            if NombreHommeDarmeIAm2TERR20 > 0 then NombreHommeDarmeIAm2TERR20 = int(fight1b/(vieHommedarmeIAm2+B1))
                if NombreHommeDarmeIAm2TERR20 < 0 then NombreHommeDarmeIAm2TERR20 = 0
            if NombreLancierIAm2TERR20 > 0 then NombreLancierIAm2TERR20 = int(fight1c/(vielancierIAm2+B2))
                if NombreLancierIAm2TERR20 < 0 then NombreLancierIAm2TERR20 = 0
            if NombreFrondeurIAm2TERR20 > 0 then NombreFrondeurIAm2TERR20 = int(fight1d/(viefrondeurIAm2+B3))
                if NombreFrondeurIAm2TERR20 < 0 then NombreFrondeurIAm2TERR20 = 0
            if NombreArcherIAm2TERR20 > 0 then NombreArcherIAm2TERR20 = int(fight1e/(viearcherIAm2+B4))
                if NombreArcherIAm2TERR20 < 0 then NombreArcherIAm2TERR20 = 0
    end select
end select

if NombreHommeDarmeSELECTED >= 1 then
    NombreHommeDarmeSELECTED = int(fight2b/(vieHommedarme+defHommedarme))
    if NombreHommeDarmeSELECTED < 0 then NombreHommeDarmeSELECTED = 0
    if NombreHommeDarmeSELECTED > NombreHommeDarmeTEMP then NombreHommeDarmeSELECTED = NombreHommeDarmeTEMP
end if
if NombreLancierSELECTED >= 1 then
    NombreLancierSELECTED = int(fight2c/(vielancier+deflancier))
    if NombreLancierSELECTED < 0 then NombreLancierSELECTED = 0
    if NombreLancierSELECTED > NombreLancierTEMP then NombreLancierSELECTED = NombreLancierTEMP
end if
if NombreFrondeurSELECTED >= 1 then
    NombreFrondeurSELECTED = int(fight2d/(viefrondeur+deffrondeur))
    if NombreFrondeurSELECTED < 0 then NombreFrondeurSELECTED = 0
    if NombreFrondeurSELECTED > NombreFrondeurTEMP then NombreFrondeurSELECTED = NombreFrondeurTEMP
end if
if NombreArcherSELECTED >= 1 then
    NombreArcherSELECTED = int(fight2e/(viearcher+defarcher))
    if NombreArcherSELECTED < 0 then NombreArcherSELECTED = 0
    if NombreArcherSELECTED > NombreArcherTEMP then NombreArcherSELECTED = NombreArcherTEMP
end if
if NombreEXPLORATEURSELECTED >= 1 then
    NombreEXPLORATEURSELECTED = int(fight2f/(vieEXPLORATEUR+defEXPLORATEUR))
    if NombreEXPLORATEURSELECTED < 0 then NombreEXPLORATEURSELECTED = 0
    if NombreEXPLORATEURSELECTED > NombreEXPLORATEURTEMP then NombreEXPLORATEURSELECTED = NombreEXPLORATEURTEMP
end if

if NombreHommeDarmeSELECTED <= 0 and NombreEXPLORATEURSELECTED <= 0 and NombreLancierSELECTED <= 0 and NombreFrondeurSELECTED <= 0 and NombreArcherSELECTED <= 0 then fight1 = 0
if NombreHommeDarmeSELECTED > 0 or NombreEXPLORATEURSELECTED > 0 or NombreLancierSELECTED > 0 or NombreFrondeurSELECTED > 0 or NombreArcherSELECTED > 0 then fight1 = 1

select case playerDEF
case 2
    select case territoire
        case 1
            if NombreHommeDarmeIAm1TERR1 <= 0 and NombreLancierIAm1TERR1 <= 0 and NombreFrondeurIAm1TERR1 <= 0 and NombreArcherIAm1TERR1 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm1TERR1 > 0 or NombreLancierIAm1TERR1 > 0 or NombreFrondeurIAm1TERR1 > 0 or NombreArcherIAm1TERR1 > 0 then fight2 = 1
        case 2
            if NombreHommeDarmeIAm1TERR2 <= 0 and NombreLancierIAm1TERR2 <= 0 and NombreFrondeurIAm1TERR2 <= 0 and NombreArcherIAm1TERR2 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm1TERR2 > 0 or NombreLancierIAm1TERR2 > 0 or NombreFrondeurIAm1TERR2 > 0 or NombreArcherIAm1TERR2 > 0 then fight2 = 1
        case 3
            if NombreHommeDarmeIAm1TERR3 <= 0 and NombreLancierIAm1TERR3 <= 0 and NombreFrondeurIAm1TERR3 <= 0 and NombreArcherIAm1TERR3 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm1TERR3 > 0 or NombreLancierIAm1TERR3 > 0 or NombreFrondeurIAm1TERR3 > 0 or NombreArcherIAm1TERR3 > 0 then fight2 = 1
        case 4
            if NombreHommeDarmeIAm1TERR4 <= 0 and NombreLancierIAm1TERR4 <= 0 and NombreFrondeurIAm1TERR4 <= 0 and NombreArcherIAm1TERR4 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm1TERR4 > 0 or NombreLancierIAm1TERR4 > 0 or NombreFrondeurIAm1TERR4 > 0 or NombreArcherIAm1TERR4 > 0 then fight2 = 1
        case 5
            if NombreHommeDarmeIAm1TERR5 <= 0 and NombreLancierIAm1TERR5 <= 0 and NombreFrondeurIAm1TERR5 <= 0 and NombreArcherIAm1TERR5 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm1TERR5 > 0 or NombreLancierIAm1TERR5 > 0 or NombreFrondeurIAm1TERR5 > 0 or NombreArcherIAm1TERR5 > 0 then fight2 = 1
        case 6
            if NombreHommeDarmeIAm1TERR6 <= 0 and NombreLancierIAm1TERR6 <= 0 and NombreFrondeurIAm1TERR6 <= 0 and NombreArcherIAm1TERR6 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm1TERR6 > 0 or NombreLancierIAm1TERR6 > 0 or NombreFrondeurIAm1TERR6 > 0 or NombreArcherIAm1TERR6 > 0 then fight2 = 1
        case 7
            if NombreHommeDarmeIAm1TERR7 <= 0 and NombreLancierIAm1TERR7 <= 0 and NombreFrondeurIAm1TERR7 <= 0 and NombreArcherIAm1TERR7 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm1TERR7 > 0 or NombreLancierIAm1TERR7 > 0 or NombreFrondeurIAm1TERR7 > 0 or NombreArcherIAm1TERR7 > 0 then fight2 = 1
        case 8
            if NombreHommeDarmeIAm1TERR8 <= 0 and NombreLancierIAm1TERR8 <= 0 and NombreFrondeurIAm1TERR8 <= 0 and NombreArcherIAm1TERR8 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm1TERR8 > 0 or NombreLancierIAm1TERR8 > 0 or NombreFrondeurIAm1TERR8 > 0 or NombreArcherIAm1TERR8 > 0 then fight2 = 1
        case 9
            if NombreHommeDarmeIAm1TERR9 <= 0 and NombreLancierIAm1TERR9 <= 0 and NombreFrondeurIAm1TERR9 <= 0 and NombreArcherIAm1TERR9 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm1TERR9 > 0 or NombreLancierIAm1TERR9 > 0 or NombreFrondeurIAm1TERR9 > 0 or NombreArcherIAm1TERR9 > 0 then fight2 = 1
        case 10
            if NombreHommeDarmeIAm1TERR10 <= 0 and NombreLancierIAm1TERR10 <= 0 and NombreFrondeurIAm1TERR10 <= 0 and NombreArcherIAm1TERR10 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm1TERR10 > 0 or NombreLancierIAm1TERR10 > 0 or NombreFrondeurIAm1TERR10 > 0 or NombreArcherIAm1TERR10 > 0 then fight2 = 1
        case 11
            if NombreHommeDarmeIAm1TERR11 <= 0 and NombreLancierIAm1TERR11 <= 0 and NombreFrondeurIAm1TERR11 <= 0 and NombreArcherIAm1TERR11 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm1TERR11 > 0 or NombreLancierIAm1TERR11 > 0 or NombreFrondeurIAm1TERR11 > 0 or NombreArcherIAm1TERR11 > 0 then fight2 = 1
        case 12
            if NombreHommeDarmeIAm1TERR12 <= 0 and NombreLancierIAm1TERR12 <= 0 and NombreFrondeurIAm1TERR12 <= 0 and NombreArcherIAm1TERR12 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm1TERR12 > 0 or NombreLancierIAm1TERR12 > 0 or NombreFrondeurIAm1TERR12 > 0 or NombreArcherIAm1TERR12 > 0 then fight2 = 1
        case 13
            if NombreHommeDarmeIAm1TERR13 <= 0 and NombreLancierIAm1TERR13 <= 0 and NombreFrondeurIAm1TERR13 <= 0 and NombreArcherIAm1TERR13 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm1TERR13 > 0 or NombreLancierIAm1TERR13 > 0 or NombreFrondeurIAm1TERR13 > 0 or NombreArcherIAm1TERR13 > 0 then fight2 = 1
        case 14
            if NombreHommeDarmeIAm1TERR14 <= 0 and NombreLancierIAm1TERR14 <= 0 and NombreFrondeurIAm1TERR14 <= 0 and NombreArcherIAm1TERR14 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm1TERR14 > 0 or NombreLancierIAm1TERR14 > 0 or NombreFrondeurIAm1TERR14 > 0 or NombreArcherIAm1TERR14 > 0 then fight2 = 1
        case 15
            if NombreHommeDarmeIAm1TERR15 <= 0 and NombreLancierIAm1TERR15 <= 0 and NombreFrondeurIAm1TERR15 <= 0 and NombreArcherIAm1TERR15 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm1TERR15 > 0 or NombreLancierIAm1TERR15 > 0 or NombreFrondeurIAm1TERR15 > 0 or NombreArcherIAm1TERR15 > 0 then fight2 = 1
        case 16
            if NombreHommeDarmeIAm1TERR16 <= 0 and NombreLancierIAm1TERR16 <= 0 and NombreFrondeurIAm1TERR16 <= 0 and NombreArcherIAm1TERR16 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm1TERR16 > 0 or NombreLancierIAm1TERR16 > 0 or NombreFrondeurIAm1TERR16 > 0 or NombreArcherIAm1TERR16 > 0 then fight2 = 1
        case 17
            if NombreHommeDarmeIAm1TERR17 <= 0 and NombreLancierIAm1TERR17 <= 0 and NombreFrondeurIAm1TERR17 <= 0 and NombreArcherIAm1TERR17 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm1TERR17 > 0 or NombreLancierIAm1TERR17 > 0 or NombreFrondeurIAm1TERR17 > 0 or NombreArcherIAm1TERR17 > 0 then fight2 = 1
        case 18
            if NombreHommeDarmeIAm1TERR18 <= 0 and NombreLancierIAm1TERR18 <= 0 and NombreFrondeurIAm1TERR18 <= 0 and NombreArcherIAm1TERR18 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm1TERR18 > 0 or NombreLancierIAm1TERR18 > 0 or NombreFrondeurIAm1TERR18 > 0 or NombreArcherIAm1TERR18 > 0 then fight2 = 1
        case 19
            if NombreHommeDarmeIAm1TERR19 <= 0 and NombreLancierIAm1TERR19 <= 0 and NombreFrondeurIAm1TERR19 <= 0 and NombreArcherIAm1TERR19 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm1TERR19 > 0 or NombreLancierIAm1TERR19 > 0 or NombreFrondeurIAm1TERR19 > 0 or NombreArcherIAm1TERR19 > 0 then fight2 = 1
        case 20
            if NombreHommeDarmeIAm1TERR20 <= 0 and NombreLancierIAm1TERR20 <= 0 and NombreFrondeurIAm1TERR20 <= 0 and NombreArcherIAm1TERR20 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm1TERR20 > 0 or NombreLancierIAm1TERR20 > 0 or NombreFrondeurIAm1TERR20 > 0 or NombreArcherIAm1TERR20 > 0 then fight2 = 1
    end select
case 3
    select case territoire
        case 1
            if NombreHommeDarmeIAm2TERR1 <= 0 and NombreLancierIAm2TERR1 <= 0 and NombreFrondeurIAm2TERR1 <= 0 and NombreArcherIAm2TERR1 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm2TERR1 > 0 or NombreLancierIAm2TERR1 > 0 or NombreFrondeurIAm2TERR1 > 0 or NombreArcherIAm2TERR1 > 0 then fight2 = 1
        case 2
            if NombreHommeDarmeIAm2TERR2 <= 0 and NombreLancierIAm2TERR2 <= 0 and NombreFrondeurIAm2TERR2 <= 0 and NombreArcherIAm2TERR2 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm2TERR2 > 0 or NombreLancierIAm2TERR2 > 0 or NombreFrondeurIAm2TERR2 > 0 or NombreArcherIAm2TERR2 > 0 then fight2 = 1
        case 3
            if NombreHommeDarmeIAm2TERR3 <= 0 and NombreLancierIAm2TERR3 <= 0 and NombreFrondeurIAm2TERR3 <= 0 and NombreArcherIAm2TERR3 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm2TERR3 > 0 or NombreLancierIAm2TERR3 > 0 or NombreFrondeurIAm2TERR3 > 0 or NombreArcherIAm2TERR3 > 0 then fight2 = 1
        case 4
            if NombreHommeDarmeIAm2TERR4 <= 0 and NombreLancierIAm2TERR4 <= 0 and NombreFrondeurIAm2TERR4 <= 0 and NombreArcherIAm2TERR4 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm2TERR4 > 0 or NombreLancierIAm2TERR4 > 0 or NombreFrondeurIAm2TERR4 > 0 or NombreArcherIAm2TERR4 > 0 then fight2 = 1
        case 5
            if NombreHommeDarmeIAm2TERR5 <= 0 and NombreLancierIAm2TERR5 <= 0 and NombreFrondeurIAm2TERR5 <= 0 and NombreArcherIAm2TERR5 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm2TERR5 > 0 or NombreLancierIAm2TERR5 > 0 or NombreFrondeurIAm2TERR5 > 0 or NombreArcherIAm2TERR5 > 0 then fight2 = 1
        case 6
            if NombreHommeDarmeIAm2TERR6 <= 0 and NombreLancierIAm2TERR6 <= 0 and NombreFrondeurIAm2TERR6 <= 0 and NombreArcherIAm2TERR6 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm2TERR6 > 0 or NombreLancierIAm2TERR6 > 0 or NombreFrondeurIAm2TERR6 > 0 or NombreArcherIAm2TERR6 > 0 then fight2 = 1
        case 7
            if NombreHommeDarmeIAm2TERR7 <= 0 and NombreLancierIAm2TERR7 <= 0 and NombreFrondeurIAm2TERR7 <= 0 and NombreArcherIAm2TERR7 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm2TERR7 > 0 or NombreLancierIAm2TERR7 > 0 or NombreFrondeurIAm2TERR7 > 0 or NombreArcherIAm2TERR7 > 0 then fight2 = 1
        case 8
            if NombreHommeDarmeIAm2TERR8 <= 0 and NombreLancierIAm2TERR8 <= 0 and NombreFrondeurIAm2TERR8 <= 0 and NombreArcherIAm2TERR8 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm2TERR8 > 0 or NombreLancierIAm2TERR8 > 0 or NombreFrondeurIAm2TERR8 > 0 or NombreArcherIAm2TERR8 > 0 then fight2 = 1
        case 9
            if NombreHommeDarmeIAm2TERR9 <= 0 and NombreLancierIAm2TERR9 <= 0 and NombreFrondeurIAm2TERR9 <= 0 and NombreArcherIAm2TERR9 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm2TERR9 > 0 or NombreLancierIAm2TERR9 > 0 or NombreFrondeurIAm2TERR9 > 0 or NombreArcherIAm2TERR9 > 0 then fight2 = 1
        case 10
            if NombreHommeDarmeIAm2TERR10 <= 0 and NombreLancierIAm2TERR10 <= 0 and NombreFrondeurIAm2TERR10 <= 0 and NombreArcherIAm2TERR10 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm2TERR10 > 0 or NombreLancierIAm2TERR10 > 0 or NombreFrondeurIAm2TERR10 > 0 or NombreArcherIAm2TERR10 > 0 then fight2 = 1
        case 11
            if NombreHommeDarmeIAm2TERR11 <= 0 and NombreLancierIAm2TERR11 <= 0 and NombreFrondeurIAm2TERR11 <= 0 and NombreArcherIAm2TERR11 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm2TERR11 > 0 or NombreLancierIAm2TERR11 > 0 or NombreFrondeurIAm2TERR11 > 0 or NombreArcherIAm2TERR11 > 0 then fight2 = 1
        case 12
            if NombreHommeDarmeIAm2TERR12 <= 0 and NombreLancierIAm2TERR12 <= 0 and NombreFrondeurIAm2TERR12 <= 0 and NombreArcherIAm2TERR12 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm2TERR12 > 0 or NombreLancierIAm2TERR12 > 0 or NombreFrondeurIAm2TERR12 > 0 or NombreArcherIAm2TERR12 > 0 then fight2 = 1
        case 13
            if NombreHommeDarmeIAm2TERR13 <= 0 and NombreLancierIAm2TERR13 <= 0 and NombreFrondeurIAm2TERR13 <= 0 and NombreArcherIAm2TERR13 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm2TERR13 > 0 or NombreLancierIAm2TERR13 > 0 or NombreFrondeurIAm2TERR13 > 0 or NombreArcherIAm2TERR13 > 0 then fight2 = 1
        case 14
            if NombreHommeDarmeIAm2TERR14 <= 0 and NombreLancierIAm2TERR14 <= 0 and NombreFrondeurIAm2TERR14 <= 0 and NombreArcherIAm2TERR14 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm2TERR14 > 0 or NombreLancierIAm2TERR14 > 0 or NombreFrondeurIAm2TERR14 > 0 or NombreArcherIAm2TERR14 > 0 then fight2 = 1
        case 15
            if NombreHommeDarmeIAm2TERR15 <= 0 and NombreLancierIAm2TERR15 <= 0 and NombreFrondeurIAm2TERR15 <= 0 and NombreArcherIAm2TERR15 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm2TERR15 > 0 or NombreLancierIAm2TERR15 > 0 or NombreFrondeurIAm2TERR15 > 0 or NombreArcherIAm2TERR15 > 0 then fight2 = 1
        case 16
            if NombreHommeDarmeIAm2TERR16 <= 0 and NombreLancierIAm2TERR16 <= 0 and NombreFrondeurIAm2TERR16 <= 0 and NombreArcherIAm2TERR16 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm2TERR16 > 0 or NombreLancierIAm2TERR16 > 0 or NombreFrondeurIAm2TERR16 > 0 or NombreArcherIAm2TERR16 > 0 then fight2 = 1
        case 17
            if NombreHommeDarmeIAm2TERR17 <= 0 and NombreLancierIAm2TERR17 <= 0 and NombreFrondeurIAm2TERR17 <= 0 and NombreArcherIAm2TERR17 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm2TERR17 > 0 or NombreLancierIAm2TERR17 > 0 or NombreFrondeurIAm2TERR17 > 0 or NombreArcherIAm2TERR17 > 0 then fight2 = 1
        case 18
            if NombreHommeDarmeIAm2TERR18 <= 0 and NombreLancierIAm2TERR18 <= 0 and NombreFrondeurIAm2TERR18 <= 0 and NombreArcherIAm2TERR18 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm2TERR18 > 0 or NombreLancierIAm2TERR18 > 0 or NombreFrondeurIAm2TERR18 > 0 or NombreArcherIAm2TERR18 > 0 then fight2 = 1
        case 19
            if NombreHommeDarmeIAm2TERR19 <= 0 and NombreLancierIAm2TERR19 <= 0 and NombreFrondeurIAm2TERR19 <= 0 and NombreArcherIAm2TERR19 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm2TERR19 > 0 or NombreLancierIAm2TERR19 > 0 or NombreFrondeurIAm2TERR19 > 0 or NombreArcherIAm2TERR19 > 0 then fight2 = 1
        case 20
            if NombreHommeDarmeIAm2TERR20 <= 0 and NombreLancierIAm2TERR20 <= 0 and NombreFrondeurIAm2TERR20 <= 0 and NombreArcherIAm2TERR20 <= 0 then fight2 = 0
            if NombreHommeDarmeIAm2TERR20 > 0 or NombreLancierIAm2TERR20 > 0 or NombreFrondeurIAm2TERR20 > 0 or NombreArcherIAm2TERR20 > 0 then fight2 = 1
    end select
end select

if fight1 > 0 and fight2 > 0 then goto [boucleDEFia1Bterr]

select case playerDEF
case 2
    select case territoire
        case 1
            perteHOMMEdarmeIAm1 = int(NombreHommeDarmeIAm1TEMP-NombreHommeDarmeIAm1TERR1) : if perteHOMMEdarmeIAm1<0 then perteHOMMEdarmeIAm1 = 0
            perteLANCIERIAm1 = int(NombreLancierIAm1TEMP-NombreLancierIAm1TERR1) : if perteLANCIERIAm1<0 then perteLANCIERIAm1 = 0
            perteFRONDEURIAm1 = int(NombreFrondeurIAm1TEMP-NombreFrondeurIAm1TERR1) : if perteFRONDEURIAm1<0 then perteFRONDEURIAm1 = 0
            perteARCHERIAm1 = int(NombreArcherIAm1TEMP-NombreArcherIAm1TERR1) : if perteARCHERIAm1<0 then perteARCHERIAm1 = 0
        case 2
            perteHOMMEdarmeIAm1 = int(NombreHommeDarmeIAm1TEMP-NombreHommeDarmeIAm1TERR2) : if perteHOMMEdarmeIAm1<0 then perteHOMMEdarmeIAm1 = 0
            perteLANCIERIAm1 = int(NombreLancierIAm1TEMP-NombreLancierIAm1TERR2) : if perteLANCIERIAm1<0 then perteLANCIERIAm1 = 0
            perteFRONDEURIAm1 = int(NombreFrondeurIAm1TEMP-NombreFrondeurIAm1TERR2) : if perteFRONDEURIAm1<0 then perteFRONDEURIAm1 = 0
            perteARCHERIAm1 = int(NombreArcherIAm1TEMP-NombreArcherIAm1TERR2) : if perteARCHERIAm1<0 then perteARCHERIAm1 = 0
        case 3
            perteHOMMEdarmeIAm1 = int(NombreHommeDarmeIAm1TEMP-NombreHommeDarmeIAm1TERR3) : if perteHOMMEdarmeIAm1<0 then perteHOMMEdarmeIAm1 = 0
            perteLANCIERIAm1 = int(NombreLancierIAm1TEMP-NombreLancierIAm1TERR3) : if perteLANCIERIAm1<0 then perteLANCIERIAm1 = 0
            perteFRONDEURIAm1 = int(NombreFrondeurIAm1TEMP-NombreFrondeurIAm1TERR3) : if perteFRONDEURIAm1<0 then perteFRONDEURIAm1 = 0
            perteARCHERIAm1 = int(NombreArcherIAm1TEMP-NombreArcherIAm1TERR3) : if perteARCHERIAm1<0 then perteARCHERIAm1 = 0
        case 4
            perteHOMMEdarmeIAm1 = int(NombreHommeDarmeIAm1TEMP-NombreHommeDarmeIAm1TERR4) : if perteHOMMEdarmeIAm1<0 then perteHOMMEdarmeIAm1 = 0
            perteLANCIERIAm1 = int(NombreLancierIAm1TEMP-NombreLancierIAm1TERR4) : if perteLANCIERIAm1<0 then perteLANCIERIAm1 = 0
            perteFRONDEURIAm1 = int(NombreFrondeurIAm1TEMP-NombreFrondeurIAm1TERR4) : if perteFRONDEURIAm1<0 then perteFRONDEURIAm1 = 0
            perteARCHERIAm1 = int(NombreArcherIAm1TEMP-NombreArcherIAm1TERR4) : if perteARCHERIAm1<0 then perteARCHERIAm1 = 0
        case 5
            perteHOMMEdarmeIAm1 = int(NombreHommeDarmeIAm1TEMP-NombreHommeDarmeIAm1TERR5) : if perteHOMMEdarmeIAm1<0 then perteHOMMEdarmeIAm1 = 0
            perteLANCIERIAm1 = int(NombreLancierIAm1TEMP-NombreLancierIAm1TERR5) : if perteLANCIERIAm1<0 then perteLANCIERIAm1 = 0
            perteFRONDEURIAm1 = int(NombreFrondeurIAm1TEMP-NombreFrondeurIAm1TERR5) : if perteFRONDEURIAm1<0 then perteFRONDEURIAm1 = 0
            perteARCHERIAm1 = int(NombreArcherIAm1TEMP-NombreArcherIAm1TERR5) : if perteARCHERIAm1<0 then perteARCHERIAm1 = 0
        case 6
            perteHOMMEdarmeIAm1 = int(NombreHommeDarmeIAm1TEMP-NombreHommeDarmeIAm1TERR6) : if perteHOMMEdarmeIAm1<0 then perteHOMMEdarmeIAm1 = 0
            perteLANCIERIAm1 = int(NombreLancierIAm1TEMP-NombreLancierIAm1TERR6) : if perteLANCIERIAm1<0 then perteLANCIERIAm1 = 0
            perteFRONDEURIAm1 = int(NombreFrondeurIAm1TEMP-NombreFrondeurIAm1TERR6) : if perteFRONDEURIAm1<0 then perteFRONDEURIAm1 = 0
            perteARCHERIAm1 = int(NombreArcherIAm1TEMP-NombreArcherIAm1TERR6) : if perteARCHERIAm1<0 then perteARCHERIAm1 = 0
        case 7
            perteHOMMEdarmeIAm1 = int(NombreHommeDarmeIAm1TEMP-NombreHommeDarmeIAm1TERR7) : if perteHOMMEdarmeIAm1<0 then perteHOMMEdarmeIAm1 = 0
            perteLANCIERIAm1 = int(NombreLancierIAm1TEMP-NombreLancierIAm1TERR7) : if perteLANCIERIAm1<0 then perteLANCIERIAm1 = 0
            perteFRONDEURIAm1 = int(NombreFrondeurIAm1TEMP-NombreFrondeurIAm1TERR7) : if perteFRONDEURIAm1<0 then perteFRONDEURIAm1 = 0
            perteARCHERIAm1 = int(NombreArcherIAm1TEMP-NombreArcherIAm1TERR7) : if perteARCHERIAm1<0 then perteARCHERIAm1 = 0
        case 8
            perteHOMMEdarmeIAm1 = int(NombreHommeDarmeIAm1TEMP-NombreHommeDarmeIAm1TERR8) : if perteHOMMEdarmeIAm1<0 then perteHOMMEdarmeIAm1 = 0
            perteLANCIERIAm1 = int(NombreLancierIAm1TEMP-NombreLancierIAm1TERR8) : if perteLANCIERIAm1<0 then perteLANCIERIAm1 = 0
            perteFRONDEURIAm1 = int(NombreFrondeurIAm1TEMP-NombreFrondeurIAm1TERR8) : if perteFRONDEURIAm1<0 then perteFRONDEURIAm1 = 0
            perteARCHERIAm1 = int(NombreArcherIAm1TEMP-NombreArcherIAm1TERR8) : if perteARCHERIAm1<0 then perteARCHERIAm1 = 0
        case 9
            perteHOMMEdarmeIAm1 = int(NombreHommeDarmeIAm1TEMP-NombreHommeDarmeIAm1TERR9) : if perteHOMMEdarmeIAm1<0 then perteHOMMEdarmeIAm1 = 0
            perteLANCIERIAm1 = int(NombreLancierIAm1TEMP-NombreLancierIAm1TERR9) : if perteLANCIERIAm1<0 then perteLANCIERIAm1 = 0
            perteFRONDEURIAm1 = int(NombreFrondeurIAm1TEMP-NombreFrondeurIAm1TERR9) : if perteFRONDEURIAm1<0 then perteFRONDEURIAm1 = 0
            perteARCHERIAm1 = int(NombreArcherIAm1TEMP-NombreArcherIAm1TERR9) : if perteARCHERIAm1<0 then perteARCHERIAm1 = 0
        case 10
            perteHOMMEdarmeIAm1 = int(NombreHommeDarmeIAm1TEMP-NombreHommeDarmeIAm1TERR10) : if perteHOMMEdarmeIAm1<0 then perteHOMMEdarmeIAm1 = 0
            perteLANCIERIAm1 = int(NombreLancierIAm1TEMP-NombreLancierIAm1TERR10) : if perteLANCIERIAm1<0 then perteLANCIERIAm1 = 0
            perteFRONDEURIAm1 = int(NombreFrondeurIAm1TEMP-NombreFrondeurIAm1TERR10) : if perteFRONDEURIAm1<0 then perteFRONDEURIAm1 = 0
            perteARCHERIAm1 = int(NombreArcherIAm1TEMP-NombreArcherIAm1TERR10) : if perteARCHERIAm1<0 then perteARCHERIAm1 = 0
        case 11
            perteHOMMEdarmeIAm1 = int(NombreHommeDarmeIAm1TEMP-NombreHommeDarmeIAm1TERR11) : if perteHOMMEdarmeIAm1<0 then perteHOMMEdarmeIAm1 = 0
            perteLANCIERIAm1 = int(NombreLancierIAm1TEMP-NombreLancierIAm1TERR11) : if perteLANCIERIAm1<0 then perteLANCIERIAm1 = 0
            perteFRONDEURIAm1 = int(NombreFrondeurIAm1TEMP-NombreFrondeurIAm1TERR11) : if perteFRONDEURIAm1<0 then perteFRONDEURIAm1 = 0
            perteARCHERIAm1 = int(NombreArcherIAm1TEMP-NombreArcherIAm1TERR11) : if perteARCHERIAm1<0 then perteARCHERIAm1 = 0
        case 12
            perteHOMMEdarmeIAm1 = int(NombreHommeDarmeIAm1TEMP-NombreHommeDarmeIAm1TERR12) : if perteHOMMEdarmeIAm1<0 then perteHOMMEdarmeIAm1 = 0
            perteLANCIERIAm1 = int(NombreLancierIAm1TEMP-NombreLancierIAm1TERR12) : if perteLANCIERIAm1<0 then perteLANCIERIAm1 = 0
            perteFRONDEURIAm1 = int(NombreFrondeurIAm1TEMP-NombreFrondeurIAm1TERR12) : if perteFRONDEURIAm1<0 then perteFRONDEURIAm1 = 0
            perteARCHERIAm1 = int(NombreArcherIAm1TEMP-NombreArcherIAm1TERR12) : if perteARCHERIAm1<0 then perteARCHERIAm1 = 0
        case 13
            perteHOMMEdarmeIAm1 = int(NombreHommeDarmeIAm1TEMP-NombreHommeDarmeIAm1TERR13) : if perteHOMMEdarmeIAm1<0 then perteHOMMEdarmeIAm1 = 0
            perteLANCIERIAm1 = int(NombreLancierIAm1TEMP-NombreLancierIAm1TERR13) : if perteLANCIERIAm1<0 then perteLANCIERIAm1 = 0
            perteFRONDEURIAm1 = int(NombreFrondeurIAm1TEMP-NombreFrondeurIAm1TERR13) : if perteFRONDEURIAm1<0 then perteFRONDEURIAm1 = 0
            perteARCHERIAm1 = int(NombreArcherIAm1TEMP-NombreArcherIAm1TERR13) : if perteARCHERIAm1<0 then perteARCHERIAm1 = 0
        case 14
            perteHOMMEdarmeIAm1 = int(NombreHommeDarmeIAm1TEMP-NombreHommeDarmeIAm1TERR14) : if perteHOMMEdarmeIAm1<0 then perteHOMMEdarmeIAm1 = 0
            perteLANCIERIAm1 = int(NombreLancierIAm1TEMP-NombreLancierIAm1TERR14) : if perteLANCIERIAm1<0 then perteLANCIERIAm1 = 0
            perteFRONDEURIAm1 = int(NombreFrondeurIAm1TEMP-NombreFrondeurIAm1TERR14) : if perteFRONDEURIAm1<0 then perteFRONDEURIAm1 = 0
            perteARCHERIAm1 = int(NombreArcherIAm1TEMP-NombreArcherIAm1TERR14) : if perteARCHERIAm1<0 then perteARCHERIAm1 = 0
        case 15
            perteHOMMEdarmeIAm1 = int(NombreHommeDarmeIAm1TEMP-NombreHommeDarmeIAm1TERR15) : if perteHOMMEdarmeIAm1<0 then perteHOMMEdarmeIAm1 = 0
            perteLANCIERIAm1 = int(NombreLancierIAm1TEMP-NombreLancierIAm1TERR15) : if perteLANCIERIAm1<0 then perteLANCIERIAm1 = 0
            perteFRONDEURIAm1 = int(NombreFrondeurIAm1TEMP-NombreFrondeurIAm1TERR15) : if perteFRONDEURIAm1<0 then perteFRONDEURIAm1 = 0
            perteARCHERIAm1 = int(NombreArcherIAm1TEMP-NombreArcherIAm1TERR15) : if perteARCHERIAm1<0 then perteARCHERIAm1 = 0
        case 16
            perteHOMMEdarmeIAm1 = int(NombreHommeDarmeIAm1TEMP-NombreHommeDarmeIAm1TERR16) : if perteHOMMEdarmeIAm1<0 then perteHOMMEdarmeIAm1 = 0
            perteLANCIERIAm1 = int(NombreLancierIAm1TEMP-NombreLancierIAm1TERR16) : if perteLANCIERIAm1<0 then perteLANCIERIAm1 = 0
            perteFRONDEURIAm1 = int(NombreFrondeurIAm1TEMP-NombreFrondeurIAm1TERR16) : if perteFRONDEURIAm1<0 then perteFRONDEURIAm1 = 0
            perteARCHERIAm1 = int(NombreArcherIAm1TEMP-NombreArcherIAm1TERR16) : if perteARCHERIAm1<0 then perteARCHERIAm1 = 0
        case 17
            perteHOMMEdarmeIAm1 = int(NombreHommeDarmeIAm1TEMP-NombreHommeDarmeIAm1TERR17) : if perteHOMMEdarmeIAm1<0 then perteHOMMEdarmeIAm1 = 0
            perteLANCIERIAm1 = int(NombreLancierIAm1TEMP-NombreLancierIAm1TERR17) : if perteLANCIERIAm1<0 then perteLANCIERIAm1 = 0
            perteFRONDEURIAm1 = int(NombreFrondeurIAm1TEMP-NombreFrondeurIAm1TERR17) : if perteFRONDEURIAm1<0 then perteFRONDEURIAm1 = 0
            perteARCHERIAm1 = int(NombreArcherIAm1TEMP-NombreArcherIAm1TERR17) : if perteARCHERIAm1<0 then perteARCHERIAm1 = 0
        case 18
            perteHOMMEdarmeIAm1 = int(NombreHommeDarmeIAm1TEMP-NombreHommeDarmeIAm1TERR18) : if perteHOMMEdarmeIAm1<0 then perteHOMMEdarmeIAm1 = 0
            perteLANCIERIAm1 = int(NombreLancierIAm1TEMP-NombreLancierIAm1TERR18) : if perteLANCIERIAm1<0 then perteLANCIERIAm1 = 0
            perteFRONDEURIAm1 = int(NombreFrondeurIAm1TEMP-NombreFrondeurIAm1TERR18) : if perteFRONDEURIAm1<0 then perteFRONDEURIAm1 = 0
            perteARCHERIAm1 = int(NombreArcherIAm1TEMP-NombreArcherIAm1TERR18) : if perteARCHERIAm1<0 then perteARCHERIAm1 = 0
        case 19
            perteHOMMEdarmeIAm1 = int(NombreHommeDarmeIAm1TEMP-NombreHommeDarmeIAm1TERR19) : if perteHOMMEdarmeIAm1<0 then perteHOMMEdarmeIAm1 = 0
            perteLANCIERIAm1 = int(NombreLancierIAm1TEMP-NombreLancierIAm1TERR19) : if perteLANCIERIAm1<0 then perteLANCIERIAm1 = 0
            perteFRONDEURIAm1 = int(NombreFrondeurIAm1TEMP-NombreFrondeurIAm1TERR19) : if perteFRONDEURIAm1<0 then perteFRONDEURIAm1 = 0
            perteARCHERIAm1 = int(NombreArcherIAm1TEMP-NombreArcherIAm1TERR19) : if perteARCHERIAm1<0 then perteARCHERIAm1 = 0
        case 20
            perteHOMMEdarmeIAm1 = int(NombreHommeDarmeIAm1TEMP-NombreHommeDarmeIAm1TERR20) : if perteHOMMEdarmeIAm1<0 then perteHOMMEdarmeIAm1 = 0
            perteLANCIERIAm1 = int(NombreLancierIAm1TEMP-NombreLancierIAm1TERR20) : if perteLANCIERIAm1<0 then perteLANCIERIAm1 = 0
            perteFRONDEURIAm1 = int(NombreFrondeurIAm1TEMP-NombreFrondeurIAm1TERR20) : if perteFRONDEURIAm1<0 then perteFRONDEURIAm1 = 0
            perteARCHERIAm1 = int(NombreArcherIAm1TEMP-NombreArcherIAm1TERR20) : if perteARCHERIAm1<0 then perteARCHERIAm1 = 0
        end select

        popMILITIAm1 = popMILITIAm1 - int(perteHOMMEdarmeIAm1+perteLANCIERIAm1+perteFRONDEURIAm1+perteARCHERIAm1)
        popTOTALIAm1 = int(popSCIENTIAm1 +  popMILITIAm1 + popCIVILiam1)
        popCIVILiam1 = int(popTOTALIAm1-(popSCIENTIAm1+popMILITIAm1))

        if popTOTALIAm1 <0 then popTOTALIAm1 = 0

case 3
    select case territoire
        case 1
            perteHOMMEdarmeIAm2 = int(NombreHommeDarmeIAm2TEMP-NombreHommeDarmeIAm2TERR1) : if perteHOMMEdarmeIAm2<0 then perteHOMMEdarmeIAm2 = 0
            perteLANCIERIAm2 = int(NombreLancierIAm2TEMP-NombreLancierIAm2TERR1) : if perteLANCIERIAm2<0 then perteLANCIERIAm2 = 0
            perteFRONDEURIAm2 = int(NombreFrondeurIAm2TEMP-NombreFrondeurIAm2TERR1) : if perteFRONDEURIAm2<0 then perteFRONDEURIAm2 = 0
            perteARCHERIAm2 = int(NombreArcherIAm2TEMP-NombreArcherIAm2TERR1) : if perteARCHERIAm2<0 then perteARCHERIAm2 = 0
        case 2
            perteHOMMEdarmeIAm2 = int(NombreHommeDarmeIAm2TEMP-NombreHommeDarmeIAm2TERR2) : if perteHOMMEdarmeIAm2<0 then perteHOMMEdarmeIAm2 = 0
            perteLANCIERIAm2 = int(NombreLancierIAm2TEMP-NombreLancierIAm2TERR2) : if perteLANCIERIAm2<0 then perteLANCIERIAm2 = 0
            perteFRONDEURIAm2 = int(NombreFrondeurIAm2TEMP-NombreFrondeurIAm2TERR2) : if perteFRONDEURIAm2<0 then perteFRONDEURIAm2 = 0
            perteARCHERIAm2 = int(NombreArcherIAm2TEMP-NombreArcherIAm2TERR2) : if perteARCHERIAm2<0 then perteARCHERIAm2 = 0
        case 3
            perteHOMMEdarmeIAm2 = int(NombreHommeDarmeIAm2TEMP-NombreHommeDarmeIAm2TERR3) : if perteHOMMEdarmeIAm2<0 then perteHOMMEdarmeIAm2 = 0
            perteLANCIERIAm2 = int(NombreLancierIAm2TEMP-NombreLancierIAm2TERR3) : if perteLANCIERIAm2<0 then perteLANCIERIAm2 = 0
            perteFRONDEURIAm2 = int(NombreFrondeurIAm2TEMP-NombreFrondeurIAm2TERR3) : if perteFRONDEURIAm2<0 then perteFRONDEURIAm2 = 0
            perteARCHERIAm2 = int(NombreArcherIAm2TEMP-NombreArcherIAm2TERR3) : if perteARCHERIAm2<0 then perteARCHERIAm2 = 0
        case 4
            perteHOMMEdarmeIAm2 = int(NombreHommeDarmeIAm2TEMP-NombreHommeDarmeIAm2TERR4) : if perteHOMMEdarmeIAm2<0 then perteHOMMEdarmeIAm2 = 0
            perteLANCIERIAm2 = int(NombreLancierIAm2TEMP-NombreLancierIAm2TERR4) : if perteLANCIERIAm2<0 then perteLANCIERIAm2 = 0
            perteFRONDEURIAm2 = int(NombreFrondeurIAm2TEMP-NombreFrondeurIAm2TERR4) : if perteFRONDEURIAm2<0 then perteFRONDEURIAm2 = 0
            perteARCHERIAm2 = int(NombreArcherIAm2TEMP-NombreArcherIAm2TERR4) : if perteARCHERIAm2<0 then perteARCHERIAm2 = 0
        case 5
            perteHOMMEdarmeIAm2 = int(NombreHommeDarmeIAm2TEMP-NombreHommeDarmeIAm2TERR5) : if perteHOMMEdarmeIAm2<0 then perteHOMMEdarmeIAm2 = 0
            perteLANCIERIAm2 = int(NombreLancierIAm2TEMP-NombreLancierIAm2TERR5) : if perteLANCIERIAm2<0 then perteLANCIERIAm2 = 0
            perteFRONDEURIAm2 = int(NombreFrondeurIAm2TEMP-NombreFrondeurIAm2TERR5) : if perteFRONDEURIAm2<0 then perteFRONDEURIAm2 = 0
            perteARCHERIAm2 = int(NombreArcherIAm2TEMP-NombreArcherIAm2TERR5) : if perteARCHERIAm2<0 then perteARCHERIAm2 = 0
        case 6
            perteHOMMEdarmeIAm2 = int(NombreHommeDarmeIAm2TEMP-NombreHommeDarmeIAm2TERR6) : if perteHOMMEdarmeIAm2<0 then perteHOMMEdarmeIAm2 = 0
            perteLANCIERIAm2 = int(NombreLancierIAm2TEMP-NombreLancierIAm2TERR6) : if perteLANCIERIAm2<0 then perteLANCIERIAm2 = 0
            perteFRONDEURIAm2 = int(NombreFrondeurIAm2TEMP-NombreFrondeurIAm2TERR6) : if perteFRONDEURIAm2<0 then perteFRONDEURIAm2 = 0
            perteARCHERIAm2 = int(NombreArcherIAm2TEMP-NombreArcherIAm2TERR6) : if perteARCHERIAm2<0 then perteARCHERIAm2 = 0
        case 7
            perteHOMMEdarmeIAm2 = int(NombreHommeDarmeIAm2TEMP-NombreHommeDarmeIAm2TERR7) : if perteHOMMEdarmeIAm2<0 then perteHOMMEdarmeIAm2 = 0
            perteLANCIERIAm2 = int(NombreLancierIAm2TEMP-NombreLancierIAm2TERR7) : if perteLANCIERIAm2<0 then perteLANCIERIAm2 = 0
            perteFRONDEURIAm2 = int(NombreFrondeurIAm2TEMP-NombreFrondeurIAm2TERR7) : if perteFRONDEURIAm2<0 then perteFRONDEURIAm2 = 0
            perteARCHERIAm2 = int(NombreArcherIAm2TEMP-NombreArcherIAm2TERR7) : if perteARCHERIAm2<0 then perteARCHERIAm2 = 0
        case 8
            perteHOMMEdarmeIAm2 = int(NombreHommeDarmeIAm2TEMP-NombreHommeDarmeIAm2TERR8) : if perteHOMMEdarmeIAm2<0 then perteHOMMEdarmeIAm2 = 0
            perteLANCIERIAm2 = int(NombreLancierIAm2TEMP-NombreLancierIAm2TERR8) : if perteLANCIERIAm2<0 then perteLANCIERIAm2 = 0
            perteFRONDEURIAm2 = int(NombreFrondeurIAm2TEMP-NombreFrondeurIAm2TERR8) : if perteFRONDEURIAm2<0 then perteFRONDEURIAm2 = 0
            perteARCHERIAm2 = int(NombreArcherIAm2TEMP-NombreArcherIAm2TERR8) : if perteARCHERIAm2<0 then perteARCHERIAm2 = 0
        case 9
            perteHOMMEdarmeIAm2 = int(NombreHommeDarmeIAm2TEMP-NombreHommeDarmeIAm2TERR9) : if perteHOMMEdarmeIAm2<0 then perteHOMMEdarmeIAm2 = 0
            perteLANCIERIAm2 = int(NombreLancierIAm2TEMP-NombreLancierIAm2TERR9) : if perteLANCIERIAm2<0 then perteLANCIERIAm2 = 0
            perteFRONDEURIAm2 = int(NombreFrondeurIAm2TEMP-NombreFrondeurIAm2TERR9) : if perteFRONDEURIAm2<0 then perteFRONDEURIAm2 = 0
            perteARCHERIAm2 = int(NombreArcherIAm2TEMP-NombreArcherIAm2TERR9) : if perteARCHERIAm2<0 then perteARCHERIAm2 = 0
        case 10
            perteHOMMEdarmeIAm2 = int(NombreHommeDarmeIAm2TEMP-NombreHommeDarmeIAm2TERR10) : if perteHOMMEdarmeIAm2<0 then perteHOMMEdarmeIAm2 = 0
            perteLANCIERIAm2 = int(NombreLancierIAm2TEMP-NombreLancierIAm2TERR10) : if perteLANCIERIAm2<0 then perteLANCIERIAm2 = 0
            perteFRONDEURIAm2 = int(NombreFrondeurIAm2TEMP-NombreFrondeurIAm2TERR10) : if perteFRONDEURIAm2<0 then perteFRONDEURIAm2 = 0
            perteARCHERIAm2 = int(NombreArcherIAm2TEMP-NombreArcherIAm2TERR10) : if perteARCHERIAm2<0 then perteARCHERIAm2 = 0
        case 11
            perteHOMMEdarmeIAm2 = int(NombreHommeDarmeIAm2TEMP-NombreHommeDarmeIAm2TERR11) : if perteHOMMEdarmeIAm2<0 then perteHOMMEdarmeIAm2 = 0
            perteLANCIERIAm2 = int(NombreLancierIAm2TEMP-NombreLancierIAm2TERR11) : if perteLANCIERIAm2<0 then perteLANCIERIAm2 = 0
            perteFRONDEURIAm2 = int(NombreFrondeurIAm2TEMP-NombreFrondeurIAm2TERR11) : if perteFRONDEURIAm2<0 then perteFRONDEURIAm2 = 0
            perteARCHERIAm2 = int(NombreArcherIAm2TEMP-NombreArcherIAm2TERR11) : if perteARCHERIAm2<0 then perteARCHERIAm2 = 0
        case 12
            perteHOMMEdarmeIAm2 = int(NombreHommeDarmeIAm2TEMP-NombreHommeDarmeIAm2TERR12) : if perteHOMMEdarmeIAm2<0 then perteHOMMEdarmeIAm2 = 0
            perteLANCIERIAm2 = int(NombreLancierIAm2TEMP-NombreLancierIAm2TERR12) : if perteLANCIERIAm2<0 then perteLANCIERIAm2 = 0
            perteFRONDEURIAm2 = int(NombreFrondeurIAm2TEMP-NombreFrondeurIAm2TERR12) : if perteFRONDEURIAm2<0 then perteFRONDEURIAm2 = 0
            perteARCHERIAm2 = int(NombreArcherIAm2TEMP-NombreArcherIAm2TERR12) : if perteARCHERIAm2<0 then perteARCHERIAm2 = 0
        case 13
            perteHOMMEdarmeIAm2 = int(NombreHommeDarmeIAm2TEMP-NombreHommeDarmeIAm2TERR13) : if perteHOMMEdarmeIAm2<0 then perteHOMMEdarmeIAm2 = 0
            perteLANCIERIAm2 = int(NombreLancierIAm2TEMP-NombreLancierIAm2TERR13) : if perteLANCIERIAm2<0 then perteLANCIERIAm2 = 0
            perteFRONDEURIAm2 = int(NombreFrondeurIAm2TEMP-NombreFrondeurIAm2TERR13) : if perteFRONDEURIAm2<0 then perteFRONDEURIAm2 = 0
            perteARCHERIAm2 = int(NombreArcherIAm2TEMP-NombreArcherIAm2TERR13) : if perteARCHERIAm2<0 then perteARCHERIAm2 = 0
        case 14
            perteHOMMEdarmeIAm2 = int(NombreHommeDarmeIAm2TEMP-NombreHommeDarmeIAm2TERR14) : if perteHOMMEdarmeIAm2<0 then perteHOMMEdarmeIAm2 = 0
            perteLANCIERIAm2 = int(NombreLancierIAm2TEMP-NombreLancierIAm2TERR14) : if perteLANCIERIAm2<0 then perteLANCIERIAm2 = 0
            perteFRONDEURIAm2 = int(NombreFrondeurIAm2TEMP-NombreFrondeurIAm2TERR14) : if perteFRONDEURIAm2<0 then perteFRONDEURIAm2 = 0
            perteARCHERIAm2 = int(NombreArcherIAm2TEMP-NombreArcherIAm2TERR14) : if perteARCHERIAm2<0 then perteARCHERIAm2 = 0
        case 15
            perteHOMMEdarmeIAm2 = int(NombreHommeDarmeIAm2TEMP-NombreHommeDarmeIAm2TERR15) : if perteHOMMEdarmeIAm2<0 then perteHOMMEdarmeIAm2 = 0
            perteLANCIERIAm2 = int(NombreLancierIAm2TEMP-NombreLancierIAm2TERR15) : if perteLANCIERIAm2<0 then perteLANCIERIAm2 = 0
            perteFRONDEURIAm2 = int(NombreFrondeurIAm2TEMP-NombreFrondeurIAm2TERR15) : if perteFRONDEURIAm2<0 then perteFRONDEURIAm2 = 0
            perteARCHERIAm2 = int(NombreArcherIAm2TEMP-NombreArcherIAm2TERR15) : if perteARCHERIAm2<0 then perteARCHERIAm2 = 0
        case 16
            perteHOMMEdarmeIAm2 = int(NombreHommeDarmeIAm2TEMP-NombreHommeDarmeIAm2TERR16) : if perteHOMMEdarmeIAm2<0 then perteHOMMEdarmeIAm2 = 0
            perteLANCIERIAm2 = int(NombreLancierIAm2TEMP-NombreLancierIAm2TERR16) : if perteLANCIERIAm2<0 then perteLANCIERIAm2 = 0
            perteFRONDEURIAm2 = int(NombreFrondeurIAm2TEMP-NombreFrondeurIAm2TERR16) : if perteFRONDEURIAm2<0 then perteFRONDEURIAm2 = 0
            perteARCHERIAm2 = int(NombreArcherIAm2TEMP-NombreArcherIAm2TERR16) : if perteARCHERIAm2<0 then perteARCHERIAm2 = 0
        case 17
            perteHOMMEdarmeIAm2 = int(NombreHommeDarmeIAm2TEMP-NombreHommeDarmeIAm2TERR17) : if perteHOMMEdarmeIAm2<0 then perteHOMMEdarmeIAm2 = 0
            perteLANCIERIAm2 = int(NombreLancierIAm2TEMP-NombreLancierIAm2TERR17) : if perteLANCIERIAm2<0 then perteLANCIERIAm2 = 0
            perteFRONDEURIAm2 = int(NombreFrondeurIAm2TEMP-NombreFrondeurIAm2TERR17) : if perteFRONDEURIAm2<0 then perteFRONDEURIAm2 = 0
            perteARCHERIAm2 = int(NombreArcherIAm2TEMP-NombreArcherIAm2TERR17) : if perteARCHERIAm2<0 then perteARCHERIAm2 = 0
        case 18
            perteHOMMEdarmeIAm2 = int(NombreHommeDarmeIAm2TEMP-NombreHommeDarmeIAm2TERR18) : if perteHOMMEdarmeIAm2<0 then perteHOMMEdarmeIAm2 = 0
            perteLANCIERIAm2 = int(NombreLancierIAm2TEMP-NombreLancierIAm2TERR18) : if perteLANCIERIAm2<0 then perteLANCIERIAm2 = 0
            perteFRONDEURIAm2 = int(NombreFrondeurIAm2TEMP-NombreFrondeurIAm2TERR18) : if perteFRONDEURIAm2<0 then perteFRONDEURIAm2 = 0
            perteARCHERIAm2 = int(NombreArcherIAm2TEMP-NombreArcherIAm2TERR18) : if perteARCHERIAm2<0 then perteARCHERIAm2 = 0
        case 19
            perteHOMMEdarmeIAm2 = int(NombreHommeDarmeIAm2TEMP-NombreHommeDarmeIAm2TERR19) : if perteHOMMEdarmeIAm2<0 then perteHOMMEdarmeIAm2 = 0
            perteLANCIERIAm2 = int(NombreLancierIAm2TEMP-NombreLancierIAm2TERR19) : if perteLANCIERIAm2<0 then perteLANCIERIAm2 = 0
            perteFRONDEURIAm2 = int(NombreFrondeurIAm2TEMP-NombreFrondeurIAm2TERR19) : if perteFRONDEURIAm2<0 then perteFRONDEURIAm2 = 0
            perteARCHERIAm2 = int(NombreArcherIAm2TEMP-NombreArcherIAm2TERR19) : if perteARCHERIAm2<0 then perteARCHERIAm2 = 0
        case 20
            perteHOMMEdarmeIAm2 = int(NombreHommeDarmeIAm2TEMP-NombreHommeDarmeIAm2TERR20) : if perteHOMMEdarmeIAm2<0 then perteHOMMEdarmeIAm2 = 0
            perteLANCIERIAm2 = int(NombreLancierIAm2TEMP-NombreLancierIAm2TERR20) : if perteLANCIERIAm2<0 then perteLANCIERIAm2 = 0
            perteFRONDEURIAm2 = int(NombreFrondeurIAm2TEMP-NombreFrondeurIAm2TERR20) : if perteFRONDEURIAm2<0 then perteFRONDEURIAm2 = 0
            perteARCHERIAm2 = int(NombreArcherIAm2TEMP-NombreArcherIAm2TERR20) : if perteARCHERIAm2<0 then perteARCHERIAm2 = 0
        end select

        popMILITIAm2 = popMILITIAm2 - int(perteHOMMEdarmeIAm2+perteLANCIERIAm2+perteFRONDEURIAm2+perteARCHERIAm2)
        popTOTALIAm2 = int(popSCIENTIAm2 +  popMILITIAm2 + popCIVILiam2)
        popCIVILiam2 = int(popTOTALIAm2-(popSCIENTIAm2+popMILITIAm2))

        if popTOTALIAm2 <0 then popTOTALIAm2 = 0
end select

perteHOMMEdarme = int(NombreHommeDarmeTEMP-NombreHommeDarmeSELECTED)
perteLANCIER = int(NombreLancierTEMP-NombreLancierSELECTED)
perteFRONDEUR = int(NombreFrondeurTEMP-NombreFrondeurSELECTED)
perteARCHER = int(NombreArcherTEMP-NombreArcherSELECTED)
perteEXPLORATEUR = int(NombreEXPLORATEURTEMP-NombreEXPLORATEURSELECTED)

if perteHOMMEdarme<0 then perteHOMMEdarme = 0
if perteLANCIER<0 then perteLANCIER = 0
if perteFRONDEUR<0 then perteFRONDEUR = 0
if perteARCHER<0 then perteARCHER = 0
if perteEXPLORATEUR<0 then perteEXPLORATEUR = 0

    popMILIT = popMILIT - int(perteHOMMEdarme+perteLANCIER+perteFRONDEUR+perteARCHER+perteEXPLORATEUR)
 '   popCIVIL = popTOTAL - int(popMILIT+popSCIENT)
    popTOTAL = int(popSCIENT + popMILIT + popCIVIL)

    NombreHommeDarme = NombreHommeDarme - perteHOMMEdarme
    NombreLancier = NombreLancier - perteLANCIER
    NombreFrondeur = NombreFrondeur - perteFRONDEUR
    NombreArcher = NombreArcher - perteARCHER
    NombreEXPLORATEUR = NombreEXPLORATEUR - perteEXPLORATEUR

    select case playerDEF
    case 2
        select case territoire
            case 1
            NombreHommeDarmeIAm1SAVE = NombreHommeDarmeIAm1TERR1 : if NombreHommeDarmeIAm1TEMP = 0 then NombreHommeDarmeIAm1SAVE = 0
            NombreLancierIAm1SAVE = NombreLancierIAm1TERR1 : if NombreLancierIAm1TEMP = 0 then NombreLancierIAm1SAVE = 0
            NombreFrondeurIAm1SAVE = NombreFrondeurIAm1TERR1 : if NombreFrondeurIAm1TEMP = 0 then NombreFrondeurIAm1SAVE = 0
            NombreArcherIAm1SAVE = NombreArcherIAm1TERR1 : if NombreArcherIAm1TEMP = 0 then NombreArcherIAm1SAVE = 0
        case 2
            NombreHommeDarmeIAm1SAVE = NombreHommeDarmeIAm1TERR2 : if NombreHommeDarmeIAm1TEMP = 0 then NombreHommeDarmeIAm1SAVE = 0
            NombreLancierIAm1SAVE = NombreLancierIAm1TERR2 : if NombreLancierIAm1TEMP = 0 then NombreLancierIAm1SAVE = 0
            NombreFrondeurIAm1SAVE = NombreFrondeurIAm1TERR2 : if NombreFrondeurIAm1TEMP = 0 then NombreFrondeurIAm1SAVE = 0
            NombreArcherIAm1SAVE = NombreArcherIAm1TERR2 : if NombreArcherIAm1TEMP = 0 then NombreArcherIAm1SAVE = 0
        case 3
            NombreHommeDarmeIAm1SAVE = NombreHommeDarmeIAm1TERR3 : if NombreHommeDarmeIAm1TEMP = 0 then NombreHommeDarmeIAm1SAVE = 0
            NombreLancierIAm1SAVE = NombreLancierIAm1TERR3 : if NombreLancierIAm1TEMP = 0 then NombreLancierIAm1SAVE = 0
            NombreFrondeurIAm1SAVE = NombreFrondeurIAm1TERR3 : if NombreFrondeurIAm1TEMP = 0 then NombreFrondeurIAm1SAVE = 0
            NombreArcherIAm1SAVE = NombreArcherIAm1TERR3 : if NombreArcherIAm1TEMP = 0 then NombreArcherIAm1SAVE = 0
        case 4
            NombreHommeDarmeIAm1SAVE = NombreHommeDarmeIAm1TERR4 : if NombreHommeDarmeIAm1TEMP = 0 then NombreHommeDarmeIAm1SAVE = 0
            NombreLancierIAm1SAVE = NombreLancierIAm1TERR4 : if NombreLancierIAm1TEMP = 0 then NombreLancierIAm1SAVE = 0
            NombreFrondeurIAm1SAVE = NombreFrondeurIAm1TERR4 : if NombreFrondeurIAm1TEMP = 0 then NombreFrondeurIAm1SAVE = 0
            NombreArcherIAm1SAVE = NombreArcherIAm1TERR4 : if NombreArcherIAm1TEMP = 0 then NombreArcherIAm1SAVE = 0
        case 5
            NombreHommeDarmeIAm1SAVE = NombreHommeDarmeIAm1TERR5 : if NombreHommeDarmeIAm1TEMP = 0 then NombreHommeDarmeIAm1SAVE = 0
            NombreLancierIAm1SAVE = NombreLancierIAm1TERR5 : if NombreLancierIAm1TEMP = 0 then NombreLancierIAm1SAVE = 0
            NombreFrondeurIAm1SAVE = NombreFrondeurIAm1TERR5 : if NombreFrondeurIAm1TEMP = 0 then NombreFrondeurIAm1SAVE = 0
            NombreArcherIAm1SAVE = NombreArcherIAm1TERR5 : if NombreArcherIAm1TEMP = 0 then NombreArcherIAm1SAVE = 0
        case 6
            NombreHommeDarmeIAm1SAVE = NombreHommeDarmeIAm1TERR6 : if NombreHommeDarmeIAm1TEMP = 0 then NombreHommeDarmeIAm1SAVE = 0
            NombreLancierIAm1SAVE = NombreLancierIAm1TERR6 : if NombreLancierIAm1TEMP = 0 then NombreLancierIAm1SAVE = 0
            NombreFrondeurIAm1SAVE = NombreFrondeurIAm1TERR6 : if NombreFrondeurIAm1TEMP = 0 then NombreFrondeurIAm1SAVE = 0
            NombreArcherIAm1SAVE = NombreArcherIAm1TERR6 : if NombreArcherIAm1TEMP = 0 then NombreArcherIAm1SAVE = 0
        case 7
            NombreHommeDarmeIAm1SAVE = NombreHommeDarmeIAm1TERR7 : if NombreHommeDarmeIAm1TEMP = 0 then NombreHommeDarmeIAm1SAVE = 0
            NombreLancierIAm1SAVE = NombreLancierIAm1TERR7 : if NombreLancierIAm1TEMP = 0 then NombreLancierIAm1SAVE = 0
            NombreFrondeurIAm1SAVE = NombreFrondeurIAm1TERR7 : if NombreFrondeurIAm1TEMP = 0 then NombreFrondeurIAm1SAVE = 0
            NombreArcherIAm1SAVE = NombreArcherIAm1TERR7 : if NombreArcherIAm1TEMP = 0 then NombreArcherIAm1SAVE = 0
        case 8
            NombreHommeDarmeIAm1SAVE = NombreHommeDarmeIAm1TERR8 : if NombreHommeDarmeIAm1TEMP = 0 then NombreHommeDarmeIAm1SAVE = 0
            NombreLancierIAm1SAVE = NombreLancierIAm1TERR8 : if NombreLancierIAm1TEMP = 0 then NombreLancierIAm1SAVE = 0
            NombreFrondeurIAm1SAVE = NombreFrondeurIAm1TERR8 : if NombreFrondeurIAm1TEMP = 0 then NombreFrondeurIAm1SAVE = 0
            NombreArcherIAm1SAVE = NombreArcherIAm1TERR8 : if NombreArcherIAm1TEMP = 0 then NombreArcherIAm1SAVE = 0
        case 9
            NombreHommeDarmeIAm1SAVE = NombreHommeDarmeIAm1TERR9 : if NombreHommeDarmeIAm1TEMP = 0 then NombreHommeDarmeIAm1SAVE = 0
            NombreLancierIAm1SAVE = NombreLancierIAm1TERR9 : if NombreLancierIAm1TEMP = 0 then NombreLancierIAm1SAVE = 0
            NombreFrondeurIAm1SAVE = NombreFrondeurIAm1TERR9 : if NombreFrondeurIAm1TEMP = 0 then NombreFrondeurIAm1SAVE = 0
            NombreArcherIAm1SAVE = NombreArcherIAm1TERR9 : if NombreArcherIAm1TEMP = 0 then NombreArcherIAm1SAVE = 0
        case 10
            NombreHommeDarmeIAm1SAVE = NombreHommeDarmeIAm1TERR10 : if NombreHommeDarmeIAm1TEMP = 0 then NombreHommeDarmeIAm1SAVE = 0
            NombreLancierIAm1SAVE = NombreLancierIAm1TERR10 : if NombreLancierIAm1TEMP = 0 then NombreLancierIAm1SAVE = 0
            NombreFrondeurIAm1SAVE = NombreFrondeurIAm1TERR10 : if NombreFrondeurIAm1TEMP = 0 then NombreFrondeurIAm1SAVE = 0
            NombreArcherIAm1SAVE = NombreArcherIAm1TERR10 : if NombreArcherIAm1TEMP = 0 then NombreArcherIAm1SAVE = 0
        case 11
            NombreHommeDarmeIAm1SAVE = NombreHommeDarmeIAm1TERR11 : if NombreHommeDarmeIAm1TEMP = 0 then NombreHommeDarmeIAm1SAVE = 0
            NombreLancierIAm1SAVE = NombreLancierIAm1TERR11 : if NombreLancierIAm1TEMP = 0 then NombreLancierIAm1SAVE = 0
            NombreFrondeurIAm1SAVE = NombreFrondeurIAm1TERR11 : if NombreFrondeurIAm1TEMP = 0 then NombreFrondeurIAm1SAVE = 0
            NombreArcherIAm1SAVE = NombreArcherIAm1TERR11 : if NombreArcherIAm1TEMP = 0 then NombreArcherIAm1SAVE = 0
        case 12
            NombreHommeDarmeIAm1SAVE = NombreHommeDarmeIAm1TERR12 : if NombreHommeDarmeIAm1TEMP = 0 then NombreHommeDarmeIAm1SAVE = 0
            NombreLancierIAm1SAVE = NombreLancierIAm1TERR12 : if NombreLancierIAm1TEMP = 0 then NombreLancierIAm1SAVE = 0
            NombreFrondeurIAm1SAVE = NombreFrondeurIAm1TERR12 : if NombreFrondeurIAm1TEMP = 0 then NombreFrondeurIAm1SAVE = 0
            NombreArcherIAm1SAVE = NombreArcherIAm1TERR12 : if NombreArcherIAm1TEMP = 0 then NombreArcherIAm1SAVE = 0
        case 13
            NombreHommeDarmeIAm1SAVE = NombreHommeDarmeIAm1TERR13 : if NombreHommeDarmeIAm1TEMP = 0 then NombreHommeDarmeIAm1SAVE = 0
            NombreLancierIAm1SAVE = NombreLancierIAm1TERR13 : if NombreLancierIAm1TEMP = 0 then NombreLancierIAm1SAVE = 0
            NombreFrondeurIAm1SAVE = NombreFrondeurIAm1TERR13 : if NombreFrondeurIAm1TEMP = 0 then NombreFrondeurIAm1SAVE = 0
            NombreArcherIAm1SAVE = NombreArcherIAm1TERR13 : if NombreArcherIAm1TEMP = 0 then NombreArcherIAm1SAVE = 0
        case 14
            NombreHommeDarmeIAm1SAVE = NombreHommeDarmeIAm1TERR14 : if NombreHommeDarmeIAm1TEMP = 0 then NombreHommeDarmeIAm1SAVE = 0
            NombreLancierIAm1SAVE = NombreLancierIAm1TERR14 : if NombreLancierIAm1TEMP = 0 then NombreLancierIAm1SAVE = 0
            NombreFrondeurIAm1SAVE = NombreFrondeurIAm1TERR14 : if NombreFrondeurIAm1TEMP = 0 then NombreFrondeurIAm1SAVE = 0
            NombreArcherIAm1SAVE = NombreArcherIAm1TERR14 : if NombreArcherIAm1TEMP = 0 then NombreArcherIAm1SAVE = 0
        case 15
            NombreHommeDarmeIAm1SAVE = NombreHommeDarmeIAm1TERR15 : if NombreHommeDarmeIAm1TEMP = 0 then NombreHommeDarmeIAm1SAVE = 0
            NombreLancierIAm1SAVE = NombreLancierIAm1TERR15 : if NombreLancierIAm1TEMP = 0 then NombreLancierIAm1SAVE = 0
            NombreFrondeurIAm1SAVE = NombreFrondeurIAm1TERR15 : if NombreFrondeurIAm1TEMP = 0 then NombreFrondeurIAm1SAVE = 0
            NombreArcherIAm1SAVE = NombreArcherIAm1TERR15 : if NombreArcherIAm1TEMP = 0 then NombreArcherIAm1SAVE = 0
        case 16
            NombreHommeDarmeIAm1SAVE = NombreHommeDarmeIAm1TERR16 : if NombreHommeDarmeIAm1TEMP = 0 then NombreHommeDarmeIAm1SAVE = 0
            NombreLancierIAm1SAVE = NombreLancierIAm1TERR16 : if NombreLancierIAm1TEMP = 0 then NombreLancierIAm1SAVE = 0
            NombreFrondeurIAm1SAVE = NombreFrondeurIAm1TERR16 : if NombreFrondeurIAm1TEMP = 0 then NombreFrondeurIAm1SAVE = 0
            NombreArcherIAm1SAVE = NombreArcherIAm1TERR16 : if NombreArcherIAm1TEMP = 0 then NombreArcherIAm1SAVE = 0
        case 17
            NombreHommeDarmeIAm1SAVE = NombreHommeDarmeIAm1TERR17 : if NombreHommeDarmeIAm1TEMP = 0 then NombreHommeDarmeIAm1SAVE = 0
            NombreLancierIAm1SAVE = NombreLancierIAm1TERR17 : if NombreLancierIAm1TEMP = 0 then NombreLancierIAm1SAVE = 0
            NombreFrondeurIAm1SAVE = NombreFrondeurIAm1TERR17 : if NombreFrondeurIAm1TEMP = 0 then NombreFrondeurIAm1SAVE = 0
            NombreArcherIAm1SAVE = NombreArcherIAm1TERR17 : if NombreArcherIAm1TEMP = 0 then NombreArcherIAm1SAVE = 0
        case 18
            NombreHommeDarmeIAm1SAVE = NombreHommeDarmeIAm1TERR18 : if NombreHommeDarmeIAm1TEMP = 0 then NombreHommeDarmeIAm1SAVE = 0
            NombreLancierIAm1SAVE = NombreLancierIAm1TERR18 : if NombreLancierIAm1TEMP = 0 then NombreLancierIAm1SAVE = 0
            NombreFrondeurIAm1SAVE = NombreFrondeurIAm1TERR18 : if NombreFrondeurIAm1TEMP = 0 then NombreFrondeurIAm1SAVE = 0
            NombreArcherIAm1SAVE = NombreArcherIAm1TERR18 : if NombreArcherIAm1TEMP = 0 then NombreArcherIAm1SAVE = 0
        case 19
            NombreHommeDarmeIAm1SAVE = NombreHommeDarmeIAm1TERR19 : if NombreHommeDarmeIAm1TEMP = 0 then NombreHommeDarmeIAm1SAVE = 0
            NombreLancierIAm1SAVE = NombreLancierIAm1TERR19 : if NombreLancierIAm1TEMP = 0 then NombreLancierIAm1SAVE = 0
            NombreFrondeurIAm1SAVE = NombreFrondeurIAm1TERR19 : if NombreFrondeurIAm1TEMP = 0 then NombreFrondeurIAm1SAVE = 0
            NombreArcherIAm1SAVE = NombreArcherIAm1TERR19 : if NombreArcherIAm1TEMP = 0 then NombreArcherIAm1SAVE = 0
        case 20
            NombreHommeDarmeIAm1SAVE = NombreHommeDarmeIAm1TERR20 : if NombreHommeDarmeIAm1TEMP = 0 then NombreHommeDarmeIAm1SAVE = 0
            NombreLancierIAm1SAVE = NombreLancierIAm1TERR20 : if NombreLancierIAm1TEMP = 0 then NombreLancierIAm1SAVE = 0
            NombreFrondeurIAm1SAVE = NombreFrondeurIAm1TERR20 : if NombreFrondeurIAm1TEMP = 0 then NombreFrondeurIAm1SAVE = 0
            NombreArcherIAm1SAVE = NombreArcherIAm1TERR20 : if NombreArcherIAm1TEMP = 0 then NombreArcherIAm1SAVE = 0
        end select
    case 3
        select case territoire
            case 1
                NombreHommeDarmeIAm2SAVE = NombreHommeDarmeIAm2TERR1 : if NombreHommeDarmeIAm2TEMP = 0 then NombreHommeDarmeIAm2SAVE = 0
                NombreLancierIAm2SAVE = NombreLancierIAm2TERR1 : if NombreLancierIAm2TEMP = 0 then NombreLancierIAm2SAVE = 0
                NombreFrondeurIAm2SAVE = NombreFrondeurIAm2TERR1 : if NombreFrondeurIAm2TEMP = 0 then NombreFrondeurIAm2SAVE = 0
                NombreArcherIAm2SAVE = NombreArcherIAm2TERR1 : if NombreArcherIAm2TEMP = 0 then NombreArcherIAm2SAVE = 0
            case 2
                NombreHommeDarmeIAm2SAVE = NombreHommeDarmeIAm2TERR2 : if NombreHommeDarmeIAm2TEMP = 0 then NombreHommeDarmeIAm2SAVE = 0
                NombreLancierIAm2SAVE = NombreLancierIAm2TERR2 : if NombreLancierIAm2TEMP = 0 then NombreLancierIAm2SAVE = 0
                NombreFrondeurIAm2SAVE = NombreFrondeurIAm2TERR2 : if NombreFrondeurIAm2TEMP = 0 then NombreFrondeurIAm2SAVE = 0
                NombreArcherIAm2SAVE = NombreArcherIAm2TERR2 : if NombreArcherIAm2TEMP = 0 then NombreArcherIAm2SAVE = 0
            case 3
                NombreHommeDarmeIAm2SAVE = NombreHommeDarmeIAm2TERR3 : if NombreHommeDarmeIAm2TEMP = 0 then NombreHommeDarmeIAm2SAVE = 0
                NombreLancierIAm2SAVE = NombreLancierIAm2TERR3 : if NombreLancierIAm2TEMP = 0 then NombreLancierIAm2SAVE = 0
                NombreFrondeurIAm2SAVE = NombreFrondeurIAm2TERR3 : if NombreFrondeurIAm2TEMP = 0 then NombreFrondeurIAm2SAVE = 0
                NombreArcherIAm2SAVE = NombreArcherIAm2TERR3 : if NombreArcherIAm2TEMP = 0 then NombreArcherIAm2SAVE = 0
            case 4
                NombreHommeDarmeIAm2SAVE = NombreHommeDarmeIAm2TERR4 : if NombreHommeDarmeIAm2TEMP = 0 then NombreHommeDarmeIAm2SAVE = 0
                NombreLancierIAm2SAVE = NombreLancierIAm2TERR4 : if NombreLancierIAm2TEMP = 0 then NombreLancierIAm2SAVE = 0
                NombreFrondeurIAm2SAVE = NombreFrondeurIAm2TERR4 : if NombreFrondeurIAm2TEMP = 0 then NombreFrondeurIAm2SAVE = 0
                NombreArcherIAm2SAVE = NombreArcherIAm2TERR4 : if NombreArcherIAm2TEMP = 0 then NombreArcherIAm2SAVE = 0
            case 5
                NombreHommeDarmeIAm2SAVE = NombreHommeDarmeIAm2TERR5 : if NombreHommeDarmeIAm2TEMP = 0 then NombreHommeDarmeIAm2SAVE = 0
                NombreLancierIAm2SAVE = NombreLancierIAm2TERR5 : if NombreLancierIAm2TEMP = 0 then NombreLancierIAm2SAVE = 0
                NombreFrondeurIAm2SAVE = NombreFrondeurIAm2TERR5 : if NombreFrondeurIAm2TEMP = 0 then NombreFrondeurIAm2SAVE = 0
                NombreArcherIAm2SAVE = NombreArcherIAm2TERR5 : if NombreArcherIAm2TEMP = 0 then NombreArcherIAm2SAVE = 0
            case 6
                NombreHommeDarmeIAm2SAVE = NombreHommeDarmeIAm2TERR6 : if NombreHommeDarmeIAm2TEMP = 0 then NombreHommeDarmeIAm2SAVE = 0
                NombreLancierIAm2SAVE = NombreLancierIAm2TERR6 : if NombreLancierIAm2TEMP = 0 then NombreLancierIAm2SAVE = 0
                NombreFrondeurIAm2SAVE = NombreFrondeurIAm2TERR6 : if NombreFrondeurIAm2TEMP = 0 then NombreFrondeurIAm2SAVE = 0
                NombreArcherIAm2SAVE = NombreArcherIAm2TERR6 : if NombreArcherIAm2TEMP = 0 then NombreArcherIAm2SAVE = 0
            case 7
                NombreHommeDarmeIAm2SAVE = NombreHommeDarmeIAm2TERR7 : if NombreHommeDarmeIAm2TEMP = 0 then NombreHommeDarmeIAm2SAVE = 0
                NombreLancierIAm2SAVE = NombreLancierIAm2TERR7 : if NombreLancierIAm2TEMP = 0 then NombreLancierIAm2SAVE = 0
                NombreFrondeurIAm2SAVE = NombreFrondeurIAm2TERR7 : if NombreFrondeurIAm2TEMP = 0 then NombreFrondeurIAm2SAVE = 0
                NombreArcherIAm2SAVE = NombreArcherIAm2TERR7 : if NombreArcherIAm2TEMP = 0 then NombreArcherIAm2SAVE = 0
            case 8
                NombreHommeDarmeIAm2SAVE = NombreHommeDarmeIAm2TERR8 : if NombreHommeDarmeIAm2TEMP = 0 then NombreHommeDarmeIAm2SAVE = 0
                NombreLancierIAm2SAVE = NombreLancierIAm2TERR8 : if NombreLancierIAm2TEMP = 0 then NombreLancierIAm2SAVE = 0
                NombreFrondeurIAm2SAVE = NombreFrondeurIAm2TERR8 : if NombreFrondeurIAm2TEMP = 0 then NombreFrondeurIAm2SAVE = 0
                NombreArcherIAm2SAVE = NombreArcherIAm2TERR8 : if NombreArcherIAm2TEMP = 0 then NombreArcherIAm2SAVE = 0
            case 9
                NombreHommeDarmeIAm2SAVE = NombreHommeDarmeIAm2TERR9 : if NombreHommeDarmeIAm2TEMP = 0 then NombreHommeDarmeIAm2SAVE = 0
                NombreLancierIAm2SAVE = NombreLancierIAm2TERR9 : if NombreLancierIAm2TEMP = 0 then NombreLancierIAm2SAVE = 0
                NombreFrondeurIAm2SAVE = NombreFrondeurIAm2TERR9 : if NombreFrondeurIAm2TEMP = 0 then NombreFrondeurIAm2SAVE = 0
                NombreArcherIAm2SAVE = NombreArcherIAm2TERR9 : if NombreArcherIAm2TEMP = 0 then NombreArcherIAm2SAVE = 0
            case 10
                NombreHommeDarmeIAm2SAVE = NombreHommeDarmeIAm2TERR10 : if NombreHommeDarmeIAm2TEMP = 0 then NombreHommeDarmeIAm2SAVE = 0
                NombreLancierIAm2SAVE = NombreLancierIAm2TERR10 : if NombreLancierIAm2TEMP = 0 then NombreLancierIAm2SAVE = 0
                NombreFrondeurIAm2SAVE = NombreFrondeurIAm2TERR10 : if NombreFrondeurIAm2TEMP = 0 then NombreFrondeurIAm2SAVE = 0
                NombreArcherIAm2SAVE = NombreArcherIAm2TERR10 : if NombreArcherIAm2TEMP = 0 then NombreArcherIAm2SAVE = 0
            case 11
                NombreHommeDarmeIAm2SAVE = NombreHommeDarmeIAm2TERR11 : if NombreHommeDarmeIAm2TEMP = 0 then NombreHommeDarmeIAm2SAVE = 0
                NombreLancierIAm2SAVE = NombreLancierIAm2TERR11 : if NombreLancierIAm2TEMP = 0 then NombreLancierIAm2SAVE = 0
                NombreFrondeurIAm2SAVE = NombreFrondeurIAm2TERR11 : if NombreFrondeurIAm2TEMP = 0 then NombreFrondeurIAm2SAVE = 0
                NombreArcherIAm2SAVE = NombreArcherIAm2TERR11 : if NombreArcherIAm2TEMP = 0 then NombreArcherIAm2SAVE = 0
            case 12
                NombreHommeDarmeIAm2SAVE = NombreHommeDarmeIAm2TERR12 : if NombreHommeDarmeIAm2TEMP = 0 then NombreHommeDarmeIAm2SAVE = 0
                NombreLancierIAm2SAVE = NombreLancierIAm2TERR12 : if NombreLancierIAm2TEMP = 0 then NombreLancierIAm2SAVE = 0
                NombreFrondeurIAm2SAVE = NombreFrondeurIAm2TERR12 : if NombreFrondeurIAm2TEMP = 0 then NombreFrondeurIAm2SAVE = 0
                NombreArcherIAm2SAVE = NombreArcherIAm2TERR12 : if NombreArcherIAm2TEMP = 0 then NombreArcherIAm2SAVE = 0
            case 13
                NombreHommeDarmeIAm2SAVE = NombreHommeDarmeIAm2TERR13 : if NombreHommeDarmeIAm2TEMP = 0 then NombreHommeDarmeIAm2SAVE = 0
                NombreLancierIAm2SAVE = NombreLancierIAm2TERR13 : if NombreLancierIAm2TEMP = 0 then NombreLancierIAm2SAVE = 0
                NombreFrondeurIAm2SAVE = NombreFrondeurIAm2TERR13 : if NombreFrondeurIAm2TEMP = 0 then NombreFrondeurIAm2SAVE = 0
                NombreArcherIAm2SAVE = NombreArcherIAm2TERR13 : if NombreArcherIAm2TEMP = 0 then NombreArcherIAm2SAVE = 0
            case 14
                NombreHommeDarmeIAm2SAVE = NombreHommeDarmeIAm2TERR14 : if NombreHommeDarmeIAm2TEMP = 0 then NombreHommeDarmeIAm2SAVE = 0
                NombreLancierIAm2SAVE = NombreLancierIAm2TERR14 : if NombreLancierIAm2TEMP = 0 then NombreLancierIAm2SAVE = 0
                NombreFrondeurIAm2SAVE = NombreFrondeurIAm2TERR14 : if NombreFrondeurIAm2TEMP = 0 then NombreFrondeurIAm2SAVE = 0
                NombreArcherIAm2SAVE = NombreArcherIAm2TERR14 : if NombreArcherIAm2TEMP = 0 then NombreArcherIAm2SAVE = 0
            case 15
                NombreHommeDarmeIAm2SAVE = NombreHommeDarmeIAm2TERR15 : if NombreHommeDarmeIAm2TEMP = 0 then NombreHommeDarmeIAm2SAVE = 0
                NombreLancierIAm2SAVE = NombreLancierIAm2TERR15 : if NombreLancierIAm2TEMP = 0 then NombreLancierIAm2SAVE = 0
                NombreFrondeurIAm2SAVE = NombreFrondeurIAm2TERR15 : if NombreFrondeurIAm2TEMP = 0 then NombreFrondeurIAm2SAVE = 0
                NombreArcherIAm2SAVE = NombreArcherIAm2TERR15 : if NombreArcherIAm2TEMP = 0 then NombreArcherIAm2SAVE = 0
            case 16
                NombreHommeDarmeIAm2SAVE = NombreHommeDarmeIAm2TERR16 : if NombreHommeDarmeIAm2TEMP = 0 then NombreHommeDarmeIAm2SAVE = 0
                NombreLancierIAm2SAVE = NombreLancierIAm2TERR16 : if NombreLancierIAm2TEMP = 0 then NombreLancierIAm2SAVE = 0
                NombreFrondeurIAm2SAVE = NombreFrondeurIAm2TERR16 : if NombreFrondeurIAm2TEMP = 0 then NombreFrondeurIAm2SAVE = 0
                NombreArcherIAm2SAVE = NombreArcherIAm2TERR16 : if NombreArcherIAm2TEMP = 0 then NombreArcherIAm2SAVE = 0
            case 17
                NombreHommeDarmeIAm2SAVE = NombreHommeDarmeIAm2TERR17 : if NombreHommeDarmeIAm2TEMP = 0 then NombreHommeDarmeIAm2SAVE = 0
                NombreLancierIAm2SAVE = NombreLancierIAm2TERR17 : if NombreLancierIAm2TEMP = 0 then NombreLancierIAm2SAVE = 0
                NombreFrondeurIAm2SAVE = NombreFrondeurIAm2TERR17 : if NombreFrondeurIAm2TEMP = 0 then NombreFrondeurIAm2SAVE = 0
                NombreArcherIAm2SAVE = NombreArcherIAm2TERR17 : if NombreArcherIAm2TEMP = 0 then NombreArcherIAm2SAVE = 0
            case 18
                NombreHommeDarmeIAm2SAVE = NombreHommeDarmeIAm2TERR18 : if NombreHommeDarmeIAm2TEMP = 0 then NombreHommeDarmeIAm2SAVE = 0
                NombreLancierIAm2SAVE = NombreLancierIAm2TERR18 : if NombreLancierIAm2TEMP = 0 then NombreLancierIAm2SAVE = 0
                NombreFrondeurIAm2SAVE = NombreFrondeurIAm2TERR18 : if NombreFrondeurIAm2TEMP = 0 then NombreFrondeurIAm2SAVE = 0
                NombreArcherIAm2SAVE = NombreArcherIAm2TERR18 : if NombreArcherIAm2TEMP = 0 then NombreArcherIAm2SAVE = 0
            case 19
                NombreHommeDarmeIAm2SAVE = NombreHommeDarmeIAm2TERR19 : if NombreHommeDarmeIAm2TEMP = 0 then NombreHommeDarmeIAm2SAVE = 0
                NombreLancierIAm2SAVE = NombreLancierIAm2TERR19 : if NombreLancierIAm2TEMP = 0 then NombreLancierIAm2SAVE = 0
                NombreFrondeurIAm2SAVE = NombreFrondeurIAm2TERR19 : if NombreFrondeurIAm2TEMP = 0 then NombreFrondeurIAm2SAVE = 0
                NombreArcherIAm2SAVE = NombreArcherIAm2TERR19 : if NombreArcherIAm2TEMP = 0 then NombreArcherIAm2SAVE = 0
            case 20
                NombreHommeDarmeIAm2SAVE = NombreHommeDarmeIAm2TERR20 : if NombreHommeDarmeIAm2TEMP = 0 then NombreHommeDarmeIAm2SAVE = 0
                NombreLancierIAm2SAVE = NombreLancierIAm2TERR20 : if NombreLancierIAm2TEMP = 0 then NombreLancierIAm2SAVE = 0
                NombreFrondeurIAm2SAVE = NombreFrondeurIAm2TERR20 : if NombreFrondeurIAm2TEMP = 0 then NombreFrondeurIAm2SAVE = 0
                NombreArcherIAm2SAVE = NombreArcherIAm2TERR20 : if NombreArcherIAm2TEMP = 0 then NombreArcherIAm2SAVE = 0
        end select
    end select

    NombreHommeDarmeSURVIVANTEsave = NombreHommeDarmeSELECTED
    NombreLancierSURVIVANTEsave = NombreLancierSELECTED
    NombreFrondeurSURVIVANTEsave = NombreFrondeurSELECTED
    NombreArcherSURVIVANTEsave = NombreArcherSELECTED
    NombreEXPLORATEURSURVIVANTEsave = NombreEXPLORATEURSELECTED
    NombreHommeDarmeSELECTED = 0
    NombreLancierSELECTED = 0
    NombreFrondeurSELECTED = 0
    NombreArcherSELECTED = 0
    NombreEXPLORATEURSELECTED = 0

    if fight1 <= 0 then TEXTvictoire$ = "Défaite"
    if fight2 <= 0 then TEXTvictoire$ = "Victoire"
    foundedSECU = 0

    if territoire = 1 and PLAYER = 1 then goto [endATTAQUEtoTERRITORY1A1]
    if territoire = 2 and PLAYER = 1 then goto [endATTAQUEtoTERRITORY2A1]
    if territoire = 3 and PLAYER = 1 then goto [endATTAQUEtoTERRITORY3A1]
    if territoire = 4 and PLAYER = 1 then goto [endATTAQUEtoTERRITORY4A1]
    if territoire = 5 and PLAYER = 1 then goto [endATTAQUEtoTERRITORY5A1]
    if territoire = 6 and PLAYER = 1 then goto [endATTAQUEtoTERRITORY6A1]
    if territoire = 7 and PLAYER = 1 then goto [endATTAQUEtoTERRITORY7A1]
    if territoire = 8 and PLAYER = 1 then goto [endATTAQUEtoTERRITORY8A1]
    if territoire = 9 and PLAYER = 1 then goto [endATTAQUEtoTERRITORY9A1]
    if territoire = 10 and PLAYER = 1 then goto [endATTAQUEtoTERRITORY10A1]
    if territoire = 11 and PLAYER = 1 then goto [endATTAQUEtoTERRITORY11A1]
    if territoire = 12 and PLAYER = 1 then goto [endATTAQUEtoTERRITORY12A1]
    if territoire = 13 and PLAYER = 1 then goto [endATTAQUEtoTERRITORY13A1]
    if territoire = 14 and PLAYER = 1 then goto [endATTAQUEtoTERRITORY14A1]
    if territoire = 15 and PLAYER = 1 then goto [endATTAQUEtoTERRITORY15A1]
    if territoire = 16 and PLAYER = 1 then goto [endATTAQUEtoTERRITORY16A1]
    if territoire = 17 and PLAYER = 1 then goto [endATTAQUEtoTERRITORY17A1]
    if territoire = 18 and PLAYER = 1 then goto [endATTAQUEtoTERRITORY18A1]
    if territoire = 19 and PLAYER = 1 then goto [endATTAQUEtoTERRITORY19A1]
    if territoire = 20 and PLAYER = 1 then goto [endATTAQUEtoTERRITORY20A1]
    wait


    [iniMUSIC2]
    r$ = mcisend$("pause main")
    if music = 0 and Setting = 1 then print #setting.cb4, "set" : print #setting.cb3, "reset"
    music = 1
    open "data\pref.txt" for output as #pref
        print #pref, pass$ 
        print #pref, introGAME
        print #pref, music
        print #pref, bruitage
        print #pref, language
        close #pref
    wait

    [iniMUSIC]
    r$  =mcisend$("set main time format ms") : r$ = mcisend$("status main length") : looplength=val(r$) : r$ = mcisend$("play main from 0 repeat")
    if music = 1 and Setting = 1 then print #setting.cb3, "set" : print #setting.cb4, "reset"
    music = 0
    open "data\pref.txt" for output as #pref
        print #pref, pass$ 
        print #pref, introGAME
        print #pref, music
        print #pref, bruitage
        print #pref, language
        close #pref
    wait


[printDATA]
daysSAVE = 29
open dataloadNAME$ for output as #save
print #save, RaceSelectionSAVE$
print #save, nombre2planeteJ1
print #save, yearSAVE
print #save, mouthsSAVE
print #save, daysSAVE
print #save, Agej1
print #save, money
print #save, bois
print #save, metal
print #save, naqada
print #save, food
print #save, popPossible
print #save, popTOTAL
print #save, popSCIENT
print #save, popMILIT
print #save, nplayerP1
print #save, nomplanete1$
print #save, nomPLANETE$
print #save, P1x
print #save, P1y
print #save, P1bisx
print #save, P1bisy
print #save, P2bisx
print #save, P2bisy
print #save, SurfaceOceanP1
print #save, SurfaceTerreP1
print #save, SurfaceOceanP1j1
print #save, SurfaceTerreP1j1
print #save, SurfaceOceanP1j2
print #save, SurfaceTerreP1j2
print #save, lvlbatimentPrincipal
print #save, lvlbatimentFerme
print #save, lvlbatimentScierie
print #save, lvlbatimentMines
print #save, lvlbatimentHabitation
print #save, lvlbatimentCentrePolitique
print #save, lvlbatimentCentreScientifique
print #save, lvlbatimentCentreMilitaire
print #save, lvlbatimentFortifications
print #save, influencePossible
print #save, influenceADD
print #save, popADD
print #save, coutHabitationBOIS
print #save, coutHabitationMETAL
print #save, coutScBOIS
print #save, coutScMETAL
print #save, coutPrincipalBOIS
print #save, coutPrincipalMETAL
print #save, coutSmBOIS
print #save, coutSmMETAL
print #save, coutHabitationBOISindex
print #save, coutScBOISindex
print #save, coutPrincipalBOISindex
print #save, coutSmBOISindex
print #save, batimentBUILDpop
print #save, batimentBUILDcs
print #save, batimentBUILDcm
print #save, batimentBUILDferme
print #save, batimentBUILDscierie
print #save, batimentBUILDFortifications
print #save, sedentarisation
print #save, NombreHommeDarme
print #save, NombreEclaireur
print #save, DecouverteCiv2P1
print #save, nombreRAPPORT
print #save, DecouverteCiv2P1
print #save, fermage
print #save, coutFermeBOISindex
print #save, coutfermageMINERAISindex
print #save, coutfermageBOIS
print #save, coutfermageMINERAIS
print #save, scierie
print #save, coutScierieBOISindex
print #save, coutScierieBOIS
print #save, coutScierieMETAL
print #save, mines
print #save, fortifications
print #save, batimentBUILDmines
print #save, coutMinesBOISindex
print #save, coutMinesMETALindex
print #save, coutMinesBOIS
print #save, coutMinesMETAL
print #save, coutFortificationsBOIS
print #save, coutFortificationsMETAL
print #save, coutFortificationsBOISindex
print #save, coutFortifications2BOIS
print #save, coutFortifications2BOISindex
print #save, hpFortifications
print #save, lvlHPFortifications
print #save, placePARhabitationJ1
print #save, nombreHabitationJ1
print #save, UpgradeHommeDarmeOFF
print #save, UpgradeHommeDarmeDEF
print #save, popMILITlim
print #save, popSCIENTlim
print #save, RECHEARCHpoint
print #save, coutFOODhommedarme
print #save, coutBOIShommedarme
print #save, coutFOODlancier
print #save, coutBOISlancier
print #save, coutFOODfrondeur
print #save, coutBOISfrondeur
print #save, coutFOODarcher
print #save, coutBOISarcher
print #save, coutFOODspy
print #save, coutBOISspy
print #save, offHommedarme
print #save, defHommedarme
print #save, vieHommedarme
print #save, offlancier
print #save, deflancier
print #save, vielancier
print #save, offfrondeur
print #save, deffrondeur
print #save, viefrondeur
print #save, offarcher
print #save, defarcher
print #save, viearcher
print #save, porteEtoileP1
print #save, coutlvlRecyclageBOIS
print #save, coutlvlRecyclageFOOD
print #save, coutlvlCoupeBOIS
print #save, coutlvlCoupeFOOD
print #save, coutlvlEntretienBOIS
print #save, coutlvlEntretienFOOD
print #save, lvlRecyclageBOIS
print #save, RECYbois
print #save, lvlCoupeBOIS
print #save, COUPEbois
print #save, lvlEntretienBOIS
print #save, ENTRbois
print #save, coutlvlChasseBOIS
print #save, coutlvlChasseFOOD
print #save, lvlChasse
print #save, ChasseFOOD
print #save, coutlvlCueilletteBOIS
print #save, coutlvlCueilletteFOOD
print #save, lvlCueillette
print #save, CueilletteFOOD
print #save, coutlvlElevageBOIS
print #save, coutlvlElevageFOOD
print #save, lvlElevage
print #save, ElevageFOOD
print #save, coutlvlAgricultureBOIS
print #save, coutlvlAgricultureFOOD
print #save, lvlAgriculture
print #save, AgricultureFOOD
print #save, agriculture
print #save, elevage
print #save, coutlvlEXTRACTIONmetalBOIS
print #save, coutlvlEXTRACTIONmetalFOOD
print #save, EXTRACTIONmetal
print #save, lvlEXTRACTIONmetal
print #save, RECYCLEmetal
print #save, lvlRecyclageMETAL
print #save, coutlvlRECYCLEBOIS
print #save, coutlvlRECYCLEFOOD
print #save, lvlRAFFmetal
print #save, coutlvlRAFFBOIS
print #save, coutlvlRAFFFOOD
print #save, RAFFmetal
print #save, UpgradeLancierOFF
print #save, UpgradeLancierDEF
print #save, UpgradeFrondeurOFF
print #save, UpgradeFrondeurDEF
print #save, UpgradeArcherOFF
print #save, UpgradeArcherDEF
print #save, NombreLancier
print #save, NombreFrondeur
print #save, NombreArcher
print #save, CentreMilitaire2
print #save, lancierSEARCH
print #save, frondeurSEARCH
print #save, archerSEARCH
print #save, UPcitoyen1a
print #save, UPcitoyen1b
print #save, UPcitoyen1c
print #save, UPscientifiq1a
print #save, UPscientifiq1b
print #save, UPscientifiq1c
print #save, centreSCI
print #save, NombreLancierIAm1
print #save, NombreFrondeurIAm1
print #save, NombreArcherIAm1
print #save, compteurIA1m
print #save, boisIAm1
print #save, metalIAm1
print #save, foodIAm1
print #save, naqadaIAm1
print #save, lvlbatimentPrincipalIAm1
print #save, lvlbatimentFermeIAm1
print #save, lvlbatimentScierieIAm1
print #save, lvlbatimentMinesIAm1
print #save, lvlbatimentHabitationIAm1
print #save, lvlbatimentCentrePolitiqueIAm1
print #save, lvlbatimentCentreScientifiqueIAm1
print #save, lvlbatimentCentreMilitaireIAm1
print #save, lvlbatimentFortificationsIAm1
print #save, influencePossibleIAm1
print #save, NombreHommeDarmeIAm1
print #save, popSCIENTIAm1
print #save, popMILITIAm1
print #save, popPossibleIAm1
print #save, popTOTALIAm1
print #save, RaceSelectionIAm1$
print #save, SurfaceTerreP1IAm1
print #save, sedentarisationIAm1
print #save, fermageIAm1
print #save, scierieIA1
print #save, minesIA1
print #save, lvlHPFortificationsIAm1
print #save, hpFortificationsIAm1
print #save, lvlbatimentFortificationsIAm1
print #save, coutFortificationsBOISindexIAm1
print #save, coutFortificationsBOISIAm1
print #save, coutFortifications2METALIAm1
print #save, coutFortifications2BOISIAm1
print #save, coutFortifications2BOISindexIAm1
print #save, coutHabitationBOISindexIAm1
print #save, coutScBOISindexIAm1
print #save, coutPrincipalBOISindexIAm1
print #save, coutSmBOISindexIAm1
print #save, coutFermeBOISindexIAm1
print #save, coutScierieBOISindexIAm1
print #save, coutMinesBOISindexIAm1
print #save, offHommedarmeIAm1
print #save, defHommedarmeIAm1
print #save, vieHommedarmeIAm1
print #save, NombreLancierIAm2
print #save, NombreFrondeurIAm2
print #save, NombreArcherIAm2
print #save, compteurIA2m
print #save, boisIAm2
print #save, metalIAm2
print #save, foodIAm2
print #save, naqadaIAm2
print #save, lvlbatimentPrincipalIAm2
print #save, lvlbatimentFermeIAm2
print #save, lvlbatimentScierieIAm2
print #save, lvlbatimentMinesIAm2
print #save, lvlbatimentHabitationIAm2
print #save, lvlbatimentCentrePolitiqueIAm2
print #save, lvlbatimentCentreScientifiqueIAm2
print #save, lvlbatimentCentreMilitaireIAm2
print #save, lvlbatimentFortificationsIAm2
print #save, influencePossibleIAm2
print #save, NombreHommeDarmeIAm2
print #save, popSCIENTIAm2
print #save, popMILITIAm2
print #save, popPossibleIAm2
print #save, popTOTALIAm2
print #save, RaceSelectionIAm2$
print #save, SurfaceTerreP1IAm2
print #save, sedentarisationIAm2
print #save, fermageIAm2
print #save, scierieIA2
print #save, minesIA2
print #save, lvlHPFortificationsIAm2
print #save, hpFortificationsIAm2
print #save, lvlbatimentFortificationsIAm2
print #save, coutFortificationsBOISindexIAm2
print #save, coutFortificationsBOISIAm2
print #save, coutFortifications2METALIAm2
print #save, coutFortifications2BOISIAm2
print #save, coutFortifications2BOISindexIAm2
print #save, coutHabitationBOISindexIAm2
print #save, coutScBOISindexIAm2
print #save, coutPrincipalBOISindexIAm2
print #save, coutSmBOISindexIAm2
print #save, coutFermeBOISindexIAm2
print #save, coutScierieBOISindexIAm2
print #save, coutMinesBOISindexIAm2
print #save, offHommedarmeIAm2
print #save, defHommedarmeIAm2
print #save, vieHommedarmeIAm2
print #save, territoire
print #save, territoire1
print #save, territoire2
print #save, territoire3
print #save, territoire4
print #save, territoire5
print #save, territoire6
print #save, territoire7
print #save, territoire8
print #save, territoire9
print #save, territoire10
print #save, territoire11
print #save, territoire12
print #save, territoire13
print #save, territoire14
print #save, territoire15
print #save, territoire16
print #save, territoire17
print #save, territoire18
print #save, territoire19
print #save, territoire20
print #save, LVLterritoire1
print #save, LVLterritoire2
print #save, LVLterritoire3
print #save, LVLterritoire4
print #save, LVLterritoire5
print #save, LVLterritoire6
print #save, LVLterritoire7
print #save, LVLterritoire8
print #save, LVLterritoire9
print #save, LVLterritoire10
print #save, LVLterritoire11
print #save, LVLterritoire12
print #save, LVLterritoire13
print #save, LVLterritoire14
print #save, LVLterritoire15
print #save, LVLterritoire16
print #save, LVLterritoire17
print #save, LVLterritoire18
print #save, LVLterritoire19
print #save, LVLterritoire20
print #save, coutFOODhommedarmeIAm1
print #save, coutBOIShommedarmeIAm1
print #save, coutFOODlancierIAm1
print #save, coutBOISlancierIAm1
print #save, coutFOODfrondeurIAm1
print #save, coutBOISfrondeurIAm1
print #save, coutFOODarcherIAm1
print #save, coutBOISarcherIAm1
print #save, coutFOODhommedarmeIAm2
print #save, coutBOIShommedarmeIAm2
print #save, coutFOODlancierIAm2
print #save, coutBOISlancierIAm2
print #save, coutFOODfrondeurIAm2
print #save, coutBOISfrondeurIAm2
print #save, coutFOODarcherIAm2
print #save, coutBOISarcherIAm2
print #save, lancierUPGRADE1
print #save, lancierUPGRADE2
print #save, lancierUPGRADE3
print #save, frondeurUPGRADE1
print #save, frondeurUPGRADE2
print #save, frondeurUPGRADE3
print #save, archerUPGRADE1
print #save, archerUPGRADE2
print #save, archerUPGRADE3
print #save, hommeDarmeUPGRADE1
print #save, hommeDarmeUPGRADE2
print #save, hommeDarmeUPGRADE3
print #save, IA1Alife1
print #save, RaceIAm1$
print #save, STATUTiam1
print #save, INCOMEterritoire1FOOD
print #save, INCOMEterritoire2FOOD
print #save, INCOMEterritoire3FOOD
print #save, INCOMEterritoire4FOOD
print #save, INCOMEterritoire5FOOD
print #save, INCOMEterritoire6FOOD
print #save, INCOMEterritoire7FOOD
print #save, INCOMEterritoire8FOOD
print #save, INCOMEterritoire9FOOD
print #save, INCOMEterritoire10FOOD
print #save, INCOMEterritoire11FOOD
print #save, INCOMEterritoire12FOOD
print #save, INCOMEterritoire13FOOD
print #save, INCOMEterritoire14FOOD
print #save, INCOMEterritoire15FOOD
print #save, INCOMEterritoire16FOOD
print #save, INCOMEterritoire17FOOD
print #save, INCOMEterritoire18FOOD
print #save, INCOMEterritoire19FOOD
print #save, INCOMEterritoire20FOOD
print #save, INCOMEterritoire1BOIS
print #save, INCOMEterritoire2BOIS
print #save, INCOMEterritoire3BOIS
print #save, INCOMEterritoire4BOIS
print #save, INCOMEterritoire5BOIS
print #save, INCOMEterritoire6BOIS
print #save, INCOMEterritoire7BOIS
print #save, INCOMEterritoire8BOIS
print #save, INCOMEterritoire9BOIS
print #save, INCOMEterritoire10BOIS
print #save, INCOMEterritoire11BOIS
print #save, INCOMEterritoire12BOIS
print #save, INCOMEterritoire13BOIS
print #save, INCOMEterritoire14BOIS
print #save, INCOMEterritoire15BOIS
print #save, INCOMEterritoire16BOIS
print #save, INCOMEterritoire17BOIS
print #save, INCOMEterritoire18BOIS
print #save, INCOMEterritoire19BOIS
print #save, INCOMEterritoire20BOIS
print #save, INCOMEterritoire1METAL
print #save, INCOMEterritoire2METAL
print #save, INCOMEterritoire3METAL
print #save, INCOMEterritoire4METAL
print #save, INCOMEterritoire5METAL
print #save, INCOMEterritoire6METAL
print #save, INCOMEterritoire7METAL
print #save, INCOMEterritoire8METAL
print #save, INCOMEterritoire9METAL
print #save, INCOMEterritoire10METAL
print #save, INCOMEterritoire11METAL
print #save, INCOMEterritoire12METAL
print #save, INCOMEterritoire13METAL
print #save, INCOMEterritoire14METAL
print #save, INCOMEterritoire15METAL
print #save, INCOMEterritoire16METAL
print #save, INCOMEterritoire17METAL
print #save, INCOMEterritoire18METAL
print #save, INCOMEterritoire19METAL
print #save, INCOMEterritoire20METAL
print #save, nombrePLAYER1territoire
print #save, INCOMEterritoireFOOD
print #save, INCOMEterritoireBOIS
print #save, INCOMEterritoireMETAL
print #save, STATUTiam2TOiam1
print #save, INCOMEterritoireFOODiam1
print #save, INCOMEterritoireBOISiam1
print #save, INCOMEterritoireMETALiam1
print #save, INCOMEterritoireFOODiam2
print #save, INCOMEterritoireBOISiam2
print #save, INCOMEterritoireMETALiam2
print #save, nombrePLAYER2territoire
print #save, nombrePLAYER3territoire
print #save, IA2Alife1
print #save, RaceIAm2$
print #save, STATUTiam2
print #save, DecouverteCiv3P1
print #save, IA1terre
print #save, IA2terre
print #save, compteurIA2m
print #save, offEXPLORATEUR
print #save, defEXPLORATEUR
print #save, vieEXPLORATEUR
print #save, NombreEXPLORATEUR
print #save, coutFOODexplorateur
print #save, coutBOISexplorateur
print #save, hpFortifications
print #save, explorateurUPGRADE
print #save, NombreHommeDarmeTERR1
print #save, NombreLancierTERR1
print #save, NombreFrondeurTERR1
print #save, NombreArcherTERR1
print #save, NombreEXPLORATEURTERR1
print #save, NombreHommeDarmeTERR2
print #save, NombreLancierTERR2
print #save, NombreFrondeurTERR2
print #save, NombreArcherTERR2
print #save, NombreEXPLORATEURTERR2
print #save, NombreHommeDarmeTERR3
print #save, NombreLancierTERR3
print #save, NombreFrondeurTERR3
print #save, NombreArcherTERR3
print #save, NombreEXPLORATEURTERR3
print #save, NombreHommeDarmeTERR4
print #save, NombreLancierTERR4
print #save, NombreFrondeurTERR4
print #save, NombreArcherTERR4
print #save, NombreEXPLORATEURTERR4
print #save, NombreHommeDarmeTERR5
print #save, NombreLancierTERR5
print #save, NombreFrondeurTERR5
print #save, NombreArcherTERR5
print #save, NombreEXPLORATEURTERR5
print #save, NombreHommeDarmeTERR6
print #save, NombreLancierTERR6
print #save, NombreFrondeurTERR6
print #save, NombreArcherTERR6
print #save, NombreEXPLORATEURTERR6
print #save, NombreHommeDarmeTERR7
print #save, NombreLancierTERR7
print #save, NombreFrondeurTERR7
print #save, NombreArcherTERR7
print #save, NombreEXPLORATEURTERR7
print #save, NombreHommeDarmeTERR1
print #save, NombreLancierTERR8
print #save, NombreFrondeurTERR8
print #save, NombreArcherTERR8
print #save, NombreEXPLORATEURTERR8
print #save, NombreHommeDarmeTERR9
print #save, NombreLancierTERR9
print #save, NombreFrondeurTERR9
print #save, NombreArcherTERR9
print #save, NombreEXPLORATEURTERR9
print #save, NombreHommeDarmeTERR10
print #save, NombreLancierTERR10
print #save, NombreFrondeurTERR10
print #save, NombreArcherTERR10
print #save, NombreEXPLORATEURTERR10
print #save, NombreHommeDarmeTERR11
print #save, NombreLancierTERR11
print #save, NombreFrondeurTERR11
print #save, NombreArcherTERR11
print #save, NombreEXPLORATEURTERR11
print #save, NombreHommeDarmeTERR12
print #save, NombreLancierTERR12
print #save, NombreFrondeurTERR12
print #save, NombreArcherTERR12
print #save, NombreEXPLORATEURTERR12
print #save, NombreHommeDarmeTERR13
print #save, NombreLancierTERR13
print #save, NombreFrondeurTERR13
print #save, NombreArcherTERR13
print #save, NombreEXPLORATEURTERR13
print #save, NombreHommeDarmeTERR14
print #save, NombreLancierTERR14
print #save, NombreFrondeurTERR14
print #save, NombreArcherTERR14
print #save, NombreEXPLORATEURTERR14
print #save, NombreHommeDarmeTERR15
print #save, NombreLancierTERR15
print #save, NombreFrondeurTERR15
print #save, NombreArcherTERR15
print #save, NombreEXPLORATEURTERR15
print #save, NombreHommeDarmeTERR16
print #save, NombreLancierTERR16
print #save, NombreFrondeurTERR16
print #save, NombreArcherTERR16
print #save, NombreEXPLORATEURTERR16
print #save, NombreHommeDarmeTERR17
print #save, NombreLancierTERR17
print #save, NombreFrondeurTERR17
print #save, NombreArcherTERR17
print #save, NombreEXPLORATEURTERR17
print #save, NombreHommeDarmeTERR18
print #save, NombreLancierTERR18
print #save, NombreFrondeurTERR18
print #save, NombreArcherTERR18
print #save, NombreEXPLORATEURTERR18
print #save, NombreHommeDarmeTERR19
print #save, NombreLancierTERR19
print #save, NombreFrondeurTERR19
print #save, NombreArcherTERR19
print #save, NombreEXPLORATEURTERR19
print #save, NombreHommeDarmeTERR20
print #save, NombreLancierTERR20
print #save, NombreFrondeurTERR20
print #save, NombreArcherTERR20
print #save, NombreEXPLORATEURTERR20
print #save, LVLfortificationTERRITOIRE1
print #save, LVLfortificationTERRITOIRE2
print #save, LVLfortificationTERRITOIRE3
print #save, LVLfortificationTERRITOIRE4
print #save, LVLfortificationTERRITOIRE5
print #save, LVLfortificationTERRITOIRE6
print #save, LVLfortificationTERRITOIRE7
print #save, LVLfortificationTERRITOIRE8
print #save, LVLfortificationTERRITOIRE9
print #save, LVLfortificationTERRITOIRE10
print #save, LVLfortificationTERRITOIRE11
print #save, LVLfortificationTERRITOIRE12
print #save, LVLfortificationTERRITOIRE13
print #save, LVLfortificationTERRITOIRE14
print #save, LVLfortificationTERRITOIRE15
print #save, LVLfortificationTERRITOIRE16
print #save, LVLfortificationTERRITOIRE17
print #save, LVLfortificationTERRITOIRE18
print #save, LVLfortificationTERRITOIRE19
print #save, LVLfortificationTERRITOIRE20
print #save, NombreHommeDarmeIAm1TERR1
print #save, NombreLancierIAm1TERR1
print #save, NombreFrondeurIAm1TERR1
print #save, NombreArcherIAm1TERR1
print #save, NombreEXPLORATEURIAm1TERR1
print #save, NombreHommeDarmeIAm1TERR2
print #save, NombreLancierIAm1TERR2
print #save, NombreFrondeurIAm1TERR2
print #save, NombreArcherIAm1TERR2
print #save, NombreEXPLORATEURIAm1TERR2
print #save, NombreHommeDarmeIAm1TERR3
print #save, NombreLancierIAm1TERR3
print #save, NombreFrondeurIAm1TERR3
print #save, NombreArcherIAm1TERR3
print #save, NombreEXPLORATEURIAm1TERR3
print #save, NombreHommeDarmeIAm1TERR4
print #save, NombreLancierIAm1TERR4
print #save, NombreFrondeurIAm1TERR4
print #save, NombreArcherIAm1TERR4
print #save, NombreEXPLORATEURIAm1TERR4
print #save, NombreHommeDarmeIAm1TERR5
print #save, NombreLancierIAm1TERR5
print #save, NombreFrondeurIAm1TERR5
print #save, NombreArcherIAm1TERR5
print #save, NombreEXPLORATEURIAm1TERR5
print #save, NombreHommeDarmeIAm1TERR6
print #save, NombreLancierIAm1TERR6
print #save, NombreFrondeurIAm1TERR6
print #save, NombreArcherIAm1TERR6
print #save, NombreEXPLORATEURIAm1TERR6
print #save, NombreHommeDarmeIAm1TERR7
print #save, NombreLancierIAm1TERR7
print #save, NombreFrondeurIAm1TERR7
print #save, NombreArcherIAm1TERR7
print #save, NombreEXPLORATEURIAm1TERR7
print #save, NombreHommeDarmeIAm1TERR1
print #save, NombreLancierIAm1TERR8
print #save, NombreFrondeurIAm1TERR8
print #save, NombreArcherIAm1TERR8
print #save, NombreEXPLORATEURIAm1TERR8
print #save, NombreHommeDarmeIAm1TERR9
print #save, NombreLancierIAm1TERR9
print #save, NombreFrondeurIAm1TERR9
print #save, NombreArcherIAm1TERR9
print #save, NombreEXPLORATEURIAm1TERR9
print #save, NombreHommeDarmeIAm1TERR10
print #save, NombreLancierIAm1TERR10
print #save, NombreFrondeurIAm1TERR10
print #save, NombreArcherIAm1TERR10
print #save, NombreEXPLORATEURIAm1TERR10
print #save, NombreHommeDarmeIAm1TERR11
print #save, NombreLancierIAm1TERR11
print #save, NombreFrondeurIAm1TERR11
print #save, NombreArcherIAm1TERR11
print #save, NombreEXPLORATEURIAm1TERR11
print #save, NombreHommeDarmeIAm1TERR12
print #save, NombreLancierIAm1TERR12
print #save, NombreFrondeurIAm1TERR12
print #save, NombreArcherIAm1TERR12
print #save, NombreEXPLORATEURIAm1TERR12
print #save, NombreHommeDarmeIAm1TERR13
print #save, NombreLancierIAm1TERR13
print #save, NombreFrondeurIAm1TERR13
print #save, NombreArcherIAm1TERR13
print #save, NombreEXPLORATEURIAm1TERR13
print #save, NombreHommeDarmeIAm1TERR14
print #save, NombreLancierIAm1TERR14
print #save, NombreFrondeurIAm1TERR14
print #save, NombreArcherIAm1TERR14
print #save, NombreEXPLORATEURIAm1TERR14
print #save, NombreHommeDarmeIAm1TERR15
print #save, NombreLancierIAm1TERR15
print #save, NombreFrondeurIAm1TERR15
print #save, NombreArcherIAm1TERR15
print #save, NombreEXPLORATEURIAm1TERR15
print #save, NombreHommeDarmeIAm1TERR16
print #save, NombreLancierIAm1TERR16
print #save, NombreFrondeurIAm1TERR16
print #save, NombreArcherIAm1TERR16
print #save, NombreEXPLORATEURIAm1TERR16
print #save, NombreHommeDarmeIAm1TERR17
print #save, NombreLancierIAm1TERR17
print #save, NombreFrondeurIAm1TERR17
print #save, NombreArcherIAm1TERR17
print #save, NombreEXPLORATEURIAm1TERR17
print #save, NombreHommeDarmeIAm1TERR18
print #save, NombreLancierIAm1TERR18
print #save, NombreFrondeurIAm1TERR18
print #save, NombreArcherIAm1TERR18
print #save, NombreEXPLORATEURIAm1TERR18
print #save, NombreHommeDarmeIAm1TERR19
print #save, NombreLancierIAm1TERR19
print #save, NombreFrondeurIAm1TERR19
print #save, NombreArcherIAm1TERR19
print #save, NombreEXPLORATEURIAm1TERR19
print #save, NombreHommeDarmeIAm1TERR20
print #save, NombreLancierIAm1TERR20
print #save, NombreFrondeurIAm1TERR20
print #save, NombreArcherIAm1TERR20
print #save, NombreEXPLORATEURIAm1TERR20
print #save, LVLfortificationTERRITOIRE1iam1
print #save, LVLfortificationTERRITOIRE2iam1
print #save, LVLfortificationTERRITOIRE3iam1
print #save, LVLfortificationTERRITOIRE4iam1
print #save, LVLfortificationTERRITOIRE5iam1
print #save, LVLfortificationTERRITOIRE6iam1
print #save, LVLfortificationTERRITOIRE7iam1
print #save, LVLfortificationTERRITOIRE8iam1
print #save, LVLfortificationTERRITOIRE9iam1
print #save, LVLfortificationTERRITOIRE10iam1
print #save, LVLfortificationTERRITOIRE11iam1
print #save, LVLfortificationTERRITOIRE12iam1
print #save, LVLfortificationTERRITOIRE13iam1
print #save, LVLfortificationTERRITOIRE14iam1
print #save, LVLfortificationTERRITOIRE15iam1
print #save, LVLfortificationTERRITOIRE16iam1
print #save, LVLfortificationTERRITOIRE17iam1
print #save, LVLfortificationTERRITOIRE18iam1
print #save, LVLfortificationTERRITOIRE19iam1
print #save, LVLfortificationTERRITOIRE20iam1
print #save, NombreHommeDarmeIAm2TERR1
print #save, NombreLancierIAm2TERR1
print #save, NombreFrondeurIAm2TERR1
print #save, NombreArcherIAm2TERR1
print #save, NombreEXPLORATEURIAm2TERR1
print #save, NombreHommeDarmeIAm2TERR2
print #save, NombreLancierIAm2TERR2
print #save, NombreFrondeurIAm2TERR2
print #save, NombreArcherIAm2TERR2
print #save, NombreEXPLORATEURIAm2TERR2
print #save, NombreHommeDarmeIAm2TERR3
print #save, NombreLancierIAm2TERR3
print #save, NombreFrondeurIAm2TERR3
print #save, NombreArcherIAm2TERR3
print #save, NombreEXPLORATEURIAm2TERR3
print #save, NombreHommeDarmeIAm2TERR4
print #save, NombreLancierIAm2TERR4
print #save, NombreFrondeurIAm2TERR4
print #save, NombreArcherIAm2TERR4
print #save, NombreEXPLORATEURIAm2TERR4
print #save, NombreHommeDarmeIAm2TERR5
print #save, NombreLancierIAm2TERR5
print #save, NombreFrondeurIAm2TERR5
print #save, NombreArcherIAm2TERR5
print #save, NombreEXPLORATEURIAm2TERR5
print #save, NombreHommeDarmeIAm2TERR6
print #save, NombreLancierIAm2TERR6
print #save, NombreFrondeurIAm2TERR6
print #save, NombreArcherIAm2TERR6
print #save, NombreEXPLORATEURIAm2TERR6
print #save, NombreHommeDarmeIAm2TERR7
print #save, NombreLancierIAm2TERR7
print #save, NombreFrondeurIAm2TERR7
print #save, NombreArcherIAm2TERR7
print #save, NombreEXPLORATEURIAm2TERR7
print #save, NombreHommeDarmeIAm2TERR1
print #save, NombreLancierIAm2TERR8
print #save, NombreFrondeurIAm2TERR8
print #save, NombreArcherIAm2TERR8
print #save, NombreEXPLORATEURIAm2TERR8
print #save, NombreHommeDarmeIAm2TERR9
print #save, NombreLancierIAm2TERR9
print #save, NombreFrondeurIAm2TERR9
print #save, NombreArcherIAm2TERR9
print #save, NombreEXPLORATEURIAm2TERR9
print #save, NombreHommeDarmeIAm2TERR10
print #save, NombreLancierIAm2TERR10
print #save, NombreFrondeurIAm2TERR10
print #save, NombreArcherIAm2TERR10
print #save, NombreEXPLORATEURIAm2TERR10
print #save, NombreHommeDarmeIAm2TERR11
print #save, NombreLancierIAm2TERR11
print #save, NombreFrondeurIAm2TERR11
print #save, NombreArcherIAm2TERR11
print #save, NombreEXPLORATEURIAm2TERR11
print #save, NombreHommeDarmeIAm2TERR12
print #save, NombreLancierIAm2TERR12
print #save, NombreFrondeurIAm2TERR12
print #save, NombreArcherIAm2TERR12
print #save, NombreEXPLORATEURIAm2TERR12
print #save, NombreHommeDarmeIAm2TERR13
print #save, NombreLancierIAm2TERR13
print #save, NombreFrondeurIAm2TERR13
print #save, NombreArcherIAm2TERR13
print #save, NombreEXPLORATEURIAm2TERR13
print #save, NombreHommeDarmeIAm2TERR14
print #save, NombreLancierIAm2TERR14
print #save, NombreFrondeurIAm2TERR14
print #save, NombreArcherIAm2TERR14
print #save, NombreEXPLORATEURIAm2TERR14
print #save, NombreHommeDarmeIAm2TERR15
print #save, NombreLancierIAm2TERR15
print #save, NombreFrondeurIAm2TERR15
print #save, NombreArcherIAm2TERR15
print #save, NombreEXPLORATEURIAm2TERR15
print #save, NombreHommeDarmeIAm2TERR16
print #save, NombreLancierIAm2TERR16
print #save, NombreFrondeurIAm2TERR16
print #save, NombreArcherIAm2TERR16
print #save, NombreEXPLORATEURIAm2TERR16
print #save, NombreHommeDarmeIAm2TERR17
print #save, NombreLancierIAm2TERR17
print #save, NombreFrondeurIAm2TERR17
print #save, NombreArcherIAm2TERR17
print #save, NombreEXPLORATEURIAm2TERR17
print #save, NombreHommeDarmeIAm2TERR18
print #save, NombreLancierIAm2TERR18
print #save, NombreFrondeurIAm2TERR18
print #save, NombreArcherIAm2TERR18
print #save, NombreEXPLORATEURIAm2TERR18
print #save, NombreHommeDarmeIAm2TERR19
print #save, NombreLancierIAm2TERR19
print #save, NombreFrondeurIAm2TERR19
print #save, NombreArcherIAm2TERR19
print #save, NombreEXPLORATEURIAm2TERR19
print #save, NombreHommeDarmeIAm2TERR20
print #save, NombreLancierIAm2TERR20
print #save, NombreFrondeurIAm2TERR20
print #save, NombreArcherIAm2TERR20
print #save, NombreEXPLORATEURIAm2TERR20
print #save, LVLfortificationTERRITOIRE1iam2
print #save, LVLfortificationTERRITOIRE2iam2
print #save, LVLfortificationTERRITOIRE3iam2
print #save, LVLfortificationTERRITOIRE4iam2
print #save, LVLfortificationTERRITOIRE5iam2
print #save, LVLfortificationTERRITOIRE6iam2
print #save, LVLfortificationTERRITOIRE7iam2
print #save, LVLfortificationTERRITOIRE8iam2
print #save, LVLfortificationTERRITOIRE9iam2
print #save, LVLfortificationTERRITOIRE10iam2
print #save, LVLfortificationTERRITOIRE11iam2
print #save, LVLfortificationTERRITOIRE12iam2
print #save, LVLfortificationTERRITOIRE13iam2
print #save, LVLfortificationTERRITOIRE14iam2
print #save, LVLfortificationTERRITOIRE15iam2
print #save, LVLfortificationTERRITOIRE16iam2
print #save, LVLfortificationTERRITOIRE17iam2
print #save, LVLfortificationTERRITOIRE18iam2
print #save, LVLfortificationTERRITOIRE19iam2
print #save, LVLfortificationTERRITOIRE20iam2
print #save, ageJOUEUR$
print #save, UPnatality
print #save, hpFortificationsTERR1
print #save, hpFortificationsTERR2
print #save, hpFortificationsTERR3
print #save, hpFortificationsTERR4
print #save, hpFortificationsTERR5
print #save, hpFortificationsTERR6
print #save, hpFortificationsTERR7
print #save, hpFortificationsTERR8
print #save, hpFortificationsTERR9
print #save, hpFortificationsTERR10
print #save, hpFortificationsTERR11
print #save, hpFortificationsTERR12
print #save, hpFortificationsTERR13
print #save, hpFortificationsTERR14
print #save, hpFortificationsTERR15
print #save, hpFortificationsTERR16
print #save, hpFortificationsTERR17
print #save, hpFortificationsTERR18
print #save, hpFortificationsTERR19
print #save, hpFortificationsTERR20
print #save, fortificationsUP
print #save, porteEx
print #save, porteEy
print #save, vitesse$
print #save, PositionINIai1
print #save, PositionINIai2
print #save, nombrePLAYER2territoire
print #save, nombrePLAYER3territoire
CLOSE #save
return

[ENDdataLOAD]
pass$ = "1"
    open "data\pref.txt" for output as #pref
    print #pref, pass$ 
    print #pref, introGAME
    print #pref, music
    print #pref, bruitage
    print #pref, language
    close #pref
close #sgc
close #save
close #saveMain
end

[inputDATA]
on error goto [ENDdataLOAD]
attaqueAIm2 = 0 : attaqueAIm1 = 0 : espionnageEXPEDITION = 0 : attaqueEXPEDITION = 0
open dataloadNAME$ for input as #save
if MenuMode = 1 then
    input #save, RaceSelectionSAVE$
    input #save, nombre2planeteJ1
    input #save, yearSAVE
    input #save, mouthsSAVE
    input #save, daysSAVE
    CLOSE #save
    return
end if
input #save, RaceSelectionSAVE$
input #save, nombre2planeteJ1
input #save, yearSAVE
input #save, mouthsSAVE
input #save, daysSAVE
input #save, Agej1
input #save, money
input #save, bois
input #save, metal
input #save, naqada
input #save, food
input #save, popPossible
input #save, popTOTAL
input #save, popSCIENT
input #save, popMILIT
input #save, nplayerP1
input #save, nomplanete1$
input #save, nomPLANETE$
input #save, P1x
input #save, P1y
input #save, P1bisx
input #save, P1bisy
input #save, P2bisx
input #save, P2bisy
input #save, SurfaceOceanP1
input #save, SurfaceTerreP1
input #save, SurfaceOceanP1j1
input #save, SurfaceTerreP1j1
input #save, SurfaceOceanP1j2
input #save, SurfaceTerreP1j2
input #save, lvlbatimentPrincipal
input #save, lvlbatimentFerme
input #save, lvlbatimentScierie
input #save, lvlbatimentMines
input #save, lvlbatimentHabitation
input #save, lvlbatimentCentrePolitique
input #save, lvlbatimentCentreScientifique
input #save, lvlbatimentCentreMilitaire
input #save, lvlbatimentFortifications
input #save, influencePossible
input #save, influenceADD
input #save, popADD
input #save, coutHabitationBOIS
input #save, coutHabitationMETAL
input #save, coutScBOIS
input #save, coutScMETAL
input #save, coutPrincipalBOIS
input #save, coutPrincipalMETAL
input #save, coutSmBOIS
input #save, coutSmMETAL
input #save, coutHabitationBOISindex
input #save, coutScBOISindex
input #save, coutPrincipalBOISindex
input #save, coutSmBOISindex
input #save, batimentBUILDpop
input #save, batimentBUILDcs
input #save, batimentBUILDcm
input #save, batimentBUILDferme
input #save, batimentBUILDscierie
input #save, batimentBUILDFortifications
input #save, sedentarisation
input #save, NombreHommeDarme
input #save, NombreEclaireur
input #save, DecouverteCiv2P1
input #save, nombreRAPPORT
input #save, DecouverteCiv2P1
input #save, fermage
input #save, coutFermeBOISindex
input #save, coutfermageMINERAISindex
input #save, coutfermageBOIS
input #save, coutfermageMINERAIS
input #save, scierie
input #save, coutScierieBOISindex
input #save, coutScierieBOIS
input #save, coutScierieMETAL
input #save, mines
input #save, fortifications
input #save, batimentBUILDmines
input #save, coutMinesBOISindex
input #save, coutMinesMETALindex
input #save, coutMinesBOIS
input #save, coutMinesMETAL
input #save, coutFortificationsBOIS
input #save, coutFortificationsMETAL
input #save, coutFortificationsBOISindex
input #save, coutFortifications2BOIS
input #save, coutFortifications2BOISindex
input #save, hpFortifications
input #save, lvlHPFortifications
input #save, placePARhabitationJ1
input #save, nombreHabitationJ1
input #save, UpgradeHommeDarmeOFF
input #save, UpgradeHommeDarmeDEF
input #save, popMILITlim
input #save, popSCIENTlim
input #save, RECHEARCHpoint
input #save, coutFOODhommedarme
input #save, coutBOIShommedarme
input #save, coutFOODlancier
input #save, coutBOISlancier
input #save, coutFOODfrondeur
input #save, coutBOISfrondeur
input #save, coutFOODarcher
input #save, coutBOISarcher
input #save, coutFOODspy
input #save, coutBOISspy
input #save, offHommedarme
input #save, defHommedarme
input #save, vieHommedarme
input #save, offlancier
input #save, deflancier
input #save, vielancier
input #save, offfrondeur
input #save, deffrondeur
input #save, viefrondeur
input #save, offarcher
input #save, defarcher
input #save, viearcher
input #save, porteEtoileP1
input #save, coutlvlRecyclageBOIS
input #save, coutlvlRecyclageFOOD
input #save, coutlvlCoupeBOIS
input #save, coutlvlCoupeFOOD
input #save, coutlvlEntretienBOIS
input #save, coutlvlEntretienFOOD
input #save, lvlRecyclageBOIS
input #save, RECYbois
input #save, lvlCoupeBOIS
input #save, COUPEbois
input #save, lvlEntretienBOIS
input #save, ENTRbois
input #save, coutlvlChasseBOIS
input #save, coutlvlChasseFOOD
input #save, lvlChasse
input #save, ChasseFOOD
input #save, coutlvlCueilletteBOIS
input #save, coutlvlCueilletteFOOD
input #save, lvlCueillette
input #save, CueilletteFOOD
input #save, coutlvlElevageBOIS
input #save, coutlvlElevageFOOD
input #save, lvlElevage
input #save, ElevageFOOD
input #save, coutlvlAgricultureBOIS
input #save, coutlvlAgricultureFOOD
input #save, lvlAgriculture
input #save, AgricultureFOOD
input #save, agriculture
input #save, elevage
input #save, coutlvlEXTRACTIONmetalBOIS
input #save, coutlvlEXTRACTIONmetalFOOD
input #save, EXTRACTIONmetal
input #save, lvlEXTRACTIONmetal
input #save, RECYCLEmetal
input #save, lvlRecyclageMETAL
input #save, coutlvlRECYCLEBOIS
input #save, coutlvlRECYCLEFOOD
input #save, lvlRAFFmetal
input #save, coutlvlRAFFBOIS
input #save, coutlvlRAFFFOOD
input #save, RAFFmetal
input #save, UpgradeLancierOFF
input #save, UpgradeLancierDEF
input #save, UpgradeFrondeurOFF
input #save, UpgradeFrondeurDEF
input #save, UpgradeArcherOFF
input #save, UpgradeArcherDEF
input #save, NombreLancier
input #save, NombreFrondeur
input #save, NombreArcher
input #save, CentreMilitaire2
input #save, lancierSEARCH
input #save, frondeurSEARCH
input #save, archerSEARCH
input #save, UPcitoyen1a
input #save, UPcitoyen1b
input #save, UPcitoyen1c
input #save, UPscientifiq1a
input #save, UPscientifiq1b
input #save, UPscientifiq1c
input #save, centreSCI
input #save, NombreLancierIAm1
input #save, NombreFrondeurIAm1
input #save, NombreArcherIAm1
input #save, compteurIA1m
input #save, boisIAm1
input #save, metalIAm1
input #save, foodIAm1
input #save, naqadaIAm1
input #save, lvlbatimentPrincipalIAm1
input #save, lvlbatimentFermeIAm1
input #save, lvlbatimentScierieIAm1
input #save, lvlbatimentMinesIAm1
input #save, lvlbatimentHabitationIAm1
input #save, lvlbatimentCentrePolitiqueIAm1
input #save, lvlbatimentCentreScientifiqueIAm1
input #save, lvlbatimentCentreMilitaireIAm1
input #save, lvlbatimentFortificationsIAm1
input #save, influencePossibleIAm1
input #save, NombreHommeDarmeIAm1
input #save, popSCIENTIAm1
input #save, popMILITIAm1
input #save, popPossibleIAm1
input #save, popTOTALIAm1
input #save, RaceSelectionIAm1$
input #save, SurfaceTerreP1IAm1
input #save, sedentarisationIAm1
input #save, fermageIAm1
input #save, scierieIA1
input #save, minesIA1
input #save, lvlHPFortificationsIAm1
input #save, hpFortificationsIAm1
input #save, lvlbatimentFortificationsIAm1
input #save, coutFortificationsBOISindexIAm1
input #save, coutFortificationsBOISIAm1
input #save, coutFortifications2METALIAm1
input #save, coutFortifications2BOISIAm1
input #save, coutFortifications2BOISindexIAm1
input #save, coutHabitationBOISindexIAm1
input #save, coutScBOISindexIAm1
input #save, coutPrincipalBOISindexIAm1
input #save, coutSmBOISindexIAm1
input #save, coutFermeBOISindexIAm1
input #save, coutScierieBOISindexIAm1
input #save, coutMinesBOISindexIAm1
input #save, offHommedarmeIAm1
input #save, defHommedarmeIAm1
input #save, vieHommedarmeIAm1
input #save, NombreLancierIAm2
input #save, NombreFrondeurIAm2
input #save, NombreArcherIAm2
input #save, compteurIA2m
input #save, boisIAm2
input #save, metalIAm2
input #save, foodIAm2
input #save, naqadaIAm2
input #save, lvlbatimentPrincipalIAm2
input #save, lvlbatimentFermeIAm2
input #save, lvlbatimentScierieIAm2
input #save, lvlbatimentMinesIAm2
input #save, lvlbatimentHabitationIAm2
input #save, lvlbatimentCentrePolitiqueIAm2
input #save, lvlbatimentCentreScientifiqueIAm2
input #save, lvlbatimentCentreMilitaireIAm2
input #save, lvlbatimentFortificationsIAm2
input #save, influencePossibleIAm2
input #save, NombreHommeDarmeIAm2
input #save, popSCIENTIAm2
input #save, popMILITIAm2
input #save, popPossibleIAm2
input #save, popTOTALIAm2
input #save, RaceSelectionIAm2$
input #save, SurfaceTerreP1IAm2
input #save, sedentarisationIAm2
input #save, fermageIAm2
input #save, scierieIA2
input #save, minesIA2
input #save, lvlHPFortificationsIAm2
input #save, hpFortificationsIAm2
input #save, lvlbatimentFortificationsIAm2
input #save, coutFortificationsBOISindexIAm2
input #save, coutFortificationsBOISIAm2
input #save, coutFortifications2METALIAm2
input #save, coutFortifications2BOISIAm2
input #save, coutFortifications2BOISindexIAm2
input #save, coutHabitationBOISindexIAm2
input #save, coutScBOISindexIAm2
input #save, coutPrincipalBOISindexIAm2
input #save, coutSmBOISindexIAm2
input #save, coutFermeBOISindexIAm2
input #save, coutScierieBOISindexIAm2
input #save, coutMinesBOISindexIAm2
input #save, offHommedarmeIAm2
input #save, defHommedarmeIAm2
input #save, vieHommedarmeIAm2
input #save, territoire
input #save, territoire1
input #save, territoire2
input #save, territoire3
input #save, territoire4
input #save, territoire5
input #save, territoire6
input #save, territoire7
input #save, territoire8
input #save, territoire9
input #save, territoire10
input #save, territoire11
input #save, territoire12
input #save, territoire13
input #save, territoire14
input #save, territoire15
input #save, territoire16
input #save, territoire17
input #save, territoire18
input #save, territoire19
input #save, territoire20
input #save, LVLterritoire1
input #save, LVLterritoire2
input #save, LVLterritoire3
input #save, LVLterritoire4
input #save, LVLterritoire5
input #save, LVLterritoire6
input #save, LVLterritoire7
input #save, LVLterritoire8
input #save, LVLterritoire9
input #save, LVLterritoire10
input #save, LVLterritoire11
input #save, LVLterritoire12
input #save, LVLterritoire13
input #save, LVLterritoire14
input #save, LVLterritoire15
input #save, LVLterritoire16
input #save, LVLterritoire17
input #save, LVLterritoire18
input #save, LVLterritoire19
input #save, LVLterritoire20
input #save, coutFOODhommedarmeIAm1
input #save, coutBOIShommedarmeIAm1
input #save, coutFOODlancierIAm1
input #save, coutBOISlancierIAm1
input #save, coutFOODfrondeurIAm1
input #save, coutBOISfrondeurIAm1
input #save, coutFOODarcherIAm1
input #save, coutBOISarcherIAm1
input #save, coutFOODhommedarmeIAm2
input #save, coutBOIShommedarmeIAm2
input #save, coutFOODlancierIAm2
input #save, coutBOISlancierIAm2
input #save, coutFOODfrondeurIAm2
input #save, coutBOISfrondeurIAm2
input #save, coutFOODarcherIAm2
input #save, coutBOISarcherIAm2
input #save, lancierUPGRADE1
input #save, lancierUPGRADE2
input #save, lancierUPGRADE3
input #save, frondeurUPGRADE1
input #save, frondeurUPGRADE2
input #save, frondeurUPGRADE3
input #save, archerUPGRADE1
input #save, archerUPGRADE2
input #save, archerUPGRADE3
input #save, hommeDarmeUPGRADE1
input #save, hommeDarmeUPGRADE2
input #save, hommeDarmeUPGRADE3
input #save, IA1Alife1
input #save, RaceIAm1$
input #save, STATUTiam1
input #save, INCOMEterritoire1FOOD
input #save, INCOMEterritoire2FOOD
input #save, INCOMEterritoire3FOOD
input #save, INCOMEterritoire4FOOD
input #save, INCOMEterritoire5FOOD
input #save, INCOMEterritoire6FOOD
input #save, INCOMEterritoire7FOOD
input #save, INCOMEterritoire8FOOD
input #save, INCOMEterritoire9FOOD
input #save, INCOMEterritoire10FOOD
input #save, INCOMEterritoire11FOOD
input #save, INCOMEterritoire12FOOD
input #save, INCOMEterritoire13FOOD
input #save, INCOMEterritoire14FOOD
input #save, INCOMEterritoire15FOOD
input #save, INCOMEterritoire16FOOD
input #save, INCOMEterritoire17FOOD
input #save, INCOMEterritoire18FOOD
input #save, INCOMEterritoire19FOOD
input #save, INCOMEterritoire20FOOD
input #save, INCOMEterritoire1BOIS
input #save, INCOMEterritoire2BOIS
input #save, INCOMEterritoire3BOIS
input #save, INCOMEterritoire4BOIS
input #save, INCOMEterritoire5BOIS
input #save, INCOMEterritoire6BOIS
input #save, INCOMEterritoire7BOIS
input #save, INCOMEterritoire8BOIS
input #save, INCOMEterritoire9BOIS
input #save, INCOMEterritoire10BOIS
input #save, INCOMEterritoire11BOIS
input #save, INCOMEterritoire12BOIS
input #save, INCOMEterritoire13BOIS
input #save, INCOMEterritoire14BOIS
input #save, INCOMEterritoire15BOIS
input #save, INCOMEterritoire16BOIS
input #save, INCOMEterritoire17BOIS
input #save, INCOMEterritoire18BOIS
input #save, INCOMEterritoire19BOIS
input #save, INCOMEterritoire20BOIS
input #save, INCOMEterritoire1METAL
input #save, INCOMEterritoire2METAL
input #save, INCOMEterritoire3METAL
input #save, INCOMEterritoire4METAL
input #save, INCOMEterritoire5METAL
input #save, INCOMEterritoire6METAL
input #save, INCOMEterritoire7METAL
input #save, INCOMEterritoire8METAL
input #save, INCOMEterritoire9METAL
input #save, INCOMEterritoire10METAL
input #save, INCOMEterritoire11METAL
input #save, INCOMEterritoire12METAL
input #save, INCOMEterritoire13METAL
input #save, INCOMEterritoire14METAL
input #save, INCOMEterritoire15METAL
input #save, INCOMEterritoire16METAL
input #save, INCOMEterritoire17METAL
input #save, INCOMEterritoire18METAL
input #save, INCOMEterritoire19METAL
input #save, INCOMEterritoire20METAL
input #save, nombrePLAYER1territoire
input #save, INCOMEterritoireFOOD
input #save, INCOMEterritoireBOIS
input #save, INCOMEterritoireMETAL
input #save, STATUTiam2TOiam1
input #save, INCOMEterritoireFOODiam1
input #save, INCOMEterritoireBOISiam1
input #save, INCOMEterritoireMETALiam1
input #save, INCOMEterritoireFOODiam2
input #save, INCOMEterritoireBOISiam2
input #save, INCOMEterritoireMETALiam2
input #save, nombrePLAYER2territoire
input #save, nombrePLAYER3territoire
input #save, IA2Alife1
input #save, RaceIAm2$
input #save, STATUTiam2
input #save, DecouverteCiv3P1
input #save, IA1terre
input #save, IA2terre
input #save, compteurIA2m
input #save, offEXPLORATEUR
input #save, defEXPLORATEUR
input #save, vieEXPLORATEUR
input #save, NombreEXPLORATEUR
input #save, coutFOODexplorateur
input #save, coutBOISexplorateur
input #save, hpFortifications
input #save, explorateurUPGRADE
input #save, NombreHommeDarmeTERR1
input #save, NombreLancierTERR1
input #save, NombreFrondeurTERR1
input #save, NombreArcherTERR1
input #save, NombreEXPLORATEURTERR1
input #save, NombreHommeDarmeTERR2
input #save, NombreLancierTERR2
input #save, NombreFrondeurTERR2
input #save, NombreArcherTERR2
input #save, NombreEXPLORATEURTERR2
input #save, NombreHommeDarmeTERR3
input #save, NombreLancierTERR3
input #save, NombreFrondeurTERR3
input #save, NombreArcherTERR3
input #save, NombreEXPLORATEURTERR3
input #save, NombreHommeDarmeTERR4
input #save, NombreLancierTERR4
input #save, NombreFrondeurTERR4
input #save, NombreArcherTERR4
input #save, NombreEXPLORATEURTERR4
input #save, NombreHommeDarmeTERR5
input #save, NombreLancierTERR5
input #save, NombreFrondeurTERR5
input #save, NombreArcherTERR5
input #save, NombreEXPLORATEURTERR5
input #save, NombreHommeDarmeTERR6
input #save, NombreLancierTERR6
input #save, NombreFrondeurTERR6
input #save, NombreArcherTERR6
input #save, NombreEXPLORATEURTERR6
input #save, NombreHommeDarmeTERR7
input #save, NombreLancierTERR7
input #save, NombreFrondeurTERR7
input #save, NombreArcherTERR7
input #save, NombreEXPLORATEURTERR7
input #save, NombreHommeDarmeTERR1
input #save, NombreLancierTERR8
input #save, NombreFrondeurTERR8
input #save, NombreArcherTERR8
input #save, NombreEXPLORATEURTERR8
input #save, NombreHommeDarmeTERR9
input #save, NombreLancierTERR9
input #save, NombreFrondeurTERR9
input #save, NombreArcherTERR9
input #save, NombreEXPLORATEURTERR9
input #save, NombreHommeDarmeTERR10
input #save, NombreLancierTERR10
input #save, NombreFrondeurTERR10
input #save, NombreArcherTERR10
input #save, NombreEXPLORATEURTERR10
input #save, NombreHommeDarmeTERR11
input #save, NombreLancierTERR11
input #save, NombreFrondeurTERR11
input #save, NombreArcherTERR11
input #save, NombreEXPLORATEURTERR11
input #save, NombreHommeDarmeTERR12
input #save, NombreLancierTERR12
input #save, NombreFrondeurTERR12
input #save, NombreArcherTERR12
input #save, NombreEXPLORATEURTERR12
input #save, NombreHommeDarmeTERR13
input #save, NombreLancierTERR13
input #save, NombreFrondeurTERR13
input #save, NombreArcherTERR13
input #save, NombreEXPLORATEURTERR13
input #save, NombreHommeDarmeTERR14
input #save, NombreLancierTERR14
input #save, NombreFrondeurTERR14
input #save, NombreArcherTERR14
input #save, NombreEXPLORATEURTERR14
input #save, NombreHommeDarmeTERR15
input #save, NombreLancierTERR15
input #save, NombreFrondeurTERR15
input #save, NombreArcherTERR15
input #save, NombreEXPLORATEURTERR15
input #save, NombreHommeDarmeTERR16
input #save, NombreLancierTERR16
input #save, NombreFrondeurTERR16
input #save, NombreArcherTERR16
input #save, NombreEXPLORATEURTERR16
input #save, NombreHommeDarmeTERR17
input #save, NombreLancierTERR17
input #save, NombreFrondeurTERR17
input #save, NombreArcherTERR17
input #save, NombreEXPLORATEURTERR17
input #save, NombreHommeDarmeTERR18
input #save, NombreLancierTERR18
input #save, NombreFrondeurTERR18
input #save, NombreArcherTERR18
input #save, NombreEXPLORATEURTERR18
input #save, NombreHommeDarmeTERR19
input #save, NombreLancierTERR19
input #save, NombreFrondeurTERR19
input #save, NombreArcherTERR19
input #save, NombreEXPLORATEURTERR19
input #save, NombreHommeDarmeTERR20
input #save, NombreLancierTERR20
input #save, NombreFrondeurTERR20
input #save, NombreArcherTERR20
input #save, NombreEXPLORATEURTERR20
input #save, LVLfortificationTERRITOIRE1
input #save, LVLfortificationTERRITOIRE2
input #save, LVLfortificationTERRITOIRE3
input #save, LVLfortificationTERRITOIRE4
input #save, LVLfortificationTERRITOIRE5
input #save, LVLfortificationTERRITOIRE6
input #save, LVLfortificationTERRITOIRE7
input #save, LVLfortificationTERRITOIRE8
input #save, LVLfortificationTERRITOIRE9
input #save, LVLfortificationTERRITOIRE10
input #save, LVLfortificationTERRITOIRE11
input #save, LVLfortificationTERRITOIRE12
input #save, LVLfortificationTERRITOIRE13
input #save, LVLfortificationTERRITOIRE14
input #save, LVLfortificationTERRITOIRE15
input #save, LVLfortificationTERRITOIRE16
input #save, LVLfortificationTERRITOIRE17
input #save, LVLfortificationTERRITOIRE18
input #save, LVLfortificationTERRITOIRE19
input #save, LVLfortificationTERRITOIRE20
input #save, NombreHommeDarmeIAm1TERR1
input #save, NombreLancierIAm1TERR1
input #save, NombreFrondeurIAm1TERR1
input #save, NombreArcherIAm1TERR1
input #save, NombreEXPLORATEURIAm1TERR1
input #save, NombreHommeDarmeIAm1TERR2
input #save, NombreLancierIAm1TERR2
input #save, NombreFrondeurIAm1TERR2
input #save, NombreArcherIAm1TERR2
input #save, NombreEXPLORATEURIAm1TERR2
input #save, NombreHommeDarmeIAm1TERR3
input #save, NombreLancierIAm1TERR3
input #save, NombreFrondeurIAm1TERR3
input #save, NombreArcherIAm1TERR3
input #save, NombreEXPLORATEURIAm1TERR3
input #save, NombreHommeDarmeIAm1TERR4
input #save, NombreLancierIAm1TERR4
input #save, NombreFrondeurIAm1TERR4
input #save, NombreArcherIAm1TERR4
input #save, NombreEXPLORATEURIAm1TERR4
input #save, NombreHommeDarmeIAm1TERR5
input #save, NombreLancierIAm1TERR5
input #save, NombreFrondeurIAm1TERR5
input #save, NombreArcherIAm1TERR5
input #save, NombreEXPLORATEURIAm1TERR5
input #save, NombreHommeDarmeIAm1TERR6
input #save, NombreLancierIAm1TERR6
input #save, NombreFrondeurIAm1TERR6
input #save, NombreArcherIAm1TERR6
input #save, NombreEXPLORATEURIAm1TERR6
input #save, NombreHommeDarmeIAm1TERR7
input #save, NombreLancierIAm1TERR7
input #save, NombreFrondeurIAm1TERR7
input #save, NombreArcherIAm1TERR7
input #save, NombreEXPLORATEURIAm1TERR7
input #save, NombreHommeDarmeIAm1TERR1
input #save, NombreLancierIAm1TERR8
input #save, NombreFrondeurIAm1TERR8
input #save, NombreArcherIAm1TERR8
input #save, NombreEXPLORATEURIAm1TERR8
input #save, NombreHommeDarmeIAm1TERR9
input #save, NombreLancierIAm1TERR9
input #save, NombreFrondeurIAm1TERR9
input #save, NombreArcherIAm1TERR9
input #save, NombreEXPLORATEURIAm1TERR9
input #save, NombreHommeDarmeIAm1TERR10
input #save, NombreLancierIAm1TERR10
input #save, NombreFrondeurIAm1TERR10
input #save, NombreArcherIAm1TERR10
input #save, NombreEXPLORATEURIAm1TERR10
input #save, NombreHommeDarmeIAm1TERR11
input #save, NombreLancierIAm1TERR11
input #save, NombreFrondeurIAm1TERR11
input #save, NombreArcherIAm1TERR11
input #save, NombreEXPLORATEURIAm1TERR11
input #save, NombreHommeDarmeIAm1TERR12
input #save, NombreLancierIAm1TERR12
input #save, NombreFrondeurIAm1TERR12
input #save, NombreArcherIAm1TERR12
input #save, NombreEXPLORATEURIAm1TERR12
input #save, NombreHommeDarmeIAm1TERR13
input #save, NombreLancierIAm1TERR13
input #save, NombreFrondeurIAm1TERR13
input #save, NombreArcherIAm1TERR13
input #save, NombreEXPLORATEURIAm1TERR13
input #save, NombreHommeDarmeIAm1TERR14
input #save, NombreLancierIAm1TERR14
input #save, NombreFrondeurIAm1TERR14
input #save, NombreArcherIAm1TERR14
input #save, NombreEXPLORATEURIAm1TERR14
input #save, NombreHommeDarmeIAm1TERR15
input #save, NombreLancierIAm1TERR15
input #save, NombreFrondeurIAm1TERR15
input #save, NombreArcherIAm1TERR15
input #save, NombreEXPLORATEURIAm1TERR15
input #save, NombreHommeDarmeIAm1TERR16
input #save, NombreLancierIAm1TERR16
input #save, NombreFrondeurIAm1TERR16
input #save, NombreArcherIAm1TERR16
input #save, NombreEXPLORATEURIAm1TERR16
input #save, NombreHommeDarmeIAm1TERR17
input #save, NombreLancierIAm1TERR17
input #save, NombreFrondeurIAm1TERR17
input #save, NombreArcherIAm1TERR17
input #save, NombreEXPLORATEURIAm1TERR17
input #save, NombreHommeDarmeIAm1TERR18
input #save, NombreLancierIAm1TERR18
input #save, NombreFrondeurIAm1TERR18
input #save, NombreArcherIAm1TERR18
input #save, NombreEXPLORATEURIAm1TERR18
input #save, NombreHommeDarmeIAm1TERR19
input #save, NombreLancierIAm1TERR19
input #save, NombreFrondeurIAm1TERR19
input #save, NombreArcherIAm1TERR19
input #save, NombreEXPLORATEURIAm1TERR19
input #save, NombreHommeDarmeIAm1TERR20
input #save, NombreLancierIAm1TERR20
input #save, NombreFrondeurIAm1TERR20
input #save, NombreArcherIAm1TERR20
input #save, NombreEXPLORATEURIAm1TERR20
input #save, LVLfortificationTERRITOIRE1iam1
input #save, LVLfortificationTERRITOIRE2iam1
input #save, LVLfortificationTERRITOIRE3iam1
input #save, LVLfortificationTERRITOIRE4iam1
input #save, LVLfortificationTERRITOIRE5iam1
input #save, LVLfortificationTERRITOIRE6iam1
input #save, LVLfortificationTERRITOIRE7iam1
input #save, LVLfortificationTERRITOIRE8iam1
input #save, LVLfortificationTERRITOIRE9iam1
input #save, LVLfortificationTERRITOIRE10iam1
input #save, LVLfortificationTERRITOIRE11iam1
input #save, LVLfortificationTERRITOIRE12iam1
input #save, LVLfortificationTERRITOIRE13iam1
input #save, LVLfortificationTERRITOIRE14iam1
input #save, LVLfortificationTERRITOIRE15iam1
input #save, LVLfortificationTERRITOIRE16iam1
input #save, LVLfortificationTERRITOIRE17iam1
input #save, LVLfortificationTERRITOIRE18iam1
input #save, LVLfortificationTERRITOIRE19iam1
input #save, LVLfortificationTERRITOIRE20iam1
input #save, NombreHommeDarmeIAm2TERR1
input #save, NombreLancierIAm2TERR1
input #save, NombreFrondeurIAm2TERR1
input #save, NombreArcherIAm2TERR1
input #save, NombreEXPLORATEURIAm2TERR1
input #save, NombreHommeDarmeIAm2TERR2
input #save, NombreLancierIAm2TERR2
input #save, NombreFrondeurIAm2TERR2
input #save, NombreArcherIAm2TERR2
input #save, NombreEXPLORATEURIAm2TERR2
input #save, NombreHommeDarmeIAm2TERR3
input #save, NombreLancierIAm2TERR3
input #save, NombreFrondeurIAm2TERR3
input #save, NombreArcherIAm2TERR3
input #save, NombreEXPLORATEURIAm2TERR3
input #save, NombreHommeDarmeIAm2TERR4
input #save, NombreLancierIAm2TERR4
input #save, NombreFrondeurIAm2TERR4
input #save, NombreArcherIAm2TERR4
input #save, NombreEXPLORATEURIAm2TERR4
input #save, NombreHommeDarmeIAm2TERR5
input #save, NombreLancierIAm2TERR5
input #save, NombreFrondeurIAm2TERR5
input #save, NombreArcherIAm2TERR5
input #save, NombreEXPLORATEURIAm2TERR5
input #save, NombreHommeDarmeIAm2TERR6
input #save, NombreLancierIAm2TERR6
input #save, NombreFrondeurIAm2TERR6
input #save, NombreArcherIAm2TERR6
input #save, NombreEXPLORATEURIAm2TERR6
input #save, NombreHommeDarmeIAm2TERR7
input #save, NombreLancierIAm2TERR7
input #save, NombreFrondeurIAm2TERR7
input #save, NombreArcherIAm2TERR7
input #save, NombreEXPLORATEURIAm2TERR7
input #save, NombreHommeDarmeIAm2TERR1
input #save, NombreLancierIAm2TERR8
input #save, NombreFrondeurIAm2TERR8
input #save, NombreArcherIAm2TERR8
input #save, NombreEXPLORATEURIAm2TERR8
input #save, NombreHommeDarmeIAm2TERR9
input #save, NombreLancierIAm2TERR9
input #save, NombreFrondeurIAm2TERR9
input #save, NombreArcherIAm2TERR9
input #save, NombreEXPLORATEURIAm2TERR9
input #save, NombreHommeDarmeIAm2TERR10
input #save, NombreLancierIAm2TERR10
input #save, NombreFrondeurIAm2TERR10
input #save, NombreArcherIAm2TERR10
input #save, NombreEXPLORATEURIAm2TERR10
input #save, NombreHommeDarmeIAm2TERR11
input #save, NombreLancierIAm2TERR11
input #save, NombreFrondeurIAm2TERR11
input #save, NombreArcherIAm2TERR11
input #save, NombreEXPLORATEURIAm2TERR11
input #save, NombreHommeDarmeIAm2TERR12
input #save, NombreLancierIAm2TERR12
input #save, NombreFrondeurIAm2TERR12
input #save, NombreArcherIAm2TERR12
input #save, NombreEXPLORATEURIAm2TERR12
input #save, NombreHommeDarmeIAm2TERR13
input #save, NombreLancierIAm2TERR13
input #save, NombreFrondeurIAm2TERR13
input #save, NombreArcherIAm2TERR13
input #save, NombreEXPLORATEURIAm2TERR13
input #save, NombreHommeDarmeIAm2TERR14
input #save, NombreLancierIAm2TERR14
input #save, NombreFrondeurIAm2TERR14
input #save, NombreArcherIAm2TERR14
input #save, NombreEXPLORATEURIAm2TERR14
input #save, NombreHommeDarmeIAm2TERR15
input #save, NombreLancierIAm2TERR15
input #save, NombreFrondeurIAm2TERR15
input #save, NombreArcherIAm2TERR15
input #save, NombreEXPLORATEURIAm2TERR15
input #save, NombreHommeDarmeIAm2TERR16
input #save, NombreLancierIAm2TERR16
input #save, NombreFrondeurIAm2TERR16
input #save, NombreArcherIAm2TERR16
input #save, NombreEXPLORATEURIAm2TERR16
input #save, NombreHommeDarmeIAm2TERR17
input #save, NombreLancierIAm2TERR17
input #save, NombreFrondeurIAm2TERR17
input #save, NombreArcherIAm2TERR17
input #save, NombreEXPLORATEURIAm2TERR17
input #save, NombreHommeDarmeIAm2TERR18
input #save, NombreLancierIAm2TERR18
input #save, NombreFrondeurIAm2TERR18
input #save, NombreArcherIAm2TERR18
input #save, NombreEXPLORATEURIAm2TERR18
input #save, NombreHommeDarmeIAm2TERR19
input #save, NombreLancierIAm2TERR19
input #save, NombreFrondeurIAm2TERR19
input #save, NombreArcherIAm2TERR19
input #save, NombreEXPLORATEURIAm2TERR19
input #save, NombreHommeDarmeIAm2TERR20
input #save, NombreLancierIAm2TERR20
input #save, NombreFrondeurIAm2TERR20
input #save, NombreArcherIAm2TERR20
input #save, NombreEXPLORATEURIAm2TERR20
input #save, LVLfortificationTERRITOIRE1iam2
input #save, LVLfortificationTERRITOIRE2iam2
input #save, LVLfortificationTERRITOIRE3iam2
input #save, LVLfortificationTERRITOIRE4iam2
input #save, LVLfortificationTERRITOIRE5iam2
input #save, LVLfortificationTERRITOIRE6iam2
input #save, LVLfortificationTERRITOIRE7iam2
input #save, LVLfortificationTERRITOIRE8iam2
input #save, LVLfortificationTERRITOIRE9iam2
input #save, LVLfortificationTERRITOIRE10iam2
input #save, LVLfortificationTERRITOIRE11iam2
input #save, LVLfortificationTERRITOIRE12iam2
input #save, LVLfortificationTERRITOIRE13iam2
input #save, LVLfortificationTERRITOIRE14iam2
input #save, LVLfortificationTERRITOIRE15iam2
input #save, LVLfortificationTERRITOIRE16iam2
input #save, LVLfortificationTERRITOIRE17iam2
input #save, LVLfortificationTERRITOIRE18iam2
input #save, LVLfortificationTERRITOIRE19iam2
input #save, LVLfortificationTERRITOIRE20iam2
input #save, ageJOUEUR$
input #save, UPnatality
input #save, hpFortificationsTERR1
input #save, hpFortificationsTERR2
input #save, hpFortificationsTERR3
input #save, hpFortificationsTERR4
input #save, hpFortificationsTERR5
input #save, hpFortificationsTERR6
input #save, hpFortificationsTERR7
input #save, hpFortificationsTERR8
input #save, hpFortificationsTERR9
input #save, hpFortificationsTERR10
input #save, hpFortificationsTERR11
input #save, hpFortificationsTERR12
input #save, hpFortificationsTERR13
input #save, hpFortificationsTERR14
input #save, hpFortificationsTERR15
input #save, hpFortificationsTERR16
input #save, hpFortificationsTERR17
input #save, hpFortificationsTERR18
input #save, hpFortificationsTERR19
input #save, hpFortificationsTERR20
input #save, fortificationsUP
input #save, porteEx
input #save, porteEy
input #save, vitesse$
input #save, PositionINIai1
input #save, PositionINIai2
input #save, nombrePLAYER2territoire
input #save, nombrePLAYER3territoire
CLOSE #save
return

