ClrText " WARWORLD« " For 1ÞA To 300 Next Do "1ÞContinuer 2ÞNouveau" "3ÞRecords"?ÞA ClrText LpWhile A>2 If A=2 Then 0ÞZ:Prog "PRENOM" ClrText "Nom du joueur"?ÞList 1[1] {130,120,120,120,120,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,100,100,100,100,5,100,100,100,100,5,100,100,100,100,5}ÞList 2 IfEnd List 2[1]ÞA List 2[2]ÞB List 2[3]ÞO List 2[4]ÞP List 2[5]ÞN List 2[6]ÞS List 2[7]ÞI List 2[8]ÞJ List 2[9]ÞK List 2[10]ÞL List 2[20]ÞV Lbl 0 Do ClrText "Bois:" List 2[12]=0ã"(Sur 500)" List 2[12]=0ãB>500ã500ÞB List 2[12]=1ãB>5000ã5000ÞB List 2[12]=1ã"(Sur 5000)" BÝ ClrText "Pierre:" List 2[12]=0ã"(Sur 500)" List 2[12]=0ãP>500ã500ÞP List 2[12]=1ã"(Sur 5000)" List 2[12]=1ãP>5000ã5000ÞP PÝ ClrText "OR:" List 2[12]=0ã"(Sur 500)" List 2[12]=0ãA>500ã500ÞA List 2[12]=1ã"(Sur 5000)" List 2[12]=1ãA>5000ã5000ÞA AÝ ClrText "Nourriture:" List 2[12]=0ã"(Sur 500)" List 2[12]=0ãN>500ã500ÞN List 2[12]=1ã"(Sur 5000)" List 2[12]=1ãN>5000ã5000ÞN NÝ ClrText "Populations:" (I‰J‰K‰L‰S)Ý " Sur:" VÝ ClrText "1ÞPaysans" "2ÞSoldats" "3ÞBatiments 4ÞJour suivan5ÞAttaquer"?ÞC LpWhile C>5 C=1ãGoto 1 C=2ãGoto 2 C=3ãGoto 3 C=4ãM=1ãGoto 4 C=5ãGoto 5 ClrText "Sale tricheur"Ý Goto 0 Lbl 1 Do ClrText "1ÞBucheron" "2ÞMineur D'OR3ÞMineur de pierre" "4ÞFermier"?ÞC C<1ã6ÞC LpWhile C>4 ClrText "TU AS :" C=1ãIÝ C=2ãJÝ C=3ãKÝ C=4ãLÝ C=1ã" Bucherons"Ý C=2ã" Mineur d'OR"Ý C=3ã"Mineur pierre" C=4ã" fermiers"Ý ClrText "qui te Rapporte:" C=1ã30©IÝ C=2ã30©JÝ C=3ã30©KÝ C=4ã30©LÝ C=1ã" de bois" C=2ã" d'OR" C=3ã" de pierre" C=4ã"de nouriture" " PAR JOUR"Ý ClrText C=1ã" Un bucheron" C=2ã"Un mineur de pierre" C=3ã"Un mineur d'OR" C=4ã" Un fermier" " coute:" "30ãBois"Ý "30ãPierre"Ý "30ãOR"Ý "30ãNouriture"Ý 30ÞE~H ClrText "En acheter combien"?ÞD If D©EàB Then If D©FàP Then If D©GàA Then If D©HàN Then If (I‰J‰K‰L‰S)Hã"PAS ASSEZ ..."Ý IfEnd F>HãGoto 0 1ÞM "ECHANGES ACCEPTES ..."Ý H™FÞH IfEnd IfEnd Lbl 4 0ÞM I©30‰BÞB J©30‰PÞP K©30‰AÞA L©30‰NÞN AÞList 2[1] BÞList 2[2] PÞList 2[4] NÞList 2[5] VÞList 2[20] SÞList 2[6] IÞList 2[7] JÞList 2[8] KÞList 2[9] LÞList 2[10] Goto 0 Lbl 5 For 1ÞE To 3 ClrText E=1ã"1ÞKEVIN BLAKE"Ý E=2ã"2ÞARTHUR KING"Ý E=3ã"3ÞMARK HORICE"Ý "BOIS:" E=1ãList 2[21]Ý E=2ãList 2[26]Ý E=3ãList 2[31]Ý ClrText "PIERRE:" E=1ãList 2[22]Ý E=2ãList 2[27]Ý E=3ãList 2[32]Ý ClrText "OR:":E=1ãList 6[23]Ý E=2ãList 6[28]Ý E=3ãList 6[33]Ý ClrText "NOURRITURE:":E=1ãList 2[24]Ý E=2ãList 2[29]Ý E=3ãList 2[34]Ý ClrText "POPULATION:":E=1ãList 2[25]Ý E=2ãList 2[30]Ý E=3ãList 2[35]Ý Next "ATTAQUER QUI"?ÞE E=1ãList 2[25]ÞList 2[36] E=2ãList 2[30]ÞList 2[36] E=3ãList 2[35]ÞList 2[36] List 2[36]‰SÞList 2[37] " " " " " C'EST LA GUERRE" 0ÞO For 1ÞX To List 2[37] Int 100Ran#‰1ÞF If FàS Then Int 4Ran#‰1ÞF F=1ãIsz Q Fá1ãIsz G IfEnd F>SãIsz H Next ClrText " " " " H>G‰Qã" C'EST UNE DEFAITE"Ý Q‰G