mirror of https://github.com/pret/pokecrystal.git
30 lines
446 B
NASM
30 lines
446 B
NASM
|
BattleCommand_FrustrationPower: ; 3790e
|
||
|
; frustrationpower
|
||
|
|
||
|
push bc
|
||
|
ld hl, BattleMonHappiness
|
||
|
ld a, [hBattleTurn]
|
||
|
and a
|
||
|
jr z, .got_happiness
|
||
|
ld hl, EnemyMonHappiness
|
||
|
.got_happiness
|
||
|
ld a, $ff
|
||
|
sub [hl]
|
||
|
ld [hMultiplicand + 2], a
|
||
|
xor a
|
||
|
ld [hMultiplicand + 0], a
|
||
|
ld [hMultiplicand + 1], a
|
||
|
ld a, 10
|
||
|
ld [hMultiplier], a
|
||
|
call Multiply
|
||
|
ld a, 25
|
||
|
ld [hDivisor], a
|
||
|
ld b, 4
|
||
|
call Divide
|
||
|
ld a, [hQuotient + 2]
|
||
|
ld d, a
|
||
|
pop bc
|
||
|
ret
|
||
|
|
||
|
; 37939
|