1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
BattleCommand_FrustrationPower:
; frustrationpower
push bc
ld hl, wBattleMonHappiness
ldh a, [hBattleTurn]
and a
jr z, .ok
ld hl, wEnemyMonHappiness
.ok
ld a, $ff
sub [hl]
ldh [hMultiplicand + 2], a
xor a
ldh [hMultiplicand + 0], a
ldh [hMultiplicand + 1], a
ld a, 10
ldh [hMultiplier], a
call Multiply
ld a, 25
ldh [hDivisor], a
ld b, 4
call Divide
ldh a, [hQuotient + 3]
ld d, a
pop bc
ret
|
