mirror of
https://github.com/pret/pokeyellow.git
synced 2026-05-19 09:22:40 -05:00
46 lines
758 B
NASM
46 lines
758 B
NASM
PayDayEffect_ ; f6511 (3d:6511)
|
|
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: ; f655d (3d:655d)
|
|
TX_FAR _CoinsScatteredText
|
|
db "@"
|