pokered/engine/subtract_paid_money.asm

; subtracts the amount the player paid from their money
; sets carry flag if there is enough money and unsets carry flag if not
SubtractAmountPaidFromMoney_:
	ld de, wPlayerMoney
	ld hl, hMoney ; total price of items
	ld c, 3 ; length of money in bytes
	call StringCmp
	ret c
	ld de, wPlayerMoney + 2
	ld hl, hMoney + 2 ; total price of items
	ld c, 3 ; length of money in bytes
	predef SubBCDPredef ; subtract total price from money
	ld a, MONEY_BOX
	ld [wTextBoxID], a
	call DisplayTextBoxID ; redraw money text box
	and a
	ret
split bank 1 into files 2016-09-18 01:17:57 +00:00			`; subtracts the amount the player paid from their money`
			`; sets carry flag if there is enough money and unsets carry flag if not`
			`SubtractAmountPaidFromMoney_:`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`ld de, wPlayerMoney`
			`ld hl, hMoney ; total price of items`
			`ld c, 3 ; length of money in bytes`
split bank 1 into files 2016-09-18 01:17:57 +00:00			`call StringCmp`
			`ret c`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`ld de, wPlayerMoney + 2`
			`ld hl, hMoney + 2 ; total price of items`
			`ld c, 3 ; length of money in bytes`
split bank 1 into files 2016-09-18 01:17:57 +00:00			`predef SubBCDPredef ; subtract total price from money`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`ld a, MONEY_BOX`
			`ld [wTextBoxID], a`
split bank 1 into files 2016-09-18 01:17:57 +00:00			`call DisplayTextBoxID ; redraw money text box`
			`and a`
			`ret`