mirror of
https://github.com/pret/pokered.git
synced 2024-10-23 06:58:24 +00:00
45 lines
772 B
NASM
45 lines
772 B
NASM
PayDayEffect_:
|
|
xor a
|
|
ld hl, wPayDayMoney
|
|
ld [hli], a
|
|
ldh a, [hWhoseTurn]
|
|
and a
|
|
ld a, [wBattleMonLevel]
|
|
jr z, .payDayEffect
|
|
ld a, [wEnemyMonLevel]
|
|
.payDayEffect
|
|
; level * 2
|
|
add a
|
|
ldh [hDividend + 3], a
|
|
xor a
|
|
ldh [hDividend], a
|
|
ldh [hDividend + 1], a
|
|
ldh [hDividend + 2], a
|
|
; convert to BCD
|
|
ld a, 100
|
|
ldh [hDivisor], a
|
|
ld b, $4
|
|
call Divide
|
|
ldh a, [hQuotient + 3]
|
|
ld [hli], a ; wPayDayMoney + 1
|
|
ldh a, [hRemainder]
|
|
ldh [hDividend + 3], a
|
|
ld a, 10
|
|
ldh [hDivisor], a
|
|
ld b, $4
|
|
call Divide
|
|
ldh a, [hQuotient + 3]
|
|
swap a
|
|
ld b, a
|
|
ldh a, [hRemainder]
|
|
add b
|
|
ld [hl], a ; wPayDayMoney + 2
|
|
ld de, wTotalPayDayMoney + 2
|
|
ld c, $3
|
|
predef AddBCDPredef
|
|
ld hl, CoinsScatteredText
|
|
jp PrintText
|
|
|
|
CoinsScatteredText:
|
|
text_far _CoinsScatteredText
|
|
text_end
|