starred/scorch_src
1
0
Fork 0
mirror of https://github.com/pkali/scorch_src.git synced 2026-05-20 22:34:21 +02:00
Code Issues 29 Packages Projects Releases 10 Wiki Activity

Wrap up and down inventory and shop scrolling #111

Browse Source
This commit is contained in:
Pecusx
2022-11-05 18:10:42 +01:00
parent e717306400
commit 2d1cecfb10
4 changed files with 11 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
textproc.asm
+10 -11
View File
@@ -419,17 +419,17 @@ PurchaseKeyUp
bpl GoUpOffensive
dec PositionOnTheList
bpl EndUpX
ldy #0 ;HowManyOnTheListDef
;dey
ldy HowManyOnTheListDef
dey
sty PositionOnTheList
jmp ChoosingItemForPurchase
jmp MakeOffsetDown
GoUpOffensive
dec PositionOnTheList
bpl MakeOffsetUp
ldy #0 ;HowManyOnTheListOff
;dey
ldy HowManyOnTheListOff
dey
sty PositionOnTheList
jmp MakeOffsetDown
MakeOffsetUp
; If offset is larger than pointer position,
; it must be equal then.
@@ -445,17 +445,16 @@ PurchaseKeyDown
inc:lda PositionOnTheList
cmp HowManyOnTheListDef
bne EndGoDownX
ldy HowManyOnTheListDef
dey
ldy #0
sty PositionOnTheList
jmp ChoosingItemForPurchase
beq MakeOffsetUp
GoDownOffensive
inc:lda PositionOnTheList
cmp HowManyOnTheListOff
bne MakeOffsetDown
ldy HowManyOnTheListOff
dey
ldy #0
sty PositionOnTheList
beq MakeOffsetUp
MakeOffsetDown
lda OffsetDL1
clc