start tok64 d64-qHEpVJ 1 REM sv[rdet till c64. 2 REM skrevs ursprungligen p] en ibm pc 3 REM av joakim karlsson. 4 REM den 23/9-27/9 1985. prao, volvex 11 cl=53280:POKEcl,12:POKEcl+1,12 12 DIMa$(100),b$(100),o2(100),ex$(100):p=1:l=0:cp=0:po=0:d=1:dr=40:hu=45:d1=0 13 h=0:FORt=1TO24:READa$(t),o2(t):NEXT:FORt=1TO14:READb$(t):NEXT 14 FORt=1TO10:READc$(t),ce(t):NEXT 20 PRINT"{clear}{black}(c) 1985. star soft." 30 PRINT"{down*2}du bor i byn som ligger bortom bergen." 40 PRINT"n[r du kommer tillbaka fr]n en promenad" 50 PRINT"runt dina [gor. uppt[cker du till din" 51 PRINT"fasa att n]gon brutit sig in i din hydda" 52 PRINT"{up}och stulit ditt magiska sv[rd." 53 PRINT"sv[rdet som g{pound}r sin [gare os]rbar." 54 PRINT"en man s]g en h[xa flyga iv[g fr]n byn." 80 GOSUB3000 101 GOTO104 102 IFwe=1THENwe=0:GOSUB3000 103 p=cp 104 IFp<12THENONpGOTO600,610,620,630,640,650,660,670,680,690,700 105 IFp<25THENONp-11GOTO710,720,730,740,750,760,770,780,790,800,810,820,830 107 GOSUB 5000:te$="":PRINT"rum="p 108 INPUT"{down}vad g{pound}r vi nu ";te$ 109 dr=dr-1:hu=hu-1:an=an+1 110 IFte$="sluta"THENPRINT"{clear}":INPUT"ska du verkligen sluta nu (j/n) ";j$:GOTO2000 111 IFhu<10ANDh=0THENPRINT"{down}du [r hemskt hungrig.":we=1 112 IFdr<10ANDd1=0THENPRINT"{down}du [r fruktansv[rt t{pound}rstig.":we=1 113 IFdr=0ANDd1=0THENPRINT"{down}du dog av t{pound}rst.":GOTO7000 114 IFhu=0ANDh=0THENPRINT"{down}du dog av hunger.":GOTO7000 115 IFp=4ANDo2(23)=0THENPRINT"{down}pl{pound}tsligt ]terkastas solljuset av" 116 IFp=4ANDo2(23)=0THENPRINT"rubinen och faller p] en spricka i{space*6}tr[det.":we=1 120 IFte$="i"ORte$="inventering"THENGOSUB2002:GOTO104 130 IFte$="n"ANDn>0THENcp=p-6:GOSUB10000:GOTO102 140 IFte$="s"ANDs>0THENcp=p+6:GOSUB10000:GOTO102 150 IFte$="{pound}"ANDo>0THENcp=p+1:GOSUB10000:GOTO102 160 IFte$="v"ANDv>0THENcp=p-1:GOSUB10000:GOTO102 170 IFte$="n"ORte$="s"ORte$="{pound}"ORte$="v"THENPRINT"{down}du gick vilse.":GOTO7000 180 IFte$="po[ng"THENGOSUB2500:GOTO104 190 IFte$="hj[lp"THENGOSUB2600:GOTO104 210 IFte$="hoppa"THENGOSUB2800:GOTO104 594 IFte$<>""THENGOSUB6000 595 IFr=1THENr=0:GOTO102 597 GOTO104 598 END 600 p$="mitt i den by d[r du bor." 601 n=0:s=6:v=0:o=1:GOTO107 610 p$="i en gl[nta i skogen." 611 n=0:s=8:v=1:o=2:GOTO107 620 p$="vid en flod kallad tiralbi." 621 n=0:s=0:v=2:o=4:GOTO107 630 p$="vid en gigantisk ek som s[kert{space*2}[r tusen ]r gammal." 631 n=0:s=10:v=0:o=5:GOTO107 640 p$="vid en smal gammal bro." 641 n=0:s=0:v=0:o=6:GOTO107 650 p$="vid brof[stet p] {pound}stra sidan om floden tiralbi." 651 n=0:s=12:v=5:o=7:GOTO107 660 p$="i skogskanten, ett platt{space*8}landskap breder ut sig framf{pound}r dig." 661 n=1:s=13:v=6:o=0:GOTO107 670 p$="p] en stor [ng, ]t s{pound}der ligger ett stenhus." 671 n=0:s=14:v=0:o=0:GOTO107 680 p$="p] en liten h{pound}jd varifr]n det{space*3}finns en fantastisk utsikt." 681 n=0:s=0:v=8:o=0:GOTO107 690 p$="vid foten av bergskedjan lopar, v[stra sidan." 691 n=0:s=0:v=9:o=11:GOTO107 700 p$="i bergspasset kroul som ligger ibergskedjan lopar." 701 n=0:s=0:v=0:o=12:GOTO107 710 p$="vid foten av bergskedjan lopar, {pound}stra sidan." 711 n=6:s=18:v=0:o=0:GOTO107 720 p$="vid ett stup p] toppen av bergettakor, 100 meter ner forsar en flod." 721 n=0:s=19:v=12:o=0:GOTO107 730 p$="vid den fasansfulla goblins hus." 731 n=0:s=0:v=0:o=15:GOTO107 740 p$="framf{pound}r d{pound}rren till goblins hus." 741 n=0:s=22:v=15:o=17:GOTO107 750 p$="vid en liten stenmur, ]t v[ster ligger ett hus." 751 n=0:s=23:v=16:o=18:GOTO107 760 p$="vid en inte riktigt utskocknad{space*2}l[gereld, tydligen har n]gon slarvat." 761 n=12:s=0:v=0:o=19:GOTO107 770 p$="utanf{pound}r en grotta." 771 n=13:s=24:v=0:o=20:GOTO107 780 p$="vid ett t[lt. det [r vackert{space*4}dekorerat." 781 n=14:s=0:v=19:o=21:GOTO107 790 p$="p] en liten bergh[ll bakom ett{space*2}t[lt." 791 n=0:s=0:v=20:o=0:GOTO107 800 p$="framf{pound}r en gravsten, p] en{space*6}mycket gammal gravplats." 801 n=16:s=0:v=21:o=23:GOTO107 810 p$="vid en liten h{pound}jd." 811 n=17:s=0:v=22:o=0:GOTO107 820 p$="i en uppf{pound}rsbacke." 821 n=18:s=0:v=23:o=0:GOTO107 830 p$="i en stor grotta med h{pound}gt i tak.h[r och var h[nger droppstenar." 831 n=18:s=0:v=0:o=0:GOTO107 999 DATAr[vsax,7,offeraltare,9 1000 DATAyxa,3,kniv,5,nyckel,10,kvast,7,sten,3,kn{pound}lp]k,15,guldmynt,11 1001 DATAskorpion,4,orm,21,bok,1,krucifix,22,handske,12,l]da,24,diamant,14,vin,16 1002 DATAlite lunch,19,skelett,9,hink,2,spade,13,guldnyckel,26,rubin,27,karta,26 1003 DATAg],ta,l[gg,sl[pp,kasta,unders{pound}k,{pound}ppna,d{pound}da,anfall,s[g,l[s,sl],[t,drick 1004 DATAhej,0,hem,1,tiralbi,3,lopar,10,takor,13,goblins hus,14,grotta,17 1005 DATApasset kroul,11,gravplats,21,stenmur,16 2000 IFj$="ja"THENEND 2001 GOTO104 2002 l=0:PRINT"{down}du b[r p]:" 2003 FORt=1TO24 2004 IFo2(t)=0THENPRINTa$(t):l=l+1 2005 NEXT 2006 IFl=0THENPRINT"ingenting." 2007 GOSUB3000:RETURN 2500 PRINT"{clear}du har klarat "sc"% av [ventyret{space*8}hittills och gjort"an"drag. 2501 GOSUB3000:RETURN 2600 REM *** hj[lp *** 2601 IFdri<10ANDdr=0THENPRINT"{down}f{pound}rs{pound}k hitta n]got att dricka.":GOSUB3000:RETURN 2602 IFhu<10ANDh=0THENPRINT"{down}f{pound}rs{pound}k hitta n]got att [ta.":GOSUB3000:RETURN 2603 IFp=16ORp=25ORp=26ORp=4THENPRINT"{down}f{pound}rs{pound}k med att unders{pound}ka saker.":GOSUB3000:RETURN 2610 PRINT"{down}du klarar dig fint.":GOSUB3000:RETURN 2800 PRINT"{down}uff! jag hoppade och slog i taket.":GOSUB3000:RETURN 2900 PRINT"{clear}":p$="i goblins vardagsrum." 2901 n=0:s=0:v=0:o=0:p=26 2902 ex$(26)="du tittar runt i goblins stora vardags{space*2}rum och uppt[cker{.*3}" 2904 RETURN 3000 PRINT"{down}tryck p] en knapp!" 3001 GETa$:IFa$=""THEN3001 3002 RETURN 5000 PRINT"{clear}{down}du st]r "p$ 5001 PRINT"{down}du ser:" 5002 FORt=1TO24:IFo2(t)=pTHENPRINTa$(t) 5003 NEXT 5010 PRINT"{down}du kan g] ]t:" 5020 IFn>0THENPRINT"norr." 5030 IFs>0THENPRINT"syd." 5040 IFv>0THENPRINT"v[st." 5050 IFo>0THENPRINT"{pound}st." 5060 PRINT"{down}"ex$(p):RETURN 5070 END 6000 FORt=1TOLEN(te$) 6001 IFMID$(te$,t,1)=" "THEN6004 6002 NEXT 6003 PRINT"{down}vad menar du {!*3}":GOSUB3000:RETURN 6004 o1$=LEFT$(te$,t-1) 6005 o2$=RIGHT$(te$,LEN(te$)-t) 6006 FORt=1TO24:IFo1$=b$(t)THEN6008 6007 NEXT:PRINT"{down}jag k[nner inte till verbet "CHR$(34)o1$CHR$(34)".":GOSUB3000:RETURN 6008 ONtGOSUB7021,7010,7040,7040,7060,7070,7090,7100,7100,7110,7130,7100,7140 6009 IFt=14THENGOSUB7150 6010 RETURN 7000 PRINT"{down}du [r d{pound}d.":PRINT"du lyckades klara"sc"% av [ventyret p]"an"drag." 7001 INPUT"{down}vill du spela igen ";je$ 7002 IFje$="nej"ORje$="n"THENEND 7003 RUN 7010 FORt=1TO24 7011 IFo2$=a$(t)THEN7014 7012 NEXT 7013 PRINT"{down}jag k[nner inte igen substantivet "CHR$(34)o2$CHR$(34)".":GOSUB3000:RETURN 7014 IFo2$="skorpion"ORo2$="orm"THENPRINT"{down}du blev biten av "o2$".":GOTO7000 7015 GOSUB8000:IFo2$="offeraltare"ORo2$="l]da"ORo2$="skelett"THEN7017 7016 GOTO7018 7017 PRINT"{down}du orkar inte b[ra "o2$".":GOSUB3000:RETURN 7018 sa=sa+1:IFsa>4THENPRINT"{down}du orkar inte b[ra fler saker.":sa=4:GOSUB3000:RETURN 7019 IFo2(t)=pTHENo2(t)=0:PRINT"{down}nu har du "CHR$(34)o2$CHR$(34)".":GOSUB3000:RETURN 7020 RETURN:REM *** subtrin g] *** 7021 IFo2$="norr"ANDn>0THENcp=p-6:GOSUB10000:r=1:RETURN 7022 IFo2$="syd"ANDs>0THENcp=p+6:GOSUB10000:r=1:RETURN 7023 IFo2$="v[st"ANDv>0THENcp=p-1:GOSUB10000:r=1:RETURN 7024 IFo2$="{pound}st"ANDo>0THENcp=p+1:GOSUB10000:r=1:RETURN 7025 IFo2$="d{pound}rr"ANDd=0THENsc=sc+10:GOSUB2900:RETURN 7026 IFo2$="ut"ANDp=26THENsc=sc+2.5:p=15:RETURN 7030 PRINT"{down}du kan inte g] ]t "o2$".":GOSUB3000:RETURN 7040 REM *** subtrin sl[pp,l[gg *** 7041 IFo2$="allt"THEN7049 7042 FORt=1TO24 7043 IFo2$=a$(t)THEN7046 7044 NEXT 7045 PRINT"{down}du kan inte l[gga n]got du inte har.":GOSUB3000:RETURN 7046 IFo2(t)=0THENo2(t)=p:sa=sa-1 7047 RETURN 7048 REM *** l[gg allt *** 7049 sa=0:FORt=1TO24 7050 IFo2(t)=0THENo2(t)=p 7051 NEXT:PRINT"{down}nu har du lagt allt.":GOSUB3000:RETURN 7060 REM *** kasta *** 7061 FORt=1TO24 7062 IFo2$=a$(t)THEN7065 7063 NEXT 7064 PRINT"{down}du kan inte kasta n]got du inte har.":GOSUB3000:RETURN 7065 IFo2(t)=0THENo2(t)=p:sa=sa-1 7066 IFo2$="hink"THENPRINT"{down}hinken hamnade {pound}ver skorpionen,{space*9}"; 7067 IFo2$="hink"THENPRINT"du f]ngade den.":sc=sc+10:do=1:o2(10)=28:GOSUB3000:RETURN 7068 PRINT"{down}du missade ditt m]l.":GOSUB3000:RETURN 7070 REM *** subtrin unders{pound}k *** 7071 IFo2$="bok"ANDo2(12)=0THENPRINT"{down}bokens titel [r: hur man jagar hob."GOSUB3 7072 IFo2$="kniv"ANDo2(4)=0THENPRINT"{down}det [r sp]r av blod p] den.":GOSUB3000:ret 7073 IFo2$="kvast"THENPRINT"{down}det [r den onda h[xans magiska kvast.":GOSUB3000:RETURN 7074 IFo2$="d{pound}rr"ANDd=1THENPRINT"{down}den [r st[ngd och l]st med ett h[ngl]s.":GOSUB3000:RETURN 7075 IFo2$="nyckel"ANDo2(5)=0THENPRINT"{down}det [r en nyckel modell: assa 4546.":GOs 7076 IFo2$="karta"ANDo2(24)=0THENPRINT"{down}du kan inte tyda kartans text.":GOSUB3000:RETURN 7077 IFo2$="guldnyckel"ANDo2(22)=0THENPRINT"{down}nyckeln [r sl[t och fin.":GOSUB3000:RETURN 7078 IFo2$="vin"ANDo2(17)=0THENPRINT"{down}vinet ser gott ut.":GOSUB3000:RETURN 7079 IFo2$="lite lunch"ANDo2(18)=0THENPRINT"{down}lunchen ser god ut.":GOSUB3000:retu 7080 IFo2$="offeraltare"ANDp=9THENPRINT"{down}offeraltaret dryper av blod.":GOSUB3000:RETURN 7081 IFo2$="skelett"ANDp=9THENPRINT"{down}skelettet [r antagligen ett offer.":GOSUB3000:RETURN 7082 IFo2$="krucifix"ANDo2(13)=0THENPRINT"{down}en inskrift s[ger: mot allt ont.":GOSUB3000:RETURN 7083 IFo2$="ek"ANDp=4THENPRINT"{down}eken har en inskrift: solens str]lar" 7084 IFo2$="ek"ANDp=4THENPRINT"skall visa v[gen genom stenen.":GOSUB3000:RETURN 7085 IFo2$="spricka"ANDo2(14)=0ANDo2(23)=0ANDo2(13)=0THENGOTO8100 7086 IFo2$="spricka"ANDo2(14)=0THENPRINT"{down}pl{pound}tsligt anfalls du av goblin.":GOTO7000 7087 IFo2$="spricka"THENPRINT"{down}du blev biten i handen av en spindel.":GOTO7000 7088 IFo2$="hink"ANDo2(20)=0THENPRINT"{down}det [r en vanlig hink av solid pl]t.":GOSUB3000:RETURN 7089 PRINT"{down}jag ser inget speciellt.":GOSUB3000:RETURN 7090 REM *** {pound}ppna *** 7091 IFp=15ANDd=1ANDo2$="d{pound}rr"ANDo2(5)=0THENd=0:PRINT"{down}d{pound}rren [r {pound}ppen.":sc=sc+5:GOTO7099 7092 IFp=24ANDo2$="l]da"ANDo2(22)=0THENPRINT"{down}l]dan [r {pound}ppen.":sc=sc+5:GOTO7098 7097 PRINT"{down}du kan inte {pound}ppna "o2$".":GOSUB3000:RETURN 7098 o2(23)=24:GOSUB3000:RETURN 7099 GOSUB3000:RETURN 7100 REM *** d{pound}da,anfall *** 7101 IFo2$="orm"ANDp=21ANDo2(3)=0ORo2(8)=0THENPRINT"{down}du lyckas d{pound}da ormen.":q=1 7102 IFq=1THENa$(11)="en d{pound}d orm":sc=sc+10:GOSUB3000:RETURN 7104 IFo2$="skorpion"ANDp=4ANDo2(3)=0ORo2(8)=0THENPRINT"{down}du missar skorpionen,";:z=1 7105 IFz=1THENz=0:PRINT" och den lyckas{space*4}bita dig.":GOTO7000 7109 PRINT"{down}du ger "o2$" ett f{pound}r{pound}dande slag, men missar.":GOSUB3000:RETURN 7110 REM *** s[g *** 7111 FORt=1TO10 7112 IFo2$=c$(t)THEN7116 7113 NEXT 7114 PRINT"{down}du s[ger "o2$"!" 7115 PRINT"{down}ingen svarar dig.":GOSUB3000:RETURN 7116 IFo2$="hej"THENPRINT"{down}fr]n fj[rran h{pound}rs ett h{e*3}j till svar.":GOSUB3000:RETURN 7125 IFo2(4)=0THENPRINT"{down}pl{pound}tsligt flyger kvasten iv[g med dig." 7126 IFo2$="hem"ANDo2(4)=0THENp=1:GOSUB3000:RETURN 7127 IFo2(4)<>0ANDo2$="hem"THENo2(4)=30:PRINT"{down}kvasten lyfter och flyger iv[g." 7128 IFo2(4)<>0THENPRINT"{down}kvasten lyfter och flyger iv[g.":o2(4)=ce(t):GOSUB3000:RETURN 7129 p=ce(t):GOSUB3000:RETURN 7130 REM *** l[s *** 7131 IFo2$="bok"THENPRINT"{clear}hoberna [r mycket blodt{pound}rstiga och de{space*3}";:lb=1 7132 IFlb=1THENlb=0:PRINT"lyder sin ledare, den onda h[xan, blint.":GOTO8010 7133 IFo2$="karta"THENPRINT"{down}det enda du kan tyda p] kartan [r en{space*4}";:lb=2 7134 IFlb=2THENlb=0:PRINT"inskrift: rubiner [r m[nniskans b[sta{space*3}v[n.":GOTO7139 7138 PRINT"{down}du kan inte l[sa "o2$".":GOSUB3000:RETURN 7139 GOSUB3000:RETURN 7140 REM *** [t *** 7141 IFo2$="lite lunch"ANDo2(18)=0THENsc=sc+2.5:PRINT"{down}{m*3}, det var gott.":m1=1 7142 IFm1=1THENh=1:o2(18)=30:m1=0:sa=sa-1:GOSUB3000:RETURN 7149 PRINT"{down}du kan inte [ta "o2$".":GOSUB3000:RETURN 7150 REM *** drick *** 7151 IFo2$="vin"ANDo2(17)=0THENsc=sc+5:PRINT"{down}ahh, det beh{pound}vdes.":d1=1 7152 IFo2$="vin"ANDo2(17)=0THENo2(17)=30:sa=sa-1:GOSUB3000:RETURN 7159 PRINT"{down}du kan v[l inte dricka "o2$".":GOSUB3000:RETURN 8000 IFo2$="hink"ANDdo=1THENPRINT"{down}skorpionen kr{pound}p ut och bet dig.":GOTO7000 8001 IFo2$="guldnyckel"THENsc=sc+10:RETURN 8002 IFo2$="nyckel"THENsc=sc+2.5:RETURN 8003 IFo2$="hink"ANDdo=0THENsc=sc+2.5:RETURN 8004 IFo2$="kvast"ANDo2(11)=0THENPRINT"{down}kvasten lyder din minsta vilja.":RETURN 8005 IFo2$="kvast"THENPRINT"{down}pl{pound}tsligt kliver den onda h[xan fram.":GOTO9000 8006 IFo2$="krucifix"THENsc=sc+7.5:RETURN 8007 IFo2$="rubin"THENsc=sc+7.5:RETURN 8008 IFo2$="handske"THENsc=sc+5:RETURN 8009 RETURN 8010 PRINT"man b{pound}r vara bev[pnad med all sin list, en yxa och ett krucifix n[r"; 8011 PRINT" man ska jagahob. det b[sta s[ttet att hitta en hob{space*2}[r att ropa "; 8012 PRINT"p] honom.":GOSUB3000:RETURN 8100 PRINT"{down}pl{pound}tsligt k[nner du n]got i sprickan,{space*3}det [r ditt magiska sv[rd." 8101 GOSUB3000:PRINT"{clear}du har klarat [ventyret och hittat ditt magiska sv[rd." 8102 PRINT"{down}du tog "sc"% av [ventyret p] "an" drag." 8103 PRINT"{down}vill du spela igen (j/n)?" 8104 GETa$:IFa$=""THEN8104 8105 IFa$="n"THENPRINT"{clear}{down*2}{right*2}hej d]!":NEW 8106 RUN 9000 PRINT"{down}hon s[ger: -tar du min kvast?{space*11}och f{pound}rvandlar dig till"; 9001 PRINT" en sten.":GOTO7000 10000 IFp=4ANDdo=0THENPRINT"{down}du blev biten av skorpionen.":GOTO7000 10001 IFp=21ANDq=0THENPRINT"{down}ormen h{pound}gg dig i foten.":GOTO7000 10002 RETURN stop tok64 (bastext 1.0)