#include "macros/btlcmd.inc"

    .data

_000:
    CheckAbility CHECK_HAVE, BTLSCR_MSG_TEMP, ABILITY_MAGIC_GUARD, _041
    UpdateMonDataFromVar OPCODE_GET, BTLSCR_MSG_TEMP, BATTLEMON_MAX_HP, BTLVAR_HP_CALC_TEMP
    DivideVarByValue BTLVAR_HP_CALC_TEMP, 8
    CheckAbility CHECK_NOT_HAVE, BTLSCR_MSG_TEMP, ABILITY_HEATPROOF, _020
    DivideVarByValue BTLVAR_HP_CALC_TEMP, 2

_020:
    UpdateVar OPCODE_MUL, BTLVAR_HP_CALC_TEMP, -1
    // {0} is hurt by its burn!
    PrintMessage pl_msg_00000368_00095, TAG_NICKNAME, BTLSCR_MSG_TEMP
    Wait 
    WaitButtonABTime 30
    PlayBattleAnimation BTLSCR_MSG_TEMP, BATTLE_ANIMATION_BURNED
    Wait 
    UpdateVar OPCODE_FLAG_ON, BTLVAR_BATTLE_CTX_STATUS, SYSCTL_SKIP_SPRITE_BLINK
    GoToSubscript BATTLE_SUBSCRIPT_UPDATE_HP

_041:
    End