pokecrystal/engine/battle/move_effects/present.asm

BattleCommand_Present:
; present

	ld a, [wLinkMode]
	cp LINK_COLOSSEUM
	jr z, .colosseum_skippush
	push bc
	push de
.colosseum_skippush

	call BattleCommand_Stab

	ld a, [wLinkMode]
	cp LINK_COLOSSEUM
	jr z, .colosseum_skippop
	pop de
	pop bc
.colosseum_skippop

	ld a, [wTypeMatchup]
	and a
	jp z, AnimateFailedMove
	ld a, [wAttackMissed]
	and a
	jp nz, AnimateFailedMove

	push bc
	call BattleRandom
	ld b, a
	ld hl, PresentPower
	ld c, 0
.next
	ld a, [hli]
	cp -1
	jr z, .heal_effect
	cp b
	jr nc, .got_power
	inc c
	inc hl
	jr .next

.got_power
	ld a, c
	ld [wBattleAnimParam], a
	call AnimateCurrentMoveEitherSide
	ld d, [hl]
	pop bc
	ret

.heal_effect
	pop bc
	ld a, $3 ; heal animation
	ld [wBattleAnimParam], a
	call AnimateCurrentMove
	call BattleCommand_SwitchTurn
	ld hl, AICheckPlayerMaxHP
	ldh a, [hBattleTurn]
	and a
	jr z, .got_hp_fn_pointer
	ld hl, AICheckEnemyMaxHP
.got_hp_fn_pointer
	ld a, BANK(AICheckPlayerMaxHP) ; aka BANK(AICheckEnemyMaxHP)
	rst FarCall
	jr c, .already_fully_healed

	ld hl, GetQuarterMaxHP
	call CallBattleCore
	call BattleCommand_SwitchTurn
	ld hl, RestoreHP
	call CallBattleCore
	call BattleCommand_SwitchTurn
	ld hl, RegainedHealthText
	call StdBattleTextbox
	call BattleCommand_SwitchTurn
	call UpdateOpponentInParty
	jr .do_animation

.already_fully_healed
	call BattleCommand_SwitchTurn
	call _CheckBattleScene
	jr nc, .do_animation
	call AnimateFailedMove
	ld hl, RefusedGiftText
	call StdBattleTextbox
.do_animation
	jp EndMoveEffect

INCLUDE "data/moves/present_power.asm"
Remove all address comments 2018-06-24 14:09:41 +00:00			`BattleCommand_Present:`
Still more battle command labels 2015-11-07 03:36:06 +00:00			`; present`

			`ld a, [wLinkMode]`
			`cp LINK_COLOSSEUM`
			`jr z, .colosseum_skippush`
			`push bc`
			`push de`
			`.colosseum_skippush`

			`call BattleCommand_Stab`

			`ld a, [wLinkMode]`
			`cp LINK_COLOSSEUM`
			`jr z, .colosseum_skippop`
			`pop de`
			`pop bc`
			`.colosseum_skippop`

			`ld a, [wTypeMatchup]`
			`and a`
			`jp z, AnimateFailedMove`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wAttackMissed]`
Still more battle command labels 2015-11-07 03:36:06 +00:00			`and a`
			`jp nz, AnimateFailedMove`

			`push bc`
			`call BattleRandom`
			`ld b, a`
More battle data in data/battle/ 2018-01-26 02:34:42 +00:00			`ld hl, PresentPower`
Still more battle command labels 2015-11-07 03:36:06 +00:00			`ld c, 0`
			`.next`
			`ld a, [hli]`
Arrays end with -1, not $ff 2018-01-11 03:53:42 +00:00			`cp -1`
Remove more address comments 2018-06-25 01:39:23 +00:00			`jr z, .heal_effect`
Still more battle command labels 2015-11-07 03:36:06 +00:00			`cp b`
Remove more address comments 2018-06-25 01:39:23 +00:00			`jr nc, .got_power`
Still more battle command labels 2015-11-07 03:36:06 +00:00			`inc c`
			`inc hl`
Remove more address comments 2018-06-25 01:39:23 +00:00			`jr .next`
Still more battle command labels 2015-11-07 03:36:06 +00:00
			`.got_power`
			`ld a, c`
Remove wKickCounter and wPresentPower aliases for wBattleAnimParam 2020-08-30 00:35:49 +00:00			`ld [wBattleAnimParam], a`
Still more battle command labels 2015-11-07 03:36:06 +00:00			`call AnimateCurrentMoveEitherSide`
			`ld d, [hl]`
			`pop bc`
			`ret`

			`.heal_effect`
			`pop bc`
Remove wKickCounter and wPresentPower aliases for wBattleAnimParam 2020-08-30 00:35:49 +00:00			`ld a, $3 ; heal animation`
			`ld [wBattleAnimParam], a`
Still more battle command labels 2015-11-07 03:36:06 +00:00			`call AnimateCurrentMove`
			`call BattleCommand_SwitchTurn`
			`ld hl, AICheckPlayerMaxHP`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh a, [hBattleTurn]`
Still more battle command labels 2015-11-07 03:36:06 +00:00			`and a`
Remove more address comments 2018-06-25 01:39:23 +00:00			`jr z, .got_hp_fn_pointer`
Still more battle command labels 2015-11-07 03:36:06 +00:00			`ld hl, AICheckEnemyMaxHP`
			`.got_hp_fn_pointer`
Say "BANK(Foo) ; aka BANK(Bar)" to clarify that Foo and Bar share a bank 2019-01-12 20:17:20 +00:00			`ld a, BANK(AICheckPlayerMaxHP) ; aka BANK(AICheckEnemyMaxHP)`
Still more battle command labels 2015-11-07 03:36:06 +00:00			`rst FarCall`
Remove more address comments 2018-06-25 01:39:23 +00:00			`jr c, .already_fully_healed`
Still more battle command labels 2015-11-07 03:36:06 +00:00
			`ld hl, GetQuarterMaxHP`
			`call CallBattleCore`
			`call BattleCommand_SwitchTurn`
			`ld hl, RestoreHP`
			`call CallBattleCore`
			`call BattleCommand_SwitchTurn`
			`ld hl, RegainedHealthText`
TextBox -> Textbox Homogenizing names. 2019-04-08 12:15:10 +00:00			`call StdBattleTextbox`
Still more battle command labels 2015-11-07 03:36:06 +00:00			`call BattleCommand_SwitchTurn`
			`call UpdateOpponentInParty`
Remove more address comments 2018-06-25 01:39:23 +00:00			`jr .do_animation`
Still more battle command labels 2015-11-07 03:36:06 +00:00
			`.already_fully_healed`
			`call BattleCommand_SwitchTurn`
			`call _CheckBattleScene`
Remove more address comments 2018-06-25 01:39:23 +00:00			`jr nc, .do_animation`
Still more battle command labels 2015-11-07 03:36:06 +00:00			`call AnimateFailedMove`
			`ld hl, RefusedGiftText`
TextBox -> Textbox Homogenizing names. 2019-04-08 12:15:10 +00:00			`call StdBattleTextbox`
Still more battle command labels 2015-11-07 03:36:06 +00:00			`.do_animation`
			`jp EndMoveEffect`

Move power data belongs in data/moves/ 2018-01-26 16:01:15 +00:00			`INCLUDE "data/moves/present_power.asm"`