%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:2164 File Name:BETA.INF Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \If H=1 \Then \Text 10,1,"Plus votre mine de metal est" \Text 17,1,"evoluee, plus elle produira" \Text 24,1,"de metal rapidement."\Disp\IfEnd \If H=2 \Then \Text 10,1,"Plus votre mine de crystal est" \Text 17,1,"evoluee plus elle produira" \Text 24,1,"de cristal rapidement"\Disp\IfEnd \If H=3 \Then \Text 10,1,"Plus votre gisement de petrole" \Text 17,1,"est evolue plus vous produirez" \Text 24,1,"rapidement." \Text 31,1,"Attetion a la grosse quantite " \Text 38,1,"d'energie que le gisement" \Text 45,1,"reclame."\Disp\IfEnd \If H=4 \Then \Text 10,1,"Plus votre central electrique" \Text 17,1,"est evoluee et plus vous prod-" \Text 24,1,"uirez d'energie pour vos ba-" \Text 31,1,"timents qui en ont besoin."\Disp\IfEnd \If H=6 \Then \Text 10,1,"Plus votre u\sin e de robot est" \Text 17,1,"evoluee et plus le temps de" \Text 24,1,"construction de vos batiments" \Text 31,1,"sera moindre."\Disp\IfEnd \If H=9 \Then \Text 10,1,"Le labo vous permet de faire" \Text 17,1,"des recherches.Plus le niveau" \Text 24,1,"est eleve et plus vos recher-" \Text 31,1,"ches seront diverses et rapides." \IfEnd \If H=5 \Then \Text 10,1,"Une centrale de fusion produit" \Text 17,1,"beaucoup plus d'enerie qu'une" \Text 24,1,"centrale electrique classique."\Disp\IfEnd \If H=7 \Then \Text 10,1,"L'u\sin e permet a vos batiments" \Text 17,1,"de se construire a une vitesse" \Text 24,1,"considerable d'ou son prix tres" \Text 31,1,"eleve."\Disp\IfEnd \If H=8 \Then \Text 10,1,"La construction et l'evolution" \Text 17,1,"de votre chantier spatial sont" \Text 24,1,"indispensable au deploiement de" \Text 31,1,"vos troupes."\Disp\IfEnd \If H=10 \Then \Text 10,1,"Batiments d'attaque et de d\Isz fense."\Disp\IfEnd \If H=11 \Then \Text 10,1,"Cette techno\log ie vous permet" \Text 17,1,"de disposer d'un plus gr\and nombre" \Text 24,1,"de troupes maximum par niveau."\Disp\IfEnd \If H=12 \Then \Text 10,1,"Cette techno\log ie ajoute 10\@25" \Text 17,1,"d'attaque, sur la valeur de base" \Text 24,1,"de vos troupes, par niveau."\Disp\IfEnd \If H=13 \Then \Text 10,1,"Cette techno\log ie ajoute 10\@25" \Text 17,1,"de d\Isz fense, sur la valeur de base" \Text 24,1,"de vos troupes, par niveau."\Disp\IfEnd \If H=14 \Then \Text 10,1,"La techno\log ie energie se con-" \Text 17,1,"centre surtout sur le develop-" \Text 24,1,"pement des reseaux et du stockage" \Text 31,1,"d'energie."\Disp\IfEnd \If H=15 \Then \Text 10,1,"Plus cette techno\log ie est evoluee" \Text 17,1,"et plus vos troupes seront" \Text 24,1,"diverses et variees." \IfEnd \For 10\->Z \To 45 \Step 7 \Text Z,1," " \Next %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:13522 File Name:OGAME Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Lbl 0 0\->\R b1 0\->W 0\->\theta 0\->\R b0 0\->B \Lbl A \Cls \ClrGraph \CoordOff \GridOff \AxesOff \LabelOff \ViewWindow 1,127,0,1,63,0 \Text 1,40,"BIENVENUE" \Horizontal 57 \Text 10,1,"(1)NOUVEAU JEU" \Text 17,1,"(2)CHARGER JEU" \Text 24,1,"(3)EFFACER PARTIE" \Text 31,1,"(4)REMISE A ZERO DU JEU" \Text 38,1,"(5)CREDITS" \Do \Getkey\->\r \LpWhile ((\r=72)\ Or (\r=62)\ Or (\r=52)\ Or (\r=73)\ Or (\r=63))=0 \For 10\->Z \To 24 \Step 7 \Text Z,1," " \Next \If \r=63 \Then \Cls \Text 1,1,"PROG BY DELTOD" \Text 52,1,"VERSION 0.70\Rb"\Disp\GotoA \IfEnd \If \r=73 \Then \Cls \Text 10,1,"ATTENTION TOUTES VOS SAUVEGA-" \Text 17,1,"GARDES SERONT EFFACEES" \Text 31,1,"REMISE A ZERO DU JEU?" \Text 38,1,"F1.OUI" \Text 45,1,"F6.NON" \Do \Getkey\->\r \LpWhile ((\r=79)\ Or (\r=29))=0 \r=29\=>\GotoA \r=79\=>\Prog "BETA.INI" \Cls \Text 1,1,"DONNEES DU JEU RESETEES"\Disp\GotoA \IfEnd \Do \If \r=72 \Then \Cls 100\->P \Text 1,1,"SUR QUELLE PARTIE ?" \Text 17,1,"(1)PARTIE 1" \Text 24,1,"(2)PARTIE 2" \Text 31,1,"(3)PARTIE 3" \Do \Getkey\->\r \LpWhile ((\r=72)\ Or (\r=62)\ Or (\r=52))=0 \r=72\=>4\->\r \r=62\=>5\->\r \r=52\=>6\->\r \r=4\=>24\->\List 4[Z] \r=5\=>24\->\List 5[Z] \r=6\=>24\->\List 6[Z] \r\->\List 3[1] \For 1\->Z \To 15 0\->\Mat B[Z,1] \Next 1\->\r 0\->S \IfEnd \If \r=62 \Then \Sum \List 4\<>0\=>\Text 10,1,"(1)PARTIE 1" \Sum \List 5\<>0\=>\Text 17,1,"(2)PARTIE 2" \Sum \List 6\<>0\=>\Text 24,1,"(3)PARTIE 3" 1\->S \Do \Getkey\->\r \LpWhile ((\r=72)\ Or (\r=62)\ Or (\r=52))=0 \For 1\->Z \To 15 \r=72\=>\List 4[Z]\->\Mat B[Z,1] \r=62\=>\List 5[Z]\->\Mat B[Z,1] \r=52\=>\List 6[Z]\->\Mat B[Z,1] \Next \If \r=72 \Then \List 4[22]\->\R b1 \List 4[23]\->\List 3[3] \List 4[24]\->\List 3[4] 4\->\List 3[1] \List 4[16]\->M \List 4[17]\->C \List 4[18]\->K \List 4[19]\->B \List 4[20]\->W \List 4[21]\->\theta \IfEnd \If \r=62 \Then \List 5[22]\->\R b1 \List 5[23]\->\List 3[3] \List 5[24]\->\List 3[4] 5\->\List 3[1] \List 5[16]\->M \List 5[17]\->C \List 5[18]\->K \List 5[19]\->B \List 5[20]\->W \List 5[21]\->\theta \IfEnd \If \r=52 \Then \List 6[22]\->\R b1 \List 6[23]\->\List 3[3] \List 6[24]\->\List 3[4] 6\->\List 3[1] \List 6[16]\->M \List 6[17]\->C \List 6[18]\->K \List 6[19]\->B \List 6[20]\->W \IfEnd 1\->\r \IfEnd \If \r=52 \Then \Text 10,1,"(1)PARTIE 1" \Text 17,1,"(2)PARTIE 2" \Text 24,1,"(3)PARTIE 3" \Do \Getkey\->\r \LpWhile ((\r=72)\ Or (\r=62)\ Or (\r=52))=0 \r=72\=>4\->\List 3[1] \r=62\=>5\->\List 3[1] \r=52\=>6\->\List 3[1] \For 10\->Z \To 24 \Step 7 \Text Z,1," " \Next \Text 36,1,"ETES-VOUS SUR? F1.OUI\slashF6.NON" \Do \Getkey\->\r \LpWhile ((\r=79)\ Or (\r=29))=0 \r=29\=>\GotoA \If \r=79 \Then \For 1\->Z \To 24 \List 3[1]=4\=>0\->\List 4[Z] \List 3[1]=5\=>0\->\List 5[Z] \List 3[1]=6\=>0\->\List 6[Z] \Next \Goto0 \IfEnd \IfEnd \LpWhile \r\<>1 \Cls \Text 1,5,"M:" \Text 1,45,"C:" \Text 1,85,"P:" \Horizontal 57 \Horizontal 7 \F-Line 1,5,18,5 \PxlOn 60,1 \PxlOn 60,18 \F-Line 1,3,18,3 \Text 58,20,"BUILD" \F-Line 42,5,59,5 \PxlOn 60,42 \PxlOn 60,59 \F-Line 42,3,59,3 \Text 58,61,"SEARCH" \F-Line 86,5,103,5 \PxlOn 60,86 \PxlOn 60,103 \F-Line 86,3,103,3 \Text 58,105,"UNITS" 'SAVED BARRES \If S\<>0 \Then \F-Line 1,4,1+\Int \theta,4 \F-Line 42,4,42+\Int \List 3[4],4 \IfEnd \If S=0 \Then \List 1[1]\->M \List 1[2]\->C \List 1[3]\->K \Else 0\->S \IfEnd \Lbl 1 \If Z=5000 \Then \Text 1,5,"M:" \Text 1,45,"C:" \Text 1,85,"P:" \Horizontal 57 \Horizontal 7 \F-Line 1,5,18,5 \PxlOn 60,1 \PxlOn 60,18 \F-Line 1,3,18,3 \Text 58,20,"BUILD" \F-Line 42,5,59,5 \PxlOn 60,42 \PxlOn 60,59 \F-Line 42,3,59,3 \Text 58,61,"SEARCH" \F-Line 86,5,103,5 \PxlOn 60,86 \PxlOn 60,103 \F-Line 86,3,103,3 \Text 58,105,"UNITS" \IfEnd \Text 1,15," " \Text 1,53," " \Text 1,93," " \Text 1,15,\Int M \Text 1,53,\Int C \Text 1,93,\Int K \Text 10,1,"(1)CONSTRUIRE (7)RECHERCHER" \Text 17,1,"(2)RESSOURCES" \Text 24,1,"(3)FLOTTE" \Text 31,1,"(4)DEFENSE" \Text 38,1,"(5)STATISTIQUE" \Text 45,1,"(6)MARCHANDAGE" ((30*(\Mat B[1,1]+1)*1.1^(\Mat B[1,1]+1))/60)\->\R a0 P\<=0\=>20\->P (P/100*\R a0)\->\R a0 ((20*(\Mat B[2,1]+1)*1.1^(\Mat B[2,1]+1))/60)\->\R a1 (P/100*\R a1)\->\R a1 ((10*(\Mat B[3,1]+1)*1.1^(\Mat B[3,1]+1))/60)\->\R a2 \If O=0 \Then (P/100)*\R a0\->\R a0 (P/100)*\R a1\->\R a1 (P/100)*\R a2\->\R a2 1\->O \IfEnd 1\->\R b0 \If \R b1\<>0\ Or (\R b1=0\ And S\<>0) \Then \Mat B[\R b1,1]+1\->N \Mat B[9,1]\->F \Mat B[7,1]\->G (\Mat A[\R b1,1]*2^(N-1)\->D (\Mat A[\R b1,2]*2^(N-1)\->E \List 3[3]=0\ Or (\List 3[3]\<>0\ And S\<>0)\=>(100000/(((D+E)*5000)*(2/(10+F)*0.5^G))\->\List 3[3] \IfEnd \If B\<>0\ Or (B\<>0\ And S\<>0) \Then \Mat B[B,1]+1\->N \Mat B[6,1]\->F \Mat B[7,1]\->G \If B\<=5 \Then (\Mat A[B,1]*1.5^(N-1))\->D (\Mat A[B,2]*1.5^(N-1))\->E \IfEnd \If B>5 \Then (\Mat A[B,1]*2^(N-1)\->D (\Mat A[B,2]*2^(N-1)\->E \IfEnd W=0\ Or (W\<>0\ And S\<>0)\=>(100000/(((D+E)*5000)*(2/(10+F)*0.5^G))\->W \IfEnd \Do \Getkey\->\r P\<=0\=>20\->P \If O=0 \Then (P/100)*\R a0\->\R a0 (P/100)*\R a1\->\R a1 (P/100)*\R a2\->\R a2 1\->O \IfEnd \Prog "BOUCLE" \LpWhile ((\r=72)\ Or (\r=62)\ Or (\r=52)\ Or (\r=73)\ Or (\r=63)\ Or (\r=53)\ Or (\r=74))=0 \For 10\->Z \To 45 \Step 7 \Text Z,1," " \Next \If \r=53 \Then \Text 10,1,"(1)ECHANGE MULTIJOUEURS" \Do:\LpWhile \Getkey\<>72 \Text 10,1," " \Text 10,63," " \If \List 3[1]\<>2654 \Then \Text 10,1,"(1)PROPOSER ECHANGE" \Text 17,1,"(2)ENTRER CODE" \Do \Getkey\->\r \LpWhile ((\r=72)\ Or (\r=62))=0 \Cls \If \r=62 \Then \Cls "Code N\Deg>1"?\->\R a0 "Code N\Deg>2"?\->\R a1 \R a0\->\List 3[6] \R a1\->\List 3[7] \ClrText \Locate 1,1,"On vous donne" \Locate 1,2,\Int (\List 3[6]-12)/7 (\log (\Int (\Int (\List 3[6])-12)/7))\->\List 3[8] (\log (\Int (\Int (\List 3[7])-12)/7))\->\List 3[9] \Int \List 3[8]\->\List 3[8] \Int \List 3[9]\->\List 3[9] \Locate (3+\List 3[8]),2,"de" 10\Frac (\List 3[6])=1\=>\Locate (6+\List 3[8]),2,"Metal" 10\Frac (\List 3[6])=2\=>\Locate (6+\List 3[8]),2,"Cristal" 10\Frac (\List 3[6])=3\=>\Locate (6+\List 3[8]),2,"Petrole" \Locate 1,3,"En echange de" \Locate 1,4,\Int (\List 3[7]-7)/12 \Locate (3+\List 3[9]),4,"de" 10\Frac (\List 3[7])=1\=>\Locate (6+\List 3[9]),4,"Metal" 10\Frac (\List 3[7])=2\=>\Locate (6+\List 3[9]),4,"Cristal" 10\Frac (\List 3[7])=3\=>\Locate (6+\List 3[9]),4,"Petrole" \Locate 1,7,"Ok" \Locate 20,7,"No" \Do \Getkey\->\r \LpWhile ((\r=79)\ Or (\r=29))=0 10\Frac \R a1\->\R a2 ((\Int \R a1)-7)/12\->\R b0 \If \r=29\ Or (\r=79\ And ((\R a2=1\ And \R b0>M)\ Or (\R a2=2\ And \R b0>C)\ Or (\R a2=3\ And \R b0>K))) \Then \If \r=79 \Then \ClrText \Locate 1,1,"Vous etes trop pauvre" \Do:\LpWhile \Getkey\<>31 \ClrText \IfEnd \Int (55\Ran#+1)\->\R a2 \Int (9\Ran#+1)\->Z 100-\R a2\->\R a2 \R a2*Z\->\R a2 \R a2+Z/10\->\R a2 \ClrText \Locate 1,1,"Code de confirmation" \Locate 1,2,\R a2 \Do:\LpWhile \Getkey\<>31 \ClrText 5000\->Z \Goto1 \IfEnd \If \r=79 \Then \Int (55\Ran#+1)\->\R a2 150+\R a2\->\R a2 \Int (9\Ran#+1)\->Z Z*\R a2\->\R a2 \R a2+Z/10\->\R a2 \If 10\Frac (\List 3[6])=1 \Then M+(\Int (\List 3[6]-12)/7)\->M \IfEnd \If 10\Frac (\List 3[6])=2 \Then C+(\Int (\List 3[6]-12)/7\->C \IfEnd \If 10\Frac (\List 3[6])=3 \Then K+(\Int (\List 3[6]-12)/7\->K \IfEnd \If 10\Frac (\List 3[7])=1 \Then M-(\Int (\List 3[7]-7)/12\->M \IfEnd \If 10\Frac (\List 3[7])=2 \Then C-(\Int (\List 3[7]-7)/12\->C \IfEnd \If 10\Frac (\List 3[7])=3 \Then K-(\Int (\List 3[7]-7)/12\->K \IfEnd \ClrText \Locate 1,1,"Code de confirmation" \Locate 1,2,\R a2 \Do:\LpWhile \Getkey\<>31 \ClrText 5000\->Z \Goto1 \IfEnd \IfEnd \If \r=72 \Then \List 3[1]\->\List 3[2] \Locate 1,1,"Poposer quoi ?" \Locate 1,3,"(1)Metal" \Locate 1,4,"(2)Cristal" \Locate 1,5,"(3)Petrole" \Do \Getkey\->\r \LpWhile ((\r=72)\ Or (\r=62)\ Or (\r=52))=0 \ClrText \Do "Combien"?\->\R a0 \LpWhile (\r=72\ And \R a0>M)\ Or (\r=62\ And \R a0>C)\ Or (\r=52\ And \R a0>K)\ Or (\R a0\<=0) \r=72\=>((\R a0*7)+12)+.1\->\R a0 \r=62\=>((\R a0*7)+12)+.2\->\R a0 \r=52\=>((\R a0*7)+12)+.3\->\R a0 \R a0\->\List 3[6] \ClrText \Locate 1,1,"Echanger contre ?" \Locate 1,3,"(1)Metal" \Locate 1,4,"(2)Cristal" \Locate 1,5,"(3)Petrole" \Do \Getkey\->\r \LpWhile ((\r=72)\ Or (\r=62)\ Or (\r=52))=0 \ClrText \Do "Combien "?\->\R a0 \LpWhile \R a0\<=0 \r=72\=>((\R a0*12)+7)+.1\->\R a0 \r=62\=>((\R a0*12)+7)+.2\->\R a0 \r=52\=>((\R a0*12)+7)+.3\->\R a0 \R a0\->\List 3[7] \ClrText \Locate 1,1,"Code N\Deg>1" \Locate 1,2,\List 3[6] \Locate 1,3,"Code N\Deg>2" \Locate 1,4,\List 3[7] \Do:\LpWhile \Getkey\<>31 \ClrText "Code de confirmation"?\->\R a0 \If (\Int \R a0)/(10\Frac \R a0)\<=100 \Then \ClrText \Locate 1,1,"L'echange est refuse" \Do:\LpWhile \Getkey\<>31 \ClrText \For 6\->Z \To 9 0\->\List 3[Z] \Next 5000\->Z \Goto1 \IfEnd \If (\Int \R a0)/(10\Frac \R a0)\>=150 \Then \ClrText \Locate 1,1,"Echange accepte" \If 10\Frac (\List 3[6])=1 \Then \Locate 1,2,"Metal" M-(\Int (\List 3[6]-12)/7)\->M \IfEnd \If 10\Frac (\List 3[6])=2 \Then \Locate 1,2,"Cristal" C-(\Int (\List 3[6]-12)/7\->C \IfEnd \If 10\Frac (\List 3[6])=3 \Then \Locate 1,2,"Petrole" K-(\Int (\List 3[6]-12)/7\->K \IfEnd \Locate 9,2,"-" \Locate 10,2,\Int (\List 3[6]-12)/7 \If 10\Frac (\List 3[7])=1 \Then \Locate 1,3,"Metal" M+(\Int (\List 3[7]-7)/12\->M \IfEnd \If 10\Frac (\List 3[7])=2 \Then \Locate 1,3,"Cristal" C+(\Int (\List 3[7]-7)/12\->C \IfEnd \If 10\Frac (\List 3[7])=3 \Then \Locate 1,3,"Petrole" K+(\Int (\List 3[7]-7)/12\->K \IfEnd \Locate 9,3,"+" \Locate 10,3,(\Int (\List 3[7]-7)/12 \For 6\->Z \To 9 0\->\List 3[Z] \Next \Do:\LpWhile \Getkey\<>31 \ClrText 5000\->Z \Goto1 \IfEnd \IfEnd \IfEnd \IfEnd \If \r=74 \Then \For 10\->Z \To 45 \Step 7 \Text Z,1," " \Next \Text 51,1," " \If \Mat B[9,1]=0 \Then \Text 10,1,"CONSTRUIRE UN LABORATOIRE"\Disp\Goto1 \IfEnd \Text 10,1,"(1)TECHNOLOGIE ORDINATEUR" \Text 17,1,"(2)TECHNOLOGIE ARMES" \Text 24,1,"(3)TECHNOLOGIE BOUCLIER" \Text 31,1,"(4)TECHNOLOGIE ENERGIE" \Text 38,1,"(5)TECHNOLOGIE MILLITAIRE" \Do \Prog "BOUCLE" \Getkey\->\r \LpWhile ((\r=72)\ Or (\r=62)\ Or (\r=52)\ Or (\r=73)\ Or (\r=63))=0 \If \R b1=0 \Then \r=72\=>11\->H \r=62\=>12\->H \r=52\=>13\->H \r=73\=>14\->H \r=63\=>15\->H \For 10\->Z \To 45 \Step 7 \Text Z,1," " \Next \Else \For 10\->Z \To 45 \Step 7 \Text Z,1," " \Next \Text 10,1,"RECHERCHE EN COURS"\Disp\Text 10,1," " \Goto1 \IfEnd (\Mat A[H,1]*1.5^(\Mat B[H,1]))\->\R a0 (\Mat A[H,2]*1.6^(\Mat B[H,1]))\->\R a1 (\Mat A[H,3]*1.5^(\Mat B[H,1]))\->\R a2 \Lbl 4 \If \Mat B[H,2]\<>0 \Then \Text 10,1,"NECESSITE :" \Mat B[H,2]=9\=>\Text 17,1,"LABORATOIRE" \Mat B[H,2]=8\=>\Text 17,1,"CHANTIER SPATIAL" \Text 17,85,"NIV:" \Text 17,105,\Mat B[H,4] \Mat B[H,3]=14\=>\Text 31,1,"RECHERCHE ENERGIE" \Text 31,85,"NIV:" \Text 31,105,\Mat B[H,5] \Do:\LpWhile \Getkey\<>31 \For 10\->Z \To 45 \Step 7 \Text Z,1," " \Next \IfEnd \Text 10,1,"RECHERCHER AU NIVEAU" \Text 10,100,\Mat B[H,1]+1 \Text 17,1,"METAL :" \Text 17,50,\Int \R a0 \Text 24,1,"CRISTAL :" \Text 24,75,\Int \R a1 \Text 31,1,"PETROLE :" \Text 31,75,\Int \R a2 \Mat B[H,1]+1\->N \Mat B[9,1]\->F \Mat B[7,1]\->G (\Mat A[H,1]*2^(N-1)\->D (\Mat A[H,2]*2^(N-1)\->E (100000/(((D+E)*5000)*(2/(10+F)*0.5^G))\->Z 16/Z\->Z 1.1*Z\->Z \Text 38,1,"TEMPS (ENVIRON)" \If Z<60 \Then \Text 38,75,\Int Z \IfEnd \If Z\>=60\ And Z<3600 \Then \Text 38,75,\Int (Z/60) \Text 38,85,"M" \Text 38,92,(\Int ((\Frac (Z/60))*60) \Text 38,102,"S\Re\Rc" \IfEnd \If Z\>=3600\ And Z<86400 \Then \Text 38,75,(\Int (Z/3600)) \Text 38,85,"H" \Text 38,92,\Int (\Frac (Z/3600))*60 \Text 38,102,"M" \IfEnd \If Z\>=86400 \Then \Text 38,75,\Int (Z/86400) \Text 38,80,"J" \Text 38,87,\Int ((\Frac (Z/86400))*24) \Text 38,97,"H" \IfEnd \Text 50,1,"(1)RECHERCHER" \Text 50,57,"(I)INFOS" \Text 50,90,"(2)RETOUR" \Do \Getkey\->\r \LpWhile ((\r=72)\ Or (\r=62)\ Or (\r=55))=0 \For 10\->Z \To 45 \Step 7 \Text Z,1," " \Next \Text 50,1," " \If \r=55 \Then \Prog "BETA.INF" \Goto4 \IfEnd \If \r=62 \Then \Goto1 \IfEnd \If \r=72 \Then \Mat B[H,2]\<>0\=>\Mat B[H,2]\->I \Mat B[H,3]\<>0\=>\Mat B[H,3]\->J I=0\=>\Mat B[H,1]+1\->I J=0\=>\Mat B[H,1]+1\->J \If ((M-\R a0<0)\ Or (C-\R a1<0)\ Or (K-\R a2<0))\ Or ((\Mat B[I,1]<\Mat B[H,4])\ Or (\Mat B[J,1]<\Mat B[H,5]))\ Or (((M-\R a0<0)\ Or (C-\R a1<0)\ Or (K-\R a2<0))\ And ((\Mat B[I,1]<\Mat B[H,4])\ Or (\Mat B[J,1]<\Mat B[H,5]))) \Then \Text 50,1,"RECHERCHE IMPOSSIBLE"\Disp\Text 50,1," " \Goto1 \Else H\->\R b1 M-\R a0\->M C-\R a1\->C K-\R a2\->K 1\->O \Goto1 \IfEnd \IfEnd \Goto1 \IfEnd \If \r=63 \Then \Text 10,1,"(1)SAUVEGARDER" \Text 17,1,"(2)INFOS" \Do \Getkey\->\r \LpWhile ((\r=72)\ Or (\r=62))=0 \Text 10,1," " \Text 17,1," " \If \r=62 \Then \If B\<>0\ Or \R b1\<>0\ Or (B\<>0\ And \R b1\<>0) \Then B=1\=>\Text 10,1,"MINE DE METAL" B=2\=>\Text 10,1,"MINE DE CRISTAL" B=3\=>\Text 10,1,"GISEMENT DE PETROLE" B=4\=>\Text 10,1,"CENTRALE ELECTRIQUE" B=5\=>\Text 10,1,"CENTRALE DE FUSION" B=6\=>\Text 10,1,"USINE DE ROBOTS" B=7\=>\Text 10,1,"USINE DE NANITES" B=8\=>\Text 10,1,"CHANTIER SPATIAL" B=9\=>\Text 10,1,"LABORATOIRE" B=10\=>\Text 10,1,"SILLO A MISSILE" \R b1=11\=>\Text 17,1,"RECHERCHE ORDINATEUR" \R b1=12\=>\Text 17,1,"RECHERCHE ARMES" \R b1=13\=>\Text 17,1,"RECHERCHE DEFENSE" \R b1=14\=>\Text 17,1,"RECHERCHE ENERGIE" \R b1=15\=>\Text 17,1,"RECHERCHE MILLITAIRE" B\<>0\=>\Text 10,92,"EN COURS" \R b1\<>0\=>\Text 17,92,"EN COURS" \IfEnd \Text 24,1,"BUILD:" \Text 24,35,W \Text 31,1,"SEARCH:" \Text 31,35,\Int \List 3[4] \Text 38,1,"UNITS:" \Text 45,1,"M:+" \If \R a0\>=1 \Then \Text 45,15,\Int \R a0 \Else \Text 45,15,\R a0 \IfEnd \Text 45,40,"C:+" \If \R a1\>=1 \Then \Text 45,52,\Int \R a1 \Else \Text 45,52,\R a1 \IfEnd \Text 45,80,"K:+" \If \R a2\>=1 \Then \Text 45,92,\Int \R a2 \Else \Text 45,92,\R a2 \IfEnd \Do:\LpWhile \Getkey\<>31 \For 10\->Z \To 45 \Step 7 \Text Z,1," " \Next \Text Z,100," " \Goto1 \IfEnd \If \r=72 \Then \Text 34,20,"SAUVEGARDE EN COURS" \For 1\->Z \To 15 \List 3[1]=4\=>\Mat B[Z,1]\->\List 4[Z] \List 3[1]=5\=>\Mat B[Z,1]\->\List 5[Z] \List 3[1]=6\=>\Mat B[Z,1]\->\List 6[Z] \Next \List 3[1]=4\=>M\->\List 4[16] \List 3[1]=5\=>M\->\List 5[16] \List 3[1]=6\=>M\->\List 6[16] \List 3[1]=4\=>C\->\List 4[17] \List 3[1]=5\=>C\->\List 5[17] \List 3[1]=6\=>C\->\List 6[17] \List 3[1]=4\=>K\->\List 4[18] \List 3[1]=5\=>K\->\List 5[18] \List 3[1]=6\=>K\->\List 6[18] \If B\<>0 \Then \List 3[1]=4\=>B\->\List 4[19] \List 3[1]=5\=>B\->\List 5[19] \List 3[1]=6\=>B\->\List 6[19] \List 3[1]=4\=>W\->\List 4[20] \List 3[1]=5\=>W\->\List 5[20] \List 3[1]=6\=>W\->\List 6[20] \List 3[1]=4\=>\theta\->\List 4[21] \List 3[1]=5\=>\theta\->\List 5[21] \List 3[1]=6\=>\theta\->\List 6[21] \IfEnd \If \R b1\<>0 \Then \If \List 3[1]=4 \Then \R b1\->\List 4[22] \List 3[3]\->\List 4[23] \List 3[4]\->\List 4[24] \IfEnd \If \List 3[1]=5 \Then \R b1\->\List 5[22] \List 3[3]\->\List 4[23] \List 3[4]\->\List 4[24] \IfEnd \If \List 3[1]=6 \Then \R b1\->\List 6[22] \List 3[3]\->\List 4[23] \List 3[4]\->\List 4[24] \IfEnd \IfEnd \Text 34,20," " \Text 34,20,"SAUVEGARDE TERMINEE"\Disp\Stop \Goto1 \IfEnd \IfEnd \If \r=62 \Then \Text 9,1,"ENERGIE METAL:" 10*\Mat B[1,1]*(1.1^\Mat B[1,1])\->\R b0 \Text 9,65,\Int \R b0 \Text 16,1,"ENERGIE CRISTAL:" 10*\Mat B[2,1]*(1.1^\Mat B[2,1])\->\List 3[6] \Text 16,65,\Int \List 3[6] 20*\Mat B[3,1]*(1.1^\Mat B[3,1])\->\R b2 \Text 23,1,"ENERGIE PETROLE:" \Text 23,65,\Int \R b2 \Text 36,1,"ENERGIE NECESSAIRE:" \Text 36,79,\Int (\R b0+\List 3[6]+\R b2) \Text 43,1,"ENERGIE DISPONIBLE:" (20*\Mat B[4,1]*(1.1^\Mat B[4,1]))+(50*\Mat B[5,1]*(1.1^\Mat B[5,1]))\->R \Text 43,82,\Int R \Text 50,1,"POURCENTAGE DE PROD:" \If (\R b0+\List 3[6]+\R b2)\<>0 \Then \Int ((100*R)/(\R b0+\List 3[6]+\R b2))\->P 0\->\R b0 0\->\List 3[6] 0\->\R b2 \Else 100\->P \IfEnd P\<=0\=>20\->P P>100\=>100\->P \Text 50,85,P \Text 50,99,\@F799\Disp\For 9\->Z \To 23 \Step 7 \Text Z,1," " \Next \For 36\->Z \To 50 \Step 7 \Text Z,1," " \Next \Text 50,99," " \Goto1 \IfEnd \If \r=72 \Then 79\->\r \Lbl 3 \If \r=79 \Then 1\->L \For 10\->Z \To 45 \Step 7 \Text Z,1," " \Next \Text 51,1," " \Text 10,1,"(1)MINE DE METAL" \Text 17,1,"(2)MINE DE CRISTAL" \Text 24,1,"(3)GISEMENT DE PETROLE" \Text 31,1,"(4)CENTRAL ELECTRIQUE" \Text 38,1,"(5)USINE DE ROBOTS" \Text 45,1,"(6)LABORATOIRE DE RECHERCHES" \Text 51,105,"F6->" \IfEnd 'PAGE \If \r=29 \Then 2\->L \For 10\->Z \To 45 \Step 7 \Text Z,1," " \Next \Text 51,1," " \Text 10,1,"(1)CENTRALE DE FUSION" \Text 17,1,"(2)USINES DE NANITES" \Text 24,1,"(3)CHANTIER SPATIAL" \Text 31,1,"(4)SILLOS A MISSILES" \Text 51,1,"<-F1" \IfEnd \Do \Getkey\->\r (\r=29)\ Or (\r=79)\=>\Goto3 \Prog "BOUCLE" \Getkey\->\r \LpWhile ((\r=72)\ Or (\r=62)\ Or (\r=52)\ Or (\r=48)\ Or (\r=73)\ Or (\r=63)\ Or (\r=53))=0 \If B=0 \Then \If L=1 \Then \r=72\=>1\->H \r=62\=>2\->H \r=52\=>3\->H \r=73\=>4\->H \r=63\=>6\->H \r=53\=>9\->H \IfEnd \If L=2 \Then \r=72\=>5\->H \r=62\=>7\->H \r=52\=>8\->H \r=73\=>10\->H \IfEnd \For 10\->Z \To 45 \Step 7 \Text Z,1," " \Next \Else \For 10\->Z \To 45 \Step 7 \Text Z,1," " \Next \Text 10,1,"CONSTRUCTION EN COURS"\Disp\Text 10,1," " \Goto1 \IfEnd (\Mat A[H,1]*1.5^(\Mat B[H,1]))\->\R a0 (\Mat A[H,2]*1.6^(\Mat B[H,1]))\->\R a1 (\Mat A[H,3]*1.5^(\Mat B[H,1]))\->\R a2 \Lbl 2 \If \Mat B[H,2]\<>0 \Then \Text 10,1,"NECESSITE :" \Mat B[H,2]=3\=>\Text 17,1,"GISEMENT PETROLE" \Mat B[H,2]=6\=>\Text 17,1,"USINE DE ROBOTS" \Mat B[H,2]=9\=>\Text 17,1,"LABORATOIRE" \Text 17,85,"NIV:" \Text 17,105,\Mat B[H,4]\Disp\IfEnd \If \Mat B[H,3]\<>0 \Then \Mat B[H,3]=11\=>\Text 31,1,"RECHERCHE ORDINATEUR" \Mat B[H,3]=14\=>\Text 31,1,"RECHERCHE ENERGIE" \Text 31,85,"NIV:" \Text 31,105,\Mat B[H,5]\Disp\IfEnd \For 10\->Z \To 45 \Step 7 \Text Z,1," " \Next \Text 51,1," " \Text 51,95," " \Text 10,1,"CONSTRUCTION AU NIVEAU" \Mat B[H,1]+1\->Z H=7\ And \Mat B[7,1]\<>0\=>\Mat B[7,1]-2\->Z H=7\ And \Mat B[7,1]=0\=>1\->Z \Text 10,100,Z \Text 17,1,"METAL :" \Text 17,50,\Int \R a0 \Text 24,1,"CRISTAL :" \Text 24,75,\Int \R a1 \Text 31,1,"PETROLE :" \Text 31,75,\Int \R a2 \Text 38,1,"TEMPS (ENVIRON):" \Mat B[H,1]+1\->N \Mat B[6,1]\->F \Mat B[7,1]\->G (\Mat A[H,1]*2^(N-1)\->D (\Mat A[H,2]*2^(N-1)\->E (100000/(((D+E)*5000)*(2/(10+F)*0.5^G))\->Z 16/Z\->Z Z*1.1\->Z \If Z<60 \Then \Text 38,75,\Int Z \Text 38,85,"S\Re\Rc" \IfEnd \If Z\>=60\ And Z<3600 \Then \Text 38,75,\Int (Z/60) \Text 38,85,"M" \Text 38,92,\Int ((\Frac (Z/60))*60) \Text 38,102,"Sec" \IfEnd \If Z\>=3600\ And Z<86400 \Then \Text 38,75,\Int (Z/3600) \Text 38,85,"H" \Text 38,92,\Int ((\Frac (Z/3600))*60) \Text 38,102,"M" \IfEnd \If Z\>=86400 \Then \Text 38,75,\Int (Z/86400) \Text 38,80,"J" \Text 38,87,\Int ((\Frac (Z/86400))*24) \Text 38,97,"H" \Frac (Z/86400)*24\->Z 60(\Frac Z)\->Z \Text 38,105,\Int Z \Text 38,115,"M" \IfEnd \Text 50,1,"(1)CONSTRUIRE" \Text 50,57,"(I)INFOS" \Text 50,90,"(2)RETOUR" \Do \Getkey\->\r \LpWhile ((\r=72)\ Or (\r=62)\ Or (\r=55))=0 \For 10\->Z \To 45 \Step 7 \Text Z,1," " \Next \Text 50,1," " \If \r=55 \Then \Prog "BETA.INF" \Goto2 \IfEnd \If \r=62 \Then \Goto1 \IfEnd \If \r=72 \Then \Mat B[H,2]\<>0\=>\Mat B[H,2]\->I \Mat B[H,3]\<>0\=>\Mat B[H,3]\->J I=0\=>\Mat B[H,1]+1\->I J=0\=>\Mat B[H,1]+1\->J \If ((M-\R a0<0)\ Or (C-\R a1<0)\ Or (K-\R a2<0))\ Or ((\Mat B[I,1]<\Mat B[H,4])\ Or (\Mat B[J,1]<\Mat B[H,5]))\ Or (((M-\R a0<0)\ Or (C-\R a1<0)\ Or (K-\R a2<0))\ And ((\Mat B[I,1]<\Mat B[H,4])\ Or (\Mat B[J,1]<\Mat B[H,5]))) \Then \Text 50,1,"CONSTRUCTION IMPOSSIBLE"\Disp\Text 50,1," " \Goto1 \Else H\->B M-\R a0\->M C-\R a1\->C K-\R a2\->K 1\->O \Goto1 \IfEnd \IfEnd \Goto1 \IfEnd \IfEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:940 File Name:BOUCLE Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record ((20*\Mat B[4,1]*(1.1^\Mat B[4,1]))+(50*\Mat B[5,1]*(1.1^\Mat B[4,1]))\->R \If ((\Mat B[1,1]\<>0)\ Or (\Mat B[2,1]\<>0)\ Or (\Mat B[3,1]\<>0)) \Then \Int (((100*R)/((10*\Mat B[1,1]*(1.1^\Mat B[1,1]))+(10*\Mat B[2,1]*(1.1^\Mat B[2,1]))+(20*\Mat B[3,1]*(1.1^\Mat B[3,1])))\->P P\<=0\=>20\->P P\>=100\=>100\->P \IfEnd M+\R a0\->M C+\R a1\->C K+\R a2\->K 'BARRES \Text 1,14,\Int M \Text 1,52,\Int C \Text 1,93,\Int K \If B\<>0 \Then W+\theta\->\theta W+\theta>16\=>16\->\theta \F-Line 1,4,1+\Int \theta,4 \If W+\theta\>=16 \Then 16\->\theta B=7\=>\Mat B[7,1]+2\->\Mat B[7,1] \Mat B[B,1]+1\->\Mat B[B,1] \For 17\->Z \To 2 \Step -1 \Text 50,95,"TERMINE" \PlotOff Z,4 0\->O \Text 50,95," " \Next 0\->B 0\->\theta 0\->W \List 3[1]=4\=>0\->\List 4[19] \List 3[1]=5\=>0\->\List 5[19] \List 3[1]=6\=>0\->\List 6[19] \List 3[1]=4\=>0\->\List 4[20] \List 3[1]=5\=>0\->\List 5[20] \List 3[1]=6\=>0\->\List 6[20] \List 3[1]=4\=>0\->\List 4[21] \List 3[1]=5\=>0\->\List 5[21] \List 3[1]=6\=>0\->\List 6[21] \IfEnd \IfEnd \If \R b1\<>0 \Then \List 3[3]+\List 3[4]\->\List 3[4] \List 3[3]+\List 3[4]\>=16\=>16\->\List 3[4] \F-Line 42,4,42+\Int \List 3[4],4 \If \List 3[3]+\List 3[4]\>=16 \Then 16\->\List 3[4] \Mat B[\R b1,1]+1\->\Mat B[\R b1,1] \For 58\->Z \To 43 \Step -1 \Text 50,95,"TERMINE" \PlotOff Z,4 0\->O \Text 50,95," " \Next 0\->\R b1 0\->\List 3[3] 0\->\List 3[4] \For 22\->Z \To 24 \List 3[1]=4\=>0\->\List 4[Z] \List 3[1]=5\=>0\->\List 5[Z] \List 3[1]=6\=>0\->\List 6[Z] \Next \IfEnd \IfEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:642 File Name:BETA.INI Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 0\->A~B 0\->\R a0 0\->\R a1 0\->\R a2 0\->\R b2 0\->\R b1 0\->\R b0 'PRIX BATIMENT [[60,15,0,10][48,24,0,10][225,75,0,20][75,30,0,0][900,360,80,0][400,120,200,0][1000000,500000,100000,0][400,200,100,0][200,400,200,0][20000,20000,1000,0][0,400,600,0][800,200,0,0][200,600,0,0][0,800,400,0][200,100,100,0]]\->\Mat A 'NIVEAU 'BATIMENT NECESSAIRE 'RECHERCH NECESSAIRE 'NIVO BAT NEC 'NIVO RECH NEC [[00,00,00,00,00][00,00,00,00,00][00,00,00,00,00][00,00,00,00,00][00,03,14,05,03][00,00,00,00,00][00,06,11,10,10][00,06,00,02,00][00,00,00,00,00][00,00,00,00,00][0,0,0,0,0][0,0,0,0,0][0,0,0,0,0][0,0,0,0,0][0,0,0,0,0][0,0,0,0,0]]\->\Mat B {100,30,0}\->\List 1 24\->\Dim \List 4 24\->\Dim \List 5 24\->\Dim \List 6 15\->\Dim \List 3 %End