mirror of
https://github.com/pret/pokered.git
synced 2024-10-23 23:18:23 +00:00
b2dc57576d
Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm
45 lines
759 B
NASM
45 lines
759 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 "@"
|