pokecrystal-board/engine/battle/move_effects/curse.asm

94 lines
1.5 KiB
NASM
Raw Normal View History

2018-06-24 07:09:41 -07:00
BattleCommand_Curse:
; curse
2018-01-23 14:39:09 -08:00
ld de, wBattleMonType1
ld bc, wPlayerStatLevels
ldh a, [hBattleTurn]
and a
jr z, .go
2018-01-23 14:39:09 -08:00
ld de, wEnemyMonType1
ld bc, wEnemyStatLevels
.go
; Curse is different for Ghost-types.
ld a, [de]
cp GHOST
jr z, .ghost
inc de
ld a, [de]
cp GHOST
jr z, .ghost
; If no stats can be increased, don't.
; Attack
ld a, [bc]
2015-11-06 17:55:16 -08:00
cp MAX_STAT_LEVEL
jr c, .raise
; Defense
inc bc
ld a, [bc]
2015-11-06 17:55:16 -08:00
cp MAX_STAT_LEVEL
jr nc, .cantraise
.raise
; Raise Attack and Defense, and lower Speed.
ld a, $1
2015-11-06 17:55:16 -08:00
ld [wKickCounter], a
call AnimateCurrentMove
2015-11-06 17:55:16 -08:00
ld a, SPEED
call LowerStat
2015-10-10 04:45:39 -07:00
call BattleCommand_SwitchTurn
2015-11-06 17:55:16 -08:00
call BattleCommand_StatDownMessage
call ResetMiss
2015-10-10 04:45:39 -07:00
call BattleCommand_SwitchTurn
call BattleCommand_AttackUp
2015-11-06 17:55:16 -08:00
call BattleCommand_StatUpMessage
call ResetMiss
call BattleCommand_DefenseUp
2015-11-06 17:55:16 -08:00
jp BattleCommand_StatUpMessage
.ghost
; Cut HP in half and put a curse on the opponent.
call CheckHiddenOpponent
jr nz, .failed
call CheckSubstituteOpp
jr nz, .failed
ld a, BATTLE_VARS_SUBSTATUS1_OPP
call GetBattleVarAddr
bit SUBSTATUS_CURSE, [hl]
jr nz, .failed
set SUBSTATUS_CURSE, [hl]
call AnimateCurrentMove
ld hl, GetHalfMaxHP
2013-12-31 00:25:38 -08:00
call CallBattleCore
2015-11-06 17:55:16 -08:00
ld hl, SubtractHPFromUser
2013-12-31 00:25:38 -08:00
call CallBattleCore
call UpdateUserInParty
ld hl, PutACurseText
jp StdBattleTextBox
.failed
call AnimateFailedMove
jp PrintButItFailed
.cantraise
; Can't raise either stat.
2015-11-06 17:55:16 -08:00
ld b, ABILITY + 1
call GetStatName
call AnimateFailedMove
ld hl, WontRiseAnymoreText
jp StdBattleTextBox