ZXTape! 0Created with Ramsoft MakeTZXWARRIOR 2 ;5;;Warrior Mage2  S.Robert Speel 9000(# Lw$=z$(x,y)+z$(x-1,y)+z$(x,y+1)+z$(x+1,y)+z$(x,y-1) ^e1=0:e2=0:f=25:e1=e1+(w$(f)="3"):e2=e2+(w$(f)="2"w$(f)="B"):f x3=x:y3=y:mp=0 BD1100L+100d*(w$(1)="0")+110n*(w$(1)="4") LE4:''"You are ";:e1+e2=1"at a DEAD END.":1400x Ve22("in a short passage between rooms."e2);("at the end of a passage."e2=1);("at a T-junction."e2=3);("at a crossroads."e2=4):1400x ~r(w$(2)="2"w$(4)="2")(w$(3)="2"w$(5)="2")"at a corner in the"'"passage.":1400x _"in a ";("north-south"w$(2)="2");("east-west"w$(3)="2");" passage.":1400x !5:''"You are in a room." 2x=x2y=y2"A stairway leads up to the outside." x'8;"EXITS :"' "north","east","south","west" 1410:f=25:b$:w$(f)="2"w$(f)="3"w$(f)="B"("door"w$(f)="3");("passage"(w$(f)="2"w$(f)="B"));" to the ";b$ f Zb$="":f=15:y$(x/2,y/2,f)>"0"b$=b$+y$(x/2,y/2,f) f:b$=""1600@ '"There is a ";:f=1̱b$:(8+8+"some "b$(f)=">");x$(b$(f)-480,̰x$(b$(f)-480,7))'7;("& a "f" "ƥ>.33000 J>.08}# =2000 T#y>21ƥ<.733332000 ^9500%:a=(*6)+1:f=1a:b$:f:h$=b$:mt=a:a=(<1):h$(14)=(b$(14)a)+("0"a):"You meet a ";h$(10 );"...":3060 b"What do you do? ";a$:.1}L,-10 :.2~L,-20:'6;1;7;a$'' a$=a$+" " 4n1410:f=14:b$:a$(2)=b$(1)+" "a$(47)=b$(4)2400` >f H!a$(4)="take"2500 R-a$(4)="stat"2700 :2000 \-a$(4)="spel"4000:2000 f!a$(4)="look"1000 p a$(3)="put"2600( -a$(4)="rest"4700\:1610J /a$(6)="escape"2900T :2000 V#"You cannot do that.":2000 `Kf=f+2:x1=((/2*f)):y1=((/2*f)):b$=z$(x+x1,y+y1) jEe$=a$(1+3*(a$(1)="g")):b$"2"b$"3"2440 ~Jx=x+2*x1:y=y+2*y1:rs=rs+(rs<10 )*.1}L:1000 02;"You cannot go that way.":2000 3a$=a$(5):a$(1)=" "a$=a$(2) 7f=1ob:a$(3)=x$(f,3)2530 0f:2;"You can't take that.":2000 Hg=15:y$(x/2,y/2,g)=(f+480)2550 *g:2;"It is not here":2000 7tc10 "You cannot carry any more.":2000 I2,"Okay":t$(f)=(t$(f)+1):y$(x/2,y/2,g)=" " tc=tc+1:2000 (3a$=a$(4):a$(1)=" "a$=a$(2) 27f=1ob:a$(3)=x$(f,3)2640P <f F<"You can't put down something you don't have!":2000 Pt$(f)=" "2630F Z*2,"Okay":t$(f)=(t$(f)-1) d5g=15:y$(x/2,y/2,g)>" "g n=y$(x/2,y/2,g-(g>5)*5)=(f+480) xtc=tc-1:2000 18;1;" STATUS "''"You have:" za=0:f=1ob:t$(f)>" "a=a+1:10 ;t$(f)-32 ;" ";x$(f,̰x$(f,7));("s"t$(f)>"!");"." f:a6;"nothing." ^"Your resstance = ";rs'"Psychic energy = ";en'"Monsters killed = ";mn'"Money gained = ";cash  T@xx2yy2"You need to find a way out before escaping! ": ^!" You escape to the outside..." h6300+aim*200 G9500%:mt=g$(x/2,y/2)-32 :f=1mt:h$:f 5'7;"There is a ";h$(10 -h$(11 )) mp=1 "You must fight it." 7790n+mt*10 :l,i,a,b,c,n$:23692\,255:f=1l:0;31;" ":f:b,c:f=1̱n$:a1=n$(f):i;((a1/10 )-8)*a,(a1-((a1/10 )*10 )-4)*a:f ."What weapon do you use? ";a$:a$=a$+" " a=0:9400$:f=16:b$:a$(3)=b$(3)a=b$(8):c=b$(9 ):d=b$(10 ):3570 ^f:a=1:c=2:d=6:a$(3)="fis"2;"You punch it.":3590 Da$(4)="spel"4000:3700t-2700 *(e=2) 12;"You pause in indecision.":3700t 9t$(f)" "2;"You look for a weapon":3700t 42;"You attack with your ";b$(̰b$(7)) &>d/10 "You miss":3700t ]da=(*(c-a+1)+a+3-h$(15)):mt=7b$(3)="spi"da=da+6 "You hit ";("weakly"da<2);("quite hard"da>1da<4);("very hard"da=4);("with perfect strength"da5) $@h$(12 )=(h$(12 )-da):h$(12 )<"1"3900< B<.1}La$(3)"fis""Your ";b$(̰b$(7));" breaks!":t$(f)=(t$(f)-1):.1}L,0:.2~L,-20:3700t Lh$(15)>"4"ƥ<.4Lf<4" Your ";b$(̰b$(7));" is blunted by"'"the blow, and you discard it.":t$(f)=(t$(f)-1):.1}L,2:.1}L,-4 tB7;"The ";h$(10 -h$(11 ));" tries to bite you" ~^a=:7;("and misses."a<.4L);("successfully"a.4L):a<.4L3500 Frs=rs-(*(h$(13 )-480)+1):rs<.1}L4800  3500 "1")+(5+*6)*(h$(14)>"2"))+(*(h$(14)-480))*(h$(14)>"3") d( "You take its hoard of ";a;" crowns." n cash=cash+a @.1}L,0:<.2~L+.1}L*(y>20)4600  2000 -"Which spell do you cast"'a$:a$=a$+" " q"strength",1,"teleport",1,"weed kill",1,"summonsword",1,"disarm",1,"fear",2 G4010:e=1sp:b$,b:a$(3)=b$(3)4100 Ae:2;1;"You try to cast a spell, but fail.": 12;1;"You cast a ";b$;" spell."'' ^en6"nothing happens.": 9"The ";h$(10 -h$(11 ));" panics and flees!" 'mp=0:mn=mn-1:3910F ?f=120:.02{# =,20:.01z# =,60<:f 6" You find a Psi-stone!":en=en+(*3)+1  ""Your psychic energy is now ";en  \2;6;"OK" fCrs<10 rs=rs+(*2)+1:rs>10 rs=10  U0:"You are dead."''"You found ";cash;" crowns,"''"& killed ";mn;" monsters." "''"Another game in this system?" a$=:a$""4820 a$="y"8000@ 01,0:0:7:7:: <"You have ";cash;" crowns.":cashlev*306330 ;"You wanted ";lev*30;" crowns."'" You have failed." " That was your ";go;("st"go=1);("nd"go=2);("rd"go=3);("th"go>3);" try in this"'"system...":4810 i''1;" You have won!"''"You can return to your home cityas a warrior-mage grade ";(69E-lev) Ge=110 :f=110 :.05|L/f,f+e*4:f:e f=115::23692\,255:f:10 ,10 :0,30:f=110 :5,0:0,-4:5,0:0,4:f:5,0:0,-30:-105i,0 ؕa$="020,10,20,10,040,20,10,08,052,05,15,06,065,05,10,30,103,30,10,12,015,40,03,06,051,25,25,12,033,60,12,10,065,18,08,14,101,40,10,04,099,20,03,-9" f=1̱a$13 :ٺ(*4):c=a$(f+7f+8):d=a$(f+10 f+11 ):a$(ff+2),40(:0,a$(f+4f+5):d/2,c:d/2,-c:-d,0:d,0 sg=39'+a$(f+4f+5)35#-1:(a$(ff+2)+d,g)=00,-1:g f S60<,10 :0,15:10 ,0,-2:0,-15  20,30,40(,30,80P,30,100d,30,37%,65A,37%,80P,37%,95_,108l,502,108l,65A 6410 :f=19 :a,b:ٺ(*4):a,b:g=14:2,0:0,-1:-2,0:0,-1:g:2,0:f:0  4810 f:"All code okay.": xr9 ,7,3,80P,502,"_iVi_RJ_Uh\epgsszrs|p[=47?4.6>A@IS]jR?AVj|_sgq_`iqiVA54@AK557ABLD+?S" 11 ,4,3,502,557,"thKIVsC_y5U}sq|}|hqqefP\fgiACD8fPQRfeP,jL87MLDdG[=G6K_^aMLM@?MWQ[[ZF+KjuMCCe<==5@K_skakB7,4@_i47V" 11 ,2,3,100d,40(,"isqrhsq^W[SIhKU^fSI,=IVRHR]S6VWMK][,@AaUSGGS]S6XCCNaljiss}{f\IA86555>=Q^_Lf_Lf^V\]V\^Lf^V\_Kg_S" 9 ,4,3,502,0,"}tuuVaktss||qpehNkR\RlsIQ?>^UUyq5-f,7`WQH4Fh?g@S7NU}+J9Maki?=G[o,+?Hh?g@S9Wq7A9o=*555" 13 ,7,3,502,62>,"a|IK@kj>WaZhH`k[H`hqi~}|{||{{p[PP[Z\gihS>@ABLMNXMGGHRe\G=I@KUilALCMA@hg[455GH@Lkutu9MB7?=K`J>fq9KIRC" 7,3,2,40(,2,"|}}~ti`k`a`ktisqpefgW`ZRakFPAg]6]_^feA7@g?A@IVPHhI]@]ABMVR56A@jMLAg\[3HgrsI]@\A,AAMBfLV`HR\A>?455+6@K" Oc=6:5722Z,8148,8132,7150,11676-,8484$! (7950:t(c):f=1c:t(f):f "7800x:f=16:a,a,a,a,a,a$:b=0:g=1̱a$:b=b+a$(g):g:bt(f)b,t(f),"Error in line ";f*10 +7790n: ,f:"All code okay.": @go=go+1:6: Jja=5:f=1ob:t$(f)>" "y$(x/2,y/2,a)=(480+f):a=a-1:a8030^ Tf ^jf=110 :g=110 :<.1}Ly$(f,g,5)=º(480+*ob):.1}L,0: hg:f rAf=220:g=220:z$(f,g)"0"9650% |<.59620%  9660% /:.1}L,5:8;"WARRIOR-MAGE"'' 9"Level of difficulty? (1-4) ";a$:a$<"1"a$>"4"a$="4" t$((*6)+1)="!" 'lev=a$:a$="1234567890":aim=0 !4m"Your aim is to find ";lev*30;" gold coins, by destroying creatures and taking thier treasures." !> #(4:1:5:: #2Ex2=6+(<.5)*10 :y2=6+(<.5)*10 #P:ob=6:go=1:10 ,10 ;"PLEASE WAIT" #z$(21,21):f=121:g=12110 :z$(f-(f-21)*(f>21),g)="A":z$(g-10 *(g=31),f)="A":g:f #ob$="BKJKKBKJKLKTLKTKKVKZK^":f=1162:z$(b$(f)-64@,b$(f+1)-64@)="2":f #s"031303031","3AAA3AAA2","1AAA1AAA1","2AAA3AAA2","121303121","2AAA3AAA2","0A1A1A031","3A3A2A3AA","030312130" #m"03121A130","3AAA2A2A3","1AAA1A1A1","2AAA3A3A2","031303031","2AAA3A3A2","1A0A12021","3A3A3A2A3","031A0A130" #Ҥe=01:f=01:9120#+10 *(<.5):a=(<.5)*8+1:c=(<.5):g=a10 -a1-2*(a=9 ) #ܺb$:b=(<.5)*8+1:h=b10 -b1-2*(b=9 ):z$((g*c+h*c)+e*10 +1,(h*c+g*c)+f*10 +1)=b$(1):b$=b$(2):h:g:f:e $Toy$(10 ,10 ,5):f=110 :g=110 :<.75@y$(f,g)=º(491+*ob) $^g:f $5"sword.5238","axe...3146","dagger6127","mace..4355" $"club..4155","spike.5144" $59400$:x$(ob,10 ):f=1ob:x$(f):f %m"viper.....53812","dire wolf.15523","hellcat...36433","armadillo.13316","sabretooth08723","giant rat.14413" %Xg$(10 ,10 ):f=220:g=220:z$(f,g)"0"9650% %<<.73333g$(f/2,g/2)=º(33!+*6) %g:f &HTsp=6:tt=0:mp=0:x=x2:y=y2:rs=10 :a$="look":tc=0 &R3en=4:cash=0:mn=0:rop=0 &\t$(ob):ymp=0 &f3g$(x2/2,2/2)=" ":z$(x2,y2)="0" & 8100 '1,10 :1000 ھAAAAAAAAAAAAAAAAAAAAAA0312021302031212130AA3AAA3AAA3A3A3A2AAA3AA120A1A121A030A1AAA1AAAAAA3AAAAA3AAA3AAA3AA031303121A12130310AAAA2A3AAA2A2AAA3AA3AA130303AA1A131A1AA0AA3A2A3AAA3A3AAA2AA3AA03121213020A021211AA2AAAAAAA2A2AAAAAAA2AA1303031302031303031AAAAA3A3AAAAA1AAA1AAA1A1AAA1AAA1AA2AAA3AAA2A2AAA3AAA2AA121303121A121303121AA2AAA3AAA2A2AAA3AAA2AA0A1A1A031A0A1A1A031AA3A3A2A3AAAAA3A2A3A3AA0312130302031213030AAAAAAAAAAAAAAAAAAAAAA"fe"acb$!#  1 6 2 1 5 1 36 2 1 5 2 2 1 6 6 2 3 4 02 6 2 3 15 6 1 3 6 5 03 5 4 3 1 2 6 5 3 4 3 4 1 53215 6 1 1 3 1 3 6 1 5 2 05 5 6 4 3 1 6 4 1 4 5 5 4 3 2 2 1A sword.5238axe...3146dagger6127mace..4355club..4155spike.5144i % !% % ! ! %# &# %"" "% %# & ! # ! ! "&xy asomeil iVd """"!"EeW033A3Hdire wolf.15523NathKIVsC_y5U}sq|}|hqqefP\fgiACDBfPQRfeP,jL87MLDdG[=G6K_^aMLM@?MWQ[[ZF+KjuMCCe<==5@K_skakB7,4@_i47VB spike.5144!Z-$!Ae|}}~ti`k`a`ktisqpefgW`ZRakFPAg]6]_^feA7@g?A@IVPHhI]@]ABMVR56A@jMLAg\[3HgrsI]@\A,AAMBfLV`HR\A>?455+6@K