ZXTape! 0Created with Ramsoft MakeTZXp 71W 9=32249}:Moria Game  Severn Software 1982 V1.2  '"f""a":"s":236099\,120x ;7:0:0::10 :g=0:h=1:n$(18):n$(11 )=g+g:n$(15)=h+g+g:a=6:10 ,14;h;"":2;568,27:2;120x,120x,155*:d$=" ":t$(17,6):i=h17:t$(i):i 510,510,520,520,500,502,502,504,504,504,504,900,800 ,700,508,508,950 a,a;"ZX SPECTRUM Moria";8,a;"An Adventure Quest":i=144159:15,(i-144)*2;i;17,a+a;h+h;h;t$(i-143):ll=(32250}+(((i-144)/2))*30):i:"Name?";n$(10 ) -4:a(17):i=h17:a(i):i #f$(h):s$(a,a,a):st=a*a*a:go=st "Sword","Mace","Shield","Helmet","Gold","Ruby","Pearl","Troll","Orc","Balrog","Warg","Wizard","Door","Trader","Potion","Ring","Warp" Un$(a+a)=g:g:4:4::a,g;h;"Please wait while the ring is hidden" Si=h250:t=(*15):s$((*a)+h,(*a)+h,(*a)+h)=(144+t):i ni=ha:s$(i,(*a+h),(*a+h))="":c=h3:x=(*a)+h:y=(*a)+h:s$(i,x,y)="":i>hs$(i-h,x,y)="^" c:i: *s$(((*a)+h),((*a)+h),((*a)+h))="" l=5:x=l:y=h *s$(((*a)+h),((*a)+h),((*a)+h))="" # 300, $ 400 %:(m$="u"m$="d")(s$(l,x,y)="^"s$(l,x,y)="")300, &315;:a*a ,`c=g5:0.005y# =,20:c*2,g;" "'"":c:19,g;d$ -h11 ,g;d$:g,87W:g,88X:255,g:g,-88X:-255,g:88X,g:g,88X 6a;g,a+a;"Level: ";g,22;"Room: ";h+h,a+a;"Weapon: ";h+h,22;"Armour: ";4,a+a;"Wounds :";32 ;5,a+a;"Strength:";32 ;a,a+a;"Gold :";32 ;7,a+a;" ";32 ;a;g,a+a+a;l;g,27;x;",";y;;h+h,19;n$(14);h+h,29;;n$(13 );4,22;n$(a+a);5,22;st;32 ;a,22;go;32 ;7,a+a;"Jewels : ";h+h;n$(16);"  ";n$(17);"  ";32 ;8,a+a;h;"Spells : ";n$(11 );32 ;7,30;6*n$(15);6;(h-n$(15));"" <0h;a;2*(x-h),2*(y-h);s$(l,x,y): @ h;a;2*(x-h),2*(y-h);s$(l,x,y):"your move ";(n$(10 ));m$:g;2*(x-h),2*(y-h);a;s$(l,x,y):m$="q"9998' m$="7"x=x-h:x=gx=a m$="6"x=x+h:x>ax=h m$="5"y=y-h:yay=h 'm$="u"s$(l,x,y)="^"l=l+h:l>al=h 'm$="d"s$(l,x,y)=""l=l-h:l=gl=a (s$(l,x,y)"^"s$(l,x,y)""498 Qs$(l,x,y)=""21,g;t$(17):ll=32510~:l=(*a+h):300, 20,g;d$'d$;: 6m=s$(l,x,y)-143:m>gm7f$"a"f$"r"505 c(m=3m=4)n$(13 )=" "n=13 :1000:21,g;t$(m):32490~:   Xz$=" ": 20,g;"You are fighting a ";(t$(s$(l,x,y)-143));:n$(a+a)=(n$(a+a)+(hƯn$(13 )=g)+(hƯn$(14)=g)):32250}:chance=10 *st+n$(13 )+n$(14)-2*n$(a+a):odds=*1999+2000 Yodds>chancest=st-5:n$(a+a)=(n$(a+a)+h):3106:st<15"You have died of lack of strength press Enter for another game";f$ Zn$(a+a)>10 ". Too many wounds, you bleed to death":c=g720:0.001wn,15:22528X+c,16:c:3 [7odds>chance"Want to give up?";z$:z$"y"600X \z$"y"20,g;"You win ";n$(10 );d$:s$(l,x,y)=" ":32460~: *10 >7n$(14)>" "20,g;"but your weapon is smashed":n$(14)=" ":h+h,20 ]vz$"y" *10 >7n$(13 )>" "20,g;"but your armour is smashed":n$(13 )=" ":h,20 ^z$"y"go=go+(*20) `20,g;d$: T32370r~:"You are facing a trader: Do you want to trade or to ignore him?";f$  f$="i" 7f$="t""got anything to sell?";v$:v$="y"750 ?"Want to buy some strength?";v$:315;:v$="n"707 5"How much do you want to spend?";d:d>go705 go=go-d:st=st+d/5 <"Want to buy some wound ointment?";v$:315;:v$="n" 5"How much do you want to spend?";d:d>go708 Ago=go-d:n$(a+a)=((n$(a+a)-d/502)Ưn$(a+a)>d/502): @n$(16)ggo=go+502*n$(16):n$(16)=g @n$(17)ggo=go+502*n$(17):n$(17)=g   e"You are facing a closed door,what will you do? f,s or b";f$:f$="b"go>25go=go-25: !cf$="f"20,g;"It will leave you very tired!";:32520:st>502st=st-502: "ef$="s"n$(11 )>gn$(11 )=(n$(11 )-h):21,g;"open Sesame":323106~: # 800  "A Wizard. He'll sell you a spell-how much can you pay?";v$:v$>47/Ưv$<58:d=v$:d25+*502n$(11 )=(n$(11 )+1):go=go-d: [20,g;"Not enough-you've insulted him.";:32430~:20,g;d$;:1001 I"The exit. Have you got the Ring?";f$:f$="y"n$(15)=0:3106:2*(x-1),2*(y-1);" ":952:i=14:b,c:c,b:i:10 :i=111 :b:c:c,b:i:18,0;"Game Over. Final Scores displayed. "'"Press ENTER for another Game":0:3 920,0;"Tough luck old boy";:32400~:  15,.2~L,15,.2~L,15,.2~L,12 ,.4L,0,0,10 ,.3,8,.2~L,15,.3,12 ,.3,10 ,.2~L,17,.3,14,.3,12 ,.2~L,19,.5,0,.5 n$(n)=(n$(n)+h):1001 n$(n)=s$(l,x,y) s$(l,x,y)=" ": '>a=35#:"are you sure?";f$ :f$"y"a=6:35# '6"p"a:"f""a",160:"s"32250},300, af X1sd@00 @Ac>><$<<~0l$BB$8|||8$$00X\l\$<ZZ&&<~z~~~