pokeheartgold/files/battledata/script/subscript/subscript_0156_GravityStart.s
2024-03-07 09:23:13 -05:00

44 lines
1.7 KiB
ArmAsm
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

.include "macros/btlcmd.inc"
.data
_000:
// Gravity intensified!
PrintMessage msg_0197_00997, TAG_NONE
Wait
WaitButtonABTime 30
UpdateVar OPCODE_FLAG_ON, BSCRIPT_VAR_FIELD_CONDITION, FIELD_CONDITION_GRAVITY_INIT
UpdateVar OPCODE_SET, BSCRIPT_VAR_BATTLER_SPEED_TEMP, 0
_013:
GetMonBySpeedOrder BSCRIPT_VAR_MSG_BATTLER_TEMP
CompareMonDataToValue OPCODE_EQU, BATTLER_CATEGORY_MSG_TEMP, BMON_DATA_HP, 0, _085
CompareMonDataToValue OPCODE_NEQ, BATTLER_CATEGORY_MSG_TEMP, BMON_DATA_MAGNET_RISE_TURNS, 0, _065
CompareMonDataToValue OPCODE_FLAG_SET, BATTLER_CATEGORY_MSG_TEMP, BMON_DATA_MOVE_EFFECT, MOVE_EFFECT_FLAG_FLY, _072
CompareMonDataToValue OPCODE_FLAG_SET, BATTLER_CATEGORY_MSG_TEMP, BMON_DATA_MOVE_EFFECT, MOVE_EFFECT_FLAG_ABILITY_SUPPRESSED, _085
CompareMonDataToValue OPCODE_FLAG_SET, BATTLER_CATEGORY_MSG_TEMP, BMON_DATA_MOVE_EFFECT, MOVE_EFFECT_FLAG_INGRAIN, _085
CompareMonDataToValue OPCODE_EQU, BATTLER_CATEGORY_MSG_TEMP, BMON_DATA_ABILITY, ABILITY_LEVITATE, _078
CompareMonDataToValue OPCODE_EQU, BATTLER_CATEGORY_MSG_TEMP, BMON_DATA_TYPE_1, TYPE_FLYING, _078
CompareMonDataToValue OPCODE_EQU, BATTLER_CATEGORY_MSG_TEMP, BMON_DATA_TYPE_2, TYPE_FLYING, _078
GoTo _085
_065:
UpdateMonData OPCODE_SET, BATTLER_CATEGORY_MSG_TEMP, BMON_DATA_MAGNET_RISE_TURNS, 0
GoTo _078
_072:
UnlockMoveChoice BATTLER_CATEGORY_MSG_TEMP
ToggleVanish BATTLER_CATEGORY_MSG_TEMP, FALSE
Wait
_078:
// {0} couldnt stay airborne because of gravity!
PrintMessage msg_0197_00998, TAG_NICKNAME, BATTLER_CATEGORY_MSG_TEMP
Wait
WaitButtonABTime 30
_085:
UpdateVar OPCODE_ADD, BSCRIPT_VAR_BATTLER_SPEED_TEMP, 1
GoToIfValidMon BSCRIPT_VAR_BATTLER_SPEED_TEMP, _013
End