%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:13928 File Name:METAWAR2 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \S-WindMan \S-Gph1 \DrawOn,\xyLine,\List3,\List2,1,\Dot \S-Gph2 \DrawOff \S-Gph3 \DrawOff \Do \ClrText \Locate 1,1,"### ###" \For 6\->A \To 16 A=6\=>\Locate A,1,"M" A=7\=>\Locate A,1,"E" A=8\=>\Locate A,1,"T" A=9\=>\Locate A,1,"A" A=10\=>\Locate A,1,"L" A=12\=>\Locate A,1,"W" A=13\=>\Locate A,1,"A" A=14\=>\Locate A,1,"R" A=16\=>\Locate A,1,"2" \Next \For 6\->A \To 2 \Step \(-)1 \Locate 4,A+1," " \Locate 4,A,"--===========--" \For 1\->B \To 2:\Next \Next \For 3\->A \To 6 \Locate 1,A,") (" \Locate 1,A,"=) (=" \Locate 2,A,"=) (=" \Locate 3,A,"=) (=" \Locate 4,A,"=) (=" \Locate 5,A,"=) (=" A=3\=>\Locate 8,3,"NOUVEAU" A=4\=>\Locate 8,4,"REPRISE" A=5\=>\Locate 8,5,"EDITEUR" A=6\=>\Locate 8,6,"CREDITS" \Next \Locate 16,7,"V.BETA" 3\->A \Do:\Locate 7,A,"\=>" \Do:\Getkey\->G \LpWhile G=0 G\<>31\=>\Locate 7,A," " G=28\=>A\<>3\=>A-1\->A G=37\=>A\<>6\=>A+1\->A \LpWhile G\<>31 \Locate 15,A,"#" \Do:\Getkey\->G \LpWhile G\<>0 \ClrText A=4\=>\GotoA \If A=5 \Then 1\->B \Locate 2,1,"[1]:AIDE":\Locate 2,2,"[2]:INITIALISER" \Do:\Locate 1,B,"\=>" \Do:\Getkey\->G \LpWhile G=0 \Locate 1,B," " G=28\=>B\<>1\=>B-1\->B G=37\=>B\<>2\=>B+1\->B \LpWhile G\<>31 \If B=1 \Then \ClrText "METTRE 0,1,2,3,ETC (15 MAX) DS LES CASESDE LA MATRICE F"\Disp" " "CHAQUE NB CORESPOND AUN TERRAIN DIFFERENT"\Disp" " "IL Y A 25 LIGNES DONC5 CARTES"\Disp\IfEnd \If B=2 \Then {25,9}\->\Dim \Mat F \Mat F \Stop \IfEnd \IfEnd \If A=6 \Then "TOTAL PROG: MEITHAL "\Disp"JEU INSPIRE D'ADVANCEWARS"\Disp\ClrText "VOS CHEQUES ET" "COMPLIMENTS SUR" "UNGOLIONT\thetaHOTMAIL.COM^-^"\Disp\ClrText "MERCI A SIMON ET" "NEURONIX"\Disp\IfEnd \LpWhile A\<>3 \Lbl 0 \Locate 1,1,"SUR QUELLE CARTE?" \Locate 2,3,"[ SENTIER DE FORET ]" \Locate 2,4,"[ VALLEE MORTELLE ]" \Locate 2,5,"[ BASES PERDUES ]" \Locate 2,6,"[ CONFRONTATION 2 ]" \Locate 2,7,"[ VOS CARTES PERSO ]" 3\->A \Do:\Locate 1,A,"\=>" \Do:\Getkey\->G \LpWhile G=0 \For 1\->H \To 5:\Next \Locate 1,A," " G=37\=>A\<>7\=>\Isz A G=28\=>A\<>3\=>\Dsz A \LpWhile G\<>31 {5,9}\->\Dim \Mat B A=3\=>[[1,1,5,3,8,1,1,15,1][15,14,4,15,1,2,15,1,1][14,3,10,2,1,2,12,3,16][1,1,15,2,1,15,4,16,15][1,15,1,1,6,3,7,1,1]]\->\Mat B A=6\=>[[1,15,5,3,1,3,8,15,1][14,2,1,1,15,1,2,15,16][14,3,10,15,2,15,12,3,16][14,15,2,1,15,1,1,2,16][1,15,6,3,1,3,7,15,1]]\->\Mat B A=5\=>[[14,1,2,0,15,1,16,1,1][14,15,8,2,15,2,2,1,15][4,2,15,1,1,1,15,2,4][15,1,2,2,15,2,6,15,16][1,1,14,1,15,0,2,1,16]]\->\Mat B A=4\=>[[5,14,1,15,2,2,15,1,16][4,1,15,2,5,3,15,1,16][4,2,2,2,1,2,2,2,4][14,1,15,3,7,2,15,1,4][14,1,15,2,2,15,1,16,7]]\->\Mat B \If A=7 \Then \ClrText \Locate 1,1,"CARTES PERSO" \For 2\->A \To 6 \Locate 2,A,"MAP" \Locate 6,A,A-1 \Next \Locate 2,7,"RETOUR" 2\->B \Do:\Locate 1,B,"\=>" \Do:\Getkey\->G \LpWhile G=0 \Locate 1,B," " G=28\=>B\<>2\=>B-1\->B G=37\=>B\<>7\=>B+1\->B \For 1\->C \To 10:\Next \LpWhile G\<>31 B=7\=>\Goto0 \For 1\->C \To 5 \For 1\->D \To 9 \Mat F[C+5(B-2),D]\->\Mat B[C,D] \Next \Next \IfEnd \ClrText \Locate 1,3,"===THUNES PAR TOUR===" 2000\->B \Locate 6,5,"<=" \Do:\Locate 9,5,B \Locate 13+\Int \log B-3,5," => " \Do:\Getkey\->G \LpWhile G=0 G=38\=>B\<>1000\=>B-1000\->B G=27\=>B\<>25000\=>B+1000\->B:\LpWhile G\<>31 20\->\Dim \List 1 B\->\List 1[5] B\->\List 1[7] 0\->A~Z {8,30}\->\Dim \Mat A {8,9}\->\Dim \Mat C \For 1\->M \To 9 M\->\Mat C[2,M] 100\->\Mat C[3,M] M=1\=>9\->N:M=2\=>5\->N M=3\=>5\->N:M=4\=>7\->N M=5\=>4\->N:M=6\=>0\->N M=7\=>6\->N:M=8\=>2\->N M=9\=>5\->N:N\->\Mat C[6,M] N\->\Mat C[4,M] 1\->\Mat C[7,M] \Next {9,9}\->\Dim \Mat D [[55,45,12,5,1,35,15,25,40][65,55,85,55,15,85,70,85,25][70,65,35,6,1,65,45,55,65][75,70,85,55,15,95,70,85,75][105,95,105,85,55,105,105,105,120][0,0,0,0,0,0,0,0,0][90,85,80,70,45,70,75,80,10][95,90,90,80,55,80,80,85,15][90,75,25,15,1,45,85,90,35]]\->\Mat D \ViewWindow 1,127,0,1,63,0 \Cls \Text 5,103,"POS" \Text 18,103,"UNIT" \Text 50,103,"JOUR" {103,1,1,99,99,100,100,103,100,100,119,121,121,119,100,100,120,122,122,120,100,100,114,116,116,114,100,100,99,99}\->\List 3 {4,4,5,5,1,1,5,5,5,15,15,13,11,9,9,47,47,45,43,41,41,60,60,58,56,54,54,63,63,3}\->\List 2 \DrawStat \Getkey \If \Ans=71 \Then \For 1\->M \To 51 \Step 10 \For 1\->N \To 91 \Step 10 \Text M,N,"+" \Next \Next \IfEnd 0\->R \For 1\->N \To 9 \For 1\->M \To 5 \Lbl T \Mat B[M,N]\->Z M*10-4\->A N*10-5\->B 63-A\->K \Abs \Int Z=0\=>0.1(Z+1)/\Abs (Z+1)\->\Mat B[M,N] \If \Abs \Int Z=1 \Then 1.09Z/\Abs Z\->\Mat B[M,N] \Text A,B,"()" \PlotOn B+2,K+1 \F-Line B+2,K-3,B+2,K-5 \IfEnd \If \Abs \Int Z=2 \Then 2.07Z/\Abs Z\->\Mat B[M,N] \F-Line B-1,K-1,B-1,K-4 \F-Line B,K+2,B,K-4 \F-Line B+1,K+3,B+1,K-4 \F-Line B+2,K+3,B+2,K-4 \PlotOn B+3,K+3 \F-Line B+3,K-1,B+3,K-4 \F-Line B+4,K+2,B+4,K-4 \F-Line B+5,K-1,B+5,K-4 \IfEnd \If \Abs \Int Z=3 \Then 3.11Z/\Abs Z\->\Mat B[M,N] \F-Line B-3,K+1,B+7,K+1 \F-Line B-3,K-3,B+7,K-3 \F-Line B-1,K-1,B+1,K-1 \F-Line B+4,K-1,B+6,K-1 \IfEnd \If \Abs \Int Z=4 \Then 4.11Z/\Abs Z\->\Mat B[M,N] \F-Line B,K+4,B,K-6 \F-Line B+4,K+4,B+4,K-6 \F-Line B+2,K+3,B+2,K+1 \F-Line B+2,K-2,B+2,K-4 \IfEnd \If \Abs \Int Z=5 \Then 5.11Z/\Abs Z\->\Mat B[M,N] \F-Line B+1,K+1,B+7,K+1 \F-Line B,K,B,K-6 \F-Line B+5,K-3,B+7,K-3 \F-Line B+4,K-4,B+4,K-6 \F-Line B+2,K-2,B+2,K-4 \F-Line B+4,K-1,B+6,K-1 \IfEnd \If \Abs \Int Z=6 \Then 6.11Z/\Abs Z\->\Mat B[M,N] \F-Line B+1,K-3,B+7,K-3 \F-Line B,K+4,B,K-2 \F-Line B+4,K+4,B+4,K+2 \F-Line B+5,K+1,B+7,K+1 \F-Line B+2,K+3,B+2,K+1 \F-Line B+4,K-1,B+6,K-1 \IfEnd \If \Abs \Int Z=7 \Then 7.11Z/\Abs Z\->\Mat B[M,N] \F-Line B-3,K+1,B-1,K+1 \F-Line B,K+2,B,K+4 \F-Line B-3,K-3,B+3,K-3 \F-Line B+4,K-2,B+4,K+4 \F-Line B-1,K-1,B+1,K-1 \F-Line B+2,K+1,B+2,K+3 \IfEnd \If \Abs \Int Z=8 \Then 8.11Z/\Abs Z\->\Mat B[M,N] \F-Line B-3,K+1,B+3,K+1 \F-Line B+4,K,B+4,K-6 \F-Line B-3,K-3,B-1,K-3 \F-Line B,K-4,B,K-6 \F-Line B-1,K-1,B+1,K-1 \F-Line B+2,K-2,B+2,K-4 \IfEnd \If \Abs \Int Z=9 \Then 9.11Z/\Abs Z\->\Mat B[M,N] \F-Line B-3,K-3,B+7,K-3 \F-Line B-3,K+1,B-1,K+1 \F-Line B+5,K+1,B+7,K+1 \F-Line B,K+4,B,K+2 \F-Line B+4,K+4,B+4,K+2 \F-Line B-1,K-1,B+1,K-1 \F-Line B+4,K-1,B+6,K-1 \F-Line B+2,K+3,B+2,K+1 \IfEnd \If \Abs \Int Z=10 \Then 10.11Z/\Abs Z\->\Mat B[M,N] \F-Line B+4,K+4,B+4,K-6 \F-Line B,K+4,B,K+2 \F-Line B,K-4,B,K-6 \F-Line B-3,K+1,B-1,K+1 \F-Line B-3,K-3,B-1,K-3 \F-Line B-1,K-1,B+1,K-1 \F-Line B+2,K+3,B+2,K+1 \F-Line B+2,K-2,B+2,K-4 \IfEnd \If \Abs \Int Z=11 \Then 11.11Z/\Abs Z\->\Mat B[M,N] \F-Line B-3,K+1,B+7,K+1 \F-Line B-3,K-3,B-1,K-3 \F-Line B+5,K-3,B+7,K-3 \F-Line B,K-4,B,K-6 \F-Line B+4,K-4,B+4,K-6 \F-Line B-1,K-1,B+1,K-1 \F-Line B+4,K-1,B+6,K-1 \F-Line B+2,K-2,B+2,K-4 \IfEnd \If \Abs \Int Z=12 \Then 12.11Z/\Abs Z\->\Mat B[M,N] \F-Line B,K+4,B,K-6 \F-Line B+4,K+4,B+4,K+2 \F-Line B+4,K-4,B+4,K-6 \F-Line B+5,K+1,B+7,K+1 \F-Line B+5,K-3,B+7,K-3 \F-Line B+2,K+3,B+2,K+1 \F-Line B+2,K-2,B+2,K-4 \F-Line B+4,K-1,B+6,K-1 \IfEnd \If \Abs \Int Z=13 \Then 13.11Z/\Abs Z\->\Mat B[M,N] \F-Line B-3,K+1,B-1,K+1 \F-Line B,K+2,B,K+4 \F-Line B+4,K+4,B+4,K+2 \F-Line B+5,K+1,B+7,K+1 \F-Line B+7,K-3,B+5,K-3 \F-Line B+4,K-4,B+4,K-6 \F-Line B,K-6,B,K-4 \F-Line B-1,K-3,B-3,K-3 \F-Line B-1,K-1,B+1,K-1 \F-Line B+4,K-1,B+6,K-1 \F-Line B+2,K+3,B+2,K+1 \F-Line B+2,K-2,B+2,K-4 \IfEnd \If \Abs \Int Z=14\ Or \Abs \Int Z=16 \Then \Abs \Int Z=14\=>14.08*Z/\Abs Z\->\Mat B[M,N]:\Abs \Int Z=16\=>16.08Z/\Abs Z\->\Mat B[M,N] \F-Line B-1,K-4,B-1,K+3 \F-Line B,K+2,B+6,K-4 \F-Line B,K-4,B+5,K-4 \F-Line B+2,K+1,B+2,K+3 \PlotOn B+3,K+3 \F-Line B+4,K+3,B+4,K-1 \Int \Abs Z=16\=>\PlotOn B+1,K-2 \IfEnd \If \Int \Abs Z=15 \Then 15.08Z/\Abs Z\->\Mat B[M,N] \F-Line B,K+3,B+2,K+3 \F-Line B+2,K+2,B+4,K+2 \F-Line B,K-2,B+4,K-2 \F-Line B,K+2,B,K-1 \F-Line B+2,K+1,B+2,K-1 \F-Line B+4,K+1,B+4,K-1 \PlotOn B-1,K-1 \F-Line B-2,K-2,B-2,K-3 \F-Line B-1,K-4,B+5,K-4 \F-Line B+6,K-3,B+6,K-2 \PlotOn B+5,K-1 \IfEnd \If \Abs \Int Z=17 \Then 17.1Z/\Abs Z\->\Mat B[M,N] \F-Line B-1,K-2,B+5,K-2 \F-Line B-2,K-1,B-2,K-3 \F-Line B+6,K-1,B+6,K-3 \PlotOn B+2,K-1 \F-Line B,K-3,B,K-4 \F-Line B+1,K-5,B+3,K-5 \F-Line B+4,K-4,B+4,K-3 \F-Line B,K+2,B+1,K+1 \F-Line B+3,K+1,B+4,K+2 \IfEnd R=1\=>\GotoD R=2\=>\GotoU \Next \Next \(-)1\->\List 1[3] \Lbl 1 \List 1[8]+1\->\List 1[8] \List 1[3]\->G \(-)G\->G \Text 57,108,\List 1[8] \If G=1 \Then \Text 57,116,"#" \Else \Text 57,116,"\Pi" \IfEnd \List 1[6-G]+\List 1[5-G\->\List 1[5-G] \For 25\->C \To 43 \Step 6 \Text C,103," " \Next \If \List 1[8]>1 \Then \Text 53,I," " \Text J,94," ":\IfEnd \For 1\->I \To O \If G*\Mat A[1,I]<0 \Then \Mat A[2,I]\->K K=1\=>3\->D:K=2\=>2\->D K=3\=>5\->D:K=4\=>3\->D K=5\=>2\->D:K=6\=>6\->D K=7\=>3\->D:K=8\=>1\->D K=9\=>2\->D:D\->\Mat A[5,I] 0\->\Mat A[7,I] \IfEnd \Int \Mat A[1,I]\->C 10\Frac \Mat A[1,I]\->D \If C*G>0\ And (\Int \Abs \Mat B[\Abs D,\Abs C]=15\ Or \Int \Abs \Mat B[\Abs D,\Abs C]=15-G) \Then \Mat A[3,I]+20\->\Mat A[3,I]:\Mat A[3,I]\>=100\=>100\->\Mat A[3,I]:\Mat A[6,I]\->\Mat A[4,I] \Abs \Int \Mat B[\Abs D,\Abs C]=15\ And (K\<=2\ Or K=9)\=>\List 1[5-G]+500\->\List 1[5-G] \IfEnd \Next \List 1[5-G]\>=1\EE6\=>1\EE6\->\List 1[5-G] G\->\List 1[3] 0\->\List 1[12] 46\->I 26\->J \Int I/10+0.4\->C \Int J/10+0.4\->D \Lbl A \If \List 1[17]=1 \Then 0\->\List 1[17] \For 1\->Z \To O \If \Mat A[1,Z]\<>0 \Then \Mat A[1,Z]\->V (10\Frac \Abs (V*10))-4\->E (\Int \Abs (V*10))-5\->F V<0\=>\Mat A[8,Z]=1\=>\Text E,F,"\Pi" V>0\=>\Mat A[8,Z]=1\=>\Text E,F,"#" \IfEnd \Next \IfEnd \F-Line I+1,9,I+1,7 \Text J,94,"-" \Text 1,120,C \Text 7,120,D \Text 18,124," " \If \List 1[12]=0 \Then \ClrText \For 1\->G \To 20 \Step 3 \If \List 1[3]=1 \Then \Locate G,4,"###" \Else \Locate G,4,"\Pi\Pi\Pi" \IfEnd \Next \Locate 2,6,"APPUYE SUR 1 TOUCHE" \IfEnd \Do:\Getkey\->G \LpWhile G=0 \List 1[12]=0\=>0\->G G=29\=>\Goto1 \If G=31 \Then \ClrText \If W=1\ And \Mat A[7,U]=1 \Then "NON DISPO CE TOUR\(-)CI"\Disp\GotoA:\IfEnd \List 1[3]*\Mat A[1,U]>0\=>\GotoB \If W=1:\Then "C'EST PAS A TOI"\Disp\GotoA:\IfEnd \GotoB \IfEnd \Text 53,I," " \Text J,94," " \If G=79 \Then \For O\->C \To 1 \Step \(-)1 \If \List 1[3]*\Mat A[1,C]>0\ And \Mat A[7,C]=0:\Then \Abs \Mat A[1,C]\->C:10\Frac C\->D:\Int C\->C (C-0.4)*10\->I (D-0.4)*10\->J \GotoU \IfEnd \Next \ClrText \Locate 1,1,"FINIR TON TOUR ?" \Locate 2,2,"[1]:OUI" \Locate 2,3,"[2]:NON" 2\->Z \Do:\Locate 1,Z,"\=>" \Do:\Getkey\->G \LpWhile G=0 \Locate 1,Z," " G=28\=>Z\<>2\=>\Dsz Z G=37\=>Z\<>3\=>\Isz Z \LpWhile G\<>31 Z=2\=>\Goto1 \IfEnd \If G=69 \Then 2\->L:\GotoJ \IfEnd \If G=59 \Then \ClrText \Int \Abs \Mat B[D,C]\->Z Z=0\=>\Locate 1,6,"PLAINE" Z=1\=>\Locate 1,6,"BOIS" Z=2\=>\Locate 1,6,"MONT" Z\>=3\ And Z\<=13\=>\Locate 1,6,"ROUTE" Z=14\=>\Locate 1,6,"BASE #" Z=16\=>\Locate 1,6,"BASE \Pi" Z=15\=>\Locate 1,6,"VILLE" Z\>=17\=>\Locate 1,6,"CALTOGRAPHE" 10\Frac \Mat B[D,C]\->Z \Abs Z\->Z \Locate 1,7,"DEF:" 10(1.1-Z)-1\->L \For 0\->X \To L \Locate X+5,7,"*" \Next \If W=1 \Then \Mat A[2,U]\->L:L=1\=>"INF":L=2\=>"BZK":L=3\=>"REC":L=4\=>"TANK":L=5\=>"TANK\(-)M":L=6\=>"VTB":L=7\=>"ART":L=8\=>"LMS":L=9\=>"ILS":"PV: \slash100":\Locate 4,2,\Mat A[3,U]:"MUN: \slash":\Locate 5,3,\Mat A[4,U]:\Locate 7,3,\Mat A[6,U]:"ESS:":\Locate 5,4,\Mat A[5,U] \IfEnd \Do:\Getkey \LpWhile \Ans=0 \IfEnd 0\->W \Do \Text 53,I," " \Text J,94," " G=38\=>I-10\->I G=27\=>I+10\->I I<5\=>86\->I I>87\=>6\->I G=28\=>J-10\->J G=37\=>J+10\->J J<5\=>46\->J J>47\=>6\->J \F-Line I+1,9,I+1,7 \Text J,94,"-" \Getkey\->G \LpWhile G=28\ Or G=37\ Or G=27\ Or G=38 \Int I/10+0.4\->C \Int J/10+0.4\->D \If \Mat B[D,C]<0\ Or \List 1[12]=0 \Then \List 1[12]=0\=>1\->\List 1[12] \Lbl U \For 1\->U \To O \If C=\Int \Abs \Mat A[1,U]\ And D=10\Frac \Abs \Mat A[1,U] \Then \Mat A[2,U]\->K K=1\=>\Text 25,104,"INF " K=2\=>\Text 25,104,"BZKA " K=3\=>\Text 25,104,"RECON" K=4\=>\Text 25,104,"TANK " K=5\=>\Text 25,104,"TKM " K=6\=>\Text 25,104,"VTB " K=7\=>\Text 25,104,"ART " K=8\=>\Text 25,104,"L\(-)MS " K=9\=>\Text 25,104,"INF L" \Text 31,103,"PV" \Text 31,120," " \Text 31,120,\Int ((\Mat A[3,U]-1)/10+1) \Text 37,103,"MUN" \Text 37,120,\Mat A[4,U] \Text 43,103,"ESS" \Text 43,120,\Mat A[5,U] 1\->W \GotoA \IfEnd \Next \IfEnd \GotoA \Lbl B W=0\=>\Int \Mat B[D,C]=15-\List 1[3]\=>\GotoM \If W=0 \Then \ClrText \Locate 5,1,"==[ MENU ]==" \Locate 2,2,"INFOS" \Locate 2,3,"AIDE" \Locate 2,4,"SAUVER ET QUITTER" \Locate 2,5,"QUITTER TOUT" \Locate 2,6,"ANNULER" \Locate 2,7,"FINIR SON TOUR" 2\->L \Do:\Locate 1,L,"\=>" \Do:\Getkey\->G \LpWhile G=0 \Locate 1,L," " G=28\=>\Dsz L G=37\=>\Isz L L=1\=>7\->L L=8\=>2\->L G=71\=>\GotoA \LpWhile G\<>31 \Lbl J \ClrText \If L=2 \Then \List 1[3]\->K \Locate 5,3,"THUNES" \Locate 13,3,\List 1[5-K] \Locate 5,5,"REVENU" \Locate 13,5,\List 1[6-K] \IfEnd \If L=3 \Then "EXE:SELECT" "0:ANNULER" " " "F1:GO VERS UNIT LIBREF2:INFOS" "F6:FIN TOUR" "(EN COURS DE JEU)" \Do:\Getkey \LpWhile \Ans=0 \ClrText "planetecasio.com" "pour une aide complete"\Disp\ClrText:"INTERDIT 2 CACHER SONJEU!!" \IfEnd \If L=4 \Then "\(-)NE TRACEZ PS 2 GRAPH\(-)NE LANCEZ PS D'AUTRE PROG":\Stop \IfEnd \If L=5 \Then \ViewWindow \(-)6.3,6.3,1,\(-)3.1,3.1,1 \Cls {1,1}\->\Dim \Mat A {1,1}\->\Dim \Mat B {1,1}\->\Dim \Mat C {1,1}\->\Dim \Mat D 1\->\Dim \List 1 1\->\Dim \List 2 0\->A~Z \Stop \IfEnd L=6\=>\GotoA L=7\=>\Goto1 \Do:\Getkey \LpWhile \ Not \Ans \GotoA \IfEnd W=1\=>\Text 18,124,"S" \Do:\Getkey\->G \LpWhile G=0 \Int \Mat A[1,U]\->S 10\Frac \Mat A[1,U]\->T S+T/10\->V G=71\=>\Text 18,124," " G=71\=>\GotoA 0\->\List 1[1] \If G=38\ Or G=27\ Or G=28\ Or G=37 \Then \Text (10\Frac \Abs V*10)-4,(\Int \Abs V*10)-6," " 1\->R \Abs T\->M \Abs S\->N \GotoT \Lbl D \Mat A[5,U]\->H \List 1[3]\->R \Mat A[2,U]\->K \Lbl F 'VIVE LE SKIP LOL \Do \Mat B[\Abs T,\Abs S]\->L \Do:G=0\=>\Getkey\->G \LpWhile G=0 1\->\List 1[17] 1\->\Mat A[8,U] 0\->M~N \If G=31 \Then L<0\=>\Break L>0\=>0\->G L>0\=>\GotoF \IfEnd \If G=71 \Then \(-)L\->\Mat B[\Abs T,\Abs S] \(-)\Mat B[10\Frac \Abs V,\Int \Abs V]\->\Mat B[10\Frac \Abs V,\Int \Abs V] \GotoA \IfEnd 1\->\List 1[1] G=38\=>\(-)1\->M:G=27\=>1\->M G=28\=>\(-)1\->N:G=37\=>1\->N 0\->G \Abs S+M=0\ Or \Abs S+M=10\ Or \Abs T+N=0\ Or \Abs T+N=6\=>\GotoF \If \Mat B[\Abs T+N,\Abs S+M]<0 \Then \For 1\->Q \To O \If \Abs \Mat A[1,Q]=\Abs S+M+(\Abs T+N)/10 \Then \Mat A[1,Q]\->Z \If R*Z<0\ And K\<>7\ And K\<>8 \Then L>0\=>\GotoF S+T/10\->\Mat A[1,U]:H\->\Mat A[5,U]:\GotoG \IfEnd \IfEnd \Next \IfEnd H=0\ Or (K\<>1\ And K\<>2\ And K\<>9\ And \Abs \Mat B[(\Abs T)+N,(\Abs S)+M]=2.07)\=>\GotoF \(-)L\->\Mat B[\Abs T,\Abs S] \Text 53,I," " \Text J,94," " I+10M\->I:J+10N\->J S+MR\->S:T+NR\->T H-1\->H \Mat B[\Abs T,\Abs S]\->L \Text 43,120,H \Text 53,I,"O" \Text J,94,"O" 0\->G \(-)L\->\Mat B[\Abs T,\Abs S] \LpWhile 1 S+(T/10)\->\Mat A[1,U] H\->\Mat A[5,U] \GotoI \IfEnd \If G=31 \Then " " \Lbl I \ClrText \Locate 2,2,"[2]:DESC. DE L'UNIT" \Locate 2,3,"[3]:ANNULER" \Locate 2,4,"[4]:ATTENDRE" \Mat A[2,U]\->G G\<>6\=>\Locate 2,1,"[1].TIRER" G=6\=>\Locate 2,1,"[1].APPRO" 4\->K G\>=6\=>1\->K \If (G=7\ Or G=8)\ And \List 1[1]=1:\Then \Locate 2,1," ":4\->K:\IfEnd \Do:\Locate 1,K,"\=>" \Do:\Getkey\->L \LpWhile L=0 \Locate 1,K," " L=28\=>K-1\->K L=37\=>\Isz K K=0\=>4\->K K=5\=>1\->K \LpWhile L\<>31 \ClrText \If K=2 \Then "DISPONIBLES SUR" "planetecasio.com"\Disp\IfEnd \If K=3 \Then "POUR ANNULER 1 MOUV. APPUYER SUR 0 LORS DUDEPLACEMENT"\Disp"SI C TROP TARD,APPUYESUR AC\slashON"\Disp\GotoI \IfEnd \If K=1\ And G<6 \Then "POUR UN TIR DIRECT,ILSUFFIT DE DEPLACER L'UNIT VERS UNE UNITEENNEMIE"\Disp\IfEnd \If K=4 \Then 1\->\Mat A[7,U] \GotoA \IfEnd (G=7\ Or G=8)\ And \List 1[1]=1\=>\GotoI \If K=1\ And G\>=6 \Then \Abs \Mat A[1,U]\->V:\Int V\->S:S*10-4\->I 10\Frac V\->T:T*10-4\->J \Do:\Text 53,I,"X" \Text J,94,"X" \Do:\Getkey\->G \LpWhile G=0 0\->M:0\->N G=71\=>\GotoI G=31\=>\Break G=38\=>\(-)1\->M:G=27\=>1\->M G=28\=>\(-)1\->N:G=37\=>1\->N S+M\->S:T+N\->T \Text 53,I," " \Text J,94," " I+10M\->I:J+10N\->J \LpWhile 1 \Text 53,I," " \Text J,94," " \For 1\->Q \To O \If S+T/10=\Abs \Mat A[1,Q] \Then \List 1[3]\->R \Mat A[2,U]\->K \Mat A[1,Q]*R\->G K\>=7\ And G>0\ Or K=6\ And G<0\=>\GotoI \Abs (\Int V-\Int \Abs \Mat A[1,Q])+\Abs (10\Frac V-10\Frac \Abs \Mat A[1,Q])\->G \If (K=7\ Or K=9)\ And G=1\ Or (K=8\ And (G\<=2) \Then "TROP PRES"\Disp\GotoI:\IfEnd \If (K=7\ And G\>=4)\ Or (K=8\ And G\>=6)\ Or (K=9\ And G\>=3)\ Or (K=6\ And G\>=2) \Then "TROP LOIN"\Disp\GotoI:\IfEnd K\>=8\=>"PRET A TIRER"\DispK=6\=>"APPRO\=>\=>\=>" 0\->\List 1[13] \Mat A[2,U]=9\ And G=2\=>1\->\List 1[13] K\>=7\=>\GotoG K=6\=>\GotoH \IfEnd \Next "IL N'Y A RIEN" \GotoI \IfEnd \GotoI \Lbl M \ClrText \List 1[3]\->P \Locate 5,4,"THUNES:" \Locate 12,4,\List 1[5-P] \For 1\->L \To 150:\Next 1\->\List 1[15]:3\->L \ClrText \Do:\Locate 1,1,"CREER QUELLE UNITE?" \Locate 1,2,"\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)" \If \List 1[15]=1 \Then \Locate 2,3,"1.INFANTERIE 1000" \Locate 2,4,"2.BAZOOKA":\Locate 17,4,"3000" \Locate 2,5,"3.INF. LASER 4000" \Locate 2,6,"4.RECON":\Locate 17,6,"4000" \Locate 2,7,"5.TANK":\Locate 17,7,"7000" \Else \Locate 2,3,"6.TANK M":\Locate 17,3,"16000" \Locate 2,4,"7.VTB":\Locate 18,4,"5000" \Locate 2,5,"8.ARTILLERIE 6000" \Locate 2,6,"9.L\(-)MISS 22000" \Locate 2,7,"RIEN" \IfEnd \Do:\Locate 1,L,"\=>" \Do:\Getkey\->G \LpWhile G=0 \Locate 1,L," " G=37\=>\Isz L G=28\=>\Dsz L L=2\ Or L=8\=>\Break G=71\=>\GotoA \LpWhile G\<>31 \If L=2\ Or L=8 \Then \(-)\List 1[15]\->\List 1[15] L=8\=>3\->L L=2\=>7\->L \ClrText \IfEnd \LpWhile G\<>31 \List 1[5-P]\->G \ClrText \If \List 1[15-P]\>=15 \Then "CA SUFFIT,NON?"\Disp\GotoA \IfEnd 0\->K \List 1[15]\->Z \If L=3\ And G\>=1000\ And Z=1:\Then 1\->K:G-1000\->G:\IfEnd \If L=4\ And G\>=3000\ And Z=1:\Then 2\->K:G-3000\->G:\IfEnd \If L=5\ And G\>=4000\ And Z=1:\Then 9\->K:G-4000\->G:\IfEnd \If L=6\ And G\>=4000\ And Z=1:\Then 3\->K:G-4000\->G:\IfEnd \If L=7\ And G\>=7000\ And Z=1:\Then 4\->K:G-7000\->G:\IfEnd \If L=3\ And G\>=16000\ And Z=\(-)1:\Then 5\->K:G-16000\->G:\IfEnd \If L=4\ And G\>=5000\ And Z=\(-)1:\Then 6\->K:G-5000\->G:\IfEnd \If L=5\ And G\>=6000\ And Z=\(-)1:\Then 7\->K:G-6000\->G:\IfEnd \If L=6\ And G\>=22000\ And Z=\(-)1:\Then 8\->K:G-22000\->G:\IfEnd G\->\List 1[5-P] K=0\=>\GotoA \Isz O \ProbP(C+D/10)\->\Mat A[1,O] \(-)\Mat B[D,C]\->\Mat B[D,C] K\->\Mat A[2,O] \For 3\->G \To 8:\Mat C[G,K]\->\Mat A[G,O]:\Next \List 1[3]\->P \List 1[15-P]+1\->\List 1[15-P] 1\->\Mat A[8,O] 1\->\List 1[17] \GotoU \Lbl G \ClrText:" " \For 1\->S \To 7 \Locate 1,S,"+++++++++++++++++++++":\Next \For 1\->S \To 7 \Locate 1,S," ":\Next \Mat A[3,U]\->S:S\->K \Abs \Mat A[1,U]\->X \Mat A[2,U]\->E \Mat A[3,Q]\->T:T\->L \Abs \Mat A[1,Q]\->Y \Mat A[2,Q]\->F \List 1[3]\->P \If \Mat A[4,U]\>=1 \Then \Mat A[4,U]-1\->\Mat A[4,U] 0\->\Mat A[5,U] 1\->\Mat A[7,U] \Int (T-S*\Mat D[E,F]/100*10\Frac \Abs \Mat B[10\Frac Y,\Int Y])\->T \IfEnd T\<=0\=>0\->T T\->\Mat A[3,Q] \If T>0\ And \Mat A[4,Q]\>=1\ And E\<>7\ And E\<>8\ And F\<>7\ And F\<>8\ And \List 1[13]\<>1 \Then \Mat A[4,Q]-1\->\Mat A[4,Q] \Int (S-(T/100)*\Mat D[F,E]*\Abs (10\Frac \Mat B[10\Frac X,\Int X]))\->S:\Else 0\->\List 1[13] \IfEnd S<0\=>0\->S:" " S\->\Mat A[3,U]:" ":" " \Int ((K-1)/10+1\->K \Int ((S-1)/10+1\->S \Int ((L-1)/10+1\->L \Int ((T-1)/10+1\->T \Locate 1,1,"BILAN:" \Locate 1,3,"PV: ATTAQUANT" \Locate 16,3,K \Locate 1,4,"PV: DEFENSEUR" \Locate 16,4,L \For 4\->Y \To 3 \Step \(-)1 \Locate 19,Y,"*" \For 1\->X \To 50:\Next \Locate 19,Y," " \If Y=4 \Then \While L>T \Dsz L \Locate 17,Y," " \Locate 16,Y,L \WhileEnd \Else \While K>S \Dsz K \Locate 17,Y," " \Locate 16,Y,K \WhileEnd \IfEnd \Next \For 1\->X \To 80:\Next \ClrText \If T\<=0\ Or S\<=0 \Then \Locate 6,3,"***BOOM***" \For 1\->R \To 150:\Next \ClrText \Locate 6,3," ATTENDEZ " \IfEnd \If T\<=0 \Then \List 1[15+P]-1\->\List 1[15+P] \List 1[14]=0\ Or \List 1[16]=0\=>\GotoZ \Abs \Mat A[1,Q]\->G:\(-)\Mat B[10\Frac G,\Int G]\->\Mat B[10\Frac G,\Int G] \List 1[3]\->M \List 1[5+M]+2000\->\List 1[5+M] \List 1[6-M]+250\->\List 1[6-M] \Abs (\Int \Mat A[1,Q])\->N \Abs (10\Frac \Mat A[1,Q])\->M \For Q\->R \To O \For 1\->S \To 8 R\<=29\=>\Mat A[S,R+1]\->\Mat A[S,R] R=30\=>0\->\Mat A[S,R] \Next \Next \Text 10\Frac G*10-4,\Int G*10-6," " 2\->R \Dsz O \GotoT \IfEnd \If S\<=0 \Then \List 1[15-P]-1\->\List 1[15-P] \List 1[14]=0\ Or \List 1[16]=0\=>\GotoZ \Abs \Mat A[1,U]\->G:\(-)\Mat B[10\Frac G,\Int G]\->\Mat B[10\Frac G,\Int G] \Abs \Int \Mat A[1,U]\->N \Abs (10\Frac \Mat A[1,U])\->M \For U\->R \To O \For 1\->S \To 8 \Mat A[S,R+1]\->\Mat A[S,R] \Next \Next \Text 10\Frac G*10-4,\Int G*10-6," " \For 25\->R \To 43 \Step 6:\Text R,103," ":\Next 2\->R \Dsz O \GotoT \IfEnd \GotoU \Lbl H:\ClrText \Locate 1,1,"APPRO:" \Locate 2,2,"MUNITIONS" \Locate 2,3,"REMOTIVER" \Locate 2,4,"PV+" \Locate 2,5,"[0]:RIEN" 2\->L \Do \Locate 1,L,"\=>" \Do:\Getkey\->G \LpWhile G=0 \Locate 1,L," " G=28\=>\Dsz L G=37\=>\Isz L L=6\=>2\->L L=1\=>5\->L \LpWhile G\<>31 0\->W \ClrText \If L=2 \Then \Mat A[6,Q]\->\Mat A[4,Q] 1\->\Mat A[7,U] "APPRO EFFECTUE"\Disp\IfEnd \If L=3 \Then 0\->\Mat A[7,Q] 1\->\Mat A[7,U] 2\->\Mat A[5,Q] "ALLEZ Y LES MECS"\Disp\IfEnd \If G=4 \Then \Mat A[3,Q]\->G G+10\->G G\>=100\=>100\->G G\->\Mat A[3,Q] 1\->\Mat A[7,U] "VIE RESTAUREE DE 1PT"\Disp\IfEnd \GotoA \Lbl Z:\ClrText \Locate 8,4,"ECRASE !" \If \List 1[14]=0 \Then \Locate 6,4,"\Pi" \Locate 15,4,"#" \Else \Locate 6,4,"#" \Locate 15,4,"\Pi" \IfEnd \Locate 5,6,"EN JOURS!!!" \Locate 8,6,\List 1[8] \ViewWindow \(-)6.3,6.3,1,\(-)3.1,3.1,1 \Stop =M= BETA 2.00 2004 %End