2015-12-15 04:09:30 +00:00
|
|
|
PayDayEffect_: ; 2feb8 (b:7eb8)
|
2015-04-01 14:16:43 +00:00
|
|
|
xor a
|
|
|
|
ld hl, wcd6d
|
|
|
|
ld [hli], a
|
|
|
|
ld a, [H_WHOSETURN]
|
|
|
|
and a
|
|
|
|
ld a, [wBattleMonLevel]
|
2015-04-08 10:15:08 +00:00
|
|
|
jr z, .payDayEffect
|
2015-04-01 14:16:43 +00:00
|
|
|
ld a, [wEnemyMonLevel]
|
2015-04-08 10:15:08 +00:00
|
|
|
.payDayEffect
|
|
|
|
; level * 2
|
2015-06-11 22:41:33 +00:00
|
|
|
add a
|
2015-04-01 14:16:43 +00:00
|
|
|
ld [H_DIVIDEND + 3], a
|
|
|
|
xor a
|
|
|
|
ld [H_DIVIDEND], a
|
|
|
|
ld [H_DIVIDEND + 1], a
|
|
|
|
ld [H_DIVIDEND + 2], a
|
2015-06-11 22:41:33 +00:00
|
|
|
; convert to BCD
|
2015-04-08 10:15:08 +00:00
|
|
|
ld a, 100
|
2015-04-01 14:16:43 +00:00
|
|
|
ld [H_DIVISOR], a
|
|
|
|
ld b, $4
|
|
|
|
call Divide
|
|
|
|
ld a, [H_QUOTIENT + 3]
|
2015-06-11 22:41:33 +00:00
|
|
|
ld [hli], a
|
2015-04-01 14:16:43 +00:00
|
|
|
ld a, [H_REMAINDER]
|
|
|
|
ld [H_DIVIDEND + 3], a
|
2015-04-08 10:15:08 +00:00
|
|
|
ld a, 10
|
2015-04-01 14:16:43 +00:00
|
|
|
ld [H_DIVISOR], a
|
|
|
|
ld b, $4
|
|
|
|
call Divide
|
|
|
|
ld a, [H_QUOTIENT + 3]
|
|
|
|
swap a
|
|
|
|
ld b, a
|
|
|
|
ld a, [H_REMAINDER]
|
|
|
|
add b
|
|
|
|
ld [hl], a
|
|
|
|
ld de, wTotalPayDayMoney + 2
|
|
|
|
ld c, $3
|
|
|
|
predef AddBCDPredef
|
|
|
|
ld hl, CoinsScatteredText
|
|
|
|
jp PrintText
|
|
|
|
|
|
|
|
CoinsScatteredText: ; 2ff04 (b:7f04)
|
|
|
|
TX_FAR _CoinsScatteredText
|
|
|
|
db "@"
|