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

Money calculations opty.

Browse Source
This commit is contained in:
Pecusx
2023-12-28 18:34:01 +01:00
parent 84b5904f44
commit 5901af397d
2 changed files with 16 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files
game.asm
+16 -18
View File
@@ -123,24 +123,23 @@ CalculateGainsLoop
; if lose is greater than money then zero money
lda moneyH,x
cmp loseH,x
bcc zeromoney
bne substractlose
bne @+
lda moneyL,x
cmp loseL,x
bcc zeromoney
@ bcs substractlose
zeromoney
lda #0
sta moneyL,x
sta moneyH,x
beq skipzeroing
substractlose
sec
; sec ; C is allways set at this point
lda moneyL,x
sbc loseL,x
sta moneyL,x
lda moneyH,x
sbc loseH,x
sta moneyH,x
jmp skipzeroing
zeromoney
lda #0
sta moneyL,x
sta moneyH,x
skipzeroing
; and earned money for summary
clc
@@ -154,24 +153,23 @@ skipzeroing
; if lose is greater than money then zero money
lda EarnedMoneyH,x
cmp loseH,x
bcc ezeromoney
bne esubstractlose
bne @+
lda EarnedMoneyL,x
cmp loseL,x
bcc ezeromoney
@ bcs esubstractlose
ezeromoney
lda #0
sta EarnedMoneyL,x
sta EarnedMoneyH,x
beq eskipzeroing
esubstractlose
sec
; sec ; C is allways set at this point
lda EarnedMoneyL,x
sbc loseL,x
sta EarnedMoneyL,x
lda EarnedMoneyH,x
sbc loseH,x
sta EarnedMoneyH,x
jmp eskipzeroing
ezeromoney
lda #0
sta EarnedMoneyL,x
sta EarnedMoneyH,x
eskipzeroing
dex