pokecrystal/battle/effects/curse.asm

BattleCommand54: ; 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 13 ; max
	jr c, .raise

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

.raise

; Raise Attack and Defense, and lower Speed.

	ld a, $1
	ld [wc689], a
	call AnimateCurrentMove
	ld a, $2
	call Function36532
	call BattleCommand_SwitchTurn
	call BattleCommand8d
	call ResetMiss
	call BattleCommand_SwitchTurn
	call BattleCommand70
	call BattleCommand8c
	call ResetMiss
	call BattleCommand71
	jp BattleCommand8c


.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, Function3cc3f
	call CallBattleCore
	call UpdateUserInParty
	ld hl, PutACurseText
	jp StdBattleTextBox

.failed
	call AnimateFailedMove
	jp PrintButItFailed


.cantraise

; Can't raise either stat.

	ld b, $8 ; ABILITY
	call GetStatName
	call AnimateFailedMove
	ld hl, WontRiseAnymoreText
	jp StdBattleTextBox
; 37618
split curse effect into battle/effects/curse.asm 2013-09-09 22:43:22 +00:00			`BattleCommand54: ; 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 13 ; max`
			`jr c, .raise`

			`; Defense`
			`inc bc`
			`ld a, [bc]`
			`cp 13 ; max`
			`jr nc, .cantraise`

			`.raise`

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

			`ld a, $1`
Blindly use wram labels for everything except mobile, part 1. Wram banks and mobile make this tough, since any address can secretly be a ghost. As usual, mobile completely disregards 99% of the codebase. It's been ignored in kind. 2015-02-08 08:03:32 +00:00			`ld [wc689], a`
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 a, $2`
rename Function0x{} labels to Function{} for consistency 2013-12-31 09:10:49 +00:00			`call Function36532`
changed name of some labels 2015-10-10 11:45:39 +00:00			`call BattleCommand_SwitchTurn`
split curse effect into battle/effects/curse.asm 2013-09-09 22:43:22 +00:00			`call BattleCommand8d`
			`call ResetMiss`
changed name of some labels 2015-10-10 11:45:39 +00:00			`call BattleCommand_SwitchTurn`
split curse effect into battle/effects/curse.asm 2013-09-09 22:43:22 +00:00			`call BattleCommand70`
			`call BattleCommand8c`
			`call ResetMiss`
			`call BattleCommand71`
			`jp BattleCommand8c`


			`.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`
split curse effect into battle/effects/curse.asm 2013-09-09 22:43:22 +00:00			`ld hl, Function3cc3f`
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.`

			`ld b, $8 ; ABILITY`
			`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`