ZXTape! 0Created with Ramsoft MakeTZXVALLEY  k 35:5:5:23624H\,45-: 6#1;0;" LOADING - LET TAPE RUN " "" 0,0; # 8 ("" fEYESORE PÀ ???????????????????????????????@? ???? ??@??@????@??? ?@?8?@??0?|@p@@@" 7 0x0G!|@@>x@, B@~~g 8"@=@D A@<<s c?@@B B !@<<3 @A`A B  @~~9d B@BD? @8E@@P>x? @8p$DA@   H~ ((((((((((**********************---------((---------------------,,****************************""",**************************""""""""%,****************,**,&&&&&&&&&&"""*************""""""&&&&&&&&&&&&&" !!!!!!!!&&&&&&&&&&&&&" ""!!!!!!!!!!&&&&&&&&&&&&&&!!!!!!$$$$$$$$$$$$&&&&&&&&&&&&&&!!!!!!$$$$$$$$$$$$&&&&&&&&&&&&&&!!!!!!$$$$$$$$$$$$$$444444!!!!!!!!!!!!!!<<<<<<''''$$444444 !!!!!!!!!!!!<<<<<<<<'''$$444444 !!!!!!!!!!!<<<<<<<<<<''&&&66666 !%%%%%%%%%%<<<88888<<''!!&000004%%%%%%%%%'8888888888''!!CDDCC )))))))))))///999988///!!CDDCC 888888!! 000011111111111088888888000$$$44444 11111111111188888888000%%444444111111111111100088888800444444441111111111111110888888000000000000000000000000008800000000000000000000000000000000000000 VALLEY[/{n+X]! The Valley    ASP LTD 1982   Adapted for the 48K   ZX Spectrum by Dominic  Ferard, August 1982  GOTO 9990for clear list 0:0:7 8:7;0,10 ;"ASP SOFTWARE"'"presents" cDefine Major Variables dWZ(11 ):D(4):G(29):P(9 ):N(9 ):S(10 ):T(3) n>M$(19,15):M(19):Q(19):Z(11 ) Rpro=0:proceed=9985':TN=0:TS=0:TM=.2~L:CF=0 >TCOL2=1:E=0:RT=0:TU=0:HF=0 LN=19  "a"0330J User-defined Graphics 9860& j=144159 i=07 x:j+i,x i j +Load m/c scroll ,i="t""t"+15 6 x:i,x:i ILoad Monster Data J 9810R&:i=119 TM$(i):M(i):Q(i) ^i Character set-up Z5;4,8;"THE VALLEY (48K)";4,8;1;"_______________" -DF=100d:L$="D":8000@:Delay 10 ,0;"Do you wish to load a character from tape ?"'17,0;"Press 'Y'[yes] or 'N'[no], or 'K' to see instructions" '23658j\,0:Caps LockOff "V$="ynk":1500:Uniget 4G$="k"3200 :0:7::1006 "Character's name ? ";J$ J$=""1020 >(J$)>10 "Too long - maximum ten letters":1020 G$="n"1240 $::5,0;"Position tape and 'play' to load";J$ 8#J$Z():CT=Z(1):13302 8:1,0;"Character types-choose carefully"' ''" Wizard [1]" '" Thinker [2]" 7'" Barbarian [3] ";1;2;"KEY 1-5"  '" Warrior [4]" '" Cleric [5]"  0 ( CT=() -8,17, 2MCT=1P$="Wizard":P1=2:C1=0.5:CS=22:PS=28 5P$="Dolt":P1=1:C1=1:CS=20:PS=20 nEX=5:C=150 rZ(1)0TS=Z(2):EX=Z(3):TN=Z(4):CS=Z(5):PS=Z(6):T(1)=Z(7):T(2)=Z(8):T(3)=Z(9 ):C1=Z(10 ):P1=Z(11 ) xAA$=" May the Gods go with you, ":1900l:Scroll =15,(29-J$-P$)/2;5;J$;" the ";P$ (23658j\,0:Caps Lock Off -DF=250:L$="D":8000@:Delay 6500d:Valley Draw .DF=5:8000@:Delay and Update 2000:Movement Uniget Routine 0:G$= I=1̱(V$)  V$(I)=G$ I  1500 ?Anykey Routine @0:G$= T Combat Get Routine 3G$="":i=140(:""G$=:1710 i  TV=0 )G$=""TV=1:No key pressed 'LN,0,,:Wipe away message  Extension I=(Y,X):I <236066\,23675{\:236077\,23676|\-1 I=(Y,X)+112p &-236066\,0:236077\,60<: kHorizontal scroll l'i=031:j=07 v?1;0,175:1;0,-103g+"t" kj:12 ,31-i;4;" ";13 ,0;0;A$(12):A$=A$(2):i: Movement Routine -M1=W1:M2=W2:Y=W1:X=W2:1800: PK=I:M1,M2;1;"" COL=TCOL2:C=C+10 'PK=144PK=1452040 HW1=M1:W2=M2:LN,0;" Your move... which direction?":2050 /LN,0;" Safe on the path... which way?"  2070  85004!:Ego A63486=255ƿ61438=255Ʀ"e"2070 ="e"G$=:2060   n10 :K1=63486:K2=61438:K1=K1-((K1/32 ))*32 :K2=K2-((K2/32 ))*32 *K1=15W2=W2-1 ,K2=27W2=W2+1 .K2=23W1=W1-1 0K2=15W1=W1+1 1+K2=19W1=W1-1:W2=W2+1 2+K2=11 W1=W1+1:W2=W2+1 3W2=M2W1=M12070 4TN=TN+1:LN,0,, =Stepping on something? >vQ=146:Y=W1:X=W2:S=3(W1<0W1>13 W2<0W2>31)6090:Woods scene exit A;1800:TCOL2=(Y,X)-8*((Y,X)/8): C8Q1=I:Q1=98bQ1=32 Q1=1542190 HaQ1=147Q1=148Q1=149TN=TN-1:2030:Hit border,wall, or tree R$Q1=1599000(#:Quit \<Q1150Q11536000p:Scene entry f6Q1=155Q1=97a6090:Scene exit p&Q1=1567900:Stairs z>Q1=157C=C-20:C09500%:Water ,Q1=1582800 :Special Find M1,M2;COL;1;Q Y=W1:X=W2:1800: (PK=I:M1=W1:M2=W2:M1,M2;1;Q 3PK=144PK=145DF=5:2250 RF= .RF<.33(3000 :Monster Select +RF>.75@2300:Find Select =LN,0;" Nothing of value... search on ":DF=502 "8000@:Delay and Update  2010 Finds Routine LN,0; "2340$ +10 *(*6) /DF=80P:8000@:Delay and Update  2010 $:" A circle of evil..."'" ...Depart in haste!" &LCS=CS+((FL+1)/2):PS=PS-((FL+1)/2):C=C-20 ("C09500%:Death ) 8" A hoard of gold" :#TS=TS+(FL**100d+100d) = LJ" You feel the aura of deep magic ...all around you..":2400` V$" ...A place of ancient power..." `>PS=PS+2+(FL*P1):CS=CS+1+(FL*C1):C=C+25 j Special Finds Routine AM1,M2;COL;1;"":M1=W1:M2=W2:PK=32 :M1,M2;"" RN=:LN,0,, jS=6RN>.95s333T(2)=6T(3)=0RT>25T(3)=1:28706 KS=5RN>.85YT(1)=0T(1)=1:2880@ WS=4RN>.73333T(1)=1T(2)<6FL>T(2)2890J "<RN>.43\(LN,3;"A worthless bauble":2940| ,.LN,3;"A precious stone !":2930r 69LN,3;"You find the Helm of Evanna !":2930r @<LN,0;"The Amulet of Alarian...empty...":2930r J"LN,3;"An Amulet stone..." T,DF=60<:L$="D":8000@:Delay ^6RN>.85Y'"... but the wrong one !":2940| h8'"... the stone fits !":T(2)=T(2)+1 r7TS=TS+100d*(T(1)+T(2)+T(3)+FL) |/DF=80P:8000@:Delay and Update 2010 Monster Select Routine 0LN,0;" Beware... thou hast encountered" #MS=0:N=0:CF=1 ?RF=(*17)+1:RF>10 ƥ>.85Y3020 5Q1=157PK=157RF=(*2)+18 $RF=17ƥ<.733333020 $FL<5RF=163020 X$=M$(RF,1) I=1̱(F$) F$(I)=X$3110& I  3020 &B$=M$(RF,2) 0M(RF)=03150N :3MS=((CS*.3)+M(RF)*FL^.2~L/(+1)) DQ(RF)=03160X N$N=(Q(RF)*FL^.2~L/(+1)) X U=((RF+1)*FL^1.5@) l5;"An evil ";B$ v/DF=40(:8000@:Delay and Update { 3500 Keying instructions 6:7:0: 6;"MOVEMENT KEY",, 127,135:0,16:127,135:0,-16:127,135:16,0:127,135:-16,0 127,135:16,-16:127,135:16,16:127,135:-16,-16:127,135:-16,16 72,11 ;"5&7";15;"7";18;"7&8" e4,12 ;"5";4,19;"8";7,11 ;"5&6";15;"6";18;"6&8" ?i=27:5;i,11 ;1;21:i a"You key numbers as above to movein the desired direction (2 keyssimultaneously for diagonals)" *''"Or 'E'[Ego] for your rank (0-28)" :20,0;"Press any key to continue":0: #2;7;"COMBAT.....",, t'"'H' to strike at Monster's head"'"'B' to strike at Monster's body"'"'L' to strike at Monster's legs" 0"'S' to cast a spell"''4;"SPELLS",, p'"'1':Sleep - useful in tight spots; drains 5 stamina."''"'2':Psi-lance - requires 1000 experience & 49 psi power."'" Powerful but only against monsters with magical strength; drains 10 stamina."''"'3':Crispit - requires 5000 experience & 77 psi power. Fearsome lightning bolt but drains 20 stamina." :21,0;"Press any key to continue":0: !1;7;"SCENARIOS",, /'6,,"SCENARIO ENTRY EXIT LEVEL " <"The Valley";14;"";20;"";27;1 ?'"Swamps";14;"";18;"Border";27;2 >'"Woods";14;"";18;"Border";27;3 *:'"The Black";14;"";20;"";26;"2-7" 4R"Tower of"'"Zaexon"''"The Temples";14;"";20;"";27;6 >m"of Y'Nagioth"'" [in swamps]"''"Vounim's Lairs";14;"";20;"";27;7'" [in woods]" CV2;6;"Your character is , who starts in the left-hand safe castle: " HM7;1;21,0;"Press any key to continue",:0: Character's Combat .<.64000:Monster's Combat 0LN,0;"You surprise it-attack/retreat ?" 1700:Combat Get G$="r"3900< TV=13600 G$"a"4000 ,DF=40(:L$="D":8000@:Delay (LN,0;" >>>Strike quickly<<<" 1700:Combat Get TV=03620$ 5TU=0LN,0;" Too slow...Too slow"  $TU=0:HF=0:3830 $E=39'*EX/3.14H .'G$="s"4500:Spell Control 8DMS=0LN,0;"Your sword avails you nought":3830 B C=C-1 LNC0LN,1;"You fatally exhaust yourself":9500%:Death VRF=*10 `:G$="h"(RF<5CS>MS*4)Z=2:3730 j:G$="b"(RF<7CS>MS*4)Z=1:3730 t;G$="l"(RF<9 CS>MS*4)Z=.3:3730 ~$LN,0;" You missed it !" HF=0:3830 7HF=1D=MS+(*9 ):HF=0:3760 LD=((((CS*502*)-(10 *MS)+E)/100d)*Z):D<0D=0 CS>(MS-D)*4HF=1  MS=MS-D LN,0;" A Hit "; 'G$="h""on its head...";:3780 'G$="b""to its body...";:3780 "to its legs..."; ,DF=60<:L$="D":8000@:Delay =D=0'" ...but no damage":HF=0:3830 6D;" damage..":MS03860:It's dead 8HF=1DF=30:L$="D":8000@:Delay ,HF=1"The ";B$'"staggers, defeated" 0DF=110n:8000@:Delay and Update HF=13570  #4000:Monster's Combat 1LN+2,0;"...killing the monster..." !EX=EX+U:HF=0:CF=0 (/DF=80P:8000@:Delay and Update 22010:Movement <,LN,2;"Knavish coward !":CF=0 F 3880( Monster Combat )LN,0;" The creature attacks...", 5DF=502:L$="W":8000@:Delay and Wipe ,MS=04300:Psionic Attack 'MS6ƥ<.54300 'MS=MS-1:MS04240 !RF=(*10 ):LN,1;: 4068+RF*8 ."It swings at you...and misses",:4280 -"Your blade deflects the blow",:4280 )"...but hesitates, unsure",:4280 2Z=3:"It strikes your head !",:41506  4Z=1.5@:"Your chest is struck !",:41506 7Z=1:"A strike to your swordarm !",:41506 $3Z=1.3&fff:"A blow to your body !",:41506 ,'Z=.5:"It catches your legs !", 6,DF=60<:L$="D":8000@:Delay @6G=((((MS*75K*)-(10 *CS)-E)/100d)*Z) JLG<0G=0:LN,0;"...Saved by your armour !",:4280 TC=C-G ^G>9 CS=(CS-G/6) hDG=0LN,0;" Shaken....but no damage done":4280 r,LN,0;" You take...";G;" damage...", |-CS0C09500%:Death  4280 /LN,0;" using its last energy doing so"  EX=(EX+U/2):CF=0 0DF=100d:8000@:Delay and Update 2010:Movement 0DF=100d:8000@:Delay and Update #3570 :Character'sCombat Monster Psionic Attack /LN,0;"...hurling a lightning bolt ! " SG=(((180*N*)-(PS+E))/100d):N=N-5:G>9 N=N-(G/5) 5DF=80P:L$="W":8000@:Delay and Wipe "N0N=0:4240 <.25~4410: "G0G=0:44000 #LN,0;" It strikes home !", 0DF=110n:8000@:Delay and Update &C=C-G:G<9 PS=(PS-G/4) & 4210r 0;LN,0;" Your psi shield protects you ":4280 :.LN,0;"...missed you ! ",:4280 Spell Control Routine ZI=130:I:LN,0;" Which spell seek ye ?",:1700:Combat Get &TV=13600:too slow )(G$)>0ư(G$)34540 .LN,0;" No such spell...",:4580 4*PS*N4630 4800+200*(G$) SC holds outcome flag 4560+10 *SC 0DF=100d:8000@:Delay and Update 2010:Movement /DF=60<:8000@:Delay and Update #4000:Monster's Combat /DF=60<:8000@:Delay and Update #3570 :Character'sCombat .LN,0;" It is beyond you",:4580 GLN,0;"The spell saps all your strength":9500%:Death  5LN,0;" But the spell fails...!",:4580 <LN,0;"Fails-the beast's psi shields it":4580 Spell 1 - Sleepit &C=C-5:C0SC=5: PLN,0;"Sleep thou foul fiend that I mayescape and save my wretched skin" 0DF=180:8000@:Delay and Update )LN,0;" The creature staggers..." ,DF=40(:L$="D":8000@:Delay <.55090 " and collapses...stunned" .EX=(EX+U/2):CF=0:SC=1:  " but recovers with a snarl !" SC=2: OSpell 2 - Psi-lance P.MS>CPS<491EX<1000SC=4: Z'C=C-10 :C0SC=5: dIN=0LN,0;" This beast has no psi to attack":SC=2: n7LN,0;"With my mind I battle thee for my life" x0DF=120x:8000@:Delay and Update ,RF=:RF<.4LN>10 SC=6: =D=((((CS*502*RF)-5*(MS+N)+E)/502)/4) $D0D=0:SC=7: :LN,0;" The psi-lance causes ";D*2;" damage" %N=N-3*D:N0N=0 !MS=MS-D:MS0MS=0 MS+N>0SC=2: "...killing the creature" #EX=EX+U:CF=0:SC=1: Spell 3 - Crispit )PS<77MEX<5000SC=4: "'C=C-20:C0SC=5: ,,LN,0;"My mighty sword strikes thee" 6!"My fearsome spell curses thee" @$"Burn ye spawn of hell and suffer" J0DF=240:8000@:Delay and Update T8LN,0;"A bolt of energy lashes at the beast..." ^5DF=80P:L$="W":8000@:Delay and Wipe hI>(PS/780 )*(5-P1)LN,0;" Missed it !":SC=2: rD=((CS+PS*)-(10 *N*)) |$D0D=0:SC=7: MS=0N=N-D:5530 )MS=MS-D:D>10 N=(N-(D/3)) 7LN,0;" It strikes home causing ";D'" damage !" (MS+N)05570 ,DF=80P:L$="D":8000@:Delay SC=2: !" The monster dies screaming !" #EX=EX+U:CF=0:SC=1: oScenario Control pTQ1=153PK=157LN,0;" You cannot enter this way...":6110 zI=27 P(I)=0 N(I)=(*5)+4 N(I)=56030 I S=1MP1=M1:MP2=M2 "P(2)=(*22)+1 TF=TN:6130 Exit from Scenario (TN>TF+(*6+1)6130 "LN,0;" The way is barred" STN=TN-1:C=C-10 :DF=100d:L$="W":8000@:Delay and Wipe  2010 S=1TCOL3=COL VC=C-10 :S=3Q1153S=1:FL=1:TCOL2=TCOL3:6220L -M1,M2;COL;1;Q:W1,W2;1;Q 1Q1=97aS=1:FL=1:TCOL2=TCOL3 <Q1=155S=4S=1:FL=1:TCOL2=TCOL3 PQ1=155(S=5S=6)S=S-3:FL=FL-4:M1=MW1:M2=MW2 %Q1=152S=2:FL=2 $%Q1=150S=3:FL=3 .jQ1=150Q1=152D2=(*6)+1:R2=(*P(2))+1:P(FL+4)=P(2) 8%Q1=151S=4:FL=2 B:Q1=153S=S+3:FL=FL+4:MW1=M1:MW2=M2 L-S=1S=26000p+500*S NS=37010b P,S>37300+10 *(S>4) V`ں((23624H\)/8);LN-5,0,,:DF=5:8000@:Delay and Update `2000:Movement cScenario 1 - The Valley d@1:6:0::F$="VAEGH":FL=1:S=1 mDraw Valley Frame n06520x:6530:6520x:6560 x82;7;"": @i=112 :2;7;"";i,31;"":i: &If path already drawn then skip  G(1)06690" Compute the path /G(1)=(*10 )+2:DIR=0 i=229 RF=-(*2) "G(i)=G(i-1)+1+RF+DIR (G(i)<2G(i)>11 6585  DIR=RF:i FM1=G(1):M2=1:W1=G(1):W2=1:MP1=M1:MP2=M2 !Plot in path "/G(1),1;1;"":DIR=0 ,i=229 1$DIR=-DIR-1+G(i)-G(i-1) 6&G(i),i;2;(145+DIR):i ;!G(29)+DIR,i;1;"" @ S(1)06780| ICompute Scenario Posns Jj=19 2 TEY=(*12 )+1:X=(*29)+1:1800: ^I32 6740T c X=X+1:1800: f"j<9 I32 6740T h S(j)=Y:S(j+1)=X-1 rj {Plot in Scenarios |}S(1),S(2);"";S(1),S(2)+1;"";S(3),S(4);"";S(3),S(4)+1;"" }S(5),S(6);"";S(5),S(6)+1;"";S(7),S(8);"";S(7),S(8)+1;"" S(9 ),S(10 );""  1;LN-5,0,, Pro=1pro=0:  M1=MP1:M2=MP2:W1=MP1:W2=MP2  W#Scenario 2 - Woods and Swamps XF$="AFL":PC=154 ])5:1:5::7020l bF$="FAEHL":PC=149 g4:0:7: l PK=32 #Draw random woods or swamps I=1174 ?4+2*(S=2);(*14),(*32 );PC I Print in Lake D2,R2+2;""  D2+1,R2+1;"" D2+2,R2;" " D2+3,R2;" " "D2+4,R2+1;" " D2+5,R2+3;"" D2+6,R2+4;"" 9D2+3,R2+2;6-2*(S=2);"" Draw in the frame S=37200  g0,0;:4:4:7160:7170:7160:1:7:7200  &"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa": 4i=112 :i,0;"a";i,31;"a"  i:  &pro=1pro=0:7210* %J12 +(S=3),11 ;" ":W1=12 +(S=3):W2=11 *,Q1=155M1=MW1:M2=MW2:W1=M1:W2=M2 4 Scenario 3 - Castles ,F$="CAGE":P=0:H=N(FL):PK=32 '0:0:7:7320 +F$="CBE":P=0:H=N(FL):PK=32 &S=57:7:2 &S=62:1:6 Draw Frame 2:7330:7340:7330:7370 " ": .i=112 :" ";22;"":i: Draw vertical walls 9800H&:I=1P(FL) V:V=100d9800H& I PC=148  L1=0 J=13 D(J):P=P+1 7D(J)=100d9800H&:D(J)=3:P=P+1 J  I=0H L=I+L1 $L>12 7560 .I=1PC=32 8.D(1)=0PC=148:7500L B)L,D(1)+3;PC:PC=148 LI=3PC=32 V4L,3+D(1)+D(2);PC:PC=148 `I=4PC=32 j?L,3+D(1)+D(2)+D(3);PC:PC=148 tI ~L1=L1+H+1:7410 Draw Horizontal Walls J=14 L=J*(H+1) L>12 7650 "L,3;" " >L-1,4;" ";L,4;" ";L+1,4;" " AL-1,19;" ";L,19;" ";L+1,19;" " \L-1,3*H+2;" ";L,3*H+2;" ";L+1,3*H+2;" " J Draw in the stairs !S=5S=67680 =FL/2=(FL/2)12 ,3;"":7680 1,21;"" Doorway needed? VFL=2S=5S=613 ,8;6;"";12 ,8;" " &pro=1pro=0:7700  -P(3)=0W1=12 :W2=8 S=57770Z S=67750F (W3,23;"The Black";5,25;"Tower";7,23;"of Zaexon" <410 ,24;"Floor ";FL-1:7790n FC3,24;"Vounim's";5,26;"Lair":7800x ZU3,26;"The";5,23;"Temple of";7,23;"Y'Nagioth" nP(FL+1)=P(FL)+P wScatter Special Finds xJ0+6*(S=4)+7*(S=6):FL<4ť<.3  J=1̺(*5)+2 X=(*19)+3 Y=(*12 )+1 1800: I32 7820  Y,X;"" J  Stairs Routine /1;COL;W1,W2;"":1;M1,M2;"" 1LN,0;" A Stairway...up or down ?":TV=FL !V$="ud":1500:Uniget #G$="u"FL=FL+1:7950 FL=FL-1 #FL>7FL<27980, " 6220L ,*LN,0;" These stairs are blocked", 6,DF=60<:L$="D":8000@:Delay ;FL=TV:7910 ?Delay, Wipe and Update @I=1(DF*TM) JI TL$="D"L$="": ^LN,0,,,,,,LN,0; |L$="W"L$="": JCS>77M-(2*P1^2.5 )CS=77M-(2*P1^2.5 ) PS<7PS=7 pPS>(42**(P1+1)^((P1^3.7l)))+75KPS=(42**(P1+1)^((P1^3.7l)))+75K AC>125}-((P1)*12.5H)C=125}-((P1)*12.5H) `ں((23624H\)/8);9 ;LN-5,((27-(J$)-(P$))/2);J$;" the ";P$ @5;0;"Treasure :";TS;17;"Combat Str:";CS, @5;0;"Experience:";EX;17;"Psi power :";PS, ?5;0;"Turns :";TN;17;"Stamina :";C, !If fighting update mon-ster CF=18210 LN-1,0,,  r2;7;LN-1,0;1;B$;0;14;"Str phy/mag:";MS;(30+(N9 ));N LN,0,, & !3Rating Routine !44DF=5:L$="W":8000@:Delay and Wipe !>dRT=(.067} 7K*(EX+TS/3)^.5+(EX/((TN+1)^1.5@))):RT>28RT=28 !HRT<0RT=0 !R{LN-(T(3)>0T(1)=1),0;" Your rank is:":9750&:i=0RT:X$:i:" ";X$;" [";RT;"]" !\3T(3)>0"You have the Helm of Evanna" !fwT(1)=1"You have the Amulet";:T(2)0" and ";T(2);" stone";:T(2)1"s" !p6DF=250:L$="W":8000@:Delay and Wipe !zNLN-1,0,,:G$="e"C=C-10 :G$="":2010:Movement ! #'Quit Valley Routine #(ELN,0;" Thou art safe in a castle",:CS<20CS=20 #29M1,M2;1;COL;"":Y=W1:X=W2:1800: #7(PK=I:M1=W1:M2=W2:M1,M2;1;Q #<8LN+1,0;"Wilt thou leave the valley(y/n)?" #F!V$="yn":1500:Uniget #P4DF=5:L$="W":8000@:Delay and Wipe #Z85004!:Rating #d5DF=60<:L$="W":8000@:Delay and Wipe #n&G$="y"9200#:Save Routine #x;C=150:LN,0;"Thy wounds healed, sword sharp" #""Go forth and do the Gods' will" #0DF=180:8000@:Delay and Update #/MP1=M1:MP2=M2:6220L:Redraw Valley #Save Character Routine #b0:0:7::"Do you wish to save "'J$;" ?"''"Press 'Y'[yes] or 'N'[no]" $!V$="yn":1500:Uniget $G$="n"9280@$ $KZ(1)=CT:Z(2)=TS:Z(3)=EX:Z(4)=TN:Z(5)=CS $"tZ(6)=PS:Z(7)=T(1):Z(8)=T(2):Z(9 )=T(3):Z(10 )=C1:Z(11 )=P1 $,J$Z() $6:J$;" has been saved" $@{5,0;"I, Alarian the Wizard, call for another brave Tybollean to fightthe evil Vounim and all his vilebrood." $EQ'"For fame, fortune, and the land we love so dearly, step up and type 'R'" $G0:="r" $J %Death Routine %/C=0:CS=0:PS=0:CF=0 %&0DF=110n:8000@:Delay and Update %0 T(2)=69570b% %:%LN,1;"Oh what a frail shell" %D" Is this that we call man" %N6DF=300,:L$="W":8000@:Delay and Wipe %X)0:0:7::9280@$ %aRestore Character to life %b[T(1)=0:T(2)=0:TS=0:CS=30:C=150:PS=30 %lMLN,0;" Alarian's Amulet protects thy soul";1;'"Live again !" %0DF=150:8000@:Delay and Update %UMP1=G(1):MP2=1:M1=W1:M2=W2:S=1:6220L:Scene Control &Rank Classification &"Monster Food","Peasant","Cadet","Cannon Fodder","Path Walker","Novice Adventurer","Survivor","Adventurer","Assassin","Apprentice Hero" & "Giant Killer","Hero","Master of the Sword","Champion","Necromancer","Loremaster","Paladin","Superhero","Dragon Slayer","Knight of the Valley" &*"Master of Combat","Dominator","Prince of the Valley","Guardian","War Lord","Demon Killer","Lord of the Valley","Master of Destiny" &G&Data for Castle type Scenarios &H4,7,3,6,4,4,6,5,3,6,0,3,8,4,3,5,5,3,8,3,4,5,0,6,3,6,4,6,4,7,4,100d &QData for Monsters &R"AWolfen",9 ,0,"AHobgoblin",9 ,0,"AOrc",9 ,0,"EFire-Imp",7,3,"GRock-Troll",19,0 &\s"EHarpy",10 ,12 ,"AOgre",23,0,"BBarrow-Wight",0,25,"HCentaur",18,14 &f}"EFire-Giant",26,20,"VThunder-Lizard",502,0,"CMinotaur",35#,25,"CWraith",0,30 &pu"FWyvern",36$,12 ,"BDragon",502,20,"CRing-Wraith",0,45-,"ABalrog",502,502 &ySpecial Water Monsters &z;"LWater-Imp",15,15,"LKraken",502,0 &User-defined graphics &v11,100,1000,1000,10000,10000,100000 ,11000000:Path up : &x11000000,100000 ,10000,10000,1000,1000,100,11:Path down : &11001,11001,111101=,1111111,1011001Y,11000,11000,11000:Character : &01111110~,10111101,11011011,11100111,11100111,11011011,10111101,01111110~:Valley Border : &b0,239,239,239,0,247,247,247:Castle walls : &}11000,111100<,1101110n,10111101,01110110v,1000,1000,1000:Trees : &0101010*,01111111,255,255,01010101U,01010101U,01010101U,01010101U:Woods : &o01100110f,126~,126~,126~,126~,126~,1110110v,1110110v:Tower : &x0,00100110&,01110100t,0,00100010",01101110n,01001110N,0:Swamps : &1000,1001001I,1011101],1111111,127,127,127,127:Vounim's Lair & Temple of Y'Nagioth : &u0,0,0,0,1000010B,100100$,10100101,1111110~:Tufts in swamps : &`60<,126~,126~,122z,122z,126~,126~,126~:Doorway : &X3,3,15,15,63?,63?,255,255:Stairs : &~01000100D,10101010,00010001,0,00100010",01010101U,10001000,0:Lake : &ʊ00010010,0001100 ,00100010",01000001A,01000001A,01000001A,00111110>,0:Treasures : &{0,11011011,11011011,255,255,255,11100111,11100111:Safe Castle : &1,16,0,33!,255,79O,203,22,43+,16,251,13 ,32 ,248,201,0:m/c horizontal scroll 'Pro=1:6220L '7:7:0 rrocee'~Ḷcolexd0 0 5 "AWolfen AHobgoblin AOrc EFire-Imp GRock-Troll EHarpy AOgre BBarrow-Wight HCentaur EFire-Giant VThunder-LizardCMinotaur CWraith FWyvern BDragon CRing-Wraith ABalrog LWater-Imp LKraken b  2#$222b  -2: LVynkG Y