Pecus/scorch_src
1
0
Fork 0
mirror of https://github.com/Pecusx/scorch_src.git synced 2026-05-21 14:49:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

WIP: broken inventory

Browse Source
This commit is contained in:
pkali
2022-07-25 00:50:16 -04:00
parent 992130f267
commit 27bc443581
3 changed files with 16 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
display.asm
+7 -6
View File
@@ -125,13 +125,14 @@ MoreDown
dta d" more " dta d" more "
dta 93,93,93 dta 93,93,93
dta d" " dta d" "
GameOverResults ; reuse after game (remember to clear on start new)
ListOfWeapons ListOfWeapons
:36 dta d" " :32 dta d" " ; WARNING! 32 offensive weapons at the moment!
ListOfWeapons1End ListOfWeaponsEnd
GameOverResults ; reuse after game (remember to clear on start new)
ListOfDefensiveWeapons ;ListOfDefensiveWeapons
:16 dta d" " ; :16 dta d" "
ListOfDefensiveWeaponsEnd ;constant useful when clearing ;ListOfDefensiveWeaponsEnd ;constant useful when clearing
WeaponsDescription WeaponsDescription
dta d" " dta d" "
dta d"Tab"* dta d"Tab"*
scorch.xex
BIN
View File
Binary file not shown.
textproc.asm
+9 -9
View File
@@ -479,7 +479,7 @@ NoWeapon
; if we got to the defense weapons, ; if we got to the defense weapons,
; we switch address to the second table. ; we switch address to the second table.
mwa #ListOfDefensiveWeapons xbyte mwa #ListOfWeapons xbyte
NoDefense NoDefense
cpx #$40 cpx #$40
jne CreateList jne CreateList
@@ -534,10 +534,10 @@ ClearList1
bne DoNotIncHigher1 bne DoNotIncHigher1
inc xbyte+1 inc xbyte+1
DoNotIncHigher1 DoNotIncHigher1
cpy #<ListOfWeapons1End cpy #<ListOfWeaponsEnd
bne ClearList1 bne ClearList1
ldx xbyte+1 ldx xbyte+1
cpx #>ListOfWeapons1End cpx #>ListOfWeaponsEnd
bne ClearList1 bne ClearList1
; And the same we do with the second list ; And the same we do with the second list
@@ -564,10 +564,10 @@ DoNotAddX02
; add to the address of the list ; add to the address of the list
clc clc
lda xbyte lda xbyte
adc #<ListOfDefensiveWeapons adc #<ListOfWeapons
tay tay
lda xbyte+1 lda xbyte+1
adc #>ListOfDefensiveWeapons adc #>ListOfWeapons
sta xbyte+1 sta xbyte+1
stx xbyte stx xbyte
txa ; now there is zero here txa ; now there is zero here
@@ -577,10 +577,10 @@ ClearList2
bne DoNotIncHigher2 bne DoNotIncHigher2
inc xbyte+1 inc xbyte+1
DoNotIncHigher2 DoNotIncHigher2
cpy #<ListOfDefensiveWeaponsEnd cpy #<ListOfWeaponsEnd
bne ClearList2 bne ClearList2
ldx xbyte+1 ldx xbyte+1
cpx #>ListOfDefensiveWeaponsEnd cpx #>ListOfWeaponsEnd
bne ClearList2 bne ClearList2
; here we have pretty cool lists and there is no brute force ; here we have pretty cool lists and there is no brute force
@@ -715,7 +715,7 @@ ListChange
jmp ChoosingItemForPurchase jmp ChoosingItemForPurchase
DeffensiveSelected DeffensiveSelected
mwa #ListOfDefensiveWeapons WeaponsListDL mwa #ListOfWeapons WeaponsListDL
lda isInventory lda isInventory
beq @+ beq @+
jsr calcPosDefensive jsr calcPosDefensive
@@ -897,7 +897,7 @@ EraseLoop
beq CharToList1 beq CharToList1
; we are on the second list (deffensive) ; we are on the second list (deffensive)
; so there is no problem with scrolling ; so there is no problem with scrolling
mwa #ListOfDefensiveWeapons xbyte mwa #ListOfWeapons xbyte
ldx PositionOnTheList ldx PositionOnTheList
beq SelectList2 ; if there is 0 we add nothing beq SelectList2 ; if there is 0 we add nothing
AddLoop2 AddLoop2