%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:6803 File Name:EMPIRES Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 0\->Z \ViewWindow 1,127,0,63,1,0 \Cls \Text 10,48,"Empires" \Text 58,110,"V1.4" \Horizontal 25 \Horizontal 42 \Text 28,1," **** Copyright 7D\x^2 2010 **** " \Text 35,20," arraklia@hotmail.fr "\Disp\Lbl 1 \Cls \ClrText \For 1\->A\To 6 \Locate A,1,"=" \Locate 22-A,1,"=" \Next \For 1\->A\To 20 \If A=1\ Or A=10\ Or A=19 \Then \Locate 8,1,"EMPIRES" \IfEnd \If A=5\ Or A=15 \Then \Locate 8,1," " \IfEnd \Next \Locate 4,3,"Aide" \Locate 4,4,"Nouveau jeu" \Locate 4,5,"Reprise" \Locate 4,6,"A propos" 3\->B \Do \Locate 2,B,"\=>" \Do 0\->A \Getkey\->A \LpWhile A=0 \Locate 2,B," " A=37\=>\Isz B A=28\=>\Dsz B B<3\=>6\->B B>6\=>3\->B \LpWhile A\<>31 B=4\=>\Goto2 B=5\=>\Goto3 B=6\=>\Goto4 \ClrText "* Aide" "Empires est un jeu" "pour deux joueurs," "tour par tour, se" "jouant sur la meme" "casio." "On commence avec une" "base principale et" "le but est de" "conquerir le plus de" "points sur la carte." "L\orsque la carte est" "saturee, celui qui a" "le plus de points a" "gagne." "Construisez des" "batiments, produisez" "des unites pour une" "victoire plus rapide."\Disp\Goto1 \Lbl 3 99\->Z \Goto0 \Lbl 4 \ClrText "* A propos" "Ce programme utilise" "\Mat M + \Mat N"\Disp"Concept : Aenahel et" "Arraklia" "Par l'equipe 7D\x^2"\Disp"7eventh.free.fr"\Disp\Goto1 \Lbl 2 \ClrText \Locate 1,1,"ETES-VOUS SUR ?" \Locate 1,2,"[EXE]:OUI AUTRE:NON" \Do 0\->A \Getkey\->A \LpWhile A=0 A\<>31\=>\Goto1 1\->J \Lbl 0 \ClrText \Cls \F-Line 1,1,70,1 \F-Line 1,1,1,63 \F-Line 70,63,70,1 \F-Line 1,63,70,63 1\->B \For 1\->A\To 8 B+7\->B \F-Line 1,B,70,B \Next 1\->B \For 1\->A\To 10 B+7\->B \F-Line B,1,B,63 \Next 3\->B \For 1\->A\To 9 \Text 58,B,A B+7\->B \Next 2\->B \For 1\->A\To 8 \Text B,66,A B+7\->B \Next \F-Line 1,63,70,63 Z\<>99\=>{72,6}\->\Dim \Mat M Z\<>99\=>{2,3}\->\Dim \Mat N \Text 1,74,"Joueur" \Text 9,74,"Mines" \Text 15,74,"Or" \Text 23,74,"Caserne" \Text 29,74,"Usine" \Text 35,74,"Marines" \Text 41,74,"Tanks" \Text 49,74,"Possesions" \Text 58,74,"[EXE]" \For 1\->A\To 2 Z\<>99\=>20\->\Mat N[A,1] Z\<>99\=>1\->\Mat N[A,2] Z\<>99\=>4\->\Mat N[A,3] \Next Z\<>99\=>1\->\Mat M[11,1] Z\<>99\=>2\->\Mat M[62,1] Z\<>99\=>30\->\Mat N[2,1] \Lbl A \For 1\->A\To 72 \Mat M[A,1]\->B \If B\<>0 \Then \Int (A/9)+1\->S A-9(S-1)\->T \IfEnd \If B=1 \Then 3+7(T-1)\->L \If L\<=0 \Then 59\->L S-1\->S \IfEnd \Text 2+7(S-1),L,"*" \IfEnd \If B=2 \Then 3+7(T-1)\->L \If L\<=0 \Then 59\->L S-1\->S \IfEnd \Text 2+7(S-1),L,"\theta" \IfEnd \Next J=0\=>1\->J \Lbl B \If J=1 \Then 2\->S 2\->T \IfEnd \If J=2 \Then 7\->S 8\->T \IfEnd \Lbl C \Text 15,110," " 9(S-1)+T\->U U=0\=>9\->U \Text 1,110,\Mat M[U,1] \Text 58,115,"," \Text 58,108,T \Text 58,120,S \If J=\Mat M[U,1] \Then \Text 9,110,\Mat M[U,2] \Text 15,110,\Mat N[J,1] \If \Mat M[U,3]=1 \Then \Text 23,110,"OUI" \Else \Text 23,110,"NON" \IfEnd \If \Mat M[U,4]=1 \Then \Text 29,110,"OUI" \Else \Text 29,110,"NON" \IfEnd \Text 35,110,\Mat M[U,5] \Text 41,110,\Mat M[U,6] \Text 49,120,\Mat N[J,2] \IfEnd \If J\<>\Mat M[U,1] \Then 3\->C \For 1\->A\To 7 C+6\->C C=21\=>C+2\->C C=47\=>C+2\->C C<49\=>\Text C,110,"?" C=49\=>\Text C,120,"?" \Next \IfEnd \Lbl D \ClrText B\<>1\=>\Locate 1,2,"Joueur" B\<>1\=>\Locate 8,2,J\Disp\PxlOn 1,1 \Do 1\->B \Do 0\->A \Getkey\->A \LpWhile A=0 A=27\=>\Isz T A=38\=>\Dsz T A=37\=>\Isz S A=28\=>\Dsz S T<1\=>9\->T T>9\=>1\->T S<1\=>8\->S S>8\=>1\->S J=\Mat M[U,1]\=>A=31\=>\GotoE J\<>\Mat M[U,1]\=>A=31\=>\Goto9 \Text 58,108," " \Text 58,120," " 3\->C \For 1\->A\To 6 C+6\->C C=21\=>C+2\->C \Text C,110," " \Next \Text 49,120," " \GotoC \LpWhile B=1 \Lbl E \ClrText \Locate 1,1,"====== EMPIRES ======" \Locate 4,2,"Aller en..." \Locate 4,3,"Deplacement" \Locate 4,4,"Construire" \Locate 4,5,"Entrainer" \Locate 4,6,"Retour" \Locate 4,7,"Fin du tour" 2\->C \Do \Locate 2,C,"\=>" \Do 0\->A \Getkey\->A \LpWhile A=0 \Locate 2,C," " A=28\=>\Dsz C A=37\=>\Isz C C<2\=>7\->C C>7\=>2\->C \LpWhile A\<>31 C=2\=>\Goto9 C=3\=>\GotoM C=4\=>\GotoG C=5\=>\GotoH C=7\=>\GotoI \GotoC \Lbl G \ClrText \Locate 1,1,"========== CONSTRUIRE" \Locate 4,3,"Mine d'\or" \Locate 4,4,"Caserne" \Locate 4,5,"Usine" \Locate 4,6,"Retour" \Locate 1,7,"Le cout est de 10 \or." 3\->C \Do \Locate 2,C,"\=>" \Do 0\->A \Getkey\->A \LpWhile A=0 \Locate 2,C," " A=28\=>\Dsz C A=37\=>\Isz C C<3\=>6\->C C>6\=>3\->C \LpWhile A\<>31 C=6\=>\GotoE \Mat N[J,1]\->P P<10\=>\Locate 1,7,"## PAS ASSEZ D'OR ###"\DispP<10\=>\GotoG 0\->D \If C=3 \Then \ClrText "COMBIEN DE MINES "?\->A 10A>P\=>99\->D D\<>99\=>P-10A\->P D\<>99\=>\Mat M[U,2]+A\->\Mat M[U,2] D\<>99\=>\Locate 1,7,"# MINES CONSTRUITES #"\Disp\IfEnd D=99\=>\Locate 1,7,"## PAS ASSEZ D'OR ##"\DispD=99\=>\GotoG C=4\=>\Mat M[U,3]=1\=>\Locate 1,7,"# DEJA UNE CASERNE ##"\DispC=4\=>\Mat M[U,3]=1\=>\GotoG \If C=4 \Then P-10\->P 1\->\Mat M[U,3] \Locate 1,7,"# CASERNE CONSTRUITE "\Disp\IfEnd C=5\=>\Mat M[U,4]=1\=>\Locate 1,7,"## DEJA UNE USINE ###"\DispC=5\=>\Mat M[U,4]=1\=>\GotoG \If C=5 \Then P-10\->P 1\->\Mat M[U,4] \Locate 1,7,"# USINE CONSTRUITE ##"\Disp\IfEnd P\->\Mat N[J,1] \GotoG \Lbl H \ClrText \Locate 1,1,"=========== ENTRAINER" \Locate 4,3,"Marines" \Locate 4,4,"Tanks" \Locate 4,6,"Retour" \Locate 4,7,"Infos" 3\->C \Do \Locate 2,C,"\=>" \Do 0\->A \Getkey\->A \LpWhile A=0 \Locate 2,C," " C\->D A=28\=>\Dsz C A=37\=>\Isz C C<3\=>7\->C C=5\=>D=4\=>6\->C C=5\=>D=6\=>4\->C C>7\=>3\->C \LpWhile A\<>31 C=6\=>\GotoE \If C=7 \Then \ClrText \Locate 1,2,"1 Marine = 1 \or" \Locate 1,3,"Armure 1 Attaque 2" \Locate 1,5,"1 Tank = 5 \or" \Locate 1,6,"Armure 6 Attaque 12"\Disp\IfEnd \Mat N[J,1]\->P \If C=3 \Then \If \Mat M[U,3]=1 \Then \ClrText "Combien de marines "?\->A \Int \Abs A\->A \If A\<=P \Then P-A\->P \Mat M[U,5]+A\->\Mat M[U,5] \Else \Locate 1,7,"## PAS ASSEZ D'OR ###"\Disp\IfEnd \Else \Locate 1,7,"## PAS DE CASERNE ###"\Disp\IfEnd \IfEnd \If C=4 \Then \If \Mat M[U,4]=1 \Then \ClrText "Combien de tanks "?\->A \Int \Abs A\->A \If 5A\<=P \Then P-5A\->P \Mat M[U,6]+A\->\Mat M[U,6] \Else \Locate 1,7,"## PAS ASSEZ D'OR ###"\Disp\IfEnd \Else \Locate 1,7,"#### PAS D'USINE ####"\Disp\IfEnd \IfEnd P\->\Mat N[J,1] \GotoH \Lbl I \ClrText \Locate 1,1,"Etes-vous certain ?" \Locate 1,2,"[EXE]:Oui AUTRE:Non" \Do 0\->A \Getkey\->A \LpWhile A=0 A\<>31\=>\GotoE \Locate 1,7,"Veuillez patienter..." 4\->\Mat N[J,3] 0\->B J\->K J=1\=>2\->J K=2\=>1\->J 0\->K 0\->L \Locate 1,6,"PASSEZ LA CASIO !" \For 1\->A\To 72 \Mat M[A,1]=1\=>\Isz K \Mat M[A,1]=2\=>\Isz L \Next \Locate 1,3,"SCORE" \Locate 1,4,"Joueur 1 \slash72" \Locate 1,5,"Joueur 2 \slash72" \Locate 17,4,K \Locate 17,5,L J=1\=>\Mat N[1,3]+\Int (K/10)\->\Mat N[1,3] J=2\=>\Mat N[2,3]+\Int (L/10)\->\Mat N[2,3] \If K+L=72 \Then \ClrText \Locate 1,1,"====== EMPIRES ======" \Locate 1,3,"Joueur gagne !" K>L\=>1\->W L>K\=>2\->W \Locate 8,3,W \Locate 1,7,"##### GAME OVER #####" \Stop \IfEnd 0\->K 0\->L \For 1\->A\To 72 \Mat M[A,1]\->C C=J\=>K+\Mat M[A,2]\->K \Next 6K+\Mat N[J,1]\->\Mat N[J,1] \GotoB \Lbl M \ClrText \Locate 1,1,"========= DEPLACEMENT" \Locate 1,7,"## CHOISIR UN LIEU ##" \Locate 1,2,"[-] Retour" \Locate 18,2,\Mat N[J,3] \Locate 20,2,"PA" \Locate 11,4,"," \Locate 10,3,"HAUT" \Locate 10,5,"BAS" \Locate 2,4,"GAUCHE" \Locate 15,4,"DROITE" S\->Q T\->R \Do \Locate 9,4,R \Locate 12,4,Q \Do 0\->A \Getkey\->A \LpWhile A=0 A=28\=>S-1\->Q A=37\=>S+1\->Q A=28\ Or A=37\=>T\->R Q<1\=>\Isz Q Q>8\=>\Dsz Q A=38\=>T-1\->R A=27\=>T+1\->R A=38\ Or A=27\=>S\->Q R<1\=>\Isz R R>9\=>\Dsz T A=32\=>32\->C A=32\=>31\->A \LpWhile A\<>31 C=32\=>\GotoE \Mat N[J,3]=0\=>\GotoE \ClrText "Combien de marines "?\->A \Int \Abs A\->A A>\Mat M[U,5]\=>"PAS ASSEZ DE MARINES!" A>\Mat M[U,5]\=>\GotoM "Combien de tanks "?\->C \Int \Abs C\->C C>\Mat M[U,6]\=>"PAS ASSEZ DE TANKS!" C>\Mat M[U,6]\=>\GotoM A=0\ And C=0\=>\GotoM 9(Q-1)+R\->V A\->G C\->H 1\->Z \Mat M[V,1]=0\=>\GotoN \Mat M[V,1]\<>J\=>\GotoP \Lbl N \Mat M[U,5]-G\->\Mat M[U,5] \Mat M[U,6]-H\->\Mat M[U,6] \Mat M[V,5]+G\->\Mat M[V,5] \Mat M[V,6]+H\->\Mat M[V,6] J\<>\Mat M[V,1]\=>\Mat N[J,2]+1\->\Mat N[J,2] J\->\Mat M[V,1] \Mat N[J,3]-1\->\Mat N[J,3] \Int (V/9)+1\->S V-9(S-1)\->T 3+7(T-1)\->L \If L\<=0 \Then 59\->L S-1\->S \IfEnd J=1\=>\Text 2+7(S-1),L,"*" J=2\=>\Text 2+7(S-1),L,"\theta" \GotoC \Lbl P \ClrText \Locate 1,1,"Attaquer ?" \Locate 1,2,"[EXE]:Oui AUTRE:Non" \Do 0\->A \Getkey\->A \LpWhile A=0 A\<>31\=>\GotoE Z=1\=>\Mat M[U,5]-G\->\Mat M[U,5] Z=1\=>\Mat M[U,6]-H\->\Mat M[U,6] 0\->Z \ClrText \Locate 1,1,"===== BATAILLE ======" \Locate 1,2,"VOUS" \Locate 1,5,"ENNEMI" \Locate 1,3,"Marines" \Locate 1,4,"Tanks" \Locate 1,6,"Marines" \Locate 1,7,"Tanks" \Locate 10,3,G \Locate 10,4,H \Locate 10,6,\Mat M[V,5] \Locate 10,7,\Mat M[V,6] \Do \LpWhile \Getkey\<>31 \Lbl Q 0\->A \ClrText \Locate 1,1,"Attaque..." G\->C H\->D \Mat M[V,5]\->E \Mat M[V,6]\->F E=0\ And F=0\=>\GotoU 2C+12D+\Int ((C+D)\Ran#-(C+D)/2)\->C 2E+12F+\Int ((E+F)\Ran#-(C+D)/2)\->D C\<=0\=>0\->C D\<=0\=>0\->D \Int (C/(0.5(G+H)))\->C \Int (D/(0.5(E+F)))\->D G-\Int (D\Ran#+1)\->G H-\Int ((D\Ran#+1)/5)\->H \Mat M[V,5]-\Int (C\Ran#+1)\->\Mat M[V,5] \Mat M[V,6]-\Int ((C\Ran#+1)/5)\->\Mat M[V,6] H-\Abs (\Int (\Mat M[V,6]/10)+\Int ((\Mat M[V,6]/10)\Ran#+1))\->H \Mat M[V,6]-\Abs (\Int (H/10)+\Int ((H/10)\Ran#+1))\->\Mat M[V,6] G\<=0\=>0\->G H\<=0\=>0\->H \Mat M[V,5]\<=0\=>0\->\Mat M[V,5] \Mat M[V,6]\<=0\=>0\->\Mat M[V,6] \If G=0\ And H=0 \Then \Locate 1,7,"# L'ATTAQUANT PERD ##"\Disp3\->A \IfEnd A=3\=>\GotoE \If \Mat M[V,5]=0\ And \Mat M[V,6]=0 \Then \Locate 1,7,"# L'ATTAQUANT GAGNE #"\Disp2\->A \IfEnd A=2\=>\GotoU \GotoP \Lbl 9 \ClrText "Aller en..." "X="?\->C \Int \Abs C\->C C>9\=>9\->C C=0\=>1\->C "Y="?\->D \Int \Abs D\->D D>8\=>8\->D D=0\=>1\->D C\->T D\->S \GotoC \Lbl U J\->\Mat M[V,1] \If J=1 \Then \Mat N[2,2]-1\->\Mat N[2,2] \If \Mat N[2,2]=0 \Then \ClrText \Locate 1,1,"Joueur 1 gagne !" \Stop \IfEnd \IfEnd \If J=2 \Then \Mat N[1,2]-1\->\Mat N[1,2] \If \Mat N[1,2]=0 \Then \ClrText \Locate 1,1,"Joueur 2 gagne !" \Stop \IfEnd \IfEnd \Mat N[J,2]+1\->\Mat N[J,2] \Mat M[V,5]+G\->\Mat M[V,5] \Mat M[V,6]+H\->\Mat M[V,6] \Mat N[J,3]-1\->\Mat N[J,3] \Int (V/9)+1\->S V-9(S-1)\->T 3+7(T-1)\->L \If L\<=0 \Then 59\->L S-1\->S \IfEnd J=1\=>\Text 2+7(S-1),L,"*" J=2\=>\Text 2+7(S-1),L,"\theta" \GotoC %End