mirror of https://github.com/pret/pokecrystal.git
27 lines
319 B
NASM
27 lines
319 B
NASM
|
BattleCommand_Pursuit: ; 37b1d
|
||
|
|
; pursuit
|
||
|
|
; Double damage if the opponent is switching.
|
||
|
|
|
||
|
|
ld hl, wEnemyIsSwitching
|
||
|
|
ld a, [hBattleTurn]
|
||
|
|
and a
|
||
|
|
jr z, .ok
|
||
|
|
ld hl, wPlayerIsSwitching
|
||
|
|
.ok
|
||
|
|
ld a, [hl]
|
||
|
|
and a
|
||
|
|
ret z
|
||
|
|
|
||
|
|
ld hl, CurDamage + 1
|
||
|
|
sla [hl]
|
||
|
|
dec hl
|
||
|
|
rl [hl]
|
||
|
|
ret nc
|
||
|
|
|
||
|
|
ld a, $ff
|
||
|
|
ld [hli], a
|
||
|
|
ld [hl], a
|
||
|
|
ret
|
||
|
|
|
||
|
|
; 37b39
|