1 print"{CLEAR}":poke53272,18
2 t$="{HOME}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{REVERSE ON}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}-premi un tasto-{UP}{UP}"
5 poke53280,6:poke53281,6:print"{LIGHT GRAY}":poke53269,0:printchr$(14):printchr$(8)
6 printchr$(147):gosub90
10 gu$(1)="geoffry longman"
11 gu$(2)="arthur of torvik"
12 gu$(3)="stephan rutherford"
13 gu$(4)="albert irving"
20 l=5:gosub15000:gosub10100
30 gosub10000:goto8000
90 fori=1to64:reada:poke831+i,a:next
93 poke53264,15:fori=53249to53255step2:pokei,235:next
94 poke53254,0:poke53252,20:poke53250,40:poke53248,60
95 fori=53287 to 53290:pokei,7:next
96 fori=2040to2043:pokei,13:next:return
100 data 154,128,0,96,32,0,96,32,0,154,128,0,6,0,0,6
101 data 0,0,6,0,0,6,0,0,102,0,0,102,0,0,6,0
102 data 0,102,0,0,102,0,0,6,0,0,0,0,0,0,0,0
103 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
200 ifvthenreturn
202 poke649,0
205 fori=1to254:poke53286+c,i:next:poke53286+c,7
215 poke649,10
220 return
1000 print"{CLEAR}le tue aspettative sono andate deluse;"
1001 print"il rifugio che avevi scelto per ripo-"
1002 print"sarti durante la notte si rivela molto"
1003 print"meno confortevole del previsto."
1004 print"e, come se non bastasse, il risveglio"
1005 print"non e' dei migliori. infatti, non appena"
1006 print"{UP}apri gli occhi vedi un gruppo di ban-"
1007 print"diti chiaramente interessati ai tuoi"
1008 print"averi. uno di loro blocca l'uscita"
1009 print"mentre gli altri impugnano le armi."
1010 goto8630
1020 print"{CLEAR}dopo aver camminato a lungo per il"
1021 print"sentiero ti accorgi di aver perso la"
1022 print"strada. con la tua "ar$" ti fai largo"
1023 print"tra i rovi quando in lontananza ti"
1024 print"sembra di scorgere un rifugio."
1025 print"camminando in quella direzione trovi"
1026 print"anche la strada maestra, ma la notte"
1027 print"sta calando e, come ben sai, puo'"
1028 print"nascondere tanti pericoli..."
1029 print"allora decidi di:":goto8630
1040 print"{CLEAR}inizia qui il tuo viaggio verso il"
1041 print"castello di darth, signore delle tene-  bre."
1042 print"melissa, principessa di un lontano"
1043 print"regno, e' da tempo imprigionata laggiu':"
1044 print"{UP}la tua missione e' di trovare il"
1045 print"castello e liberarla al piu' presto"
1046 print"per sottrarla alla crudele morte che"
1047 print"l'attende se rifiutera' di sposare"
1048 print"il malvagio darth."
1049 print"adesso ti trovi ad un bivio dal"
1050 print"quale partono due strade, di cui una"
1051 print"conduce verso un bosco.":print"l'altra prosegue diritto."
1052 print"in lontananza vedi un drappello di"
1053 print"soldati con le insegne reali. puoi:":goto8630
1060 print"{CLEAR}ti incammini per una strada molto larga,"
1061 print"{UP}il che ti fa pensare che conduca ad una"
1062 print"citta' importante.{SH SPACE}infatti dopo circa"
1063 print"un'ora leggi su di un cartello che ti"
1064 print"stai dirigendo verso ryu, capitale del"
1065 print"regno di valgard. sai bene che ti ci"
1066 print"vorra' ancora molto prima di arrivarci"
1067 print"e anche se il caldo e' insopportabile,"
1068 print"l'importanza della tua missione ti da'"
1069 print"la forza necessaria per proseguire il"
1070 print"tuo viaggio. ":goto 8630
1080 print"{CLEAR}finalmente, dopo un lungo cammino, sei"
1081 print"giunto a ryu. la citta', come ti aspet-"
1082 print"tavi, e' brulicante di gente che con-"
1083 print"tratta e trasporta merci di ogni tipo"
1084 print"per le strade polverose che conducono"
1085 print"alla piazza principale dove si sta svol-"
1086 print"{UP}gendo il consueto mercato stagionale."
1087 print"hai paura di smarrirti in tutta quella"
1088 print"confusione di persone, carri ed animali."
1089 print"{UP}cosi' decidi di rivolgerti a qualcuno"
1090 print"per chiedere informazioni."
1091 print"in quel momento vedi un contadino che"
1092 print"sta litigando con il suo mulo e, dalla"
1093 print"parte opposta della strada uno strano"
1094 print"prete che cammina frettoloso con il"
1095 print"breviario in mano.":goto8630
1100 ifco=0thenprint"{CLEAR}";:goto 1110
1101 print"{CLEAR}il cordiale contadino ti dice che per"
1103 print"arrivare al castello di darth e' neces-"
1104 print"sario attraversare la foresta."
1105 print"lo ringrazi per la sua cortesia."
1110 print"ti incammini lungo il sentiero che da"
1111 print"ryu porta alla foresta di valgard, dove"
1112 print"i rami degli alberi sono cosi' fitti"
1113 print"che a stento i raggi del sole filtrano."
1114 print"ti addentri piano piano per gustare il"
1115 print"fresco che ti donano le fronde, quando  vedi un sentiero."
1116 print"decidi di seguirlo e scopri che conduce nel cuore della foresta."
1117 print"ti guardi attorno e vedi una capanna"
1118 print"dall'aspetto accogliente poco lontano."
1119 goto 8630
1120 print"{CLEAR}poco prima dell'alba giungi alla capanna"
1121 print"{UP}dalla quale esce un invitante profumino:"
1122 print"{UP}sicuramente qualcosa di prelibato sta"
1123 print"cuocendo sul fuoco. spinto dalla fame"
1124 print"bussi ed entri. la capanna e' apparente-mente deserta..."
1125 print"ti avvicini al fuoco e senti che la "
1126 print"porta si chiude improvvisamente. ti"
1127 print"volti per scoprire con orrore che una"
1128 print"terribile belva con gli occhi iniettati"
1129 print"di sangue sta per attaccarti."
1130 print"sicuramente una trappola di darth...":goto8630
1140 print"{CLEAR}entri in una piccola stanza scavata"
1141 print"nella roccia. in fondo vedi un piccolo"
1142 print"altare verso il quale sono rivolti vari"
1143 print"uomini che indossano tuniche da cerimo- nia."
1144 print"vicino a te, in una nicchia, c'e' una   piccola chiave d'oro."
1145 print"stai per prenderla quando uno dei "
1146 print"sacerdoti si volta, ti vede ed inizia"
1147 print"a gridare per dare l'allarme."
1148 print"tutti gli altri si voltano al rumore"
1149 print"delle sue grida e corrono nella tua"
1150 print"direzione con intenzioni tutt'altro che amichevoli...":goto 8630
1160 print"{CLEAR}ti trovi ora ai piedi di una verde mon- tagna."
1161 print"ti fermi un momento per meditare su "
1162 print"quale sia la strada migliore da pren-"
1163 print"dere: non vorresti sbagliare per non"
1164 print"correre inutili pericoli."
1165 print"vedi in lontananza un piccolo villaggio"
1166 print"e, in prossimita' di una radura l'en-   trata di una caverna."
1167 print"dopo aver riflettuto decidi che sarebbe meglio:":goto 8630
1180 print"{CLEAR}percorri pochi passi e giungi all'en-   trata di una nera caverna...
1181 print"dal cunicolo che ti sta di fronte esce "
1182 print"uno spiffero d'aria gelida come l'alito"
1183 print"di un demone, che sembra metterti in"
1184 print"guardia dai pericoli che ti aspettano."
1185 print"prendi il coraggio a due mani e muovi i"
1186 print"primi passi all'interno della spavento- sa caverna.":goto 8630
1200 print"{CLEAR}se l'ingresso della caverna ti faceva"
1201 print"paura, l'interno ti terrorizza..."
1202 print"l'aria e' pervasa da una pesante umidi-"
1203 print"ta' che ti rende difficile respirare, "
1204 print"noti con orrore che tutte le pareti"
1205 print"sono coperte da pipistrelli e da altri"
1206 print"terrificanti animali che ti osservano"
1207 print"con attenzione. non ti lasci intimorire"
1208 print"e prosegui fino a raggiungere una porta"
1209 print"stranamente intarsiata tra i tortuosi   cunicoli.":goto8630
1220 print"{CLEAR}la fossa in cui sei caduto e' infestata"
1221 print"da ogni sorta di animali e insetti che"
1222 print"ti assalgono attratti dall'odore del"
1223 print"sangue che esce dalle tue ferite."
1224 print"ancora una volta l'importanza della tua"
1225 print"missione ti spinge a reagire, cosi':":goto8630
1240 print"{CLEAR}senti diversi rumori intorno a te e"
1241 print"cerchi di orientarti anche se ti riesce molto difficile."
1242 print"l'unica cosa che puoi fare e':":goto 8630
1260 print"{CLEAR}giungi ad un villaggio dove vieni ac-   colto con molto favore."
1261 print"ti invitano a mangiare e successivamen-"
1262 print"te ti offrono la loro ospitalita' per"
1263 print"la notte. in particolare thea, una"
1264 print"splendida donna, insiste perche' tu     rimanga.":goto8630
1280 print"{CLEAR}calata la sera ti dirigi verso la ca-   panna che ti hanno assegnato
1281 print"entri e vedi thea, incredibilmente at-"
1282 print"traente, che ti chiede di passare questa"
1283 print"{UP}notte con lei...":goto 8630
1300 print"{CLEAR}ascoltando cio' che ti ha detto l'oste,"
1301 print"ti dirigi verso lo stanzino, entri e"
1302 print"vedi con orrore che a terra giace un"
1303 print"cadavere."
1304 print"cerchi di uscire in fretta ma una truppa"
1305 print"{UP}di soldati reali ti sbarra la strada"
1306 print"accusandoti dell'omicidio.":goto 8630
1320 print"{CLEAR}entri nella fumosa osteria e ti guardi  intorno."
1321 print"e' piena di soldati e contadini che     parlano ad alta voce."
1322 print"senti l'oste che ti chiama per nome:"
1323 print"- "gu$"! ti riconosco,"
1324 print"ho una cosa molto importante da darti,  la' nello stanzino. -"
1325 print"sorpreso dalle sue parole, decidi di:":goto8630
1340 :
1341 print"{CLEAR}sei ora nella piazza principale di      pasburg."
1342 print"e' una piccola cittadina abitata prin-  cipalmente da contadini."
1343 print"davanti a te vedi un palazzo con due    porte, piu' in la', un'osteria."
1346 goto8630
1360 print"{CLEAR}la prima porta conduce ad una piccola"
1361 print"stanza dove uno strano individuo sta    leggendo un libro."
1362 print"al tuo ingresso si ferma, alza gli occhi"
1363 print"{UP}e, con fare misterioso, apre una scato-"
1364 print"lina, ne estrae una chiave d'oro e te   la porge...":goto8630
1380 print"{CLEAR}l'armeria sembra deserta, sul bancone"
1381 print"vedi una magnifica spada lucente."
1382 print"senti l'irrefrenabile impulso di pren-  derla e fuggire.":goto8630
1400 print"{CLEAR}sei in una piccola piazza da cui partono"
1401 print"{UP}due strade: la prima conduce verso una"
1402 print"piccola armeria mentre la seconda porta"
1403 print"in direzione del castello di darth...":goto 8630
1420 print"{CLEAR}entri in una grande stanza completa-    mente vuota."
1421 print"i tuoi passi rimbombano. dopo un rapido esame decidi di:":goto8630
1440 print"{CLEAR}una lunga scalinata conduce ai piani    superiori."
1442 print"varie torce illuminano l'ambiente."
1443 print"in fondo alla scalinata vedi una porta"
1444 print"con quattro serrature..."
1445 print"da dietro la porta senti le grida di    melissa...":goto 8630
1460 print"{CLEAR}porta principessa":goto8630
1480 print"{CLEAR}sei finalmente giunto al castello di    darth..."
1481 print"ti aspetta la resa dei conti. senti che"
1482 print"melissa e' vicina e cio' ti da' la forza"
1483 print"{UP}necessaria per...":goto8630
1500 print"{CLEAR}l'atrio del castello e' incredibilmente"
1501 print"grande e le pareti sono completamente"
1502 print"ricoperte da quadri ed enormi arazzi"
1503 print"che illustrano scene di combattimenti"
1504 print"fra demoni..."
1505 print"in un angolo, illuminato da una potente"
1506 print"torcia, vedi il ritratto di darth, il"
1507 print"tenebroso padrone di casa."
1508 print"dall'atrio partono due scalinate: una"
1509 print"conduce ai piani superiori e l'altra"
1510 print"porta ai sotterranei.":goto8630
1520 print"{CLEAR}la scalinata che stai percorrendo e'"
1521 print"fiocamente illuminata e molto ripida."
1522 print"gli scalini sono resi scivolosi da una"
1523 print"strana sostanza gelatinosa. cammini con"
1524 print"prudenza decidendo di:":goto8630
1540 print"{CLEAR}sotterranei":goto8630
1560 ifsethenprint"{CLEAR}";:goto1570
1561 print"{CLEAR}proseguendo per i sotterranei giungi"
1562 print"ad una piccola stanzetta."
1563 print"su di un tavolo, in fondo alla stanza,"
1564 print"un grosso serpente sembra fare la"
1565 print"guardia alla piccola chiave d'oro...":goto 8630
1570 print"{CLEAR}come rientri nella stanza, vedi il"
1571 print"serpente allontanarsi rapidamente da te."
1572 print"{UP}sicuramente la tua capacita' di gua-"
1573 print"rigione ha ferito il suo orgoglio.":goto 8630
3000 print"{CLEAR}estratta la tua "ar$ " attacchi il"
3010 print"mostruoso animale che si rivela molto"
3020 print"piu' forte di quanto credessi."
3030 print"in una lotta per la vita, le sue zanne"
3040 print"contro la tua "ar$", cerchi di"
3050 print"sopraffarlo."
3055 max=10:gosub60100:ifrn+ff>15then3070
3056 print"l'animale ti azzanna e tu, accecato"
3057 print"dal dolore perdi la "ar$"."
3058 print"fuggi verso la porta ma ferito e"
3059 print"senz'armi sei una facile preda."
3061 print"senti gli artigli penetrarti nella"
3062 print"carne e, l'ultima cosa che vedi e'"
3063 print"l'enorme bocca del mostro..."
3064 print"la tua avventura finisce qui.":gosub40000
3070 print"con una mossa fulminea schivi il suo"
3071 print"primo attacco e riesci a colpirlo con"
3072 print"la tua "ar$"."
3073 print"l'animale perde l'equilibrio, cade"
3074 print"e ti offre il fianco."
3075 print"con tutta la tua forza gli conficchi"
3076 print"la "ar$" profondamente nella carne."
3077 print"con un ultimo disperato ringhio, l'ani-"
3078 print"male si accascia al suolo, morente."
3079 print"con un altro potente colpo lo finisci"
3080 print"e, non appena esalato l'ultimo respiro,"
3081 print"una strana nebbiolina lo avvolge."
3082 print"dopo qualche secondo la nebbia si"
3083 print"dirada e ora, al posto della carcassa,"
3084 print"vedi una piccola chiave d'oro."
3085 print"la raccogli e ti dirigi senza indugio"
3086 print"verso la montagna.":printt$
3087 gosub51000
3090 c=c+1:v=0:l=55:goto8000
3100 print"{CLEAR}ti rendi subito conto che questo orri-"
3101 print"bile animale non puo' che essere una"
3102 print"creatura di darth, signore delle tenebre"
3103 print"{UP}e con un balzo felino ti getti fuori "
3104 print"dalla finestra e cominci a correre"
3105 print"disperatamente verso la montagna."
3106 print"corri veloce ma l'agghiacciante ringhio"
3107 print"del mostro si fa sempre piu' prossimo."
3108 print"quando inizi a sentire il suo nauseante"
3109 print"alito ti volti, terrorizzato."
3110 print"il terribile sguardo della belva ti"
3111 print"pietrifica e mentre aspetti la fine"
3112 print"vedi che invece di attaccarti, il mostro"
3113 print"{UP}si accascia al suolo..."
3114 print"il sole sorgendo ti ha salvato la vita"
3115 print"infatti queste creature non possono"
3116 print"sopportarne la vista."
3117 print"una strana nebbiolina lo avvolge."
3118 print"dopo qualche secondo la nebbia si"
3119 print"dirada e ora, al posto della carcassa,"
3120 print"vedi una piccola chiave d'oro."
3121 print"la raccogli e ti dirigi senza indugio"
3122 print"verso la montagna.":printt$
3123 gosub51000
3124 c=1:v=0:l=55:goto8000
3300 print"{CLEAR}i tuoi sospetti erano fondati:"
3301 print"il prete era un'impostore, in fondo"
3302 print"alla strada vedi cinque uomini armati"
3303 print"e dalle intenzioni bellicose."
3304 print"estrai la tua "ar$ " e cerchi di ven-"
3305 print"dere cara la pelle..."
3306 max=10:gosub60100:ifrn+ff>12then3320
3307 print"purtroppo cinque uomini contro uno solo"
3308 print"sono troppi..."
3309 print"nonostante tutta la tua abilita' di"
3310 print"guerriero i cinque ti circondano"
3311 print"e pongono termine alla tua missione.":gosub40000
3320 print"l'impeto con cui ti scagli verso di loro"
3321 print"{UP}li coglie di sorpresa e hai modo di"
3322 print"isolare quello che sembra il capo."
3323 print"con un colpo di "ar$" lo disarmi e"
3324 print"gli altri quattro se la danno a gambe."
3325 print"interrogando l'uomo hai la conferma ai"
3326 print"tuoi sospetti: darth sta cercando in"
3327 print"tutti i modi di impedirti di portare"
3328 print"a termine la tua missione."
3329 print"risparmi l'uomo e ti dirigi velocemente"
3330 print"verso la foresta conscio del pericolo"
3331 print"che ti attende.":printt$
3332 gosub51000
3333 l=35:goto8000
3400 print"{CLEAR}facendoti largo a colpi di "ar$
3401 print"riesci a guadagnare l'uscita e,"
3402 print"sorpresi dalla tua reazione i banditi"
3403 print"fuggono a gambe levate."
3405 print"ti fermi un attimo a considerare tutti"
3406 print"i pericoli che ti attendono e inizi"
3407 print"ad attraversare nuovamente il bosco"
3408 print"per poi ritrovare la strada maestra.":printt$
3409 gosub51000
3410 l=15:goto8000
3500 print"{CLEAR}nonostante le insegne reali i soldati"
3501 print"ti attaccano."
3502 print"troppo tardi ti sei reso conto che"
3503 print"sono emissari delle forze del male."
3504 print"estrai velocemente la tua "ar$:print"e cerchi di difenderti."
3505 max=10:gosub60100:ifrn+ff>14then3530
3506 print"senza che tu te ne accorga uno dei"
3507 print"soldati a cavallo arma la sua balestra"
3508 print"e ti lancia un dardo."
3509 ifo2=1then3515
3510 print"un improvviso dolore alla schiena"
3511 print"ti toglie il respiro, il dardo ti ha"
3512 print"trafitto... la vista ti si annebbia"
3513 print"mentre senti la vita scivolare via.":gosub40000
3515 print"grazie alla tua armatura il dardo non"
3516 print"ti ferisce."
3517 print"con la "ar$" colpisci il cavaliere"
3518 print"che ti e' piu' vicino disarcionandolo"
3519 print"ti impadronisci del suo cavallo e fuggi"
3520 print"verso la strada maestra.":printt$
3521 gosub51000
3522 l=15:goto8000
3530 print"grazie alla tua abilita' di guerriero"
3531 print"riesci a respingere il primo attacco."
3532 print"con la "ar$" colpisci il cavaliere"
3533 print"che ti e' piu' vicino disarcionandolo"
3534 print"ti impadronisci del suo cavallo e fuggi"
3535 print"verso la strada maestra.":printt$
3536 gosub51000
3537 l=15:goto8000
3550 print"{CLEAR}nonostante la tua fulminea reazione"
3551 print"il bandito che ti e' piu' vicino ti"
3552 print"colpisce con una spada."
3553 print"ferito cerchi comunque di difenderti"
3554 print"ma il colpo che ti e' stato inferto"
3555 print"si rivela letale."
3556 print"ti accasci al suolo e un attimo prima"
3557 print"di morire vedi i banditi spartirsi i"
3558 print"tuoi pochi averi.":gosub40000
3600 print"{CLEAR}a causa dell'oscurita' e del fondo umido"
3601 print"{UP}perdi l'equilibrio e cadi in una fossa"
3602 print"profonda. perdi i sensi e quando ti"
3603 print"riprendi ti rendi conto di esserti"
3604 print"ferito durante la caduta.":printt$
3605 gosub51000
3610 l=58:goto8000
3700 print"{CLEAR}impugni la tua "ar$" e cerchi di"
3701 print"difenderti dall'attacco."
3702 max=10:gosub60100:ifrn+ff>10then3715
3703 print"il sacerdote estrae da sotto la tonaca"
3704 print"una specie di pugnale luminoso e, mentre"
3705 print"{UP}te lo lancia contro, pronuncia alcune"
3706 print"formule nella sua strana lingua."
3707 print"cerchi di schivare il pugnale ma i tuoi"
3708 print"movimenti, forse a causa della magia,"
3709 print"sono troppo lenti. il pugnale ti si"
3710 print"conficca profondamente nel petto."
3711 print"la tua missione finisce qui...":gosub40000
3715 print"il sacerdote estrae da sotto la tonaca"
3716 print"una specie di pugnale luminoso e, mentre"
3717 print"{UP}te lo lancia contro, pronuncia alcune"
3718 print"formule nella sua strana lingua."
3719 print"con grande abilita' schivi il colpo e,"
3720 print"prima che se ne renda conto gli scagli"
3721 print"contro la tua "ar$" centrandolo in"
3722 print"pieno viso."
3723 print"gli altri uomini si fermano non appena"
3724 print"realizzano che il loro capo e' morto e"
3725 print"tu, quasi senza fretta, recuperi la tua"
3726 printar$", la pulisci dal sangue":print"e la riponi."
3727 print"prima di uscire dalla stanza raccogli"
3728 print"la piccola chiave nella nicchia e ti"
3729 print"dirigi fuori dalla caverna."
3730 print"non appena fuori ti accorgi che i sa-"
3731 print"cerdoti ti stanno inseguendo. corri"
3732 print"a perdifiato e, non appena li hai"
3733 print"distanziati ti fermi e scorgi in lonta-"
3734 print"nanza un piccolo villaggio.":printt$
3735 gosub51000
3736 c=c+1:v=0:l=65:goto8000
3800 print"{CLEAR}prima di uscire dalla stanza raccogli"
3802 print"la piccola chiave nella nicchia e ti"
3803 print"dirigi fuori dalla caverna."
3804 print"non appena fuori ti accorgi che i sa-"
3805 print"cerdoti ti stanno inseguendo. corri"
3806 print"a perdifiato e, non appena li hai"
3807 print"distanziati ti fermi e scorgi in lonta-"
3808 print"nanza un piccolo villaggio.":printt$
3809 gosub51000
3810 c=c+1:v=0:l=65:goto8000
3850 print"{CLEAR}con un grande sforzo, incurante del"
3851 print"dolore che ti attanaglia riesci ad"
3852 print"arrampicarti fino alla cima della buca."
3853 print"ti sdrai per terra per riposare ma le"
3854 print"voci che senti provenire dalla stanza"
3855 print"vicina ti insospettiscono e decidi che"
3856 print"questo non e' il momento piu' adatto"
3857 print"per riposare."
3858 print"ti alzi e ti dirigi verso il centro"
3859 print"della caverna fino ad arrivare":print"alla porticina che apri...":printt$
3860 gosub51000
3861 ff=ff-4:l=47:goto8000
3900 print"{CLEAR}mentre vaghi, accecato dalla magia"
3901 print"della strega, ti maledici per la tua"
3902 print"stupidita'.":print"poco dopo ti siedi a terra disperato"
3903 print"e senti in lontananza una specie di"
3904 print"nenia. non hai dubbi, deve certo essere"
3905 print"kahal, il mago."
3906 print"lo chiami con tutte le tue forze e,"
3910 print"in un batter d'occhio egli ti raggiunge."
3911 print"{UP}- ah queste donne ! - ti dice ridendo"
3912 print"e, dopo averti ridato la vista scompare"
3913 print"senza nemmeno lasciarti il tempo di"
3914 print"ringraziarlo."
3915 print"ti alzi subito e badando a girare bene"
3916 print"al largo dal villaggio ti dirigi verso"
3917 print"il palazzo.":printt$
3918 gosub51000
3919 l=75:goto8000
4000 print"{CLEAR}trascorri una piacevole notte in sua"
4001 print"compagnia ma al mattino, al tuo"
4002 print"risveglio vedi al posto della bella"
4003 print"thea una orribile vecchia."
4004 print"troppo tardi capisci di essere stato"
4005 print"ingannato. lei ride rumorosamente mentre"
4006 print"{UP}cerca di abbracciarti e tu con tutta"
4007 print"la tua forza la respingi ed esci dalla"
4008 print"capanna."
4009 print"- rimani o te ne pentirai !! - ti urla"
4010 print"mentre scappi lontano."
4012 print"durante la fuga avverti un fastidioso"
4013 print"bruciore agli occhi che pian piano si"
4014 print"trasforma in un tremendo dolore."
4015 print"la vecchia strega ti ha accecato con un"
4016 print"incantesimo...":printt$
4017 gosub51000
4018 l=64:goto8000
4020 print"{CLEAR}non sei del tutto convinto circa la"
4021 print"bellissima thea e preferisci dormire"
4022 print"da solo. al mattino, dopo un sonno"
4023 print"ristoratore ringrazi tutti e riparti"
4024 print"per il tuo viaggio.":printt$
4025 gosub51000
4026 l=75:goto8000
4050 print"{CLEAR}accetti la chiave dallo strano vecchio"
4051 print"ed esci dalla stanza."
4052 print"non appena fuori un improvviso bruciore"
4053 print"alla mano ti costringe a far cadere la"
4054 print"chiave dalla quale prende forma un"
4055 print"piccolo gnomo...":gn=1
4056 print"- guardati dai falsi prigionieri! - sono"
4057 print"{UP}le sue parole. subito sparisce lasciando"
4058 print"{UP}a terra la chiave. la prendi e torni in":print"strada.":printt$
4059 gosub51000
4060 c=c+1:v=0:l=84:goto8000
4061 print"{CLEAR}cerchi di spiegare ai soldati che sei"
4062 print"del tutto estraneo ma le tue parole non"
4063 print"vengono prese in considerazione."
4064 print"ti colpiscono alla tempia e perdi i"
4065 print"sensi. ti risvegli in una fredda cella,"
4066 print"ti affacci alla finestra e vedi, nella"
4067 print"fredda luce dell'alba, che stanno gia'"
4068 print"costruendoti la forca...":print"non avrai nemmeno un processo."
4069 gosub40000
4070 print"{CLEAR}capisci che spiegare non servirebbe"
4071 print"a nulla quindi impugni la "ar$" e"
4072 print"combatti.":max=10:gosub60100:ifrn+ff>10then4074
4073 print"purtroppo i soldati sono troppi...":goto4064
4074 print"ancora una volta la tua abilita' di"
4075 print"guerriero ti salva la vita. sbaragli"
4076 print"i soldati e cerchi l'oste che e' ovvia-"
4077 print"mente sparito.":print"riponi la "ar$" e torni in strada.":printt$
4078 gosub51000
4079 l=84:goto8000
4080 print"{CLEAR}mentre afferri la spada una strana"
4081 print"sensazione di potenza ti avvolge..."
4082 print"sicuramente questa e' una delle mitiche"
4083 print"spade rehel, le spade forgiate piu' di"
4084 print"mille anni fa dai fabbri del regno di"
4085 print"raxoland."
4086 print"chiunque ne possieda una e' praticamente"
4087 print"{UP}invincibile."
4088 print"getti via la tua vecchia "ar$" e ti"
4089 print"affretti ad uscire dall'armeria."
4090 print"improvvisamente una voce dietro di te:"
4091 print"- ti aspettavo sai? non e' necessario"
4092 print"rubarla, bastava chiederla.-"
4093 print"ti volti e riconosci arvel, il tuo"
4094 print"vecchio maestro d'armi."
4095 print"incredibilmente sorpreso lo abbracci."
4096 print"- presto - ti dice, - prendi la spada"
4097 print"e corri al castello! -"
4098 print"lo ringrazi in fretta e corri verso il"
4099 print"castello.":printt$
4100 gosub51000
4101 ff=ff+20:l=94:goto8000
4120 ifrt=1then4150
4122 print"{CLEAR}vedi, salendo le scale, una lucente"
4123 print"armatura vicino alla porta."
4124 print"hai l'impressione che si sia mossa ma"
4125 print"non ci badi. ti dirigi verso la porta."
4126 print"improvvisamente pero' l'armatura prende"
4127 print"vita, si dirige verso di te.":print"impugni la tua arma e combatti"
4128 print"contro il misterioso nemico.":ifff>20then4135
4129 print"purtroppo la tua sola "ar$" e'"
4130 print"poco contro questa creatura del male..."
4131 print"ben presto vieni disarmato e la vuota"
4132 print"armatura ti colpisce ripetutamente con"
4133 print"la sua spada. gli occhi ti si velano"
4134 print"di rosso e perdi conoscenza.":print"non ti sveglierai mai piu'.":gosub40000
4135 print"grazie alla tua spada rehel vibri un"
4136 print"fortissimo colpo all'elmo dell'arma-"
4137 print"tura decapitandola..."
4138 print"ma, anche senza testa, il misterioso"
4139 print"nemico continua a combattere."
4140 print"tu non ti perdi d'animo e, alzando la"
4141 print"spada sopra la testa la colpisci con "
4142 print"tutta la forza di cui sei capace."
4143 print"il fortissimo colpo la taglia in due"
4144 print"facendone cadere a terra i pezzi privi"
4145 print"di vita."
4146 print"l'accesso alla porta ora e' libero.":printt$
4147 gosub51000
4148 rt=1:l=86:goto8000
4220 print"{CLEAR}scendi le scale fiocamente illuminate"
4221 print"e, mentre cammini per il sotterraneo,"
4222 print"senti dei lamenti disperati alla tua"
4223 print"sinistra. ti volti e vedi la porta di"
4224 print"una piccola cella nella quale sono"
4225 print"tenuti prigionieri alcuni uomini.":a$(1)="liberi i prigionieri"
4226 a$(2)="prosegui per i sotterranei":n=2
4227 gosub60000:ifk=1then4230
4228 l=98:goto8000
4230 print"{CLEAR}";:ifgn=1then4240
4231 print"non appena aperta la cella gli uomini"
4232 print"si trasformano in belve della stessa"
4233 print"specie che hai visto nella capanna."
4234 print"vibri diversi colpi con la tua arma ma,"
4235 print"nonostante i tuoi sforzi, il loro numero"
4236 print"{UP}e' troppo grande perche' tu abbia"
4237 print"qualche speranza."
4238 print"dopo la tua morte le orribili belve si"
4239 print"sono divise i tuoi resti.":gosub40000
4240 print"troppo tardi ti torna in mente la frase"
4241 print"dello gnomo: - guardati dai falsi pri-":print"gionieri! -":goto 4231
4270 print"{CLEAR}mentre ti dirigi verso il piccolo"
4271 print"altare, il serpente quasi ti avesse"
4272 print"letto nel pensiero scatta e ti si av-"
4273 print"volge al collo.":print"sorpreso perdi l'equilibrio e ruzzoli"
4274 print"al suolo. il serpente affonda il suo"
4275 print"dente velenoso nella tua carne.":ifgu>5then4281
4276 print"il suo morso si rivela fatale..."
4277 print"il pensiero della povera principessa che"
4278 print"{UP}non sara' mai liberata ti accompagna"
4279 print"nel tuo viaggio verso l'aldila'.":gosub40000
4280 print"{CLEAR}il serpente scatta e ti morde..."
4281 print"dopo averti iniettato il veleno allenta"
4282 print"la sua presa convinto di averti ucciso."
4283 print"fortunatamente la tua capacita' di gua-"
4284 print"rigione e' talmente potente da avere"
4285 print"ragione anche del morso di questo"
4286 print"rettile. ti alzi, prendi la piccola"
4287 print"chiave e torni verso l'atrio.":printt$:gosub51000
4288 l=95:c=c+1:v=0:se=1:goto8000
4400 ifc=4then4500
4401 print"{CLEAR}cerchi di aprire la porta dietro la"
4402 print"quale e' rinchiusa melissa. purtroppo"
4403 print"devi aprire quattro serrature e non hai"
4404 print"chiavi a sufficienza..."
4405 print"mentre cerchi inutilmente di sfondare"
4406 print"la porta senti le sue urla disperate."
4407 print"non puoi fare nulla per lei...":print"improvvisamente, alle tue spalle senti"
4408 print"una voce: - ti ho trovato finalmente ! -"
4409 print"{UP}darth in persona ti fronteggia con la"
4410 print"spada sguainata."
4411 print"ingaggi un duello che sai perso in "
4412 print"partenza..."
4413 print"il suo primo fendente ti disarma e il"
4414 print"secondo ti decapita."
4415 print"la tua testa rotola per le scale mentre"
4417 print"darth ride pensando al suo prossimo"
4418 print"felice matrimonio con melissa.":gosub40000
4500 print"{CLEAR}con le quattro chiavi apri la porta"
4501 print"che tiene rinchusa melissa."
4502 print"appena fuori lei ti abbraccia felice"
4503 print"la prendi per mano e fuggite dal ca-"
4504 print"stello. una volta fuori vi dirigete"
4505 print"verso la foresta, verso la liberta'...":gosub41000
5000 :
5010 a$(1)="proseguire diritto"
5012 a$(2)="chiedere ai soldati"
5014 a$(3)="andare verso il bosco"
5015 n=3:gosub60000
5016 ifk=1thenl=15:goto 8000
5017 ifk=2then3500
5018 l=4:goto8000
5020 :
5025 a$(1)="dirigerti verso il rifugio"
5026 a$(2)="dirigerti verso la strada"
5027 n=2:gosub60000:ifk=1thenl=3:goto8000
5028 l=15:goto8000
5030 :
5035 a$(1)="ti difendi strenuamente"
5036 n=1:gosub60000:max=10:gosub60100
5037 ifrn+ff>7then3400
5038 goto 3550
5040 :
5045 a$(1)="prosegui verso ryu"
5046 n=1:gosub60000:l=25:goto8000
5050 :
5055 a$(1)="chiedi al contadino"
5056 a$(2)="chiedi al prete":n=2
5057 gosub60000:ifk=1thenl=35:co=1:goto8000
5058 goto3300
5060 :
5065 a$(1)="vai verso il rifugio"
5066 n=1:gosub60000:l=45:goto8000
5070 :
5075 a$(1)="combatti l'animale"
5076 a$(2)="fuggi dalla capanna"
5077 n=2:gosub60000:ifk=1then3000
5078 goto3100
5080 :
5085 a$(1)="dirigerti verso la caverna"
5086 a$(2)="andare verso il villaggio":n=2
5087 gosub60000:ifk=1thenl=56:goto8000
5088 l=65:goto8000
5090 :
5095 a$(1)="entri nella caverna"
5096 n=1:gosub60000:l=57:goto8000
5100 :
5105 a$(1)="apri la porta":n=2
5106 a$(2)="ti addentri nei cunicoli"
5107 gosub60000:ifk=1thenl=47:goto8000
5108 goto3600
5110 :
5115 a$(1)="combatti":n=2
5116 a$(2)="fuggi dalla stanza"
5117 gosub60000:ifk=1then3700
5118 goto 3800
5120 :
5125 a$(1)="cerchi di uscire":n=1
5126 gosub60000:goto 3850
5130 :
5135 a$(1)="accetti l'ospitalita'"
5136 a$(2)="continui il tuo viaggio"
5137 n=2:gosub60000:ifk=1thenl=66:goto8000
5138 l=75:goto8000
5140 :
5145 a$(1)="chiedere aiuto":n=1
5146 gosub60000:goto3900
5150 :
5155 a$(1)="dormi con lei":n=2
5156 a$(2)="dormi da solo":gosub60000
5157 ifk=1then4000
5158 goto 4020
5160 :
5164 a$(1)="entri nell'osteria":n=3
5165 a$(2)="entri nella prima porta"
5166 a$(3)="entri nella seconda porta"
5167 gosub60000:ifk=1thenl=74:goto8000
5168 ifk=2thenl=76:goto8000
5169 l=85:goto8000
5170 :
5175 a$(1)="prendere la chiave"
5176 a$(2)="uscire dalla stanza":n=2
5177 gosub60000:ifk=1then4050
5178 l=75:goto8000
5180 :
5185 a$(1)="uscire dalla stanza":n=1
5186 gosub60000:l=75:goto8000
5190 :
5195 a$(1)="uscire dall'osteria":n=2
5196 a$(2)="entrare nello stanzino"
5197 gosub60000:ifk=1thenl=84:goto8000
5198 l=73:goto8000
5200 :
5205 a$(1)="cercare di spiegare"
5206 a$(2)="combattere i soldati":n=2
5207 gosub60000:ifk=1then4061
5208 goto 4070
5210 :
5215 a$(1)="entri nell'armeria"
5216 a$(2)="vai verso il castello":n=2
5217 gosub60000:ifk=1thenl=83:goto8000
5218 l=94:goto8000
5220 :
5225 a$(1)="rubi la spada":n=2
5226 a$(2)="esci dal negozio":gosub60000
5227 ifk=1then4080
5228 l=84:goto8000
5230 :
5235 a$(1)="entrare nel castello":n=1
5236 gosub60000:l=95:goto8000
5240 :
5245 a$(1)="salire le scale"
5246 a$(2)="scendere le scale":n=2
5247 gosub60000:ifk=1thenl=86:goto8000
5248 l=96:goto8000
5250 ifrt=0then5255
5251 a$(1)="aprire la porta":n=1:gosub60000:goto4400
5255 a$(1)="continui a salire":n=2
5256 a$(2)="torni giu'":gosub60000
5257 ifk=1then4120
5258 l=95:goto8000
5260 :
5265 a$(1)="andare verso i sotterranei"
5266 a$(2)="ritornare nell'atrio":n=2
5267 gosub60000:ifk=1then4220
5268 l=95:goto8000
5270 :
5275 a$(1)="aprire la porta":n=2
5276 a$(2)="tornare nell'atrio"
5277 gosub60000:ifk=1then4500
5278 l=5240:goto8000
5280 :
5285 a$(1)="liberare i prigionieri"
5286 a$(2)="proseguire verso la stanza"
5287 n=2:gosub60000:ifk=1then4230
5288 l=98:goto8000
5290 :
5293 ifsethena$(1)="tornare nell'atrio":n=1:gosub60000:l=95:goto8000
5295 a$(1)="uccidere il serpente"
5296 a$(2)="prendere la chiave":n=3
5297 a$(3)="tornare nell'atrio"
5298 gosub60000:ifk=1then4270
5299 ifk=2then4280
5300 l=95:goto8000
8000 ifjj=0thenifpeek(789)=234thensys49307
8005 ifc=1thenpoke53269,1:gosub200:v=1
8006 ifc=2thenpoke53269,3:gosub200:v=1
8007 ifc=3thenpoke53269,7:gosub200:v=1
8008 ifc=4thenpoke53269,15:gosub200:v=1
8010 gosub8600:rem stampa stringhe
8030 ifl<11thenonl goto 0,0,5030,5020,5010,0,0,0,0,0
8050 ifl<21thenonl-10goto 0,0,0,0,5040,0,0,0,0,0
8060 ifl<31thenonl-20goto 0,0,0,0,5050,0,0,0,0,0
8070 ifl<41thenonl-30goto 0,0,0,0,5060,0,0,0,0,0
8080 ifl<51thenonl-40goto 0,0,0,0,5070,0,5110,0,0,0
8090 ifl<61thenonl-50goto 0,0,0,0,5080,5090,5100,5120,0,0
8100 ifl<71thenonl-60goto 0,0,0,5140,5130,5150,0,0,0,0
8110 ifl<81thenonl-70goto 0,0,5200,5190,5160,5170,0,0,0,0
8120 ifl<91thenonl-80goto 0,0,5220,5210,5180,5250,5270,0,0,0
8130 ifl<101thenonl-90goto 0,0,0,5230,5240,5260,5280,5290,0,0
8600 :
8620 p=l:gosub50000
8630 return
10000 print"{CLEAR}descrizione guerriero"
10001 print"---------------------"
10010 print"nome........... "gu$
10020 print"arma........... "ar$
10030 print"accessori...... "op$
10040 print"intelligenza..."in
10050 print"forza fisica..."ff
10060 print"saggezza......."sa
10070 print"guarigione....."gu
10080 printt$
10090 gosub51000
10091 return
10100 :
10105 print"{CLEAR}scelta dell'arma"
10106 print"----------------"
10107 print"ora, "gu$", devi scegliere"
10108 print"la tua arma:":print"sii attento nella scelta poiche' da essa"
10109 print"{UP}puo' dipendere la tua vita."
10110 a$(1)="lancia"
10115 a$(2)="spada"
10120 a$(3)="scure"
10130 n=3:gosub60000
10140 ar$=a$(k)
10200 :
10205 print"{CLEAR}scelta degli oggetti"
10206 print"--------------------"
10207 print"anche la scelta dell'oggetto e' molto"
10208 print"importante, falla in funzione delle"
10209 print"tue caratteristiche personali."
10210 a$(1)="pozione  <+5 guarigione>"
10215 a$(2)="armatura <+5 forza>"
10220 a$(3)="scudo    <+3 forza>"
10230 n=3:gosub60000:ifk=1thengu=gu+5
10240 ifk=2thenff=ff+5:o2=1
10243 ifk=3thenff=ff+3
10250 op$=left$(a$(k),8):return
15000 print"{CLEAR}scelta del guerriero"
15001 print"--------------------{DOWN}"
15010 print"geoffry longman        arthur of torvik{DOWN}"
15015 print"intelligenza 8         intelligenza 6  "
15020 print"forza fisica 9         forza fisica 5  "
15025 print"saggezza     9         saggezza     7  "
15030 print"guarigione   3         guarigione   8  "
15040 print"{DOWN}{DOWN}stephan rutherford     albert irving   {DOWN}"
15045 print"intelligenza 4         intelligenza 9  "
15050 print"forza fisica 7         forza fisica 5  "
15055 print"saggezza     2         saggezza     5  "
15060 print"guarigione   7         guarigione   3  "
15100 a$(1)="geoffry longman"
15101 a$(2)="arthur of torvik"
15102 a$(3)="stephan rutherford"
15103 a$(4)="albert irving":n=4:gosub60000
15110 onkgoto15120,15130,15140,15150
15120 gu$=gu$(k):g$=a$(k):in=8:ff=9:sa=9:gu=3:return
15130 gu$=gu$(k):g$=a$(k):in=6:ff=5:sa=7:gu=8:return
15140 gu$=gu$(k):g$=a$(k):in=4:ff=7:sa=2:gu=7:return
15150 gu$=gu$(k):g$=a$(k):in=9:ff=5:sa=5:gu=3:return
20000 ff=ff+5:return
40000 :
40010 printt$:gosub51000
40020 print"{CLEAR}la tua abilita' di guerriero e' un po'"
40021 print"scarsa... premi return se vuoi ritentare"
40022 print"{UP}oppure un qualsiasi altro tasto per"
40023 print"rinunciare a liberare melissa.":printt$:gosub51000
40024 ifa$<>chr$(13)thenprint"{CLEAR}":end
40025 run
41000 :
41010 printt$:gosub51000
41020 print"{CLEAR}hai vinto la sfida, "gu$"."
41021 print"melissa e' libera e molto probabilmente decidera' di sposarti..."
41022 print"premi return se vuoi giocare ancora o"
41023 print"altrimenti un tasto qualsiasi.":printt$:gosub51000
41024 ifa$<>chr$(13)thenprint"{CLEAR}":end
41025 run
50000 :
50004 ifp<11thenonp goto 0,0,1000,1020,1040,0,0,0,0,0
50005 ifp<21thenonp-10goto 0,0,0,0,1060,0,0,0,0,0
50006 ifp<31thenonp-20goto 0,0,0,0,1080,0,0,0,0,0
50007 ifp<41thenonp-30goto 0,0,0,0,1100,0,0,0,0,0
50008 ifp<51thenonp-40goto 0,0,0,0,1120,0,1140,0,0,0
50009 ifp<61thenonp-50goto 0,0,0,0,1160,1180,1200,1220,0,0
50010 ifp<71thenonp-60goto 0,0,0,1240,1260,1280,0,0,0,0
50011 ifp<81thenonp-70goto 0,0,1300,1320,1340,1360,0,0,0,0
50012 ifp<91thenonp-80goto 0,0,1380,1400,1420,1440,1460,0,0,0
50013 ifp<101thenonp-90goto 0,0,0,1480,1500,1520,1540,1560,0,0
50020 :
51000 :
51010 ifpeek(56320)<112thenreturn
51012 geta$:ifa$=""then51010
51020 return
60000 :
60009 re$(1)="{REVERSE ON}":k=1:poke198,0:poke649,0
60010 print"{HOME}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}"
60015 fori=1ton
60020 printre$(i)a$(i)
60030 re$(i)="{REVERSE OFF}":next
60040 poke649,10:geta$
60042 ifa$="{F1}"thenpoke54296,0:jj=1:poke50231,4:goto60040
60044 ifa$="{F3}"thenpoke54296,15:jj=0:ifpeek(789)=234thensys49307
60050 ifa$="{DOWN}"orpeek(56320)=125thenk=k+1:ifk>nthenk=1
60060 ifa$="{UP}"orpeek(56320)=126thenk=k-1:ifk<1thenk=n
60075 ifa$=chr$(13)orpeek(56320)<112theni=k:return
60080 i=k:re$(i)="{REVERSE ON}":goto 60010
60100 :
60110 rn=int(rnd(.)*5)+1:return
