3 REM "E.PETRELLI A.VERCESI 15/12/835 GOSUB 20000:CLS:DIM DIR$(4):DIR$(1)="Nord":DIR$(2)="Est":DIR$(3)="Sud":DIR$(4)="Ovest"7 DIM E(10,10),B(10,10),M(11),M$(11),N(11),T$(11),P(11),G$(3),AR$(11,3),MP$(11)9 DIM C(15),D(15),F$(7):F$(0)="A":F$(1)="-":F$(2)="M":F$(3)="L":F$(5)=" ":F$(7)="*":E$="."+CHR$(13)+CHR$(10)+" "10 FOR I=1 TO 11:FOR J=1 TO 3:READ AR$(I,J):NEXT:READ M$(I),MP$(I),T$(I),M(I),P(I):NEXT11 DEF FNV$(X)=MID$(STR$(X),2):DEF FNP$(X,Y)=STRING$(X-LEN(FNV$(Y)),".")13 ZI=0:V=INT(RND*3)15 C=INT(RND*1501+500):S=INT(RND*6):R=INT(RND*4)17 G$(1)="Magia del Sonno":G$(2)="Magia del Sortilegio":G$(3)="Magia dell'Invisibilita'"18 PRINT:PRINT:PRINT:PRINT"Vuoi usare valori particolari di Forza e Magia (s/n) ? ";:X$="":WHILE X$="":I=(I+1)MOD 1000:X$=INKEY$:WEND:PRINT X$:RANDOMIZE I:IF X$="s" THEN 163020 D=C:V1=V:S1=S:R1=R:GOSUB 10000:PRINT:PRINT:PRINT"Prego attendere..."25 FOR I=1 TO 10:FOR J=1 TO 1027 T=INT(RND*10):IF T<>1 OR CS=15 THEN T=030 H=INT(RND*2):W=INT(RND*10):P=INT(RND*51)35 A(I,J)=10000*T+100*P+10*W+H37 IF T=1 THEN CS=CS+1:C(CS)=I:D(CS)=J40 NEXT:NEXT:T=045 X1=INT(RND*8)+2:Y1=INT(RND*8)+250 X=INT(RND*10)+1:Y=INT(RND*10)+155 IF X1<1 OR X1>10 OR Y1<1 OR Y1>10 THEN 100056 FOR I=1 TO 10:FOR J=1 TO 10:B(I,J)=0:NEXT:NEXT57 CA=INT(A(X1,Y1)/10000):P=INT((A(X1,Y1)-(10000*CA))/100)60 W=INT((A(X1,Y1)-10000*CA-100*P)/10)65 H=A(X1,Y1)-10000*CA-100*P-10*W:I=0:J=067 IF CA=1 THEN I=INT(RND*10+1):J=INT(RND*10+1):B(I,J)=770 IF CA=1 AND I=X AND Y=J THEN B(I,J)=0:GOTO 6775 IF H=1 THEN I=INT(RND*10+1):J=INT(RND*9+1)85 IF H=1 AND B(I,J)<>0 THEN 7587 IF H=1 THEN B(I,J)=390 B(X,Y)=5:IF W=0 THEN 11595 FOR I=1 TO W100 J=INT(RND*10)+1:K=INT(RND*10)+1105 IF B(J,K)<>0 THEN 100110 B(J,K)=2:NEXT115 IF P=0 THEN 140120 FOR I=1 TO P125 J=INT(RND*10)+1:K=INT(RND*10)+1130 IF B(J,K)<>0 THEN 125135 B(J,K)=1:NEXT140 IF ZI=0 THEN CLS:GOSUB 3705:V$="":GOSUB 3000:ZI=-1150 GOSUB 3500160 GOSUB 3600210 IF T=1 THEN T=0:RETURN213 IF T=2 THEN 515215 GOSUB 3000:I=INT(RND*5):IF I=2 THEN GOSUB 1500:FOR A=1 TO 4000:NEXT220 IF I=1 AND T<>9 THEN V$=V$+"Qui non c'e' nulla"+E$:GOTO 515223 IF I=1 AND T=9 THEN 513225 I=INT(RND*16+1):N=I:IF I=12 THEN 840235 IF I=13 THEN 870237 IF I=14 THEN 900240 IF I>14 THEN J=100:V$=V$+"Trovi":GOTO 267245 J=INT(RND*100/M(I)):N1=J:IF J=0 THEN J=1:N1=J250 V$=V$+"Trovi "255 IF J=1 THEN V$=V$+AR$(I,1)+" "258 IF J=1 THEN V$=V$+M$(I):M$=AR$(I,2)+" "+M$(I)260 IF J<>1 THEN V$=V$+STR$(J)+" "+MP$(I):M$=AR$(I,3)+" "+MP$(I)262 V$=V$+" (Tot"+STR$(M(I)*J)+") di guardia a "265 M=M(I)*J267 I=INT(RND*14)+1270 IF I>11 AND J=100 THEN 215271 IF I<12 AND J=100 THEN V$=V$+"che nessuno e' di guardia a "272 IF I>11 THEN 975273 IF I>11 THEN V$=V$+"nulla"+E$:P=0:GOTO 277275 V$=V$+T$(I)+E$:P=P(I)277 IF M$=M$(11) AND M1=7 THEN 835279 IF J=100 THEN V$=V$+"Conquisti il tesoro senza colpo ferire"+E$:GOTO 500280 GOSUB 3400:PRINT"Vuoi: (1) batterti,"TAB(8)"(2) fuggire,"TAB(8)"(3) tentare una corruzione, o"TAB(8)"(4) tentare una magia ? -->";:INPUT"",K285 IF K<1 OR K>4 THEN 280290 ON K GOTO 295,350,435,670295 PRINT:INPUT"Quanti punti di combattimento";K:IF K=0 THEN PRINT CHR$(7);:CURSOR(1,POS(1)-1):GOTO 295300 PRINT:PRINT:IF K>C THEN PRINT CHR$(7)"Hai solo"C"punti !";:CURSOR(1,POS(1)-3):GOTO 295305 GOSUB 3000:I=INT(RND*1001):L=2:C=C-K:K=K-.01*Q310 FOR H=1000 TO 0 STEP -50315 IF L*M=1 THEN 490320 L=L-.1:NEXT325 PRINT"Sei stato ucciso da "M$".":PRINT"Perdi tutto !"335 PRINT:PRINT"Vuoi riprovare (s/n) ? ";:X$=INPUT$(1):PRINT340 IF X$="s" THEN RUN345 CLS:CURSOR(8,1):PRINT"Buona fortuna per la prossima volta....":END350 I=INT(RND*12):IF I=11 THEN 325360 IF I*10>=M THEN 375 ELSE 480375 A=X:B=Y:K=0:T=0:C=C-INT((RND*21)+.001*Q)-5380 X=A+INT(RND*3)-1:Y=B+INT(RND*3)-1385 IF X=A AND Y=B THEN 380390 D1=D1+.1:IF X>10 THEN X=1:X1=X1+1:K=1395 IF Y>10 THEN Y=1:Y1=Y1+1:K=1400 IF X<1 THEN X=10:X1=X1-1:K=1405 IF Y<1 THEN Y=10:Y1=Y1-1:K=1410 IF B(X,Y)>1 AND K=0 THEN 380415 B(A,B)=INT(RND*3):B(X,Y)=5:IF I<>11 THEN Z=Z+1425 IF K=1 THEN 55430 GOTO 215435 PRINT:INPUT"Quanto vuoi pagare ? ",K:PRINT:PRINT440 IF K>Q THEN PRINT CHR$(7)"Hai solo un tesoro di"Q"punti !";:CURSOR(1,POS(1)-3):GOTO 435445 I=INT(RND*22):L=0:IF I=21 OR(I>15 AND K<2) THEN 325455 J=(P+(M*.1))*N1:IF K<2 THEN 475460 FOR H=0 TO 20:IF K<=J*L AND I>=H THEN 475470 L=L+.1:NEXT:GOTO 485475 PRINT"La corruzione non e' riuscita."480 PRINT"Devi batterti.":GOTO 295485 P=0:Q=Q-K:BR=BR+1:T=0:PRINT"La corruzione e' riuscita !":GOTO 505490 N(N)=N(N)+N1495 PRINT"Hai battuto "M$"!"500 IF N<12 THEN I=INT(RND*7):IF I=3 THEN 940501 IF J=100 THEN I=INT(RND*5):IF I=3 THEN 965502 Q=Q+P:IF P=25 THEN 770504 IF T>5 AND T<>9 THEN Q=Q-P:GOTO 985505 V$=V$+"Ora hai un tesoro di"+STR$(Q)+" punti"+E$510 IF P=200 THEN 800513 IF T=9 THEN GOSUB 1200515 FOR N=1 TO 2000:NEXT:GOSUB 3600: GOSUB 3400:PRINT516 PRINT"Direzione (usare le frecce) ? ";:X$=INPUT$(1)517 IF INSTR("8624",X$)=0 THEN PRINT CHR$(7);:CURSOR(1,POS(1)):GOTO 516 ELSE PRINT DIR$(INSTR("8624",X$))520 INPUT"Distanza ";K:IF K<0 THEN PRINT CHR$(7);:CURSOR(1,POS(1)-1):GOTO 520 ELSE K=INT(K)521 GOTO 1100523 A1=X1:B1=Y1:A=X:B=Y:C=C-INT(7.5*K*RND)525 IF X$="8" THEN Y=Y+K530 IF X$="2" THEN Y=Y-K535 IF X$="6" THEN X=X+K540 IF X$="4" THEN X=X-K542 DM%=0545 WHILE X>10:X=X-10:X1=X1+1:DM%=-1:WEND550 WHILE X<1 :X=X+10:X1=X1-1:DM%=-1:WEND555 WHILE Y>10:Y=Y-10:Y1=Y1+1:DM%=-1:WEND560 WHILE Y<1 :Y=Y+10:Y1=Y1-1:DM%=-1:WEND561 IF B(X,Y)=1 THEN C=C-5563 IF B(X,Y)=0 THEN C=C-10565 IF C<=0 THEN PRINT"Hai esaurito la forza.";:GOTO 330570 IF X1<>A1 OR Y1<>B1 THEN 55573 IF B(X,Y)=7 THEN T=9575 IF B(X,Y)=2 THEN 590580 IF B(X,Y)=3 THEN 600585 B(A,B)=INT(RND*3):B(X,Y)=5:GOTO 150590 PRINT"Non puoi passare il muro !"595 C=C-INT(RND*Q*.005)-25:X=A:Y=B:GOTO 515600 Y=Y-1:B(A,B)=INT(RND*3):B(X,Y)=5:T=1:V=V1:R=R1:S=S1:IF C5 THEN I=5615 IF I<5 AND Q<=5 THEN I=0620 V$=V$+"Hai pagato"+STR$(I)+" punti del tesoro per la sosta alla Locanda"+E$:Q=Q-I625 V$=V$+"Ora hai un tesoro di"+STR$(Q)+" punti"+E$630 I=INT(RND*3):IF I=2 THEN 515633 IF I=1 THEN GOSUB 1300:GOTO 515635 I=INT(RND*4+1)640 V$=V$+"L'oste ti ha detto che la foresta termina a meno di"645 ON I GOTO 650,655,660,665650 V$=V$+STR$(Y1*100)+" metri verso Sud"+E$:GOTO 515655 V$=V$+STR$((11-Y1)*100)+" metri verso Nord"+E$:GOTO 515660 V$=V$+STR$(X1*100)+" metri verso Ovest"+E$:GOTO 515665 V$=V$+STR$((11-X1)*100)+" metri verso Est"+E$:GOTO 515670 IF T>5 AND T<>9 THEN V$=V$+"Non puoi conquistare una Magia con una Magia"+E$:GOTO 280671 IF S+V+R=0 THEN V$=V$+"Non hai alcuna Magia"+E$:GOTO 280673 PRINT:PRINT"Quale Magia ?"TAB(8)"(1) del Sonno,"TAB(8)"(2) del Sortilegio, o"TAB(8)"(3) dell' Invisibilita' --> ";675 INPUT"",K:IF K<1 OR K>3 THEN PRINT CHR$(7);:GOTO 670680 GOSUB 3000:ON K GOTO 685,720,745685 IF S=0 THEN PRINT"Non hai Magie del Sonno !";:GOTO 480690 IF N=4 THEN PRINT"Gli Zombi non possono dormire !":S=S-1:GOTO 480695 I=INT(RND*10):S=S-1700 IF I<3 THEN PRINT"La Magia non e' riuscita.":GOTO 480705 IF I<8 THEN PRINT"Hai conquistato il tesoro.":GOTO 500710 PRINT"Risveglio anticipato de"M$" !"713 P=INT(RND*P):Q=Q+P715 V$=V$+"Procedi con"+STR$(P)+" punti di tesoro conquistati"+E$:GOTO 515720 IF R=0 THEN PRINT"Non hai Magie del Sortilegio.";:GOTO 480725 I=INT(RND*10):R=R-1730 IF M>50 AND I<2 THEN PRINT"Il Sortilegio non ha funzionato.":GOTO 480735 IF I=3 THEN V$=V$+"Il Sortilegio e' svanito troppo presto"+E$:GOTO 713740 I=3:GOTO 705745 IF V=0 THEN PRINT"Non hai Magie dell'Invisibilita'.";:GOTO 480750 I=INT(RND*10):V=V-1755 IF M>50 AND I>8 THEN V$=V$+"Sei stato solo fiutato da"+M$+E$:GOTO 713760 IF M<60 AND I=0 THEN V$=V$+"L'Invisibilita' e' svanita troppo presto"+E$:GOTO 713765 GOTO 740770 I=INT(RND*2)+1:ON I GOTO 780,790780 C=C+C:V$=V$+"Hai conquistato una Spada Incantata. La tua forza raddoppia"+E$:GOTO 505790 V$=V$+"La Spada era solo una Spada normale. Rimani con la stessa forza"+E$:GOTO 505800 J=INT(RND*10):I=INT(RND*10)805 IF J=7 AND M1<>7 THEN M1=7:GOTO 820810 IF I=1 THEN 830815 GOTO 513820 V$=V$+"Nella Cassa c'e' uno Specchio Magico. Ti proteggera' contro ogni "+M$(11)+" che incontrerai"+E$:M1=7:GOTO 515830 V$=V$+"La Cassa del Tesoro era solo una trappola ! Ti ha ucciso aprendola"+E$:GOSUB 3400:GOTO 335835 V$=V$+"Il tuo Specchio Magico ha ucciso "+M$+E$:N(11)=N(11)+1:M=0:GOTO 500840 V$=V$+"Un Pipistrello Gigante ti ha afferrato e trasportato in un altro punto"+E$845 A=X:B=Y:T=0:D1=D1+.1850 X=INT(RND*10)+1:Y=INT(RND*10)+1:IF B(X,Y)>1 THEN 850860 B(A,B)=INT(RND*3):B(X,Y)=5:GOSUB 3400:GOTO 150870 V$=V$+"Sei caduto in un pozzo. ":I=INT(RND*21+.001*Q):C=C-I875 IF C<0 THEN V$=V$+"Muori cercando di uscirne"+E$:GOSUB 3400:GOTO 330880 V$=V$+"Hai dovuto usare"+STR$(I)+" punti di forza per uscirne"+E$:I=11882 GOSUB 3400885 GOTO 516900 J=0:FOR I=1 TO 11:J=J+N(I):NEXT:IF J<11 THEN 215910 PRINT"Un'Aquila Gigante ti ha portato in salvo fuori dalla Foresta.";915 GOTO 1000940 I=INT(RND*11)+1:M=M(I):M$=M$(I):N=I945 V$=V$+AR$(I,1)+" "+M$+" ("+MID$(STR$(M(I)),2)+") ha sentito il rumore della lotta e sopraggiunge"+E$:M$=AR$(I,2)+" "+M$947 IF I=11 AND M1=7 THEN 835950 GOSUB 3400:PRINT"Vuoi :"TAB(8)"(1) batterti,"TAB(8)"(2) tentare la fuga, o"TAB(8)"(3) provare una Magia ? -->";:INPUT"",K955 IF K<1 OR K>3 THEN PRINT CHR$(7):GOTO 950960 ON K GOTO 295,350,670965 I=INT(RND*11)+1:M=M(I):M$=M$(I):N=I970 V$=V$+"Sopraggiunge "+AR$(I,1)+" "+M$+" ("+MID$(STR$(M(I)),2)+")"+E$:M$=AR$(I,2)+" "+M$:GOTO 947975 IF I<>14 THEN 273980 I=INT(RND*3+1):T=I+5:V$=V$+"Una "+G$(I):P=INT(RND*11):GOTO 277985 I=INT(RND*10)986 IF I=5 THEN V$=V$+"Non sei riuscito ad afferrarla, cosi' non conquisti la "+G$(T-5)+E$:GOTO 515988 IF T=6 THEN S=S+1:S1=S1+1989 IF T=7 THEN R=R+1:R1=R1+1990 IF T=8 THEN V=V+1:V1=V1+1995 V$=V$+"Hai conquistato la "+G$(T-5)+E$:T=0:IF S1/5+R1/3+V1/2>6 THEN GOSUB 1665997 GOTO 5151000 FOR A=1 TO 4000:NEXT:CLOSE WINDOW:CLS1003 PRINT" Sei in salvo fuori dalla Foresta !"1004 PRINT" Ecco il quadro dei risultati:"1007 PRINT:PRINT:COLOR 0,1:PRINT" MOSTRI UCCISI ";:CURSOR(30,POS(1)):PRINT" MOSTRI UCCISI ";:COLOR 1,0:PRINT1010 FOR I=1 TO 5:PRINT M$(I) TAB(15) N(I) TAB(30) M$(I+5) TAB(45) N(I+5)1015 NEXT:PRINT TAB(30) M$(11) TAB(45) N(11)1020 PRINT:COLOR 0,1:PRINT" CORROTTI : ";:COLOR 1,0:PRINT TAB(15) BR TAB(30);:COLOR 0,1:PRINT" SFUGGITI : ";:COLOR 1,0:PRINT TAB(45) Z1030 PRINT:PRINT" Tesoro Totale : " Q:PRINT1035 IF Q1<>0 THEN GOSUB 16501040 PRINT" COMPLIMENTI ";:IF Q1<>0 AND Q1>Q THEN PRINT"...COMUNQUE";:PRINT" !":PRINT1043 PRINT:X$=""1045 IF D1<30 THEN PRINT"Vuoi tornare nella Foresta (s/n) ? ";:X$=INPUT$(1):PRINT X$1050 S=S1:V=V1:R=R1:C=D:IF X$<>"s" THEN 16001055 CLS:GOSUB 10000:ZI=0:GOTO 451100 D1=D1+K/10:IF D1<30 THEN 5231110 PRINT"Il tempo e' trascorso: sono passati 30 giorni."1115 FOR I=1 TO 2000:NEXT:GOTO 9101200 T=01203 V$=V$+"Hai raggiunto un Castello Incantato"+E$1205 I=INT(RND*21)*100:J=INT(RND*9):A(X1,Y1)=A(X1,Y1)-100001210 V$=V$+"Qui trovi un Tesoro di"+STR$(I)+" punti"+E$:Q=Q+I1215 IF J<>7 OR M=1 THEN 12251220 V$=V$+"Trovi anche uno Specchio Magico che uccidera' ogni "+M$(11)+" che incontrerai"+E$:M1=71225 J=INT(RND*20):IF J=2 THEN C=2*C1230 IF J=2 THEN V$=V$+"Trovi anche una Spada Incantata che raddoppia la tua forza"+E$1240 FOR I=1 TO CS-1:IF C(I)<>X1 THEN 12451241 FOR J=1 TO CS-1:C(J)=C(J+1):D(J)=D(J+1):NEXT1245 NEXT:CS=CS-1:IF CS=0 THEN V$=V$+"Questo era l'ultimo Castello esistente"+E$1250 GOSUB 3600:GOTO 34001300 IF CS=0 THEN RETURN1301 I=INT(RND*CS)+11302 V$=V$+"L'oste ti ha parlato della leggenda di un castello "1303 IF C(I)=X1 AND D(I)=Y1 THEN V$=V$+"molto vicino"+E$:GOTO 34001304 J=X1-C(I):I=Y1-D(I)1305 IF ABS(I)=ABS(J) THEN V$=V$+"direttamente a ":GOTO 13071306 V$=V$+"piu' o meno verso "1307 IF I<0 THEN V$=V$+"Nord"1310 IF I>0 THEN V$=V$+"Sud"1315 IF J<0 THEN V$=V$+"Est"1320 IF J>0 THEN V$=V$+"Ovest"1325 V$=V$+E$+RIGHT$(E$,2):GOTO 34001500 I=INT(RND*11+1)1501 LL=LEN(V$):ON I GOSUB 1510,1520,1515,1530,1540,1550,1560,1570,1580,1590,1595,:IF LEN(V$)>LL THEN V$=V$+E$1502 IF CC=0 THEN GOSUB 3400:GOTO 3600 ELSE CC=0:GOTO 13031510 V$=V$+"Un Vortice Temporale ti ha fatto perdere 7 giorni":D1=D1+7:RETURN1515 I=INT(RND*10+1):J=D1:D1=D1-I:IF D1<.1 THEN D1=.1:I=J-D11517 V$=V$+"Un Vortice Temporale ti ha fatto guadagnare"+STR$(I)+" giorni":RETURN1520 IF C>=D THEN RETURN1523 V$=V$+"Un Elfo ti ha preparato la Pozione Magica che restituisce la forza":C=D:RETURN1530 IF V+R+S=V1+R1+S1 THEN RETURN1533 V$=V$+"Un Mago ti ha dato una Pozione che ti ha restituito le Magie":V=V1:R=R1:S=S1:RETURN1540 IF Q<2 THEN RETURN1543 V$=V$+"Caduta nelle Sabbie Mobili: perdi meta' del Tesoro":Q=INT(Q/2):RETURN1550 V$=V$+"Un fitto sottobosco ha richiesto meta' della forza per essere superato":C=INT(C/2):RETURN1560 I=INT(RND*50+1):V$=V$+"Hai trovato"+STR$(I)+" Monete d'oro":Q=Q+I:RETURN1570 IF M<>7 THEN RETURN1573 V$=V$+"Hai inciampato nelle radici ed hai perduto lo Specchio Magico":M1=0:RETURN1580 V$=V$+"Un'eremita ti ha detto che ci sono"+STR$(CS)+" Castelli Incantati":RETURN1590 IF V+S+R=0 THEN RETURN1591 V$=V$+"Ti trovi in una zona in cui le Magie non funzionano. "1593 V$=V$+"Perdi tutte le Magie":V=0:S=0:R=0:RETURN1595 IF CS=0 THEN RETURN1596 V$=V$+"Un cacciatore ti ha parlato della leggenda di un castello ":LL=LEN(V$):I=INT(RND*CS)+1:CC=-1:RETURN1600 FOR I=1 TO 2000:NEXT:PRINT1605 PRINT"Vuoi una nuova Foresta con la stessa forza e le stesse Magie (s/n) ? ";:X$=INPUT$(1):PRINT X$:IF X$="s" THEN 16251615 PRINT"Vuoi una nuova Foresta con forza e Magie nuove ? ";:X$=INPUT$(1):IF X$="s" THEN RUN1618 PRINT"Prevedi di usare forza e Magie attuali in un'altra caccia ? ";:X$=INPUT$(1):PRINT X$:IF X$="s" THEN GOSUB 1700:PRINT:PRINT"Inoltre il tesoro totale era di"Q"punti."1622 IF Q>Q1 THEN Q1=Q1623 IF Q1<>Q THEN PRINT"Il massimo Tesoro che hai avuto e' stato di"Q1"punti.":PRINT:PRINT"Arrivederci alla prossima caccia...":END1625 BR=0:Z=0:D1=0:FOR I=1 TO 11:N(I)=0:NEXT:IF Q12000 THEN PRINT CHR$(7);:GOTO 16301640 INPUT"Magie del Sonno ";S:INPUT"Magie del Sortilegio ";R:INPUT"Magie dell'Invisibilita' ";V1645 INPUT"Precedente Tesoro massimo totale ";Q1:GOTO 201650 IF Q1Q THEN PRINT"Stavolta non hai guadagnato in Tesoro."1660 RETURN1665 PRINT"Hai molte Magie, vuoi convertirle in punti di forza (s/n) ? ":X$=INPUT$(1):IF X$<>"s" THEN RETURN1675 S1=S1-5:R1=R1-3:V1=V1-2:IF S1<=0 THEN S1=11680 IF R1<=0 THEN R1=11685 IF V1<=0 THEN V1=11690 S=S1:R=R1:V=V1:C=C+100:D=D+100:V$=V$+"La tua forza aumenta di 100 punti in modo permanente"+E$:RETURN2000 DATA uno,lo,gli,Spettro,Spettri,10 Cucchiai d'argento (10 punti),5,10,un,il,i,Minotauro,Minotauri2005 DATA una Spada Incantata (25 punti),10,252010 DATA un,il,i,Ciclope,Ciclopi,50 Monete d'argento (50 punti),20,50,uno,lo,gli,Zombi,Zombi2015 DATA 100 Pezzi d'oro (100 punti),30,100,un,il,i,Gigante,Giganti2020 DATA un Bracciale di smeraldi (50 punti),40,50,"un'","l'",le,Arpia,Arpie2025 DATA la Cassa del Tesoro (200 punti),50,200,un,il,i,Grifone,Grifoni2030 DATA una Collana di perle (50 punti),60,50,una,la,le,Chimera,Chimere2035 DATA una Spada ingioiellata (30 punti),70,30,un,il,i,Drago,Draghi2040 DATA una Giara di Rubini (75 punti),80,75,"un'","l'",le,Idra,Idre2045 DATA uno Scrigno di Gioielli (100 punti),90,100,un,il,i,Basilisco,Basilischi2050 DATA un Calice d'Oro (50 punti),100,503000 WINDOW %2:PRINT:RETURN3400 WINDOW %2:PRINT:LR%=43:PI%=1:WHILE PI%0 THEN PX%=PF%+1:GOTO 34303425 IF PB%-PI%0 THEN PX%=PB%+1:GOTO 3420 ELSE IF PB%=0 THEN PX%=LEN(V$)+13430 PRINT MID$(V$,PI%,PX%-PI%):PI%=PX%:WEND:V$="":RETURN3500 WINDOW%1:BQ%=15:BO%=5:LINE(BO%,BQ%)-STEP(199,159),0,BF:FOR I=1 TO 10:YD%=(I-1)*16+BQ%:FOR J=1 TO 10:XD%=(J-1)*20+BO%3502 GOSUB 3520:ON B(J,I)+1 GOSUB 3510,3520,3530,3540,,3550,,35603504 NEXT:NEXT:COLOR 1,0:LINE(BO%-5,BQ%-5)-STEP(209,169),2,B:LINE(BO%-1,BQ%-1)-STEP(201,161),2,B3506 FOR W=BQ%-3 TO BQ%+161 STEP 164:FOR N=BO% TO BO%+199 STEP 40:LINE(N,W)-STEP(19,1),,BF:NEXT:NEXT:FOR W=BO%-3 TO BO%+201 STEP 204:FOR N=BQ% TO BQ%+159 STEP 32:LINE(W,N)-STEP(1,15),,BF:NEXT:NEXT3509 RETURN3510 LINE(XD%+9,YD%+1)-STEP(0,4):LINE STEP(0,-1):LINE STEP(-6,0):LINE STEP(8,10):LINE STEP(7,-10):LINE STEP(-6,0):LINE STEP(0,-4):LINE STEP(-3,0):RETURN3520 LINE(XD%,YD%)-STEP(19,15),,BF,PRESET:RETURN3530 COLOR 3:LINE(XD%,YD%)-STEP(19,15),,B:FOR W%=3 TO 11 STEP 4:LINE(XD%,YD%+W%)-STEP(19,0):NEXT:FOR W%=3 TO 19 STEP 7:LINE(XD%+W%,YD%)-STEP(0,3):LINE(XD%+W%,YD%+8)-STEP(0,3):NEXT:FOR W%=6 TO 15 STEP 8:LINE(XD%+W%,YD%+4)-STEP(0,3)3532 LINE(XD%+W%,YD%+12)-STEP(0,3):NEXT:COLOR 1,0:RETURN3540 COLOR 0,3:GOSUB 3520:COLOR 0,1:LINE(XD%+7,YD%+1)-STEP(-4,4):LINE STEP(0,5):LINE STEP(2,2):LINE STEP(0,-1):LINE STEP(1,-1):LINE STEP(2,0):LINE STEP(1,1):LINE STEP(1,0):LINE STEP(1,-1):LINE STEP(2,0):LINE STEP(1,1)3541 LINE STEP(0,1):LINE STEP(2,-2):LINE STEP(0,-5):LINE STEP(-4,-4):LINE STEP(-4,0)3542 LINE(XD%+8,YD%+4)-STEP(1,4),,BF:LINE(XD%+10,YD%+4)-STEP(1,1),,BF:COLOR 1,0:RETURN3550 LINE(XD%,YD%)-STEP(19,15),2,BF:LINE(XD%+9,YD%+1)-STEP(-4,4),0:LINE STEP(0,7),0:LINE STEP(2,2),0:LINE STEP(5,0),0:LINE STEP(2,-2),0:LINE STEP(0,-7),0:LINE STEP(-4,-4),03552 FOR W%=5 TO 14 STEP 9:LINE(XD%+W%,YD%+14)-STEP(0,0),0:NEXT:N%=0:FOR W%=7 TO 11 STEP 2:FOR W1%=6 TO 10 STEP 2:LINE(XD%+W%,YD%+W1%)-STEP(1,1),(N%MOD 2)*2,BF:N%=N%+1:NEXT:NEXT:RETURN3560 LINE(XD%+2,YD%+1)-STEP(15,9),2,BF:LINE(XD%+1,YD%+9)-STEP(17,1),2,BF:FOR W%=1 TO 17 STEP 4:LINE(XD%+W%,YD%+11)-STEP(1,1),2,BF:NEXT:LINE(XD%+9,YD%+13)-STEP(1,1),2,BF:RETURN3600 WINDOW%1:PH%=33610 LINE(0,-70)-(210,5),0,BF:FOR I=1 TO 7:CURSOR(PH%,I+18):ON I GOSUB 3620,3630,3640,3650,3670,3680,3695:NEXT:LINE(0,-70)-(210,5),,BF,XOR:RETURN3620 PRINT"_________ Situazione _________";:RETURN3630 PRINT"- Forza";FNP$(23,C);FNV$(C);:RETURN3640 PRINT"- Tesoro";FNP$(22,Q);FNV$(Q);:RETURN3650 PRINT"- Magie : - Sonno";FNP$(13,S);FNV$(S);:RETURN3670 PRINT SPC(10);"- Sortilegi";FNP$(9,R);FNV$(R);:RETURN3680 PRINT SPC(10);"- Invisibilita'";FNP$(5,V);FNV$(V);:RETURN3695 PRINT" Giorni trascorsi";TAB(21+PH%);:PRINT USING"##.#";D1;:RETURN3705 RETURN10000 CLOSE WINDOW:W%=WINDOW(0,0,10,6):LW%=36:HW%=256:W%=WINDOW(3,LW%):SCALE %1,0,LW%*6-1,-70,HW%-71:WINDOW%2:CURSOR(1,5):WINDOW%1:RETURN20000 CLS:X=WINDOW(0,0,10,6):PRINT TAB(5);:COLOR 0,1:PRINT"* * * ALLA CONQUISTA DEL TESORO NELLA GRANDE FORESTA INCANTATA * * *":COLOR 1,020010 PRINT20020 PRINT"Nel corso del gioco ti troverai nella Grande Foresta Incantata dove sono"20030 PRINT"nascosti Mostri e Tesori. La Grande Foresta Incantata e' costituita da 100"20040 PRINT"quadrati di 100 metri di lato ciascuno. Sullo schermo vedrai soltanto il"20050 PRINT"quadrato nel quale ti trovi senza sapere quale dei 100 esso sia.":PRINT20060 PRINT"Sparsi nella Foresta sono nascosti tesori di vario valore, ma i tesori maggiori si trovano nei Leggendari Castelli Abbandonati che possono essere in vario numero dislocati nella Foresta.":PRINT20070 PRINT"Tu dovrai conquistare il massimo Tesoro possibile, cercando di battere i Mostri che li custodiscono. Partirai con una certa Forza e con alcune Magie che ti"20075 PRINT"permetteranno di superare le prime difficolta'. poi potrai sostare alle locande dove";20080 PRINT" potrai riconquistare Forza e Magie perdute.":PRINT20090 PRINT"Battendoti con i Mostri se userai una forza pari alla loro avrai il 50% delle probabilita' di vincere, ma via via che il tuo tesoro crescera' i Mostri saranno sempre piu' aggressivi e dovrai usare piu' Forza per essere certo di"20100 PRINT"batterli.":PRINT20110 PRINT"Ora non posso dirti di piu' ! Prova tu stesso l'emozione della Caccia nella GRANDE FORESTA INCANTATA !":PRINT20120 COLOR 0,1:PRINT" ---- LA FORZA SIA CON TE ! ---- ";:COLOR 1,0:PRINT" (qualsiasi tasto per iniziare)";20130 R$=INPUT$(1):RETURN