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

MAX_ROLLOUT_COUNT EQU 5

BattleCommand_CheckCurl:
; checkcurl

	ld de, wPlayerRolloutCount
	ldh a, [hBattleTurn]
	and a
	jr z, .ok
	ld de, wEnemyRolloutCount
.ok
	ld a, BATTLE_VARS_SUBSTATUS1
	call GetBattleVar
	bit SUBSTATUS_ROLLOUT, a
	jr z, .reset

	ld b, $4 ; doturn
	jp SkipToBattleCommand

.reset
	xor a
	ld [de], a
	ret

BattleCommand_RolloutPower:
; rolloutpower

	ld a, BATTLE_VARS_STATUS
	call GetBattleVar
	and SLP
	ret nz

	ld hl, wPlayerRolloutCount
	ldh a, [hBattleTurn]
	and a
	jr z, .got_rollout_count
	ld hl, wEnemyRolloutCount

.got_rollout_count
	ld a, [hl]
	and a
	jr nz, .skip_set_rampage
	ld a, 1
	ld [wSomeoneIsRampaging], a

.skip_set_rampage
	ld a, [wAttackMissed]
	and a
	jr z, .hit

	ld a, BATTLE_VARS_SUBSTATUS1
	call GetBattleVarAddr
	res 6, [hl]
	ret

.hit
	inc [hl]
	ld a, [hl]
	ld b, a
	cp MAX_ROLLOUT_COUNT
	jr c, .not_done_with_rollout

	ld a, BATTLE_VARS_SUBSTATUS1
	call GetBattleVarAddr
	res SUBSTATUS_ROLLOUT, [hl]
	jr .done_with_substatus_flag

.not_done_with_rollout
	ld a, BATTLE_VARS_SUBSTATUS1
	call GetBattleVarAddr
	set SUBSTATUS_ROLLOUT, [hl]

.done_with_substatus_flag
	ld a, BATTLE_VARS_SUBSTATUS2
	call GetBattleVar
	bit SUBSTATUS_CURLED, a
	jr z, .not_curled
	inc b
.not_curled
.loop
	dec b
	jr z, .done_damage

	ld hl, wCurDamage + 1
	sla [hl]
	dec hl
	rl [hl]
	jr nc, .loop

	ld a, $ff
	ld [hli], a
	ld [hl], a

.done_damage
	ret
Contest battle type and comment the battle menu. 2014-06-17 11:58:11 -07:00			`MAX_ROLLOUT_COUNT EQU 5`

Remove all address comments 2018-06-24 07:09:41 -07:00			`BattleCommand_CheckCurl:`
split out some more move effects 2013-12-01 11:19:57 -08:00			`; checkcurl`

Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld de, wPlayerRolloutCount`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 11:28:22 -07:00			`ldh a, [hBattleTurn]`
split out some more move effects 2013-12-01 11:19:57 -08:00			`and a`
Fix some misnamed substatus constants. SUBSTATUS_ROLLOUT was actually SUBSTATUS_RAMPAGE. SUBSTATUS_ENCORED was actually SUBSTATUS_ROLLOUT. Substatus 5 bit 4 was actually SUBSTATUS_ENCORED. Also use some more (sub)status constants where needed. 2014-06-17 12:52:32 -07:00			`jr z, .ok`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld de, wEnemyRolloutCount`
Fix some misnamed substatus constants. SUBSTATUS_ROLLOUT was actually SUBSTATUS_RAMPAGE. SUBSTATUS_ENCORED was actually SUBSTATUS_ROLLOUT. Substatus 5 bit 4 was actually SUBSTATUS_ENCORED. Also use some more (sub)status constants where needed. 2014-06-17 12:52:32 -07:00			`.ok`
split out some more move effects 2013-12-01 11:19:57 -08:00			`ld a, BATTLE_VARS_SUBSTATUS1`
			`call GetBattleVar`
Fix some misnamed substatus constants. SUBSTATUS_ROLLOUT was actually SUBSTATUS_RAMPAGE. SUBSTATUS_ENCORED was actually SUBSTATUS_ROLLOUT. Substatus 5 bit 4 was actually SUBSTATUS_ENCORED. Also use some more (sub)status constants where needed. 2014-06-17 12:52:32 -07:00			`bit SUBSTATUS_ROLLOUT, a`
			`jr z, .reset`
split out some more move effects 2013-12-01 11:19:57 -08:00
			`ld b, $4 ; doturn`
			`jp SkipToBattleCommand`

Fix some misnamed substatus constants. SUBSTATUS_ROLLOUT was actually SUBSTATUS_RAMPAGE. SUBSTATUS_ENCORED was actually SUBSTATUS_ROLLOUT. Substatus 5 bit 4 was actually SUBSTATUS_ENCORED. Also use some more (sub)status constants where needed. 2014-06-17 12:52:32 -07:00			`.reset`
split out some more move effects 2013-12-01 11:19:57 -08:00			`xor a`
			`ld [de], a`
			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`BattleCommand_RolloutPower:`
split out some more move effects 2013-12-01 11:19:57 -08:00			`; rolloutpower`

			`ld a, BATTLE_VARS_STATUS`
			`call GetBattleVar`
Contest battle type and comment the battle menu. 2014-06-17 11:58:11 -07:00			`and SLP`
split out some more move effects 2013-12-01 11:19:57 -08:00			`ret nz`

Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wPlayerRolloutCount`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 11:28:22 -07:00			`ldh a, [hBattleTurn]`
split out some more move effects 2013-12-01 11:19:57 -08:00			`and a`
Split base stats 2016-01-09 13:28:22 -08:00			`jr z, .got_rollout_count`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wEnemyRolloutCount`
split out some more move effects 2013-12-01 11:19:57 -08:00
Split base stats 2016-01-09 13:28:22 -08:00			`.got_rollout_count`
split out some more move effects 2013-12-01 11:19:57 -08:00			`ld a, [hl]`
			`and a`
Split base stats 2016-01-09 13:28:22 -08:00			`jr nz, .skip_set_rampage`
split out some more move effects 2013-12-01 11:19:57 -08:00			`ld a, 1`
Split base stats 2016-01-09 13:28:22 -08:00			`ld [wSomeoneIsRampaging], a`
split out some more move effects 2013-12-01 11:19:57 -08:00
Split base stats 2016-01-09 13:28:22 -08:00			`.skip_set_rampage`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wAttackMissed]`
split out some more move effects 2013-12-01 11:19:57 -08:00			`and a`
			`jr z, .hit`

			`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 00:34:57 -07:00			`call GetBattleVarAddr`
split out some more move effects 2013-12-01 11:19:57 -08:00			`res 6, [hl]`
			`ret`

			`.hit`
			`inc [hl]`
			`ld a, [hl]`
			`ld b, a`
Contest battle type and comment the battle menu. 2014-06-17 11:58:11 -07:00			`cp MAX_ROLLOUT_COUNT`
Split base stats 2016-01-09 13:28:22 -08:00			`jr c, .not_done_with_rollout`
split out some more move effects 2013-12-01 11:19:57 -08:00
			`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 00:34:57 -07:00			`call GetBattleVarAddr`
Fix some misnamed substatus constants. SUBSTATUS_ROLLOUT was actually SUBSTATUS_RAMPAGE. SUBSTATUS_ENCORED was actually SUBSTATUS_ROLLOUT. Substatus 5 bit 4 was actually SUBSTATUS_ENCORED. Also use some more (sub)status constants where needed. 2014-06-17 12:52:32 -07:00			`res SUBSTATUS_ROLLOUT, [hl]`
Split base stats 2016-01-09 13:28:22 -08:00			`jr .done_with_substatus_flag`
split out some more move effects 2013-12-01 11:19:57 -08:00
Split base stats 2016-01-09 13:28:22 -08:00			`.not_done_with_rollout`
split out some more move effects 2013-12-01 11:19:57 -08:00			`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 00:34:57 -07:00			`call GetBattleVarAddr`
Fix some misnamed substatus constants. SUBSTATUS_ROLLOUT was actually SUBSTATUS_RAMPAGE. SUBSTATUS_ENCORED was actually SUBSTATUS_ROLLOUT. Substatus 5 bit 4 was actually SUBSTATUS_ENCORED. Also use some more (sub)status constants where needed. 2014-06-17 12:52:32 -07:00			`set SUBSTATUS_ROLLOUT, [hl]`
split out some more move effects 2013-12-01 11:19:57 -08:00
Split base stats 2016-01-09 13:28:22 -08:00			`.done_with_substatus_flag`
split out some more move effects 2013-12-01 11:19:57 -08:00			`ld a, BATTLE_VARS_SUBSTATUS2`
			`call GetBattleVar`
Contest battle type and comment the battle menu. 2014-06-17 11:58:11 -07:00			`bit SUBSTATUS_CURLED, a`
Split base stats 2016-01-09 13:28:22 -08:00			`jr z, .not_curled`
split out some more move effects 2013-12-01 11:19:57 -08:00			`inc b`
Split base stats 2016-01-09 13:28:22 -08:00			`.not_curled`
			`.loop`
split out some more move effects 2013-12-01 11:19:57 -08:00			`dec b`
Split base stats 2016-01-09 13:28:22 -08:00			`jr z, .done_damage`
split out some more move effects 2013-12-01 11:19:57 -08:00
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wCurDamage + 1`
split out some more move effects 2013-12-01 11:19:57 -08:00			`sla [hl]`
			`dec hl`
			`rl [hl]`
Split base stats 2016-01-09 13:28:22 -08:00			`jr nc, .loop`
split out some more move effects 2013-12-01 11:19:57 -08:00
			`ld a, $ff`
			`ld [hli], a`
			`ld [hl], a`

Split base stats 2016-01-09 13:28:22 -08:00			`.done_damage`
split out some more move effects 2013-12-01 11:19:57 -08:00			`ret`