pokecrystal/battle/effects/curse.asm

BattleCommand_Curse: ; 37588
; curse

	ld de, BattleMonType1
	ld bc, PlayerStatLevels
	ld a, [hBattleTurn]
	and a
	jr z, .go
	ld de, EnemyMonType1
	ld bc, EnemyStatLevels

.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]
	cp MAX_STAT_LEVEL
	jr c, .raise

; Defense
	inc bc
	ld a, [bc]
	cp MAX_STAT_LEVEL
	jr nc, .cantraise

.raise

; Raise Attack and Defense, and lower Speed.

	ld a, $1
	ld [wKickCounter], a
	call AnimateCurrentMove
	ld a, SPEED
	call LowerStat
	call BattleCommand_SwitchTurn
	call BattleCommand_StatDownMessage
	call ResetMiss
	call BattleCommand_SwitchTurn
	call BattleCommand_AttackUp
	call BattleCommand_StatUpMessage
	call ResetMiss
	call BattleCommand_DefenseUp
	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
	call CallBattleCore
	ld hl, SubtractHPFromUser
	call CallBattleCore
	call UpdateUserInParty
	ld hl, PutACurseText
	jp StdBattleTextBox

.failed
	call AnimateFailedMove
	jp PrintButItFailed


.cantraise

; Can't raise either stat.

	ld b, ABILITY + 1
	call GetStatName
	call AnimateFailedMove
	ld hl, WontRiseAnymoreText
	jp StdBattleTextBox
; 37618
BattleCommand labels copied from macros 2015-11-06 19:45:10 +00:00			`BattleCommand_Curse: ; 37588`
split curse effect into battle/effects/curse.asm 2013-09-09 22:43:22 +00:00			`; curse`

			`ld de, BattleMonType1`
			`ld bc, PlayerStatLevels`
			`ld a, [hBattleTurn]`
			`and a`
			`jr z, .go`
			`ld de, EnemyMonType1`
			`ld bc, EnemyStatLevels`

			`.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]`
More battle command labels 2015-11-07 01:55:16 +00:00			`cp MAX_STAT_LEVEL`
split curse effect into battle/effects/curse.asm 2013-09-09 22:43:22 +00:00			`jr c, .raise`

			`; Defense`
			`inc bc`
			`ld a, [bc]`
More battle command labels 2015-11-07 01:55:16 +00:00			`cp MAX_STAT_LEVEL`
split curse effect into battle/effects/curse.asm 2013-09-09 22:43:22 +00:00			`jr nc, .cantraise`

			`.raise`

			`; Raise Attack and Defense, and lower Speed.`

			`ld a, $1`
More battle command labels 2015-11-07 01:55:16 +00:00			`ld [wKickCounter], a`
comment and relabel more battle functions 2014-01-01 13:09:15 +00:00			`call AnimateCurrentMove`
More battle command labels 2015-11-07 01:55:16 +00:00			`ld a, SPEED`
			`call LowerStat`
changed name of some labels 2015-10-10 11:45:39 +00:00			`call BattleCommand_SwitchTurn`
More battle command labels 2015-11-07 01:55:16 +00:00			`call BattleCommand_StatDownMessage`
split curse effect into battle/effects/curse.asm 2013-09-09 22:43:22 +00:00			`call ResetMiss`
changed name of some labels 2015-10-10 11:45:39 +00:00			`call BattleCommand_SwitchTurn`
BattleCommand labels copied from macros 2015-11-06 19:45:10 +00:00			`call BattleCommand_AttackUp`
More battle command labels 2015-11-07 01:55:16 +00:00			`call BattleCommand_StatUpMessage`
split curse effect into battle/effects/curse.asm 2013-09-09 22:43:22 +00:00			`call ResetMiss`
BattleCommand labels copied from macros 2015-11-06 19:45:10 +00:00			`call BattleCommand_DefenseUp`
More battle command labels 2015-11-07 01:55:16 +00:00			`jp BattleCommand_StatUpMessage`
split curse effect into battle/effects/curse.asm 2013-09-09 22:43:22 +00:00

			`.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`
Rename _GetBattleVar -> GetBattleVarAddr. Functions prefixed with _ imply they're private. The real purpose of this function is to use an address, rather than saving a few cycles on push/pop. 2014-06-14 07:34:57 +00:00			`call GetBattleVarAddr`
Contest battle type and comment the battle menu. 2014-06-17 18:58:11 +00:00			`bit SUBSTATUS_CURSE, [hl]`
split curse effect into battle/effects/curse.asm 2013-09-09 22:43:22 +00:00			`jr nz, .failed`

Contest battle type and comment the battle menu. 2014-06-17 18:58:11 +00:00			`set SUBSTATUS_CURSE, [hl]`
comment and relabel more battle functions 2014-01-01 13:09:15 +00:00			`call AnimateCurrentMove`
split curse effect into battle/effects/curse.asm 2013-09-09 22:43:22 +00:00			`ld hl, GetHalfMaxHP`
rename CallBankF -> CallBattleCore 2013-12-31 08:25:38 +00:00			`call CallBattleCore`
More battle command labels 2015-11-07 01:55:16 +00:00			`ld hl, SubtractHPFromUser`
rename CallBankF -> CallBattleCore 2013-12-31 08:25:38 +00:00			`call CallBattleCore`
split curse effect into battle/effects/curse.asm 2013-09-09 22:43:22 +00:00			`call UpdateUserInParty`
			`ld hl, PutACurseText`
			`jp StdBattleTextBox`

			`.failed`
comment and relabel more battle functions 2014-01-01 13:09:15 +00:00			`call AnimateFailedMove`
split curse effect into battle/effects/curse.asm 2013-09-09 22:43:22 +00:00			`jp PrintButItFailed`


			`.cantraise`

			`; Can't raise either stat.`

More battle command labels 2015-11-07 01:55:16 +00:00			`ld b, ABILITY + 1`
split curse effect into battle/effects/curse.asm 2013-09-09 22:43:22 +00:00			`call GetStatName`
comment and relabel more battle functions 2014-01-01 13:09:15 +00:00			`call AnimateFailedMove`
split curse effect into battle/effects/curse.asm 2013-09-09 22:43:22 +00:00			`ld hl, WontRiseAnymoreText`
			`jp StdBattleTextBox`
			`; 37618`