BattleCommand_LockOn:
; lockon
call CheckSubstituteOpp
jr nz, .fail
ld a, [wAttackMissed]
and a
ld a, BATTLE_VARS_SUBSTATUS5_OPP
call GetBattleVarAddr
set SUBSTATUS_LOCK_ON, [hl]
call AnimateCurrentMove
ld hl, TookAimText
jp StdBattleTextBox
.fail
call AnimateFailedMove
jp PrintDidntAffect