Pecus/scorch_src
1
0
Fork 0
mirror of https://github.com/Pecusx/scorch_src.git synced 2026-05-21 06:39:40 +02:00
Code Issues Packages Projects Releases 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
scorch.asm
+1 -1
View File
@@ -15,7 +15,7 @@
;--------------------------------------------------- ;---------------------------------------------------
.macro build .macro build
dta d"1.17" ; number of this build (4 bytes) dta d"1.18" ; number of this build (4 bytes)
.endm .endm
.macro RMTSong .macro RMTSong
scorch.bin
BIN
View File
Binary file not shown.
scorch.xex
BIN
View File
Binary file not shown.
textproc.asm
+10 -11
View File
@@ -419,17 +419,17 @@ PurchaseKeyUp
bpl GoUpOffensive bpl GoUpOffensive
dec PositionOnTheList dec PositionOnTheList
bpl EndUpX bpl EndUpX
ldy #0 ;HowManyOnTheListDef ldy HowManyOnTheListDef
;dey dey
sty PositionOnTheList sty PositionOnTheList
jmp ChoosingItemForPurchase jmp MakeOffsetDown
GoUpOffensive GoUpOffensive
dec PositionOnTheList dec PositionOnTheList
bpl MakeOffsetUp bpl MakeOffsetUp
ldy #0 ;HowManyOnTheListOff ldy HowManyOnTheListOff
;dey dey
sty PositionOnTheList sty PositionOnTheList
jmp MakeOffsetDown
MakeOffsetUp MakeOffsetUp
; If offset is larger than pointer position, ; If offset is larger than pointer position,
; it must be equal then. ; it must be equal then.
@@ -445,17 +445,16 @@ PurchaseKeyDown
inc:lda PositionOnTheList inc:lda PositionOnTheList
cmp HowManyOnTheListDef cmp HowManyOnTheListDef
bne EndGoDownX bne EndGoDownX
ldy HowManyOnTheListDef ldy #0
dey
sty PositionOnTheList sty PositionOnTheList
jmp ChoosingItemForPurchase beq MakeOffsetUp
GoDownOffensive GoDownOffensive
inc:lda PositionOnTheList inc:lda PositionOnTheList
cmp HowManyOnTheListOff cmp HowManyOnTheListOff
bne MakeOffsetDown bne MakeOffsetDown
ldy HowManyOnTheListOff ldy #0
dey
sty PositionOnTheList sty PositionOnTheList
beq MakeOffsetUp
MakeOffsetDown MakeOffsetDown
lda OffsetDL1 lda OffsetDL1
clc clc