pokecrystal-board/engine/battle/move_effects/sandstorm.asm
mid-kid 3e78e5b2b6 TextBox -> Textbox
Homogenizing names.
2019-04-09 16:09:18 +02:00

19 lines
319 B
NASM

BattleCommand_StartSandstorm:
; startsandstorm
ld a, [wBattleWeather]
cp WEATHER_SANDSTORM
jr z, .failed
ld a, WEATHER_SANDSTORM
ld [wBattleWeather], a
ld a, 5
ld [wWeatherCount], a
call AnimateCurrentMove
ld hl, SandstormBrewedText
jp StdBattleTextbox
.failed
call AnimateFailedMove
jp PrintButItFailed