pokecrystal-board/battle/effect_commands.asm

DoPlayerTurn: ; 34000
	call SetPlayerTurn

	ld a, [$d0ec]
	and a
	ret nz

	jr DoTurn
; 3400a


DoEnemyTurn: ; 3400a
	call SetEnemyTurn

	ld a, [InLinkBattle]
	and a
	jr z, DoTurn

	ld a, [$d430]
	cp $e
	jr z, DoTurn
	cp $4
	ret nc

	; fallthrough
; 3401d


DoTurn: ; 3401d
; Read in and execute the user's move effects for this turn.

	xor a
	ld [$c6b4], a

; Effect command checkturn is called for every move.
	call CheckTurn

	ld a, [$c6b4]
	and a
	ret nz

	call UpdateMoveData
; 3402c


DoMove: ; 3402c
; Get the user's move effect.
	ld a, BATTLE_VARS_MOVE_EFFECT
	call CleanGetBattleVarPair
	ld c, a
	ld b, 0
	ld hl, MoveEffectsPointers
	add hl, bc
	add hl, bc
	ld a, BANK(MoveEffectsPointers)
	call GetFarHalfword

	ld de, BattleScriptBuffer

.GetMoveEffect
	ld a, BANK(MoveEffects)
	call GetFarByte
	inc hl
	ld [de], a
	inc de
	cp $ff
	jr nz, .GetMoveEffect

; Start at the first command.
	ld hl, BattleScriptBuffer
	ld a, l
	ld [BattleScriptBufferLoc], a
	ld a, h
	ld [BattleScriptBufferLoc + 1], a

.ReadMoveEffectCommand

; ld a, [BattleScriptBufferLoc++]
	ld a, [BattleScriptBufferLoc]
	ld l, a
	ld a, [BattleScriptBufferLoc + 1]
	ld h, a

	ld a, [hli]

	push af
	ld a, l
	ld [BattleScriptBufferLoc], a
	ld a, h
	ld [BattleScriptBufferLoc + 1], a
	pop af

; $fe is used to terminate branches without ending the read cycle.
	cp $fe
	ret nc

; The rest of the commands (01-af) are read from BattleCommandPointers.
	push bc
	dec a
	ld c, a
	ld b, 0
	ld hl, BattleCommandPointers
	add hl, bc
	add hl, bc
	pop bc

	ld a, BANK(BattleCommandPointers)
	call GetFarHalfword

	call .DoMoveEffectCommand

	jr .ReadMoveEffectCommand

.DoMoveEffectCommand
	jp [hl]
; 34084


CheckTurn:
BattleCommand01: ; 34084
; checkturn

; Repurposed as hardcoded turn handling. Useless as a command.

; Move $ff immediately ends the turn.
	ld a, BATTLE_VARS_MOVE
	call CleanGetBattleVarPair
	inc a
	jp z, Function0x34385

	xor a
	ld [AttackMissed], a
	ld [EffectFailed], a
	ld [$c689], a
	ld [AlreadyDisobeyed], a
	ld [AlreadyFailed], a
	ld [$c73e], a

	ld a, 10 ; 1.0
	ld [TypeModifier], a

	ld a, [hBattleTurn]
	and a
	jp nz, CheckEnemyTurn


CheckPlayerTurn:

; check recharge
	ld hl, PlayerSubStatus4
	bit 5, [hl]
	jr z, .CheckSleep
	res 5, [hl]

; 'must recharge!'
	ld hl, MustRechargeText
	call FarBattleTextBox

	call CantMove
	jp Function0x34385


.CheckSleep
	ld hl, BattleMonStatus
	ld a, [hl]
	and $7
	jr z, .CheckFrozen
	dec a
	ld [BattleMonStatus], a
	and $7
	jr z, .WokeUp
	xor a
	ld [$cfca], a
	ld de, ANIM_SLEEP
	call FarPlayBattleAnimation
	jr .FastAsleep


.WokeUp
; 'woke up!'
	ld hl, WokeUpText
	call FarBattleTextBox

	call CantMove
	call UpdateBattleMonInParty
	ld hl, $5f48
	call CallBankF
	ld a, $1
	ld [$ffd4], a
	ld hl, PlayerSubStatus1
	res 0, [hl]
	jr .CheckFrozen


.FastAsleep
; 'fast asleep!'
	ld hl, FastAsleepText
	call FarBattleTextBox

; Snore and Sleep Talk bypass sleep.
	ld a, [CurPlayerMove]
	cp SNORE
	jr z, .CheckFrozen
	cp SLEEP_TALK
	jr z, .CheckFrozen
	call CantMove
	jp Function0x34385


.CheckFrozen
	ld hl, BattleMonStatus
	bit 5, [hl]
	jr z, .CheckFlinch

; Flame Wheel and Sacred Fire thaw the user.
	ld a, [CurPlayerMove]
	cp FLAME_WHEEL
	jr z, .CheckFlinch
	cp SACRED_FIRE
	jr z, .CheckFlinch

; 'frozen solid!'
	ld hl, FrozenSolidText
	call FarBattleTextBox

	call CantMove
	jp Function0x34385


.CheckFlinch
	ld hl, PlayerSubStatus3
	bit 3, [hl] ; flinch
	jr z, .CheckDisabled

	res 3, [hl]

; 'flinched!'
	ld hl, FlinchedText
	call FarBattleTextBox

	call CantMove
	jp Function0x34385


.CheckDisabled
	ld hl, PlayerDisableCount
	ld a, [hl]
	and a
	jr z, .CheckConfused
	dec a
	ld [hl], a
	and $f
	jr nz, .CheckConfused
	ld [hl], a
	ld [DisabledMove], a

; 'disabled no more!'
	ld hl, DisabledNoMoreText
	call FarBattleTextBox


.CheckConfused
	ld a, [PlayerSubStatus3]
	add a
	jr nc, .CheckAttract
	ld hl, PlayerConfuseCount
	dec [hl]
	jr nz, .Confused

	ld hl, PlayerSubStatus3
	res 7, [hl]

; 'confused no more!'
	ld hl, ConfusedNoMoreText
	call FarBattleTextBox

	jr .CheckAttract


.Confused
; 'confused!'
	ld hl, IsConfusedText
	call FarBattleTextBox

	xor a
	ld [$cfca], a
	ld de, ANIM_CONFUSED
	call FarPlayBattleAnimation

; 50% chance of hitting itself
	call FarBattleRNG
	cp $80
	jr nc, .CheckAttract

	ld hl, PlayerSubStatus3
	ld a, [hl]
	and $80
	ld [hl], a

	call HitConfusion

	call CantMove
	jp Function0x34385


.CheckAttract
	ld a, [PlayerSubStatus1]
	add a ; check bit 7
	jr nc, .CheckDisabledMove

; 'in love with'
	ld hl, InLoveWithText
	call FarBattleTextBox

	xor a
	ld [$cfca], a

	ld de, ANIM_INLOVE
	call FarPlayBattleAnimation

; 50% chance of infatuation
	call FarBattleRNG
	cp $80
	jr c, .CheckDisabledMove

; 'infatuation kept it from attacking!'
	ld hl, InfatuationText
	call FarBattleTextBox

	call CantMove
	jp Function0x34385


.CheckDisabledMove
; We can't disable a move that doesn't exist.
	ld a, [DisabledMove]
	and a
	jr z, .CheckParalyzed

; Are we using the disabled move?
	ld hl, CurPlayerMove
	cp [hl]
	jr nz, .CheckParalyzed

	call MoveDisabled
	call CantMove
	jp Function0x34385


.CheckParalyzed
	ld hl, BattleMonStatus
	bit 6, [hl]
	ret z

; 25% chance to be fully paralyzed
	call FarBattleRNG
	cp $3f
	ret nc

; 'fully paralyzed!'
	ld hl, FullyParalyzedText
	call FarBattleTextBox
	call CantMove
	jp Function0x34385
; 341f0


CantMove: ; 341f0
	ld a, BATTLE_VARS_SUBSTATUS1
	call GetBattleVarPair
	res 6, [hl]

	ld a, BATTLE_VARS_SUBSTATUS3
	call GetBattleVarPair
	ld a, [hl]
	and $ec
	ld [hl], a

	call ResetFuryCutterCount

	ld a, BATTLE_VARS_MOVE_ANIM
	call CleanGetBattleVarPair
	cp FLY
	jr z, .asm_3420f

	cp $5b
	ret nz

.asm_3420f
	res 5, [hl]
	res 6, [hl]
	jp Function0x37ece
; 34216



Function0x34216: ; 34216
	call SwitchTurn
	call CantMove
	jp SwitchTurn
; 3421f



CheckEnemyTurn: ; 3421f

; check recharge
	ld hl, EnemySubStatus4
	bit 5, [hl]
	jr z, .CheckSleep
	res 5, [hl]

; 'must recharge!'
	ld hl, MustRechargeText
	call FarBattleTextBox
	call CantMove
	jp Function0x34385


.CheckSleep
	ld hl, EnemyMonStatus
	ld a, [hl]
	and $7
	jr z, .CheckFrozen
	dec a
	ld [EnemyMonStatus], a
	and a
	jr z, .WokeUp

; 'fast asleep!'
	ld hl, FastAsleepText
	call FarBattleTextBox
	xor a
	ld [$cfca], a
	ld de, ANIM_SLEEP
	call FarPlayBattleAnimation
	jr .FastAsleep


.WokeUp
; 'woke up!'
	ld hl, WokeUpText
	call FarBattleTextBox
	call CantMove
	call UpdateEnemyMonInParty
	ld hl, $6036
	call CallBankF
	ld a, $1
	ld [$ffd4], a
	ld hl, EnemySubStatus1
	res 0, [hl]
	jr .CheckFrozen


.FastAsleep
; Snore and Sleep Talk bypass sleep.
	ld a, [CurEnemyMove]
	cp SNORE
	jr z, .CheckFrozen
	cp SLEEP_TALK
	jr z, .CheckFrozen
	call CantMove
	jp Function0x34385


.CheckFrozen
	ld hl, EnemyMonStatus
	bit 5, [hl]
	jr z, .CheckFlinch
	ld a, [CurEnemyMove]
	cp $ac
	jr z, .CheckFlinch
	cp $dd
	jr z, .CheckFlinch

; 'frozen solid!'
	ld hl, FrozenSolidText
	call FarBattleTextBox
	call CantMove
	jp Function0x34385


.CheckFlinch
	ld hl, EnemySubStatus3
	bit 3, [hl]
	jr z, .CheckDisabled

	res 3, [hl]

; 'flinched!'
	ld hl, FlinchedText
	call FarBattleTextBox

	call CantMove
	jp Function0x34385


.CheckDisabled
	ld hl, EnemyDisableCount
	ld a, [hl]
	and a
	jr z, .CheckConfused

	dec a
	ld [hl], a
	and $f
	jr nz, .CheckConfused

	ld [hl], a
	ld [EnemyDisabledMove], a

; 'disabled no more!'
	ld hl, DisabledNoMoreText
	call FarBattleTextBox


.CheckConfused
	ld a, [EnemySubStatus3]
	add a
	jr nc, .CheckAttract

	ld hl, $c67b
	dec [hl]
	jr nz, .Confused

	ld hl, EnemySubStatus3
	res 7, [hl]

; 'confused no more!'
	ld hl, ConfusedNoMoreText
	call FarBattleTextBox

	jr .CheckAttract


.Confused
; 'confused!'
	ld hl, IsConfusedText
	call FarBattleTextBox

	xor a
	ld [$cfca], a
	ld de, ANIM_CONFUSED
	call FarPlayBattleAnimation

; 50% chance of hitting itself
	call FarBattleRNG
	cp $80
	jr nc, .CheckAttract

	ld hl, EnemySubStatus3
	ld a, [hl]
	and %10000000
	ld [hl], a

; 'hurt itself in its confusion!'
	ld hl, HurtItselfText
	call FarBattleTextBox

	call Function0x355dd

	call BattleCommand62

	call BattleCommand0a

	xor a
	ld [$cfca], a

; Flicker the monster pic unless flying or underground.
	ld de, $0115
	ld a, BATTLE_VARS_SUBSTATUS3_OPP
	call CleanGetBattleVarPair
	and $60
	call z, PlayFXAnimID

	ld c, $1
	call Function0x35d1c

	call BattleCommand0c

	call CantMove
	jp Function0x34385


.CheckAttract
	ld a, [EnemySubStatus1]
	add a ; check bit 7
	jr nc, .CheckDisabledMove

; 'in love with'
	ld hl, InLoveWithText
	call FarBattleTextBox

	xor a
	ld [$cfca], a

	ld de, ANIM_INLOVE
	call FarPlayBattleAnimation

; 50% chance of infatuation
	call FarBattleRNG
	cp $80
	jr c, .CheckDisabledMove

; 'infatuation kept it from attacking!'
	ld hl, InfatuationText
	call FarBattleTextBox

	call CantMove
	jp Function0x34385


.CheckDisabledMove
; We can't disable a move that doesn't exist.
	ld a, [EnemyDisabledMove]
	and a
	jr z, .CheckParalyzed

; Are we using the disabled move?
	ld hl, CurEnemyMove
	cp [hl]
	jr nz, .CheckParalyzed

	call MoveDisabled

	call CantMove
	jp Function0x34385


.CheckParalyzed
	ld hl, EnemyMonStatus
	bit 6, [hl]
	ret z

; 25% chance to be fully paralyzed
	call FarBattleRNG
	cp $3f
	ret nc

; 'fully paralyzed!'
	ld hl, FullyParalyzedText
	call FarBattleTextBox

	call CantMove

	; fallthrough
; 34385


Function0x34385: ; 34385
	ld a, $1
	ld [$c6b4], a
	jp ResetDamage
; 3438d


MoveDisabled: ; 3438d

; Make sure any charged moves fail
	ld a, BATTLE_VARS_SUBSTATUS3
	call GetBattleVarPair
	res 4, [hl]

	ld a, BATTLE_VARS_MOVE
	call CleanGetBattleVarPair
	ld [$d265], a
	call GetMoveName

; 'disabled!'
	ld hl, DisabledMoveText
	jp FarBattleTextBox
; 343a5


HitConfusion: ; 343a5

; 'hurt itself in its confusion!'
	ld hl, HurtItselfText
	call FarBattleTextBox

	xor a
	ld [CriticalHit], a

	call Function0x355dd

	call BattleCommand62

	call BattleCommand0a

	xor a
	ld [$cfca], a

; Flicker the monster pic unless flying or underground.
	ld de, $0115
	ld a, BATTLE_VARS_SUBSTATUS3_OPP
	call CleanGetBattleVarPair
	and $60
	call z, PlayFXAnimID

	ld hl, $5f48
	call CallBankF

	ld a, $1
	ld [$ffd4], a

	ld c, $1
	call Function0x35d7e

	jp BattleCommand0c
; 343db


BattleCommand02: ; 343db
; checkobedience

; Enemy can't disobey
	ld a, [hBattleTurn]
	and a
	ret nz

	call Function0x34548
	ret nz

; If we've already checked this turn
	ld a, [AlreadyDisobeyed]
	and a
	ret nz

	xor a
	ld [AlreadyDisobeyed], a

; No obedience in link battles (since no handling exists for enemy)
	ld a, [InLinkBattle]
	and a
	ret nz

	ld a, [$cfc0]
	and a
	ret nz

; If the monster's id doesn't match the player's,
; some conditions need to be met.
	ld a, PartyMon1ID - PartyMon1
	call BattlePartyAttr

	ld a, [PlayerID]
	cp [hl]
	jr nz, .obeylevel
	inc hl
	ld a, [PlayerID + 1]
	cp [hl]
	ret z


.obeylevel
; The maximum obedience level is constrained by owned badges:
	ld hl, JohtoBadges

; risingbadge
	bit 7, [hl]
	ld a, 101
	jr nz, .getlevel

; stormbadge
	bit 5, [hl]
	ld a, 70
	jr nz, .getlevel

; fogbadge
	bit 3, [hl]
	ld a, 50
	jr nz, .getlevel

; hivebadge
	bit 1, [hl]
	ld a, 30
	jr nz, .getlevel

; no badges
	ld a, 10


.getlevel
; c = obedience level
; d = monster level
; b = c + d

	ld b, a
	ld c, a

	ld a, [BattleMonLevel]
	ld d, a

	add b
	ld b, a

; No overflow (this should never happen)
	jr nc, .checklevel
	ld b, $ff


.checklevel
; If the monster's level is lower than the obedience level, it will obey.
	ld a, c
	cp d
	ret nc


; Random number from 0 to obedience level + monster level
.rand1
	call FarBattleRNG
	swap a
	cp b
	jr nc, .rand1

; The higher above the obedience level the monster is,
; the more likely it is to disobey.
	cp c
	ret c

; Sleep-only moves have separate handling, and a higher chance of
; being ignored. Lazy monsters like their sleep.
	call IgnoreSleepOnly
	ret c


; Another random number from 0 to obedience level + monster level
.rand2
	call FarBattleRNG
	cp b
	jr nc, .rand2

; A second chance.
	cp c
	jr c, .UseInstead


; No hope of using a move now.

; b = number of levels the monster is above the obedience level
	ld a, d
	sub c
	ld b, a

; The chance of napping is the difference out of 256.
	call FarBattleRNG
	swap a
	sub b
	jr c, .Nap

; The chance of not hitting itself is the same.
	cp b
	jr nc, .DoNothing

; 'won't obey!'
	ld hl, WontObeyText
	call FarBattleTextBox

	call HitConfusion

	jp Function0x3450c


.Nap
	call FarBattleRNG
	add a
	swap a
	and 7
	jr z, .Nap

	ld [BattleMonStatus], a

; 'began to nap!'
	ld hl, BeganToNapText
	jr .Print


.DoNothing
	call FarBattleRNG
	and 3

; 'loafing around!'
	ld hl, LoafingAroundText
	and a
	jr z, .Print

; 'won't obey!'
	ld hl, WontObeyText
	dec a
	jr z, .Print

; 'turned away!'
	ld hl, TurnedAwayText
	dec a
	jr z, .Print

; 'ignored orders!'
	ld hl, IgnoredOrdersText

.Print
	call FarBattleTextBox
	jp Function0x3450c


.UseInstead

; Can't use another move if the monster only has one!
	ld a, [BattleMonMove2]
	and a
	jr z, .DoNothing

; Don't bother trying to handle Disable.
	ld a, [DisabledMove]
	and a
	jr nz, .DoNothing


	ld hl, BattleMonPP
	ld de, BattleMonMoves
	ld b, 0
	ld c, NUM_MOVES

.GetTotalPP
	ld a, [hli]
	and $3f ; exclude pp up
	add b
	ld b, a

	dec c
	jr z, .CheckMovePP

; Stop at undefined moves.
	inc de
	ld a, [de]
	and a
	jr nz, .GetTotalPP


.CheckMovePP
	ld hl, BattleMonPP
	ld a, [CurMoveNum]
	ld e, a
	ld d, 0
	add hl, de

; Can't use another move if only one move has PP.
	ld a, [hl]
	and $3f
	cp b
	jr z, .DoNothing


; Make sure we can actually use the move once we get there.
	ld a, 1
	ld [AlreadyDisobeyed], a

	ld a, [$cfa3]
	ld b, a

; Save the move we originally picked for afterward.
	ld a, [CurMoveNum]
	ld c, a
	push af


.RandomMove
	call FarBattleRNG
	and 3

	cp b
	jr nc, .RandomMove

; Not the move we were trying to use.
	cp c
	jr z, .RandomMove

; Make sure it has PP.
	ld [CurMoveNum], a
	ld hl, BattleMonPP
	ld e, a
	ld d, 0
	add hl, de
	ld a, [hl]
	and $3f
	jr z, .RandomMove


; Use it.
	ld a, [CurMoveNum]
	ld c, a
	ld b, 0
	ld hl, BattleMonMoves
	add hl, bc
	ld a, [hl]
	ld [CurPlayerMove], a

	call SetPlayerTurn
	call UpdateMoveData
	call DoMove


; Restore original move choice.
	pop af
	ld [CurMoveNum], a

	; fallthrough
; 3450c


Function0x3450c: ; 3450c
	xor a
	ld [LastPlayerMove], a
	ld [LastEnemyCounterMove], a

	ld hl, PlayerSubStatus5
	res 4, [hl]

; Break encore too.
	xor a
	ld [PlayerEncoreCount], a

	jp EndMoveEffect
; 3451f


IgnoreSleepOnly: ; 3451f

	ld a, BATTLE_VARS_MOVE_ANIM
	call CleanGetBattleVarPair

	cp SNORE
	jr z, .CheckSleep
	cp SLEEP_TALK
	jr z, .CheckSleep
	and a
	ret

.CheckSleep
	ld a, BATTLE_VARS_STATUS
	call CleanGetBattleVarPair
	and 7
	ret z

; 'ignored orders…sleeping!'
	ld hl, IgnoredSleepingText
	call FarBattleTextBox

	call EndMoveEffect

	scf
	ret
; 34541


BattleCommand03: ; 34541
; usedmovetext
	callba DisplayUsedMoveText
	ret
; 34548


Function0x34548: ; 34548

	ld a, [hBattleTurn]
	and a
	ld a, [$c732] ; player
	jr z, .end
	ld a, [$c733] ; enemy
.end
	and a
	ret
; 34555


BattleCommand04: ; 34555
	call Function0x34548
	ret nz

	ld hl, BattleMonPP
	ld de, PlayerSubStatus3
	ld bc, PlayerTurnsTaken

	ld a, [hBattleTurn]
	and a
	jr z, .asm_34570

	ld hl, EnemyMonPP
	ld de, EnemySubStatus3
	ld bc, EnemyTurnsTaken

.asm_34570
; If we've gotten this far, this counts as a turn.
	ld a, [bc]
	inc a
	ld [bc], a

	ld a, BATTLE_VARS_MOVE
	call CleanGetBattleVarPair
	cp STRUGGLE
	ret z

	ld a, [de]
	and %111 ; rollout | bide | ???
	ret nz

	call .asm_345ad
	ld a, b
	and a
	jp nz, EndMoveEffect

; SubStatus5
	inc de
	inc de

	ld a, [de]
	bit 3, a
	ret nz

	ld a, [hBattleTurn]
	and a

	ld hl, PartyMon1PP
	ld a, [CurBattleMon]
	jr z, .asm_345a4

; skip this part entirely if wildbattle
	ld a, [IsInBattle]
	dec a
	jr z, .asm_345c5

	ld hl, OTPartyMon1PP
	ld a, [CurOTMon]

.asm_345a4
	call GetPartyLocation
	push hl
	call Function0x3460b
	pop hl
	ret c

.asm_345ad
	ld a, [hBattleTurn]
	and a
	ld a, [CurMoveNum]
	jr z, .asm_345b8
	ld a, [CurEnemyMoveNum]

.asm_345b8
	ld c, a
	ld b, $0
	add hl, bc
	ld a, [hl]
	and $3f
	jr z, .asm_345e3
	dec [hl]
	ld b, $0
	ret

.asm_345c5
	ld hl, EnemyMonMoves
	ld a, [CurEnemyMoveNum]
	ld c, a
	ld b, $0
	add hl, bc
	ld a, [hl]
	cp MIMIC
	jr z, .asm_345dc
	ld hl, $c735
	add hl, bc
	ld a, [hl]
	cp MIMIC
	ret z

.asm_345dc
	ld hl, $c739
	call .asm_345ad
	ret

.asm_345e3
	call BattleCommandaa
; get move effect
	ld a, BATTLE_VARS_MOVE_EFFECT
	call CleanGetBattleVarPair
; continuous?
	ld hl, .continuousmoves
	ld de, 1
	call IsInArray

; 'has no pp left for [move]'
	ld hl, HasNoPPLeftText
	jr c, .print
; 'but no pp is left for the move'
	ld hl, NoPPLeftText
.print
	call FarBattleTextBox
	ld b, 1
	ret
; 34602

.continuousmoves ; 34602
	db EFFECT_RAZOR_WIND
	db EFFECT_SKY_ATTACK
	db EFFECT_SKULL_BASH
	db EFFECT_SOLARBEAM
	db EFFECT_FLY
	db EFFECT_ROLLOUT
	db EFFECT_BIDE
	db EFFECT_RAMPAGE
	db $ff
; 3460b

Function0x3460b: ; 3460b
	ld a, [hBattleTurn]
	and a
	ld a, [CurMoveNum]
	jr z, .asm_34616
	ld a, [CurEnemyMoveNum]

.asm_34616
	ld c, a
	ld a, 2
	call UserPartyAttr

	ld a, BATTLE_VARS_MOVE
	call CleanGetBattleVarPair
	cp MIMIC
	jr z, .asm_3462f

	ld b, 0
	add hl, bc
	ld a, [hl]
	cp MIMIC
	jr nz, .asm_3462f

	scf
	ret

.asm_3462f
	and a
	ret
; 34631


BattleCommand05: ; 34631
; critical

; Determine whether this attack's hit will be critical.

	xor a
	ld [CriticalHit], a

	ld a, BATTLE_VARS_MOVE_POWER
	call CleanGetBattleVarPair
	and a
	ret z

	ld a, [hBattleTurn]
	and a
	ld hl, EnemyMonItem
	ld a, [EnemyMonSpecies]
	jr nz, .Item
	ld hl, BattleMonItem
	ld a, [BattleMonSpecies]

.Item
	ld c, 0

	cp CHANSEY
	jr nz, .Farfetchd
	ld a, [hl]
	cp LUCKY_PUNCH
	jr nz, .FocusEnergy

; +2 critical level
	ld c, 2
	jr .Tally

.Farfetchd
	cp FARFETCH_D
	jr nz, .FocusEnergy
	ld a, [hl]
	cp STICK
	jr nz, .FocusEnergy

; +2 critical level
	ld c, 2
	jr .Tally

.FocusEnergy
	ld a, BATTLE_VARS_SUBSTATUS4
	call CleanGetBattleVarPair
	bit 2, a
	jr z, .CheckCritical

; +1 critical level
	inc c

.CheckCritical
	ld a, BATTLE_VARS_MOVE_ANIM
	call CleanGetBattleVarPair
	ld de, 1
	ld hl, .Criticals
	push bc
	call IsInArray
	pop bc
	jr nc, .ScopeLens

; +2 critical level
	inc c
	inc c

.ScopeLens
	push bc
	call GetUserItem
	ld a, b
	cp $49 ; Increased critical chance. Only Scope Lens has this.
	pop bc
	jr nz, .Tally

; +1 critical level
	inc c

.Tally
	ld hl, .Chances
	ld b, 0
	add hl, bc
	call FarBattleRNG
	cp [hl]
	ret nc
	ld a, 1
	ld [CriticalHit], a
	ret

.Criticals
	db KARATE_CHOP, RAZOR_WIND, RAZOR_LEAF, CRABHAMMER, SLASH, AEROBLAST, CROSS_CHOP, $ff
.Chances
	; 6.25% 12.1% 24.6% 33.2% 49.6% 49.6% 49.6%
	db $11,  $20,  $40,  $55,  $80,  $80,  $80
	;   0     1     2     3     4     5     6
; 346b2


BattleCommand4e: ; 346b2
; triplekick

	ld a, [$c689]
	ld b, a
	inc b
	ld hl, CurDamage + 1
	ld a, [hld]
	ld e, a
	ld a, [hli]
	ld d, a
.asm_346be
	dec b
	ret z
	ld a, [hl]
	add e
	ld [hld], a
	ld a, [hl]
	adc d
	ld [hli], a

; No overflow.
	jr nc, .asm_346be
	ld a, $ff
	ld [hld], a
	ld [hl], a
	ret
; 346cd


BattleCommand4f: ; 346cd
; kickcounter

	ld hl, $c689
	inc [hl]
	ret
; 346d2


BattleCommand07: ; 346d2
; stab
	ld a, BATTLE_VARS_MOVE_ANIM
	call CleanGetBattleVarPair
	cp STRUGGLE
	ret z

	ld hl, BattleMonType1
	ld a, [hli]
	ld b, a
	ld c, [hl]
	ld hl, EnemyMonType1
	ld a, [hli]
	ld d, a
	ld e, [hl]

	ld a, [hBattleTurn]
	and a
	jr z, .go

	ld hl, EnemyMonType1
	ld a, [hli]
	ld b, a
	ld c, [hl]
	ld hl, BattleMonType1
	ld a, [hli]
	ld d, a
	ld e, [hl]

.go
	ld a, BATTLE_VARS_MOVE_TYPE
	call GetBattleVarPair
	ld [$d265], a

	push hl
	push de
	push bc
	callba DoWeatherModifiers
	pop bc
	pop de
	pop hl

	push de
	push bc
	callba DoBadgeTypeBoosts
	pop bc
	pop de

	ld a, [$d265]
	cp b
	jr z, .stab
	cp c
	jr z, .stab

	jr .asm_3473a

.stab
	ld hl, CurDamage + 1
	ld a, [hld]
	ld h, [hl]
	ld l, a

	ld b, h
	ld c, l
	srl b
	rr c
	add hl, bc

	ld a, h
	ld [CurDamage], a
	ld a, l
	ld [CurDamage + 1], a

	ld hl, TypeModifier
	set 7, [hl]

.asm_3473a
	ld a, BATTLE_VARS_MOVE_TYPE
	call CleanGetBattleVarPair
	ld b, a
	ld hl, TypeMatchup

.asm_34743
	ld a, [hli]

	cp $ff
	jr z, .end

; foresight
	cp $fe
	jr nz, .asm_34757
	ld a, BATTLE_VARS_SUBSTATUS1_OPP
	call CleanGetBattleVarPair
	bit 3, a
	jr nz, .end

	jr .asm_34743

.asm_34757
	cp b
	jr nz, .asm_347b3
	ld a, [hl]
	cp d
	jr z, .asm_34763
	cp e
	jr z, .asm_34763
	jr .asm_347b3

.asm_34763
	push hl
	push bc
	inc hl
	ld a, [TypeModifier]
	and %10000000
	ld b, a
	ld a, [hl]
	and a
	jr nz, .asm_34775
	inc a
	ld [AttackMissed], a
	xor a
.asm_34775
	ld [$ffb7], a
	add b
	ld [TypeModifier], a

	xor a
	ld [$ffb4], a

	ld hl, CurDamage
	ld a, [hli]
	ld [$ffb5], a
	ld a, [hld]
	ld [$ffb6], a

	call Multiply

	ld a, [$ffb4]
	ld b, a
	ld a, [$ffb5]
	or b
	ld b, a
	ld a, [$ffb6]
	or b
	jr z, .asm_347ab

	ld a, $a
	ld [$ffb7], a
	ld b, $4
	call Divide
	ld a, [$ffb5]
	ld b, a
	ld a, [$ffb6]
	or b
	jr nz, .asm_347ab

	ld a, $1
	ld [$ffb6], a

.asm_347ab
	ld a, [$ffb5]
	ld [hli], a
	ld a, [$ffb6]
	ld [hl], a
	pop bc
	pop hl

.asm_347b3
	inc hl
	inc hl
	jr .asm_34743

.end
	call Function0x347c8
	ld a, [$d265]
	ld b, a
	ld a, [TypeModifier]
	and $80
	or b
	ld [TypeModifier], a
	ret
; 347c8


Function0x347c8: ; 347c8
	ld hl, EnemyMonType1
	ld a, [hBattleTurn]
	and a
	jr z, Function0x347d3
	ld hl, BattleMonType1

	; fallthrough
; 347d3


Function0x347d3: ; 347d3
	push hl
	push de
	push bc
	ld a, BATTLE_VARS_MOVE_TYPE
	call CleanGetBattleVarPair
	ld d, a
	ld b, [hl]
	inc hl
	ld c, [hl]
	ld a, $a
	ld [$d265], a
	ld hl, TypeMatchup
.asm_347e7
	ld a, [hli]
	cp $ff
	jr z, .asm_3482f ; 0x347ea $43
	cp $fe
	jr nz, .asm_347fb ; 0x347ee $b
	ld a, BATTLE_VARS_SUBSTATUS1_OPP
	call CleanGetBattleVarPair
	bit SUBSTATUS_IDENTIFIED, a
	jr nz, .asm_3482f ; 0x347f7 $36
	jr .asm_347e7 ; 0x347f9 $ec
.asm_347fb
	cp d
	jr nz, .asm_34807 ; 0x347fc $9
	ld a, [hli]
	cp b
	jr z, .asm_3480b ; 0x34800 $9
	cp c
	jr z, .asm_3480b ; 0x34803 $6
	jr .asm_34808 ; 0x34805 $1
.asm_34807
	inc hl
.asm_34808
	inc hl
	jr .asm_347e7 ; 0x34809 $dc
.asm_3480b
	xor a
	ld [$ffb3], a
	ld [$ffb4], a
	ld [$ffb5], a
	ld a, [hli]
	ld [$ffb6], a
	ld a, [$d265]
	ld [$ffb7], a
	call Multiply
	ld a, $a
	ld [$ffb7], a
	push bc
	ld b, $4
	call Divide
	pop bc
	ld a, [$ffb6]
	ld [$d265], a
	jr .asm_347e7 ; 0x3482d $b8
.asm_3482f
	pop bc
	pop de
	pop hl
	ret
; 34833


BattleCommanda3: ; 34833
	call Function0x347c8
	ld a, [$d265]
	and a
	ld a, $a
	jr nz, .asm_3484a ; 3483c $c
	call ResetDamage
	xor a
	ld [TypeModifier], a
	inc a
	ld [AttackMissed], a
	ret
.asm_3484a
	ld [$d265], a
	ret
; 3484e


Function0x3484e: ; 3484e
	push hl
	push de
	push bc
	ld a, $a
	ld [$c716], a
	ld hl, PlayerUsedMoves
	ld a, [hl]
	and a
	jr z, .asm_348b0 ; 0x3485b $53
	ld d, $4
	ld e, $0
.asm_34861
	ld a, [hli]
	and a
	jr z, .asm_3489f ; 0x34863 $3a
	push hl
	dec a
	ld hl, Moves + PlayerMovePower - PlayerMoveStruct
	call GetMoveAttr
	and a
	jr z, .asm_3489b ; 0x3486e $2b
	inc hl
	call GetMoveByte
	ld hl, EnemyMonType1
	call Function0x347d3
	ld a, [$d265]
	cp $b
	jr nc, .asm_34895 ; 0x3487f $14
	and a
	jr z, .asm_3489b ; 0x34882 $17
	cp $a
	jr nc, .asm_34891 ; 0x34886 $9
	ld a, e
	cp $1
	jr nc, .asm_3489b ; 0x3488b $e
	ld e, $1
	jr .asm_3489b ; 0x3488f $a
.asm_34891
	ld e, $2
	jr .asm_3489b ; 0x34893 $6
.asm_34895
	call Function0x34931
	pop hl
	jr .asm_348d7 ; 0x34899 $3c
.asm_3489b
	pop hl
	dec d
	jr nz, .asm_34861 ; 0x3489d $c2
.asm_3489f
	ld a, e
	cp $2
	jr z, .asm_348d7 ; 0x348a2 $33
	call Function0x34939
	ld a, e
	and a
	jr nz, .asm_348d7 ; 0x348a9 $2c
	call Function0x34939
	jr .asm_348d7 ; 0x348ae $27
.asm_348b0
	ld a, [BattleMonType1]
	ld b, a
	ld hl, EnemyMonType1
	call Function0x347d3
	ld a, [$d265]
	cp $b
	jr c, .asm_348c4 ; 0x348bf $3
	call Function0x34931
.asm_348c4
	ld a, [BattleMonType2]
	cp b
	jr z, .asm_348d7 ; 0x348c8 $d
	call Function0x347d3
	ld a, [$d265]
	cp $b
	jr c, .asm_348d7 ; 0x348d2 $3
	call Function0x34931
.asm_348d7
	call Function0x348de
	pop bc
	pop de
	pop hl
	ret
; 348de


Function0x348de: ; 348de
	ld de, EnemyMonMove1
	ld b, 5
	ld c, 0

	ld a, [$d265]
	push af

.loop
	dec b
	jr z, .exit

	ld a, [de]
	and a
	jr z, .exit

	inc de
	dec a
	ld hl, Moves + PlayerMovePower - PlayerMoveStruct
	call GetMoveAttr
	and a
	jr z, .loop

	inc hl
	call GetMoveByte
	ld hl, BattleMonType1
	call Function0x347d3
	ld a, [$d265]
	and a
	jr z, .loop

	inc c
	cp $a
	jr c, .loop

	inc c
	inc c
	inc c
	inc c
	inc c

	cp $a
	jr z, .loop

	ld c, $64
	jr .loop
.exit

	pop af
	ld [$d265], a

	ld a, c
	and a
	jr z, .doubledown ; double down
	cp $5
	jr c, Function0x34931 ; down
	cp $64
	ret c
	jr Function0x34939 ; up

.doubledown
	call Function0x34931
	
	; fallthrough
; 34931


Function0x34931: ; 34931
	ld a, [$c716]
	dec a
	ld [$c716], a
	ret
; 34939


Function0x34939: ; 34939
	ld a, [$c716]
	inc a
	ld [$c716], a
	ret
; 34941


Function0x34941: ; 34941
	xor a
	ld [$c717], a
	call Function0x349f4
	ret c

	ld a, [EnemySubStatus1]
	bit 4, a
	jr z, .asm_34986

	ld a, [$c67f]
	cp $1
	jr nz, .asm_34986

	call Function0x349f4
	call Function0x34b77
	call Function0x34b20
	call Function0x34a85

	ld a, e
	cp $2
	jr nz, .asm_34971

	ld a, [$c716]
	add $30
	ld [$c717], a
	ret

.asm_34971
	call Function0x349f4
	sla c
	sla c
	ld b, $ff

.asm_3497a
	inc b
	sla c
	jr nc, .asm_3497a

	ld a, b
	add $30
	ld [$c717], a
	ret

.asm_34986
	call Function0x3484e
	ld a, [$c716]
	cp $b
	ret nc

	ld a, [LastEnemyCounterMove]
	and a
	jr z, .asm_349d2

	call Function0x34a2a
	ld a, [$c716]
	and a
	jr z, .asm_349d2

	ld c, a
	call Function0x34aa7
	ld a, [$c716]
	cp $ff
	ret z

	ld b, a
	ld a, e
	cp $2
	jr z, .asm_349be

	call Function0x3484e
	ld a, [$c716]
	cp $a
	ret nc

	ld a, b
	add $10
	ld [$c717], a
	ret

.asm_349be
	ld c, $10
	call Function0x3484e
	ld a, [$c716]
	cp $a
	jr nc, .asm_349cc
	ld c, $20

.asm_349cc
	ld a, b
	add c
	ld [$c717], a
	ret

.asm_349d2
	call Function0x3484e
	ld a, [$c716]
	cp $a
	ret nc

	call Function0x349f4
	call Function0x34b77
	call Function0x34b20
	call Function0x34a85

	ld a, e
	cp $2
	ret nz

	ld a, [$c716]
	add $10
	ld [$c717], a
	ret
; 349f4


Function0x349f4: ; 349f4
	ld a, [OTPartyCount]
	cp 2
	jr c, .asm_34a26

	ld d, a
	ld e, 0
	ld b, $20
	ld c, 0
	ld hl, OTPartyMon1CurHP

.asm_34a05
	ld a, [CurOTMon]
	cp e
	jr z, .asm_34a16

	push bc
	ld b, [hl]
	inc hl
	ld a, [hld]
	or b
	pop bc
	jr z, .asm_34a16

	ld a, c
	or b
	ld c, a
.asm_34a16
	srl b
	push bc
	ld bc, $30
	add hl, bc
	pop bc
	inc e
	dec d
	jr nz, .asm_34a05

	ld a, c
	and a
	jr nz, .asm_34a28

.asm_34a26
	scf
	ret

.asm_34a28
	and a
	ret
; 34a2a


Function0x34a2a: ; 34a2a
	ld hl, OTPartyMon1
	ld a, [OTPartyCount]
	ld b, a
	ld c, $20
	ld d, 0
	xor a
	ld [$c716], a

.asm_34a39
	ld a, [CurOTMon]
	cp d
	push hl
	jr z, .asm_34a77

	push hl
	push bc
	ld bc, $0022
	add hl, bc
	pop bc
	ld a, [hli]
	or [hl]
	pop hl
	jr z, .asm_34a77

	ld a, [hl]
	ld [CurSpecies], a
	call GetBaseData
	ld a, [LastEnemyCounterMove]
	dec a
	ld hl, Moves + PlayerMovePower - PlayerMoveStruct
	call GetMoveAttr
	and a
	jr z, .asm_34a77

	inc hl
	call GetMoveByte
	ld hl, $d23d
	call Function0x347d3
	ld a, [$d265]
	and a
	jr nz, .asm_34a77

	ld a, [$c716]
	or c
	ld [$c716], a
.asm_34a77
	pop hl
	dec b
	ret z

	push bc
	ld bc, $30
	add hl, bc
	pop bc

	inc d
	srl c
	jr .asm_34a39
; 34a85


Function0x34a85: ; 34a85
	push bc
	ld a, [OTPartyCount]
	ld e, a
	ld hl, OTPartyMon1CurHP
	ld b, $20
	ld c, $0
.asm_34a91
	ld a, [hli]
	or [hl]
	jr z, .asm_34a98

	ld a, b
	or c
	ld c, a

.asm_34a98
	srl b
	push bc
	ld bc, $2f
	add hl, bc
	pop bc
	dec e
	jr nz, .asm_34a91

	ld a, c
	pop bc

	and c
	ld c, a

	; fallthrough
; 34aa7

Function0x34aa7: ; 34aa7

	ld a, $ff
	ld [$c716], a
	ld hl, OTPartyMon1Move1
	ld b, $20
	ld d, $0
	ld e, $0
.asm_34ab5
	ld a, b
	and c
	jr z, .asm_34b00

	push hl
	push bc
	ld b, $4
	ld c, $0
.asm_34abf
	ld a, [hli]
	and a
	push hl
	jr z, .asm_34aef

	dec a
	ld hl, Moves + PlayerMovePower - PlayerMoveStruct
	call GetMoveAttr
	and a
	jr z, .asm_34ae9

	inc hl
	call GetMoveByte
	ld hl, BattleMonType1
	call Function0x347d3
	ld a, [$d265]
	cp $a
	jr c, .asm_34ae9

	ld e, $1
	cp $b
	jr c, .asm_34ae9

	ld e, $2
	jr .asm_34aef

.asm_34ae9
	pop hl
	dec b
	jr nz, .asm_34abf

	jr .asm_34af0

.asm_34aef
	pop hl
.asm_34af0
	ld a, e
	pop bc
	pop hl
	cp $2
	jr z, .asm_34b0e

	cp $1
	jr nz, .asm_34b00

	ld a, d
	or b
	ld d, a
	jr .asm_34b00

.asm_34b00
	push bc
	ld bc, $0030
	add hl, bc
	pop bc
	srl b
	jr nc, .asm_34ab5

	ld a, d
	ld b, a
	and a
	ret z

.asm_34b0e
	push bc
	sla b
	sla b
	ld c, $ff
.asm_34b15
	inc c
	sla b
	jr nc, .asm_34b15

	ld a, c
	ld [$c716], a
	pop bc
	ret
; 34b20


Function0x34b20: ; 34b20
	push bc
	ld hl, OTPartySpecies
	ld b, $20
	ld c, $0

.asm_34b28
	ld a, [hli]
	cp $ff
	jr z, .asm_34b72

	push hl
	ld [CurSpecies], a
	call GetBaseData
	ld a, [LastEnemyCounterMove]
	and a
	jr z, .asm_34b4a

	dec a
	ld hl, Moves + PlayerMovePower - PlayerMoveStruct
	call GetMoveAttr
	and a
	jr z, .asm_34b4a

	inc hl
	call GetMoveByte
	jr .asm_34b5d

.asm_34b4a
	ld a, [BattleMonType1]
	ld hl, $d23d
	call Function0x347d3
	ld a, [$d265]
	cp $b
	jr nc, .asm_34b6d
	ld a, [BattleMonType2]

.asm_34b5d
	ld hl, $d23d
	call Function0x347d3
	ld a, [$d265]
	cp $b
	jr nc, .asm_34b6d

	ld a, b
	or c
	ld c, a

.asm_34b6d
	srl b
	pop hl
	jr .asm_34b28

.asm_34b72
	ld a, c
	pop bc
	and c
	ld c, a
	ret
; 34b77


Function0x34b77: ; 34b77
	push bc
	ld de, OTPartySpecies
	ld b, $20
	ld c, 0
	ld hl, OTPartyMon1CurHP

.asm_34b82
	ld a, [de]
	inc de
	cp $ff
	jr z, .asm_34bac

	push hl
	push bc
	ld b, [hl]
	inc hl
	ld c, [hl]
	inc hl
	inc hl
	srl c
	rl b
	srl c
	rl b
	ld a, [hld]
	cp c
	ld a, [hl]
	sbc b
	pop bc
	jr nc, .asm_34ba1

	ld a, b
	or c
	ld c, a

.asm_34ba1
	srl b
	pop hl
	push bc
	ld bc, $0030
	add hl, bc
	pop bc
	jr .asm_34b82

.asm_34bac
	ld a, c
	pop bc
	and c
	ld c, a
	ret
; 34bb1


TypeMatchup: ; 34bb1
INCLUDE "battle/type_matchup.asm"
; 34cfd


BattleCommand08: ; 34cfd
; damagevariation

; Modify the damage spread between 85% and 100%.

; Because of the method of division the probability distribution
; is not consistent. This makes the highest damage multipliers
; rarer than normal.


; No point in reducing 1 or 0 damage.
	ld hl, CurDamage
	ld a, [hli]
	and a
	jr nz, .go
	ld a, [hl]
	cp 2
	ret c

.go
; Start with the maximum damage.
	xor a
	ld [$ffb4], a
	dec hl
	ld a, [hli]
	ld [$ffb5], a
	ld a, [hl]
	ld [$ffb6], a

; Multiply by 85-100%...
.loop
	call FarBattleRNG
	rrca
	cp $d9 ; 85%
	jr c, .loop

	ld [$ffb7], a
	call Multiply

; ...divide by 100%...
	ld a, $ff ; 100%
	ld [$ffb7], a
	ld b, $4
	call Divide

; ...to get .85-1.00x damage.
	ld a, [$ffb5]
	ld hl, CurDamage
	ld [hli], a
	ld a, [$ffb6]
	ld [hl], a
	ret
; 34d32


BattleCommand09: ; 34d32
; checkhit

	call .DreamEater
	jp z, .Miss

	call .Protect
	jp nz, .Miss

	call .DrainSub
	jp z, .Miss

	call .LockOn
	ret nz

	call .FlyDigMoves
	jp nz, .Miss

	call .ThunderRain
	ret z

	call .UnleashedEnergy
	ret nz

; Perfect-accuracy moves
	ld a, BATTLE_VARS_MOVE_EFFECT
	call CleanGetBattleVarPair
	cp EFFECT_ALWAYS_HIT
	ret z

	call .StatModifiers

	ld a, [PlayerMoveAccuracy]
	ld b, a
	ld a, [hBattleTurn]
	and a
	jr z, .BrightPowder
	ld a, [EnemyMoveAccuracy]
	ld b, a

.BrightPowder
	push bc
	call GetOpponentItem
	ld a, b
	cp HELD_BRIGHTPOWDER
	ld a, c ; % miss
	pop bc
	jr nz, .asm_34d81

	ld c, a
	ld a, b
	sub c
	ld b, a
	jr nc, .asm_34d81
	ld b, 0

.asm_34d81
	ld a, b
	cp $ff
	jr z, .Hit

	call FarBattleRNG
	cp b
	jr nc, .Miss

.Hit
	ret


.Miss
; Keep the damage value intact if we're using (Hi) Jump Kick.
	ld a, BATTLE_VARS_MOVE_EFFECT
	call CleanGetBattleVarPair
	cp EFFECT_JUMP_KICK
	jr z, .Missed
	call ResetDamage

.Missed
	ld a, 1
	ld [AttackMissed], a
	ret


.DreamEater
; Return z if we're trying to eat the dream of
; a monster that isn't sleeping.
	ld a, BATTLE_VARS_MOVE_EFFECT
	call CleanGetBattleVarPair
	cp EFFECT_DREAM_EATER
	ret nz

	ld a, BATTLE_VARS_STATUS_OPP
	call CleanGetBattleVarPair
	and SLP
	ret


.Protect
; Return nz if the opponent is protected.
	ld a, BATTLE_VARS_SUBSTATUS1_OPP
	call CleanGetBattleVarPair
	bit SUBSTATUS_PROTECT, a
	ret z

	ld c, 40
	call DelayFrames

; 'protecting itself!'
	ld hl, ProtectingItselfText
	call FarBattleTextBox

	ld c, 40
	call DelayFrames

	ld a, 1
	and a
	ret


.LockOn
; Return nz if we are locked-on and aren't trying to use Earthquake,
; Fissure or Magnitude on a monster that is flying.
	ld a, BATTLE_VARS_SUBSTATUS5_OPP
	call GetBattleVarPair
	bit SUBSTATUS_LOCK_ON, [hl]
	res SUBSTATUS_LOCK_ON, [hl]
	ret z

	ld a, BATTLE_VARS_SUBSTATUS3_OPP
	call CleanGetBattleVarPair
	bit SUBSTATUS_FLYING, a
	jr z, .LockedOn

	ld a, BATTLE_VARS_MOVE_ANIM
	call CleanGetBattleVarPair

	cp EARTHQUAKE
	ret z
	cp FISSURE
	ret z
	cp MAGNITUDE
	ret z

.LockedOn
	ld a, 1
	and a
	ret


.DrainSub
; Return z if using an HP drain move on a substitute.
	call CheckSubstituteOpp
	jr z, .asm_34e00

	ld a, BATTLE_VARS_MOVE_EFFECT
	call CleanGetBattleVarPair

	cp EFFECT_LEECH_HIT
	ret z
	cp EFFECT_DREAM_EATER
	ret z

.asm_34e00
	ld a, 1
	and a
	ret


.FlyDigMoves
; Check for moves that can hit underground/flying opponents.
; Return z if the current move can hit the opponent.

	ld a, BATTLE_VARS_SUBSTATUS3_OPP
	call CleanGetBattleVarPair
	and 1 << SUBSTATUS_FLYING | 1 << SUBSTATUS_UNDERGROUND
	ret z

	bit SUBSTATUS_FLYING, a
	jr z, .DigMoves

	ld a, BATTLE_VARS_MOVE_ANIM
	call CleanGetBattleVarPair

	cp GUST
	ret z
	cp WHIRLWIND
	ret z
	cp THUNDER
	ret z
	cp TWISTER
	ret

.DigMoves
	ld a, BATTLE_VARS_MOVE_ANIM
	call CleanGetBattleVarPair

	cp EARTHQUAKE
	ret z
	cp FISSURE
	ret z
	cp MAGNITUDE
	ret


.ThunderRain
; Return z if the current move always hits in rain, and it is raining.
	ld a, BATTLE_VARS_MOVE_EFFECT
	call CleanGetBattleVarPair
	cp EFFECT_THUNDER
	ret nz

	ld a, [Weather]
	cp WEATHER_RAIN
	ret


.UnleashedEnergy
; Return nz if unleashing energy from Bide.
	ld a, BATTLE_VARS_SUBSTATUS4
	call CleanGetBattleVarPair
	bit SUBSTATUS_UNLEASH, a
	ret


.StatModifiers

	ld a, [hBattleTurn]
	and a

	ld hl, PlayerMoveAccuracy
	ld a, [PlayerAccLevel]
	ld b, a
	ld a, [EnemyEvaLevel]
	ld c, a

	jr z, .asm_34e60

	ld hl, EnemyMoveAccuracy
	ld a, [EnemyAccLevel]
	ld b, a
	ld a, [PlayerEvaLevel]
	ld c, a

.asm_34e60
	cp b
	jr c, .asm_34e6b

	ld a, BATTLE_VARS_SUBSTATUS1_OPP
	call CleanGetBattleVarPair
	bit SUBSTATUS_IDENTIFIED, a
	ret nz

.asm_34e6b
	ld a, $e
	sub c
	ld c, a
	xor a
	ld [$ffb4], a
	ld [$ffb5], a
	ld a, [hl]
	ld [$ffb6], a
	push hl
	ld d, $2

.asm_34e7a
	push bc
	ld hl, .AccProb
	dec b
	sla b
	ld c, b
	ld b, 0
	add hl, bc
	pop bc
	ld a, [hli]
	ld [$ffb7], a
	call Multiply
	ld a, [hl]
	ld [$ffb7], a
	ld b, $4
	call Divide
	ld a, [$ffb6]
	ld b, a
	ld a, [$ffb5]
	or b
	jr nz, .asm_34ea2
	ld [$ffb5], a
	ld a, $1
	ld [$ffb6], a

.asm_34ea2
	ld b, c
	dec d
	jr nz, .asm_34e7a

	ld a, [$ffb5]
	and a
	ld a, [$ffb6]
	jr z, .asm_34eaf
	ld a, $ff

.asm_34eaf
	pop hl
	ld [hl], a
	ret

.AccProb
	db  33, 100 ;  33% -6
	db  36, 100 ;  36% -5
	db  43, 100 ;  43% -4
	db  50, 100 ;  50% -3
	db  60, 100 ;  60% -2
	db  75, 100 ;  75% -1
	db   1,   1 ; 100%  0
	db 133, 100 ; 133% +1
	db 166, 100 ; 166% +2
	db   2,   1 ; 200% +3
	db 233, 100 ; 233% +4
	db 133,  50 ; 266% +5
	db   3,   1 ; 300% +6

; 34ecc


BattleCommand90: ; 34ecc
; effectchance

	xor a
	ld [EffectFailed], a
	call CheckSubstituteOpp
	jr nz, .failed

	push hl
	ld hl, PlayerMoveEffectChance
	ld a, [hBattleTurn]
	and a
	jr z, .asm_34ee1
	ld hl, EnemyMoveEffectChance
.asm_34ee1

	call FarBattleRNG
	cp [hl]
	pop hl
	ret c

.failed
	ld a, 1
	ld [EffectFailed], a
	and a
	ret
; 34eee


BattleCommand0a: ; 34eee

	ld a, BATTLE_VARS_SUBSTATUS4
	call CleanGetBattleVarPair
	bit SUBSTATUS_SUBSTITUTE, a
	ret z

	ld a, BATTLE_VARS_SUBSTATUS3
	call CleanGetBattleVarPair
	bit SUBSTATUS_CHARGED, a
	jr nz, .asm_34f18

	ld a, BATTLE_VARS_MOVE_EFFECT
	call CleanGetBattleVarPair
	cp EFFECT_RAZOR_WIND
	jr z, .asm_34f21
	cp EFFECT_SKY_ATTACK
	jr z, .asm_34f21
	cp EFFECT_SKULL_BASH
	jr z, .asm_34f21
	cp EFFECT_SOLARBEAM
	jr z, .asm_34f21
	cp EFFECT_FLY
	jr z, .asm_34f21

.asm_34f18
	call .Rampage
	jr z, .asm_34f21

	call Function0x34548
	ret nz

.asm_34f21
	call Function0x37ed5
	jr c, .asm_34f36

	xor a
	ld [$cfca], a
	ld [FXAnimIDHi], a
	inc a
	ld [$c689], a
	ld a, $a4
	jp Function0x37e44

.asm_34f36
	call BattleCommanda7
	jp BattleCommandaa

.Rampage
	ld a, BATTLE_VARS_MOVE_EFFECT
	call CleanGetBattleVarPair
	cp EFFECT_ROLLOUT
	jr z, .asm_34f4d
	cp EFFECT_RAMPAGE
	jr z, .asm_34f4d

	ld a, 1
	and a
	ret

.asm_34f4d
	ld a, [$c73e]
	and a
	ld a, 0
	ld [$c73e], a
	ret
; 34f57


BattleCommandab: ; 34f57
; hittarget
	call BattleCommand0a
	call BattleCommand0b
	jp BattleCommand0c
; 34f60


BattleCommand0b: ; 34f60
	ld a, [AttackMissed]
	and a
	jp nz, BattleCommandaa

	ld a, [hBattleTurn]
	and a
	ld de, PlayerRolloutCount
	ld a, 1
	jr z, .asm_34f76
	ld de, EnemyRolloutCount
	ld a, 4

.asm_34f76
	ld [$cfca], a
	ld a, BATTLE_VARS_MOVE_EFFECT
	call CleanGetBattleVarPair
	cp EFFECT_MULTI_HIT
	jr z, .asm_34fb0
	cp EFFECT_CONVERSION
	jr z, .asm_34fb0
	cp EFFECT_DOUBLE_HIT
	jr z, .asm_34fb0
	cp EFFECT_TWINEEDLE
	jr z, .asm_34fb0
	cp EFFECT_TRIPLE_KICK
	jr z, .asm_34f96
	xor a
	ld [$c689], a

.asm_34f96

	ld a, BATTLE_VARS_MOVE_ANIM
	call CleanGetBattleVarPair
	ld e, a
	ld d, 0
	call PlayFXAnimID

	ld a, BATTLE_VARS_MOVE_ANIM
	call CleanGetBattleVarPair
	cp FLY
	jr z, .asm_34fad
	cp DIG
	ret nz

.asm_34fad
; clear sprite
	jp Function0x37ec7
.asm_34fb0
	ld a, [$c689]
	and 1
	xor 1
	ld [$c689], a
	ld a, [de]
	cp $1
	push af
	ld a, BATTLE_VARS_MOVE_ANIM
	call CleanGetBattleVarPair
	ld e, a
	ld d, 0
	pop af
	jp z, PlayFXAnimID
	xor a
	ld [$cfca], a
	jp PlayFXAnimID
; 34fd1


BattleCommand92: ; 34fd1
	ld a, [AttackMissed]
	and a
	jp nz, BattleCommandaa

	xor a
	jr BattleCommand91_92
; 34fdb


BattleCommand91: ; 34fdb
	ld a, [AttackMissed]
	and a
	jp nz, BattleCommandaa

	ld a, [hBattleTurn]
	and a
	ld a, 2
	jr z, BattleCommand91_92
	ld a, 5

	; fallthrough
; 34feb


BattleCommand91_92: ; 34feb
	ld [$cfca], a
	xor a
	ld [$c689], a
	ld a, BATTLE_VARS_MOVE_ANIM
	call CleanGetBattleVarPair
	ld e, a
	ld d, 0
	jp PlayFXAnimID
; 34ffd


SwitchTurn: ; 34ffd
BattleCommand93: ; 34ffd
; switchturn

	ld a, [hBattleTurn]
	xor 1
	ld [hBattleTurn], a
	ret
; 35004


BattleCommand0c: ; 35004
	ld a, BATTLE_VARS_SUBSTATUS4
	call CleanGetBattleVarPair
	bit SUBSTATUS_SUBSTITUTE, a
	ret z

	call Function0x37ed5
	jp c, BattleCommanda6

	xor a
	ld [$cfca], a
	ld [FXAnimIDHi], a
	ld a, $2
	ld [$c689], a
	ld a, $a4
	jp Function0x37e44
; 35023


BattleCommand0d: ; 35023
; resulttext
	ld a, [AttackMissed]
	and a
	ret z

	call Function0x350e4
	ld a, BATTLE_VARS_MOVE_ANIM
	call GetBattleVarPair

	cp FLY
	jr z, .asm_3504f ; 35032 $1b
	cp DIG
	jr z, .asm_3504f ; 35036 $17

; Move effect:
	inc hl
	ld a, [hl]

	cp EFFECT_MULTI_HIT
	jr z, .asm_35049
	cp EFFECT_DOUBLE_HIT
	jr z, .asm_35049
	cp EFFECT_TWINEEDLE
	jr z, .asm_35049
	jp EndMoveEffect

.asm_35049
	call BattleCommand0c
	jp EndMoveEffect

.asm_3504f
	ld a, BATTLE_VARS_SUBSTATUS3
	call GetBattleVarPair
	res SUBSTATUS_UNDERGROUND, [hl]
	res SUBSTATUS_FLYING, [hl]
	call Function0x37ece
	jp EndMoveEffect
; 3505e


BattleCommand0e: ; 3505e
; checkfaint

	ld a, BATTLE_VARS_SUBSTATUS1_OPP
	call CleanGetBattleVarPair
	bit SUBSTATUS_ENDURE, a
	jr z, .asm_35072 ; 35065 $b
	call BattleCommand4b
	ld b, $0
	jr nc, .asm_3508b ; 3506c $1d
	ld b, $1
	jr .asm_3508b ; 35070 $19

.asm_35072
	call GetOpponentItem
	ld a, b
	cp HELD_FOCUS_BAND
	ld b, $0
	jr nz, .asm_3508b ; 3507a $f
	call FarBattleRNG
	cp c
	jr nc, .asm_3508b ; 35080 $9
	call BattleCommand4b
	ld b, $0
	jr nc, .asm_3508b ; 35087 $2
	ld b, $2
.asm_3508b
	push bc
	call .asm_50bb
	ld c, $0
	ld a, [hBattleTurn]
	and a
	jr nz, .asm_3509b
	call Function0x35d1c
	jr .asm_3509e

.asm_3509b
	call Function0x35d7e

.asm_3509e
	pop bc
	ld a, b
	and a
	ret z
	dec a
	jr nz, .asm_350ab ; 350a3 $6
	ld hl, EnduredText
	jp FarBattleTextBox

.asm_350ab
	call GetOpponentItem
	ld a, [hl]
	ld [$d265], a
	call GetItemName

	ld hl, HungOnText
	jp FarBattleTextBox

.asm_50bb
	ld a, BATTLE_VARS_SUBSTATUS4_OPP
	call CleanGetBattleVarPair
	bit SUBSTATUS_SUBSTITUTE, a
	ret nz

	ld de, PlayerDamageTaken + 1
	ld a, [hBattleTurn]
	and a
	jr nz, .asm_350ce
	ld de, EnemyDamageTaken + 1

.asm_350ce
	ld a, [CurDamage + 1]
	ld b, a
	ld a, [de]
	add b
	ld [de], a
	dec de
	ld a, [CurDamage]
	ld b, a
	ld a, [de]
	adc b
	ld [de], a
	ret nc
	ld a, $ff
	ld [de], a
	inc de
	ld [de], a
	ret
; 350e4


Function0x350e4: ; 350e4
	ld hl, DoesntAffectText
	ld de, DoesntAffectText
	ld a, [TypeModifier]
	and $7f
	jr z, .asm_35110 ; 0x350ef $1f
	ld a, BATTLE_VARS_MOVE_EFFECT
	call CleanGetBattleVarPair
	cp EFFECT_FUTURE_SIGHT
	ld hl, ButItFailedText
	ld de, ItFailedText
	jr z, .asm_35110 ; 0x350fe $10
	ld hl, AttackMissedText
	ld de, AttackMissed2Text
	ld a, [CriticalHit]
	cp $ff
	jr nz, .asm_35110 ; 0x3510b $3
	ld hl, UnaffectedText
.asm_35110
	call Function0x35157
	xor a
	ld [CriticalHit], a
	ld a, BATTLE_VARS_MOVE_EFFECT
	call CleanGetBattleVarPair
	cp EFFECT_JUMP_KICK
	ret nz
	ld a, [TypeModifier]
	and $7f
	ret z
	ld hl, CurDamage
	ld a, [hli]
	ld b, [hl]
	srl a
	rr b
	srl a
	rr b
	srl a
	rr b
	ld [hl], b
	dec hl
	ld [hli], a
	or b
	jr nz, .asm_3513e ; 0x3513a $2
	inc a
	ld [hl], a
.asm_3513e
	ld hl, CrashedText
	call FarBattleTextBox
	ld a, $1
	ld [$c689], a
	call Function0x37e36
	ld c, $1
	ld a, [hBattleTurn]
	and a
	jp nz, Function0x35d1c
	jp Function0x35d7e

Function0x35157: ; 35157
	ld a, BATTLE_VARS_SUBSTATUS1_OPP
	call CleanGetBattleVarPair
	bit SUBSTATUS_PROTECT, a
	jr z, .asm_35162
	ld h, d
	ld l, e
.asm_35162
	jp FarBattleTextBox
; 35165


BattleCommanda5: ; 35165
	ld a, [AttackMissed]
	and a
	ret z

	ld a, [TypeModifier]
	and $7f
	jp z, PrintDoesntAffect
	jp PrintButItFailed
; 35175


BattleCommand0f: ; 35175
; criticaltext
; Prints the message for critical hits or one-hit KOs.

; If there is no message to be printed, wait 20 frames.
	ld a, [CriticalHit]
	and a
	jr z, .wait

	dec a
	add a
	ld hl, .ptrs
	ld b, 0
	ld c, a
	add hl, bc
	ld a, [hli]
	ld h, [hl]
	ld l, a
	call FarBattleTextBox

	xor a
	ld [CriticalHit], a

.wait
	ld c, 20
	jp DelayFrames

.ptrs
	dw CriticalHitText ; 'critical hit'
	dw OneHitKOText    ; 'one-hit ko'
; 35197


BattleCommandae: ; 35197
; startloop

	ld hl, PlayerRolloutCount
	ld a, [hBattleTurn]
	and a
	jr z, .asm_351a2
	ld hl, EnemyRolloutCount

.asm_351a2
	xor a
	ld [hl], a
	ret
; 351a5


BattleCommandad: ; 351a5
; supereffectivelooptext

	ld a, BATTLE_VARS_SUBSTATUS3
	call GetBattleVarPair
	bit 2, a
	ret nz

	; fallthrough
; 351ad


BattleCommand10: ; 351ad
; supereffectivetext

	ld a, [TypeModifier]
	and $7f
	cp 10 ; 1.0
	ret z
	ld hl, SuperEffectiveText ; 'super-effective'
	jr nc, .print
	ld hl, NotVeryEffectiveText ; 'not very effective'
.print
	jp FarBattleTextBox
; 351c0


BattleCommand11: ; 351c0
; checkdestinybond

; Faint the user if it fainted an opponent using Destiny Bond.

	ld hl, EnemyMonHPHi
	ld a, [hBattleTurn]
	and a
	jr z, .asm_351cb
	ld hl, BattleMonHP

.asm_351cb
	ld a, [hli]
	or [hl]
	ret nz

	ld a, BATTLE_VARS_SUBSTATUS5_OPP
	call CleanGetBattleVarPair
	bit SUBSTATUS_DESTINY_BOND, a
	jr z, .asm_35231

	ld hl, TookDownWithItText
	call FarBattleTextBox

	ld a, [hBattleTurn]
	and a
	ld hl, EnemyMonMaxHP + 1
	bccoord 2, 2 ; hp bar
	ld a, 0
	jr nz, .asm_351f2
	ld hl, BattleMonMaxHP + 1
	bccoord 10, 9 ; hp bar
	ld a, 1

.asm_351f2
	ld [$d10a], a
	ld a, [hld]
	ld [$d1ea], a
	ld a, [hld]
	ld [$d1eb], a
	ld a, [hl]
	ld [$d1ec], a
	xor a
	ld [hld], a
	ld a, [hl]
	ld [$d1ed], a
	xor a
	ld [hl], a
	ld [$d1ee], a
	ld [$d1ef], a
	ld h, b
	ld l, c
	ld a, $b
	call Predef
	call RefreshBattleHuds

	call SwitchTurn
	xor a
	ld [$cfca], a
	ld [FXAnimIDHi], a
	inc a
	ld [$c689], a
	ld a, $c2
	call Function0x37e44
	call SwitchTurn

	jr .asm_3524d ; 3522f $1c

.asm_35231
	ld a, BATTLE_VARS_MOVE_EFFECT
	call CleanGetBattleVarPair
	cp EFFECT_MULTI_HIT
	jr z, .asm_3524a
	cp EFFECT_DOUBLE_HIT
	jr z, .asm_3524a
	cp EFFECT_TWINEEDLE
	jr z, .asm_3524a
	cp EFFECT_TRIPLE_KICK
	jr z, .asm_3524a
	cp EFFECT_BEAT_UP
	jr nz, .asm_3524d

.asm_3524a
	call BattleCommand0c

.asm_3524d
	jp EndMoveEffect
; 35250


BattleCommand12: ; 35250
; buildopponentrage

	jp .start
.start
	ld a, [AttackMissed]
	and a
	ret nz

	ld a, BATTLE_VARS_SUBSTATUS4_OPP
	call CleanGetBattleVarPair
	bit SUBSTATUS_RAGE, a
	ret z

	ld de, $c72c
	ld a, [hBattleTurn]
	and a
	jr z, .asm_3526b
	ld de, $c72b
.asm_3526b
	ld a, [de]
	inc a
	ret z
	ld [de], a

	call SwitchTurn
	ld hl, RageBuildingText
	call FarBattleTextBox
	jp SwitchTurn
; 3527b


BattleCommanda2: ; 3527b
; ragedamage

	ld a, [CurDamage]
	ld h, a
	ld b, a
	ld a, [CurDamage + 1]
	ld l, a
	ld c, a
	ld a, [hBattleTurn]
	and a
	ld a, [$c72b]
	jr z, .asm_35290 ; 3528b $3
	ld a, [$c72c]
.asm_35290
	and a
	jr z, .asm_3529a ; 35291 $7
	dec a
	add hl, bc
	jr nc, .asm_35290 ; 35295 $f9
	ld hl, $ffff
.asm_3529a
	ld a, h
	ld [CurDamage], a
	ld a, l
	ld [CurDamage + 1], a
	ret
; 352a3


EndMoveEffect: ; 352a3
	ld a, [BattleScriptBufferLoc]
	ld l, a
	ld a, [BattleScriptBufferLoc + 1]
	ld h, a
	ld a, $ff
	ld [hli], a
	ld [hli], a
	ld [hl], a
	ret
; 352b1


DittoMetalPowder: ; 352b1
	ld a, PartyMon1Species - PartyMon1
	call BattlePartyAttr
	ld a, [hBattleTurn]
	and a
	ld a, [hl]
	jr nz, .Ditto
	ld a, [TempEnemyMonSpecies]

.Ditto
	cp DITTO
	ret nz

	push bc
	call GetOpponentItem
	ld a, [hl]
	cp METAL_POWDER
	pop bc
	ret nz

	ld a, c
	srl a
	add c
	ld c, a
	ret nc

	srl b
	ld a, b
	and a
	jr nz, .asm_352d8
	inc b
.asm_352d8
	scf
	rr c
	ret
; 352dc


BattleCommand06: ; 352dc
; damagestats

	ld a, [hBattleTurn]
	and a
	jp nz, EnemyAttackDamage

	; fallthrough
; 352e2


PlayerAttackDamage: ; 352e2
; Return move power d, player level e, enemy defense c and player attack b.

	call ResetDamage

	ld hl, PlayerMovePower
	ld a, [hli]
	and a
	ld d, a
	ret z

	ld a, [hl]
	cp FIRE
	jr nc, .special


; Physical
	ld hl, EnemyMonDef
	ld a, [hli]
	ld b, a
	ld c, [hl]

; Reflect
	ld a, [EnemyScreens]
	bit 4, a
	jr z, .physicalcrit
	sla c
	rl b

.physicalcrit
	ld hl, BattleMonAtk
	call GetDamageStatsCritical
	jr c, .thickclub

	ld hl, $c6c3
	ld a, [hli]
	ld b, a
	ld c, [hl]
	ld hl, PlayerStats
	jr .thickclub


.special
	ld hl, EnemyMonSpclDef
	ld a, [hli]
	ld b, a
	ld c, [hl]

; Light Screen
	ld a, [EnemyScreens]
	bit 3, a
	jr z, .specialcrit
	sla c
	rl b

.specialcrit
	ld hl, BattleMonSpclAtk
	call GetDamageStatsCritical
	jr c, .lightball

	ld hl, $c6c9
	ld a, [hli]
	ld b, a
	ld c, [hl]
	ld hl, $c6bc

.lightball
; Note: Returns player special attack at hl in hl.
	call LightBallBoost
	jr .done

.thickclub
; Note: Returns player attack at hl in hl.
	call ThickClubBoost

.done
	call Function0x3534d

	ld a, [BattleMonLevel]
	ld e, a
	call DittoMetalPowder

	ld a, 1
	and a
	ret
; 3534d


Function0x3534d: ; 3534d
; Truncate 16-bit values hl and bc to 8-bit values b and c respectively.
; b = hl, c = bc

	ld a, h
	or b
	jr z, .asm_3536b

	srl b
	rr c
	srl b
	rr c

	ld a, c
	or b
	jr nz, .asm_3535e
	inc c

.asm_3535e
	srl h
	rr l
	srl h
	rr l

	ld a, l
	or h
	jr nz, .asm_3536b
	inc l

.asm_3536b
	ld a, [InLinkBattle]
	cp 3
	jr z, .done

	ld a, h
	or b
	jr nz, Function0x3534d

.done
	ld b, l
	ret
; 35378


GetDamageStatsCritical: ; 35378
; Return carry if non-critical.

	ld a, [CriticalHit]
	and a
	scf
	ret z

	; fallthrough
; 3537e


GetDamageStats: ; 3537e
; Return the attacker's offensive stat and the defender's defensive
; stat based on whether the attacking type is physical or special.

	push hl
	push bc
	ld a, [hBattleTurn]
	and a
	jr nz, .enemy
	ld a, [PlayerMoveType]
	cp FIRE
; special
	ld a, [PlayerSAtkLevel]
	ld b, a
	ld a, [EnemySDefLevel]
	jr nc, .end
; physical
	ld a, [PlayerAtkLevel]
	ld b, a
	ld a, [EnemyDefLevel]
	jr .end

.enemy
	ld a, [EnemyMoveType]
	cp FIRE
; special
	ld a, [EnemySAtkLevel]
	ld b, a
	ld a, [PlayerSDefLevel]
	jr nc, .end
; physical
	ld a, [EnemyAtkLevel]
	ld b, a
	ld a, [PlayerDefLevel]
.end
	cp b
	pop bc
	pop hl
	ret
; 353b5


ThickClubBoost: ; 353b5
; Return in hl the stat value at hl.

; If the attacking monster is Cubone or Marowak and
; it's holding a Thick Club, double it.
	push bc
	push de
	ld b, CUBONE
	ld c, MAROWAK
	ld d, THICK_CLUB
	call SpeciesItemBoost
	pop de
	pop bc
	ret
; 353c3


LightBallBoost: ; 353c3
; Return in hl the stat value at hl.

; If the attacking monster is Pikachu and it's
; holding a Light Ball, double it.
	push bc
	push de
	ld b, PIKACHU
	ld c, PIKACHU
	ld d, LIGHT_BALL
	call SpeciesItemBoost
	pop de
	pop bc
	ret
; 353d1


SpeciesItemBoost: ; 353d1
; Return in hl the stat value at hl.

; If the attacking monster is species b or c and
; it's holding item d, double it.

	ld a, [hli]
	ld l, [hl]
	ld h, a

	push hl
	ld a, PartyMon1Species - PartyMon1
	call BattlePartyAttr

	ld a, [hBattleTurn]
	and a
	ld a, [hl]
	jr z, .CompareSpecies
	ld a, [TempEnemyMonSpecies]
.CompareSpecies
	pop hl

	cp b
	jr z, .GetItem
	cp c
	ret nz

.GetItem
	push hl
	call GetUserItem
	ld a, [hl]
	pop hl
	cp d
	ret nz

; Double the stat
	sla l
	rl h
	ret
; 353f6


EnemyAttackDamage: ; 353f6
	call ResetDamage

; No damage dealt with 0 power.
	ld hl, EnemyMovePower
	ld a, [hli] ; hl = EnemyMoveType
	ld d, a
	and a
	ret z

	ld a, [hl]
	cp FIRE
	jr nc, .Special


; Physical
	ld hl, BattleMonDef
	ld a, [hli]
	ld b, a
	ld c, [hl]

; Reflect
	ld a, [PlayerScreens]
	bit 4, a
	jr z, .physicalcrit
	sla c
	rl b

.physicalcrit
	ld hl, EnemyMonAtk
	call GetDamageStatsCritical
	jr c, .thickclub

	ld hl, $c6b8
	ld a, [hli]
	ld b, a
	ld c, [hl]
	ld hl, EnemyStats
	jr .thickclub


.Special
	ld hl, BattleMonSpclDef
	ld a, [hli]
	ld b, a
	ld c, [hl]

; Light Screen
	ld a, [PlayerScreens]
	bit 3, a
	jr z, .specialcrit
	sla c
	rl b

.specialcrit
	ld hl, EnemyMonSpclAtk
	call GetDamageStatsCritical
	jr c, .lightball
	ld hl, $c6be
	ld a, [hli]
	ld b, a
	ld c, [hl]
	ld hl, $c6c7

.lightball
	call LightBallBoost
	jr .done

.thickclub
	call ThickClubBoost

.done
	call Function0x3534d

	ld a, [EnemyMonLevel]
	ld e, a
	call DittoMetalPowder

	ld a, 1
	and a
	ret
; 35461


BattleCommanda1: ; 35461
; beatup

	call ResetDamage
	ld a, [hBattleTurn]
	and a
	jp nz, .asm_354ef
	ld a, [PlayerSubStatus3]
	bit 2, a
	jr nz, .asm_35482 ; 3546f $11
	ld c, $14
	call DelayFrames
	xor a
	ld [PlayerRolloutCount], a
	ld [DefaultFlypoint], a
	ld [$c72d], a
	jr .asm_3548d ; 35480 $b
.asm_35482
	ld a, [PlayerRolloutCount]
	ld b, a
	ld a, [PartyCount]
	sub b
	ld [DefaultFlypoint], a
.asm_3548d
	ld a, [DefaultFlypoint]
	ld hl, PartyMon1Nickname
	call $38a2
	ld a, $22
	call Function0x355bd
	ld a, [hli]
	or [hl]
	jp z, Function0x355b0
	ld a, [DefaultFlypoint]
	ld c, a
	ld a, [CurBattleMon]
	cp [hl]
	ld hl, BattleMonStatus
	jr z, .asm_354b2 ; 354ab $5
	ld a, $20
	call Function0x355bd
.asm_354b2
	ld a, [hl]
	and a
	jp nz, Function0x355b0
	ld a, $1
	ld [$c72d], a
	ld hl, BeatUpAttackText
	call FarBattleTextBox
	ld a, [EnemyMonSpecies]
	ld [CurSpecies], a
	call $3856
	ld a, [$d239]
	ld c, a
	push bc
	ld a, $0
	call Function0x355bd
	ld a, [hl]
	ld [CurSpecies], a
	call $3856
	ld a, [$d238]
	pop bc
	ld b, a
	push bc
	ld a, $1f
	call Function0x355bd
	ld a, [hl]
	ld e, a
	pop bc
	ld a, [PlayerMovePower]
	ld d, a
	ret

.asm_354ef
	ld a, [EnemySubStatus3]
	bit 2, a
	jr nz, .asm_35502

	xor a
	ld [EnemyRolloutCount], a
	ld [DefaultFlypoint], a
	ld [$c72d], a
	jr .asm_3550d

.asm_35502
	ld a, [EnemyRolloutCount]
	ld b, a
	ld a, [OTPartyCount]
	sub b
	ld [DefaultFlypoint], a
.asm_3550d
	ld a, [IsInBattle]
	dec a
	jr z, .asm_3556b

	ld a, [InLinkBattle]
	and a
	jr nz, .asm_35532

	ld a, [$cfc0]
	and a
	jr nz, .asm_35532

	ld a, [DefaultFlypoint]
	ld c, a
	ld b, $0
	ld hl, OTPartySpecies
	add hl, bc
	ld a, [hl]
	ld [$d265], a
	call $343b
	jr .asm_35544

.asm_35532
	ld a, [DefaultFlypoint]
	ld hl, OTPartyMon1Nickname
	ld bc, $000b
	call AddNTimes
	ld de, StringBuffer1
	call CopyBytes
.asm_35544
	ld a, $22
	call Function0x355bd
	ld a, [hli]
	or [hl]
	jp z, Function0x355b0
	ld a, [DefaultFlypoint]
	ld b, a
	ld a, [CurOTMon]
	cp b
	ld hl, EnemyMonStatus
	jr z, .asm_35560

	ld a, $20
	call Function0x355bd
.asm_35560
	ld a, [hl]
	and a
	jr nz, Function0x355b0

	ld a, $1
	ld [$c72d], a
	jr .asm_3557d

.asm_3556b
	ld a, [EnemyMonSpecies]
	ld [$d265], a
	call $343b
	ld hl, BeatUpAttackText
	call FarBattleTextBox
	jp EnemyAttackDamage
.asm_3557d
	ld hl, BeatUpAttackText
	call FarBattleTextBox
	ld a, [BattleMonSpecies]
	ld [CurSpecies], a
	call GetBaseData
	ld a, [$d239]
	ld c, a
	push bc
	ld a, $0
	call Function0x355bd
	ld a, [hl]
	ld [CurSpecies], a
	call GetBaseData
	ld a, [$d238]
	pop bc
	ld b, a
	push bc
	ld a, $1f
	call Function0x355bd
	ld a, [hl]
	ld e, a
	pop bc
	ld a, [EnemyMovePower]
	ld d, a
	ret
; 355b0


Function0x355b0: ; 355b0
	ld b, $12 ; buildopponentrage
	jp SkipToBattleCommand
; 355b5


BattleCommanda8: ; 355b5
	ld a, [$c72d]
	and a
	ret nz
	jp PrintButItFailed
; 355bd


Function0x355bd: ; 355bd
	push bc
	ld c, a
	ld b, 0
	ld a, [hBattleTurn]
	and a
	ld hl, PartyMon1Species
	jr z, .asm_355cc
	ld hl, OTPartyMon1Species

.asm_355cc
	ld a, [DefaultFlypoint]
	add hl, bc
	call GetPartyLocation
	pop bc
	ret
; 355d5


BattleCommanda9: ; 355d5
; clearmissdamage
	ld a, [AttackMissed]
	and a
	ret z
	jp ResetDamage
; 355dd


Function0x355dd: ; 355dd
	call ResetDamage
	ld a, [hBattleTurn]
	and a
	ld hl, BattleMonDef
	ld de, PlayerScreens
	ld a, [BattleMonLevel]
	jr z, .asm_355f7

	ld hl, EnemyMonDef
	ld de, EnemyScreens
	ld a, [EnemyMonLevel]
.asm_355f7
	push af
	ld a, [hli]
	ld b, a
	ld c, [hl]
	ld a, [de]
	bit 4, a
	jr z, .asm_35604

	sla c
	rl b
.asm_35604
	dec hl
	dec hl
	dec hl
	ld a, [hli]
	ld l, [hl]
	ld h, a
	call Function0x3534d
	ld d, $28
	pop af
	ld e, a
	ret
; 35612


BattleCommand62: ; 35612
; damagecalc

; Return a damage value for move power d, player level e, enemy defense c and player attack b.

; Return 1 if successful, else 0.

	ld a, BATTLE_VARS_MOVE_EFFECT
	call CleanGetBattleVarPair

; Selfdestruct and Explosion halve defense.
	cp EFFECT_EXPLOSION
	jr nz, .asm_35620

	srl c
	jr nz, .asm_35620
	inc c

.asm_35620

; Variable-hit moves and Conversion can have a power of 0.
	cp EFFECT_MULTI_HIT
	jr z, .asm_3562b

	cp EFFECT_CONVERSION
	jr z, .asm_3562b

; No damage if move power is 0.
	ld a, d
	and a
	ret z

.asm_3562b
; Minimum defense value is 1.
	ld a, c
	and a
	jr nz, .asm_35631
	ld c, 1
.asm_35631


	xor a
	ld hl, hDividend
	ld [hli], a
	ld [hli], a
	ld [hl], a

; Level * 2
	ld a, e
	add a
	jr nc, .asm_3563e
	ld [hl], $1
.asm_3563e
	inc hl
	ld [hli], a

; / 5
	ld a, 5
	ld [hld], a
	push bc
	ld b, $4
	call Divide
	pop bc

; + 2
	inc [hl]
	inc [hl]

; * bp
	inc hl
	ld [hl], d
	call Multiply

; * Attack
	ld [hl], b
	call Multiply

; / Defense
	ld [hl], c
	ld b, $4
	call Divide

; / 50
	ld [hl], 50
	ld b, $4
	call Divide


; Item boosts
	call GetUserItem

	ld a, b
	and a
	jr z, .DoneItem

	ld hl, TypeBoostItems

.NextItem
	ld a, [hli]
	cp $ff
	jr z, .DoneItem

; Item effect
	cp b
	ld a, [hli]
	jr nz, .NextItem

; Type
	ld b, a
	ld a, BATTLE_VARS_MOVE_TYPE
	call CleanGetBattleVarPair
	cp b
	jr nz, .DoneItem

; * 100 + item effect amount
	ld a, c
	add 100
	ld [hMultiplier], a
	call Multiply

; / 100
	ld a, 100
	ld [hDivisor], a
	ld b, 4
	call Divide
.DoneItem

; Critical hits
	call .CriticalMultiplier


; Update CurDamage (capped at 997).
	ld hl, CurDamage
	ld b, [hl]
	ld a, [$ffb6]
	add b
	ld [$ffb6], a
	jr nc, .asm_356a5

	ld a, [$ffb5]
	inc a
	ld [$ffb5], a
	and a
	jr z, .Cap

.asm_356a5
	ld a, [$ffb3]
	ld b, a
	ld a, [$ffb4]
	or a
	jr nz, .Cap

	ld a, [$ffb5]
	cp 998 / $100
	jr c, .asm_356bd

	cp 998 / $100 + 1
	jr nc, .Cap

	ld a, [$ffb6]
	cp 998 % $100
	jr nc, .Cap

.asm_356bd
	inc hl

	ld a, [$ffb6]
	ld b, [hl]
	add b
	ld [hld], a

	ld a, [$ffb5]
	ld b, [hl]
	adc b
	ld [hl], a
	jr c, .Cap

	ld a, [hl]
	cp 998 / $100
	jr c, .asm_356df

	cp 998 / $100 + 1
	jr nc, .Cap

	inc hl
	ld a, [hld]
	cp 998 % $100
	jr c, .asm_356df

.Cap
	ld a, 997 / $100
	ld [hli], a
	ld a, 997 % $100
	ld [hld], a


.asm_356df
; Minimum neutral damage is 2 (bringing the cap to 999).
	inc hl
	ld a, [hl]
	add 2
	ld [hld], a
	jr nc, .asm_356e7
	inc [hl]
.asm_356e7

	ld a, 1
	and a
	ret


.CriticalMultiplier
	ld a, [CriticalHit]
	and a
	ret z

; x2
	ld a, [$ffb6]
	add a
	ld [$ffb6], a

	ld a, [$ffb5]
	rl a
	ld [$ffb5], a

; Cap at $ffff.
	ret nc

	ld a, $ff
	ld [$ffb5], a
	ld [$ffb6], a

	ret
; 35703


TypeBoostItems: ; 35703
	db HELD_NORMAL_BOOST,   NORMAL   ; Pink/Polkadot Bow
	db HELD_FIGHTING_BOOST, FIGHTING ; Blackbelt
	db HELD_FLYING_BOOST,   FLYING   ; Sharp Beak
	db HELD_POISON_BOOST,   POISON   ; Poison Barb
	db HELD_GROUND_BOOST,   GROUND   ; Soft Sand
	db HELD_ROCK_BOOST,     ROCK     ; Hard Stone
	db HELD_BUG_BOOST,      BUG      ; Silverpowder
	db HELD_GHOST_BOOST,    GHOST    ; Spell Tag
	db HELD_FIRE_BOOST,     FIRE     ; Charcoal
	db HELD_WATER_BOOST,    WATER    ; Mystic Water
	db HELD_GRASS_BOOST,    GRASS    ; Miracle Seed
	db HELD_ELECTRIC_BOOST, ELECTRIC ; Magnet
	db HELD_PSYCHIC_BOOST,  PSYCHIC  ; Twistedspoon
	db HELD_ICE_BOOST,      ICE      ; Nevermeltice
	db HELD_DRAGON_BOOST,   DRAGON   ; Dragon Scale
	db HELD_DARK_BOOST,     DARK     ; Blackglasses
	db HELD_STEEL_BOOST,    STEEL    ; Metal Coat
	db $ff
; 35726


BattleCommand3f: ; 35726
; constantdamage

	ld hl, BattleMonLevel
	ld a, [hBattleTurn]
	and a
	jr z, .asm_35731
	ld hl, EnemyMonLevel

.asm_35731
	ld a, BATTLE_VARS_MOVE_EFFECT
	call CleanGetBattleVarPair
	cp EFFECT_LEVEL_DAMAGE
	ld b, [hl]
	ld a, 0
	jr z, .asm_3578c

	ld a, BATTLE_VARS_MOVE_EFFECT
	call CleanGetBattleVarPair
	cp EFFECT_PSYWAVE
	jr z, .asm_35758

	cp EFFECT_SUPER_FANG
	jr z, .asm_3576b

	cp EFFECT_REVERSAL
	jr z, .asm_35792

	ld a, BATTLE_VARS_MOVE_POWER
	call CleanGetBattleVarPair
	ld b, a
	ld a, $0
	jr .asm_3578c

.asm_35758
	ld a, b
	srl a
	add b
	ld b, a
.asm_3575d
	call FarBattleRNG
	and a
	jr z, .asm_3575d ; 35761 $fa
	cp b
	jr nc, .asm_3575d ; 35764 $f7
	ld b, a
	ld a, $0
	jr .asm_3578c ; 35769 $21
.asm_3576b
	ld hl, EnemyMonHPHi
	ld a, [hBattleTurn]
	and a
	jr z, .asm_35776 ; 35771 $3
	ld hl, BattleMonHP
.asm_35776
	ld a, [hli]
	srl a
	ld b, a
	ld a, [hl]
	rr a
	push af
	ld a, b
	pop bc
	and a
	jr nz, .asm_3578c ; 35781 $9
	or b
	ld a, $0
	jr nz, .asm_3578c ; 35786 $4
	ld b, $1
	jr .asm_3578c ; 3578a $0
.asm_3578c
	ld hl, CurDamage
	ld [hli], a
	ld [hl], b
	ret
.asm_35792
	ld hl, BattleMonHP
	ld a, [hBattleTurn]
	and a
	jr z, .asm_3579d ; 35798 $3
	ld hl, EnemyMonHPHi
.asm_3579d
	xor a
	ld [$ffb3], a
	ld [$ffb4], a
	ld a, [hli]
	ld [$ffb5], a
	ld a, [hli]
	ld [$ffb6], a
	ld a, $30
	ld [$ffb7], a
	call Multiply
	ld a, [hli]
	ld b, a
	ld a, [hl]
	ld [$ffb7], a
	ld a, b
	and a
	jr z, .asm_357d6

	ld a, [$ffb7]
	srl b
	rr a
	srl b
	rr a
	ld [$ffb7], a
	ld a, [$ffb5]
	ld b, a
	srl b
	ld a, [$ffb6]
	rr a
	srl b
	rr a
	ld [$ffb6], a
	ld a, b
	ld [$ffb5], a

.asm_357d6
	ld b, $4
	call Divide
	ld a, [$ffb6]
	ld b, a
	ld hl, .FlailPower

.asm_357e1
	ld a, [hli]
	cp b
	jr nc, .asm_357e8
	inc hl
	jr .asm_357e1

.asm_357e8
	ld a, [hBattleTurn]
	and a
	ld a, [hl]
	jr nz, .asm_357f8

	ld hl, PlayerMovePower
	ld [hl], a
	push hl
	call PlayerAttackDamage
	jr .asm_35800

.asm_357f8
	ld hl, EnemyMovePower
	ld [hl], a
	push hl
	call EnemyAttackDamage

.asm_35800
	call BattleCommand62
	pop hl
	ld [hl], 1
	ret

.FlailPower
	;  px,  bp
	db  1, 200
	db  4, 150
	db  9, 100
	db 16,  80
	db 32,  40
	db 48,  20
; 35813


BattleCommand40: ; 35813
; counter

	ld a, $1
	ld [AttackMissed], a
	ld a, BATTLE_VARS_LAST_COUNTER_MOVE_OPP
	call CleanGetBattleVarPair
	and a
	ret z
	ld b, a

	ld hl, $45ec
	ld a, $f
	rst FarCall

	ld a, b
	cp $59
	ret z
	call BattleCommanda3
	ld a, [$d265]
	and a
	ret z
	call Function0x36abf
	ret z
	ld a, BATTLE_VARS_LAST_COUNTER_MOVE_OPP
	call CleanGetBattleVarPair
	dec a
	ld de, StringBuffer1
	call GetMoveData
	ld a, [$d075]
	and a
	ret z
	ld a, [$d076]
	cp $14
	ret nc
	ld hl, CurDamage
	ld a, [hli]
	or [hl]
	ret z
	ld a, [hl]
	add a
	ld [hld], a
	ld a, [hl]
	adc a
	ld [hl], a
	jr nc, .asm_3585f ; 35859 $4
	ld a, $ff
	ld [hli], a
	ld [hl], a
.asm_3585f
	xor a
	ld [AttackMissed], a
	ret
; 35864


BattleCommand41: ; 35864
; encore

	ld hl, EnemyMonMoves
	ld de, EnemyEncoreCount
	ld a, [hBattleTurn]
	and a
	jr z, .asm_35875 ; 3586d $6
	ld hl, BattleMonMoves
	ld de, PlayerEncoreCount
.asm_35875
	ld a, BATTLE_VARS_LAST_MOVE_OPP
	call CleanGetBattleVarPair
	and a
	jp z, Function0x35923
	cp STRUGGLE
	jp z, Function0x35923
	cp ENCORE
	jp z, Function0x35923
	cp MIRROR_MOVE
	jp z, Function0x35923
	ld b, a

.asm_3588e
	ld a, [hli]
	cp b
	jr nz, .asm_3588e

	ld bc, $0005
	add hl, bc
	ld a, [hl]
	and $3f
	jp z, Function0x35923
	ld a, [AttackMissed]
	and a
	jp nz, Function0x35923
	ld a, BATTLE_VARS_SUBSTATUS5_OPP
	call GetBattleVarPair
	bit 4, [hl]
	jp nz, Function0x35923
	set 4, [hl]
	call FarBattleRNG
	and $3
	inc a
	inc a
	inc a
	ld [de], a
	call Function0x36abf
	jr nz, .asm_3591a
	ld a, [hBattleTurn]
	and a
	jr z, .asm_358ef
	push hl
	ld a, [LastPlayerMove]
	ld b, a
	ld c, $0
	ld hl, BattleMonMoves
.asm_358cc
	ld a, [hli]
	cp b
	jr z, .asm_358dd
	inc c
	ld a, c
	cp $4
	jr c, .asm_358cc
	pop hl
	res 4, [hl]
	xor a
	ld [de], a
	jr Function0x35923
.asm_358dd
	pop hl
	ld a, c
	ld [CurMoveNum], a
	ld a, b
	ld [CurPlayerMove], a
	dec a
	ld de, PlayerMoveStruct
	call GetMoveData
	jr .asm_3591a
.asm_358ef
	push hl
	ld a, [LastEnemyMove]
	ld b, a
	ld c, $0
	ld hl, EnemyMonMoves
.asm_358f9
	ld a, [hli]
	cp b
	jr z, .asm_3590a
	inc c
	ld a, c
	cp $4
	jr c, .asm_358f9
	pop hl
	res 4, [hl]
	xor a
	ld [de], a
	jr Function0x35923
.asm_3590a
	pop hl
	ld a, c
	ld [CurEnemyMoveNum], a
	ld a, b
	ld [CurEnemyMove], a
	dec a
	ld de, EnemyMoveStruct
	call GetMoveData
.asm_3591a
	call Function0x37e01

	ld hl, GotAnEncoreText
	jp FarBattleTextBox
; 35923


Function0x35923: ; 35923
	jp PrintDidntAffect2
; 35926


BattleCommand42: ; 35926
; painsplit

	ld a, [AttackMissed]
	and a
	jp nz, Function0x359cd
	call CheckSubstituteOpp
	jp nz, Function0x359cd
	call Function0x37e01
	ld hl, $c63f
	ld de, EnemyMonMaxHPLo
	call .asm_3597d
	ld a, $1
	ld [$d10a], a
	ld hl, $c55e
	ld a, $b
	call Predef
	ld hl, EnemyMonHPHi
	ld a, [hli]
	ld [$d1ed], a
	ld a, [hli]
	ld [$d1ec], a
	ld a, [hli]
	ld [$d1eb], a
	ld a, [hl]
	ld [$d1ea], a
	call Function0x359ac
	xor a
	ld [$d10a], a
	call ResetDamage
	ld hl, $c4ca
	ld a, $b
	call Predef
	ld a, $5e
	ld hl, $4000
	rst FarCall

	ld hl, SharedPainText
	jp FarBattleTextBox

.asm_3597d
	ld a, [hld]
	ld [$d1ea], a
	ld a, [hld]
	ld [$d1eb], a
	ld a, [hld]
	ld b, a
	ld [$d1ec], a
	ld a, [hl]
	ld [$d1ed], a
	dec de
	dec de
	ld a, [de]
	dec de
	add b
	ld [$d257], a
	ld b, [hl]
	ld a, [de]
	adc b
	srl a
	ld [CurDamage], a
	ld a, [$d257]
	rr a
	ld [$d257], a
	inc hl
	inc hl
	inc hl
	inc de
	inc de
	inc de

	; fallthrough
; 359ac


Function0x359ac: ; 359ac
	ld c, [hl]
	dec hl
	ld a, [$d257]
	sub c
	ld b, [hl]
	dec hl
	ld a, [CurDamage]
	sbc b
	jr nc, .asm_359c2

	ld a, [CurDamage]
	ld b, a
	ld a, [$d257]
	ld c, a
.asm_359c2
	ld a, c
	ld [hld], a
	ld [$d1ee], a
	ld a, b
	ld [hli], a
	ld [$d1ef], a
	ret
; 359cd

Function0x359cd: ; 359cd
	jp PrintDidntAffect2
; 359d0


BattleCommand43: ; 359d0
; snore
	ld a, BATTLE_VARS_STATUS
	call CleanGetBattleVarPair
	and SLP
	ret nz
	call ResetDamage
	ld a, $1
	ld [AttackMissed], a
	call Function0x37354
	jp EndMoveEffect
; 359e6


BattleCommand44: ; 359e6
; conversion2

	ld a, [AttackMissed]
	and a
	jr nz, .asm_35a50 ; 359ea $64
	ld hl, BattleMonType1
	ld a, [hBattleTurn]
	and a
	jr z, .asm_359f7 ; 359f2 $3
	ld hl, EnemyMonType1
.asm_359f7
	ld a, BATTLE_VARS_LAST_COUNTER_MOVE_OPP
	call CleanGetBattleVarPair
	and a
	jr z, .asm_35a50 ; 359fd $51
	push hl
	dec a
	ld hl, Moves + PlayerMoveType - PlayerMoveStruct
	call GetMoveAttr
	ld d, a
	pop hl
	cp CURSE_T
	jr z, .asm_35a50 ; 35a0b $43
	call Function0x37e01

	call SwitchTurn
.asm_35a13
	call FarBattleRNG
	and $1f
	cp $a
	jr c, .asm_35a24 ; 35a1a $8
	cp $14
	jr c, .asm_35a13 ; 35a1e $f3
	cp $1c
	jr nc, .asm_35a13 ; 35a22 $ef
.asm_35a24
	ld [hli], a
	ld [hld], a
	push hl
	ld a, BATTLE_VARS_MOVE_TYPE
	call GetBattleVarPair
	push af
	push hl
	ld a, d
	ld [hl], a
	call Function0x347c8
	pop hl
	pop af
	ld [hl], a
	pop hl
	ld a, [$d265]
	cp $a
	jr nc, .asm_35a13 ; 35a3c $d5
	call SwitchTurn

	ld a, [hl]
	ld [$d265], a
	ld a, $29
	call Predef
	ld hl, $5452
	jp FarBattleTextBox
.asm_35a50
	jp Function0x37354
; 35a53


BattleCommand45: ; 35a53
; lockon

	call CheckSubstituteOpp
	jr nz, .asm_35a6e
	ld a, [AttackMissed]
	and a
	jr nz, .asm_35a6e
	ld a, BATTLE_VARS_SUBSTATUS5_OPP
	call GetBattleVarPair
	set SUBSTATUS_LOCK_ON, [hl]
	call Function0x37e01

	ld hl, TookAimText
	jp FarBattleTextBox

.asm_35a6e
	call Function0x37e77
	jp PrintDidntAffect
; 35a74


BattleCommand46: ; 35a74
; sketch

	call Function0x372d8
	ld a, [InLinkBattle]
	and a
	jr z, .asm_35a83 ; 35a7b $6
	call Function0x37e77
	jp PrintNothingHappened
.asm_35a83
	call CheckSubstituteOpp
	jp nz, .asm_35b10
	ld a, BATTLE_VARS_SUBSTATUS5_OPP
	call GetBattleVarPair
	bit 3, [hl]
	jp nz, .asm_35b10
	ld a, $2
	call UserPartyAttr
	ld d, h
	ld e, l
	ld hl, BattleMonMoves
	ld a, [hBattleTurn]
	and a
	jr z, .asm_35aa5 ; 35aa0 $3
	ld hl, EnemyMonMoves
.asm_35aa5
	ld a, BATTLE_VARS_LAST_COUNTER_MOVE_OPP
	call CleanGetBattleVarPair
	ld [$d265], a
	ld b, a
	and a
	jr z, .asm_35b10 ; 35aaf $5f
	cp STRUGGLE
	jr z, .asm_35b10 ; 35ab3 $5b
	ld c, $4
.asm_35ab7
	ld a, [hli]
	cp b
	jr z, .asm_35b10 ; 35ab9 $55
	dec c
	jr nz, .asm_35ab7 ; 35abc $f9
	dec hl
	ld c, $4
.asm_35ac1
	dec c
	ld a, [hld]
	cp SKETCH
	jr nz, .asm_35ac1 ; 35ac5 $fa
	inc hl
	ld a, b
	ld [hl], a
	push bc
	push hl
	dec a
	ld hl, Moves + PlayerMovePP - PlayerMoveStruct
	call GetMoveAttr
	pop hl
	ld bc, $0006
	add hl, bc
	ld [hl], a
	pop bc
	ld a, [hBattleTurn]
	and a
	jr z, .asm_35af6 ; 35add $17
	ld a, [IsInBattle]
	dec a
	jr nz, .asm_35af6 ; 35ae3 $11
	ld a, [hl]
	push bc
	ld hl, $c739
	ld b, $0
	add hl, bc
	ld [hl], a
	ld hl, $c735
	add hl, bc
	pop bc
	ld [hl], b
	jr .asm_35b04 ; 35af4 $e
.asm_35af6
	ld a, [hl]
	push af
	ld l, c
	ld h, $0
	add hl, de
	ld a, b
	ld [hl], a
	pop af
	ld de, $0015
	add hl, de
	ld [hl], a
.asm_35b04
	call GetMoveName
	call Function0x37e01

	ld hl, SketchedText
	jp FarBattleTextBox

.asm_35b10
	call Function0x37e77
	jp PrintDidntAffect
; 35b16


BattleCommand47: ; 35b16
; defrostopponent

; If the opponent isn't frozen, raise Attack one stage.
; If the opponent is frozen, thaw them and raise Accuracy two stages.

	call Function0x37e01

	ld a, BATTLE_VARS_STATUS_OPP
	call GetBattleVarPair
	call Defrost

; Sharply raise accuracy
	ld a, BATTLE_VARS_MOVE_EFFECT
	call GetBattleVarPair
	ld a, [hl]
	push hl
	push af

	ld a, $a ; meditate, sharpen
	ld [hl], a
	call BattleCommand1c

	pop af
	pop hl
	ld [hl], a
	ret
; 35b33


BattleCommand48: ; 35b33
; sleeptalk

	call Function0x372d8
	ld a, [AttackMissed]
	and a
	jr nz, .asm_35ba3 ; 35b3a $67
	ld a, [hBattleTurn]
	and a
	ld hl, BattleMonMove2
	ld a, [DisabledMove]
	ld d, a
	jr z, .asm_35b4f ; 35b46 $7
	ld hl, EnemyMonMove2
	ld a, [EnemyDisabledMove]
	ld d, a
.asm_35b4f
	ld a, BATTLE_VARS_STATUS
	call CleanGetBattleVarPair
	and $7
	jr z, .asm_35ba3 ; 35b56 $4b
	ld a, [hl]
	and a
	jr z, .asm_35ba3 ; 35b5a $47
	call .asm_35ba9
	jr c, .asm_35ba3 ; 35b5f $42
	dec hl
.asm_35b62
	push hl
	call FarBattleRNG
	and $3
	ld c, a
	ld b, $0
	add hl, bc
	ld a, [hl]
	pop hl
	and a
	jr z, .asm_35b62 ; 35b6f $f1
	ld e, a
	ld a, BATTLE_VARS_MOVE_ANIM
	call CleanGetBattleVarPair
	cp e
	jr z, .asm_35b62 ; 35b78 $e8
	ld a, e
	cp d
	jr z, .asm_35b62 ; 35b7c $e4
	call .asm_35bdf
	jr z, .asm_35b62 ; 35b81 $df
	ld a, BATTLE_VARS_MOVE
	call GetBattleVarPair
	ld a, e
	ld [hl], a
	call Function0x34548
	jr nz, .asm_35b9a ; 35b8d $b
	ld a, [$c689]
	push af
	call BattleCommand0a
	pop af
	ld [$c689], a
.asm_35b9a
	call Function0x37e36
	call UpdateMoveData
	jp ResetTurn
.asm_35ba3
	call Function0x37e77
	jp TryPrintButItFailed

.asm_35ba9
	push hl
	push de
	push bc
	call .asm_35bb3
	pop bc
	pop de
	pop hl
	ret

.asm_35bb3
	ld a, [hBattleTurn]
	and a
	ld a, [DisabledMove]
	jr z, .asm_35bbe

	ld a, [EnemyDisabledMove]
.asm_35bbe
	ld b, a
	ld a, $10
	call CleanGetBattleVarPair
	ld c, a
	dec hl
	ld d, $4
.asm_35bc8
	ld a, [hl]
	and a
	jr z, .asm_35bdb

	cp c
	jr z, .asm_35bd7
	cp b
	jr z, .asm_35bd7

	call .asm_35bdf
	jr nz, .asm_35bdd

.asm_35bd7
	inc hl
	dec d
	jr nz, .asm_35bc8

.asm_35bdb
	scf
	ret

.asm_35bdd
	and a
	ret

.asm_35bdf
	push hl
	push de
	push bc

	ld b, a
	ld hl, $45ec
	ld a, $f
	rst $8
	ld a, b

	pop bc
	pop de
	pop hl

	cp $91
	ret z
	cp $27
	ret z
	cp $4b
	ret z
	cp $97
	ret z
	cp $9b
	ret z
	cp $1a
	ret
; 35bff


BattleCommand49: ; 35bff
; destinybond

	ld a, BATTLE_VARS_SUBSTATUS5
	call GetBattleVarPair
	set 6, [hl]
	call Function0x37e01
	ld hl, DestinyBondEffectText
	jp FarBattleTextBox
; 35c0f


BattleCommand4a: ; 35c0f
; spite

	ld a, [AttackMissed]
	and a
	jp nz, .asm_35c91
	ld bc, $0030
	ld hl, EnemyMonMoves
	ld a, [hBattleTurn]
	and a
	jr z, .asm_35c24 ; 35c1f $3
	ld hl, BattleMonMoves
.asm_35c24
	ld a, BATTLE_VARS_LAST_COUNTER_MOVE_OPP
	call CleanGetBattleVarPair
	and a
	jr z, .asm_35c91 ; 35c2a $65
	cp $a5
	jr z, .asm_35c91 ; 35c2e $61
	ld b, a
	ld c, $ff
.asm_35c33
	inc c
	ld a, [hli]
	cp b
	jr nz, .asm_35c33 ; 35c36 $fb
	ld [$d265], a
	dec hl
	ld b, $0
	push bc
	ld c, $6
	add hl, bc
	pop bc
	ld a, [hl]
	and $3f
	jr z, .asm_35c91 ; 35c46 $49
	push bc
	call GetMoveName
	call FarBattleRNG
	and $3
	inc a
	inc a
	ld b, a
	ld a, [hl]
	and $3f
	cp b
	jr nc, .asm_35c5b ; 35c58 $1
	ld b, a
.asm_35c5b
	ld a, [hl]
	sub b
	ld [hl], a
	push af
	ld a, $17
	call OpponentPartyAttr
	ld d, b
	pop af
	pop bc
	add hl, bc
	ld e, a
	ld a, BATTLE_VARS_SUBSTATUS5_OPP
	call CleanGetBattleVarPair
	bit 3, a
	jr nz, .asm_35c82 ; 35c70 $10
	ld a, [hBattleTurn]
	and a
	jr nz, .asm_35c81 ; 35c75 $a
	ld a, [IsInBattle]
	dec a
	jr nz, .asm_35c81 ; 35c7b $4
	ld hl, $c739
	add hl, bc
.asm_35c81
	ld [hl], e
.asm_35c82
	push de
	call Function0x37e01
	pop de
	ld a, d
	ld [$d265], a
	ld hl, SpiteEffectText
	jp FarBattleTextBox
.asm_35c91
	jp PrintDidntAffect2
; 35c94


BattleCommand4b: ; 35c94
; falseswipe

	ld hl, EnemyMonHPHi
	ld a, [hBattleTurn]
	and a
	jr z, .asm_35c9f ; 35c9a $3
	ld hl, BattleMonHP
.asm_35c9f
	ld de, CurDamage
	ld c, $2
	push hl
	push de
	call StringCmp
	pop de
	pop hl
	jr c, .asm_35cc7 ; 35cab $1a
	ld a, [hli]
	ld [de], a
	inc de
	ld a, [hl]
	dec a
	ld [de], a
	inc a
	jr nz, .asm_35cba ; 35cb4 $4
	dec de
	ld a, [de]
	dec a
	ld [de], a
.asm_35cba
	ld a, [CriticalHit]
	cp $2
	jr nz, .asm_35cc5 ; 35cbf $4
	xor a
	ld [CriticalHit], a
.asm_35cc5
	scf
	ret
.asm_35cc7
	and a
	ret
; 35cc9


BattleCommand4c: ; 35cc9
; healbell

	ld a, BATTLE_VARS_SUBSTATUS1
	call GetBattleVarPair
	res 0, [hl]
	ld de, PartyMon1Status
	ld a, [hBattleTurn]
	and a
	jr z, .asm_35cdb ; 35cd6 $3
	ld de, OTPartyMon1Status
.asm_35cdb
	ld a, BATTLE_VARS_STATUS
	call GetBattleVarPair
	xor a
	ld [hl], a
	ld h, d
	ld l, e
	ld bc, $30
	ld d, $6
.asm_35ce9
	ld [hl], a
	add hl, bc
	dec d
	jr nz, .asm_35ce9
	call Function0x37e01

	ld hl, BellChimedText
	call FarBattleTextBox

	ld a, [hBattleTurn]
	and a
	jp z, Function0x365d7
	jp Function0x365fd
; 35d00


FarPlayBattleAnimation: ; 35d00
; play animation de

; battle animations disabled?
	ld a, BATTLE_VARS_SUBSTATUS3
	call CleanGetBattleVarPair
	and $60 ; bit 6 | 5
	ret nz

	; fallthrough
; 35d08

PlayFXAnimID: ; 35d08
	ld a, e
	ld [FXAnimIDLo], a
	ld a, d
	ld [FXAnimIDHi], a

	ld c, 3
	call DelayFrames

	ld hl, $40d6
	ld a, $33
	rst FarCall ; callab SafePlayBattleAnimation

	ret
; 35d1c


Function0x35d1c: ; 35d1c
	ld hl, CurDamage
	ld a, [hli]
	ld b, a
	ld a, [hl]
	or b
	jr z, .asm_35d7b

	ld a, c
	and a
	jr nz, .asm_35d31

	ld a, [EnemySubStatus4]
	bit 4, a
	jp nz, Function0x35de0
.asm_35d31
	ld a, [hld]
	ld b, a
	ld a, [EnemyMonHPLo]
	ld [$d1ec], a
	sub b
	ld [EnemyMonHPLo], a
	ld a, [hl]
	ld b, a
	ld a, [EnemyMonHPHi]
	ld [$d1ed], a
	sbc b
	ld [EnemyMonHPHi], a
	jr nc, .asm_35d59

	ld a, [$d1ed]
	ld [hli], a
	ld a, [$d1ec]
	ld [hl], a
	xor a
	ld hl, EnemyMonHPHi
	ld [hli], a
	ld [hl], a
.asm_35d59
	ld hl, EnemyMonMaxHPHi
	ld a, [hli]
	ld [$d1eb], a
	ld a, [hl]
	ld [$d1ea], a
	ld hl, EnemyMonHPHi
	ld a, [hli]
	ld [$d1ef], a
	ld a, [hl]
	ld [$d1ee], a
	ld hl, $c4ca
	xor a
	ld [$d10a], a
	ld a, $b
	call Predef
.asm_35d7b
	jp RefreshBattleHuds
; 35d7e


Function0x35d7e: ; 35d7e
	ld hl, CurDamage
	ld a, [hli]
	ld b, a
	ld a, [hl]
	or b
	jr z, .asm_35ddd

	ld a, c
	and a
	jr nz, .asm_35d93

	ld a, [PlayerSubStatus4]
	bit 4, a
	jp nz, Function0x35de0
.asm_35d93
	ld a, [hld]
	ld b, a
	ld a, [$c63d]
	ld [$d1ec], a
	sub b
	ld [$c63d], a
	ld [$d1ee], a
	ld b, [hl]
	ld a, [BattleMonHP]
	ld [$d1ed], a
	sbc b
	ld [BattleMonHP], a
	ld [$d1ef], a
	jr nc, .asm_35dc5

	ld a, [$d1ed]
	ld [hli], a
	ld a, [$d1ec]
	ld [hl], a
	xor a
	ld hl, BattleMonHP
	ld [hli], a
	ld [hl], a
	ld hl, $d1ee
	ld [hli], a
	ld [hl], a
.asm_35dc5
	ld hl, BattleMonMaxHP
	ld a, [hli]
	ld [$d1eb], a
	ld a, [hl]
	ld [$d1ea], a
	ld hl, $c55e
	ld a, $1
	ld [$d10a], a
	ld a, $b
	call Predef
.asm_35ddd
	jp RefreshBattleHuds
; 35de0


Function0x35de0: ; 35de0

	ld hl, SubTookDamageText
	call FarBattleTextBox

	ld de, $c6e0
	ld a, [hBattleTurn]
	and a
	jr z, .asm_35df1

	ld de, $c6df
.asm_35df1
	ld hl, CurDamage
	ld a, [hli]
	and a
	jr nz, .asm_35dff

	ld a, [de]
	sub [hl]
	ld [de], a
	jr z, .asm_35dff

	jr nc, .asm_35e3d

.asm_35dff
	ld a, BATTLE_VARS_SUBSTATUS4_OPP
	call GetBattleVarPair
	res 4, [hl]

	ld hl, SubFadedText
	call FarBattleTextBox

	call SwitchTurn
	call BattleCommanda7
	ld a, BATTLE_VARS_SUBSTATUS3
	call CleanGetBattleVarPair
	and $60 ; fly | dig
	call z, Function0x37ec7
	call SwitchTurn

	ld a, BATTLE_VARS_MOVE_EFFECT
	call GetBattleVarPair
	cp EFFECT_MULTI_HIT
	jr z, .asm_35e3a
	cp EFFECT_DOUBLE_HIT
	jr z, .asm_35e3a
	cp EFFECT_TWINEEDLE
	jr z, .asm_35e3a
	cp EFFECT_TRIPLE_KICK
	jr z, .asm_35e3a
	cp EFFECT_BEAT_UP
	jr z, .asm_35e3a

	xor a
	ld [hl], a
.asm_35e3a
	call RefreshBattleHuds
.asm_35e3d
	jp ResetDamage
; 35e40


UpdateMoveData: ; 35e40

	ld a, BATTLE_VARS_MOVE_ANIM
	call GetBattleVarPair
	ld d, h
	ld e, l

	ld a, BATTLE_VARS_MOVE
	call CleanGetBattleVarPair
	ld [$cf60], a ; not CurSpecies
	ld [$d265], a

	dec a
	call GetMoveData
	call GetMoveName
	jp CopyName1
; 35e5c


BattleCommand14: ; 35e5c
; sleeptarget

	call GetOpponentItem
	ld a, b
	cp $17
	jr nz, .asm_35e70 ; 35e62 $c
	ld a, [hl]
	ld [$d265], a
	call GetItemName
	ld hl, ProtectedByText
	jr .asm_35ec6

.asm_35e70
	ld a, BATTLE_VARS_STATUS_OPP
	call GetBattleVarPair
	ld d, h
	ld e, l
	ld a, [de]
	and 7
	ld hl, AlreadyAsleepText
	jr nz, .asm_35ec6

	ld a, [AttackMissed]
	and a
	jp nz, PrintDidntAffect2

	ld hl, DidntAffect1Text
	call Function0x35ece
	jr c, .asm_35ec6

	ld a, [de]
	and a
	jr nz, .asm_35ec6

	call CheckSubstituteOpp
	jr nz, .asm_35ec6

	call Function0x37e01
	ld b, $7
	ld a, [$cfc0]
	and a
	jr z, .asm_35ea4
	ld b, $3

.asm_35ea4
	call FarBattleRNG
	and b
	jr z, .asm_35ea4
	cp 7
	jr z, .asm_35ea4
	inc a
	ld [de], a
	call UpdateOpponentInParty
	call RefreshBattleHuds

	ld hl, FellAsleepText
	call FarBattleTextBox

	ld a, $f
	ld hl, $5de9
	rst FarCall

	jp z, Function0x34216
	ret

.asm_35ec6
	push hl
	call Function0x37e77
	pop hl
	jp FarBattleTextBox
; 35ece


Function0x35ece: ; 35ece
; Enemy turn
	ld a, [hBattleTurn]
	and a
	jr z, .asm_35eec

; Not in link battle
	ld a, [InLinkBattle]
	and a
	jr nz, .asm_35eec


	ld a, [$cfc0]
	and a
	jr nz, .asm_35eec

; Not locked-on by the enemy
	ld a, [PlayerSubStatus5]
	bit 5, a
	jr nz, .asm_35eec

	call FarBattleRNG
	cp $40
	ret c

.asm_35eec
	xor a
	ret
; 35eee


BattleCommand13: ; 35eee
; poisontarget

	call CheckSubstituteOpp
	ret nz
	ld a, BATTLE_VARS_STATUS_OPP
	call GetBattleVarPair
	and a
	ret nz
	ld a, [TypeModifier]
	and $7f
	ret z
	call Function0x35fe1
	ret z
	call GetOpponentItem
	ld a, b
	cp $14
	ret z
	ld a, [EffectFailed]
	and a
	ret nz
	call Function0x37962
	ret nz
	call Function0x35ff5
	ld de, $0106
	call Function0x37e54
	call RefreshBattleHuds

	ld hl, WasPoisonedText
	call FarBattleTextBox

	ld a, $f
	ld hl, $5de9
	rst FarCall
	ret
; 35f2c


BattleCommand2f: ; 35f2c
; poison

	ld hl, DoesntAffectText
	ld a, [TypeModifier]
	and $7f
	jp z, .asm_35fb8
	call Function0x35fe1
	jp z, .asm_35fb8
	ld a, BATTLE_VARS_STATUS_OPP
	call CleanGetBattleVarPair
	ld b, a
	ld hl, AlreadyPoisonedText
	and $8
	jp nz, .asm_35fb8
	call GetOpponentItem
	ld a, b
	cp $14
	jr nz, .asm_35f5f ; 35f51 $c
	ld a, [hl]
	ld [$d265], a
	call GetItemName
	ld hl, ProtectedByText
	jr .asm_35fb8 ; 35f5d $59
.asm_35f5f
	ld hl, DidntAffect1Text
	ld a, BATTLE_VARS_STATUS_OPP
	call CleanGetBattleVarPair
	and a
	jr nz, .asm_35fb8 ; 35f68 $4e
	ld a, [hBattleTurn]
	and a
	jr z, .asm_35f89 ; 35f6d $1a
	ld a, [InLinkBattle]
	and a
	jr nz, .asm_35f89 ; 35f73 $14
	ld a, [$cfc0]
	and a
	jr nz, .asm_35f89 ; 35f79 $e
	ld a, [PlayerSubStatus5]
	bit 5, a
	jr nz, .asm_35f89 ; 35f80 $7
	call FarBattleRNG
	cp $40
	jr c, .asm_35fb8 ; 35f87 $2f
.asm_35f89
	call CheckSubstituteOpp
	jr nz, .asm_35fb8 ; 35f8c $2a
	ld a, [AttackMissed]
	and a
	jr nz, .asm_35fb8 ; 35f92 $24
	call Function0x35fc9
	jr z, .asm_35fa4 ; 35f97 $b
	call Function0x35fc0

	ld hl, WasPoisonedText
	call FarBattleTextBox

	jr .asm_35fb1 ; 35fa2 $d
.asm_35fa4
	set 0, [hl]
	xor a
	ld [de], a
	call Function0x35fc0

	ld hl, BadlyPoisonedText
	call FarBattleTextBox

.asm_35fb1
	ld a, $f
	ld hl, $5de9
	rst FarCall
	ret

.asm_35fb8
	push hl
	call Function0x37e77
	pop hl
	jp FarBattleTextBox
; 35fc0


Function0x35fc0: ; 35fc0
	call Function0x37e01
	call Function0x35ff5
	jp RefreshBattleHuds
; 35fc9


Function0x35fc9: ; 35fc9
	ld a, BATTLE_VARS_SUBSTATUS5_OPP
	call GetBattleVarPair
	ld a, [hBattleTurn]
	and a
	ld de, $c67c
	jr z, .asm_35fd9
	ld de, $c674
.asm_35fd9
	ld a, BATTLE_VARS_MOVE_EFFECT
	call CleanGetBattleVarPair
	cp EFFECT_TOXIC
	ret
; 35fe1


Function0x35fe1: ; 35fe1
	ld de, EnemyMonType1
	ld a, [hBattleTurn]
	and a
	jr z, .asm_35fec
	ld de, BattleMonType1
.asm_35fec
	ld a, [de]
	inc de
	cp POISON
	ret z
	ld a, [de]
	cp POISON
	ret
; 35ff5


Function0x35ff5: ; 35ff5
	ld a, BATTLE_VARS_STATUS_OPP
	call GetBattleVarPair
	set PSN, [hl]
	jp UpdateOpponentInParty
; 35fff


BattleCommand15: ; 35fff
; draintarget
	call Function0x36011
	ld hl, SuckedHealthText
	jp FarBattleTextBox
; 36008


BattleCommand16: ; 36008
; eatdream
	call Function0x36011
	ld hl, DreamEatenText
	jp FarBattleTextBox
; 36011


Function0x36011: ; 36011
	ld hl, CurDamage
	ld a, [hli]
	srl a
	ld [$ffb3], a
	ld b, a
	ld a, [hl]
	rr a
	ld [$ffb4], a
	or b
	jr nz, .asm_36026 ; 0x36020 $4
	ld a, $1
	ld [$ffb4], a
.asm_36026
	ld hl, BattleMonHP
	ld de, BattleMonMaxHP
	ld a, [hBattleTurn]
	and a
	jr z, .asm_36037 ; 0x3602f $6
	ld hl, EnemyMonHPHi
	ld de, EnemyMonMaxHPHi
.asm_36037
	ld bc, $d1ed
	ld a, [hli]
	ld [bc], a
	ld a, [hl]
	dec bc
	ld [bc], a
	ld a, [de]
	dec bc
	ld [bc], a
	inc de
	ld a, [de]
	dec bc
	ld [bc], a
	ld a, [$ffb4]
	ld b, [hl]
	add b
	ld [hld], a
	ld [$d1ee], a
	ld a, [$ffb3]
	ld b, [hl]
	adc b
	ld [hli], a
	ld [$d1ef], a
	jr c, .asm_36064 ; 0x36056 $c
	ld a, [hld]
	ld b, a
	ld a, [de]
	dec de
	sub b
	ld a, [hli]
	ld b, a
	ld a, [de]
	inc de
	sbc b
	jr nc, .asm_36070 ; 0x36062 $c
.asm_36064
	ld a, [de]
	ld [hld], a
	ld [$d1ee], a
	dec de
	ld a, [de]
	ld [hli], a
	ld [$d1ef], a
	inc de
.asm_36070
	ld a, [hBattleTurn]
	and a
	ld hl, $c55e
	ld a, $1
	jr z, .asm_3607e ; 0x36078 $4
	ld hl, $c4ca
	xor a
.asm_3607e
	ld [$d10a], a
	ld a, $b
	call Predef
	call RefreshBattleHuds
	jp UpdateBattleMonInParty
; 3608c


BattleCommand17: ; 3608c
; burntarget

	xor a
	ld [$cfca], a
	call CheckSubstituteOpp
	ret nz
	ld a, BATTLE_VARS_STATUS_OPP
	call GetBattleVarPair
	and a
	jp nz, Defrost
	ld a, [TypeModifier]
	and $7f
	ret z
	call Function0x36e5b
	ret z
	call GetOpponentItem
	ld a, b
	cp $15
	ret z
	ld a, [EffectFailed]
	and a
	ret nz
	call Function0x37962
	ret nz
	ld a, BATTLE_VARS_STATUS_OPP
	call GetBattleVarPair
	set 4, [hl]
	call UpdateOpponentInParty
	ld hl, $6c76
	call CallBankF
	ld de, $0105
	call Function0x37e54
	call RefreshBattleHuds

	ld hl, WasBurnedText
	call FarBattleTextBox

	ld a, $f
	ld hl, $5de9
	rst FarCall
	ret
; 360dd


Defrost: ; 360dd
	ld a, [hl]
	and $20
	ret z

	xor a
	ld [hl], a

	ld a, [hBattleTurn]
	and a
	ld a, [CurOTMon]
	ld hl, OTPartyMon1Status
	jr z, .ok
	ld hl, PartyMon1Status
	ld a, [CurBattleMon]
.ok

	call GetPartyLocation
	xor a
	ld [hl], a
	call UpdateOpponentInParty

	ld hl, DefrostedOpponentText
	jp FarBattleTextBox
; 36102


BattleCommand18: ; 36102
; freezetarget

	xor a
	ld [$cfca], a
	call CheckSubstituteOpp
	ret nz
	ld a, BATTLE_VARS_STATUS_OPP
	call GetBattleVarPair
	and a
	ret nz
	ld a, [TypeModifier]
	and $7f
	ret z
	ld a, [Weather]
	cp $2
	ret z
	call Function0x36e5b
	ret z
	call GetOpponentItem
	ld a, b
	cp $16
	ret z
	ld a, [EffectFailed]
	and a
	ret nz
	call Function0x37962
	ret nz
	ld a, BATTLE_VARS_STATUS_OPP
	call GetBattleVarPair
	set 5, [hl]
	call UpdateOpponentInParty
	ld de, $0108
	call Function0x37e54
	call RefreshBattleHuds

	ld hl, WasFrozenText
	call FarBattleTextBox

	ld a, $f
	ld hl, $5de9
	rst FarCall
	ret nz
	call Function0x34216
	call EndRechargeOpp
	ld hl, $c740
	ld a, [hBattleTurn]
	and a
	jr z, .asm_36162 ; 3615d $3
	ld hl, $c73f
.asm_36162
	ld [hl], $1
	ret
; 36165


BattleCommand19: ; 36165
; paralyzetarget

	xor a
	ld [$cfca], a
	call CheckSubstituteOpp
	ret nz
	ld a, BATTLE_VARS_STATUS_OPP
	call GetBattleVarPair
	and a
	ret nz
	ld a, [TypeModifier]
	and $7f
	ret z
	call GetOpponentItem
	ld a, b
	cp $18
	ret z
	ld a, [EffectFailed]
	and a
	ret nz
	call Function0x37962
	ret nz
	ld a, BATTLE_VARS_STATUS_OPP
	call GetBattleVarPair
	set 6, [hl]
	call UpdateOpponentInParty
	ld hl, $6c39
	call CallBankF
	ld de, $0109
	call Function0x37e54
	call RefreshBattleHuds
	call PrintParalyze
	ld hl, $5de9
	jp CallBankF
; 361ac


BattleCommand70: ; 361ac
; attackup
	ld b, $0
	jr BattleCommand1c
BattleCommand71: ; 361b0
; defenseup
	ld b, $1
	jr BattleCommand1c
BattleCommand72: ; 361b4
; speedup
	ld b, $2
	jr BattleCommand1c
BattleCommand73: ; 361b8
; specialattackup
	ld b, $3
	jr BattleCommand1c
BattleCommand74: ; 361bc
; specialdefenseup
	ld b, $4
	jr BattleCommand1c
BattleCommand75: ; 361c0
; accuracyup
	ld b, $5
	jr BattleCommand1c
BattleCommand76: ; 361c4
; evasionup
	ld b, $6
	jr BattleCommand1c
BattleCommand77: ; 361c8
; attackup2
	ld b, $10
	jr BattleCommand1c
BattleCommand78: ; 361cc
; defenseup2
	ld b, $11
	jr BattleCommand1c
BattleCommand79: ; 361d0
; speedup2
	ld b, $12
	jr BattleCommand1c
BattleCommand7a: ; 361d4
; specialattackup2
	ld b, $13
	jr BattleCommand1c
BattleCommand7b: ; 361d8
; specialdefenseup2
	ld b, $14
	jr BattleCommand1c
BattleCommand7c: ; 361dc
; accuracyup2
	ld b, $15
	jr BattleCommand1c
BattleCommand7d: ; 361e0
; evasionup2
	ld b, $16
	jr BattleCommand1c
BattleCommand1c: ; 361e4
; statup
	call Function0x361ef
	ld a, [FailedMessage]
	and a
	ret nz
	jp Function0x36281
; 361ef


Function0x361ef: ; 361ef
	ld a, b
	ld [LoweredStat], a
	ld hl, PlayerStatLevels
	ld a, [hBattleTurn]
	and a
	jr z, .asm_361fe ; 0x361f9 $3
	ld hl, EnemyStatLevels
.asm_361fe
	ld a, [AttackMissed]
	and a
	jp nz, Function0x3627b
	ld a, [EffectFailed]
	and a
	jp nz, Function0x3627b
	ld a, [LoweredStat]
	and $f
	ld c, a
	ld b, $0
	add hl, bc
	ld b, [hl]
	inc b
	ld a, $d
	cp b
	jp c, Function0x36270
	ld a, [LoweredStat]
	and $f0
	jr z, .asm_3622b ; 0x36222 $7
	inc b
	ld a, $d
	cp b
	jr nc, .asm_3622b ; 0x36228 $1
	ld b, a
.asm_3622b
	ld [hl], b
	push hl
	ld a, c
	cp $5
	jr nc, .asm_36268 ; 0x36230 $36
	ld hl, $c641
	ld de, PlayerStats
	ld a, [hBattleTurn]
	and a
	jr z, .asm_36243 ; 0x3623b $6
	ld hl, $d21b
	ld de, EnemyStats
.asm_36243
	push bc
	sla c
	ld b, $0
	add hl, bc
	ld a, c
	add e
	ld e, a
	jr nc, .asm_3624f ; 0x3624c $1
	inc d
.asm_3624f
	pop bc
	ld a, [hld]
	sub $e7
	jr nz, .asm_3625b ; 0x36253 $6
	ld a, [hl]
	sbc $3
	jp z, Function0x3626e
.asm_3625b
	ld a, [hBattleTurn]
	and a
	jr z, .asm_36265 ; 0x3625e $5
	call Function0x365fd
	jr .asm_36268 ; 0x36263 $3
.asm_36265
	call Function0x365d7
.asm_36268
	pop hl
	xor a
	ld [FailedMessage], a
	ret
; 3626e


Function0x3626e: ; 3626e
	pop hl
	dec [hl]
	; fallthrough
; 36270


Function0x36270: ; 36270
	ld a, $2
	ld [FailedMessage], a
	ld a, $1
	ld [AttackMissed], a
	ret
; 3627b


Function0x3627b: ; 3627b
	ld a, $1
	ld [FailedMessage], a
	ret
; 36281


Function0x36281: ; 36281
	ld bc, $c6fe
	ld hl, $7447
	ld a, [hBattleTurn]
	and a
	jr z, .asm_36292 ; 0x3628a $6
	ld bc, $c6fa
	ld hl, $7486
.asm_36292
	ld a, $c
	call CleanGetBattleVarPair
	cp $6b
	ret nz
	ld a, $1
	ld [bc], a
	call Function0x37ed5
	ret nc
	xor a
	ld [$ffd4], a
	call CallBankF
	call WaitBGMap
	jp BattleCommandaa
; 362ad


BattleCommand7e: ; 362ad
; attackdown
	ld a, ATTACK
	jr BattleCommand1d
BattleCommand7f: ; 362b1
; defensedown
	ld a, DEFENSE
	jr BattleCommand1d
BattleCommand80: ; 362b5
; speeddown
	ld a, SPEED
	jr BattleCommand1d
BattleCommand81: ; 362b9
; specialattackdown
	ld a, SP_ATTACK
	jr BattleCommand1d
BattleCommand82: ; 362bd
; specialdefensedown
	ld a, SP_DEFENSE
	jr BattleCommand1d
BattleCommand83: ; 362c1
; accuracydown
	ld a, ACCURACY
	jr BattleCommand1d
BattleCommand84: ; 362c5
; evasiondown
	ld a, EVASION
	jr BattleCommand1d
BattleCommand85: ; 362c9
; attackdown2
	ld a, $10 | ATTACK
	jr BattleCommand1d
BattleCommand86: ; 362cd
; defensedown2
	ld a, $10 | DEFENSE
	jr BattleCommand1d
BattleCommand87: ; 362d1
; speeddown2
	ld a, $10 | SPEED
	jr BattleCommand1d
BattleCommand88: ; 362d5
; specialattackdown2
	ld a, $10 | SP_ATTACK
	jr BattleCommand1d
BattleCommand89: ; 362d9
; specialdefensedown2
	ld a, $10 | SP_DEFENSE
	jr BattleCommand1d
BattleCommand8a: ; 362dd
; accuracydown2
	ld a, $10 | ACCURACY
	jr BattleCommand1d
BattleCommand8b: ; 362e1
; evasiondown2
	ld a, $10 | EVASION

BattleCommand1d: ; 362e3
; statdown

	ld [LoweredStat], a

	call Function0x36391
	jp nz, .Mist

	ld hl, EnemyStatLevels
	ld a, [hBattleTurn]
	and a
	jr z, .GetStatLevel
	ld hl, PlayerStatLevels

.GetStatLevel
; Attempt to lower the stat.
	ld a, [LoweredStat]
	and $f
	ld c, a
	ld b, 0
	add hl, bc
	ld b, [hl]
	dec b
	jp z, .CantLower

; Sharply lower the stat if applicable.
	ld a, [LoweredStat]
	and $f0
	jr z, .ComputerMiss
	dec b
	jr nz, .ComputerMiss
	inc b

.ComputerMiss
; Computer opponents have a 1/4 chance of failing.
	ld a, [hBattleTurn]
	and a
	jr z, .DidntMiss
	ld a, [InLinkBattle]
	and a
	jr nz, .DidntMiss

	ld a, [$cfc0]
	and a
	jr nz, .DidntMiss

; Lock-On still always works.
	ld a, [PlayerSubStatus5]
	bit SUBSTATUS_LOCK_ON, a
	jr nz, .DidntMiss

; Attacking moves that also lower accuracy are unaffected.
	ld a, BATTLE_VARS_MOVE_EFFECT
	call CleanGetBattleVarPair
	cp EFFECT_ACCURACY_DOWN_HIT
	jr z, .DidntMiss

	call FarBattleRNG
	cp $40
	jr c, .Failed

.DidntMiss
	call CheckSubstituteOpp
	jr nz, .Failed

	ld a, [AttackMissed]
	and a
	jr nz, .Failed

	ld a, [EffectFailed]
	and a
	jr nz, .Failed

	call CheckHiddenOpponent
	jr nz, .Failed

; Accuracy/Evasion reduction don't involve stats.
	ld [hl], b
	ld a, c
	cp ACCURACY
	jr nc, .Hit

	push hl
	ld hl, EnemyMonAtk + 1
	ld de, EnemyStats
	ld a, [hBattleTurn]
	and a
	jr z, .asm_36366
	ld hl, BattleMonAtk + 1
	ld de, PlayerStats
.asm_36366
	call Function0x3641a
	pop hl
	jr z, .CouldntLower

.Hit
	xor a
	ld [FailedMessage], a
	ret

.CouldntLower
	inc [hl]
.CantLower
	ld a, 3
	ld [FailedMessage], a
	ld a, 1
	ld [AttackMissed], a
	ret

.Failed
	ld a, 1
	ld [FailedMessage], a
	ld [AttackMissed], a
	ret

.Mist
	ld a, 2
	ld [FailedMessage], a
	ld a, 1
	ld [AttackMissed], a
	ret
; 36391


Function0x36391: ; 36391
	ld a, BATTLE_VARS_MOVE_EFFECT
	call CleanGetBattleVarPair
	cp EFFECT_ATTACK_DOWN
	jr c, .asm_363ae
	cp EFFECT_EVASION_DOWN + 1
	jr c, .asm_363b0
	cp EFFECT_ATTACK_DOWN_2
	jr c, .asm_363ae
	cp EFFECT_EVASION_DOWN_2 + 1
	jr c, .asm_363b0
	cp EFFECT_ATTACK_DOWN_HIT
	jr c, .asm_363ae
	cp EFFECT_EVASION_DOWN_HIT + 1
	jr c, .asm_363b0
.asm_363ae
	xor a
	ret
.asm_363b0
	ld a, BATTLE_VARS_SUBSTATUS4_OPP
	call CleanGetBattleVarPair
	bit SUBSTATUS_MIST, a
	ret
; 363b8


BattleCommand8c: ; 363b8
	ld a, [FailedMessage]
	and a
	ret nz
	ld a, [LoweredStat]
	and $f
	ld b, a
	inc b
	call GetStatName
	ld hl, .stat
	jp BattleTextBox

.stat
	TX_FAR UnknownText_0x1c0cc6
	start_asm

	ld hl, .up
	ld a, [LoweredStat]
	and $f0
	ret z
	ld hl, .wayup
	ret

.wayup
	TX_FAR UnknownText_0x1c0cd0
	db "@"

.up
	TX_FAR UnknownText_0x1c0ce0
	db "@"

; 363e9


BattleCommand8d: ; 363e9
	ld a, [FailedMessage]
	and a
	ret nz
	ld a, [LoweredStat]
	and $f
	ld b, a
	inc b
	call GetStatName
	ld hl, .stat
	jp BattleTextBox

.stat
	TX_FAR UnknownText_0x1c0ceb
	start_asm

	ld hl, .fell
	ld a, [LoweredStat]
	and $f0
	ret z
	ld hl, .sharplyfell
	ret

.sharplyfell
	TX_FAR UnknownText_0x1c0cf5
	db "@"
.fell
	TX_FAR UnknownText_0x1c0d06
	db "@"

; 3641a


Function0x3641a: ; 3641a
; Lower stat c from stat struct hl (buffer de).

	push bc
	sla c
	ld b, 0
	add hl, bc
	; add de, c
	ld a, c
	add e
	ld e, a
	jr nc, .asm_36426
	inc d
.asm_36426
	pop bc

; The lowest possible stat is 1.
	ld a, [hld]
	sub 1
	jr nz, .asm_3642f
	ld a, [hl]
	and a
	ret z

.asm_3642f
	ld a, [hBattleTurn]
	and a
	jr z, .Player

	call SwitchTurn
	call Function0x365d7
	call SwitchTurn
	jr .end

.Player
	call SwitchTurn
	call Function0x365fd
	call SwitchTurn
.end
	ld a, 1
	and a
	ret
; 3644c


BattleCommand8e: ; 3644c
; statupfailtext
	ld a, [FailedMessage]
	and a
	ret z
	push af
	call BattleCommandaa
	pop af
	dec a
	jp z, TryPrintButItFailed
	ld a, [LoweredStat]
	and $f
	ld b, a
	inc b
	call GetStatName
	ld hl, WontRiseAnymoreText
	jp FarBattleTextBox
; 3646a


BattleCommand8f: ; 3646a
; statdownfailtext
	ld a, [FailedMessage]
	and a
	ret z
	push af
	call BattleCommandaa
	pop af
	dec a
	jp z, TryPrintButItFailed
	dec a
	ld hl, ProtectedByMistText
	jp z, FarBattleTextBox
	ld a, [LoweredStat]
	and $f
	ld b, a
	inc b
	call GetStatName
	ld hl, WontDropAnymoreText
	jp FarBattleTextBox
; 3648f


GetStatName: ; 3648f
	ld hl, .names
	ld c, "@"
.CheckName
	dec b
	jr z, .Copy
.GetName
	ld a, [hli]
	cp c
	jr z, .CheckName
	jr .GetName
.Copy
	ld de, StringBuffer2
	ld bc, StringBuffer3 - StringBuffer2
	jp CopyBytes

.names
	db "ATTACK@"
	db "DEFENSE@"
	db "SPEED@"
	db "SPCL.ATK@"
	db "SPCL.DEF@"
	db "ACCURACY@"
	db "EVASION@"
	db "ABILITY@"
; 364e6


Table0x364e6: ; 364e6
	dw $6419
	dw $641c
	dw $6421
	dw $6428
	dw $6432
	dw $6442
; 364f2


StatLevelMulipliers: ; 364f2
	db  1,  1 ; 1.0x
	db 15, 10 ; 1.5x
	db  2,  1 ; 2.0x
	db 25, 10 ; 2.5x
	db  3,  1 ; 3.0x
	db 35, 10 ; 3.5x
	db  4,  1 ; 4.0x
; 36500


BattleCommanda4: ; 36500
; allstatsup

; Attack
	call ResetMiss
	call BattleCommand70
	call BattleCommand8c

; Defense
	call ResetMiss
	call BattleCommand71
	call BattleCommand8c

; Speed
	call ResetMiss
	call BattleCommand72
	call BattleCommand8c

; Special Attack
	call ResetMiss
	call BattleCommand73
	call BattleCommand8c

; Special Defense
	call ResetMiss
	call BattleCommand74
	jp   BattleCommand8c
; 3652d


ResetMiss: ; 3652d
	xor a
	ld [AttackMissed], a
	ret
; 36532


Function0x36532: ; 36532
	ld [LoweredStat], a

	ld hl, PlayerStatLevels
	ld a, [hBattleTurn]
	and a
	jr z, .asm_36540
	ld hl, EnemyStatLevels

.asm_36540
	ld a, [LoweredStat]
	and $f
	ld c, a
	ld b, 0
	add hl, bc
	ld b, [hl]
	dec b
	jr z, .asm_36589

	ld a, [LoweredStat]
	and $f0
	jr z, .asm_36558
	dec b
	jr nz, .asm_36558
	inc b

.asm_36558
	ld [hl], b
	ld a, c
	cp 5
	jr nc, .asm_36576

	push hl
	ld hl, $c641
	ld de, PlayerStats
	ld a, [hBattleTurn]
	and a
	jr z, .asm_36570
	ld hl, $d21b
	ld de, EnemyStats

.asm_36570
	call Function0x3641a
	pop hl
	jr z, .asm_36588

.asm_36576
	ld a, [hBattleTurn]
	and a
	jr z, .asm_36580

	call Function0x365fd

	jr .asm_36583

.asm_36580
	call Function0x365d7

.asm_36583
	xor a
	ld [FailedMessage], a
	ret

.asm_36588
	inc [hl]

.asm_36589
	ld a, 2
	ld [FailedMessage], a
	ret
; 3658f


BattleCommandac: ; 3658f
; tristatuschance

	call BattleCommand90

; 1/3 chance of each status
.loop
	call FarBattleRNG
	swap a
	and 3
	jr z, .loop
; jump
	dec a
	ld hl, .ptrs
	rst JumpTable
	ret
.ptrs
	dw BattleCommand19 ; paralyze
	dw BattleCommand18 ; freeze
	dw BattleCommand17 ; burn
; 365a7


BattleCommandaf: ; 365a7
; curl
	ld a, BATTLE_VARS_SUBSTATUS2
	call GetBattleVarPair
	set 0, [hl]
	ret
; 365af


BattleCommanda6: ; 365af
	ld hl, $743d
	ld a, [hBattleTurn]
	and a
	jr z, .asm_365ba ; 365b5 $3
	ld hl, $747c
.asm_365ba
	xor a
	ld [$ffd4], a
	call CallBankF
	jp $31f6
; 365c3


BattleCommanda7: ; 365c3
	ld hl, $7447
	ld a, [hBattleTurn]
	and a
	jr z, .asm_365ce ; 365c9 $3
	ld hl, $7486
.asm_365ce
	xor a
	ld [$ffd4], a
	call CallBankF
	jp $31f6
; 365d7


Function0x365d7: ; 365d7
	ld hl, PlayerAtkLevel
	ld de, PlayerStats
	ld bc, BattleMonAtk

	ld a, $5
	call Function0x3661d

	ld hl, BadgeStatBoosts
	call CallBankF

	call SwitchTurn

	ld hl, $6c39
	call CallBankF

	ld hl, $6c76
	call CallBankF

	jp SwitchTurn
; 365fd


Function0x365fd: ; 365fd
	ld hl, EnemyAtkLevel
	ld de, EnemyStats
	ld bc, EnemyMonAtk

	ld a, $5
	call Function0x3661d

	call SwitchTurn

	ld hl, $6c39
	call CallBankF

	ld hl, $6c76
	call CallBankF

	jp SwitchTurn
; 3661d


Function0x3661d: ; 3661d
.asm_3661d
	push af
	ld a, [hli]
	push hl
	push bc
	ld c, a
	dec c
	ld b, 0
	ld hl, Table0x364e6
	add hl, bc
	add hl, bc
	xor a
	ld [$ffb4], a
	ld a, [de]
	ld [$ffb5], a
	inc de
	ld a, [de]
	ld [$ffb6], a
	inc de
	ld a, [hli]
	ld [$ffb7], a
	call Multiply

	ld a, [hl]
	ld [$ffb7], a
	ld b, $4
	call Divide

	ld a, [$ffb5]
	ld b, a
	ld a, [$ffb6]
	or b
	jr nz, .asm_36651

	ld a, $1
	ld [$ffb6], a
	jr .asm_36662

.asm_36651
	ld a, [$ffb6]
	cp $e7
	ld a, b
	sbc $3
	jr c, .asm_36662

	ld a, $e7
	ld [$ffb6], a
	ld a, $3
	ld [$ffb5], a
.asm_36662
	pop bc
	ld a, [$ffb5]
	ld [bc], a
	inc bc
	ld a, [$ffb6]
	ld [bc], a
	inc bc
	pop hl
	pop af
	dec a
	jr nz, .asm_3661d

	ret
; 36671


BattleCommand21: ; 36671
; storeenergy

	ld a, BATTLE_VARS_SUBSTATUS3
	call CleanGetBattleVarPair
	bit 0, a
	ret z
	ld hl, PlayerRolloutCount
	ld a, [hBattleTurn]
	and a
	jr z, .asm_36684
	ld hl, EnemyRolloutCount
.asm_36684
	dec [hl]
	jr nz, .asm_366dc
	ld a, BATTLE_VARS_SUBSTATUS3
	call GetBattleVarPair
	res 0, [hl]

	ld hl, UnleashedEnergyText
	call FarBattleTextBox

	ld a, BATTLE_VARS_MOVE_POWER
	call GetBattleVarPair
	ld a, 1
	ld [hl], a
	ld hl, PlayerDamageTaken + 1
	ld de, $c732
	ld a, [hBattleTurn]
	and a
	jr z, .asm_366ad
	ld hl, EnemyDamageTaken + 1
	ld de, $c733
.asm_366ad
	ld a, [hld]
	add a
	ld b, a
	ld [CurDamage + 1], a
	ld a, [hl]
	rl a
	ld [CurDamage], a
	jr nc, .asm_366c3
	ld a, $ff
	ld [CurDamage], a
	ld [CurDamage + 1], a
.asm_366c3
	or b
	jr nz, .asm_366cb
	ld a, 1
	ld [AttackMissed], a
.asm_366cb
	xor a
	ld [hli], a
	ld [hl], a
	ld [de], a

	ld a, BATTLE_VARS_MOVE_ANIM
	call GetBattleVarPair
	ld a, BIDE
	ld [hl], a

	ld b, $22 ; unleashenergy
	jp SkipToBattleCommand

.asm_366dc
	ld hl, StoringEnergyText
	call FarBattleTextBox
	jp EndMoveEffect
; 366e5


BattleCommand22: ; 366e5
; unleashenergy

	ld de, $c682
	ld bc, PlayerRolloutCount
	ld a, [hBattleTurn]
	and a
	jr z, .asm_366f6 ; 366ee $6
	ld de, $c684
	ld bc, EnemyRolloutCount
.asm_366f6
	ld a, BATTLE_VARS_SUBSTATUS3
	call GetBattleVarPair
	set 0, [hl]
	xor a
	ld [de], a
	inc de
	ld [de], a
	ld [PlayerMoveEffect], a
	ld [EnemyMoveEffect], a
	call FarBattleRNG
	and $1
	inc a
	inc a
	ld [bc], a
	ld a, $1
	ld [$c689], a
	call Function0x37e01
	jp EndMoveEffect
; 3671a


BattleCommand3e: ; 3671a
; checkrampage

	ld de, PlayerRolloutCount
	ld a, [hBattleTurn]
	and a
	jr z, .asm_36725 ; 36720 $3
	ld de, EnemyRolloutCount
.asm_36725
	ld a, BATTLE_VARS_SUBSTATUS3
	call GetBattleVarPair
	bit 1, [hl]
	ret z
	ld a, [de]
	dec a
	ld [de], a
	jr nz, .asm_3674c ; 36730 $1a
	res 1, [hl]
	call SwitchTurn
	call Function0x37962
	push af
	call SwitchTurn
	pop af
	jr nz, .asm_3674c ; 3673f $b
	set 7, [hl]
	call FarBattleRNG
	and $1
	inc a
	inc a
	inc de
	ld [de], a
.asm_3674c
	ld b, $3d ; rampage
	jp SkipToBattleCommand
; 36751


BattleCommand3d: ; 36751
; rampage

; No rampage during Sleep Talk.
	ld a, BATTLE_VARS_STATUS
	call CleanGetBattleVarPair
	and 7
	ret nz

	ld de, PlayerRolloutCount
	ld a, [hBattleTurn]
	and a
	jr z, .asm_36764 ; 3675f $3
	ld de, EnemyRolloutCount
.asm_36764
	ld a, BATTLE_VARS_SUBSTATUS3
	call GetBattleVarPair
	set 1, [hl]
	call FarBattleRNG
	and $1
	inc a
	ld [de], a
	ld a, 1
	ld [$c73e], a
	ret
; 36778


BattleCommanda0: ; 36778
; teleport

	ld a, [BattleType]
	cp BATTLETYPE_SHINY
	jr z, .asm_367b9
	cp $9
	jr z, .asm_367b9
	cp $b
	jr z, .asm_367b9
	cp BATTLETYPE_SUICUNE
	jr z, .asm_367b9

	ld a, BATTLE_VARS_SUBSTATUS5_OPP
	call CleanGetBattleVarPair
	bit SUBSTATUS_CANT_RUN, a
	jr nz, .asm_367b9
	ld a, [hBattleTurn]
	and a
	jr nz, .asm_367bf
	ld a, [IsInBattle]
	dec a
	jr nz, .asm_367b9
	ld a, [$d143]
	ld b, a
	ld a, [BattleMonLevel]
	cp b
	jr nc, .asm_367df
	add b
	ld c, a
	inc c
.asm_367ac
	call FarBattleRNG
	cp c
	jr nc, .asm_367ac ; 367b0 $fa
	srl b
	srl b
	cp b
	jr nc, .asm_367df ; 367b7 $26

.asm_367b9
	call Function0x37e77
	jp PrintButItFailed

.asm_367bf
	ld a, [IsInBattle]
	dec a
	jr nz, .asm_367b9 ; 367c3 $f4
	ld a, [BattleMonLevel]
	ld b, a
	ld a, [$d143]
	cp b
	jr nc, .asm_367df ; 367cd $10
	add b
	ld c, a
	inc c
.asm_367d2
	call FarBattleRNG
	cp c
	jr nc, .asm_367d2 ; 367d6 $fa
	srl b
	srl b
	cp b
	jr nc, .asm_367df ; 367dd $0
.asm_367df
	call UpdateBattleMonInParty
	xor a
	ld [$cfca], a
	inc a
	ld [$d232], a
	ld [$c689], a
	call Function0x36804
	call BattleCommand0a
	call Function0x37e36
	ld c, 20
	call DelayFrames
	call Function0x36804

	ld hl, FledFromBattleText
	jp FarBattleTextBox
; 36804


Function0x36804: ; 36804
	ld a, [$d0ee]
	and $c0
	or $2
	ld [$d0ee], a
	ret
; 3680f


BattleCommand23: ; 3680f
; forceswitch

	ld a, [BattleType]
	cp BATTLETYPE_SHINY
	jp z, .asm_36969
	cp $9
	jp z, .asm_36969
	cp $b
	jp z, .asm_36969
	cp BATTLETYPE_SUICUNE
	jp z, .asm_36969
	ld a, [hBattleTurn]
	and a
	jp nz, .asm_368cd
	ld a, [AttackMissed]
	and a
	jr nz, .asm_36852 ; 36830 $20
	ld a, [IsInBattle]
	dec a
	jr nz, .asm_36869 ; 36836 $31
	ld a, [$d143]
	ld b, a
	ld a, [BattleMonLevel]
	cp b
	jr nc, .asm_36855 ; 36840 $13
	add b
	ld c, a
	inc c
.asm_36845
	call FarBattleRNG
	cp c
	jr nc, .asm_36845 ; 36849 $fa
	srl b
	srl b
	cp b
	jr nc, .asm_36855 ; 36850 $3
.asm_36852
	jp .asm_36969
.asm_36855
	call UpdateBattleMonInParty
	xor a
	ld [$cfca], a
	inc a
	ld [$d232], a
	call Function0x36804
	ld a, [PlayerMoveAnimation]
	jp .asm_36975
.asm_36869
	call Function0x349f4
	jr c, .asm_368ca ; 3686c $5c
	ld a, [$c70f]
	and a
	jr z, .asm_368ca ; 36872 $56
	call UpdateEnemyMonInParty
	ld a, $1
	ld [$c689], a
	call Function0x37e01
	ld c, $14
	call DelayFrames
	ld hl, $c4a1
	ld bc, $040a
	call ClearBox
	ld c, $14
	call DelayFrames
	ld a, [OTPartyCount]
	ld b, a
	ld a, [CurOTMon]
	ld c, a
.asm_3689a
	call FarBattleRNG
	and $7
	cp b
	jr nc, .asm_3689a ; 368a0 $f8
	cp c
	jr z, .asm_3689a ; 368a3 $f5
	push af
	push bc
	ld hl, OTPartyMon1CurHP
	call GetPartyLocation
	ld a, [hli]
	or [hl]
	pop bc
	pop de
	jr z, .asm_3689a ; 368b1 $e7
	ld a, d
	inc a
	ld [$c718], a
	ld hl, $54c3
	ld a, $f
	rst FarCall

	ld hl, DraggedOutText
	call FarBattleTextBox

	ld hl, $5c23
	jp CallBankF

.asm_368ca
	jp .asm_36969

.asm_368cd
	ld a, [AttackMissed]
	and a
	jr nz, .asm_368f3

	ld a, [IsInBattle]
	dec a
	jr nz, .asm_36908

	ld a, [BattleMonLevel]
	ld b, a
	ld a, [$d143]
	cp b
	jr nc, .asm_368f5

	add b
	ld c, a
	inc c
.asm_368e6
	call FarBattleRNG
	cp c
	jr nc, .asm_368e6

	srl b
	srl b
	cp b
	jr nc, .asm_368f5

.asm_368f3
	jr .asm_36969

.asm_368f5
	call UpdateBattleMonInParty
	xor a
	ld [$cfca], a
	inc a
	ld [$d232], a
	call Function0x36804
	ld a, [EnemyMoveAnimation]
	jr .asm_36975

.asm_36908
	call Function0x36994
	jr c, .asm_36969

	ld a, [$c70f]
	cp $1
	jr z, .asm_368ca

	call UpdateBattleMonInParty
	ld a, $1
	ld [$c689], a
	call Function0x37e01
	ld c, $14
	call DelayFrames
	ld hl, $c535
	ld bc, $050b
	call $0fb6
	ld c, $14
	call DelayFrames
	ld a, [PartyCount]
	ld b, a
	ld a, [CurBattleMon]
	ld c, a
.asm_3693a
	call FarBattleRNG
	and $7
	cp b
	jr nc, .asm_3693a

	cp c
	jr z, .asm_3693a

	push af
	push bc
	ld hl, PartyMon1CurHP
	call GetPartyLocation
	ld a, [hli]
	or [hl]
	pop bc
	pop de
	jr z, .asm_3693a

	ld a, d
	ld [CurPartyMon], a
	ld hl, $5b32
	call CallBankF

	ld hl, DraggedOutText
	call FarBattleTextBox

	ld hl, $5c23
	jp CallBankF

.asm_36969
	call BattleCommand0a
	call BattleCommandaa
	call BattleCommand0c
	jp PrintButItFailed

.asm_36975
	push af
	call Function0x36804
	ld a, $1
	ld [$c689], a
	call Function0x37e01
	ld c, $14
	call DelayFrames
	pop af

	ld hl, FledInFearText
	cp $2e
	jr z, .asm_36991
	ld hl, BlownAwayText
.asm_36991
	jp FarBattleTextBox
; 36994


Function0x36994: ; 36994
	ld a, [PartyCount]
	ld d, a
	ld e, 0
	ld bc, $30
.asm_3699d
	ld a, [CurBattleMon]
	cp e
	jr z, .asm_369ae

	ld a, e
	ld hl, PartyMon1CurHP
	call AddNTimes
	ld a, [hli]
	or [hl]
	jr nz, .asm_369b4

.asm_369ae
	inc e
	dec d
	jr nz, .asm_3699d

	scf
	ret

.asm_369b4
	and a
	ret
; 369b6


BattleCommand24: ; 369b6
; endloop

; Loop back to the command before 'critical'.

	ld de, PlayerRolloutCount
	ld bc, $c682
	ld a, [hBattleTurn]
	and a
	jr z, .asm_369c7
	ld de, EnemyRolloutCount
	ld bc, $c684
.asm_369c7

	ld a, BATTLE_VARS_SUBSTATUS3
	call GetBattleVarPair
	bit 2, [hl]
	jp nz, .asm_36a43
	set 2, [hl]
	ld a, BATTLE_VARS_MOVE_EFFECT
	call GetBattleVarPair
	ld a, [hl]
	cp EFFECT_TWINEEDLE
	jr z, .asm_36a3f
	cp EFFECT_DOUBLE_HIT
	ld a, $1
	jr z, .asm_36a3a
	ld a, [hl]
	cp EFFECT_BEAT_UP
	jr z, .asm_369fb
	cp EFFECT_TRIPLE_KICK
	jr nz, .asm_36a2b
.asm_369ec
	call FarBattleRNG
	and $3
	jr z, .asm_369ec
	dec a
	jr nz, .asm_36a3a
	ld a, $1
	ld [bc], a
	jr .asm_36a48
.asm_369fb
	ld a, [hBattleTurn]
	and a
	jr nz, .asm_36a0b
	ld a, [PartyCount]
	cp $1
	jp z, .asm_36a1e
	dec a
	jr .asm_36a3a
.asm_36a0b
	ld a, [IsInBattle]
	cp $1
	jp z, .asm_36a1e
	ld a, [OTPartyCount]
	cp $1
	jp z, .asm_36a1e
	dec a
	jr .asm_36a3a

.asm_36a1e
	ld a, BATTLE_VARS_SUBSTATUS3
	call GetBattleVarPair
	res 2, [hl]
	call BattleCommanda8
	jp EndMoveEffect
.asm_36a2b
	call FarBattleRNG
	and $3
	cp $2
	jr c, .asm_36a39 ; 36a32 $5
	call FarBattleRNG
	and $3
.asm_36a39
	inc a
.asm_36a3a
	ld [de], a
	inc a
	ld [bc], a
	jr .asm_36a6b ; 36a3d $2c
.asm_36a3f
	ld a, $1
	jr .asm_36a3a ; 36a41 $f7

.asm_36a43
	ld a, [de]
	dec a
	ld [de], a
	jr nz, .asm_36a6b ; 36a46 $23
.asm_36a48
	ld a, BATTLE_VARS_SUBSTATUS3
	call GetBattleVarPair
	res 2, [hl]

	ld hl, PlayerHitTimesText
	ld a, [hBattleTurn]
	and a
	jr z, .asm_36a5a
	ld hl, EnemyHitTimesText
.asm_36a5a

	push bc
	ld a, BATTLE_VARS_MOVE_EFFECT
	call CleanGetBattleVarPair
	cp EFFECT_BEAT_UP
	jr z, .asm_36a67
	call FarBattleTextBox
.asm_36a67

	pop bc
	xor a
	ld [bc], a
	ret

; Loop back to the command before 'critical'.
.asm_36a6b
	ld a, [BattleScriptBufferLoc + 1]
	ld h, a
	ld a, [BattleScriptBufferLoc]
	ld l, a
.asm_36a73
	ld a, [hld]
	cp $5 ; critical
	jr nz, .asm_36a73 ; 36a76 $fb
	inc hl
	ld a, h
	ld [BattleScriptBufferLoc + 1], a
	ld a, l
	ld [BattleScriptBufferLoc], a
	ret
; 36a82


BattleCommand94: ; 36a82
	ld a, [AttackMissed]
	and a
	ret nz
	call CheckSubstituteOpp
	jr nz, .asm_36a9a ; 36a8a $e
	ld a, BATTLE_VARS_STATUS_OPP
	call CleanGetBattleVarPair
	and $27
	jr nz, .asm_36a9a ; 36a93 $5
	call Function0x36abf
	jr z, Function0x36ab5 ; 36a98 $1b
.asm_36a9a
	ld a, 1
	ld [AttackMissed], a
	ret
; 36aa0


BattleCommand25: ; 36aa0
	call CheckSubstituteOpp
	ret nz
	ld a, BATTLE_VARS_STATUS_OPP
	call CleanGetBattleVarPair
	and $27
	ret nz
	call Function0x36abf
	ret nz
	ld a, [EffectFailed]
	and a
	ret nz

	; fallthrough
; 36ab5


Function0x36ab5: ; 36ab5
	ld a, BATTLE_VARS_SUBSTATUS3_OPP
	call GetBattleVarPair
	set 3, [hl]
	jp EndRechargeOpp
; 36abf


Function0x36abf: ; 36abf
	push bc
	ld a, [$c70f]
	ld b, a
	ld a, [hBattleTurn]
	xor b
	pop bc
	ret
; 36ac9


BattleCommand4d: ; 36ac9
; kingsrock

	ld a, [AttackMissed]
	and a
	ret nz

	call GetUserItem
	ld a, b
	cp $4b ; king's rock
	ret nz

	call CheckSubstituteOpp
	ret nz
	ld a, BATTLE_VARS_MOVE_EFFECT
	call GetBattleVarPair
	ld d, h
	ld e, l
	call GetUserItem
	call FarBattleRNG
	cp c
	ret nc
	call EndRechargeOpp
	ld a, BATTLE_VARS_SUBSTATUS3_OPP
	call GetBattleVarPair
	set 3, [hl]
	ret
; 36af3


BattleCommand26: ; 36af3
; ohko

	call ResetDamage
	ld a, [TypeModifier]
	and $7f
	jr z, .asm_36b2f ; 36afb $32
	ld hl, EnemyMonLevel
	ld de, BattleMonLevel
	ld bc, PlayerMoveAccuracy
	ld a, [hBattleTurn]
	and a
	jr z, .asm_36b12 ; 36b09 $7
	push hl
	ld h, d
	ld l, e
	pop de
	ld bc, EnemyMoveAccuracy
.asm_36b12
	ld a, [de]
	sub [hl]
	jr c, .asm_36b2f ; 36b14 $19
	add a
	ld e, a
	ld a, [bc]
	add e
	jr nc, .asm_36b1e ; 36b1a $2
	ld a, $ff
.asm_36b1e
	ld [bc], a
	call BattleCommand09
	ld hl, CurDamage
	ld a, $ff
	ld [hli], a
	ld [hl], a
	ld a, $2
	ld [CriticalHit], a
	ret
.asm_36b2f
	ld a, $ff
	ld [CriticalHit], a
	ld a, $1
	ld [AttackMissed], a
	ret
; 36b3a


BattleCommand3a: ; 36b3a
; checkcharge

; charged?
	ld a, BATTLE_VARS_SUBSTATUS3
	call GetBattleVarPair
	bit 4, [hl]
	ret z
; go to town
	res 4, [hl]
	res 5, [hl]
	res 6, [hl]
	ld b, $39 ; charge
	jp SkipToBattleCommand
; 36b4d


BattleCommand39: ; 36b4d
; charge

	call BattleCommand38
	ld a, BATTLE_VARS_STATUS
	call CleanGetBattleVarPair
	and $7
	jr z, .asm_36b65

	call BattleCommandaa
	call BattleCommand0c
	call PrintButItFailed
	jp EndMoveEffect

.asm_36b65
	ld a, BATTLE_VARS_SUBSTATUS3
	call GetBattleVarPair
	set 4, [hl]

	ld hl, IgnoredOrders2Text
	ld a, [AlreadyDisobeyed]
	and a
	call nz, FarBattleTextBox

	call BattleCommand0a
	xor a
	ld [$cfca], a
	inc a
	ld [$c689], a
	call Function0x37e36
	ld a, BATTLE_VARS_MOVE_ANIM
	call CleanGetBattleVarPair
	cp $13
	jr z, .asm_36b96 ; 36b8b $9
	cp $5b
	jr z, .asm_36b96 ; 36b8f $5
	call BattleCommand0c
	jr .asm_36b99 ; 36b94 $3
.asm_36b96
	call Function0x37ec0
.asm_36b99
	ld a, BATTLE_VARS_SUBSTATUS3
	call GetBattleVarPair
	ld a, BATTLE_VARS_MOVE_ANIM
	call CleanGetBattleVarPair
	ld b, a
	cp $13
	jr z, .asm_36bb0 ; 36ba6 $8
	cp $5b
	jr nz, .asm_36bb2 ; 36baa $6
	set 5, [hl]
	jr .asm_36bb2 ; 36bae $2

.asm_36bb0
	set 6, [hl]

.asm_36bb2
	call Function0x34548
	jr nz, .asm_36bc3 ; 36bb5 $c
	ld a, BATTLE_VARS_LAST_COUNTER_MOVE
	call GetBattleVarPair
	ld [hl], b
	ld a, BATTLE_VARS_LAST_MOVE
	call GetBattleVarPair
	ld [hl], b

.asm_36bc3
	call ResetDamage

	ld hl, .text_36bdb
	call BattleTextBox

	ld a, BATTLE_VARS_MOVE_EFFECT
	call CleanGetBattleVarPair
	cp EFFECT_SKULL_BASH
	ld b, $fe ; endturn
	jp z, SkipToBattleCommand
	jp EndMoveEffect

.text_36bdb
; [user]
	TX_FAR UnknownText_0x1c0d0e
	start_asm

	ld a, BATTLE_VARS_MOVE_ANIM
	call CleanGetBattleVarPair
	cp RAZOR_WIND
	ld hl, .RazorWind
	jr z, .asm_36c0d

	cp SOLARBEAM
	ld hl, .Solarbeam
	jr z, .asm_36c0d

	cp SKULL_BASH
	ld hl, .SkullBash
	jr z, .asm_36c0d

	cp SKY_ATTACK
	ld hl, .SkyAttack
	jr z, .asm_36c0d

	cp FLY
	ld hl, .Fly
	jr z, .asm_36c0d

	cp DIG
	ld hl, .Dig

.asm_36c0d
	ret

.RazorWind
; 'made a whirlwind!'
	TX_FAR UnknownText_0x1c0d12
	db "@"

.Solarbeam
; 'took in sunlight!'
	TX_FAR UnknownText_0x1c0d26
	db "@"

.SkullBash
; 'lowered its head!'
	TX_FAR UnknownText_0x1c0d3a
	db "@"

.SkyAttack
; 'is glowing!'
	TX_FAR UnknownText_0x1c0d4e
	db "@"

.Fly
; 'flew up high!'
	TX_FAR UnknownText_0x1c0d5c
	db "@"

.Dig
; 'dug a hole!'
	TX_FAR UnknownText_0x1c0d6c
	db "@"
; 36c2c


BattleCommand3c: ; 36c2c
; unused
	ret
; 36c2d


BattleCommand3b: ; 36c2d
; traptarget

	ld a, [AttackMissed]
	and a
	ret nz
	ld hl, $c731
	ld de, $c72f
	ld a, [hBattleTurn]
	and a
	jr z, .asm_36c43
	ld hl, $c730
	ld de, $c72e

.asm_36c43
	ld a, [hl]
	and a
	ret nz
	ld a, BATTLE_VARS_SUBSTATUS4_OPP
	call CleanGetBattleVarPair
	bit 4, a
	ret nz
	call FarBattleRNG
	and 3
	inc a
	inc a
	inc a
	ld [hl], a
	ld a, BATTLE_VARS_MOVE_ANIM
	call CleanGetBattleVarPair
	ld [de], a
	ld b, a
	ld hl, .Traps

.asm_36c61
	ld a, [hli]
	cp b
	jr z, .asm_36c69
	inc hl
	inc hl
	jr .asm_36c61

.asm_36c69
	ld a, [hli]
	ld h, [hl]
	ld l, a
	jp FarBattleTextBox

.Traps
	dbw BIND,      UsedBindText      ; 'used BIND on'
	dbw WRAP,      WrappedByText     ; 'was WRAPPED by'
	dbw FIRE_SPIN, FireSpinTrapText  ; 'was trapped!'
	dbw CLAMP,     ClampedByText     ; 'was CLAMPED by'
	dbw WHIRLPOOL, WhirlpoolTrapText ; 'was trapped!'
; 36c7e


BattleCommand28: ; 36c7e
; mist

	ld a, BATTLE_VARS_SUBSTATUS4
	call GetBattleVarPair
	bit 1, [hl]
	jr nz, .asm_36c92 ; 36c85 $b
	set 1, [hl]
	call Function0x37e01
	ld hl, MistText
	jp FarBattleTextBox
.asm_36c92
	call Function0x37e77
	jp PrintButItFailed
; 36c98


BattleCommand29: ; 36c98
; focusenergy

	ld a, BATTLE_VARS_SUBSTATUS4
	call GetBattleVarPair
	bit 2, [hl]
	jr nz, .asm_36cac ; 36c9f $b
	set 2, [hl]
	call Function0x37e01
	ld hl, GettingPumpedText
	jp FarBattleTextBox
.asm_36cac
	call Function0x37e77
	jp PrintButItFailed
; 36cb2


BattleCommand27: ; 36cb2
; recoil

	ld hl, BattleMonMaxHP
	ld a, [hBattleTurn]
	and a
	jr z, .asm_36cbd ; 36cb8 $3
	ld hl, EnemyMonMaxHPHi
.asm_36cbd
	ld a, BATTLE_VARS_MOVE_ANIM
	call CleanGetBattleVarPair
	ld d, a
	ld a, [CurDamage]
	ld b, a
	ld a, [CurDamage + 1]
	ld c, a
	srl b
	rr c
	srl b
	rr c
	ld a, b
	or c
	jr nz, .asm_36cd8 ; 36cd5 $1
	inc c
.asm_36cd8
	ld a, [hli]
	ld [$d1eb], a
	ld a, [hl]
	ld [$d1ea], a
	dec hl
	dec hl
	ld a, [hl]
	ld [$d1ec], a
	sub c
	ld [hld], a
	ld [$d1ee], a
	ld a, [hl]
	ld [$d1ed], a
	sbc b
	ld [hl], a
	ld [$d1ef], a
	jr nc, .asm_36cfe ; 36cf4 $8
	xor a
	ld [hli], a
	ld [hl], a
	ld hl, $d1ee
	ld [hli], a
	ld [hl], a
.asm_36cfe
	ld hl, $c55e
	ld a, [hBattleTurn]
	and a
	ld a, $1
	jr z, .asm_36d0c ; 36d06 $4
	ld hl, $c4ca
	xor a
.asm_36d0c
	ld [$d10a], a
	ld a, $b
	call Predef
	call RefreshBattleHuds
	ld hl, RecoilText
	jp FarBattleTextBox
; 36d1d


BattleCommand2b: ; 36d1d
; confusetarget

	call GetOpponentItem
	ld a, b
	cp $19
	ret z
	ld a, [EffectFailed]
	and a
	ret nz
	call Function0x37962
	ret nz
	call CheckSubstituteOpp
	ret nz
	ld a, BATTLE_VARS_SUBSTATUS3_OPP
	call GetBattleVarPair
	bit 7, [hl]
	ret nz
	jr Function0x36d70


BattleCommand2a: ; 36d3b
; confuse

	call GetOpponentItem
	ld a, b
	cp $19
	jr nz, .asm_36d53
	ld a, [hl]
	ld [$d265], a
	call GetItemName
	call Function0x37e77
	ld hl, ProtectedByText
	jp FarBattleTextBox

.asm_36d53
	ld a, BATTLE_VARS_SUBSTATUS3_OPP
	call GetBattleVarPair
	bit 7, [hl]
	jr z, .asm_36d65
	call Function0x37e77
	ld hl, AlreadyConfusedText
	jp FarBattleTextBox

.asm_36d65
	call CheckSubstituteOpp
	jr nz, Function0x36db6
	ld a, [AttackMissed]
	and a
	jr nz, Function0x36db6

	; fallthrough
; 36d70


Function0x36d70: ; 36d70
	ld bc, EnemyConfuseCount
	ld a, [hBattleTurn]
	and a
	jr z, .asm_36d7b
	ld bc, PlayerConfuseCount

.asm_36d7b
	set 7, [hl]
	call FarBattleRNG
	and 3
	inc a
	inc a
	ld [bc], a

	ld a, BATTLE_VARS_MOVE_EFFECT
	call CleanGetBattleVarPair
	cp EFFECT_CONFUSE_HIT
	jr z, .asm_36d99
	cp EFFECT_SNORE
	jr z, .asm_36d99
	cp EFFECT_SWAGGER
	jr z, .asm_36d99
	call Function0x37e01

.asm_36d99
	ld de, $0103
	call Function0x37e54

	ld hl, BecameConfusedText
	call FarBattleTextBox

	call GetOpponentItem
	ld a, b
	cp $f
	jr z, .asm_36db0
	cp $10
	ret nz
.asm_36db0
	ld hl, $5e51
	jp CallBankF
; 36db6

Function0x36db6: ; 36db6
	ld a, BATTLE_VARS_MOVE_EFFECT
	call CleanGetBattleVarPair
	cp EFFECT_CONFUSE_HIT
	ret z
	cp EFFECT_SNORE
	ret z
	cp EFFECT_SWAGGER
	ret z
	jp PrintDidntAffect2
; 36dc7


BattleCommand30: ; 36dc7
; paralyze

	ld a, BATTLE_VARS_STATUS_OPP
	call CleanGetBattleVarPair
	bit 6, a
	jr nz, .asm_36e49 ; 36dce $79
	ld a, [TypeModifier]
	and $7f
	jr z, .asm_36e55 ; 36dd5 $7e
	call GetOpponentItem
	ld a, b
	cp $18
	jr nz, .asm_36def ; 36ddd $10
	ld a, [hl]
	ld [$d265], a
	call GetItemName
	call Function0x37e77
	ld hl, ProtectedByText
	jp FarBattleTextBox
.asm_36def
	ld a, [hBattleTurn]
	and a
	jr z, .asm_36e0e ; 36df2 $1a
	ld a, [InLinkBattle]
	and a
	jr nz, .asm_36e0e ; 36df8 $14
	ld a, [$cfc0]
	and a
	jr nz, .asm_36e0e ; 36dfe $e
	ld a, [PlayerSubStatus5]
	bit 5, a
	jr nz, .asm_36e0e ; 36e05 $7
	call FarBattleRNG
	cp $40
	jr c, .asm_36e52 ; 36e0c $44
.asm_36e0e
	ld a, BATTLE_VARS_STATUS_OPP
	call GetBattleVarPair
	and a
	jr nz, .asm_36e52 ; 36e14 $3c
	ld a, [AttackMissed]
	and a
	jr nz, .asm_36e52 ; 36e1a $36
	call CheckSubstituteOpp
	jr nz, .asm_36e52 ; 36e1f $31
	ld c, $1e
	call DelayFrames
	call Function0x37e01
	ld a, $1
	ld [$ffd4], a
	ld a, BATTLE_VARS_STATUS_OPP
	call GetBattleVarPair
	set 6, [hl]
	call UpdateOpponentInParty
	ld hl, $6c39
	call CallBankF
	call UpdateBattleHuds
	call PrintParalyze
	ld hl, $5de9
	jp CallBankF
.asm_36e49
	call Function0x37e77
	ld hl, AlreadyParalyzedText
	jp FarBattleTextBox
.asm_36e52
	jp PrintDidntAffect2
.asm_36e55
	call Function0x37e77
	jp PrintDoesntAffect
; 36e5b


Function0x36e5b: ; 36e5b
; Compare move type to user type.
; Return z if matching the user type (unless the move is Normal).

	push hl

	ld hl, EnemyMonType1
	ld a, [hBattleTurn]
	and a
	jr z, .ok
	ld hl, BattleMonType1
.ok

	ld a, BATTLE_VARS_MOVE_TYPE
	call CleanGetBattleVarPair
	cp NORMAL
	jr z, .normal

	cp [hl]
	jr z, .return

	inc hl
	cp [hl]

.return
	pop hl
	ret

.normal
	ld a, 1
	and a
	pop hl
	ret
; 36e7c


BattleCommand31: ; 36e7c
; substitute

	call BattleCommandaa
	ld hl, BattleMonMaxHP
	ld de, $c6df
	ld a, [hBattleTurn]
	and a
	jr z, .asm_36e90 ; 36e88 $6
	ld hl, EnemyMonMaxHPHi
	ld de, $c6e0
.asm_36e90
	ld a, BATTLE_VARS_SUBSTATUS4
	call CleanGetBattleVarPair
	bit 4, a
	jr nz, .asm_36ef4 ; 36e97 $5b
	ld a, [hli]
	ld b, [hl]
	srl a
	rr b
	srl a
	rr b
	dec hl
	dec hl
	ld a, b
	ld [de], a
	ld a, [hld]
	sub b
	ld e, a
	ld a, [hl]
	sbc $0
	ld d, a
	jr c, .asm_36eff ; 36eae $4f
	ld a, d
	or e
	jr z, .asm_36eff ; 36eb2 $4b
	ld [hl], d
	inc hl
	ld [hl], e
	ld a, BATTLE_VARS_SUBSTATUS4
	call GetBattleVarPair
	set 4, [hl]
	ld hl, $c730
	ld de, $c72e
	ld a, [hBattleTurn]
	and a
	jr z, .asm_36ecf ; 36ec7 $6
	ld hl, $c731
	ld de, $c72f
.asm_36ecf
	xor a
	ld [hl], a
	ld [de], a
	call Function0x37ed5
	jr c, .asm_36ee8 ; 36ed5 $11
	xor a
	ld [$cfca], a
	ld [FXAnimIDHi], a
	ld [$c689], a
	ld a, $a4
	call Function0x37e44
	jr .asm_36eeb ; 36ee6 $3
.asm_36ee8
	call BattleCommanda6
.asm_36eeb
	ld hl, MadeSubstituteText
	call FarBattleTextBox
	jp RefreshBattleHuds
.asm_36ef4
	call Function0x34548
	call nz, BattleCommand0c
	ld hl, HasSubstituteText
	jr .asm_36f08 ; 36efd $9
.asm_36eff
	call Function0x34548
	call nz, BattleCommand0c
	ld hl, TooWeakSubText
.asm_36f08
	jp FarBattleTextBox
; 36f0b

BattleCommand32: ; 36f0b
; rechargenextturn
	ld a, BATTLE_VARS_SUBSTATUS4
	call GetBattleVarPair
	set 5, [hl]
	ret
; 36f13


EndRechargeOpp: ; 36f13
	push hl
	ld a, BATTLE_VARS_SUBSTATUS4_OPP
	call GetBattleVarPair
	res 5, [hl]
	pop hl
	ret
; 36f1d


BattleCommand97: ; 36f1d
; rage
	ld a, BATTLE_VARS_SUBSTATUS4
	call GetBattleVarPair
	set 6, [hl]
	ret
; 36f25


BattleCommand98: ; 36f25
; doubleflyingdamage
	ld a, BATTLE_VARS_SUBSTATUS3_OPP
	call CleanGetBattleVarPair
	bit SUBSTATUS_FLYING, a
	ret z
	jr DoubleDamage
; 36f2f


BattleCommand99: ; 36f2f
; doubleundergrounddamage
	ld a, BATTLE_VARS_SUBSTATUS3_OPP
	call CleanGetBattleVarPair
	bit SUBSTATUS_UNDERGROUND, a
	ret z

	; fallthrough
; 36f37


DoubleDamage: ; 36f37
	ld hl, CurDamage + 1
	sla [hl]
	dec hl
	rl [hl]
	jr nc, .quit

	ld a, $ff
	ld [hli], a
	ld [hl], a
.quit
	ret
; 36f46


BattleCommand33: ; 36f46
; mimic

	call Function0x372d8
	call BattleCommandaa
	ld a, [AttackMissed]
	and a
	jr nz, .asm_36f9a ; 36f50 $48
	ld hl, BattleMonMoves
	ld a, [hBattleTurn]
	and a
	jr z, .asm_36f5d ; 36f58 $3
	ld hl, EnemyMonMoves
.asm_36f5d
	call CheckHiddenOpponent
	jr nz, .asm_36f9a ; 36f60 $38
	ld a, BATTLE_VARS_LAST_COUNTER_MOVE_OPP
	call CleanGetBattleVarPair
	and a
	jr z, .asm_36f9a ; 36f68 $30
	cp $a5
	jr z, .asm_36f9a ; 36f6c $2c
	ld b, a
	ld c, $4
.asm_36f71
	ld a, [hli]
	cp b
	jr z, .asm_36f9a ; 36f73 $25
	dec c
	jr nz, .asm_36f71 ; 36f76 $f9
	dec hl
.asm_36f79
	ld a, [hld]
	cp $66
	jr nz, .asm_36f79 ; 36f7c $fb
	inc hl
	ld a, BATTLE_VARS_LAST_COUNTER_MOVE_OPP
	call CleanGetBattleVarPair
	ld [hl], a
	ld [$d265], a
	ld bc, $0006
	add hl, bc
	ld [hl], $5
	call GetMoveName
	call Function0x37e01
	ld hl, LearnedMoveText
	jp FarBattleTextBox
.asm_36f9a
	jp Function0x37357
; 36f9d


BattleCommand35: ; 36f9d
; leechseed
	ld a, [AttackMissed]
	and a
	jr nz, .asm_36fd8 ; 36fa1 $35
	call CheckSubstituteOpp
	jr nz, .asm_36fd8 ; 36fa6 $30
	ld de, EnemyMonType1
	ld a, [hBattleTurn]
	and a
	jr z, .asm_36fb3 ; 36fae $3
	ld de, BattleMonType1
.asm_36fb3
	ld a, [de]
	cp $16
	jr z, .asm_36fd2 ; 36fb6 $1a
	inc de
	ld a, [de]
	cp $16
	jr z, .asm_36fd2 ; 36fbc $14
	ld a, BATTLE_VARS_SUBSTATUS4_OPP
	call GetBattleVarPair
	bit 7, [hl]
	jr nz, .asm_36fd8 ; 36fc5 $11
	set 7, [hl]
	call Function0x37e01
	ld hl, WasSeededText
	jp FarBattleTextBox
.asm_36fd2
	call Function0x37e77
	jp PrintDoesntAffect
.asm_36fd8
	call Function0x37e77
	ld hl, EvadedText
	jp FarBattleTextBox
; 36fe1


BattleCommand36: ; 36fe1
	call Function0x37e01
	ld a, $41
	ld hl, $60e5
	rst FarCall
	jp PrintNothingHappened
; 36fed


BattleCommand37: ; 36fed
; disable

	ld a, [AttackMissed]
	and a
	jr nz, .asm_37059 ; 36ff1 $66
	ld de, EnemyDisableCount
	ld hl, EnemyMonMoves
	ld a, [hBattleTurn]
	and a
	jr z, .asm_37004 ; 36ffc $6
	ld de, PlayerDisableCount
	ld hl, BattleMonMoves
.asm_37004
	ld a, [de]
	and a
	jr nz, .asm_37059 ; 37006 $51
	ld a, BATTLE_VARS_LAST_COUNTER_MOVE_OPP
	call CleanGetBattleVarPair
	and a
	jr z, .asm_37059 ; 3700e $49
	cp $a5
	jr z, .asm_37059 ; 37012 $45
	ld b, a
	ld c, $ff
.asm_37017
	inc c
	ld a, [hli]
	cp b
	jr nz, .asm_37017 ; 3701a $fb
	ld a, [hBattleTurn]
	and a
	ld hl, EnemyMonPPMove1
	jr z, .asm_37027 ; 37022 $3
	ld hl, BattleMonPP
.asm_37027
	ld b, $0
	add hl, bc
	ld a, [hl]
	and a
	jr z, .asm_37059 ; 3702c $2b
.asm_3702e
	call FarBattleRNG
	and $7
	jr z, .asm_3702e ; 37033 $f9
	inc a
	inc c
	swap c
	add c
	ld [de], a
	call Function0x37e01
	ld hl, DisabledMove
	ld a, [hBattleTurn]
	and a
	jr nz, .asm_37047 ; 37044 $1
	inc hl
.asm_37047
	ld a, BATTLE_VARS_LAST_COUNTER_MOVE_OPP
	call CleanGetBattleVarPair
	ld [hl], a
	ld [$d265], a
	call GetMoveName
	ld hl, WasDisabledText
	jp FarBattleTextBox
.asm_37059
	jp Function0x37354
; 3705c


BattleCommand1e: ; 3705c
; payday

	xor a
	ld hl, StringBuffer1
	ld [hli], a
	ld a, [hBattleTurn]
	and a
	ld a, [BattleMonLevel]
	jr z, .asm_3706c ; 37067 $3
	ld a, [EnemyMonLevel]
.asm_3706c
	add a
	ld hl, $c6ee
	add [hl]
	ld [hld], a
	jr nc, .asm_37079 ; 37072 $5
	inc [hl]
	dec hl
	jr nz, .asm_37079 ; 37076 $1
	inc [hl]
.asm_37079
	ld hl, CoinsScatteredText
	jp FarBattleTextBox
; 3707f


BattleCommand1f: ; 3707f
; conversion

	ld hl, BattleMonMoves
	ld de, BattleMonType1
	ld a, [hBattleTurn]
	and a
	jr z, .asm_37090 ; 37088 $6
	ld hl, EnemyMonMoves
	ld de, EnemyMonType1
.asm_37090
	push de
	ld c, $0
	ld de, StringBuffer1
.asm_37096
	push hl
	ld b, $0
	add hl, bc
	ld a, [hl]
	pop hl
	and a
	jr z, .asm_370b2 ; 3709d $13
	push hl
	push bc
	dec a
	ld hl, Moves + PlayerMoveType - PlayerMoveStruct
	call GetMoveAttr
	ld [de], a
	inc de
	pop bc
	pop hl
	inc c
	ld a, c
	cp $4
	jr c, .asm_37096 ; 370b0 $e4
.asm_370b2
	ld a, $ff
	ld [de], a
	inc de
	ld [de], a
	inc de
	ld [de], a
	pop de
	ld hl, StringBuffer1
.asm_370bd
	ld a, [hl]
	cp $ff
	jr z, .asm_370d3 ; 370c0 $11
	cp $13
	jr z, .asm_370d0 ; 370c4 $a
	ld a, [de]
	cp [hl]
	jr z, .asm_370d0 ; 370c8 $6
	inc de
	ld a, [de]
	dec de
	cp [hl]
	jr nz, .asm_370d9 ; 370ce $9
.asm_370d0
	inc hl
	jr .asm_370bd ; 370d1 $ea
.asm_370d3
	call Function0x37e77
	jp PrintButItFailed
.asm_370d9
	call FarBattleRNG
	and $3
	ld c, a
	ld b, $0
	ld hl, StringBuffer1
	add hl, bc
	ld a, [hl]
	cp $ff
	jr z, .asm_370d9 ; 370e8 $ef
	cp $13
	jr z, .asm_370d9 ; 370ec $eb
	ld a, [de]
	cp [hl]
	jr z, .asm_370d9 ; 370f0 $e7
	inc de
	ld a, [de]
	dec de
	cp [hl]
	jr z, .asm_370d9 ; 370f6 $e1
	ld a, [hl]
	ld [de], a
	inc de
	ld [de], a
	ld [$d265], a
	ld a, $14
	ld hl, $4964
	rst FarCall
	call Function0x37e01
	ld hl, TransformedTypeText
	jp FarBattleTextBox
; 3710e


BattleCommand20: ; 3710e
; resetstats

	ld a, 7 ; neutral
	ld hl, PlayerStatLevels
	call .Fill
	ld hl, EnemyStatLevels
	call .Fill

	ld a, [hBattleTurn]
	push af

	call SetPlayerTurn
	call Function0x365d7
	call SetEnemyTurn
	call Function0x365fd

	pop af
	ld [hBattleTurn], a

	call Function0x37e01

	ld hl, EliminatedStatsText
	jp FarBattleTextBox

.Fill
	ld b, PlayerStatLevelsEnd - PlayerStatLevels
.asm_37139
	ld [hli], a
	dec b
	jr nz, .asm_37139
	ret
; 3713e


BattleCommand2c: ; 3713e
; heal

	ld de, BattleMonHP
	ld hl, BattleMonMaxHP
	ld a, [hBattleTurn]
	and a
	jr z, .asm_3714f ; 37147 $6
	ld de, EnemyMonHPHi
	ld hl, EnemyMonMaxHPHi
.asm_3714f
	ld a, BATTLE_VARS_MOVE_ANIM
	call CleanGetBattleVarPair
	ld b, a
	push hl
	push de
	push bc
	ld c, $2
	call StringCmp
	pop bc
	pop de
	pop hl
	jp z, .asm_371c4
	ld a, b
	cp $9c
	jr nz, .asm_37199 ; 37166 $31
	push hl
	push de
	push af
	call BattleCommandaa
	ld a, BATTLE_VARS_SUBSTATUS5
	call GetBattleVarPair
	res 0, [hl]
	ld a, BATTLE_VARS_STATUS
	call GetBattleVarPair
	ld a, [hl]
	and a
	ld [hl], $3
	ld hl, WentToSleepText
	jr z, .asm_37186 ; 37181 $3
	ld hl, RestedText
.asm_37186
	call FarBattleTextBox
	ld a, [hBattleTurn]
	and a
	jr nz, .asm_37193 ; 3718c $5
	call Function0x365d7
	jr .asm_37196 ; 37191 $3
.asm_37193
	call Function0x365fd
.asm_37196
	pop af
	pop de
	pop hl
.asm_37199
	jr z, .asm_371a3 ; 37199 $8
	ld hl, $4c9f
	call CallBankF
	jr .asm_371a9 ; 371a1 $6
.asm_371a3
	ld hl, $4cac
	call CallBankF
.asm_371a9
	call Function0x37e01
	call SwitchTurn
	ld hl, $4cef
	call CallBankF
	call SwitchTurn
	call UpdateUserInParty
	call RefreshBattleHuds
	ld hl, RegainedHealthText
	jp FarBattleTextBox

.asm_371c4
	call Function0x37e77
	ld hl, HPIsFullText
	jp FarBattleTextBox
; 371cd


BattleCommand2d: ; 371cd
; transform

	call Function0x372d8
	ld a, BATTLE_VARS_SUBSTATUS5_OPP
	call GetBattleVarPair
	bit 3, [hl]
	jp nz, Function0x372d2
	call CheckHiddenOpponent
	jp nz, Function0x372d2
	xor a
	ld [$cfca], a
	ld [FXAnimIDHi], a
	ld a, $1
	ld [$c689], a
	ld a, BATTLE_VARS_SUBSTATUS4
	call GetBattleVarPair
	bit 4, [hl]
	push af
	jr z, .asm_37200 ; 371f4 $a
	call Function0x34548
	jr nz, .asm_37200 ; 371f9 $5
	ld a, $a4
	call Function0x37e44
.asm_37200
	ld a, BATTLE_VARS_SUBSTATUS5
	call GetBattleVarPair
	set 3, [hl]
	call Function0x372e7
	ld hl, BattleMonSpecies
	ld de, EnemyMonSpecies
	ld a, [hBattleTurn]
	and a
	jr nz, .asm_3721f ; 37213 $a
	ld hl, EnemyMonSpecies
	ld de, BattleMonSpecies
	xor a
	ld [CurMoveNum], a
.asm_3721f
	push hl
	ld a, [hli]
	ld [de], a
	inc hl
	inc de
	inc de
	ld bc, $0004
	call $3026
	ld a, [hBattleTurn]
	and a
	jr z, .asm_3723a ; 3722e $a
	ld a, [de]
	ld [$c6f2], a
	inc de
	ld a, [de]
	ld [$c6f3], a
	dec de
.asm_3723a
	ld a, [hli]
	ld [de], a
	inc de
	ld a, [hli]
	ld [de], a
	inc de
	ld bc, $000c
	add hl, bc
	push hl
	ld h, d
	ld l, e
	add hl, bc
	ld d, h
	ld e, l
	pop hl
	ld bc, $000c
	call $3026
	ld bc, $ffe2
	add hl, bc
	push de
	ld d, h
	ld e, l
	pop hl
	ld bc, $ffe8
	add hl, bc
	ld b, $4
.asm_3725f
	ld a, [de]
	inc de
	and a
	jr z, .asm_3726c ; 37262 $8
	cp $a6
	ld a, $1
	jr z, .asm_3726c ; 37268 $2
	ld a, $5
.asm_3726c
	ld [hli], a
	dec b
	jr nz, .asm_3725f ; 3726e $ef
	pop hl
	ld a, [hl]
	ld [$d265], a
	call $343b
	ld hl, EnemyStats
	ld de, PlayerStats
	ld bc, $000a
	call BattleSideCopy
	ld hl, EnemyStatLevels
	ld de, PlayerStatLevels
	ld bc, $0008
	call BattleSideCopy
	call Function0x37ed5
	jr c, .asm_372a8 ; 37293 $13
	ld a, [hBattleTurn]
	and a
	ld a, [$c6fe]
	jr z, .asm_372a0 ; 3729b $3
	ld a, [$c6fa]
.asm_372a0
	and a
	jr nz, .asm_372a8 ; 372a1 $5
	call Function0x37e36
	jr .asm_372ae ; 372a6 $6
.asm_372a8
	call BattleCommandaa
	call BattleCommanda6
.asm_372ae
	xor a
	ld [$cfca], a
	ld [FXAnimIDHi], a
	ld a, $2
	ld [$c689], a
	pop af
	ld a, $a4
	call nz, Function0x37e44
	ld hl, TransformedText
	jp FarBattleTextBox
; 372c6


BattleSideCopy: ; 372c6
; Copy bc bytes from hl to de if it's the player's turn.
; Copy bc bytes from de to hl if it's the enemy's turn.
	ld a, [hBattleTurn]
	and a
	jr z, .copy

; Swap hl and de
	push hl
	ld h, d
	ld l, e
	pop de
.copy
	jp CopyBytes
; 372d2


Function0x372d2: ; 372d2
	call Function0x37e77
	jp PrintButItFailed
; 372d8


Function0x372d8: ; 372d8
	ld a, BATTLE_VARS_LAST_COUNTER_MOVE
	call GetBattleVarPair
	xor a
	ld [hl], a

	ld a, BATTLE_VARS_LAST_MOVE
	call GetBattleVarPair
	xor a
	ld [hl], a
	ret
; 372e7


Function0x372e7: ; 372e7
	ld a, [hBattleTurn]
	and a
	jr z, .player

	xor a
	ld [EnemyDisableCount], a
	ld [EnemyDisabledMove], a
	ret

.player
	xor a
	ld [PlayerDisableCount], a
	ld [DisabledMove], a
	ret
; 372fc


BattleCommand2e: ; 372fc
; screen

	ld hl, PlayerScreens
	ld bc, PlayerLightScreenCount
	ld a, [hBattleTurn]
	and a
	jr z, .asm_3730d
	ld hl, EnemyScreens
	ld bc, EnemyLightScreenCount

.asm_3730d
	ld a, BATTLE_VARS_MOVE_EFFECT
	call CleanGetBattleVarPair
	cp EFFECT_LIGHT_SCREEN
	jr nz, .Reflect

	bit 3, [hl]
	jr nz, .asm_37337
	set 3, [hl]
	ld a, $5
	ld [bc], a
	ld hl, LightScreenEffectText
	jr .asm_37331

.Reflect
	bit 4, [hl]
	jr nz, .asm_37337
	set 4, [hl]

; LightScreenCount -> ReflectCount
	inc bc

	ld a, $5
	ld [bc], a
	ld hl, ReflectEffectText

.asm_37331
	call Function0x37e01
	jp FarBattleTextBox

.asm_37337
	call Function0x37e77
	jp PrintButItFailed
; 3733d


PrintDoesntAffect: ; 3733d
; 'it doesn't affect'
	ld hl, DoesntAffectText
	jp FarBattleTextBox
; 37343


PrintNothingHappened: ; 37343
; 'but nothing happened!'
	ld hl, NothingHappenedText
	jp FarBattleTextBox
; 37349


TryPrintButItFailed: ; 37349
	ld a, [AlreadyFailed]
	and a
	ret nz

	; fallthrough
; 3734e


PrintButItFailed: ; 3734e
; 'but it failed!'
	ld hl, ButItFailedText
	jp FarBattleTextBox
; 37354


Function0x37354: ; 37354
	call Function0x37e77
	; fallthrough
; 37357

Function0x37357: ; 37357
	ld hl, ButItFailedText ; 'but it failed!'
	ld de, ItFailedText    ; 'it failed!'
	jp Function0x35157
; 37360


PrintDidntAffect: ; 37360
; 'it didn't affect'
	ld hl, DidntAffect1Text
	jp FarBattleTextBox
; 37366


PrintDidntAffect2: ; 37366
	call Function0x37e77
	ld hl, DidntAffect1Text ; 'it didn't affect'
	ld de, DidntAffect2Text ; 'it didn't affect'
	jp Function0x35157
; 37372


PrintParalyze: ; 37372
; 'paralyzed! maybe it can't attack!'
	ld hl, ParalyzedText
	jp FarBattleTextBox
; 37378


CheckSubstituteOpp: ; 37378
	ld a, BATTLE_VARS_SUBSTATUS4_OPP
	call CleanGetBattleVarPair
	bit 4, a
	ret
; 37380


BattleCommand1a: ; 37380
	ld a, $41
	ld hl, $610d
	rst FarCall
	ld a, $4
	ld [$cfca], a
	ld c, $3
	call DelayFrames
	ld a, BATTLE_VARS_STATUS
	call GetBattleVarPair
	xor a
	ld [hli], a
	inc hl
	ld [hli], a
	ld [hl], a
	ld a, $1
	ld [$c689], a
	call BattleCommand0a
	call Function0x37e36
	ld a, BATTLE_VARS_SUBSTATUS4
	call GetBattleVarPair
	res 7, [hl]
	ld a, BATTLE_VARS_SUBSTATUS5_OPP
	call GetBattleVarPair
	res 6, [hl]
	call Function0x37ed5
	ret nc
	ld a, $f
	ld hl, $5f58
	rst FarCall
	ld a, $f
	ld hl, $6043
	rst FarCall
	call $31f6
	jp RefreshBattleHuds
; 373c9


BattleCommand1b: ; 373c9
; mirrormove

	call Function0x372d8
	ld a, BATTLE_VARS_MOVE
	call GetBattleVarPair
	ld a, BATTLE_VARS_LAST_COUNTER_MOVE_OPP
	call CleanGetBattleVarPair
	and a
	jr z, .asm_373de ; 373d7 $5
	call CheckUserMove
	jr nz, .asm_373ea ; 373dc $c
.asm_373de
	call Function0x37e77
	ld hl, MirrorMoveFailedText
	call FarBattleTextBox
	jp EndMoveEffect
.asm_373ea
	ld a, b
	ld [hl], a
	ld [$d265], a
	push af
	ld a, BATTLE_VARS_MOVE_ANIM
	call GetBattleVarPair
	ld d, h
	ld e, l
	pop af
	dec a
	call GetMoveData
	call GetMoveName
	call $30d6
	call Function0x34548
	jr nz, .asm_37412 ; 37405 $b
	ld a, [$c689]
	push af
	call BattleCommand0a
	pop af
	ld [$c689], a
.asm_37412
	call BattleCommandaa
	jp ResetTurn
; 37418


BattleCommand34: ; 37418
; metronome

	call Function0x372d8
	call Function0x34548
	jr nz, .asm_3742b

	ld a, [$c689]
	push af
	call BattleCommand0a
	pop af
	ld [$c689], a

.asm_3742b
	call Function0x37e36

.GetMove
	call FarBattleRNG

; No invalid moves.
	cp BEAT_UP + 1
	jr nc, .GetMove

; None of the moves in MetronomeExcepts.
	push af
	ld de, 1
	ld hl, MetronomeExcepts
	call IsInArray
	pop bc
	jr c, .GetMove

; No moves the user already has.
	ld a, b
	call CheckUserMove
	jr z, .GetMove


	ld a, BATTLE_VARS_MOVE
	call GetBattleVarPair
	ld [hl], b
	call UpdateMoveData
	jp ResetTurn
; 37454


MetronomeExcepts: ; 37454
	db $00
	db METRONOME
	db STRUGGLE
	db SKETCH
	db MIMIC
	db COUNTER
	db MIRROR_COAT
	db PROTECT
	db DETECT
	db ENDURE
	db DESTINY_BOND
	db SLEEP_TALK
	db THIEF
	db $ff
; 37462


CheckUserMove: ; 37462
; Return z if the user has move a.
	ld b, a
	ld de, BattleMonMoves
	ld a, [hBattleTurn]
	and a
	jr z, .ok
	ld de, EnemyMonMoves
.ok

	ld c, NUM_MOVES
.loop
	ld a, [de]
	inc de
	cp b
	ret z

	dec c
	jr nz, .loop

	ld a, 1
	and a
	ret
; 3747b


ResetTurn: ; 3747b
	ld hl, $c732
	ld a, [hBattleTurn]
	and a
	jr z, .asm_37486
	ld hl, $c733

.asm_37486
	ld [hl], 1
	xor a
	ld [AlreadyDisobeyed], a
	call DoMove
	jp EndMoveEffect
; 37492


BattleCommand50: ; 37492
; thief

	ld a, [hBattleTurn]
	and a
	jr nz, .asm_374ce ; 37495 $37
	call .asm_37501
	ld a, [hl]
	and a
	ret nz
	call .asm_3750c
	ld a, [hl]
	and a
	ret z
	ld [$d265], a
	ld d, a
	ld a, $2e
	ld hl, $5e76
	rst FarCall
	ret c
	ld a, [EffectFailed]
	and a
	ret nz
	ld a, [InLinkBattle]
	and a
	jr z, .asm_374be ; 374b7 $5
	ld a, [IsInBattle]
	dec a
	ret z
.asm_374be
	call .asm_3750c
	xor a
	ld [hl], a
	ld [de], a
	call .asm_37501
	ld a, [$d265]
	ld [hl], a
	ld [de], a
	jr .asm_374f8 ; 374cc $2a
.asm_374ce
	call .asm_3750c
	ld a, [hl]
	and a
	ret nz
	call .asm_37501
	ld a, [hl]
	and a
	ret z
	ld [$d265], a
	ld d, a
	ld a, $2e
	ld hl, $5e76
	rst FarCall
	ret c
	ld a, [EffectFailed]
	and a
	ret nz
	call .asm_37501
	xor a
	ld [hl], a
	ld [de], a
	call .asm_3750c
	ld a, [$d265]
	ld [hl], a
	ld [de], a
.asm_374f8
	call GetItemName
	ld hl, StoleText
	jp FarBattleTextBox

.asm_37501
	ld a, 1
	call BattlePartyAttr
	ld d, h
	ld e, l
	ld hl, BattleMonItem
	ret

.asm_3750c
	ld a, 1
	call $396d ; GetOTStat_Battle
	ld d, h
	ld e, l
	ld hl, EnemyMonItem
	ret
; 37517


BattleCommand51: ; 37517
; arenatrap
	call CheckHiddenOpponent
	jr nz, .asm_37530 ; 3751a $14
	ld a, BATTLE_VARS_SUBSTATUS5
	call GetBattleVarPair
	bit 7, [hl]
	jr nz, .asm_37530 ; 37523 $b
	set 7, [hl]
	call Function0x37e01
	ld hl, CantEscapeNowText
	jp FarBattleTextBox
.asm_37530
	call Function0x37e77
	jp PrintButItFailed
; 37536


BattleCommand52: ; 37536
; nightmare

	call CheckHiddenOpponent
	jr nz, .asm_3755d ; 37539 $22
	call CheckSubstituteOpp
	jr nz, .asm_3755d ; 3753e $1d
	ld a, BATTLE_VARS_STATUS_OPP
	call GetBattleVarPair
	and $7
	jr z, .asm_3755d ; 37547 $14
	ld a, BATTLE_VARS_SUBSTATUS1_OPP
	call GetBattleVarPair
	bit 0, [hl]
	jr nz, .asm_3755d ; 37550 $b
	set 0, [hl]
	call Function0x37e01
	ld hl, StartedNightmareText
	jp FarBattleTextBox
.asm_3755d
	call Function0x37e77
	jp PrintButItFailed
; 37563


BattleCommand53: ; 37563
; defrost

	ld a, BATTLE_VARS_STATUS
	call GetBattleVarPair
	bit 5, [hl]
	ret z
	res 5, [hl]
	ld a, [hBattleTurn]
	and a
	jr z, .asm_37578 ; 37570 $6
	ld a, [IsInBattle]
	dec a
	jr z, .asm_3757f ; 37576 $7
.asm_37578
	ld a, $20
	call UserPartyAttr
	res 5, [hl]
.asm_3757f
	call RefreshBattleHuds
	ld hl, WasDefrostedText
	jp FarBattleTextBox
; 37588


BattleCommand54: ; 37588
; curse

	ld de, BattleMonType1
	ld bc, PlayerStatLevels
	ld a, [hBattleTurn]
	and a
	jr z, .asm_37599 ; 37591 $6
	ld de, EnemyMonType1
	ld bc, EnemyStatLevels
.asm_37599
	ld a, [de]
	cp $8
	jr z, .asm_375d7 ; 3759c $39
	inc de
	ld a, [de]
	cp $8
	jr z, .asm_375d7 ; 375a2 $33
	ld a, [bc]
	cp $d
	jr c, .asm_375af ; 375a7 $6
	inc bc
	ld a, [bc]
	cp $d
	jr nc, .asm_3760a ; 375ad $5b
.asm_375af
	ld a, $1
	ld [$c689], a
	call Function0x37e01
	ld a, $2
	call Function0x36532
	call SwitchTurn
	call BattleCommand8d
	call ResetMiss
	call SwitchTurn
	call BattleCommand70
	call BattleCommand8c
	call ResetMiss
	call BattleCommand71
	jp BattleCommand8c
.asm_375d7
	call CheckHiddenOpponent
	jr nz, .asm_37604 ; 375da $28
	call CheckSubstituteOpp
	jr nz, .asm_37604 ; 375df $23
	ld a, BATTLE_VARS_SUBSTATUS1_OPP
	call GetBattleVarPair
	bit 1, [hl]
	jr nz, .asm_37604 ; 375e8 $1a
	set 1, [hl]
	call Function0x37e01
	ld hl, $4c9f
	call CallBankF
	ld hl, $4c3f
	call CallBankF
	call UpdateUserInParty
	ld hl, PutACurseText
	jp FarBattleTextBox
.asm_37604
	call Function0x37e77
	jp PrintButItFailed
.asm_3760a
	ld b, $8
	call GetStatName
	call Function0x37e77
	ld hl, WontRiseAnymoreText
	jp FarBattleTextBox
; 37618


BattleCommand55: ; 37618
; protect

	call Function0x3762c
	ret c
	ld a, BATTLE_VARS_SUBSTATUS1
	call GetBattleVarPair
	set 2, [hl]
	call Function0x37e01
	ld hl, ProtectedItselfText
	jp FarBattleTextBox
; 3762c


Function0x3762c: ; 3762c
	ld de, $c679
	ld a, [hBattleTurn]
	and a
	jr z, .asm_37637
	ld de, $c681

.asm_37637
	call Function0x36abf
	jr nz, .asm_37665

	ld a, $3
	call CleanGetBattleVarPair
	bit 4, a
	jr nz, .asm_37665

	ld b, $ff
	ld a, [de]
	ld c, a
.asm_37649
	ld a, c
	and a
	jr z, .asm_37656

	dec c
	srl b
	ld a, b
	and a
	jr nz, .asm_37649

	jr .asm_37665

.asm_37656
	call FarBattleRNG
	and a
	jr z, .asm_37656

	dec a
	cp b
	jr nc, .asm_37665

	ld a, [de]
	inc a
	ld [de], a
	and a
	ret

.asm_37665
	xor a
	ld [de], a
	call Function0x37e77
	call PrintButItFailed
	scf
	ret
; 3766f


BattleCommand5a: ; 3766f
; endure

	call Function0x3762c
	ret c

	ld a, BATTLE_VARS_SUBSTATUS1
	call GetBattleVarPair
	set SUBSTATUS_ENDURE, [hl]
	call Function0x37e01
	ld hl, BracedItselfText
	jp FarBattleTextBox
; 37683


BattleCommand56: ; 37683
; spikes

	ld hl, EnemyScreens
	ld a, [hBattleTurn]
	and a
	jr z, .asm_3768e
	ld hl, PlayerScreens

.asm_3768e
	bit 0, [hl]
	jr nz, .failed

	set 0, [hl]
	call Function0x37e01
	ld hl, SpikesText
	jp FarBattleTextBox

.failed
	jp Function0x37354
; 376a0


BattleCommand57: ; 376a0
; foresight

	ld a, [AttackMissed]
	and a
	jr nz, .asm_376bf
	call CheckHiddenOpponent
	jr nz, .asm_376bf
	ld a, BATTLE_VARS_SUBSTATUS1_OPP
	call GetBattleVarPair
	bit SUBSTATUS_IDENTIFIED, [hl]
	jr nz, .asm_376bf
	set SUBSTATUS_IDENTIFIED, [hl]
	call Function0x37e01
	ld hl, IdentifiedText
	jp FarBattleTextBox
.asm_376bf
	jp Function0x37354
; 376c2


BattleCommand58: ; 376c2
; perishsong

	ld hl, PlayerSubStatus1
	ld de, EnemySubStatus1
	bit SUBSTATUS_PERISH, [hl]
	jr z, .asm_376d1
	ld a, [de]
	bit SUBSTATUS_PERISH, a
	jr nz, .asm_376f2
.asm_376d1
	bit SUBSTATUS_PERISH, [hl]
	jr nz, .asm_376dc
	set SUBSTATUS_PERISH, [hl]
	ld a, 4
	ld [PlayerPerishCount], a
.asm_376dc
	ld a, [de]
	bit SUBSTATUS_PERISH, a
	jr nz, .asm_376e9
	set SUBSTATUS_PERISH, a
	ld [de], a
	ld a, 4
	ld [EnemyPerishCount], a
.asm_376e9
	call Function0x37e01
	ld hl, StartPerishText
	jp FarBattleTextBox
.asm_376f2
	call Function0x37e77
	jp PrintButItFailed
; 376f8


BattleCommand59: ; 376f8
; startsandstorm

	ld a, [Weather]
	cp WEATHER_SANDSTORM
	jr z, .asm_37712
	ld a, WEATHER_SANDSTORM
	ld [Weather], a
	ld a, 5
	ld [WeatherCount], a
	call Function0x37e01
	ld hl, SandstormBrewedText
	jp FarBattleTextBox
.asm_37712
	call Function0x37e77
	jp PrintButItFailed
; 37718


BattleCommand5b: ; 37718
; checkcurl

	ld de, PlayerRolloutCount
	ld a, [hBattleTurn]
	and a
	jr z, .asm_37723
	ld de, EnemyRolloutCount
.asm_37723
	ld a, BATTLE_VARS_SUBSTATUS1
	call CleanGetBattleVarPair
	bit SUBSTATUS_ENCORED, a
	jr z, .asm_37731

	ld b, $4 ; doturn
	jp SkipToBattleCommand

.asm_37731
	xor a
	ld [de], a
	ret
; 37734


BattleCommand5c: ; 37734
; rolloutpower

	ld a, BATTLE_VARS_STATUS
	call CleanGetBattleVarPair
	and 7
	ret nz

	ld hl, PlayerRolloutCount
	ld a, [hBattleTurn]
	and a
	jr z, .asm_37747
	ld hl, EnemyRolloutCount

.asm_37747
	ld a, [hl]
	and a
	jr nz, .asm_37750
	ld a, 1
	ld [$c73e], a

.asm_37750
	ld a, [AttackMissed]
	and a
	jr z, .hit

	ld a, BATTLE_VARS_SUBSTATUS1
	call GetBattleVarPair
	res 6, [hl]
	ret

.hit
	inc [hl]
	ld a, [hl]
	ld b, a
	cp $5
	jr c, .asm_3776e ; 37763 $9
	ld a, BATTLE_VARS_SUBSTATUS1
	call GetBattleVarPair
	res 6, [hl]
	jr .asm_37775 ; 3776c $7

.asm_3776e
	ld a, BATTLE_VARS_SUBSTATUS1
	call GetBattleVarPair
	set 6, [hl]

.asm_37775
	ld a, BATTLE_VARS_SUBSTATUS2
	call CleanGetBattleVarPair
	bit 0, a
	jr z, .asm_3777f ; 3777c $1
	inc b
.asm_3777f
	dec b
	jr z, .asm_37790 ; 37780 $e
	ld hl, CurDamage + 1
	sla [hl]
	dec hl
	rl [hl]
	jr nc, .asm_3777f ; 3778a $f3
	ld a, $ff
	ld [hli], a
	ld [hl], a
.asm_37790
	ret
; 37791


BattleCommand5d: ; 37791
; unused
	ret
; 37792


BattleCommand5e: ; 37792
; furycutter

	ld hl, PlayerFuryCutterCount
	ld a, [hBattleTurn]
	and a
	jr z, .go
	ld hl, EnemyFuryCutterCount

.go
	ld a, [AttackMissed]
	and a
	jp nz, ResetFuryCutterCount

	inc [hl]

; Damage capped at 5 turns' worth (16x).
	ld a, [hl]
	ld b, a
	cp 6
	jr c, .checkdouble
	ld b, 5

.checkdouble
	dec b
	ret z

; Double the damage
	ld hl, CurDamage + 1
	sla [hl]
	dec hl
	rl [hl]
	jr nc, .checkdouble

; No overflow
	ld a, $ff
	ld [hli], a
	ld [hl], a
	ret
; 377be


ResetFuryCutterCount: ; 377be

	push hl

	ld hl, PlayerFuryCutterCount
	ld a, [hBattleTurn]
	and a
	jr z, .reset
	ld hl, EnemyFuryCutterCount

.reset
	xor a
	ld [hl], a

	pop hl
	ret
; 377ce


BattleCommand5f: ; 377ce
; attract
	ld a, [AttackMissed]
	and a
	jr nz, .asm_377f2
	call Function0x377f5
	jr c, .asm_377f2
	call CheckHiddenOpponent
	jr nz, .asm_377f2
	ld a, BATTLE_VARS_SUBSTATUS1_OPP
	call GetBattleVarPair
	bit 7, [hl]
	jr nz, .asm_377f2

	set 7, [hl]
	call Function0x37e01

; 'fell in love!'
	ld hl, FellInLoveText
	jp FarBattleTextBox

.asm_377f2
	jp Function0x37354
; 377f5


Function0x377f5: ; 377f5
	ld a, 0
	call BattlePartyAttr
	ld a, [hl]
	ld [CurPartySpecies], a

	ld a, [CurBattleMon]
	ld [CurPartyMon], a
	xor a
	ld [MonType], a

	ld a, $14
	ld hl, $4bdd
	rst FarCall
	jr c, .asm_37849

	ld b, 1
	jr nz, .asm_37815
	dec b

.asm_37815
	push bc
	ld a, [TempEnemyMonSpecies]
	ld [CurPartySpecies], a
	ld hl, EnemyMonAtkDefDV
	ld a, [EnemySubStatus5]
	bit 3, a
	jr z, .asm_37829
	ld hl, $c6f2

.asm_37829
	ld a, [hli]
	ld [$d123], a
	ld a, [hl]
	ld [$d124], a
	ld a, 3
	ld [MonType], a
	ld a, $14
	ld hl, $4bdd
	rst FarCall
	pop bc
	jr c, .asm_37849

	ld a, 1
	jr nz, .asm_37844
	dec a

.asm_37844
	xor b
	jr z, .asm_37849

	and a
	ret

.asm_37849
	scf
	ret
; 3784b


BattleCommand60: ; 3784b
; happinesspower
	push bc
	ld hl, BattleMonHappiness
	ld a, [hBattleTurn]
	and a
	jr z, .asm_37857 ; 37852 $3
	ld hl, EnemyMonHappiness
.asm_37857
	xor a
	ld [$ffb4], a
	ld [$ffb5], a
	ld a, [hl]
	ld [$ffb6], a
	ld a, $a
	ld [$ffb7], a
	call Multiply
	ld a, $19
	ld [$ffb7], a
	ld b, $4
	call Divide
	ld a, [$ffb6]
	ld d, a
	pop bc
	ret
; 37874


BattleCommand61: ; 37874
; present

	ld a, [InLinkBattle]
	cp $3
	jr z, .asm_3787d ; 37879 $2
	push bc
	push de
.asm_3787d
	call BattleCommand07
	ld a, [InLinkBattle]
	cp $3
	jr z, .asm_37889 ; 37885 $2
	pop de
	pop bc
.asm_37889
	ld a, [$d265]
	and a
	jp z, Function0x37e77
	ld a, [AttackMissed]
	and a
	jp nz, Function0x37e77
	push bc
	call FarBattleRNG
	ld b, a
	ld hl, .table_37907
	ld c, 0
.asm_378a1
	ld a, [hli]
	cp $ff
	jr z, .asm_378b7 ; 378a4 $11
	cp b
	jr nc, .asm_378ad ; 378a7 $4
	inc c
	inc hl
	jr .asm_378a1 ; 378ab $f4
.asm_378ad
	ld a, c
	ld [$c689], a
	call Function0x37de9
	ld d, [hl]
	pop bc
	ret
.asm_378b7
	pop bc
	ld a, $3
	ld [$c689], a
	call Function0x37e01
	call SwitchTurn
	ld hl, $5246
	ld a, [hBattleTurn]
	and a
	jr z, .asm_378ce ; 378c9 $3
	ld hl, $5251
.asm_378ce
	ld a, $e
	rst FarCall
	jr c, .asm_378f3 ; 378d1 $20
	ld hl, $4c8e
	call CallBankF
	call SwitchTurn
	ld hl, $4cef
	call CallBankF
	call SwitchTurn
	ld hl, RegainedHealthText
	call FarBattleTextBox
	call SwitchTurn
	call UpdateOpponentInParty
	jr .asm_37904 ; 378f1 $11
.asm_378f3
	call SwitchTurn
	call Function0x37ed5
	jr nc, .asm_37904 ; 378f9 $9
	call Function0x37e77
	ld hl, RefusedGiftText
	call FarBattleTextBox
.asm_37904
	jp EndMoveEffect

.table_37907
	db $66,  40
	db $b3,  80
	db $cc, 120
	db $ff
; 3790e


BattleCommand63: ; 3790e
; frustrationpower

	push bc
	ld hl, BattleMonHappiness
	ld a, [hBattleTurn]
	and a
	jr z, .asm_3791a ; 37915 $3
	ld hl, EnemyMonHappiness
.asm_3791a
	ld a, $ff
	sub [hl]
	ld [$ffb6], a
	xor a
	ld [$ffb4], a
	ld [$ffb5], a
	ld a, $a
	ld [$ffb7], a
	call Multiply
	ld a, $19
	ld [$ffb7], a
	ld b, $4
	call Divide
	ld a, [$ffb6]
	ld d, a
	pop bc
	ret
; 37939


BattleCommand64: ; 37939
; safeguard

	ld hl, PlayerScreens
	ld de, $c701
	ld a, [hBattleTurn]
	and a
	jr z, .asm_3794a ; 37942 $6
	ld hl, EnemyScreens
	ld de, $c705
.asm_3794a
	bit 2, [hl]
	jr nz, .asm_3795c ; 3794c $e
	set 2, [hl]
	ld a, $5
	ld [de], a
	call Function0x37e01
	ld hl, CoveredByVeilText
	jp FarBattleTextBox
.asm_3795c
	call Function0x37e77
	jp PrintButItFailed
; 37962


Function0x37962: ; 37962
	push hl
	ld hl, EnemyScreens
	ld a, [hBattleTurn]
	and a
	jr z, .asm_3796e
	ld hl, PlayerScreens

.asm_3796e
	bit 2, [hl]
	pop hl
	ret
; 37972


BattleCommand65: ; 37972
; checksafeguard
	ld hl, EnemyScreens
	ld a, [hBattleTurn]
	and a
	jr z, .asm_3797d ; 37978 $3
	ld hl, PlayerScreens
.asm_3797d
	bit 2, [hl]
	ret z
	ld a, $1
	ld [AttackMissed], a
	call BattleCommandaa
	ld hl, SafeguardProtectText
	call FarBattleTextBox
	jp EndMoveEffect
; 37991


BattleCommand66: ; 37991
; getmagnitude

	push bc
	call FarBattleRNG
	ld b, a
	ld hl, .Magnitudes
.asm_37999
	ld a, [hli]
	cp b
	jr nc, .asm_379a1 ; 3799b $4
	inc hl
	inc hl
	jr .asm_37999 ; 3799f $f8
.asm_379a1
	ld d, [hl]
	push de
	inc hl
	ld a, [hl]
	ld [$d265], a
	call BattleCommandaa
	ld hl, MagnitudeText
	call FarBattleTextBox
	pop de
	pop bc
	ret

.Magnitudes
	;  /255, BP, magnitude
	db  13,  10,  4
	db  38,  30,  5
	db  89,  50,  6
	db 166,  70,  7
	db 217,  90,  8
	db 242, 110,  9
	db 255, 150, 10
; 379c9


BattleCommand67: ; 379c9
; batonpass

	ld a, [hBattleTurn]
	and a
	jp nz, .Enemy

	call Function0x37ae9
	jp z, Function0x37aab

	call UpdateBattleMonInParty
	call Function0x37e01

	ld c, 50
	call DelayFrames

	call $1d6e

	ld a, $f
	ld hl, $52f7
	rst FarCall

	ld a, $f
	ld hl, $5380
	rst FarCall

	call $3317

	ld a, $f
	ld hl, $6d9f
	rst FarCall

	call $1c17
	call $300b

	ld hl, $c4a1
	ld bc, $040a
	call ClearBox

	ld b, 1
	call $3340
	call $32f9
	call Function0x37a67

	ld a, $f
	ld hl, $52e0
	rst FarCall

	jp c, EndMoveEffect

	ld hl, $6459
	call CallBankF
	call Function0x37ab1

	ret

.Enemy
	ld a, [IsInBattle]
	dec a
	jp z, Function0x37aab

	call Function0x37af6
	jp z, Function0x37aab

	call UpdateEnemyMonInParty
	call Function0x37e01
	call Function0x37a82

	ld a, $f
	ld hl, $52e0
	rst FarCall
	jp c, EndMoveEffect

	xor a
	ld [$c718], a

	ld hl, $5517
	call CallBankF

	ld hl, $557a
	call CallBankF

	ld a, 1
	ld [$d265], a

	ld hl, $6cab
	call CallBankF

	ld hl, $5c23
	call CallBankF

	jr Function0x37ab1
; 37a67


Function0x37a67: ; 37a67
	ld a, [InLinkBattle]
	and a
	ret z

	ld a, 1
	ld [$d0ec], a

	call $1d6e

	ld hl, $68e4
	call CallBankF

	call $1c17

	xor a
	ld [$d0ec], a

	ret
; 37a82


Function0x37a82; 37a82
	ld a, [InLinkBattle]
	and a
	ret z

	call $1d6e
	ld hl, $68e4
	call CallBankF
	ld a, [OTPartyCount]
	add $4
	ld b, a
	ld a, [$d430]
	cp $4
	jr c, .asm_37aa0

	cp b
	jr c, .asm_37aa8

.asm_37aa0
	ld a, [CurOTMon]
	add $4
	ld [$d430], a
.asm_37aa8
	jp $1c17
; 37aab


Function0x37aab: ; 37aab
	call Function0x37e77
	jp PrintButItFailed
; 37ab1


Function0x37ab1: ; 37ab1
	ld a, BATTLE_VARS_STATUS
	call CleanGetBattleVarPair
	and 7
	jr nz, .asm_37ac1
	ld a, BATTLE_VARS_SUBSTATUS1
	call GetBattleVarPair
	res 0, [hl]

.asm_37ac1
	call Function0x372e7
	ld hl, PlayerSubStatus1
	res 7, [hl]
	ld hl, EnemySubStatus1
	res 7, [hl]
	ld hl, PlayerSubStatus5
	ld a, BATTLE_VARS_SUBSTATUS5
	call GetBattleVarPair
	res 3, [hl]
	res 4, [hl]
	ld a, BATTLE_VARS_LAST_MOVE
	call GetBattleVarPair
	ld [hl], 0
	xor a
	ld [$c730], a
	ld [$c731], a
	ret
; 37ae9


Function0x37ae9: ; 37ae9
	ld hl, PartyMon1CurHP
	ld a, [PartyCount]
	ld d, a
	ld a, [CurBattleMon]
	ld e, a
	jr Function0x37b01
; 37af6


Function0x37af6: ; 37af6
	ld hl, OTPartyMon1CurHP
	ld a, [OTPartyCount]
	ld d, a
	ld a, [CurOTMon]
	ld e, a

	; fallthrough
; 37b01

Function0x37b01: ; 37b01
	xor a
	ld b, a
	ld c, a
.asm_37b04
	ld a, c
	cp d
	jr z, .asm_37b1a

	cp e
	jr z, .asm_37b11

	ld a, [hli]
	or b
	ld b, a
	ld a, [hld]
	or b
	ld b, a
.asm_37b11
	push bc
	ld bc, $30
	add hl, bc
	pop bc
	inc c
	jr .asm_37b04

.asm_37b1a
	ld a, b
	and a
	ret
; 37b1d


BattleCommand68: ; 37b1d
	ld hl, $c711
	ld a, [hBattleTurn]
	and a
	jr z, .asm_37b28 ; 37b23 $3
	ld hl, $c710
.asm_37b28
	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


BattleCommand69: ; 37b39
; clearhazards

	ld a, BATTLE_VARS_SUBSTATUS4
	call GetBattleVarPair
	bit 7, [hl]
	jr z, .asm_37b4a ; 37b40 $8
	res 7, [hl]
	ld hl, ShedLeechSeedText
	call FarBattleTextBox
.asm_37b4a
	ld hl, PlayerScreens
	ld de, $c730
	ld a, [hBattleTurn]
	and a
	jr z, .asm_37b5b ; 37b53 $6
	ld hl, EnemyScreens
	ld de, $c731
.asm_37b5b
	bit 0, [hl]
	jr z, .asm_37b69 ; 37b5d $a
	res 0, [hl]
	ld hl, BlewSpikesText
	push de
	call FarBattleTextBox
	pop de
.asm_37b69
	ld a, [de]
	and a
	ret z
	xor a
	ld [de], a
	ld hl, ReleasedByText
	jp FarBattleTextBox
; 37b74


BattleCommand6a: ; 37b74
; healmorn
	ld b, MORN
	jr BattleCommand6a6c
; 37b78

BattleCommand6b: ; 37b78
; healday
	ld b, DAY
	jr BattleCommand6a6c
; 37b7c

BattleCommand6c: ; 37b7c
; healnite
	ld b, NITE
	; fallthrough
; 37b7e

BattleCommand6a6c: ; 37b7e
; Time- and weather-sensitive heal.

	ld hl, BattleMonMaxHP
	ld de, BattleMonHP
	ld a, [hBattleTurn]
	and a
	jr z, .start
	ld hl, EnemyMonMaxHP
	ld de, EnemyMonHP

.start
; Index for .Multipliers
; Default restores half max HP.
	ld c, 2

; Don't bother healing if HP is already full.
	push bc
	call StringCmp
	pop bc
	jr z, .Full

; Don't factor in time of day in link battles.
	ld a, [InLinkBattle]
	and a
	jr nz, .Weather

	ld a, [TimeOfDay]
	cp b
	jr z, .Weather
	dec c

.Weather
	ld a, [Weather]
	and a
	jr z, .Heal

; x2 in sun
; /2 in rain/sandstorm
	inc c
	cp WEATHER_SUN
	jr z, .Heal
	dec c
	dec c

.Heal
	ld b, 0
	ld hl, .Multipliers
	add hl, bc
	add hl, bc

	ld a, [hli]
	ld h, [hl]
	ld l, a
	ld a, BANK(GetMaxHP)
	rst FarCall

	call Function0x37e01
	call SwitchTurn

	ld hl, $4cef
	ld a, $f
	rst FarCall ; callab 3ccef

	call SwitchTurn
	call UpdateUserInParty

; 'regained health!'
	ld hl, RegainedHealthText
	jp FarBattleTextBox

.Full
	call Function0x37e77

; 'hp is full!'
	ld hl, HPIsFullText
	jp FarBattleTextBox

.Multipliers
	dw GetEighthMaxHP
	dw GetQuarterMaxHP
	dw GetHalfMaxHP
	dw GetMaxHP
; 37be8


BattleCommand6d: ; 37be8
; hiddenpower

	ld a, [AttackMissed]
	and a
	ret nz
	callba GetHiddenPower
	ret
; 37bf4


BattleCommand6e: ; 37bf4
; startrain
	ld a, WEATHER_RAIN
	ld [Weather], a
	ld a, 5
	ld [WeatherCount], a
	call Function0x37e01
	ld hl, DownpourText
	jp FarBattleTextBox
; 37c07


BattleCommand6f: ; 37c07
; startsun
	ld a, WEATHER_SUN
	ld [Weather], a
	ld a, 5
	ld [WeatherCount], a
	call Function0x37e01
	ld hl, SunGotBrightText
	jp FarBattleTextBox
; 37c1a


BattleCommand95: ; 37c1a
; bellydrum
	call BattleCommand77
	ld a, [AttackMissed]
	and a
	jr nz, .asm_37c4f

	ld hl, $4c9f
	ld a, $f
	rst FarCall

	ld hl, $4cde
	ld a, $f
	rst FarCall
	jr nc, .asm_37c4f

	push bc
	call Function0x37e01
	pop bc
	ld hl, $4c3f
	ld a, $f
	rst FarCall
	call UpdateUserInParty
	ld a, $5

.asm_37c41
	push af
	call BattleCommand77
	pop af
	dec a
	jr nz, .asm_37c41 ; 37c47 $f8

	ld hl, BellyDrumText
	jp FarBattleTextBox
.asm_37c4f
	call Function0x37e77
	jp PrintButItFailed
; 37c55


BattleCommand96: ; 37c55
; psychup

	ld hl, EnemyStatLevels
	ld de, PlayerStatLevels
	ld a, [hBattleTurn]
	and a
	jr z, .asm_37c64 ; 37c5e $4
	push hl
	ld h, d
	ld l, e
	pop de
.asm_37c64
	push hl
	ld b, $8
.asm_37c67
	ld a, [hli]
	cp $7
	jr nz, .asm_37c76 ; 37c6a $a
	dec b
	jr nz, .asm_37c67 ; 37c6d $f8
	pop hl
	call Function0x37e77
	jp PrintButItFailed
.asm_37c76
	pop hl
	ld b, $8
.asm_37c79
	ld a, [hli]
	ld [de], a
	inc de
	dec b
	jr nz, .asm_37c79 ; 37c7d $fa
	ld a, [hBattleTurn]
	and a
	jr nz, .asm_37c89 ; 37c82 $5
	call Function0x365d7
	jr .asm_37c8c ; 37c87 $3
.asm_37c89
	call Function0x365fd
.asm_37c8c
	call Function0x37e01
	ld hl, CopiedStatsText
	jp FarBattleTextBox
; 37c95


BattleCommand9a: ; 37c95
; mirrorcoat

	ld a, $1
	ld [AttackMissed], a
	ld a, BATTLE_VARS_LAST_COUNTER_MOVE_OPP
	call CleanGetBattleVarPair
	and a
	ret z
	ld b, a
	ld hl, $45ec
	ld a, $f
	rst FarCall
	ld a, b
	cp $90
	ret z
	call BattleCommanda3
	ld a, [$d265]
	and a
	ret z
	call Function0x36abf
	ret z
	ld a, BATTLE_VARS_LAST_COUNTER_MOVE_OPP
	call CleanGetBattleVarPair
	dec a
	ld de, StringBuffer1
	call GetMoveData
	ld a, [$d075]
	and a
	ret z
	ld a, [$d076]
	cp $14
	ret c
	ld hl, CurDamage
	ld a, [hli]
	or [hl]
	ret z
	ld a, [hl]
	add a
	ld [hld], a
	ld a, [hl]
	adc a
	ld [hl], a
	jr nc, .asm_37ce1 ; 37cdb $4
	ld a, $ff
	ld [hli], a
	ld [hl], a
.asm_37ce1
	xor a
	ld [AttackMissed], a
	ret
; 37ce6


BattleCommand9d: ; 37ce6
; doubleminimizedamage

	ld hl, $c6fa
	ld a, [hBattleTurn]
	and a
	jr z, .asm_37cf1 ; 37cec $3
	ld hl, $c6fe
.asm_37cf1
	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
; 37d02


BattleCommand9e: ; 37d02
; skipsuncharge
	ld a, [Weather]
	cp WEATHER_SUN
	ret nz
	ld b, $39 ; charge
	jp SkipToBattleCommand
; 37d0d


BattleCommand9b: ; 37d0d
; checkfuturesight

	ld hl, $c71d
	ld de, $c727
	ld a, [hBattleTurn]
	and a
	jr z, .ok
	ld hl, $c71e
	ld de, $c729
.ok

	ld a, [hl]
	and a
	ret z
	cp 1
	ret nz

	ld [hl], 0
	ld a, [de]
	inc de
	ld [CurDamage], a
	ld a, [de]
	ld [CurDamage + 1], a
	ld b, $9c ; futuresight
	jp SkipToBattleCommand
; 37d34

BattleCommand9c: ; 37d34
; futuresight

	call Function0x34548
	jr nz, .asm_37d4b ; 37d37 $12
	ld a, BATTLE_VARS_MOVE_ANIM
	call CleanGetBattleVarPair
	ld b, a
	ld a, BATTLE_VARS_LAST_COUNTER_MOVE
	call GetBattleVarPair
	ld [hl], b
	ld a, BATTLE_VARS_LAST_MOVE
	call GetBattleVarPair
	ld [hl], b
.asm_37d4b
	ld hl, $c71d
	ld a, [hBattleTurn]
	and a
	jr z, .asm_37d56 ; 37d51 $3
	ld hl, $c71e
.asm_37d56
	ld a, [hl]
	and a
	jr nz, .asm_37d87 ; 37d58 $2d
	ld a, $4
	ld [hl], a
	call BattleCommand0a
	call BattleCommandaa
	ld hl, ForesawAttackText
	call FarBattleTextBox
	call BattleCommand0c
	ld de, $c727
	ld a, [hBattleTurn]
	and a
	jr z, .asm_37d77 ; 37d72 $3
	ld de, $c729
.asm_37d77
	ld hl, CurDamage
	ld a, [hl]
	ld [de], a
	ld [hl], $0
	inc hl
	inc de
	ld a, [hl]
	ld [de], a
	ld [hl], $0
	jp EndMoveEffect
.asm_37d87
	pop bc
	call ResetDamage
	call Function0x37e77
	call PrintButItFailed
	jp EndMoveEffect
; 37d94


BattleCommand9f: ; 37d94
; thunderaccuracy

	ld a, BATTLE_VARS_MOVE_TYPE
	call GetBattleVarPair
	inc hl
	ld a, [Weather]
	cp WEATHER_RAIN
	jr z, .asm_37da7 ; 37d9f $6
	cp WEATHER_SUN
	ret nz
	ld [hl], $80
	ret
.asm_37da7
	ld [hl], $ff
	ret
; 37daa


CheckHiddenOpponent: ; 37daa
	ld a, BATTLE_VARS_SUBSTATUS3_OPP
	call CleanGetBattleVarPair
	and $60 ; fly | dig
	ret
; 37db2


GetUserItem: ; 37db2
; Return the effect of the user's item in bc, and its id at hl.
	ld hl, BattleMonItem
	ld a, [hBattleTurn]
	and a
	jr z, .go
	ld hl, EnemyMonItem
.go
	ld b, [hl]
	jp GetItem
; 37dc1


GetOpponentItem: ; 37dc1
; Return the effect of the opponent's item in bc, and its id at hl.
	ld hl, EnemyMonItem
	ld a, [hBattleTurn]
	and a
	jr z, .go
	ld hl, BattleMonItem
.go
	ld b, [hl]
	jp GetItem
; 37dd0


GetItem: ; 37dd0
; Return the effect of item b in bc.
	ld a, b
	and a
	ret z

	push hl
	ld hl, ItemAttributes + 2
	dec a
	ld c, a
	ld b, 0
	ld a, Item2Attributes - Item1Attributes
	call AddNTimes
	ld a, BANK(ItemAttributes)
	call GetFarHalfword
	ld b, l
	ld c, h
	pop hl
	ret
; 37de9


Function0x37de9: ; 37de9
	push hl
	push de
	push bc
	ld a, [$c689]
	push af
	call BattleCommand0a
	pop af
	ld [$c689], a
	call Function0x37e19
	call BattleCommand0c
	pop bc
	pop de
	pop hl
	ret
; 37e01


Function0x37e01: ; 37e01
	push hl
	push de
	push bc
	ld a, [$c689]
	push af
	call BattleCommand0a
	pop af
	ld [$c689], a
	call Function0x37e36
	call BattleCommand0c
	pop bc
	pop de
	pop hl
	ret
; 37e19


Function0x37e19: ; 37e19
	xor a
	ld [FXAnimIDHi], a

	ld a, BATTLE_VARS_MOVE_ANIM
	call CleanGetBattleVarPair
	and a
	ret z

	ld [FXAnimIDLo], a

	ld a, [hBattleTurn]
	and a
	ld a, 1
	jr z, .asm_37e30
	ld a, 4

.asm_37e30
	ld [$cfca], a

	jp Function0x37e47
; 37e36


Function0x37e36: ; 37e36
	xor a
	ld [$cfca], a
	ld [FXAnimIDHi], a

	ld a, BATTLE_VARS_MOVE_ANIM
	call CleanGetBattleVarPair
	and a
	ret z

	; fallthrough
; 37e44


Function0x37e44: ; 37e44

	ld [FXAnimIDLo], a

	; fallthrough
; 37e47


Function0x37e47: ; 37e47
	push hl
	push de
	push bc
	ld hl, $40d6
	ld a, $33
	rst FarCall ; callab SafePlayBattleAnimation
	pop bc
	pop de
	pop hl
	ret
; 37e54


Function0x37e54: ; 37e54
	ld a, e
	ld [FXAnimIDLo], a
	ld a, d
	ld [FXAnimIDHi], a
	xor a
	ld [$cfca], a

	push hl
	push de
	push bc
	call SwitchTurn

	ld hl, $40d6
	ld a, $33
	rst FarCall ; callab SafePlayBattleAnimation

	call SwitchTurn
	pop bc
	pop de
	pop hl
	ret
; 37e73


CallBankF: ; 37e73
	ld a, $f
	rst FarCall
	ret
; 37e77


Function0x37e77: ; 37e77
	call BattleCommand0a
	call BattleCommandaa
	jp BattleCommand0c
; 37e80


BattleCommandaa: ; 37e80
; wait
; Wait 40 frames.
	ld c, 40
	jp DelayFrames
; 37e85


BattleCommand38: ; 37e85
; cleartext

; Used in multi-hit moves.
	ld hl, .text
	jp BattleTextBox
.text
	db "@"
; 37e8c


SkipToBattleCommand: ; 37e8c
; Skip over commands until reaching command b.
	ld a, [BattleScriptBufferLoc + 1]
	ld h, a
	ld a, [BattleScriptBufferLoc]
	ld l, a
.asm_37e94
	ld a, [hli]
	cp b
	jr nz, .asm_37e94

	ld a, h
	ld [BattleScriptBufferLoc + 1], a
	ld a, l
	ld [BattleScriptBufferLoc], a
	ret
; 37ea1


GetMoveAttr: ; 37ea1
; Assuming hl = Moves + x, return attribute x of move a.
	push bc
	ld bc, Move2 - Move1
	call AddNTimes
	call GetMoveByte
	pop bc
	ret
; 37ead


GetMoveData: ; 37ead
; Copy move struct a to de.
	ld hl, Moves
	ld bc, Move2 - Move1
	call AddNTimes
	ld a, Bank(Moves)
	jp FarCopyBytes
; 37ebb


GetMoveByte: ; 37ebb
	ld a, BANK(Moves)
	jp GetFarByte
; 37ec0


Function0x37ec0: ; 37ec0
	ld a, $3e
	ld hl, $7d54
	rst $8
	ret
; 37ec7


Function0x37ec7: ; 37ec7
	ld a, $3e
	ld hl, $7d71
	rst $8
	ret
; 37ece


Function0x37ece: ; 37ece
	ld a, $3e
	ld hl, $7d69
	rst $8
	ret
; 37ed5


Function0x37ed5: ; 37ed5
; Related to mobile link battles.
	push hl
	push de
	push bc
	ld a, $13
	ld hl, $6a44
	rst $8
	pop bc
	pop de
	pop hl
	ret
; 37ee2