DOS=spC>p%NJg "@"NbCNJg @ hpNupNudos.libraryexpansion.libraryeUnMUh@ݺ#USZLƧM'l*MITƫAE0booo]"UbD4(NY`/\MEbjA%>#86+MT0̷$6b+n]>aY'̱DIM2=BOO!2jR!*%"JX^90hD^-(GD<=X23IM(S9ldB1lSIM2=`(!($0b@!b*IE0`(0(AE$0bID0""!$4bU0jI$`@0bj(FMUd2jA0"$"(IA$KMUMQ$hA0"A%40mUUMUKTA4h!!0IM2=IA$KMUMMd0j@$@$40mUUMUUVME5d"*)MUMKUQf)D0!$43IMMUMjF94b2h$(HFMUUMVID2ifIM2=8E0b@$0iMUkMMUMU4lRI8l(jAE0"AA:MjMMifE3,(A84bI00bbEU8H6\6.64&$'C^Vs4d t4D$5# B "!Bb"2   @`P@````````px8  P8PPPPPPPPPP   @`r>T@,<0(x p@ tt48 (:$ PP HP@ L"&&& H 0 `   @`{ d>WVVTt jRP0@102Zr  !\#XE   M z 8  @`\6666&&+C2200@   0 @` S>a> JCB@ax< h-PQ J!"JrUm : #D3      Mc < X  @`h 008<(x  @h((((((((  P @`9;V8f0p @3Cj@?p':(T UqP0@(]?p"$ @ x  @`gXHSP0`@@@``.q8<'5 -@Mz@ S/0N  3 CSa1  p @`|*( , ,0l7lLLN(0d0d``  ? *G     ? 8  @`? .Z:0:*7 ppdK<,? P [   2 ? p ( @`7~,Rx08h?<TVRW7(9^libsp+ 9^ libs.infopb 9@q%@qdz@rҤC@rE. *`C9 $ $ $ $$$ ?03777*77?76?95UUUUU\@@@ @ @ @@?0"UUUUUP????*????P )*** DON'T EDIT THE FOLLOWING LINES!! ***DIM1=BOO!2jR!*%"JX^90hD^-(GD<=X23IM(S9ldB1lSIM1=MSn%Y<`髸#USZLƧM'l*MITƫAE0bov]"UbD4(NY`/\MEbjA%>#86+MT0̷$6b+n]>aY'̱DIM2=BOO!2jR!*%"JX^90hD^-(GD<=X23IM(S9ldB1lSIM2=`(!($0b@!b*IE0`(0(AE$0bID0""!$4bU0jI$`@0bj(FMUd2jA0"$"(IA$KMUMQ$hA0"A%40mUUMUKTA4h!!0IM2=IA$KMUMMd0j@$@$40mUUMUUVME5d"*)MUMKUQf)D0!$43IMMUMjF94b2h$(HFMUUMVID2ifIM2=8E0b@$0iMUkMMUMU4lRI8l(jAE0"AA:MjMMifE3,(A84bI00bbEU8ꧫUjI8Qa80bPB(E2h!%$MKU3,jF80b+.$d8E0`IM2=(AA2KMKTlPA$0b(CaUF)DbbEUMi80b(A$0MUl2h@A%$kKUVU2PA$0b*UVM8E0"*)5KUVFDb(A-VMUPjA!$42MMIM2=UVU2S.$0UhM8E0"*)5KUFDh;aMV1PM6PjA!$42MMUlilXb84lQa9g$(!$42MUMEbjUW6QfD"S.)D(HDMEM95I9Qa%f<2h@$0iUIU6RKUI83,+,XIM2=)D(HDbIU6I%5IDlPAQg<2h$bbXkIU4RKU4l)f$68b)D`@$43n84jID4ia8b.XA4@"AA$f%4iiL3,(LQ$2jA00"*HANVH>8 n$. &.,TUm"FBQJm$H*ڂgn y (h`\"l x`RDJfp0p0r Ёm:"l p&@`XRp0b4%E5lll FRPp (TJfgBHxN (@& Pgv/HyNL-@Pgp/.N-@/ /.N|JO g6Jo.`Hx.HlN~"@& PgHy/ N   F (X "  4  4FONTS:.fontNVH?< .$. z&EBx/N-@HxHxN &O g/N,r$b\Xm/HnNHx.HnN~$@* Og|Hy/ N o"oJig$<:)hl 0HԀ`0Hနp(:p)Ep(<p)FvBD0H2Hg*r) 2Hg 0@ |(` 0@ |0H2Hg*r) 2Hg 0@ |h` 0@ |HCRD Dm&B`$< L|NuNVH?8$n JC""/N-@HnN(@&L$ Pg,=kkkHnHnN Pf`Tt/HyNL-@Pf`8/.N-@t//NL-@O gHx/N-@PgHxHn/.N0t BO fp0. fp0.,B/N *Pgh///.N0O fD gHnHnN8P`BDtBC`$0C.H GHpXHnNưDPo84RC0.CbJBm/.N&/N0B.H GHpXN(. GP"$ApO g jfb%D/.HjNA'b3p%H@*MNHj6N(RjT/ yHh*NP yRh(NtI6O`0/N0H @$HBjX`0H @"HBiJg /NhXJBl//N8P/.NX/.NhX/.N/.Nh$ Pgg / NX LN^NuH| Z N <f|      | \    dfr  5ԁNt"FONTS:  9"o oJfNu o /`RJf//NPNu op`RJfNu"o o`Jfp`g!lp`pNu o/ ` f `RfpNuH0&/ //N @S HX` f `SlpL Nu/$/Hx//N PfHx:/N Pf`R$ $NuEH ,yL NL@( ){43210/.-,+*)89^ icon.library(* :w )<pNuJ" F+Hicon.libraryicon 34.2 (22 Jun 1988) .XHD&4BP "+dos.libraryRn  NupSn f .gaNuJn f4/.*"N Q"i"!I"Npr0.2.Ё/,n"N.,_ `pNupNu/ $@%H*%N"CzNh%@&fH.< ,xNL`p`#"#& $_Nu//N(+dPNuH/NO NuH/N$ONuH/NO Nu//NVPNu//NPNu/NXNuH/NONu//NhPNu//NPNuHNPNuHNdPNuHNPNu/,o/,n"N,_"@#o ,_Nu |xtplhd`\XTPL VH:,:H<&/(/$/// /N*Pg$////NJOf(,v//NzP LH0 $/&/$op" g^Hx/ //N OgF2*HpҀ0*HN@"0*HN@//* //N OgL NuH0 $/&/$o`@Hx/ //NJOg0*HHЀЀ//*//NJOg $j fp`pL NuH< $/&/(/ J$(- rIg/<Hx//N/@4OgHx//(//NJOgv o$:(Hpڀ"0(HN@*$o$"0*HN@*$o$Hx///N%@ /$o8/* //NJO g /$`pL $/&/ (/$|`/<Hx//N/@8OgJf,/(`%o( Hx//,//NJOgl o((HHڅڅ$o(Hx///N%@ o8JOg6/$o,/*//NJOg$o( o(/h (J(fP `pL|Nu "Rz,"fHVPd(.5wNVH8 $.&. /N$@( Xg|HjHn//N$JOf/ /NP`RAC`p "Qn=%nH%n\%nT%nX%nL%n%nJLg jL!J `pLN^NuNVH ".$. n=|=|C`Ep $Q-h\h=-hT-hX-hL-hH-h-hHn//NO LN^NuNVH<<$. . $n&|&<I/HnN,HyHnN8HxHnN*Ofx`tHxN/ //NJOgZ RfR jfHBBJBgJ/<Hx/./N(OgHx8*DHU/(/c]j/NJOg%DB*DHmNX, gF/,//./N(pOg)D/,//./N(pOg`D/,//./N(pOg)D/,//./N(pOgb)DJfJ2gRHxHn//NJOg8/</././N%@2Og/./*2//NJOgJ6gHxHn//NJOg/</././N(@( Og%L6`PHxHn//NJOgB/././N(Og/.///NJOglYXpmJFgHHxHn//NJOg@B/././N%@F(0jOg$/./*F//NJOgx/NX`x` L<8$.&. $nx(|BHxN*PfHxg/N`x` ,*//N,Hy/N8Hx/N&Ogr2*p€pfBHxN/ //N(OgJBgHx8/*B//N(Og*g2/*//N(O gX/*//N(O f4`>/*//Nz(O g&/*//Nz(O gJfJ2g@/*2NR-@HxHn//N(Og/./*2//N(OgJ6gt&j6r-A`XXJfHxHn//N(Og&j6`:(1Z/NR-@HxHn//N(Og^/.///N(OgJXJfJFg>/*FNR-@HxHn//N(Og/./*F//N(Og/NXHx/N%FP L|N^Nu/ o E` /N0X/ N\ XgfJg /N0X$_Nu / oHh/NPNuH0 $//<HxN$@& PgLHjNHj/NNJO fHx/ NP`Hx/ Hj/NJOg `pL NuH / $o$/SRn/ /NNJPfp`SR"j 0H#0H#pLNuH8 $/&//<Hx^N(PgX rNЁ$@Hj( 2N/ /NNJO g6Hx^// /NbJOg / ///NVJOf / /Nx``Hx^/NxP LNu/$/"/ pNҀ//NFP$NuH80$o$//N&( Xg(` /// NHJO f =f `&Z fpL NuH<$/&//N*X`LHx|/N(Pg ` /NXf///NHJO ft `Jg$R`tJfpL 6    nb2 "@pf .info.infocopy( 45b copy of of of copy %ld of ) opJWFNu o /g fS Nup`LfNuLJfS`L / Sm fJfpNupnpNuL / JgSn`SaNuL / Sm fSoB`Nu< n2ABAHA HA0 2B@H@Nu B@H@HABA"BtҁрnRAQNu/$ B$HBHAЂH@B@ $Nu/$"a$Nu/$"a $Nu/$lD"pJlDF @an4gD$Nu/ @p$lDF"lDF @aH$gD $NuH:&o oCE,yNL\NuNu o XB( @ 6    nb2 "@pf .info.infocopy 6Nu/,y"/N,_NuH0,yLNL@ NuH ,yL NL@Nu/,y"/N,_NuH ,yL NL@NuH ,yL NL@Nu/,y"/N,_Nu/,yN|,_Nu/,y"/Nj,_Nu/,y"/Nd,_Nu/,y"/N.,_Nu  6Rl/,yN|,_Nu/,yNv,_Nu/,yLN:,_Nu/,y"o / N.,_Nu/,yLN ,_Nu$<T/,y  Tŝ6 oN,_Nu/,y "oN,_Nu/,y "oN ,_Nu,"/N,_NuH ,yL NL@NuH ,yL NL@Nu/,y"/N,_Nu/,yN|,_Nu/,y"/Nj,_Nu/,y"/Nd,_Nu/,y"/N.,_Nu  6Rl/,yN|,_Nu/,yNv,_Nu/,yLN:,_Nu/,y"o / N.,_Nu/,yLN ,_Nu$<T/,y 7 8;=1@?>=<;:989^mathtrans.library79=Fl%^/@: J! ,Lmathtrans.librarymathtrans 33.8 (11 Sep 1986) "d\#Nu ! &b\$zJn f2"N Q"i"!I"Np0.n/,yN.,_ 9NupNu.f0Rn n f #BHyN$P# NupNupSn f .gap/Jn f/9N7:`\X Numathffp.librarya<Nug`kH dR HA2<(*,< < `(؄*⎚[Zc gRHALpNu.JN`/ "< N"N",*y N*"<@NmR "<ANnbx <@"N"<@N"<BN&a"<N*a>$`,( "<No "N&$a$`$Jf6Jg "<@N"<@N$"Nj N$`^"Nk0J7;jHg <@"N"<@N$`2 N$`& Jf $<A`$<@"N"N$.JNDL |Nu VH@^XTP Nn&lH.rNHLNuH,.rNHLNuA.`A6`A>`AF`AN`AV`A^`Af`An`Av7<)9N`A`~A`tA`jA``A `VA`LAH./rN _ LNuA4`$A`An`A&`A`A`A`A`A`A`dA`\A`6A`.A`DA`.NnXDxB΄,<CNn,.Nf$(< .BJkFD c~䯾o$`D c~DDl`z,)@(Jk ܃Q` ڄޘQ2/j$Rf2a<.,a6gNvL~TNu.<`g,a.JL~TNu/a/F,`(k b |NuRgN t*Tx //N&i /,.<ANv,N^gSh~L@Nu/N&i*/,.<ANv,N^gSh~,.NfL@Nu/Jg0Ri0N&i2/,<AN^/./Nf,NvX,Nu.<`.<A`d"RJ8z@<Jj~`~<L7?~Nu.<AOJNuH~?g$,<;ANni`D o  l", Nud& |g ~f Jf` GJgJ~` ff`O~<`~`xBJg.jD< bHF܆[Jj dRNu!T3~SUU?7 x\C??z,W}bGX@U @ @ MC68343 FLOATING POINT FIRMWARE(C) COPYRIGHT 1981 BY MOTOROLA INC./,y"oNb,_Nu/,yN,_Nu/,y"o / N,_Nu(bHF܆[Jj dRNu!T3~SUU?AWB9^lpBCb}PONMLKJIHGFEDC@9^ ram-handlerABDWGA 7 HB A"B ,xNLBN77$#p(r p(jtN#A $G," p(jNBXr-p(jtN%A\r#At-nҪ\Brҩ`"*\t!r%Ahv ֪\$") p(jNrҪ\p(jXNp(j8N$)!(r#At nҩBrҩ`") p(jTN#Ap(j8N$)!(")t!")B ")B")!DOS %|DOSx%itvt"p(jNp(jN#A`")p0IN&*l$")p (jN`")p0I,N&*l$")p (jN`vBE8$*t")p (jN`")$$0("0p0I \N&*l$")p (jN`d")$$0("0p0IN&*l$")p (jN`6")$&((0H &08$0("0p0IN&*l$")p (jN`")"0p I4N#AJg*$)$0(p4IN&*l$")p$(jN`&*lt")p$(jN`")p0(jN&*l$")p (jN`rҪ\p (jXN")$&&08$0("0p0I N&*l$")p (jN`>")$&&08$0("0p0I N&*l$")p (jN` ")$&x&08$0("0p0IN&*l$")p (jN`")$&x&08$0("0BF"p0IN&*l$")p (jN`")$&&08$0("0p0IHN&*l$")p (jN`j")"0p I,Nvt")p (jN`D")"0p I4N#A#i$Jfr`t")p4IN&*l$")$p$(jN`")"0p0I,N&*l$")p (jN`&<t")p (jN`")p0IN&*l$")p (jN`")"0p I4NJf&<t")p (jN`f")p IN`Vvt")p (jN`B")p0INv$")p (jN`"&<t")p (jN` ")"0tlnvl0xgzg|g4~BG5gBp gtg`gtgvgxgfzg|g6~g`lgt"l6vgxgzg|g~gpg0`,gtRgnvWg0 g g g g gj``RAM DISK`D"#ptf"0 pIN`""0 p(jHN"p(jxN"JfN$v(f "0(` ""0#AtR#B$#jh(#jh,#|0#jx4#jt8#jX"0 <(jN#AJf$$G" $0( <(j(Nr#Aro$J( gv#C#Cx#D"Jg2to(Jf &)xذ8#D"<| <(j`N`")#p$)")$0(( <(j4NJf")#p tg0&J8f$$)G" <(j(Nr#A`x")$)!(Jg") <RV(jN")"0( <(jxN") <(jxN"Jg#i#i")Jf"G" p(jNrN#Q Jf\") #p$)#p((&)x08R#D$)")p((jN")ҩt:")rN"p(jN#Arp (j(N#AG$ #B() &)$)")p(IN#A$)v0(#C JfrN")p0(jNJfrN"p0INJg rҪX#A")t0&)x08*)orN")ҩ t0r:gR $)ԩ v/(")t0#B$r#A($n($)ԁv0(ҩ $)ԁZ&Lfum[f^9^~fontsp[\]\9^g siesta.fontZ[]0_Siesta/11 BSiesta/8[(8$iCBSiesta/9 B^_ƱJedcba`_ 9^x9Z^`!pNu   B  n` c` ?q? |~a`ffag`0`a p3`|cl  !F06~AF0>@0axc0 0``?ƀ` `0 aa`caa`af f3 p0` ^aMI3a ` ab a8  0c cc 10 `30C0`al0g3 ac0 aaa`癆af f`?a faga3xfa (>p0 0l% P6 6xa?xcfac>>? 0???f?00mp|cc?À``06gaa`fنg f  0agaa faf f3 33^bGa3fc`c` 06+ `c1c` 0af0gfa00 Ɇaf 0cfafgfa 0`yf0a0naaa`fy`f` c1a၆aa faf c1a3xc Hc`lgP 0aafxkfa?? 0cfafifpa? `08af`affcaa`f9`1 a3aaa f a33a ^c` (> /c1c ` 0cafsfac1c` 0cfaf0qf`  8?`? |g~af` a?aa f`fap3 lA|c1cx~?>???? 0?c?` ```` 3^dܣc0@0`   ( 2 < F P Z d n x    " , 6 @ J T ^ h r | ^ef1                & 0 : D N X b l v                  * 4 > H R \ f p z                                                $ . 8 B L V ` j t ~              ^$   ( 2 < F P Z d n x                 " , 6 @ J T ^ h r |                 & 0 : D   N X b  D\b                         $ . 8 B L V ` j t ~              fgdzlkjihg 9^z8Zfh2uupNu   dB nNll`0 0||| || 0<|8||<>f|||<<`` `88vfxf>f||~fff~0 fx`f|<l|00f`6JH0ll||l8l<<<<||||ffff|fxxxxxxw|||||~|||||fff|l~f0 ~<|||88` 6 p|80 ~f xffffff`f<<000 f<|6|f l^F^|ffff8`ff0fff0|0l~ 0pp|<| ||`|`88 0|||lf`~8fxf8|f؂x<<<<||||||>>>>8`~~~~~~w|||||~f||||>>>```fk0|8`0<~h`` (08@HPX`hpx (08@HPX`hpx (08@HPX`fl.Lhpx (08@HPX`hpx (08@HPX`hpx (fvz08@HPX`hpxD\b (08@HPX`hpx (08@HPX`hpx (mntsrqpon x9^~11Zmo  pNu   B nll80 `||| || <|8||<>|||<<`88vfxffff|lBB ll?$f̜(ompD#$`f H(f$fl($fll00<000 ff0` l80 f`fl`600f`6$888888l<<<<|||||ffff`f@x DB~ D0`l h`` l l` 88` <<00 x|~|~| |||>||~fff~0 ~`<8<l|~`fz`JH llllllfffff|fxxxxxxw|||||||||||0~ffff`l~v` 80<||88  |80 mqJr fffffff`ff8fvf|6V^6 `flf`~8ff||f~~<<<<|||||>>>>8`~~~~~~w|||||f||||||>>>>````0|8`msWY<0`0 (08@HPX`hpx (08@HPX`hpmt.x (08@HPX`hpx (08@HPX`hpx (08@mv HPX`hpx (08@HPX`hpxD\b (08@HPX`hpx (08@uv~9^siestaZvwe}|{zyxw x9^11uvx  pNu   B nll80 `||| || <|8||<>|||<<`88vfxffff|lBB ll?$f̜(ovyD$`f H(f$fl($fll00<000 ff0` l80 f`fl`600f`6$888888l<<<<|||||ffff`f@x DB~ D0`l h`` l l` 88` <<00 x|~|~| |||>||~fff~0 ~`<8<l|~`fz`JH llllllfffff|fxxxxxxw|||||||||||0~ffff`l~v` 80<||88  |80 vzJr fffffff`ff8fvf|6V^6 `flf`~8ff||f~~<<<<|||||>>>>8`~~~~~~w|||||f||||||>>>>````0|8`v|WY<0`0 (08@HPX`hpx (08@HPX`hpv}.x (08@HPX`hpx (08@HPX`hpx (08@vvHPX`hpx (08@HPX`hpxD\b (08@HPX`hpx (08@~Ư 9^9u~!pNu   B  n` c` ?q? |~a`ffag`0`a p3`|cl  !F06~AF0>@0axc0 0``?ƀ` `0 aa`caa`af f3 p0` ~MIv3a ` ab a8  0c cc 10 `30C0`al0g3 ac0 aaa`癆af f`?a faga3xfa (>p0 0l% P6 6xa?xcfac>>? 0???f?00mp|cc?À``06gaa`fنg f  0agaa faf f3 33~Ga3fc`c` 06+ `c1c` 0af0gfa00 Ɇaf 0cfafgfa 0`yf0a0naaa`fy`f` c1a၆aa faf c1a3xc Hc`lgP 0aafxkfa?? 0cfafifpa? `08af`affcaa`f9`1 a3aaa f a33a ~` (> /c1c ` 0cafsfac1c` 0cfaf0qf`  8?`? |g~af` a?aa f`fap3 lA|c1cx~?>???? 0?c?` ```` 3~ܣ#0@0`   ( 2 < F P Z d n x    " , 6 @ J T ^ h r | ~f1C                & 0 : D N X b l v                  * 4 > H R \ f p z                                                $ . 8 B L V ` j t ~              ~$   ( 2 < F P Z d n x                 " , 6 @ J T ^ h r |                 & 0 : D   N X b  D\b                         $ . 8 B L V ` j t ~              Dz 9^8u2yuupNu   dB nNll`0 0||| || 0<|8||<>f|||<<`` `88vfxf>f||~fff~0 fx`f|<l|00f`6JH0ll||l8l<<<<||||ffff|fxxxxxxw|||||~|||||fff|l~f0 ~<|||88` 6 p|80 ~f xffffff`f<<000 f<|6|f l^F^|ffff8`ff0fff0|0l~ 0pp|<| ||`|`88 0|||lf`~8fxf8|f؂x<<<<||||||>>>>8`~~~~~~w|||||~f||||>>>```{0|8`0<~h`` (08@HPX`hpx (08@HPX`hpx (08@HPX`.Lhpx (08@HPX`hpx (08@HPX`hpx (vZ08@HPX`hpxD\b (08@HPX`hpx (08@HPX`hpx (ԟDlK8 |5}yNv @@@ 0@??+ p/ @??*L$8 @??/x .? @p8$D '^4 @+\L:v@ @@_C/!K,@ۂ90}7~wX" @@;z11??x# @@>x#8 @@yP+p @@P@/!H,$@ '[4+8 @ @@P@P `0 ???/0 /.=\&p0 /.=\?X41N>6p @@P@P0 ???0 /.=\ ( `0 6\/.=\ X41N>  @@P@P H0 ???0 /.=\ 0 /.=\X41N> X @@@ 0@0??; p/p??:L$8p??/x  ? @p8$D 7P4pl0( @@@ 0 @ ??; x p??:L J< p??/x  8 Pp8$D 7X N pP @@@ 0@0??; p/p??:L$8p??/x  ? @p8$D 7P4p  @@@ 0@??; p?/??:L1((4??/x  ??p8$D 7P18( @@@00  @` ?;?/?  @ `  `p"($(( h @@@00  @@?;?/?      ``  p"($((    8i8 @@@00  @` ?;?/?  @ `  `p"($(( ` @@@00  ?;?/?    `  ``@` p"($((   0 @@ H 8'e  @    7C7?;p@8 /opo8 /gp`0@88D$1;xp@8 @@ H 8'e  ?; /opo@ 0 /gp`0`8D$1;xp@ `x @@ H 8'e  @   ?;8 /opo8 /gp`088D$1 EU;xp08H @@ H 8'e  ?; /opo@ 0 /gp`0`8D$1;xp@ ` Ey+ @@`{0ՠ =y//1yty]5U71z6C@I|z+ @@{H0 @@ /u{| @@|}h @@2Ak}~8 @@~~~~~~~~~~~~~~~~~~~~~~~` @@|>xp^`ar>xn~~~O/_ Ao/O?0 @@k~~~~~~ @@~~~~~~x @@~~~~~~lvH @@~~~~~~x @@~~~~~~q]?XX?: @6@`@@@&@@}@h@ @0 h]u ]f  y}  E q U  !K h\ ]  Vc   ?O@l s+@l qB qCA0qCB qC%@l qAC0B3qC8A;qqCBAE qA2 qA0qD]B]qCbAeASCkBnqCsAQ:t'?}9^Sokoban.bb2.bakpq^9m3bAdC|BqCAAOCAANAQALAwqDBqCAACBqCAACBqCAACAAAAAqq*LLLL q.Aqqq#A*AAAqqhqHFGqMQ@Y]qcBVosqy}AGKGsqr䢂 V 䢂qlTqelTA$Q&S.V drl.Trl TA3r䢂4V 䢂sEl4TrEl$TAs䢂,Q.S0\ *Sr䢂( 䢂rIl$qlA,.6 Awsil6rl(A1s)䢂< 䢂slr$q`( $ &((dA[G r䢂Drsjr6, s*,2 rJ2$ AJ$. *(2 66 .( sj.6 r6. ArJ䢂$  46,6 s*(" ( d( d (r(i.$rI ( $, r䢂. d( rd20d.0d(0d,.cs.8 r A^( ),$ CJ$ IBvsI.4I*r$&. )*2 sI䢂4 d.& sId80d40B24cs4> r&AZ. 2* .A rj$A A.$qatXAB A.\\\\\\\\\\\\\\\\\\*(z j z j .XIlA $z j z BA .z j A.XGlAAA6Az j B/j $XGlz j B>DCV(X7lAYAa z B&AX rrlA IrCrCs"s"ls" s$<l @ r rlslAslAs!l As!ls!ls!qlqsl AA trAsrA<dk 5̨/rlqb"yBkA tArrrltaCtarqBqqAqArrACABeBAhtAmNaBA?AqAE>ACABBAtAN'An$q$EoCsrAB+AtAN[AXqXEKB7rl AtaltaArlrsAl AAl AAAsAqrlsrAsArcrarcc)t!rbrCltpeYCAA$A+sA0ArrAzBBAqlsAClscA"csraA&AA/sAA4qcqrrsqAApBBAAAsArArA@d<A2A8d@(dd<$A  #32X7B2X7l z j TA 8XGBa"W] sv EAAAIA.XI $,6.XI2, 2,.XG, $$A5$XGʨ2X7 "2X7$8XG$ ,qd:^$  $XG SA$XG&J_7K>vu~fxfv[^dfntw8XGl.XI ( .XI( .( . .XG.$ $  $XG$ ,2X7AJ 22X78XG. 8A]$XG, * 4XI$ . 4XIA~4. 4 4XG4* *$ & *XG* 28X7AG&88X7&XG4 >A]*XG8 *(A ((j.j($$qe0,,A%AOA> q q q#' /3 qLMqSWF_cqiH\uyqqJNJ qhqH$,$.XI.XI.XG$XG(.(2X72X78XGA* 0  $, e V|  " B F * @, H$XG  qf41   ""**//4499==BBGGLLQQTTTTQQLLEE>>7733////..,,((""    ''//55;;??DDHHLLOOSSUUUURRMMFF??884400//,,))$$ qg    $$++2288<<@@DDIIMMQQTTUUTTPPIIBB;;44//**(($$    ''//44;;@@DDHHLLOOSSTTTTPPJJDD<<55//**(($$qhӨ   %%--44;;AAEEIINNRRUUXXWWTTPPIIBB::44//))$$   $$++3399??DDJJNNSSUUWWVVSSNNHHAA::44..))$$ qi~mx_  !!))0066==DDIINNRRVVYYYYVVQQIICC;;44--(($$       qj               $!            # !    qk                            ##!    qlׁ                %##       ##      qm      !          !                 qn                            qoq    H@(H>ַ%/0/=@M>MY_@?/@/' ²#-MA_tox`jB;* 09=TQpizsxxxdWYOB8 ؿ -0?JWcgztxkk]XXM86- ȿ!%(3?BNNUZ[hgjljutqroljnhf_ZVqp <SKG<52&" ǽ          !  "#'-1/69:?AECGGGIHGIGFGD?A<=:64,,&!"  !        qq=~h' /$-(O0?d'w_@ O`w+|7pOHw 7` ?Pqrj'v7P %Q?P.g ?P/jG@?p?H 3h ;P/b +P'^ Tqsӆ W  O ?0K/@?  'D;* H78M/@G +F G$qt60. 'H .%!   -& )?C+*% 2* ! ! .H $ $%&  & &!  +  &   ) /$ *       !  quT                             !       "  qv                         qw{P                            qx1[y                qy#wi " "      鄄)^YN}QH) 񷮄EM #]Z\tiD Ф >SiEll^V-#ԍ=<U+ ? hQM ^:**") Нʳf )1"E%`?e "gHoF Ҿٺڸֺcq"*haHCqIP0/$Ų$m++a_\6@vлשqz0R ,!aq+k`Ea葻ڼ 1.!#I13 ) ! ;3! '` #  % ,   ""  !&(                  q{JZ    FD>6-" Ż %0:AEFEA:2(ʿ+4>DFFD>6-" Ż $0:AEFEA:2(ʿ+4>DFFD>7-$ ƻ $0:AEFEA;3))4=DFFD>7-$ Ƽ$/8AEFEB;3))4=CFFD?8/% ȼ"-8?EHFB=4+º (3;BFFE?:0&ɾ!,7?EFFB=6,! Ż &2;BFHEA:2(ʿ+6>EHFD>7-$ Ƽq|ºf $0:AFHFB;3)º)4=DFHE?8/% Ⱦ"-8AEHFB=4,!û &3;BFHEA:2(ʿ,7?EHFD>7-" Ƽ %0;BFHFB;3)º+4>DHHE?80% Ⱦ"/8AFHHD>6,! û &2;BFHFA;2(  )<)"# )5  $*  && )q}Z$-  ./  52 :2:/Ѽ3&κ) ˼# )"   3& )5)4/") Jj SGzxvDL;@Ś;0Q`$GSGQ` @,܆Q. _(/ C nE I K "pr248:QCEfp#JC@Q$_'Jvr(II'Lz"Lpf'I~ S@7@Pp'LXH(Ip0C'I 0C'IJ0C'I0C'IA p'H7|?N7|R7|TBkVBSp9@d kAx'H\'P`C q>FVpMr=A=A=A=A=@C =| AC | ||0S@gS@g <` <OM'@r}7@p|7@n0+p@H@C('Ij$z J$| |=|pNuMp=@=@=@=@=|9: 9=| z AC YYYY||NuG l~I8z gRD6K TzJ- gLpU@0;N<d<><@<v<<<<<0;g k-H`0-9s`p-@m9s`--j ;G9G`p@ml ;@9@q΁`9m`0- g2-"mmmmn ;@;G 9@`hmmm;@;G 9m`Np-mpqmo ;@9@`09m`(p-m mXo0<X;@9@`9mK@IQz DfzK`xNNNNNNNNNNN|NNtNNlNNdNN\NNTNNLNNNNNFNNJNN$NjNTNNLNNDNN"m(9Q)mQ=DDM6SkNj\ zp?7@N7G "zRkj "z7G'IX7@H"z0Ј'@ p0Ј'@Jp0Ј'@p0Ј'@Nup?kN7@ Nu-g@#p~gnm;@;s `\m`0p-7@кj'@Xp@7@N7G "z6 zXRkj "zH7G'IX"z67@H0Ј'@ p0Ј'@Jp0Ј'@p0Ј'@`-g-$<g<<g<B$`p-Jkg< d(<g@SS@U7GV`h@S@UPV`X":7Ap|7An2+pI`0--j ;G9G`q|p@ml;@9m0<2-$AHI|A2-t;$J-%kB`B9A-$|<-%`            q΢       J93 3 / z  _3NqNsJ9HC3| 3| zF\"2 z|\#X 3P z\#X3P z\#X,3P0 zj tLNqNsqc6ܖXX(\:}hS@. xqqNqNH"trq;R The end of the Cube;R;R}?rssX;R Cube.txtprX7The End Of The Cube Intro de Amiga hecha por Goblins para la Euskal Encounter 27. t7ui~}|{zyxwvug,;RIThe end of the Cubeptv.4QRHzHHI&TNJg,$! !N. n (gB" & @I<(X/BrQQNqu<>׏.F Ec rh[:|Xdȫ-^=.9U"}$WB/@q|2F+u;P"~]=1/{[fЕPZVOz MQ*DloF"1׼ N@abrEڡϵRTJvr=:! G"Q %ŗrDd33*AflF΋>leF3 o^m;7k`U2hlKcoXTlS"@D!T@ѲF=|kHc6EG d䨀.ʗ7X'>~l W}Yv*@ۀNSTh jh[jZez4CW  12F@&)K<,hd# Pkk>h@ >qκ!B~ JN2H&`CI,$`Hca`N`iQa$Q-lBOÞ@?2{#8@+xr p'ˀP^q*.읂$:!܆* 4d0df&0v@ $)9C ُ? 81 aPdWVį(W rk*X I \P]MgR7Dtz ;Zy2(,1D@@r)'4" Ht =&T`P@l:H `YJ ! 傈3G{hL5Jj:@ 8 REP@2ZwĀT!wFXfcb 8# OЎ1 z6@N!&x{qM0 t8;p ?,WdY/"cP@_aA֫nWGW w耒* ^noT2!7Gp TJ9<sGV`zcTz֥Nn +v/'0fe|(6 "p1;*n=a `AX-XrȐT1=ph9!r7r fA ! K /Ϛht{ :ߔhPPZt>JQdل2 ;Ց@ 4F@P%`>~SCd P!VA x f-ҀB ĥ9I @JAC.3{-9e=~'uW@9/]]iP5k;/9}ANn+]:/ A}>#~݀N M[ }*A[$մQn][5:dtDqE_/&ŇBBîIG1BH @ϑ`Y`FDH 0A0&Rl(|;k"g PlaP+ C,5d  e R $ Y <X8;,66KRԹt|lU|T-A0;#؏j ֒_%3))VPh|%sJvDÕgPn5Bh8_#rguDug\ 9M[Ufz8p+Ix'/ῡP(%2 '@d$ސG+ܞY;x____co//ޯOoOϏッy %599-a5]=OWB-=<<<<|dL<4;;;iwifS_\XgUAMgJF2>G;g7w#/+'wgG?bTB,ߠބb<ۨ|Lش|Լ'Z@lZXt}}/ZٱYFq[Y/Y Cc ڊrR&%X5uExbEkU^uWA%Ju3=&5/u( %?$B`~З4Jbvƍ؊gQQa%PЊMn1ϔϴOUv7))1111)!ѦqQ1y^pEZX,++*)~)(p('`'&P&%@%$.$##" !! lCȃ#ôCqcNc\+c9C"BB MOHhJ4DBC=T?9;4p6802,)P+%' d"E~'` 3kM>w~}/?O_w~t ~melSZAI0'?._o .?سٙ}cI/ϯ̕}eM5'xXu8/7wwB7 >v6vRvpv6,uuuV椶~NƊnF&z~quimnaVe>Y.]Q!ʟɝțǛƜŞġ#å(ª.5ǷWWk|M^O 16v֪2fȚ Fþ>~»N*zƯjOUwUBTT#n:ӆSSkS8r )6(h(IqYhh)hѨ'g糧gEgngWDt߬\Ԥ4̄4ČL$ |`Ôu'ۓCcБ?k%Ws±qt YaQ111QqqbqzslqD1]VOH1!&L!&*#!~&b&jNBN nOGB4B"AAAA AzAk\M?A1$A@@(Xh(XK>}`tl@d@\U@N@G@A@:4/@*@%@ @@@@ @@ H  &-4=EOYdo{00Pp> "%'*P,/247:]@pDG0JNQ   ":Z"ZFrC4KCaCCCCCp "+6kMD[Rkjax?nnqpsruqtawSvEy9x+{z} |~~߀كgp0ذ80wqW162wrW22ٲ:rotkws6^֝6fΪ>v.f؟}ێܠ*ݳ=Pez1Hݜ=5}&XJ]{m]}=Ɓ,If/Mk61_TmxJt ij'O+(841(=:FCOxSPh\YPeb8nk w|xpPFa| $>Xq-EcCܣD3$$dVGxi$Ddd߄̤ 6TME]Tlc{rTd?v^B( ҟtT2ʤZ4 U'UwRա0 $V}WV֊/W yDJZZbbZRK;# 8 iُEI eqŝiQO45m5=䵋6Y&6L򶗶a7*Ot (G'Wgw-!%w)g=W1'59M@GDHK7_S?J*pBx@b|0gĞ^^<__'/7_[3 c;+[{1@O^lys!~)x!! X߁f4 D(3S$:24'LW> KR@ B@ɕJ\"K 4N, *t4z).`:P=u-ǁvKj\%Ow{ B #12 M꿺8 60$?a:p`ʁ A_a\<=((ܪ^[it~ϑx3FuJ%&d\h m9IAP?ƨ?xf݋[՚P # C6XĆRsҢ(WF*Tz@5T8; T@lOZ $T Lt<-PL'8T!`#@X xDKìRy3ȝ}*g;%d2!\gyy _Ȉ  u.t^UteN1 D lЈ MDY̞DDd%Ȗר0HE_5 \2\xG%D?vZJ-BdeJ`Bd/5> `a8:wx+Ͷ$9)YvꞓjXRmH(n@F>:ZZWA̫Fa ` ];0=@¥(8+ÄqaЁN=5hNCЊs 6c>kH I"֒%d[𺵤@[pΤ{Sj NHJ-C$N)v]V&SIрu c O1̜k6b6OQ@nʦoFXbcX^-ӍE)HRfa^d+IO놄цQ ^ rbsp$k)xb!˂u+!0tj R.pl\F . vI,⁤SZxZ K=0nac)27!;=MX c!7Y ub'9asI,ƳF 05l ;-#=2y3+V:c4hqsz0r2*R'Q;|;9 !Pm0LD__Sk28p/CĝQ7{;A~._| (˞d%ԝ3~92 iG{dS o=)2Fg dA1x1s% E#A`$?#{# HGF#t?rd$>0fA)`hpP`tXD ?G BD  jJk0@UkI*sIa8E A@A@BF7Q9laFG 28/rX0j%[W#>7 XOX,2y،`:%&P,0(p:Gv??,_ߟx8*K}x !dT!dd0C,5#`8VCdPp3rPt1q&E!۝| ( O$af@"f Hщ<6Cd9`9$H|JR *AIRR* C !PSd T"K*`B2`mpA'h5wE \SN\7 wu>&8&LQ xpVْ[K mٗ.5^\kִ?p@5LPFJtf6ѫjN"tsF1:YNthÝtF:0ћfNts]9* ހNFr2N C!SwMɡÍ+y~Ȝ|+l8+ f *ɟv4|}i,:3?<{VgA ;;ILiXrZ\k j <ApKVY2qitO,`ؕ; OHO 8\AX1`(}~H !Y`4+;_X=6Z`tu<|_H"01Gon>a$@:NTu@ =+}, $Й!ϣ$G%ꄸ(p*Տ9#\*k qDG@Z4)@G)R̺(1 D4hqʆ%K yY88`=3 x >ho} P^g P#0A|w #0T@H6D`x /`HG HPB*P8$@Wx4az=OG `.vlp`hT\@H,8   4~2 E8x"<_f` vk?KJ9ݿHCdgԿ, HiUChUhrDq4A t"3m@=4?>jjsZ q|X(\:s'yp O2?Iu? MpRzk5SDP^p!/oO2<'( & P,~:A!@\~&/H fFh ?N@A`'y `PN="͞K I< |NP { |X.gySC䴁?OŏFK?.$ nGސC|xurLr@<%;.7HXCJd)|o&CPyε8. >m@9 _=Ot@xG *6n4$i~?%P**>b3;?t~)>:`{0O]" o=p&Lr@u!W G9;x9 І `OsO@M}<; hH ` 4 ` ? PXe`';[JP U-H ~%@K 4GD/ jC>'<@`, EXqZt4<$E >~%!z7a8 t4BpCc#+}:N_IzSp`rhR*<5t~ nȗNj%` `p4K'pNӲp(nӅpN8f ]t9nӺpN5>+Gt.SdY8'5VN ݓt9+{d8+@K+ ]p O}yj1HD[ˆG#H//v@B{ˠ_ȸS $GƋG寨 tD+\8 Tb*F" @8IA,d`,K SX1*IYdG>a7`u!rPLu# ~Gz9fqF t-l!^WC3Ad>+@x @ ~vBA<UЮ[ @4 trl %Tk*ُ@1./bD@ _0( >.dO[8q?B1=?vg? ڀb*a$OU~W7c8ƴ^7|Xg}mNY@c|Z=|!E^@ uGIr*B& dT ~<`&X [:b -^Ls!<ZL;&CH &D%4 zO@ PDxG13Q+t@JD}M#? ;)p;I8B%G( BV ;o`ϙްJF")Ria,_6X Ĩh0|GCgu'~z?Bzh<8pYgĠD_wt[\İKk$BB`wx&XRXf7 yr({׈  co,8BHR0J?ǤEPCK$$yYԽ Z%؂$ϻ;D$R2S(?W+c `HZde-x1-ncAXQ ʡX |&BMf!pEw 5Fʠ1zE!PĴ;GHH*UzP8`GL  6H)J`1JK p^ a O{W`I 4 ]`O>i1%`Odz(.8t=0%%(@~Q*! Vb;PN!+ @*Z42!Vy]-h k !_&/!t_4ұkܯtt׌M slrLx ` ŀU@*W@@<| Dc4`$+`xm6UAhM`UpNY@R"9PG{=80tX-WH,\E Z)<嘘n'K0-ZU% `55(PN J[e' Z@JpAw\A&p@@yd8B"<0-@n0j,|-Q8*r *-_OJ6ʮǁr}"GX"M{b)q8@jD*Pgb*-_1m$!Yx k0MDjŚF":}h9=%WkHlV[rpdw9YAs0+p(fTlyx )3/aY @Gt_>hsA` _(UiO|A*5aLI= mDb>P""#`|Qͦ{ $ 5E VH 균pO8D ЀIb0O@n%`D`vcn )S PaF?=& /Gv֊J]Q-őB׏)[ 4!!?Kzo@a,P'x>&1&*`GUPh<lBsG=#tQnɅ$ .KPB=@ۢ{4bH `qL-dm@<7f_8v)wCQ#TPE)ÁĢ@51$xW3 <]@{<8(5@ ,IUHRBBI&Y+EңA%8/Md VRڍtR>BK[HA"mnm%%+4@jPV%` RÕ8J~ t tc$6@)6qP.l):U1)X Znc tPۼtΐt2\臮L)_SJ?!VJ  vVcF)2PEc%Ax-%CBj3- RacxeAPF,"!+zd [ Ay ,Z¶HP8X>2  #.elEz??XNvҽ>%5>ൟ%%@UJpvE?iu0e '0D@$} $X4?>  lPR6N9F! \{nJ @|i/h9@=_& jAr@| 3ɃozrN.d+݈)9y3cPC@n)d!?L]t oP: yANbugyDd7;grpdž4%p' 9?&px@JY?ޘxl!:TgMeǵS$Kwp Q #|0? y(@?Pb Zvu} iw՗:u8e?{o"16 tOq,H!+] v;dl3Ͳ%/=V DEXy!ܻv#31b!/@oË % /Ƴeg-+ 6&g63!ǃ+GkNSt!Dr  0*5 E8tHF -o۲T03ʀ -hT<+Ɓtu@qkɵB@dx.@ Z8@:ԥw<>p0B])_'=t"V2۫p%=ρiVo ۀ=GmK##Czu~8P:?²x@t@?)cI B BmI  ?p}J^BA Q`eb7q>?4?A`ApF}V?ȀŃ˺W %!XΑpS N pW;p)U} ?GȖô2S~xN@26) ևjpp#Ց{+(NZND ؔx7DPK K c>>8>KW¹X '7N|?<[$MMt= AkMy zpoQBeF?~sYO$P`|̑P׾8+\j͆|0mbȋS\e~'ݓU~$7󧀳*2ܽ6`?瑜2Vr9 PyxO0Y xD:nwfو|`)x THӀK ! bH> PY,HB+__3NQ K?g=u#-0|(s)fG`GYBxa4Bl 1-\8 m@1Yz܀@9` SUDŽɬRK&e3@**σ珃Ayc @E*pslTed| \Rb L@gEI@|v]9-:gal-De/ԧ^N@:ߗ+qa2!wI|;yIW1LxWKnp8PéHQ^)g=ɇ~SS$ +{Cf{Iˠ/8 c`H."<Y>d_^bku,LNRLC|ZI1t%2E RhL>8Ee2U`Ǒ'xJ&w%PQJt5 hxqj͒5z˱+/Z?z.W*t'Jklk5l 7y"H oGXg1H`3* t]˱b iDA bNa1ܜ Hg qEҐ*~cI} `a(= 0u6(HlK= E%6ZP t? A|M% /עT Jb`z7m<ʱG|Vx@S8&6د%K[ h-P(t{ PH%@`iCzI `P(d4&\Bb%8f3Bk]?cHf}644C(["@Kܰ 1 J:1K 3}Z'l 4@% &o*K+qf. 1}2@pZ  R?-{ 5z? A 2^Rؠ!g) ZAra@"@*Eަ&/IM|ut3&`w I@`2CJ1AF ŏA& skB"I^IT1k:?&T&4ű~Cd%c QӓlQ Scz>Tt); 98^ Op@`1$Ǚ9{+A9 @eN:Lʊ1$Kv,(L8URJf7J2Y3F.#Ğ 0:Lk9XLFఃJE1HIh/g\R1{"^%qovVx2ؚ`luĤ|{b\=ϭ Z湠)&,@ Ph䑀G3JQJDqyX@; * @@R&c%"I0 I3Ut~7(L bqE2.n%3krU H4_0f2L35g)f2SL WiAbd1, QVd1^qJy%flRIJY)tIe n4dZP -@m,[@,*'%z6"W¨@6bIFt*EV 6V qÈ`rp Y _`WrMt- BaB7G%D_zǯhB!k0d) W¼P 5 0!C Dc6AgGvLz& R棝4b.PfC1n9R$4v@(N[ *ғ %%91- :N#-A@h!`)J!AZ ^gXȬ@Ukvqb[0|K4}q!~Tч~Thx'df0{+?[-ׄ!|]O_HyMl_Ra}9g#_/:9[?1,@J.|&r0>c?ɱ_ rC XΏUZ%+AXR %)^r,mx#'^1/0|Y!BU?sF'uLOza|iH2 3 -20ŰC, t,bbb" ps, 2|1XdHfH$J q3="& dqrI 44-*iS@tyJI 7u,7Ds9 tfIdT+|2DH9A6L«\H3{K2Fr^$k:@+jP½Fh.ŇFyP$c &BPj4ߎPCULJ5 H *:'H[ ,leC#L ^dL[E[O(tbx> Xx&`TCɮY:GKYF2ǃP (" ff-wX\ƽ=JbX1ߏʖE359`v Y[2`hv~Y?'pzKԨ;X;s&Rt2 vt-2.fV8  fαPh̻$ Z*ǏmIa|Q[H| ,_`!2.Ġ?E3LAB! Dlcsyp @#UPA\ZbM+TIIxX""%ݠ %%@:@}*l`&&G:0\*LtnrgF7ѻ_TS$@B6N4Dd P`DFeVTvHH^df`JV< D D T3"{"&&2*.2@226Oj20txC|C}!7(+WU XUX+ua&ph*ugX|>9@ #PQQCYNV4ExqPCV˅N[dXt.F/&U[`X@]YXEU}W+*Uh;9^ <<IG`A+ʀ+> [+}?ቃU\-J܀̭g+`z9J\uc<|&2=W@6elVށ=a;@@ Y.@t^Dd @LPpMp(Ts0 *Z;P@=V?l-N !0K #2U%`=xQp@ z'A!0O^P'B>"a]R "C'ߗNp4鏪\:^ӥ(h-4\14:*+t/H@$ 5]U\ȸ]RFH+X?o`&V Uru\G1 $(V̡OuPEK.5(EF*w-TP/6F+yP! >p0AȩwFAˁ@,.oFiD@iY% ^%AiAhA"&|E̔~x4 ##OڎP7 B-ɡHfw =M' A*@U^ba97Đa_ QCbҡ18,h ʌE!I>u: /ʂd70\B1W 2#UY8dh̗^D3A*iԾi4V#঵G =9G2UZIT qTC"A@ & B|*1d #'0#@}}x9UXGW -@¹*7"pP6"?ixx.ՂDOqA,Ax!H>. %DLjH<.rHyTC^rXGB'kN:ziENITD@ }sj9QZDE@RYU݉6QQ*>!YyRGE!cq >*eI$6 E%DN!dⳑb]T$QR*e"әVSTVHTE5rX [.KЭA?wj_UZGp?&ZIx-n @ D $J+hA,h;:AP^%& W9Uh ps@V& rd1#t2V OYA!B"C{&0 Af2GX"gcQ,يga3{=uv:i8D- \Pd o4zIn FZjfeL$]pFOqNl& Q 3\1L$F1baP%ٓ%f `NOp 6@_\p $ #2dL*X(h &Qf8 f؍y0ʆJ3adDX6 T2'N!)% @%򆝻LdH X(@8c[ +!S`@Y ȌO!} J A"8h } BA H0} :@Xh }p 2@ h} *@xh }t3U$ "!@ 0}  %@bh }p ܂G< /AkGTAGAuGAeG_}m_G}O}G7ѿ}kGw!O] PC*M_+ @"dq2.4=6989x12S>EfBsҊ۝+úI`3s$4"qq̈́1OtS1b w`a.M?"8&{ _No̘'˧P>D2.dF BKsV_h8KP$cCq\I%U=q- h=8&xt48wD@Z loneo!9ws?"*~}2[mx:TZ7}Qїa|"~yP0Vp`X:/8G@/0!˿ ǧh3%F>tL=\(&Ŧšŀ#~{hI} KJ7ɞR؂A {zހTz)QR` \IhABY2 |d{ɤ>Ґ >#@(&ңNNUk6"LϺp! @W4ȄS(e_"xBo.+Np#y;JeΓd-jHP1g66L`   P‡: C'T(N*&Eu,u J KOZ,kqƸSuVA g_1\"9$•`,#M Ԫ)*`ЊŁIt5gUfֹ[|);]x)T B=B SP6$DiId"R/OPÜR\3r'*C5SKg_{o{.n7ޯ 0 1 >rP4D_\]Z[XYVWSRЏOoE)xR1!/,̫%:!#+Q +(O?PXx.(?0 =лwv:04 iJhM-! ;O*9Z'/HB%S׶OGZH!&v))9rP@ౚ_/W'pxikCC 9` Ŧ|n}*jGW;82C,#=+7T'>se-R܆]:]= IZ88~ =ʤ%a=q,\!@ Ot6!-4R4D)ɧA'P읠!^}$A`@33`.apo_/!?,vt>@ X,R:664?Ă|%`qQBAm>᝖ {$~s\a d y }970 ,o0G)(xpy@1ZWw/0i8[>}aa$⇇^BIeh%%D\\AlD֙ `PX?-p D0X zVh X~?@0 0(h 0 LC3ߤ"#Ť?"!!!H >Di!\Fa~']&pHLK tPO |n DL:x)x6VL**`c._I.,>2BF Ɋ t7<UcCIHEi/w>=6 ~ x:TZ7}Qїa|"~yP0Vp`X:/8G@/0!˿ ǧh3%F>tL=\(&Ŧšŀ#~{hI} KJ7ɞR؂A {zހTz)QR` \IhABY2 |d{ɤ>Ґ >#@(&ңNNUk6"LϺp! @W4ȄS(e_"xBo.+Np#y;JeΓd-jHP1g66L`   P‡: C'T(N*&Eu,u J KOZ,kqƸSuVA g_1\"9$•`,#M Ԫ)*`ЊŁI;R spu>;R startup-sequence|"The end of the Cube" sX;R Cube.txtp w9;R startup-sequence.infok$@k@k&@k@kЀ'$ o@$<@$ @t @I89HHDG8=`@` 8 x$D % $D % 8$pvUvUpCT0pppp00ۻۻ$heMg( @I8G8 vUvUxcV0?pp6pvp00ۻۻ multiviewFORM8ICONFACE??IMAG  H|p@???߫?ߋ?k?K?+? ???ޫ?ˏ ?k?K?+? ???ݿ?ۿ?ݛ׿տֿؿڿ޳ܿޓ޿sS3ݳݓsS3ܳܓsp(@vUxcV0?pp6pvp00ۻۻ multiviewFORM8ICONFACE??IMAG  H|p@???߫?ߋ?k?K?+? ???ޫ?qB.????? >-?x?Ѐ?x?P?x?>p? X P?pp88p??pp88p?>?pp88p?>?@?pp88p?>??x0g?0 0 qCP*?x?0 0 ?xgp?0 0 ?xg?0 0  ?1 ?,X@?3< ? 08xa? xa?&0a?9xa7  8@?qDnd 8@?- @?2 8@<< 00E?I 0G??0EH?I 0E?0<080?00U_??0U_?{00U_?0< F?0qEH9 ??F?0 F?` 0 98?` ?x 98 ?g<0x9!(?x x 98 ?@  0 <?@ ? ?< ?_ ?$?`  0 @< ?@10%L?Q$?00?qFy'?n10??Q4f100%L7@1`U?@?`?nT18F?Q1`U <<@?5 `}D?j>?`?E< 1WD?z!>$T`}DX?@?*, p{ ?@ ? p qGk?G    ?xD?*, p{  ?@?5\ 8Qx?`xP 5H ? 8]    <( 8      P# 8]?U#@  @qM`<">"!> #>!?!qW= t?( !(? ??/?/??/8888888888888888888888888888888888888888$4$0BqXx[3ڽ6 6 sc H2$hu   3<=#< ><">"!> #>!?!H-l#     : cube.exepeIou.@@R@@@uav,x.)gK6NpC2NhJg*@#b,M#"f#&jN"3 aa09|3v09|3t09|3r#lnat3HaLazaX##23333)zl"z~N"a6a2"N,xNbaDpNu4<3333NuJy9f0<8"9I@fNuNzNsgraphics.library,x <]"<N:J@g#aNNuAxʙpN^a33p"$&(*,. @"@$@&@(@*@ 9/fahaaaFaNNVNRyRySyF9fNZNu,x"y <]N.NuNu~ 9A,1@H@1@H@м(PQ#I'aa ACaF#ByNuA <-"<t|~ мQ҂J~QNuE~$<02¼HIa$$<02¼HIa$$<02¼a$QNu ygA\C~"ӘQRyaNuA\EN~ "7 Ҁ Ҁ4XQAL1h *1h2NuA fE~)02$<a$QNu&Jg ¶nҼNu"yC99f#D3f#@#T3( XC($IEp"$&(*.<HEQC(99f#T3( XaT99f 9м # @#P#T3d3f3- Xм(99f#P#T3- Xм(99f#P#T3- Xa a aadaNu yf*Ca`33ACkaf yf*CTa,33ACa2 yf*Ca33ACa yf*Ca33ACa y f 33ACaNu092949y ye3y ye3y ye3Nu^"yC.A~ (:02(4(BD<1@00XQNuH,|><E|B&R J"PL0X"PL X"PLCEBDJ@l #(` yg,E3`Jyf(m 3`By02+GA&jL GC8B:C y"HaN0 2 &jL GC8B:C Ia20 2 &j L GC IaEQLNu09y @'bDy @eDy3NuLAHA,~1@H@1@H@м(PQNu yb,ACPE~) "ҁЁ"0QRyNuH y <"<0R@f"H00YI0p2!DA0R@|qfLNuEdG>9GA40pC61p| 028:š6Ё66Q>9G40p61pG\$K| 27Z08:˜Ҁ66Ҡ6QG*$K| >9G40p61p6028:š6Ё6QNu yf3 y,f3 yf3 yf3 yfa yfa8 yfaNNuJyf3Jyf3 3NuJyf33 3Nu33 3NuH9gx9F<Of l(d`<NfJ ^o d 9|r$9|@g0QLNuAgoCBB:BH’C(ւ|4 Z| JHBJ@k@o4<A@`4< SQ`D@@o4<I@`4<UA86@o|2@|H|B.f P-B@-|D-HH=AR-HT=|(`=Db=Cd=|(f-|r=@XNu ~ ~ ~ ~ ~ ~ h 222222222222222222222222222222Nqp.8@fv>LVjr        " & * . 2 6 : > B F J N R V Z ^ b f j n r v z ~  N        " &o$*0LbV^dt~T\hpv| $.6<BNTZ`hrx4b"LX^  z  \    $ , 6 > F P X `@h(222222222222ddd22222222<<<222222222222222222222 yo22dd222222222222222     P  `/  <Zx%Ca ~ * G d *Fa| $>Xq-E[r  !'!";"#N#$a$%s%&' '((),)*:*+H+,U,-a-.l./v/0112 23344556!67$78&89&9:&:;$;>??@ @AA|ABrBCeCDXDEIEF9FG(GHHIIvIJ`JKHKL/LMMMNiNOJOP* ٙayPQQwQRSRS-STTqTUHUVVVWXWX(XXY]YZ)ZZ[X[\ \\]H]^ ^k^_,__`I`aaaabbvbc,ccd9ddeBeefFffgFgghAhhi8iij*jzjkkekllMllm/mymn nUnno-osoopDppqqRqqrrXrrssUsst tHtttu3uluuvvKvvvw!wUwwwx xQxxxyy>ykyyyzzFzpzzz{{9{`{{{{||9|\|}||||}}:}W}t}}}}}~~,~C~[~q~~~~~~~ 1@O^lyseWH9)~~~~~~~|~f~O~8~ڬF~}}}}}}f}I}+} |||||m|K|(|{{{{s{M{&zzzzz[z1zyyyyTy'xxxxix8xwwwowjjjRjii`ihhkhggpgffqfeemedded ccYbbbHaaa3``x`__\^^^;]]y]\\Q[[[&ZZ\YYY*XX\WWW$VVQUU}UTT>W==\<<`;;c::e99f88f77d66b55^44Z33T22N11F00=//4..)--,,++*~)y)p((`''P&&@%%.$$## "!!l WB,s[C*jP5qU9  q T 7mO1fH* }_A#wY<sV:tY>$ }cJ2w`J4ߪ ޕ ݁n\J9ر(ס֑ Ճvi]RH?λ7ͳ0̭*˧%ʣ!ɟȝǛƛŜĞá#¥(.5=¾GͽRؼ_m|';ƶPܵg &Bѱ`0Sx 1ūZ彩pz&Fݨu >צp @ۤwMꢈ'ơeF蟉+Ξq^NC뚔=晐;昑=闖D򖡖P`Ôu'ۓCcБ?k%WЎK ɍI ˌP׋`%늱x@щd/ň_,ɇh8 چS&Ѕ|S*ۄiD كsS3ւcH-ɁoZF2 ؀Ȁui^TJA80)"  &-4=EOYdo{Ѐ(ғhN8ז'xɗmgehoȜ!{՝0CZvա5X~E rئ= q٨A{O$gԭAhװG' {`ҴF-vbٹPȺ@0" {slfb^\[[\^bfkryρЋѕҠ&Ӭ2Թ@N]l}ڎ۠*ܳm%0=Pez1H`x6Pj-Ie,If/Mk6Tr<Zx%Ca ~ * G d *Fa| $>Xq-E[r  !'!";"#N#$a$%s%&' '((),)*:*+H+,U,-a-.l./v/0112 23344556!67$78&89&9:&:;$;>??@ @AA|ABrBCeCDXDEIEF9FG(GHHIIvIJ`JKHKL/LMMMNiNOJOP*PQQwQRSRS-STTqTUHUVVVWXWX(XXY]YZ)Z^&Z[X[\ \\]H]^ ^k^_,__`I`aaaabbvbc,ccd9ddeBeefFffgFgghAhhi8iij*jzjkkekllMllm/mymn nUnno-osoopDppqqRqqrrXrrssUsst tHtttu3uluuvvKvvvw!wUwwwx xQxxxyy>ykyyyzzFzpzzz{{9{`{{{{||9|\|}||||}}:}W}t}}}}}~~,~C~[~q~~~~~~~ 1@O^lyHC~wa PQLNu :""䉳"#rxH@<2 :x""䉳"#rdH@23@ :26F""䉳"#"<H@R3@ :""䉳"#rH@T3@NuH"z Cz@99f#D3f#@#T3@X99fC~w zAz@02)4)6)&zG.xdBD<3@мҼ Aea`aiaPPQL NuJioxNuH4JI҂2FLNuOS(=HJyFf3FA0:Jf3D0:A  g`a$<@":Ҽ#*99f#D# @#P32d#T3*f3XRyDNu :м#.":צfҼ#99f#D# @#P3d#T3f3X :bм(м#":VҼ(Ҽ#.99f#P#T3X :м#":Ҽ(Ҽ#99f# @#P#T3UX :м(м(T":Ҽ(R99f#P#T3UXNuC pr`RfC01NuABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890?!#@_~+-{}> PARA ALEJAR O ACERCAR EL CUBO  \ "$&(*,.02@BDFHJLNPRTVXZ\^`bdfhjlnpr0bXdz.N\NuNuNPNuNuNuNu@ . n HJ9M=| =| alLNqNsM P61AgY?pf0C,JEp@(f,IYG 2<7A7AH7A7Ar(/I SAx(8jDDK D,5@)F85@ĝ`&,J(jJk0U@k*I””Q8tvp0k:@*F(8`(88pBJ8JjkJp@(\G_gB>Jj SGzxvDL;@Ś;0Q`$GSGQ` @,܆Q. _(/ C E I K Lpr248:QCEfp#JC@Q$_'Jvr(II'Lz"Lpf'I~ S@7@Pp'LXH(Ip0C'I 0C'IJ0C'I0C'IA 'H7|?N7|R7|TBkVBSp9@d,xp.)gKN'@ kAx'H\'P`C  pMr=A=A=A=A=@C =| AC | ||0S@gS@g"x )<g <` <OM'@r}7@p|7@>XPbn0+p@H@C'Ij$z P$| |=|pNuNzNsMp=@=@=@=@=|9: 9=| z AC YYYY||NuG l~I8z gRD6K TzJ- gLpU@0;N<d<><@<v<<<<<0;g k-H`0-9s`p-@m9s`--j ;G9G`p@ml ;@9@`9m`0- g2-"mmmmn ;@;G 9@`hmmm;@;G 9m`Np-mpqmo ;@9@`09m`ܘ(p-m mXo0<X;@9@`9mK@IQz DfzK`xNNNNNNNNNNN|NNtNNlNNdNN\NNTNNLNNNNNFNNJNN$NjNTNNLNNDNN"m(9Q)mQ=DDM6SkNj\ zp?7@N7G"zRkj "z7G'IX7@H"z0Ј'@ zCGp0Ј'@Jp0Ј'@p0Ј'@Nup?kN7@Nu-g@#p~gnm;@;s `\m`0p-7@кj'@Xp@7@N7G"z6 zXRkj "zH7G'IX"z67@H0Ј'@ p0Ј'@Jp0Ј'@p0Ј'@`-g-$<g<<g<B$`p-Jkg< d(<g@SS@U7GV`h@S@UPV`X":7Ap|7An2+pI`0--j ;G9G`p@ml;@9m0<2-$AHI|A2-t;$J-%kB`B9A-$|<-%`L'                   J93 3JWt / z  _3NqNsJ9HC3| 3| zF\"2 z|\#X 3P z\#X3P z\#X,3P0 zj tLNqNsXX(\:}hS@. xq 9!?.LR>>>>>>>>>~~~~~>>~~~~>>>>~>~~~~~>~~~~~>>>~~?>?>?>????>?|????>?~?>?~?>?>?>~~>~>>>>>>?>>>>|>>~~>>>>>>>>~>>>>~~>>>>>>>>>>>>>",!>~>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>~>>>>>>>>>>>>>>>>>~>>>>>>>~~~~~>~>>~~>~~|>>>~~~~~>~>>~>~~?x>>>>????>?>>??>??>>???>??#<~~~>~~>>~?>~~~>~~>~?~>~>?>~~????>?~~>>~~~>>??>>>>>>??>>>>>>>>>>>>?>>>>$;>>>?>>>>>>>?>>>~~~~>>>~~~~?????,,8B           % w  0   yyyyy&yyyyyyy y!y"y#y$y%i&j'Z(;)=*-+: @6@`@@@&@@}@h@ @0 h]u ]f  y}  E q U  !K h\ ]  Vc   ?O@l s+@l qB qCA0qCB qC%@l qAC0B3qC8A;qqCBAE qA2 qA0qD]B]qCbAeASCkBnqCsAQAdC'j|BqCAAOCAANAQALAwqDBqCAACBqCAACBqCAACAAAAAqq*LLLL q.Aqqq#A*AAAqqhqHFGqMQ@Y]qcBVosqy}AGKGsqr䢂 V 䢂qlTqelTA$Q&S.V drl.Trl TA3r䢂4V 䢂sEl4TrEl$TAs䢂,Q.S0\ *Sr䢂( 䢂rIl$qlA,.6 Awsil6rl(A1s)䢂< 䢂slr$ $ )&((dA[G r䢂Drsjr6, s*,2 rJ2$ AJ$. *(2 66 .( sj.6 r6. ArJ䢂$  46,6 s*(" ( d( d (r(i.$rI ( $, r䢂. d( rd20d.0d(0d,.cs.8 r A^( ),$ CJ$ IBvsI.4I*r$&. )*2 sI䢂4 d.& sId80d40B24cs4> r&AZ. 2* .A rj$A A.$*1AB A.\\\\\\\\\\\\\\\\\\*(z j z j .XIlA $z j z BA .z j A.XGlAAA6Az j B/j $XGlz j B>DCV(X7lAYAa z B&AX rrlA IrCrCs"s"ls" s$<l @ r rlslAslAs!l As!ls!ls!qlqsl AA trAsrA<dk 5̨/rlBk+lA tArrrltaCtarqBqqAqArrACABeBAhtAmNaBA?AqAE>ACABBAtAN'An$q$EoCsrAB+AtAN[AXqXEKB7rl AtaltaArlrsAl AAl AAAsAqrlsrAsArcrarcc)t!rbrCltpeYCAA$A+sA0ArrAzBBAqlsAClscA"csraA&AA/sAA4q,qarrsqAApBBAAAsArArA@d<A2A8d@(dd<$A  #32X7B2X7l z j TA 8XGBa"W] sv EAAAIA.XI $,6.XI2, 2,.XG, $$A5$XGʨ2X7 "2X7$8XG$ ,$-h  $XG SA$XG&J_7K>vu~fxfv[^dfntw8XGl.XI ( .XI( .( . .XG.$ $  $XG$ ,2X7AJ 22X78XG. 8A]$XG, * 4XI$ . 4XIA~4. 4 4XG4* *$ & *XG* 28X7AG&88X7&XG4 >A]*XG8 *(A ((j.j($$,.}R6T,A%AOA> q q q#' /3 qLMqSWF_cqiH\uyqqJNJ qhqH$,$.XI.XI.XG$XG(.(2X72X78XGA* 0  $, e V|  " B F * @, H$XG  /(%q   ""**//4499==BBGGLLQQTTTTQQLLEE>>7733////..,,((""    ''//55;;??DDHHLLOOSSUUUURRMMFF??884400//,,))$$ 0 w    $$++2288<<@@DDIIMMQQTTUUTTPPIIBB;;44//**(($$    ''//44;;@@DDHHLLOOSSTTTTPPJJDD<<55//**(($$11   %%--44;;AAEEIINNRRUUXXWWTTPPIIBB::44//))$$   $$++3399??DDJJNNSSUUWWVVSSNNHHAA::44..))$$ 2aJH  !!))0066==DDIINNRRVVYYYYVVQQIICC;;44--(($$       3G              $!            # !    4 g                            ##!     5,               %##       ##      6^     !          !                 7 V                            8!c    H@(H>ַ%/0/=@M>MY_@?/@/' ²#-MA_tox`jB;* 09=TQpizsxxxdWYOB8 ؿ -0?JWcgztxkk]XXM86- ȿ!%(3?BNNUZ[hgjljutqroljnhf_ZVSKG<9?\52&" ǽ          !  "#'-1/69:?AECGGGIHGIGFGD?A<=:64,,&!"  !        :>z_a' /$-(O0?d'w_@ O`w+|7pOHw 7` ?P;*'v7P %Q?P.g ?P/jG@?p?H 3h ;P/b +P'^ T< W  O ?0K/@?  'D;* H78M/@G +F G$= "0 'H .%!   -& )?C+*% 2* ! ! .H $ $%&  & &!  +  &   ) /$ *       !   > Ϳ^                            !       "  ? ,                           @ ׹                          A Z~                B,rZ0 " "      鄄)^YN}QH) 񷮄EM #]Z\tiD Ф >SiEll^V-#ԍ=<U+ ? hQM ^:**") Нʳf )1"E%`?e "gHoF Ҿٺڸֺcq"*haHCqIP0/$Ų$m++a_\6@vлשC. ,!aq+k`Ea葻ڼ 1.!#I13 ) ! ;3! '` #  % ,   ""  !&(                  DkY   FD>6-" Ż %0:AEFEA:2(ʿ+4>DFFD>6-" Ż $0:AEFEA:2(ʿ+4>DFFD>7-$ ƻ $0:AEFEA;3))4=DFFD>7-$ Ƽ$/8AEFEB;3))4=CFFD?8/% ȼ"-8?EHFB=4+º (3;BFFE?:0&ɾ!,7?EFFB=6,! Ż &2;BFHEA:2(ʿ+6>EHFD>7-$ ƼE' $0:AFHFB;3)º)4=DFHE?8/% Ⱦ"-8AEHFB=4,!û &3;BFHEA:2(ʿ,7?EHFD>7-" Ƽ %0;BFHFB;3)º+4>DHHE?80% Ⱦ"/8AFHHD>6,! û &2;BFHFA;2(  )<)"# )5  $*  && )Fl$-  ./  52 :2:/Ѽ3&κ) ˼# )"   3& )5)4/") !    ") - ,) "  ! &  )  *  -  $2 )3 .J4 345- 8& )7 /2 3' "/   ')  $        %  ( $#KhN          '                    L59                Myw Nyv}  !"# $!%"&#'$(%)&*'+(,)-*.+/,0-1.2/30415263748596:7;8<9>=H>$~}|{zyxwvutsrqponmlkjihgfedcba`_^]\[ZYXWVUTSRQPONMLKJIHGFEDCBA@?>9& ZMain.exep:?;@<A=B>C?D@EAFBGCHDIEJ~FK|GLzHOvMN[ZYXWVUTSRQPON9FF Glenz.exepNHS~}|{zyxwvutsrqponmlkjihgfedcba`_^][ZYXWVUTSRQPOIPtJQrKRpLSnMTlNUjOVhPWfQXdRYbSZ`T[^U][\H]1~}|{zyxwvutsrqponmlkjihgfedcba`_^]9FLupa.exepV^YW_WX`UYaSZbQ[cO\dM]eK^fI_gG`hEaiCbjAck?dl=em;fn9go7hp5iq3jr1ks/lt-mu+nv)ow'px%qy#rz!s{t|u}v~wxyz{| } ~ -,,82       u>B :Fstartup-sequence n Pmain.exe :F9startup-sequencexqCqDqEqFqGqHFuuqqIqJqKqLqMqNqOqPqQqRqSqTqUqVqWqXߤ.' Ae q <???qYGM??=?9?{?{????????qZ ???????????????q[&?????pq\þ=???????n9^Sokoban.bb2.xtraph8+c (2&> 2<5%CG H| d pz`^ t L uRE$I}9^Sokoban.bb2.bakp^; Todo list: ver records, cosas asi3.w;; Variables globales;GLOBAL_HRes = 320GLOBAL_VRes = 256GLOBAL_Depth = 5GLOBAL_SLICE_TOP = 44GLOBAL_TILE_SIXE = 16GLOBAL_LEVEL = 1GLOBAL_MAX_PILA = 1000GLOBAL_VTILES=16GLOBAL_HTILES=20;; Escenario o laberinto; Escenario.b(GLOBAL_HTILES-1,GLOBAL_VTILES-1) ; escenarios de 20x16;; Posicion del heroe;XHeroe=0YHeroe=0ValorBajoHeroe=0;; Flag de gameover;GameOver.b=0direccion.b=0.Valores v1.b ;Valor bajo heroe v2.b ;Valor vecino v3.b ;Valor mas alejado ;;Para poder deshacer y rehacer movimientos;.Movimiento Hx.w ;Posicion X del personaje Hy.w ;Posicion y del personaje d.b ;Movimiento: 1 izquierda 2 derecha 3 arriba 4 abajo Saco.Valores  PilaMovs.Movimiento(GLOBAL_MAX_PILA)PunteroPila.w = 0.MuestraBitmapJuego MuestraBitmapJuego{}  0 ,  0  0 .CompruebaGameOver .b CompruebaGameOver{} GLOBAL_VTILES,GLOBAL_HTILES,EscenaZ-rio() GameOver.b=1  y=0  GLOBAL_VTILES-1  x=0  GLOBAL_HTILES-1 Escenario(x,y)=3 GameOver.b=0  x  y  GameOver .DibujaEscenario DibujaTile{x,y,v} 4  v  0    8,x*16,y*16    1  1,x*16,y*16  2  2,x*16,y*16  3  3,x*16,y*16  4  4,x*16,y*16  5  6,x*16,y*16  8  5,x*Ö16,y*16   0,x*16,y*16    DibujaEscena{} GLOBAL_VTILES, GLOBAL_HTILES,Escenario(),XHeroe,YHeroe ;BLITZ  y=0  GLOBAL_VTILES-1  x=0  GLOBAL_HTILES-1 DibujaTile{x,y,Escenario(x,y)}  x  y;; Mostramos al prota;  4,XHeroe*16,YHeroe*16 .ProvocaFalsoFin: ProvocaFalsoFin{} GLOBAL_VTILES,GLOBAL_HTILES,Escenario()  y=0  GLOBAL_VTILES-1  x=0  GLOBAL_HTILES-1 (Escenario(x,y)=3) Escena Wrio(x,y)=2 (Escenario(x,y)=5) Escenario(x,y)=8  x  y ;-----------------------------------------------------------;; SOKOBAN, The game;;----------------------------------------------------------- CargaRecursos Menu;-----------------------------------------------------------; MAIN;-----------------------------------------------------------.juego:MuestraBitmapJuego{} Inicializa_EscenarioDibujaEscena{} 1=1 ;Joyb(0)=0 ValorBajoHeroefI = Escenario(XHeroe,YHeroe)    "q"  Control_Heroe_UP ;DibujaEscena{}  "a"  Control_Heroe_DOWN ;DibujaEscena{}  "o"  Control_Heroe_LEFT ;DibujaEscena{}  "p"  Control_Heroe_RIGHT ;DibujaEscena{}  "r"  Inicializa_Escenario DibujaEscena{}  "x"  final  "t" ProvocaFalsoFin{}  "u"  Deshacer_Ultimo_Movimiento DibujaEscena{}    CompruebaGameOver{}=1 ;Gosub JuegoCompl֧eetado GLOBAL_LEVEL=GLOBAL_LEVEL+1  Inicializa_Escenario DibujaEscena{} final:; ----------------------------------------------------------------------; Motor del sokoban; -----'-----------------------------------------------------------------.CargaRecursos: 5 ; ; Pantalla de presentacion ;  1,GLOBAL_HRes,GLOBAL_VRes,GLOBAL_Depth ;LoadBitMap 1,"d:introbirrarutinas/sokoban/intro.iff",1  1,"intro.iff",1 ; ; Main bitmap ;  0 d,GLOBAL_HRes,GLOBAL_VRes,GLOBAL_Depth ;LoadBitMap 0,"d:introbirrarutinas/sokoban/tiles.iff",0  0,"tiles.iff",0 ; ; Obtenemos los bobs de la pantalla de tiles ;  0,0,0,16,16  1,16,0,16,16  2,32,0,16,16  3,48,0,16,16  4,64,0,16,16  5,80,0,16,16  6,96,0,16,16  7,112,0,16,16 ; Flecha cursor  8,128,0,16,16 ; Para borrar  0  2,GLOBAL_HRes,GLOBAL_VRes,2  2  0, 0:݁ " Instrucciones"  0, 2:݁ " ---- ۡ?---------"  0, 4:݁ "Sokoban es un clasico rompecabezas "  0, 6:݁ "inventado en Japon, creado por Hiroyuki"  0, 8:݁ "Imabayashi. Sokoban significa en japones. "  0,12:݁ "El objetivo del juego es empujar los "  0,14:݁ "barriles hasta su lugar correcto dentro "  0,16:݁ "de un reducido almacen, con el numero "  0,18:݁ "minimo de empujes y de pasos. Los barriles "  0,20:݁ "cajas se pueden empujar solamente, y " ڻ  0,22:݁ "no tirar de ellas, y solo se puede "  0,24:݁ "empujar una caja a la vez. "  3,GLOBAL_HRes,GLOBAL_VRes,2  3  0, 0:݁ " Creditos"  0, 2:݁ " -------------"  0, 4:݁ "Codigo..... Birra/Goblins "  0, 6:݁ " Tolkien/Goblins "  0, 8:݁ "Graficos... Jojo073 "  0,10:݁ "Musica .... Zoltar dreamusic "  0,12:݁ " "  0,14:݁ "Saludos: Kikems, E ʰFstrayk...... "  0,16:݁ " "  0,18:݁ " "  0,20:݁ " "  0,22:݁ " "  0,24:݁ " " ;-----------------------------------------------------------------; PANTALLA DE PRESENTACION/MENU;-----------------------------------------------------------------.GestionMenu 6 BorraCursorMenu{o} 4    8,60,o*16+138  DibujaCursorMenu{o} 4    7,60,o*16+138 .Menu: 4:  1  0,GLOBAL_SLICE_TOP,GLOBAL_Depth 4: ,  1 , 1  1 opcion=0 DibujaCursorMenu{opcion}  10,18:݁ "Instrucciones"  10,20:݁ "Jugar"  10,22:݁ "Saltar a nivel"  10,24:݁ "Musica off"  10,26:݁ "Creditos"  10,28:݁ "Salir"  7    "q" BorraCursorMenu{opci ̈bon} (opcion>0) opcion=opcion-1 " opcion=5 DibujaCursorMenu{opcion}  "a" BorraCursorMenu{opcion} (opcion<5) opcion=opcion+1 " opcion=0 DibujaCursorMenu{opcion}  " " (opcion=0) BorraCursorMenu{opcion}  MostrarInstrucciones DibujaCursorMenu{opcion} (opcion=1)  juego (opcion=4) BorraCursorMenu{opcion} v  MostrarCreditos DibujaCursorMenu{opcion} (opcion=5)    .MostrarInstrucciones: ,  2  2 ="" 7 ,  1 , 1  1 .MostrarCreditos: ,  3  3 ="" 7 ,  1 , 1  1 .Deshacer_Ultimo_Movimiento: PunteroPila>0 direccion=PilaMovs(PunteroPila-1)\d XHeroe=PilaMovs(PunteroPila-1)\Hx YHeroe=PilaMovs(PunteroPila-1)\Hy Es)Xcenario(XHeroe,YHeroe) = PilaMovs(PunteroPila-1)\Saco\v1  direccion  1 ; Izda (XHeroe > 1) Escenario(XHeroe-1,YHeroe)= PilaMovs(PunteroPila-1)\Saco\v2 (XHeroe > 2) Escenario(XHeroe-2,YHeroe)= PilaMovs(PunteroPila-1)\Saco\v3  2 ; Drcha (XHeroe < GLOBAL_HTILES-1) Escenario(XHeroe+1,YHeroe)= PilaMovs(PunteroPila-1)\Saco\v2 (XHeroe < GLOBAL_HTILES-2) Escenario(XHeroe+2,YHeroe)= PilaMovs(PunteroPila-1)\Saco\v3  3 (YHns eroe > 1) Escenario(XHeroe,YHeroe-1)= PilaMovs(PunteroPila-1)\Saco\v2 (YHeroe > 2) Escenario(XHeroe,YHeroe-2)= PilaMovs(PunteroPila-1)\Saco\v3  4 (YHeroe < GLOBAL_HTILES-1) Escenario(XHeroe,YHeroe+1)= PilaMovs(PunteroPila-1)\Saco\v2 (YHeroe < GLOBAL_HTILES-2) Escenario(XHeroe,YHeroe+2)= PilaMovs(PunteroPila-1)\Saco\v3   PunteroPila=PunteroPila-1 .GrabaPosicion: PilaMovs(PunteroPila)\Hx=XHeroe PilaMovs(PunteroPila)\Hy=YHЌheroe PilaMovs(PunteroPila)\Saco\v1=Escenario(XHeroe,YHeroe) PilaMovs(PunteroPila)\d=direccion  direccion  1 ;Izda XHeroe > 1 PilaMovs(PunteroPila)\Saco\v2=Escenario(XHeroe-1,YHeroe) XHeroe > 2 PilaMovs(PunteroPila)\Saco\v3=Escenario(XHeroe-2,YHeroe)  2 ;Derecha XHeroe < GLOBAL_HTILES-1 PilaMovs(PunteroPila)\Saco\v2=Escenario(XHeroe+1,YHeroe) XHeroe < GLOBAL_HTILES-2 PilaMovs(PunteroPila)\Saco\v3=Escenario(XHeroe+2,YHeroe) џ 3 ;Arriba YHeroe > 1 PilaMovs(PunteroPila)\Saco\v2=Escenario(XHeroe,YHeroe-1) YHeroe > 2 PilaMovs(PunteroPila)\Saco\v3=Escenario(XHeroe,YHeroe-2)  4 ;Abajo YHeroe < GLOBAL_HTILES-1 PilaMovs(PunteroPila)\Saco\v2=Escenario(XHeroe,YHeroe+1) YHeroe < GLOBAL_HTILES-2 PilaMovs(PunteroPila)\Saco\v3=Escenario(XHeroe,YHeroe+2)   PunteroPila=PunteroPila+1 .Control_Heroe_UP: direccion=3 (YHeroe>0) ; ;Arriba un hueco qo meta ; (Escenario(XHeroe,YHeroe-1)=2 Escenario(XHeroe,YHeroe-1)=5) Escenario(XHeroe,YHeroe)=ValorBajoHeroe DibujaTile{XHeroe,YHeroe,ValorBajoHeroe};*  GrabaPosicion YHeroe = YHeroe - 1 ValorBajoHeroe = Escenario(XHeroe,YHeroe) DibujaTile{XHeroe,YHeroe,4} ;* " (YHeroe>1) ; ;Arriba un barril (con o sin meta) y encima hueco o meta ; (Escenario(XHeroe,YHeroe-1)=3 EscenariӔTo(XHeroe,YHeroe-1)=8) (Escenario(XHeroe,YHeroe-2)=2 Escenario(XHeroe,YHeroe-2)=5) Escenario(XHeroe,YHeroe)=ValorBajoHeroe DibujaTile{XHeroe,YHeroe,ValorBajoHeroe};*  GrabaPosicion (Escenario(XHeroe,YHeroe-2)=2) Escenario(XHeroe,YHeroe-2)=3 (Escenario(XHeroe,YHeroe-2)=5) Escenario(XHeroe,YHeroe-2)=8 (Escenario(XHeroe,YHeroe-1)=3) Escenario(XHeroe,YHeroe-1)=2 (Escenario(XHea roe,YHeroe-1)=8) Escenario(XHeroe,YHeroe-1)=5 DibujaTile{XHeroe,YHeroe-2,Escenario(XHeroe,YHeroe-2)};* DibujaTile{XHeroe,YHeroe-1,Escenario(XHeroe,YHeroe-1)};* DibujaTile{XHeroe,YHeroe-1,4} YHeroe = YHeroe - 1 ValorBajoHeroe = Escenario(XHeroe,YHeroe) .Control_Heroe_DOWN: direccion=4 (YHeroe0) ; ;A la izquierda un hueco o una meta ; (Escenario(XHeroe-1,YHeroe)=2 Escenario(XHeroeQ:H-1,YHeroe)=5) Escenario(XHeroe,YHeroe)=ValorBajoHeroe DibujaTile{XHeroe,YHeroe,ValorBajoHeroe};*  GrabaPosicion XHeroe = XHeroe - 1 ValorBajoHeroe = Escenario(XHeroe,YHeroe) DibujaTile{XHeroe,YHeroe,4} " (XHeroe>1) ; ;A la izquieda un barril (con o sin meta) y al lado hueco o meta ; (Escenario(XHeroe-1,YHeroe)=3 Escenario(XHeroe-1,YHeroe)=8) (Escenario(XHeroe-2,YHeroe)=2 Escenariهo(XHeroe-2,YHeroe)=5) Escenario(XHeroe,YHeroe)=ValorBajoHeroe DibujaTile{XHeroe,YHeroe,ValorBajoHeroe};*  GrabaPosicion (Escenario(XHeroe-2,YHeroe)=2) Escenario(XHeroe-2,YHeroe)=3 (Escenario(XHeroe-2,YHeroe)=5) Escenario(XHeroe-2,YHeroe)=8 (Escenario(XHeroe-1,YHeroe)=3) Escenario(XHeroe-1,YHeroe)=2 (Escenario(XHeroe-1,YHeroe)=8) Escenario(XHeroe-1,YHeroe)=5 DibujaTile{XHeroet0-2,YHeroe,Escenario(XHeroe-2,YHeroe)};* DibujaTile{XHeroe-1,YHeroe,Escenario(XHeroe-1,YHeroe)};* XHeroe = XHeroe - 1:DibujaTile{XHeroe,YHeroe,4} ValorBajoHeroe = Escenario(XHeroe,YHeroe) .Control_Heroe_RIGHT: direccion=2 (XHeroe i .Nivel1: .b 00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,01,1,1,1,1,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,01,2,2,2,1,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,01,3,02,2,1,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,1,1,01,02,2,3,1,1,0,0,0,0,0,0,0,0,0 .b 0,0,0,1,2,2,3,2,3,2,1,0,0,0,0,0,0,0,0,0 .b 0,1,1,1,2,1,2,1,1,2,1,0,0,0,1,1,1,1,1,1 .b 0,1,2,2,2,1,2,1,1,2,1,1,1,1,1,2,2,5,5,1 .b 0,1,2,3,2,2,3,2,2,2,2,2,2,2,!S#2,2,2,5,5,1 .b 0,1,1,1,1,1,2,1,1,1,2,1,4,1,1,2,2,5,5,1 .b 0,0,0,0,0,1,2,2,2,2,2,1,1,1,1,1,1,1,1,1 .b 0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0Nivel2: .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0"Y,0 .b 0,0,0,1,5,5,2,2,1,2,2,2,2,2,1,1,1,0,0,0 .b 0,0,0,1,5,5,2,2,1,2,3,2,2,3,2,2,1,0,0,0 .b 0,0,0,1,5,5,2,2,1,3,1,1,1,1,2,2,1,0,0,0 .b 0,0,0,1,5,5,2,2,2,2,4,2,1,1,2,2,1,0,0,0 .b 0,0,0,1,5,5,2,2,1,2,1,2,2,3,2,1,1,0,0,0 .b 0,0,0,1,1,1,1,1,1,2,1,1,3,2,3,2,1,0,0,0 .b 0,0,0,0,0,1,2,3,2,2,3,2,3,2,3,2,1,0,0,0 .b 0,0,0,0,0,1,2,2,2,2,1,2,2,2,2,2,1,0,0,0 .b 0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,#}0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0Nivel3: .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0 .b 0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,4,1,0,0,0 .b 0,0,0,0,0,0,0,0,0,1,2,3,1,3,2,1,1,0,0,0 .b 0,0,0,0,0,0,0,0,0,1,2,3,2,2,2,1,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,1,1,3,2,3,3,1,0,0,0,0 .b 0,1,1,1,1,1,1,1,1$$S,1,2,3,2,1,2,1,0,0,0,0 .b 0,1,5,5,5,5,2,2,1,1,2,3,2,2,3,2,2,1,0,0 .b 0,1,1,5,5,5,2,2,2,2,3,2,2,3,2,2,2,1,0,0 .b 0,1,5,5,5,5,2,2,1,1,1,1,1,1,1,1,1,1,0,0 .b 0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0Nivel4: .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1 .b 0,0,0,0,0,0,0,0,0,0,0,0,1,%j2,2,5,5,5,5,1 .b 0,1,1,1,1,1,1,1,1,1,1,1,1,2,2,5,5,5,5,1 .b 0,1,2,2,2,2,1,2,2,3,2,3,2,2,2,5,5,5,5,1 .b 0,1,2,3,3,3,1,3,2,2,3,2,1,2,2,5,5,5,5,1 .b 0,1,2,2,3,2,2,2,2,2,3,2,1,2,2,5,5,5,5,1 .b 0,1,2,3,3,2,1,3,2,3,2,3,1,1,1,1,1,1,1,1 .b 0,1,2,2,3,2,1,2,2,2,2,2,1,0,0,0,0,0,0,0 .b 0,1,1,2,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0 .b 0,1,2,2,2,2,1,2,2,2,2,1,0,0,0,0,0,0,0,0 .b 0,1,2,2,2,2,2,3,2,2,2,1,1,0,0,0,0,0,0,0 .b 0,1,2,2,3,3,1,3,3,2,2,4,1,0,0,0,0,0,0,0 &G.b 0,1,2,2,2,2,1,2,2,2,2,1,1,0,0,0,0,0,0,0 .b 0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.Nivel5: .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,1,2,2,2,1,1,1,1,1,0,0 .b 0,0,0,0,0,0,0,0,0,1,2,1,3,1,1,2,2,1,0,0 .b 0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,3,2,1,0,0 .b 0,1,1,1,1,1,1,1,1,1,2,1,1,1,2,2,2,1,0,0 .b 0,1,5,5,5,5,2,2,1,1,2,3,2,2,3,1,1,1,0,0 .b 0,1,5'KЉ(,5,5,5,2,2,2,2,3,2,3,3,2,1,1,0,0,0 .b 0,1,5,5,5,5,2,2,1,1,3,2,2,3,2,4,1,0,0,0 .b 0,1,1,1,1,1,1,1,1,1,2,2,3,2,2,1,1,0,0,0 .b 0,0,0,0,0,0,0,0,0,1,2,3,2,3,2,2,1,0,0,0 .b 0,0,0,0,0,0,0,0,0,1,1,1,2,1,1,2,1,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,1,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0Nivel6: .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,(`0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,1,1,1,1,1,1,0,0,1,1,1,0,0,0,0,0 .b 0,0,0,0,1,5,5,2,2,1,0,1,1,4,1,1,0,0,0,0 .b 0,0,0,0,1,5,5,2,2,1,1,1,2,2,2,1,0,0,0,0 .b 0,0,0,0,1,5,5,2,2,2,2,2,3,3,2,1,0,0,0,0 .b 0,0,0,0,1,5,5,2,2,1,2,1,2,3,2,1,0,0,0,0 .b 0,0,0,0,1,5,5,1,1,1,2,1,2,3,2,1,0,0,0,0 .b 0,0,0,0,1,1,1,1,2,3,2,1,3,2,2,1,0,0,0,0 .b 0,0,0,0,0,0,0,1,2,2,3,1,2,3,2,1,0,0,0,0 .b 0,0,0,0,0,0,0,1,2,3,2,2,3,2,2,1,0,0,0,0 .b 0,0,0,0,0,0,0,1,2,2,1,1,2,2,2,1,);$0,0,0,0 .b 0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0Nivel7: .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0 .b 0,0,0,0,1,1,1,1,1,1,1,2,2,2,1,1,0,0,0,0 .b 0,0,0,1,1,2,2,2,4,1,1,2,3,3,2,1,0,0,0,0 .b 0,0,0,1,2,2,2,2,3,2,2,2,2,2,2,1,0,0,0,0 *aa .b 0,0,0,1,2,2,3,2,2,1,1,1,2,2,2,1,0,0,0,0 .b 0,0,0,1,1,1,2,1,1,1,1,1,3,1,1,1,0,0,0,0 .b 0,0,0,1,2,3,2,2,1,1,1,2,5,5,1,0,0,0,0,0 .b 0,0,0,1,2,3,2,3,2,3,2,5,5,5,1,0,0,0,0,0 .b 0,0,0,1,2,2,2,2,1,1,1,5,5,5,1,0,0,0,0,0 .b 0,0,0,1,2,3,3,2,1,0,1,5,5,5,1,0,0,0,0,0 .b 0,0,0,1,2,2,1,1,1,0,1,1,1,1,1,0,0,0,0,0 .b 0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0Nivel8: .b 0,0+^,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,1,2,2,1,1,1,1,1,1,1,1,1,1,1,0,0 .b 0,0,0,0,1,2,2,2,2,3,2,2,2,3,2,3,2,1,0,0 .b 0,0,0,0,1,2,3,1,2,3,2,1,2,2,3,2,2,1,0,0 .b 0,0,0,0,1,2,2,3,2,3,2,2,1,2,2,2,2,1,0,0 .b 0,0,1,1,1,2,3,1,2,1,2,2,1,1,1,1,2,1,0,0 .b 0,0,1,4,1,3,2,3,2,3,2,2,1,1,2,2,2,1,0,0 .b 0,0,1,2,2,2,2,3,2,1,3,1,2,2,2,1,2,1,0,0 .b 0,0,1,2,2,2,3,2,2,2,2,3,2,3,2,3,2,1,0,0 .b 0,0,1,1,1,1,1,2,2,1,1,1,1,1,1,1,1,1,0,0 .b 0,0,0,0,1,2,2,2,2,2,2,,1,0,0,0,0,0,0,0,0 .b 0,0,0,0,1,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0 .b 0,0,0,0,1,5,5,5,5,5,5,1,0,0,0,0,0,0,0,0 .b 0,0,0,0,1,5,5,5,5,5,5,1,0,0,0,0,0,0,0,0 .b 0,0,0,0,1,5,5,5,5,5,5,1,0,0,0,0,0,0,0,0 .b 0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0Nivel9: .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,1,2,2,5,5,5,1,0,0 .b 0,0,0,0,0,0,0,1,1,1,1,1,2,2,5,5,5,1,0,0 .b 0,0,0,0,0,0,0,1,2,2,2,2,2,2,5,-쐹2,5,1,0,0 .b 0,0,0,0,0,0,0,1,2,2,1,1,2,2,5,5,5,1,0,0 .b 0,0,0,0,0,0,0,1,1,2,1,1,2,2,5,5,5,1,0,0 .b 0,0,0,0,0,0,1,1,1,2,1,1,1,1,1,1,1,1,0,0 .b 0,0,0,0,0,0,1,2,3,3,3,2,1,1,0,0,0,0,0,0 .b 0,0,1,1,1,1,1,2,2,3,2,3,2,1,1,1,1,1,0,0 .b 0,1,1,2,2,2,1,3,2,3,2,2,2,1,2,2,2,1,0,0 .b 0,1,4,2,3,2,2,3,2,2,2,2,3,2,2,3,2,1,0,0 .b 0,1,1,1,1,1,1,2,3,3,2,3,2,1,1,1,1,1,0,0 .b 0,0,0,0,0,0,1,2,2,2,2,2,2,1,0,0,0,0,0,0 .b 0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0 .b 0.M.e,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.Nivel10: .b 0,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0 .b 1,1,4,1,1,1,1,2,2,2,2,2,2,2,1,2,2,2,1,0 .b 1,2,3,3,2,2,2,3,3,2,2,3,2,3,2,5,5,5,1,0 .b 1,2,2,3,3,3,1,2,2,2,2,3,2,2,1,5,5,5,1,0 .b 1,2,3,2,2,2,1,2,3,3,2,3,3,2,1,5,5,5,1,0 .b 1,1,1,2,2,2,1,2,2,3,2,2,2,2,1,5,5,5,1,0 .b 1,2,2,2,2,2,1,2,3,2,3,2,3,2,1,5,5,5,1,0 .b 1,2,2,2,2,1,1,1,1,1,1,2,1,1,1,5,5,5,1,0 .b 1,1,2,1,2,2,1,2,2,3,2,3,2,2,1,5,5,5,1,0 .b 1,2,2,1,/&J1,2,1,2,3,3,2,3,2,3,1,1,5,5,1,0 .b 1,2,5,5,1,2,1,2,2,3,2,2,2,2,2,2,1,5,1,0 .b 1,2,5,5,1,2,1,2,3,3,3,2,3,3,3,2,1,5,1,0 .b 1,1,1,1,1,2,1,2,2,2,2,2,2,2,1,2,1,5,1,0 .b 0,0,0,0,1,2,1,1,1,1,1,1,1,1,1,2,1,5,1,0 .b 0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,2,1,5,1,0 .b 0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0Nivel37 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0 .b 0,1,5,5,5,5,5,5,2,2,2,1,1,1,1,1,1,1,1,1 .b 0,1,50ﭲ,5,5,5,5,5,2,2,2,1,2,2,1,1,2,2,2,1 .b 0,1,5,5,1,1,1,2,3,2,2,2,2,3,2,2,2,2,2,1 .b 0,1,5,5,5,2,3,2,3,2,1,2,2,1,1,1,2,2,2,1 .b 0,1,5,5,5,1,3,1,1,1,1,1,2,2,2,2,1,2,2,1 .b 0,1,1,1,2,2,2,2,1,2,2,2,1,3,2,2,1,3,2,1 .b 0,0,0,1,2,2,3,3,2,3,2,3,2,2,3,1,1,2,2,1 .b 0,0,0,1,2,2,3,2,2,2,1,3,1,3,2,1,1,3,2,1 .b 0,0,0,1,1,1,2,1,1,2,1,2,2,2,2,1,1,2,2,1 .b 0,0,0,0,1,2,2,3,2,3,2,1,1,2,1,1,1,1,1,1 .b 0,0,0,0,1,2,2,2,2,3,2,2,3,2,2,1,0,0,0,0 1V"d.b 0,0,0,0,1,1,2,2,2,1,2,1,2,2,2,1,0,0,0,0 .b 0,0,0,0,0,1,1,1,1,1,4,1,1,1,1,1,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0Nivel38: .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0 .b 0,0,0,0,0,1,1,1,1,1,1,1,2,4,1,0,0,0,0,0 .b 0,0,0,0,0,1,2,2,2,2,2,3,2,2,1,0,0,0,0,0 .b 0,0,0,0,0,1,2,2,2,3,1,1,2,3,1,0,0,0,0,0 .b 0,0,0,0,0,1,1,3,1,5,52u~K,5,1,2,1,0,0,0,0,0 .b 0,0,0,0,0,0,1,2,3,5,5,5,2,2,1,0,0,0,0,0 .b 0,0,0,0,0,0,1,2,1,5,2,5,1,2,1,1,0,0,0,0 .b 0,0,0,0,0,0,1,2,2,2,1,2,1,3,2,1,0,0,0,0 .b 0,0,0,0,0,0,1,3,2,2,3,2,2,2,2,1,0,0,0,0 .b 0,0,0,0,0,0,1,2,2,1,1,1,1,1,1,1,0,0,0,0 .b 0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0Nivel39:.b 03,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0.b 0,1,1,1,1,1,1,1,1,1,1,1,1,1,5,5,5,5,1,0.b 1,1,2,2,2,1,1,2,2,2,2,2,1,1,5,5,5,5,1,0.b 1,2,2,3,3,1,1,2,2,3,2,4,1,1,5,5,5,5,1,0.b 1,2,2,2,2,2,2,3,3,2,3,1,2,2,5,5,5,5,1,0.b 1,2,2,3,2,1,1,2,3,3,2,1,2,1,2,5,5,5,1,0.b 1,2,2,3,2,1,1,2,3,2,2,1,2,2,5,5,5,5,1,0.b 1,1,2,1,1,1,1,1,2,1,1,1,2,1,1,5,1,1,1,0.b 1,1,2,2,2,3,2,2,3,2,1,1,2,2,2,5,2,2,1,0.b 1,2,3,1,1,1,2,2,1,2,1,1,1,1,1,2,1,1,1,0.b 1,2,2,2,34-a,2,2,2,1,2,2,2,2,2,2,2,1,0,0,0.b 1,2,2,3,2,1,3,2,3,2,3,1,1,1,2,2,1,0,0,0.b 1,2,3,3,3,1,2,3,2,2,2,1,0,1,1,1,1,0,0,0.b 1,2,2,2,2,1,2,2,3,3,2,1,0,0,0,0,0,0,0,0.b 1,1,1,1,1,1,2,2,2,1,1,1,0,0,0,0,0,0,0,0.b 0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0Nivel40:.b 0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0.b 0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,1,0.b 0,0,0,0,0,0,1,2,2,1,2,1,3,3,2,3,2,2,1,0.b 0,0,0,0,0,0,1,3,2,1,3,1,2,2,1,1,2,4,1,0.b 0,0,0,05t,0,1,1,2,1,1,2,1,2,3,2,1,2,1,1,0.b 0,0,0,0,0,1,2,2,2,3,2,1,3,2,2,1,2,1,0,0.b 0,0,0,0,0,1,2,2,2,1,2,3,2,2,2,1,2,1,0,0.b 0,0,0,0,0,1,1,2,3,2,3,2,2,2,1,1,2,1,0,0.b 0,0,0,0,0,1,2,2,1,2,2,1,1,2,2,3,2,1,0,0.b 0,0,0,0,0,1,2,2,2,2,1,1,2,3,3,1,2,1,0,0.b 0,0,1,1,1,1,1,1,3,3,2,2,2,1,2,2,2,1,0,0.b 0,0,1,5,5,5,5,1,2,2,1,1,1,1,1,1,1,1,0,0.b 0,0,1,5,1,5,5,5,2,1,1,0,0,0,0,0,0,0,0,0.b 0,0,1,5,5,5,5,2,2,2,1,0,0,0,0,0,0,0,0,0.b 0,0,1,5,5,5,5,26 ,2,2,1,0,0,0,0,0,0,0,0,0.b 0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0Nivel41:.b 0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0.b 0,0,0,0,0,0,0,0,0,0,0,1,1,2,2,2,1,1,0,0.b 0,0,0,0,0,0,0,0,0,0,1,1,2,2,2,2,2,1,0,0.b 0,0,0,0,0,0,0,0,0,1,1,2,2,3,3,2,2,1,0,0.b 0,0,0,0,0,0,0,0,1,1,2,3,3,2,2,3,2,1,0,0.b 0,0,0,0,0,0,0,0,1,2,3,2,2,2,2,3,2,1,0,0.b 0,1,1,1,1,0,0,0,1,2,2,2,3,3,1,1,1,1,1,1.b 0,1,2,2,1,1,1,1,1,1,1,1,2,1,1,2,2,2,2,1.b 0,1,5,2,2,2,27f)'@,2,2,2,2,2,2,2,2,3,3,3,4,1.b 0,1,5,1,2,1,1,1,1,1,1,1,2,1,1,2,2,2,1,1.b 0,1,5,1,2,1,1,1,1,1,1,1,5,2,1,3,2,3,1,1.b 0,1,5,5,5,5,5,5,5,5,5,5,5,2,1,2,2,2,2,1.b 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,3,2,1.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,2,2,1,1.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0Nivel42:.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.b 0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0.b 0,0,0,1,1,18:,1,2,2,2,2,2,2,1,1,1,1,1,1,0.b 0,0,0,1,2,2,2,2,1,1,2,3,2,3,2,2,2,4,1,0.b 0,0,0,1,2,1,1,2,1,1,3,1,3,2,3,2,3,1,1,0.b 0,1,1,1,2,5,5,5,5,5,5,1,2,2,3,3,2,1,1,0.b 0,1,2,2,2,5,5,5,5,5,5,1,2,2,1,2,2,2,1,0.b 0,1,2,1,2,5,5,5,5,5,5,1,3,2,2,3,2,2,1,0.b 0,1,2,1,3,5,5,5,5,5,5,2,3,3,1,2,3,2,1,0.b 0,1,2,2,2,1,1,1,2,1,1,1,3,2,2,3,2,1,1,0.b 0,1,1,1,2,2,3,2,2,3,2,2,3,2,2,3,2,1,0,0.b 0,0,0,1,2,2,3,2,2,3,2,2,3,2,2,3,2,1,0,0.b 0,0,0,1,1,1,1,1,1,29E,2,2,1,1,1,1,1,1,0,0.b 0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0Nivel43:.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.b 0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0.b 0,0,0,0,1,1,1,1,1,2,2,1,2,2,1,1,1,1,0,0.b 0,0,0,0,1,2,2,2,1,2,2,2,3,2,2,2,2,1,0,0.b 0,1,1,1,1,2,1,3,3,2,1,1,2,1,1,2,2,1,0,0.b 1,1,2,2,2,2,2,2,1:,2,1,2,2,1,1,2,1,1,1,0.b 1,2,2,1,1,1,2,3,1,3,2,2,3,2,2,3,2,2,1,0.b 1,5,5,5,2,2,2,2,1,2,1,1,2,2,1,2,2,2,1,0.b 1,5,5,5,1,2,2,2,2,4,2,1,2,1,1,1,2,1,1,0.b 1,5,5,5,1,2,2,1,1,1,2,2,3,2,2,3,2,2,1,0.b 1,1,1,1,1,1,1,1,0,1,1,2,2,2,1,2,2,2,1,0.b 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0Nivel44:.b 0,1,1,1,1,1,0,0;r,0,0,0,0,0,0,0,0,0,0,0,0.b 0,1,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0.b 0,1,2,1,2,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0.b 0,1,2,2,2,2,2,2,3,4,1,1,1,1,1,1,0,0,0,0.b 0,1,2,3,2,1,1,3,2,1,1,1,2,2,2,1,0,0,0,0.b 0,1,2,1,1,1,1,2,2,2,2,2,2,3,2,1,0,0,0,0.b 0,1,2,1,1,2,1,1,2,1,2,2,1,3,2,1,1,1,1,0.b 1,1,2,2,1,1,1,1,2,1,1,3,2,2,2,2,2,2,1,0.b 1,2,2,3,1,2,2,3,2,2,1,2,1,1,2,1,1,2,1,0.b 1,2,2,2,2,2,2,2,2,2,1,2,1,5,5,5,1,2,1,0.b 1,1,1,1,1,1,2,2,1,1,1,2<h!,2,5,5,5,2,2,1,0.b 0,0,0,0,0,1,1,1,1,0,1,2,1,5,5,5,1,2,1,0.b 0,0,0,0,0,0,0,0,0,0,1,2,1,1,1,2,1,2,1,0.b 0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,1,0.b 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0Nivel45:.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.b 0,1,1,1,1,1,0,1,1,1,1,0,0,0,0,0,0,0,0,0.b 0,1,5,5,5,1,0,1,2,2,1,1,1,1,0,0,0,0,0,0.b 0,1,5,5,5,1,1,1,2,2,3,2,2,1,0,0,0,0,0,0.b 0,1,5,5,5,5,1,1,2,3,2=D4,2,3,1,1,1,0,0,0,0.b 0,1,1,5,5,5,5,1,1,2,2,2,3,2,2,1,0,0,0,0.b 0,1,1,1,5,5,5,2,1,1,2,3,2,3,2,1,0,0,0,0.b 0,1,2,1,1,2,2,2,2,1,2,2,3,2,2,1,0,0,0,0.b 0,1,2,2,1,1,2,1,2,1,1,1,2,1,1,1,1,0,0,0.b 0,1,2,3,2,1,2,1,3,2,2,3,2,2,2,2,1,0,0,0.b 0,1,2,2,3,2,4,2,3,2,2,2,2,3,2,2,1,0,0,0.b 0,1,2,2,2,1,2,3,2,3,3,2,3,2,1,1,1,0,0,0.b 0,1,2,2,1,1,1,1,1,1,2,2,1,1,1,0,0,0,0,0.b 0,1,2,1,1,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0.b 0,1,1,1,0,0,0,0,0,0,0,0,0,0,0>D.,0,0,0,0,0.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0Nivel46:.b 0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0.b 0,0,1,2,2,2,2,2,2,2,2,1,1,1,1,0,0,0,0,0.b 0,0,1,2,1,1,1,1,1,1,2,1,2,2,1,1,0,0,0,0.b 0,0,1,2,1,2,3,2,3,2,3,2,2,3,2,1,0,0,0,0.b 0,0,1,2,2,2,2,2,2,2,1,3,2,2,2,1,0,0,0,0.b 0,0,1,1,1,3,2,2,3,3,1,2,2,1,1,1,0,0,0,0.b 0,0,0,0,1,2,2,1,1,2,1,2,3,1,1,0,0,0,0,0.b 0,0,0,0,1,1,3,1,2,2,2,3,2,4,1,0,0,0,0,0.b 0,0,0,0,0,1,2,2,3,2,3,2,1,1?ZJ-,1,0,0,0,0,0.b 0,0,0,0,0,1,2,1,2,2,2,3,2,2,1,0,0,0,0,0.b 0,0,0,0,0,1,2,1,1,2,2,2,1,2,1,0,0,0,0,0.b 0,0,0,0,1,1,2,2,1,1,1,1,1,2,1,0,0,0,0,0.b 0,0,0,0,1,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0.b 0,0,0,0,1,5,5,5,5,5,5,5,1,1,1,0,0,0,0,0.b 0,0,0,0,1,5,5,5,5,5,5,5,1,0,0,0,0,0,0,0.b 0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0Nivel47: .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,1,1,1,1,@ Vs0,0,0,0,0,0 .b 0,0,1,1,1,1,1,1,1,1,1,2,2,1,1,0,0,0,0,0 .b 0,1,1,2,2,3,2,2,2,2,2,2,3,2,1,1,1,1,1,0 .b 0,1,2,2,2,1,1,2,1,1,2,2,2,1,1,5,5,5,1,0 .b 0,1,2,1,3,3,2,3,2,3,3,1,3,1,1,5,5,5,1,0 .b 0,1,2,1,2,2,2,2,4,2,2,1,2,2,2,5,5,5,1,0 .b 0,1,2,2,3,1,2,1,1,1,3,3,2,2,2,5,5,5,1,0 .b 0,1,2,3,2,2,3,3,2,2,3,2,1,1,5,5,5,5,1,0 .b 0,1,1,1,3,2,2,2,2,2,2,2,1,1,1,1,1,1,1,0 .b 0,0,0,1,2,2,1,1,1,1,1,1,1,0,0,0,0,0,0,0 .b 0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0 .bA) 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0Nivel48: .b 0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0 .b 0,0,0,0,0,1,8,5,8,1,8,5,8,1,0,0,0,0,0,0 .b 0,0,0,0,0,1,5,8,5,8,5,8,5,1,0,0,0,0,0,0 .b 0,0,0,0,0,1,8,5,8,5,8,5,8,1,0,0,0,0,0,0 .b 0,0,0,0,0,1,5,8,5,8,5,8,5,1,0,0,0,0,0,0 .b 0,0,0,0,0,1,8,5,8,5,8,5,8,1,0,0,0,0,0,0 .b 0,0,0,0,0,1,1,1,2,2,2,1,1,1,0,0,0,0,0,0 .b 0,0,0,0Bzb,0,0,0,1,2,2,2,1,0,0,0,0,0,0,0,0 .b 0,0,0,1,1,1,1,1,1,2,1,1,1,1,1,1,0,0,0,0 .b 0,0,0,1,2,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0 .b 0,0,0,1,2,3,2,3,2,3,2,3,2,3,2,1,0,0,0,0 .b 0,0,0,1,1,2,3,2,3,2,3,2,3,2,1,1,0,0,0,0 .b 0,0,0,0,1,3,2,3,2,3,2,3,2,3,1,0,0,0,0,0 .b 0,0,0,0,1,2,2,2,3,4,3,2,2,2,1,0,0,0,0,0 .b 0,0,0,0,1,2,2,1,1,1,1,1,2,2,1,0,0,0,0,0 .b 0,0,0,0,1,1,1,1,0,0,0,1,1,1,1,0,0,0,0,0Nivel49: .b 0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0C^$,0,1,2,2,1,1,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,1,2,2,2,1,1,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,1,2,3,3,2,1,1,0,0,0,0 .b 0,0,0,0,0,0,0,1,1,1,3,2,2,3,2,1,1,0,0,0 .b 0,0,0,0,1,1,1,1,2,2,2,2,3,2,2,2,1,0,0,0 .b 0,0,1,1,1,2,2,1,2,1,1,1,1,1,2,2,1,0,0,0 .b 0,0,1,2,2,2,2,1,2,1,5,5,5,5,3,2,1,0,0,0 .b 0,0,1,2,1,2,2,2,3,2,5,5,5,5,1,2,1,0,0,0 .b 0,0,1,2,2,3,2,1,2,1,5,8,5,5,1,2,1,0,0,0 .b 0,0,1,1,1,2,2,1,1,1,1,2,1,1,1,2,1,0,0,0 .b 0,0,0,0,1,1,1,1,2,4,3,2,2,1,1,3,1D-",1,0,0 .b 0,0,0,0,0,0,0,1,1,1,2,3,2,2,2,2,2,1,0,0 .b 0,0,0,0,0,0,0,0,0,1,2,2,1,1,2,2,2,1,0,0 .b 0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0Nivel50: .b 0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0 .b 0,0,0,0,0,1,1,5,5,2,2,3,2,1,2,2,2,1,0,0 .b 0,0,0,0,1,1,5,5,8,2,3,2,2,2,2,3,2,1,0,0 .b 0,0,0,1,1,5,5,8,5,1,2,1,2,1,3,2,1,1,0,0 .b 0,0,0,1,5,5,8,5,1,2,1,2,1,2,3,2,2,1,0,0 .b 1,1,1,1,5,5,5,1,2,2,1,2,2,2,2,1,2,1,0,0 E%- .b 1,2,2,1,1,2,1,2,2,2,2,2,2,2,2,2,2,1,0,0 .b 1,2,4,3,2,3,2,1,1,1,2,2,1,2,1,2,1,1,0,0 .b 1,2,3,2,2,2,3,2,2,2,1,2,1,2,2,2,1,0,0,0 .b 1,1,1,3,3,2,2,2,1,2,1,2,1,2,1,2,1,0,0,0 .b 0,0,1,2,2,2,3,2,2,2,1,2,1,2,1,1,1,1,1,0 .b 0,0,1,2,3,1,2,1,1,1,1,1,2,2,2,2,2,2,1,0 .b 0,0,1,3,2,2,2,1,0,0,0,1,2,2,2,1,2,2,1,0 .b 0,0,1,2,2,1,1,1,0,0,0,1,1,2,2,2,2,2,1,0 .b 0,0,1,2,2,1,0,0,0,0,0,0,1,2,2,2,2,1,1,0 .b 0,0,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,0,01,2,1,0,0 HVLKJIHGFEDCBA@?>=<;:9876543210/.-,+*)('&%$#"!      #9^ Sokoban.bb2pM^_k; Todo list: ver records, cosas asi3.w;; Variables globales;GLOBAL_HRes = 320GLOBAL_VRes = 256GLOBAL_Depth = 5GLOBAL_SLICE_TOP = 44GLOBAL_TILE_SIZE = 16GLOBAL_LEVEL = 0GLOBAL_MAX_PILA = 32000GLOBAL_VTILES=16GLOBAL_HTILES=20GLOBAL_KEYBOARD = 0;; Escenario o laberinto; Escenario.b(GLOBAL_HTILES-1,GLOBAL_VTILES-1) ; escenarios de 20x16;; Posicion del heroe;XHeroe=0YHeroe=0ValorBajoHeroe=0;; Flag de gameover;GameOver.b=0direccion.b=0keyboardSpeed.b=$0.Valores v1.b ;Valor bajo heroe v2.b ;Valor vecino v3.b ;Valor mas alejado ;;Para poder deshacer y rehacer movimientos;.Movimiento Hx.w ;Posicion X del personaje Hy.w ;Posicion y del personaje d.b ;Movimiento: 1 izquierda 2 derecha 3 arriba 4 abajo Saco.Valores  PilaMovs.Movimiento(GLOBAL_MAX_PILA)PunteroPila.w = 0.MuestraBitmapJuego BirraFadeIn{copper.w,source.w,destino.w,speed.w,offset.w}4 a.q=0  1  1/speed.w 7 xY source.w,destino.w,a.q dž copper.w,destino.w,offset.w  BirraFadeOut{copper.w,source.w,destino.w,speed.w,offset.w}4 a.q=1  0  -1/speed.w 7  source.w,destino.w,a.q dž copper.w,destino.w,offset.w  MuestraBitmapJuego{}  0 ,  0 dž 0,0 DŽ 0,0 .CompruebaGameOver .b CompruebaGameOver{} GLOBAL_VTILES,GLOBAL_HTILES,Escenario() GameOver.b=1  y=0  GLOBAL_VTILES-1  x=0  GLOBAL_HTILES-1 Escenario(x 0%,y)=3 GameOver.b=0  x  y  GameOver .DibujaEscenario;x,y coordenadas;t tile;d direccion;delta desplazamiento DibujaTileMovimiento{x,y,t,d,delta}  GLOBAL_TILE_SIZE 4 delta_x.b =0: delta_y.b=0 (d=1) delta_x= -1*delta (d=2) delta_x= delta (d=3) delta_y= -1*delta (d=4) delta_y= delta  t  0    8,x*GLOBAL_TILE_SIZE,y*GLOBAL_TILE_SIZE    5  6,(x*G *rLOBAL_TILE_SIZE)+delta_x,(y*GLOBAL_TILE_SIZE)+delta_y  8  5,(x*GLOBAL_TILE_SIZE)+delta_x,(y*GLOBAL_TILE_SIZE)+delta_y  4 ntile = delta / 4 ; (ntile=4) ntile=3 (d=3) ntile=ntile+10 ; (d=4) ntile=ntile+15 ; (d=1) ntile=ntile+20 ; (d=2) ntile=ntile+25 ;  ntile,(x*GLOBAL_TILE_SIZE)+delta_x,(y*GLOBAL_TILE_SIZE)+delta_y   t,(x*GLOBAL_TILE_SIZE)+delta_x,(y*GLOBA ]L_TILE_SIZE)+delta_y    DibujaTile{x,y,v} 4  v  0    8,x*16,y*16    1  1,x*16,y*16  2  2,x*16,y*16  3  3,x*16,y*16  4  4,x*16,y*16  5  6,x*16,y*16  8  5,x*16,y*16   v,x*16,y*16    DibujaEscena{} GLOBAL_VTILES, GLOBAL_HTILES,Escenario(),XHeroe,YHeroe  y=0  GLOBAL_VTILES- @1  x=0  GLOBAL_HTILES-1 DibujaTile{x,y,Escenario(x,y)}  x  y;; Mostramos al prota; DibujaTile{XHeroe,YHeroe,4} .ProvocaFalsoFin: ProvocaFalsoFin{} GLOBAL_VTILES,GLOBAL_HTILES,Escenario()  y=0  GLOBAL_VTILES-1  x=0  GLOBAL_HTILES-1 (Escenario(x,y)=3) Escenario(x,y)=2 (Escenario(x,y)=5) Escenario(x,y)=8  x  y ._Main_;-----------------------------------------------------------;; SOKOBAN, The  game;;----------------------------------------------------------- CargaRecursos4ǃ 0 ;32 colores 1 Menu;-----------------------------------------------------------; MAIN;-----------------------------------------------------------.Juego:GLOBAL_LEVEL=0direccion=0MuestraBitmapJuego{} CambioNivel Inicializa_EscenarioDibujaEscena{} 1=1 ;Joyb(0)=0 7 ValorBajoHeroe = Escenario(XHeroe,YHeroe) ="u"  Deshacer_Ultimo_Movimiento DibujaEs cena{} ($32)  0,5,1 ;FadeOut 0,3  0  5,0,1 ;FadeIn 0,1  Menu (keyboardSpeed=0) keyboardSpeed = GLOBAL_KEYBOARD ($10)  Control_Heroe_UP ($20)  Control_Heroe_DOWN ($18)  Control_Heroe_LEFT ($19)  Control_Heroe_RIGHT ($14) ProvocaFalsoFin{} ($13)  Inicializa_Escenario DibujaEscena{} CompruebaGameOver{}=1 ;  CambioNivel " G keyboardSpeed = keyboardSpeed - 1 final:; ----------------------------------------------------------------------; Motor del sokoban; -----'-----------------------------------------------------------------;-----------------------------------------------------------------; PANTALLA DE PRESENTACION/MENU;-----------------------------------------------------------------.MostrarInstrucciones: ǃ 1 DŽ 1,2 dž 1,2 ="" 7 ǃ 0 DŽ 0,1  0?} 1,1 .MostrarCreditos: ǃ 1 DŽ 1,3 dž 1,2 ="" 7 ǃ 0 DŽ 0,1 .Deshacer_Ultimo_Movimiento: PunteroPila>0 direccion=PilaMovs(PunteroPila-1)\d XHeroe=PilaMovs(PunteroPila-1)\Hx YHeroe=PilaMovs(PunteroPila-1)\Hy Escenario(XHeroe,YHeroe) = PilaMovs(PunteroPila-1)\Saco\v1  direccion  1 ; Izda (XHeroe > 1) Escenario(XHeroe-1,YHeroe)= PilaMovs(PunteroPila-1)\Saco\v2 (XHeroe > 2) Escenario(XHe /=roe-2,YHeroe)= PilaMovs(PunteroPila-1)\Saco\v3  2 ; Drcha (XHeroe < GLOBAL_HTILES-1) Escenario(XHeroe+1,YHeroe)= PilaMovs(PunteroPila-1)\Saco\v2 (XHeroe < GLOBAL_HTILES-2) Escenario(XHeroe+2,YHeroe)= PilaMovs(PunteroPila-1)\Saco\v3  3 (YHeroe > 1) Escenario(XHeroe,YHeroe-1)= PilaMovs(PunteroPila-1)\Saco\v2 (YHeroe > 2) Escenario(XHeroe,YHeroe-2)= PilaMovs(PunteroPila-1)\Saco\v3  4 (YHeroe < GLOBAL_HTILES-1) Escenario(X &Heroe,YHeroe+1)= PilaMovs(PunteroPila-1)\Saco\v2 (YHeroe < GLOBAL_HTILES-2) Escenario(XHeroe,YHeroe+2)= PilaMovs(PunteroPila-1)\Saco\v3   PunteroPila=PunteroPila-1 .GrabaPosicion: PilaMovs(PunteroPila)\Hx=XHeroe PilaMovs(PunteroPila)\Hy=YHeroe PilaMovs(PunteroPila)\Saco\v1=Escenario(XHeroe,YHeroe) PilaMovs(PunteroPila)\d=direccion  direccion  1 ;Izda XHeroe > 1 PilaMovs(PunteroPila)\Saco\v2=Escenario(XHeroe-1,YHeroe) ̋ XHeroe > 2 PilaMovs(PunteroPila)\Saco\v3=Escenario(XHeroe-2,YHeroe)  2 ;Derecha XHeroe < GLOBAL_HTILES-1 PilaMovs(PunteroPila)\Saco\v2=Escenario(XHeroe+1,YHeroe) XHeroe < GLOBAL_HTILES-2 PilaMovs(PunteroPila)\Saco\v3=Escenario(XHeroe+2,YHeroe)  3 ;Arriba YHeroe > 1 PilaMovs(PunteroPila)\Saco\v2=Escenario(XHeroe,YHeroe-1) YHeroe > 2 PilaMovs(PunteroPila)\Saco\v3=Escenario(XHeroe,YHeroe-2)  4 ;Abajo YHeroe < GLOBAL_HTILES-1 PilaMovs(PunteroPila)\Saco\v2=Escenario(XHeroe,YHeroe+1) YHeroe < GLOBAL_HTILES-2 PilaMovs(PunteroPila)\Saco\v3=Escenario(XHeroe,YHeroe+2)   PunteroPila=PunteroPila+1 .Control_Heroe_UP: direccion=3 (YHeroe>0) ; ;Arriba un hueco o meta ; (Escenario(XHeroe,YHeroe-1)=2 Escenario(XHeroe,YHeroe-1)=5) ;------------------------------------------- ;Restauramos el valor del tile bajo el prota ;GT------------------------------------------- Escenario(XHeroe,YHeroe)=ValorBajoHeroe ;DibujaTile{XHeroe,YHeroe,ValorBajoHeroe} ;------------------------------------------------------------------------------ ;Grabamos los valores de los tiles superiores para poder deshacer el movimiento ;------------------------------------------------------------------------------  GrabaPosicion ValorBajoHeroe = Escenario(XHeroe,YHeroe-1) ~  i=1  GLOBAL_TILE_SIZE DibujaTile{XHeroe,YHeroe,Escenario(XHeroe,YHeroe)} DibujaTile{XHeroe,YHeroe-1,Escenario(XHeroe,YHeroe-1)} DibujaTileMovimiento{XHeroe,YHeroe,4,direccion,i} 7  i YHeroe = YHeroe - 1 " (YHeroe>1) ; ;Arriba un barril (con o sin meta) y encima hueco o meta ; (Escenario(XHeroe,YHeroe-1)=3 Escenario(XHeroe,YHeroe-1)=8) (Escenƚ/ario(XHeroe,YHeroe-2)=2 Escenario(XHeroe,YHeroe-2)=5) ;------------------------------------------- ;Restauramos el valor del tile bajo el prota ;------------------------------------------- Escenario(XHeroe,YHeroe)=ValorBajoHeroe ;------------------------------------------------------------------------------ ;Grabamos los valores de los tiles superiores para poder deshacer el movimiento [ ;------------------------------------------------------------------------------  GrabaPosicion  i=1  GLOBAL_TILE_SIZE DibujaTile{XHeroe,YHeroe,Escenario(XHeroe,YHeroe)}; (Escenario(XHeroe,YHeroe-1)=3) DibujaTile{XHeroe,YHeroe-1,2} (Escenario(XHeroe,YHeroe-1)=8) DibujaTile{XHeroe,YHeroe-1,5} DibujaTile{XHeroe,YHeroe-2,Escenario(XHeroe,YHeroe-2)} DibujaTileMovimientGg͂o{XHeroe,YHeroe-1,9,direccion,i} DibujaTileMovimiento{XHeroe,YHeroe,4,direccion,i} 7  i (Escenario(XHeroe,YHeroe-2)=2) Escenario(XHeroe,YHeroe-2)=3 (Escenario(XHeroe,YHeroe-2)=5) Escenario(XHeroe,YHeroe-2)=8 (Escenario(XHeroe,YHeroe-1)=3) Escenario(XHeroe,YHeroe-1)=2 (Escenario(XHeroe,YHeroe-1)=8) Escenario(XHeroe,YHeroe-1)=5 YHeroe = YHeroe - 1 @P ValorBajoHeroe = Escenario(XHeroe,YHeroe) ;YHeroe > 0 .Control_Heroe_DOWN: direccion=4 (YHeroe0) ; ;A la izquierda un hueco o una meta ; (Escenario(XHeroe-1 .,YHeroe)=2 Escenario(XHeroe-1,YHeroe)=5) Escenario(XHeroe,YHeroe)=ValorBajoHeroe ;------------------------------------------- ;Restauramos el valor del tile bajo el prota ;------------------------------------------- ;DibujaTile{XHeroe,YHeroe,ValorBajoHeroe};* ;---------------------------------------------------------------------------------------- ;Grabamos los valores de los tiles laterales izquierdos para poder deshacer el movimiento !ķ ;----------------------------------------------------------------------------------------  GrabaPosicion ValorBajoHeroe = Escenario(XHeroe-1,YHeroe) ;DibujaTile{XHeroe,YHeroe,4}  i=1  GLOBAL_TILE_SIZE DibujaTile{XHeroe,YHeroe,Escenario(XHeroe,YHeroe)} DibujaTile{XHeroe-1,YHeroe,Escenario(XHeroe-1,YHeroe)} DibujaTileMovimiento{XHeroe,YHeroe,4,direccion,i} 7  i XHeroe = XHeroe - 1 " "Gu (XHeroe>1) ; ;A la izquieda un barril (con o sin meta) y al lado hueco o meta ; (Escenario(XHeroe-1,YHeroe)=3 Escenario(XHeroe-1,YHeroe)=8) (Escenario(XHeroe-2,YHeroe)=2 Escenario(XHeroe-2,YHeroe)=5) Escenario(XHeroe,YHeroe)=ValorBajoHeroe ;DibujaTile{XHeroe,YHeroe,ValorBajoHeroe};*  GrabaPosicion  i=1  GLOBAL_TILE_SIZE DibujaTile{XHeroe,YHeroe,Escenario(XHeroe#"Lr,YHeroe)}; (Escenario(XHeroe-1,YHeroe)=3) DibujaTile{XHeroe-1,YHeroe,2} (Escenario(XHeroe-1,YHeroe)=8) DibujaTile{XHeroe-1,YHeroe,5} DibujaTile{XHeroe-2,YHeroe,Escenario(XHeroe-2,YHeroe)} DibujaTileMovimiento{XHeroe-1,YHeroe,9,direccion,i} DibujaTileMovimiento{XHeroe,YHeroe,4,direccion,i} 7  i (Escenario(XHeroe-2,YHeroe)=2) Escenario(XHeroe-2,YHeroe)=3 $C (Escenario(XHeroe-2,YHeroe)=5) Escenario(XHeroe-2,YHeroe)=8 (Escenario(XHeroe-1,YHeroe)=3) Escenario(XHeroe-1,YHeroe)=2 (Escenario(XHeroe-1,YHeroe)=8) Escenario(XHeroe-1,YHeroe)=5 DibujaTile{XHeroe-2,YHeroe,Escenario(XHeroe-2,YHeroe)};* DibujaTile{XHeroe-1,YHeroe,Escenario(XHeroe-1,YHeroe)};* DibujaTile{XHeroe-1,YHeroe,4} XHeroe = XHeroe - 1 ValorBajoHeroe = Escenario(XHeroe,YHeroe)  %ޡM .Control_Heroe_RIGHT: direccion=2 (XHeroeroe=x:YHeroe=y:Escenario(x,y)=2  x  y ; ; Inicializamos la pila de movimientos ; PunteroPila=0 .Nivel1: .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,41,45,46,45,41,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,41,02,02,02,41,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,41,03,02,02,41,00,00,00,00,00,00,00,00,00,00).ݕa .b 00,00,00,43,48,48,02,02,03,48,41,00,00,00,00,00,00,00,00,00 .b 00,00,00,41,02,02,03,02,03,02,41,00,00,00,00,00,00,00,00,00 .b 00,43,48,50,02,41,02,43,43,02,41,00,00,00,43,45,45,45,45,41 .b 00,41,02,02,02,48,02,48,48,02,48,48,48,48,48,02,02,05,05,41 .b 00,41,02,03,02,02,03,02,02,02,02,02,02,02,02,02,02,05,05,41 .b 00,43,47,47,47,41,02,48,48,48,02,43,04,43,43,02,02,05,05,41 .b 00,00,00,00,00,41,02,02,02,02,02,43,47,48,48,47,47,47,47,5*/V0 .b 00,00,00,00,00,48,47,47,47,47,47,50,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00Nivel2: .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0+0r,ԇ0,00,00,00,00 .b 00,00,00,41,45,45,45,45,43,45,45,45,45,45,41,00,00,00,00,00 .b 00,00,00,41,05,05,02,02,43,02,02,02,02,02,48,48,41,00,00,00 .b 00,00,00,41,05,05,02,02,43,02,03,02,02,03,02,02,41,00,00,00 .b 00,00,00,41,05,05,02,02,48,03,48,48,43,41,02,02,41,00,00,00 .b 00,00,00,41,05,05,02,02,02,02,04,02,48,48,02,02,41,00,00,00 .b 00,00,00,41,05,05,02,02,43,02,43,02,02,03,02,48,41,00,00,00 .b 00,00,00,48,48,43,48,48,48,02,48,48,03,02,03,1k,02,41,00,00,00 .b 00,00,00,00,00,41,02,03,02,02,03,02,03,02,03,02,41,00,00,00 .b 00,00,00,00,00,41,02,02,02,02,41,02,02,02,02,02,41,00,00,00 .b 00,00,00,00,00,48,48,48,48,48,48,48,48,48,48,48,50,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00Nivel3: .b 00,00,00,00,00,00,00,00,00,00,00-2@D,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,41,45,45,45,45,45,45,41,00,00,00 .b 00,00,00,00,00,00,00,00,00,41,02,02,02,02,02,04,41,00,00,00 .b 00,00,00,00,00,00,00,00,00,41,02,03,48,03,02,43,41,00,00,00 .b 00,00,00,00,00,00,00,00,00,41,02,03,02,02,02,41,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,43,.3y48,03,02,03,03,41,00,00,00,00 .b 00,43,45,45,45,45,45,45,43,41,02,03,02,48,02,48,43,41,00,00 .b 00,43,05,05,05,05,02,02,48,48,02,03,02,02,03,02,02,41,00,00 .b 00,43,48,05,05,05,02,02,02,02,03,02,02,03,02,02,02,41,00,00 .b 00,43,05,05,05,05,02,02,43,48,48,48,48,48,48,48,48,50,00,00 .b 00,48,48,48,48,48,48,48,48,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,0/4丬0,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00Nivel4: .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,43,45,45,45,46,45,45,41 .b 00,00,00,00,00,00,00,00,00,00,00,00,43,02,02,05,05,05,05,41 .b 00,43,45,46,45,45,43,45,45,46,45,45,45,02,02,05,05,05,05,41 .b 00,43,02,02,02,02,43,02,02,03,02,03,02,02,02,05,05,05,05,41 .b 00,43,02,03,03,0305,48,03,02,02,03,02,40,02,02,05,05,05,05,41 .b 00,43,02,02,03,02,02,02,02,02,03,02,43,02,02,05,05,05,05,41 .b 00,43,02,03,03,02,43,03,02,03,02,03,43,48,48,48,48,48,48,50 .b 00,43,02,02,03,02,43,02,02,02,02,02,43,00,00,00,00,00,00,00 .b 00,43,48,02,48,48,43,48,48,48,48,43,48,00,00,00,00,00,00,00 .b 00,43,02,02,02,02,48,02,02,02,02,41,00,00,00,00,00,00,00,00 .b 00,43,02,02,02,02,02,03,02,02,02,48,43,00,00,00,00,00,00,00 .b 00,43,02,02,03,16SG03,40,03,03,02,02,04,43,00,00,00,00,00,00,00 .b 00,43,02,02,02,02,41,02,02,02,02,43,48,00,00,00,00,00,00,00 .b 00,48,48,48,48,48,48,48,48,48,48,48,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00Nivel5: .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,41,45,45,45,41,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,41,02,02,02,43,43,45,45,41,00,00 .b 00,27-00,00,00,00,00,00,00,00,41,02,40,03,48,48,02,02,41,00,00 .b 00,00,00,00,00,00,00,00,00,41,02,02,02,02,02,03,02,41,00,00 .b 00,41,45,46,45,45,46,45,43,41,02,48,48,48,02,02,02,41,00,00 .b 00,41,05,05,05,05,02,02,48,50,02,03,02,02,03,43,43,48,00,00 .b 00,41,05,05,05,05,02,02,02,02,03,02,03,03,02,48,41,00,00,00 .b 00,41,05,05,05,05,02,02,43,41,03,02,02,03,02,04,41,00,00,00 .b 00,48,48,48,48,48,48,48,48,41,02,02,03,02,02,48,41,00,00,00 .b 0380,00,00,00,00,00,00,00,00,41,02,03,02,03,02,02,41,00,00,00 .b 00,00,00,00,00,00,00,00,00,48,48,41,02,48,48,02,41,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,41,02,02,02,02,41,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,48,48,48,48,48,50,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00Nivel6: .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00495Y .b 00,00,00,00,00,00,00,00,00,41,45,45,45,41,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,41,02,02,02,43,43,45,45,41,00,00 .b 00,00,00,00,00,00,00,00,00,41,02,40,03,48,48,02,02,41,00,00 .b 00,00,00,00,00,00,00,00,00,41,02,02,02,02,02,03,02,41,00,00 .b 00,41,45,46,45,45,46,45,43,41,02,48,48,48,02,02,02,41,00,00 .b 00,41,05,05,05,05,02,02,48,50,02,03,02,02,03,43,43,48,00,00 .b 00,41,05,05,05,05,02,02,02,02,03,02,03,03,02,48,41,00,00,5:E00 .b 00,41,05,05,05,05,02,02,43,41,03,02,02,03,02,04,41,00,00,00 .b 00,48,48,48,48,48,48,48,48,41,02,02,03,02,02,48,41,00,00,00 .b 00,00,00,00,00,00,00,00,00,41,02,03,02,03,02,02,41,00,00,00 .b 00,00,00,00,00,00,00,00,00,48,48,41,02,48,48,02,41,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,41,02,02,02,02,41,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,48,48,48,48,48,50,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06;eV0,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00Nivel7: .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,43,45,45,45,41,00,00,00,00,00 .b 00,00,00,00,43,45,45,45,45,43,43,02,02,02,48,41,00,00,00,00 .b 00,00,00,41,48,02,02,02,04,48,48,02,03,03,02,41,00,00,00,00 .b 00,00,00,41,02,02,02,02,03,02,02,02,02,02,07<502,41,00,00,00,00 .b 00,00,00,41,02,02,03,02,02,43,43,43,02,02,02,41,00,00,00,00 .b 00,00,00,41,48,48,02,48,43,43,43,48,03,48,43,50,00,00,00,00 .b 00,00,00,41,02,03,02,02,48,48,48,02,05,05,41,00,00,00,00,00 .b 00,00,00,41,02,03,02,03,02,03,02,05,05,05,41,00,00,00,00,00 .b 00,00,00,41,02,02,02,02,43,48,41,05,05,05,41,00,00,00,00,00 .b 00,00,00,41,02,03,03,02,43,00,41,05,05,05,41,00,00,00,00,00 .b 00,00,00,41,02,02,43,48,48,00,48,48,48,488=bo,50,00,00,00,00,00 .b 00,00,00,48,48,48,48,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00Nivel8: .b 00,00,00,00,41,45,45,41,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,41,02,02,45,45,45,45,45,45,45,45,45,45,41,00,00 .b 00,00,00,00,41,02,02,02,02,03,02,02,02,03,02,03,02,41,00,00 .b 00,00,00,00,41,02,03,48,02,039>n ,02,40,02,02,03,02,02,41,00,00 .b 00,00,00,00,41,02,02,03,02,03,02,02,43,02,02,02,02,41,00,00 .b 00,00,43,43,41,02,03,48,02,40,02,02,43,43,48,48,02,41,00,00 .b 00,00,41,04,48,03,02,03,02,03,02,02,48,48,02,02,02,41,00,00 .b 00,00,41,02,02,02,02,03,02,48,03,40,02,02,02,48,02,41,00,00 .b 00,00,41,02,02,02,03,02,02,02,02,03,02,03,02,03,02,41,00,00 .b 00,00,48,48,43,48,48,02,02,48,48,43,48,48,48,48,48,50,00,00 .b 00,00,00,00,41,02,02,02,02,:?aF02,02,41,00,00,00,00,00,00,00,00 .b 00,00,00,00,41,02,02,02,02,02,02,41,00,00,00,00,00,00,00,00 .b 00,00,00,00,41,05,05,05,05,05,05,41,00,00,00,00,00,00,00,00 .b 00,00,00,00,41,05,05,05,05,05,05,41,00,00,00,00,00,00,00,00 .b 00,00,00,00,41,05,05,05,05,05,05,41,00,00,00,00,00,00,00,00 .b 00,00,00,00,48,48,48,48,48,48,48,50,00,00,00,00,00,00,00,00Nivel9: .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,;@6F00,00,00,00,00,00,41,45,45,45,45,45,41,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,41,02,02,05,05,05,41,00,00 .b 00,00,00,00,00,00,00,41,45,45,45,45,02,02,05,05,05,41,00,00 .b 00,00,00,00,00,00,00,41,02,02,02,02,02,02,05,02,05,41,00,00 .b 00,00,00,00,00,00,00,41,02,02,43,41,02,02,05,05,05,41,00,00 .b 00,00,00,00,00,00,00,43,43,02,43,41,02,02,05,05,05,41,00,00 .b 00,00,00,00,00,00,43,48,48,02,48,48,43,43,48,48,48,50,00,00 .b 00,00,00,00,0<AȊ0,00,41,02,03,03,03,02,48,41,00,00,00,00,00,00 .b 00,00,43,45,45,45,41,02,02,03,02,03,02,43,43,43,43,41,00,00 .b 00,43,48,02,02,02,50,03,02,03,02,02,02,48,02,02,02,41,00,00 .b 00,41,04,02,03,02,02,03,02,02,02,02,03,02,02,03,02,41,00,00 .b 00,48,48,48,48,48,41,02,03,03,02,03,02,43,48,48,48,50,00,00 .b 00,00,00,00,00,00,41,02,02,02,02,02,02,41,00,00,00,00,00,00 .b 00,00,00,00,00,00,48,48,48,48,48,48,48,50,00,00,00,00,00,00 .b 00,00,00,00=B\8,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00Nivel10: .b 00,41,45,41,00,00,41,45,45,45,45,45,45,45,45,45,45,45,41,00 .b 43,50,04,45,45,45,45,02,02,02,02,02,02,02,40,02,02,02,41,00 .b 41,02,03,03,02,02,02,03,03,02,02,03,02,03,02,05,05,05,41,00 .b 41,02,02,03,03,03,41,02,02,02,02,03,02,02,41,05,05,05,41,00 .b 41,02,03,02,02,02,41,02,03,03,02,03,03,02,41,05,05,05,41,00 .b 43,48,50,02,02,02,41,02,02,03,02,02,02,02,41,05,05,05,41,00 .b >C< 41,02,02,02,02,02,41,02,03,02,03,02,03,02,41,05,05,05,41,00 .b 41,02,02,02,02,40,43,48,48,48,50,02,48,48,41,05,05,05,41,00 .b 43,50,02,41,02,02,41,02,02,03,02,03,02,02,41,05,05,05,41,00 .b 41,02,02,48,41,02,41,02,03,03,02,03,02,03,48,50,05,05,41,00 .b 41,02,05,05,41,02,41,02,02,03,02,02,02,02,02,02,41,05,41,00 .b 41,02,05,05,41,02,41,02,03,03,03,02,03,03,03,02,41,05,41,00 .b 48,48,48,48,41,02,41,02,02,02,02,02,02,02,41,02,41,05,41,00 .b ?D 00,00,00,00,41,02,48,48,48,48,48,48,48,48,50,02,41,05,41,00 .b 00,00,00,00,41,02,02,02,02,02,02,02,02,02,02,02,41,05,41,00 .b 00,00,00,00,48,48,48,48,48,48,48,48,48,48,48,48,48,48,50,00Nivel30: .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,43,45,45,45,45,45,45,45,45,45,41,00 .b 00,00,00,00,00,00,00,00,41,02,02,02,47,02,02,02,02,02,41,00 .b 00,41,45,45,45,41,00,00,41,02,02,02,02,02,03,02,03,02,@E]S41,00 .b 00,41,02,02,02,43,43,45,48,47,02,03,43,41,02,47,02,47,41,00 .b 00,41,02,03,02,48,48,02,02,02,41,02,43,41,02,03,02,02,41,00 .b 00,41,02,03,02,02,04,03,03,02,41,02,43,41,03,03,02,02,41,00 .b 00,43,41,02,43,47,47,02,02,02,41,02,43,41,02,02,03,02,41,00 .b 00,00,41,02,41,02,02,02,47,47,48,02,48,41,47,47,47,02,41,00 .b 00,43,50,02,41,02,02,02,02,02,03,02,02,41,05,05,05,05,41,00 .b 00,41,02,02,48,47,47,02,47,41,02,03,02,41,05,05,05,0AFV;5,48,41 .b 00,41,02,03,02,02,02,03,02,41,02,02,02,41,05,05,03,05,02,41 .b 00,41,02,02,43,41,02,03,02,41,02,02,43,41,05,05,05,05,02,41 .b 00,47,47,47,48,41,02,02,02,43,43,48,48,48,41,05,05,05,43,50 .b 00,00,00,00,00,48,47,47,47,48,48,00,00,00,48,47,47,47,48,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00Nivel31: .b 00,00,00,43,45,45,41,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,41,02,02,43,43,45,45,43,45,46,BG%#45,41,00,00,00,00,00 .b 00,00,43,50,02,02,43,48,02,02,48,02,02,02,41,00,00,00,00,00 .b 00,00,41,02,02,03,48,02,03,04,03,02,02,02,48,47,47,43,00,00 .b 00,00,41,03,02,02,03,02,02,41,02,03,02,03,40,02,02,48,41,00 .b 00,43,50,02,02,03,48,41,02,41,03,02,03,02,02,02,02,02,41,00 .b 00,41,02,02,47,02,02,50,02,48,50,02,02,03,03,03,02,02,41,00 .b 00,41,02,03,02,02,02,02,03,02,02,03,43,48,02,42,48,48,48,00 .b 00,41,02,03,02,02,03,41,03,40,02,02,4CHŇ:{1,02,02,42,00,00,00,00 .b 00,48,41,02,02,43,48,48,02,02,48,48,48,03,02,42,00,00,00,00 .b 00,00,41,02,02,41,05,05,05,05,02,02,02,02,02,42,00,00,00,00 .b 00,00,48,48,43,50,05,05,05,05,05,05,43,48,48,48,00,00,00,00 .b 00,00,00,00,41,05,05,05,05,43,47,47,48,00,00,00,00,00,00,00 .b 00,00,00,00,41,05,05,05,43,48,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,41,05,05,05,41,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,48,48,48,48,50,00,00,00DIؔ,00,00,00,00,00,00,00,00Nivel32: .b 00,00,00,00,00,00,00,00,00,00,43,45,45,41,00,00,00,00,00,00 .b 00,00,00,00,00,00,43,45,45,45,45,02,02,41,00,00,00,00,00,00 .b 00,00,00,00,00,43,41,02,02,02,02,02,03,41,00,00,00,00,00,00 .b 00,00,00,00,43,41,02,03,02,02,02,47,02,48,47,41,00,00,00,00 .b 00,00,00,00,41,04,03,02,03,02,41,02,03,02,02,41,00,00,00,00 .b 00,00,00,00,43,43,47,47,02,43,41,02,02,02,03,41,00,00,00,00 .b 00,00,00,00,00,41,05,0EJa5,05,05,41,03,02,03,02,41,00,00,00,00 .b 00,00,00,00,00,41,05,05,05,05,48,02,02,02,03,41,00,00,00,00 .b 00,00,00,00,00,41,05,05,05,05,02,02,03,03,02,43,41,00,00,00 .b 00,00,00,00,00,41,05,05,05,02,41,02,03,02,02,02,41,00,00,00 .b 00,00,00,00,00,48,47,47,47,47,41,03,02,03,02,02,41,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,41,02,02,02,43,48,50,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,41,03,02,43,48,00,00,00,00,00 .b 00,00,00,00,00,00,00FKt,00,00,00,41,02,02,41,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,48,47,47,50,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00Nivel33: .b 00,00,00,00,00,43,45,45,46,45,45,43,43,45,45,41,00,00,00,00 .b 00,00,00,00,00,41,02,02,02,02,02,48,48,02,02,41,00,00,00,00 .b 00,00,00,00,00,41,02,02,02,03,02,02,02,03,02,41,00,00,00,00 .b 00,00,00,00,43,48,48,48,02,43,41,02,03,03,02,41,00,00,00,00 .b 00,00,0GLO 30,00,41,02,02,02,03,02,41,02,02,02,02,41,00,00,00,00 .b 00,00,00,00,41,02,03,03,03,02,41,02,48,48,43,41,00,00,00,00 .b 00,00,00,00,41,02,02,02,48,02,41,02,03,02,48,41,00,00,00,00 .b 00,00,00,00,41,02,02,41,02,02,41,02,02,03,02,41,00,00,00,00 .b 00,00,00,00,41,02,03,50,02,02,41,02,02,02,02,41,00,00,00,00 .b 00,00,00,00,41,02,02,02,02,03,48,02,48,43,48,41,00,00,00,00 .b 00,00,00,00,41,48,48,50,05,05,02,03,02,41,04,41,00,00,00,00 .b 00,00HN,00,00,41,05,05,05,05,05,41,02,03,50,02,41,00,00,00,00 .b 00,00,00,00,48,41,05,05,05,05,41,02,02,03,02,41,00,00,00,00 .b 00,00,00,00,00,48,41,05,05,43,41,02,02,02,02,41,00,00,00,00 .b 00,00,00,00,00,00,48,48,48,48,48,48,48,48,48,50,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00Nivel34: .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,41,45,46,45,45,45,46,45,41,00,00,00,00,00,00,00 M5~}|{zyxwvutsrqponmlkjihgfedcba`_^]\[ZYXWVUTSRQPONIO ߇.b 00,00,00,00,41,05,05,05,05,02,02,02,49,41,00,00,00,00,00,00 .b 00,00,00,00,41,05,40,05,40,02,02,03,02,49,41,00,00,00,00,00 .b 00,00,00,43,50,05,05,05,05,41,02,47,02,04,49,41,00,00,00,00 .b 00,00,00,41,02,05,05,05,05,41,02,02,41,02,02,49,41,00,00,00 .b 00,00,00,41,02,02,02,02,02,50,03,02,48,50,03,02,41,00,00,00 .b 00,00,00,48,41,02,47,47,47,02,02,03,02,02,02,02,41,00,00,00 .b 00,00,00,00,41,03,02,02,03,02,03,02,03,41,02,02,41,00,00,00JPԑ .b 00,00,00,00,41,02,47,02,02,03,02,03,02,43,47,02,41,00,00,00 .b 00,00,00,00,41,02,02,47,47,41,02,02,43,41,02,02,41,00,00,00 .b 00,00,00,00,41,02,02,02,02,43,47,02,48,50,02,43,50,00,00,00 .b 00,00,00,00,41,02,02,03,02,50,02,02,03,02,02,41,00,00,00,00 .b 00,00,00,00,48,47,41,03,02,03,02,02,02,43,43,50,00,00,00,00 .b 00,00,00,00,00,00,41,02,02,43,47,47,47,48,50,00,00,00,00,00 .b 00,00,00,00,00,00,48,47,47,50,00,00,00,00,00,00,00,00,00,0KQ“u0Nivel35: .b 41,45,45,45,43,45,45,45,45,43,45,41,00,41,45,45,45,45,41,00 .b 41,02,02,02,48,02,02,02,02,48,02,48,48,48,05,05,05,05,41,00 .b 41,02,02,02,03,03,41,02,02,02,04,02,02,05,05,05,05,05,41,00 .b 41,02,02,02,41,02,43,43,41,02,02,02,47,02,05,05,05,05,41,00 .b 48,41,02,48,50,02,48,48,50,02,02,41,02,02,05,05,05,05,41,00 .b 00,41,02,03,02,03,02,02,02,02,02,41,02,47,02,47,47,47,41,00 .b 00,41,02,02,03,02,03,48,41,02,02,41,02,02,02,LRnl02,02,02,41,00 .b 43,48,48,41,02,41,02,02,48,48,43,41,02,41,02,47,47,02,41,00 .b 41,02,02,50,02,50,03,02,02,02,43,41,02,41,02,02,02,02,41,00 .b 41,02,03,02,02,03,02,02,47,02,48,41,02,41,02,02,02,43,50,00 .b 41,02,47,02,03,02,03,02,02,02,02,41,02,41,02,02,02,41,00,00 .b 41,02,02,03,02,47,47,02,47,47,02,50,02,43,48,48,48,50,00,00 .b 41,02,03,03,02,02,02,02,02,03,03,02,02,41,00,00,00,00,00,00 .b 48,41,02,47,47,02,43,48,41,02,03,02,02,41,0MS,H0,00,00,00,00,00 .b 00,41,02,02,02,02,41,00,41,02,02,02,02,41,00,00,00,00,00,00 .b 00,48,48,48,48,48,50,00,48,48,48,48,48,50,00,00,00,00,00,00Nivel36: .b 00,00,00,00,00,00,00,00,00,00,00,00,41,45,45,45,41,00,00,00 .b 41,45,45,45,41,00,00,41,45,45,45,45,45,02,02,02,41,00,00,00 .b 41,02,02,02,48,48,43,41,02,02,03,02,03,02,03,02,41,00,00,00 .b 41,02,03,02,02,02,48,50,02,48,48,02,48,48,02,02,48,41,00,00 .b 41,02,02,02,03,02,03,02,02,02,NTaR02,02,03,02,02,03,02,41,00,00 .b 48,48,41,02,03,02,02,43,41,02,43,43,02,02,02,02,02,48,41,00 .b 00,00,41,02,43,43,43,43,41,02,48,43,43,48,48,03,03,02,41,00 .b 00,43,50,03,48,48,43,00,41,02,04,43,41,02,02,02,02,02,41,00 .b 00,41,02,03,02,02,43,48,50,03,43,43,41,02,03,02,02,43,50,00 .b 00,41,02,03,02,02,50,02,02,02,48,48,50,02,02,43,48,50,00,00 .b 00,41,02,03,03,02,03,02,40,02,02,02,03,03,02,41,00,00,00,00 .b 00,41,02,02,02,02,02,41,02,0OU+2,02,48,41,02,02,41,00,00,00,00 .b 00,48,48,48,43,48,48,50,05,05,02,05,48,48,43,50,00,00,00,00 .b 00,00,00,00,41,05,05,05,05,05,05,05,05,05,41,00,00,00,00,00 .b 00,00,00,00,41,05,05,05,05,05,05,05,05,05,41,00,00,00,00,00 .b 00,00,00,00,48,48,48,48,48,48,48,48,48,48,50,00,00,00,00,00Nivel37: .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,41,45,45,46,45,45,45,46,45,45,41,00,00,00,00,00,00,00,00 .b 00,41,05,05,05,PV ֞05,05,05,02,02,02,41,45,46,45,45,45,46,45,41 .b 00,41,05,05,05,05,05,05,02,02,02,50,02,02,40,40,02,02,02,41 .b 00,41,05,05,48,48,50,02,03,02,02,02,02,03,02,02,02,02,02,41 .b 00,41,05,05,05,02,03,02,03,02,41,02,02,48,48,50,02,02,02,41 .b 00,41,05,05,05,48,03,48,43,48,48,50,02,02,02,02,41,02,02,41 .b 00,48,48,41,02,02,02,02,50,02,02,02,48,03,02,02,41,03,02,41 .b 00,00,00,41,02,02,03,03,02,03,02,03,02,02,03,43,41,02,02,41 .b 00,00,00,41,0QW2,02,03,02,02,02,41,03,48,03,02,43,41,03,02,41 .b 00,00,00,48,43,50,02,48,50,02,50,02,02,02,02,43,41,02,02,41 .b 00,00,00,00,41,02,02,03,02,03,02,48,48,02,48,43,48,48,48,50 .b 00,00,00,00,41,02,02,02,02,03,02,02,03,02,02,41,00,00,00,00 .b 00,00,00,00,48,41,02,02,02,41,02,41,02,02,02,41,00,00,00,00 .b 00,00,00,00,00,48,48,48,48,41,04,43,48,48,48,50,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,48,48,50,00,00,00,00,00,00,00,00Nivel38: .b RX00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,43,45,45,41,00,00,00,00,00 .b 00,00,00,00,00,41,45,45,45,45,45,45,02,04,41,00,00,00,00,00 .b 00,00,00,00,00,41,02,02,02,02,02,03,02,02,41,00,00,00,00,00 .b 00,00,00,00,00,41,02,02,02,03,48,50,02,03,41,00,00,00,00,00 .b 00,00,00,00,00,48,41,03,50,05,05,05,50,02,41,00,00,00,00,00 .b SYjn 00,00,00,00,00,00,41,02,03,05,05,05,02,02,41,00,00,00,00,00 .b 00,00,00,00,00,00,41,02,50,05,02,05,41,02,48,41,00,00,00,00 .b 00,00,00,00,00,00,41,02,02,02,50,02,50,03,02,41,00,00,00,00 .b 00,00,00,00,00,00,41,03,02,02,03,02,02,02,02,41,00,00,00,00 .b 00,00,00,00,00,00,41,02,02,43,48,48,48,48,48,50,00,00,00,00 .b 00,00,00,00,00,00,48,48,48,50,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .bTZ @t 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00Nivel39: .b 00,00,00,00,00,00,00,00,00,00,00,00,00,41,45,45,45,45,41,00 .b 00,41,45,45,45,43,43,45,45,45,45,45,43,41,05,05,05,05,41,00 .b 43,50,02,02,02,43,41,02,02,02,02,02,43,41,05,05,05,05,41,00 .b 41,02,02,03,03,48,50,02,02,03,02,04,48,50,05,05,05,05,41,00 .b 41,02,02,02,02,02,02,03,03,02,03,41,02,02,05,05,05,05U[OB,41,00 .b 41,02,02,03,02,43,41,02,03,03,02,41,02,40,02,05,05,05,41,00 .b 41,02,02,03,02,43,41,02,03,02,02,41,02,02,05,05,05,05,41,00 .b 43,41,02,48,48,48,48,50,02,48,43,41,02,48,50,05,48,48,41,00 .b 43,50,02,02,02,03,02,02,03,02,43,41,02,02,02,05,02,02,41,00 .b 41,02,02,48,48,50,02,02,41,02,48,48,48,48,50,02,43,48,50,00 .b 41,02,02,02,03,02,02,02,50,02,02,02,02,02,02,02,41,00,00,00 .b 41,02,02,03,02,41,03,02,03,02,03,43,48,41,02,02,41,V\%00,00,00 .b 41,02,03,03,03,41,02,03,02,02,02,41,00,48,48,48,50,00,00,00 .b 41,02,02,02,02,41,02,02,03,03,02,41,00,00,00,00,00,00,00,00 .b 48,48,48,48,48,41,02,02,02,43,48,50,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,48,48,48,48,48,00,00,00,00,00,00,00,00,00,00Nivel40: .b 00,00,00,00,00,00,41,45,45,46,45,45,45,45,46,45,45,41,00,00 .b 00,00,00,00,00,00,41,02,02,02,02,02,02,02,02,02,02,48,41,00 .b 00,00,00,00,00,00,41,02,02,41,02,41,03W]AL,03,02,03,02,02,41,00 .b 00,00,00,00,00,00,41,03,02,41,03,41,02,02,48,41,02,04,41,00 .b 00,00,00,00,00,43,50,02,48,50,02,41,02,03,02,41,02,43,50,00 .b 00,00,00,00,00,41,02,02,02,03,02,50,03,02,02,41,02,41,00,00 .b 00,00,00,00,00,41,02,02,02,50,02,03,02,02,02,41,02,41,00,00 .b 00,00,00,00,00,43,50,02,03,02,03,02,02,02,48,50,02,41,00,00 .b 00,00,00,00,00,41,02,02,50,02,02,43,50,02,02,03,02,41,00,00 .b 00,00,00,00,00,41,02,02,02,02,48,50,X^o02,03,03,50,02,41,00,00 .b 00,00,43,48,48,48,48,41,03,03,02,02,02,41,02,02,02,41,00,00 .b 00,00,41,05,05,05,05,50,02,02,43,48,48,48,48,48,48,50,00,00 .b 00,00,41,05,40,05,05,05,02,48,41,00,00,00,00,00,00,00,00,00 .b 00,00,41,05,05,05,05,02,02,02,41,00,00,00,00,00,00,00,00,00 .b 00,00,41,05,05,05,05,02,02,02,41,00,00,00,00,00,00,00,00,00 .b 00,00,48,48,48,48,48,48,48,48,50,00,00,00,00,00,00,00,00,00Nivel41: .b 00,00,00,00,00,00,00,00Y_P ,00,00,00,00,43,45,46,45,41,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,43,48,02,02,02,48,41,00,00 .b 00,00,00,00,00,00,00,00,00,00,43,48,02,02,02,02,02,41,00,00 .b 00,00,00,00,00,00,00,00,00,43,48,02,02,03,03,02,02,41,00,00 .b 00,00,00,00,00,00,00,00,43,48,02,03,03,02,02,03,02,41,00,00 .b 00,00,00,00,00,00,00,00,43,02,03,02,02,02,02,03,02,41,00,00 .b 00,41,45,45,41,00,00,00,43,02,02,02,03,03,43,43,43,43,43,41 .b 00,41,02,02,48,48,48,Z`[,48,48,48,48,50,02,48,48,02,02,02,02,41 .b 00,41,05,02,02,02,02,02,02,02,02,02,02,02,02,03,03,03,04,41 .b 00,41,05,41,02,43,43,43,43,43,43,43,02,48,41,02,02,02,43,41 .b 00,41,05,48,02,48,48,48,48,48,48,48,05,02,41,03,02,03,48,41 .b 00,41,05,05,05,05,05,05,05,05,05,05,05,02,41,02,02,02,02,41 .b 00,48,47,47,47,47,47,47,47,47,47,47,47,47,41,02,02,03,02,41 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,48,41,02,02,43,50 .b 00,00,00,00,00,00,0[a)0,00,00,00,00,00,00,00,00,48,48,48,50,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00Nivel42: .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,43,45,45,45,45,45,45,41,00,00,00,00,00,00 .b 00,00,00,43,48,48,48,02,02,02,02,02,02,48,48,48,48,48,41,00 .b 00,00,00,41,02,02,02,02,43,41,02,03,02,03,02,02,02,04,41,00 .b 00,00,00,41,02,48,50,02,48,50,03,41,03,02,03,02,03,43,41,00 .b 00,43,\b#48,48,02,05,05,05,05,05,05,41,02,02,03,03,02,48,41,00 .b 00,41,02,02,02,05,05,05,05,05,05,41,02,02,50,02,02,02,41,00 .b 00,41,02,41,02,05,05,05,05,05,05,50,03,02,02,03,02,02,41,00 .b 00,41,02,50,03,05,05,05,05,05,05,02,03,03,50,02,03,02,41,00 .b 00,41,02,02,02,48,48,50,02,48,48,50,03,02,02,03,02,43,50,00 .b 00,48,48,41,02,02,03,02,02,03,02,02,03,02,02,03,02,41,00,00 .b 00,00,00,41,02,02,03,02,02,03,02,02,03,02,02,03,02,41,00,00 .b 00,0]c&0,00,48,48,48,48,48,41,02,02,02,43,48,48,48,48,50,00,00 .b 00,00,00,00,00,00,00,00,48,48,48,48,50,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00Nivel43: .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,43,45,45,43,45,45,41,00,00,00,00,00 ^dk .b 00,00,00,00,41,45,45,45,43,02,02,48,02,02,48,48,48,41,00,00 .b 00,00,00,00,41,02,02,02,48,02,02,02,03,02,02,02,02,41,00,00 .b 00,43,48,48,50,02,40,03,03,02,43,50,02,43,41,02,02,41,00,00 .b 43,50,02,02,02,02,02,02,41,02,50,02,02,48,50,02,48,48,41,00 .b 41,02,02,48,40,50,02,03,41,03,02,02,03,02,02,03,02,02,41,00 .b 41,05,05,05,02,02,02,02,50,02,48,41,02,02,41,02,02,02,41,00 .b 41,05,05,05,41,02,02,02,02,04,02,50,02,48,48,50,02,48,41,00_e1 .b 41,05,05,05,41,02,02,43,48,41,02,02,03,02,02,03,02,02,41,00 .b 48,48,48,48,48,48,48,48,00,48,41,02,02,02,41,02,02,02,41,00 .b 00,00,00,00,00,00,00,00,00,00,48,48,48,48,48,48,48,48,50,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00Nivel44: .b 00,41,45,46,45,41,00,00,00,00,00,00,00,00,00,0`f}10,00,00,00,00 .b 00,41,02,02,02,41,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,41,02,40,02,48,48,48,48,48,41,00,00,00,00,00,00,00,00,00 .b 00,41,02,02,02,02,02,02,03,04,43,43,48,48,48,41,00,00,00,00 .b 00,41,02,03,02,43,41,03,02,48,48,50,02,02,02,41,00,00,00,00 .b 00,41,02,43,43,48,41,02,02,02,02,02,02,03,02,41,00,00,00,00 .b 00,41,02,48,41,02,43,41,02,41,02,02,50,03,02,48,48,48,41,00 .b 43,50,02,02,41,48,48,50,02,48,41,03,02,02,02agG,02,02,02,41,00 .b 41,02,02,03,50,02,02,03,02,02,41,02,43,48,02,48,41,02,41,00 .b 41,02,02,02,02,02,02,02,02,02,41,02,50,05,05,05,50,02,41,00 .b 48,48,48,48,48,41,02,02,43,48,41,02,02,05,05,05,02,02,41,00 .b 00,00,00,00,00,48,48,48,50,00,41,02,41,05,05,05,41,02,41,00 .b 00,00,00,00,00,00,00,00,00,00,41,02,48,48,50,02,50,02,41,00 .b 00,00,00,00,00,00,00,00,00,00,41,02,02,02,02,02,02,02,41,00 .b 00,00,00,00,00,00,00,00,00,00,48,48,48,48,bh*48,48,48,48,50,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00Nivel45: .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,41,45,46,45,41,00,43,45,45,41,00,00,00,00,00,00,00,00,00 .b 00,41,05,05,05,41,00,41,02,02,48,48,48,41,00,00,00,00,00,00 .b 00,41,05,05,05,48,43,41,02,02,03,02,02,41,00,00,00,00,00,00 .b 00,41,05,05,05,05,48,41,02,03,02,02,03,48,48,41,00,00,00,00 .b 00,43,41,05,05,05,05,48,41,02cic,02,02,03,02,02,41,00,00,00,00 .b 00,43,48,41,05,05,05,02,48,41,02,03,02,03,02,41,00,00,00,00 .b 00,41,02,48,41,02,02,02,02,41,02,02,03,02,02,41,00,00,00,00 .b 00,41,02,02,48,41,02,41,02,48,48,50,02,48,48,48,41,00,00,00 .b 00,41,02,03,02,50,02,50,03,02,02,03,02,02,02,02,41,00,00,00 .b 00,41,02,02,03,02,04,02,03,02,02,02,02,03,02,02,41,00,00,00 .b 00,41,02,02,02,41,02,03,02,03,03,02,03,02,43,48,50,00,00,00 .b 00,41,02,02,43,48,48,48,48,dj_41,02,02,43,48,50,00,00,00,00,00 .b 00,41,02,43,50,00,00,00,00,48,48,48,50,00,00,00,00,00,00,00 .b 00,48,48,50,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00Nivel46: .b 00,00,43,45,45,46,45,45,46,45,45,43,00,00,00,00,00,00,00,00 .b 00,00,41,02,02,02,02,02,02,02,02,43,48,48,41,00,00,00,00,00 .b 00,00,41,02,43,48,48,48,48,50,02,50,02,02,48,41,00,00,00,00 .b 00,00,41,02,48ek]J,02,03,02,03,02,03,02,02,03,02,41,00,00,00,00 .b 00,00,41,02,02,02,02,02,02,02,41,03,02,02,02,41,00,00,00,00 .b 00,00,48,48,41,03,02,02,03,03,41,02,02,43,43,50,00,00,00,00 .b 00,00,00,00,41,02,02,43,50,02,50,02,03,48,41,00,00,00,00,00 .b 00,00,00,00,48,41,03,50,02,02,02,03,02,04,41,00,00,00,00,00 .b 00,00,00,00,00,41,02,02,03,02,03,02,48,48,41,00,00,00,00,00 .b 00,00,00,00,00,41,02,41,02,02,02,03,02,02,41,00,00,00,00,00 .b 00,00,00,00,fl?00,41,02,48,41,02,02,02,41,02,41,00,00,00,00,00 .b 00,00,00,00,43,50,02,02,48,48,48,48,50,02,41,00,00,00,00,00 .b 00,00,00,00,41,02,02,02,02,02,02,02,02,02,41,00,00,00,00,00 .b 00,00,00,00,41,05,05,05,05,05,05,05,43,48,50,00,00,00,00,00 .b 00,00,00,00,41,05,05,05,05,05,05,05,41,00,00,00,00,00,00,00 .b 00,00,00,00,48,48,48,48,48,48,48,48,50,00,00,00,00,00,00,00Nivel47: .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b gm7ռ 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,43,45,45,41,00,00,00,00,00,00 .b 00,00,43,48,48,48,48,48,48,48,50,02,02,48,43,00,00,00,00,00 .b 00,43,50,02,02,03,02,02,02,02,02,02,03,02,43,48,48,48,41,00 .b 00,41,02,02,02,48,50,02,48,50,02,02,02,43,41,05,05,05,41,00 .b 00,41,02,41,03,03,02,03,02,03,03,41,03,48,50,05,05,05,41,00 .b 00,41,02,50,02,02,02,02,04,02,02,50,02,02,02,05,05,05,41,00 .b hn<4 00,41,02,02,03,50,02,48,48,50,03,03,02,02,02,05,05,05,41,00 .b 00,41,02,03,02,02,03,03,02,02,03,02,43,41,05,05,05,05,41,00 .b 00,48,48,41,03,02,02,02,02,02,02,02,43,48,48,48,48,48,50,00 .b 00,00,00,41,02,02,43,48,48,48,48,48,50,00,00,00,00,00,00,00 .b 00,00,00,48,48,48,50,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 .iob 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00Nivel48: .b 00,00,00,00,00,43,45,46,45,45,45,46,45,41,00,00,00,00,00,00 .b 00,00,00,00,00,41,08,05,08,40,08,05,08,41,00,00,00,00,00,00 .b 00,00,00,00,00,41,05,08,05,08,05,08,05,41,00,00,00,00,00,00 .b 00,00,00,00,00,41,08,05,08,05,08,05,08,41,00,00,00,00,00,00 .b 00,00,00,00,00,41,05,08,05,08,05,08,05,41,00,00,00,00,00,00 .b 00,00,00,00,00,41,08,05,08,05,08,05,08,41,00,00,00,0jpܐ0,00,00 .b 00,00,00,00,00,48,48,41,02,02,02,43,48,50,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,41,02,02,02,41,00,00,00,00,00,00,00,00 .b 00,00,00,43,48,48,48,48,50,02,48,48,48,48,48,41,00,00,00,00 .b 00,00,00,41,02,02,02,02,02,02,02,02,02,02,02,41,00,00,00,00 .b 00,00,00,41,02,03,02,03,02,03,02,03,02,03,02,41,00,00,00,00 .b 00,00,00,48,41,02,03,02,03,02,03,02,03,02,43,50,00,00,00,00 .b 00,00,00,00,41,03,02,03,02,03,02,03,02,03,41,00,00kqHnz,00,00,00 .b 00,00,00,00,41,02,02,02,03,04,03,02,02,02,41,00,00,00,00,00 .b 00,00,00,00,41,02,02,43,48,48,48,41,02,02,41,00,00,00,00,00 .b 00,00,00,00,48,48,48,50,00,00,00,48,48,48,50,00,00,00,00,00Nivel49: .b 00,00,00,00,00,00,00,00,00,43,45,45,41,00,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,41,02,02,48,41,00,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,41,02,02,02,48,41,00,00,00,00,00 .b 00,00,00,00,00,00,00,00,00,41,02,03,0lrԋ!#3,02,48,41,00,00,00,00 .b 00,00,00,00,00,00,00,43,48,50,03,02,02,03,02,48,41,00,00,00 .b 00,00,00,00,43,48,48,41,02,02,02,02,03,02,02,02,41,00,00,00 .b 00,00,43,48,50,02,02,41,02,43,48,48,48,50,02,02,41,00,00,00 .b 00,00,41,02,02,02,02,50,02,50,05,05,05,05,03,02,41,00,00,00 .b 00,00,41,02,50,02,02,02,03,02,05,05,05,05,41,02,41,00,00,00 .b 00,00,41,02,02,03,02,41,02,41,05,08,05,05,41,02,41,00,00,00 .b 00,00,48,48,41,02,02,43,48,48,50,02ms߿,48,43,41,02,41,00,00,00 .b 00,00,00,00,48,48,48,41,02,04,03,02,02,48,50,03,48,41,00,00 .b 00,00,00,00,00,00,00,48,48,41,02,03,02,02,02,02,02,41,00,00 .b 00,00,00,00,00,00,00,00,00,41,02,02,43,41,02,02,02,41,00,00 .b 00,00,00,00,00,00,00,00,00,48,48,48,48,48,48,48,48,50,00,00 .b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00Nivel50: .b 00,00,00,00,00,00,43,45,46,45,46,45,46,45,46,45,46,41,00,00 .b 00,00,00,00,00,43,50,05nt5,05,02,02,03,02,40,02,02,02,41,00,00 .b 00,00,00,00,43,50,05,05,08,02,03,02,02,02,02,03,02,41,00,00 .b 00,00,00,43,50,05,05,08,05,50,02,50,02,50,03,02,48,41,00,00 .b 00,00,00,41,05,05,08,05,50,02,41,02,50,02,03,02,02,41,00,00 .b 43,48,48,41,05,05,05,50,02,02,50,02,02,02,02,50,02,41,00,00 .b 41,02,02,48,50,02,50,02,02,02,02,02,02,02,02,02,02,41,00,00 .b 41,02,04,03,02,03,02,48,48,50,02,02,41,02,50,02,43,50,00,00 .b 41,02,03,02,02,02,03,oux:02,02,02,41,02,41,02,02,02,41,00,00,00 .b 48,48,41,03,03,02,02,02,50,02,41,02,41,02,41,02,41,00,00,00 .b 00,00,41,02,02,02,03,02,02,02,41,02,50,02,48,48,48,48,41,00 .b 00,00,41,02,03,40,02,43,48,48,48,41,02,02,02,02,02,02,41,00 .b 00,00,41,03,02,02,02,41,00,00,00,41,02,02,02,40,02,02,41,00 .b 00,00,41,02,02,43,48,50,00,00,00,48,41,02,02,02,02,02,41,00 .b 00,00,41,02,02,41,00,00,00,00,00,00,41,02,02,02,02,43,50,00 .b 00,00,48,48,48,50,0pv'k0,00,00,00,00,48,48,48,48,48,48,50,00,00.Nivel1edu .b 0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 1,4,2,2,2,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0 .b 1,2,3,3,2,5,2,2,2,1,0,0,0,0,0,0,0,0,0,0 .b 1,2,2,2,3,1,3,2,2,1,1,1,0,0,0,0,0,0,0,0 .b 1,2,2,2,5,5,5,5,5,2,2,1,0,0,0,0,0,0,0,0 .b 1,1,1,2,3,1,3,3,3,2,2,1,0,0,0,0,0,0,0,0 .b 0,0,1,5,2,5,2,2,2,2,1,1,0,0,0,0,0,0,0,0 .b 0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0qw,J'Y,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;-----------------------------------------------; Funciones para la gestion del menu;---------------------------------rxg'--------------.GestionMenu BorraCursorMenu{o} 4    8,60,o*16+138    DibujaCursorMenu{o} 4    7,60,o*16+138 .Menu: 4: : 0,0 ,  1  1 dž 0,1 DŽ 0,1  i=0  5 BorraCursorMenu{i}  opcion=0 DibujaCursorMenu{opcion}  10,18:݁ "Instrucciones"  10,20:݁ "Jugar"  10,22:݁ "Saltar a nivel"  10,24:݁ "Musica off"  10,26:݁ "Creditos"  10,28:݁ "Salir"  7  sy  "q" BorraCursorMenu{opcion} (opcion>0) opcion=opcion-1 " opcion=5 DibujaCursorMenu{opcion}  "a" BorraCursorMenu{opcion} (opcion<5) opcion=opcion+1 " opcion=0 DibujaCursorMenu{opcion}  " " (opcion=0) BorraCursorMenu{opcion}  MostrarInstrucciones DibujaCursorMenu{opcion} (opcion=1)  Juego (opciotzJEn=4) BorraCursorMenu{opcion}  MostrarCreditos DibujaCursorMenu{opcion} (opcion=5)    ;-------------------------------------------------------; Funciones para la carga de recursos del juego;-------------------------------------------------------.CargaRecursos: 5 ǂ 0,44,256,$05,8,32,0 ǂ 1,$03  1,"A Saco Van.mod" ; ; Pantalla de presentacion ;  1,GLOBAL_HRes,GLOBAL_VRes,GLOBAL_Depth ;Lou{kNadBitMap 1,"d:introbirrarutinas/sokoban/intro.iff",1  1,"introedu.iff",1 ; ; Main bitmap ;  0,GLOBAL_HRes,GLOBAL_VRes,GLOBAL_Depth ;LoadBitMap 0,"d:introbirrarutinas/sokoban/tiles.iff",0  0,"tiles.iff",0 ; ; Obtenemos los bobs de la pantalla de tiles ;  0,0,0,16,16  1,16,0,16,16  2,32,0,16,16  3,48,0,16,16  4,64,0,16,16  5,80,0,16,16  6,96,0,16,16  7,128,0,16,16 ; Flecha cursor  8,144,0,16,16 ; Para borrar  9,112,0,1v|dѵ6,16 ; Barril sin suelo ;Paredes  40,16*6,19*6,16,16  41,16*0,19*7,16,16  42,16*1,19*7,16,16  43,16*2,19*7,16,16  44,16*3,19*7,16,16  45,16*4,19*6,16,16  46,16*5,19*6,16,16  47,16*0,19*6,16,16  48,16*1,19*6,16,16  49,16*2,19*6,16,16  50,16*3,19*6,16,16 ;Animacion arriba  10,0,38,16,16  11,16,38,16,16  12,32,38,16,16  13,48,38,16,16 ;Animacion abajo  15,0,57,16,16  16,16,57,16,16  17,32,57,16,16  1w}Mr8,48,57,16,16 ;Animacion izquierda  20,0,76,16,16  21,16,76,16,16  22,32,76,16,16  23,48,76,16,16 ;Animacion derecha  25,0,95,16,16  26,16,95,16,16  27,32,95,16,16  28,48,95,16,16  0  2,GLOBAL_HRes,GLOBAL_VRes,3  2  0, 0:݁ " Instrucciones"  0, 2:݁ " -------------"  0, 4:݁ "Sokoban es un clasico rompecabezas "  0, 6:݁ "inventado en Japon, creado por Hiroyuki"  0, 8:݁ "Imabayashi. Sokx~|£oban significa en japones. "  0,12:݁ "El objetivo del juego es empujar los "  0,14:݁ "barriles hasta su lugar correcto dentro "  0,16:݁ "de un reducido almacen, con el numero "  0,18:݁ "minimo de empujes y de pasos. Los barriles "  0,20:݁ "cajas se pueden empujar solamente, y "  0,22:݁ "no tirar de ellas, y solo se puede "  0,24:݁ "empujar una caja a la vez. "  3,GLOBAL_HRes,GLOBAL_VRes,3  3  0, 0:yV݁ " Creditos"  0, 2:݁ " --------"  0, 4:݁ "Codigo..... Birra/Goblins "  0, 6:݁ " Tolkien/Goblins "  0, 8:݁ "Graficos... Jojo073/AmigaWave "  0,10:݁ "Musica .... Zoltar dreamusic "  0,12:݁ " "  0,14:݁ "Saludos: Kikems, Estrayk, Arananet..... "  0,16:݁ " "  0,18:݁ " "  0,20:݁ " z-t "  0,22:݁ " "  0,24:݁ " "  4,GLOBAL_HRes,GLOBAL_VRes,3  4,"ALCHEMY2.iff",4  60,(13*16),(16*0),16,16 ;N  61,(08*16),(16*0),16,16 ;I  62,(01*16),(16*1),16,16 ;V  63,(04*16),(16*0),16,16 ;E  64,(11*16),(16*0),16,16 ;L  65,(16*16),(16*1),16,16 ;0  66,(07*16),(16*1),16,16 ;1  67,(08*16),(16*1),16,16 ;2  68,(09*16),(16*{hb1),16,16 ;3  69,(10*16),(16*1),16,16 ;4  70,(11*16),(16*1),16,16 ;5  71,(12*16),(16*1),16,16 ;6  72,(13*16),(16*1),16,16 ;7  73,(14*16),(16*1),16,16 ;8  74,(15*16),(16*1),16,16 ;9  2,8 2,0,0,0,0 2,1,15,15,15 2,2,15,15,15 2,3,15,15,15 2,4,15,15,15 2,5,15,15,15 2,6,15,15,15 2,7,15,15,15  5,32  6,32 ;---------------------------------------------------------------------------; Rutina de cambio de nivel.|)^;---------------------------------------------------------------------------.CambioNivel  5,32 4 ǃ 1 DŽ 1,4 dž 1,5 ,  4  4  0 posicion = 96 GLOBAL_LEVEL=GLOBAL_LEVEL+1 7  0 7 digito1 = GLOBAL_LEVEL / 10 digito2 = GLOBAL_LEVEL 10  60,posicion+(16*0),120  61,posicion+(16*1),120  62,posicion+(16*2),120  63,posicion+(16*3),120  64,posicion+(16*4),120  65+digito1,posicion+(16*6),120  65+digito2,posicion+(16}L!*7),120 BirraFadeIn {1,4,6,50,0} 7 100 BirraFadeOut {1,4,6,50,0} ,  0  Inicializa_Escenario DibujaEscena{} ǃ 0 DŽ 0,0 dž 0,5 BirraFadeIn{0,0,5,100,0} dž 0,0 LEVEL+1 7  0 7 digito1 = GLOBAL_LEVEL / 10 digito2 = GLOBAL_LEVEL 10  60,posicion+(16*0),120  61,posicion+(16*1),120  62,posicion+(16*2),120  63,posicion+(16*3),120  64,posicion+(16*4),120  65+digito1,posicion+(16*6),120  65+digito2,posicion+(162}'^9^ Sokoban.asciip4; Todo list: ver records, cosas asi DEFTYPE.w ; ; Variables globales ; GLOBAL_HRes = 320 GLOBAL_VRes = 256 GLOBAL_Depth = 5 GLOBAL_SLICE_TOP = 44 GLOBAL_TILE_SIXE = 16 GLOBAL_LEVEL = 1 GLOBAL_MAX_PILA = 1000 GLOBAL_VTILES=16 GLOBAL_HTILES=20 ; ; Escenario o laberinto ; Dim Escenario.b(GLOBAL_HTILES-1,GLOBAL_VTILES-1) ; escenarios de 20x16 ; ; Posicion del heroe ; XHeroe=0 YHeroe=0 ValorBajoHeroe=0 ; ; Flag de gameover ; GameOver.b=0 direccion.b=0 NEWTYPE.Valores v1.b ;Valo̓r bajo heroe v2.b ;Valor vecino v3.b ;Valor mas alejado End NEWTYPE ; ;Para poder deshacer y rehacer movimientos ; NEWTYPE.Movimiento Hx.w ;Posicion X del personaje Hy.w ;Posicion y del personaje d.b ;Movimiento: 1 izquierda 2 derecha 3 arriba 4 abajo Saco.Valores End NEWTYPE Dim PilaMovs.Movimiento(GLOBAL_MAX_PILA) PunteroPila.w = 0 .MuestraBitmapJuego Statement MuestraBitmapJuego{} BitMapOutput 0 Use BitMap 0 Show 0 End Statement .CompruebaGameOver F2vyunction.b CompruebaGameOver{} SHARED GLOBAL_VTILES,GLOBAL_HTILES,Escenario() GameOver.b=1 For y=0 To GLOBAL_VTILES-1 For x=0 To GLOBAL_HTILES-1 If Escenario(x,y)=3 GameOver.b=0 EndIf Next x Next y Function Return GameOver End Function .DibujaEscenario Statement DibujaTile{x,y,v} BLITZ Select v Case 0 BlitMode EraseMode Blit 8,x*16,y*16 BlitMode CookieMode Case 1 Blit 1,x*16,y*16 Case 2 X* Blit 2,x*16,y*16 Case 3 Blit 3,x*16,y*16 Case 4 Blit 4,x*16,y*16 Case 5 Blit 6,x*16,y*16 Case 8 Blit 5,x*16,y*16 Default Blit 0,x*16,y*16 End Select End Statement Statement DibujaEscena{} SHARED GLOBAL_VTILES, GLOBAL_HTILES,Escenario(),XHeroe,YHeroe ;BLITZ For y=0 To GLOBAL_VTILES-1 For x=0 To GLOBAL_HTILES-1 DibujaTile{x,y,Escenario(x,y)} Next x Next y ; ; Mostramos al prota ; Blitry 4,XHeroe*16,YHeroe*16 End Statement .ProvocaFalsoFin: Statement ProvocaFalsoFin{} SHARED GLOBAL_VTILES,GLOBAL_HTILES,Escenario() For y=0 To GLOBAL_VTILES-1 For x=0 To GLOBAL_HTILES-1 If (Escenario(x,y)=3) Escenario(x,y)=2 If (Escenario(x,y)=5) Escenario(x,y)=8 Next x Next y End Statement ;----------------------------------------------------------- ; ; SOKOBAN, The game ; ;----------------------------------------------------------- WBStartup Gosub CargaRez제cursos Goto Menu ;----------------------------------------------------------- ; MAIN ;----------------------------------------------------------- .juego: MuestraBitmapJuego{} Gosub Inicializa_Escenario DibujaEscena{} While 1=1 ;Joyb(0)=0 ValorBajoHeroe = Escenario(XHeroe,YHeroe) Select Inkey$ Case "q" Gosub Control_Heroe_UP ;DibujaEscena{} Case "a" Gosub Control_Heroe_DOWN ;DibujaEscena{} Case "o" Gosub Control_Heroe_LEFT ;DibujaEscena{} Case "pRj" Gosub Control_Heroe_RIGHT ;DibujaEscena{} Case "r" Gosub Inicializa_Escenario DibujaEscena{} Case "x" Goto final Case "t" ProvocaFalsoFin{} Case "u" Gosub Deshacer_Ultimo_Movimiento DibujaEscena{} Default End Select If CompruebaGameOver{}=1 ;Gosub JuegoCompletado GLOBAL_LEVEL=GLOBAL_LEVEL+1 Gosub Inicializa_Escenario DibujaEscena{} EndIf Wend final: End ; -----------------------------------------------------------L----------- ; Motor del sokoban ; -----'----------------------------------------------------------------- .CargaRecursos: AMIGA ; ; Pantalla de presentacion ; BitMap 1,GLOBAL_HRes,GLOBAL_VRes,GLOBAL_Depth ;LoadBitMap 1,"d:introbirrarutinas/sokoban/intro.iff",1 LoadBitMap 1,"intro.iff",1 ; ; Main bitmap ; BitMap 0,GLOBAL_HRes,GLOBAL_VRes,GLOBAL_Depth ;LoadBitMap 0,"d:introbirrarutinas/sokoban/tiles.iff",0 LoadBitMap 0,"tiles.iff",0 ; ; Obtenemos los bob ls de la pantalla de tiles ; GetaShape 0,0,0,16,16 GetaShape 1,16,0,16,16 GetaShape 2,32,0,16,16 GetaShape 3,48,0,16,16 GetaShape 4,64,0,16,16 GetaShape 5,80,0,16,16 GetaShape 6,96,0,16,16 GetaShape 7,112,0,16,16 ; Flecha cursor GetaShape 8,128,0,16,16 ; Para borrar Cls 0 BitMap 2,GLOBAL_HRes,GLOBAL_VRes,2 BitMapOutput 2 Locate 0, 0:Print " Instrucciones" Locate 0, 2:Print " -------------" Locate 0, 4:Print "Sokoban es un clas Zico rompecabezas " Locate 0, 6:Print "inventado en Japon, creado por Hiroyuki" Locate 0, 8:Print "Imabayashi. Sokoban significa en japones. " Locate 0,12:Print "El objetivo del juego es empujar los " Locate 0,14:Print "barriles hasta su lugar correcto dentro " Locate 0,16:Print "de un reducido almacen, con el numero " Locate 0,18:Print "minimo de empujes y de pasos. Los barriles " Locate 0,20:Print "cajas se pueden empujar s u|olamente, y " Locate 0,22:Print "no tirar de ellas, y solo se puede " Locate 0,24:Print "empujar una caja a la vez. " BitMap 3,GLOBAL_HRes,GLOBAL_VRes,2 BitMapOutput 3 Locate 0, 0:Print " Creditos" Locate 0, 2:Print " -------------" Locate 0, 4:Print "Codigo..... Birra/Goblins " Locate 0, 6:Print " Tolkien " Locate 0, 8:Print "Graficos... Jojo073 " Locate 0,10:Print "Musica . ... Zoltar dreamusic " Locate 0,12:Print " " Locate 0,14:Print "Saludos: Kikems, Estrayk...... " Locate 0,16:Print " " Locate 0,18:Print " " Locate 0,20:Print " " Locate 0,22:Print " " Locate 0,24:Print " " Return ;-----------------------------------------  Y------------------------ ; PANTALLA DE PRESENTACION/MENU ;----------------------------------------------------------------- .GestionMenu Statement BorraCursorMenu{o} BLITZ BlitMode EraseMode Blit 8,60,o*16+138 End Statement Statement DibujaCursorMenu{o} BLITZ BlitMode CookieMode Blit 7,60,o*16+138 End Statement .Menu: BLITZ:BlitzKeys On BitMapOutput 1 Slice 0,GLOBAL_SLICE_TOP,GLOBAL_Depth BLITZ:BlitzKeys On Use BitMap 1 Use Palette 1 Show 1 opcion=0 c DibujaCursorMenu{opcion} Locate 10,18:Print "Instrucciones" Locate 10,20:Print "Jugar" Locate 10,22:Print "Saltar a nivel" Locate 10,24:Print "Musica off" Locate 10,26:Print "Creditos" Locate 10,28:Print "Salir" While True VWait Select Inkey$ Case "q" BorraCursorMenu{opcion} If (opcion>0) opcion=opcion-1 Else opcion=5 EndIf DibujaCursorMenu{opcion} Case "a" BorraCursorMenu{opcion} If (opcion<gģ5) opcion=opcion+1 Else opcion=0 EndIf DibujaCursorMenu{opcion} Case " " If (opcion=0) BorraCursorMenu{opcion} Gosub MostrarInstrucciones DibujaCursorMenu{opcion} EndIf If (opcion=1) Goto juego If (opcion=4) BorraCursorMenu{opcion} Gosub MostrarCreditos DibujaCursorMenu{opcion} EndIf If (opcion=5) End End Select Wend Return .MostrarInstruccioneݰs: Use BitMap 2 Show 2 While Inkey$="" VWait Wend Use BitMap 1 Use Palette 1 Show 1 Return .MostrarCreditos: Use BitMap 3 Show 3 While Inkey$="" VWait Wend Use BitMap 1 Use Palette 1 Show 1 Return .Deshacer_Ultimo_Movimiento: If PunteroPila>0 direccion=PilaMovs(PunteroPila-1)\d XHeroe=PilaMovs(PunteroPila-1)\Hx YHeroe=PilaMovs(PunteroPila-1)\Hy Escenario(XHeroe,YHeroe) = PilaMovs(PunteroPila-1)\Saco\v1 Selec̱gct direccion Case 1 ; Izda If (XHeroe > 1) Escenario(XHeroe-1,YHeroe)= PilaMovs(PunteroPila-1)\Saco\v2 If (XHeroe > 2) Escenario(XHeroe-2,YHeroe)= PilaMovs(PunteroPila-1)\Saco\v3 Case 2 ; Drcha If (XHeroe < GLOBAL_HTILES-1) Escenario(XHeroe+1,YHeroe)= PilaMovs(PunteroPila-1)\Saco\v2 If (XHeroe < GLOBAL_HTILES-2) Escenario(XHeroe+2,YHeroe)= PilaMovs(PunteroPila-1)\Saco\v3 Case 3 If (YHeroe > 1) Escenario(XHeroe,YHeroe-1)= PilaMovs(PunteroPilt>a-1)\Saco\v2 If (YHeroe > 2) Escenario(XHeroe,YHeroe-2)= PilaMovs(PunteroPila-1)\Saco\v3 Case 4 If (YHeroe < GLOBAL_HTILES-1) Escenario(XHeroe,YHeroe+1)= PilaMovs(PunteroPila-1)\Saco\v2 If (YHeroe < GLOBAL_HTILES-2) Escenario(XHeroe,YHeroe+2)= PilaMovs(PunteroPila-1)\Saco\v3 End Select PunteroPila=PunteroPila-1 EndIf Return .GrabaPosicion: PilaMovs(PunteroPila)\Hx=XHeroe PilaMovs(PunteroPila)\Hy=YHeroe PilaMovs(PunteroPila)\Saco\v1=EscenaO0rio(XHeroe,YHeroe) PilaMovs(PunteroPila)\d=direccion Select direccion Case 1 ;Izda If XHeroe > 1 PilaMovs(PunteroPila)\Saco\v2=Escenario(XHeroe-1,YHeroe) If XHeroe > 2 PilaMovs(PunteroPila)\Saco\v3=Escenario(XHeroe-2,YHeroe) Case 2 ;Derecha If XHeroe < GLOBAL_HTILES-1 PilaMovs(PunteroPila)\Saco\v2=Escenario(XHeroe+1,YHeroe) If XHeroe < GLOBAL_HTILES-2 PilaMovs(PunteroPila)\Saco\v3=Escenario(XHeroe+2,YHeroe) Case 3 ;Arriba If YHeroe > 1 PilaMovs(PunteroPila)\Saco\v2=Escenario(XHeroe,YHeroe-1) If YHeroe > 2 PilaMovs(PunteroPila)\Saco\v3=Escenario(XHeroe,YHeroe-2) Case 4 ;Abajo If YHeroe < GLOBAL_HTILES-1 PilaMovs(PunteroPila)\Saco\v2=Escenario(XHeroe,YHeroe+1) If YHeroe < GLOBAL_HTILES-2 PilaMovs(PunteroPila)\Saco\v3=Escenario(XHeroe,YHeroe+2) End Select PunteroPila=PunteroPila+1 Return .Control_Heroe_UP: direccion=3 If (YHeroe>0) ; ;Arriba un hueco o meta ; If (E]ŏscenario(XHeroe,YHeroe-1)=2 OR Escenario(XHeroe,YHeroe-1)=5) Escenario(XHeroe,YHeroe)=ValorBajoHeroe DibujaTile{XHeroe,YHeroe,ValorBajoHeroe};* Gosub GrabaPosicion YHeroe = YHeroe - 1 ValorBajoHeroe = Escenario(XHeroe,YHeroe) DibujaTile{XHeroe,YHeroe,4} ;* Else If (YHeroe>1) ; ;Arriba un barril (con o sin meta) y encima hueco o meta ; If (Escenario(XHeroe,YHeroe-1)=3 OR Escenario(XHeroe,YHeroe-1p1)=8) If (Escenario(XHeroe,YHeroe-2)=2 OR Escenario(XHeroe,YHeroe-2)=5) Escenario(XHeroe,YHeroe)=ValorBajoHeroe DibujaTile{XHeroe,YHeroe,ValorBajoHeroe};* Gosub GrabaPosicion If (Escenario(XHeroe,YHeroe-2)=2) Escenario(XHeroe,YHeroe-2)=3 If (Escenario(XHeroe,YHeroe-2)=5) Escenario(XHeroe,YHeroe-2)=8 If (Escenario(XHeroe,YHeroe-1)=3) Escenario(XHeroe,YHeroe-1)=2 If (Escenario(XHeroe,YHeroe-1)=wp8) Escenario(XHeroe,YHeroe-1)=5 DibujaTile{XHeroe,YHeroe-2,Escenario(XHeroe,YHeroe-2)};* DibujaTile{XHeroe,YHeroe-1,Escenario(XHeroe,YHeroe-1)};* DibujaTile{XHeroe,YHeroe-1,4} YHeroe = YHeroe - 1 ValorBajoHeroe = Escenario(XHeroe,YHeroe) EndIf EndIf EndIf EndIf EndIf Return .Control_Heroe_DOWN: direccion=4 If (YHeroe0) ; ;A la izquierda un hueco o una meta ; If (Escenario(XHeroey-1,YHeroe)=2 OR Escenario(XHeroe-1,YHeroe)=5) Escenario(XHeroe,YHeroe)=ValorBajoHeroe DibujaTile{XHeroe,YHeroe,ValorBajoHeroe};* Gosub GrabaPosicion XHeroe = XHeroe - 1 ValorBajoHeroe = Escenario(XHeroe,YHeroe) DibujaTile{XHeroe,YHeroe,4} Else If (XHeroe>1) ; ;A la izquieda un barril (con o sin meta) y al lado hueco o meta ; If (Escenario(XHeroe-1,YHeroe)=3 OR Escenario(XHeroe-1,YHeroe)=8) If (Escdenario(XHeroe-2,YHeroe)=2 OR Escenario(XHeroe-2,YHeroe)=5) Escenario(XHeroe,YHeroe)=ValorBajoHeroe DibujaTile{XHeroe,YHeroe,ValorBajoHeroe};* Gosub GrabaPosicion If (Escenario(XHeroe-2,YHeroe)=2) Escenario(XHeroe-2,YHeroe)=3 If (Escenario(XHeroe-2,YHeroe)=5) Escenario(XHeroe-2,YHeroe)=8 If (Escenario(XHeroe-1,YHeroe)=3) Escenario(XHeroe-1,YHeroe)=2 If (Escenario(XHeroe-1,YHeroe)=8) Escenario(XHeroe-1,#;YHeroe)=5 DibujaTile{XHeroe-2,YHeroe,Escenario(XHeroe-2,YHeroe)};* DibujaTile{XHeroe-1,YHeroe,Escenario(XHeroe-1,YHeroe)};* XHeroe = XHeroe - 1:DibujaTile{XHeroe,YHeroe,4} ValorBajoHeroe = Escenario(XHeroe,YHeroe) EndIf EndIf EndIf EndIf EndIf Return .Control_Heroe_RIGHT: direccion=2 If (XHeroe0 direccion=PilaMovs(PunteroPila-1)\d XHeroe=PilaMovs(PunteroPil xY*a-1)\Hx YHeroe=PilaMovs(PunteroPila-1)\Hy Escenario(XHeroe,YHeroe) = PilaMovs(PunteroPila-1)\Saco\v1 Select direccion Case 1 ; Izda If (XHeroe > 1) Escenario(XHeroe-1,YHeroe)= PilaMovs(PunteroPila-1)\Saco\v2 If (XHeroe > 2) Escenario(XHeroe-2,YHeroe)= PilaMovs(PunteroPila-1)\Saco\v3 Case 2 ; Drcha If (XHeroe < GLOBAL_HTILES-1) Escenario(XHeroe+1,YHeroe)= PilaMovs(PunteroPila-1)\Saco\v2 If (XHeroe < GLOBAL_HTILES-2) Escenario(XHeroe+2,YHeroe)= PilaMovs(PunteroPila-1)\Saco\v3 Case 3 If (YHeroe > 1) Escenario(XHeroe,YHeroe-1)= PilaMovs(PunteroPila-1)\Saco\v2 If (YHeroe > 2) Escenario(XHeroe,YHeroe-2)= PilaMovs(PunteroPila-1)\Saco\v3 Case 4 If (YHeroe < GLOBAL_HTILES-1) Escenario(XHeroe,YHeroe+1)= PilaMovs(PunteroPila-1)\Saco\v2 If (YHeroe < GLOBAL_HTILES-2) Escenario(XHeroe,YHeroe+2)= PilaMovs(PunteroPila-1)\Saco\v3 End Select PunteroPila=PunteroPila-1 EndIf Return .GrabaPosicion: PilaMovs(PunteroPila)\Hx=XHeroe PilaMovs(PunteroPila)\Hy=YHeroe PilaMovs(PunteroPila)\Saco\v1=Escenario(XHeroe,YHeroe) PilaMovs(PunteroPila)\d=direccion Select direccion Case 1 ;Izda If XHeroe > 1 PilaMovs(PunteroPila)\Saco\v2=Escenario(XHeroe-1,YHeroe) If XHeroe > 2 PilaMovs(PunteroPila)\Saco\v3=Escenario(XHeroe-2,YHeroe) Case 2 ;Derecha If XHeroe < GLOBAL_HTILES-1 PilaMovs(PunteroPila)\Saco\v2=Escenario(XHeroe+1,YHeroe) If XHeZlroe < GLOBAL_HTILES-2 PilaMovs(PunteroPila)\Saco\v3=Escenario(XHeroe+2,YHeroe) Case 3 ;Arriba If YHeroe > 1 PilaMovs(PunteroPila)\Saco\v2=Escenario(XHeroe,YHeroe-1) If YHeroe > 2 PilaMovs(PunteroPila)\Saco\v3=Escenario(XHeroe,YHeroe-2) Case 4 ;Abajo If YHeroe < GLOBAL_HTILES-1 PilaMovs(PunteroPila)\Saco\v2=Escenario(XHeroe,YHeroe+1) If YHeroe < GLOBAL_HTILES-2 PilaMovs(PunteroPila)\Saco\v3=Escenario(XHeroe,YHeroe+2) End Select PunteroPila=PunteroPila+1 Return .Control_Heroe_UP: direccion=3 If (YHeroe>0) ; ;Arriba un hueco o meta ; If (Escenario(XHeroe,YHeroe-1)=2 OR Escenario(XHeroe,YHeroe-1)=5) ;------------------------------------------- ;Restauramos el valor del tile bajo el prota ;------------------------------------------- Escenario(XHeroe,YHeroe)=ValorBajoHeroe ;DibujaTile{XHeroe,YHeroe,ValorBajoHeroe} ;-------------------------------u----------------------------------------------- ;Grabamos los valores de los tiles superiores para poder deshacer el movimiento ;------------------------------------------------------------------------------ Gosub GrabaPosicion ValorBajoHeroe = Escenario(XHeroe,YHeroe-1) For i=1 To GLOBAL_TILE_SIZE DibujaTile{XHeroe,YHeroe,Escenario(XHeroe,YHeroe)} DibujaTile{XHeroe,YHeroe-1,Escenario(XHeroe,YHeroe-1)} DibujaTileMoK(\(vimiento{XHeroe,YHeroe,4,direccion,i} VWait Next i YHeroe = YHeroe - 1 Else If (YHeroe>1) ; ;Arriba un barril (con o sin meta) y encima hueco o meta ; If (Escenario(XHeroe,YHeroe-1)=3 OR Escenario(XHeroe,YHeroe-1)=8) If (Escenario(XHeroe,YHeroe-2)=2 OR Escenario(XHeroe,YHeroe-2)=5) ;------------------------------------------- ;Restauramos el valor del tile bajo el prDnota ;------------------------------------------- Escenario(XHeroe,YHeroe)=ValorBajoHeroe ;------------------------------------------------------------------------------ ;Grabamos los valores de los tiles superiores para poder deshacer el movimiento ;------------------------------------------------------------------------------ Gosub GrabaPosicion For i=1 To GLOBAL_TILE_SIZE  DibujaTile{XHeroe,YHeroe,Escenario(XHeroe,YHeroe)}; If (Escenario(XHeroe,YHeroe-1)=3) DibujaTile{XHeroe,YHeroe-1,2} If (Escenario(XHeroe,YHeroe-1)=8) DibujaTile{XHeroe,YHeroe-1,5} DibujaTile{XHeroe,YHeroe-2,Escenario(XHeroe,YHeroe-2)} DibujaTileMovimiento{XHeroe,YHeroe-1,9,direccion,i} DibujaTileMovimiento{XHeroe,YHeroe,4,direccion,i} VWait Next i If (EscenarѬ8io(XHeroe,YHeroe-2)=2) Escenario(XHeroe,YHeroe-2)=3 If (Escenario(XHeroe,YHeroe-2)=5) Escenario(XHeroe,YHeroe-2)=8 If (Escenario(XHeroe,YHeroe-1)=3) Escenario(XHeroe,YHeroe-1)=2 If (Escenario(XHeroe,YHeroe-1)=8) Escenario(XHeroe,YHeroe-1)=5 YHeroe = YHeroe - 1 ValorBajoHeroe = Escenario(XHeroe,YHeroe) EndIf EndIf EndIf EndIf EndIf ;YHeroe > 0 Return .Control_Heroe_DOWN: /NY direccion=4 If (YHeroe0) ; ;A la izquierda un hueco o una meta ; If (Escenario(XHeroe-1,YHeroe)=2 OR Escenario(XHeroe-1,YHeroe)=5) Escenario(XHeroe,YHeroe)=ValorBajoHeroe ;------- g------------------------------------ ;Restauramos el valor del tile bajo el prota ;------------------------------------------- ;DibujaTile{XHeroe,YHeroe,ValorBajoHeroe};* ;---------------------------------------------------------------------------------------- ;Grabamos los valores de los tiles laterales izquierdos para poder deshacer el movimiento ;---------------------------------------------------------------------------------------- GosubuD GrabaPosicion ValorBajoHeroe = Escenario(XHeroe-1,YHeroe) ;DibujaTile{XHeroe,YHeroe,4} For i=1 To GLOBAL_TILE_SIZE DibujaTile{XHeroe,YHeroe,Escenario(XHeroe,YHeroe)} DibujaTile{XHeroe-1,YHeroe,Escenario(XHeroe-1,YHeroe)} DibujaTileMovimiento{XHeroe,YHeroe,4,direccion,i} VWait Next i XHeroe = XHeroe - 1 Else If (XHeroe>1) ; ;A la izquieda un barril (con o sin meta) y al lado hueco o meta ; If (Escenario(XHeroe-1,YHeroe)=3 OR Escenario(XHeroe-1,YHeroe)=8) If (Escenario(XHeroe-2,YHeroe)=2 OR Escenario(XHeroe-2,YHeroe)=5) Escenario(XHeroe,YHeroe)=ValorBajoHeroe ;DibujaTile{XHeroe,YHeroe,ValorBajoHeroe};* Gosub GrabaPosicion For i=1 To GLOBAL_TILE_SIZE DibujaTile{XHeroe,YHeroe,Escenario(XHeroe,YHeroe)}; If (Escenario(XHeroe-1,YHeroe)=3) DibujaTile{XHeroe-1,YHeroe,2}  [ If (Escenario(XHeroe-1,YHeroe)=8) DibujaTile{XHeroe-1,YHeroe,5} DibujaTile{XHeroe-2,YHeroe,Escenario(XHeroe-2,YHeroe)} DibujaTileMovimiento{XHeroe-1,YHeroe,9,direccion,i} DibujaTileMovimiento{XHeroe,YHeroe,4,direccion,i} VWait Next i If (Escenario(XHeroe-2,YHeroe)=2) Escenario(XHeroe-2,YHeroe)=3 If (Escenario(XHeroe-2,YHeroe)=5) Escenario(XHeroe-2,YHeroe)=8 If (Escen!Ȕؠario(XHeroe-1,YHeroe)=3) Escenario(XHeroe-1,YHeroe)=2 If (Escenario(XHeroe-1,YHeroe)=8) Escenario(XHeroe-1,YHeroe)=5 DibujaTile{XHeroe-2,YHeroe,Escenario(XHeroe-2,YHeroe)};* DibujaTile{XHeroe-1,YHeroe,Escenario(XHeroe-1,YHeroe)};* DibujaTile{XHeroe-1,YHeroe,4} XHeroe = XHeroe - 1 ValorBajoHeroe = Escenario(XHeroe,YHeroe) EndIf EndIf EndIf EndIf EndIf Return .Control_Heroe_RIGHT: d"$ireccion=2 If (XHeroe0,00,00,00 Nivel9: Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,00,41,45,45,45,45,45,41,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,00,41,02,02,05,05,05,41,00,00 Data.b 00,00,00,00,00,00,00,41,45,45,45,45,02,02,05,05,05,41,00,00 Data.b 00,00,00,00,00,00,00,41,02,02,02,02,02,02,05,02,05,41,00,00 Data.b 00,00,00,00,00,00,00,41,02,02,43,41,02,02,05,05,05,41,00,00 Data.b 00,00,00,00,00,00,00,43?#,43,02,43,41,02,02,05,05,05,41,00,00 Data.b 00,00,00,00,00,00,43,48,48,02,48,48,43,43,48,48,48,50,00,00 Data.b 00,00,00,00,00,00,41,02,03,03,03,02,48,41,00,00,00,00,00,00 Data.b 00,00,43,45,45,45,41,02,02,03,02,03,02,43,43,43,43,41,00,00 Data.b 00,43,48,02,02,02,50,03,02,03,02,02,02,48,02,02,02,41,00,00 Data.b 00,41,04,02,03,02,02,03,02,02,02,02,03,02,02,03,02,41,00,00 Data.b 00,48,48,48,48,48,41,02,03,03,02,03,02,43,48,48,48,50,00,00 Data.b 00,00,0@[B0,00,00,00,41,02,02,02,02,02,02,41,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,48,48,48,48,48,48,48,50,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Nivel10: Data.b 00,41,45,41,00,00,41,45,45,45,45,45,45,45,45,45,45,45,41,00 Data.b 43,50,04,45,45,45,45,02,02,02,02,02,02,02,40,02,02,02,41,00 Data.b 41,02,03,03,02,02,02,03,03,02,02,03,02,03,02,05,05,05,41,00 Data.b 41,02,02,03,03,03,41,02,02,02,02,03,02,02,41,05,05,05A,41,00 Data.b 41,02,03,02,02,02,41,02,03,03,02,03,03,02,41,05,05,05,41,00 Data.b 43,48,50,02,02,02,41,02,02,03,02,02,02,02,41,05,05,05,41,00 Data.b 41,02,02,02,02,02,41,02,03,02,03,02,03,02,41,05,05,05,41,00 Data.b 41,02,02,02,02,40,43,48,48,48,50,02,48,48,41,05,05,05,41,00 Data.b 43,50,02,41,02,02,41,02,02,03,02,03,02,02,41,05,05,05,41,00 Data.b 41,02,02,48,41,02,41,02,03,03,02,03,02,03,48,50,05,05,41,00 Data.b 41,02,05,05,41,02,41,02,02,03,02,02,0B82,02,02,02,41,05,41,00 Data.b 41,02,05,05,41,02,41,02,03,03,03,02,03,03,03,02,41,05,41,00 Data.b 48,48,48,48,41,02,41,02,02,02,02,02,02,02,41,02,41,05,41,00 Data.b 00,00,00,00,41,02,48,48,48,48,48,48,48,48,50,02,41,05,41,00 Data.b 00,00,00,00,41,02,02,02,02,02,02,02,02,02,02,02,41,05,41,00 Data.b 00,00,00,00,48,48,48,48,48,48,48,48,48,48,48,48,48,48,50,00 Nivel30: Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Data.b 00,00,00,0C0,00,00,00,00,43,45,45,45,45,45,45,45,45,45,41,00 Data.b 00,00,00,00,00,00,00,00,41,02,02,02,47,02,02,02,02,02,41,00 Data.b 00,41,45,45,45,41,00,00,41,02,02,02,02,02,03,02,03,02,41,00 Data.b 00,41,02,02,02,43,43,45,48,47,02,03,43,41,02,47,02,47,41,00 Data.b 00,41,02,03,02,48,48,02,02,02,41,02,43,41,02,03,02,02,41,00 Data.b 00,41,02,03,02,02,04,03,03,02,41,02,43,41,03,03,02,02,41,00 Data.b 00,43,41,02,43,47,47,02,02,02,41,02,43,41,02,02,03,02,41,00 DataD}#.b 00,00,41,02,41,02,02,02,47,47,48,02,48,41,47,47,47,02,41,00 Data.b 00,43,50,02,41,02,02,02,02,02,03,02,02,41,05,05,05,05,41,00 Data.b 00,41,02,02,48,47,47,02,47,41,02,03,02,41,05,05,05,05,48,41 Data.b 00,41,02,03,02,02,02,03,02,41,02,02,02,41,05,05,03,05,02,41 Data.b 00,41,02,02,43,41,02,03,02,41,02,02,43,41,05,05,05,05,02,41 Data.b 00,47,47,47,48,41,02,02,02,43,43,48,48,48,41,05,05,05,43,50 Data.b 00,00,00,00,00,48,47,47,47,48,48,00,00,00,48,47,47E{,47,48,00 Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Nivel31: Data.b 00,00,00,43,45,45,41,00,00,00,00,00,00,00,00,00,00,00,00,00 Data.b 00,00,00,41,02,02,43,43,45,45,43,45,46,45,41,00,00,00,00,00 Data.b 00,00,43,50,02,02,43,48,02,02,48,02,02,02,41,00,00,00,00,00 Data.b 00,00,41,02,02,03,48,02,03,04,03,02,02,02,48,47,47,43,00,00 Data.b 00,00,41,03,02,02,03,02,02,41,02,03,02,03,40,02,02,48,41,00 Data.b 00,43,50,02,02,03,48,41F ,02,41,03,02,03,02,02,02,02,02,41,00 Data.b 00,41,02,02,47,02,02,50,02,48,50,02,02,03,03,03,02,02,41,00 Data.b 00,41,02,03,02,02,02,02,03,02,02,03,43,48,02,42,48,48,48,00 Data.b 00,41,02,03,02,02,03,41,03,40,02,02,41,02,02,42,00,00,00,00 Data.b 00,48,41,02,02,43,48,48,02,02,48,48,48,03,02,42,00,00,00,00 Data.b 00,00,41,02,02,41,05,05,05,05,02,02,02,02,02,42,00,00,00,00 Data.b 00,00,48,48,43,50,05,05,05,05,05,05,43,48,48,48,00,00,00,00 Data.b 00,00,0G 8s>0,00,41,05,05,05,05,43,47,47,48,00,00,00,00,00,00,00 Data.b 00,00,00,00,41,05,05,05,43,48,00,00,00,00,00,00,00,00,00,00 Data.b 00,00,00,00,41,05,05,05,41,00,00,00,00,00,00,00,00,00,00,00 Data.b 00,00,00,00,48,48,48,48,50,00,00,00,00,00,00,00,00,00,00,00 Nivel32: Data.b 00,00,00,00,00,00,00,00,00,00,43,45,45,41,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,43,45,45,45,45,02,02,41,00,00,00,00,00,00 Data.b 00,00,00,00,00,43,41,02,02,02,02,02,03,41,00,00,00,0H"L0,00,00 Data.b 00,00,00,00,43,41,02,03,02,02,02,47,02,48,47,41,00,00,00,00 Data.b 00,00,00,00,41,04,03,02,03,02,41,02,03,02,02,41,00,00,00,00 Data.b 00,00,00,00,43,43,47,47,02,43,41,02,02,02,03,41,00,00,00,00 Data.b 00,00,00,00,00,41,05,05,05,05,41,03,02,03,02,41,00,00,00,00 Data.b 00,00,00,00,00,41,05,05,05,05,48,02,02,02,03,41,00,00,00,00 Data.b 00,00,00,00,00,41,05,05,05,05,02,02,03,03,02,43,41,00,00,00 Data.b 00,00,00,00,00,41,05,05,05,02,41,02,!<|]\[ZYXWVUTSRQPONMLKJIHGFEDCBA@?>=<;:9876543210/.-,+*)('&%$#"I#Q03,02,02,02,41,00,00,00 Data.b 00,00,00,00,00,48,47,47,47,47,41,03,02,03,02,02,41,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,41,02,02,02,43,48,50,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,41,03,02,43,48,00,00,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,41,02,02,41,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,48,47,47,50,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Nivel33: Data.b 00,00,00,J$00,00,43,45,45,46,45,45,43,43,45,45,41,00,00,00,00 Data.b 00,00,00,00,00,41,02,02,02,02,02,48,48,02,02,41,00,00,00,00 Data.b 00,00,00,00,00,41,02,02,02,03,02,02,02,03,02,41,00,00,00,00 Data.b 00,00,00,00,43,48,48,48,02,43,41,02,03,03,02,41,00,00,00,00 Data.b 00,00,00,00,41,02,02,02,03,02,41,02,02,02,02,41,00,00,00,00 Data.b 00,00,00,00,41,02,03,03,03,02,41,02,48,48,43,41,00,00,00,00 Data.b 00,00,00,00,41,02,02,02,48,02,41,02,03,02,48,41,00,00,00,00 DatK%IIa.b 00,00,00,00,41,02,02,41,02,02,41,02,02,03,02,41,00,00,00,00 Data.b 00,00,00,00,41,02,03,50,02,02,41,02,02,02,02,41,00,00,00,00 Data.b 00,00,00,00,41,02,02,02,02,03,48,02,48,43,48,41,00,00,00,00 Data.b 00,00,00,00,41,48,48,50,05,05,02,03,02,41,04,41,00,00,00,00 Data.b 00,00,00,00,41,05,05,05,05,05,41,02,03,50,02,41,00,00,00,00 Data.b 00,00,00,00,48,41,05,05,05,05,41,02,02,03,02,41,00,00,00,00 Data.b 00,00,00,00,00,48,41,05,05,43,41,02,02,02,02,41,0L&l0,00,00,00 Data.b 00,00,00,00,00,00,48,48,48,48,48,48,48,48,48,50,00,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Nivel34: Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Data.b 00,00,00,00,41,45,46,45,45,45,46,45,41,00,00,00,00,00,00,00 Data.b 00,00,00,00,41,05,05,05,05,02,02,02,49,41,00,00,00,00,00,00 Data.b 00,00,00,00,41,05,40,05,40,02,02,03,02,49,41,00,00,00,00,00 Data.b 00,00,00,43,50,05,05,0M' 5,05,41,02,47,02,04,49,41,00,00,00,00 Data.b 00,00,00,41,02,05,05,05,05,41,02,02,41,02,02,49,41,00,00,00 Data.b 00,00,00,41,02,02,02,02,02,50,03,02,48,50,03,02,41,00,00,00 Data.b 00,00,00,48,41,02,47,47,47,02,02,03,02,02,02,02,41,00,00,00 Data.b 00,00,00,00,41,03,02,02,03,02,03,02,03,41,02,02,41,00,00,00 Data.b 00,00,00,00,41,02,47,02,02,03,02,03,02,43,47,02,41,00,00,00 Data.b 00,00,00,00,41,02,02,47,47,41,02,02,43,41,02,02,41,00,00,00 Data.b 00,00,N(P300,00,41,02,02,02,02,43,47,02,48,50,02,43,50,00,00,00 Data.b 00,00,00,00,41,02,02,03,02,50,02,02,03,02,02,41,00,00,00,00 Data.b 00,00,00,00,48,47,41,03,02,03,02,02,02,43,43,50,00,00,00,00 Data.b 00,00,00,00,00,00,41,02,02,43,47,47,47,48,50,00,00,00,00,00 Data.b 00,00,00,00,00,00,48,47,47,50,00,00,00,00,00,00,00,00,00,00 Nivel35: Data.b 41,45,45,45,43,45,45,45,45,43,45,41,00,41,45,45,45,45,41,00 Data.b 41,02,02,02,48,02,02,02,02,48,02,48,48,48,05,05,05,O){05,41,00 Data.b 41,02,02,02,03,03,41,02,02,02,04,02,02,05,05,05,05,05,41,00 Data.b 41,02,02,02,41,02,43,43,41,02,02,02,47,02,05,05,05,05,41,00 Data.b 48,41,02,48,50,02,48,48,50,02,02,41,02,02,05,05,05,05,41,00 Data.b 00,41,02,03,02,03,02,02,02,02,02,41,02,47,02,47,47,47,41,00 Data.b 00,41,02,02,03,02,03,48,41,02,02,41,02,02,02,02,02,02,41,00 Data.b 43,48,48,41,02,41,02,02,48,48,43,41,02,41,02,47,47,02,41,00 Data.b 41,02,02,50,02,50,03,02,02,02,43,41P*,02,41,02,02,02,02,41,00 Data.b 41,02,03,02,02,03,02,02,47,02,48,41,02,41,02,02,02,43,50,00 Data.b 41,02,47,02,03,02,03,02,02,02,02,41,02,41,02,02,02,41,00,00 Data.b 41,02,02,03,02,47,47,02,47,47,02,50,02,43,48,48,48,50,00,00 Data.b 41,02,03,03,02,02,02,02,02,03,03,02,02,41,00,00,00,00,00,00 Data.b 48,41,02,47,47,02,43,48,41,02,03,02,02,41,00,00,00,00,00,00 Data.b 00,41,02,02,02,02,41,00,41,02,02,02,02,41,00,00,00,00,00,00 Data.b 00,48,48,48,48,48,5Q+ ^0,00,48,48,48,48,48,50,00,00,00,00,00,00 Nivel36: Data.b 00,00,00,00,00,00,00,00,00,00,00,00,41,45,45,45,41,00,00,00 Data.b 41,45,45,45,41,00,00,41,45,45,45,45,45,02,02,02,41,00,00,00 Data.b 41,02,02,02,48,48,43,41,02,02,03,02,03,02,03,02,41,00,00,00 Data.b 41,02,03,02,02,02,48,50,02,48,48,02,48,48,02,02,48,41,00,00 Data.b 41,02,02,02,03,02,03,02,02,02,02,02,03,02,02,03,02,41,00,00 Data.b 48,48,41,02,03,02,02,43,41,02,43,43,02,02,02,02,02,48,41,00 DaR,ta.b 00,00,41,02,43,43,43,43,41,02,48,43,43,48,48,03,03,02,41,00 Data.b 00,43,50,03,48,48,43,00,41,02,04,43,41,02,02,02,02,02,41,00 Data.b 00,41,02,03,02,02,43,48,50,03,43,43,41,02,03,02,02,43,50,00 Data.b 00,41,02,03,02,02,50,02,02,02,48,48,50,02,02,43,48,50,00,00 Data.b 00,41,02,03,03,02,03,02,40,02,02,02,03,03,02,41,00,00,00,00 Data.b 00,41,02,02,02,02,02,41,02,02,02,48,41,02,02,41,00,00,00,00 Data.b 00,48,48,48,43,48,48,50,05,05,02,05,48,48,43,50,S-1ո00,00,00,00 Data.b 00,00,00,00,41,05,05,05,05,05,05,05,05,05,41,00,00,00,00,00 Data.b 00,00,00,00,41,05,05,05,05,05,05,05,05,05,41,00,00,00,00,00 Data.b 00,00,00,00,48,48,48,48,48,48,48,48,48,48,50,00,00,00,00,00 Nivel37: Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Data.b 00,41,45,45,46,45,45,45,46,45,45,41,00,00,00,00,00,00,00,00 Data.b 00,41,05,05,05,05,05,05,02,02,02,41,45,46,45,45,45,46,45,41 Data.b 00,41,05,05,05,05,05,T.05,02,02,02,50,02,02,40,40,02,02,02,41 Data.b 00,41,05,05,48,48,50,02,03,02,02,02,02,03,02,02,02,02,02,41 Data.b 00,41,05,05,05,02,03,02,03,02,41,02,02,48,48,50,02,02,02,41 Data.b 00,41,05,05,05,48,03,48,43,48,48,50,02,02,02,02,41,02,02,41 Data.b 00,48,48,41,02,02,02,02,50,02,02,02,48,03,02,02,41,03,02,41 Data.b 00,00,00,41,02,02,03,03,02,03,02,03,02,02,03,43,41,02,02,41 Data.b 00,00,00,41,02,02,03,02,02,02,41,03,48,03,02,43,41,03,02,41 Data.b 00,00U/ ,00,48,43,50,02,48,50,02,50,02,02,02,02,43,41,02,02,41 Data.b 00,00,00,00,41,02,02,03,02,03,02,48,48,02,48,43,48,48,48,50 Data.b 00,00,00,00,41,02,02,02,02,03,02,02,03,02,02,41,00,00,00,00 Data.b 00,00,00,00,48,41,02,02,02,41,02,41,02,02,02,41,00,00,00,00 Data.b 00,00,00,00,00,48,48,48,48,41,04,43,48,48,48,50,00,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,48,48,50,00,00,00,00,00,00,00,00 Nivel38: Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00V0;E,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,00,43,45,45,41,00,00,00,00,00 Data.b 00,00,00,00,00,41,45,45,45,45,45,45,02,04,41,00,00,00,00,00 Data.b 00,00,00,00,00,41,02,02,02,02,02,03,02,02,41,00,00,00,00,00 Data.b 00,00,00,00,00,41,02,02,02,03,48,50,02,03,41,00,00,00,00,00 Data.b 00,00,00,00,00,48,41,03,50,05,05,05,50,02,41,00,00,00,00,00 Data.b 00,00,00,00,00,00,41,02,03,05,05,0W1.O5,02,02,41,00,00,00,00,00 Data.b 00,00,00,00,00,00,41,02,50,05,02,05,41,02,48,41,00,00,00,00 Data.b 00,00,00,00,00,00,41,02,02,02,50,02,50,03,02,41,00,00,00,00 Data.b 00,00,00,00,00,00,41,03,02,02,03,02,02,02,02,41,00,00,00,00 Data.b 00,00,00,00,00,00,41,02,02,43,48,48,48,48,48,50,00,00,00,00 Data.b 00,00,00,00,00,00,48,48,48,50,00,00,00,00,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,X2>00,00,00,00,00,00,00,00,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Nivel39: Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,41,45,45,45,45,41,00 Data.b 00,41,45,45,45,43,43,45,45,45,45,45,43,41,05,05,05,05,41,00 Data.b 43,50,02,02,02,43,41,02,02,02,02,02,43,41,05,05,05,05,41,00 Data.b 41,02,02,03,03,48,50,02,02,03,02,04,48,50,05,05,05,05,41,00 Data.b 41,02,02,02,02,02,02,03,03,02,03,41,02,02,05,05,05,05,41,00 DY3oata.b 41,02,02,03,02,43,41,02,03,03,02,41,02,40,02,05,05,05,41,00 Data.b 41,02,02,03,02,43,41,02,03,02,02,41,02,02,05,05,05,05,41,00 Data.b 43,41,02,48,48,48,48,50,02,48,43,41,02,48,50,05,48,48,41,00 Data.b 43,50,02,02,02,03,02,02,03,02,43,41,02,02,02,05,02,02,41,00 Data.b 41,02,02,48,48,50,02,02,41,02,48,48,48,48,50,02,43,48,50,00 Data.b 41,02,02,02,03,02,02,02,50,02,02,02,02,02,02,02,41,00,00,00 Data.b 41,02,02,03,02,41,03,02,03,02,03,43,48,41,02,02Z4<,41,00,00,00 Data.b 41,02,03,03,03,41,02,03,02,02,02,41,00,48,48,48,50,00,00,00 Data.b 41,02,02,02,02,41,02,02,03,03,02,41,00,00,00,00,00,00,00,00 Data.b 48,48,48,48,48,41,02,02,02,43,48,50,00,00,00,00,00,00,00,00 Data.b 00,00,00,00,00,48,48,48,48,48,00,00,00,00,00,00,00,00,00,00 Nivel40: Data.b 00,00,00,00,00,00,41,45,45,46,45,45,45,45,46,45,45,41,00,00 Data.b 00,00,00,00,00,00,41,02,02,02,02,02,02,02,02,02,02,48,41,00 Data.b 00,00,00,00,00,00,41[5W,,02,02,41,02,41,03,03,02,03,02,02,41,00 Data.b 00,00,00,00,00,00,41,03,02,41,03,41,02,02,48,41,02,04,41,00 Data.b 00,00,00,00,00,43,50,02,48,50,02,41,02,03,02,41,02,43,50,00 Data.b 00,00,00,00,00,41,02,02,02,03,02,50,03,02,02,41,02,41,00,00 Data.b 00,00,00,00,00,41,02,02,02,50,02,03,02,02,02,41,02,41,00,00 Data.b 00,00,00,00,00,43,50,02,03,02,03,02,02,02,48,50,02,41,00,00 Data.b 00,00,00,00,00,41,02,02,50,02,02,43,50,02,02,03,02,41,00,00 Data.b 00,0\6V0,00,00,00,41,02,02,02,02,48,50,02,03,03,50,02,41,00,00 Data.b 00,00,43,48,48,48,48,41,03,03,02,02,02,41,02,02,02,41,00,00 Data.b 00,00,41,05,05,05,05,50,02,02,43,48,48,48,48,48,48,50,00,00 Data.b 00,00,41,05,40,05,05,05,02,48,41,00,00,00,00,00,00,00,00,00 Data.b 00,00,41,05,05,05,05,02,02,02,41,00,00,00,00,00,00,00,00,00 Data.b 00,00,41,05,05,05,05,02,02,02,41,00,00,00,00,00,00,00,00,00 Data.b 00,00,48,48,48,48,48,48,48,48,50,00,00,00,00,00,00,00,00,00 ]7, Nivel41: Data.b 00,00,00,00,00,00,00,00,00,00,00,00,43,45,46,45,41,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,00,43,48,02,02,02,48,41,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,43,48,02,02,02,02,02,41,00,00 Data.b 00,00,00,00,00,00,00,00,00,43,48,02,02,03,03,02,02,41,00,00 Data.b 00,00,00,00,00,00,00,00,43,48,02,03,03,02,02,03,02,41,00,00 Data.b 00,00,00,00,00,00,00,00,43,02,03,02,02,02,02,03,02,41,00,00 Data.b 00,41,45,45,41,00,00,00,43,02,02,^8cZ02,03,03,43,43,43,43,43,41 Data.b 00,41,02,02,48,48,48,48,48,48,48,50,02,48,48,02,02,02,02,41 Data.b 00,41,05,02,02,02,02,02,02,02,02,02,02,02,02,03,03,03,04,41 Data.b 00,41,05,41,02,43,43,43,43,43,43,43,02,48,41,02,02,02,43,41 Data.b 00,41,05,48,02,48,48,48,48,48,48,48,05,02,41,03,02,03,48,41 Data.b 00,41,05,05,05,05,05,05,05,05,05,05,05,02,41,02,02,02,02,41 Data.b 00,48,47,47,47,47,47,47,47,47,47,47,47,47,41,02,02,03,02,41 Data.b 00,00,00,00,00,00_9@8a,00,00,00,00,00,00,00,00,48,41,02,02,43,50 Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,48,48,48,50,00 Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Nivel42: Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,43,45,45,45,45,45,45,41,00,00,00,00,00,00 Data.b 00,00,00,43,48,48,48,02,02,02,02,02,02,48,48,48,48,48,41,00 Data.b 00,00,00,41,02,02,02,02,43,41,02,03,02,03,02,02,02,04,41,00 `: t?Data.b 00,00,00,41,02,48,50,02,48,50,03,41,03,02,03,02,03,43,41,00 Data.b 00,43,48,48,02,05,05,05,05,05,05,41,02,02,03,03,02,48,41,00 Data.b 00,41,02,02,02,05,05,05,05,05,05,41,02,02,50,02,02,02,41,00 Data.b 00,41,02,41,02,05,05,05,05,05,05,50,03,02,02,03,02,02,41,00 Data.b 00,41,02,50,03,05,05,05,05,05,05,02,03,03,50,02,03,02,41,00 Data.b 00,41,02,02,02,48,48,50,02,48,48,50,03,02,02,03,02,43,50,00 Data.b 00,48,48,41,02,02,03,02,02,03,02,02,03,02,02,0a;I3,02,41,00,00 Data.b 00,00,00,41,02,02,03,02,02,03,02,02,03,02,02,03,02,41,00,00 Data.b 00,00,00,48,48,48,48,48,41,02,02,02,43,48,48,48,48,50,00,00 Data.b 00,00,00,00,00,00,00,00,48,48,48,48,50,00,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Nivel43: Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,0b<0,00,00,00,00,00,00,00,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,00,00,43,45,45,43,45,45,41,00,00,00,00,00 Data.b 00,00,00,00,41,45,45,45,43,02,02,48,02,02,48,48,48,41,00,00 Data.b 00,00,00,00,41,02,02,02,48,02,02,02,03,02,02,02,02,41,00,00 Data.b 00,43,48,48,50,02,40,03,03,02,43,50,02,43,41,02,02,41,00,00 Data.b 43,50,02,02,02,02,02,02,41,02,50,02,02,48,50,02,48,48,41,00 Data.b 41,02,02,48,40,50,02,03,41,03,02,02,03,02,02,03,02,02,41,00 Data.b 41,c=305,05,05,02,02,02,02,50,02,48,41,02,02,41,02,02,02,41,00 Data.b 41,05,05,05,41,02,02,02,02,04,02,50,02,48,48,50,02,48,41,00 Data.b 41,05,05,05,41,02,02,43,48,41,02,02,03,02,02,03,02,02,41,00 Data.b 48,48,48,48,48,48,48,48,00,48,41,02,02,02,41,02,02,02,41,00 Data.b 00,00,00,00,00,00,00,00,00,00,48,48,48,48,48,48,48,48,50,00 Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00d>M Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Nivel44: Data.b 00,41,45,46,45,41,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Data.b 00,41,02,02,02,41,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Data.b 00,41,02,40,02,48,48,48,48,48,41,00,00,00,00,00,00,00,00,00 Data.b 00,41,02,02,02,02,02,02,03,04,43,43,48,48,48,41,00,00,00,00 Data.b 00,41,02,03,02,43,41,03,02,48,48,50,02,02,02,41,00,00,00,00 Data.b 00,41,02,43,43,48,41,02,02,02,02e?ݸk,02,02,03,02,41,00,00,00,00 Data.b 00,41,02,48,41,02,43,41,02,41,02,02,50,03,02,48,48,48,41,00 Data.b 43,50,02,02,41,48,48,50,02,48,41,03,02,02,02,02,02,02,41,00 Data.b 41,02,02,03,50,02,02,03,02,02,41,02,43,48,02,48,41,02,41,00 Data.b 41,02,02,02,02,02,02,02,02,02,41,02,50,05,05,05,50,02,41,00 Data.b 48,48,48,48,48,41,02,02,43,48,41,02,02,05,05,05,02,02,41,00 Data.b 00,00,00,00,00,48,48,48,50,00,41,02,41,05,05,05,41,02,41,00 Data.b 00,00,00,00,00,0f@tK0,00,00,00,00,41,02,48,48,50,02,50,02,41,00 Data.b 00,00,00,00,00,00,00,00,00,00,41,02,02,02,02,02,02,02,41,00 Data.b 00,00,00,00,00,00,00,00,00,00,48,48,48,48,48,48,48,48,50,00 Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Nivel45: Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Data.b 00,41,45,46,45,41,00,43,45,45,41,00,00,00,00,00,00,00,00,00 Data.b 00,41,05,05,05,41,00,41,02,02,48,48,48,41,00,00,00,00,00,00 gAb Data.b 00,41,05,05,05,48,43,41,02,02,03,02,02,41,00,00,00,00,00,00 Data.b 00,41,05,05,05,05,48,41,02,03,02,02,03,48,48,41,00,00,00,00 Data.b 00,43,41,05,05,05,05,48,41,02,02,02,03,02,02,41,00,00,00,00 Data.b 00,43,48,41,05,05,05,02,48,41,02,03,02,03,02,41,00,00,00,00 Data.b 00,41,02,48,41,02,02,02,02,41,02,02,03,02,02,41,00,00,00,00 Data.b 00,41,02,02,48,41,02,41,02,48,48,50,02,48,48,48,41,00,00,00 Data.b 00,41,02,03,02,50,02,50,03,02,02,03,02,02,02,hBΨ02,41,00,00,00 Data.b 00,41,02,02,03,02,04,02,03,02,02,02,02,03,02,02,41,00,00,00 Data.b 00,41,02,02,02,41,02,03,02,03,03,02,03,02,43,48,50,00,00,00 Data.b 00,41,02,02,43,48,48,48,48,41,02,02,43,48,50,00,00,00,00,00 Data.b 00,41,02,43,50,00,00,00,00,48,48,48,50,00,00,00,00,00,00,00 Data.b 00,48,48,50,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Nivel46: Data.b 00,00,43,45,45,46,iC(O45,45,46,45,45,43,00,00,00,00,00,00,00,00 Data.b 00,00,41,02,02,02,02,02,02,02,02,43,48,48,41,00,00,00,00,00 Data.b 00,00,41,02,43,48,48,48,48,50,02,50,02,02,48,41,00,00,00,00 Data.b 00,00,41,02,48,02,03,02,03,02,03,02,02,03,02,41,00,00,00,00 Data.b 00,00,41,02,02,02,02,02,02,02,41,03,02,02,02,41,00,00,00,00 Data.b 00,00,48,48,41,03,02,02,03,03,41,02,02,43,43,50,00,00,00,00 Data.b 00,00,00,00,41,02,02,43,50,02,50,02,03,48,41,00,00,00,00,00 Data.b 00jD:G,00,00,00,48,41,03,50,02,02,02,03,02,04,41,00,00,00,00,00 Data.b 00,00,00,00,00,41,02,02,03,02,03,02,48,48,41,00,00,00,00,00 Data.b 00,00,00,00,00,41,02,41,02,02,02,03,02,02,41,00,00,00,00,00 Data.b 00,00,00,00,00,41,02,48,41,02,02,02,41,02,41,00,00,00,00,00 Data.b 00,00,00,00,43,50,02,02,48,48,48,48,50,02,41,00,00,00,00,00 Data.b 00,00,00,00,41,02,02,02,02,02,02,02,02,02,41,00,00,00,00,00 Data.b 00,00,00,00,41,05,05,05,05,05,05,05,43,48,50,00,00,00,00,0kE d0 Data.b 00,00,00,00,41,05,05,05,05,05,05,05,41,00,00,00,00,00,00,00 Data.b 00,00,00,00,48,48,48,48,48,48,48,48,50,00,00,00,00,00,00,00 Nivel47: Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,43,45,45,41,00,00,00,00,00,00 Data.b 00,00,43,48,48,48,48,48,48,48,50,02,02,48,43,00,00,00,00,00 Data.b 00,43,50,02,02,03,02,02,02,02,0lF{2,02,03,02,43,48,48,48,41,00 Data.b 00,41,02,02,02,48,50,02,48,50,02,02,02,43,41,05,05,05,41,00 Data.b 00,41,02,41,03,03,02,03,02,03,03,41,03,48,50,05,05,05,41,00 Data.b 00,41,02,50,02,02,02,02,04,02,02,50,02,02,02,05,05,05,41,00 Data.b 00,41,02,02,03,50,02,48,48,50,03,03,02,02,02,05,05,05,41,00 Data.b 00,41,02,03,02,02,03,03,02,02,03,02,43,41,05,05,05,05,41,00 Data.b 00,48,48,41,03,02,02,02,02,02,02,02,43,48,48,48,48,48,50,00 Data.b 00,00,00,41,02,mGCu302,43,48,48,48,48,48,50,00,00,00,00,00,00,00 Data.b 00,00,00,48,48,48,50,00,00,00,00,00,00,00,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Nivel48: Data.b 00,00,00,00,00,43,45,46,45,45,45,46,45,41,00,00,00,00,00,00 Data.b 00,00,00,00,00,41,08,05,08,40,08,05,08,41,00,00,00,00,00,00 nH?$ Data.b 00,00,00,00,00,41,05,08,05,08,05,08,05,41,00,00,00,00,00,00 Data.b 00,00,00,00,00,41,08,05,08,05,08,05,08,41,00,00,00,00,00,00 Data.b 00,00,00,00,00,41,05,08,05,08,05,08,05,41,00,00,00,00,00,00 Data.b 00,00,00,00,00,41,08,05,08,05,08,05,08,41,00,00,00,00,00,00 Data.b 00,00,00,00,00,48,48,41,02,02,02,43,48,50,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,00,41,02,02,02,41,00,00,00,00,00,00,00,00 Data.b 00,00,00,43,48,48,48,48,50,02,48,48,48,48,48oIB2,41,00,00,00,00 Data.b 00,00,00,41,02,02,02,02,02,02,02,02,02,02,02,41,00,00,00,00 Data.b 00,00,00,41,02,03,02,03,02,03,02,03,02,03,02,41,00,00,00,00 Data.b 00,00,00,48,41,02,03,02,03,02,03,02,03,02,43,50,00,00,00,00 Data.b 00,00,00,00,41,03,02,03,02,03,02,03,02,03,41,00,00,00,00,00 Data.b 00,00,00,00,41,02,02,02,03,04,03,02,02,02,41,00,00,00,00,00 Data.b 00,00,00,00,41,02,02,43,48,48,48,41,02,02,41,00,00,00,00,00 Data.b 00,00,00,00,48,48,48,50,00,0pJ)y0,00,48,48,48,50,00,00,00,00,00 Nivel49: Data.b 00,00,00,00,00,00,00,00,00,43,45,45,41,00,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,41,02,02,48,41,00,00,00,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,41,02,02,02,48,41,00,00,00,00,00 Data.b 00,00,00,00,00,00,00,00,00,41,02,03,03,02,48,41,00,00,00,00 Data.b 00,00,00,00,00,00,00,43,48,50,03,02,02,03,02,48,41,00,00,00 Data.b 00,00,00,00,43,48,48,41,02,02,02,02,03,02,02,02,41,00,00,00 Data.b 0qK0,00,43,48,50,02,02,41,02,43,48,48,48,50,02,02,41,00,00,00 Data.b 00,00,41,02,02,02,02,50,02,50,05,05,05,05,03,02,41,00,00,00 Data.b 00,00,41,02,50,02,02,02,03,02,05,05,05,05,41,02,41,00,00,00 Data.b 00,00,41,02,02,03,02,41,02,41,05,08,05,05,41,02,41,00,00,00 Data.b 00,00,48,48,41,02,02,43,48,48,50,02,48,43,41,02,41,00,00,00 Data.b 00,00,00,00,48,48,48,41,02,04,03,02,02,48,50,03,48,41,00,00 Data.b 00,00,00,00,00,00,00,48,48,41,02,03,02,02,02,02,02,41,00,rLh300 Data.b 00,00,00,00,00,00,00,00,00,41,02,02,43,41,02,02,02,41,00,00 Data.b 00,00,00,00,00,00,00,00,00,48,48,48,48,48,48,48,48,50,00,00 Data.b 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Nivel50: Data.b 00,00,00,00,00,00,43,45,46,45,46,45,46,45,46,45,46,41,00,00 Data.b 00,00,00,00,00,43,50,05,05,02,02,03,02,40,02,02,02,41,00,00 Data.b 00,00,00,00,43,50,05,05,08,02,03,02,02,02,02,03,02,41,00,00 Data.b 00,00,00,43,50,05,05,08,05,50,0sM 2,50,02,50,03,02,48,41,00,00 Data.b 00,00,00,41,05,05,08,05,50,02,41,02,50,02,03,02,02,41,00,00 Data.b 43,48,48,41,05,05,05,50,02,02,50,02,02,02,02,50,02,41,00,00 Data.b 41,02,02,48,50,02,50,02,02,02,02,02,02,02,02,02,02,41,00,00 Data.b 41,02,04,03,02,03,02,48,48,50,02,02,41,02,50,02,43,50,00,00 Data.b 41,02,03,02,02,02,03,02,02,02,41,02,41,02,02,02,41,00,00,00 Data.b 48,48,41,03,03,02,02,02,50,02,41,02,41,02,41,02,41,00,00,00 Data.b 00,00,41,02,02,tNP02,03,02,02,02,41,02,50,02,48,48,48,48,41,00 Data.b 00,00,41,02,03,40,02,43,48,48,48,41,02,02,02,02,02,02,41,00 Data.b 00,00,41,03,02,02,02,41,00,00,00,41,02,02,02,40,02,02,41,00 Data.b 00,00,41,02,02,43,48,50,00,00,00,48,41,02,02,02,02,02,41,00 Data.b 00,00,41,02,02,41,00,00,00,00,00,00,41,02,02,02,02,43,50,00 Data.b 00,00,48,48,48,50,00,00,00,00,00,48,48,48,48,48,48,50,00,00 .Nivel1edu Data.b 0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0 Data.b 1,4,2,2,2,1uO%,1,1,1,1,0,0,0,0,0,0,0,0,0,0 Data.b 1,2,3,3,2,5,2,2,2,1,0,0,0,0,0,0,0,0,0,0 Data.b 1,2,2,2,3,1,3,2,2,1,1,1,0,0,0,0,0,0,0,0 Data.b 1,2,2,2,5,5,5,5,5,2,2,1,0,0,0,0,0,0,0,0 Data.b 1,1,1,2,3,1,3,3,3,2,2,1,0,0,0,0,0,0,0,0 Data.b 0,0,1,5,2,5,2,2,2,2,1,1,0,0,0,0,0,0,0,0 Data.b 0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0 Data.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 Data.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 Data.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 Data.b 0,0,0,0,0vP\,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 Data.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 Data.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 Data.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 Data.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 Data.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ;----------------------------------------------- ; Funciones para la gestion del menu ;----------------------------------------------- .GestionMenu Statement BorraCursorMenu{o} BLITZ BlitMode EraseMode BlwQ6שit 8,60,o*16+138 BlitMode CookieMode End Statement Statement DibujaCursorMenu{o} BLITZ BlitMode CookieMode Blit 7,60,o*16+138 End Statement .Menu: BLITZ:BlitzKeys On:BlitzRepeat 0,0 Use BitMap 1 BitMapOutput 1 DisplayPalette 0,1 DisplayBitMap 0,1 For i=0 To 5 BorraCursorMenu{i} Next opcion=0 DibujaCursorMenu{opcion} Locate 10,18:Print "Instrucciones" Locate 10,20:Print "Jugar" Locate 10,22:Print "Saltar a nivel" Locate 10,24:Print "MusicxR a off" Locate 10,26:Print "Creditos" Locate 10,28:Print "Salir" While True VWait Select Inkey$ Case "q" BorraCursorMenu{opcion} If (opcion>0) opcion=opcion-1 Else opcion=5 EndIf DibujaCursorMenu{opcion} Case "a" BorraCursorMenu{opcion} If (opcion<5) opcion=opcion+1 Else opcion=0 EndIf DibujaCursorMenu{opcion} Case " " If (opcion=0) BorraCursorMenu{opcyS-iion} Gosub MostrarInstrucciones DibujaCursorMenu{opcion} EndIf If (opcion=1) Goto Juego If (opcion=4) BorraCursorMenu{opcion} Gosub MostrarCreditos DibujaCursorMenu{opcion} EndIf If (opcion=5) End End Select Wend Return ;------------------------------------------------------- ; Funciones para la carga de recursos del juego ;------------------------------------------------------- .CargaRecursos: AzTMIGA InitCopList 0,44,256,$05,8,32,0 InitCopList 1,$03 LoadModule 1,"A Saco Van.mod" ; ; Pantalla de presentacion ; BitMap 1,GLOBAL_HRes,GLOBAL_VRes,GLOBAL_Depth ;LoadBitMap 1,"d:introbirrarutinas/sokoban/intro.iff",1 LoadBitMap 1,"introedu.iff",1 ; ; Main bitmap ; BitMap 0,GLOBAL_HRes,GLOBAL_VRes,GLOBAL_Depth ;LoadBitMap 0,"d:introbirrarutinas/sokoban/tiles.iff",0 LoadBitMap 0,"tiles.iff",0 ; ; Obtenemos los bobs de la pantalla de tiles ; Get{U4maShape 0,0,0,16,16 GetaShape 1,16,0,16,16 GetaShape 2,32,0,16,16 GetaShape 3,48,0,16,16 GetaShape 4,64,0,16,16 GetaShape 5,80,0,16,16 GetaShape 6,96,0,16,16 GetaShape 7,128,0,16,16 ; Flecha cursor GetaShape 8,144,0,16,16 ; Para borrar GetaShape 9,112,0,16,16 ; Barril sin suelo ;Paredes GetaShape 40,16*6,19*6,16,16 GetaShape 41,16*0,19*7,16,16 GetaShape 42,16*1,19*7,16,16 GetaShape 43,16*2,19*7,16,16 GetaShape 44,16*3,19*7,16,16 GetaShape 45,16*4,19|VmJ*6,16,16 GetaShape 46,16*5,19*6,16,16 GetaShape 47,16*0,19*6,16,16 GetaShape 48,16*1,19*6,16,16 GetaShape 49,16*2,19*6,16,16 GetaShape 50,16*3,19*6,16,16 ;Animacion arriba GetaShape 10,0,38,16,16 GetaShape 11,16,38,16,16 GetaShape 12,32,38,16,16 GetaShape 13,48,38,16,16 ;Animacion abajo GetaShape 15,0,57,16,16 GetaShape 16,16,57,16,16 GetaShape 17,32,57,16,16 GetaShape 18,48,57,16,16 ;Animacion izquierda GetaShape 20,0,76,16,16 GetaShape 21,1}WO6,76,16,16 GetaShape 22,32,76,16,16 GetaShape 23,48,76,16,16 ;Animacion derecha GetaShape 25,0,95,16,16 GetaShape 26,16,95,16,16 GetaShape 27,32,95,16,16 GetaShape 28,48,95,16,16 Cls 0 BitMap 2,GLOBAL_HRes,GLOBAL_VRes,3 BitMapOutput 2 Locate 0, 0:Print " Instrucciones" Locate 0, 2:Print " -------------" Locate 0, 4:Print "Sokoban es un clasico rompecabezas " Locate 0, 6:Print "inventado en Japon, creado por Hiroyuki" Locate 0,~X 8:Print "Imabayashi. Sokoban significa en japones. " Locate 0,12:Print "El objetivo del juego es empujar los " Locate 0,14:Print "barriles hasta su lugar correcto dentro " Locate 0,16:Print "de un reducido almacen, con el numero " Locate 0,18:Print "minimo de empujes y de pasos. Los barriles " Locate 0,20:Print "cajas se pueden empujar solamente, y " Locate 0,22:Print "no tirar de ellas, y solo se puede " Locate 0,24:Print Y;<"empujar una caja a la vez. " BitMap 3,GLOBAL_HRes,GLOBAL_VRes,3 BitMapOutput 3 Locate 0, 0:Print " Creditos" Locate 0, 2:Print " --------" Locate 0, 4:Print "Codigo..... Birra/Goblins " Locate 0, 6:Print " Tolkien/Goblins " Locate 0, 8:Print "Graficos... Jojo073/AmigaWave " Locate 0,10:Print "Musica .... Zoltar dreamusic " Locate 0,12:Print " " Locate 0,14:Print "Saludos: Kikems, EZstrayk, Arananet..... " Locate 0,16:Print " " Locate 0,18:Print " " Locate 0,20:Print " " Locate 0,22:Print " " Locate 0,24:Print " " BitMap 4,GLOBAL_HRes,GLOBAL_VRes,3 LoadBitMap 4,"ALCHEMY2.iff",4 GetaShape 60,(13*16),(16*0),16,16 ;N GetaShape 61,(08*16),(16*0),16,16 ;I [ojw GetaShape 62,(01*16),(16*1),16,16 ;V GetaShape 63,(04*16),(16*0),16,16 ;E GetaShape 64,(11*16),(16*0),16,16 ;L GetaShape 65,(16*16),(16*1),16,16 ;0 GetaShape 66,(07*16),(16*1),16,16 ;1 GetaShape 67,(08*16),(16*1),16,16 ;2 GetaShape 68,(09*16),(16*1),16,16 ;3 GetaShape 69,(10*16),(16*1),16,16 ;4 GetaShape 70,(11*16),(16*1),16,16 ;5 GetaShape 71,(12*16),(16*1),16,16 ;6 GetaShape 72,(13*16),(16*1),16,16 ;7 GetaShape 73,(14*16),(16*1),16,16 ;8 GetaShape 74,(15*1\6),(16*1),16,16 ;9 InitPalette 2,8 PalRGB 2,0,0,0,0 PalRGB 2,1,15,15,15 PalRGB 2,2,15,15,15 PalRGB 2,3,15,15,15 PalRGB 2,4,15,15,15 PalRGB 2,5,15,15,15 PalRGB 2,6,15,15,15 PalRGB 2,7,15,15,15 InitPalette 5,32 InitPalette 6,32 Return ;--------------------------------------------------------------------------- ; Rutina de cambio de nivel. ;--------------------------------------------------------------------------- .CambioNivel InitPalette 5,32 BLITZ Cr];KeateDisplay 1 DisplayBitMap 1,4 DisplayPalette 1,5 Use BitMap 4 BitMapOutput 4 Cls 0 posicion = 96 GLOBAL_LEVEL=GLOBAL_LEVEL+1 VWait Cls 0 VWait digito1 = GLOBAL_LEVEL / 10 digito2 = GLOBAL_LEVEL MOD 10 Blit 60,posicion+(16*0),120 Blit 61,posicion+(16*1),120 Blit 62,posicion+(16*2),120 Blit 63,posicion+(16*3),120 Blit 64,posicion+(16*4),120 Blit 65+digito1,posicion+(16*6),120 Blit 65+digito2,posicion+(16*7),120 BirraFadeIn {1,4,6,50,0} q HVWait 100 BirraFadeOut {1,4,6,50,0} Use BitMap 0 Gosub Inicializa_Escenario DibujaEscena{} CreateDisplay 0 DisplayBitMap 0,0 DisplayPalette 0,5 BirraFadeIn{0,0,5,100,0} DisplayPalette 0,0 Return EVEL MOD 10 Blit 60,posicion+(16*0),120 Blit 61,posicion+(16*1),120 Blit 62,posicion+(16*2),120 Blit 63,posicion+(16*3),120 Blit 64,posicion+(16*4),120 Blit 65+digito1,posicion+(16*6),120 Blit 65+digito2,posicion+(16*7),120 BirraFadeIn {1,4,6,50,0} ^2_I~}|{zyxwvutsrqponmlkjihgfedcba`_^(9^ ALCHEMY2.iffp^`FORM^ ILBMBMHD@,4@CMAPӓsSCs3S#CCAMGDPI 4,BODY]s{k{k{nnkkx|| <\<\>^^<\<<\< Y   V  !~@(S S  P*^a/N{PS3S S S,R`@_||2  d22ss||_,G#!#P  C B##/#00P<P@(72x2>P0>P080%-hr-jrh2  d2244h-r-h-r-,U63D3EDP !  "D33D332"$P2ada`,^h(aa8PRP0`0*0$dPP   P F!!     <>> >>>`,>>H> >> >#`Q,P,Q0`0T0 Q,Q,51 C P   #(6K7W7K6 `l766L6\K6 ^b\kڵK7 M 0@@  (tt 5  0"P P  #  0$C7V6C7`l7066.6.C7C6 $z  1  $4   " P RB   &C4V6C6`l7666C6C6  0  TD   S P rb   &A6T4A6`l6 644A4A 4 "2" " " @ P " H <"a$t&a&`L&&&&a$a $r^c(JZJ l$JJlT$ P D2D ".$l$&`h&&$$x$$r,JSrUrrP(rUr @aIcMIP$McM$ &$##'pwX' +## d`K U P 655mq6[P @ " "pkg'gxg''''KPL X  Y0Y@ :   @pB3`CCC8CCCCCgCp$$#^d`##8_# ####p'z<zz`8<r>~_g|?7k/  (8<<8<<<<<0 @    \T\]]h9X ~[  st 5]? ''(a'## O H@00@*DN*;VHS*.Z,RyuSuS S@v2 t42 s"@#sx^ezj=:50d[LL tL"H$?H  Gcc#@,*Df*8fP0(:0x0Pl&0&0>p2 8 2  @ ( -0d,, --h- Q&"$"""$h"3 2H233D3@D6 <$$ ` ,:8`L,,a(0DTT`0P &L L(  H  @60 0 0@ ,*hC\ .> `:$0 @`PA888Q& D$($C ! @H#(6  0l7?##J 0 PT` ` M ^fpjP"   @Hr (    @ #x6.pp7<l ^C PD  P Pz ?[ J@ PP(   # 6  @ Tl2 B  H0000@ ? 0   !@`@(S ? E  #H @@@lVhf^@6@ 0$T" $ $( ?  1 #p7@0`LpRLbFaD @@  P4 P^g-p)J " T T(  1pPd@3C03C`.LpHen8Nx0JP>(((S t $RS rU f0" @"(@a   aD!Mc_Sxj8jqNdlF lz@a.g@].g]/*[{*3Sm  ""@ @@@,l @?l<@?KKN' 4^X_?X?0  2x :@@@ `D@Dpp @@_dpdp@"G@p"GpNGG'^ h['8? 881888<^ i?^ j=^ k;^ l9^m7^n5^o3^p1^q/^r-^s+^t)^u'^v%^w#^x!^y^z^{^|^}^~^ ^!^"^# ^$ ^% ^&^'^(^)^*^+^,^-^.^/^0^1^2ḢٔR9^A Saco Van.modpܻOdA Saco Van2018 Zoltar Dr3am@Para el juego Sokoban@de Goblins para)@Amigawave y para toda@la comunidad Amiga. K@CSaludos!@ASinth_Flute@ASinth_Flute@ASinth_Flute@ASinth_Flute@AacordeMarca @ ԰Qx  a$M.K.X0d0@jSd X0S}0@jj0d@0@@d@d 0@@d@0@@d@X0Sj}j0@j}j X0Sj }j0@jSjv:0}d0:@} :0}0:@}X0d0@jSd X0S}j0@jj0d@0@@d@d 0@@d@0@@d@X0Sj}j0@jSd X0Sj0T@j L tL  L LX00@L X0L0@L 0Xl@0@L :0:L 0:@:L X0L0@L X0* _L0@L :0:L 0:@:L :0:L 0:@:L X0L 0@L X0L0@L 0L @0@L :0:L0:@:L :0:L 0:@:L :0:L 0:@:L:L::L :L:L :L,:L,,X0Sjj0@:`Sd X00@Sj}j0d@0@j 0d@0@X0:jj0@:j}j X0:jSj0@}jj:0}d#}j0:@}j}j :0}j}j0:@}l}lX0Sjj0@:`Sd X0j0@:jl 0@jj @0@j @d 0}`@0@j l 1:0:j 0}ZZ }ZZ :0}ZZ0}ZZ}PP       X0d:j0@jSd X0j Sj0@jj0d@0@@d@d 0@@d@0@@d ڌ@X0Sjj0@:jSd X0Sj0@:d::0}jj0:@:j}d :0}Sf0:@}` X0d0@jSd X0 }j0@jj0d@0@@d@d 0@f # @d@0@@d@:0:jj0:@}j@j :0d0:@jjL dL  L, L,X0P\0@P\ X0P\0@P 0S @0@\ ܷf :0S0:@PX0\0@P X0\\0@P\0P@0@\ :0S0:@PX0\0@P X0\0@P0S@0 !>@\ 0P @0@P :0  0:@Z Z :0Z Z 0:@Z Z 0@Z Z @0@@Z @Z :0Z Z0:@ZZX0P\0@P\ X0P\0@P\:0Ph\0:@P\ :0P\0:@T0@0@P  0T @0@:0T 0:@T  :0T\0:@ZX00@ X00@T:0Z0:@Z :0@Z0:@Z0@0@Z 0@0@SZ:0}Z0:@Z :0SZ0:@0P\0YP \ 0SPS\(0YP \0P\0YP \ 0P0YS :00:@P\ :0SPS\0:@P\:0P\0:@P\ :0P0:@S 0 @0@ 0@ZZ @0@Z @T 0 @0@ 0Z Z @0@Z T0 @0@ 0@Z Z @0@:Z T :0 0:@  :0 0:@ X00@\8OL X0L0@L 0Xl@0@L :0:L 0:@:L X00@L X0L0@L 0Xl@0@L :0:L 0:@:L X050@L X0L0@L 0Xl@0@L :0:L 0:@:L :0:L 0:@:L :0:L 0:@:L0L @0@L :0:L 0:@:L %:0:L 0:@:L :0:L 0:@:L0L @0@L :0:L 0:@:L :0:L 0:@:L :0:L 0:@:L0L @0@L :0:L 0(:@:L :0:L 0:@:L :0:L 0:@:L0L @0@L :0:L 0:@:L 0L @0@L :0:L 0:@:L 0L @0@L :0j:L 0:@, ,:L L0ZZL0ZZ\Z\Z\Z\ZL@ZZL@ZZ\Z\Z\Z\ZL0ZZL0ZZ\Z\Z\Z\Z:L0ZZ:L0ZϦZ\Z\Z\Z\ZL0P\L0P\\P\\\P\ @S @\\S\P\@\@P\\\\\PP\\PP1 \\ SS P P0P\0@P\ 0 P \0@P \0S .0\@\ 0xS 0@P0\0@P 0\\0@P\ϳ(\0P.0\@\ 0xS 0@P0\0@P 0\0@P\0S.0\@\ \0P .0\@P 0ZZ 0@Z Z 0\Z  0@Z *Z \0Z \.0\@Z \ 0Z \ 0@Z\(0P\0@P\ (0P\0@P\0xPx\ 0@P\ 0P\ 0@T\0.0\@P  \0T_1 .0\@0T  0@T  0T\ 0@ Z(00@ (00@0Z 0@ Z 0.Z 0@Z\0.0\@ Z \0.0\@@Z0hZ 0@Z 0@Z 0@0P\0YP \ 0@P@\0YP \0P\0YP \ 0P0Y S 0 0[W@P\ 0@P@\ 0@P\0P\ 0@P\ 0 P 0@S.\0S 0      0\*.\*  0        0h\* \*XR    0      0\*@\*    /  ,      , , ,,       ,, , ,Hܞ,  ,      , , ,,  ,    , , ,,  ,      , , ,,  ,    ,  $h, ,,  ,      , , ,,  ,  ,  ,, , ,,, ހo'mZТZz(WHl~lHa(<J^|!^Wm>T'Oa@D99.DW-WH^t~~fdox|JJ73`BW' !23 ,Ԯޤ!S׀Ԋĸ˔Ę怦Ȁȅ〔ٿٹ .:&,(.gmgo3g^HXZ.a:2@ טя®ȏʤή 93z~H.f`t~~|~fs`fszDvOKg@>K:!@L'@3'K244!43'! 2ǿ˼ʿβԿܼ %  3!(3:"`'EHH3JR^RR]dli`m]^s^~ldZlfglXgfaRigL]TZWW`WLRRE'H%-'% !'!!.-!  д ʝр Ѽ:Wgl,' Bs' ܏ Wa,Eָ'~<QDԀ|4~%X܆€р'v^pt^aszH(W< t􀀌Ԁ^#cp~`:^gga~QQ:K Ȭļր܀ꀉހـֿ,7&WBQDaT<` 7O O^p'W2݉ȼ'ހĿȐ䬆ހр9λ `], XBKa]~!`7:L񀮝ȩ:!9]'(H >и˿ٸ֏ @> &^:!HOQ .@2(2@QQ9 7' !.' ܲ п˻໹ֿ$[26%7<3-&&'3<4(R> >333 '޵     H3!227-''!& -'     ܼ  %3OtoH沅 %'@`~vaB!װ-E^tzlW@'ή':Odx|mZE.Ǯ&3EWi||m`J4¬&\KM> .. '4@OZit~tgWH9'п ,7DOZit~ti^O>-ʻ'#!,:EOZit~~tlaRE7' ǻ %-:EQ^it|~tmdXK>. ǹ%2HQ`itzxtldXK>3%ο(% (4@KW`itz|tog`RH<- ʼ !,4BJW`itzvpiaXLB7(Ǽ !,9@LT`isx~xtmg`WL@3' ǻ%-:BKT`isv~~toid^RE<.!ǻ)qP@ %-:BKT`iot|~~ztmiaWOD9, ǻ%-:BKR`gotx|~~|toid`WOB7( ǻ%-:@JR^flsv~~~|xtmia^RJ@7(ǻ&-7@HRZdlptxzzxtslf`WQH<3'*hpǻ%-7@HRXaiostxxvtoia^TOE>3& Ǽ'.7@HRXaiosttttoldaWQH@9(Ǽ!'(,.333333.-('!  T+-/‘^^RWgg7 슀>aQHˉФL^@JmW^LD oxB(ޞ! KdDJOQ֩ټ~XQR^^3%H<ǀJ%ޮER:>^(E]'(Ԇ-~D|謹 7Q>@E!ԔlK97>&ހz ٹ7sٵ>,94^a37> 2<|Q .'(:4@Q ٤~zp'f3˸~xlʵ&!!']fRKԀ!,񞼵KQpxso3ހ,ޜ<]3('>|KWٿײ gtm`WQ3꿞,2DֹJRvRʲ9 XDD7ģǮǣ J,3iDO 䪊.937>H9d¿ȸ&'&HB7%˰&!! 4(,<&(3&''     -  %.!   -09 ˼. ٹĪ7  ˹9 ȼ.:(  ټD.7  ݹݸD,9.̾  ٻ,7  ȪD3.˴DB   ٸȪ:D  ޹-D ׹D.7!ȼD:(޹ Dല@ D ײD@ 㿼 43  ޴ D Ĺ4D 㹪 D  ٬ D /x5 㿸.3 ٰ @   꼹D޴D Ȫ@㵪 9Ȫ.7괸9,ު<<!઼:> ( 7-3(贵7, Ȫ09,,칼<  п< , : ,׼(7  (  ,: .  ޿33 ((   :- .( 9.,(. @!,.(   .: ,.77( .  74 ,,:.,( 93, .:1$W H( 73, 9.(,33.3.29 43 (7(  33 9 ,.,,-(.,  (,,  (-(-,( 2Ź ,- ,(. ,.( ,.! (-, ,,-(.(  ,2 3, (4( ,.(  ,.  .- (----(3K=8---, ((,(,!.(!!(   4,&  ˿5ǥĂ ˿ǿȿп пп 6i        ǿ    ȼ             7 #              (    8_&(,     ( ! ((  ((( -, (, (, (,9˘j     !''--27. (:@.ο2@@' ޻7E@ Թ WJ꿻JW>๿'QW3Թ3WW'ʻ >WJ»@W@㿿 JW3׻.RT, λ7WJ ļ@W@¿JW7:̴kٿ'QQ'ο3WE!ǿ¿>W7¿JW2TJ'.W>!¿,ǿJ7'Ŀ.D3!¿3@.¿ :<,:7'Ŀ>2!¿!>..:.27'73!72!!7. ,7, 23'32!7. !7- ,3';.2 3.3, '3'.3!3. 2- !3''3'..!2.3' !3',2 .. 2( 3'!2! -.!..  2( !3!'2'..!2- 2(!2' ,.!.. 2.2<η56''2!,.!.-.' !.'       !!'(% -3%'33 ,73-:-!3>'%::! ->93B47B-%:B% ,B@3B::B3>B' 'BB=,;\ .B:3B3:B'%@@! ,B: 3B3:B(>>'B73B, :B&@:%B3-B, 7>% >3 >-'>'37& 72!:,%4''3% --!-,2'.%%-%',(',& >ЅRUW,%!,! &''& (% ,! !' %''% '! '%''% '! '' %% &% ' '!&%% &  '& !% %% &  '&%% ?Մ&! & & !%%% &%&& !%%! % %        !% &%%&! ' !'@қY*%''''% %'&''''% ' %''''%' %' &&'!' %' '% ' '!& & & &!! %    Aӂ0                            B! P                        C|                   D?c                                  EM,                        Fjz                   G;   H