P.RHUN vu v9subrutinas:9900rincipio,9000morirse,8000crear graficos 23613=\,255 9900& 0:7:0:: Fm=0:i=5:x(3):y(3):d(3):di=1 #b$="":255-14,0:0,16:13 ,0,-:0,-16:255-8,0:0,22 (n=113 4:5+n,0;3;b$:j=14:5+n,*31;3;1;"":j:n:6,0;3;"" 2n=13:6+n,30;6;"";14+n,30;6;"";10 +n,1;6;"";18+n,1;6;"":n <x(1)=2:y(1)=9 :d(1)=1:x(2)=29:y(2)=13 :d(2)=-1:x(3)=2:y(3)=17:d(3)=1 Zj=13 da$=: n6a$="5"m>0i,m;" ":di=-1:m=m-1 x6a$="8"m<31i,m;" ":di=1:m=m+1 65278=190m+di<30m+di>1i,m;" ":.1}L,20:i-1,m+di;"":.1}L,0:i-1,m+di;" ":m=m+2*di a(i+2,m)=6n=10 2-1:.1}L,n:n:i=i+4:di=-di:m=m+di V(i+1,m)=1n=i21:n,m;"":.05|L,n:n,m;" ":n:9000(# 4(i+1,m)=67Ci+1,m;1;" " "i=21m>28200 (i,m)=49000(# Ki,m;"";y(j),x(j);" ":x(j)+d(j)<2x(j)+d(j)>29d(j)=-d(j) 6x(j)=x(j)+d(j):y(j),x(j);4;"":j:90Z 0:7:0: Ka$=" ":x(4):y(4):i=10 Vn=14:x(n)=30-((*16)):y(n)=(*21):n:con=0 j=14 /="6"i<19i,0;" ":i=i+1 .="7"i>2i,0;" ":i=i-1 65278=190i,1;"-":.005y# =,10 :.005y# =,9 :i,1;" ":(i,2)=6285 "(i,0)=69000(#  con=10 300, a$=a$(2)+a$(1):i,0;"";0,0;2;a$;21,0;1;2;a$;0;y(j),x(j);7;" ":x(j)=x(j)-1:x(j)<0con=con+1:x(j)=30:con>10 300, *>.55 y(j)=y(j)+(i>y(j))-(i0i,0;" ":i=i-1 J65278=190i,1;"-":.05|L,10 :.05|L,9 :i,1;" ":(i,2)=71G390 Oi,0;"";y(j),x(j);" " Qcon=10 400 T|x(j)=x(j)-1:x(j)<0con=con+1:x(j)=30-(*16):y(j)=(*21):con10 400 ^Dy(j),x(j);1;a$(1):(i,0)=71G9000(# c*j:a$=a$(2)+a$(1):315; zn=15:i=y(n)y(n),x(n);" ":p=p+1:con=con+1:x(n)=30-(*16):y(n)=(*21) n: 0:6:0: b(3):a(3):n=13:b(n)=(*5)+1:n:t=100d:v=1:m$=b(1)+b(2)+b(3) 255/4+255/16,87W,5:255/4,0:0,100d:127,0,-:0,-100d 127,0:0,163:255/4+(255/8),0:chap=155:0,chap:127+(255/8),0:0,chap 10 ,14;"" ?t=t-1:2,21;"TIEMPO";":000"(4-t);t t09000(# a$=:a$=""430 :a(v)=a$:a(v)=b(v)10 ,12 +(v*2);b(v) :t$=a(1)+a(2)+a(3):t$=m$490 K.3,30:21,0;v:v=v+1:v=4v=1  430 Xn=021:n,0;1;2;"":n -0:7:0::i=0:a= in=06:n,7;6;"":n:n=2115-1:n,7;6;"":n A10 ,28;4;"";11 ,28;5;"" Ma=a-(i<11 a>-/8)/10 +(i>11 a<+/8)/10 $="6"i,5;" ":i=i+1 $="7"i,5;" ":i=i-1 &i=21600X 0T<.17~.z.05|L,20:.05|L,19:.05|L,30:580D :i,5;"":520 Dt1;6;225,85U:1;6;a*208,a*208:(i,5)=6590N IU1;6;225,85U:1;6;a*208,a*208: Ni,5;" ":n=520:.05|L,n:e=:i=i+(e>.5i<21)-(e<.5i>0):i,n;"A";8;1;"W":.05|L,10 +n:i,n;" ":n:9000(# XD0:7:0::a$="" ]0,0;5;a$;21,0;5;a$:n=16:n,0;5;"";n,31;5;"":n:n=1420:n,0;5;"";n,31;5;"":n b5i=9 :m=0:x=0:n=110 g=a=(*21):b=(*31):(a,b)=5615g ia,b;2;"":n l(="5"m>0i,m;" ":m=m-1 v)="8"m<31i,m;" ":m=m+1 (="7"i>0i,m;" ":i=i-1 )="6"i<21i,m;" ":i=i+1 (i,m)=59000(# m=31700 2(i,m)=2p=p+1:.07}\(,-20 Hi,m;"":x=x+.10}L:x,0;5;a$;21-x,0;a$  620l 0:7:0: Ɛd1=1:1,31;"":m=0:i=20:x=4:di=1:21,0;6;"";2,0;6;"";2,32 -9 ;6;"";10 ,0;6;"";10 ,32 -5;6;"";16,0;6;"";16,32 -11 ;6;"" 5="5"m>0i,m;" ":d1=-1:m=m-1 5="8"m<31d1=1:i,m;" ":m=m+1 %suelo=(i+1,m):var=760 65278=190m>0i>0m<31i<21i,m;" ":.05|L,20-i:m=m+d1::i=i-1:var=770:(i,m)=6m=m-d1:i=i+1:790 var ;suelo=7i,m;" ":i=i+1:.05|L,-20 >i,m;"":1,x;" ":x+di<1x+di>30di=-di !i=1m=31800  Xm=xƫ(2,x)6n=2i:n,m;"|":.05|L,-n:n,m;" ":n:9000(#  ,x=x+di:1,x;2;"":720 )n=i20:(n,m)=6795 $n,m;"":.1}L,-n:n,m;" ":n i=n-1:  0:7:0:: *a$="":6,0;4;a$;12 ,0;4;a$;18,0;4;a$;5,31;6;"";11 ,31;6;"";17,31;6;"" 4n=021:n,n;7;" ";4;"";7;" ":n:x(3):y(3):d(3):i=1:m=4:a=21:b=24:di=1:d1=-1:d2=-1 >{a$="":n=13:x(n)=28:d(n)=-1:n:y(1)=5:y(2)=11 :y(3)=17 Hj=13 RB="5"i>0i,m;" ":di=-1:m=m-1:i=i-1 \Z="8"m<31i,m;" ":di=1:m=m+1:(i+1,m)4i=i+1 f65278=190m<28m>2i,m;" ":i-1,m+di;"":.05|L,10 :i-1,m+di;" ":.05|L,9 :m=m+(di*2):(i+1,m)4i=i+1 ki=211000 p/(i+1,m)4i,m;" ":i=i+1 z,(i,m)=5ū(i,m)=71G9000(# (i,m)=6p=p+2 i=211000 ?i,m;"";a,b;" ":a+d1<0a+d1>21d1=-d1:d2=-d2 Ga=a+d1:b=b+d2:a,b;1;a$(1):a$=a$(2)+a$(1) Ey(j),x(j);" ":(y(j),x(j)+d(j))=4x(j)=29d(j)=-d(j) 7x(j)=x(j)+d(j):y(j),x(j);5;"":j:840H 0:7:0: 255,152:0,-8:-8,0:0,8:8,0:i=3:di=1:llave=0:y=18:m=2:a=(*30)+1:x=30:d1=-1 Zn=021:n,0;5;"":n:21,31;7;1;"" )21,0;5;1;"" 4,0;1;"";20,8;6;0;"";19,8;6;"";1;6;2;"";0;2;" ";1;6;2;"";0;6;"" un=189 -1:n,8;6;" ";:n:8,7;6;" " 5="8"m<31i,m;" ":di=1:m=m+1 5="5"m>0i,m;" ":di=-1:m=m-1 $65278=190m>1m<30i,m;" ":i-1,m+di;"":.05|L,10 :i-1,m+di;" ":.05|L,9 :m=m+(di*2):(i-1,m)=69000(# .+(i,m)=6ū(i,m)=49000(# 8m=1i=3i,m;" ":n=i20:n,m-1;"":.1}L,-n:n,m-1;"":n:i=21:m=m+2:di=1 B(i,m-1)=69Ei,m;" ":n=i-14-1:n,m-1;"":.1}L,10 -n:n,m-1;"":n:i=n:m=m+1 L (i,m)=71Gllave=1 V0m=30i=3llave=11200 `i(i+1,m)=3i,m;" ":n=i21:n,m;"":.1}L,-10 -n:n,m;" ":n:9000(# j(a=mi=34,a;3;" " t>i,m;"";21,x;" ":x+d1>29x+d1<1d1=-d1 ~lx=x+d1:21,x;4;"":y=y-.05|L:y,9 ;2;" ":y89000(#  1040 0:7:0: n=4186:n,32 /4;4;"";n+3,0;"";n+3,20;"":n Bm=10 :i=3:x(4):y(4):n=14 Jx(n)=(*31):y(n)=(*21):(y(n),x(n))=41230 n:di=1 )j=14:suelo=(i+1,m) R="5"m>0i,m;" ":m=m-1:di=-1:(i,m)=4m=m+1 R="8"m<31i,m;" ":m=m+1:di=1:(i,m)=4m=m-1 65278=190m<30m>1i,m+di;"-":.05|L,-11 :i,m+di;" ":.05|L,-10 :(i,m+(2*di))=61390n  Csuelo4i,m;" ":i=i+1:(i,m)=4i=i-1 (i,m)=69000(# i=211400x i,m;"";y(j),x(j);" " x(j)-1x(j)=x(j)+(x(j)m):y(j)=y(j)+(y(j)iƫ(y(j)-1,x(j))4) ((x(j)-1y(j),x(j);6;"" 2j:1250 ngn=14:y(n)=ix(n)=m+(2*di)y(n),x(n);" ":p=p+2:x(n)=-1:1397u sn u x%b$=" ":0:7:0: n=4164:n,0;6;"":n:n=8164:n-1,*31;2;"":n (n=418:n,15;"":n 21,0;6;"";7;3,31;"":i=20:m=1:x=28:di=-2:y=1:d1=1 a=4:d2=1 E="8"m<31i,m;b$:m=m+1:(i,m)=6m=m-1 D="5"m>0i,m;b$:m=m-1:(i,m)=6m=m+1 b$=" " ,(i,m)=5ū(i,m)=71G9000(# suelo=(i+1,m) (i,m)=2p=p+1 om=15i>2i,m;"";20,15;" ";19,15;" ":i=i-1:b$="":1500 &suelo=7i,m;" ":i=i+1 "i=3m=311600@  i,m;"" 520,x;" ":x+di<2x+di>28di=-di ~19,x+(di/2);5;"":.03{u\,-20:19,x+(di/2);" ";20,x+di;5;"":x=x+di 43,y;" ":y+d1<1y+d1>30d1=-d1 !y=y+d1:3,y;1;""  1440 @0:7:0: Jba$="":n=421:n,0;5;a$(n-3):n T8,28;5;"";5,16;5;"";1,20;5;"";3,7;5;"";13 ,20;5;"";16,28;5;"";8,11 ;5;"";5,26;5;"" ^7;1;15,31;"":255,175:6;0,-8:6;-8,0:6;0,8:6;8,0 hjvar=1680:i=5:m=2:di=1:a$="":llav=0:x=0:d1=1 rhsuelo=(i+1,m):="5"m>0i,m;" ":di=-1:m=m-1:(i,m)=5m=m+1 |R="8"m<31i,m;" ":di=1:m=m+1:(i,m)=5m=m-1 var=1680:65278=190i>0m>0m<31i,m;" ":m=m+di:var=1690:i=i-1:.05|L,10 -i:(i,m)=5i=i+1 var Xsuelo5i,m;" ":.05|L,-20:i=i+1:(i,m)=5i=i-1 (i,m)=71Gllav=1 (i,m)=39000(# )(i,m)=6llav=11800 _i,m;"":a$=a$(2)+a$(1):21,18;1;a$:i=219000(# 5x,25;" ":x+d1<0x+d1>14d1=-d1 .x=x+d1:x,25;3;"":1650r &a$="":0:7:0: n=4184:n,0;1;"";0;n-1,0;3;a$((*2)+1);7;n,*31;" ";n,*31;" ":n 4,3;" ":21,0;1;"":a=28:d1=-2:i=3:m=1:x=28:y=3 &ssuelo=(i+1,m):suelo2=(y+1,x):="5"m>0i,m;" ":m=m-1:(i,m)=71Gm=m+1 0G="8"m<31i,m;" ":m=m+1:(i,m)=71Gm=m-1 :#i=20m=312000 D+(i,m)=2ū(i,m)=49000(# I(i,m)=3p=p+1 NEsuelo71Gi,m;" ":i=i+1:(i,m)=71Gi=i-1 Xi,m;"";y,x;" ":x=x+(m>xƫ(y,x+1)71G)-(myy=y+1:(y,x)=71Gy=y-1 bPy,x;2;"";15,a;7;" ":a+d1>28a+d1<2d1=-d1 l14,a+(d1/2);4;"":.05|L,-10 :14,a+(d1/2);7;" ";15,a+d1;4;"":a=a+d1:1830& 0:7:0: n=0212:n,0;4;"";7;" ";4;"";7;" ";4;"";n+1,0;4;"";n+1,31;4;"" Bn:21,0;4;"" 20,1;4;"":x(4):y(4):z$(4):d(4):x(1)=4:y(1)=3:z$(1)="":d(1)=1:x(2)=10 :y(2)=7:z$(2)="":n=14:d(n)=1:n vx(3)=20:y(3)=13 :z$(3)="":x(4)=18:y(4)=19:z$(4)="" b$="":n=16: Ua=(*19):b=(*30):(a,b)=4ū(a+1,b)42046 +a,b;6;b$((*2)+1):n i=1:m=2  )j=14:suelo=(i+1,m) E="5"m>0i,m;" ":m=m-1:(i,m)=4m=m+1  F="8"m<31i,m;" ":m=m+1:(i,m)=4m=m-1 *(i,m)=59000(# .(i,m)=6p=p+1 /Csuelo4i,m;" ":i=i+1:(i,m)=4i=i-1 0#i=20m=302200 40i,m;"":(y(j),x(j))6y(j),x(j);" " >Ax(j)=x(j)+d(j):(y(j),x(j))6y(j),x(j);5;z$(j) C2x(j)+d(j)<1x(j)+d(j)>30d(j)=-d(j) Hj:2060  0:7:0: rb$="":n=721:n,31-n;1;6;"";0;6;b$(n):n Xn=02:n,26;6;"":n:2,27;1;"" 5:235,120x:0,20:17,0,-:0,-20:234+(17/2),120x:0,28 7:21,0;6;"":n=4184:n,1;6;"";n-1,12 -*10 ;4;"":n:n=319:n,0;"":n Em=1:i=20:y=5:x=28:a=0:di=1 Zsuelo=(i+1,m):="5"m>0i,m;b$:m=m-1:(i,m)=6m=m+1 E="8"m<31i,m;b$:m=m+1:(i,m)=6i=i-1 s65278=190i,m;" ":.03{u\,10 :.03{u\,7:i=i-1:(i,m)=6i=i+1 (i,m)=4p=p+1 ,(i,m)=2ū(i,m)=71G9000(# Hb$=" ":m=0i>2i,m;"":b$="":i=i-1:2340$ Bsuelo6i,m;b$:i=i+1:(i,m)=6i=i-1 $m=302400` .Bi,m;"";y,x;" ":x=x-1:x=1x=28:y=5 8%(y+1,x)6y=y+1 BQy,x;2;"";a,17;7;" ":a+di=13 a+di<0di=-di L/a=a+di:a,17;1;"":2270 4:0:4: -a$=f(p)+"%":0,0;4;a$ Sn=175175-8-1:m=07+((a$-1)*8) "(m,n)=1"";:2490 " "; m::n xf(p)502''"Enhorabuena,tu fuerza es sufici-ente para vencer a Rhun."'"!A ver si logras derrotarlo!":200 Άf(p)<502''"Lo siento,pero tu fuerza no pue-de combatir con la de Rhun.Has fracasado en tu intento.":200:9000(# fn=110 :.05|L,4+n:.05|L,0:.05|L,-5:.05|L,0:n ,8013M:n="h""o"+7:a:n,a:n 0:7:0: ̷n=06:n,0;1;"":n:1;" ";8,0;1;" " ֡n=2117-1:n,0;1;"":n:16,0;1;1;" " 11 ,27;4;" ";12 ,26;4;"";4;1;"";0;4;13 ,27;" " m=0:i=12 x(5):y(5):d(5):n=15:x(n)=n*4:y(n)=12 -(*3):d(n)=(*3)-1:n (="5"m>0i,m;" ":m=m-1 )="8"m<31i,m;" ":m=m+1 E="6"i>0i,m;" ":i=i+1:(i,m)=1i=i-1 E="7"i>0i,m;" ":i=i-1:(i,m)=1i=i+1 &(i,m)=69000(# 0(i,m)=45000 :Ti,m;"":j=15:y(j),x(j);" ":(y(j)+d(j),x(j))=1d(j)=-d(j) Dtx(j)=x(j)-1:y(j)=y(j)+d(j):x(j)1x(j)=25-(*20):y(j)=12 :d(j)=(i>y(j))-(i