From 597a5ad5eaa6afb5ac15cf06a0f4d21b1a386a40 Mon Sep 17 00:00:00 2001
From: stevenhowes <38082088+stevenhowes@users.noreply.github.com>
Date: Fri, 5 Feb 2021 21:20:00 +0000
Subject: [PATCH] Enemies now re-spawn with new attributes. Clearer debug.
 Collisions record damage to NPC and player.

---
 !TheEscape/!RunImage,ffb     | Bin 12847 -> 13751 bytes
 !TheEscape/!RunImage,ffb.bas |  77 +++++++++++++++++++++++------------
 2 files changed, 52 insertions(+), 25 deletions(-)

diff --git a/!TheEscape/!RunImage,ffb b/!TheEscape/!RunImage,ffb
index 962c50dce625d0343dbb13b924891779e2cc6c3d..1d1e9ac60a3540bef9618018a8dc60731ca342f9 100644
GIT binary patch
literal 13751
zcmcgz3v8QJmd?XYV#g=;bUK~V=`a^hUF^nbZ0FImYAS}NCGD0bYC4c2mf$9TYJ+1(
zel!U}BZN@Jq6z`SA{HUkWx9w(2q8eILI@!Sp$bui5JHHBsspG+-3|*?2C*!|?sx9}
z@9*EQIFZms&BOPebM86kp4UD1mKxlv#&#aqwQK+NBSX6agFP{7SiM$_T(^7t#yvv^
zhXaGr{z!xxuDrq;AKta+y5WPEi19>l_4V=jU1?(`Y2*T8P((2nTQ{1DFBsWF!$$H*
zB0rQonw&BMg9FsC-9ZhzJ1&T)f?d6_kT^~aqpO9mGZ6#SP3!cSjg8m<C{NjEG$UL4
zF_Zp<5T%^-QN#RtA*!;{PYriF&rrj0@bidk9DIYs3D+SOfEu2`=u7U)6EpE-ni^hn
zo}-4-7<%9HsnCO;{6>gHv9plP8tJ?^l8w(Ml9M@cxG+6!WU1kN2PBxxN`+9v*FgRr
zoS!wB*_WA&=aZRqAQ%l%qa&=DERK(dz=@@CwG-VjYV5eC682CDtf`dlYGPC4+Fxq?
z8;n$DGMQfp3`VHYzg7>AC6Y#JDu><0<~D{mSmXI@VKQIH##4LJdE-b{VoI2P2Q^*;
zd@bB?GJiNT9|-n9w7pkpd_Bs%M#7PBe<VB*rN)CmzC{#~M-%a!ksX<y&KY@VC(Qau
z{8kewosER0mSW&DTN6YoXG<S7-dO`As;KmW%CVXt7L^CU?_;Zk*k?@V_YCp&c0r1h
zKNsQvTY7QmIRKuzf(2vWSkU4}!>pD!ekDqWp%JMVYJ8`1Dr!!B2xBfG774?J21V}x
zHJ+=S>*2XAz0`QIoMhBmZLxAnul8d(#i&}XXMmd8D(B>Cef`w5%0W%*;fv$fXO0@9
zMs_FsBQV%UO&j3=2Mp{hOl)>+78Yc%{vy;A0m`;bmaeoH<N`svLw5;j4oyQFEl5Qr
zx1k&^L{0mzwxE>mu{Bk|U_p9|EQcruV<T)j9Iya~jd&`bs75Unw19SIQmN!r{BX)B
z17u=Hi^3{6V|OMySq<_osOCOsdr=&Sr>8PABAFM3Suvf-igad<njZEG@wu`JII=iZ
z5(1$yYI@>IxR<z`HFC4@x%7m=))<s#6aXhrBToI*#HXegu-dCKu#F`$bKMC<Z82pW
zE*ue4$=obLIyJrZGa-g}XrzE`#pb;SoR5Faa*xd#legP8uXn4|+!rv0&()-2v3Dyq
zebvugm1D@y0p*Y{2Ft=9xczR+5?InlZCGX?3{i8F6jBkVW{-oK*L1N;f1fj^q$($2
zqsg2xnMqIO#H^7O)7kipAtvLg$s9EcpAc-tGQB-W&6_}=7asqg_Pj;SJ1{&PWxAu8
zT$01P$Q$!{F<Hpwuw8LmmO$i{@t>LxxP<sG(MQcU1A7{QWf4kY*AQ?NYMzC8=H%yz
zc-Dxsznn~E;!_i9Fc<U#+7A)$0Qx<xLi~-I?}u?oI{8c%GME`EpM*d#A(4vb@`686
z^P}*7gfa|R;;BEV`AM)+D)qBi;bl3Bw3kWevzZih^SYPeE+^Bog*-mK4WJL8ZC-!>
z=uV8BMP>kiG`oo$Jbz*aae<n@gyEKsPfCw5CfLr9LYprm_egCX7y(zXT7|B`(zBD)
z`~xC3s3;VuXmW!0tdNT5jeI<N1S)j2AO)2!lz<vi#>7;7CVs>qhtENdb$b~Iy3Z$5
zDR@?1<O)z;{BWiKWhIhG?BFgld3!F56rX1=oXQwEY?3h}@)<Fg$=)s<(y;*vR*2L8
zBK#v`6W1=}4SzVgl^mN9{K|);z2PW12H-mtGd*E09>{U6q-GWp@>eH(+ObdKTu>Fp
z4$&iy7mE$Y4b=$7OoF#U*xO)pLi`6g^7!xvcqdD~D}6MX&7@~w=j6B-H5qi4V~5U7
zOl9M9<ah|ckHZt>mZ&XqJcR^TRKMI^1^m3UEWIykD@;1CfX<s0MxoH&#oR|8wZ`xF
zkmEB18_-V_rcC5Z0QgoedZ8GF;1p3*lFo)T3=Mc0vaoZoNpiZSv}ee<+Ck1M@!{{{
zPvi{ZL(KUXa-tx0?*0wxI-7}=8i;e0;cf!l)Ox^G52Vht3}`a0+CrfGTsxpS=l_uz
zu7Opxt`nUiSQ+HHQ3z}jW>^PEG!!D|-KZ-~;wq*fQ7VSGGVo6ovgwTUDL*-nOJ|d_
z#XM-|K0?k%IxTt?FlO*Y70@YS<UE1wTT-lW_ARdcVlWm$-Q;{m1_3#)lWGx&i%aKA
zMZWAA)doe**AOJl#Y(fO4JyLKPNQ-V;)2q5u_~~Eu^GMJ%}~oyTnw7~1gXRVuh5IE
zP+vqXEV@`P=Ql3}Y$`E|TCh{}lk;mC-LxLfs-wtl4@CN2%3eo$0Jb<xH)!dAHMgvF
zP>X*Rtl943Enzqi=O6ZZ(JgZD+Z?s@SIOTk*ANSGo=bUZ+51oY;aKf-9+ot1ejz^x
z!iPe&X2wI|pgO@=Dg{T<ylT>-mV+r~q$U8YzV=*~2nNkG*k#L!>{n%sbYp|4<rb-V
z#Ne{3M}B6}#C8#ZJ+&lcWT?ZIJcZ-1YZfikk{w`CYGRpoRZ$|f+^P5Zn7!y}d4PBQ
zG3@%u@S@<#To{~E1;=a=G^;yVAIv5ea!F)Si1^%^(zqxycgv}IC1=YU|H_<8L$&R>
zGF(>7;1Y8y*oGMVWC?J&o@G5|^uh8F>>ViL!|W1FO7+$d0COu|b(~i{hgC1i;>-*|
zRh6?HM<O<xMP?6QH4;wCkLE_Vw#kiF+NIW2*yz^v4r<*PS`@>DDZ!aFnLZ+dX2~cw
z8MS1pi;KVzwMM+yWh=$DZo_$DQ49e~?A!Uf17jkIIyN&aQaJHa>rjmID<;hfH0V!F
zB1-tfy<y81O&jit4!}=Z_k)*llrf9qclmraiR#G^X;jxaYCYVpLr7~1t6maY`YNgP
zMX2>C>VR*Ae=K1n(VOs7>s>X$(IjfU55+matwse99>%GrI{hdbR;^E<umy&;79czg
zwqHP*VrTnkJXK)6Up4vOLalE}y3w9Ub;jRAME%B$A2{~P&I+}DTpNkm{{jwXAysL+
zQ0rH)i%X*Fs#2Wqpl?k<%M_rtCfG(Bjz4W{eqHL=_L{m))bsDQO<ZA`sWx|G5@%uU
z(paPy^mpLI%Bnlal{5Zj3R#hmZ6RtK9^tw9s79%D0ytQwJx80BLq)<y7lYakNOB8H
zkVC*(9yy%M+ivb*?&d6VYSEe;#DFp_Q4-5VLI0<17CO2^=8w<CNIqd?mG@RXz_;CF
zRsnqMLQf&b2g^Aq9geJmIJMm`>nN+V35XqbvWO;akIF(*YCcv)^EM{<^u4scY``J8
z2TxkW7wQqOyBQ_Kc}Jez&Rp}?oJG9Gu9V>N*1T-tCRT*Yd-S@6dqJEu9V9p(4T}YQ
z&*3|P@A()$<9iO@3E7O}lStd!a&Hya<$hvglG;9y=OhJq3Di0hvG78yb1p`0XSb+f
z{`rmgbFhRCZ;_u}Du-X4m{kS@w!f5x86%ycw#x`q=AS>vbKYO=c0sNdd+Koc5FT9X
z9OT--sY4!;%_>2P&xV&%mS-N(U7JPqIHKnV>V*>5wODRn?P%e;;U|q2u3LZ7XyLkT
z#nHl*Uvac>{Q)|<S9UQfLx9k#eh7&fVU^8Xm8&|g27=O|)u479L{8V^5<_}yIfnGo
zQVh7F>nV==$_+~=;cKqv<)rkp(n&az>lIneuGo=WZ_54$C%gG*C!B5}+L?%w>s?tz
zS@BM}hU&GNjsP{VC%QgDLr#4urmSpe>8Uu<jT4&dGt2EIrOIPz)!{CIGnVVpt)+{N
zRY~5~x>YB;RNgav-E0bL-*$bA_OkktL)FEOkh`H2&XQ2qz%U5zySv?W;AE)|xYbq|
zadQKOLyJ3T4;^l9rMS^baqqtR(~@Y3V2N!*s6?bhphTQRm?ZZo>Ma>ma4o2Kxk*OC
z3j!e)0c{Sq5IY9hoR5=xN?I20Hs(+s2Qdr~d41?kqn1)%z(pC*iMT9rVc5W(mwuxG
zFwgjy0+_<TTLvFZ!^TsT+{e9oT#EdNEws8%6m{~9*2zmWs0on!HE84X8nco%tix80
z-0%P5Q+u~bw!Yk-jLL#(WN2iY7)hrVL?MU%;;d}6iKFISo$lshI@lc(xeR)f#sXTA
z>8tZ%CZ3;6s6#t6e7;`jb$>m<(v=kR(yYpRMPWIr!wD{B<mUh~f2|qrKDocQ8%VnY
z2GZW)p!T&|C8lV60Ht>SFOf*pi0bl6rL>24vQqX;Lm7O8Np)w<ZaDIgyqU-p(vt=^
zU~_y#L02}F$=uGMc~nS~i3Mu!NA+|;x9@jUUO*kE_G@H;h4S3ImD&J{^xK&6Q~O@D
z*3VG;!Chqvvmu2?<z8t$1%l8|`4B6n{T5b50;<U3`_3R@x^7wP?Pi@^jm?*Lp#oiP
zYCm>WQ9;$(-0ctigAn^OIb)ptseIk482~<Dwpeslh=tHcr1r-UtR*SF<Xkp6YCpNp
z#FJN{%SHqrir*p|)c)KaMe7igG1)AtwrYN=pwq+JJ_RMef#y5QGL%G13kJh9(OryC
z`#Xq3C0DuaA0iG({wsmc{k;5^xBVihFV^$4_8$+ir|~*FGugC}m3vgftLj$Y%KJhn
z)5+6TMp$aA24O_SrOSFv7@6L)>U!o_>cPfxi3H0d27B_XmofN)O#$F@hcq$#ahyCG
zWuqGRist@EF^Y@fW0wg{p2&5~SrJz1^5LLq`rMc)B4VzyREQ9oh%uOjXPbjOLuQqZ
z#8F(iyARpJ;sg}H-~M5>CPxyrl4;?~Tn+@erQ;bl<z#BOzbHz(z05oTd)O>-)XFTA
zhG*;5e;*2vC#9K_zZp`!LQwljo}(pM%yXA5i+S!dwON#m@mb%?(xchp^gP^E<e^Nk
zGGBsZPjnW6tN5B-w5M&^yTtdjY%i3`_NraBx2z29dC$zyo{#NG$@2w_;44I9&vy=@
zrq#$ae2ppO^$(H=k%tg<&AUxn1A3cwkBeR+fqs;H!xW9lDuOo2YYJO7z#iFCNY+o(
zD{mjFynryf&bT;<5bcmIT^_*Y>yRpg2;n8~Ecg<rS`#}&G%QmX9l#ZyWIfi;&#&m_
zI-IA#`Sh|lpIs5>u(0KFeuv`x9?f~*faLuC&C-sPR;(HqiZ37GD^q$@wMZ^h%<kY+
zz?yhcn`Jq^Ocq4Xx+TCFqL&pzuWN?XOE!9YxeW2U4EjJVSILmNHlVZe-3EXv*@2mS
zX)$wIG4q3FCc1^S)6rrDH|w<qR0Bav?@g)0C-FPh!4En%IH+Uu6~#)!esS9|fL^8w
z;v8R4owL?DuKg3su_*TK*}uzVwV0=Ebw}mXt#AdnEv=V><EE(M(!dOL$b_}$4uz;=
zAEdhBf0)hFe_Vn{o%Cp~#)%i<F&e48X5CC{kpiTRl&*hda8n=n+SGzZsNoo4E?f^<
zUByPI16TeXxBd4|EB?SwCcUOqPaG+Hw0|YSNBgNGudEv_l#YAROSn*crl$?~p?_o5
ztki({)!+&YILcR@6}BgHBeuAz1zVGB!jFUhr~Y1J4=u>LwWEeqMqJH?H3VL6)$s=n
z8Dh{bi&l+&EJE`})-&QFG+Qy!V#o7Pz$>+USc9``E?t&tNTmR6dpcm@Y^woQD!(SR
zEb;4^v1THK$D*Q>&G=1a#_w{F{s^l0>{n>B%*LmJ=pvy~*%01mq>tbp2BvZemsWV2
zXHE>7zp3L}SkLKy7XKbBPVyDCiAdfCJaDvQB3l$8p;o`}lh+MC-X-s9?_hC`yjMEN
z8(f7}hkPoC=W2K>N8T8}FR(ww@oq<Xb_q`g`f&8}?jGX4wtsvZR#iQ0mFV<l@Buo6
znM2#~<IfdGKt4))N729njh&;r8HoGf)rueT-gJe8!viV}$8V`XfLlu-z#&%8=x|G3
zZY^O_?uMSVwuZd(koxX=XFu<8d5;S+cn-IX1u>6VN~8EGx6vHdvKN~yxHt~?vQ<O<
zb%AlWT?^Q%k97Bj3Ck2wNw@-*>DGWP>yI)Vc^|P?+1?Y-6CTuiU#hFC*Z#sLSS3j-
zoz-`5Q@2&)sY#=5T+=k7I$+muX$==!CLAl~bctf#hf+RSkOG&RzO8W5%cGsNRKcXd
zm~BN(k1&I!Bh1QqEdF)1iq8A}6TAz@Di*WxR9>B}C>KVm=0el$s&1X0Lnib&WF+*V
zmFVOD%TSrnef|?G<p2LSm;1s>f_}tu-!%|p?{7JBqIoE?nL<99Hc%7haR$X3tg#IK
zSBXKsgZxBeieZ9j=-?Izj{kr2U}t*U-|(FALG%|62FRCSifAhO?%ar1T!~DUsi+6e
z>g|X17G&(kJ>)yauO97BIrvq^hVXnKynxW?djMTP^BJq^2#?JA!#%y7vA+JWBB!1t
zhiz!#0rEY@T$}_K&-J6I!dqp$l2tF7r;{m`4XxUgkrtWhX%Xkw*M%80vS*ArT!TZ@
zQ)qOSK5;e|W9$v!i<@~D@ft<uyD++=Mtov6kH@mUcOn+Yy8(=cw>_FuiHz6rVSJgW
z<ogi8|7?+frrFtxr-{CEn6zkL6+t#M@j83ScM*<Lob1IUlC*CT$K(o)ZIueMfXVk`
WZxyI$q!g@#Z~9qV$6%4d|Nb9rQX2#S

delta 4536
zcmZu#3v5&86^^g3ukCy9?;G;;EA}5JCU)Wk+j$TuVLXyFp&>~_M#E#Iff(#I*lA)Q
zK@1o|tfjO9PKOwxj6uZ^LzK3xMXaKTRvkhOLa1uH4jAn^s2F7wrB%yX*!i#R)KDye
zeb4#M<DS=l{=D_{tG!zr*YPAHXu3uZc*?7SUb=;3Ov#~i&diR6hSu3_^$qU2U@ggL
zw5Di}Hg-MHT;JK`t_uWf{UoD3ozv9N{Ag3ByKYhqa^~wsNJcNJj~csZ9YxBJaUT8%
zkc<sT-6G!ZUfvV2L`lXD-4&9t7iov&OH`#I@fg%;9N8yLXn4thJ0W)lF&7}JG4mN0
zeH6x(<-i_I4xe$gg2FU>IIGF7sYFA!@+oca>lqFW%nkL$mPF#i?m8sjF{j9L!jVv4
z?;yT}-%m7rF@@dPHkif<jV7LG%!s?3RL~TOFOChlJ(XUfaTTWIQ&cZ|F`wU8<M-7D
zh{lJ)H57%Rurgm4K#^%MPMZ(!aFS*g`z8B*^O(%UYNF{xf<^3Nk5%ZzB7AgJgi*sl
z7NsqrrSax^_S)sBcTF~>9g$_>G}0ynZiODLS+fgPYpwQIY?L-cL(7L#uK9fd)jOg&
z0!Otr&2jiZYs)(QAS?jSYpqgX4Ezx|cq^y50+V^GO>-TsjOJ3>H9NL4)E*j`8H&c;
zb?E$Ei18MifhSy69;LH;hM4V0Xi!a*pKx|~f%j_0!&|&t<A+Q9c+F(sb)Ld{lxVe6
zI!ZfwqP?-@G!myP`svcx0FB005v~hjeyZgb*TB6@3Q;Lr%k}*Vf7{>>(l0n}C0vn8
zwcPq*2*_5W8ap($8T_)B<6eRVvYX@fz}IrIjypJkQus_N(FI+EdmRzBaVq`|OeHO+
zLBhT5LoJ2gfZt2YXbs`sH)87O2;t77lb>SYeU*r)n{Zzs<tF3_j=b;2QCc5bykc3~
z3XFuGXgQu}Wtb({%-TGR)W7JQ{?L-AkwuTws!2pkYhbTZsnwQF#BUp%6Rg=)s_q1i
zXs4orCitJ=^L1oW$|9^raU0PtM9xx7{eRN?k!bsoyc*`{{d6OG{9js4v@arQCzj19
zS|5nSLv%0{C)$0mU+<9*BkxT;rQZ<kDfn3L)tm*5!MgZEgx_!OG6KI;siSmeEE*q(
z^$im3ZH3`(N22{J;`sOjPj~_SXSQ0~XATlR6T1ZgAy$0dgW*Vj_i`*2!dv0j2CC(Y
zov_wm7Nh-32wzczNI2pw5cpcuGXo@Jv$+MEmC`f6r>?d+-7|*cA(t;OiSTow&uFQB
zvf$^;K&6k31j0Y1N+!pH`c;P0g^$AtqkY}lhe-yLlFy>`?P|LJLHOPHZ~#-sUa29v
zGBOa0F2^ho{wPjDe6vB8(82EBfu2=_KY`%)Fi#Ae7%_xDXHjwe>cmNepjS}QpTGjq
zy5Mt^x$(0oCG>sE6J3U!(D%z`q7$*c&}Mi=Z^EE12LTS%z_p(W59dMvXSL1)=f&Kb
zV6t#^QxMyT4?oiVMAwcF^L3vQ9nN4~Gz%wd`itm>V4NwZRJY+FHLKe~m=jmoXd}8E
z&#{M1uwJl2#I#JS+uNsB@=a4Kr#l2wl@hJ)SPkq^3gD(mfajG=PInSsR%%?jGbzU|
zq*uJ|BJ=7hdUXrFQA#=89VpDq)$nTT3#LCN+g%5%GuP?NJP}-QH}e?@hpSLi%6z#7
zk4t6+2k8`?z8D5!S__s{Vn~=RZ+H@?7oJqf^T<ntS+y!c9VsrMGwGMGD80*tF#077
zpqVvrd0fc^VUvPE8_R^S)xnZpkBOx%GpBdVp^+$!$NFg>&T1m;f~qXPM|cIrk6>Mn
z(&_Q|KxFX>Y{qEM^3Wg=j!UVS3a4R9mOWee0F(VSb<GKfB6u3Pi0~28EoMAdg)7+i
z$ZC$pL(8zEhmm<5Ze$ghg;8u#<fKkEWZdP6-T;N!`6Mf8Vj|Joo$%Lei@n-U^y6_v
zf1Rw>)X7KmeifiYWBSRkGrLez4=1vnMXl(33Y@axCi*Unjeap2>MOVezcJ(rtfBQQ
zS<X29dYF`B6ZD&r{SwU2u}b<qZ7fkk0a}N-vcaw#ucSYy(uNZ>GhEH_8TGGMGTf>F
zyq4#Ln5-whpqJ?1R;l4Js_4VxSN}e$KM!kjOE~?f@Tc5DPX7g*%|-J!;YRKPPX8S=
z=PlH5a3JpyNuI*=vQHR}=9TME-jD~5{6{nt=I49trFageJ~!x4uq+((4F}6s1&N^w
z_T<+zPE}igK}Lw73B#KF*`W@KuV`C592!s$TsJW+OfMtDQVf*=hqPgJ8CcCu(i0ty
zha=Ht#ITXF*x5P5i!5$}VJCw2VZdzS;RoYYD!%z(xXKNu9u_Ub*@s2T@FD8H42LaF
z&hRCSSp1yfHr!)hKS020*9g#x|7XI})`=FYI!7tRKm^KG1$@JSvT%SHiwj^}iFuu$
z7%S9MK`px(ZEdq%#8``~5c`bM=EeucQfE^`D>2R(1JL%4=GIQ?qTxt<kS2yCYG_dh
z9n;XzTHoAAjB}GsX?!w0nnv*{45u;96XROww7YYR&!RI+Vtsv)-Vob1(7o;Og59#t
zxLck0I38Ht;b`y-1@T~CrEayx1I~oQjP1c1ETduEkEYhq;UG>B<I$wM40MempUEQ&
zVF~#YxU~HANwbfEdQU-4ILRF$#&c=4WBg>Sc8s5=-tY#gOKBiRJORXvyyRd}Pf^NF
z(Lo}LxtG$9RrSCSbKr%7HjP7VJkbO93Klg4(*q_>!FY*{sI)z$G!b)ED-q}C<50Wr
zsA4CT*bDm{(>XB;|8^8=#i1f-aXTaz5jWuGFhayF5OmH|#2rjGZtCJ8{C5mCI>&S3
zNjU6ua^e{naoROQaNX(S#0y}iHJo@6+UYD#yb8PNqrKuSl(~b~1-9GPM+W0P(IsjI
zaR>JkiO00wxAjUU>``^={W;j2{oq0@xp*S^)Tl@`5Gj0ulcvFG_B9J^uE#j36T&Vh
zCoO{KT&0{8hQGKP1PO<|v}Suz2`6m=Z&4#BZG~rwki83DF7j~FEAY1>heJBT@;jDZ
z>3CXtrPH7-Zs4R3U{-M%Cw&B~ioNTkD{0kqpQFivAzi;;<7m3ZyJH0-8<GVhXQgLY
zw(~?DkC~AD_+xSo_8?o%Xc#x@KAbZ?BG(g4a&l#pTTx+YV;8L=au+t8de;jC)v}fs
z!((n2C-*_jUChZVp>2FQoOYL5<n?Oa<;}S2r~<(nb~%(^LcCMg=OXf+gvdb@dBP&U
zo`Aodf>+n7@b{s;#G_|hnS9;_>q_#)sT9-AG<^z6iK9sVLR14gLgbqX72l;)B(9@`
zLlxy38P=9KxjYACmRQ_=LTE~il&WH+DkT<}$SjkoaH*suhcqR)9T+XLkSAoR<q~v@
zxg6;SO)y7GR__OWSrx4I^a*4m@?V6bJ~O=I5y9mBSWj?3lYQUAYd*ZgskCyKTzZg@
z!wI!-BKs7a3ZlNVAe8Ob6P&u_@{cIc2KUPTERZkp`8MkOekS=rl`#qEiYb#PCTkY<
zJiAFyT-kByC#GVyr1dgVY(*S1N=y}47&mYYtHus7)xz3}8JuYboURyOYihxrknIjj
z1}5WdEu-&x*aqw+rnxu<k->T?#Yy%RGM@xGp+GP_h4$mDSrpUSBP;<Z(9qg2dmi*p
z$mQPkz;s8xsmseQMlN4MJ0r>S5+v0iWctl=5|bj>EX4F|daataqa|FhO$XH0G#!O)
z{(o9bC+@?%hx~KHcn1Ky(%WGT72(xDi(vW$>7TPa8B90!FfTVDzZ8?TT>e%Krjo%E
zMPvyuC^>smh@DxABf<7ytd$^QroeA23j<0cTj+X2xTkxfUZS+)xrcwP*j5&u{0;8R
z+vrq$Bnn%a6<nH?DEz&$m{W$}US)w+*-#6QS7$@8$|WgV7-R=R_Cj}66{j46-&Hy7
z$}ya7*Kr?=E{liVKH4)7>gn!}<5fjD3FoUSIOWXtY8$6qfP!k9S-FU7*%+j-itY3@
cM7av>)x}!nR+VaPbG1WJ?wIPvaOB?q0cml%{r~^~

diff --git a/!TheEscape/!RunImage,ffb.bas b/!TheEscape/!RunImage,ffb.bas
index 5457eff..5447faf 100644
--- a/!TheEscape/!RunImage,ffb.bas
+++ b/!TheEscape/!RunImage,ffb.bas
@@ -1,11 +1,15 @@
 SCREENMODE%=32
 SCREENGFXWIDTH%=1600
 SCREENGFXHEIGHT%=1200
+MaxEnemies% = 10
+PlayerYHeightDivide%=8
 
 IF INKEY(-42) THEN
   SCREENMODE%=28
   SCREENGFXWIDTH%=1280
   SCREENGFXHEIGHT%=960
+  MaxEnemies% = 5
+  PlayerYHeightDivide%=6
 ENDIF
 
 X = 0
@@ -20,7 +24,7 @@ DEF PROC_main
 
   DIM PlayerLocation%(1)
   PlayerLocation%(X) = SCREENGFXWIDTH%/2
-  PlayerLocation%(Y) = SCREENGFXHEIGHT%/30
+  PlayerLocation%(Y) = SCREENGFXHEIGHT%/PlayerYHeightDivide%
   PlayerVelocity%=0
   PlayerShields%=100
   PlayerStructuralIntegrity%=100
@@ -50,26 +54,17 @@ DEF PROC_main
   XMovePerCent%=5
   ResetShipSprite% = 0
 
-  MaxEnemies% = 10
   DIM EnemyLocations%(MaxEnemies% - 1,1)
   DIM EnemySprites$(MaxEnemies% - 1)
   DIM EnemyHitboxID%(MaxEnemies% - 1)
   DIM EnemyVelocity%(MaxEnemies% - 1,1)
+  DIM EnemyHealth%(MaxEnemies% - 1)
+  DIM EnemyCollidable%(MaxEnemies% -1)
+  DIM EnemyCollideForce%(MaxEnemies% -1)
 
   REM Random it up for now
   FOR Enemy%=0 TO MaxEnemies% - 1
-    EnemyLocations%(Enemy%,X) = RND(SCREENGFXWIDTH%)
-    EnemyLocations%(Enemy%,Y) = SCREENGFXHEIGHT% + (RND(SCREENGFXHEIGHT%/2) * (Enemy% + 1))
-    EnemySprites$(Enemy%) = "durno_ship"
-    EnemyVelocity%(Enemy%,X) = 0
-    EnemyVelocity%(Enemy%,Y) = RND(3) + 2
-    EnemyHitboxID%(Enemy%) = RND(2)-1
-    IF EnemyHitboxID%(Enemy%) = 1 THEN
-      EnemySprites$(Enemy%) = "durno_ship2"
-    EnemyVelocity%(Enemy%,X) = RND(3) - 2
-    EnemyVelocity%(Enemy%,Y) = RND(10) + 6
-    ENDIF
-
+    PROCrespawn_enemy(Enemy%)
   NEXT Enemy%
 
   REM Show/hide debug display
@@ -103,8 +98,9 @@ DEF PROC_main
     REM NPCs
     PROCenemy_ship_move
     PROCenemy_ship_collide_player
-    PROCenemy_ship_collide_npc
+    REM PROCenemy_ship_collide_npc
     PROCplayer_arc_calculatetarget
+    PROCenemy_ship_handle_damage
 
     REM Still not sure about this bollocks, but it does seem to work now
     SYS "OS_Byte",19
@@ -136,6 +132,28 @@ DEF PROC_main
 
 ENDPROC
 
+DEF PROCenemy_ship_handle_damage
+ENDPROC
+
+DEF PROCrespawn_enemy(Enemy%)
+    EnemyLocations%(Enemy%,X) = RND(SCREENGFXWIDTH%)
+    EnemyLocations%(Enemy%,Y) = SCREENGFXHEIGHT% + (RND(SCREENGFXHEIGHT%/2) * (Enemy% + 1))
+    EnemySprites$(Enemy%) = "durno_ship"
+    EnemyVelocity%(Enemy%,X) = 0
+    EnemyVelocity%(Enemy%,Y) = RND(3) + 2
+    EnemyHitboxID%(Enemy%) = RND(2)-1
+    EnemyHealth%(Enemy%) = 100
+    EnemyCollidable%(Enemy%) = 1
+    EnemyCollideForce%(Enemy%) = 1000
+    IF EnemyHitboxID%(Enemy%) = 1 THEN
+      EnemySprites$(Enemy%) = "durno_ship2"
+      EnemyVelocity%(Enemy%,X) = RND(3) - 2
+      EnemyVelocity%(Enemy%,Y) = RND(10) + 6
+      EnemyHealth%(Enemy%) = 30
+      EnemyCollideForce%(Enemy%) = 30
+    ENDIF
+ENDPROC
+
 DEF PROCspecks_draw
   REM Specks / stars
   FOR Speck%=0 TO 49
@@ -157,8 +175,7 @@ DEF PROCenemy_ship_move
     EnemyLocations%(Enemy%,X) = EnemyLocations%(Enemy%,X) - ((Cents% - LastCents%) * EnemyVelocity%(Enemy%,X))
 
     IF EnemyLocations%(Enemy%,Y) <= 0 THEN
-      EnemyLocations%(Enemy%,Y) = SCREENGFXHEIGHT% + RND(SCREENGFXHEIGHT%)
-      EnemyLocations%(Enemy%,X) = RND(SCREENGFXWIDTH%)
+      PROCrespawn_enemy(Enemy%)
     ENDIF
   NEXT Enemy%
 ENDPROC
@@ -214,7 +231,7 @@ DEF PROCenemy_ship_collide_npc
   NEXT Enemy%
 ENDPROC
 
-REM Handle enemy collisions with anything
+REM Handle enemy collisions with player
 DEF PROCenemy_ship_collide_player
   FOR Enemy%=0 TO MaxEnemies% - 1
 
@@ -231,11 +248,14 @@ DEF PROCenemy_ship_collide_player
     h2 = PlayerHitbox%(3)
     IF FNcollide(x1, y1, w1, h1, x2, y2, w2, h2) = 1 THEN
       MOVE x1+w1,y1+h1
-      PlayerVelocity% = 0
-      PRINT "BOOM"
-      REM IF DebugOut% = 1 THEN
-      REM  PRINT " hits player"
-      REM ENDIF
+      IF EnemyCollidable%(Enemy%) = 1 THEN
+        PlayerVelocity% = PlayerVelocity% / 2
+        EnemyHealth%(Enemy%) = EnemyHealth%(Enemy%) - 30
+        PlayerStructuralIntegrity% = PlayerStructuralIntegrity% - EnemyCollideForce%(Enemy%)
+        EnemyCollidable%(Enemy%) = 0
+        EnemyVelocity%(Enemy%,X) = 0
+        EnemyVelocity%(Enemy%,Y) = 0
+      ENDIF
     ENDIF
   NEXT Enemy%
 ENDPROC
@@ -273,7 +293,7 @@ ENDPROC
 
 REM Calculate player ship's phaser arc
 DEF PROCplayer_arc_calculatetarget
-  NoseX% = PlayerLocation%(x) + PlayerHitbox%(0) + (PlayerHitbox%(2)/2)
+  NoseX% = PlayerLocation%(X) + PlayerHitbox%(0) + (PlayerHitbox%(2)/2)
   NoseXLeft% = PlayerLocation%(X) + PlayerHitbox%(0)
   NoseXRight% = PlayerLocation%(X) + PlayerHitbox%(0) + PlayerHitbox%(2)
   NoseY% = (PlayerLocation%(Y) + PlayerHitbox%(1) + PlayerHitbox%(3))
@@ -358,6 +378,13 @@ DEF PROCplayer_target_draw
   ENDIF
 ENDPROC
 
+DEF FNpad(String$,Length%)
+  OutString$=String$
+  WHILE LEN(OutString$) < Length%
+    OutString$ = OutString$ + " "
+  ENDWHILE
+=OutString$
+
 REM Debug prints
 DEF PROCdebugoutput
   MOVE 0,500
@@ -368,7 +395,7 @@ DEF PROCdebugoutput
   PRINT "Right: " + STR$(RightID%)
 
   FOR Enemy%=0 TO MaxEnemies% - 1
-    PRINT "ENEMY:" STR$(Enemy%) + " " + STR$(EnemyLocations%(Enemy%,X)) + "," + STR$(EnemyLocations%(Enemy%,Y)) + " " + STR$(EnemyVelocity%(Enemy%,X)) + " " + STR$(EnemyVelocity%(Enemy%,Y))
+    PRINT "NPC:" STR$(Enemy%) + " " + FNpad(STR$(EnemyLocations%(Enemy%,X)),4) + " " + FNpad(STR$(EnemyLocations%(Enemy%,Y)),4) + " " + FNpad(STR$(EnemyVelocity%(Enemy%,X)),3) + " " + FNpad(STR$(EnemyVelocity%(Enemy%,Y)),3) + " " + FNpad(STR$(EnemyHealth%(Enemy%)),3)
   NEXT Enemy%