10 DIM KA%(8),KB%(8),KC%(8),OB$(9),OB%(9,8) 30 DIM SO%(13),EQ%(5),ENC%(2),WIZ%(21) 80 DIM OP%(15),OP$(15),OQ$(15) 90 DIM AEQ%(15,3),EQ$(55) 100 CO% = 0 120 DIM UT%(3) 130 FOR I = 1 TO 15: FOR J = 1 TO 15:OQ$(I) = OQ$(I) + " ": NEXT J:OP$(I) = OQ$(I): NEXT I 200 FOR I = 1 TO 55: READ EQ$(I): NEXT I 210 CALL 16408:A = USR (1):A = USR (3): & SET0: & WINDOW24,16,8,24: HOME 220 GOSUB 40000:V% = 0: GOSUB 40100 1500 REM FONCTIONS 1510 DEF FN S(X) = RND (1) * X * (X + 5) 1520 DEF FN EQ(X) = (X = EQ%(1)) OR (X = EQ%(2)) OR (X = EQ%(3)) OR (X = EQ%(4)) 1580 DEF FN IDP(X) = 0.5 * (X + ABS (X)) 1630 DEF FN PR(X) = OB%(EQ%(1),5) + WIZ%(8) 1660 DEF FN PM(X) = INT ( FN IDP(X * (10 + 2 * (X - SO%(1)) + ENC%(2) - OB%(EQ%(4),8) * (OB%(EQ%(4),7) = SO%(6))) * 0.1)) 1680 DEF FN OB(X) = TAC%(10) + INT ( RND (1) * (TAC%(11) - TAC%(10) + 1)) 1710 DEF FN TY(X) = (X > 127) + (X > 138) + (X > 148) + (X > 150) + (X > 158) + (X > 170) + (X > 185) + (X > = 0) 1720 DEF FN CAR(X) = X - FN IDP(X - 99) + FN IDP( - 99 - X) 1730 DEF FN CM(X) = VAL ( MID$ ("222200434222212",X,1)) 1740 DEF FN CN(X) = ( FN CM(X) * KA%(1) + (4 - FN CM(X)) * KA%(2)) * 0.25 1900 GOTO 4000 2000 B$ = "" 2010 GET C$ 2020 IF ASC (C$) = 13 THEN RETURN 2025 IF ASC (C$) = 8 AND LEN (B$) > 0 THEN 2080 2030 IF ASC (C$) < L1% OR ASC (C$) > L2% THEN 2010 2040 PRINT C$; 2050 B$ = B$ + C$ 2060 IF LEN (B$) = L3% THEN RETURN 2070 GOTO 2010 2080 P% = PEEK (36) - 1 2090 POKE 36,P%: PRINT " ";: POKE 36,P% 2100 IF LEN (B$) = 1 THEN B$ = "": GOTO 2010 2110 B$ = LEFT$ (B$, LEN (B$) - 1) 2120 GOTO 2010 3000 REM SAUVEGARDE 3001 PRINT "Confirme(O/N)";: GET A$: PRINT 3002 IF A$ < > "O" THEN 4140 3005 GOSUB 3010: GOTO 4140 3010 IF XP% > 9999 THEN XP% = 5000 3020 IF GP% > 9999 THEN GP% = 5000 3030 A = PEEK (837): IF A < > 0 THEN GOSUB 41010 3040 GOSUB 40200 3050 V% = PEEK (837): GOSUB 40500:A = USR (1): RETURN 4000 REM 4030 CALL 16396 4120 GOSUB 26100 4140 CALL 16387 4150 CO% = 0: GOSUB 26200 4155 POKE 16436,WIZ%(17): FOR I = 16439 TO 16444:WIZ%(I - 16438) = WIZ%(I - 16438) - FN IDP(WIZ%(I - 16438) - 255): POKE I,WIZ%(I - 16438): NEXT I 4157 POKE 16445,KA%(5): IF KC%(5) < 0 THEN POKE 16438, ABS (KC%(5)) + 128: GOTO 4159 4158 POKE 16438,KC%(5) 4159 CALL 16384:WIZ%(17) = PEEK (16436): FOR I = 16439 TO 16444:WIZ%(I - 16438) = PEEK (I): NEXT I 4160 KC%(5) = PEEK (16438): IF KC%(5) > 99 THEN KC%(5) = - (KC%(5) - 128) 4170 I = PEEK (830): ON I GOTO 40600,0,4180,4600,15000,33000,32000,4330,4340,4360,14520,5000,3000,16600,0,7000,17000,4180,22000,10000 4180 V% = 1: GOSUB 40100:A = USR (1): GOTO 4140 4190 A = USR (0):A$ = "MAP." + STR$ ( PEEK (827)): & RECALL A$,5376:A = USR (1): GOTO 4140 4200 REM VILLE/CHATEAU... 4320 REM JETER 4330 GOSUB 9000: GOTO 4150 4340 REM EQUIPEMENT 4350 GOSUB 8000: GOTO 4150 4600 REM QUITTER 4610 V% = 1: GOSUB 40100:A = USR (1): GOTO 4140 5000 REM OUVRIR COFFRE 5010 V% = PEEK (836) 5020 IF V% > 127 THEN A = INT ( RND (1) * 100 + 50 * (V% - 128) + 35): PRINT "Vous trouvez :": PRINT A;" PO":GP% = GP% + A: PRINT : GOSUB 26200: CALL 16402: GOTO 4150 5030 W% = V%: GOSUB 16000: GOTO 4150 5100 REM SI DE LA PLACE POUR 1 OBJET EN PLUS, CALL COFFRVID 7000 A% = PEEK (836): ON A% GOTO 0,7100,7200,7300,7400,7500,0,7600 7100 REM JUDAS JABBAR 7105 IF NJ% < > 1 THEN A = 6: GOSUB 7900: GOTO 4150 7110 A = 4: GOSUB 7900: PRINT "ACCEPTE (O/N):";: GET A$: PRINT A$: IF A$ = "N" THEN PRINT "D{gage!": GOTO 4150 7120 IF GP% < 250 THEN PRINT "T'as pas le bl{!": GOTO 4150 7130 GP% = GP% - 250:XP% = XP% + 40: PRINT "Exp{rience:+40":NJ% = 2:A = 5: GOSUB 7900: CALL 16411: GOTO 4150 7200 REM CHUCKLUS 7210 IF NJ% < > 2 THEN A = 8: GOSUB 7900: GOTO 4150 7220 V% = 53: GOSUB 7700: IF A = 0 THEN GOSUB 7760: GOTO 4150 7290 A = 7: GOSUB 7900:NJ% = 3:V% = A%: GOSUB 9160: CALL 16411: GOTO 4150 7300 REM DIABOLIK 7310 V% = 55: GOSUB 7700: IF A = 0 THEN GOSUB 7760: GOTO 4150 7330 PRINT "Voil@ 500XP pourla Culotte!":XP% = XP% + 500:V% = A%: GOSUB 9160: CALL 16411: GOTO 4150 7400 REM ELRIK 7410 V% = 56: GOSUB 7700: IF A = 1 THEN 7450 7420 V% = 57: GOSUB 7700: IF A = 1 THEN A = 2 7435 IF A = 0 AND NJ% < > 4 THEN A = 12: GOSUB 7900: GOTO 4150 7440 IF A = 0 THEN A = 11: GOSUB 7900:NJ% = 5: GOTO 4150 7450 IF A = 1 THEN V% = A%: GOSUB 9160:A = 15: GOSUB 7900:NJ% = 7: GOTO 4150 7460 A = 19: GOSUB 7900:V% = A%: GOSUB 9160:W% = 249: GOSUB 16095:NJ% = 10: CALL 16411: GOTO 4150 7500 REM DECKARD 7510 V% = 52: GOSUB 7700: IF A = 1 THEN A = 17: GOSUB 7900:V% = A%: GOSUB 9160:NJ% = 9:W% = 248: GOSUB 16095: CALL 16411: GOTO 4150 7520 IF NJ% < > 7 THEN A = 18: GOSUB 7900: GOTO 4150 7530 A = 16: GOSUB 7900 7540 IF OB% = 9 THEN PRINT "Pas de place!": GOTO 4150 7550 W% = 251: GOSUB 16095:NJ% = 8: GOTO 4150 7600 REM DRAGON 7610 IF NJ% < > 5 THEN A = 14: GOSUB 7900: GOTO 4150 7620 A = 13: GOSUB 7900: PRINT "ACCEPTE (O/N):";: GET A$: PRINT A$: IF A$ = "N" THEN PRINT "D{gage!": GOTO 4150 7630 IF GP% < 666 THEN PRINT "T'as pas le bl{!": GOTO 4150 7635 IF OB% = 9 THEN PRINT "Pas de place!": GOTO 4150 7640 GP% = GP% - 666:NJ% = 6:W% = 247: GOSUB 16095: CALL 16411: GOTO 4150 7700 REM CHERCHE OBJ 7710 A = 0: IF OB% = 0 THEN 7740 7720 FOR I = 1 TO OB%: IF OB%(I,1) = V% THEN A = 1:A% = I 7730 NEXT I 7740 RETURN 7760 PRINT "Tu n'as rien quim'int{resse!": RETURN 7900 PRINT "Lire Paragraphe:";A: RETURN 8000 FOR I = 1 TO 8:OB%(0,I) = 0: NEXT I 8005 FOR I = 1 TO 4:EQ%(I) = 0: NEXT I 8010 PRINT "Armure : ":OP% = 0 8020 FOR I = 1 TO OB% 8030 IF OB%(I,1) < > 10 THEN 8060 8040 IF OB%(I,3) > KC%(3) OR OB%(I,4) > KC%(4) THEN 8060 8050 OP% = OP% + 1:OP%(OP%) = I:OP$(OP%) = OB$(I) 8060 NEXT I 8070 IF OP% = 0 THEN 8100 8080 GOSUB 30500 8090 EQ%(1) = OP%(V%): PRINT 8100 PRINT "Main droite :":OP% = 0 8120 FOR I = 1 TO OB% 8130 IF OB%(I,1) > 8 OR OB%(I,1) < 0 OR OB%(I,1) = 3 THEN 8160 8140 IF OB%(I,3) > KC%(3) OR OB%(I,4) > KC%(4) THEN 8160 8150 OP% = OP% + 1:OP%(OP%) = I:OP$(OP%) = OB$(I) 8160 NEXT I 8170 IF OP% = 0 THEN 8200 8180 GOSUB 30500:EQ%(2) = OP%(V%): PRINT 8190 IF OB%(EQ%(2),1) = 6 THEN EQ%(3) = 0: GOTO 8300 8200 PRINT "Main gauche :":OP% = 0 8210 FOR I = 1 TO OB% 8240 IF OB%(I,1) = 6 OR I = EQ%(2) OR OB%(I,1) > 9 THEN 8270 8250 IF (OB%(I,4) + OB%(EQ%(2),4)) > KC%(4) OR (OB%(I,3) + OB%(EQ%(2),3) + 10 * ((OB%(I,1) = 2) + (OB%(EQ%(2),1) = 2))) > KC%(3) THEN 8270 8260 OP% = OP% + 1:OP%(OP%) = I:OP$(OP%) = OB$(I) 8270 NEXT I 8280 IF OP% = 0 THEN 8300 8290 GOSUB 30500:EQ%(3) = OP%(V%): PRINT 8300 ENC%(1) = OB%(EQ%(1),7) + (OB%(EQ%(3),5)) * (OB%(EQ%(3),1) = 3) 8310 ENC%(2) = OB%(EQ%(1),8) + (OB%(EQ%(3),6)) * (OB%(EQ%(3),1) = 3) 8400 PRINT "Focus :":OP% = 0 8410 FOR I = 1 TO OB% 8420 IF OB%(I,1) < > 40 THEN 8460 8430 IF OB%(I,3) > KC%(1) OR OB%(I,4) > KC%(2) THEN 8460 8440 OP% = OP% + 1:OP$(OP%) = OB$(I):OP%(OP%) = I 8460 NEXT I 8470 IF OP% = 0 THEN RETURN 8480 GOSUB 30500:EQ%(4) = OP%(V%) 8490 PRINT : RETURN 9000 OP% = 0: IF OB% = 0 THEN RETURN 9010 FOR I = 1 TO OB% 9020 IF FN EQ(I) THEN 9050 9030 OP% = OP% + 1:OP%(OP%) = I:OP$(OP%) = OB$(I) 9050 NEXT I 9070 IF OP% = 0 THEN RETURN 9080 GOSUB 30500: PRINT 9090 IF V% = 0 THEN RETURN 9100 V% = OP%(V%) 9110 PRINT "D'accord(O/N)"; 9120 GET A$ 9130 IF A$ = "N" THEN 9300 9140 IF A$ = "O" THEN 9160 9150 GOTO 9120 9160 OB% = OB% - 1 9170 FOR I = 1 TO 4 9180 IF EQ%(I) > V% THEN EQ%(I) = EQ%(I) - 1 9190 NEXT I 9200 IF OB% = 0 OR V% = OB% + 1 THEN 9300 9210 FOR I = V% TO OB% 9220 OB$(I) = OB$(I + 1) 9230 FOR J = 1 TO 8:OB%(I,J) = OB%(I + 1,J): NEXT J 9240 NEXT I 9300 IF OB% > = 9 THEN 9380 9310 FOR I = OB% + 1 TO 9 9320 OB$(I) = "" 9330 FOR J = 1 TO 8 9340 OB%(I,J) = 0 9360 NEXT J 9370 NEXT I 9380 FOR I = 1 TO 8:OB%(0,I) = 0: NEXT I 9390 PRINT : RETURN 10000 PRINT : REM MARCHAND 10010 GOSUB 18000 10020 & SHOPEQ%,AEQ%(1,1),AEQ%(2,1),AEQ%(3,1),AEQ%(4,1),AEQ%(5,1),AEQ%(6,1),AEQ%(7,1),AEQ%(8,1),AEQ%(9,1),AEQ%(10,1) 10030 IF AEQ%(1,1) = 130 THEN 23000 10060 FOR I = 1 TO EQ% 10070 AEQ%(I,2) = 0:AEQ%(I,3) = 0 10080 IF AEQ%(I,1) > 130 AND AEQ%(I,1) < 186 THEN OP$(I) = EQ$(AEQ%(I,1) - 130) 10085 IF AEQ%(I,1) = 186 THEN OP$(I) = "Casino" 10090 IF AEQ%(I,1) > 189 THEN OP$(I) = "Renseignement" 10110 ON FN TY(AEQ%(I,1)) GOTO 10200,10300,10400,10500,11500,10700,11500,11500 10200 & LOBJ(AEQ%(I,1)),OP$(I),A%,A%,A%,A%,A%,A%,A%,AEQ%(I,2) 10210 GOTO 11500 10300 AEQ%(I,2) = 20:AEQ%(I,3) = 0.5 * (KA%(1) + KA%(2) + KA%(3) + KA%(4)) 10310 GOTO 11500 10400 AEQ%(I,2) = 20 10410 GOTO 11500 10500 IF AEQ%(I,1) = 150 THEN AEQ%(I,2) = 1: IF KC%(2) > 15 THEN AEQ%(I,2) = 0 10510 GOTO 11500 10700 AEQ%(I,2) = 20 10710 GOTO 11500 11500 NEXT I 11510 OP% = EQ%: GOSUB 30500: IF V% = 0 THEN 20400 11520 PRINT 11530 U% = AEQ%(V%,1):T% = V% 11590 ON FN TY(AEQ%(V%,1)) GOTO 12000,12100,12200,12300,21000,12500,12600,45000 12000 IF OB% > = 9 THEN PRINT "Vous avez d{ja 9 objets": GOTO 4150 12010 B% = OB% + 1:OB$(B%) = "": FOR I = 1 TO 15:OB$(B%) = OB$(B%) + " ": NEXT I 12020 & LOBJ(AEQ%(V%,1)),OB$(B%),OB%(B%,1),OB%(B%,3),OB%(B%,4),OB%(B%,5),OB%(B%,6),OB%(B%,7),OB%(B%,8),OB%(B%,2) 12030 IF (OB%(B%,1) < 11 AND (OB%(B%,3) > KC%(3) OR OB%(B%,4) > KC%(4))) OR (OB%(B%,1) < 41 AND OB%(B%,1) > 19 AND (OB%(B%,3) > KC%(1) OR OB%(B%,4) > KC%(2))) THEN PRINT "Vous ne pouvez pas l'utiliser" 12040 GOSUB 20300 12070 OB% = OB% + 1 12080 GOTO 4150 12100 GOSUB 20300 12130 KA%(U% - 130) = KA%(U% - 130) + 1 12140 KA%(5) = KB%(5) + 0.5 * (KA%(3) + KA%(4) - KB%(3) - KB%(4) + 1) 12150 KA%(6) = KB%(6) + 0.5 * (KA%(1) + KA%(2) - KB%(1) - KB%(2) + 1) 12160 KA%(7) = KB%(7) + 0.5 * (KA%(1) + KA%(4) - KB%(1) - KB%(4) + 1) 12170 KA%(8) = KB%(8) + 0.5 * (KA%(2) + KA%(4) - KB%(2) - KB%(4) + 1) 12190 GOTO 4150 12200 GOSUB 20300 12230 KC%(U% - 140) = KA%(U% - 140) + 5 + RND (1) * 11 12290 GOTO 4150 12300 GOSUB 20300 12330 IF U% = 150 THEN KC%(5) = KA%(5):WIZ%(17) = 0:WIZ%(18) = 0: GOTO 4150 12340 KA%(6) = KC%(6) 12350 FOR I = 1 TO 21 12360 IF I < > 17 AND I < > 18 THEN WIZ%(I) = 0 12370 NEXT I 12390 IF OB% = 0 THEN 4150 12400 FOR I = 1 TO OB% 12410 IF OB%(I,1) = 40 THEN OB%(I,5) = OB%(I,6) 12420 NEXT I 12490 GOTO 4150 12500 GOSUB 20300 12530 WIZ%(U% - 170) = WIZ%(U% - 170) + 5 + RND (1) * 11 + 200 * (U% < 176) 12590 GOTO 4150 12600 REM SORTS 12610 & LSPELL(U% - 170),SO%(1),SO%(2),SO%(3),SO%(4),SO%(5) 12615 IF SO%(1) > 0 THEN 12800 12620 AEQ%(T%,2) = 50:AEQ%(T%,3) = 50:OP% = 1:OP$(1) = "Initiation" 12630 GOSUB 30500: IF V% = 0 THEN 20400 12635 PRINT 12640 GOSUB 20300 12650 SO%(1) = 1 12660 & ESPELL(U% - 170),SO%(1),SO%(2),SO%(3),SO%(4),SO%(5) 12670 GOTO 4150 12800 OP% = 0 12810 IF SO%(1) < 15 THEN OP% = OP% + 1:OP$(OP%) = "Maitrise":OP%(OP%) = 1 12820 IF (SO%(2) + SO%(3) + SO%(4) + SO%(5)) < 4 THEN OP% = OP% + 1:OP$(OP%) = "Sorts":OP%(OP%) = 2 12830 IF OP% = 0 THEN PRINT "Vous n'avez plusrien @ apprendresur cet art": GOTO 4150 12850 GOSUB 30500: PRINT : IF V% = 0 THEN 20400 12860 ON OP%(V%) GOTO 13000,13100 13000 REM MAITRISE 13010 AEQ%(T%,2) = 20:AEQ%(T%,3) = 20 + 5000 * SO%(1) / ( FN CN(U% - 170) ^ 2) 13050 GOSUB 20300 13060 SO%(1) = SO%(1) + 1 13070 & ESPELL(U% - 170),SO%(1),SO%(2),SO%(3),SO%(4),SO%(5) 13080 GOTO 4150 13100 REM SORTS 13110 OP% = 0: PRINT 13120 FOR I = 1 TO 4 13130 IF SO%(I + 1) THEN 13160 13150 OP% = OP% + 1: & SMAG(U% - 170),I,OP$(OP%):OP%(OP%) = I 13160 NEXT I 13170 GOSUB 30500:SO%(6) = 1 + OP%(V%): PRINT 13180 AEQ%(T%,2) = 25:AEQ%(T%,3) = 30 + 150000 / ( FN CN(U% - 170) ^ 3) 13190 GOSUB 20300 13200 SO%(SO%(6)) = 1 13210 & ESPELL(U% - 170),SO%(1),SO%(2),SO%(3),SO%(4),SO%(5) 13250 GOTO 4150 14500 REM MISE A JOUR 14520 IF KC%(5) + WIZ%(5) < 0 THEN PRINT : PRINT "Vous ~tes mort": GOTO 19000 14590 ON CO% + 1 GOTO 4150,10030,10030,10030 15000 REM 15010 IF OB% = 0 THEN 4150 15020 FOR I = 1 TO OB% 15040 IF FN EQ(I) THEN INVERSE 15050 PRINT OB$(I); 15060 NORMAL 15070 IF OB%(I,1) = 5 OR OB%(I,1) = 6 THEN PRINT ":";OB%(I,6); 15090 PRINT 15100 NEXT I 15110 GOTO 4150 16000 REM TROUVER OBJET 16005 A$ = "": FOR I = 1 TO 15:A$ = A$ + " ": NEXT I 16007 & LOBJ(W%),A$,A%,A%,A%,A%,A%,A%,A%,A% 16010 PRINT : PRINT "Vous trouvez :" 16020 PRINT A$ 16030 IF OB% = 9 THEN 16500 16040 PRINT "Prendre (O/N)"; 16050 GET A$ 16060 IF A$ = "O" THEN PRINT : GOTO 16090 16070 IF A$ = "N" THEN PRINT : RETURN 16080 GOTO 16050 16090 GOSUB 16095: CALL 16402: RETURN 16095 OB% = OB% + 1 16100 B% = OB%:OB$(B%) = "": FOR I = 1 TO 15:OB$(B%) = OB$(B%) + " ": NEXT I 16110 & LOBJ(W%),OB$(B%),OB%(B%,1),OB%(B%,3),OB%(B%,4),OB%(B%,5),OB%(B%,6),OB%(B%,7),OB%(B%,8),OB%(B%,2): RETURN 16500 PRINT "T'as d{j@ 9 ob- jets, Nabot!!": PRINT 16510 PRINT "Faire de la place (O/N)"; 16520 GET A$ 16530 IF A$ < > "O" AND A$ < > "N" THEN 16520 16540 IF A$ = "N" THEN PRINT : RETURN 16550 PRINT : GOSUB 9000 16560 IF OB% = 9 THEN PRINT : PRINT "Tu te d{cides, raclure de nain": PRINT : GOTO 16510 16590 PRINT : GOTO 16040 16600 W% = 239 + PEEK (836):AD% = 16399: GOSUB 16000: GOTO 4150 17000 V% = PEEK (836):V% = V% * 100: PRINT : PRINT "Vous gagnez :": PRINT V%;" XP":XP% = XP% + V%: GOSUB 26200: CALL 16411: GOTO 4150 18000 REM BIENVENUE 18010 A = 51090 + PEEK (837): & RELIREA:A = PEEK (836): FOR I = 0 TO A: READ A$: READ V%: NEXT I 18020 A = V% + 51000: & RELIREA: READ B$: PRINT B$: PRINT A$ 18030 PRINT : RETURN 19000 GOSUB 3010: & MODE1,0: PRINT "So long!": GET A$: IF A$ = CHR$ (18) THEN PRINT "Ressuscit{!": & MODE1,1: FOR I = 1 TO 8:KB%(I) = KA%(I):KC%(I) = KA%(I): NEXT I:WIZ%(17) = 0: GOSUB 26100: GOTO 4140 19010 GOTO 19010 20000 REM PRIX 20010 B% = 0:W% = 0:V% = T% 20020 IF AEQ%(V%,2) + AEQ%(V%,2) = 0 THEN PRINT "C'est gratuit": RETURN 20030 PRINT "Le prix est de" 20040 IF AEQ%(V%,2) > 0 THEN PRINT AEQ%(V%,2);" P.O.";:B% = 1: IF AEQ%(V%,3) = < 0 THEN PRINT 20050 IF AEQ%(V%,3) > 0 AND B% THEN PRINT " et de": GOTO 20060 20060 IF AEQ%(V%,3) > 0 THEN PRINT AEQ%(V%,3);" X.P." 20070 PRINT 20080 IF AEQ%(V%,2) > GP% THEN PRINT "Vous ~tes trop fauch{":W% = 1 20090 IF AEQ%(V%,3) > XP% THEN PRINT "Vous ~tes trop peu exp{riment{":W% = 1 20100 IF W% = 1 THEN RETURN 20110 PRINT "C'est dans vos moyens": RETURN 20200 V% = T% 20210 GP% = GP% - AEQ%(V%,2) 20220 XP% = XP% - AEQ%(V%,3) 20230 RETURN 20300 REM ACHAT 20310 GOSUB 20000: IF W% = 1 THEN POP : GOTO 4150 20320 PRINT : PRINT "Vous prenez": GOSUB 30700: IF V% = 0 THEN POP : GOTO 4150 20330 GOSUB 20200 20350 RETURN 20400 REM DEPART 20410 PRINT : PRINT "Vous partez": GOTO 4150 21000 REM ENCHANTEMENT 21010 U% = U% - 150 21020 IF OB% = 0 THEN PRINT "T'as aucun objet@ proposer": GOTO 4150 21030 OP% = 0 21050 ON U% GOTO 21100,21200,21300,21400,21500,21600,21700,21800 21100 REM MUNITIONS 21110 FOR I = 1 TO OB% 21120 IF OB%(I,1) > 6 OR OB%(I,1) < 5 OR OB%(I,6) > 19 THEN 21150 21140 OP% = OP% + 1:OP%(OP%) = I:OP$(OP%) = OB$(I) 21150 NEXT I 21160 IF OP% = 0 THEN PRINT "Pas d'objet appropri{": GOTO 4150 21165 GOSUB 30500: PRINT : IF V% = 0 THEN 20400 21170 U% = OP%(V%):AEQ%(T%,2) = 0.25 * SQR (OB%(U%,2) * 10) 21175 GOSUB 20300 21180 OB%(U%,6) = 20 21190 GOTO 4150 21200 REM IMPACT 21210 FOR I = 1 TO OB% 21220 IF OB%(I,1) = 5 OR OB%(I,1) = 6 OR OB%(I,1) = 3 OR OB%(I,1) > 9 THEN 21250 21230 IF OB%(I,6) > = OB%(I,5) THEN 21250 21240 OP% = OP% + 1:OP$(OP%) = OB$(I):OP%(OP%) = I 21250 NEXT I 21260 IF OP% = 0 THEN 21160 21265 GOSUB 30500: PRINT : IF V% = 0 THEN 20400 21270 U% = OP%(V%):AEQ%(T%,2) = 25 * (2 + OB%(U%,6)) 21275 GOSUB 20300 21280 OB%(U%,6) = OB%(U%,6) + 1 21290 GOTO 4150 21300 REM LONGUE PORTEE 21310 FOR I = 1 TO OB% 21320 IF OB%(I,1) < > 0 AND OB%(I,1) < > 1 THEN 21350 21340 OP% = OP% + 1:OP$(OP%) = OB$(I):OP%(OP%) = I 21350 NEXT I 21360 IF OP% = 0 THEN 21160 21365 GOSUB 30500: PRINT : IF V% = 0 THEN 20400 21370 U% = OP%(V%):AEQ%(T%,2) = 100 + SQR (OB%(U%,2) * 1000) 21375 GOSUB 20300 21380 OB%(U%,1) = 8 - OB%(U%,1) 21390 GOTO 4150 21400 REM ARMURE MAG 21410 FOR I = 1 TO OB% 21420 IF OB%(I,1) < > 10 THEN 21450 21430 IF OB%(I,6) > = OB%(I,5) THEN 21450 21440 OP% = OP% + 1:OP%(OP%) = I:OP$(OP%) = OB$(I) 21450 NEXT I 21460 IF OP% = 0 THEN 21160 21465 GOSUB 30500: PRINT : IF V% = 0 THEN 20400 21470 U% = OP%(V%):AEQ%(T%,2) = 20 * (2 + OB%(U%,6)) 21475 GOSUB 20300 21480 OB%(U%,6) = OB%(U%,6) + 1 21490 GOTO 4150 21500 REM RECHARGE 21510 FOR I = 1 TO OB% 21520 IF OB%(I,1) > 39 OR OB%(I,1) < 20 THEN 21550 21530 IF OB%(I,7) > = OB%(I,8) THEN 21550 21540 OP% = OP% + 1:OP%(OP%) = I:OP$(OP%) = OB$(I) 21550 NEXT I 21560 IF OP% = 0 THEN 21160 21565 GOSUB 30500: PRINT : IF V% = 0 THEN 20400 21570 U% = OP%(V%):AEQ%(T%,2) = 0.5 * (OB%(U%,2) + 1) 21575 GOSUB 20300 21580 OB%(U%,7) = OB%(U%,8) 21590 GOTO 4150 21600 REM FOCUS CAP 21610 FOR I = 1 TO OB% 21620 IF OB%(I,1) < > 40 THEN 21650 21630 IF OB%(I,6) > = KA%(6) THEN 21650 21640 OP% = OP% + 1:OP%(OP%) = I:OP$(OP%) = OB$(I) 21650 NEXT I 21660 IF OP% = 0 THEN 21160 21665 GOSUB 30500: PRINT : IF V% = 0 THEN 20400 21670 U% = OP%(V%):AEQ%(T%,2) = 1 + OB%(U%,6) 21675 GOSUB 20300 21680 OB%(U%,6) = OB%(U%,6) + 1:OB%(U%,5) = OB%(U%,6) 21690 GOTO 4150 21700 REM FOCUS PUIS 21710 FOR I = 1 TO OB% 21720 IF OB%(I,1) < > 40 THEN 21750 21730 IF OB%(I,8) > = KA%(6) * 0.4 THEN 21750 21740 OP% = OP% + 1:OP%(OP%) = I:OP$(OP%) = OB$(I) 21750 NEXT I 21760 IF OP% = 0 THEN 21160 21765 GOSUB 30500: PRINT : IF V% = 0 THEN 20400 21770 U% = OP%(V%):AEQ%(T%,2) = 30 * (1 + OB%(U%,8)) 21775 GOSUB 20300 21780 OB%(U%,8) = OB%(U%,8) + 1 21790 GOTO 4150 21800 REM OBJMAG PUIS 21810 FOR I = 1 TO OB% 21820 IF OB%(I,1) > 39 OR OB%(I,1) < 20 THEN 21850 21840 OP% = OP% + 1:OP%(OP%) = I:OP$(OP%) = OB$(I) 21850 NEXT I 21860 IF OP% = 0 THEN 21160 21865 GOSUB 30500: PRINT : IF V% = 0 THEN 20400 21870 U% = OP%(V%):AEQ%(T%,2) = 0.3 * OB%(U%,2) + (OB%(U%,5) + 1) * 25 21875 GOSUB 20300 21880 OB%(U%,5) = OB%(U%,5) + 1 21890 GOTO 4150 22000 REM EXAMEN 22020 PRINT "INT:";KA%(1) 22030 PRINT "SAG:";KA%(2) 22040 PRINT "FOR:";KC%(3);"/";KA%(3) 22050 PRINT "DEX:";KC%(4);"/";KA%(4) 22060 PRINT "VIT:";KC%(5);"/";KA%(5) 22070 PRINT "MAG:";KC%(6);"/";KA%(6) 22080 PRINT "ADR:";KA%(7) 22090 PRINT "PER:";KA%(8) 22500 GOTO 4150 23000 REM RECELEUR 23010 OP% = 0: IF OB% = 0 THEN PRINT "T'as rien a ven-dre duchnock": GOTO 4150 23020 FOR I = 1 TO OB% 23030 IF FN EQ(I) THEN 23070 23040 OP% = OP% + 1:OP%(OP%) = I:OP$(OP%) = OB$(I) 23070 NEXT I 23080 IF OP% = 0 THEN PRINT "T'as rien a ven-dre duchnock": GOTO 4150 23100 GOSUB 30500: PRINT : IF V% = 0 THEN 4150 23110 V% = OP%(V%) 23120 PRINT : PRINT "J'ach}te pour" 23130 PRINT 1 + INT (OB%(V%,2) * 0.5);" P.O." 23140 PRINT : PRINT "D'accord":W% = V%: GOSUB 30700: IF V% = 0 THEN 4150 23180 GP% = GP% + 1 + INT (0.5 * OB%(V%,2)) 23190 V% = W%: GOSUB 9160 23200 GOTO 4150 25790 GOTO 27200 26100 REM MISE A JOUR 26105 P% = PEEK (37) 26110 VTAB 2: HTAB 2: PRINT NM$; 26120 VTAB 3: HTAB 2: PRINT "Vit:"; 26130 HTAB 9: PRINT "Mag:"; 26140 VTAB 4: HTAB 2: PRINT "Arg:"; 26150 VTAB 5: HTAB 2: PRINT "Exp:"; 26190 GOTO 26205 26200 P% = PEEK (37): FOR I = 1 TO 8:KC%(I) = FN CAR(KC%(I)): NEXT I 26205 VTAB 3: HTAB 6: PRINT " ";: HTAB 6: PRINT FN IDP(KC%(5)); 26210 HTAB 13: PRINT KC%(6);" "; 26220 VTAB 4: HTAB 6: PRINT GP%;" "; 26230 VTAB 5: HTAB 6: PRINT XP%;" "; 26240 VTAB 7: HTAB 2: PRINT SPC( 14) 26245 IF CO% = 0 THEN VTAB 6: HTAB 2: PRINT SPC( 14): GOTO 26270 26260 VTAB 7: HTAB 2: & ST(CO%) 26270 VTAB P% + 1: HTAB 1 26300 RETURN 27000 REM SOUS-PROG 27100 REM RETOUR COMBAT PERSO 27110 ON CO% + 1 GOTO 4150,11000,12000,13000 27200 REM RETOUR COMBAT MONSTRE 27210 IF CO% < > 0 THEN PRINT 27220 ON CO% + 1 GOTO 4150,14000,14000,14000 27250 ON CO% GOTO 11520,12525,13540 27400 REM CHOIX OBJET 27410 GET A$:V% = VAL (A$) 27420 IF V% < 0 OR V% > OB% THEN 27410 27430 IF A$ = "0" THEN PRINT : RETURN 27440 IF V% = 0 THEN 27410 27450 RETURN 27500 REM ERREUR DU PERSO 27510 PRINT 27520 ON CO% + 1 GOTO 4150,10010,10010,10010 30500 REM MENU 30510 & MODE1,2:P% = 1 + PEEK (37): IF P% = 25 THEN PRINT :P% = 24 30520 V% = FN IDP( - V%): IF V% < 1 OR V% > OP% THEN V% = 1 30530 VTAB P%: HTAB 1: PRINT SPC( 15): HTAB 1: PRINT Z$;OP$(V%); 30540 GET A$:PC% = PEEK ( - 16384) 30550 IF PC% = 21 THEN V% = V% + 1: IF V% > OP% THEN V% = 1: GOTO 30530 30560 IF PC% = 8 THEN V% = V% - 1: IF V% < 1 THEN V% = OP%: GOTO 30530 30570 IF PC% = 13 THEN 30680 30580 IF PC% = 27 THEN V% = 0: GOTO 30680 30585 IF VAL (A$) < > 0 AND VAL (A$) < OP% THEN V% = VAL (A$) 30590 FOR I = 1 TO OP% 30600 IF LEFT$ (OP$(I),1) = A$ THEN V% = I 30610 NEXT I 30650 GOTO 30530 30680 FOR I = 1 TO 15:OP$(I) = OQ$(I): NEXT I 30690 & MODE1,1: RETURN 30700 PRINT "(O/N) ? "; 30710 GET A$ 30720 IF A$ = "N" THEN V% = 0: PRINT : RETURN 30730 IF A$ = "O" THEN V% = 1: PRINT : RETURN 30740 GOTO 30710 31000 FOR I = 2 TO 3 31010 IF OB%(EQ%(I),1) < > 5 AND OB%(EQ%(I),1) < > 6 THEN 31030 31020 IF FN UT(EQ%(I)) THEN OB%(EQ%(I),6) = OB%(EQ%(I),6) - 1 31030 NEXT I 31040 RETURN 32000 REM 32010 OP% = 0 32020 FOR I = 1 TO 15 32030 & LSPELLI,SO%(1),SO%(2),SO%(3),SO%(4),SO%(5) 32040 IF SO%(1) = 0 OR (SO%(2) + SO%(3) + SO%(4) + SO%(5)) = 0 THEN 32060 32050 OP% = OP% + 1:OP%(OP%) = I: & SMAGI,0,OP$(OP%) 32060 NEXT I 32070 IF OP% = 0 THEN PRINT "T'est pas mago sale plouc": GOTO 27500 32080 GOSUB 30500: IF V% = 0 THEN 27500 32090 SO%(6) = OP%(V%) 32100 & LSPELLSO%(6),SO%(1),SO%(2),SO%(3),SO%(4),SO%(5) 32110 OP% = 0: PRINT 32120 FOR I = 1 TO 4 32130 & UTSPELLSO%(6),I,UT%(0),UT%(1),UT%(2),UT%(3) 32140 IF SO%(I + 1) = 0 OR UT%(CO%) = 0 THEN 32160 32150 OP% = OP% + 1:OP%(OP%) = I: & SMAGSO%(6),I,OP$(OP%) 32160 NEXT I 32165 IF OP% = 0 THEN 27500 32170 GOSUB 30500: IF V% = 0 THEN 27500 32180 PRINT :SO%(7) = OP%(V%) 32190 OP% = 0:Z$ = "Puissance : " 32200 FOR I = 1 TO 15 32210 IF FN PM(I) > (KC%(6) + OB%(EQ%(4),5)) THEN 32230 32220 OP% = OP% + 1:OP%(I) = I:OP$(I) = STR$ (I) 32230 NEXT I 32240 IF OP% = 0 THEN PRINT "T'arrives pas @ te concentrer, pauvre loque": GOTO 27500 32250 GOSUB 30500:Z$ = "" 32260 IF V% = 0 THEN 27500 32270 SO%(8) = V% 32280 FOR I = 11 TO 13: & MAG(SO%(6)),SO%(7),I - 10,SO%(I): NEXT I 32290 PRINT 32300 SO%(9) = FN PM(SO%(8)) 32310 OB%(EQ%(4),5) = OB%(EQ%(4),5) - SO%(9) 32320 IF OB%(EQ%(4),5) < 0 THEN KC%(6) = KC%(6) + OB%(EQ%(4),5):OB%(EQ%(4),5) = 0 32330 GOSUB 26200 32340 & SOUND255,7 * LOG (1 + SO%(8)) 32350 & GT(SO%(11) + 35000) 33000 REM OBJ MAG 33020 OP% = 0 33030 FOR I = 1 TO OB% 33040 IF OB%(I,1) > 39 OR OB%(I,1) < 20 THEN 33080 33050 IF OB%(I,3) > KC%(1) OR OB%(I,4) > KC%(2) THEN 33080 33060 IF (OB%(I,1) - 20) > (KC%(6) + OB%(EQ%(4),5)) THEN 33080 33065 IF OB%(I,7) < 1 THEN 33080 33070 OP% = OP% + 1:OP%(OP%) = I:OP$(OP%) = OB$(I) 33080 NEXT I 33090 IF OP% = 0 THEN 27520 33100 GOSUB 30500 33110 IF V% = O THEN 27500 33120 SO%(10) = OP%(V%) 33130 SO%(9) = OB%(SO%(10),1) - 20 33150 SO%(8) = OB%(SO%(10),5) 33160 & OBJOB%(SO%(10),6),SO%(6),SO%(2),SO%(3),SO%(4),SO%(5) 33170 OP% = 0 33180 PRINT 33220 FOR I = 1 TO 4 33230 & UTSPELLSO%(6),I,UT%(0),UT%(1),UT%(2),UT%(3) 33240 IF SO%(I + 1) = 0 OR UT%(CO%) = 0 THEN 33260 33250 OP% = OP% + 1:OP%(OP%) = I: & SMAGSO%(6),I,OP$(OP%) 33260 NEXT I 33265 IF OP% = 0 THEN 27520 33270 GOSUB 30500: IF V% = 0 THEN 27500 33280 PRINT :SO%(7) = OP%(V%) 33300 FOR I = 11 TO 13: & MAG(SO%(6)),SO%(7),I - 10,SO%(I): NEXT I 33320 IF OB%(SO%(10),8) < 255 THEN OB%(SO%(10),7) = OB%(SO%(10),7) - 1 33350 GOTO 32310 35000 REM SORTS 35100 REM ECLAIR 35110 DM% = RND (1) * SO%(13) * SO%(8) 35120 SC% = RND (1) * (KC%(3) + KA%(7)) / 2 - RND (1) * (M%(4,0) * NOT ( FN ACT(0)) + M%(12,0) * (M%(11,0) = 2)):DG% = SC% 35130 PRINT : PRINT "Vous d{cochez un projectile magique" 35140 A$ = "et touchez" 35150 CRT% = SO%(12) 35190 GOTO 27640 35200 PRINT : REM EXTERMINATION 35210 IF RND (1) * SO%(13) * (10 + RES%(SO%(6))) * 0.1 * SO%(8) > (M%(16,0) + M%(6,0)) THEN 35230 35220 PRINT "Votre adversairesurvit": GOTO 27200 35230 PRINT "Votre adversaireest {limin{" 35240 M%(1,0) = - 1: GOTO 27200 35300 REM SORTIE DONJON 35310 A$ = "Les {manations sont trop fortes":A = PEEK (837) 35320 SC% = RND (1) * SO%(8) * 10 35350 IF A = 8 THEN PRINT A$: GOTO 27220 35360 DG% = RND (1) * 10 * (1 + A * (A < 10)) 35370 IF SC% < DG% THEN A = 8: GOTO 35350 35390 CALL 16420: GOSUB 26100: GOTO 4170 35400 REM PEUR 35410 SC% = RND (1) * SO%(8) * SO%(13) - RND (1) * (M%(2,0) + M%(16,0)) - M%(6,0) 35420 IF SC% = < 0 THEN PRINT : PRINT "Le sort {choue": GOTO 27200 35430 TAC%(4) = TAC%(4) + SC% 35440 GOTO 27200 35500 REM CHARME 35510 SC% = RND (1) * SO%(8) * SO%(13) - RND (1) * (M%(2,0) + M%(16,0)) - M%(6,0) 35520 IF SC% < 1 THEN 35420 35530 PRINT : PRINT "Il vous donne son argent" 35540 GP% = GP% + M%(15,0):M%(15,0) = 0 35550 GOTO 4150 35600 REM REFLECTION 35620 DV% = RND (1) * WIZ%(12): IF DV% > DG% THEN DV% = DG% 35630 DG% = FN IDP(DG% - DV%) 35640 RETURN 35650 IF WIZ%(12) < 1 OR DV% < 1 THEN RETURN 35660 PRINT : PRINT "L'impact est r{fl{chi" 35670 CRT% = 0:LOC% = 0 35680 DG% = FN IDP(DV% - M%(5,0) - M%(6,0)):PV% = M%(1,1):M%(1,0) = M%(1,0) - DG% 35685 IF DG% = 0 THEN PRINT "Sans effet": RETURN 35690 GOSUB 22110: RETURN 35700 REM REVELATEUR 35710 IF M%(11,0) = 2 THEN M%(12,0) = FN IDP(M%(12,0) - RND (1) * 12 * SO%(8)) 35790 GOTO 27200 35800 REM SOINS 35810 KC%(5) = KC%(5) + FN S(SO%(8)) 35820 IF KC%(5) > KA%(5) THEN KC%(5) = KA%(5) 35830 GOTO 27200 35900 REM RECUPERATION 35910 FOR I = 1 TO 4 35920 IF KC%(I) > KA%(I) THEN 35950 35930 KC%(I) = KC%(I) + FN S(SO%(8)) 35940 IF KC%(I) > KA%(I) THEN KC%(I) = KA%(I) 35950 NEXT I 35990 GOTO 27200 36000 REM GUERISON 36010 WIZ%(17) = WIZ%(17) + RND (1) * SO%(8) * 20: IF WIZ%(17) > 50 THEN WIZ%(17) = 0: PRINT "Vous ~tes gu{ri" 36020 IF WIZ%(17) < > 0 THEN PRINT "le poison agit encore" 36090 GOTO 27200 36100 REM EVASION 36110 SC% = RND (1) * SO%(13) * SO%(8) 36120 IF SC% > M%(4,0) THEN 36140 36130 SC% = - 1: GOTO 35420 36140 PRINT "Vous fuyez": GOTO 4150 36300 REM LIBERATION 36310 WIZ%(18) = 101 + SO%(8) * SO%(13) * RND (1) 36390 GOTO 27200 36400 REM REPOUSSER 36410 SC% = RND (1) * 10 * SO%(8) 36420 SC% = SC% / ( RND (1) * M%(3,0) + 1) 36430 CO% = 1 + FN IDP(CO% - 1 - SC%) 36440 PRINT : GOTO 27200 37000 REM SORTS GENERIQUES 37100 REM AUGMENTER 37110 SC% = KC%(SO%(12)) 37120 IF SC% > KA%(SO%(12)) THEN SC% = KA%(SO%(12)) 37130 SC% = SC% + RND (1) * SO%(8) * SO%(13) 37140 IF SC% > KC%(SO%(12)) THEN KC%(SO%(12)) = SC% 37150 GOTO 27200 37200 REM DIMINUER 37210 SC% = FN IDP( RND (1) * SO%(8) * SO%(13)) - M%(6,0)) 37220 M%(SO%(12),0) = FN IDP(M%(SO%(12),0) - SC%) 37230 GOTO 27200 37300 SC% = RND (1) * SO%(8) * SO%(13) 37305 IF SO%(6) < 12 THEN SC% = SC% * 0.1 * (10 + RES%(SO%(6)) * (SO%(12) > 12 AND SO%(12) < 17)) 37310 SC% = SC% + WIZ%(SO%(12)) * ((SO%(12) < 7) OR (SO%(12) > 12)) 37320 IF SC% > WIZ%(SO%(12)) THEN WIZ%(SO%(12)) = SC% 37340 GOTO 27200 37400 REM ENCOMBREMENTS 37410 ENC%(SO%(12)) = FN IDP(OB%(EQ%(1),SO%(12) + 6) + (OB%(EQ%(3),SO%(12) + 4)) * (OB%(EQ%(3),1) = 3) - SO%(8)) 37420 GOTO 27200 40000 REM CHARGE PLAYER 40010 A = USR (0): & READ "PLAYER": INPUT NM$,NA%,NM%,CY%,CX%,CL%,RA%,NJ% 40020 FOR I = 1 TO 8: INPUT KA%(I),KB%(I),KC%(I): NEXT I 40030 INPUT GP%,XP%,WZ%: FOR I = 1 TO 21: INPUT WIZ%(I): NEXT I 40040 FOR I = 1 TO 4: INPUT EQ%(I): NEXT I: INPUT ENC%(1),ENC%(2),OB% 40050 IF OB% = 0 THEN 40070 40060 FOR I = 1 TO OB%: INPUT OB$(I): FOR J = 1 TO 8: INPUT OB%(I,J): NEXT J: NEXT I 40070 FOR I = 1 TO 15: INPUT SO%(1),SO%(2),SO%(3),SO%(4),SO%(5):A = USR (1): & ESPELLI,SO%(1),SO%(2),SO%(3),SO%(4),SO%(5):A = USR (0): NEXT I 40080 POKE 826,NA%: POKE 827,NM%: POKE 828,NM%: POKE 837,NA%: POKE 23,CY%: POKE 24,CX%: POKE 16432,CL% 40085 A = USR (1): & MODE1,1: HTAB 25: VTAB 24:A = USR (0) 40090 & END : RETURN 40100 REM CHARGE CARTE 40110 A = USR (0):A = PEEK (826): IF A < > 0 AND V% < > 0 THEN GOSUB 41000 40120 A = PEEK (837): IF A < 10 THEN GOSUB 40200: CLEAR : & RUN "C",20480 40130 V% = PEEK (837): GOSUB 40500:A = PEEK (837): FOR I = 1 TO 3: POKE 236,I:A$ = "BK2." + STR$ (A) + "." + STR$ (I): & RECALL A$,2304: CALL 16417: NEXT I 40140 V% = PEEK (827):A$ = "MAP." + STR$ (A) + "." + STR$ (V%): & RECALL A$,5376: CALL 16408: CALL 16396:A = USR (1) 40150 RETURN 40200 REM SAUVE JEU 40205 A = USR (0):V% = 2: GOSUB 40520 40210 A$ = "PLAYER": & DEL A$: & DEF A$,4: & PRINT A$: PRINT NM$: PRINT PEEK (837): PRINT PEEK (827): PRINT PEEK (23): PRINT PEEK (24): PRINT CL%: PRINT RA%: PRINT NJ%: FOR I = 1 TO 8: PRINT KA%(I): PRINT KB%(I): PRINT KC%(I): NEXT I 40220 PRINT GP%: PRINT XP%: PRINT WZ%: FOR I = 1 TO 21: PRINT WIZ%(I): NEXT I: FOR I = 1 TO 4: PRINT EQ%(I): NEXT I: PRINT ENC%(1): PRINT ENC%(2): PRINT OB% 40225 IF OB% = 0 THEN 40240 40230 FOR I = 1 TO OB%: PRINT OB$(I): FOR J = 1 TO 8: PRINT OB%(I,J): NEXT J: NEXT I 40240 FOR I = 1 TO 15:A = USR (1): & LSPELLI,SO%(1),SO%(2),SO%(3),SO%(4),SO%(5):A = USR (0): PRINT SO%(1): PRINT SO%(2): PRINT SO%(3): PRINT SO%(4): PRINT SO%(5): NEXT I 40300 & END : RETURN 40500 REM CHERCHE FACE 40510 CALL 16408:A = USR (1): & FACEV%,V% 40520 A = USR (0): & READ "FACE": INPUT A: & END 40530 IF A < > V% THEN PRINT "Ins{rez la face "V%" SVP.";: GET A$: PRINT : GOTO 40520 40540 RETURN 40600 REM NEXT MAP(MEME NATURE) 40610 A = USR (0):A = PEEK (837): IF A < > 0 THEN GOSUB 41000 40620 V% = PEEK (827):A$ = "MAP." + STR$ (A) + "." + STR$ (V%): & RECALL A$,5376:A = USR (1): GOTO 4140 41000 A$ = "MAP." + STR$ (A) + "." + STR$ ( PEEK (828)): & DEL A$: & STORE A$,5376,2483: RETURN 41010 A$ = "MAP." + STR$ (A) + "." + STR$ ( PEEK (827)):A = USR (0): & DEL A$: & STORE A$,5376,2483: RETURN 45000 V% = AEQ%(V%,1): IF V% = 186 THEN 46000 45005 REM RENSEIGNEMENTS 45010 IF V% = 190 THEN A = 1: GOTO 45030 45020 A = V% - 207 45030 IF (NJ% < > 10) AND (A = 2 OR A = 3) THEN PRINT : PRINT "Ce renseignementne te concerne pas encore!": GOTO 4150 45035 PRINT : PRINT "C'est 20 P.O. Achat ";: GOSUB 30700 45040 IF V% = 0 THEN 4150 45050 & RELIRE50210: FOR I = 1 TO A: READ V%: NEXT I 45060 PRINT : PRINT "LIRE PARAGRAPHE:";V%:GP% = GP% - 20: GOTO 4150 46000 REM CASINO 46010 GOSUB 40200: & RUN "CASINO",20480 50000 REM ENDROITS 50010 DATA Intellect,Sagesse,Force,Dext{rit{ 50020 DATA Vitalit{,Magn{tisme,Adresse,Perception,, 50030 DATA Pri}re INT,Pri}re SAG,Pri}re FOR,Pri}re DEX 50040 DATA Pri}re VIT,Pri}re MAG,Pri}re ADR,Pri}re PER 50050 DATA M{ditation,Gu{rison 50060 DATA Munitions,Impact,Longue port{e,Armure mag 50070 DATA Recharge,Focus CAP,Focus PUIS,Objmag PUIS,, 50080 DATA Lumi}re,Route calme,Pr{monition,D{tection 50090 DATA Bravoure,R{g{n{ration,Parma magica,Armure 50100 DATA Bouclier,D{flection 50110 DATA Feu,Air,Eau,Terre 50120 DATA Animaux,B{n{diction,Sorcellerie,Mati}re 50130 DATA Illusion,Domination,D{g{n{rescence,Connaissance 50140 DATA Mouvement,Prouesses,Protection 50200 REM NUMERO RENS 50210 DATA 1,20,21,22 51000 REM BOUTIQUES 51001 DATA Bienvenue au 51002 DATA Bienvenue @ 51100 DATA LA LAME VENGE- RESSE,2,PLASTRON D' AIRAIN,1,LA GANGRENE VERTE,2,L'ETOUFFEUR D' AMES,2,MASSAGE SALVA- TEUR,1,TRIPES SANGUINO-LENTES,1,PISSENLIT MIRA- CULEUX,1,LA CONFRERIE AVENTUREUSE,2,CERCLE THAUMA- TURGIQUE,1 51101 DATA PAPYRUS ANCES- TRAL,1,L'ARCHER INFAIL-LIBLE,2,LA POINTE ACEREE,2,LE GROGNEMENT DUPHACOCHERE,1,FLEAU DES NON MORTS,1 51102 DATA GANT DE VELOUR,1,LA DAGUE VENI- MEUSE,2,CASINO DE CAIUS DE D'OR,1,REFUGE DE L' EXPLORATEUR,1,L'OEIL MAGIQUE,2,JOYAU DE MORDOR,1,COMPTOIR MELNI- BONEEN,1,LA PUCELLE DE PIERRE,2,SANCTUAIRE DES DIEUX,1 51103 DATA LA MANDRAGORE,2,L'ECHANTEUR DU KITHAI,2,TRAIT SANGLANT,1,BAZAR DE BALTOC,1,LA DENT DU DRAGON,2,DIALCO LATUMOFIS,1 51104 DATA LA MAIN AVIDE,2,CLYSTERE SOULA- GEANT,1,LA TAVERNE DU POING FERME,2,L'ETOILE DE FER,2 51105 DATA BAZAR DU BIZARRE,1,MANUSCRIT PERDU,1,CADUCEE,1,LA CORNE D'ABON-DANCE,2,LA BAGUETTE BLEUE,2 51106 DATA PLAN MYSTIQUE,1,L'ETOILE DE MNAR,2,CONTRE-CHARME,1,L'AUTHENTIQUE MIRAGE,2