From ebf63aae67f0434edf9d5b8aed9c4c97ca382205 Mon Sep 17 00:00:00 2001
From: Aaron Mueller <mail@aaron-mueller.de>
Date: Sun, 21 Aug 2011 19:59:15 +0200
Subject: [PATCH] Start diggin

---
 data/gfx/tileset01.bmp | Bin 43256 -> 57654 bytes
 src/Draw.pbi           |   2 +-
 src/Events.pbi         |  38 ++++++++++++++++++++++++++++++++++++++
 src/Functions.pbi      |   2 +-
 src/Structs.pbi        |   2 ++
 5 files changed, 42 insertions(+), 2 deletions(-)

diff --git a/data/gfx/tileset01.bmp b/data/gfx/tileset01.bmp
index 15bbaffb4c823ae2018e0f5e191ae1dc5d08105c..0e9b8b8dfbd362024d7e07161297851e2253e5f4 100644
GIT binary patch
literal 57654
zcmeHwXLMZGk*4<Fo}ICGcXr1!<Mn!N9a**{%eI0o$r5FYlqgdYMT(?ENhHM_K@vpH
zAVB1ta|Vc<bIv&v00HKtU|Z|4JwEc;@ti%owe?l&wjY|^BJt3|_{=_@^Vp5suj}1+
zzgtyb)vbPa{pO$Cc|iXCg#Z5@AD*8d|L%cr@jL#<pa0EYnGRFK0}uSK2Z)Tr7z1Mt
z7<0gw1I8RM=72E=j5%P;0b>prbHJDb#vCx_fH4P*Ibh5IV-6T|z?cKZ95Cj9F$at}
zV9Wty4j6O5m;=TfFy??U2aGvj%mHH#7<0gw1I8RM=72E=j5%P;0b>prbHJDb#vCx_
zfH4P*Ibh5IV-6T|z?cKZ95Cj9F$at}V9Wty4j6O5m;=TfFy??U2aGvj%mHH#7<0gw
z1I8RM=72E=j5%P;fwh_gyWibP>e%z%TXguq`*hmj5FOtCp1ECpu3kTQe;XY+u#0wV
z{RORm@o9Sb=g-oX*Vo^5{{Ij1)(R)R*HM_^6?p95^NwJ*f6v=@;e~Vd?cPBSNB5Dl
z<1yO$#>@2ThM&?~n_r=Kw!L=O`SzCQ$n!4H&%<v0gS?m4Jxh-~{4M&<gWsTUfAb&i
zx`%t+uikNAtM45>xSK)(z3H64Cy$*w9o+XW>+eC@yKBd?d-ZTRNjSoT{TSQh<b3)V
zZFyq@W4vM6d0(cygxD|&5AmbKxNyPwtdA@A;|KvKFSpan`WGD$L~hQ<$(;{hPbYI9
zwf(au@2MX?a+kcPe)JgGlDAek>AjB2nG-x-5#0ZCf?Z;KB*jDp)A7R}(18zj(g*Kv
z=P^1V*bDx9car1D!-DVL-P>8;m+SdT<+(W>r?ae+DT&b(9Oy-%=X}gqz+PCBmzR@D
zkzoN87UV}kXT2yrIfkOc1Er5jUR_POoRgjsN0<lb`~Aq<@U!P=*E?@6llL>$aW9WE
zR^{m(_qF=ofe+rH(<cs+JL{&K^GV7`OBAf5!q1VnyA$8%If@MRXC3zu+kEWM9y)dW
zAVq}-k+;Wb)(uA)J3lXHnG2Tknw#pVvb>1OO7bZ?Bbm~YVnkkSWH3cBMwnL#G2tRF
zJ0p>@(&B8&OHYZXzTQq<^767$=nT(GZT}!If#<f%nPbcP_xi>c$+CZMY}&y6|8xJ8
zytTqf?{(lK_wL%xeCmC2b8;YmA2*rr!2w>Bln}vV?IGBEx;m1Nrwc_#hS0gQo?@fl
zdwVnOW&Mte3Z+b*7k=Ju;=`4^)WjI-Xm6%m9^1m)bQ&8OppLdiYHq9{=vP84+YOeN
zosq=)8$<V!*H~9YLxX+G<c$pV(d78ZUGnmB()nIoC^I#lsw+yY_7C!Uy4pqFQRa*2
zALJG0W{SRU+wz+9Z}0B6>EQld^y2eR-z87)xUbdsV6$-Sd2bu*<pB!t^A!F9pB2Y;
z+TrMK+P>vgw#UZ>`@*~|*6{?v;w|P^u-~y!A)<reT}qyxmkY&5hf;oS29=i<P(?{0
zkMnsN=xY~yT9}_jl@-MVc}<MBpSLqX9_(#pS&>zFRpsZYy|r<fyv2nX8Xp;?&W;w*
z?T)r)y0o;w^QeJ5*sl~Y&V&8kR^@rPo}#vv2FAFJTuvS1`F)%kYD*|LGezV<x5GmM
zsJW?@Uw!G>r@l`|7-#sBZEtR(#~*#@FaFuP3J<&<;+W{Hue<oebN(KJmD8z1Y?rt4
z{hcKz=2XcE(c-V)e`kyEXT(SWes0XqOy?_k;5`v+*CDTsF`1bf6Z@7J7e?m`(oHxq
zj`g*bA}=vMg8iwljB!C;x>b4QC3%#>_8szWT)#qX&2=;~*vt4d^WRr#c4mS`hX?55
z{48VLA@aZ-yE>Ye$pcRYkAl5&W4|=Y^8*;d#z0<dQ~>q$beQGURhO|H54S3Bt@Kdu
zbrc?W1y_P!jSMq!EpQTFFDH(3H;SKxPlB&ZOOB)WcW$9KUt3R`H~pOay<Ozc%EEha
zCCDpd-L2;_n!hkDID5OF6nW*v`BYm~M&qMHl+TzZCq$Bq<6(-447y9+LFRQOMLDdy
zMRZ|yiY~K`-nw~>e*4?s(A2~*EiTN`#km>!=)>FePrv^i&CX7m<w5TuQ`<ktJ9%tB
zIdPnqm7Yw^4Yi{8b+u(|uajwEZrUvG!`nBhtgO(gJiX(-R^QX!Gh#j95gOvpoa+Gl
zVHfgrJ<0LHemZ_+ue1%b|AWs;ijNX}_c4ctZPm(A@1fJc1M(7LLaDR8kro%{s313m
z$2*vc3$y9c;sV{ib%Xt0Ke;l`$w-N@D)0E=J)&P1=PyuiPrH2Q=8dcLo8Np&AAfY4
zW~Rrem+kClfA|Ca>7W0ZKD={_xm>i!%gauYzN>!WRmrO;DWW*`BhXRY+pU||Mc-?y
zizz2FnJz8N(I0;Qdm0-Zv?_0{aMF97eas!ev2f4eMc_z|4u|D$<Sbr)^=I7XBC!GV
zIh*gfg*kC%dZO@WhogJQ%l)(&U#&dECAnE?W_h`pNo@DpX?k*0d|pjeiHzIS#3(g3
zR8uS4$N*m#tMb4HviO=aQxnwN-ENu}w{Os=zy75hunpI*T^4=5e)Te4y?Tjta7N^1
zG4I8E#XYM2DS1;9W8xo*m{Sc7_Rz%GFwL=jKwp{~D%m!S(r|wdb+C=MCQt9UuhsY9
zQ@z~IkkhFn93MHb?Tr_HrRMsfeecnkQ%9+<yMsAu1vS=J310=inBS410c__E5b_52
zj#eIG&!+ksv%CWKZ++cuVqb6FxK2x~yW?X+A`kv=YGQ=SOA2ht1HZkzv`GEzTMP3t
zc%F>WZMM;W{Nrcz$Im{aPe1*&=<+qj_R8gp^fBA&fxa&0d0|%j2YE{u!Nr=yb`%%p
z&`tL1z<iW-d3JV&sw;~{pW9pOXo|5<PKe@s-K+HI!{3&C*IMDE_d1A+;CCI^7iDlf
zSipSOm2)28!r;@uJR>!M;$y?f)6G%z8yLf<A<yB&*rz4MN_>OAwep%9YN(~LR^+8|
z4x*3sZi4ZIt_^b>f;j?v0gQ(RdMJovY>b~Zd9a~ZE-lhkKI*E=d2Y<pr@#6o{qDE_
zNdNQGUy1LWV!Hr)arMd)-C>`J80lW}I+`2U54lkV``5*}S;qIO=<MilKNS^bQGHFN
za4%c(^p5*leGf6`rdM8&7$}l+Kq2RRne%$^xVv)R>ZHWJ;8oB~*lom57;D6=O2-c{
zS3#c1mt!KWymB71-0U=w2mduQHBJSrcf|!+CjZXYfxPO<686Qpl52zyu#|WD#6Gq$
zr)Z$Ri~Z~b`|)P_<l_(N*NiVX*4)e_CB}wIY~0#hFSZ*t799Rw@=BQFMX(J5zlXd*
zzD9LfG2>d!^KO`9^l&QUb8N|5E1dLR2N-R8bE65rlkib*30C0HL7c}B4$Zy~=bb)r
zh;tmy{P}UJC@qxylfoFU@ZZ+tA$QTu+^3&o4%pQiws|Ruk;0wf%b{bCmziqHT`8GL
z9ylKQkr*E)ynBq}8N@^Ihsc*Kay*21_oEN*5PWZaE&GwW%KMVHnPY$)j&~6c)$%-p
zyb`w4wN<68%hyDgfqw_bWY+qpcih+Ndl<`I9P1#CeQo19j(y$4)*?3%!tqT|fH$3B
zTMZ6|wFl_5w}%twuZ~d+=kUQ(6dvl;QeFe+iE4Q4y1QE0m$gVf1l$^H1+c})TS6Xe
zKJv&)j(SCW?adtS49~xI9)HABgX~u!54kJkS0JzSd=Af{PL7M~B?p1|gf=Bdy=vuw
z+ry@(@EnVd3X<H_mN#DEG1+RC2OqO@$7Z$>;djYfE1dLRN8R(z?XL@0#@a6Iuq(&@
z@Wb$_;8-{h+%wSMOAcTRUZvJ;lpOV{l^4hS1~D_R#9D$idB7Mv$eKLpt{=zY$(%2R
zO{uOdW!_dTM?Tww2*wEK1oK?X&&iOS7%;Bj*esRvAsL*b#OJDSFRgoq);;&6tZ71?
zo6D)Y<h}X&242_xDd&84GdKHyLIQlO%F{dUYxO;K&+ly8#C~|4tQooU{UWaej)nZA
zI%f}KAH?^G9JLFt5qi0wk$4$vP3j!=sz)AtKjLpod5CSWjsd&i%Dy2qh}S!K?I?hA
zW9Xj`uk8Ro<i*by<Or`qZuvahS;XI1!|>-APxZ}G-o_0t-X$-b=ZsdKzn803d25A}
z-s`A)hQ7V|+DnA>AwM5?I?3D_pFy9If8M@jBkkh9Px9Ik&cXWd(L=k1KdabC$-=9>
z<w1XuOSxD7;yJ$tJfX`GVP`oH6UqGP>@s}OKdroV&p%`He(xnu@3^nk_Y@}34dgQ%
zj_zm9d`e<gVEf8T&zg^o>z|W)jaOcJPTEkvft(i(B}cvfYsovf_idSzyLP@Q`SI2E
z?_ToO3MakSi3;)Jbt2AD9N)*ei6b22oM9ewkn@orupM?59X)bz7yCsAj(@R6%yyY$
z6)(;qALaJg$N<R^ojS3fIgT6a#c7cj7Zu2M)QgJpl4*9Nfo@$Mr;l!2U|;D=T`lF(
zcKgbtw4wdR(x|lExi)QXL%ZJlGQMZ3VLW+kFXu7#GjDOHq__~u&4^`=e2lSjrQVJj
zj)xotYv2Za9ggkebpz9!fPF5^NusROXy#+bIL92soNF)p$fL}?Jt;Xpl<KSU1-F9i
z1R5V|6YOqXo}de(O?3O}lo`vLm&RyrteNgy<23@tRUHOStE)B5PK{uDe1e91n>fCU
zrmE6xlfGS<pwz^0YOE<@-isQCqpY*1I9A$AH!n{LHvZmcIA#c@i!%d)Cv?`=^E727
zM@Snmx^s0}<c;(<(v^h~!3{ck`9d#!czxE4Be1?S+hhLQz;|`HD!st^t^;G16dOW|
zv%GdX+ehPl)nYHv78c~q`6p+#sijm>kU~A})vROFjPW?-XU5Xfg+cinx(~e$5AvYA
z%sA2IOLK#A9_%yhFLV>fEuK4<=lTft8M2f-U=EyB8_rezG+y=L9eU24(h^~pqbN4Q
zm)8T2Q*L^s=$tqET&&dw_;4J=e!96jN7{kc#i<U#XMUnp+Dh}|DLXY>eDX22+py<Z
zDPi(iS5qN>H=E|iTL|Z)j^M&*BY%dYK@LlKXvg^muKI9Q<Cc>aDgF|i2RfD*bB;>#
z;_2$b09{`kq1o|H_RU;>=<7sN!!2?S&g*Hdp#F{u^WSKL5A|?4&YbHkzaN*+u3a1w
zY@2HG<#U_^*}xB<;d?l)Eez4(bf@`mB~SI!c-4n9@NndMXZTe3yut1UsxC<p-Bdm>
zo&7H`huu_dE%n8M+ehp}Czv;ZC*w14vycD}vpm>XV5#NGc#k%%Jj@5QL7ut>UJYFJ
z;i|?BczC#;poQsv!6YLkO6)K=t{UfCpW{)OlPFlC9eBXTf+K-9DQ@h1`mk_p@UXs)
zTEP%@81gU=t}KkQ|Fw><lBcd~;JZ3(fid*gk9lxIbs=-7Dy}&@MjefXVoUEZ*MY8y
zoo3w{>ZxZwHDGRo&jeS(IXJ?Dy+waLT^%?^J}G>xucMj<I?F^J=ErD%lUW{Yu=*~p
zVJQz>OU*;$RUg*=UXH?{QsRTCp)!->UT2Dr@~7_Bav5*fOlybYNf#&EKj%sf)L5A%
zc@V@+E{;d2xh97qnU@7J|E?;{yr;aY3xlMUXYeb1m}+$a_8GBlU1c8ich+#66fE|+
zrT)C=7V=KuLBJR~hQFna`4Gk*b{e)<+F6&8>q71;jbmrTRY7Ongny?ch3k^1?W^&A
z<#>Cs@Acu|nGAH-i*LMokvTJC3A~gagbhX8ay~RBZQ2|K&Odr+7q1VWlDtS5+iO40
zcMf!v>Xv6<x^hglV;1P=B)P@TmI}(tN?<+Cr=^*$WmsCr*Ti?hkJUWDtGBy@<d>2A
zLe2yD!mn!Q#!BRA`)a&jIo9C2E{;d3tF@AI$%(9Yg%X1zKV`PXR_rr;CHO8l5b#p=
z8Fj^helCJ1+95|`S&h8jwhF2$PFZH}mAtmbQX1&0HOn(FT{))OF~ho1NPrvFmS>yu
zN(&QQ!^-)8YrIO^X7ayd!imt1zp?fNPJU&6fTl;9C@&+D$_kS>rcRT1xuYSU;v)Uz
zy;c_9_qCPsT1Axby_(WA3g*0uwy(zfm1BM4=m(O&!aC3~);;8_dRvP{w?sEtKUI8m
zgL6-+4V(-5ix>)P2&&!7?F40~MNu`cQ(T%G5?>q}?n}Mxm0W)tDeH@&ytaf~=+cFL
zs;$VS=DPF3;RZR5>TE8j)PykM1dwT9x^hglW9G-}J&vq%SVNkh>JvMiksL<tO=V`k
zYR*S6j>^}9Gb2X&(8B*Zat&Mp=Qyzz1$<K&t1G;gfb)<e>+h_SI2-wBd=8(F+!u1v
z#}4nNxrrX?Y^mg&iv!or`x^LijzWvqO5ZnBX7g`1GwJgDu#79#0)06q9_np0V`+^K
zfiGRY&}TkJ;qJiezgXwTdL#H%X;C`I(v^ZOa%4@l=ViUPgx4ebJ8Sux6|yGPR9i$j
z>CrOJ&==rdoS(X?dt2#P{98P~vN)Y8OEM^%$JT>&7_m)DZK2p?@FE;n*_XmUUSAxR
zJQUhspD)dJ-?bhP6XDObAY9|)d|cKYVXLv;f7;=I$Vcu2YsBDnK71|I1t9*0&2~A%
z&(dI9Qhq+2^C4Lj6Yg)|yGs4V`d>t_r>x}#2e{H4b0qK@?b@B<L9oZ*Q1H8^w#H?D
z<Fi=c%QYUE$)Q~DbBMyuc~DMTgm5m&bu;(!=e0w;N6pVUe;2_TJP%yJk8MX?Ise8X
zH%>nPx2RKVc~8Iz`l#$HI1Spg`3<~B8|<_?58pwXHm=2IdgX<2trotE`YhPx*htiZ
zINDtv)}>L8gx@LR8mKV>-}mIXrfSPD$B>7^XQ)9#J`TTi0e5s_yMwuiS|rr2*jt__
z=bNJ0Zea|-KY&LN>ws=NSQnS!`+2Skc}ImMxYYgDOU>$(*WOsdwFM`HSE)QpeN_S3
zQ{Gv|3i)vO3)GAi<t9ta5E<erYnrGnL+xOopR4>n7<oO^prJMmYbI$4!BXdfzfn(!
z!`||IJWh&l!We*Kq7R4__2RKG*|uzMsCp@^3n_d}T<ZSnrS!-HmqXoVVoacLJn*aP
zvK--EdgKlFHA&vgQXaTn1mhbV;4bxH(7yoA#lUV{y*MnjWvDU38d`E(kmOjAhr>8P
zk4o~BBrX7V^l)*Y^LZ(DmsfE<g(`|O%zPKIBK+7ucdafw;7bwTBF_jMk#ABq*3`DL
zdMQ2f5Q}A{Me}+S*IJHu2{!}Jf*$FSH^TT9<t8ytWc|00hkPvJH{2WQ!;12f%=e4h
zvXa6y$)AA-hH*U^)>|+xm*$vbj<)i==$AIc3E+i#<zbvrZ)PbE_8#>Xc;?uJiEip>
z=CR>AC*<^W;W5@E`6qBE;Ho{qm(Y$e#-Zh0w(6xW=#)3mS;4Vyx5U61Ng=|yz_;|u
zn;haAvFSeHdRlo|sbN%6lp^<~y;r=){kGQSORX7d&Y(B&x%jLgD^_e}T%<qcaGhC7
z+&STndgYA|@NeL_e%MkT?ip*VnT#oFjfcC+X|$(O`k)67d<U@(?7ND4a6hP#Lao$F
z>!nsJ4|$IIsyrS$Px+1TYURNeH`Wx`lsD2>FS$~6zcXVU<~7afkyaj?VHuZdj@RO%
z&dU2v)+xkw=UMkH`**+cmbgx}y`jh~5B<Ev`Mgui-4H7_@j3w7)Y`1--%9ZSZ_@g1
z*Z|<G<;vFb8~6^+v#gg|jl7DYB;h=;lNdi7tC2T7R8O;GT{Je(BD_h-L#;h(h2U3F
zZ-%uF?fqgcJb`N*w6Q^}rrr#BIQS26AM{U;JX_<3ya2cy`aC<{&Gj*+ct+d5mEZx4
zFekKJO4UoLHgkSbQ(uSv!Dd^o|E@+}ab6tPPRC153$Y4nul2|q>fu^?=4j~O;_M(l
zuPmN_s~jM)7vv51Vy*knwf5?MrB0AJwYB^0V;-Ft!}@z^LTc6Un{#k6z4C00A7Y{C
zFhA+@(uE<JW0M25QhT8X4~zlwQs9S}7r+`m53iQ>SFqnW2ZybCsny8Cdeb7?DAa8E
zaE=S{uO4|R3H&T3;Uy7NQ=Y?IJeyGO3H=Q^>tgeM!MAMHhYj`ANq((|*GU?x3;6el
zPMqsIy()R&2-^BJU;zDXVt<180e#QUisQPeEdH%eh%P)ZcTw}Spy5~e9T3*{z@acd
zEf3f;@DOYDQmc`d7#l?G^@UWLpCI>%yn`Nj;8V>txy(6hB&Mz|Nu{CAa^Y^sjcM-}
z{{CL~i#oD+_Prs29@J8kN6E2)!oB>xO}RF`@&>x9r7xJn7-RTytg(#s)lzL)y5wE3
zp4!A~F}WErHt~?}GJe+Z!2QC9V;&(#g8Rjo%32`nDcY2eSM^sIx8%5B>S`(y->t2`
zT8%u|CagtZ4H!A3K>m#z`mXJtX|2+B|1NVJ)6-VT{J2ZT3u`5l!)-J^*erSRmCD2Y
z!}p?|AM4hz)9}y8k)TF&HS&Nb?6h|L5O<BR|Ck(UlQF>kj`mbhH`hd5nP;4=;2~``
z>ftb^cl%#ceiF6HsB5<7&qsP2gtuGz-_^*&vkCinO$m7j<eI==Fn+fBr~Hw&f6aBp
z{Cu8N`A#1H&IUXPeS|+po^hq})HTot{4VSA{D{=5!FM1hvl@B$uI2baf0187yJ@W@
zL#}~%9`}a+Xzy3sKWp;PrsW%utLm>5->@#v#Gk>p)iv;{SDx^f=(BWvY5Xq!qQzI+
zKXqNp{vq!;%=0fa&`o~xhV!Dr{3Yjv{;gCVz7IXang_TV)--MLzx(N*l83%nj-M;9
zp+$!J$e4m(A{X7;RwlJmw(j?f<l!3lz2Deii_D8Yu90o2W4p_C0D6z3x-3iL1!bSn
zrs|~>FOzfG#_N>_PSL`C4)U&D9F-gn)+!+nF(_gc;ApL$%hG?0^fhv>q>~D>`PnMT
zky4kBSQ5|O&?8UXZ$(kEj5B_#h1?bR+G^y%?^=!@)-F&}Jj^*;{LU6@^B1Rk2=^po
z%wunPzp8)M<e`5{(_Lmh)!ke~ZFL0_*Wt7N_7eGR8S*)(bDbWllY0VZZ>`M}U1+M#
z<@J~|G&RWarcQbIeN$|NpIIJwB!2s5DG&E>KlNd#(NByH;5<+ykC!W*^K<4kq4#ym
zLqFgz!B47+Q+Z9tS#lA2`={i=mVlqBztP8F#y5oLV@f<fuNU_b6JW*z=h-?;{(QN-
zEMBKYZ5`@ou(p8fVGN<Gm|Fwgb<8XH84QdsxC(p@+AoZENDUQoY$fdPax!AY2I`ep
z%(;84A6d%7y&!(G)j#wFeFdjSTqXLzZNt5F97p;{9oYO-FY}Wsv;N+XJX}{>Z#Fj2
zNT?4(jT-7q;UmF??zexI@}PqlXUqCE=x;|;Df_5C={s`e_<gMwk7llQxnFts-6wt%
z3LB1?AKXOMOX2rnsIM95s^eJn6z3Z_-_A8RI9JtQEph$;ZCG2Ae7jD0mpS$vAE+Zs
zd2%0`^=bGw)j#ErkdHtNqjFMM(?gDLw71$^ABK5}^}PF)hx0JsagC1V3R(ZCugH@6
zFx09!p5(oHxDH8=Jni^d)~_Mw3|^`34f&a1u5U$74{cMUoq~t9e_tdoBAD09IIhDp
z7O-B1H5-$kn_RYD278CNUagnGAC?v*-@RUDXL+#2z)#&TUeQ0xzvX^E&#xhW1&kAT
zy-}Tqd_+k>n%MRg%VS@NI(_H?YX6q4U+U-|`h@YbR=)<HglnmOW4!UZKirdQv*eRs
zBoFmc(7Sa0eNcW@yu{b2u>l`}{Xs4?fPY7Xx^-{P$AMd54xl|VIb7D-@Hc8AaM)WO
zp5vf${O}#fp`jiO_6qOS-@sSZhb6N;>EU=0^+Bfn*bZ>M$)vw}<l!2v^+l4?K#dw|
z)leT+!+uS#JlJPz^=lYI;EQ@S^c{60-K}MkZ?JX0XtyOVzz5G6+{ZTI6hAw|Q=YGY
zyb<c7z;RTal&V)jeF3mW9Xr;~@an+7^+g>6{GGk!!4`uzppFB1Ce(-F6*(ASsy(#z
zVFMjyvWACeP2}^lC-CeD)SBs)hqxZs#BTwx9*gIU;QsZ>GxhuK`Zd^Q^f{0FjJmZ{
zt{EBXs<`L<+LCAQS}$A&^T}*WnCqYo9A35IJ=(N(7T-aecFhLo?|#?5`y;;i_`fH6
z9uH52(cg5s(Rccy>D7rw`u4~<+WU|7^uvqsR*&bdq)Gc@7oz!l?(}!P-t?6gCwgcy
zRNC#0hrQ+Lt(SuBg<e|5`<D2wc7H^BVhdT{pO2ycK6I9zS;(f{H~Z+x`FQ&2Qi>Vd
zZ}4Z|pNld7ee$zT+V;zGdU`2|zBv*|U+eLrzwh%ge{OF)>@81Ey%h8magDX-U*Xx7
zcqTmdX9CuEMltFdE%!%M^8ovze9``h_Qn@_`r}K<f|)g){q|T8eQzd$c8*=34GT4b
z<1g+M(huk3<o)0FcoJ-Y`mVk4u(v!FJ3|j)Ygb#(h3CS%I-QW`iUK>?6X5hwdB&{T
z9}&-{*5ZqE@Epx;{7lp>uP@*K^2@;YDb~eb+%6D1{k2{%dSW4-Ub&Sgxcy+kgrmam
zp@~rX)@YE}X0!oYbq;K|z45TOJiYZ&w(7aG`vqcuL=V@~f;FB8?#=rn;u*%+s~A}C
z+r2|{9nY`E@y_<w_?fAj1bfT@JWKe?!1wWmSb`n?t7b>~&mFGx9ma3nQYwA5)rlU{
z*yhLQW9jStzG9D`7|5j^i@kK<cTHy9h3&RC9=7ED=>?+y9ZU3oE)dbbm|pQW+HHLY
z?cloL>d40{-VWZRw|)q?;5q%;{SoneaI|ga=NZFJV{c4gjr|e*yxcg)#{0(d^QqtB
zeFxs&x=FCcz5>|G<IBMJD^1SyNKdlh_N~!#w0@?F4&Iog|2F8)ZQk_QR0KV-m`MMn
z%bot3=fKx{{b|E&Ej>4%FW5qdADNDzt)G;A;n;rBxUb~1f7wm+e=jkvR{o(KpWBkR
zntCbB1Iv0YWp^$2M@0MPO)v4D0;at|&Ya|0RerWSp8X9S-@5r_dJWGjXPbWJ)De!&
z5y$PbJHC(3M$zAQoTWYUa|Hc^&0V*YPy0UUAm}S>FZlEeS2N@@aIFUi!ss2|6XX&8
zE_n3!W+Lg)nJ7BQx@>D)?bQzbw1usL8=u?KV_*a>tYRVfV8o5cXR0=9^-Z?wkrcjo
zMQ$Ja8N$CRpNsvapMU0Y_Q!h#SM2)&e~mq1u%85;LyhmM^X;v_-<=L$#*e|Jo?s6B
z?kAN5ZUwye|F)4f-p;27$ASs|`Ma#EXb129AIzcg9tUi-y>PT82R8VA{^2}pGEDr+
ze)U{he6ddx@blp3k00FouHg3WjyGuii$CVv@&P)*d+1@0U+fKm{SjY%`FVQd7cZK*
z7i8HR-@jwL5X0{HxQxC#8OHwCjea;6OYi-%ivCl(tLX2}Usutd-_#Mf723YSe)+$4
zc?h<!=L+9V%&V=9sXg1o-`)qnIM3R3p{v?@B<S<K>YH#5a!=OkhqU;DKLKA)cSkd3
z*xLuXdYrMvxyZ9&|0W*~XW`D!Vax#~$KLpg9u5c46SJ}OwQf&x|I+|H$^3cur!~U0
z@cH_ix%A4l9QqGUr$v7spN^)NuVhJH13p^uXPj$oOzqhQE_Gl3_&jUZ1y<l!s-6pZ
zVqpG7^<2nj;rXJb^~>e;NNT@8-~&!&ZGS}UU2}x@XT~|$n*)1hfp5Ld+!^>{&#f;L
zU!{N0UF5R9!I(YEIS%M5K7*YGw+6rZCeMYh_xaMsE9JC)yk6SBKHz88VQXV*&$iX;
zuQmU>JU?k|{R2K5a|7#t%1`4}yPx4{heN`R6_&tE?T?6knZTK`_ZIeb!CrdUx9RZy
zU7TP4^ZtlmhW<W06)xNvb{F;*anXb0!SuJR&o7LZ(WAX7(gytn-pF|&-}S;|so3lv
zOh?f_aNGpGWlt=v$y%-d1x8wawc2_l?S6*9FwozVYZsUAkBI$1z`4}^h`<<nEV&Tg
z9}(vxcE;cK#`lrgNWtZ+t<K_Czr#NGM{J*w^FZ$L2Se%fa9=FPN`Ca!HfMV7L&o)2
z1!9xs-1#`+U*DgJX5JP4rQ>T4{=Cw9sV}M@((Y$?gmabH&(d;#MDQx;vf3XJ=fGDh
zo2=c>(BAk$UnRHE<VgRq&4rFkeoQ-V*AsG($a_F9VV|GAkw(ug<<jfd+v%yRDdLC0
zox!QVzeKM&cCw~(_HJ8E{0sfn)^mYR-%q_1zGtm|2pEAwZCw9T+Qhze_q(S35uvk+
zLn|D$`y*oSQ}}E38D8<Xz43+qKFTpHd@pnqF%PhMa4M9ZzLqNQf3%oDKe?GfFW;%A
zw{H*A^Pl9=3yZ1r>h)ZSn|^*HTh2qgY;P=W$%7ulR*OGgLH-Ij>8Wo5C$m<M1Y8iq
z?$~PD9}#g6{4DlXhaZM5wzfawK8~fd*sAyT#uxg#eR_mm7^oKh1e*+e5&v#r-i-I!
z<H^fO^y3@pwDCqB?fJBpUb>O9>~mXq{H3%5U+wy@t$Hb(r|O%)qf|YYWj&I@MZ2Hj
zO7=&@9$iWXUhR!9Vw<Pu6KLJVRNB7OO3yBs@cQePGs3Z;&shHhr$+AMvAJl$6FI9F
zuB6ktYnj5s)ExLr!O>Pf^wdiMUt9G^3LC5w=-D3;a{+4)N{+qpMSk(2ksx~ZVlv~~
zOHWQ^NZgBf=$ZLMI{HtooLi2RoE6r4k4}9;kBr1i?h?9>m<hW6^Xu8{zn$02KHI|Y
zUhVd-M^d=hYd=GK<E!)zui#O@3pV=wUscggKA@jJ(%5LkK+t8i<`19y&_swi$8oRm
c{n!57-t|ZdUwiFm_+{d&#ai!sd*k>20QG!OfB*mh

literal 43256
zcmeI3cW@lneaDsmGI5KY#8za-u{Cm$WZ9N1+mcNx79~<5C7KjTiJc$;q958F${os~
z_uhLa0T8_dL_HjOBPsy`ED~+YjwgvHGnvWQlS!D*;Zdv89YrnfJet9HIm?^(-oD?y
zx8MEk_tzGC4*s$3k*$9};rF}z*WUmCSC2fpHE!hmmp&u@Zw>JC-;dl=4g~=P0R;gC
z0R;gC0R;gC0R;gC0R;gC0R;gC0R;gC0R;gC0R;gC0R;gC0R;gC0R;gC0R;gC0R;gC
z0R;gC0R;gC0R;gC0R;gC0R;gC0R;gC0R;gC0R;gC0R;gC0R;gC0R;gC0R;gC0R;gC
z0R;gC0R;gC0R;gC0R;gC0R;gC0R;gC0R;gC0R;gC0R;gC0R;gC0R;gC0R;gC0R;gC
zfgOrKa;z>rIYQ-r-p|`5ROjofa&mV$rw>uPUOeOCbXphSsSQvCsNHn|Ub;Y)tJCSU
zq=<-6jhDxTD1AVf&KueE<jA;aU3GcR!bJPKH>Q7mdoeLKbfEhR-S;+T>2lm&o1}a9
z=Dg_gyF=l!dD|*C2QT*v(cyvF>9J*nX@P3DD82u1Uvr4o2f#rRoITyn$3>YQ2jEwg
zW*6tB`1`qKrbZ*{@9P>HrOnBRYiq0k$;y(<>9Jm5eD}u8;$-K0n{xu#JL^+RQ(bp&
zUi*v1xg;+!P~$N^+*y>D(pXz!(#egPysU(d=IZ?HM2)YjF3`)v)#1*KSwPbV`(~xZ
ztX?yMEovO9^)Adwqzig?H|LR^80pwpnJ{&4&fi!Z{?)Ao0W7lX3qumfG;CIk9V+PO
zb<xw+Av-Ph`hszF!7y!T;vJ_O9~~SXsvhXBt*Oi%y4nP8cWz8q6s4^#j?zZ?(eQ-m
zpz@-06nlMXl(XQBEK1A4!@99#fH#;dWPu&DMVARX6fT>$9Tydtp9NzirzM7J{oTt7
zl7K5Xz%w{d6%pbKdv`UJGQzPs*9UIPGd;9xD>6#*5}<3hi)Y}L;@o%!2Rf^|no5?Z
zyP0$G!pX(Sj)e&hOIb#kWAlc0s9<S+5*&-!LKU-8qiV`CHdl<du1_pX_eY2OM~3>%
zjdyd3W2mQoq_1AI`Gs<WH126h;dj=j>E2u&1LV%;3dT9O2zW9m=HFZyyFTA<F1thF
zvU%HJ<>ToD{lb}}gY8W<xssDmkevwZyy=2hyW1{<<gafn%#8KoT`-8zjEx8qvQPoQ
zO0qQQO0ql)y2y%4@oV#jcc>s(1^Iid%#Q$9VQw-kfvX_Ucy|k{s?scgWdy9C0!$m0
zPB;~6Z)aQ)tfZl@1xR5DWSP9NGAU%uaTc<Fu{fj8VZpxbO;tlz8w32@`Z}t3>+f#P
zp^zr_m}nmxYFk@0iY^q5fuqfl5EINZ()xSq0#w*aLtm4zzYbZR%j8I>kcBA3WV+_E
z7{nc_mNsu&uk*p=<z_^;Hxxzb)fvh9!JaE%0>T!Dux_ifSGNpYdq+btQ4F4*#>b_r
zxil$O7a6K<tS$OD+0B(vN%k+$4x*Dd$*m3LBmK?UX)*9dciSbDkjM@z2Gpn`ZBut;
z418b@$iXzSF+;#eER&y=fCm^I9)N$6pPe96)@H@np@KSpkB}g5<6s-4y18m13NREb
z3SxB4IChGz6nZen_2TK^ATJ`C_?X}@ov*R4R=(^Gh0Eq`M~3+kME7^smltQYHdL%#
z8<2pt!rA0A;8#etEI7~;hmhcrumzl94EeG)Z+M3a;xlM`TnBm@uwNa`Rah<}I}<Hf
z@dgA7Gh@O8Gr$|}&SxXTG+@gJQs%P5z4eWkb0y9Zvb`O(#(@^o#W!YlC|ovgn@nA7
zL_o`x5)r|z%=D7~L2n;;Z1M9H=8UtnN$%mUY%Ck+Cpyaulj^Fnn`-j$vHRL9(v!ky
zm|w)uTU(r$jLmJX&5sH9w|T=mRM5lq9PuDoI5+3B#DK#+mr+8K(r(Vt0I1vRQ=*Gm
zM4xf_NEwL{U4TbPesWW7$@<b5M4grpI()UEFgJ-jYFw0-Kz?m;q@}*BtMwAHqy2UL
zU03ol<1q(_?@+jG-gcPQ+ehU@%5Hhi0DBbX#9!^K6AXMm*4Vrs58`Iv+WpFmpM6x0
znW<4E`oK9iGk#;qz**v*k^WY^arBvSXrJJbm&MKb%+kzIe|JNWzh_chsLdPRp@QuV
zCG|B$H<rgifJA7h&Sz}6<AMGLJbYu(AQ?d#o^B3g`^l+d2WzVf274L+nb5Mc<q|pS
znu?5({uV4O>AudE>e7M~o+b-{{N;+g9SWDt+itjA&`?uYQjij)@!;L>ZmEJUM8aot
z*^~>qb$y&Dj}hMe^@Txk%4G7^r&1I3D)$S4YIicL5D5I^?diyM2wq4{V_`#ryl`gl
z&!G{GuM02El}iPUwZ*9kdYd=ALj^HRi7{Fdn=ujoOViz0C@GmKtQcH@$rCXkr=&KG
zG;nr1Uz8K)=Y26gDyTF+5wmDYm}uPfI&T^Tj8S?GfMabj1YtU#)+>dV%hDO&p>Wx}
zZIh*2o4ijHn{#xfSc3*#d^T~GX>=tInL+uo@zFXaQ#XV$(vm2|_}C*$#+zCjWlAnZ
zDUHXf4e%62OdcgsDua|biB;9!E*NXStp`m#f?|+8vRZ$SlmtDufPKM~N9#4)z-qGN
zL!7q)Kq6}aEQaslHNFMevR6B5*d!KEL_=+jl{U+Uhp5S=z)_fh>arZ%q@-9a=~*&|
z6pJIn{PF5>X((}0^d!xdpBY1Wh&Huj4tr!nf>e+mx4@0C1P-cvtX5`wrH3MFd;}2!
z=Pkqcuo|CCSqv+c^sLlKOf7b>sjd{uC{uRa&`G3eE{l;(jMc?N1X7noKO@34yc(OU
z<D_RPWs-8tNslHKK$OZ|pmjAB*?2@4>mZHirSe>RWa}^G)?Y3ZJ_8Oa>}MQok%<+=
zi{T@h2G#A>_+-lBC>H0ZbTwBjOb=i*v4&`!OxX!TXLVV2cT1(YEV%;wN%l-#vbsE5
zP!P|qrYfI!6Du4ar6VWC9jz}J7bbgFuZ_^fJHjH%mjw-Kn&z@_4mFWLwa4PjU|&}q
zMvdjRp!?){=;Bl-@g2sF-AV^GjuD{Xkjx_K3%FXEX)=hiWsUvyOEZJG(1qEtm_=-&
zeA(Ht_SJa<23L|T&Wo?F&Xsl|w#|NeS}Q1Mk~T!spk>A@i_>_))06b2c?r4cQ5b9a
zveU-4+>AJLS+-3QxF|QC4=Tn7u1pR!u!Kykn1;g!&%n|&5Tvw+&&KhIHNNf260Ni~
zmd8hFy*(VaD+^I{G*?>7P8iw<h{T?+P4$WN?EFN}&DC-4sHwI%Jvp34e^(tI=B4s%
z^K~CCyS8As+FmVWS$%zR#LJ!UShStZRdlzD6_!pSb6x>(mK+QkbR`FaX>`qNeA|+(
zug=D7@pf~+9NUteA8T8f8kjP6W9ft}ALNK?8Z}K4R??nHq-Q4Ur9Jn2P}3xUg0IkR
z)|Dx1eZRbk7*@8iFg^J0hRHXR*8N1Rn2hR5WG-raqWg(8zHP}~E>ABn${;+%0psHk
znX+R;9UIHz(AV{a(Xyh9)Wis!LuAK?NtoaNAV=)kR2?qMvDmYruQ@9<{Py|`QL5Ho
zg`t!$3(l--o^QvIONkF-8*7VWJjz*P3&jzcSaB&LK2u(Z+~)cew8^h|eUKN2QyiE}
zC>n1>bP?H>EIGaFizAc~L$u!b&oX6mGvj#Wi*pm3uaq{`l~8j>pQFPy)_cY#TGu7V
zhFXb3hpslXH&yC`{epwMw<U{dFuz~)xwE+ve~Hah6sNa06z62b%ESs~zz(i_U<dgM
zjy$JzjgNN|D`QdP+m>urTJ+Vns@jT7c1vU-Qx@CT)m&yAXvY0+s>vJczk)F(sFd~$
z=YQOusaj?vhsQ<+bvKviq(x#J^}(iqRKBcnpoz(-1aASv&eBtcmX^8#_D}A&v#F%4
zFx46>)8v^R3#?cdO6RHJMYCsa-;@Zost<CfIq5M2oz=WeQhjh+vb=O8nn*ztvPJ5N
z?oD6Oh;_FTun$=G#*%TUw_$l^fO{mtH9OurJ=#S^MUE`D13B|;51DY-1KuXIp)|iO
zS=KebUp&K!;kMa{UT%RsPYyK>_SSDKkFl08iwx2>b**Zt-2O-T*%WtEE946e&}LVX
zO_>;O$CI((EBUe-A7?{<3sD9E9rlPTTgwWrlh*BOy?nVck7?xvNmwzKhTDmz<;aRl
zA<GwoH<l+TfI?P;OWTrVvibd@&%{BDY$e1BIg4-4CRt0`v$U>-EM3W_a0O8x6gI_5
z*0Me*U)E%gQo?VoO`F>z31?|t3!Ld<+Qx_5<01q2Y?5wryq>U*b>+x1A8jOUh2?sn
z{e8%~LY9T_!Dx%a-`6E6E`&CAoJ7ZPZym)xaY_zWeDgUq+RaQue{*+hwNxK$sw>7v
zlHLXD`XJkoDU12&ZZ5@i-dvp|q#^-}EG{lD3+r0c7R}$m2}8%yOn+5LYGF<iU+mzx
z;(N=K<;7&r_0>6`LA{t@5F5HJS(sUP2qrezm?7(ke?C6k!Pm$n?N{fA*q-T>6>mHc
ztF`$7VfzNVs(V{2@i5uU$kiG?VkEZWYk~Q(Rz`4RdRod+q|T<Yh*00T(KZHU%JQ9F
zT4I=x#SZfEq`54&^N_kEpYCL(L=@#F@m*z9nA*kZlzdrc!m-$$#>;updNqN@c4gT!
zrchjmrDMVaVj}``Gh)!dtkejB6=$uFEpGo%wm2t_A}sYLl1N;0%iS{72aSWR>HLXA
zh%W{RS~GcZ(|wfu2t{iu^GXZTc!lN5UarW-VKA3vWB6v)>#`7U5bg~gph=fD=f;Oy
zQ{qFYLN3n@5B4?+eSU~6SC(p;Q^pSJlH~MIX{Z%L_V9JhWqGYY!@M4fKKFIjuFM<Q
z3<(y#LuRY&5Ujddsvj<k((*YjB!k<J(GfL1zDuMIWgKV?)q0USrYyw-Q6F4e7^O=R
z(v*{tEqh~WblTWzE^FG=2YGLJQmiYuj#vYiOoV%+HwkqohnqxQk|$1X^Wn0bMQ6BF
zUspZ(tG4=L>XMYqd{h@B^#L+vrTZ1@ij9%hz=Df5aZ^l00O2j&xygR8lGc5oY+{Tq
zCNfCm7)hgTvE{6kW8|I1!xuS5xU{x1=OZ~rJ7ggW@DzLImvznCraf<c4@^7=)S0P~
z;w-U7O=Z4Z+2M|@oNClZ^0D&PWjQurQ4fXgxS-exm{4nGd!oz!r9D4TmKq<LS&*Gj
zQJjI_LMaMc!}~=b9}%i1XC55rg%RNqFjAD0!23d*at4PzviwzrNcBKgC^of7-a#6o
z&7NTfPUWP>4)xYk7jt$zMe&iGC;BW?mP_@tRTG|2vZMe?ioW?uiF{dj!=fI_ErT=L
zU^7%|27Bs=DXjO*h_!4)h#x6O3Z@CsTK*1#NQb%}rb<-zL=A{K0)X>X414C6sw-6q
zIMW_khyqJNRfTAdx+K4ZNWd!{gj7s`A&q@?q%`@1j*7x${#b*8rhHkV11`&lK;(+~
zYZ~@1Uv_IJAE}2z8f>GyFqukdUS`bLK>f$<*;>}-!XkoPjc0fN#o1<U@yv<C;y8Qq
ztu0->=zQU%G$=LBojT&;c>37k*Y~{i{Hwos;m{j<IQ7yqe{J*e?Ya0b^#^>*kn-A0
z$2TXU9R9uS2dfzt$BP^Jj6A)V@}>U3uM7u&uG{a4**He*!O9+4`87Tm0F5>G`6VR5
z`NG+E0Q17xx1~YRIDh7tr|WsOkK5rlUw!SBpS^W(?>k2h*opJ^mQ(*}Ec~Y{C1>s!
zo?FiN*;=ju`D<h0-&;x*ZPkDEANlQ-=hw2oJ`wrlA>E^f5HW5KR`$rstns1nI6oGD
zKj`Xo#`(gjvnP*$o74FdRHz+JAG5&O$>F%#$6f91cIeGl4!`+|bk=5NMi9h)yq*J$
z0y^pUn^V!>y_R@<YVnnoW(HrsTlItGbQ=FKq~#S5)9k^@9$DdRZxzV4U0c-ndieW!
zxLrI8m_90JKW|re=W~wdj-NYq6b%=Uic_Ah7mgg-cj%2j8_qvk%YOa6O4#Ge!@6fz
zGWNb(4wBzrF`+7sCuZWlF&PbM(3MU>CiY-ukF5L}pLK1~@!UJ!9(>owACIeo{JjAj
zeh3cqgD4<s0EaYCcppz^j(3h8c<0D|z~>S0AnerVXI9c+iO+QTe6i2}Ta(ed*YZB!
z<M;Fjr18vh+G8W3aK*F6vSZhW9skfNz=uri!OB|pkGt;uPujizUA%YiPo`hmj95=&
z1b+YrhFp#CWH5{JYl|S}aQY}n2KagELjo?IKS}rCftO(qzz6UUttLzt5UTTsI^O!_
zzPAtW2k;QBIxINAPMkm2seW=O2PD5S8MWtHqtor#ua4>;H3UCBm-y`UtiKxw{A`!c
zW5fDa7Fu3ht`I8y<b2}c_v;=Af^CC;I&<&;*6&&TV}x<*3vR2%$5Sw`Eed9UpS|22
zBf_-UK}HVlfBC?^T}KbS=Bsjz)a&A+^{D#cgRdUgyW7#>xUZLsm%9@RZx7B-EhInM
z7k+km3H=1a-D?%+-|s_*;SGF`U7LjrVh|rU#=moI_Q{20ypHc)OM2>BveO?rtr4(o
z1iiHeSzyk%wN?Wij)d^*h@NmJiOogVqE3g-L*~TS;w--cXMRcYgog$~(Snw-cR&B>
zGw#j~ARHF#4~OsHyX(Nd-KUQqVzQWH56<72Pmufy4BxZM87JOvzz72Gh5zW-_g=;0
zQ!()Ncjglr!87^iiAWk85QuH4T1!C@5BbMg3z025Xk%?r!WnlCJcBe|P7Ws+JaO#J
zJum&(%fr#b#lctQ9313#>iD78Uj6x-ufHUT*n{&|hIP2a$9_}yo!R&=_67W4DedHM
z8~^sIKl*(9UmMT<TPsG8?&o^^{(c|`kl_}A^ZvV47PoJ6*Tl&m|Btg4S4M%QS{u6k
zadkRQS=Y-X(6D#ltPS)LBS(I@4+VC2aiB{y8Xg)H5~Rl2K&5#EVvapHo3wO1;@O3?
zFAr)1|7d(}CF9KRn=y!t@3~X9_h#webb6!D&&;R1x=~Do0(DESh{f&O+{N%c?BAcP
zasK2Q-~BYWRlV%|nYRTAVE!;|*f=mG40+?Ve>r~aprC6!J*XR-`1X<g;C%A!gMSvB
zg?^&UxOQI~)xWToivlwUd*Fm%2fscZ@t7fW-^P_a(`}4AW(*S|HUn!RxP5)L;O7s&
z>9xpTLE~t(IY0Y(^L4bZpO=fb=S7?f0W2`$c=&p`2C7xK85&=AU7)Wvz{kVn?44G*
zITGD4$4-6z_FMwa2Fw5_;L$xk9rF)^+FjFiPYvhNMV~>Hu#uQ?*K92`^8NYbe;f(L
zCR)H{b9cM^Y;Fg)TWiCkgPA?u_;UbNq+aXq>wzPI?-8K(4AgjG7J(N%2Wqt16v%kF
zG6!dywmmpMxsU{6pYKtF^S5T>f4GuC*g|mq{jq{?8`8cy8us~K^^3nM+4Z|h=)yE%
zIUW1>y=y5LP@93Z5VXPHkW=G>I;`tukN`Z43+Li=1`Oe0SQ^Z6p0R)^EldJwa0&t!
zbb)I}6d9`1*n=}VYzk63eZJ7Eahd(ivG>{tv58#JSa{?4+xai9mA!H6>W?;aVQK6j
z<`4U5((t8J3%Km*Zp(j0pQZXBzQ;pqd?r(9`WE8DdKu7R^7ifd+5UaI&zyJ*08wM%
zatKttJuVWJpwB2d94-d=rEL$+=<`#HDUdU&i`xc(kI%(De>0E953gtb<WAwMcbndR
zZ~W))m+!is_u8#8JiTAsF5xUbwmraF%c9i~h>5E|DINqpnRPnrS{sPr5|i-6z~Q;U
z#wxc9ur$EJ#+XQwOQ<(~-Fd4#o;^6D&qwDcb{U(nchCg@;y=G~r;LVlJa;4e$F~di
z-7Y`-`<9n)mrCQ-SbaJp;4I~zt!sRo6?HnI5>Z<;ueAyNJbv^I91N1ou!O&#Ckzbz
zVhTBnLqbT%0n}JP<_Hmf?ZFw=eSSG}_iEnJwVoGNOc;K)+ZR)aZetvAKL}o)UP@t{
zFmTsK!S0(ySV;l(r-Q2XDl+SI;A~xM6QGeD+D}Y<?l`0opiyB8NfU`vXHOl8jtC+3
zq46<!9Xtr8iBtCAOdS2hMDz=*IY-xqpPMVhbH;P~>2j9qfA%~%pF|i)&e?VD{U;|(
zM1k_7_9*->Zk2qYS8a{Jr!!(ttxX_?KL7H-%OvZ<LIPFpjtru=7{{ZB_MJX)Smo}-
zDKblBr!k1asbh{kI7=je)f3cl>UWLDf7giK{_q3pz#&1gMR*R{Pt3%MQ03D>)p`|s
zYHb2%D4N)W3^V!+IRo<EmtPRazCABeL)rWCi*%`{;B`oj$Dajf32^xhYXszvJo3o@
E12-3FHUIzs

diff --git a/src/Draw.pbi b/src/Draw.pbi
index 20555e8..359d319 100644
--- a/src/Draw.pbi
+++ b/src/Draw.pbi
@@ -43,4 +43,4 @@ Procedure DrawRunningGame()
   DrawPlayer()
   
   DrawHUD()  
-EndProcedure
\ No newline at end of file
+EndProcedure
diff --git a/src/Events.pbi b/src/Events.pbi
index 0b3a216..b9b5521 100644
--- a/src/Events.pbi
+++ b/src/Events.pbi
@@ -99,4 +99,42 @@ Procedure HandleEventRunningGame()
       Cam\Y + 1
     EndIf
   EndIf
+  
+  
+  ; Digging!
+  If KeyboardReleased(#PB_Key_Escape)
+    Define TargetX.i, TargetY.i
+    
+    ; Determine the pixel to destroy
+    If Player\Direction = #PLAYER_DIR_LEFT And Player\X < #MAP_WIDTH
+      TargetX = Player\X + 1
+      TargetY = Player\Y
+    EndIf
+    
+    If Player\Direction = #PLAYER_DIR_RIGHT And Player\X > 0
+      TargetX = Player\X - 1
+      TargetY = Player\Y
+    EndIf
+    
+    If Player\Direction = #PLAYER_DIR_UP And Player\Y > 0
+      TargetX = Player\X
+      TargetY = Player\Y -1
+    EndIf
+    
+    If Player\Direction = #PLAYER_DIR_DOWN And Player\X < #MAP_HEIGHT
+      TargetX = Player\X
+      TargetY = Player\Y + 1
+    EndIf
+      
+    ; Do something with the block
+    If TileIsType(#TILESET_TYPE_WALL, TargetX, TargetY)
+      TileMap(TargetX, TargetY)\Health - 1
+      
+      If TileMap(TargetX, TargetY)\Health = -1
+        TileMap(TargetX, TargetY)\TileNumber = #TILESET_TYPE_FLOOR
+      EndIf
+      
+      DrawNoiseWave(TargetX, TargetY)
+    EndIf
+  EndIf
 EndProcedure
\ No newline at end of file
diff --git a/src/Functions.pbi b/src/Functions.pbi
index eede4ee..08ff1d8 100644
--- a/src/Functions.pbi
+++ b/src/Functions.pbi
@@ -1 +1 @@
-; This file holds all the functions If it gets too big,
; we can split it in categories

; *****************************************************************************
; * Tileset
Procedure InitGraphics()
  GFXLogo = LoadSprite(#PB_Any, "../data/gfx/logo.bmp")
  GFXTileset = LoadSprite(#PB_Any, "../data/gfx/tileset01.bmp")
EndProcedure

; TODO: Make this dynamic
Procedure InitTileset()
  Define i.i, j.i, count.i
  count = 0
  For i=0 To 5
    For j=0 To 5
      
      Tileset(count)\ID = CopySprite(GFXTileset, #PB_Any)
      ClipSprite(Tileset(count)\ID, #TILE_SIZE*j, #TILE_SIZE*i, #TILE_SIZE, #TILE_SIZE)
      
      Tileset(count)\Type = #TILESET_TYPE_FLOOR
      Select count
        Case 0
          Tileset(count)\Type = #TILESET_TYPE_PLAYER
        Case 2
          Tileset(count)\Type = #TILESET_TYPE_WALL
        Case 3
          Tileset(count)\Type = #TILESET_TYPE_SOLID
        Case 4
          Tileset(count)\Type = #TILESET_TYPE_GRASS
      EndSelect
      
      count+1
    Next
  Next
EndProcedure

Procedure LoadMap(Filename.s)
  ; Extract the map data from the XML file
  If LoadXML(0, Filename) And XMLStatus(0) = #PB_XML_Success
    Define *Node.i = XMLNodeFromPath(MainXMLNode(0), "/map/layer/data")
    Define MapData.s = GetXMLNodeText(*Node)
    If CreateRegularExpression(0, "\d{1,2},?")
      Dim Tiles.s(0)
      Define NumFound.i = ExtractRegularExpression(0, MapData, Tiles())
      Define i.i, X.i, Y.i
      X = 0
      Y = 0
      
      CreateFile(0, "mapcheck.txt") ; File stuff for checking the map loader
      For i=0 To NumFound-1
        TileMap(X, Y)\TileNumber = Val(RTrim(Tiles(i), ","))-1
        TileMap(X, Y)\X = X
        TileMap(X, Y)\Y = Y
        
        WriteString(0, StrU(TileMap(X, Y)\TileNumber+1)+",")

        If X = #MAP_WIDTH-1
          X = 0
          Y+1
          WriteStringN(0, "") ; do new line
        Else
          X+1
        EndIf
      Next
      CloseFile(0)
    EndIf
  EndIf
EndProcedure

; Shadowmap
Procedure CalculateShadow()
  Define X.i, Y.i
  Define MapX.i, MapY.i, Strength.i, Centercheck.i, CentercheckX.i, CentercheckY.i
  
  For X.i=-#SHADOW_RADIUS To #SHADOW_RADIUS*2
    For Y.i=-#SHADOW_RADIUS To #SHADOW_RADIUS*2
      MapX = Player\X + X
      MapY = Player\Y + Y
      
      CentercheckX = X
      If CentercheckX < 0
        CentercheckX * -1
      EndIf
      
      CentercheckY = Y
      If CentercheckY < 0
        CentercheckY * -1
      EndIf
      
      If CentercheckX > CentercheckY
        Centercheck = CentercheckX
      Else
        Centercheck = CentercheckY
      EndIf
      Centercheck = #SHADOW_RADIUS - Centercheck;
      
      Strength = (255 / #SHADOW_RADIUS) * (Centercheck)

      If MapX >= 0 And MapY >= 0
        If ShadowMap(MapX, MapY)\Strength < Strength
          ShadowMap(MapX, MapY)\Strength = Strength
        EndIf
      EndIf
    Next
  Next
EndProcedure

Procedure DrawShadowtile(strength.i, x.i, y.i)
  Box(#TILE_SIZE*x, #TILE_SIZE*y, #TILE_SIZE, #TILE_SIZE, RGBA(0, 0, 0, 255-strength))
EndProcedure

Procedure GenerateShadowLayer()
  Define X.i ,Y.i
  
  CompilerSelect #PB_Compiler_OS
    CompilerCase #PB_OS_Linux
      ShadowOfDarkness = CreateImage(#PB_Any, 800, 600, 32|#PB_Image_Transparent)
      StartDrawing(ImageOutput(ShadowOfDarkness))
    CompilerDefault
      StartDrawing(ScreenOutput())
  CompilerEndSelect
  
  DrawingMode(#PB_2DDrawing_AlphaBlend)
  For X.i=0 To Cam\Width
    For Y.i=0 To Cam\Height
      DrawShadowtile(ShadowMap(X+Cam\X, Y+Cam\Y)\Strength, X, Y)
    Next
  Next
  StopDrawing()
EndProcedure 

Procedure DrawShadow()
  CompilerSelect #PB_Compiler_OS
    CompilerCase #PB_OS_Linux
      StartDrawing(ScreenOutput())
      DrawImage(ImageID(ShadowOfDarkness), 0, 0)
      StopDrawing()
    CompilerDefault
      GenerateShadowLayer()
  CompilerEndSelect
EndProcedure

; Map itself
Procedure DrawTile(number.i, x.i, y.i)
  DisplaySprite(Tileset(number)\ID, #TILE_SIZE*x, #TILE_SIZE*y)
EndProcedure

Procedure DrawMap()
  Define X.i ,Y.i
  
  For X.i=0 To Cam\Width
    For Y.i=0 To Cam\Height
      DrawTile(TileMap(X+Cam\X, Y+Cam\Y)\TileNumber, X, Y)
    Next
  Next
EndProcedure

Procedure TileIsType(type.i, X.i, Y.i)
  Define istype.b
  
  istype = #False
  
  If Tileset(TileMap(X, Y)\TileNumber)\Type = type
    istype = #True
  EndIf
  
  ProcedureReturn istype
EndProcedure

; The player
Procedure DrawPlayer()
  DrawTile(Player\TileNumber, Player\X-Cam\X, Player\Y-Cam\Y)
EndProcedure

; We need a HUD, hell yeah!
Procedure DrawHUD()
EndProcedure

; and ..


; *****************************************************************************
; * Menu

Procedure Menu_GotoCurrent()
  If *ActiveMenu\Entries()\Selected <> #True
    FirstElement(*ActiveMenu\Entries())
    
    ForEach *ActiveMenu\Entries()
      If *ActiveMenu\Entries()\Selected = #True
        Break
      EndIf
    Next
  EndIf
EndProcedure
\ No newline at end of file
+; This file holds all the functions If it gets too big,
; we can split it in categories

; *****************************************************************************
; * Tileset
Procedure InitGraphics()
  GFXLogo = LoadSprite(#PB_Any, "../data/gfx/logo.bmp")
  GFXTileset = LoadSprite(#PB_Any, "../data/gfx/tileset01.bmp")
EndProcedure

; TODO: Make this dynamic
Procedure InitTileset()
  Define i.i, j.i, count.i
  count = 0
  For i=0 To 5
    For j=0 To 5
      
      Tileset(count)\ID = CopySprite(GFXTileset, #PB_Any)
      ClipSprite(Tileset(count)\ID, #TILE_SIZE*j, #TILE_SIZE*i, #TILE_SIZE, #TILE_SIZE)
      
      Tileset(count)\Type = #TILESET_TYPE_FLOOR
      Select count
        Case 0
          Tileset(count)\Type = #TILESET_TYPE_PLAYER
        Case 2
          Tileset(count)\Type = #TILESET_TYPE_WALL
        Case 3
          Tileset(count)\Type = #TILESET_TYPE_SOLID
        Case 4
          Tileset(count)\Type = #TILESET_TYPE_GRASS
      EndSelect
      
      count+1
    Next
  Next
EndProcedure

Procedure LoadMap(Filename.s)
  ; Extract the map data from the XML file
  If LoadXML(0, Filename) And XMLStatus(0) = #PB_XML_Success
    Define *Node.i = XMLNodeFromPath(MainXMLNode(0), "/map/layer/data")
    Define MapData.s = GetXMLNodeText(*Node)
    If CreateRegularExpression(0, "\d{1,2},?")
      Dim Tiles.s(0)
      Define NumFound.i = ExtractRegularExpression(0, MapData, Tiles())
      Define i.i, X.i, Y.i
      X = 0
      Y = 0
      
      CreateFile(0, "mapcheck.txt") ; File stuff for checking the map loader
      For i=0 To NumFound-1
        TileMap(X, Y)\TileNumber = Val(RTrim(Tiles(i), ","))-1
        TileMap(X, Y)\X = X
        TileMap(X, Y)\Y = Y
        
        ; Walls get 4 health
        If TileMap(X, Y)\TileNumber = 2
          TileMap(X, Y)\Health = 4
        EndIf
        
        WriteString(0, StrU(TileMap(X, Y)\TileNumber+1)+",")

        If X = #MAP_WIDTH-1
          X = 0
          Y+1
          WriteStringN(0, "") ; do new line
        Else
          X+1
        EndIf
      Next
      CloseFile(0)
    EndIf
  EndIf
EndProcedure

; Shadowmap
Procedure CalculateShadow()
  Define X.i, Y.i
  Define MapX.i, MapY.i, Strength.i, Centercheck.i, CentercheckX.i, CentercheckY.i
  
  For X.i=-#SHADOW_RADIUS To #SHADOW_RADIUS*2
    For Y.i=-#SHADOW_RADIUS To #SHADOW_RADIUS*2
      MapX = Player\X + X
      MapY = Player\Y + Y
      
      CentercheckX = X
      If CentercheckX < 0
        CentercheckX * -1
      EndIf
      
      CentercheckY = Y
      If CentercheckY < 0
        CentercheckY * -1
      EndIf
      
      If CentercheckX > CentercheckY
        Centercheck = CentercheckX
      Else
        Centercheck = CentercheckY
      EndIf
      Centercheck = #SHADOW_RADIUS - Centercheck;
      
      Strength = (255 / #SHADOW_RADIUS) * (Centercheck)

      If MapX >= 0 And MapY >= 0
        If ShadowMap(MapX, MapY)\Strength < Strength
          ShadowMap(MapX, MapY)\Strength = Strength
        EndIf
      EndIf
    Next
  Next
EndProcedure

Procedure DrawShadowtile(strength.i, x.i, y.i)
  Box(#TILE_SIZE*x, #TILE_SIZE*y, #TILE_SIZE, #TILE_SIZE, RGBA(0, 0, 0, 255-strength))
EndProcedure

Procedure GenerateShadowLayer()
  Define X.i ,Y.i
  
  CompilerSelect #PB_Compiler_OS
    CompilerCase #PB_OS_Linux
      ShadowOfDarkness = CreateImage(#PB_Any, 800, 600, 32|#PB_Image_Transparent)
      StartDrawing(ImageOutput(ShadowOfDarkness))
    CompilerDefault
      StartDrawing(ScreenOutput())
  CompilerEndSelect
  
  DrawingMode(#PB_2DDrawing_AlphaBlend)
  For X.i=0 To Cam\Width
    For Y.i=0 To Cam\Height
      DrawShadowtile(ShadowMap(X+Cam\X, Y+Cam\Y)\Strength, X, Y)
    Next
  Next
  StopDrawing()
EndProcedure 

Procedure DrawShadow()
  CompilerSelect #PB_Compiler_OS
    CompilerCase #PB_OS_Linux
      StartDrawing(ScreenOutput())
      DrawImage(ImageID(ShadowOfDarkness), 0, 0)
      StopDrawing()
    CompilerDefault
      GenerateShadowLayer()
  CompilerEndSelect
EndProcedure

; Map itself
Procedure DrawTile(number.i, x.i, y.i)
  Define id.i
  
  If number = #TILESET_TYPE_WALL And TileMap(x, y)\Health < 4
    id = (17+4)-TileMap(x, y)\Health
  Else
    id = number
  EndIf
  
  DisplaySprite(Tileset(id)\ID, #TILE_SIZE*x, #TILE_SIZE*y)
EndProcedure

Procedure DrawMap()
  Define X.i ,Y.i
  
  For X.i=0 To Cam\Width
    For Y.i=0 To Cam\Height
      DrawTile(TileMap(X+Cam\X, Y+Cam\Y)\TileNumber, X, Y)
    Next
  Next
EndProcedure

Procedure TileIsType(type.i, X.i, Y.i)
  Define istype.b
  
  istype = #False
  
  If Tileset(TileMap(X, Y)\TileNumber)\Type = type
    istype = #True
  EndIf
  
  ProcedureReturn istype
EndProcedure

; The player
Procedure DrawPlayer()
  DrawTile(Player\TileNumber, Player\X-Cam\X, Player\Y-Cam\Y)
EndProcedure

; We need a HUD, hell yeah!
Procedure DrawHUD()
EndProcedure

; If the player starts diffin, some noise wave will be generated
Procedure DrawNoiseWave(X.i, Y.i)
EndProcedure


; *****************************************************************************
; * Menu

Procedure Menu_GotoCurrent()
  If *ActiveMenu\Entries()\Selected <> #True
    FirstElement(*ActiveMenu\Entries())
    
    ForEach *ActiveMenu\Entries()
      If *ActiveMenu\Entries()\Selected = #True
        Break
      EndIf
    Next
  EndIf
EndProcedure
\ No newline at end of file
diff --git a/src/Structs.pbi b/src/Structs.pbi
index 34084eb..679ab85 100644
--- a/src/Structs.pbi
+++ b/src/Structs.pbi
@@ -50,6 +50,8 @@ Structure Player
   Direction.i
 EndStructure
 
+
+
 Structure Shadow
   X.i
   Y.i