From c121d08c2323547b8224c05ccd1cfd81d5e95686 Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Fri, 25 Aug 2023 09:03:21 +0200
Subject: [PATCH] And more bytes :)

---
 ai.asm     |  34 ++++++++++++++++------------------
 scorch.bin | Bin 32768 -> 32768 bytes
 scorch.xex | Bin 56584 -> 56579 bytes
 3 files changed, 16 insertions(+), 18 deletions(-)

diff --git a/ai.asm b/ai.asm
index 2499000..e88a2b0 100644
--- a/ai.asm
+++ b/ai.asm
@@ -20,6 +20,16 @@ AIRoutines
     .word Spoiler-1 ;Spoiler
     .word Cyborg-1 ;Cyborg
     .word Unknown-1 ;Unknown
+;----------------
+PurchaseAIRoutines
+    .word MoronPurchase-1
+    .word ShooterPurchase-1 ;ShooterPurchase
+    .word PoolsharkPurchase-1 ;PoolsharkPurchase
+    .word TosserPurchase-1 ;TosserPurchase
+    .word TosserPurchase-1 ;ChooserPurchase
+    .word CyborgPurchase-1 ;SpoilerPurchase
+    .word CyborgPurchase-1 ;CyborgPurchase
+    .word TosserPurchase-1 ;UnknownPurchase
 
 ;----------------------------------------------
 .proc ArtificialIntelligence ;
@@ -29,10 +39,9 @@ AIRoutines
 ;----------------------------------------------
     asl
     tay
-    :2 dey  ;credit KK
-    lda AIRoutines+1,y
+    lda AIRoutines-1,y  ; -1 and -2 because AI players are numbered from 1 not from 0 (Human)
     pha
-    lda AIRoutines,y
+    lda AIRoutines-2,y
     pha
 ;    it's no necessary - PrepareAIShoot is next proc :)
 ;    jsr PrepareAIShoot
@@ -845,6 +854,7 @@ skipThisPlayer
 TankHit
     rts
 .endp
+
 ;----------------------------------------------
 .proc PurchaseAI ;
 ; A - skill of the TankNr
@@ -853,25 +863,13 @@ TankHit
 ;----------------------------------------------
     asl
     tax
-    :2 dex  ;credit KK
-    lda PurchaseAIRoutines+1,x
+    lda PurchaseAIRoutines-1,x  ; -1 and -2 because AI players are numbered from 1 not from 0 (Human)
     pha
-    lda PurchaseAIRoutines,x
+    lda PurchaseAIRoutines-2,x
     pha
-    rts
+ ;   rts    ; MoronPurchase has rts :)
     .endp
 
-;----------------
-PurchaseAIRoutines
-    .word MoronPurchase-1
-    .word ShooterPurchase-1 ;ShooterPurchase
-    .word PoolsharkPurchase-1 ;PoolsharkPurchase
-    .word TosserPurchase-1 ;TosserPurchase
-    .word TosserPurchase-1 ;ChooserPurchase
-    .word CyborgPurchase-1 ;SpoilerPurchase
-    .word CyborgPurchase-1 ;CyborgPurchase
-    .word TosserPurchase-1 ;UnknownPurchase
-
 ;----------------------------------------------
 .proc MoronPurchase
 ;Moron buys nothing
diff --git a/scorch.bin b/scorch.bin
index 32c1a75b0f74602d00d0a8a34152a647ea5bf400..7f891c18cdfe8c12c29a208a4eea93f74459f801 100644
GIT binary patch
delta 667
zcmZo@U}|V!+OUzA@!aN3yekA5KW&bdpC-;|xA~J<GApD1<}e#qM#l4-=h!X~Wq&zc
zL1m^-^knDYAhjFQmu0EM7;q^pou#mC@=Ase913AzRzvI5l?<&h2|dSn6~1iV9o)>s
zC^y+YOq9`Pb7)v3qsG7K@-r69Xr9?K^VUp_S)Zr>o|8Lw!rZMu_yh>I&gELMbM17G
zoogna2-jddKlx+0Jfp;9!3cB4uF0Me9$aGc6!>N;c+6B-I(c@4hV1(ptyfm+^i~P2
zWbCaLTDhmUMrb8dZ>^AmaG;Oa<OdOoj4G3vBHb9HCwoTfNdt9;&h%M617t+#%#{p4
zCxe|iOF?Y%q)2^vop~qOHn6T_nA^jffTm{M9H5#9k@|WlYW~jvnUexFXWg6yED93y
zmM)r`$Gdd#+!9^|oz1pUqKqtmW-HW84vRJrOqy-6^vX-t)+@)ZtYmF10g6tK)@EEh
z`Eax*iwa252cV)qvn7^Z$pk8T22*4hqb+DV$71Ospw>kjn2s$zcE#uZ<lGn&#xIi>
z#h8l!oVDf{@6x>j%pC$}6S!9G-8<c5@1E%%lNn=0fc_VY&8!!iyOO1~Y%SO8lYAR~
zW-=-W%{^9j;X}f*ERYZ<P)HFhw2}>?NCs8WUSVD@hy+5Zzz3ix7rJr*keTSp|IV5G
zFIJ4{@0`tIaj&>1Z^&fbl(mkTF@Ey;+$kLXD_cJ;{UI4J**i~?J$dEa`4T%THfQHe
G6$Ak5XdTZ0

delta 662
zcmZ9GUr1A77{<?c+|*8-*qQ8~OZG_-is2N>ED8xJht7*~?oZof&@S4dVPRgR#vl%O
z;cog`XJ_u%(2n>;>GD7@Yh4Z$g@i*lT|`g=6UN+C-Bf4O0^_}Td7j_%@I<3zG)iV(
z)8M_dN-r_stK_vjHGp2J+;vk89Fp_m6#!%@bt$c@`@}&#Zy!XxL)TAjaEsxSz77g<
zN%#g~qEruU)i27%F~Rx*GkF>oq_;zlNN@u6ICbE%H0<<%#uCRQ9w+Ye5BW{LG5L+7
zmZqn(E1WI6j6S+rz!v)LvVbOJai0T|$mO<C<~d04@B$AxgxxJoUlOd0Psbi;F^ElQ
z@w?ch7L&0lEo``EH>0Av8R(J5a}^9Cm#5vVB>Q+fpQu#y@t9CXR)-~_8Kpf|OXu8r
zZAOg=VTKO;$D~sVQ}kHd4>5a*N>A{hC!I>GVAGs9FGOf@K^UW9r!;Uw2UNvb7(qdA
z2jiIS7Udl^E9YgbX2%p&^tORG+V-}p^cCor0u^VCq8w77!e6Mz*Tz^=-Qv6wozIZ@
zg}iLvMiag>pnx*Ivpu`Xmw8&uX=<i5TLJ3D#zwB3vgP(twg4gA6XL>}ay!bc34tZ{
zZhwD2JDMd-&qvR1x=SPWR>b&2T?PTG*zs4??)tIJ&k%qHAwT}16j%&bq$7&dT$OO`
zK6HE^LK(l&P(d}NTmwxV_CEWKjpRR%I&h(qBp@kB%*gkntKsDu5JW3?p42-qTNZzq
VhS5O8RCfyt&y3kA>2@T}`~kBr7Igps

diff --git a/scorch.xex b/scorch.xex
index 05ebf1917cf2e248ce2bee0c81484b35242fd2ab..2036e25d1ac5ce0c565492b3632a46802d2fce80 100644
GIT binary patch
delta 674
zcmZ9`Ur19?90%|n_eZ-iyO!dn=8j;wWtc>kzW6XK#uzLRVuIL+Mcbk<5?^Mt5obs$
zJ{-e)x7`)f>vp1IcHN&l+w01tTryCE1YauOM!hJ#bT=(9&dWL9@8|sZjc4RfGV=Hx
z2S^J}M??koh2wWW)PQE8Ft%0?+`|0KZ6)vsRNyM8{EeKv%M}xD1W8?GEd#Br#gA2s
z{b%LOg1dFFlY;pG+{Q#!tb)Gs&5NE985*=t=G0IpJYMuy)SJ;FiK4f}fi|RSlQbh=
zzLq$JrlkR(H!x;qm3hOaSY@C;(9E=PEccGvkq#ZE!#f-m6E|l~;s%~h=)oFJCv>0>
zZzisQ1g4WF${2<{EPTkqJie9Gg9bd2Yy?IeO|}3lUP)d9eoUu28YSapE$d7Pds!lr
zmMt$Bgho7&x^Tu8UQxxBM8-|3?f;pr5HyCn`N-}?d^6R6-=|J=9MR{>6CH;Ww?Z!z
zurJI<xch2;jvG-!o1jS70YzH~M)7H}vt}yT%@=l+sE{iVB^r^^A+a5N#!p3q!WxvG
zDG9ZOG<?A&p>KcDp4fiU87l3eM3Hz!ZZ21_P$Arvxde3Bo#{H?8hn*g^I2LxPJgmf
zFS9>pP1*0WCVLD$Fq_S2Sd?k!hkJas;*jM!-p;r#_i{vmMqg9wE7kFR7l6H7ZZu!C
zFStw5F)3;(M?`ginhp?tw5(|?QM#BtrKXN_r4;*?Yqf@dJ#{Fc^jiiE!q??r)nEdD
e`8ZSMA?PQ+ryaxhR<)JWgnO<L=Y^?NPt6|%RVsi0

delta 722
zcmZ9GQAkr!9L9Il&0Nj4YI?WnI)a5^tPw>9L5SGq82AuHg~lExI?GZMF)CEz#vXhq
zj^VC%=PJ{yo+y~zwsmJ0OyZWNC~-xN=yBoOD8hmsx|_Zz|Cc}C@5jgYIGGzv=0=<S
zKoVN~5gphR_TTzs0!Bf3xLgeG3gd%KTF@uxhigH;hHl{l0U}&wi8)^vg4K+-2kE9S
zAOAfx(OTZ%)Wf-9_#F{VdLO)({rc$VL_;_D24n*?3BA)#a*FHeX);N_CVqNNMeD>)
z_pclwZ9>VL>%eLYT?k2`QHC&EOzp5Sq@M}~#jitdaRcF41z19I>?o*1sn|I%iR^K=
z-o?R61~xHp4z<TCzyZX>ZNP<M@iI`2*5a2y53(m5Hr455ydOdtxsxFpbzXK73tgx=
zaq3tjH?NCoi3SfCe0!Y5Fm!QMd}Q-9YD-wrYT}?{mtB%=^zSq-hDY;Y9mhxT9Rojx
zy9}^VIP}&G@+@J<pi0qc>Se2VWm8KlvO=_Umzv%dE5R%Zi6;uGS;&OTSDoLGQ!GV4
z#KIy=nBtXyYNvMW3}#V>SZa$Fq!hU;ZS>v<XXa_?NHj+tlNIkj7S$xr02As-p1oMa
zzLX8TWXug3mwfsc3k#ARyQNa>_MOBWeveb?nK?6;!oDfG!{hPL?V`pq-hRISTKcB<
z3ff2p>T58`qq|?}zswg#{{{f8!E*OX+Beafi3-%HEE^Hswp6lPk`5a@+h9jU&t}Zl
zOouVku@^hg>`XCm2<tPy3c*vfxG-4JN9dpYA4@;MTa@&XN|()p6{|EtQID1>>fLAR
P{vg34lt_f&=Le?$g3CmI