From 1083cf24bfa38d2356a7d0f643d8183c1c0f9958 Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Sat, 19 Aug 2023 15:33:20 +0200
Subject: [PATCH] Opty

---
 scorch.bin  | Bin 32768 -> 32768 bytes
 scorch.xex  | Bin 56624 -> 56594 bytes
 weapons.asm |  50 +++++++++++++++++++++++++++++---------------------
 3 files changed, 29 insertions(+), 21 deletions(-)

diff --git a/scorch.bin b/scorch.bin
index 1d910e07a1e83ee488652c7ed2431b381f3939d1..61433e1a949cbe604b384c4e95e592b10ad8ce8a 100644
GIT binary patch
delta 2326
zcmZuy4Ny~87S2t=k6~X3R9AisTrkqaKb$HBSs5&-1bB+nh(wV@x7{h}N>NeA{!C)%
zlgN(*E)b##%V?i+Yej0DS()vd-R|zB^JuGY9NOw`mmRHjH?`JmYwLD9>Yf+vZacg4
z=Dl<8Ip6uY=bdw|%cXR=l;aHy(vz)B0rC>U7!f6JG4ob@(}%wsV5`^RQ-msleT?A)
z-Ff>LGZ_4=4{vi!7cxQ@BW6WYMSWC@f7uCQWaowG<B|#|5xw>jstZN6g*x=tkTLtX
z61hU}<-C>%WaoTNg=#~07hO(7YeUkLKaWF=p=B#pBQza)v7{F{D}3zlTLrI%YZ0tT
z+|D;!Dj)Q=*m0fjgace^MkflK=80uav;DBs?+iLmI!`%2bzXM{UB&|o5A1gCcBZ=1
z-Fo*cZS8G2?gj3A_bRv9z20qcm$W_Awz|#Vw!1CV-s;@_s+}fs0etn$i8m&x;<_WM
z3KlYxI?_?9%`E0<iu4st=f<d-3rM$VmUM@v;9e&_M<z=3kL7j2QMFXdjo}XmX&e_|
zOGu=2p8CT<TtZS;vM7((RvOB$3<4}kmeVAF7IWb<Qa4p_*Z7gB3Rn2-Gz-}1KoM_?
z<Z`xgW!Mh8G~U*<inDo@H(*D?D-8&dn=8{x&;h#~4R7Q2@^)??zm03<w{v^IEWekt
z@%uPC-^y*{_i)?oR1sBD#GRotz_lFZ6;l4xUrMwG=`86k9Of&UA~OfsI~>)+(NOmV
zhRy`6qWca*neK~>G?%KR2u+YarAUg0wUWG0wixA-;j-EKD}!Sfm<|(?W)=w&6Hx~x
zM!3vG6v4|3J4r5;<te{(lYf=vr{uOh_xhyn+J%eE>5I$~6&obQ<@hIH@28TIX2;@k
zlrNG4F}FiV0huQy##SY<03lf?+4bbt<p%UN`M5lU&Jypcx3sl#V&g`h!MMf_XWP8G
zQ+bOce_L%t%|y3G57@<P%&3;^Tk{K49GYIEL+A>*T`>X`?ll_|XL`b8Q5Bm^erH}<
ze4rBtEl|8C9Q>S7lRBC+WKv2h_Fl*7<eTCHSe-c}-i;AnZ~Cp6AkDx@Ex5+UW|2je
z*tv@sw(3+kkI;C0)dKN;z;5Ui-Jqc95IsOvcZeL2Ih|sXl*ak-3JdQS4PJ(CtbD*V
zLIngs!Bi?LqZ`FU0A_ZGY9M1BVmuIAho}Hz?G)pH-0Kh-AV2FAwLq#n*^hEOe7Y%F
zOpYdvf^YT2JDXYSAwDCfLLYE`_9Jqua(*uL2reer$_Otq!DfbqZ8MYBq=B{f;{8^J
zy?%%+uQFy*4;Tp)fiM!2sQ@|M$}E{?DS5eS?n02C3tCfw3)K~XcNA~lDOgjBpa!g|
zqS`AfJc58iTH$?bDu~5%<1vBa|LLYR#dODi2q78O85Wl>`iWFXXLA90)F`9`njP$d
z<4<?Vvj@k-Y4pKbqo&)aiDe%W344>K+oZuo7C971$@eKwhu~%sPxZ^toN;VFY9~k7
zzas@{TWdo*$R}%`MNU$=E<eeBn7;-?tY<%KB5mt7rd{d*E7uGIIu-j;4=+eEk=G=;
z?(sxdk2o(XZ?bEap)JHx^E9d;Cu=Iua&o(75q$OQ-KdU?tgnI*dvpCO(8^7<#te^F
zKw8cw#A~5xC!uNI<+g(t0oRgKwZ&?Wm-UcHtxf6ilHj^5^4!x?+2?&Y+0UB&Cme^v
z%rV75$HA?ihnZ-uP{>5}*g>{zSWw^~f@Kq@WuJ7=g)rIzFft7dOEkFe2p)nd9!<pM
zv6YJ(0B;TUt}uhIlHY8|McHI}Lvhk1fVh*mXBW;Ub1m~z<e3XC84yYsai$cH3rM47
zLB{=lc2)nQs!JG^E3UDh&xpRnt|G@RCUlOxZz-7bSwB@lg&c!Fj-P0O8w2mR;DkYT
zX+K!W+Sm(|WPIa>%y$Q3MYL}hI39(6#*c`pFdFN8IDur<>D5;T=^|2EHw#shjddfC
z$#3dN;!a=pFk{Cq(z_`)?vFn6#2?7{O(sLcry1%TYVq&)zvG{E<dW~S<|b6+x1x6Z
zYt#MFiHE?r`dnlr#`;3EhuG`Qn!I8B?GRq-$9?2%y%GJ1{JB083gm8m4oW8JRx>h_
z?bgMafGP8{eM2(1%uf}N$XN1@K;xgX=FeL(EXI$=!A02xf&CbBG=TGli}+)aC&-)D
z43fS%dGU|XpT#Ub^T^`Sz=#?fhxudBn*4F-SiB-sw|N#)M~>nq^1_xSDK$rn_^C)7
zHx-_Oo23=F<69QMVEcHBNu45tW;85Gi5yMir<wqC<9kq5!-ACg0XdF1?ik!O$HP<X
zd*ool;)J}e6Arsv2Mq<KH;%j!W_UrT^61{TYhIt66mA8~!sh|A{ky=9V1H16Ckl@c
zw2yK-tE#HFmI+1rYc0$D_0dMwK=QXfzbQ2c*VJA)`v|h1JpMIK4TkqhU%-TwnK{6m
z|A<NB{|nUr5GXvxR6P{^2TuO6b#|d_Nhe$SU%<V9ECRkpqj{*R08bdK-V20E8{bYM
qQd8Dh$CwK4h%-C-6B{Y_CI8QK8>wziPuN9+ze<~E4?W*Jkn(SU800(v

delta 2317
zcmZ8i4^&g<73WI=#Kac@s|rNqgTYKx{>+L{3r7Zs5uQ*aN+SOP7FX~TQ8PVux?r-0
zNI;?=e~c!PgMG;BDr8O1T6&t+?VN@^tTlRYr#qh6NjqEX=H50vbZ4FHzG%00CnxWI
z_uk*V_xtYs?)^GDC7qoTUmb;>C-qbgnjnPIqG|Fjm7f0$!3jfjc?ISP7vVWgrQKA&
zZGNzb!uDa@)OI_U3iML^3L%b95>&Xy0cvDs1H#IX6zfQm>ISm-1y!yZ{oAiiz92zf
z|A#5B%7N@##YoX!|9r;Ba<s=ETE8n29r3Tr--OWD{#Oc4A#2Mp{ToZbsbD$+CMC1)
zmmOOcPIZ{EWq7O&LMq0ma;*BPbymIkq}63TZ{@6$*8A2ktrt2okF7g)z<R)%XiKrJ
zw4JlF_6%FDt-!X;X0rX*)^4k@*V}j5-?E>wUq5cKp8C0&lQV97XL9WI87|_pHbLsi
zrDoKmXQQgh$Z)aDMCcz}0yDwM7<cF|+zQ|yic(Ch_#G>L-%@&E_vocxs2G-8%((N|
znR}7Uj8780f=hZK5h_jv*oQ-0B;%%Q$)_9BWe<mNEm>ShqY`2&Oe>xr0+>?Nb4q|3
znc!rokBeaD*bzaBTZYYIOdNeIk8Qk{$~1y&GjQ>2V`~Z1=#<<Aj$AHG(}=PrkTrp<
znQi7HLNd0A|E*67`h~(}D~$|$kZEKOF=p1nG_gNnn#~YpQjl?ondBBhcyXum<oO@{
zVfmUaZV4Q8K78E2g^xQwM8|b;Nz4SvELxhB#Yy`<qC)q$XpziuNF<A&2qVe%qRfPR
zySPQ!lPzAlM#Z;E6pC;Fcaa8tM&2&^fn>3r{IMu2HsAizYcuM(kFHUG%a+n_5nPPb
z5MRM9g|CcD4%^Yi85nl4`#9{!Ey_aj@Tx%64#8P2((S}moQ6Ij?-lz|i0m(USG8Bn
zZsf>|7+0F%aQT}Y5@i?RH))f58FSb?g5j8p*wB8LW4R9|LXRLF7tQz+qAt~=y~I?y
z8yWqVOVtR?lk1yDpgH#Iweq#y!3jZ1XOL0-vm4Gku*U%ReyojMKCY7qDQ9$&kd)Rq
zF2&sE7hrYu1V0}pY?AJMK034rD?4yyBb`rTwqUE1q}8jXxP)*~_>KY2ag*NX;B8=_
z?cuwD?CRkeAR8RKG8E6aaK3?c@o7$qZP>EFG(e5qV4&N`ON8yb9DvXD@G>AD_V7_a
zj`qM+kkW@7d?XN!gQtL)9J~rhtAl=&(#<C5V)z(AIS#R9Q`0-?Lnqk8unD)oxaddZ
z+Ll$R)7^ni%44AduTY+LiUzhFYN~*>^V(wzMN4{!rcA4u?gl6BJW$>X>!g6ZZK1Mn
z)6=A(?E8yA|E9+j2V75C;<vblviRJ`rnrD9j(^i98o{&?Vck#;H~h!(&V8VaZ<T?V
z_k9~ezAj5dUb3uwMUHn^_%syHEo{{)`m~C0J|Q*0>lA%D1<o^s9W%0Tl9=F>(rZau
z`4Q;F&&vl8OODWApcSNLYa?=y54N@-4_RH2rTp1Rb}l5v{fFtzq@`keywDG)oJ$*2
zOKDd>8wiO+T$39WE9KsPK3xzQRJjfvChIG=p%!wYax<zS*DEvNyHIIE7Gis$4Cd|C
z7mlK2QeLG^9CHScifIf)sh~q=phK@P%@8Gk_maM<4YDyOJw~onHA=>u#9Fa}lx>?$
z{@pOnaM8P6V{Ipc)M!LkTUY&`gOrdO$fblN+)WCqSLbw-fT4y_(d*l|H8AJif%%zM
zm#x6Qv-npq(gitg3a>huL5Nmo?hR6Sfq1G@Q31JJy+Qc}fS^D6_u~Q*X;>924q#|L
zcc6gcp9w|bYEo!eow$6EZXS4gkD|xLJ9K1#O%#4gHxtI7LpR8zA!oUKkds0&N1=jv
zZ3jFb_^<(|57AWvxcc<=Q>c)f-d?S_HyAGWq5Tkd97@KH@Nt3^20u<ey(38monB5-
zb}T`yBzMOM<niMjMBYE#=cUZpOAgeeM$QfEr|yumHM+FuGukuUnUk(z*PmR^o)v~K
zDem(!=RbLs?~(5D_|y~N=QXLQlqih3h>#+qUQy!3%Urn1g?(hes6}6qfKdb2<M+lC
zltKPw)T7;`#FVK4jM+u|&WK>Mi;I9XhEsPI8oAGumAuo-NBJV*7Wcx&zKfZ11Ll?~
zEAu-TdDzd3PyI}}M`XCv%Z@^Wu@|84@J@f;&Lv0|?Z(GRRc-dtm(S&~v+&r=24~^%
zu;AnFw42#E<cD=h3g@EWY|tX8=?U^)txlG84ovRXX2(Xm<Js9(FuD8GgsiDs9jk{|
zYZM%f!qajgI7@#?UaHHCF6kX>GmAH&E@z|c-0MM#4XCBv>Z@kOYcn$erAHr7c=YB3
zkHhnZ=N9}_UX}Nj$2`vLD=RBwI;J8LUhR0!WfU6dA`)A_r!d<CFX%zB0thM)<9md&
zJ;8&a2QW27VG0OWJr#0M{{tp{10;W~Uz#AAs2>ErM=AafLGITlF4z253olJLR0Md%
w;6dZ@r!@Rp`9|A>6!ntHmj~oWIOgx{R|!W+d3!>%lk=R9pJM%c+6QC*1EI^}&Hw-a

diff --git a/scorch.xex b/scorch.xex
index 2ee3451134754c8339a03f1fd0a966498035a0c7..2fb60686f3b73c646f9e2c55d85efe55bd624631 100644
GIT binary patch
delta 2303
zcmZ8i4Ny~87Um`)Lh$jEVhsp*p`j3=$hzxK9nsF#))XI(YpGjyt2|t~mH4xWtW?Df
zgg&Lj2=;;@lB5xQkSm10h&Jfkb!Nxl!>zovxVtku+K!#tGUI4Q?OLa^x+l@jZg(=1
zbI&>7J3sgQ+~INMN8`%j_bSnZe`_VHMytt~X$d+<Zkr6~B6)sW_KI|ZUp&UfuEU=Z
z8s++k(O*magu4^V;5Iw1G2K|oh=&;|BczqmL-CkcL5(;;4CTm5yol6oyNVk9#oIR~
zqB#GFda6ME{<Y?-F+eh!4=GW-zt{TD7_`@KX@55wwfMhryoQj*U(nTow$|9$ztxIu
z8opXAi{p2VRKM}$Xf=l$?Y$;&sqqGWVKxTVn~mHl^O!kc{<C?)j2faE0u8Ghjg775
zR&#-6vE^lpqp7E<$g;+=*1}mTE!!>Cma?WzO%+XJO|4B+huX}oB+r#SZzE5W<oh&*
zAEYYYDc_|T@&lTLeP%3^U9R-!N)AI#@id+v#K=ygc_&*&PPnpF$d1d%q>Du*WUgEP
zs>%+qxUina0dylD9FlD`ioYp%LP}g?=V%6q(;Jrw<uh4)`LH6$0jCqnt5);nZHimK
zkw3Wg^TM(UkX3+ei?BtCl2t;5bZJ-#deJ>Mdm}IG;md_Oo)c>M3gP$s7LG=R6cq78
zG!~qP<5ZFF-Pem29HevPhmg*FniLk=*~Ei19g;(~D-2BrY?SQ*LmAr?BfmhE@(i6N
ze?^h3hO>g?cnVThHihF;J&n&d#ptRO8coFhPR~5WEeo-FvQa!4@e~%VY}$HiGV$h>
zDF$$bN;Y8Oe448UwXRCF;{n6JCvXyiOv<I@!?)P9dO922JTEKg{D`@%6EB71t2_je
zI>RzKCUPo@#0|ID$8IOTJE2F{N&5*ux<ZWI=i}>-!Hq|ID)EhV9Hgx6v7%Vw?lGVi
za;YaBptpLAsGcl5`CGKnf9zx;LMqZHc+dbb_U6VEHU|eoN;Z$Y-}}=QUMub_h3@S&
z`R2=BgDRBOX;8>YR&VtsT$P@{=`SBj4<p1Ed)4qKX_Xv{GpccZIlF><-HXk~iGEX}
z5|<FF#-Eo$z}MJ)R_O?Q@sk#*70C7$X#mKpR_UnB2%Fz{!f%F#a01G(N{SCvNeQ6+
zd5fe5a;-(01>|6hlnJE4D&+&wTcvCuTddMbAT?I0NLJ&D&0v7N-<;=rUtvg)5<+oa
z@Ldw9{}o&JAx<bAj->EGIF$w~eZo5cOGf$(nHQVI2F6v(i2E4VPKE_`CsbDh=eDWG
zwG10azV9>4yVwlYoXbEr6HzGvc%zmnyun^1tGqA7g8sCtObgsLZ|eVWtGv48$7Ncv
zOe>v+5W;4j!p5J%o^jW`si>cP=gnB$Zx4Mb>*$k`T#YSP6S+f340waaX3$`LX~YI!
z!aHzoso;=O+LY`fvX<7v@Li(qXpn3=^$p4)ulJXucGBDbF6t$-2NuR1IwIVZmAG#&
zyPmv0@RsgTD<pJN-;t<fyITbjuBE#*d?x;ZoS42=DLWKqZVvnmS;$=922?{#zBPy=
zqrR8m{|lc5HIm;97Q?O_96W$>N&Zl7>QI}A;`wq>9S<Wp2_t!#-vVAlTu*imEmsY-
zu|s5Fs9Z7BM!10tk~cg(|4Tbw?qGL2dQC@yOn1~l)4@%*gG?w(T*`#f@lld7lDFh2
z5o3R83o6((CYsMX@dPYC{X2ykEFQ-fU>}EK@XpAof$so!?{J5M44zHQBUz}JbdM~L
zy9Xe?5BJpIV)FIKf~4^Fgwb+}MU0dTy~B~L(fl++2fMxfhwho>4R_9=cHakz(0-UW
z)2IP`PTEHor_Jf0N|?-UC?kHY8n!>)U5XbSV}IQacD@=t3U#RSzq#RG9k7SI*jfXw
zy-+s6BWXiQSloccpVju7V8V1_Hxu3|qL-<P;yGBlgRII<%lHx6$B)uV{_pVdKVUc-
z<z!k%(oTEe(#6vx#%Z^?84mZ8x5u*7ckRZ&9Xn|l%gs*iT-<r4v&(VPanJF}@qgQ4
z??|e)M^gOow}!{wz%%5hW0|Ow+#OqrJS69gQM18~^$xt*fkm?SOm2F#gP*4PwtZUI
zj{CLryschK6}AIfJhq<QK>m0p6D=oSoH3%^#BjD?9(=jO!HS(>6FVF<3Q7^V{w}<M
z)SO*7f2&(k4@X1SABKQ`jG1r(=EB*91wX>fiP))pW@p0bQQ=az&<*n_^uU<nt^V{+
z<{(wF6StEkfx@JHUCV^&nP`4GI1NuuElBGEdGL7m1PrPbUBJo!N_Ogm=_&x-`T>+Q
zo~M1wxlHJWPrKm>>IqJ>54*^^@q$?;hoL&qKuzO|S0!}~1Q|h0R5mAm%4tqbPKqfm
zqo{Kkxg3|nb-^_QzchE6d&b3i`CY}u#e8)jD&=JL%j@0_ZH7^MIKFMgN*7diPq-Ec
zYLPJfEnevg?vd|=cPt1qLAc<VkgER+Ob^S5`&?>D7@l}Xe2&rlzxJ=^Qjvk&K9_<F
ze)ai#@#r{tG})fpLiu~bcPUotdZ-g8bfHXmaZ<&Pb-DvnI^Frpy1j1d`dAn6`^PTt
GPx=p^Ecd|x

delta 2358
zcmZ8i4Nz0r73Pxg7xqD5aW~)wFBrzeUq;uT+O<yIwIY4GY^AMO7owxBLdS_3L08>i
zvJa6EiC!=Sk`TcMxk&hnh*4kNI&SR4s#zDeZtc<;9UbYoPIh(2?sO_WFSyfgCz*Hd
zIp;e+_nv#sJ$_!+5C7k7K@S4kwy^PNGZ`vhguWn;%XR2Jd95PvtsfKo&IvYYE&iI&
z8252Tb6a^%|0IdQy$-yqd~7iz)H7msBwbWTQt*Hk)JV?@kr`nbE+SPGw@_Q4@b|w`
zB3<C*0UC?Mz|T#$5`kpb9+sh&K&SO?B60-Gja%c8FYw5@5+QA1Zfg_TW_Pfk8wI<9
zGYBQg+|B{R>WO0pJ#KS!mP1H|FZiCRAXsE7(07}LOczX_n68-;s^hCKRTmyAI@Dll
zFfB4KGrw&fw*1ku+PuzOV%}liW44&<%)2f7EGElm7Qf}I!*-LO%yQ@D7&)58^@g9)
zOs<#8Ial~AnhpFjNs9YS_;XU>R=-+N4?9btDIlBXpmCgwts<@NJoz*St|C|5EUF-B
z9?jdi4uB;~dYTMSBNyrm+h`1TkM~Ao*zV9vzVY-!OZc+!T&}D?Hlznm#g}b=hbyzk
zJ_L^J^=Qy^;`U@NpMFR$WyF_pmAsy-;x}<delxcR-13!N8DGWec_X)p-@|RzLyW$N
zoFcA|CP8p1&s_4<^X0n*HFOGW=XrEfUq?5U>tN^BP<3>Z$aaIF8DJ4(d&W@4c9RLu
zqcRYN$7zB@?okO6eq~Y^M;PziMe8k6#`4LG{Wlra_E?2Nis<OQ!PMzcIAe(rX2#|2
zFeBVy#$()f7&gX2c6#%WmN>lmY3nW9x<{1vZro(RI$y?qM(%jA5)x9-*WfFs)1vvy
zPtF0Ktobmc?UH2S#OP{SG!|^Ri>)K?oz$Rzk;;<+^q9<SznIc;0!k3)-Gax~>fsEY
zwOi2)Qr)3LKGNNx2I!wU3Q!A4JM~*+4D3CnL@1XW;k{^t%<R-AuB{FAMr7=2vY~SU
z3X!9ouWMFV{i(OaiLi|Q#}V;)l=zcw=`M-O!$~;XfM=Jn8;ID6P3MT_eWeUn5E_sF
zUJU8oW}B_zQLuQoPHX^DS10xW*<=-ug&Dqd^#oT6WpM#Yw_Hq#Y!_2OtFIH|fjq4f
z6M&qm6LWxgtm14SE39H3kZP;=6Cif0xGWrxH<f||HtonP|K3<#s+bx{_Cf45!2=uE
zrXx7DxL>mKe-sNA9xI*ToPZ^yOP6!MR;Xs&Mn?F6aqnPQV0S<%6|lD7d|_l*9r?0L
zH}!rkcylcQ-FQ?b1K^mE$sc3ylN{glB+#F6m!t!?#+UU!T#iqb@uDPMC`lL3KnjwZ
zNtkOA_L95g%R(agt1o+@=!o18tLVfUt-_{NM9&a52E0yT(<!i~IO>C2!#T0Gn0Jbq
zb{Shl=FkJsd)>4V{h2K9euP#M?ddW!NNP`SMOVm^)AN$~qx?M>NnQKc9YovnOV#Uk
z*w8&qlTyZh+`tQPEFU*WYtqy+Bk_|4F)t!9S9;z=Uh-YfFOZ$E{#EEh(&(Q9-^+e8
zY9lLq3t?c|dk><Yk(54d)^)ppQn)f9J_UMm1bXrsw;7@cxP=t;EtOxlv)9SdzOvZs
zcJk9x*@WpIoraq6dMA6#*;#%x#I(oMl-IofIK)J9g~d!njr)!d%v#h(grr~FLb2?s
zaypxH;Ri4PH5>C4_-+dxgP9yj#P!itHP-~uHtOp`44z3g4dkM2<fDP5$;w6$cj1m*
zcpDK1W~NCK6#B>|EMvqBxH=ya`QYp~RyDD8jo)9M1fO(q_(r%ek^RtK?4S<)n^X=i
zd}Bcql|dV}LlyB#1H1rucQGzH!R~7WKUW8jK^aN{>!xO$fGOm|)?E<V2UX*}Vmi#e
zHU~TkR|D#-TnDY<251*INVjl*0ni=jfkWX8+C*Liyl}Q{XGr3Cht0$2u}GE<<;FA3
z1;JOE$>t$#-u&iu&7;jh=Vhm|rL<*gvtMybl-s`(Q~JNvz3>HJBKwAN&@S@n&|>rl
zl61B}VesG;PJF<L?~>n~)vBjExluaX_CY#~w*Be!qU}IBjkO(2$3sP|fq2j6p!MYP
z*#dNoBoEJ>3YJzUd$(C~VRh0NIP&N*w_*b+9-fz1;}PTg<KS}FL&87AJaA!yX9?dv
zKA&tD&RRAf0`VQ&V<to49~dr(I^Xir`2&|%j(2(ZcIZXE16mZ<1SW>3Ao+Y39we$@
zep++u5`J_%jvEb)!fRs$X-RMvyxv?;m$ac354tqB^Z!QFLAAy{C5jZM*n`|CJKv?^
zN4JCB!<Tjvu$7bs)l>VE9*%~L5hc6ZCFLB)wZrq&5gKKuxJdr_xd|2Zo#lGCUR%#E
zTt2V0C&ciAQdX<Hu2*!Aj0lU}1;QeCfqtcX*gfV>@FaMa!Y{$2_i;N53kx|zFedYq
z;YVxNM@pd&zc^p<)<!oxZk1965mYd>|69D#9jXjJ(RY?h!W<CJd?}>y{{^Zg8L7UI
z^`-<@J`rAJ6#u7<%E1k&3MW<HJ6lC=T*ySL0*@|ylY-8XyCaQSALYK`|Cvdt`?*TE
js*2=@D4Zp<sZ<AVs#F)RsrFr@?lx8M(}3gJ{<Qx9mbN5+

diff --git a/weapons.asm b/weapons.asm
index e1d8d90..01d153e 100644
--- a/weapons.asm
+++ b/weapons.asm
@@ -77,35 +77,37 @@ CheckNextTankBFG
 .endp
 ; ------------------------
 .proc babymissile
-    mva #11 ExplosionRadius
+    lda #11 ; ExplosionRadius
 GoBabyMissileSFX
+    sta ExplosionRadius
     mva #sfx_baby_missile sfx_effect
 GoXmissile
     jmp xmissile
 .endp
 ; ------------------------
 .proc missile ;
-    mva #17 ExplosionRadius
+    lda #17 ; ExplosionRadius
     bne babymissile.GoBabyMissileSFX
 ;    jmp xmissile
 .endp
 ; ------------------------
 .proc babynuke
-    mva #25 ExplosionRadius
+    lda #25 ; ExplosionRadius
 GoBabyNukeSFX
+    sta ExplosionRadius
     mva #sfx_nuke sfx_effect     ; allways <>0
     bne babymissile.GoXmissile
 ;    jmp xmissile
 .endp
 ; ------------------------
 .proc nuke
-    mva #30 ExplosionRadius
+    lda #30 ; ExplosionRadius
     bne babynuke.GoBabyNukeSFX
 ;    jmp xmissile
 .endp
 ; ------------------------
 .proc leapfrog
-    mva #17 ExplosionRadius
+    lda #17 ; ExplosionRadius
 ;    mva #sfx_baby_missile sfx_effect
 ;    jsr xmissile
     jsr babymissile.GoBabyMissileSFX
@@ -237,16 +239,17 @@ GoXmissileWithSaveXYdraw
 .endp
 ; ------------------------
 .proc napalm
-    mva #0 HotNapalmFlag    ; in this weapon - flag: 0 - napalm, 1 - hotnapalm
+    lda #0      ; in this weapon - flag: 0 - napalm, 1 - hotnapalm
     beq xnapalm
 .endp
 ; ------------------------
 .proc hotnapalm
-    mva #1 HotNapalmFlag    ; in this weapon - flag: 0 - napalm, 1 - hotnapalm
+    lda #1   ; in this weapon - flag: 0 - napalm, 1 - hotnapalm
 ;    jmp xnapalm
 .endp
 ; ------------------------
 .proc xnapalm
+    sta HotNapalmFlag
     mva #sfx_napalm sfx_effect
     mva #(napalmRadius+4) ExplosionRadius     ; real radius + 4 pixels (half characrer width)
     jsr CalculateExplosionRange
@@ -344,40 +347,43 @@ EndNurnedCheckLoop
 .endp
 ; ------------------------
 .proc babyroller
-    mva #11 ExplosionRadius
+    lda #11 ; ExplosionRadius
 GoRoller
+    sta ExplosionRadius
     jmp xroller
 .endp
 ; ------------------------
 .proc roller ;
-    mva #21 ExplosionRadius
+    lda #21 ; ExplosionRadius
     bne babyroller.GoRoller    ; 1 byte saved
 ;    jmp xroller
 .endp
 ; ------------------------
 .proc heavyroller
-    mva #30 ExplosionRadius
+    lda #30 ; ExplosionRadius
     bne babyroller.GoRoller    ; 1 byte saved
 ;    jmp xroller
 .endp
 ; ------------------------
 .proc riotbomb
-    mva #17 ExplosionRadius
+    lda #17 ; ExplosionRadius
 GoRiotBomb
+    sta ExplosionRadius
     jsr CalculateExplosionRange
     jmp xriotbomb
 .endp
 ; ------------------------
 .proc heavyriotbomb
-    mva #29 ExplosionRadius
+    lda #29 ; ExplosionRadius
     bne riotbomb.GoRiotBomb ; 4 bytes saved - optimization :)
 ;    jsr CalculateExplosionRange
 ;    jmp xriotbomb
 .endp
 ; ------------------------
 .proc babydigger
-    mva #1 diggery  ; how many branches (-1)
+    lda #1  ; diggery  ; how many branches (-1)
 GoBabydiggerSFX
+    sta diggery
     mva #sfx_digger sfx_effect
     mva #0 sandhogflag
     mva #13 DigLong
@@ -385,28 +391,29 @@ GoBabydiggerSFX
 .endp
 ; ------------------------
 .proc digger ;
-    mva #3 diggery  ; how many branches (-1)
+    lda #3  ;   diggery  ; how many branches (-1)
     bne babydigger.GoBabydiggerSFX
 .endp
 ; ------------------------
 .proc heavydigger
-    mva #7 diggery  ; how many branches  (-1)
+    lda #7  ; diggery  ; how many branches  (-1)
     bne babydigger.GoBabydiggerSFX
 .endp
 ; ------------------------
 .proc babysandhog
-    mva #1 diggery  ; how many branches (-1)
+    lda #1  ; diggery  ; how many branches (-1)
     bne heavysandhog.GoHeavysandhogSFX
 .endp
 ; ------------------------
 .proc sandhog
-    mva #3 diggery  ; how many branches (-1)
+    lda #3  ; diggery  ; how many branches (-1)
     bne heavysandhog.GoHeavysandhogSFX
 .endp
 ; ------------------------
 .proc heavysandhog
-    mva #5 diggery  ; how many branches (-1)
+    lda #5  ; diggery  ; how many branches (-1)
 GoHeavysandhogSFX
+    sta diggery
     mva #sfx_sandhog sfx_effect
     mva #char_sandhog_offset sandhogflag
     mva #13 DigLong
@@ -522,22 +529,23 @@ DiggerCharacter
 .endp
 ; ------------------------
 .proc dirtclod
-    mva #12 ExplosionRadius
+    lda #12 ; ExplosionRadius
     bne xdirt
 .endp
 ; ------------------------
 .proc dirtball
-    mva #22 ExplosionRadius
+    lda #22 ; ExplosionRadius
     bne xdirt
 .endp
 ; ------------------------
 .proc tonofdirt
-    mva #31 ExplosionRadius
+    lda #31 ; ExplosionRadius
 ;    jmp xdirt
 .endp
 ; -----------------
 .proc xdirt ;
 ; -----------------
+    sta ExplosionRadius
     jsr CalculateExplosionRange
     mva #sfx_dirt_charge sfx_effect
     lda #1