From c954e5fd740bc2c597a85fcfba36acbb56fffbe5 Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Tue, 13 Jun 2023 15:04:50 +0200
Subject: [PATCH] Better place for clearing weapons lists (no flicker)

---
 Atari/textproc.asm |   5 +++--
 scorch.bin         | Bin 32768 -> 32768 bytes
 scorch.xex         | Bin 56540 -> 56540 bytes
 3 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/Atari/textproc.asm b/Atari/textproc.asm
index 6c8c2de..eb7d4b1 100644
--- a/Atari/textproc.asm
+++ b/Atari/textproc.asm
@@ -281,11 +281,13 @@ AfterManualPurchase
 
     mwa #ListOfWeapons WeaponsListDL ;switch to the list of offensive weapons
 
-; we are clearing list of the weapons
     mva #$00 WhichList
     ; offensive weapon - 0, deffensive - %10000000
 GoToActivation
     mva #$ff LastWeapon
+    
+; we are clearing list of the weapons    
+    jsr ClearLists  ; fast lists clear
 
     SetDLI DLIinterruptText  ; jsr SetDLI for text (purchase) screen
     jsr PMoutofScreen
@@ -343,7 +345,6 @@ AfterPurchase
     ; in xbyte there is the address of the line that
     ; is being processed now
     mwa #ListOfWeapons xbyte
-    jsr ClearLists  ; fast lists clear
     ldx #$00  ; index of the checked weapon
     stx HowManyOnTheListOff ; amounts of weapons (shells, bullets) in both lists
     stx HowManyOnTheListDef
diff --git a/scorch.bin b/scorch.bin
index cb4f5b962c87eb7bbbc514e7ed5a47fea7503ed0..f9b5c65fb893548d5b6473229d0b5901014ad3e7 100644
GIT binary patch
delta 29
lcmZo@U}|V!+TbG3tk94$*+o8g^A>q+X2yw|A1Eor0sxb}3Hks4

delta 29
kcmZo@U}|V!+TbET*<C)DS)n0i^A>q+X2!nF50n&Q0hLq<`Tzg`

diff --git a/scorch.xex b/scorch.xex
index f6df9f260b37e2134b783c0a56a50504e92563a2..bf1fbd5910b0284dd150d1468efe9d01ae033a50 100644
GIT binary patch
delta 29
lcmcb!lljh0<_+s=m=!WoCa<e0-mFrq&CFQ2IiR5@1^~*%43Pi;

delta 29
lcmcb!lljh0<_+s=CU2}MW>&~Z*{o8l&CFP~IiR5@1_00S43Pi;