pokecrystal/engine/battle/move_effects/protect.asm

BattleCommand_Protect:
; protect
	call ProtectChance
	ret c

	ld a, BATTLE_VARS_SUBSTATUS1
	call GetBattleVarAddr
	set SUBSTATUS_PROTECT, [hl]

	call AnimateCurrentMove

	ld hl, ProtectedItselfText
	jp StdBattleTextBox

ProtectChance:
	ld de, wPlayerProtectCount
	ld a, [hBattleTurn]
	and a
	jr z, .asm_37637
	ld de, wEnemyProtectCount
.asm_37637

	call CheckOpponentWentFirst
	jr nz, .failed

; Can't have a substitute.

	ld a, BATTLE_VARS_SUBSTATUS4
	call GetBattleVar
	bit SUBSTATUS_SUBSTITUTE, a
	jr nz, .failed

; Halve the chance of a successful Protect for each consecutive use.

	ld b, $ff
	ld a, [de]
	ld c, a
.loop
	ld a, c
	and a
	jr z, .done
	dec c

	srl b
	ld a, b
	and a
	jr nz, .loop
	jr .failed
.done

.rand
	call BattleRandom
	and a
	jr z, .rand

	dec a
	cp b
	jr nc, .failed

; Another consecutive Protect use.

	ld a, [de]
	inc a
	ld [de], a

	and a
	ret

.failed
	xor a
	ld [de], a
	call AnimateFailedMove
	call PrintButItFailed
	scf
	ret
Remove all address comments 2018-06-24 14:09:41 +00:00			`BattleCommand_Protect:`
split protect and endure effects into battle/effects/ 2013-09-10 01:51:41 +00:00			`; protect`
			`call ProtectChance`
			`ret c`

			`ld a, BATTLE_VARS_SUBSTATUS1`
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`
split protect and endure effects into battle/effects/ 2013-09-10 01:51:41 +00:00			`set SUBSTATUS_PROTECT, [hl]`

comment and relabel more battle functions 2014-01-01 13:09:15 +00:00			`call AnimateCurrentMove`
split protect and endure effects into battle/effects/ 2013-09-10 01:51:41 +00:00
			`ld hl, ProtectedItselfText`
			`jp StdBattleTextBox`

Remove all address comments 2018-06-24 14:09:41 +00:00			`ProtectChance:`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld de, wPlayerProtectCount`
split protect and endure effects into battle/effects/ 2013-09-10 01:51:41 +00:00			`ld a, [hBattleTurn]`
			`and a`
			`jr z, .asm_37637`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld de, wEnemyProtectCount`
split protect and endure effects into battle/effects/ 2013-09-10 01:51:41 +00:00			`.asm_37637`

Some work on battle animations 2015-11-09 21:41:09 +00:00			`call CheckOpponentWentFirst`
split protect and endure effects into battle/effects/ 2013-09-10 01:51:41 +00:00			`jr nz, .failed`

			`; Can't have a substitute.`

			`ld a, BATTLE_VARS_SUBSTATUS4`
fix labels for and rename GetBattleVarPair to GetBattleVar 2013-10-11 07:04:21 +00:00			`call GetBattleVar`
split protect and endure effects into battle/effects/ 2013-09-10 01:51:41 +00:00			`bit SUBSTATUS_SUBSTITUTE, a`
			`jr nz, .failed`

			`; Halve the chance of a successful Protect for each consecutive use.`

			`ld b, $ff`
			`ld a, [de]`
			`ld c, a`
			`.loop`
			`ld a, c`
			`and a`
			`jr z, .done`
			`dec c`

			`srl b`
			`ld a, b`
			`and a`
			`jr nz, .loop`
			`jr .failed`
			`.done`

			`.rand`
			`call BattleRandom`
			`and a`
			`jr z, .rand`

			`dec a`
			`cp b`
			`jr nc, .failed`

			`; Another consecutive Protect use.`

			`ld a, [de]`
			`inc a`
			`ld [de], a`

			`and a`
			`ret`

			`.failed`
			`xor a`
			`ld [de], a`
comment and relabel more battle functions 2014-01-01 13:09:15 +00:00			`call AnimateFailedMove`
split protect and endure effects into battle/effects/ 2013-09-10 01:51:41 +00:00			`call PrintButItFailed`
			`scf`
			`ret`