Argolath

El juego está en BASIC con (creo) algo de CM.

1 REM :__-E_RND7LEN _?/ POKE ( PAUSE )_.?_4

CLS $4 LLIST TAN

Y__4NOT ( CLEAR Y__4NOT ( CLEAR TAN 4 CLS 5 LET U=Q 6 LET Z$="" 7 LET L1=Q 8 DIM C$(D,CODE "=",CODE ".") 9 FAST 10 LET Q2=T 11 FOR N=DO TO CODE "$" 12 LET E(N)=Q 13 NEXT N 14 FOR I=T TO D 15 FOR N=T TO CODE "=" 16 LET C$(I,N)="XXXXXXXXXXXXXXXXXXXXXXXXXXX" 17 NEXT N 20 NEXT I 22 LET E1=Q 25 LET RE=Q 27 GOTO CODE "_" 30 LET A$(Z,V,U)= "_" 40 LET C$(Z,U,V)= "_" 50 RETURN 160 IF NOT Q2 THEN GOTO VAL "2720" 650 LET Z=T 655 LET X=Z 660 LET Y=DO+(RND>T/D)*CODE ":" 665 LET F=INT (RND*DO)+CODE "_" 670 LET R=INT (RND*CODE "2")+DO 675 LET H=INT (RND*CODE "_")+L 680 IF F+R+HCODE "2" THEN LET F=CODE "2" 1003 IF H>DO THEN LET H=DO 1004 IF S>CODE "_" THEN LET S=CODE "_" 1005 IF R<=Q THEN GOTO VAL "7000" 1006 PRINT AT D,CODE "0";"QUE " 1007 PRINT TAB CODE ".";"FAIRE" 1008 PRINT AT L+D,CODE "0";"__" 1009 PRINT TAB CODE "1";"_" 1010 PRINT TAB CODE "1";"_" 1011 IF A$(Z,Y,X)="" THEN GOTO VAL "1015" 1012 LET A=Q 1013 LET Q2=Q 1015 LET M=T 1020 IF INKEY$="" THEN GOTO VAL "1020" 1027 IF NOT E(CODE "$") AND INKEY$="T" THEN

GOSUB 2000 1030 LET U=X+(INKEY$="6")-(INKEY$="5") 1040 LET V=Y+(INKEY6="8")-(INKEY$="7") 1050 IF INKEY$="0" THEN GOSUB 4000 1060 IF INKEY$="C" THEN GOSUB Q1+DO 1065 IF INKEY$="H" THEN GOSUB 9100 1070 IF S>=CODE "_" AND NOT C AND INKEY$="5" THEN

GOSUB 5000 1080 IF INKEY$="M" AND A AND Z=T THEN GOSUB 8000 1090 IF INKEY$="D" AND R AND Z=D THEN GOSUB 8000 1100 LET M$="0" 1105 IF E(CODE "_")>Q THEN

LET E (CODE "_")=E(CODE "_")-T 1144 IF A$(Z,V,U)="_" OR

A$(Z,V,U)="_" OR

A$(Z,V,U)="M" OR

A$(Z, V,U)="M" OR

A$(Z,V,U)="M" OR

A$(Z,V,U)="M" THEN

GOTO 1148 1145 IF A$(Z,V,U)="_" AND HCODE "COS ") AND

NOT E(CODE "_") THEN

GOTO VAL "2721" 2621 CLS 2622 PRINT "VOUS DECOUVREZ UN TRESOR CACHE." 2623 LET H=H+T 2624 GOTO VAL "2843" 2640 IF E(CODE "_")>Q OR RND*H>CODE "_" THEN

GOTO VAL "2720" 2642 POKE UR+T,T 2643 CLS 2644 FOR N=T TO CODE "=" 2645 PRINT "LES INSECTES DE FEU ATTAQUENT..." 2646 LET K=USR UR 2652 NEXT N 2654 LET F=F-D 2656 LET R=R-CODE "_"-INT (RND*CODE "_") 2660 GOTO N9 2722 PRINT "TOUT SEMBLE ASSEZ CALME..." 2725 IF L1D/DO) 2732 LET H=H-T/DO 2734 PRINT "PLUS D""HUILE POUR LA LAMPE." 2740 GOTO N8 2840 CLS 2841 PRINT "VOUS TROUVEZ UN COFFRE DE PIECES" 2843 PRINT "__________________" 2844 PRINT "__________________" 2845 PRINT "__________________" 2846 PRINT "__________________" 2847 PRINT "__________________" 2848 PRINT "__________________" 2849 PRINT "__________________" 2850 GOSUB CODE "2" 2851 LET O=O+INT (RND*CODE "Z")+ CODE "M" 2855 GOTO N9 2860 CLS 2861 PRINT "UN SPHYNX VOUS BARRE LA ROUTE." 2862 PRINT "__________________" 2863 PRINT "__________________" 2864 PRINT "__________________" 2865 PRINT "__________________" 2866 PRINT "__________________" 2867 PRINT "__________________" 2868 IF S*RND>L AND RNDDO-L OR E(CODE "_" )>Q THEN

GOTO VAL "2720" 2901 CLS 2903 PRINT "ATTENTION:DU GAZ SORT DU SOL." 2904 FOR N=CODE "=" TO D STEP -T 2906 PRINT AT N,Q; 2908 LET K=USR VAL "16547" 2910 NEXT N 2912 LET R=R-CODE "_" 2916 GOTO N9 2920 IF H*RND>D+D OR E(CODE "_")>Q THEN

GOTO VAL "2720" 2922 PRINT "TOMBE DANS UN PIEGE." 2930 LET R=R-CODE "_" 2934 GOTO N8 2980 CLS 2982 LET G=INT (RND*L)+T 2984 PRINT G;" SQUELETTES SE DRESSENT DEVANT" 2986 PRINT "VOUS." 2988 LET I=G*(INT (RND*L)+T) 2990 LET J=G*(INT (RND*L)+D) 2992 PRINT TAB D+L*N;"_____" 2993 PRINT TAB D+L*N;"_____" 2994 PRINT TAB D+L*N;"_____" 2995 PRINT TAB D+L*N;"_____" 2996 PRINT TRB D+L*N;"_____" 2997 PRINT TRB D+L*N ;"_____" 2998 IF NOT E(CODE "_") AND RND>D/L THEN

GOTO Q1 3005 GOTO N9 3020 CLS 3021 LET I=VAL "3040" 3022 IF Z=D THEN GOTO VAL "3032" 3024 IF U=CODE ">" THEN GOTO VAL "3028" 3025 LET U=CODE "(" 3026 LET V=D 3027 GOTO I 3028 LET U=D 3029 LET V=L 3030 GOTO I 3032 IF U=CODE "s" THEN GOTO VAL 3033 LET U=DO 3034 LET V=CODE "s" 3035 GOTO VI CODE LET U=CODE ">" 3037 LET V=CODE ">" 3040 POKE UR+T,CODE 3041 LET C$(Z,U,V)= 3042 PRINT AT CODE ,CODE "$"; 3043 LET I=DO 3044 PRINT TAB DO;"TELEPORTATION 3046 PRINT AT CODE "",CODE "$"; 3048 LET K=USR UR 3049 CLS 3050 GOTO N9 3102 PRINT TAB CODE "0";"**VOU5 AVEZ LA**" 3104 PRINT TAB CODE "0-100ENMEN 3106 LET E(D0)=T 3108 LET P=P+5 3110 LET H=H+T 3111 GOSUB CODE 3112 IF E(DO+T) AND E(DO) THEN GOSUB 7500 3116 GOTO N9 3122 LET G=INT (RND*CODE "1")+D 3124 PRINT "UN GROUPE DE ";G:" 0 ROUES VOUS" 3126 PRINT "BOUSCULE." 3128 LET I=G*(INT (RND*CODE "1") +T) 3130 LET J=G*(INT (RND*CODE -M?) +T) 3136 IF NOT E(CODE "5") AND RND> .4 THEN

GOTO Q1 3138 GOTO N8 3142 PRINT "UN FROID SOUDAIN SE FAIT." 3143 PRINT "C""EST UN SPECTRE MW MEM 3146 LET I=CODE "=" 3147 LET M$="2" 3148 LET J=CODE "=" 3149 IF RND>T/D OR

(NOT E(CODE 5") AND RND>D/DO) THEN

GOTO Q1 3150 GOTO N8 3160 CLS 3161 PRINT "UNE ARAIGNEE MONSTRU EUSE VOUS" 3162 PRINT "POURCHASZE..." 3163 PRINT - 3164 PRINT " 3165 PRINT - 3166 PRINT 3168 LET J=INT (RND*CODE "m-)+L 3169 IF RND>T/D THEN GOTO Q1 3170 GOTO N9 3182 LET G=INT (RND*CODE -r-)+D 3183 LET I=G*D 3184 LET J=G*L 3185 PRINT "VOUS ETES DANS LA CR VERNE D""UNE" 3187 PRINT "FAMILLE DE ";G:- TRO GLODYTES. 3190 IF RND>D/L THEN GOTO Q1 3192 GOTO N8 3320 CLS 3321 PRINT "VOUS TROUVEZ UNE JAR RE REMPLIE" 3322 PRINT "D""HUILE POUR LAMPE. 3323 PRINT 3324 PRINT 3326 PRINT ," 3327 PRINT M 3328 PRINT , 3329 PRINT ," 3330 LET L1=L1?CODE 3331 GOSUB CODE "2" 3332 GOTO N9 3342 PRINT TAB CODE 3344 PRINT TAB CODE "1";?EST ENE IN LIBRE. 3346 LET E(DO+T)=T 3350 LET P=P+INT (RND*5) 3360 LET H=H+T 3366 GOSUB CODE "2" 3368 IF E(DO+T) AND E(DO) THEN GOSUB VAL "7500" 3370 GOTO N8 3380 CLS 3381 LET 3382 LET I=CODE "r"+INT (RND*COD E "7") 3384 LET J=CODE "?"+INT (RND*COD E "7") 3386 PRINT "CR SENT LE BRULE...0 N =MEM VIE" 3387 PRINT "DANS LE COIN..." 3388 PRINT 3390 PRINT " 3392 PRINT ' 3394 PRINT ' 3396 PRINT - 3398 IF NOT E(CODE ) AND RND> D/DO THEN GOTO Q1 3399 GOTO N9 3402 PRINT "VOUS ETES AU PIED D" "UN ESCALIER. 3404 LET A=T 3408 GOTO N8 3422 PRINT "UN FANTOME GIGANTESO UE VOUS" 3424 PRINT "A REPERE." 3427 LET M$="1" 3428 LET I=L+T 3429 LET J=CODE "2" 3430 IF RND>L/DO THEN GOTO 01 3432 GOTO N8 3442 LET G=INT (RND*L)+D 3444 PRINT "UN GEANT DE ";G;" ME TRES VOUS FRIT" 3446 PRINT "FACE.IL L""AIR DEB ONNA IRE. 3448 LET I=G*CODE "1" 3450 LET J=G*G 3452 IF RND>D/L THEN GOTO Q1 3454 GOTO N8 3462 PRINT "UNE =PM MONSTRUEUS E 5""AGITE" 3464 PRINT "DEVANT VOUS." 3466 LET M$="2" 3468 LET J=5 3470 IF RND>D/L AND NOT E(CODE " 5") THEN GOTO 01 3472 GOTO N8 3482 PRINT "VOUS ETES R UNE SORT IE. 3484 PRINT -VOULEZ VOUS SORTIR ? 3486 INPUT 1$ 3488 IF IS(T)="0" THEN GOTO VAL "6000" 3490 GOTO N8 3542 PRINT "DEUX YEUX ROUGES VOU 5 OBSERVENT. 3544 PRINT "C""EST UN0:20;0212030 3546 LET M$="3" 3550 LET J=DO 3552 IF RND>.4 THEN GOTO Q1 3554 GOTO N8 3562 PRINT "UNE MEM ARMEE D""U N GLAIVE VOUS" 3564 PRINT "ATTROUE." 3566 LET M$="1" 3568 LET I=U 3570 LET J=V 3572 GOTO Q1 3580 GOTO VAL "3140" 3620 CLS 3622 PRINT "UNMENEM. APPARAIT AU CENTRE DU" 3624 PRINT "PENTACLE." 3626 LET M$="4" 3628 IF RNDD/L AND NOT E(CODE " 5") THEN

GOTO Q1 3672 GOTO N8 3680 IF (H*RNDCODE "COS ") AND NOT E(CODE -5-) THEN

GOTO VAL "2560" 3684 PRINT "VOUS DECOUVREZ UNE P ORTE SECRETE" 3685 LET H=H+T 3686 GOTO N8 3702 PRINT "VOUS TROUVEZ UN ANNE AU MAGIOUE." 3703 PRINT "VOUS VOUS SENTEZ PLUS FORT... 3706 LET F=F+CODE "e" 3708 LET P=P+5 3709 LET H=H+T 3710 GOSUB CODE "2" 3712 GOTO N8 3742 PRINT "UN =MEM SORT D""UN SARCOPHAGE. 3743 LET I=DO 3745 LET J=CODE "=" 3746 LET M$="3" 3748 GOTO Q1 3760 CLS 3762 PRINT "VOUS DERANGEZ UN SABBAT DE" 3764 PRINT "NOMBRNMAN " 3768 LET J=I*D 3770 LET M$="5" 3772 IF RND>D/L THEN GOTO N9 3774 PRINT "ELLES VOUS JETENT UN SORT... 3776 LET R=R?(D0-5/D) 3778 GOTO N9 3820 GOTO VAL "2980" 4000 CLS 4010 PRINT TAB L ETRT DE 4030 PRINT '?FORCE: "'F 4050 PRINT '?RESISTANCE: ";R 4070 PRINT ?HABILITE: H 4090 PRINT ,, ?EXPERIENCE: 4105 LET 0$="CUI 4110 PRINT ?WIEWPMM0N?.0 4120 LET L0=(CODE 'COS "?L1)/DO 4122 IF L0<0 THEN LET L0=0 4123 IF NOT E(DO) THEN LET 0$="N ON" 4124 PRINT ?"-MMIENGENGUNMNN:";L 0 4140 PRINT ;0$ 4150 LET P$="OUI- 4152 IF NOT E(DO+T) THEN

LET P$= PERLE DU DRAGON 4160 PRINT 4199 GOTO N9 4500 FOR N=T TO CODE ?>? 4502 NEXT N 4505 CLS 4506 PRINT TAB L+Co:-Nal 4508 IF INKEY$="" THEN GOTO VAL "4508" 4510 CLS 4511 LET H$=A5(Z,V,U) 4512 PRINT TAB CODE "0".-nessmem 4513 IF H$>"11" AND

H$<>"0" AND

H$<>"m" AND

H$<>"W" AND

H$<>"0" AND

H$<>"0" AND

H$<>"0" AND

H$<>"0" AND

H$<>"0" THEN

GOTO VAL "4520" 4515 PRINT "IL N""Y R RIEN A COMBATTRE. 4516 GOTO VAL "4599" 4520 PRINT AT L,D0;." 4521 PRINT TAB DO, 4528 PRINT AT CODE " BN FORCE: ;I:"

AT CODE " ?CODE "1 ,J 4529 PRINT AT CODE "N",0;">VOUS: E FORCE: ;F

; RESISTANCER :-;AT COD ODE ". 4530 LET R=R?INT (ORND*I>F*RND)* (I*RND)) 4531 LET J=J?INT CCRND*F>I*RND)* (F*RND)) 4532 PRINT AT CODE "0",CODE "1"; :

AT CODE -e-,201) "1".iM

AT CODE "",CODE ".-; ;

AT CODE "N ,CODE ". ;R 4533 IF J<=0 THEN GOTO VAL "4545 4534 IF R<=0 THEN GOTO VAL "7000 4535 PRINT AT D0,0;"ON CONTINUE 4536 IF INKEY$="" THEN GOTO 4536 4538 IF INKEY$="0" THEN GOTO 453 0 4539 IF NOT C AND INKEY$="5" THEN GOTO 5000 4540 IF INKEY$="N" THEN GOTO 4555 4542 GOTO 4536 4545 PRINT AT CODE "5",0;"VOU5 VEZ GAGNE... 4547 LET H=H+T/DO 4550 LET R=R+VAL M$ 4551 LET F=F+(RND':5$01);" -->"; E(N) NEXT 5271 5260 PRINT ,,"MMELE5 MONSTRES RV EC DES NOMS" 5272 PRINT "GONNE CELA.-"M0000"" SONT MAGIOUES" 5275 PRINT "L""ENVOUTEMENT N""A AUCUN EFFET..." 5276 PRINT 0110":5 5278 PRINT ,, "LEOUEL CHOISISSEZ VOUS '7' 5280 INPUT 1$ 5290 IF E(VAL I$)<=5 THEN GOTO V AL "5300" 5292 PRINT ""TROP FORT POUR VOU 5294 GOTO VAL "5280" 5295 IF VAL I$CODE 6% THEN GOTO VAL "5280" 5302 CLS 5303 LET C=CODE "5"*E(VAL 1$) 5304 POKE UR+T,C 5306 GOTO 5290+CODE "="*(VAL 1$) 5310 PRINT AT 0,CODE "0":"0-.9T

AT,CODE "1';"0-)AT D,CODE 5312 PRINT AT L,CODE AT CODE m",COCE "r"; ;

AT CODE CODE "f"; ".";

AT CODE "I',00 5314 PRINT AT CODE "1-,cooe "1"; 5318 PRINT RT CODE "5-,CODE "0"; 1121;00110NUEGNECGOir 5320 LET K=USR UR 5321 LET R=R?CODE "0- 5322 IF VAL M$>0 THEN GOTO 5326 5323 GOSUB CODE "2" 5324 PRINT "LA PLACE EST NETTE.. 5325 GOTO N9 5326 LET J=J?D*5+VAL M$ 5328 GOTO Q1 5330 CLS 5332 PRINT TAB CODE "0";"INVISIB ILITE" 5334 PRINT "000000n 5336 LET E(CODE "5")=5?L 5337 LET F=F+INT (E(CODE "5")/D) 5338 LET R=R?INT (RND*5)+E(CODE OISEAU D"OR 5339 PRINT AT D0,0; 5340 LET K=USR 16547 5342 LET K=USR UR 5349 GOTO N9 5350 CLS 5351 PRINT AT D,D0;" 0 5352 PRINT TAB DO;" 5353 PRINT TAB DO;" 5354 PRINT TAB DO;" 5355 LET F=F+L 5356 LET R=R?D*D 5358 PRINT RT CODE "",CODE ?e?; "Iff" rs. 5360 PRINn T T AB CODE "f"; "r 1 1 r 5362 PRINT TAB CODE "0";-M ME 1 1 LLI" 5364 LET K=USR UR 5368 GOTO N9 5370 CLS 5372 FOR N=T TO L*D 5374 PRINT AT DO DO?ATIMNENIN0021 5376 PRINT AT DO,0; 5377 LET K=USR 16547 5378 NEXT N 5379 PRINT AT DO,DO: "E1321 5380 LET K=USR UR 5382 LET R=R?L 5386 LET 1=1-5 5387 LET J=J?D*D 5389 GOTO Q1 5391 PRINT ,,"COMBIEN DE TEMPS S OUHRITEZ VOUS" 5392 PRINT "RESTER DANS LA COOUE 5393 INPUT N 5394 IF NDO THEN GOTO 5393 5395 LET L1=L1+N*D 5396 LET R=R+N*L 5400 POKE UR+T,T 5401 LET H=H+D/DO 5402 PRINT AT DODO' 5403 PRINT TAB DO;' 5404 PRINT TAB CODE 00UE NI' 5405 PRINT TAB DO;' 5406 PRINT TAB DO; 5407 LET K=USR UR 5408 PAUSE DO*N 5409 GOTO N9 5410 CLS 5411 PRINT ' OUR DE VOUS 5414 PRINT RT 00,0+0;?r mom re rai sr ■ 5415 PRINT TAB D+D;-Mm■MMII 5I 5416 PRINTN TAB D+D;".. NNE 1 1 N. N L=? 5417 LET K=USR UR 5419 LET R=R?L 5421 LET J=J+VAL M$?INT (RND*(F+ 5) +D) 5422 IF J>0 THEN GOTO Q1 5423 GOTO 5323 5430 IF NOT E(CODE "$") THEN GOT O N8 5431 CLS 5433 PRINT TAB CODE "0";"VOU5 DI SPARAISSEZ" 5434 LET R=R?CODE "e" 5436 LET V=Y0 5438 LET U=X0 5439 LET Z=Z0 5440 PRINT "POUR APPARAITRE PRES DU TALISMAN" 5444 GOTO VAL "3040" 5450 CLS 5451 LET R=R?L 5452 PRINT ENCIr15 5453 LET E(CODE ?C?)=S 5454 PAUSE CODE ?Z- 5455 IF XCODE ?/? OR YCODE ")" THEN GOTO VAL "5467? 5456 FAST 5457 FOR N=V?D TO V+D 5458 FOR I=U?D TO U+D 5459 IF A$ (Z,N,I) ="01" OR A$(Z,N,I)="" OR A$(Z,N,I)="0" OR A$(Z,N,I)="0" OR A$(Z,N,I)="N" OR A$(Z,N,I)="0" THEN GOTO VAL "5463" 5460 IF A$(Z,N,I)="0" THEN LET C LET LET C?(Z,I,N)="0" 5462 GOTO VAL "5464" 5463 LET C5(Z,I,N)=A5(Z,N,I) 5464 NEXT I 5465 NEXT N 5466 GOTO VAL "5490" 5467 PRINT "MAIS VOUS ETES PRES DU DEHORS." 5468 PRINT "VOTRE ESPRIT EST MAL CONCENTRE." 5469 GOTO VAL "5490" 5470 CLS 5472 PRINT AT DO,D0:**03.530050Th 5473 LET R=R?L 5476 LET K=USR UR 5478 LET J=J?(5+INT (RND*I)) 5480 IF J<=(CODE -1--VAL M$) THEN GOSUB CODE "2" 5482 GOTO Q1 5497 SLOW 5498 GOTO N9 5500 IF INKEY$="" THEN GOTO VAL 5502 CLS 5510 FOR N=T TO CODE 5520 PRINT C$(Z,N) 5530 NEXT N 5545 RETURN 6000 CLS 6010 PRINT "VOUS RETOURNEZ A VOTRE VILLAGE." 6015 LET RE=T 6040 GOSUB 4080 7000 CLS 7010 PRINT AT DO?L,CODE "m""'fl 7012 PRINT 7013 PRINT ," 7014 PRINT ,' 7015 PRINT ,' 7016 PRINT ,' 7017 PRINT ," 7025 PRINT ,,,, UNE AUTRE PARTIE 7027 IF INKEY$="" THEN GOTO 7027 7029 IF INKEY$="0" THEN GOTO T 7031 IF INKEYS="N" THEN NEW 7033 GOTO 7027 7500 CLS 7510 PRINT "VOUS VOILA LE GRAND MAITRE" 7520 PRINT "D""ARGOLATH.MAIS IL FAUT SORTIR.." 7530 LET A2=T 7540 RETURN 8000 LET Z=L?Z 8010 GOSUB VAL "5500" 8020 LET C$(Z,U,V)="0" 8030 RETURN 9000 SAVE "ARGOLATM" 9010 GOTO T 9100 CLS 9102 POKE VAL "16418" 0 9105 PRINT "VOTRE SOT: SORTIR DU LABYRINTHE" 9110 PRINT "LE PLUS RICHE POSSIBLE CAR DE " 9120 PRINT "NOMBREUX TRESORS TRAINENT DANS" 9130 PRINT "LES SOUTERRAINS D""O 9140 PRINT "VOUS POUVEZ AUSSI DE VENIR LE" 9150 PRINT "MAITRE D""CEECIMIRM EN RETROUVANT" 9160 PRINT "LA PERLE DU DRAGON ET L""OISEAU" 9190 PRINT "TAB CODE "e"...momms 9200 PRINT "--5,6,7,8---->DIREC TION DES" 9210 PRINT "FLECHES DU CLAVIER." 9240 PRINT ----0---->ETAT DE ";N 9250 PRINT ----5---->JETER UN 50 9260 PRINT ----C---->COMBATTRE"R OU DESCENDRE-UN TALISMAN." 9290 PRINT "(EN CA5 DE TELEPORT. ,ON SE REMA?" 9300 PRINT "TERIALISE R L""ENDRO IT OU ON A" 9310 PRINT -LAISSE LE TALISMAN.) 9320 PRINT "?""H""-->RAPPEL DES INSTRUCTIONS." 9340 PRINT ,,"BONNE CHANCE,";N$ 9400 IF INKEY$="" THEN GOTO VAL 9410 POKE VAL "16418",D 9500 IF El THEN GOTO N9 9510 RETURN