P8J? !6{D:\aB~B<@@~\:F)^X![!`PP!! W K SR P ASP LTD 1982   Adapted for the 48K   Ferard, August 1982  GOTO 9990for clear list 0:0:7 8:7;0,10 ;"ASP SOFTWARE"'"presenta" 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;"Quiere cargar un caracter del cassette ?"'17,0;"Pulse 'Y'[si] o 'N'[no], o 'K' para ver las instrucciones" '23658j\,0:Caps LockOff "V$="ynk":1500:Uniget 4G$="k"3200 :0:7::1006 "Nombre del caracter ? ";J$ J$=""1020 F(J$)>10 "Demasiado largo - maximo 10 letras":1020 G$="n"1240 $B:5,0;"Coloque el castt. y 'play' para cargar: ";J$ 8#J$Z():CT=Z(1):13302 F:1,0;"Escoja los tipos de caracteres cuidadosamente"' ''" Brujo [1]" '" Pensador [2]" 9'" Barbaro [3] ";1;2;"TECLA 1-5"  '" Guerrero [4]" '" Clerigo [5]"  0 ( CT=() -G8,17;"1 " .(8,17) 2LCT=1P$="Brujo":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$=" Le ayudaran los dioses... ":1900l:Scroll <15,(29-J$-P$)/2;5;J$;" el ";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 4G$="":i=1100d:""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 EW1=M1:W2=M2:LN,0;" En que direccion se mueve?":2050 -LN,0;"Guarde el camino,que direcc.?"  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;" Nada de valor, siga buscando":DF=502 "8000@:Delay and Update  2010 Finds Routine LN,0; "2340$ +10 *(*6) /DF=80P:8000@:Delay and Update  2010 $9" El circulo del diablo"'" ...Salga rapido!" &LCS=CS+((FL+1)/2):PS=PS-((FL+1)/2):C=C-20 ("C09500%:Death ) 8" Un tesoro de oro" :#TS=TS+(FL**100d+100d) = LH" Siente la aureola de la magia ...alrededor suyo..":2400` V%" ...Un lugar de antiguo poder..." `>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;"Una cosa sin valor":2940| ,1LN,3;"Una piedra preciosa !":2930r 6<LN,3;"Encuentre el corazon de Evanna !":2930r @<LN,0;"El amuleto de Alarian...vacio...":2930r J'LN,3;"Un amuleto de piedra..." T,DF=60<:L$="D":8000@:Delay ^8RN>.85Y'"... pero uno equivocado !":2940| h='"...es la piedra deseada !":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 ,LN,0;" Cuidado... lo ha encontrado" #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;"Un demonio ";B$ v/DF=40(:8000@:Delay and Update { 3500 Keying instructions 6:7:0: "6;"MOVIMIENTO DE TECLAS", 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 "Son los numeros de las teclas autilizar para moverse en la di-reccion que desee (2 teclas a lavez para moverse en diagonal)." *''"O 'E'[Ego] para su posic. (0-28)" ?20,0;"Pulse cualq. tecla para seguir":0: #2;7;"COMBATE....",, t'"'H' para golpear cabeza monstr."'"'B' para golpear cuerpo monstr."'"'L' para golpear piern. monstr." 8"'S' para echar un hechizo"''4;"HECHIZOS",, l'"'1':Parar - util en situaciones apuradas;agota 5 resist."''"'2':Psi-lanzas - requieren 1000 experiencia & 49 psi poder."'" Poderoso pero solo en contra de monstruos con fuerza magica; agota 10 resist."''"'3':Crispit - requiere 5000 experiencia & 77 psi poder. Terrible tormenta de rayos pero agota 20 resist." @21,0;"Pulse cualqu. tecla para seguir":0: "1;7;"ESCENARIOS",, /'6,,"ESCENARIO ENTR. SALIDA NIVEL " :"El Valle";14;"";20;"";27;1 @'"Pantanos";14;"";18;"Borde";27;2 ?'"Bosques";14;"";18;"Borde";27;3 *?'"La negra torre";14;"";20;"";26;"2-7" 4J"de Zaexon"''"Los Templos";14;"";20;"";27;6 >u"de Y'Nagioth"'"[con pantanos]"''"Guarida de Vounim";14;"";20;"";27;7'" [con bosques]" C62;6;"Vd. es , esta en ,a la derecha" HR7;1;21,0;"Pulse cualq. tecla para seguir",:0: Character's Combat .<.64000:Monster's Combat -LN,0;"Sorprendale-ataque/retirese ?" 1700:Combat Get G$="r"3900< TV=13600 G$"a"4000 ,DF=40(:L$="D":8000@:Delay 'LN,0;" >>>Golpee rapido<<<" 1700:Combat Get TV=03620$ 4TU=0LN,0;" Demasiado lento..."  $TU=0:HF=0:3830 $E=39'*EX/3.14H .'G$="s"4500:Spell Control 8DMS=0LN,0;"Le atraviesas, es inmaterial":3830 B C=C-1 LHC0LN,1;"Esta realmente agotado":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;" Fallo el golpe !" 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;"Un golpe "; &G$="h""en su cabeza ";:3780 &G$="b""en su cuerpo:";:3780 "en sus piernas:"; ,DF=60<:L$="D":8000@:Delay @D=0'" ...pero sin heridas":HF=0:3830 4D;" herid.":MS03860:It's dead 8HF=1DF=30:L$="D":8000@:Delay &HF=1" el ";B$'" se retuerce" 0DF=110n:8000@:Delay and Update HF=13570  #4000:Monster's Combat 1LN+2,0;"...matando al monstruo..." !EX=EX+U:HF=0:CF=0 (/DF=80P:8000@:Delay and Update 22010:Movement <,LN,2;"Covarde Knavish!":CF=0 F 3880( Monster Combat &LN,0;" La criatura ataca...", 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 *"Se balancea y va al vacio",:4280 ("Su arma desvia el golpe",:4280 &"...pero duda,inseguro",:4280 5Z=3:"y le golpea en la cabeza!",:41506  4Z=1.5@:"y le da enla espalda !",:41506 0Z=1:"y golpea su espada !",:41506 $4Z=1.3&fff:"y te da en el cuerpo !",:41506 ,(Z=.5:"te golpea las piernas !", 6,DF=60<:L$="D":8000@:Delay @6G=((((MS*75K*)-(10 *CS)-E)/100d)*Z) JOG<0G=0:LN,0;"...Salvado por su armadura !",:4280 TC=C-G ^G>9 CS=(CS-G/6) hCG=0LN,0;" Sacudido....pero sin efecto":4280 r+LN,0;" Herido...";G;" veces...", |-CS0C09500%:Death  4280 =LN,0;" Utilizando su ultima energia para hacerlo"  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;"...lanzando un rayo ! " 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;" que cae encima tuyo !", 0DF=110n:8000@:Delay and Update &C=C-G:G<9 PS=(PS-G/4) & 4210r 03LN,0;" Su escudo le protege ":4280 :/LN,0;"...Vd. perdido ! ",:4280 Spell Control Routine XI=130:I:LN,0;" Que hechizo busca ?",:1700:Combat Get &TV=13600:too slow )(G$)>0ư(G$)34540 5LN,0;" No semejante hechizo...",: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 7LN,0;" Esta mas alla de tu poder",:4580 FLN,0;"El hechizo agota toda su fuerza":9500%:Death  7LN,0;" Pero el hechizo falla...!",:4580 7LN,0;"Falla, el escudo le protege":4580 Spell 1 - Sleepit &C=C-5:C0SC=5: ELN,0;"Duerme si quieres amigo yo meescapare y me salvare." 0DF=180:8000@:Delay and Update 'LN,0;" La criatura tambalea.." ,DF=40(:L$="D":8000@:Delay <.55090 " y cae inconsciente.." .EX=(EX+U/2):CF=0:SC=1: " pero se recobra grunendo !" SC=2: OSpell 2 - Psi-lance P.MS>CPS<491EX<1000SC=4: Z'C=C-10 :C0SC=5: dHN=0LN,0;" Esta bestia no le puede atacar":SC=2: n,LN,0;"Pensando,luchare por mi vida" 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;" Las psi-lanzas causan ";D*2;" heridas" %N=N-3*D:N0N=0 !MS=MS-D:MS0MS=0 MS+N>0SC=2: "matando a la criatura" #EX=EX+U:CF=0:SC=1: Spell 3 - Crispit )PS<77MEX<5000SC=4: "'C=C-20:C0SC=5: ,'LN,0;"Le golpeo con mi espada" 6"Te maldecire con mi hechizo" @%"Quemare las semillas del infierno" J0DF=240:8000@:Delay and Update T4LN,0;"Rayos de energia contra la bestia..." ^5DF=80P:L$="W":8000@:Delay and Wipe hU>(PS/780 )*(5-P1)LN,0;" se pierde en el vacio !":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)) 9LN,0;" Golpea de lleno causando ";D'" heridas !" (MS+N)05570 ,DF=80P:L$="D":8000@:Delay SC=2: !" El monstruo muere gritando !" #EX=EX+U:CF=0:SC=1: oScenario Control pZQ1=153PK=157LN,0;" No puede entrar por este camino...":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;" El camino esta cortado" 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  &" a": 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 (V3,23;"La torre";5,25;"negra";7,23;"de Zaexon" <410 ,24;"Suelo ";FL-1:7790n FJ3,24;"La guarida";5,26;"de Vounim":7800x ZT3,26;"El";5,23;"Templo de";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;"" :LN,0;" Una escalera: arriba(U) o abajo(D)":TV=FL !V$="ud":1500:Uniget #G$="u"FL=FL+1:7950 FL=FL-1 #FL>7FL<27980, " 6220L ,2LN,0;" Estas escaleras estan bloqueadas", 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$;" el ";P$ A5;0;"Tesoro :";TS;17;"Furz.Comb.:";CS, A5;0;"Experien. : ";EX;17;"Poder psi: ";PS, @5;0;"Jugadas :";TN;17;"Resist. :";C, !If fighting update mon-ster CF=18210 LN-1,0,,  s2;7;LN-1,0;1;B$;0;14;"Furz.Psi/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 !RLN-(T(3)>0T(1)=1),0;" Su puntuacion es:":9750&:i=0RT:X$:i:" ";X$;" [";RT;"]" !\1T(3)>0"Tiene el tesoro de Evanna" !fvT(1)=1"Tiene el amuleto";:T(2)0" y ";T(2);" la piedra";: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 #(GLN,0;" Esta a salvo en el castillo",:CS<20CS=20 #29M1,M2;1;COL;"":Y=W1:X=W2:1800: #7(PK=I:M1=W1:M2=W2:M1,M2;1;Q #<4LN+1,0;" Quiere dejar el valle(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 #x9C=150:LN,0;"Se le han curado las heridas" #)"Siga y haga lo que los dioses quieren" #0DF=180:8000@:Delay and Update #/MP1=M1:MP2=M2:6220L:Redraw Valley #Save Character Routine #Z0:0:7::"Quiere grabar "'J$;" ?"''"Pulse 'Y'[si] o '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$;" ha sido grabado" $@u5,0;"Yo, Alarian, el brujo llamo aotro bravo Tybollean para lucharen contra de Vonim y sus colegas" $EY'"Por nuestra fama, fortuna, y la tierra que queremos tanto levan-tese y pulse '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;"Que cascara mas fragil" %D." Es a esto a lo que llamamos hombre?.." %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;" El amuleto de Alarian le protege";1;'"Vive otra vez !" %0DF=150:8000@:Delay and Update %UMP1=G(1):MP2=1:M1=W1:M2=W2:S=1:6220L:Scene Control &Rank Classification &"Comida del Monstr.","Campesino","Cadete","Explorador","Caminante","Novicio Aventurero","Superviviente","Aventurero","Asesino","Heroe aprendiz" & "Ases. del Gig.","Heroe","Maestr.de la esp.","Campeon","Nigromante","Senor","Paladin","Super heroe","Dragon Ases.","Caball.del Valle" &*"Maestr.del Combate","Dominador","Princ.del Valle","Guardian","Lord de Guerra","Ases.del Dem.","Lord del Valle","M. del Destino" &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"ALobos",9 ,0,"ADuende",9 ,0,"AOrca",9 ,0,"EImp-Fuego",7,3,"GDuende",19,0 &\o"EArpia",10 ,12 ,"AOgro",23,0,"BCarret.",0,25,"HCentauro",18,14 &fx"EGigante ",26,20,"VLagartos",502,0,"CMinotauro",35#,25,"CFantasma",0,30 &ps"FDuende",36$,12 ,"BDragon",502,20,"CFantasma",0,45-,"ABalroga",502,502 &ySpecial Water Monsters &z9"LImp-Agua",15,15,"LRotos",502,0 &User-defined graphics &v11,100,1000,1000,10000,10000,10 ,110:Path up : &x110,10 ,10000,10000,1000,1000,100,11:Path down : &11001,11001,111101=,1,1011001Y,11000,11000,11000:Character : &010~,10111101,11011011,11100111,11100111,11011011,10111101,010~:Valley Border : &b0,239,239,239,0,247,247,247:Castle walls : &}11000,111100<,1101110n,10111101,01110110v,1000,1000,1000:Trees : &0101010*,01,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],1,127,127,127,127:Vounim's Lair & Temple of Y'Nagioth : &u0,0,0,0,1000010B,100100$,10100101,10~: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",0101A,0101A,0101A,0010>,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 0 .0 .5 3"ALobos ADuende AOrca EImp-Fuego GDuende EArpia AOgro BCarret. HCentauro EGigante VLagartos CMinotauro CFantasma FDuende BDragon CFantasma ABalroga LImp-Agua LRotos b   2# $2 22b   -2: 8rrocee'~Ḷcole@dxGnJrubenPClerigo cA dioses... LVynk200 N,0;" Una escalera: arriba(U) o abajo(D)":TV=FL ":SC=2: 7MW?WMMM P PMM~3MJVͱ3hM8>vx> =Y~۽~