pokeheartgold/files/battledata/script/subscript/subscript_0026_BurnDamage.s
Adrienn Tindall 2083be2810 Rename scripts 1
I stopped at yawn bc I'm sleepy
2024-03-07 04:57:08 -05:00

25 lines
842 B
ArmAsm

.include "macros/btlcmd.inc"
.data
_000:
CheckAbility CHECK_OPCODE_HAVE, BATTLER_CATEGORY_MSG_TEMP, ABILITY_MAGIC_GUARD, _041
UpdateMonDataFromVar OPCODE_GET, BATTLER_CATEGORY_MSG_TEMP, BMON_DATA_MAXHP, BSCRIPT_VAR_HP_CALC
DivideVarByValue BSCRIPT_VAR_HP_CALC, 8
CheckAbility CHECK_OPCODE_NOT_HAVE, BATTLER_CATEGORY_MSG_TEMP, ABILITY_HEATPROOF, _020
DivideVarByValue BSCRIPT_VAR_HP_CALC, 2
_020:
UpdateVar OPCODE_MUL, BSCRIPT_VAR_HP_CALC, -1
// {0} is hurt by its burn!
PrintMessage msg_0197_00095, TAG_NICKNAME, BATTLER_CATEGORY_MSG_TEMP
Wait
WaitButtonABTime 30
PlayBattleAnimation BATTLER_CATEGORY_MSG_TEMP, BATTLE_ANIMATION_BURNED
Wait
UpdateVar OPCODE_FLAG_ON, BSCRIPT_VAR_BATTLE_STATUS, BATTLE_STATUS_NO_BLINK
GoToSubscript BATTLE_SUBSCRIPT_UPDATE_HP
_041:
End