%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:6958 File Name:SUM BATP Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Mat F[8,1]=1\=>\GotoA \Mat F[8,1]=0\=>\ClrText "NIVEAU 1 : LE" "BATEAU PIRATE."\Disp"Votre but est de" "retrouver le livre des prophetes qui a ete vole par le" "prince NERU. Vous savez qu'il se cache sur l'ile de TEOMURA.C'est pour cela que vous voguez en direc-tion de cette ile."\Disp\ClrText "Bateau pirate en" "approche, s'ecrie unepersonne de votre equipage"\Disp\ClrText "Le bateau s'avance deplus en plus vers vous l\orsque soudain des pirates sautent sur votre navire."\Disp\ClrText "AIDE :" "1.APPUYEZ A TOUT" "MOMENT SUR [MENU]" "POUR VOIR VOS STATS, INVENTAIRE, ETC..."\Disp"DANS CE MENU, IL Y A TROIS PAGES (F1 A F3)"\Disp"APPUYEZ SUR [EXIT] POUR FERMER LES STATSAPPUYEZ SUR [MENU] MAINTENANT" \Do \Getkey \LpWhile (\Ans=48)=0 \Ans=48\=>\Prog "SUM STAT" \ClrText:\ClrGraph "BIEN."\Disp\ClrText "AIDE :" "2.LORSQUE L'ON VOUS PROPOSE DIFFERENTES POSSIBILITES DE" "DIRECTION, SERVEZ-" "VOUS DES TOUCHES" "[REPLAY]"\Disp\ClrText "UN PIRATE EST DEVANT VOUS. APPUYEZ SUR" "HAUT POUR VOUS" "APPROCHER DE LUI ET ENGAGER LE COMBAT" \Do \Getkey \LpWhile (\Ans=28)=0 \If \Ans=28 \Then "VOUS AVANCEZ VERS LUIVIENS MOURIR !!!!!!!!CRIE LE PIRATE"\Disp10\->\Mat F[7,1] 3\->\Mat F[7,5] 5\->\Mat F[7,6] 4\->\Mat F[7,7] 1\->\Mat F[1,2] 1\->\Mat F[3,9] \Prog "SUM CBT" \ClrText "VOUS AVEZ TUE VOTRE PREMIER MECHANT !"\Disp"IL AVAIT SUR LUI UN TONIQUE REVITALISANT (REND 1\slash4 PV)"\Disp\Mat F[4,2]+1\->\Mat F[4,2] \ClrText "RAPPELEZ-VOUS QUE VOUS POUVEZ APPUYER SUR [MENU] A TOUT MOMENT QUAND VOUS DEVEZ APPUYER SUR [REPLAY]"\Disp\ClrText "DEUX PIRATES ARRIVENTSUR VOUS"\Disp"VOUS DEVREZ LES BAT- TRE UN PAR UN"\Disp20\->\Mat F[7,1] 0\->\Mat F[7,3] 2\->\Mat F[7,5] 5\->\Mat F[7,6] 12\->\Mat F[7,7] 2\->\Mat F[3,9] \Prog "SUM CBT" \ClrText "COMBAT 2"\Disp100\->\Mat F[7,1] 0\->\Mat F[7,3] 1\->\Mat F[7,5] 3\->\Mat F[7,6] 4\->\Mat F[7,7] 2\->\Mat F[3,9] \Prog "SUM CBT" \ClrText "CHACUN DES PIRATES AVAIENT UN TOINIQUE REVITALISANT"\Disp\Mat F[4,1]+2\->\Mat F[4,1] \ClrText "BIEN. JE VOIS QUE" "VOUS AVEZ COMPRIS. NOUS ALLONS POUVOIR COMMENCER LE VRAI JEUVOUS RETROUVEZ VOTRE SANTE ! VOUS MONTEZ D'UN NIVEAU ! (EN PLUS DE CELUI QUE VOUS VENEZ D'AVOIR !C'EST PAS GENTIL, CA?)"\Disp\Pi\->L \Prog "SUM NIV" "REGARDEZ VOS" "NOUVEAUX STATS"\Disp\Do \Getkey \LpWhile (\Ans=48) \Prog "SUM STAT" \ClrText "VOUS AVEZ DU VOIR LESOBJETS GAGNES EN COM-BAT." \For 1\->E \To 500:\Next \ClrText "C'EST UNE BATAILLE SANS MERCI QUI SE" "DEROULE SOUS VOS YEUX." \For 1\->E \To 650:\Next \ClrText "UN PIRATE ARRIVE VERSVOUS EN CRIANT. VOUS SORTEZ VOTRE EPEE... " 150\->\Mat F[7,1] 10\->\Mat F[7,3] 2\->\Mat F[7,5] 7\->\Mat F[7,6] 6\->\Mat F[7,7] 2\->\Mat F[3,9] 1\->\Mat F[1,2] \Prog "SUM CBT" \ClrText "C'ETAIT UN COMBAT" "DIFFICILE."\Disp"CE PIRATE A UN FLACONACCROCHE AUTOUR DE SACEINTURE. IL Y A" "ECRIT DESSUS :" "'SOIN TOTAL'" "VOUS LE BUVEZ D'UN COUP..." \For 1\->E \To 1000:\Next \Mat F[2,2]\->\Mat F[2,1] \Mat F[2,4]\->\Mat F[2,3] \ClrText "VOUS AVEZ RETROUVE ENTIEREMENT VOTRE SANTE"\Disp\ClrText "LE CHEF PIRATE VIENT DE DEBARQUER SUR" "VOTRE NAVIRE. IL A UNE EPEE DE FEU."\Disp"IL S'APPROCHE DE" "VOUS :"\Disp"ALORS, ON CROIT" "REUSSIR A ME" "REPOUSSER ? TU AS TUE3 DE MES MEILLEURS PIRATES. TU VAS LE PAYER TRES CHER !!"\Disp250\->\Mat F[7,1] 0\->\Mat F[7,3] 12\->\Mat F[7,5] 8\->\Mat F[7,6] 7\->\Mat F[7,7] 4\->\Mat F[3,9] \ClrText 1\->\Mat F[8,1] "CA VA ETRE UN COMBAT DIFFICILE. PARTIE" "SAUVEGARDEE..."\Disp\Lbl A \Prog "SUM CBT" \ClrText "VOYANT QUE LEUR CHEF EST MORT, LES PIRATESPRENNENT LA FUITE."\Disp\ClrText "VOUS VOGUEZ MAINTENANT VERS VOTRE OBJECTIF, L'ILE DE TEOMURA." \For 1\->E \To 500:\Next \ClrText 2\->\Mat F[1,2] "L'ILE EST MAINTENANT TOUTE PROCHE. VOUS L'OBSERVEZ QUAND UNE CREATURE VOLE VERS VOUS."\Disp"AUX ARMES ! C'EST LA SENTINELLE ! CRIE QUELQU'UN."\Disp"LA CREATURE VOLE AU DESSUS DE VOTRE NAVI-RE. SOUDAIN ELLE" "EXPLOSE, SE DIVISANT EN PLEINS DE PETITES CREATURES, DES" "CUIRASSIERS."\Disp\ClrText "VOUS POUVEZ APPUYER SUR [MENU] A TOUT MOMENT POUR VOIR VOS STATS"\Disp\ClrText "2 A DROITE, 3 A GAUCHE. 2 DEVANT" \Do \Getkey \LpWhile ((\Ans=27)\ Or (\Ans=38)\ Or (\Ans=28))=0 \Ans=27\=>1\->F \Ans=38\=>2\->F \Ans=28\=>3\->F \If F=1 \Then "VOUS VOUS APPROCHEZ DES CREATURES."\Disp30\->\Mat F[7,1] 0\->\Mat F[7,3] 1\->\Mat F[7,5] 8\->\Mat F[7,6] 8\->\Mat F[7,7] 1\->\Mat F[3,9] \Prog "SUM CBT" \ClrText "LE PREMIER EST MORT"\Disp30\->\Mat F[7,1] \Prog "SUM CBT" \IfEnd \If F=2 \Then "LES 3 MONSTRES SE COMBINENT EN UN SEUL GROS ET S'APPROCHE DEVOUS"\Disp90\->\Mat F[7,1] 0\->\Mat F[7,3] 1\->\Mat F[7,5] 6\->\Mat F[7,6] 3\->\Mat F[7,7] \Prog "SUM CBT" \IfEnd \If F=3 \Then "UN DES DEUX MONSTRES S'APPROCHE DE VOUS TANDIS QUE L'AUTRE S'EN VA"\Disp50\->\Mat F[7,1] 0\->\Mat F[7,3] 1\->\Mat F[7,5] 3\->\Mat F[7,6] 2\->\Mat F[7,7] 1\->\Mat F[3,9] \Prog "SUM CBT" \IfEnd \ClrText "VOUS TROUVEZ SUR LE SOL UNE 'EPEE DE FEU'C'EST L'EPEE DU" "PIRATE DE TOUT A L' HEURE !"\Disp2\->\Mat E[1,2] \ClrText "Elle a 10\@25 de chance d'infliger le s\ort 'FEU' a l'ennemi."\Disp\ClrText "C'est la derniere fois que je le dis, qu\and vous devez appuyer sur les" "touches [REPLAY] vouspouvez appuyer sur [MENU] pour voir vos stats."\Disp\ClrText "Des cuirassiers arrivent de nouveau. Appuyez vers haut pour avancer vers eux." \Do \Getkey \LpWhile ((\Ans=28)\ Or (\Ans=48))=0 \Ans=48\=>\Prog "SUM STAT" "Un des cuirassiers s'approche de vous"\Disp50\->\Mat F[7,1] 0\->\Mat F[7,3] 1\->\Mat F[7,5] 3\->\Mat F[7,6] 3\->\Mat F[7,7] 1\->\Mat F[3,9] \Prog "SUM CBT" "Puis un autre"\Disp50\->\Mat F[7,1] \Prog "SUM CBT" "Et enc\ore un autre"\Disp50\->\Mat F[7,1] \Prog "SUM CBT" "De tous les cotes vossoldats se battent. Vous etes vraiment fier d'eux. Soudain vous voyez un soldat qui a l'air tres mal.3 cuirassiers" "tournent autour de celui-ci. Le soldat est couche par terre,incapable de se" "battre. A tout momentil va se faire" "decoupe par les cuirassiers. Voulez- vous l'aider ? Appuyez sur haut pourl'aider ou bas pour vous en-aller." \Do \Getkey \LpWhile ((\Ans=28)\ Or (\Ans=37)\ Or (\Ans=48))=0 \Ans=48\=>\Prog "SUM STAT" \ClrText \If \Ans=28 \Then "Vous vous approchez."\Disp"Le soldat vous" "regarde, l'air de dire : merci."\Disp100\->\Mat F[7,1] \Prog "SUM CBT" "et de 1"\Disp100\->\Mat F[7,1] \Prog "SUM CBT" "et de 2"\Disp100\->\Mat F[7,1] \Prog "SUM CBT" "et de 3 \!mark"\Disp\ClrText "Vous aidez le soldat a se relever."\Disp"Merci beaucoup, cher ami. Montrez-moi vos mains..."\Disp"Vous obeissez."\Disp"Il pose ses mains surles votre puis une lumiere apparait entre vos mains. Vousvous sentez bien. Affreusement bien. Puis, au moment le plus exci\tan t, il enleve soudainement ses mains. \To ut disparait."\Disp"Voila, cher ami. Tu vas te sentir mieux maintenant. Je suis s\orcier. j'ai pu voirun gr\and courage en toi. Tant que tu aideras plus faible que toi, tout ira bien pour toi."\Disp"Mais le jour ou tu n'aideras pas plus faible que toi, tout ira mal."\Disp"Je t'ai donne un niveau supplementaire. Sois heureux \!mark"\Disp\Pi\->L \Prog "SUM NIV" \IfEnd \If \Ans=37 \Then "Vous faites demi-tourl\orsque le soldat se fait decapiter par les cuirassiers. Maintenant, ils sont a vos trousses"\Disp"Ils se mettent a couler et a" "reapparaitre sous un seul gros cuirassier."\Disp200\->\Mat F[7,1] \Prog "SUM CBT" \IfEnd \ClrText "La bataille qui a etemenee la a" "completement detruit votre navire \!mark heureusement, vous n'etes pas loin de la cote. Le bateau coulede plus en plus, pourenfin disparaitre."\Disp"Vous nagez \tan t bienque mal vers la cote.Beaucoup de marins qui etaient avec voussont m\orts dans ce combat."\Disp"Les autres sont en train de se noyer dans la mer."\Disp"Vous vous retournez et vous ne voyez personne."\Disp"Heureusement que voussavez parfaitement nager car il y a qu\and meme plus de 600 metres qui vous separent de la cote."\Disp"Enfin, vous y etes..."\Disp"Vous etes sur l'ile de TEOMURA \!mark\!mark\!mark"\Disp"Votre but \!mark"\Disp"Vous etes toute essouflee"\Disp"Mais peu imp\orte, carvous etes sur l'ile de TEOMURA \!mark\!mark"\Disp"NIVEAU 1, Le BATEAU PIRATE, termine"\Disp\ClrText \Pi\->H \Prog "SUM TEOM" %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:2877 File Name:SUM CBT Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \BG-None:\ClrGraph:\ClrText \Locate 7,4,"COMBAT !!!" \For 1\->A \To 400:\Next \Lbl 1 \ClrText:\ClrGraph \RclPict 1 \If \Mat F[8,3]\>=1 \Then \Text 58,92,"[F6]" \Text 50,92,"[F5]" \Text 58,48,"[F4]" \IfEnd \Mat F[1,2]=1\=>\Text 1,70,"Pirate" \Mat F[1,2]=2\=>\Text 1,70,"Cuirassier" \Mat F[1,2]=3\=>\Text 1,70,"CEN. ENTR." \Mat F[1,2]=4\=>\Text 1,70,"ZOMBIE" \Text 7,20,\Mat F[2,1] \Text 7,45,\Mat F[2,2] \Text 13,20,\Mat F[2,3] \Text 13,45,\Mat F[2,4] \Text 19,25,\Mat F[2,5] \Text 25,25,\Mat F[2,6] \Text 31,25,\Mat F[2,7] \Text 37,25,\Mat F[3,6] \Text 7,90,\Mat F[7,1] \Text 13,90,\Mat F[7,3] \Text 19,95,\Mat F[7,5] \Text 25,95,\Mat F[7,6] \Text 31,95,\Mat F[7,7] \Text 37,95,\Mat F[3,9] \Do \Getkey \LpWhile ((\Ans=79)\ Or (\Ans=69)\ Or (\Ans=59)\ Or (\Ans=49)\ Or (\Ans=39)\ Or (\Ans=29))=0 \Ans=79\=>\GotoA \Ans=69\=>\GotoB \Ans=59\=>\GotoC \Ans=49\=>\GotoD \Ans=39\=>\GotoE \Ans=29\=>\GotoF \Lbl C 'STAT \Prog "SUM STAT" \GotoG \Lbl A 'A \ClrText \Mat F[1,2]\->U \Locate 1,1," " \Locate 1,2," " \Locate 1,3," " \Locate 1,4," " \Locate 1,5," \theta " U=1\=>\Locate 3,2,"\theta" U=2\=>\Locate 2,2,"(O)" U=12\=>\Locate 2,2,"{O}" U=3\=>\Locate 2,2,"\Deg>M\Deg>" U=4\=>\Locate 2,2,"V*V" \If U=10 \Then \Locate 2,2,"#X#" \Locate 2,3,"I I" \IfEnd \If U=5 \Then \Locate 2,2,"IOI" \Locate 2,3,"^ ^" \IfEnd U=6\=>\Locate 2,2,"(I)" U=9\=>\Locate 2,2,"*O*" \If U=10 \Then \Locate 2,2,"*O*" \Locate 2,3,"* *" \IfEnd \If U=7 \Then \Locate 2,2,"OWO" \Locate 2,3,"T T" \IfEnd \Int 11\Ran#\->A \Mat F[2,6]*A\->A A/\Mat F[7,7]\->A \Int A\->A A<0\=>0\->A \Mat F[7,1]-A\->\Mat F[7,1] \For 5\->X \To 3 \Step \(-)1 \Locate 1,X," \theta " \Locate 1,X," " \For 0\->B \To 5:\Next \Next \Locate 1,3," \theta " \For 0\->B \To 80:\Next \Locate 1,2," I " \For 0\->B \To 20:\Next A\<>0\=>\Locate 3,1,\(-)A A=0\=>\Locate 2,1,"RATE !" \For 0\->X \To 150:\Next \ClrText \Locate 1,2,"L'ennemi perd" \Locate 1,3,A \Locate 1,4,"PV"\Disp\ClrText \If \Mat F[7,1]\<=0 \Then \GotoH \IfEnd \GotoG \Lbl B 'DEF 1\->H \GotoG \Lbl G \Int 11\Ran#\->A A*\Mat F[7,6]\->A A/\Mat F[2,7]\->A \Int A\->A A\<=0\=>0\->A \If H=1 \Then A/2\->A \Int A\->A 0\->H A\<=0\=>0\->A \IfEnd \Mat F[2,1]-A\->\Mat F[2,1] \ClrText \Mat F[1,2]\->U \Locate 1,1," " \Locate 1,2," " \Locate 1,3," " \Locate 1,4," " \Locate 1,5," \theta " \Locate 1,6," " U=1\=>\Locate 3,2,"\theta" U=2\=>\Locate 2,2,"(O)" U=12\=>\Locate 2,2,"{O}" U=3\=>\Locate 2,2,"\Deg>M\Deg>" U=4\=>\Locate 2,2,"V*V" \If U=10 \Then \Locate 2,2,"#X#" \Locate 2,3,"I I" \IfEnd \If U=5 \Then \Locate 2,2,"IOI" \Locate 2,3,"^ ^" \IfEnd U=6\=>\Locate 2,2,"(I)" U=9\=>\Locate 2,2,"*O*" \If U=10 \Then \Locate 2,2,"*O*" \Locate 2,3,"* *" \IfEnd \If U=7 \Then \Locate 2,2,"OWO" \Locate 2,3,"T T" \IfEnd \For 3\->X \To 5 \Locate 1,X," Y " \For 0\->B \To 5:\Next \Next \Locate 3,6,"\theta" \For 0\->B \To 5:\Next \Locate 2,6,"*" \For 0\->B \To 5:\Next \Locate 4,6,"*" \For 0\->B \To 60:\Next A\<>0\=>\Locate 3,7,\(-)A A=0\=>\Locate 2,7,"RATE !" \For 0\->B \To 150:\Next \ClrText \Locate 1,2,"Vous perdez" \Locate 1,3,A \Locate 1,4,"PV"\Disp\ClrText \Mat F[2,1]\<=0\=>\GotoH \Goto1 \Lbl H \ClrText \If \Mat F[2,1]\<=0 \Then "Vous etes m\ort !!!!!!GAME OVER"\Disp\Mat F[2,2]\->\Mat F[2,1] \If U=\(-)\Pi \Then \(-)\Pi\->V \Return \IfEnd \Prog "SUMMONER" \IfEnd \If \Mat F[7,1]\<=0 \Then "L'ennemi est abattu !"\Disp\Mat F[3,9]\->A \Mat F[3,7]-A\->\Mat F[3,7] \If \Mat F[3,7]\<=0 \Then \Pi\->L \Prog "SUM NIV" \IfEnd \IfEnd \Int 10\Ran#\->A \Int 10\Ran#\->B \Int 10\Ran#\->C A+B+C\->A \Mat F[3,8]+A\->\Mat F[3,8] \Int 10\Ran#\->A \If A=1 \Then \ClrText "L'ennemi avait un tonique sur lui"\Disp\Mat F[4,1]+1\->\Mat F[4,1] \IfEnd \If A=2 \Then \ClrText "L'ennemi avait une potion sur lui"\Disp\Mat F[4,2]+1\->\Mat F[4,2] \IfEnd \ClrText \Return \Lbl E \ClrGraph \Text 1,1,"INVOCATIONS" \Horizontal 2.5 \Text 15,1,"RETOUR\->[EXIT]" \Mat F[8,3]=1\=>\Text 22,1,"1.INVOCATION DE SANG" \Do \Getkey \LpWhile ((\Ans=47)\ Or (\Ans=72))=0 \Ans=47\=>\Goto1 \If \Ans=72 \Then \Mat F[8,3]\<>1\=>\Goto1 \Mat F[1,4]\<>\Mat F[3,6]\=>\Goto1 2\->\Mat F[8,3] {10,10}\->\Dim \Mat G \Mat F\->\Mat G \Mat F[2,2]*3\->\Mat F[2,2] \Mat F[2,2]\->\Mat F[2,1] \Mat F[2,4]*4\->\Mat F[2,4] \Mat F[2,4]\->\Mat F[2,3] \Mat F[2,5]*3\->\Mat F[2,5] \Mat F[2,6]*3\->\Mat F[2,6] \Mat F[2,7]*3\->\Mat F[2,7] \Mat F[2,8]*3\->\Mat F[2,8] \Mat F[2,9]*3\->\Mat F[2,9] \Mat F[2,10]*3\->\Mat F[2,10] \Mat F[3,1]*3\->\Mat F[3,1] \Mat F[3,2]*3\->\Mat F[3,2] \Mat F[3,3]*3\->\Mat F[3,3] \Mat F[3,4]*3\->\Mat F[3,4] \Mat F[3,5]*3\->\Mat F[3,5] \Mat F[3,6]\->\Mat F[1,4] \Goto1 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:2546 File Name:SUM CBTM Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record "FAIRE UN COMBAT\->1" "AIDE\->2" "ENVOYER PARTIE\->3" \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62)\ Or (\Ans=52))=0 \Ans=52\=>\Goto2 \Ans=72\=>\GotoA \ClrText:\ClrGraph:\BG-None \Text 1,1,"CE MODE PERMET DE FAIRE DES" \Text 7,1,"COMBATS MULTIJOUEURS A PARTIR" \Text 13,1,"DU JEU SUMMONER CREE PAR" \Text 19,1,"MATRONIX. IL FAUT QUE CHAQUE" \Text 25,1,"JOUEUR AIT SA PARTIE SUR SA" \Text 31,1,"CALCULETTE ET QUE L'UN DES DEU" \Text 37,1,"X ENVOIE A L'AUTRE JOUEUR SA" \Text 43,1,"PARTIE. IL SUFFIT ENSUITE DE" \Text 49,1,"LANCER LA PARTIE ET QUE LE" \Text 55,1,"MEILLEUR GAGNE !" \Do \Stop \Lbl 2 \ClrText "UN SEUL JOUEUR DOIT ENVOYER SA PARTIE. ENVOYER (1) "?\->A A\<>1\=>\Prog "FF CBT M" \Mat F\->\Mat E \ClrText "ALLEZ DANS LE MENU LINK ET ENVOYEZ LA MATRICE E. APPUYEZ SUR [MENU] PUIS SUR [\sin ]" \Stop \Lbl A \Mat F\->\Mat D \Mat E[2,2]\->\Mat E[2,1] \Mat D[2,2]\->\Mat D[2,1] \Mat E[2,4]\->\Mat E[2,3] \Mat D[2,4]\->\Mat D[2,3] \BG-None:\ClrGraph:\ClrText \Locate 7,4,"COMBAT !!!" \For 1\->A \To 500:\Next \Lbl 1 \ClrText:\ClrGraph \Horizontal -2.4 \Horizontal -1.6 \Text 58,1,"[F1] ATK" \Text 50,1,"[F2] DEF" \Text 50,48,"[**] ***" \Text 58,48,"[F4] CAP" \Text 50,92,"[F5] INV" \Text 58,92,"[**] ****" \Text 1,1,"JOUEUR 1" \Text 1,70,"JOUEUR 2" \Text 7,1,"PV:" \Text 7,20,\Mat D[2,1] \Text 7,40,"\slash" \Text 7,45,\Mat D[2,2] \Text 13,1,"PA:" \Text 13,20,\Mat D[2,3] \Text 13,40,"\slash" \Text 13,45,\Mat D[2,4] \Text 19,1,"VIT:" \Text 19,25,\Mat D[2,5] \Text 25,1,"FOR:" \Text 25,25,\Mat D[2,6] \Text 31,1,"DEF:" \Text 31,25,\Mat D[2,7] \Text 37,1,"NIV:" \Text 37,25,\Mat D[3,6] \Text 7,70,"PV:" \Text 7,90,\Mat E[2,1] \Text 13,70,"PA:" \Text 13,90,\Mat E[2,3] \Text 19,70,"VIT:" \Text 19,95,\Mat E[2,5] \Text 25,70,"FOR:" \Text 25,95,\Mat E[2,6] \Text 31,70,"DEF:" \Text 31,95,\Mat E[2,7] \Text 37,70,"NV:" \Text 37,95,\Mat E[3,6] \Do \Getkey \LpWhile ((\Ans=79)\ Or (\Ans=69)\ Or (\Ans=49)\ Or (\Ans=39))=0 \Ans=79\=>\GotoC \Ans=69\=>\GotoB \Ans=49\=>\GotoD \Ans=39\=>\GotoE \Lbl C \Int 10\Ran#\->A A*\Mat D[2,6]\->A 2*\Mat E[2,7]\->B A-B\->A \If A\<=0 \Then 0\->A \IfEnd \Mat E[2,1]-A\->\Mat E[2,1] \ClrText \Locate 1,2,"LE JOUEUR 2 PERD" \Locate 1,3,A \Locate 1,4,"PV"\Disp\ClrText \If \Mat E[2,1]\<=0 \Then \GotoH \IfEnd \GotoG \Lbl B 1\->H \GotoG \Lbl H \ClrText \If \Mat D[2,1]\<=0 \Then "JOUEUR 1 MORT !!!!!!!"\Disp\IfEnd \If \Mat E[2,1]\<=0 \Then "JOUEUR 2 MORT !!!!!!!"\Disp\IfEnd \Stop \Lbl G \ClrText:\ClrGraph \Horizontal -2.4 \Horizontal -1.6 \Text 58,1,"[F1] ATK" \Text 50,1,"[F2] DEF" \Text 50,48,"[**] ***" \Text 58,48,"[F4] CAP" \Text 50,92,"[F5] INV" \Text 58,92,"[**] ****" \Text 1,1,"JOUEUR 2" \Text 1,70,"JOUEUR 1" \Text 7,1,"PV:" \Text 7,20,\Mat E[2,1] \Text 7,40,"\slash" \Text 7,45,\Mat E[2,2] \Text 13,1,"PA:" \Text 13,20,\Mat E[2,3] \Text 13,40,"\slash" \Text 13,45,\Mat E[2,4] \Text 19,1,"VIT:" \Text 19,25,\Mat E[2,5] \Text 25,1,"FOR:" \Text 25,25,\Mat E[2,6] \Text 31,1,"DEF:" \Text 31,25,\Mat E[2,7] \Text 37,1,"NIV:" \Text 37,25,\Mat E[3,6] \Text 7,70,"PV:" \Text 7,90,\Mat D[2,1] \Text 13,70,"PA:" \Text 13,90,\Mat D[2,3] \Text 19,70,"VIT:" \Text 19,95,\Mat D[2,5] \Text 25,70,"FOR:" \Text 25,95,\Mat D[2,6] \Text 31,70,"DEF:" \Text 31,95,\Mat D[2,7] \Text 37,70,"NV:" \Text 37,95,\Mat D[3,6] \Do \Getkey \LpWhile ((\Ans=79)\ Or (\Ans=69)\ Or (\Ans=49)\ Or (\Ans=39))=0 \Ans=79\=>\GotoL \Ans=69\=>\GotoK \Ans=49\=>\GotoM \Ans=39\=>\GotoN \Lbl L \Int 10\Ran#\->A A*\Mat E[2,6]\->A 2*\Mat D[2,7]\->B A-B\->A \If A\<=0 \Then 0\->A \IfEnd \Mat D[2,1]-A\->\Mat D[2,1] \ClrText \Locate 1,2,"LE JOUEUR 1 PERD" \Locate 1,3,A \Locate 1,4,"PV"\Disp\ClrText \If \Mat D[2,1]\<=0 \Then \GotoH \IfEnd \Goto1 \Lbl K 1\->H \Goto1 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:2952 File Name:SUM CHAT Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Lbl 0 "OU ALLER ?" "1\->MAGASIN" "2\->CENTRE DE CBT" "3\->CASINO" "4\->CHATEAU" \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62)\ Or (\Ans=52)\ Or (\Ans=73))=0 \ClrText \Ans=72\=>\Goto1 \Ans=62\=>\Goto2 \Ans=52\=>\Goto3 \Ans=73\=>\Goto4 \Lbl 1 "BONJOUR ! DIT LE MAR-CHAND. QUE VOULEZ- VOUS ?" "ACHETER\->1" "VENDRE\->2" "SORTIR\->3" \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62)\ Or (\Ans=52))=0 \Ans=52\=>\Goto0 \Ans=72\=>\GotoA \Ans=62\=>\GotoB \ClrText \Lbl A "(P) OTION\=>15" "(T) ONIQUE\=>15" "EPEE FE (R) (FOR+15, VIT-5)\=>50" \Lbl 2 \ClrText \Mat F[8,2]=1\=>\Goto5 \If \Mat F[8,2]=0 \Then "BIENVENUE DANS MON" "CENTRE D'ENTRAINEMENT! ICI TU POURRAS T' ENTRAINER MOYENNANT UNE PETITE SOMME D' ARGENT, HEHEHE..."\Disp"JE PEUX CREER LE" "MONSTRE DE TON CHOIX AVEC CETTE MACHINE"\Disp"UN MONSTRE FORT COUTECHER CAR CA DEMANDE BEAUCOUP D'ENENRGIE AMA MACHINE"\Disp"UN MONSTRE FAIBLE COUTE DONC MOINS CHER..."\Disp"MAIS AVANT, TU DOIS FAIRE TES PREUVES EN ME COMBATTANT !"\Disp"VEUX-TU ME COMBATTRE ? OUI\->1 NON\->2" \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62))=0 \Ans=62\=>\Goto0 \Ans=72\=>\(-)\Pi\->U \Mat F[2,2]\->\Mat F[2,1] \Mat F[2,4]\->\Mat F[2,3] 3\->\Mat F[1,2] 250\->\Mat F[7,1] 200\->\Mat F[7,3] 3\->\Mat F[7,5] 8\->\Mat F[7,6] 2\->\Mat F[7,7] 0\->\Mat F[3,9] \Mat F[2,1]\->O \Mat F[2,3]\->R \Prog "SUM CBT" O\->\Mat F[2,1] R\->\Mat F[2,3] 0\->O 0\->R \If V=\(-)\Pi \Then "TU AS PERDU. TU PEUX REVENIR ESSAYER QUANDTU VEUX."\Disp\Goto0 \IfEnd 1\->\Mat F[8,2] "BRAVO, TU AS REUSSI !REVIENS QUAND TU VEUXPOUR T'ENTRAINER."\Disp\Goto0 \Lbl 5 "JE VAIS CREER TON" "MONSTRE. DONNE-MOI LES STATISTIQUES DE CELUI-CI."\Disp"PV "?\->A "PA "?\->B "VITESSE "?\->C "FORCE "?\->D "DEFENSE "?\->E A+B+C+D+E+G\->H H<45\=>45\->H H/45\->I \Int I\->I \ClrText "TON MONSTRE SERA AU NIVEAU ET COUTERA" " " \Locate 8,2,I \Locate 1,3,H\Disp"1 POUR PAYER ET" "COMBATTRE OU 2 POUR PARTIR" \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62))=0 \If \Ans=62 \Then "EN ESPERANT VOUS REVOIR BIENTOT ..."\Disp\Goto0 \IfEnd \Ans=72\=>\If I>\Mat F[3,8] \Then "PAS ASSEZ RICHE !"\Disp\Goto0 \IfEnd \Mat F[3,8]-I\->\Mat F[3,8] A\->\Mat F[7,1] B\->\Mat F[7,3] C\->\Mat F[7,5] D\->\Mat F[7,6] E\->\Mat F[7,7] I\->\Mat F[3,9] 3\->\Mat F[1,2] \(-)\Pi\->U \Prog "SUM CBT" "COMBAT TERMINE"\Disp\Goto0 \Lbl 3 "BIENVENUE AU CASINO !"\Disp\ClrText "TU AS :" " " \Locate 1,2,\Mat F[3,8] "PARIER COMBIEN "?\->D \If D>\Mat F[3,8] \Then "T'ES OUF !"\Disp\Goto3 \IfEnd "DEVINE LE NOMBRE QUE JE PENSE (ENTRE 1 ET 9)."\Disp\ClrText \Int 9\Ran#+1\->X 0\->Y "ESSAI 1 "?\->A "2 "?\->B "3 "?\->C A=X\=>Y+1\->Y B=X\=>Y+1\->Y C=X\=>Y+1\->Y Y=0\=>\Mat F[3,8]-D\->\Mat F[3,8] Y=1\=>\Mat F[3,8]+D\->\Mat F[3,8] Y=2\=>\Mat F[3,8]+3*D\->\Mat F[3,8] Y=3\=>\Mat F[3,8]+6*D\->\Mat F[3,8] Y=2\=>3*D\->D Y=3\=>6*D\->D \Mat F[3,8]<0\=>0\->\Mat F[3,8] \ClrText "MON NOMBRE ETAIT..." \Locate 21,1,X\Disp"TU L'AS TROUVE FOIS" \Locate 16,2,Y\Disp\If Y=0 \Then "TU PERDS" \Locate 10,4,D\Disp\IfEnd \If Y>0 \Then "TU GAGNES" \Locate 11,4,D\Disp\IfEnd \If \Mat F[3,8]=0 \Then "T'AS PLUS UN ROND ! LA BANQUE TE DONNE 100 OR !"\Disp\Mat F[3,8]+100\->\Mat F[3,8] \IfEnd \ClrText "CONTINUER A JOUER\->1 SORTIR\->2" \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62))=0 \Ans=72\=>\Goto3 \Ans=62\=>\Goto0 \Lbl 4 "VOUS ENTREZ DANS LE CHATEAU."\Disp\ClrText "ALLEZ VOIR :" "\(-) LA PRETRESSE\->1" "\(-) LE MAITRE DU JEU\->2" \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62))=0 \Ans=72\=>\Goto6 "SOIS LE BIENVENUE."\Disp"JE SUIS MATRONIX, LE CREATEUR DE CE MONDE.JE PEUX TE DONNER" "DES ASTUCES EN PLUS DU TUTORIAL QUE J'AI CREE."\Disp\ClrText "QUE VEUX\(-)TU SAVOIR ? 1\slashQUELLES SERONT LES NOUVEAUTES DES" "PROCHAINS NIVEAUX ? 2\slashOU VOUS VOIR DANS LA REALITE ?" \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62))=0 \ClrText \Ans=72\=>\GotoC "JE SUIS EN 2NDE I AU LYCEE CONDORCET A ST PRIEST. J'AI INTERNET(VAUT MIEUX POUR QUE VOUS PUISSIEZ Y JOUER^^) : *****\thetaAOL.COM %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:602 File Name:SUM NIV Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record L\<>\Pi\=>\Return \ClrText:\ClrGraph:\BG-None 0\->L 3\->A "VOUS MONTEZ D'UN" "NIVEAU !!"\Disp\ClrText \Locate 1,2,"Il reste" \Locate 1,3,A \Locate 1,4,"Pts a distribuer"\Disp\Lbl 9 \ClrText:\ClrGraph \Text 1,1,"Pts:" \Text 1,20,A \Text 7,1,"1.Vitesse +1" \Text 7,80,\Mat F[2,5] \Text 13,1,"2.\For ce +1" \Text 13,80,\Mat F[2,6] \Text 19,1,"3.Defense +1" \Text 19,80,\Mat F[2,7] \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62)\ Or (\Ans=52))=0 \Ans=72\=>\Goto1 \Ans=62\=>\Goto2 \Ans=52\=>\Goto3 \Lbl 1 A-1\->A \Mat F[2,5]+1\->\Mat F[2,5] A\<=0\=>\GotoA \Goto9 \Lbl 2 A-1\->A \Mat F[2,6]+1\->\Mat F[2,6] A\<=0\=>\GotoA \Goto9 \Lbl 3 A-1\->A \Mat F[2,7]+1\->\Mat F[2,7] A\<=0\=>\GotoA \Goto9 \Lbl A \Mat F[2,2]+20\->\Mat F[2,2] \Mat F[2,4]+5\->\Mat F[2,4] \Mat F[1,3]+3\->\Mat F[1,3] \Mat F[2,2]\->\Mat F[2,1] \Mat F[2,4]\->\Mat F[2,3] \Mat F[1,3]\->\Mat F[3,7] \Mat F[3,6]+1\->\Mat F[3,6] "TOUS LES PTS ONT ETE DISTRIBUES"\Disp %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:2603 File Name:SUM STAT Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Lbl D \ClrText:\ClrGraph:\BG-None \RclPict 2 \Text 7,20,\Mat F[2,1] \Text 7,53,\Mat F[2,2] \Text 13,30,\Mat F[2,3] \Text 13,53,\Mat F[2,4] \Text 55,90,\Mat F[3,8] \Text 25,25,\Mat F[2,5] \Text 31,25,\Mat F[2,6] \Text 37,25,\Mat F[2,7] \Text 43,25,\Mat F[2,8] \Text 49,25,\Mat F[2,9] \Text 55,25,\Mat F[2,10] \Text 7,110,\Mat F[3,1] \Text 13,110,\Mat F[3,2] \Text 19,110,\Mat F[3,3] \Text 25,110,\Mat F[3,4] \Text 31,110,\Mat F[3,5] \Text 43,110,\Mat F[3,6] \Text 49,110,\Mat F[3,7] \Do \Getkey \LpWhile ((\Ans=79)\ Or (\Ans=69)\ Or (\Ans=59)\ Or (\Ans=47))=0 \Ans=47\=>\Return \Ans=79\=>\GotoA \Ans=69\=>\GotoD \Ans=59\=>\GotoC \Lbl A 'Inventaire \ClrGraph:\ClrText:\BG-None \Text 1,1,"Inventaire :" \Horizontal 2.5 \If \Mat F[4,1]\<>0 \Then \Text 13,1,"T onique revitalisant :" \Text 13,95,\Mat F[4,1] \IfEnd \If \Mat F[4,2]\<>0 \Then \Text 19,1,"P otion d'antidote :" \Text 19,95,\Mat F[4,2] \IfEnd \Do \Getkey \LpWhile ((\Ans=69)\ Or (\Ans=73)\ Or (\Ans=33)\ Or (\Ans=59))=0 \Ans=69\=>\GotoD \Ans=73\=>\GotoI \Ans=33\=>\GotoJ \Ans=59\=>\GotoC \Lbl I \ClrText \Locate 1,2,"Nombre potion :" \Locate 1,3,\Mat F[4,2] \Locate 1,4,"1 Pour utiliser (0\->RET)":?\->A A=0\=>\GotoA \If A>\Mat F[4,2] \Then \ClrText "Nb insuffisant"\Disp\GotoI \IfEnd \If \Mat F[6,1]=0\ And \Mat F[6,2]=0\ And \Mat F[6,3]=0 \Then \ClrText "Ca sert a rien !"\Disp\GotoI \IfEnd \Mat F[4,2]-A\->\Mat F[4,2] 0\->\Mat F[6,1] 0\->\Mat F[6,2] 0\->\Mat F[6,3] \GotoA \Lbl J \ClrText \Locate 1,2,"Nb de tonique :" \Locate 1,3,\Mat F[4,1] \Locate 1,4,"En utiliser cb(0\->RET)":?\->A A=0\=>\GotoA \If A>\Mat F[4,1] \Then \ClrText "Nb insuffisant"\Disp\GotoJ \IfEnd \If \Mat F[2,1]=\Mat F[2,2] \Then \ClrText "Ca sert a rien !"\Disp\GotoJ \IfEnd \Mat F[2,2]/4\->B \Int B\->B A*B\->C C+\Mat F[2,1]\->\Mat F[2,1] \If \Mat F[2,1]>\Mat F[2,2] \Then \Mat F[2,2]\->\Mat F[2,1] \IfEnd \Mat F[4,1]-A\->\Mat F[4,1] \GotoA \Lbl C 'EQUIPEMENT \ClrText:\ClrGraph:\BG-None \Text 1,1,"Equipement" \Horizontal 2.5 \Text 13,1,"Epee \slash" \Text 19,1,"T\orse \slash" \Text 25,1,"Anneau1\slash" \Text 31,1,"Anneau2\slash" \If \Mat E[1,1]=1 \Then \Text 13,40,"BOIS FOR+5" \IfEnd \If \Mat E[1,2]=1 \Then \Text 13,40,"FEU FOR+10 (10\@25)" \IfEnd \If \Mat E[2,1]=1 \Then \Text 19,40,"BOIS DEF+5" \IfEnd \If \Mat E[3,1]=1 \Then \Text 25,40,"RAP VIT+5" \IfEnd \Do \Getkey \LpWhile ((\Ans=79)\ Or (\Ans=69)\ Or (\Ans=36)\ Or (\Ans=33)\ Or (\Ans=72)\ Or (\Ans=62))=0 \Ans=79\=>\GotoA \Ans=69\=>\GotoD \Ans=36\=>\GotoE \Ans=33\=>\GotoF \Ans=72\=>\GotoG \Ans=62\=>\GotoH \Lbl E \ClrGraph \Text 1,1,"[EXIT]" \If \Mat E[1,1]=1\ Or \Mat E[1,2]=1\ Or \Mat E[1,3]=1 \Then \Text 13,1,"R IEN" \IfEnd \If \Mat E[1,1]=2\ And \Mat E[1,2]=2\ And \Mat E[1,3]=2 \Then \Text 19,1,"EPEE (B)OIS" \Text 25,1,"EPEE (F)EU" \Text 31,1,"EPEE F(E)R" \IfEnd \Do \Getkey \LpWhile ((\Ans=47)\ Or (\Ans=53)\ Or (\Ans=66)\ Or (\Ans=26)\ Or (\Ans=36))=0 \Ans=47\=>\GotoC \If \Ans=53 \Then \If \Mat E[1,1]=1 \Then \Mat F[2,6]-5\->\Mat F[2,6] \IfEnd \If \Mat E[1,2]=1 \Then \Mat F[2,6]-10\->\Mat F[2,6] \IfEnd 2\->\Mat E[1,1] 2\->\Mat E[1,2] \GotoC \IfEnd \If \Ans=66 \Then 1\->\Mat E[1,1] \Mat F[2,6]+5\->\Mat F[2,6] \GotoC \IfEnd \If \Ans=26 \Then 1\->\Mat E[1,2] \Mat F[2,6]+10\->\Mat F[2,6] \GotoC \IfEnd \Lbl F \ClrGraph \Text 1,1,"[EXIT]" \If \Mat E[2,1]=1 \Then \Text 13,1,"R IEN" \IfEnd \If \Mat E[2,1]=2 \Then \Text 19,1,"BOUCLIER EN B OIS" \IfEnd \Do \Getkey \LpWhile ((\Ans=47)\ Or (\Ans=53)\ Or (\Ans=66))=0 \If \Ans=47 \Then \GotoC \IfEnd \If \Ans=53 \Then 2\->\Mat E[2,1] \Mat F[2,7]-5\->\Mat F[2,7] \GotoC \IfEnd \If \Ans=66 \Then 1\->\Mat E[2,1] \Mat F[2,7]+5\->\Mat F[2,7] \GotoC \IfEnd \Lbl G \ClrGraph \Text 1,1,"[EXIT]" \If \Mat E[3,1]=1 \Then \Text 13,1,"R IEN" \IfEnd \If \Mat E[3,1]=2 \Then \Text 19,1,"ANNEAU RA P" \IfEnd \Do \Getkey \LpWhile ((\Ans=47)\ Or (\Ans=53)\ Or (\Ans=73))=0 \Ans=47\=>\GotoC \If \Ans=53 \Then 2\->\Mat E[3,1] \Mat F[2,5]-5\->\Mat F[2,5] \GotoC \IfEnd \If \Ans=73 \Then 1\->\Mat E[3,1] \Mat F[2,5]+5\->\Mat F[2,5] \GotoC \IfEnd \Lbl H \ClrGraph \Text 1,1,"[EXIT]" \Text 13,1,"R IEN" \Do \Getkey \LpWhile ((\Ans=47)\ Or (\Ans=53))=0 \Ans=47\=>\GotoC \If \Ans=53 \Then 2\->\Mat E[4,1] \GotoC \IfEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1217 File Name:SUM TEO1 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText \If R=0\ Or S=0 \Then 2\->R 6\->S \Locate 4,4,"L'ILE DE TOMURA" \For 0\->H \To 150:\Next \IfEnd [[1,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3][1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1][1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,1,1,1,1,1,1][1,0,0,0,0,0,1,1,1,1,0,0,0,1,1,1,1,1,1,1,1][1,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]\->\Mat D \Lbl 1 \ClrText:\ClrGraph " " \Locate 1,1,"# #TTTTTTTTTTTTTTTTT#" \Locate 1,2,"T " \Locate 1,3,"T ~~~" \Locate 1,4,"T ~ ~~~~~~" \Locate 1,5,"T ~~~~ ~~~~~~~~" \Locate 1,6,"T ~~~~~~~~~~~~~~~~~~" \Locate 1,7,"<\<>>~~~~~~~~~~~~~~~~~~" \Locate R,S,"\theta" \Lbl 2 \Mat D[S,R]\<>0\=>\Goto5 \Do \Getkey \LpWhile ((\Ans=48)\ Or (\Ans=38)\ Or (\Ans=28)\ Or (\Ans=27)\ Or (\Ans=37))=0 \If \Ans=48 \Then \Prog "SUM STAT" \Prog "SUM TEO1" \IfEnd \Ans=38\=>1\->C \Ans=28\=>2\->C \Ans=27\=>3\->C \Ans=37\=>4\->C \If C=1 \Then \If \Mat D[S,R-1]\<>1 \Then \Dsz R \Locate R+1,S," " \Locate R,S,"\theta" \Else \Goto2 \IfEnd \IfEnd \If C=2 \Then \If \Mat D[S-1,R]\<>1 \Then \Dsz S \Locate R,S+1," " \Locate R,S,"\theta" \Else \Goto2 \IfEnd \IfEnd \If C=3 \Then \If \Mat D[S,R+1]\<>1 \Then \Isz R \Locate R-1,S," " \Locate R,S,"\theta" \Else \Goto2 \IfEnd \IfEnd \If C=4 \Then \If \Mat D[S+1,R]\<>1 \Then \Isz S \Locate R,S-1," " \Locate R,S,"\theta" \Else \Goto2 \IfEnd \IfEnd \Int 20\Ran#\->G G\<>15\=>\Goto2 \If G=15 \Then \Int 300\Ran#\->G G\->\Mat F[7,1] 10\->\Mat F[7,3] \Int 10\Ran#+1\->G G\->\Mat F[7,5] \Int 10\Ran#+1\->G G\->\Mat F[7,6] \Int 10\Ran#+1\->G G\->\Mat F[7,7] 4\->\Mat F[1,2] \Prog "SUM CBT" \Goto1 \IfEnd \Goto2 \Lbl 5 \If \Mat D[S,R-1]=1 \Then 0\->R~S \Prog "SUM TEO2" \IfEnd \If \Mat D[S,R-1]=0 \Then 0\->R~S \Prog "SUM TEO4" \IfEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1400 File Name:SUM TEO2 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \If R=0\ Or S=0 \Then 2\->R 6\->S \IfEnd [[1,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1][1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1][1,0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1][1,0,1,0,0,0,1,0,0,0,0,0,0,5,0,0,0,0,0,0,1][1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1][1,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]\->\Mat D \Lbl 3 \ClrText \Locate 1,1,"# #TTTTTTTTTTTTTTTTTT" \Locate 1,2,"T T T T" \Locate 1,3,"T T T T" \Locate 1,4,"T T T T" \Locate 1,5,"T T T \Pi T" \Locate 1,6,"T TT T T" \Locate 1,7,"# #TTTTTTTTTTTTTTTTTT" \Locate R,S,"\theta" \Lbl 4 \Mat D[S,R]\<>0\=>\Goto5 \Do \Getkey \LpWhile ((\Ans=48)\ Or (\Ans=38)\ Or (\Ans=28)\ Or (\Ans=27)\ Or (\Ans=37))=0 \If \Ans=48 \Then \Prog "SUM STAT" \Prog "SUM TEO2" \IfEnd \Ans=38\=>1\->C \Ans=28\=>2\->C \Ans=27\=>3\->C \Ans=37\=>4\->C \If C=1 \Then \If \Mat D[S,R-1]\<>1 \Then \Dsz R \Locate R+1,S," " \Locate R,S,"\theta" \Else \Goto4 \IfEnd \IfEnd \If C=2 \Then \If \Mat D[S-1,R]\<>1 \Then \Dsz S \Locate R,S+1," " \Locate R,S,"\theta" \Else \Goto4 \IfEnd \IfEnd \If C=3 \Then \If \Mat D[S,R+1]\<>1 \Then \Isz R \Locate R-1,S," " \Locate R,S,"\theta" \Else \Goto4 \IfEnd \IfEnd \If C=4 \Then \If \Mat D[S+1,R]\<>1 \Then \Isz S \Locate R,S-1," " \Locate R,S,"\theta" \Else \Goto4 \IfEnd \Mat D[S,R]=3\=>1\->T \IfEnd \Int 20\Ran#\->G G\<>15\=>\Goto4 \If G=15 \Then \Int 300\Ran#\->G G\->\Mat F[7,1] 10\->\Mat F[7,3] \Int 10\Ran#+1\->G G\->\Mat F[7,5] \Int 10\Ran#+1\->G G\->\Mat F[7,6] \Int 10\Ran#+1\->G G\->\Mat F[7,7] 4\->\Mat F[1,2] \Prog "SUM CBT" \IfEnd \Goto4 \Lbl 5 \If T=1\ And \Mat D[S,R]\<>5\ And \Mat D[S,R]\<>4 \Then 2\->R~S \Prog "SUM TEO1" \IfEnd \If \Mat D[S,R]=5 \Then \ClrText "VOUS AVEZ TROUVE UN SECRET !"\Disp"IL Y EN A 100 CACHES UN PEU PARTOUT AU COURS DE CE JEU."\Disp"1\slash100 TROUVE"\Disp"SANTE A FOND !"\Disp\Mat F[2,2]\->\Mat F[2,1] \Mat F[2,4]\->\Mat F[2,3] 1\->\Mat F[9,1] 2\->R 6\->S \IfEnd \If \Mat D[S,R]=4 \Then 2\->R 6\->S \Prog "SUM TEO5" \IfEnd \Goto3 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:2418 File Name:SUM TEO3 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \If R=0\ Or S=0 \Then 1\->R 4\->S \IfEnd [[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1][1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1][1,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1][1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,1][1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,5,1][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]\->\Mat D \Lbl 3 \ClrText \Locate 1,1,"TTTTTTTTTTTTTTTTTTTTT" \Locate 1,2,"TXXXXXXXXXXXXXXXXXXXT" \Locate 1,3,"#XXXXXXXXXXXXXXXXTTTT" \Locate 1,4,"XXXXXXXXXXXXXXXXXXXXT" \Locate 1,5,"#XXXXXXXXXXXXXXXXTXTT" \Locate 1,6,"TXXXXXXXXXXXXXXXXTXYT" \Locate 1,7,"TTTTTTTTTTTTTTTTTTTTT" \Locate R,S,"\theta" \Lbl 4 \If \Mat D[S,R]=5 \Then 2\->T \Goto5 \IfEnd \Do \Getkey \LpWhile ((\Ans=38)\ Or (\Ans=28)\ Or (\Ans=27)\ Or (\Ans=37))=0 \Ans=38\=>1\->C \Ans=28\=>2\->C \Ans=27\=>3\->C \Ans=37\=>4\->C \If C=1 \Then \If \Mat D[S,R-1]\<>1 \Then \Dsz R \Locate R+1,S,"X" \Locate R,S,"\theta" \Else \Goto4 \IfEnd \IfEnd \If C=2 \Then \If \Mat D[S-1,R]\<>1 \Then \Dsz S \Locate R,S+1,"X" \Locate R,S,"\theta" \Else \Goto4 \IfEnd \IfEnd \If C=3 \Then \If \Mat D[S,R+1]\<>1 \Then \Isz R \Locate R-1,S,"X" \Locate R,S,"\theta" \Else \Goto4 \IfEnd \If \Mat D[S,R]=3 \Then 1\->T \Goto5 \IfEnd \IfEnd \If C=4 \Then \If \Mat D[S+1,R]\<>1 \Then \Isz S \Locate R,S-1,"X" \Locate R,S,"\theta" \Else \Goto4 \IfEnd \IfEnd \Goto4 \Lbl 5 \If T=1 \Then \Locate 1,4," " \For 0\->G \To 5:\Next \Locate 1,4,"T" \For 0\->G \To 5:\Next 0\->T \Goto4 \IfEnd \If T=2 \Then \ClrText "VOUS AVEZ TROUVE LE PRINCE NERU !"\Disp"TU PENSES POUVOIR ME VAINCRE ? T'ES" "MARRANT TOI !"\Disp"VIENS VOIR PAPA !!"\Disp600\->\Mat D[7,1] 150\->\Mat D[7,3] 25\->\Mat D[7,5] 36\->\Mat D[7,6] 28\->\Mat D[7,7] 10\->\Mat D[3,9] 6\->\Mat D[1,2] \Prog "SUM CBT" \ClrText "HA... TU M'AS EU... JE SUIS A TES ORDRES MAINTENANT... QUE VEUX-TU ?"\Disp"TU AS VOLE LE LIVRE DES PROPHETES QUI EN DIT PLUS SUR MA DESTINE !"\Disp"JE VEUX DONC LE" "RECUPERER, CAR TU ME L'A VOLE !"\Disp"QUOI ?!?"\Disp"MAIS CE N'EST PAS MOI!! TU FAIS ERREUR ! MAIS QUE FAIS UNE REINE ICI A TUER ? ELLE NE DEVRAIT PAS PLUTOT SIEGER SUR SONTRONE ?"\Disp"CE N'EST PAS TES" "AFFAIRES. ET SI CE N'EST PAS TOI QUI AIT LE LIVRE, QUI-EST-CE DONC ?"\Disp"C'EST KROBELUS, CHEREREINE... IL EST" "PASSE ICI. IL A MEME DIT QU'IL SAVAIT" "CERTAINE CHOSE SUR VOTRE DESTINE..."\Disp"OU EST-IL ALORS ?"\Disp"DANS LE SEPULCRE IMPERIAL, CHERE REINE..."\Disp"COMMENT PUIS-JE SAVOIR SI TU DIS VRAI ?"\Disp"TU N'AS PAS LE CHOIX ..."\Disp"TU AS RAISON. ET TU AS INTERET DE DIRE LAVERITE !"\Disp\ClrText "SUR CE, JE LUI" "DEMANDAIT UN BATEAU POUR RENTRER DANS MONROYAUME. IL ME DIT QU'IL ME RAMENERAIT LUI-MEME DANS SON BATEAU VOLANT, CHOSE QU'IL FIT."\Disp"EN CHEMIN, JE NE" "POUVAIS M'EMPECHER DEPENSER A CE QUE NERU M'AVAIT DIT :" "KROBELUS SAIT DES CHOSES SUR MA DESTINE. ET JE VOULAIS EN AVOIR LE COEUR NET. MAIS AVANT DE" "REPARTIR, IL FALLAIT QUE JE PASSE A MON ROYAUME."\Disp"NIVEAU 2, L'ILE DE TEOMURA, TERMINE !"\Disp\Prog "SUM CHAT" %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1215 File Name:SUM TEO4 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText \If R=0\ Or S=0 \Then 2\->R 2\->S \IfEnd [[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,5,1,1,1,1,1][3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1][1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1,1,1,1,1][1,0,0,0,0,1,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1][1,1,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,1][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]\->\Mat D \Lbl 1 \ClrText:\ClrGraph " " \Locate 1,1,"#TTTTTTTTTTTTTO-OTTTT" \Locate 1,2," ~~" \Locate 1,3,"# ~ ~~~~~" \Locate 1,4,"~ ~~~~ ~~~~~~~~" \Locate 1,5,"~~ ~~~~~~~~~~~~~~TTT" \Locate 1,6,"~~~~~~~~~~~~~~~~~~ \PiT" \Locate 1,7,"~~~~~~~~~~~~~~~~~~TTT" \Locate R,S,"\theta" \Lbl 2 \Mat D[S,R]\<>0\=>\Goto5 \Do \Getkey \LpWhile ((\Ans=48)\ Or (\Ans=38)\ Or (\Ans=28)\ Or (\Ans=27)\ Or (\Ans=37))=0 \If \Ans=48 \Then \Prog "SUM STAT" \Prog "SUM TEO4" \IfEnd \Ans=38\=>1\->C \Ans=28\=>2\->C \Ans=27\=>3\->C \Ans=37\=>4\->C \If C=1 \Then \If \Mat D[S,R-1]\<>1 \Then \Dsz R \Locate R+1,S," " \Locate R,S,"\theta" \Else \Goto2 \IfEnd \IfEnd \If C=2 \Then \If \Mat D[S-1,R]\<>1 \Then \Dsz S \Locate R,S+1," " \Locate R,S,"\theta" \Else \Goto2 \IfEnd \IfEnd \If C=3 \Then \If \Mat D[S,R+1]\<>1 \Then \Isz R \Locate R-1,S," " \Locate R,S,"\theta" \Else \Goto2 \IfEnd \IfEnd \If C=4 \Then \If \Mat D[S+1,R]\<>1 \Then \Isz S \Locate R,S-1," " \Locate R,S,"\theta" \Else \Goto2 \IfEnd \IfEnd \Int 25\Ran#\->G G\<>1\=>\Goto2 \If G=1 \Then \Int 300\Ran#\->G G\->\Mat F[7,1] 10\->\Mat F[7,3] \Int 10\Ran#+1\->G G\->\Mat F[7,5] \Int 10\Ran#+1\->G G\->\Mat F[7,6] \Int 10\Ran#+1\->G G\->\Mat F[7,7] 4\->\Mat F[1,2] \Prog "SUM CBT" \Goto1 \IfEnd \Goto2 \Lbl 5 \If \Mat D[S,R]=3 \Then 20\->R 2\->S \Prog "SUM TEO1" \IfEnd \If \Mat D[S,R]=5 \Then \ClrText "TROUVE LA PIERRE D' INVOCATION AVANT !"\Disp16\->R 2\->S \IfEnd \Goto1 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1623 File Name:SUM TEO5 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText \If R=0\ Or S=0 \Then 2\->R 6\->S \IfEnd [[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,2,0,0,0,1,0,0,3,1,1,1,0,0,0,0,1,0,0,0,1][1,0,0,0,0,1,0,0,0,1,1,1,0,0,0,0,1,0,0,0,1][1,0,0,0,0,1,0,0,0,1,9,1,0,0,0,0,1,0,0,0,1][1,0,0,0,0,1,0,0,0,1,1,1,0,0,0,0,1,0,0,0,1][1,0,0,0,0,1,0,0,0,1,1,1,0,0,0,4,1,5,0,0,1][1,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]\->\Mat D \Lbl 1 \ClrText:\ClrGraph " " \Locate 1,1,"TTTTTTTTTTTTTTTTTTTTT" \Locate 1,2,"T\r T \rTTT T T" \Locate 1,3,"T T TTT T #" \Locate 1,4,"T T T\e^xT T #" \Locate 1,5,"T T TTT T #" \Locate 1,6,"T T TTT \rT\r T" \Locate 1,7,"# #TTTTTTTTTTTTTTTTTT" \Locate R,S,"\theta" \Lbl 2 \Mat D[S,R]\<>0\=>\Goto5 \Do \Getkey \LpWhile ((\Ans=38)\ Or (\Ans=28)\ Or (\Ans=27)\ Or (\Ans=37))=0 \Ans=38\=>1\->C \Ans=28\=>2\->C \Ans=27\=>3\->C \Ans=37\=>4\->C \If C=1 \Then \If \Mat D[S,R-1]\<>1 \Then \Dsz R \Locate R+1,S," " \Locate R,S,"\theta" \Else \Goto2 \IfEnd \IfEnd \If C=2 \Then \If \Mat D[S-1,R]\<>1 \Then \Dsz S \Locate R,S+1," " \Locate R,S,"\theta" \Else \Goto2 \IfEnd \IfEnd \If C=3 \Then \If \Mat D[S,R+1]\<>1 \Then \Isz R \Locate R-1,S," " \Locate R,S,"\theta" \Else \Goto2 \IfEnd \IfEnd \If C=4 \Then \If \Mat D[S+1,R]\<>1 \Then \Isz S \Locate R,S-1," " \Locate R,S,"\theta" \Else \Goto2 \IfEnd \IfEnd \Goto2 \Lbl 5 \If \Mat D[S,R]=2 \Then \Locate 6,5," " 0\->\Mat D[5,6] 0\->\Mat D[2,2] \IfEnd \If \Mat D[S,R]=3 \Then \Locate 10,4," " \Locate 12,4," " 0\->\Mat D[4,10] 0\->\Mat D[4,12] 0\->\Mat D[S,R] \IfEnd \If \Mat D[S,R]=9 \Then \If \Mat F[8,3]=0 \Then \ClrText "VOUS VOYEZ AU SOL UNEPIERRE BIZARRE. ELLE A UNE FORME DE SPIRALE. ELLE RECOU- VRE UNE BONNE PARTIE DU SOL. VOUS MARCHEZ DESSUS"\Disp"SOUDAIN LA PIERRE S' ILLUMINE ! PUIS VOUS RENTREZ PETIT A PETITDANS LA PIERRE !"\Disp"LORSQUE VOUS RESSOR- TEZ, VOUS ETES" "TRANSFORME EN DEMON DE SANG !! VOUS" "POUVEZ MAINTENANT VOUS TRANSFORMER PENDANT LES COMBATS !"\Disp0\->R~S 1\->\Mat F[8,3] \Prog "SUM TEO4" \IfEnd 0\->\Mat D[S,R] \IfEnd \If \Mat D[S,R]=4 \Then \Locate 17,2," " 0\->\Mat D[S,R] 0\->\Mat D[2,17] \IfEnd \If \Mat D[S,R]=5 \Then \Locate 21,4," " 6\->\Mat D[4,21] 0\->\Mat D[S,R] \IfEnd \If \Mat D[S,R]=6 \Then 0\->R~S \Prog "SUM TEO6" \IfEnd \Goto2 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:968 File Name:SUM TEO6 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText \If R=0\ Or S=0 \Then 2\->R 4\->S \IfEnd [[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3][1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1][1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,1,1,1,1,1,1][1,0,0,0,0,0,1,1,1,1,0,0,0,1,1,1,1,1,1,1,1][1,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]\->\Mat D \Lbl 1 \ClrText:\ClrGraph " " \Locate 1,1,"TTTTTTTTTTTTTTTTTTTTT" \Locate 1,2,"T~~~~~~~~~XT TTTTTT" \Locate 1,3,"#~~~~~~~~~ T J T! T" \Locate 1,4," T E T T" \Locate 1,5,"#~~~~~~~~~ T U T T" \Locate 1,6,"T~~~~~~~~~XT T !T" \Locate 1,7,"TTTTTTTTTTTTTTTTTTTTT" \Locate R,S,"\theta" \Lbl 2 \Mat D[S,R]\<>0\=>\Goto5 \Do \Getkey \LpWhile ((\Ans=38)\ Or (\Ans=28)\ Or (\Ans=27)\ Or (\Ans=37))=0 \Ans=38\=>1\->C \Ans=28\=>2\->C \Ans=27\=>3\->C \Ans=37\=>4\->C \If C=1 \Then \If \Mat D[S,R-1]\<>1 \Then \Dsz R \Locate R+1,S,"T" 1\->\Mat D[S,R+1] \Locate R,S,"\theta" \Else \Goto2 \IfEnd \IfEnd \If C=2 \Then \If \Mat D[S-1,R]\<>1 \Then \Dsz S \Locate R,S+1,"T" 1\->\Mat D[S+1,R] \Locate R,S,"\theta" \Else \Goto2 \IfEnd \IfEnd \If C=3 \Then \If \Mat D[S,R+1]\<>1 \Then \Isz R \Locate R-1,S,"T" 1\->\Mat D[S,R-1] \Locate R,S,"\theta" \Else \Goto2 \IfEnd \IfEnd \If C=4 \Then \If \Mat D[S+1,R]\<>1 \Then \Isz S \Locate R,S-1,"T" 1\->\Mat D[S-1,R] \Locate R,S,"\theta" \Else \Goto2 \IfEnd \IfEnd \Goto2 \Lbl 5 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:4631 File Name:SUM TEOM Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \If H\<>\Pi \Then "Tricheur \!mark Fini le niv 1 deja \!mark"\Disp\Stop \IfEnd 0\->H 2\->\Mat F[8,1] "Votre partie est sauvegardee"\Disp"Vous pouvez supprimerle programme 'SUM BATP' de votre" "calculatrice si vous lisez ces lignes, mais ne supprimez AUCUNE \Mat rice \!mark"\Disp"N'hesitez pas a me donner votre avis surce jeu \!mark"\Disp"*****@aol.com, 2nde I..."\Disp"(Vous pouvez" "egalement envoyer descheques \@5E\@5E)"\Disp"Astuce : aidez le soldat a la fin du niveau"\Disp"A bientot \!mark"\Disp"MATronix, pour vous servir..."\Disp"Jeu \original (et genial) inspire de SUMMONER 2 (d'ou son nom). \Prog rammer parMATronix, en 2nde I au lycee Cond\orcet"\Disp"En cadeau vous pouvezm'envoyer des piles de calto elles sont vides (pas etonnant)"\Disp"BON NIVEAU !" \ClrText "NIVEAU 2 : L'ILE DE TEOMURA"\Disp"VOUS AVEZ DEBLOQUEZ :\(-)DE NOUVEAUX" "SUPPLEMENTS."\Disp"\(-)DES POSSIBILITES EN PLUS DANS LES" "COMBATS"\Disp"\(-)UN NOUVEAU NIVEAU ^^"\Disp\ClrText "VOUS AVANCEZ SUR LA PLAGE."\Disp"VOUS VOYEZ UN CHEMIN A GAUCHE, UNE (B) AR-QUE ET UNE (S) TATUE" \Do \Getkey \LpWhile ((\Ans=38)\ Or (\Ans=66)\ Or (\Ans=43)\ Or (\Ans=48))=0 \Ans=48\=>\Prog "SUM STAT" \If \Ans=66 \Then "VOUS VOUS APPROCHEZ DE LA BARQUE"\Disp"VOUS Y TROUVEZ UNE PETITE BOURSE RENFER-MANT 100 OR"\Disp\Mat F[3,8]+100\->\Mat F[3,8] "C'EST UNE TRES VIELLEBARQUE."\Disp\IfEnd \If \Ans=43 \Then "VOUS VOUS APPROCHEZ DE LA STATUE"\Disp"IL Y A ECRIT: DEESSE DU SAVOIR"\Disp\IfEnd "IL N'Y A RIEN D'AUTRED'INTERESSANT"\Disp"VOUS ALLEZ A GAUCHE"\Disp"VOUS ALLEZ LE LONG DUCHEMIN. VOUS VOYEZ UNE BOULE LUMINEUSE AU MILIEU DU CHEMIN. VOULEZ-VOUS LA" "RAMASSER ? 2\->RAMASSER8\->CONTINUER" \Do \Getkey \LpWhile ((\Ans=62)\ Or (\Ans=64)\ Or (\Ans=48))=0 \Ans=48\=>\Prog "SUM STAT" \If \Ans=62 \Then "VOUS RAMASSEZ LA BOULE."\Disp"SOUDAIN VOUS ENTENDEZUNE VOIX DANS VOTRE TETE!"\Disp"ETRANGER, PAYE LA TAXE! LA MOITIE DE TON OR..."\Disp"APPUIE 1 POUR DONNER OU 2 POUR REFUSER" \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62))=0 \IfEnd \If \Ans=72 \Then "BIEN MERCI" \Mat F[3,8]/2\->A \Int A\->A A\->\Mat F[3,8] "TU PEUX CONTINUER"\Disp\IfEnd \If \Ans=62 \Then \Mat F[2,1]/2\->A \Int A\->A A\->\Mat F[2,1] "NON ? ET BIEN DONNE MOI LA MOITIE DE TA VIE!!" \IfEnd "VOUS CONTINUEZ VOTRE CHEMIN"\Disp"SOUDAIN VOUS TOMBEZ DANS UN PIEGE! UN TROU DE 4 METRES DE PROFONDEUR REMPLIT DESANGSUES!"\Disp"BUT DU JEU:TROUVER LABONNE TOUCHE POUR SORTIR! HEHEHE ^^"\Disp\Lbl 0 \ClrText:\ClrGraph "VIE : " \Locate 1,7,\Mat F[2,1] \If \Mat F[2,1]\<=0 \Then "PLUS DE VIE!" "GAME OVER"\Disp\Prog "SUMMONER" \IfEnd \Do \Getkey\->A \LpWhile A=0 \If A\<>44 \Then \Mat F[2,1]-3\->\Mat F[2,1] \Goto0 \IfEnd \ClrText "VOUS SORTEZ DU TROU"\Disp"VOUS VOUS PROMETTEZ DE FAIRE ATTENTION LAPROCHAINE FOIS."\Disp"INFO : C'EST LE" "DERNIER NIVEAU EN" "TEXTE. DANS LES" "PROCHAINS IL Y AURA DES GRAPHISMES."\Disp"VOUS CONTINUEZ VOTRE CHEMIN. VOUS VOYEZ AULOIN DEUX PIRATES QUISURVEILLENT. VOUS VOUS APPROCHEZ."\Disp150\->\Mat F[7,1] 15\->\Mat F[7,3] 3\->\Mat F[7,5] 10\->\Mat F[7,6] 3\->\Mat F[7,7] 3\->\Mat F[3,9] \Prog "SUM CBT" \ClrText "T'AS BUTE MON POTE ! AAAAAAAH !!!!!!"\Disp"CET ENNEMI A LA RAGE.SA FORCE D'ATTAQUE EST DONC DOUBLEE"\Disp150\->\Mat F[7,1] 20\->\Mat F[7,6] \Prog "SUM CBT" "VOUS AVANCEZ LE LONG DU CHEMIN. SOUDAIN VOUS APERCEVEZ UNE TRAPPE AU SOL." "VOULEZ-VOUS L'OUVRIR?OUI\->1 NON\->2" \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62))=0 \Ans=72\=>1\->\theta \Ans=62\=>0\->\theta \If \theta=1 \Then "VOUS L'OUVREZ. UNE ODEUR CURIEUSE SE" "DEGAGE DU TROU. VOUS L'OBSERVEZ ATTENTIVE-MENT. VOUS VOYEZ UN OBJET BRILLANT AU FOND. VOULEZ-VOUS LE RAMASSER ? OUI\->1 NON\->2" \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62))=0 \Ans=72\=>1\->\theta \Ans=62\=>0\->\theta \IfEnd \If \theta=1 \Then "VOUS ATTRAPEZ L'" "OBJET. C'EST UNE" "BOUTEILLE !" "SEULEMENT, ELLE EST COLLEE AU FOND !"\Disp"VOULEZ-VOUS L'OUVRIR QUAND MEME ? OUI\->1 NON\->2" \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62))=0 \Ans=72\=>1\->\theta \Ans=62\=>0\->\theta \IfEnd \If \theta=1 \Then "VOUS LA DEBOUCHEZ" "LORSQU'UNE FUMEE SE DEGAGE. LA FUMEE" "FORME MAINTENANT UN PETIT NUAGE INFORME. PUIS CELUI-CI SE" "COMPACTE, FORMANT UN GENIE !"\Disp"BONJOUR, DIT CELUI\(-) CI. JE SUIS UN GENIE ET UN VRAI COMME DANSALADDIN. LA SEULE DIFFERENCE, C'EST QUEJE SUIS..."\Disp"MECHANT ! HAHAHA !" 300\->\Mat F[7,1] 600\->\Mat F[7,3] 86\->\Mat F[7,5] 12\->\Mat F[7,6] 10\->\Mat F[7,7] 5\->\Mat F[1,2] 5\->\Mat F[3,9] \Prog "SUM CBT" "HA... TU M'AS EU... TIENS, PRENDS CA ! C'EST UN CADEAU..."\Disp"VOUS AVEZ :" "5 TONIQUES REVITALISANTS" "5 POTIONS" "LA SANTE !"\Disp\Mat F[4,1]+5\->\Mat F[4,1] \Mat F[4,2]+5\->\Mat F[4,2] \Mat F[2,2]\->\Mat F[2,1] \Mat F[2,4]\->\Mat F[2,3] \IfEnd "VOUS CONTINUEZ VOTRE CHEMIN..."\Disp"SOUDAIN VOUS APERCEVEZ UNE ETRANGE PIERRE.IL Y A ECRIT" "'GRAPHISMES' DESSUS. VOUS Y POSEZ LA" "MAIN."\Disp"VOUS SENTEZ UN" "INTENSE COURANT" "ELECTRIQUE, MAIS CE N'EST PAS DOULOUREUX.SOUDAIN, VOUS TOMBEZ DANS LES POMMES."\Disp"A VOTRE REVEILLE, TOUT EST DIFFERENT. IL N'Y A PLUS DE TEXTE, MAIS DES DESSINS. PAS TRES JOLI, MAIS CE N'EST PAS DU TEXTE. EN PLUS,"\Disp"MAINTENANT, VOUS" "POUVEZ SAUVEGARDER QUAND VOUS LE VOULEZ!C'EST CURIEUX, VOUS AVEZ L'IMPRESSION D' AVOIR CHANGE D'" "ENDROIT, MAIS VOUS ETES TOUJOURS SUR L' ILE DE TEOMURA."\Disp"AVEC DES GRAPHISMES !LE VERITABLE NIVEAU COMMENCE ICI."\Disp"C'EST COMME SI VOUS VENEZ DE FAIRE UN NIVEAU BONUS ! C'EST PAS GENIAL ?"\Disp"BON NIVEAU 2 ^^"\Disp0\->R~S \Prog "SUM TEO1" %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:8636 File Name:SUMMONER Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText:\AxesOff:\CoordOff:\GridOff:\LabelOff:\BG-None:\ClrGraph:\ClrList \Locate 7,2,"SUMMONER" \Locate 5,5,"DEVELOPPE PAR" \Locate 11,3,"2" \Locate 7,6,"MATRONIX" \Locate 1,7,"VERSION DU 05\slash12\slash2004" \For 0\->A \To 800:\Next \Lbl 2 \ClrText:\ClrGraph \Text 1,1,"\Sum moner 2\slashMenu" \Horizontal 2.5 \Text 15,1,"1\slashNouvelle partie" \Text 21,1,"2\slashCharger partie" \Text 27,1,"3\slashSupplements" \Do \Getkey \LpWhile \Ans\<>72\ And \Ans\<>62\ And \Ans\<>52 \Ans=62\=>\GotoA \Ans=52\=>\Goto1 \ClrText "ATTENTION : SI VOUS VOYEZ 'ARG ERROR', ALLEZ D'ABORD DANS LES SUPPLEMENTS CREERLA MATRICE"\Disp\ClrText "Vous etes sur le point de faire une nouvelle partie." "Continuer ? [F1]=OUI [EXE]=NON" \Do \Getkey \LpWhile ((\Ans=79)\ Or (\Ans=31))=0 \Ans=31\=>\Prog "SUMMONER" \If \Ans=79 \Then \If \Mat F[1,1]=1 \Then \ClrText "Allez dans les suppl-ements creer la" "matrice."\Disp\Goto1 \IfEnd \If \Mat F[1,1]=0 \Then \ClrText 'N 3\->\Mat E[1,1] 3\->\Mat E[2,1] 3\->\Mat E[3,1] 8\->\Mat F[1,3] 3\->\Mat F[1,1] 100\->\Mat F[2,1] 100\->\Mat F[2,2] 50\->\Mat F[2,3] 50\->\Mat F[2,4] 6\->\Mat F[2,5] 6\->\Mat F[2,6] 6\->\Mat F[2,7] 6\->\Mat F[2,8] 6\->\Mat F[2,9] 6\->\Mat F[2,10] 10\->\Mat F[3,1] 10\->\Mat F[3,2] 6\->\Mat F[3,3] 6\->\Mat F[3,4] 6\->\Mat F[3,5] 1\->\Mat F[3,6] 5\->\Mat F[3,7] 10\->\Mat F[3,8] [[9][0]]\->\Mat D "LE JEU VA MAINTENANT CHARGER LES MENUS."\Disp\ClrGraph:\ClrText \Text 1,1,"MAIA" \Horizontal -2.4 \Horizontal -1.6 \Text 7,1,"PV:" \Text 7,40,"\slash" \Text 13,1,"PA:" \Text 13,40,"\slash" \Text 19,1,"VIT:" \Text 25,1,"FOR:" \Text 31,1,"DEF:" \Text 37,1,"NIV:" \Text 7,70,"PV:" \Text 13,70,"PA:" \Text 19,70,"VIT:" \Text 25,70,"FOR:" \Text 31,70,"DEF:" \Text 37,70,"NIV:" \Text 58,1,"[F1] ATK" \Text 50,1,"[F2] DEF" \Text 50,48,"[F3] STA" \Text 58,48,"[F#] CAP" \Text 50,92,"[F#] INV" \Text 58,92,"[F#] FUIR" \StoPict 1 \ClrGraph \Text 1,1,"ETAT DE MAIA :" \Text 7,1,"PV :" \Text 7,48,"\slash" \Text 13,1,"PA :" \Text 13,48,"\slash" \Text 55,70,"OR :" \Text 25,1,"VIT :" \Text 31,1,"FOR :" \Text 37,1,"DEF :" \Text 43,1,"GLA :" \Text 49,1,"FEU :" \Text 55,1,"ENE :" \Text 7,80,"PVR M :" \Text 13,80,"DEF M :" \Text 19,80,"PERF :" \Text 25,80,"TRANC :" \Text 31,80,"CONT :" \Text 43,80,"NV :" \Text 49,80,"PR NV :" \StoPict 2 \ClrGraph "BON JEU !"\Disp"METTEZ 'CHARGER' AU MENU. PRESS [EXE]" \Stop \IfEnd \IfEnd \Lbl A 'CHAR \Mat F[8,1]=0\=>\Prog "SUM BATP" \Mat F[8,1]=1\=>\Prog "SUM BATP" \If \Mat F[8,1]=2 \Then \Pi\->H \Prog "SUM TEOM" \IfEnd \Lbl 1 \ClrGraph \Text 1,1,"\Sum moner 2\slashMenu\slashSupplements" \Horizontal 2.5 \Text 15,1,"1.Creer matrice" \Text 21,1,"2.Le monde de \Sum moner 2" \Text 27,1,"#.Personnages" \Text 33,1,"#.Objets" \Text 39,1,"5.S\orts" \Text 45,1,"#.Invocations" \Text 51,1,"#.Aide generale" \Text 57,1,"8.Retour" \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62)\ Or (\Ans=52)\ Or (\Ans=73)\ Or (\Ans=63)\ Or (\Ans=53)\ Or (\Ans=74)\ Or (\Ans=64))=0 \Ans=72\=>\GotoB \Ans=62\=>\GotoC \Ans=52\=>\GotoD \Ans=73\=>\GotoE \Ans=63\=>\GotoF \Ans=53\=>\GotoG \Ans=74\=>\GotoH \Ans=64\=>\Goto2 \Lbl B 'Creer matrice [[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][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][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][0,0,0,0,0,0,0,0,0,0]]\->\Mat F [[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][0,0,0,0,0,0,0,0,0,0]]\->\Mat E \ClrText "\Mat rice creee"\Disp\Goto2 \Lbl C 'Le monde \ClrGraph \Text 1,1,"\Sum moner 2\slashMenu\slashSuppl\slashMonde" \Horizontal 2.5 \Text 15,1,"1.La prophetie d'Halassar" \Text 21,1,"2.La deesse reincarnee" \Text 27,1,"3.Le rite des prophetes" \Text 34,1,"4.Retour" \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62)\ Or (\Ans=52)\ Or (\Ans=73))=0 \Ans=72\=>\GotoI \Ans=62\=>\GotoJ \Ans=52\=>\GotoK \Ans=73\=>\Goto1 \Lbl I \ClrGraph \Text 1,1,"La prophetie d'Halassar" \Horizontal 2.5 \Text 13,1,"Il y a tres longtemps, Halassar" \Text 19,1,"ETAIT GOUVERNEE PAR DES ROIS" \Text 25,1,"SAGES QUI VENERAIENT LA DEESSE" \Text 31,1,"LAHARAH."\Disp\ClrGraph \Text 1,1,"LEURS MYTHES RACONTENT QUE" \Text 7,1,"LAHARAH A PLANTE UNE GRAINE " \Text 13,1,"QUI A DONNE L'ARBRE D'ELEH, LA" \Text 19,1,"SOURCE DE TOUTE CREATION." \Text 25,1,"LAHARAH A DONNE NAISSANCE AU" \Text 31,1,"'PREMIER NE' QUI A FONDE LE" \Text 37,1,"ROYAUME D'HALASSAR. APRES L'" \Text 43,1,"ANEANTISSEMENT D'ELEH PAR UN" \Text 49,1,"TERRIBLE ORAGE, LAHARAH EST" \Text 55,1,"PARTIE, NON SANS PROMETTRE DE"\Disp\ClrGraph \Text 1,1,"REVENIR ET DE GUERIR L'ARBRE."\Disp\ClrGraph \Text 1,1,"EN L'ABSENCE DE LAHARAH, LES" \Text 7,1,"ROIS D'HALASSAR SE SONT DETOUR-" \Text 13,1,"NES DU CHEMIN DE LA DROITURE" \Text 19,1,"ET LEUR CULTE POUR LAHARAH S'" \Text 25,1,"EST TRANSFORME EN UNE PRATI-" \Text 31,1,"QUE DIABOLIQUE ET PERVERSE." \Text 37,1,"CES NECROMANCIENS SE NOMMENT" \Text 43,1,"EUX-MEMES LES 'NHUVASARIM'."\Disp\ClrGraph \Text 1,1,"GITHIRAN I, LE PREMIER EMPE-" \Text 7,1,"REUR DE GALDYR, A CONQUIS HA-" \Text 13,1,"LASSAR ET BANNI LES" \Text 19,1,"NHUVASARIM."\Disp\ClrGraph \Text 1,1,"GITHIRAN A RESTAURE LE CULTE" \Text 7,1,"ENVERS LAHARAH, CONSIDEREE" \Text 13,1,"COMME LA CREATRICE BIENVEIL-" \Text 19,1,"LANTE. LES PROPHETES ONT" \Text 25,1,"COMMENCE A ECRIRE SUR LA" \Text 31,1,"NAISSANCE D'HALASSAR DES" \Text 37,1,"RUINES DE L'ANCIEN EMPIRE," \Text 43,1,"CROYANT QUE LAHARAH" \Text 49,1,"REVIENDRAIT VAINCRE LE MAL" \Text 55,1,"ET GUERIR L'ARBRE D'ELEH."\Disp\ClrGraph \Text 1,1,"LEURS ECRITS ONT ETE RASSEM-" \Text 7,1,"BLES DANS LE 'LIVRE DES" \Text 13,1,"PROPHETES'." \Text 29,1,"PLUS DE DEUX MILLE ANS APRES" \Text 35,1,"LA MORT DE GITHIRAN, LEUR" \Text 41,1,"PROPHETIE S'EST REALISEE."\Disp\GotoC \Lbl J \ClrGraph \Text 1,1,"LA DEESSE REINCARNEE" \Horizontal 2.5 \Text 13,1,"VINGTS ANS AVANT LE DEBUT" \Text 19,1,"DE SUMMONER 2, SURDAMA KIR," \Text 25,1,"LA DOYENNE DES PRETRESSES" \Text 31,1,"DE LAHARA, ANNONCA LA" \Text 37,1,"NAISSANCE DE MAIA, PREDITE" \Text 43,1,"DANS LE LIVRE DES PROPHETES."\Disp\ClrGraph \Text 1,1,"REINCARNATION DE LA DEESSE" \Text 7,1,"LAHARAH, MAIA ETAIT L'" \Text 13,1,"HERITIERE LEGITIME DU TRONE" \Text 19,1,"D'HALASSAR. LE ROI AZRAMAN" \Text 25,1,"II, LE DIRIGEANT DE GALDYR" \Text 31,1,"RECUSA CETTE AFFIRMATION ET" \Text 37,1,"ACCUSA LA DOYENNE DES" \Text 43,1,"PRETRESSES D'EXPLOITER" \Text 49,1,"L'ENFANT POUR REALISER SES" \Text 55,1,"PROPRES AMBITIONS."\Disp\ClrGraph \Text 1,1,"REVANT DU PARADIS, ILS" \Text 7,1,"FURENT DES MILLIONS A SE" \Text 13,1,"RALLIER DERRIERE L'ENFANT," \Text 19,1,"Y COMPRIS LE PROPRE FRERE" \Text 25,1,"D'AZRAMAN, TAURGIS. AZRAMAN" \Text 31,1,"S'EST BATTU POUR MAINTENIR" \Text 37,1,"L'UNITE DE SON ROYAUME, MAIS" \Text 43,1,"APRES UNE LONGUE BATAILLE," \Text 49,1,"HALASSAR A OBTENU SON INDE-" \Text 55,1,"PENDANCE. A L'AGE DE QUATRE"\Disp\ClrGraph \Text 1,1,"ANS, MAIA A ACCEDE A SON" \Text 7,1,"TRONE."\Disp\GotoC \Lbl K \ClrGraph \Text 1,1,"LE RITE DES PROPHETES" \Horizontal 2.5 \Text 13,1,"LES MYSTIQUES D'HALASSAR ONT" \Text 19,1,"ECRIT LE 'RITE DES PROPHETES'" \Text 25,1,"IL Y A DES MILLIERS D'ANNEES." \Text 31,1,"LE RITE DECRIT COMMENT" \Text 37,1,"LAHARAH A PLANTE L'ARBRE" \Text 43,1,"D'ELEH, COMMENT ELLE A CREE" \Text 49,1,"LE PREMIER NE ET COMMENT" \Text 55,1,"UN TERRIBLE ORAGE A DETRUIT"\Disp\ClrGraph \Text 1,1,"L'ARBRE D'ELEH, DECHAINANT" \Text 7,1,"SUR LE MONDE LES FORCES DU" \Text 13,1,"DU MAL. LAHARAH A QUITTE" \Text 19,1,"HALASSAR POUR TROUVER UN" \Text 25,1,"MOYEN DE RANIMER L'ARBRE" \Text 31,1,"ROMPU. ELLE EST REVENUE" \Text 37,1,"DANS LE CORPS DE MAIA QUI" \Text 43,1,"DOIT A PRESENT ACCOMPLIR" \Text 49,1,"LA PROPHETIE DE LAHARAH."\Disp\ClrGraph \Text 1,1,"I" \Text 13,1,"LAHARAH AVANCAIT DANS LE" \Text 19,1,"DESERT DES TRENTE SOLEILS." \Text 25,1,"TOUS SAUF UN, ELLE LES" \Text 31,1,"CAPTURA DANS UNE MEME" \Text 37,1,"PIERRE. DANS LE SABLE, ELLE" \Text 43,1,"REPANDIT LA SEMENCE A L'" \Text 49,1,"ORIGINE DE L'ARBRE D'ELEH." \Text 55,1,"AOSI EST LE VENT QUI"\Disp\ClrGraph \Text 1,1,"I" \Text 13,1,"SOUFFLE A TRAVERS SES" \Text 19,1,"BRANCHES"\Disp\ClrGraph \Text 1,1,"II" \Text 13,1,"MELANGEANT L'UNE D'ELLE A" \Text 19,1,"DU SANG ET DU SABLE," \Text 25,1,"LAHARAH CREA LE PREMIER NE."\Disp\ClrGraph \Text 1,1,"II" \Text 13,1,"IL ELIT DOMICILE DANS LE" \Text 19,1,"ROYAUME D'HALASSAR. NOUS" \Text 25,1,"SOMMES SES ENFANTS. NOS" \Text 31,1,"YEUX VOIENT COMME LE VENT" \Text 37,1,"CHANTE A TRAVERS LES" \Text 43,1,"BRANCHES D'ELEH."\Disp\ClrGraph \Text 1,1,"III" \Text 13,1,"LE VENT S'AMPLIFIA. UN" \Text 19,1,"ORAGE SE LEVA, BRISANT L'" \Text 25,1,"ARBRE D'ELEH. EN PLEURS AU" \Text 31,1,"SEUIL DE LA LONGUE NUIT," \Text 37,1,"LAHARAH VIT L'OBSCURITE" \Text 43,1,"DEVORER SES ENFANTS." \Text 49,1,"COMMENT GUERIR L'ARBRE" \Text 55,1,"ROMPU ? COMMENT RANIMER"\Disp\ClrGraph \Text 1,1,"III" \Text 13,1,"SES BRANCHES ? LOIN D'" \Text 19,1,"HALASSAR, DANS LE SILENCE" \Text 25,1,"DU MYSTERE, LAHARA VOGUA" \Text 31,1,"VERS SON REVE."\Disp\ClrGraph \Text 1,1,"IV" \Text 13,1,"AU NEUVIEME SIECLE DU" \Text 19,1,"NEUVIEME AGE, UN ENFANT" \Text 25,1,"PORTANT LA MARQUE NAITRA." \Text 31,1,"LAHARAH. REINE ET" \Text 37,1,"REDEMPTRICE. HALASSAR SORTI-" \Text 43,1,"RA DE LA TOMBE DU JUSTE," \Text 49,1,"CAR C'EST ELLE LA DEESSE" \Text 55,1,"REINCARNEE. AINSI PARLE"\Disp\ClrGraph \Text 1,1,"IV" \Text 13,1,"LE LIVRE DES PROPHETES."\Disp\GotoC \Lbl F \ClrGraph \Text 1,1,"\Sum moner 2\slashMenu\slashSuppl\slashS\orts" \Horizontal 2.5 \Text 13,1,"CERTAINS PERSONNAGES ONT LA" \Text 19,1,"CAPACITE D'EMPLOYER UNE" \Text 25,1,"MAGIE PUISSANTE. CES DER-" \Text 31,1,"NIERS PEUVENT CONSTATER QUE" \Text 37,1,"LEUR COMPETENCE DE JETEUR" \Text 43,1,"DE SORTS EXCEDE LARGEMENT" \Text 49,1,"LEUR CONNAISSANCE DE L'EPEE" \Text 55,1,"OU DU BATON."\Disp\ClrGraph \Text 1,1,"CERTAINS SORTS PEUVENT" \Text 7,1,"ETRE ACQUIS AU TOUT DEBUT" \Text 13,1,"DE VOS AVENTURES. DES" \Text 19,1,"DIZAINES D'AUTRES PEUVENT ETRE" \Text 25,1,"DEVEROUILLES."\Disp\ClrGraph \Text 1,1,"FLECHE DE FEU" \Text 7,1,"PROJETTE UNE FLECHE DE FEU" \Text 13,1,"SUR UN ADVERSAIRE"\Disp\ClrGraph \Text 1,1,"FLECHE DE GLACE" \Text 7,1,"PROJETTE UNE FLECHE DE" \Text 13,1,"GLACE SUR UN ADVERSAIRE"\Disp\ClrGraph \Text 1,1,"ETINCELLE D'ENERGIE" \Text 7,1,"PROJETTE UNE ETINCELLE" \Text 13,1,"D'ENERGIE SUR UN ADVERSAIRE"\Disp\ClrGraph \Text 1,1,"GUERISON" \Text 7,1,"GUERIT LES BLESSURES EN" \Text 13,1,"NOMBRE LIMITE D'UN ALLIE"\Disp\ClrGraph \Text 1,1,"REANIMATION" \Text 7,1,"RAMENE UN ALLIE A LA" \Text 13,1,"CONSCIENCE AVEC 1 PV"\Disp\ClrGraph \Text 1,1,"PROTECTION" \Text 7,1,"FOURNIT UNE PROTECTION" \Text 13,1,"SUPPLEMENTAIRE CONTRE LES" \Text 19,1,"ATTAQUES PHYSIQUES"\Disp\ClrGraph \Text 1,1,"FLECHETTE" \Text 7,1,"PROJETTE UNE ETINCELLE NON" \Text 13,1,"ELEMENTAIRE VERS UN" \Text 19,1,"ENNEMI"\Disp\ClrGraph \Text 1,1,"ANTIDOTE" \Text 7,1,"SUPPRIME L'EFFET NEGATIF" \Text 13,1,"D'UN SORTILEGE SUR UN ALLIE"\Disp\Goto1 \Lbl H \ClrText:\ClrGraph \Text 1,1,"SUMMONER 2 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:212 File Name:SUSU Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Locate 1,1,"TTTTTTTTTTTTTTTTTTTTT" \Locate 1,2,"T~~~~~~~~~XT TTTTTT" \Locate 1,3,"#~~~~~~~~~ T J T! T" \Locate 1,4," T E T T" \Locate 1,5,"#~~~~~~~~~ T U T T" \Locate 1,6,"T~~~~~~~~~XT T !T" \Locate 1,7,"TTTTTTTTTTTTTTTTTTTTT" %End