ZXTape! 0Created with Ramsoft MakeTZXcastle VleT=Xl 1000 dt$=i n8x=r(8):y=r(8):c$(x,y,z)"e"110n xc$(x,y,z)=t$:127,79O:1;t*78N,t*78N:t=t+.0187{0 :127,79O:1;t*78N,t*78N: J"You have:-","Strength ";st,"Intelligence ";iq,"Dexterity ";dx,,,: ""200 r$=:r$=""210 .05|L,30: 12 ,0; !"You have ";gp;" gold pieces": ,;bl=0"You are in room ";y;"-";x;", on level ";z,,, 6 150 @"You are wearing ";w$(av+5),"and carry a lamp, "(10 +8*(lf=1));w$(wv+1)(̰z$(wv+1,2)),fl;" flares"(6+(fl1));" + ";gp;" gold pieces"(11 +(gp1)) J7t=0:i=18:t(i)=0360h T$t=0t=1:"You have "; ^d$(i+25) hi r 0,-17:17,0:0,17:-16,0:0,-16:15,0:0,15:-14,0: 12 ,0;:250:,,"You are wearing ";w$(av+5),"and carry ";w$(wv+1)(̰z$(wv+1,2));" and a lamp"(1+10 *(lf=1)),:"Your strength is ";st;", dexterity",dx;" and intelligence ";iq,,,: ?i=120:.05|L,0:.05|L,4:i: 440:: av=0490 1t=t-av:ah=ah-av:t<0ah=ah-t:t=0 Qah<0ah=0:av=0:6;"Your armour has been destroyed":  st=st-t: [c$(x,y,z)=v$():"Your lamp shines into room ";y;"-";x:"There you see ";d$(c$(x,y,z)): (i=-1530:.05|L,i:i: 1i=30-15-1:.05|L,i:i: g236099\,20:1:9 :1::0,6;2;"The Sorcerers castle": 6;"MURTCEPS";1;" the sorcerer has a hugecastle. Your task is to enter itand find Murtceps' great crown. Your friends won't think much ofyou if you leave the castlewithout it." x:"I recognise your single lettercommands such as n, s, e, w, uand d for north, south, east,west, up and down." :"You should be able to work outthe other ones by yourself; ifyou get stuck then you can enterh for help.",,,,"Please wait while the castle isbeing set up; it will be readywhen the clock says 12-o-clock."  c$(8,8,8):d$(34",17):e$(5,7):i$(34"):p$(5,7):w$(8,9 ):x$(34",3):y$(5,8):z$(8,2) 8c(3):e(3,4):r(3):t(8) |r(t)=1+(*t):v$()=((c$(x,y,z))-100d*(c$(x,y,z)>"c")):l(t )=t*(t<19)+18*(t>18) *i=134":d$(i),x$(i),i$(i):i $?i=14:w$(i),z$(i),w$(i+4),z$(i+4):i .)i=15:p$(i),y$(i),e$(i):i B@i=18:j=18:c$(i,j)="eeeeeeee":j:i L&c$(4,1,1)=2 Q:t=0:127,79O:1;0,78N Vz=17:t$="h":i=12:110n:c$(x,y,z+1)="g":i:i=13:t$="n":110n:i:z `z=18:j=13:i=105i109m:100d:i:i=111o112p:100d:i:t$="}":110n:j:i=113q124|:100d:i:z j4i=126~133:z=r(8):100d:i tht$="e":i=13:z=r(8):110n:e(i,1)=x:e(i,2)=y:e(i,3)=z:i ~^i=112p+r(12 ):z=r(8):100d:r(1)=x:r(2)=y:r(3)=z Lt$="m":z=r(8):110n:c(1)=x:c(2)=y:c(3)=z $i=095_:t:""+i,t:i r$="":bl=0:bo=0:tc=0:mc=0:m=0:h=0:vf=0:lf=0:gp=60<:fl=0:wc=0:rf=0:cf=0:pt=0 ܶ.5,0::"Greetings, bold adventurer, youmay choose to be:-",,," a dwarf",," an elf",," a fighter",," a hobbit",,"or a wizard",,,,1;"Select d,e,f,h or w"  200 i=15:r$=p$(i,1)pt=i:st=y$(i,23):iq=y$(i,45):dx=y$(i,67):op=y$(i,8) ii:pt=09 ,0;2;"I said d,e,f,h or w. Try again":.5,0:1510 7:"Are you male or female?",,,1;"Enter m or f"  200 Yr$"m"r$"f"2,0;2;"m or f, stupid":.5,0:1550 " sx=0:r$="m"sx=1 , 6"Well now, ";p$(pt):150:"You have ";op;" more points to","divide as you wish",,,:1;" Press keys s, i or d once ":1;" for each point " @op=01660| J200:r$"s"r$"i"r$"d"7,0;2;"Is your intelligence really":2:iq;". Enter s, i or d please";" "(3-iq):1:.5,0:1610J Tr$="s"st=st+1 ^r$="i"iq=iq+1 hr$="d"dx=dx+1 r.op=op-1:0,0;:15906 |:"The local armoury sells:-",,," Armour"," Weapons",,,"Platemail 30","Swords 30","Chainmail 20","Maces 20","Leather 10","Daggers 10",,,"Lamps 20","Flares 1 each",,,"All prices are in gold pieces",,,  250 Q,,"What armour do you want to buy?",,,1;"Enter p, c or l, or n for none"  200 /av=3*(r$="p")+2*(r$="c")+(r$="l") zav=0r$"n"16,0;2;"Just p, c, l or n";1;" ":.5,0:1690 "ah=av*7:gp=gp-av*10 d240:14,5;"weapon":16,0;1;"Enter s, m or d, or n for none"  200 /wv=3*(r$="s")+2*(r$="m")+(r$="d") lwv=0r$"n"16,0;2;"s, m, d or n, fool";1,:.5,0:1740 gp=gp-wv*10 gp<201830& `240:14,0;"Do you want to buy a lamp?",,,1;"Enter y or n";0,,  200 0r$="y"lf=1:gp=gp-20:1830& Qr$"n"16,0;2;"Enter y or n":.5,0:1800 &gp<11950 0Y240:14,0;"Do you want to buy any flares?",,,1;"Enter y or n" : 200 Dr$="n"1950 NYr$"y"16,0;2;"Please answer y or n":.5,0:1850: Xs14,0;"How many would you like?",,,1;"Please enter the number and thenpress ";6;"ENTER" br$ lr$=""r$="0":1930 v/i=1̱r$:r$(i)<"0"r$(i)>"9"r$(i)="0" i r$<1Űr$>gp16,0;2;"The armourer can't waste all dayserving you, please just enter anumber from 1 to ";gp:.5,0:1890b fl=r$:gp=gp-r$ !x=4:y=1:z=1 4:"You are now entering the castle",,,:2010   300,  $wc=0:t$=v$():c$(x,y,z)=t$ *O:"Here you find ";d$(t$):t$<7ůt$=11 ůt$=12 4010 4At$=7gp=gp+r(10 ):"You now have ";gp:4000 >@t$=8fl=fl+r(5):"You now have ";fl:4000 Ht$>9 2160p Rc(1)=xc(2)=yc(3)=zrf=1,,2;"You've found it! The great":2;"crown. But the magic ring":2;"has dissapeared ":rf=0:cf=1:c(1)=0:4000 \ 520 f9x=r(8):y=r(8):z=r(8):2000 p2t$=10 540:z=z+1:2000 zat$>25Ưt$<34""It's now yours":t(t$-25)=1:tc=tc+1:4000 ,mt=t$:mt<25vf=12640P krp=27-23689\:"You may trade with, attack or","ignore the vendor",,,1;"Type t, a or i"  200 r$="i"4010 Ir$="a"rp,0;6;"You'll be sorry you did that":2640P Zr$"t"rp,0;2;"Nice try, now use t, a or i":.5,0:2200 tc>0 -i=18:t(i)=02300 yt=r(i*1500):0,0;"Will you sell ";d$(i+25),"for ";t;" gold pieces",,,1;"Answer y or n"  200 r$="n"2300 \r$"y"3,0;2;"Don't mess about, y or n":.5,0:2260 &t(i)=0:tc=tc-1:gp=gp+t i @gp<1000:"You're too poor to buy anything":4010 :"The vendor is selling:-",,," Armour"," Weapons","Platemail 2000","Swords 2000","Chainmail 1500","Maces 1500","Leather 1250","Daggers 1250",,,"Lamps"," 1000","Strength, intelligence","or dexexterity potions 1000 each",,"All prices are in gold pieces" S400:"Would you like any armour?",,,1;"Enter p, c, l, or n for none" $ 200 .r$="n"2410j 8yr$"p"r$"c"r$"l"21,0;2;"Enter p, c, l, or n for none";1,:.5,0:2340$ BMr$="p"gp2000av=3:ah=21:gp=gp-2000:2410j LMr$="c"gp1500av=2:ah=14:gp=gp-1500:2410j VLr$="l"gp1250av=1:ah=7:gp=gp-1250:2410j `[21,0;2;"No credit given; p, c, l, or n":.5,0:2340$ j_400:19,15;"a weapon?",,,1;"Enter s, m, d, or n for none";0, t 200 ~r$="n"2490 vr$"s"r$"m"r$"d"21,0;2;"Just s, m, d, or n please";1,:.5,0:2420t @r$="s"gp2000wv=3:gp=gp-2000:2490 @r$="m"gp1500wv=2:gp=gp-1500:2490 @r$="d"gp1250wv=1:gp=gp-1250:2490 ]21,0;2;"Too pricey; enter s, m, d, or n ":.5,0:2420t gp<10002630F N400:"Do you want to buy a lamp?",,,1;"Enter y or n";0,, 200 r$="n"2550 cr$"y"21,0;2;"Either y or n please";1,:.5,0:2510 lf=1:gp=gp-1000 gp<10002630F S400:"Fancy a potion?",,,,1;"Type s, i, or d, or n for no";0, 200 r$="n"2630F +r$="s"st=l(st+r(6)):2620< +r$="i"iq=l(iq+r(6)):2620< (+r$="d"dx=l(dx+r(6)):2620< 2^21,0;2;"Try s, i, d or n please";1,:.5,0:2570 <,gp=gp-1000:gp>9992560 F:3990 P 450 ZAt3=1:t1=((mt-12 )/2)+1:t2=mt-10 dQe(1,4)>t(1)bl=1dx14"or cast a spell" Q:rp=24-23689\:1;"Enter a, r";:t3=11;", b"; iq>141;", c"; : 200 r$"a"2840 L:wv=0"Hitting it with your hands won'thurt ";d$(mt)::3100 Ebo=1"You can't beat it to death with a book!"::3100 Ddx03100 dmc=mc-1:"The ";d$(mt,x$(mt,1)̰x$(mt,2));" is dead":h>m-60<2810 W"You spend an hour or so","eating ";d$(mt,̰x$(mt,2));" ";e$(r(5)):h=m mx=r(1)y=r(2)z=r(3):6;"You've found the ring!":r(1)=0:rf=1 mt=25:"You get all the vendor's wares;a sword, plate armour, strengthpotion, dexterity potion, intel-ligence potion and a lamp":av=3:ah=21:wv=3:st=l(st+r(6)):iq=l(iq+r(6)):dx=l(dx+r(6)):lf=1:3990 ^t=r(1000):"You take his hoard of",t;" gold pieces"::gp=gp+t:300,:4000 r$="r"3100 "r$="c"2880@ ,r$="b"3010 6krp,0;2;"Are you stupid? a, r";:t3=12;", b";:iq>142;" or c"; ; 2700 @Ciq<15"You can't cast a spell now.":450:2670n J$"Web, fireball or death spell?",,, T7rp=24-23689\:1;"w, f or d please" ^ 200 hr$"w"2950 r?st=st-1:wc=r(8)+1:st<15000 |:3100 r$"f"2980 \t=r(7)+r(7):st=st-1:iq=iq-1:st<1iq<15000 6:"It does ";t;" points damage":t2=t2-t:2780 Jr$"d"rp,0;2;"Nice try, now enter w, f or d":2910^ `:6;"D E A T H - ";:iq<15+r(4)6;"Yours.":iq=0:5000 )6;"His.":t2=0:2790 <tc=0:6;"AllIwantisyourlife!"::3100 )t=r(8):t(t)=03020 8"I want ";d$(t+25,̰x$(t+25,2));"," "Will you give it to me?" /:rp=27-23689\:1;"y or n" 200:r$="n"3100 3r$"y"rp,0;2;"y or n":3060 =t(t)=0:tc=tc-1:"O.K. But don't tell a anyone" %vf=1:mt=25vf=0  4010 Nt3=2:wc>0wc=wc-1:wc=0"The web has just broken" &a"The ";d$(mt,x$(mt,1)̰x$(mt,2));:wc>0" is stuck in the web":3150N 0L" attacks:":dx04070 ,e(1,4)>t(1)m=m+1 Je(2,4)>t(3)gp=gp-r(5):gp<0gp=0 ҏe(3,4)>t(5)x1=x:y1=y:z1=z:x=r(8):y=r(8):z=r(8):c$(x,y,z)=(v$()+100d):x=x1:y=y1:z=z1 kc$(x,y,z)=1i=13:e(i,4)=(e(i,1)=x)*(e(i,2)=y)*(e(i,3)=z):i t=r(30) )t=1"A A Ahchoo!! You sneezed" $t=2"You stepped on a frog" $t=3"You are being watched" .t=4bl=0"You see a bat fly by" t=5t1=(r(4)-1)*10 +1:"You hear ";:"a scream footsteps thunder scratching"(t1t1+9 ) ">t=6t1=r(13 )+12 :"You can smell ";d$(t1) ,Kbl+t(4)=2"The opal eye cures","your blindness.":bl=0 6`bo+t(6)=2"The blue flame dissolves the","book; your hands are free.":bo=0 @@:rp=24-23689\:1;"What do you want to do?" J 200 Tr$="n"6000p ^r$="s"6100 hr$="e"62008 rr$="w"6300 |r$="u"6400 r$="d"6500d r$="m"6700, r$="f"6800 r$="l"7000X r$="o"7200  r$="g"7400 r$="t"7600 r$="h"7700 r$="q"7800x Qrp,0;2;"Sorry, I don't understand that";1;" ":4170J  540: :"Formerly living ";p$(pt):"You died from an acute lack"  "of ";:st<1"strength" iq<1"intelligence" dx<1"dexterity" >:"When you died you had:-":cf=1:"Murtceps' crown" t=0:5550 | 520: 1"You left the castle with";:cf=0"out"; :"Murtceps' crown" Vt=1:cf=0"Shame on you!"::"You did have the following:-":5550 >"An incredible achievment"::"You also had the following:-" #:t=1"Your wretched life" rf=1"The ring" 1i=18:t(i)=1d$(i+25) i w$(wv+1) w$(av+5) lf=1"a lamp" fl;" flares" gp;" gold pieces" :"It took you ";m;" turns":  7840 p c$(x,y,z)=25500| z$y1y=y-1:2000 crp,0;2;"Solid walls that way; try again";1;" ":.5,0:4170J y=86020 y=y+1:2000 8x=86020 Bx=x+1:2000 x=16020 x=x-1:2000 kc$(x,y,z)3rp,0;2;"No stairs up here; re-enter move":.5,0:4170J  nz=1rp,0;2;"You can't get on the roof";1;" ":.5,0:4170J z=z-1:2000 d c$(x,y,z)=56600 nwc$(x,y,z)4rp,0;2;"No pool or stairs down here";1;" ":.5,0:4170J xmz=8rp,0;2;"You are already at the bottom";1;" ":.5,0:4170J z=z+1:2000 Et=r(8)::"You drink from the pool and":t<7"feel "; .t=1"stronger":st=l(st+r(3)) @t=2"weaker":st=st-r(3):st<15000 -t=3"smarter":iq=l(iq+r(3)) @t=4"dumber":iq=iq-r(3):iq<15000 -t=5"nimbler":dx=l(dx+r(3)) Bt=6"clumsier":dx=dx-r(3):dx<15000 Mt=7sx=1-sx:"become a ";"female "(1+sx*2);p$(pt) t8:2010 "!t=r(5):t=pt6690" '+pt=t:"turn into a ";p$(pt)::2010 ,bl=16800 6ux1=x:y1=y::"":y=18:"";:x=18:t=c$(x,y,z):t>34"t=34" @I(x=x1)(y=y1);i$(t);0;"";:x::y8"" Jzy:"":x=x1:y=y1:5,20;y;"-";x;7,18;"Level ";z;16,0:4160@ Qbl=1rp,0;6;"You're blind; try something else":4170J cfl<1rp,0;6;"You don't have any flares, silly":.5,0:4170J Efl=fl-1::x1y199c,172:390 +y1115s,172:390 5x8y1131,172:390 *x199c,156:390  115s,156:390 +x8131,156:390 4x1y899c,140:390 +y8115s,140:390 5x8y8131,140:390 rp=1:x1=x:y1=y:y=y1-1y1+1:rp,12 ;:x=x1-1x1+1:x<1x>8y<1y>81;" ";:6930 c$(x,y,z)=v$():t=c$(x,y,z) $1;" ";(x=x1)(y=y1);i$(t); !x:rp=rp+2:y:x=x1:y=y1 :y<8: & 3990 Xbl=16800 bnlf=0rp,0;6;"You can't see without a lamp!";1;" ":.5,0:4170J larp,0;"Where will you shine the lamp? ",,1;"Answer n, s, e or w";:rp=rp+2 vk200:r$"n"r$"s"r$"e"r$"w"rp,0;2;"I only understand n, s, e or w":7030v :r$"n"7080 Zy=1x=4z=1"Your lamp shines out of the castle door":3990 :y=1"To the north is the castle wall":3990 1y=y-1:500:y=y+1:3990 r$"s"7110 3y=8"Solid walls to the south":3990 1y=y+1:500:y=y-1:3990 r$"e"7140 8x=8"Just a solid wall to the east":3990 1x=x+1:500:x=x-1:3990 5x=1"There is a solid wall west":3990 1x=x-1:500:x=x+1:3990  c$(x,y,z)67260\ *<:c$(x,y,z)=1:t=r(4):"You open the chest;" 4^t=1m=m+20:2;"GAS!";1;" You stagger from the room"::3160X >Pt<4t=r(1000):gp=gp+t:"You find ";t;" gold pieces":3990 HB"It explodes!":t=r(6):460:st<15000 R 3990 \fc$(x,y,z)12 rp,0;6;"Open what? Try again";1;" ":4170J fbl=16800 p%:c$(x,y,z)=1:t=r(5) zgt=11;"FLASH!";0;" Oh no! You are now","a blind ";p$(pt):bl=1:3990 :t=2"It's a copy of Murtceps' poetry":3990 Ct=3"It's a manual of dexterity!":dx=18:3990 Bt=4"It's a manual of strength!":st=18:3990 o"The book sticks to your hands!","Now you can't draw your weapon":bo=1:c$(x,y,z)=1:3990 fc$(x,y,z)11 rp,0;6;"There is no orb to gaze into";1;" ":4170J bl=16800 :t=r(6):"You see "; ot=1"yourself being","killed by ";d$(r(13 )+12 ):st=st-r(2):st<15000 \t=2"yourself drinking","from a pool and turning","into ";d$(r(13 )+12 ) <t=3d$(r(13 )+12 ):"gazing back at you" $t=4x1=x:y1=y:z1=z:x=r(8):y=r(8):z=r(8):t$=v$():c$(x,y,z)=t$:d$(t$):"at ";y;", ";x;", level ";z:x=x1:y=y1:z=z1 .!t=5"the 9-o-clock news" 8t63990 Brx1=r(8):y1=r(8):z1=r(8):r(2)=1x1=c(1):y1=c(2):z1=c(3) L>"Murtceps crown":"at ";y1;", ";x1;", level ";z1:3990 \rf=0rp,0;6;"You need the ring to teleport";1;" ":4170J 1:"You need to give me the threedigit number of the room youwish to teleport to; first enterthe number of rooms down fromthe top, then the number acrossfrom the left. Finally, enterthe level you wish to go to. Iwill accept only the numbers 1to 8 as input."::1;"1 - 8 please": &200:r$<"1"r$>"8"7620  y=r$:r$; &200:r$<"1"r$>"8"7640  x=r$:r$; &200:r$<"1"r$>"8"7660 "z=r$:r$:520:2000 :"Here are the inputs I recognize"::"n - go north":"s - go south":"e - go east":"w - go west":"u - go up stairs":"d - go down stairs" "l - look (you need a lamp)":"f - fire a flare":"m - draw a map":"o - open a book":"o - open a chest":"d - drink from a pool" (`"g - gaze into an orb":"t - teleport (you need the ring)h - ask for help":"q - quit playing" 2 4160@ x8rp,0;1;"Do you really want to quit? y/n" !200:r$="y":7840 Mr$="n"rp,0;6;"Then don't mess about; re-enter":4170J Qrp,0;2;"A simple y or n will do, thanks";1;" ":4170J Erp=26-23689\:1;"Do you want another game? y/n": 200:r$="y" _r$"n"rp,0;2;"I'll stop playing! Answer y or n":.5,0:7850  #(n"an empty room","413"," ","the entrance","512","E","stairs going up","115","U","stairs going down","117","D" #2S"a pool","306","P","a chest","307","C","gold pieces","111","G","flares","106","F" #