mirror of
https://github.com/pret/pokered.git
synced 2024-10-23 15:08:23 +00:00
45 lines
756 B
NASM
45 lines
756 B
NASM
PayDayEffect_ ; 2feb8 (b:7eb8)
|
|
xor a
|
|
ld hl, wcd6d
|
|
ld [hli], a
|
|
ld a, [H_WHOSETURN]
|
|
and a
|
|
ld a, [wBattleMonLevel]
|
|
jr z, .payDayEffect
|
|
ld a, [wEnemyMonLevel]
|
|
.payDayEffect
|
|
; level * 2
|
|
add a
|
|
ld [H_DIVIDEND + 3], a
|
|
xor a
|
|
ld [H_DIVIDEND], a
|
|
ld [H_DIVIDEND + 1], a
|
|
ld [H_DIVIDEND + 2], a
|
|
; convert to BCD
|
|
ld a, 100
|
|
ld [H_DIVISOR], a
|
|
ld b, $4
|
|
call Divide
|
|
ld a, [H_QUOTIENT + 3]
|
|
ld [hli], a
|
|
ld a, [H_REMAINDER]
|
|
ld [H_DIVIDEND + 3], a
|
|
ld a, 10
|
|
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 "@"
|