'ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» 'º Bonjour ! º 'º º 'º Vous ˆtes l'heureux propri‚taire du meilleur jeu jamais r‚alis‚ en Basic. º 'º Ce jeu n'est en aucun cas destin‚ … la vente puisqu'il est ill‚gal ‚tant º 'º donn‚ qu'il est l‚g‚rement inspir‚ d'un jeu intitul‚ Pok‚mon. º 'º º 'º N'effacez pas les lignes de ce programme. Il est con‡u pour fonctionner º 'º parfaitement. En cas de problŠme, de mauvais fonctionnement du jeu ou de º 'º faute d'orthographe, contactez Julien Lepage au 04.74.00.62.95 º 'º º 'º Pour d‚marrer le jeu, appuyez sur 'F5' º 'º Pour interrompre le jeu … n'importe quel moment, appuyez sur 'Ctrl' et º 'º 'Pause' ou 'Ctrl' et 'C'. Pour le red‚marrer, appuyez sur 'Shift' et 'F5'.º 'º º 'º Dans le jeu, utilisez les touches 4, 6, 8, 2, Enter, Echap et f. º 'º º 'ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ 'ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» 'º D‚claration des SUBs º 'ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ DECLARE SUB Gaston (A!, B!) : DECLARE SUB Fin () : DECLARE SUB Route.1 () : DECLARE SUB Heros.5 () : DECLARE SUB Sangoku (A!, B!) : DECLARE SUB Ville.2 () : DECLARE SUB Persos.3 (C!, D!) : DECLARE SUB Ville.2.2 () : DECLARE SUB Persos.2 (C!, D!) : DECLARE SUB Ville.1 () : DECLARE SUB Ville.1.2 () : DECLARE SUB Heros.3 (A!, B!) : DECLARE SUB Heros.2 (A!, B!) : DECLARE SUB Heros.4 (A!, B!) : DECLARE SUB Heros.1 (A!, B!) : DECLARE SUB Maison.1.2 () : DECLARE SUB Maison.1 () : DECLARE SUB Persos.1 (C!, D!) : DECLARE SUB Pikaned.1 () : DECLARE SUB Pokedex.1 () : DECLARE SUB Pokecube.1 () : DECLARE SUB Erwan.1 () : DECLARE SUB Sacha.1 () : DECLARE SUB Musique.1 (Mu) : DECLARE SUB Presentation.1 () 1 'ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» 'º D‚finition de l'‚cran º 'ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ CLS : SCREEN 13: WINDOW SCREEN (0, 0)-(1000, 1000) 'ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» 'º Pr‚sentation º 'ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ CLS : CALL Presentation.1: PLAY "O1" DO UNTIL A$ <> "" A$ = INKEY$: CALL Musique.1(Mu) LOOP 2 'ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» 'º Menu principal º 'ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ SCREEN 12: WIDTH 80, 25 LOCATE 1, 1 COLOR 4, 1: CLS COLOR 4, 2 PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»" PRINT "º "; : COLOR 0, 2: PRINT " Pok‚ro"; : COLOR 4, 2: PRINT " º" PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" COLOR 15, 1 FOR I = 1 TO 20 PRINT SPACE$(80) NEXT I C1 = 4: C2 = 6: C3 = 6 DO IF C1 = 6 THEN C12 = 0 ELSE C12 = 7 LOCATE 9, 24: COLOR 4, 6: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»" LOCATE 10, 24: COLOR 4, 6: PRINT "º "; : COLOR C12, C1: PRINT " Nouvelle partie "; : COLOR 4, 6: PRINT " º" LOCATE 11, 24: COLOR 4, 6: PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" IF C2 = 6 THEN C22 = 0 ELSE C22 = 7 LOCATE 14, 24: COLOR 4, 6: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»" LOCATE 15, 24: COLOR 4, 6: PRINT "º "; : COLOR C22, C2: PRINT " Ouvrir partie "; : COLOR 4, 6: PRINT " º" LOCATE 16, 24: COLOR 4, 6: PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" IF C3 = 6 THEN C32 = 0 ELSE C32 = 7 LOCATE 19, 24: COLOR 4, 6: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»" LOCATE 20, 24: COLOR 4, 6: PRINT "º "; : COLOR C32, C3: PRINT " RŠgle du jeu "; : COLOR 4, 6: PRINT " º" LOCATE 21, 24: COLOR 4, 6: PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" A$ = INKEY$ IF A$ = "8" AND C1 = 4 THEN C1 = 6: C3 = 4: A$ = "" IF A$ = "8" AND C2 = 4 THEN C2 = 6: C1 = 4: A$ = "" IF A$ = "8" AND C3 = 4 THEN C3 = 6: C2 = 4 IF A$ = "2" AND C1 = 4 THEN C1 = 6: C2 = 4: A$ = "" IF A$ = "2" AND C2 = 4 THEN C2 = 6: C3 = 4: A$ = "" IF A$ = "2" AND C3 = 4 THEN C3 = 6: C1 = 4 IF A$ = CHR$(27) THEN END IF A$ = CHR$(13) THEN GOTO 3 LOOP 3 'ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» 'º Envoie vers les diff‚rentes branches º 'ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ IF C1 = 4 THEN GOTO 5 IF C2 = 4 THEN GOTO 6 IF C3 = 4 THEN GOTO 4 CLS PRINT "Erreur de gravit‚ 90% : le programme a ‚t‚ modifi‚." PRINT PRINT "Solution au problŠme : Procurez vous la version originale du jeu." END 4 'ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» 'º RŠgle du jeu º 'ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ COLOR 0, 7: CLS PRINT PRINT " RŠgle du jeu" PRINT PRINT "But du jeu : avoir captur‚ au moins une fois tous les POK‚RO du jeu. " PRINT " Pour ˆtre s–r d'avoir explor‚ toutes les facettes du jeu, … la " PRINT " fin, votre score en pourcentage est affich‚. Le maximum est de " PRINT " 100%. Pour atteindre ce score qui en laissera certainement rˆveur" PRINT " plus d'un, il faut poss‚der tous les badges du jeu (il en existe " PRINT " 10)." PRINT INPUT "", A$ GOTO 1 5 'ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» 'º Nouvelle partie º 'ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ 'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ '³ Introduction ³ 'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ CLS : SCREEN 12: WINDOW SCREEN (0, 0)-(1000, 1000) CALL Sacha.1 'ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» 'º D‚claration des SUBs º 'ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ LOCATE 2, 50: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»" LOCATE 3, 50: PRINT "º Vous ˆtes Sacha-Touille, º" LOCATE 4, 50: PRINT "º un jeune habitant de º" LOCATE 5, 50: PRINT "º bourre-Picolette. º" LOCATE 6, 50: PRINT "º Aujourd'hui, vous devez º" LOCATE 7, 50: PRINT "º aller choisir votre Pok‚ro º" LOCATE 8, 50: PRINT "º chez le professeur Bracchi º" LOCATE 9, 50: PRINT "º mais vous ˆtes en retard º" LOCATE 10, 50: PRINT "º car vous ne pouvez pas º" LOCATE 11, 50: PRINT "º marcher vite … cause de º" LOCATE 12, 50: PRINT "º votre poids... º" LOCATE 13, 50: PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" LOCATE 1, 1: INPUT "", A$ CALL Erwan.1 LOCATE 2, 50: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»" LOCATE 3, 50: PRINT "º C'est le professeur º" LOCATE 4, 50: PRINT "º Bracchi : le sp‚cialiste º" LOCATE 5, 50: PRINT "º local des Pok‚ros. º" LOCATE 6, 50: PRINT "º º" LOCATE 7, 50: PRINT "º - D‚sol‚, il n'y a plus º" LOCATE 8, 50: PRINT "º de Pok‚ros sauf un : º" LOCATE 9, 50: PRINT "º Pika-Ned. Je te le donne º" LOCATE 10, 50: PRINT "º ainsi que ces 6 º" LOCATE 11, 50: PRINT "º Pok‚ Cubes et ce º" LOCATE 12, 50: PRINT "º Pok‚dex. º" LOCATE 13, 50: PRINT "º - Merci... º" LOCATE 14, 50: PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" LOCATE 1, 1: INPUT "", A$ CALL Pokecube.1 LOCATE 2, 50: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»" LOCATE 3, 50: PRINT "º Ceci est un des tes º" LOCATE 4, 50: PRINT "º pok‚cubes. Tu en as 6 et º" LOCATE 5, 50: PRINT "º ils servent … attraper les º" LOCATE 6, 50: PRINT "º pok‚ros. º" LOCATE 7, 50: PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" LOCATE 1, 1: INPUT "", A$ CALL Pokedex.1 LOCATE 2, 50: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»" LOCATE 3, 50: PRINT "º Ceci est ton pok‚dex. º" LOCATE 4, 50: PRINT "º C'est un petit apareil º" LOCATE 5, 50: PRINT "º permetant d'optenir des º" LOCATE 6, 50: PRINT "º renseignements sur les º" LOCATE 7, 50: PRINT "º pok‚ros que tu rencontres. º" LOCATE 8, 50: PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" LOCATE 1, 1: INPUT "", A$ CALL Pikaned.1 LOCATE 2, 50: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»" LOCATE 3, 50: PRINT "º Ceci est ton pok‚ro : º" LOCATE 4, 50: PRINT "º Pok‚ned. Sa queue en forme º" LOCATE 5, 50: PRINT "º de tron‡onneuse le rend º" LOCATE 6, 50: PRINT "º trŠs fort. Ne le perd pas, º" LOCATE 7, 50: PRINT "º il te sera utile et il est º" LOCATE 8, 50: PRINT "º trŠs rare... º" LOCATE 9, 50: PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" LOCATE 1, 1: INPUT "", A$ CALL Erwan.1 LOCATE 2, 50: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»" LOCATE 3, 50: PRINT "º Voil…. Tu vas pouvoir º" LOCATE 4, 50: PRINT "º commencer ton odyss‚e. Va º" LOCATE 5, 50: PRINT "º dire au revoir … ta mŠre. º" LOCATE 6, 50: PRINT "º tu risque de ne plus la º" LOCATE 7, 50: PRINT "º voir pendant quelques º" LOCATE 8, 50: PRINT "º temps. Viens ensuite chez º" LOCATE 9, 50: PRINT "º moi, je te dirais que º" LOCATE 10, 50: PRINT "º faire. A plus tard. º" LOCATE 11, 50: PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" LOCATE 1, 1: NomP1$ = "Pok‚ned" 'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ '³ Ouverture des fichiers ³ 'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ 'OPEN "C:\BASIC\Julien\FICHIERS\Vie-P1.DAT" FOR RANDOM AS #1 'OPEN "C:\BASIC\Julien\FICHIERS\Max-P1.DAT" FOR RANDOM AS #2 'VieP1 = 40: MaxP1 = 40: PUT #1, 1, VieP1: PUT #2, 1, MaxP1 'CLOSE : INPUT "", A$ GOTO 100 6 'SHELL "Md C:\BASIC": SHELL "Md C:\BASIC\Julien\FICHIERS" 'SHELL "Dir C:": SHELL "Dir C:\Basic\Julien" WIDTH 80, 25: COLOR 7, 1: CLS 'OPEN "C:\BASIC\Julien\FICHIERS\Badges.DAT" FOR RANDOM AS #1: OPEN "C:\BASIC\FICHIERS\Nom-P1.DAT" FOR RANDOM AS #2: OPEN "C:\BASIC\FICHIERS\Nom-P2.DAT" FOR RANDOM AS #3: OPEN "C:\BASIC\FICHIERS\Nom-P3.DAT" FOR RANDOM AS #4: OPEN "C:\BASIC\FICHIERS\Nom-P4.DAT" FOR RANDOM AS #5: OPEN "C:\BASIC\FICHIERS\Nom-P5.DAT" FOR RANDOM AS #6: OPEN "C:\BASIC\FICHIERS\Nom-P6.DAT" FOR RANDOM AS #7 'GET #1, 1, Badges: GET #2, 1, NomP1$: GET #3, 1, NomP2$: GET #4, 1, NomP3$: GET #5, 1, NomP4$: GET #6, 1, NomP5$: GET #7, 1, NomP6$: CLOSE 'OPEN "C:\BASIC\Julien\FICHIERS\Exp-P1.DAT" FOR RANDOM AS #1: OPEN "C:\BASIC\FICHIERS\Vie-P1.DAT" FOR RANDOM AS #2: OPEN "C:\BASIC\FICHIERS\Max-P1.DAT" FOR RANDOM AS #3: OPEN "C:\BASIC\FICHIERS\Nv1-P1.DAT" FOR RANDOM AS #4: OPEN "C:\BASIC\FICHIERS\Nv2-P1.DAT" FOR RANDOM AS #5: OPEN "C:\BASIC\FICHIERS\Nv3-P1.DAT" FOR RANDOM AS #6 'GET #1, 1, ExeP1: GET #2, 1, VieP1: GET #3, 1, MaxP1: GET #4, 1, Nv1P1: GET #5, 1, Nv2P1: GET #6, 1, Nv3P1: CLOSE 'OPEN "C:\BASIC\Julien\FICHIERS\Exp-P2.DAT" FOR RANDOM AS #1: OPEN "C:\BASIC\FICHIERS\Vie-P2.DAT" FOR RANDOM AS #2: OPEN "C:\BASIC\FICHIERS\Max-P2.DAT" FOR RANDOM AS #3: OPEN "C:\BASIC\FICHIERS\Nv1-P2.DAT" FOR RANDOM AS #4: OPEN "C:\BASIC\FICHIERS\Nv2-P2.DAT" FOR RANDOM AS #5: OPEN "C:\BASIC\FICHIERS\Nv3-P2.DAT" FOR RANDOM AS #6 'GET #1, 1, ExeP2: GET #2, 1, VieP2: GET #3, 1, MaxP2: GET #4, 1, Nv1P2: GET #5, 1, Nv2P2: GET #6, 1, Nv3P2: CLOSE 'OPEN "C:\BASIC\Julien\FICHIERS\Exp-P3.DAT" FOR RANDOM AS #1: OPEN "C:\BASIC\FICHIERS\Vie-P3.DAT" FOR RANDOM AS #2: OPEN "C:\BASIC\FICHIERS\Max-P3.DAT" FOR RANDOM AS #3: OPEN "C:\BASIC\FICHIERS\Nv1-P3.DAT" FOR RANDOM AS #4: OPEN "C:\BASIC\FICHIERS\Nv2-P3.DAT" FOR RANDOM AS #5: OPEN "C:\BASIC\FICHIERS\Nv3-P3.DAT" FOR RANDOM AS #6 'GET #1, 1, ExeP3: GET #2, 1, VieP3: GET #3, 1, MaxP3: GET #4, 1, Nv1P3: GET #5, 1, Nv2P3: GET #6, 1, Nv3P3: CLOSE 'OPEN "C:\BASIC\Julien\FICHIERS\Exp-P4.DAT" FOR RANDOM AS #1: OPEN "C:\BASIC\FICHIERS\Vie-P4.DAT" FOR RANDOM AS #2: OPEN "C:\BASIC\FICHIERS\Max-P4.DAT" FOR RANDOM AS #3: OPEN "C:\BASIC\FICHIERS\Nv1-P4.DAT" FOR RANDOM AS #4: OPEN "C:\BASIC\FICHIERS\Nv2-P4.DAT" FOR RANDOM AS #5: OPEN "C:\BASIC\FICHIERS\Nv3-P4.DAT" FOR RANDOM AS #6 'GET #1, 1, ExeP4: GET #2, 1, VieP4: GET #3, 1, MaxP4: GET #4, 1, Nv1P4: GET #5, 1, Nv2P4: GET #6, 1, Nv3P4: CLOSE 'OPEN "C:\BASIC\Julien\FICHIERS\Exp-P5.DAT" FOR RANDOM AS #1: OPEN "C:\BASIC\FICHIERS\Vie-P5.DAT" FOR RANDOM AS #2: OPEN "C:\BASIC\FICHIERS\Max-P5.DAT" FOR RANDOM AS #3: OPEN "C:\BASIC\FICHIERS\Nv1-P5.DAT" FOR RANDOM AS #4: OPEN "C:\BASIC\FICHIERS\Nv2-P5.DAT" FOR RANDOM AS #5: OPEN "C:\BASIC\FICHIERS\Nv3-P5.DAT" FOR RANDOM AS #6 'GET #1, 1, ExeP5: GET #2, 1, VieP5: GET #3, 1, MaxP5: GET #4, 1, Nv1P5: GET #5, 1, Nv2P5: GET #6, 1, Nv3P5: CLOSE 'OPEN "C:\BASIC\Julien\FICHIERS\Exp-P6.DAT" FOR RANDOM AS #1: OPEN "C:\BASIC\FICHIERS\Vie-P6.DAT" FOR RANDOM AS #2: OPEN "C:\BASIC\FICHIERS\Max-P6.DAT" FOR RANDOM AS #3: OPEN "C:\BASIC\FICHIERS\Nv1-P6.DAT" FOR RANDOM AS #4: OPEN "C:\BASIC\FICHIERS\Nv2-P6.DAT" FOR RANDOM AS #5: OPEN "C:\BASIC\FICHIERS\Nv3-P6.DAT" FOR RANDOM AS #6 'GET #1, 1, ExeP6: GET #2, 1, VieP6: GET #3, 1, MaxP6: GET #4, 1, Nv1P6: GET #5, 1, Nv2P6: GET #6, 1, Nv3P6: CLOSE 10 END 100 'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ '³ Ecran 1 : Maison de Sacha ³ 'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ C = 400: D = 450: A = 500: B = 650: P = 1 101 CALL Maison.1: CALL Persos.1(C, D): CALL Heros.1(A, B) DO A$ = INKEY$ IF A$ = "" THEN GOTO 102 IF A$ = "6" THEN A = A + 10: P = 2 IF A$ = "4" THEN A = A - 10: P = 4 IF A$ = "8" THEN B = B - 10: P = 3 IF A$ = "2" THEN B = B + 10: P = 1 IF A$ = CHR$(27) THEN END IF B > 700 THEN B = 700 IF B < 400 THEN B = 400 IF A > 900 THEN A = 900 IF A < 50 THEN A = 50 IF A >= 350 AND A <= 450 AND B < 550 AND A$ = "6" THEN A = A - 10: GOTO 103 IF A >= 350 AND A <= 450 AND B < 550 AND A$ = "8" THEN B = B + 10: GOTO 103 IF A >= 350 AND A <= 450 AND B < 550 AND A$ = "4" THEN A = A + 10: GOTO 103 IF A$ = "2" AND A >= 450 AND A <= 500 AND B = 700 THEN GOTO 200 IF A$ = "8" AND A >= 650 AND A <= 700 AND B = 400 THEN GOTO 105 CALL Maison.1.2 IF P = 1 THEN CALL Heros.1(A, B) IF P = 2 THEN CALL Heros.2(A, B) IF P = 3 THEN CALL Heros.3(A, B) IF P = 4 THEN CALL Heros.4(A, B) 102 LOOP 103 LOCATE 1, 1 IF Donne1 = 0 THEN GOTO 104 PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»" PRINT "º - Bon voyage... º" PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" INPUT "", A$ GOTO 101 104 PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»" PRINT "º - Pars mon fils. Mˆme avec ce Pok‚ro... Etrange... Tu pourras remporter des º" PRINT "º badges et faire l'honneur de la famille. Tiens, prend ce sac pour º" PRINT "º transporter tes affaires. ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" INPUT "", A$: LOCATE 1, 1 PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»" PRINT "º Tu as re‡u le sac-…-dos ! º" PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" PLAY "T255 L6 O4 CCCDEF" Donne1 = 1: INPUT "", A$: GOTO 101 105 LOCATE 1, 1 PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»" PRINT "º Ne monte pas, je n'ai pas rang‚... º" PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" INPUT "", A$ GOTO 101 200 'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ '³ Ecran 2 : Bourre-Picolette 1 ³ 'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ A = 500: B = 460: P = 1 201 CALL Ville.1: CALL Heros.1(A, B): CALL Persos.2(C, D) DO A$ = INKEY$ IF A$ = "" THEN GOTO 202 IF A$ = "6" THEN A = A + 10: P = 2 IF A$ = "4" THEN A = A - 10: P = 4 IF A$ = "8" THEN B = B - 10: P = 3 IF A$ = "2" THEN B = B + 10: P = 1 IF A$ = CHR$(27) THEN END IF A = 500 AND B = 440 THEN GOTO 100 IF B < 450 THEN B = 450 IF (A < 750 OR A > 850) AND B > 500 THEN B = 500 IF A = 850 THEN GOTO 300 IF B > 900 THEN GOTO 500 IF A < 0 THEN A = 0 CALL Ville.1.2 IF P = 1 THEN CALL Heros.1(A, B) IF P = 2 THEN CALL Heros.2(A, B) IF P = 3 THEN CALL Heros.3(A, B) IF P = 4 THEN CALL Heros.4(A, B) 202 LOOP 300 'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ '³ Ecran 3 : Bourre-Picolette 2 ³ 'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ A = 100 301 CALL Ville.2: CALL Heros.1(A, B): CALL Persos.3(C, D) DO A$ = INKEY$ IF A$ = "" THEN GOTO 302 IF A$ = "6" THEN A = A + 10: P = 2 IF A$ = "4" THEN A = A - 10: P = 4 IF A$ = "8" THEN B = B - 10: P = 3 IF A$ = "2" THEN B = B + 10: P = 1 IF A$ = CHR$(27) THEN END IF B < 450 THEN B = 450 IF A > 100 AND B > 500 THEN B = 500 IF A = 950 THEN GOTO 400 IF B > 900 THEN B = 900 IF A = 50 THEN A = 800: GOTO 201 CALL Ville.2.2 IF P = 1 THEN CALL Heros.1(A, B) IF P = 2 THEN CALL Heros.2(A, B) IF P = 3 THEN CALL Heros.3(A, B) IF P = 4 THEN CALL Heros.4(A, B) 302 LOOP 400 500 'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ '³ Ecran 4 : Sortie 1 de Bourre-Picolette ³ 'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ B = 100: Chance = 0 501 CALL Route.1 CALL Heros.1(A, B) DO A$ = INKEY$ IF A$ = "" THEN GOTO 502 IF A$ = "6" THEN A = A + 10: P = 2 IF A$ = "4" THEN A = A - 10: P = 4 IF A$ = "8" THEN B = B - 10: P = 3 IF A$ = "2" THEN B = B + 10: P = 1 IF A$ = CHR$(27) THEN END IF B < 0 AND A >= 750 AND A <= 850 THEN A = 800: B = 900: GOTO 201 IF B > 900 THEN B = 900 IF A < 600 THEN Chance = INT(RND * 20) + 1 IF Chance = 10 THEN Chance = 0: GOSUB 500.000 CALL Route.1 IF P = 1 THEN CALL Heros.1(A, B) IF P = 2 THEN CALL Heros.2(A, B) IF P = 3 THEN CALL Heros.3(A, B) IF P = 4 THEN CALL Heros.4(A, B) 502 LOOP 500.000 'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ '³ Combat ³ 'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ Chance = INT(RND * 2) + 1 IF Chance = 1 THEN Pokero$ = "Sangoku": AA = 500 IF Chance = 2 THEN Pokero$ = "Gaston": AA = 20 ViePok = INT(RND * AA) + 1 ViePokMax = ViePok 9000000 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ- Dessin des personnages CLS CALL Heros.5 P = 1: C = 500: D = 0: NOM$ = NomP1$: Exe = ExeP1: Vie = VieP1: Max = MaxP1: Nv1 = Nv1P1: Nv2 = Nv2P1: Nv3 = Nv3P1 IF Pokero$ = "Sangoku" THEN CALL Sangoku(C, D) IF Pokero$ = "Gaston" THEN CALL Gaston(C, D) LINE (0, 0)-(1000, 1000), 1, B LINE (0, 500)-(1000, 500), 1 LINE (500, 0)-(500, 1000), 1 INPUT "", A$ 9000001 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ- Attaque de Sacha DO IF NOM$ = "" THEN P = P + 1: A$ = "6": GOTO 9000002 LOCATE 2, 2: PRINT "Sacha commence son attaque : " LOCATE 4, 2 PRINT "Sacha attaque avec "; NOM$; "." 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ- Pok‚ned IF NOM$ <> "Pok‚ned" THEN GOTO 9000003 P1 = 2: P2 = 15: P3 = 15 DO LOCATE 6, 2: COLOR P1: PRINT "Attaque … la tron‡oneuse " LOCATE 7, 2: COLOR P2: PRINT "Attaque de l'appendice crƒnien ‚clair " LOCATE 8, 2: COLOR P3: PRINT "Attaque du coup de patte arriŠre " A$ = INKEY$ IF A$ = "8" AND P1 = 2 THEN P1 = 15: P3 = 2: A$ = "" IF A$ = "8" AND P2 = 2 THEN P2 = 15: P1 = 2: A$ = "" IF A$ = "8" AND P3 = 2 THEN P3 = 15: P2 = 2: A$ = "" IF A$ = "2" AND P1 = 2 THEN P1 = 15: P2 = 2: A$ = "" IF A$ = "2" AND P2 = 2 THEN P2 = 15: P3 = 2: A$ = "" IF A$ = "2" AND P3 = 2 THEN P3 = 15: P1 = 2: A$ = "" IF A$ = "6" THEN P = P + 1 IF A$ = "4" THEN P = P - 1 9000002 IF P = 0 THEN P = 6 IF P = 7 THEN P = 1 IF P = 1 AND (A$ = "6" OR A$ = "4") THEN OPEN "C:\BASIC\FICHIERS\Exp-P1.DAT" FOR RANDOM AS #1: OPEN "C:\BASIC\FICHIERS\Vie-P1.DAT" FOR RANDOM AS #2: OPEN "C:\BASIC\FICHIERS\Max-P1.DAT" FOR RANDOM AS #3: OPEN "C:\BASIC\FICHIERS\Nv1-P1.DAT" FOR RANDOM AS #4: OPEN "C:\BASIC\FICHIERS\Nv2-P1.DAT" FOR RANDOM AS #5: OPEN "C:\BASIC\FICHIERS\Nv3-P1.DAT" FOR RANDOM AS #6: PUT #1, 1, ExeP1: PUT #2, 1, VieP1: PUT #3, 1, MaxP1: PUT #4, 1, Nv1P1: PUT #5, 1, Nv2P1: PUT #6, 1, Nv3P1: CLOSE : NOM$ = NomP1$: Exe = ExeP1: Vie = VieP1: Max = MaxP1: Nv1 = Nv1P1: Nv2 = Nv2P1: Nv3 = Nv3P1: GOTO 9000001 IF P = 2 AND (A$ = "6" OR A$ = "4") THEN OPEN "C:\BASIC\FICHIERS\Exp-P2.DAT" FOR RANDOM AS #1: OPEN "C:\BASIC\FICHIERS\Vie-P2.DAT" FOR RANDOM AS #2: OPEN "C:\BASIC\FICHIERS\Max-P2.DAT" FOR RANDOM AS #3: OPEN "C:\BASIC\FICHIERS\Nv1-P2.DAT" FOR RANDOM AS #4: OPEN "C:\BASIC\FICHIERS\Nv2-P2.DAT" FOR RANDOM AS #5: OPEN "C:\BASIC\FICHIERS\Nv3-P2.DAT" FOR RANDOM AS #6: PUT #1, 1, ExeP2: PUT #2, 1, VieP2: PUT #3, 1, MaxP2: PUT #4, 1, Nv1P2: PUT #5, 1, Nv2P2: PUT #6, 1, Nv3P2: CLOSE : NOM$ = NomP2$: Exe = ExeP2: Vie = VieP2: Max = MaxP2: Nv1 = Nv1P2: Nv2 = Nv2P2: Nv3 = Nv3P2: GOTO 9000001 IF P = 3 AND (A$ = "6" OR A$ = "4") THEN OPEN "C:\BASIC\FICHIERS\Exp-P3.DAT" FOR RANDOM AS #1: OPEN "C:\BASIC\FICHIERS\Vie-P3.DAT" FOR RANDOM AS #2: OPEN "C:\BASIC\FICHIERS\Max-P3.DAT" FOR RANDOM AS #3: OPEN "C:\BASIC\FICHIERS\Nv1-P3.DAT" FOR RANDOM AS #4: OPEN "C:\BASIC\FICHIERS\Nv2-P3.DAT" FOR RANDOM AS #5: OPEN "C:\BASIC\FICHIERS\Nv3-P3.DAT" FOR RANDOM AS #6: PUT #1, 1, ExeP3: PUT #2, 1, VieP3: PUT #3, 1, MaxP3: PUT #4, 1, Nv1P3: PUT #5, 1, Nv2P3: PUT #6, 1, Nv3P3: CLOSE : NOM$ = NomP3$: Exe = ExeP3: Vie = VieP3: Max = MaxP3: Nv1 = Nv1P3: Nv2 = Nv2P3: Nv3 = Nv3P3: GOTO 9000001 IF P = 4 AND (A$ = "6" OR A$ = "4") THEN OPEN "C:\BASIC\FICHIERS\Exp-P4.DAT" FOR RANDOM AS #1: OPEN "C:\BASIC\FICHIERS\Vie-P4.DAT" FOR RANDOM AS #2: OPEN "C:\BASIC\FICHIERS\Max-P4.DAT" FOR RANDOM AS #3: OPEN "C:\BASIC\FICHIERS\Nv1-P4.DAT" FOR RANDOM AS #4: OPEN "C:\BASIC\FICHIERS\Nv2-P4.DAT" FOR RANDOM AS #5: OPEN "C:\BASIC\FICHIERS\Nv3-P4.DAT" FOR RANDOM AS #6: PUT #1, 1, ExeP4: PUT #2, 1, VieP4: PUT #3, 1, MaxP4: PUT #4, 1, Nv1P4: PUT #5, 1, Nv2P4: PUT #6, 1, Nv3P4: CLOSE : NOM$ = NomP4$: Exe = ExeP4: Vie = VieP4: Max = MaxP4: Nv1 = Nv1P4: Nv2 = Nv2P4: Nv3 = Nv3P4: GOTO 9000001 IF P = 5 AND (A$ = "6" OR A$ = "4") THEN OPEN "C:\BASIC\FICHIERS\Exp-P5.DAT" FOR RANDOM AS #1: OPEN "C:\BASIC\FICHIERS\Vie-P5.DAT" FOR RANDOM AS #2: OPEN "C:\BASIC\FICHIERS\Max-P5.DAT" FOR RANDOM AS #3: OPEN "C:\BASIC\FICHIERS\Nv1-P5.DAT" FOR RANDOM AS #4: OPEN "C:\BASIC\FICHIERS\Nv2-P5.DAT" FOR RANDOM AS #5: OPEN "C:\BASIC\FICHIERS\Nv3-P5.DAT" FOR RANDOM AS #6: PUT #1, 1, ExeP5: PUT #2, 1, VieP5: PUT #3, 1, MaxP5: PUT #4, 1, Nv1P5: PUT #5, 1, Nv2P5: PUT #6, 1, Nv3P5: CLOSE : NOM$ = NomP5$: Exe = ExeP5: Vie = VieP5: Max = MaxP5: Nv1 = Nv1P5: Nv2 = Nv2P5: Nv3 = Nv3P5: GOTO 9000001 IF P = 6 AND (A$ = "6" OR A$ = "4") THEN OPEN "C:\BASIC\FICHIERS\Exp-P6.DAT" FOR RANDOM AS #1: OPEN "C:\BASIC\FICHIERS\Vie-P6.DAT" FOR RANDOM AS #2: OPEN "C:\BASIC\FICHIERS\Max-P6.DAT" FOR RANDOM AS #3: OPEN "C:\BASIC\FICHIERS\Nv1-P6.DAT" FOR RANDOM AS #4: OPEN "C:\BASIC\FICHIERS\Nv2-P6.DAT" FOR RANDOM AS #5: OPEN "C:\BASIC\FICHIERS\Nv3-P6.DAT" FOR RANDOM AS #6: PUT #1, 1, ExeP6: PUT #2, 1, VieP6: PUT #3, 1, MaxP6: PUT #4, 1, Nv1P6: PUT #5, 1, Nv2P6: PUT #6, 1, Nv3P6: CLOSE : NOM$ = NomP6$: Exe = ExeP6: Vie = VieP6: Max = MaxP6: Nv1 = Nv1P6: Nv2 = Nv2P6: Nv3 = Nv3P6: GOTO 9000001 IF A$ = "5" AND P1 = 2 THEN ViePok = ViePok - (3 * Nv1): Nv1 = Nv1 + .1: GOTO 9999999 IF A$ = "5" AND P2 = 2 THEN ViePok = ViePok - (2 * Nv2): Nv2 = Nv2 + .1: GOTO 9999999 IF A$ = "5" AND P3 = 2 THEN ViePok = ViePok - Nv3: Nv3 = Nv3 + .1: GOTO 9999999 IF A$ = "f" AND P = 1 THEN CLOSE : ExeP1 = Exe: VieP1 = Vie: MaxP1 = Max: Nv1P1 = Nv1: Nv2P1 = Nv2: Nv3P1 = Nv3: RETURN IF A$ = "f" AND P = 2 THEN CLOSE : ExeP2 = Exe: VieP2 = Vie: MaxP2 = Max: Nv1P2 = Nv1: Nv2P2 = Nv2: Nv3P2 = Nv3: RETURN IF A$ = "f" AND P = 3 THEN CLOSE : ExeP3 = Exe: VieP3 = Vie: MaxP3 = Max: Nv1P3 = Nv1: Nv2P3 = Nv2: Nv3P3 = Nv3: RETURN IF A$ = "f" AND P = 4 THEN CLOSE : ExeP4 = Exe: VieP4 = Vie: MaxP4 = Max: Nv1P4 = Nv1: Nv2P4 = Nv2: Nv3P4 = Nv3: RETURN IF A$ = "f" AND P = 5 THEN CLOSE : ExeP5 = Exe: VieP5 = Vie: MaxP5 = Max: Nv1P5 = Nv1: Nv2P5 = Nv2: Nv3P5 = Nv3: RETURN IF A$ = "f" AND P = 6 THEN CLOSE : ExeP6 = Exe: VieP6 = Vie: MaxP6 = Max: Nv1P6 = Nv1: Nv2P6 = Nv2: Nv3P6 = Nv3: RETURN COLOR 15 IF ViePok < 0 THEN ViePok = 0 LOCATE 10, 2: PRINT "Vie de Sacha :"; Vie; "/"; Max LOCATE 11, 2: PRINT "Vie du pok‚ro :"; ViePok; "/"; ViePokMax IF ViePok = 0 THEN Exe = Exe + .1 IF Exe >= 100 THEN Exe = 0: Max = Max + INT(Max / 10): Vie = Max IF ViePok = 0 AND P = 1 THEN CLOSE : ExeP1 = Exe: VieP1 = Vie: MaxP1 = Max: Nv1P1 = Nv1: Nv2P1 = Nv2: Nv3P1 = Nv3: RETURN IF ViePok = 0 AND P = 2 THEN CLOSE : ExeP2 = Exe: VieP2 = Vie: MaxP2 = Max: Nv1P2 = Nv1: Nv2P2 = Nv2: Nv3P2 = Nv3: RETURN IF ViePok = 0 AND P = 3 THEN CLOSE : ExeP3 = Exe: VieP3 = Vie: MaxP3 = Max: Nv1P3 = Nv1: Nv2P3 = Nv2: Nv3P3 = Nv3: RETURN IF ViePok = 0 AND P = 4 THEN CLOSE : ExeP4 = Exe: VieP4 = Vie: MaxP4 = Max: Nv1P4 = Nv1: Nv2P4 = Nv2: Nv3P4 = Nv3: RETURN IF ViePok = 0 AND P = 5 THEN CLOSE : ExeP5 = Exe: VieP5 = Vie: MaxP5 = Max: Nv1P5 = Nv1: Nv2P5 = Nv2: Nv3P5 = Nv3: RETURN IF ViePok = 0 AND P = 6 THEN CLOSE : ExeP6 = Exe: VieP6 = Vie: MaxP6 = Max: Nv1P6 = Nv1: Nv2P6 = Nv2: Nv3P6 = Nv3: RETURN LOOP 9000003 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ- Pok‚ro 2 END 9999999 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ- L'ennemi attaque LOCATE 2, 2: PRINT Pokero$; " attaque : " LOCATE 4, 2 PRINT " " Attaque = INT(RND * 3) + 1 LOCATE 6, 2: PRINT " " LOCATE 7, 2: PRINT " " LOCATE 8, 2: PRINT " " IF Attaque = 1 AND Pokero$ = "Sangoku" THEN LOCATE 6, 2: PRINT "Attaque Kam‚ham‚ha ": Vie = Vie - INT(RND * 5) + 1 IF Attaque = 1 AND Pokero$ = "Gaston" THEN LOCATE 6, 2: PRINT "Attaque fum‚e noire ": Vie = Vie - 3 IF Attaque = 2 AND Pokero$ = "Sangoku" THEN LOCATE 6, 2: PRINT "Attaque bƒton magique ": Vie = Vie - 1 IF Attaque = 2 AND Pokero$ = "Gaston" THEN LOCATE 6, 2: PRINT "Attaque coup d'espadrille ": Vie = Vie - 2 IF Attaque = 3 AND Pokero$ = "Sangoku" THEN LOCATE 6, 2: PRINT "Attaque Boule universelle ": Vie = Vie - INT(RND * 10) + 1 IF Attaque = 3 AND Pokero$ = "Gaston" THEN LOCATE 6, 2: PRINT "Attaque sommeil ": Vie = Vie - 1 IF Vie < 0 THEN Vie = 0 LOCATE 10, 2: PRINT "Vie de Sacha :"; Vie; "/"; Max; " " LOCATE 11, 2: PRINT "Vie du pok‚ro :"; ViePok; "/"; ViePokMax; " " IF Vie = 0 THEN CLOSE : CALL Fin INPUT "", A$ A$ = "" LOOP SUB Erwan.1 '------------------------------ D‚cor LINE (0, 0)-(1000, 1000), 7, BF '------------------------------ Pieds LINE (225, 1000)-(225, 975), 6 LINE (225, 975)-(300, 950), 6 LINE (300, 950)-(350, 950), 6 LINE (350, 950)-(350, 1000), 6 LINE (350, 1000)-(225, 1000), 6 PAINT (300, 975), 6, 6 LINE (425, 1000)-(425, 950), 6 LINE (425, 950)-(475, 950), 6 LINE (475, 950)-(550, 975), 6 LINE (550, 975)-(550, 1000), 6 LINE (550, 1000)-(425, 1000), 6 PAINT (500, 975), 6, 6 '------------------------------ Pantalon LINE (250, 950)-(375, 650), 8, BF LINE (400, 950)-(525, 650), 8, BF LINE (375, 650)-(400, 650), 8 LINE (375, 700)-(400, 725), 8 PAINT (380, 680), 8, 8 LINE (375, 650)-(375, 1000), 7 '------------------------------ Chemise LINE (350, 300)-(425, 625), 4, BF '------------------------------ Ceinture LINE (350, 625)-(425, 650), 0, BF '------------------------------ Mains LINE (175, 625)-(225, 675), 12, BF LINE (550, 625)-(600, 675), 12, BF '------------------------------ Blouse LINE (225, 700)-(350, 325), 15, BF LINE (225, 700)-(350, 725), 15 LINE (350, 725)-(350, 700), 15 PAINT (345, 715), 15, 15 LINE (225, 325)-(350, 300), 15 LINE (350, 300)-(350, 325), 15 PAINT (340, 320), 15, 15 LINE (175, 375)-(225, 625), 15, BF LINE (175, 375)-(225, 325), 15 PAINT (190, 370), 15, 15 LINE (225, 700)-(225, 0), 7 LINE (225, 575)-(275, 675), 7, B LINE (350, 600)-(275, 450), 7 LINE (275, 450)-(300, 400), 7 LINE (300, 400)-(275, 350), 7 LINE (275, 350)-(350, 300), 7 LINE (425, 700)-(550, 325), 15, BF LINE (425, 700)-(425, 725), 15 LINE (425, 725)-(550, 700), 15 PAINT (430, 705), 15, 15 LINE (425, 325)-(425, 300), 15 LINE (425, 300)-(550, 325), 15 PAINT (430, 315), 15, 15 LINE (550, 375)-(600, 625), 15, BF LINE (600, 375)-(550, 325), 15 PAINT (555, 370), 15, 15 LINE (550, 300)-(550, 700), 7 LINE (500, 675)-(550, 575), 7, B LINE (425, 600)-(500, 450), 7 LINE (500, 450)-(475, 400), 7 LINE (475, 400)-(500, 350), 7 LINE (500, 350)-(425, 300), 7 '------------------------------ Cheuveux LINE (325, 200)-(300, 150), 0 LINE (300, 150)-(300, 125), 0 LINE (300, 125)-(325, 100), 0 LINE (325, 100)-(375, 75), 0 LINE (375, 75)-(400, 75), 0 LINE (400, 75)-(450, 100), 0 LINE (450, 100)-(475, 125), 0 LINE (475, 125)-(475, 150), 0 LINE (475, 150)-(450, 200), 0 LINE (450, 200)-(325, 200), 0 PAINT (400, 150), 0, 0 '------------------------------ Tˆte LINE (385, 350)-(350, 300), 12 LINE (350, 300)-(350, 250), 12 LINE (350, 250)-(325, 200), 12 LINE (325, 200)-(325, 150), 12 LINE (325, 150)-(350, 125), 12 LINE (350, 125)-(425, 125), 12 LINE (425, 125)-(450, 150), 12 LINE (450, 150)-(450, 200), 12 LINE (450, 200)-(425, 250), 12 LINE (425, 250)-(425, 300), 12 LINE (425, 300)-(385, 350), 12 PAINT (400, 200), 12, 12 LINE (350, 250)-(375, 275), 0 LINE (375, 275)-(400, 275), 0 LINE (400, 275)-(425, 250), 0 LINE (375, 175)-(400, 225), 0, B LINE (325, 150)-(350, 175), 0 LINE (350, 175)-(425, 175), 0 LINE (425, 175)-(450, 150), 0 CIRCLE (350, 175), 15, 1 PAINT (350, 175), 11, 1 CIRCLE (350, 175), 15, 0 PSET (350, 175), 0 CIRCLE (425, 175), 15, 1 PAINT (425, 175), 11, 1 CIRCLE (425, 175), 15, 0 PSET (425, 175), 0 LINE (375, 250)-(400, 250), 0 '------------------------------ Col de chemise LINE (350, 300)-(325, 325), 0 LINE (325, 325)-(385, 350), 0 LINE (385, 350)-(350, 300), 0 PAINT (350, 325), 4, 0 LINE (425, 300)-(450, 325), 0 LINE (450, 325)-(385, 350), 0 LINE (385, 350)-(425, 300), 0 PAINT (425, 325), 4, 0 END SUB SUB Fin END END SUB SUB Gaston (A, B) END SUB SUB Heros.1 (A, B) LINE (A + 5, B + 35)-(A + 10, B + 60), 12, BF LINE (A + 40, B + 35)-(A + 45, B + 60), 12, BF LINE (A + 5, B + 60)-(A + 10, B + 65), 2, BF LINE (A + 40, B + 60)-(A + 45, B + 65), 2, BF LINE (A + 5, B + 25)-(A + 10, B + 35), 15, BF LINE (A + 40, B + 25)-(A + 45, B + 35), 15, BF LINE (A + 20, B + 60)-(A + 30, B + 25), 2, BF LINE (A + 10, B + 90)-(A + 40, B + 60), 9, BF LINE (A + 10, B + 100)-(A + 40, B + 90), 15, BF LINE (A + 10, B + 60)-(A + 20, B + 25), 1, BF LINE (A + 30, B + 60)-(A + 40, B + 25), 1, BF LINE (A + 25, B + 100)-(A + 25, B + 65), 0 LINE (A + 15, B)-(A + 35, B + 5), 15, BF LINE (A + 15, B + 10)-(A + 35, B + 5), 4, BF LINE (A + 20, B + 25)-(A + 30, B + 20), 12, BF LINE (A + 15, B + 20)-(A + 35, B + 10), 12, BF LINE (A + 22, B + 17)-(A + 27, B + 17), 0 PSET (A + 20, B + 12), 0 PSET (A + 30, B + 12), 0 END SUB SUB Heros.2 (A, B) LINE (A + 25, B + 10)-(A + 35, B + 5), 4, BF LINE (A + 5, B + 10)-(A + 25, B), 15, BF LINE (A + 10, B + 20)-(A + 20, B + 25), 12, BF LINE (A + 10, B + 10)-(A + 25, B + 20), 12, BF LINE (A + 5, B + 10)-(A + 10, B + 20), 0, BF LINE (A + 10, B + 90)-(A + 25, B + 60), 9, BF LINE (A + 10, B + 90)-(A + 30, B + 100), 15, BF LINE (A + 5, B + 60)-(A + 30, B + 25), 1, BF LINE (A + 15, B + 25)-(A + 20, B + 35), 15, BF LINE (A + 15, B + 35)-(A + 20, B + 60), 12, BF LINE (A + 15, B + 60)-(A + 20, B + 65), 2, BF LINE (A + 20, B + 17)-(A + 25, B + 17), 0 PSET (A + 22, B + 12), 0 END SUB SUB Heros.3 (A, B) LINE (A + 5, B + 35)-(A + 10, B + 60), 12, BF LINE (A + 40, B + 35)-(A + 45, B + 60), 12, BF LINE (A + 5, B + 60)-(A + 10, B + 65), 2, BF LINE (A + 40, B + 60)-(A + 45, B + 65), 2, BF LINE (A + 5, B + 25)-(A + 10, B + 35), 15, BF LINE (A + 40, B + 25)-(A + 45, B + 35), 15, BF LINE (A + 10, B + 90)-(A + 40, B + 60), 9, BF LINE (A + 10, B + 100)-(A + 40, B + 90), 15, BF LINE (A + 10, B + 60)-(A + 40, B + 25), 1, BF LINE (A + 25, B + 100)-(A + 25, B + 65), 0 LINE (A + 15, B)-(A + 35, B + 5), 15, BF LINE (A + 20, B + 25)-(A + 30, B + 20), 12, BF LINE (A + 15, B + 20)-(A + 35, B + 10), 0, BF END SUB SUB Heros.4 (A, B) LINE (A, B + 10)-(A + 15, B + 5), 4, BF LINE (A + 10, B + 10)-(A + 30, B), 15, BF LINE (A + 10, B + 20)-(A + 20, B + 25), 12, BF LINE (A + 10, B + 10)-(A + 25, B + 20), 12, BF LINE (A + 25, B + 10)-(A + 30, B + 20), 0, BF LINE (A + 10, B + 90)-(A + 25, B + 60), 9, BF LINE (A + 5, B + 90)-(A + 25, B + 100), 15, BF LINE (A + 5, B + 60)-(A + 30, B + 25), 1, BF LINE (A + 15, B + 25)-(A + 20, B + 35), 15, BF LINE (A + 15, B + 35)-(A + 20, B + 60), 12, BF LINE (A + 15, B + 60)-(A + 20, B + 65), 2, BF LINE (A + 10, B + 17)-(A + 15, B + 17), 0 PSET (A + 12, B + 12), 0 END SUB SUB Heros.5 END SUB SUB Maison.1 LINE (0, 0)-(1000, 1000), 0, BF LINE (50, 400)-(950, 800), 8, BF LINE (50, 400)-(950, 250), 7, BF LINE (450, 800)-(550, 825), 8, BF LINE (650, 250)-(750, 350), 0, BF LINE (650, 350)-(750, 400), 8, BF LINE (650, 350)-(750, 400), 0, B FOR I = 400 TO 350 STEP -10 LINE (650, I)-(750, I), 0 NEXT I END SUB SUB Maison.1.2 LINE (50, 400)-(400, 800), 8, BF LINE (450, 400)-(950, 800), 8, BF LINE (400, 550)-(450, 800), 8, BF END SUB SUB Musique.1 (Mu) Mu = Mu + 1 IF Mu = 1 THEN PLAY "T255 L6 O2" IF Mu = 2 THEN Mu = 0 END SUB SUB Persos.1 (C, D) LINE (C + 10, D)-(C + 35, D + 20), 14, BF LINE (C + 10, D + 5)-(C + 15, D), 8 PAINT (C + 11, D + 1), 8, 8 LINE (C + 35, D + 5)-(C + 30, D), 8 PAINT (C + 33, D + 2), 8, 8 LINE (C, D + 95)-(C + 50, D + 95), 5 LINE (C + 50, D + 95)-(C + 40, D + 55), 5 LINE (C + 40, D + 55)-(C + 40, D + 50), 5 LINE (C + 40, D + 50)-(C + 45, D + 50), 5 LINE (C + 45, D + 50)-(C + 45, D + 25), 5 LINE (C + 45, D + 25)-(C + 40, D + 20), 5 LINE (C + 40, D + 20)-(C + 10, D + 20), 5 LINE (C + 10, D + 20)-(C + 5, D + 25), 5 LINE (C + 5, D + 25)-(C + 5, D + 50), 5 LINE (C + 5, D + 50)-(C + 10, D + 50), 5 LINE (C + 10, D + 50)-(C + 10, D + 55), 5 LINE (C + 10, D + 55)-(C, D + 95), 5 PAINT (C + 25, D + 80), 5, 5 LINE (C + 10, D + 90)-(C + 40, D + 100), 6, BF LINE (C + 25, D + 90)-(C + 25, D + 100), 8 LINE (C + 10, D + 50)-(C + 40, D + 55), 0, BF LINE (C + 5, D + 50)-(C + 10, D + 55), 12, BF LINE (C + 40, D + 50)-(C + 45, D + 55), 12, BF LINE (C + 10, D + 30)-(C + 10, D + 55), 8 LINE (C + 40, D + 30)-(C + 40, D + 55), 8 CIRCLE (C + 17, D + 32), 6, 8 CIRCLE (C + 32, D + 32), 6, 8 LINE (C + 17, D + 25)-(C + 32, D + 30), 5, BF LINE (C + 20, D + 20)-(C + 25, D + 15), 12, BF LINE (C + 15, D + 15)-(C + 30, D + 5), 12, BF LINE (C + 20, D + 13)-(C + 25, D + 13), 0 CIRCLE (C + 20, D + 7.5), 2, 0 CIRCLE (C + 25, D + 7.5), 2, 0 END SUB SUB Persos.2 (C, D) END SUB SUB Persos.3 (C, D) END SUB SUB Pikaned.1 LINE (0, 0)-(1000, 1000), 0, BF LINE (650, 600)-(800, 450), 8 LINE (800, 450)-(800, 400), 8 LINE (800, 400)-(750, 350), 8 LINE (750, 350)-(700, 350), 8 LINE (700, 350)-(600, 450), 8 LINE (600, 450)-(650, 600), 8 PAINT (700, 500), 8, 8 LINE (650, 550)-(775, 425), 7 LINE (775, 425)-(725, 375), 7 LINE (725, 375)-(700, 375), 7 LINE (700, 375)-(600, 475), 7 LINE (600, 475)-(650, 550), 7 PAINT (650, 500), 7, 7 LINE (200, 800)-(300, 800), 14 LINE (300, 800)-(350, 750), 14 LINE (350, 750)-(550, 750), 14 LINE (550, 750)-(600, 800), 14 LINE (600, 800)-(700, 800), 14 LINE (700, 800)-(700, 750), 14 LINE (700, 750)-(600, 700), 14 LINE (600, 750)-(650, 650), 14 LINE (650, 650)-(650, 550), 14 LINE (650, 550)-(600, 450), 14 LINE (600, 450)-(550, 400), 14 LINE (550, 400)-(350, 400), 14 LINE (350, 400)-(300, 450), 14 LINE (300, 450)-(250, 550), 14 LINE (250, 550)-(250, 650), 14 LINE (250, 650)-(300, 750), 14 LINE (300, 700)-(200, 750), 14 LINE (200, 750)-(200, 800), 14 PAINT (500, 500), 14, 14 LINE (300, 350)-(350, 300), 14 LINE (350, 300)-(350, 250), 14 LINE (350, 250)-(400, 200), 14 LINE (400, 200)-(500, 200), 14 LINE (500, 200)-(550, 250), 14 LINE (550, 250)-(550, 300), 14 LINE (550, 300)-(600, 350), 14 LINE (600, 350)-(550, 400), 14 LINE (550, 400)-(350, 400), 14 LINE (350, 400)-(300, 350), 14 PAINT (500, 300), 14, 14 LINE (300, 350)-(350, 400), 15 LINE (350, 400)-(550, 400), 15 LINE (550, 400)-(600, 350), 15 LINE (600, 350)-(600, 400), 15 LINE (600, 400)-(550, 450), 15 LINE (550, 450)-(350, 450), 15 LINE (350, 450)-(300, 400), 15 LINE (300, 400)-(300, 350), 15 PAINT (500, 425), 15, 15 LINE (350, 250)-(400, 300), 15, BF LINE (500, 250)-(550, 300), 15, BF CIRCLE (375, 275), 10, 0 PAINT (375, 275), 0, 0 CIRCLE (525, 275), 10, 0 PAINT (525, 275), 0, 0 CIRCLE (400, 350), 3, 0 PAINT (400, 350), 0, 0 CIRCLE (500, 350), 3, 0 PAINT (500, 350), 0, 0 LINE (300, 500)-(350, 600), 0 LINE (350, 600)-(350, 650), 0 LINE (350, 650)-(400, 650), 0 LINE (400, 650)-(400, 600), 0 LINE (400, 600)-(350, 500), 0 LINE (500, 500)-(550, 600), 0 LINE (550, 600)-(550, 650), 0 LINE (550, 650)-(600, 650), 0 LINE (600, 650)-(600, 600), 0 LINE (600, 600)-(550, 500), 0 LINE (400, 200)-(300, 100), 14 LINE (300, 100)-(250, 100), 14 LINE (250, 100)-(250, 75), 14 LINE (250, 75)-(300, 75), 14 LINE (300, 75)-(425, 200), 14 PAINT (275, 80), 14, 14 CIRCLE (250, 100), 35, 6 PAINT (250, 100), 6, 6 END SUB SUB Pokecube.1 LINE (0, 0)-(1000, 1000), 1, BF LINE (300, 200)-(550, 300), 4, BF LINE (300, 300)-(550, 350), 0, BF LINE (300, 350)-(550, 450), 15, BF LINE (550, 200)-(650, 300), 4 LINE (650, 300)-(650, 400), 4 LINE (650, 400)-(550, 300), 4 LINE (550, 300)-(550, 200), 4 PAINT (600, 300), 4, 4 LINE (550, 300)-(650, 400), 0 LINE (650, 400)-(650, 450), 0 LINE (650, 450)-(550, 350), 0 PAINT (600, 395), 0, 0 LINE (550, 350)-(650, 450), 15 LINE (650, 450)-(650, 550), 15 LINE (650, 550)-(550, 450), 15 LINE (550, 450)-(550, 350), 15 PAINT (600, 450), 15, 15 LINE (300, 450)-(550, 450), 7 LINE (550, 450)-(650, 550), 7 LINE (650, 550)-(400, 550), 7 LINE (400, 550)-(300, 450), 7 PAINT (400, 500), 7, 7 CIRCLE (425, 325), 30, 8 PAINT (425, 325), 8, 8 CIRCLE (425, 325), 30, 0 PAINT (425, 325), 0, 0 CIRCLE (425, 325), 10, 15 PAINT (425, 325), 15, 15 END SUB SUB Pokedex.1 LINE (0, 0)-(1000, 1000), 1, BF LINE (100, 150)-(700, 950), 0, BF LINE (100, 150)-(200, 50), 0 LINE (200, 50)-(200, 150), 0 PAINT (150, 145), 0, 0 LINE (700, 950)-(800, 850), 0 LINE (800, 850)-(700, 850), 0 PAINT (705, 860), 0, 0 LINE (200, 50)-(800, 850), 4, BF CIRCLE (350, 200), 100, 14 PAINT (350, 200), 14, 14 CIRCLE (350, 200), 80, 9 PAINT (350, 200), 9, 9 CIRCLE (550, 150), 20, 0 PAINT (550, 150), 0, 0 LINE (200, 350)-(450, 350), 0 LINE (450, 350)-(550, 300), 0 LINE (550, 300)-(800, 300), 0 LINE (250, 500)-(300, 550), 14 LINE (300, 550)-(250, 600), 14 LINE (250, 600)-(250, 500), 14 PAINT (255, 550), 14, 14 LINE (300, 775)-(700, 800), 0, B END SUB SUB Presentation.1 PAINT (0, 0), 127 '------------------------------ P LINE (150, 100)-(175, 75), 177 LINE (175, 75)-(225, 50), 177 LINE (225, 50)-(275, 50), 177 LINE (275, 50)-(325, 75), 177 LINE (325, 75)-(350, 125), 177 LINE (350, 125)-(350, 150), 177 LINE (350, 150)-(300, 175), 177 LINE (300, 175)-(325, 275), 177 LINE (325, 275)-(275, 300), 177 LINE (275, 300)-(200, 150), 177 LINE (200, 150)-(175, 150), 177 LINE (175, 150)-(150, 100), 177 LINE (250, 100)-(275, 100), 177 LINE (275, 100)-(300, 125), 177 LINE (300, 125)-(275, 150), 177 LINE (275, 150)-(250, 100), 177 PAINT (200, 100), 43, 177 '------------------------------ k LINE (375, 150)-(400, 100), 178 LINE (400, 100)-(450, 100), 178 LINE (450, 100)-(450, 125), 178 LINE (450, 125)-(475, 100), 178 LINE (475, 100)-(525, 150), 178 LINE (525, 150)-(475, 175), 178 LINE (475, 175)-(550, 225), 178 LINE (550, 225)-(550, 275), 178 LINE (550, 275)-(475, 225), 178 LINE (475, 225)-(475, 250), 178 LINE (475, 250)-(425, 275), 178 LINE (425, 275)-(400, 150), 178 LINE (400, 150)-(375, 150), 178 PAINT (450, 200), 43, 178 '------------------------------ o CIRCLE (375, 225), 50, 177 PAINT (375, 225), 43, 177 FOR I = 1 TO 10 STEP .5 CIRCLE (376 + I, 213 - I), 12, 177, 2, 6 NEXT I '------------------------------ ‚ CIRCLE (575, 175), 75, 177 LINE (650, 175)-(600, 150), 177 LINE (575, 175)-(650, 100), 177 LINE (550, 150)-(550, 125), 177 LINE (550, 125)-(575, 125), 177 LINE (575, 125)-(550, 150), 177 PAINT (575, 150), 43, 177 LINE (525, 50)-(575, 25), 177 LINE (575, 25)-(600, 50), 177 LINE (600, 50)-(550, 75), 177 LINE (550, 75)-(525, 50), 177 PAINT (550, 50), 43, 177 '------------------------------ r LINE (625, 275)-(625, 100), 176 LINE (625, 100)-(675, 75), 176 LINE (675, 75)-(675, 100), 176 LINE (675, 100)-(700, 75), 176 LINE (700, 75)-(725, 75), 176 LINE (725, 75)-(750, 100), 176 LINE (750, 100)-(700, 150), 176 LINE (700, 150)-(675, 125), 176 LINE (675, 125)-(650, 125), 176 LINE (650, 125)-(675, 250), 176 LINE (675, 250)-(625, 275), 176 PAINT (650, 225), 43, 176 '------------------------------ o CIRCLE (725, 225), 50, 177 PAINT (725, 225), 43, 177 FOR I = 1 TO 10 STEP .5 CIRCLE (726 + I, 213 - I), 12, 177, 2, 6 NEXT I '------------------------------ Nintendo CIRCLE (800, 875), 20, 4 PAINT (800, 875), 15, 4 CIRCLE (950, 875), 20, 4 PAINT (950, 875), 15, 4 LINE (800, 850)-(950, 900), 15, BF LINE (800, 850)-(950, 900), 4, B PAINT (900, 875), 15, 4 LINE (800, 852)-(800, 896), 15 LINE (950, 852)-(950, 896), 15 LINE (810, 860)-(810, 890), 4 LINE (810, 860)-(825, 890), 4 LINE (825, 890)-(825, 860), 4 LINE (830, 890)-(835, 875), 4 LINE (835, 875)-(840, 890), 4 LINE (830, 885)-(840, 885), 4 LINE (850, 890)-(850, 875), 4 PSET (850, 865), 4 LINE (860, 890)-(860, 875), 4 LINE (860, 875)-(870, 890), 4 LINE (870, 890)-(870, 875), 4 LINE (880, 875)-(890, 875), 4 LINE (885, 875)-(885, 890), 4 LINE (905, 875)-(895, 875), 4 LINE (895, 880)-(900, 880), 4 LINE (895, 890)-(905, 890), 4 LINE (895, 875)-(895, 890), 4 LINE (910, 890)-(910, 875), 4 LINE (910, 875)-(920, 890), 4 LINE (920, 890)-(920, 875), 4 LINE (925, 890)-(925, 875), 4 LINE (925, 875)-(935, 880), 4 LINE (935, 880)-(935, 885), 4 LINE (935, 885)-(930, 890), 4 LINE (930, 890)-(925, 890), 4 CIRCLE (943, 882), 5, 4 PSET (950, 865), 4 END SUB SUB Route.1 LINE (0, 0)-(750, 1000), 10, BF LINE (750, 0)-(900, 1000), 8, BF LINE (900, 0)-(1000, 1000), 10, BF END SUB SUB Sacha.1 '------------------------------ Chemin LINE (0, 0)-(1000, 1000), 10, BF LINE (427.5, 0)-(100, 1000), 6 LINE (427.5, 0)-(775, 1000), 6 PAINT (500, 900), 6 '------------------------------ Pantalon LINE (275, 750)-(250, 650), 9 LINE (250, 650)-(250, 525), 9 LINE (250, 525)-(300, 525), 9 LINE (300, 525)-(300, 450), 9 LINE (300, 450)-(500, 450), 9 LINE (500, 450)-(500, 525), 9 LINE (500, 525)-(550, 525), 9 LINE (550, 525)-(550, 650), 9 LINE (550, 650)-(525, 750), 9 LINE (525, 750)-(450, 750), 9 LINE (450, 750)-(425, 650), 9 LINE (425, 650)-(425, 550), 9 LINE (425, 550)-(375, 550), 9 LINE (375, 550)-(375, 650), 9 LINE (375, 650)-(350, 750), 9 LINE (350, 750)-(275, 750), 9 PAINT (300, 600), 9 LINE (375, 450)-(375, 550), 3 LINE (400, 450)-(400, 550), 3 '------------------------------ Ourlets LINE (270, 750)-(355, 800), 11, BF LINE (445, 750)-(530, 800), 11, BF '------------------------------ Chaussures LINE (275, 825)-(275, 800), 7 LINE (275, 800)-(300, 775), 7 LINE (300, 775)-(325, 775), 7 LINE (325, 775)-(350, 800), 7 LINE (350, 800)-(350, 825), 7 LINE (350, 825)-(275, 825), 7 PAINT (325, 805), 7 LINE (300, 775)-(325, 800), 0, BF LINE (450, 825)-(450, 800), 7 LINE (450, 800)-(475, 775), 7 LINE (475, 775)-(500, 775), 7 LINE (500, 775)-(525, 800), 7 LINE (525, 800)-(525, 825), 7 LINE (525, 825)-(450, 825), 7 PAINT (500, 805), 7 LINE (475, 775)-(500, 800), 0, BF '------------------------------ Ceinture LINE (300, 425)-(500, 450), 8, BF LINE (375, 425)-(400, 450), 0, BF '------------------------------ T-Shirt LINE (300, 225)-(475, 425), 2, BF LINE (325, 200)-(450, 225), 2, BF LINE (450, 400)-(500, 425), 2, BF '------------------------------ Bras LINE (185, 325)-(250, 500), 12, BF LINE (175, 575)-(250, 600), 12, BF LINE (540, 325)-(590, 425), 12, BF LINE (550, 375)-(575, 375), 0 LINE (550, 375)-(575, 350), 0 '------------------------------ Gants LINE (175, 500)-(250, 525), 10, BF LINE (175, 525)-(225, 525), 2 LINE (225, 525)-(250, 550), 2 LINE (250, 550)-(250, 575), 2 LINE (250, 575)-(175, 575), 2 LINE (175, 575)-(175, 525), 2 PAINT (200, 550), 2, 2 LINE (175, 500)-(250, 525), 0, B '------------------------------ Int‚rieur de la veste LINE (250, 225)-(350, 200), 15 LINE (350, 200)-(325, 250), 15 LINE (325, 250)-(250, 225), 15 PAINT (300, 225), 15, 15 LINE (425, 200)-(525, 225), 15 LINE (525, 225)-(450, 250), 15 LINE (450, 250)-(425, 200), 15 PAINT (455, 225), 15, 15 LINE (525, 225)-(575, 275), 15 LINE (575, 275)-(600, 325), 15 LINE (600, 325)-(525, 325), 15 LINE (525, 325)-(525, 225), 15 PAINT (550, 275), 15, 15 LINE (250, 225)-(200, 275), 15 LINE (200, 275)-(175, 325), 15 LINE (175, 325)-(250, 325), 15 LINE (250, 325)-(250, 225), 15 PAINT (200, 300), 15, 15 '------------------------------ Veste LINE (225, 525)-(250, 225), 1 LINE (250, 225)-(325, 250), 1 LINE (325, 250)-(300, 525), 1 LINE (300, 525)-(225, 525), 1 PAINT (250, 400), 1, 1 LINE (325, 250)-(350, 275), 1, BF CIRCLE (335, 265), 5, 14 PAINT (335, 265), 14, 14 LINE (500, 525)-(450, 250), 1 LINE (450, 250)-(525, 225), 1 LINE (525, 225)-(575, 525), 1 LINE (575, 525)-(500, 525), 1 PAINT (550, 400), 1, 1 LINE (430, 250)-(455, 275), 1, BF CIRCLE (440, 265), 5, 14 PAINT (440, 265), 14, 14 '------------------------------ Poches de la veste LINE (250, 400)-(300, 375), 14 LINE (300, 375)-(300, 390), 14 LINE (300, 390)-(250, 415), 14 LINE (250, 415)-(250, 400), 14 PAINT (252, 402), 14, 14 LINE (485, 375)-(535, 400), 14 LINE (535, 400)-(535, 415), 14 LINE (535, 415)-(485, 390), 14 LINE (485, 390)-(485, 375), 14 PAINT (487, 379), 14, 14 '------------------------------ Cheuveux LINE (300, 125)-(250, 125), 0 LINE (250, 125)-(275, 100), 0 LINE (275, 100)-(250, 75), 0 LINE (250, 75)-(300, 100), 0 LINE (300, 100)-(300, 125), 0 PAINT (295, 115), 0, 0 LINE (475, 125)-(525, 125), 0 LINE (525, 125)-(500, 100), 0 LINE (500, 100)-(525, 75), 0 LINE (525, 75)-(475, 100), 0 LINE (475, 100)-(475, 125), 0 PAINT (480, 115), 0, 0 '------------------------------ Tˆte LINE (350, 225)-(375, 235), 12 LINE (375, 235)-(400, 235), 12 LINE (400, 235)-(425, 225), 12 LINE (425, 225)-(425, 175), 12 LINE (425, 175)-(475, 150), 12 LINE (475, 150)-(475, 100), 12 LINE (475, 100)-(300, 100), 12 LINE (300, 100)-(300, 150), 12 LINE (300, 150)-(350, 175), 12 LINE (350, 175)-(350, 225), 12 PAINT (400, 150), 12, 12 LINE (350, 175)-(425, 175), 4 LINE (375, 150)-(400, 150), 0 LINE (375, 130)-(390, 130), 0 LINE (375, 130)-(382.5, 125), 0 LINE (325, 125)-(375, 100), 0 LINE (400, 100)-(450, 125), 0 CIRCLE (350, 125), 7, 0 PAINT (350, 125), 15, 0 PSET (350, 125), 0 CIRCLE (425, 125), 7, 0 PAINT (425, 125), 15, 0 PSET (425, 125), 0 '------------------------------ Casquette LINE (325, 100)-(325, 50), 15 LINE (325, 50)-(350, 25), 15 LINE (350, 25)-(425, 25), 15 LINE (425, 25)-(450, 50), 15 LINE (450, 50)-(450, 100), 15 LINE (450, 100)-(325, 100), 15 PAINT (400, 50), 15, 15 LINE (400, 50)-(375, 50), 2 LINE (375, 50)-(392.5, 32.5), 2 LINE (392.5, 32.5)-(400, 35), 2 '------------------------------ VisiŠre de la casquette LINE (300, 100)-(350, 75), 4 LINE (350, 75)-(425, 75), 4 LINE (425, 75)-(475, 100), 4 LINE (475, 100)-(300, 100), 4 PAINT (400, 80), 4, 4 END SUB SUB Sangoku (C, D) LINE (C, D + 300)-(C + 500, D + 500), 4, BF LINE (C + 75, D + 325)-(C + 425, D + 325), 1 LINE (C + 425, D + 325)-(C + 237.5, D + 500), 1 LINE (C + 237.5, D + 500)-(C + 75, D + 325), 1 PAINT (C + 200, D + 450), 1, 1 LINE (C + 75, D + 325)-(C + 125, D + 375), 12 LINE (C + 125, B + 375)-(C + 200, D + 400), 12 LINE (C + 200, D + 400)-(C + 300, D + 400), 12 LINE (C + 300, D + 400)-(C + 375, D + 375), 12 LINE (C + 375, D + 375)-(C + 425, D + 325), 12 LINE (C + 425, D + 325)-(C + 375, D + 200), 12 LINE (C + 375, D + 200)-(C + 400, D + 225), 12 LINE (C + 400, D + 225)-(C + 400, D + 150), 12 LINE (C + 400, D + 150)-(C + 375, D + 175), 12 LINE (C + 375, D + 175)-(C + 375, D + 125), 12 LINE (C + 375, D + 125)-(C + 350, D + 100), 12 LINE (C + 350, D + 100)-(C + 150, D + 100), 12 LINE (C + 150, D + 100)-(C + 125, D + 125), 12 LINE (C + 125, D + 125)-(C + 125, D + 175), 12 LINE (C + 125, D + 175)-(C + 100, D + 150), 12 LINE (C + 100, D + 150)-(C + 100, D + 225), 12 LINE (C + 100, D + 225)-(C + 125, D + 200), 12 LINE (C + 125, D + 200)-(C + 75, D + 325), 12 PAINT (C + 200, D + 200), 12, 12 LINE (C + 125, D + 350)-(C + 225, D + 350), 0 LINE (C + 225, D + 350)-(C + 237.5, D + 375), 0 LINE (C + 237.5, D + 375)-(C + 237.5, D + 400), 0 LINE (C + 237.5, D + 375)-(C + 250, D + 350), 0 LINE (C + 250, D + 350)-(C + 350, D + 350), 0 LINE (C + 125, D + 200)-(C + 150, D + 300), 0 LINE (C + 150, D + 300)-(C + 225, D + 325), 0 LINE (C + 225, D + 325)-(C + 275, D + 325), 0 LINE (C + 275, D + 325)-(C + 350, D + 300), 0 LINE (C + 350, D + 300)-(C + 375, D + 200), 0 LINE (C + 100, D + 150)-(C + 150, D + 200), 0 LINE (C + 150, D + 200)-(C + 125, D + 150), 0 LINE (C + 150, D + 100)-(C + 175, D + 150), 0 LINE (C + 175, D + 150)-(C + 175, D + 100), 0 END SUB SUB Ville.1 LINE (0, 0)-(1000, 1000), 10, BF LINE (0, 450)-(1000, 600), 8, BF LINE (750, 600)-(900, 1000), 8, BF LINE (0, 450)-(200, 200), 7, BF LINE (-50, 200)-(50, 100), 7 LINE (50, 100)-(100, 100), 7 LINE (100, 100)-(200, 200), 7 PAINT (100, 180), 7, 7 LINE (-50, 200)-(50, 50), 7 LINE (50, 50)-(100, 50), 7 LINE (100, 50)-(200, 200), 7 PAINT (100, 90), 4, 7 LINE (-50, 200)-(50, 50), 4 LINE (50, 50)-(100, 50), 4 LINE (100, 50)-(200, 200), 4 LINE (0, 350)-(150, 450), 0, BF LINE (75, 350)-(75, 450), 7 LINE (350, 300)-(700, 450), 7, BF LINE (350, 300)-(500, 250), 7 LINE (500, 250)-(550, 250), 7 LINE (550, 250)-(700, 300), 7 PAINT (550, 275), 7, 7 LINE (350, 350)-(300, 300), 7 LINE (300, 300)-(300, 250), 7 LINE (300, 250)-(450, 150), 7 LINE (450, 150)-(500, 150), 7 LINE (500, 150)-(550, 150), 7 LINE (550, 150)-(750, 250), 7 LINE (750, 250)-(750, 300), 7 LINE (750, 300)-(700, 350), 7 PAINT (550, 200), 4, 7 LINE (350, 350)-(300, 300), 4 LINE (300, 300)-(300, 250), 4 LINE (300, 250)-(450, 150), 4 LINE (450, 150)-(500, 150), 4 LINE (500, 150)-(550, 150), 4 LINE (550, 150)-(750, 250), 4 LINE (750, 250)-(750, 300), 4 LINE (750, 300)-(700, 350), 4 LINE (500, 450)-(550, 350), 0, BF LINE (850, 450)-(1000, 300), 7, BF LINE (850, 300)-(950, 250), 7 LINE (950, 250)-(1000, 250), 7 PAINT (980, 290), 7, 7 LINE (850, 350)-(800, 300), 7 LINE (800, 300)-(800, 250), 7 LINE (800, 250)-(950, 200), 7 LINE (950, 200)-(1000, 200), 7 PAINT (980, 220), 4, 7 LINE (850, 350)-(800, 300), 4 LINE (800, 300)-(800, 250), 4 LINE (800, 250)-(950, 200), 4 LINE (950, 200)-(1000, 200), 4 LINE (950, 450)-(1000, 350), 0, BF LINE (900, 300)-(925, 350), 0, B LINE (900, 300)-(925, 350), 0 PAINT (905, 345), 0, 0 PAINT (920, 305), 14, 0 LINE (400, 800)-(650, 900), 7, BF LINE (400, 800)-(350, 750), 4 LINE (350, 750)-(350, 700), 4 LINE (350, 700)-(500, 650), 4 LINE (500, 650)-(550, 650), 4 LINE (550, 650)-(700, 700), 4 LINE (700, 700)-(700, 750), 4 LINE (700, 750)-(650, 800), 4 LINE (650, 800)-(400, 800), 4 PAINT (500, 700), 4, 4 LINE (75, 900)-(100, 800), 6, BF CIRCLE (87.5, 800), 40, 2 PAINT (87.5, 800), 2, 2 LINE (225, 900)-(250, 800), 6, BF CIRCLE (237.5, 800), 40, 2 PAINT (237.5, 800), 2, 2 END SUB SUB Ville.1.2 LINE (0, 450)-(1000, 600), 8, BF LINE (750, 600)-(900, 1000), 8, BF END SUB SUB Ville.2 LINE (0, 0)-(1000, 1000), 10, BF LINE (0, 450)-(1000, 600), 8, BF LINE (0, 600)-(150, 1000), 8, BF LINE (100, 450)-(350, 300), 7, BF LINE (100, 300)-(200, 250), 7 LINE (200, 250)-(250, 250), 7 LINE (250, 250)-(350, 300), 7 PAINT (200, 290), 7, 7 LINE (100, 350)-(50, 300), 7 LINE (50, 300)-(50, 250), 7 LINE (50, 250)-(150, 200), 7 LINE (150, 200)-(300, 200), 7 LINE (300, 200)-(400, 250), 7 LINE (400, 250)-(400, 300), 7 LINE (400, 300)-(350, 350), 7 PAINT (200, 220), 4, 7 LINE (100, 350)-(50, 300), 4 LINE (50, 300)-(50, 250), 4 LINE (50, 250)-(150, 200), 4 LINE (150, 200)-(300, 200), 4 LINE (300, 200)-(400, 250), 4 LINE (400, 250)-(400, 300), 4 LINE (400, 300)-(350, 350), 4 LINE (200, 450)-(250, 350), 0, BF LINE (150, 350)-(175, 300), 0, B LINE (150, 350)-(175, 300), 0 PAINT (155, 345), 0, 0 PAINT (170, 305), 14, 0 LINE (600, 450)-(750, 100), 7, BF LINE (650, 450)-(700, 350), 0, BF LINE (600, 100)-(500, 0), 7 LINE (500, 0)-(850, 0), 7 LINE (850, 0)-(750, 100), 7 PAINT (700, 50), 7, 7 END SUB SUB Ville.2.2 LINE (0, 450)-(1000, 600), 8, BF LINE (0, 600)-(150, 1000), 8, BF END SUB