GiveMoney::
	ld a, 3
	call AddMoney
	ld bc, MaxMoney
	ld a, 3
	call CompareMoney
	jr c, .not_maxed_out
	jr z, .not_maxed_out
	ld h, b
	ld l, c
	ld bc, 3
	rst CopyBytes
	scf
	ret

.not_maxed_out
	and a
	ret

MaxMoney:
	dt MAX_MONEY

TakeMoney::
	ld a, 3
	call SubtractMoney
	jr nc, .okay
	; leave with 0 money
	xor a
	ld [de], a
	inc de
	ld [de], a
	inc de
	ld [de], a
	scf
	ret

.okay
	and a
	ret

CompareMoney::
	ld a, 3
CompareFunds:
; a: number of bytes
; bc: start addr of amount (big-endian)
; de: start addr of account (big-endian)
; returns z if equal, c if account < amount
	push hl
	push de
	push bc
	ld h, b
	ld l, c
	ld c, a
.loop
	ld a, [de]
	cp [hl]
	jr nz, .done
	inc de
	inc hl
	dec c
	jr nz, .loop
.done
	pop bc
	pop de
	pop hl
	ret

SubtractMoney:
	ld a, 3
SubtractFunds:
; a: number of bytes
; bc: start addr of amount (big-endian)
; de: start addr of account (big-endian)
	push hl
	push de
	push bc
	ld h, b
	ld l, c
	ld b, a
	ld c, 0
.loop
	dec a
	jr z, .done
	inc de
	inc hl
	jr .loop

.done
	and a
.loop2
	ld a, [de]
	sbc [hl]
	ld [de], a
	dec de
	dec hl
	dec b
	jr nz, .loop2
	pop bc
	pop de
	pop hl
	ret

AddMoney:
	ld a, 3
AddFunds:
; a: number of bytes
; bc: start addr of amount (big-endian)
; de: start addr of account (big-endian)
	push hl
	push de
	push bc

	ld h, b
	ld l, c
	ld b, a
.loop1
	dec a
	jr z, .done
	inc de
	inc hl
	jr .loop1

.done
	and a
.loop2
	ld a, [de]
	adc [hl]
	ld [de], a
	dec de
	dec hl
	dec b
	jr nz, .loop2

	pop bc
	pop de
	pop hl
	ret

GiveCoins::
	ld a, 2
	ld de, Coins
	call AddFunds
	ld a, 2
	ld bc, .maxcoins
	call CompareFunds
	jr c, .not_maxed
	ld hl, .maxcoins
	ld a, [hli]
	ld [de], a
	inc de
	ld a, [hli]
	ld [de], a
	scf
	ret

.not_maxed
	and a
	ret

.maxcoins
	bigdw MAX_COINS

TakeCoins::
	ld a, 2
	ld de, Coins
	call SubtractFunds
	jr nc, .okay
	; leave with 0 coins
	xor a
	ld [de], a
	inc de
	ld [de], a
	scf
	ret

.okay
	and a
	ret

CheckCoins::
	ld a, 2
	ld de, Coins
	jp CompareFunds

GiveAsh::
	ld a, 2
	ld de, SootSackAsh
	call AddFunds
	ld a, 2
	ld bc, .maxash
	call CompareFunds
	jr c, .not_maxed
	ld hl, .maxash
	ld a, [hli]
	ld [de], a
	inc de
	ld a, [hli]
	ld [de], a
	scf
	ret

.not_maxed
	and a
	ret

.maxash
	bigdw MAX_ASH

TakeAsh::
	ld bc, hScriptHalfwordVar
	ld a, 2
	ld de, SootSackAsh
	call SubtractFunds
	jr nc, .okay
	; leave with 0
	xor a
	ld [de], a
	inc de
	ld [de], a
	scf
	ret

.okay
	and a
	ret

CheckAsh::
	ld bc, hScriptHalfwordVar
	ld a, 2
	ld de, SootSackAsh
	call CompareFunds
	jr z, .one
	sbc a
	and 2
	ret
.one
	ld a, 1
	ret

GiveOrphanPoints::
	ld a, 2
	ld de, OrphanPoints
	call AddFunds
	ld a, 2
	ld bc, .maxash
	call CompareFunds
	jr c, .not_maxed
	ld hl, .maxash
	ld a, [hli]
	ld [de], a
	inc de
	ld a, [hli]
	ld [de], a
	scf
	ret

.not_maxed
	and a
	ret

.maxash
	bigdw MAX_ASH

TakeOrphanPoints::
	ld bc, hMoneyTemp
	ld a, 2
	ld de, OrphanPoints
	call SubtractFunds
	jr nc, .okay
	; leave with 0
	xor a
	ld [de], a
	inc de
	ld [de], a
	scf
	ret

.okay
	and a
	ret

CheckOrphanPoints::
	ld a, 2
	ld de, OrphanPoints
	jp CompareFunds

GiveBattlePoints:
	ld bc, hMoneyTemp
	ld a, 2
	ld de, BattlePoints
	call AddFunds
	ld a, 2
	ld bc, .maxbp
	call CompareFunds
	jr c, .not_maxed
	ld hl, .maxbp
	ld a, [hli]
	ld [de], a
	inc de
	ld a, [hli]
	ld [de], a
	scf
	ret

.not_maxed
	and a
	ret

.maxbp
	bigdw 999

TakeBattlePoints:
	ld bc, hMoneyTemp
	ld a, 2
	ld de, BattlePoints
	call SubtractFunds
	jr nc, .okay
	; leave with 0
	xor a
	ld [de], a
	inc de
	ld [de], a
	scf
	ret

.okay
	and a
	ret

CheckBattlePoints:
	ld a, 2
	ld de, BattlePoints
	jp CompareFunds
