1 REM MENU 10 A = USR (1): FOR I = 1 TO 5: READ A: POKE 36863 + I,A: NEXT I: CALL 36864: & S1: & SET0 20 DATA 162,4,76,160,3: REM BACK_MACRO 25 DIM KA%(8),KB%(8),KC%(8),OB$(9),OB%(9,8),N$(25),FC%(16),LI$(16),QU%(16),WIZ%(21),CA%(6,8),KA$(8),KC$(8) 30 A = USR (2): & MODE1,0: & RELIRE50010: FOR I = 1 TO 25: READ N$(I): NEXT I 50 GOSUB 6000:SC = 0:A = 0:ID = 11: INVERSE : GOSUB 250: NORMAL 51 REM OPTIONS 60 GET A$ 65 N0 = 0:NN = 3 70 IF A$ = CHR$ (8) THEN & NOISE1,10,10: GOSUB 160: GOTO 60 80 IF A$ = CHR$ (21) THEN & NOISE1,10,10: GOSUB 200: GOTO 60 90 IF A$ = CHR$ (13) THEN 120 110 GOTO 60 120 ON A + 1 GOTO 260,15000,8000,7000 160 REM <- 165 GOSUB 250 170 IF A = N0 THEN A = NN: GOTO 190 180 A = A - 1 190 INVERSE : GOSUB 250: NORMAL : RETURN 200 REM -> 210 GOSUB 250 220 IF A = NN THEN A = N0: GOTO 240 230 A = A + 1 240 INVERSE : GOSUB 250: NORMAL : RETURN 250 & OU2,ID + A * 3: PRINT N$(A + SC + 1): RETURN 260 REM CREATION PERSO 270 W% = 9:MS$ = N$(16) 280 GOSUB 2300: IF V% = 1 THEN 2200 310 GOSUB 2400 320 IF F$ < > "*BLANKPLAYER*" THEN & NOISE10,1,40: & OU7,14: PRINT "IL Y A DEJA:":A = INT ((25 - LEN (F$)) / 2): & OUA,16: INVERSE : PRINT F$: NORMAL : & OU30,8: PRINT N$(15): & OU30,11: PRINT N$(11): GET A$: GOTO 260 330 GOSUB 6100: GOSUB 5000:A = USR (3) 350 REM NOM 360 B$ = "":LIM = 14:X = 9:Y = 10: & OUX,Y: & MODE1,1: GOSUB 2000 370 NM$ = B$ 400 REM RACE 410 & RELIRE50210: FOR I = 1 TO 6: READ RACE$(I): NEXT I 420 RA% = 1: GOTO 480 430 GET A$:PC = PEEK ( - 16384) 440 IF PC = 21 THEN RA% = RA% + 1: IF RA% > 6 THEN RA% = 1 450 IF PC = 27 THEN 2200 460 IF PC = 8 THEN RA% = RA% - 1: IF RA% < 1 THEN RA% = 6 470 IF PC = 13 THEN PRINT " ": GOTO 600 480 & OU9,11: PRINT SPC( 7);: & OU9,11: PRINT RACE$(RA%); 490 GOTO 430 600 REM CARACT 605 FOR I = 1 TO 6: FOR J = 1 TO 8: READ CA%(I,J): NEXT J: NEXT I 610 FOR I = 1 TO 8:KB%(I) = CA%(RA%,I): NEXT I 620 FOR I = 1 TO 4:KA%(I) = KB%(I) + INT ( RND (1) * 4) + 1: & OU15,I + 11: PRINT STR$ (KA%(I)) + " ": NEXT I 630 & OU24,15 640 GET A$ 650 IF A$ = "O" THEN & OU24,15: PRINT "O": GOTO 700 660 IF A$ = "N" THEN & OU24,15: PRINT "N": GOTO 620 665 IF A$ = CHR$ (27) THEN 2200 670 GOTO 640 700 REM OTHER CARACT 720 KA%(5) = KB%(5) + INT (0.5 * (KA%(3) + KA%(4) - KB%(3) - KB%(4)) + .5) 730 KA%(6) = KB%(6) + INT (0.5 * (KA%(1) + KA%(2) - KB%(1) - KB%(2)) + .5) 740 KA%(7) = KB%(7) + INT (0.5 * (KA%(1) + KA%(4) - KB%(1) - KB%(4)) + .5) 750 KA%(8) = KB%(8) + INT (0.5 * (KA%(2) + KA%(4) - KB%(2) - KB%(4)) + .5) 760 FOR I = 5 TO 8: & OU15,I + 11: PRINT STR$ (KA%(I)) + " ": NEXT I 765 REM CLASSE 770 FOR I = 1 TO 4: READ CLASSE$(I): NEXT I 780 CL% = 1: GOTO 850 790 GET A$:PC = PEEK ( - 16384) 800 IF PC = 21 THEN CL% = CL% + 1: IF CL% > 4 THEN CL% = 1 805 IF PC = 27 THEN 2200 810 IF PC = 8 THEN CL% = CL% - 1: IF CL% < 1 THEN CL% = 4 820 IF PC = 13 THEN PRINT " ": GOTO 870 850 & OU9,20: PRINT SPC( 9);: & OU9,20: PRINT CLASSE$(CL%); 860 GOTO 790 870 REM BONUS CLASSE 880 KA%(CL%) = KA%(CL%) + 5:KB%(CL%) = KB%(CL%) + 5: & OU15,11 + CL%: PRINT STR$ (KA%(CL%)) 890 REM TYPE 895 FOR I = 1 TO 4: READ TYPE$(I): NEXT I 900 TY% = 1: GOTO 950 910 GET A$:PC = PEEK ( - 16384) 920 IF PC = 21 THEN TY% = TY% + 1: IF TY% > 4 THEN TY% = 1 925 IF PC = 27 THEN 2200 930 IF PC = 8 THEN TY% = TY% - 1: IF TY% < 1 THEN TY% = 4 940 IF PC = 13 THEN PRINT " ": GOTO 970 950 & OU9,21: PRINT SPC( 10);: & OU9,21: PRINT TYPE$(TY%); 960 GOTO 910 970 REM BONUS TYPE 975 KB%(4 + TY%) = KB%(4 + TY%) + 5 + 5 * (TY% = 3 OR TY% = 4):KA%(4 + TY%) = KA%(4 + TY%) + 5 + 5 * (TY% = 3 OR TY% = 4): & OU15,15 + TY%: PRINT STR$ (KA%(4 + TY%)) 979 REM SAVE(O/N) 980 FOR I = 1 TO 8:KC%(I) = KA%(I): NEXT I: & OU37,21 985 GET A$ 990 IF A$ = "O" THEN & OU37,21: PRINT "O": GOTO 1030 1000 IF A$ = "N" THEN & OU37,21: PRINT "N": GOTO 2200 1010 IF A$ = CHR$ (27) THEN 2200 1020 GOTO 985 1030 NA% = 1:CY% = 26:CX% = 12:NM% = 3:NJ% = 0:GP% = 0:XP% = 0:WZ% = 0 1040 FOR I = 1 TO 21:WIZ%(I) = 0: NEXT I:WIZ%(2) = 15 1050 FOR I = 1 TO 4:EQ%(I) = 0: NEXT I 1060 ENC%(1) = 0:ENC%(2) = 0 1070 OB% = 6: & RELIRE50110 1080 FOR I = 1 TO OB%: READ OB$(I) 1090 FOR J = 1 TO 8: READ OB%(I,J): NEXT J 1100 NEXT I 1105 & RELIRE50160 + CL%: READ OB$(6): FOR J = 1 TO 8: READ OB%(6,J): NEXT J 1110 FOR I = 1 TO 15: & ESPELLI,0,0,0,0,0: NEXT I 1120 IF CL% = 1 THEN & ESPELL7,3,1,1,1,1: & ESPELL15,3,1,0,0,0 1130 IF CL% = 2 THEN & ESPELL6,3,1,1,1,1: & ESPELL10,3,0,0,1,0 1500 GOSUB 40200: GOTO 2200 2000 REM INPUT 2015 GET A$:PC = PEEK ( - 16384) 2020 IF PC = 13 AND LEN (B$) > = 1 THEN PRINT " ": RETURN 2025 IF PC = 27 THEN POP : GOTO 2200 2030 L = LEN (B$) 2050 IF PC = 127 THEN 2070 2055 IF L > = LIM THEN & MUSIC1,127,2: GOTO 2000 2060 GOTO 2110 2070 IF L < 1 THEN 2015 2080 B$ = MID$ (B$,1,L - 1): PRINT " " 2090 & OUX,Y: PRINT B$;: GOTO 2015 2110 IF PC < 32 OR PC > 126 THEN 2015 2115 B$ = B$ + A$: GOTO 2090 2200 REM RETOUR DEBUT 2210 & MODE1,0: GOSUB 6100: CLEAR : GOTO 25 2300 REM ASK F? 2305 FC$ = "2" 2310 V% = 0: GOSUB 6100: & OUW%,8: PRINT MS$: & OU4,14: PRINT "Ins{rez la face ";FC$: & OU30,8: PRINT N$(15): & OU30,11: PRINT N$(12): & OU30,13: PRINT N$(11): GET A$ 2320 GOSUB 6100: IF A$ = CHR$ (27) THEN V% = 1: RETURN 2330 A = USR (0): & READ "FACE": INPUT F$: & END :A = USR (1) 2340 IF F$ < > FC$ THEN & NOISE10,20,10: GOTO 2310 2350 RETURN 2400 REM READ NM$ 2410 A = USR (0): & READ "PLAYER": INPUT F$: & END :A = USR (1): RETURN 2500 REM DISK VIDE 2510 IF F$ = "*BLANKPLAYER*" THEN & NOISE10,1,40: & OU8,15: PRINT "DISK VIDE!!": & OU30,8: PRINT N$(15): & OU30,11: PRINT N$(11): GET A$:V% = 1: RETURN 2520 V% = 0: RETURN 2600 REM 2 CHIFFRES 2610 A$ = STR$ (V%): IF LEN (A$) = 1 THEN A$ = "0" + A$ 2620 RETURN 5000 REM ECRAN CREATION PERSO 5010 & OU9,8: PRINT N$(16): & OU2,10: & WINDOW2,25,10,23: PRINT "Nom :": PRINT "Race :": PRINT "Intelligence:": PRINT "Sagesse.....:": PRINT "Force.......:": PRINT "Dext{rit{...:" 5020 PRINT "Vitalit{....:": PRINT "Magn{tisme..:": PRINT "Adresse.....:": PRINT "Perception..:": PRINT "Classe:": PRINT "Type :": & WINDOW0,40,0,24: & OU19,15: PRINT "OKAY:" 5030 & OU30,8: PRINT N$(15): & OU30,11: & WINDOW30,9,10,23: & CLS: PRINT N$(11): PRINT : PRINT N$(12): PRINT : PRINT N$(24): PRINT : PRINT N$(25): PRINT : PRINT N$(13): PRINT : PRINT " SAUVE": PRINT " (O/N):": & WINDOW0,40,0,24 5040 RETURN 5100 REM ECRAN UTIL 5110 GOSUB 6100: & WINDOW0,40,0,24: & OU8,8: PRINT N$(17): & OU2,11: PRINT N$(5): & OU2,14: PRINT N$(6): & OU2,17: PRINT N$(7): & OU2,20: PRINT N$(8) 5120 & OU30,8: PRINT N$(15): & OU30,11: PRINT N$(9): & OU30,13: PRINT N$(10): & OU30,15: PRINT N$(11): & OU30,17: PRINT N$(12): RETURN 6000 REM ECRAN OPTIONS 6010 GOSUB 6100: & WINDOW0,40,0,24: & OU10,8: PRINT N$(14): & OU2,11: PRINT N$(1): & OU2,14: PRINT N$(2): & OU2,17: PRINT N$(3): & OU2,20: PRINT N$(4) 6020 & OU30,8: PRINT N$(15): & OU30,11: PRINT N$(9): & OU30,13: PRINT N$(10): & OU30,15: PRINT N$(11): RETURN 6100 REM VIDE ECRAN 6110 & WINDOW2,23,8,9: & CLS: & WINDOW30,8,8,9: & CLS: & WINDOW1,25,10,23: & CLS: & WINDOW29,10,10,23: & CLS: & WINDOW0,40,0,24: RETURN 7000 REM REPRENDRE 7010 W% = 9:MS$ = N$(22): GOSUB 2300: IF V% = 1 THEN 2200 7020 GOSUB 2400: GOSUB 2500: IF V% = 1 THEN 7000 7030 & MODE0,0: HOME : TEXT :A = USR (0): & RUN "CONT",20480 8000 REM COMMENCER 8010 W% = 9:MS$ = N$(23): GOSUB 2300: IF V% = 1 THEN 2200 8020 GOSUB 2400: GOSUB 2500: IF V% = 1 THEN 8000 8030 & MODE0,0: HOME : TEXT :A = USR (0): & RUN "START",2049 15000 REM UTIL 15010 GOSUB 5100:SC = 4:A = 0:ID = 11: INVERSE : GOSUB 250: NORMAL 15020 GET A$ 15030 N0 = 0:NN = 3 15040 IF A$ = CHR$ (8) THEN & NOISE1,10,10: GOSUB 160: GOTO 15020 15050 IF A$ = CHR$ (21) THEN & NOISE1,10,10: GOSUB 200: GOTO 15020 15060 IF A$ = CHR$ (13) THEN 15090 15070 IF A$ = CHR$ (27) THEN 2200 15080 GOTO 15020 15090 ON A + 1 GOTO 15100,16000,17000,18000 15100 REM EXAMEN 15110 W% = 9:MS$ = N$(18): GOSUB 2300: IF V% = 1 THEN 15000 15120 GOSUB 2400 15130 GOSUB 2500: IF V% = 1 THEN GOTO 15100 15140 GOSUB 40000: & OU9,8: PRINT N$(18) 15150 & OU2,11: PRINT NM$ 15160 & RELIRE50280: FOR I = 1 TO 4: READ CLASSE$(I): NEXT I: & OU17,11: PRINT CLASSE$(CL%) 15170 & RELIRE50210: FOR I = 1 TO 6: READ RACE$(I): NEXT I: & OU2,13: PRINT RACE$(RA%) 15180 & RELIRE50310: FOR I = 0 TO 16: READ LI$(I): NEXT I: & OU10,13: PRINT LI$(NA%) 15190 FOR I = 1 TO 8:V% = KA%(I): GOSUB 2600:KA$(I) = A$:V% = KC%(I): GOSUB 2600:KC$(I) = A$: NEXT I 15200 & OU2,15: PRINT "INT: "KC$(1)"/"KA$(1)" VIT: ";: IF KC%(5) < 0 THEN PRINT "MORT!": GOTO 15210 15205 PRINT KC$(5)"/"KA$(5) 15210 & OU2,17: PRINT "SAG: "KC$(2)"/"KA$(2)" MAG: "KC$(6)"/"KA$(6) 15220 & OU2,19: PRINT "FOR: "KC$(3)"/"KA$(3)" ADR: "KC$(7)"/"KA$(7) 15230 & OU2,21: PRINT "DEX: "KC$(4)"/"KA$(4)" PER: "KC$(8)"/"KA$(8) 15240 & OU30,8: PRINT N$(15): & OU30,11: PRINT N$(11): GET A$: GOSUB 6100: & OU9,8: PRINT N$(18) 15250 & OU2,11: PRINT "ARG: "GP%: & OU14,11: PRINT "EXP: "XP% 15260 IF OB% = 0 THEN & OU8,17: PRINT "AUCUN OBJET": GOTO 15320 15270 FOR I = 1 TO OB%: & OU6,I + 12 15280 V% = 0: FOR J = 1 TO 4: IF I = EQ%(J) THEN V% = 1 15290 NEXT J 15300 IF V% = 1 THEN INVERSE 15310 PRINT OB$(I): NORMAL : NEXT I 15320 & OU30,8: PRINT N$(15): & OU30,11: PRINT N$(11): GET A$: GOSUB 6100: & OU9,8: PRINT N$(18):V% = 11:NS% = 0 15330 FOR I = 1 TO 15: & LSPELLI,SO%(1),SO%(2),SO%(3),SO%(4),SO%(5) 15340 W% = 0: FOR J = 1 TO 5: IF SO%(J) > 0 THEN W% = 1 15350 NEXT J 15360 IF W% = 0 THEN 15420 15370 & OU2,V%:OP$ = " ": & SMAGI,0,OP$: INVERSE : PRINT OP$: NORMAL : & OU20,V%: PRINT "("SO%(1)")" 15380 W% = V% + 1: FOR J = 2 TO 5: IF SO%(J) > 0 THEN & OU6,W%: & SMAGI,J - 1,OP$: PRINT OP$:W% = W% + 1:NS% = NS% + 1 15390 NEXT J 15400 IF V% = 11 THEN V% = 17: GOTO 15420 15410 & OU30,8: PRINT N$(15): & OU30,11: PRINT N$(11): GET A$: GOSUB 6100: & OU9,8: PRINT N$(18):V% = 11 15420 NEXT I 15430 IF NS% = 0 THEN & OU5,15: PRINT "AUCUN SORT CONNU!": GOTO 15450 15440 IF V% = 11 THEN 15000 15450 & OU30,8: PRINT N$(15): & OU30,11: PRINT N$(11): GET A$: GOTO 15000 16000 REM EFFACE 16010 W% = 10:MS$ = N$(19): GOSUB 2300: IF V% = 1 THEN 15000 16020 GOSUB 2400 16030 GOSUB 2500: IF V% = 1 THEN GOTO 16000 16040 & OU10,8: PRINT N$(19): & OU2,15: PRINT "J'EFFACE: ";: INVERSE : PRINT F$: NORMAL : & OU2,17: PRINT "CONFIRMATION (O/N):"; 16050 & MODE1,1 16060 GET A$ 16070 IF A$ = "N" THEN PRINT A$: & MODE1,0: GOTO 16000 16080 IF A$ = "O" THEN 16100 16090 GOTO 16060 16100 PRINT A$: & MODE1,0: GOSUB 6100: & OU2,15: PRINT "EFFACEMENT EN COURS..." 16110 A = USR (0):A$ = "PLAYER": & DEL A$: & DEF A$,4: & PRINT A$: PRINT "*BLANKPLAYER*": & END :A = USR (1): GOTO 15000 17000 REM GROS BILL 17010 W% = 9:MS$ = N$(20): GOSUB 2300: IF V% = 1 THEN 15000 17020 GOSUB 2400 17030 GOSUB 2500: IF V% = 1 THEN 17000 17040 & OU9,8: PRINT N$(20): & OU2,15: PRINT "Gonflage perso...";: GOSUB 40000 17050 FOR I = 1 TO 8:KA%(I) = 99:KB%(I) = 99:KC%(I) = 99: NEXT I 17060 FOR I = 1 TO 15: & ESPELLI,15,1,1,1,1: NEXT I 17070 GP% = 5000:XP% = 5000 17080 GOSUB 40200 17090 PRINT "OK!": & OU30,8: PRINT N$(15): & OU30,11: PRINT N$(11): GET A$: GOTO 15000 18000 REM INIT DJN 18010 GOSUB 6100: & OU6,8: PRINT N$(21): & RELIRE50310: FOR I = 0 TO 16: READ LI$(I): NEXT I 18020 FOR I = 1 TO 16: READ QU%(I): NEXT I: FOR I = 1 TO 16: READ FC%(I): NEXT I 18030 & OU2,14: PRINT "S{lectionner le lieu:": & OU30,8: PRINT N$(15): & OU30,11: PRINT N$(11): & OU30,13: PRINT N$(24): & OU30,15: PRINT N$(25): & OU30,17: PRINT N$(12): & MODE1,1 18040 MAP = 1: GOTO 18100 18050 GET A$:PC = PEEK ( - 16384) 18060 IF PC = 21 THEN MAP = MAP + 1: IF MAP > 16 THEN MAP = 1 18070 IF PC = 27 THEN & MODE1,0: GOTO 15000 18080 IF PC = 8 THEN MAP = MAP - 1: IF MAP < 1 THEN MAP = 16 18090 IF PC = 13 THEN & MODE1,0: PRINT " ": GOTO 18120 18100 & OU5,16: PRINT SPC( 15);: & OU5,16: PRINT LI$(MAP); 18110 GOTO 18050 18120 FC$ = "6":W% = 6:MS$ = N$(21): GOSUB 2310: IF V% = 1 THEN 15000 18130 A = USR (0):PK = 29952: FOR I = 1 TO QU%(MAP):A$ = "MAP." + STR$ (MAP) + "." + STR$ (I): & RECALL A$,PK:PK = PK + 2484: NEXT I 18140 A = USR (1):FC$ = STR$ (FC%(MAP)):W% = 6:MS$ = N$(21): GOSUB 2310: IF V% = 1 THEN 15000 18150 A = USR (0):PK = 29952: FOR I = 1 TO QU%(MAP):A$ = "MAP." + STR$ (MAP) + "." + STR$ (I): & DEL A$: & STORE A$,PK,2483:PK = PK + 2484: NEXT I 18160 A = USR (1): GOTO 15000 40000 REM LOAD 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 40090 & END :A = USR (1):CL% = CL% + 1: RETURN 40200 REM SAVE PLAYER 40205 A = USR (0):CL% = CL% - 1 40210 A$ = "PLAYER": & DEL A$: & DEF A$,4: & PRINT A$: PRINT NM$: PRINT NA%: PRINT NM%: PRINT CY%: PRINT CX%: 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 40900 & END :A = USR (1): RETURN 50000 REM CHOIX 50010 DATA Cr{ation d'un personnage,Utilitaires,Commencer une partie,Reprendre une partie 50020 DATA Examiner un personnage,Effacer un personnage,Sp{cial Gros Bill,Initialiser un lieu 50030 DATA <-=HAUT,->=BAS,CR=OKAY,ESC=MENU,DEL 50040 DATA OPTIONS,UTILISER,CREATION,UTILITAIRES 50050 DATA EXAMINER,EFFACER,GROS BILL,INITIALISER LIEU 50060 DATA REPRENDRE,COMMENCER 50070 DATA <-=CHOIX,->=CHOIX 50100 REM OBJETS 50110 DATA Dague,0,1,5,5,4,0,4,9 50120 DATA Torche,20,5,0,0,5,17,5,0 50130 DATA Potion DEX,20,25,0,0,3,46,10,0 50140 DATA Potion,20,5,0,0,2,22,5,0 50150 DATA Gourde VIT,20,10,0,0,2,22,5,0 50160 REM OBJ SUP 50161 DATA Baguette,40,50,0,0,15,15,7,3 50162 DATA Ankh,40,50,0,0,15,15,6,3 50163 DATA Torque FOR,20,50,0,0,3,30,25,25 50164 DATA Fouet mag.,20,50,0,0,3,40,255,255 50200 REM DATAS CREATION 50210 DATA Humain,Nain,Elfe,Hobbit,Orque,Gnome 50220 DATA 10,10,10,10,10,10,10,10 50230 DATA 10,05,10,10,15,05,15,10 50240 DATA 10,05,10,10,10,15,10,10 50250 DATA 05,10,05,20,10,05,15,10 50260 DATA 05,05,15,10,15,05,10,15 50270 DATA 10,15,00,15,05,15,10,10 50280 DATA Sorcier,Pr~tre,Guerrier,Voleur 50290 DATA R{sistant,Charmeur,Adroit,Attentif 50300 REM LIEUX 50310 DATA EXTERIEUR,TEREBAND,ILMLOKINI,SANCTUM ANIMA 50320 DATA BAR-BZLIKANA,NEW-SODOMA,CRYPTE,EGOUT,CAVERNE 50330 DATA SOUS SOL,LIBERIA,FOONGLOW,KIRGAER,CLITANIA 50340 DATA CIRCUM DRAKNIR,CYMRIL,TOUR 50400 REM QUART+FACE 50410 DATA 4,4,4,4,4,1,1,1,1,4,4,4,4,1,1,1 50430 DATA 3,3,3,3,3,3,3,5,5,4,4,4,4,4,4,4