money / coins hram constants

This commit is contained in:
YamaArashi 2015-07-17 01:21:40 -07:00
parent aa3da5f3b0
commit 6931ce9625
13 changed files with 95 additions and 89 deletions

View file

@ -179,11 +179,11 @@ LoadCoinsToSubtract: ; 528b1 (14:68b1)
ld hl,wd141 ; first prize's price
add hl,de ; get selected prize's price
xor a
ld [$FF9F],a
ld [hCoins - 1],a
ld a,[hli]
ld [$FFA0],a
ld [hCoins],a
ld a,[hl]
ld [$FFA1],a
ld [hCoins + 1],a
ret
HandlePrizeChoice: ; 528c6 (14:68c6)
@ -239,7 +239,7 @@ HandlePrizeChoice: ; 528c6 (14:68c6)
ret nc
.SubtractCoins
call LoadCoinsToSubtract
ld hl,$FFA1
ld hl,hCoins + 1
ld de,wPlayerCoins + 1
ld c,$02 ; how many bytes
predef SubBCDPredef ; subtract coins (BCD daa operations)

View file

@ -37,10 +37,10 @@ VendingMachineMenu: ; 74ee0 (1d:4ee0)
cp 3 ; chose Cancel?
jr z, .notThirsty
xor a
ld [$ff9f], a
ld [$ffa1], a
ld [hMoney], a
ld [hMoney + 2], a
ld a, $2
ld [$ffa0], a
ld [hMoney + 1], a
call HasEnoughMoney
jr nc, .enoughMoney
ld hl, VendingMachineText4