ZXTape!Mines KK}K( 85004! 2 8000@ <counter=counter+1 =dead=19900& >turn=turn+1 A 2500 F 500  60<  2900T 0,8;"What now?" 6;1;"D";0;"rink, ";1;"E";0;"at, ";1;"L";0;"eave an object,",1;"M";0;"ove, ";1;"R";0;"est or use a ";1;"T";0;"orch?", 3''"Please type the appropriate","initial letter."  t$="MRLEDT"  2950 466+a$ 5300: 5200P: 5110:  1000  n=1000 !2800 :move=0 "4000+q*100d: $5400: &5500|: move=0 (torchflag=2torchflag=0: ,move=2move=0:"Solid rock":  2900T 0,8;"Which way?" "t$="NSEWUD":2950 BQa$(1)="N"x=x-1:2000:move=2x=x+1:1050 LQa$(1)="S"x=x+1:2000:move=2x=x-1:1050 VQa$(1)="E"y=y+1:2000:move=2y=y-1:1050 `Qa$(1)="W"y=y-1:2000:move=2y=y+1:1050 eBa$(1)="U"z=1"You're on ground level!":1050 jQa$(1)="U"z=z-1:2000:move=2z=z+1:1050 tQa$(1)="D"z=z+1:2000:move=2z=z-1:1050  2200:move=2 ztorchflag=1move=2:torchflag=2:n=1000:2800 :q+9201#:v$:"There is ";v$;" here": 42900T :0,0;"Exits":move=0 0x=x-1:2200:move=1"North" Kmove=0:x=x+2:2200:x=x-1:move=1"South" =move=0:y=y-1:2200:move=1"West" Jmove=0:y=y+2:2200:y=y-1:move=1"East" Jmove=0:z=z+1:2200:z=z-1:move=1"Down"  Sz>1move=0:z=z-1:2200:z=z+1:move=1"Up" %p=p():p<.353333move=2: move=1  i=112 c(i)<0c(i)=0 i counter=counter+1 )fight=c(2)+c(1)+c(10 ) +points=mk*5+c(7)+turn*2 magic=c(4)+c(2) *c(6)=c(1)*c(3)*3 qc(12 )=c(7)+c(8)*5+c(9 )+c(10 )*5+c(5)*2+c(11 )*4 c(12 )>c(6)f12900T :0,0;"You're carrying too much. You must drop something.":5100:drop=1 Dfatigue=(((counter/8)*(c(12 )/12 ))/(c(1))) c(3)=c(3)-fatigue Ufatigue>.5f=02900T :0,0;"You're feeling exhausted" Zc(3)<1"You collapse with fatigue and that's the end of you.":9900& *c(6)=c(1)*c(3)*3 qc(12 )=c(7)+c(8)*5+c(9 )+c(10 )*5+c(5)*2+c(11 )*4 315,12 ;" ";15,29;" " &15,12 ;(torch+.9ffff) 15,29;point i=14 c(i)>20c(i)=20 i i=16 15+i,12 ;" " 15+i,12 ;c(i) 15+i,29;" " #15+i,29;c(i+6) i (drop=1drop=0:2515  &q=(p*(n/10 ))-(p*(n/10 )) q=(q*10 )  T0,0 Yi=08 ^i,0,, ci ftopclear=1 hi=9 14 ki,0,, li m a$= kt=0 a$=""2950 "a$>90Za$=(a$-32 ) &11 ,0;"You've typed ";a$ i=1̱t$ t$(i)=a$kt=1 i kt=1 2950 100d:2900T S0,0;"Do you want to Retreat, use a magic Bolt or Physical combat?" t$="PBR" 2950 a$(1)="P"3300 a$(1)="B"3200 r=r(3) Rr>12900T :0,0;"You escape unharmed":retreat=1: D2900T :0,0;"You can't get past":retreat=2  dc(8)<12900T :0,0;"You have no magic bolts":5000:3010 r=r(40() c(8)=c(8)-1 r>magic3260 <0,0;"Your magic bolt sends the"'m$;" reeling" $m(2)=m(2)-r(12 )  +2900T :0,0;"You miss": 62900T :0,0;"Weapon Up or Forward?" t$="UF" 2950 au=-1 a$="F"au=1 ad=fight-m(1) ad=((r(ad))/2) ad=ad+au-du *df=(r(m(5))/2) 4;df>ad2900T :0,0;"A miss":100d: >5damage=(r(c(10 )+c(1))-r(m(5))) H damage<1damage=1 Im(2)=m(2)-damage M<2900T :0,0;"You cause ";damage;" damage" N 100d R r=r(m(3)) s=r(m(4)) du=1 s>1du=-1 r>13600 m(3)<23600 r=r(20) r>m(1)3595  S2900T :0,0;"A magical bolt sears out and hits you":502 #c(3)=c(3)-r(3)   Q2900T :0,0;"A magical bolt rushes past your head":502: (da=(r(m(1)+m(6))/2)  da=da+du-au $af=(r(c(11 )+2)) .[dac(7)"Don't be silly":100d:2900T :0,0;:4030 c(7)=c(7)-t*s 4055+r c(5)=c(5)+t: c(10 )=c(10 )+t: torch=torch+t: !c(9 )=c(9 )+1: r=r(20)  r>(point)+54100  2900T topclear=1  9249!$+r  km=r i=16 m(i) i m$ ""9 ,0;"You see a ";m$ # 100d $retreat=0 &U10 ,0;"Constitution ";m(2);10 ,17;"Skill ";m(1) 'r=r(m(1)) ,s=r(c(1)) 1sr4155; 2f=1:2500 311 ,0;"Armour ";m(5);10 ,0;"Constitution ";m(2);" ";10 ,17;"Skill ";m(1);11 ,17;"Weapon ";u$(du+2) 4 m(2)>03500 5 2500 6Aretreat=2retreat=0:f=0:topclear=0: ; c(3)>03000 @Aretreat=1f=0:retreat=0:topclear=0: Bretreat=0 Ewc(3)<12900T :0,0;"Oh dear! You're dead.":100d:dead=1:topclear=0: Jm(2)<12900T :topclear=0:0,0;"You kill him in no uncertain"'"terms":f=0:mk=mk+km:tr=m(2)+m(1)+m(6)*r(3):"He had ";tr;" silver pieces":100d:c(7)=c(7)+tr: ^ 41462 m 2900T r-0,0;"You're in a thieves' den" w,n=100000CP:2800 :r=r(10 ) |5r>5"The thief is in":100d:4250 "There's no-one here" (q<3"and no booty":100d: sq<6r=r(100d):0,0;"You find ";r;" silver pieces":c(7)=c(7)+r:100d: a"You find a piece of armour ":c(11 )<9 c(11 )=c(11 )+1:502: 1s=r(100d):"He wants ";s;" silver pieces" sc(7)4270 Ms>c(7)"But as you haven't enough he'll take something else as well" bc(11 )>0"a piece of armour":150:c(11 )=c(11 )-1:4270 Mc(10 )>0"a weapon":150:c(10 )=c(10 )-1 Nc(7)=c(7)-s:c(7)<0c(7)=0:100d:  r=r(5) s=r(15)  2900T r=10,0;"You find ";(s/3)+1;" magic bolts":c(8)=c(8)+(s/3)+1:150: rr=20,0;"You find ";s*5;" silver pieces":100d:c(7)=c(7)+s*5: \r=30,0;"You find a magical shield":100d:c(11 )=12 : {r=40,0;"You're surrounded by pigmies whorun off with your weapons":c(10 )=0:100d: k0,0;"You find a silver monster who eats all your armour":100d:c(11 )=0: 0 "Potion" :"You find a potion" DN"Do you wish to take it (T) or drink it (D) or leave it alone (L)?" N t$="TDL" X 2950 bpoison=r(2) l0a$(1)="T"c(9 )=c(9 )+1 v<a$(1)="d"c(9 )=c(9 )+1:5310  'r=r(3)::s=r(8)+3 r=1curse=1 r=r(3)+1  r=(s/r) "You find a "+w$(r)  5000 a$(1)="N" c(10 )>r2900T :0,0;"You already have a better weapon. Are you sure you want it?":5000:a$="N" .r=5c(11 )=c(11 )+2: c(10 )=r: n=100000CP  2800 r=r(10 ) (q<3"An empty cave":502: Rq<5"You fall down a pit":c(3)=c(3)-r(3):100d:  r>54630  e"You're caught in a web":502:r=r(3):r=3"but escape without harm":502: ^r=1" and you're injured in escaping":c(3)=c(3)-r(5):100d: r=2s=r(c(1)*1.5@):sB"you feel weaker":c(3)=c(3)-r(5):502: $82900T :0,0;"You find an empty cave."  "Do you wish to take it?"  t$="YN"  2950   5111 2900T :0,0; "Do you want to leave:" "Money (1)" "A weapon (2)" "A magic item (3)" "A potion (4)"  "Food (5)" "Armour (6)" "Nothing (7)" t$="1234567"  2950 5125+a$*5  "How much?"  -a:a>c(7)z$:2900T :5110 c(7)=c(7)-a: 1c(10 )<1y$:2900T :5110 !c(10 )=c(10 )-1 #c(9 )=0curse=0 8curse=1r=r(3):r=1curse=0  0c(8)<1y$:2900T :5110 !c(8)=c(8)-1: 0c(9 )<0y$:2900T :5110 !c(9 )=c(9 )-1: 0c(5)<1y$:2900T :5110  !c(5)=c(5)-1: #1c(11 )<1y$:2900T :5110 %#c(11 )=c(11 )-1: ( P8c(5)<1"You can't eat stone.":20: Zc(5)=c(5)-1 d<c(3)=c(3)+(r((20-c(3))/2))  #2900T :0,0;" "; *c(9 )<1"You've no potion": c(9 )=c(9 )-1 poison=1p=r(3) r=r(6):s=r(4) 'p=1poison=0:5370 S2900T :0,0;"Your ";c$(s)'"goes up ";r;" points ":c(s)=c(s)+r: s2900T :0,0;"Whoops! It was poisoned! Your"'c$(s);" goes down ";r+1;" points":c(s)=c(s)-r  "counter=1 ,r=r(5) 6kr=12900T :0,0;"Your noisy breathing attracts a monster";:100d:4100 @ torch<0.1}Ly$: torch=torch-0.1}L torchflag=1  1045 > @ Adrop=0:mk=0 Bkm=0:topclear=0 Ccurse=0 D f=0 Emove=0 Ftorchflag=0 Gtorch=0 Hpoison=0 Idead=0 J p()=(x*x+y*y*z)-(x*x+y*y*z) Kpoint=0 Lturn=0 Oh$="How many for" Tr(x)=(*x)+1 V=x=r(10 )+10 :y=r(20)+10 :z=1 Yz$="You don't have enough" ^y$="You haven't any" _u$(3,7) `u$(1)="Up" au$(3)="Forward" cw$(5,6) db$(5,12 ) eda=0:ad=0 fau=0:du=0 gaf=0:df=0 hc$(12 ,12 ) m c(12 ) n m(6) om$="" pretreat=0 rj$="Do you want to take it?" w@counter=0:fatigue=0:fight=0:magic=0 |i=112 c$(i) c(i)=0 i i=15 w$(i) i i=15 b$(i) i  m"You have 12 poins to distribute amongst Strength, Skill, Constitution and Knowledge" c(4)=12 c(7)=100d h$;" Strength"  c(1) !;c(1)>c(4)z$:c(1)=0:8210 ""c(4)=c(4)-c(1) #c(1)=c(1)+8 & h$;" Skill" 0 c(2) 5;c(2)>c(4)z$:c(2)=0:8230& 6"c(4)=c(4)-c(2) 7c(2)=c(2)+8 :h$;" Constitution" D c(3) I;c(3)>c(4)z$:c(3)=0:8250: J"c(4)=c(4)-c(3) Kc(3)=c(3)+8 N,"That leaves ";c(4);" for Knowledge" Sc(4)=c(4)+8 li=16 v15+i,0;c$(i) $15+i,16;c$(i+6) i 915,0;"Torches";15,16;"Points" 2510 2500 :2900T Sc(7)<82900T :0,0;"You don't have enough money ": 0,0;" "; )"You have ";c(7);" silver pieces" "You can buy:" !"Item SP each" "(A) Armour (per piece) 15" "(F) Food pack 10" "(K) Knife 10" "(M) Magic bolt 25" "(P) Potion 30" ! "(S) Sword 30" !"(W) Torch 8" ! "(Z) End buying" !t$="AFKMPSWZ":2950 !8406 +a$ !1c(7)<15z$:2900T :8400 !Mc(11 )=c(11 )+1:c(7)=c(7)-15:8400 !1c(7)<10 z$:2900T :8400 !Kc(5)=c(5)+1:c(7)=c(7)-10 :8400 !!1c(7)<10 z$:2900T :8400 !"Ac(10 )=1:c(7)=c(7)-10 :8400 !#1c(7)<25z$:2900T :8400 !$Kc(8)=c(8)+1:c(7)=c(7)-25:8400 !&1c(7)<30z$:2900T :8400 !'Kc(9 )=c(9 )+1:c(7)=c(7)-30:8400 !)1c(7)<30z$:2900T :8400 !*Ac(10 )=2:c(7)=c(7)-30:8400 !-0c(7)<8z$:2900T :8400 !.@torch=torch+1:c(7)=c(7)-8:8400 !0 !4-10 ,8;1;"MERLIN'S MINES" !9 500: !>{" This is a random dungeon containing combat and magic. The aim is to gain as many points as possible" !HQ6,4;"This is done by finding treasures and slaying monsters." !Rg9 ,0;"But you must watch yourself. If your Constitution drops below 1, you're dead." !\13 ,0;"You will lose constitution ","if you forget to rest, or if"," you are wounded.",,," Constitution and strength ","determine how much you can carry";"skill and strength help combat,","skill and knowledge determine"," magical combat." !f&#0;"Press any key to continue" !k 1000 !o !p!" Food increases constitution" !ze3,2;"Potions may increase your"," abilities, but they may be"," poisoned. " !7,2;"You start with eight points","for each of your abilities and"," have twelve more points to"," distribute." !&#0;"Press any key to continue" ! 1000 !$:10 ,8;"INITIALISING" #& #2"Strength","Skill","Constitution","Knowledge","Food","Max burden","Money","Magic bolts","Potions","Weapon value","Armour value","Burden" #<*"Knife","Sword","Flail","Spear","Shield" #F6"Food","A sword","A potion","A magic bolt","Torches" # "a gypsy" # "a monster" #"a thief's lair" #"a treasure" # "a potion" # "a weapon" # "a hazard" # "nothing" # "nothing" # "nothing" $";7,15,3,4,14,2,"snake" $#;12 ,8,2,3,16,4,"demon" $$<9 ,13 ,5,6,9 ,5,"gnoblin" $%:8,16,6,5,9 ,8,"svart" $&=13 ,8,3,2,10 ,4,"grendel" $'A16,6,8,4,12 ,3,"grim reaper" $(;14,4,5,1,13 ,6,"troll" $)=16,10 ,4,2,11 ,6,"zombie" $*<14,12 ,5,3,16,3,"ghoul" $+<10 ,11 ,6,3,13 ,7,"giant" $,<12 ,16,6,4,12 ,5,"ghost" $->18,10 ,2,3,14,5,"vampire" $.<16,9 ,3,2,14,8,"dragon" $/>14,14,5,3,12 ,9 ,"banshee" $0>17,11 ,8,3,14,7,"gremlin" $1@10 ,15,2,2,10 ,10 ,"devourer" $2B18,12 ,6,6,14,8,"bloodsucker" $3?17,14,2,2,15,9 ,"werewolf" $4D18,16,2,2,12 ,10 ,"clawed demon" $5@19,15,2,8,14,9 ,"Beelzebub" &"END" E