Pecus/scorch_src
1
0
Fork 0
mirror of https://github.com/Pecusx/scorch_src.git synced 2026-05-20 22:33:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

Better place for clearing weapons lists (no flicker)

Browse Source
This commit is contained in:
Pecusx
2023-06-13 15:04:50 +02:00
parent 5d3248fb96
commit c954e5fd74
3 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Atari/textproc.asm
+3 -2
View File
@@ -281,12 +281,14 @@ AfterManualPurchase
mwa #ListOfWeapons WeaponsListDL ;switch to the list of offensive weapons mwa #ListOfWeapons WeaponsListDL ;switch to the list of offensive weapons
; we are clearing list of the weapons
mva #$00 WhichList mva #$00 WhichList
; offensive weapon - 0, deffensive - %10000000 ; offensive weapon - 0, deffensive - %10000000
GoToActivation GoToActivation
mva #$ff LastWeapon mva #$ff LastWeapon
; we are clearing list of the weapons
jsr ClearLists ; fast lists clear
SetDLI DLIinterruptText ; jsr SetDLI for text (purchase) screen SetDLI DLIinterruptText ; jsr SetDLI for text (purchase) screen
jsr PMoutofScreen jsr PMoutofScreen
mwa #PurchaseDL dlptrs mwa #PurchaseDL dlptrs
@@ -343,7 +345,6 @@ AfterPurchase
; in xbyte there is the address of the line that ; in xbyte there is the address of the line that
; is being processed now ; is being processed now
mwa #ListOfWeapons xbyte mwa #ListOfWeapons xbyte
jsr ClearLists ; fast lists clear
ldx #$00 ; index of the checked weapon ldx #$00 ; index of the checked weapon
stx HowManyOnTheListOff ; amounts of weapons (shells, bullets) in both lists stx HowManyOnTheListOff ; amounts of weapons (shells, bullets) in both lists
stx HowManyOnTheListDef stx HowManyOnTheListDef
scorch.bin
BIN
View File
Binary file not shown.
scorch.xex
BIN
View File
Binary file not shown.