1 files changed, 11194 insertions, 0 deletions

diff --git a/src/engine/duel/effect_functions.asm b/src/engine/duel/effect_functions.asm
new file mode 100644
index 0000000..ce3a517
--- /dev/null
+++ b/src/engine/duel/effect_functions.asm
@@ -0,0 +1,11194 @@
+Poison50PercentEffect: ; 2c000 (b:4000)
+	ldtx de, PoisonCheckText
+	call TossCoin_BankB
+	ret nc
+
+PoisonEffect: ; 2c007 (b:4007)
+	lb bc, CNF_SLP_PRZ, POISONED
+	jr ApplyStatusEffect
+
+DoublePoisonEffect: ; 2c00c (b:400c)
+	lb bc, CNF_SLP_PRZ, DOUBLE_POISONED
+	jr ApplyStatusEffect
+
+Paralysis50PercentEffect: ; 2c011 (b:4011)
+	ldtx de, ParalysisCheckText
+	call TossCoin_BankB
+	ret nc
+
+ParalysisEffect: ; 2c018 (b:4018)
+	lb bc, PSN_DBLPSN, PARALYZED
+	jr ApplyStatusEffect
+
+Confusion50PercentEffect: ; 2c01d (b:401d)
+	ldtx de, ConfusionCheckText
+	call TossCoin_BankB
+	ret nc
+
+ConfusionEffect: ; 2c024 (b:4024)
+	lb bc, PSN_DBLPSN, CONFUSED
+	jr ApplyStatusEffect
+
+Sleep50PercentEffect: ; 2c029 (b:4029)
+	ldtx de, SleepCheckText
+	call TossCoin_BankB
+	ret nc
+
+SleepEffect: ; 2c030 (b:4030)
+	lb bc, PSN_DBLPSN, ASLEEP
+	jr ApplyStatusEffect
+
+ApplyStatusEffect: ; 2c035 (b:4035)
+	ldh a, [hWhoseTurn]
+	ld hl, wWhoseTurn
+	cp [hl]
+	jr nz, .can_induce_status
+	ld a, [wTempNonTurnDuelistCardID]
+	cp CLEFAIRY_DOLL
+	jr z, .cant_induce_status
+	cp MYSTERIOUS_FOSSIL
+	jr z, .cant_induce_status
+	; Snorlax's Thick Skinned prevents it from being statused...
+	cp SNORLAX
+	jr nz, .can_induce_status
+	call SwapTurn
+	xor a
+	; ...unless already so, or if affected by Muk's Toxic Gas
+	call CheckCannotUseDueToStatus_OnlyToxicGasIfANon0
+	call SwapTurn
+	jr c, .can_induce_status
+
+.cant_induce_status
+	ld a, c
+	ld [wNoEffectFromWhichStatus], a
+	call SetNoEffectFromStatus
+	or a
+	ret
+
+.can_induce_status
+	ld hl, wEffectFunctionsFeedbackIndex
+	push hl
+	ld e, [hl]
+	ld d, $0
+	ld hl, wEffectFunctionsFeedback
+	add hl, de
+	call SwapTurn
+	ldh a, [hWhoseTurn]
+	ld [hli], a
+	call SwapTurn
+	ld [hl], b ; mask of status conditions not to discard on the target
+	inc hl
+	ld [hl], c ; status condition to inflict to the target
+	pop hl
+	; advance wEffectFunctionsFeedbackIndex
+	inc [hl]
+	inc [hl]
+	inc [hl]
+	scf
+	ret
+
+TossCoin_BankB: ; 2c07e (b:407e)
+	call TossCoin
+	ret
+
+TossCoinATimes_BankB: ; 2c082 (b:4082)
+	call TossCoinATimes
+	ret
+
+CommentedOut_2c086: ; 2c086 (b:4086)
+	ret
+
+Func_2c087: ; 2c087 (b:4087)
+	xor a
+	jr Func_2c08c
+
+Func_2c08a: ; 2c08a (b:408a)
+	ld a, $1
+
+Func_2c08c: ; 2c08c (b:408c)
+	push de
+	push af
+	ld a, OPPACTION_TOSS_COIN_A_TIMES
+	call SetOppAction_SerialSendDuelData
+	pop af
+	pop de
+	call SerialSend8Bytes
+	call TossCoinATimes
+	ret
+
+SetNoEffectFromStatus: ; 2c09c (b:409c)
+	ld a, EFFECT_FAILED_NO_EFFECT
+	ld [wEffectFailed], a
+	ret
+
+SetWasUnsuccessful: ; 2c0a2 (b:40a2)
+	ld a, EFFECT_FAILED_UNSUCCESSFUL
+	ld [wEffectFailed], a
+	ret
+
+Func_2c0a8: ; 2c0a8 (b:40a8)
+	ldh a, [hTemp_ffa0]
+	push af
+	ldh a, [hWhoseTurn]
+	ldh [hTemp_ffa0], a
+	ld a, OPPACTION_6B30
+	call SetOppAction_SerialSendDuelData
+	bank1call Func_4f2d
+	ld c, a
+	pop af
+	ldh [hTemp_ffa0], a
+	ld a, c
+	ret
+
+Func_2c0bd: ; 2c0bd (b:40bd)
+	call ExchangeRNG
+	bank1call Func_4f2d
+	call ShuffleDeck
+	ret
+
+; return carry if Player is the Turn Duelist
+IsPlayerTurn: ; 2c0c7 (b:40c7)
+	ld a, DUELVARS_DUELIST_TYPE
+	call GetTurnDuelistVariable
+	cp DUELIST_TYPE_PLAYER
+	jr z, .player
+	or a
+	ret
+.player
+	scf
+	ret
+
+; Stores information about the attack damage for AI purposes
+; taking into account poison damage between turns.
+; if target poisoned
+;	[wAIMinDamage] <- [wDamage]
+;	[wAIMaxDamage] <- [wDamage]
+; else
+;	[wAIMinDamage] <- [wDamage] + d
+;	[wAIMaxDamage] <- [wDamage] + e
+;	[wDamage]      <- [wDamage] + a
+UpdateExpectedAIDamage_AccountForPoison: ; 2c0d4 (b:40d4)
+	push af
+	ld a, DUELVARS_ARENA_CARD_STATUS
+	call GetNonTurnDuelistVariable
+	and POISONED | DOUBLE_POISONED
+	jr z, UpdateExpectedAIDamage.skip_push_af
+	pop af
+	ld a, [wDamage]
+	ld [wAIMinDamage], a
+	ld [wAIMaxDamage], a
+	ret
+
+; Sets some variables for AI use
+;	[wAIMinDamage] <- [wDamage] + d
+;	[wAIMaxDamage] <- [wDamage] + e
+;	[wDamage]      <- [wDamage] + a
+UpdateExpectedAIDamage: ; 2c0e9 (b:40e9)
+	push af
+
+.skip_push_af
+	ld hl, wDamage
+	ld a, [hl]
+	add d
+	ld [wAIMinDamage], a
+	ld a, [hl]
+	add e
+	ld [wAIMaxDamage], a
+	pop af
+	add [hl]
+	ld [hl], a
+	ret
+
+; Stores information about the attack damage for AI purposes
+; [wDamage]      <- a (average amount of damage)
+; [wAIMinDamage] <- d (minimum)
+; [wAIMaxDamage] <- e (maximum)
+SetExpectedAIDamage: ; 2c0fb (b:40fb)
+	ld [wDamage], a
+	xor a
+	ld [wDamage + 1], a
+	ld a, d
+	ld [wAIMinDamage], a
+	ld a, e
+	ld [wAIMaxDamage], a
+	ret
+
+Func_2c10b: ; 2c10b (b:410b)
+	ldh [hTempPlayAreaLocation_ff9d], a
+	bank1call Func_61a1
+	bank1call PrintPlayAreaCardList_EnableLCD
+	bank1call Func_6194
+	ret
+
+; deal damage to all the turn holder's benched Pokemon
+; input: a = amount of damage to deal to each Pokemon
+DealDamageToAllBenchedPokemon: ; 2c117 (b:4117)
+	ld e, a
+	ld d, $00
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ld c, a
+	ld b, PLAY_AREA_ARENA
+	jr .skip_to_bench
+.loop
+	push bc
+	call DealDamageToPlayAreaPokemon_RegularAnim
+	pop bc
+.skip_to_bench
+	inc b
+	dec c
+	jr nz, .loop
+	ret
+
+Func_2c12e: ; 2c12e (b:412e)
+	ld [wLoadedAttackAnimation], a
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ld b, a
+	ld c, $0 ; neither WEAKNESS nor RESISTANCE
+	ldh a, [hWhoseTurn]
+	ld h, a
+	bank1call PlayAttackAnimation
+	bank1call WaitAttackAnimation
+	ret
+
+; apply a status condition of type 1 identified by register a to the target
+ApplySubstatus1ToDefendingCard: ; 2c140 (b:4140)
+	push af
+	ld a, DUELVARS_ARENA_CARD_SUBSTATUS1
+	call GetTurnDuelistVariable
+	pop af
+	ld [hli], a
+	ret
+
+; apply a status condition of type 2 identified by register a to the target,
+; unless prevented by wNoDamageOrEffect
+ApplySubstatus2ToDefendingCard: ; 2c149 (b:4149)
+	push af
+	call CheckNoDamageOrEffect
+	jr c, .no_damage_orEffect
+	ld a, DUELVARS_ARENA_CARD_SUBSTATUS2
+	call GetNonTurnDuelistVariable
+	pop af
+	ld [hl], a
+	ld l, $f6
+	ld [hl], a
+	ret
+
+.no_damage_orEffect
+	pop af
+	push hl
+	bank1call DrawDuelMainScene
+	pop hl
+	ld a, l
+	or h
+	call nz, DrawWideTextBox_PrintText
+	ret
+
+; overwrites in wDamage, wAIMinDamage and wAIMaxDamage
+; with the value in a.
+SetDefiniteDamage: ; 2c166 (b:4166)
+	ld [wDamage], a
+	ld [wAIMinDamage], a
+	ld [wAIMaxDamage], a
+	xor a
+	ld [wDamage + 1], a
+	ret
+
+; overwrites wAIMinDamage and wAIMaxDamage
+; with value in wDamage.
+SetDefiniteAIDamage: ; 2c174 (b:4174)
+	ld a, [wDamage]
+	ld [wAIMinDamage], a
+	ld [wAIMaxDamage], a
+	ret
+
+; returns in a some random occupied Play Area location
+; in Turn Duelist's Play Area.
+PickRandomPlayAreaCard: ; 2c17e (b:417e)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	call Random
+	or a
+	ret
+
+; outputs in hl the next position
+; in hTempList to place a new card,
+; and increments hCurSelectionItem.
+GetNextPositionInTempList: ; 2c188 (b:4188)
+	push de
+	ld hl, hCurSelectionItem
+	ld a, [hl]
+	inc [hl]
+	ld e, a
+	ld d, $00
+	ld hl, hTempList
+	add hl, de
+	pop de
+	ret
+
+; creates in wDuelTempList list of attached Fire Energy cards
+; that are attached to the Turn Duelist's Arena card.
+CreateListOfFireEnergyAttachedToArena: ; 2c197 (b:4197)
+	ld a, TYPE_ENERGY_FIRE
+	; fallthrough
+
+; creates in wDuelTempList a list of cards that
+; are in the Arena of the same type as input a.
+; this is called to list Energy cards of a specific type
+; that are attached to the Arena Pokemon.
+; input:
+;	a = TYPE_ENERGY_* constant
+; output:
+;	a = number of cards in list;
+;	wDuelTempList filled with cards, terminated by $ff
+CreateListOfEnergyAttachedToArena: ; 2c199 (b:4199)
+	ld b, a
+	ld c, 0
+	ld de, wDuelTempList
+	ld a, DUELVARS_CARD_LOCATIONS
+	call GetTurnDuelistVariable
+.loop
+	ld a, [hl]
+	cp CARD_LOCATION_ARENA
+	jr nz, .next
+	push de
+	ld a, l
+	call GetCardIDFromDeckIndex
+	call GetCardType
+	pop de
+	cp b
+	jr nz, .next ; is same as input type?
+	ld a, l
+	ld [de], a
+	inc de
+	inc c
+.next
+	inc l
+	ld a, l
+	cp DECK_SIZE
+	jr c, .loop
+
+	ld a, $ff
+	ld [de], a
+	ld a, c
+	ret
+
+; prints the text "<X> devolved to <Y>!" with
+; the proper card names and levels.
+; input:
+;	d = deck index of the lower stage card
+;	e = deck index of card that was devolved
+PrintDevolvedCardNameAndLevelText: ; 2c1c4 (b:41c4)
+	push de
+	ld a, e
+	call LoadCardDataToBuffer1_FromDeckIndex
+	ld bc, wTxRam2
+	ld hl, wLoadedCard1Name
+	ld a, [hli]
+	ld [bc], a
+	inc bc
+	ld a, [hl]
+	ld [bc], a
+
+	inc bc ; wTxRam2_b
+	xor a
+	ld [bc], a
+	inc bc
+	ld [bc], a
+
+	ld a, d
+	call LoadCardDataToBuffer1_FromDeckIndex
+	ld a, 18
+	call CopyCardNameAndLevel
+	ld [hl], $00
+	ldtx hl, PokemonDevolvedToText
+	call DrawWideTextBox_WaitForInput
+	pop de
+	ret
+
+HandleSwitchDefendingPokemonEffect: ; 2c1ec (b:41ec)
+	ld e, a
+	cp $ff
+	ret z
+
+; check Defending Pokemon's HP
+	ld a, DUELVARS_ARENA_CARD_HP
+	call GetNonTurnDuelistVariable
+	or a
+	jr nz, .switch
+
+; if 0, handle Destiny Bond first
+	push de
+	bank1call HandleDestinyBondSubstatus
+	pop de
+
+.switch
+	call HandleNoDamageOrEffect
+	ret c
+
+; attack was successful, switch Defending Pokemon
+	call SwapTurn
+	call SwapArenaWithBenchPokemon
+	call SwapTurn
+
+	xor a
+	ld [wccc5], a
+	ld [wDuelDisplayedScreen], a
+	inc a
+	ld [wccef], a
+	ret
+
+; returns carry if Defending has No Damage or Effect
+; if so, print its appropriate text.
+HandleNoDamageOrEffect: ; 2c216 (b:4216)
+	call CheckNoDamageOrEffect
+	ret nc
+	ld a, l
+	or h
+	call nz, DrawWideTextBox_PrintText
+	scf
+	ret
+
+; applies HP recovery on Pokemon after an attack
+; with HP recovery effect, and handles its animation.
+; input:
+;	d = damage effectiveness
+;	e = HP amount to recover
+ApplyAndAnimateHPRecovery: ; 2c221 (b:4221)
+	push de
+	ld hl, wccbd
+	ld [hl], e
+	inc hl
+	ld [hl], d
+
+; get Arena card's damage
+	ld e, PLAY_AREA_ARENA
+	call GetCardDamageAndMaxHP
+	pop de
+	or a
+	ret z ; return if no damage
+
+; load correct animation
+	push de
+	ld a, ATK_ANIM_HEAL
+	ld [wLoadedAttackAnimation], a
+	ld bc, $01 ; arrow
+	bank1call PlayAttackAnimation
+
+; compare HP to be restored with max HP
+; if HP to be restored would cause HP to
+; be larger than max HP, cap it accordingly
+	ld e, PLAY_AREA_ARENA
+	call GetCardDamageAndMaxHP
+	ld b, $00
+	pop de
+	ld a, DUELVARS_ARENA_CARD_HP
+	call GetTurnDuelistVariable
+	add e
+	ld e, a
+	ld a, 0
+	adc d
+	ld d, a
+	; de = damage dealt + current HP
+	; bc = max HP of card
+	call CompareDEtoBC
+	jr c, .skip_cap
+	; cap de to value in bc
+	ld e, c
+	ld d, b
+
+.skip_cap
+	ld [hl], e ; apply new HP to arena card
+	bank1call WaitAttackAnimation
+	ret
+
+; returns carry if Play Area has no damage counters.
+CheckIfPlayAreaHasAnyDamage: ; 2c25b (b:425b)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ld d, a
+	ld e, PLAY_AREA_ARENA
+.loop_play_area
+	call GetCardDamageAndMaxHP
+	or a
+	ret nz ; found damage
+	inc e
+	dec d
+	jr nz, .loop_play_area
+	; no damage found
+	scf
+	ret
+
+; makes a list in wDuelTempList with the deck indices
+; of Trainer cards found in Turn Duelist's Discard Pile.
+; returns carry set if no Trainer cards found, and loads
+; corresponding text to notify this.
+CreateTrainerCardListFromDiscardPile: ; 2c26e (b:426e)
+; get number of cards in Discard Pile
+; and have hl point to the end of the
+; Discard Pile list in wOpponentDeckCards.
+	ld a, DUELVARS_NUMBER_OF_CARDS_IN_DISCARD_PILE
+	call GetTurnDuelistVariable
+	ld b, a
+	add DUELVARS_DECK_CARDS
+	ld l, a
+
+	ld de, wDuelTempList
+	inc b
+	jr .next_card
+
+.check_trainer
+	ld a, [hl]
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Type]
+	cp TYPE_TRAINER
+	jr nz, .next_card
+
+	ld a, [hl]
+	ld [de], a
+	inc de
+
+.next_card
+	dec l
+	dec b
+	jr nz, .check_trainer
+
+	ld a, $ff ; terminating byte
+	ld [de], a
+	ld a, [wDuelTempList]
+	cp $ff
+	jr z, .no_trainers
+	or a
+	ret
+.no_trainers
+	ldtx hl, ThereAreNoTrainerCardsInDiscardPileText
+	scf
+	ret
+
+; makes a list in wDuelTempList with the deck indices
+; of all basic energy cards found in Turn Duelist's Discard Pile.
+CreateEnergyCardListFromDiscardPile_OnlyBasic: ; 2c2a0 (b:42a0)
+	ld c, $01
+	jr CreateEnergyCardListFromDiscardPile
+
+; makes a list in wDuelTempList with the deck indices
+; of all energy cards (including Double Colorless)
+; found in Turn Duelist's Discard Pile.
+CreateEnergyCardListFromDiscardPile_AllEnergy: ; 2c2a4 (b:42a4)
+	ld c, $00
+;	fallthrough
+
+; makes a list in wDuelTempList with the deck indices
+; of energy cards found in Turn Duelist's Discard Pile.
+; if (c == 0), all energy cards are allowed;
+; if (c != 0), double colorless energy cards are not included.
+; returns carry if no energy cards were found.
+CreateEnergyCardListFromDiscardPile: ; 2c2a6 (b:42a6)
+; get number of cards in Discard Pile
+; and have hl point to the end of the
+; Discard Pile list in wOpponentDeckCards.
+	ld a, DUELVARS_NUMBER_OF_CARDS_IN_DISCARD_PILE
+	call GetTurnDuelistVariable
+	ld b, a
+	add DUELVARS_DECK_CARDS
+	ld l, a
+
+	ld de, wDuelTempList
+	inc b
+	jr .next_card
+
+.check_energy
+	ld a, [hl]
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Type]
+	and TYPE_ENERGY
+	jr z, .next_card
+
+; if (c != $00), then we dismiss Double Colorless
+; energy cards found.
+	ld a, c
+	or a
+	jr z, .copy
+	ld a, [wLoadedCard2Type]
+	cp TYPE_ENERGY_DOUBLE_COLORLESS
+	jr nc, .next_card
+
+.copy
+	ld a, [hl]
+	ld [de], a
+	inc de
+
+; goes through Discard Pile list
+; in wOpponentDeckCards in descending order.
+.next_card
+	dec l
+	dec b
+	jr nz, .check_energy
+
+; terminating byte on wDuelTempList
+	ld a, $ff
+	ld [de], a
+
+; check if any energy card was found
+; by checking whether the first byte
+; in wDuelTempList is $ff.
+; if none were found, return carry.
+	ld a, [wDuelTempList]
+	cp $ff
+	jr z, .set_carry
+	or a
+	ret
+
+.set_carry
+	scf
+	ret
+
+; returns carry if Deck is empty
+CheckIfDeckIsEmpty: ; 2c2e0 (b:42e0)
+	ld a, DUELVARS_NUMBER_OF_CARDS_NOT_IN_DECK
+	call GetTurnDuelistVariable
+	ldtx hl, NoCardsLeftInTheDeckText
+	cp DECK_SIZE
+	ccf
+	ret
+
+; searches through Deck in wDuelTempList looking for
+; a certain card or cards, and prints text depending
+; on whether at least one was found.
+; if none were found, asks the Player whether to look
+; in the Deck anyway, and returns carry if No is selected.
+; uses SEARCHEFFECT_* as input which determines what to search for:
+;	SEARCHEFFECT_CARD_ID = search for card ID in e
+;	SEARCHEFFECT_NIDORAN = search for either NidoranM or NidoranF
+;	SEARCHEFFECT_BASIC_FIGHTING = search for any Basic Fighting Pokemon
+;	SEARCHEFFECT_BASIC_ENERGY = search for any Basic Energy
+;	SEARCHEFFECT_POKEMON = search for any Pokemon card
+; input:
+;	d = SEARCHEFFECT_* constant
+;	e = (optional) card ID to search for in deck
+;	hl = text to print if Deck has card(s)
+; output:
+;	carry set if refused to look at deck
+LookForCardsInDeck: ; 2c2ec (b:42ec)
+	push hl
+	push bc
+	ld a, [wDuelTempList]
+	cp $ff
+	jr z, .none_in_deck
+	ld a, d
+	ld hl, .search_table
+	call JumpToFunctionInTable
+	jr c, .none_in_deck
+	pop bc
+	pop hl
+	call DrawWideTextBox_WaitForInput
+	or a
+	ret
+
+.none_in_deck
+	pop hl
+	call LoadTxRam2
+	pop hl
+	ldtx hl, ThereIsNoInTheDeckText
+	call DrawWideTextBox_WaitForInput
+	ldtx hl, WouldYouLikeToCheckTheDeckText
+	call YesOrNoMenuWithText_SetCursorToYes
+	ret
+
+.search_table
+	dw .SearchDeckForCardID
+	dw .SearchDeckForNidoran
+	dw .SearchDeckForBasicFighting
+	dw .SearchDeckForBasicEnergy
+	dw .SearchDeckForPokemon
+
+.set_carry ; 2c321 (b:4321)
+	scf
+	ret
+
+; returns carry if no card with
+; same card ID as e is found in Deck
+.SearchDeckForCardID ; 2c323 (b:4323)
+	ld hl, wDuelTempList
+.loop_deck_e
+	ld a, [hli]
+	cp $ff
+	jr z, .set_carry
+	push de
+	call GetCardIDFromDeckIndex
+	ld a, e
+	pop de
+	cp e
+	jr nz, .loop_deck_e
+	or a
+	ret
+
+; returns carry if no NidoranM or NidoranF card is found in Deck
+.SearchDeckForNidoran ; 2c336 (b:4336)
+	ld hl, wDuelTempList
+.loop_deck_nidoran
+	ld a, [hli]
+	cp $ff
+	jr z, .set_carry
+	call GetCardIDFromDeckIndex
+	ld a, e
+	cp NIDORANF
+	jr z, .found_nidoran
+	cp NIDORANM
+	jr nz, .loop_deck_nidoran
+.found_nidoran
+	or a
+	ret
+
+; returns carry if no Basic Fighting Pokemon is found in Deck
+.SearchDeckForBasicFighting ; 2c34c (b:434c)
+	ld hl, wDuelTempList
+.loop_deck_fighting
+	ld a, [hli]
+	cp $ff
+	jr z, .set_carry
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Type]
+	cp TYPE_PKMN_FIGHTING
+	jr nz, .loop_deck_fighting
+	ld a, [wLoadedCard2Stage]
+	or a ; BASIC
+	jr nz, .loop_deck_fighting
+	ret
+
+; returns carry if no Basic Energy cards are found in Deck
+.SearchDeckForBasicEnergy ; 2c365 (b:4365)
+	ld hl, wDuelTempList
+.loop_deck_energy
+	ld a, [hli]
+	cp $ff
+	jr z, .set_carry
+	call GetCardIDFromDeckIndex
+	call GetCardType
+	cp TYPE_ENERGY_DOUBLE_COLORLESS
+	jr z, .loop_deck_energy
+	and TYPE_ENERGY
+	jr z, .loop_deck_energy
+	or a
+	ret
+
+; returns carry if no Pokemon cards are found in Deck
+.SearchDeckForPokemon ; 2c37d (b:437d)
+	ld hl, wDuelTempList
+.loop_deck_pkmn
+	ld a, [hli]
+	cp $ff
+	jr z, .set_carry
+	call GetCardIDFromDeckIndex
+	call GetCardType
+	cp TYPE_ENERGY
+	jr nc, .loop_deck_pkmn
+	or a
+	ret
+
+; handles the Player selection of attack
+; to use, i.e. Amnesia or Metronome on.
+; returns carry if none selected.
+; outputs:
+;	d = card index of defending card
+;	e = attack index selected
+HandleDefendingPokemonAttackSelection: ; 2c391 (b:4391)
+	bank1call DrawDuelMainScene
+	call SwapTurn
+	xor a
+	ldh [hCurSelectionItem], a
+
+.start
+	bank1call PrintAndLoadAttacksToDuelTempList
+	push af
+	ldh a, [hCurSelectionItem]
+	ld hl, .menu_parameters
+	call InitializeMenuParameters
+	pop af
+
+	ld [wNumMenuItems], a
+	call EnableLCD
+.loop_input
+	call DoFrame
+	ldh a, [hKeysPressed]
+	bit B_BUTTON_F, a
+	jr nz, .set_carry
+	and START
+	jr nz, .open_atk_page
+	call HandleMenuInput
+	jr nc, .loop_input
+	cp -1
+	jr z, .loop_input
+
+; an attack was selected
+	ldh a, [hCurMenuItem]
+	add a
+	ld e, a
+	ld d, $00
+	ld hl, wDuelTempList
+	add hl, de
+	ld d, [hl]
+	inc hl
+	ld e, [hl]
+	call SwapTurn
+	or a
+	ret
+
+.set_carry
+	call SwapTurn
+	scf
+	ret
+
+.open_atk_page
+	ldh a, [hCurMenuItem]
+	ldh [hCurSelectionItem], a
+	ld a, DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	call LoadCardDataToBuffer1_FromDeckIndex
+	bank1call OpenAttackPage
+	call SwapTurn
+	bank1call DrawDuelMainScene
+	call SwapTurn
+	jr .start
+
+.menu_parameters
+	db 1, 13 ; cursor x, cursor y
+	db 2 ; y displacement between items
+	db 2 ; number of items
+	db SYM_CURSOR_R ; cursor tile number
+	db SYM_SPACE ; tile behind cursor
+	dw NULL ; function pointer if non-0
+
+; loads in hl the pointer to attack's name.
+; input:
+;	d = deck index of card
+; 	e = attack index (0 = first attack, 1 = second attack)
+GetAttackName: ; 2c3fc (b:43fc)
+	ld a, d
+	call LoadCardDataToBuffer1_FromDeckIndex
+	ld hl, wLoadedCard1Atk1Name
+	inc e
+	dec e
+	jr z, .load_name
+	ld hl, wLoadedCard1Atk2Name
+.load_name
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	ret
+
+; returns carry if Defending Pokemon
+; doesn't have an attack.
+CheckIfDefendingPokemonHasAnyAttack: ; 2c40e (b:440e)
+	call SwapTurn
+	ld a, DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Atk1Category]
+	cp POKEMON_POWER
+	jr nz, .has_attack
+	ld hl, wLoadedCard2Atk2Name
+	ld a, [hli]
+	or [hl]
+	jr nz, .has_attack
+	call SwapTurn
+	scf
+	ret
+.has_attack
+	call SwapTurn
+	or a
+	ret
+
+; overwrites HP and Stage data of the card that was
+; devolved in the Play Area to the values of new card.
+; if the damage exceeds HP of pre-evolution,
+; then HP is set to zero.
+; input:
+;	a = card index of pre-evolved card
+UpdateDevolvedCardHPAndStage: ; 2c431 (b:4431)
+	push bc
+	push de
+	push af
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ld e, a
+	call GetCardDamageAndMaxHP
+	ld b, a ; store damage
+	ld a, e
+	add DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	pop af
+
+	ld [hl], a
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, e
+	add DUELVARS_ARENA_CARD_HP
+	ld l, a
+	ld a, [wLoadedCard2HP]
+	sub b ; subtract damage from new HP
+	jr nc, .got_hp
+	; damage exceeds HP
+	xor a ; 0 HP
+.got_hp
+	ld [hl], a
+	ld a, e
+; overwrite card stage
+	add DUELVARS_ARENA_CARD_STAGE
+	ld l, a
+	ld a, [wLoadedCard2Stage]
+	ld [hl], a
+	pop de
+	pop bc
+	ret
+
+; reset various status after devolving card.
+ResetDevolvedCardStatus: ; 2c45d (b:445d)
+; if it's Arena card, clear status conditions
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	or a
+	jr nz, .skip_clear_status
+	call ClearAllStatusConditions
+.skip_clear_status
+; reset changed color status
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	add DUELVARS_ARENA_CARD_CHANGED_TYPE
+	call GetTurnDuelistVariable
+	ld [hl], $00
+; reset C2 flags
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	add DUELVARS_ARENA_CARD_FLAGS
+	ld l, a
+	ld [hl], $00
+	ret
+
+; prompts the Player with a Yes/No question
+; whether to quit the screen, even though
+; they can select more cards from list.
+; [hCurSelectionItem] holds number of cards
+; that were already selected by the Player.
+; input:
+;	- a = total number of cards that can be selected
+; output:
+;	- carry set if "No" was selected
+AskWhetherToQuitSelectingCards: ; 2c476 (b:4476)
+	ld hl, hCurSelectionItem
+	sub [hl]
+	ld l, a
+	ld h, $00
+	call LoadTxRam3
+	ldtx hl, YouCanSelectMoreCardsQuitText
+	call YesOrNoMenuWithText
+	ret
+
+; handles the selection of a forced switch by link/AI opponent or by the player.
+; outputs the Play Area location of the chosen bench card in hTempPlayAreaLocation_ff9d.
+DuelistSelectForcedSwitch: ; 2c487 (b:4487)
+	ld a, DUELVARS_DUELIST_TYPE
+	call GetNonTurnDuelistVariable
+	cp DUELIST_TYPE_LINK_OPP
+	jr z, .link_opp
+
+	cp DUELIST_TYPE_PLAYER
+	jr z, .player
+
+; AI opponent
+	call SwapTurn
+	bank1call AIDoAction_ForcedSwitch
+	call SwapTurn
+
+	ld a, [wPlayerAttackingAttackIndex]
+	ld e, a
+	ld a, [wPlayerAttackingCardIndex]
+	ld d, a
+	ld a, [wPlayerAttackingCardID]
+	call CopyAttackDataAndDamage_FromCardID
+	call Func_16f6
+	ret
+
+.player
+	ldtx hl, SelectPkmnOnBenchToSwitchWithActiveText
+	call DrawWideTextBox_WaitForInput
+	call SwapTurn
+	bank1call HasAlivePokemonInBench
+	ld a, $01
+	ld [wcbd4], a
+.asm_2c4c0
+	bank1call OpenPlayAreaScreenForSelection
+	jr c, .asm_2c4c0
+	call SwapTurn
+	ret
+
+.link_opp
+; get selection from link opponent
+	ld a, OPPACTION_FORCE_SWITCH_ACTIVE
+	call SetOppAction_SerialSendDuelData
+.loop
+	call SerialRecvByte
+	jr nc, .received
+	halt
+	nop
+	jr .loop
+.received
+	ldh [hTempPlayAreaLocation_ff9d], a
+	ret
+
+; returns in a the card index of energy card
+; attached to Defending Pokemon
+; that is to be discarded by the AI for an effect.
+; outputs $ff is none was found.
+; output:
+;	a = deck index of attached energy card chosen
+AIPickEnergyCardToDiscardFromDefendingPokemon: ; 2c4da (b:44da)
+	call SwapTurn
+	ld e, PLAY_AREA_ARENA
+	call GetPlayAreaCardAttachedEnergies
+
+	xor a
+	call CreateArenaOrBenchEnergyCardList
+	jr nc, .has_energy
+	; no energy, return
+	ld a, $ff
+	jr .done
+
+.has_energy
+	ld a, DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	call LoadCardDataToBuffer1_FromDeckIndex
+	ld e, COLORLESS
+	ld a, [wAttachedEnergies + COLORLESS]
+	or a
+	jr nz, .pick_color ; has colorless attached?
+
+	; no colorless energy attached.
+	; if it's colorless Pokemon, just
+	; pick any energy card at random...
+	ld a, [wLoadedCard1Type]
+	cp COLORLESS
+	jr nc, .choose_random
+
+	; ...if not, check if it has its
+	; own color energy attached.
+	; if it doesn't, pick at random.
+	ld e, a
+	ld d, $00
+	ld hl, wAttachedEnergies
+	add hl, de
+	ld a, [hl]
+	or a
+	jr z, .choose_random
+
+; pick attached card with same color as e
+.pick_color
+	ld hl, wDuelTempList
+.loop_energy
+	ld a, [hli]
+	cp $ff
+	jr z, .choose_random
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Type]
+	and TYPE_PKMN
+	cp e
+	jr nz, .loop_energy
+	dec hl
+
+.done_chosen
+	ld a, [hl]
+.done
+	call SwapTurn
+	ret
+
+.choose_random
+	call CountCardsInDuelTempList
+	ld hl, wDuelTempList
+	call ShuffleCards
+	jr .done_chosen
+
+; handles AI logic to pick attack for Amnesia
+AIPickAttackForAmnesia: ; 2c532 (b:4532)
+; load Defending Pokemon attacks
+	call SwapTurn
+	ld e, PLAY_AREA_ARENA
+	call GetPlayAreaCardAttachedEnergies
+	call HandleEnergyBurn
+	ld a, DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	ld d, a
+	call LoadCardDataToBuffer2_FromDeckIndex
+; if has no attack 1 name, return
+	ld hl, wLoadedCard2Atk1Name
+	ld a, [hli]
+	or [hl]
+	jr z, .chosen
+
+; if Defending Pokemon has enough energy for second attack, choose it
+	ld e, SECOND_ATTACK
+	bank1call _CheckIfEnoughEnergiesToAttack
+	jr nc, .chosen
+; otherwise if first attack isn't a Pkmn Power, choose it instead.
+	ld e, FIRST_ATTACK_OR_PKMN_POWER
+	ld a, [wLoadedCard2Atk1Category]
+	cp POKEMON_POWER
+	jr nz, .chosen
+; if it is a Pkmn Power, choose second attack.
+	ld e, SECOND_ATTACK
+.chosen
+	ld a, e
+	call SwapTurn
+	ret
+
+; Return in a the PLAY_AREA_* of the non-turn holder's Pokemon card in bench with the lowest (remaining) HP.
+; if multiple cards are tied for the lowest HP, the one with the highest PLAY_AREA_* is returned.
+GetBenchPokemonWithLowestHP: ; 2c564 (b:4564)
+	call SwapTurn
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ld c, a
+	lb de, PLAY_AREA_ARENA, $ff
+	ld b, d
+	ld a, DUELVARS_BENCH1_CARD_HP
+	call GetTurnDuelistVariable
+	jr .start
+; find Play Area location with least amount of HP
+.loop_bench
+	ld a, e
+	cp [hl]
+	jr c, .next ; skip if HP is higher
+	ld e, [hl]
+	ld d, b
+
+.next
+	inc hl
+.start
+	inc b
+	dec c
+	jr nz, .loop_bench
+
+	ld a, d
+	call SwapTurn
+	ret
+
+; handles drawing and selection of screen for
+; choosing a color (excluding colorless), for use
+; of Shift Pkmn Power and Conversion attacks.
+; outputs in a the color that was selected or,
+; if B was pressed, returns carry.
+; input:
+;	a  = Play Area location (PLAY_AREA_*), with:
+;	     bit 7 not set if it's applying to opponent's card
+;	     bit 7 set if it's applying to player's card
+;	hl = text to be printed in the bottom box
+; output:
+;	a = color that was selected
+HandleColorChangeScreen: ; 2c588 (b:4588)
+	or a
+	call z, SwapTurn
+	push af
+	call .DrawScreen
+	pop af
+	call z, SwapTurn
+
+	ld hl, .menu_params
+	xor a
+	call InitializeMenuParameters
+	call EnableLCD
+
+.loop_input
+	call DoFrame
+	call HandleMenuInput
+	jr nc, .loop_input
+	cp -1 ; b pressed?
+	jr z, .set_carry
+	ld e, a
+	ld d, $00
+	ld hl, ShiftListItemToColor
+	add hl, de
+	ld a, [hl]
+	or a
+	ret
+.set_carry
+	scf
+	ret
+
+.menu_params
+	db 1, 1 ; cursor x, cursor y
+	db 2 ; y displacement between items
+	db MAX_PLAY_AREA_POKEMON ; number of items
+	db SYM_CURSOR_R ; cursor tile number
+	db SYM_SPACE ; tile behind cursor
+	dw NULL ; function pointer if non-0
+
+.DrawScreen: ; 2c5be (b:45be)
+	push hl
+	push af
+	call EmptyScreen
+	call ZeroObjectPositions
+	call LoadDuelCardSymbolTiles
+
+; load card data
+	pop af
+	and $7f
+	ld [wTempPlayAreaLocation_cceb], a
+	add DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	call LoadCardDataToBuffer1_FromDeckIndex
+
+; draw card gfx
+	ld de, v0Tiles1 + $20 tiles ; destination offset of loaded gfx
+	ld hl, wLoadedCard1Gfx
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	lb bc, $30, TILE_SIZE
+	call LoadCardGfx
+	bank1call SetBGP6OrSGB3ToCardPalette
+	bank1call FlushAllPalettesOrSendPal23Packet
+	ld a, $a0
+	lb hl, 6, 1
+	lb de, 9, 2
+	lb bc, 8, 6
+	call FillRectangle
+	bank1call ApplyBGP6OrSGB3ToCardImage
+
+; print card name and level at the top
+	ld a, 16
+	call CopyCardNameAndLevel
+	ld [hl], $00
+	lb de, 7, 0
+	call InitTextPrinting
+	ld hl, wDefaultText
+	call ProcessText
+
+; list all the colors
+	ld hl, ShiftMenuData
+	call PlaceTextItems
+
+; print card's color, resistance and weakness
+	ld a, [wTempPlayAreaLocation_cceb]
+	call GetPlayAreaCardColor
+	inc a
+	lb bc, 15, 9
+	call WriteByteToBGMap0
+	ld a, [wTempPlayAreaLocation_cceb]
+	call GetPlayAreaCardWeakness
+	lb bc, 15, 10
+	bank1call PrintCardPageWeaknessesOrResistances
+	ld a, [wTempPlayAreaLocation_cceb]
+	call GetPlayAreaCardResistance
+	lb bc, 15, 11
+	bank1call PrintCardPageWeaknessesOrResistances
+
+	call DrawWideTextBox
+
+; print list of color names on all list items
+	lb de, 4, 1
+	ldtx hl, ColorListText
+	call InitTextPrinting_ProcessTextFromID
+
+; print input hl to text box
+	lb de, 1, 14
+	pop hl
+	call InitTextPrinting_ProcessTextFromID
+
+; draw and apply palette to color icons
+	ld hl, ColorTileAndBGP
+	lb de, 2, 0
+	ld c, NUM_COLORED_TYPES
+.loop_colors
+	ld a, [hli]
+	push de
+	push bc
+	push hl
+	lb hl, 1, 2
+	lb bc, 2, 2
+	call FillRectangle
+
+	ld a, [wConsole]
+	cp CONSOLE_CGB
+	jr nz, .skip_vram1
+	pop hl
+	push hl
+	call BankswitchVRAM1
+	ld a, [hl]
+	lb hl, 0, 0
+	lb bc, 2, 2
+	call FillRectangle
+	call BankswitchVRAM0
+
+.skip_vram1
+	pop hl
+	pop bc
+	pop de
+	inc hl
+	inc e
+	inc e
+	dec c
+	jr nz, .loop_colors
+	ret
+
+; loads wTxRam2 and wTxRam2_b:
+; [wTxRam2]   <- wLoadedCard1Name
+; [wTxRam2_b] <- input color as text symbol
+; input:
+;	a = type (color) constant
+LoadCardNameAndInputColor: ; 2c686 (b:4686)
+	add a
+	ld e, a
+	ld d, $00
+	ld hl, ColorToTextSymbol
+	add hl, de
+
+; load wTxRam2 with card's name
+	ld de, wTxRam2
+	ld a, [wLoadedCard1Name]
+	ld [de], a
+	inc de
+	ld a, [wLoadedCard1Name + 1]
+	ld [de], a
+
+; load wTxRam2_b with ColorToTextSymbol
+	inc de
+	ld a, [hli]
+	ld [de], a
+	inc de
+	ld a, [hli]
+	ld [de], a
+	ret
+
+ShiftMenuData: ; 2c6a1 (b:46a1)
+	; x, y, text id
+	textitem 10,  9, TypeText
+	textitem 10, 10, WeaknessText
+	textitem 10, 11, ResistanceText
+	db $ff
+
+ColorTileAndBGP: ; 2c6ae (b:46ae)
+	; tile, BG
+	db $e4, $02
+	db $e0, $01
+	db $eC, $02
+	db $e8, $01
+	db $f0, $03
+	db $f4, $03
+
+ShiftListItemToColor: ; 2c6ba (b:46ba)
+	db GRASS
+	db FIRE
+	db WATER
+	db LIGHTNING
+	db FIGHTING
+	db PSYCHIC
+
+ColorToTextSymbol:  ; 2c6c0 (b:46c0)
+	tx FireSymbolText
+	tx GrassSymbolText
+	tx LightningSymbolText
+	tx WaterSymbolText
+	tx FightingSymbolText
+	tx PsychicSymbolText
+
+DrawSymbolOnPlayAreaCursor: ; 2c6cc (b:46cc)
+	ld c, a
+	add a
+	add c
+	add 2
+	; a = 3*a + 2
+	ld c, a
+	ld a, b
+	ld b, 0
+	call WriteByteToBGMap0
+	ret
+
+; possibly unreferenced
+Func_2c6d9: ; 2c6d9 (b:46d9)
+	ldtx hl, IncompleteText
+	call DrawWideTextBox_WaitForInput
+	ret
+
+PlayAreaSelectionMenuParameters: ; 2c6e0 (b:46e0)
+	db 0, 0 ; cursor x, cursor y
+	db 3 ; y displacement between items
+	db MAX_PLAY_AREA_POKEMON ; number of items
+	db SYM_CURSOR_R ; cursor tile number
+	db SYM_SPACE ; tile behind cursor
+	dw NULL ; function pointer if non-0
+
+BenchSelectionMenuParameters: ; 2c6e8 (b:46e8)
+	db 0, 3 ; cursor x, cursor y
+	db 3 ; y displacement between items
+	db MAX_PLAY_AREA_POKEMON ; number of items
+	db SYM_CURSOR_R ; cursor tile number
+	db SYM_SPACE ; tile behind cursor
+	dw NULL ; function pointer if non-0
+
+SpitPoison_AIEffect: ; 2c6f0 (b:46f0)
+	ld a, 10 / 2
+	lb de, 0, 10
+	jp SetExpectedAIDamage
+
+; If heads, defending Pokemon becomes poisoned
+SpitPoison_Poison50PercentEffect: ; 2c6f8 (b:46f8)
+	ldtx de, PoisonCheckText
+	call TossCoin_BankB
+	jp c, PoisonEffect
+	ld a, ATK_ANIM_SPIT_POISON_SUCCESS
+	ld [wLoadedAttackAnimation], a
+	call SetNoEffectFromStatus
+	ret
+
+; outputs in hTemp_ffa0 the result of the coin toss (0 = tails, 1 = heads).
+; in case it was heads, stores in hTempPlayAreaLocation_ffa1
+; the PLAY_AREA_* location of the Bench Pokemon that was selected for switch.
+TerrorStrike_50PercentSelectSwitchPokemon: ; 2c70a (b:470a)
+	xor a
+	ldh [hTemp_ffa0], a
+
+; return failure if no Pokemon to switch to
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetNonTurnDuelistVariable
+	cp 2
+	ret c
+
+; toss coin and store whether it was tails (0) or heads (1) in hTemp_ffa0.
+; return if it was tails.
+	ldtx de, IfHeadsChangeOpponentsActivePokemonText
+	call Func_2c08a
+	ldh [hTemp_ffa0], a
+	ret nc
+
+	call DuelistSelectForcedSwitch
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTempPlayAreaLocation_ffa1], a
+	ret
+
+; if coin toss at hTemp_ffa0 was heads and it's possible,
+; switch the Defending Pokemon
+TerrorStrike_SwitchDefendingPokemon: ; 2c726 (b:4726)
+	ldh a, [hTemp_ffa0]
+	or a
+	ret z
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	call HandleSwitchDefendingPokemonEffect
+	ret
+
+PoisonFang_AIEffect: ; 2c730 (b:4730)
+	ld a, 10
+	lb de, 10, 10
+	jp UpdateExpectedAIDamage_AccountForPoison
+
+WeepinbellPoisonPowder_AIEffect: ; 2c738 (b:4738)
+	ld a, 5
+	lb de, 0, 10
+	jp UpdateExpectedAIDamage_AccountForPoison
+
+; return carry if there are no Pokemon cards in the non-turn holder's bench
+VictreebelLure_AssertPokemonInBench: ; 2c740 (b:4740)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetNonTurnDuelistVariable
+	ldtx hl, EffectNoPokemonOnTheBenchText
+	cp 2
+	ret
+
+; return in hTempPlayAreaLocation_ffa1 the PLAY_AREA_* location
+; of the Bench Pokemon that was selected for switch
+VictreebelLure_SelectSwitchPokemon: ; 2c74b (b:474b)
+	ldtx hl, SelectPkmnOnBenchToSwitchWithActiveText
+	call DrawWideTextBox_WaitForInput
+	call SwapTurn
+	bank1call HasAlivePokemonInBench
+.select_pokemon
+	bank1call OpenPlayAreaScreenForSelection
+	jr c, .select_pokemon
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	call SwapTurn
+	ret
+
+; Return in hTemp_ffa0 the PLAY_AREA_* of the non-turn holder's Pokemon card in bench with the lowest (remaining) HP.
+; if multiple cards are tied for the lowest HP, the one with the highest PLAY_AREA_* is returned.
+VictreebelLure_GetBenchPokemonWithLowestHP: ; 2c764 (b:4764)
+	call GetBenchPokemonWithLowestHP
+	ldh [hTemp_ffa0], a
+	ret
+
+; Defending Pokemon is swapped out for the one with the PLAY_AREA_* at hTemp_ffa0
+; unless Mew's Neutralizing Shield or Haunter's Transparency prevents it.
+VictreebelLure_SwitchDefendingPokemon: ; 2c76a (b:476a)
+	call SwapTurn
+	ldh a, [hTemp_ffa0]
+	ld e, a
+	call HandleNShieldAndTransparency
+	call nc, SwapArenaWithBenchPokemon
+	call SwapTurn
+	xor a
+	ld [wDuelDisplayedScreen], a
+	ret
+
+; If heads, defending Pokemon can't retreat next turn
+AcidEffect: ; 2c77e (b:477e)
+	ldtx de, AcidCheckText
+	call TossCoin_BankB
+	ret nc
+	ld a, SUBSTATUS2_UNABLE_RETREAT
+	call ApplySubstatus2ToDefendingCard
+	ret
+
+GloomPoisonPowder_AIEffect: ; 2c78b (b:478b)
+	ld a, 10
+	lb de, 10, 10
+	jp UpdateExpectedAIDamage_AccountForPoison
+
+; Defending Pokemon and user become confused
+FoulOdorEffect: ; 2c793 (b:4793)
+	call ConfusionEffect
+	call SwapTurn
+	call ConfusionEffect
+	call SwapTurn
+	ret
+
+; If heads, prevent all damage done to user next turn
+KakunaStiffenEffect: ; 2c7a0 (b:47a0)
+	ldtx de, IfHeadsNoDamageNextTurnText
+	call TossCoin_BankB
+	jp nc, SetWasUnsuccessful
+	ld a, ATK_ANIM_PROTECT
+	ld [wLoadedAttackAnimation], a
+	ld a, SUBSTATUS1_NO_DAMAGE_STIFFEN
+	call ApplySubstatus1ToDefendingCard
+	ret
+
+KakunaPoisonPowder_AIEffect: ; 2c7b4 (b:47b4)
+	ld a, 5
+	lb de, 0, 10
+	jp UpdateExpectedAIDamage_AccountForPoison
+
+GolbatLeechLifeEffect: ; 2c7bc (b:47bc)
+	ld hl, wDealtDamage
+	ld e, [hl]
+	inc hl ; wDamageEffectiveness
+	ld d, [hl]
+	call ApplyAndAnimateHPRecovery
+	ret
+
+VenonatLeechLifeEffect: ; 2c7c6 (b:47c6)
+	ld hl, wDealtDamage
+	ld e, [hl]
+	inc hl ; wDamageEffectiveness
+	ld d, [hl]
+	call ApplyAndAnimateHPRecovery
+	ret
+
+; During your next turn, double damage
+SwordsDanceEffect: ; 2c7d0 (b:47d0)
+	ld a, [wTempTurnDuelistCardID]
+	cp SCYTHER
+	ret nz
+	ld a, SUBSTATUS1_NEXT_TURN_DOUBLE_DAMAGE
+	call ApplySubstatus1ToDefendingCard
+	ret
+
+; If heads, defending Pokemon becomes confused
+ZubatSupersonicEffect: ; 2c7dc (b:47dc)
+	call Confusion50PercentEffect
+	call nc, SetNoEffectFromStatus
+	ret
+
+ZubatLeechLifeEffect: ; 2c7e3 (b:47e3)
+	ld hl, wDealtDamage
+	ld e, [hl]
+	inc hl
+	ld d, [hl]
+	call ApplyAndAnimateHPRecovery
+	ret
+
+Twineedle_AIEffect: ; 2c7ed (b:47ed)
+	ld a, 60 / 2
+	lb de, 0, 60
+	jp SetExpectedAIDamage
+
+; Flip 2 coins; deal 30x number of heads
+Twineedle_MultiplierEffect: ; 2c7f5 (b:47f5)
+	ld hl, 30
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsXDamageText
+	ld a, 2
+	call TossCoinATimes_BankB
+	ld e, a
+	add a
+	add e
+	call ATimes10
+	call SetDefiniteDamage
+	ret
+
+BeedrillPoisonSting_AIEffect: ; 2c80d (b:480d)
+	ld a, 5
+	lb de, 0, 10
+	jp UpdateExpectedAIDamage_AccountForPoison
+
+ExeggcuteLeechSeedEffect: ; 2c815 (b:4815)
+	ld hl, wDealtDamage
+	ld a, [hli]
+	or a
+	ret z ; return if no damage dealt
+	ld de, 10
+	call ApplyAndAnimateHPRecovery
+	ret
+
+FoulGas_AIEffect: ; 2c822 (b:4822)
+	ld a, 5
+	lb de, 0, 10
+	jp UpdateExpectedAIDamage
+
+; If heads, defending Pokemon becomes poisoned. If tails, defending Pokemon becomes confused
+FoulGas_PoisonOrConfusionEffect: ; 2c82a (b:482a)
+	ldtx de, PoisonedIfHeadsConfusedIfTailsText
+	call TossCoin_BankB
+	jp c, PoisonEffect
+	jp ConfusionEffect
+
+; an exact copy of KakunaStiffenEffect
+; If heads, prevent all damage done to user next turn
+MetapodStiffenEffect: ; 2c836 (b:4836)
+	ldtx de, IfHeadsNoDamageNextTurnText
+	call TossCoin_BankB
+	jp nc, SetWasUnsuccessful
+	ld a, ATK_ANIM_PROTECT
+	ld [wLoadedAttackAnimation], a
+	ld a, SUBSTATUS1_NO_DAMAGE_STIFFEN
+	call ApplySubstatus1ToDefendingCard
+	ret
+
+; returns carry if no cards in Deck or if
+; Play Area is full already.
+Sprout_CheckDeckAndPlayArea: ; 2c84a (b:484a)
+	call CheckIfDeckIsEmpty
+	ret c ; return if no cards in deck
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ldtx hl, NoSpaceOnTheBenchText
+	cp MAX_PLAY_AREA_POKEMON
+	ccf
+	ret
+
+Sprout_PlayerSelectEffect: ; 2c85a (b:485a)
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+
+	call CreateDeckCardList
+	ldtx hl, ChooseAnOddishFromDeckText
+	ldtx bc, OddishText
+	lb de, SEARCHEFFECT_CARD_ID, ODDISH
+	call LookForCardsInDeck
+	ret c
+
+; draw Deck list interface and print text
+	bank1call Func_5591
+	ldtx hl, ChooseAnOddishText
+	ldtx de, DuelistDeckText
+	bank1call SetCardListHeaderText
+
+.loop
+	bank1call DisplayCardList
+	jr c, .pressed_b
+	call GetCardIDFromDeckIndex
+	ld bc, ODDISH
+	call CompareDEtoBC
+	jr nz, .play_sfx
+
+; Oddish was selected
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTemp_ffa0], a
+	or a
+	ret
+
+.play_sfx
+	; play SFX and loop back
+	call Func_3794
+	jr .loop
+
+.pressed_b
+; figure if Player can exit the screen without selecting,
+; that is, if the Deck has no Oddish card.
+	ld a, DUELVARS_CARD_LOCATIONS
+	call GetTurnDuelistVariable
+.loop_b_press
+	ld a, [hl]
+	cp CARD_LOCATION_DECK
+	jr nz, .next
+	ld a, l
+	call GetCardIDFromDeckIndex
+	ld bc, ODDISH
+	call CompareDEtoBC
+	jr z, .play_sfx ; found Oddish, go back to top loop
+.next
+	inc l
+	ld a, l
+	cp DECK_SIZE
+	jr c, .loop_b_press
+
+; no Oddish in Deck, can safely exit screen
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	or a
+	ret
+
+Sprout_AISelectEffect: ; 2c8b7 (b:48b7)
+	call CreateDeckCardList
+	ld hl, wDuelTempList
+.loop_deck
+	ld a, [hli]
+	ldh [hTemp_ffa0], a
+	cp $ff
+	ret z ; no Oddish
+	call GetCardIDFromDeckIndex
+	ld a, e
+	cp ODDISH
+	jr nz, .loop_deck
+	ret ; Oddish found
+
+Sprout_PutInPlayAreaEffect: ; 2c8cc (b:48cc)
+	ldh a, [hTemp_ffa0]
+	cp $ff
+	jr z, .shuffle
+	call SearchCardInDeckAndAddToHand
+	call AddCardToHand
+	call PutHandPokemonCardInPlayArea
+	call IsPlayerTurn
+	jr c, .shuffle
+	; display card on screen
+	ldh a, [hTemp_ffa0]
+	ldtx hl, PlacedOnTheBenchText
+	bank1call DisplayCardDetailScreen
+.shuffle
+	call Func_2c0bd
+	ret
+
+; returns carry if no Pokemon on Bench
+Teleport_CheckBench: ; 2c8ec (b:48ec)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ldtx hl, ThereAreNoPokemonOnBenchText
+	cp 2
+	ret
+
+Teleport_PlayerSelectEffect: ; 2c8f7 (b:48f7)
+	ldtx hl, SelectPkmnOnBenchToSwitchWithActiveText
+	call DrawWideTextBox_WaitForInput
+	bank1call HasAlivePokemonInBench
+	ld a, $01
+	ld [wcbd4], a
+.loop
+	bank1call OpenPlayAreaScreenForSelection
+	jr c, .loop
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	ret
+
+Teleport_AISelectEffect: ; 2c90f (b:490f)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	call Random
+	ldh [hTemp_ffa0], a
+	ret
+
+Teleport_SwitchEffect: ; 2c91a (b:491a)
+	ldh a, [hTemp_ffa0]
+	ld e, a
+	call SwapArenaWithBenchPokemon
+	xor a
+	ld [wDuelDisplayedScreen], a
+	ret
+
+BigEggsplosion_AIEffect: ; 2c925 (b:4925)
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ld e, a
+	call GetPlayAreaCardAttachedEnergies
+	ld a, [wTotalAttachedEnergies]
+	call SetDamageToATimes20
+	inc h
+	jr nz, .capped
+	ld l, 255
+.capped
+	ld a, l
+	ld [wAIMaxDamage], a
+	srl a
+	ld [wDamage], a
+	xor a
+	ld [wAIMinDamage], a
+	ret
+
+; Flip coins equal to attached energies; deal 20x number of heads
+BigEggsplosion_MultiplierEffect: ; 2c944 (b:4944)
+	ld e, PLAY_AREA_ARENA
+	call GetPlayAreaCardAttachedEnergies
+	ld hl, 20
+	call LoadTxRam3
+	ld a, [wTotalAttachedEnergies]
+	ldtx de, DamageCheckIfHeadsXDamageText
+	call TossCoinATimes_BankB
+;	fallthrough
+
+; set damage to 20*a. Also return result in hl
+SetDamageToATimes20: ; 2c958 (b:4958)
+	ld l, a
+	ld h, $00
+	ld e, l
+	ld d, h
+	add hl, hl
+	add hl, hl
+	add hl, de
+	add hl, hl
+	add hl, hl
+	ld a, l
+	ld [wDamage], a
+	ld a, h
+	ld [wDamage + 1], a
+	ret
+
+Thrash_AIEffect: ; 2c96b (b:496b)
+	ld a, (30 + 40) / 2
+	lb de, 30, 40
+	jp SetExpectedAIDamage
+
+; If heads 10 more damage; if tails, 10 damage to itself
+Thrash_ModifierEffect: ; 2c973 (b:4973)
+	ldtx de, IfHeadPlus10IfTails10ToYourselfText
+	call TossCoin_BankB
+	ldh [hTemp_ffa0], a
+	ret nc
+	ld a, 10
+	call AddToDamage
+	ret
+
+Thrash_RecoilEffect: ; 2c982 (b:4982)
+	ldh a, [hTemp_ffa0]
+	or a
+	ret nz
+	ld a, 10
+	call DealRecoilDamageToSelf
+	ret
+
+Toxic_AIEffect: ; 2c98c (b:498c)
+	ld a, 20
+	lb de, 20, 20
+	jp UpdateExpectedAIDamage
+
+; Defending Pokémon becomes double poisoned (takes 20 damage per turn rather than 10)
+Toxic_DoublePoisonEffect: ; 2c994 (b:4994)
+	call DoublePoisonEffect
+	ret
+
+BoyfriendsEffect: ; 2c998 (b:4998)
+	ld a, DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	ld c, PLAY_AREA_ARENA
+.loop
+	ld a, [hl]
+	cp $ff
+	jr z, .done
+	call GetCardIDFromDeckIndex
+	ld a, e
+	cp NIDOKING
+	jr nz, .next
+	ld a, d
+	cp $00 ; why check d? Card IDs are only 1 byte long
+	jr nz, .next
+	inc c
+.next
+	inc hl
+	jr .loop
+.done
+; c holds number of Nidoking found in Play Area
+	ld a, c
+	add a
+	call ATimes10
+	call AddToDamage ; adds 2 * 10 * c
+	ret
+
+NidoranFFurySwipes_AIEffect: ; 2c9be (b:49be)
+	ld a, 30 / 2
+	lb de, 0, 30
+	jp SetExpectedAIDamage
+
+NidoranFFurySwipes_MultiplierEffect: ; 2c9c6 (b:49c6)
+	ld hl, 10
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsXDamageText
+	ld a, 3
+	call TossCoinATimes_BankB
+	call ATimes10
+	call SetDefiniteDamage
+	ret
+
+NidoranFCallForFamily_CheckDeckAndPlayArea: ; 2c9db (b:49db)
+	call CheckIfDeckIsEmpty
+	ret c ; return if no cards in deck
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ldtx hl, NoSpaceOnTheBenchText
+	cp MAX_PLAY_AREA_POKEMON
+	ccf
+	ret
+
+NidoranFCallForFamily_PlayerSelectEffect: ; 2c9eb (b:49eb)
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+
+	call CreateDeckCardList
+	ldtx hl, ChooseNidoranFromDeckText
+	ldtx bc, NidoranMNidoranFText
+	lb de, SEARCHEFFECT_NIDORAN, $00
+	call LookForCardsInDeck
+	ret c
+
+; draw Deck list interface and print text
+	bank1call Func_5591
+	ldtx hl, ChooseNidoranText
+	ldtx de, DuelistDeckText
+	bank1call SetCardListHeaderText
+
+.loop
+	bank1call DisplayCardList
+	jr c, .pressed_b
+	call GetCardIDFromDeckIndex
+	ld bc, NIDORANF
+	call CompareDEtoBC
+	jr z, .selected_nidoran
+	ld bc, NIDORANM
+	call CompareDEtoBC
+	jr nz, .loop ; .play_sfx would be more appropriate here
+
+.selected_nidoran
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTemp_ffa0], a
+	or a
+	ret
+
+.play_sfx
+	; play SFX and loop back
+	call Func_3794
+	jr .loop
+
+.pressed_b
+; figure if Player can exit the screen without selecting,
+; that is, if the Deck has no NidoranF or NidoranM card.
+	ld a, DUELVARS_CARD_LOCATIONS
+	call GetTurnDuelistVariable
+.loop_b_press
+	ld a, [hl]
+	cp CARD_LOCATION_DECK
+	jr nz, .next
+	ld a, l
+	call GetCardIDFromDeckIndex
+	ld bc, NIDORANF
+	call CompareDEtoBC
+	jr z, .play_sfx ; found, go back to top loop
+	ld bc, NIDORANM
+	jr z, .play_sfx ; found, go back to top loop
+.next
+	inc l
+	ld a, l
+	cp DECK_SIZE
+	jr c, .loop_b_press
+
+; no Nidoran in Deck, can safely exit screen
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	or a
+	ret
+
+NidoranFCallForFamily_AISelectEffect: ; 2ca55 (b:4a55)
+	call CreateDeckCardList
+	ld hl, wDuelTempList
+.loop_deck
+	ld a, [hli]
+	ldh [hTemp_ffa0], a
+	cp $ff
+	ret z ; none found
+	call GetCardIDFromDeckIndex
+	ld a, e
+	cp NIDORANF
+	jr z, .found
+	cp NIDORANM
+	jr nz, .loop_deck
+.found
+	ret
+
+NidoranFCallForFamily_PutInPlayAreaEffect: ; 2ca6e (b:4a6e)
+	ldh a, [hTemp_ffa0]
+	cp $ff
+	jr z, .shuffle
+	call SearchCardInDeckAndAddToHand
+	call AddCardToHand
+	call PutHandPokemonCardInPlayArea
+	call IsPlayerTurn
+	jr c, .shuffle
+	; display card on screen
+	ldh a, [hTemp_ffa0]
+	ldtx hl, PlacedOnTheBenchText
+	bank1call DisplayCardDetailScreen
+.shuffle
+	call Func_2c0bd
+	ret
+
+HornHazard_AIEffect: ; 2ca8e (b:4a8e)
+	ld a, 30 / 2
+	lb de, 0, 30
+	jp SetExpectedAIDamage
+
+HornHazard_NoDamage50PercentEffect: ; 2ca96 (b:4a96)
+	ldtx de, DamageCheckIfTailsNoDamageText
+	call TossCoin_BankB
+	jr c, .heads
+	xor a
+	call SetDefiniteDamage
+	call SetWasUnsuccessful
+	ret
+.heads
+	ld a, ATK_ANIM_HIT
+	ld [wLoadedAttackAnimation], a
+	ret
+
+NidorinaSupersonicEffect: ; 2caac (b:4aac)
+	call Confusion50PercentEffect
+	call nc, SetNoEffectFromStatus
+	ret
+
+NidorinaDoubleKick_AIEffect: ; 2cab3 (b:4ab3)
+	ld a, 60 / 2
+	lb de, 0, 60
+	jp SetExpectedAIDamage
+
+NidorinaDoubleKick_MultiplierEffect: ; 2cabb (b:4abb)
+	ld hl, 30
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsXDamageText
+	ld a, 2
+	call TossCoinATimes_BankB
+	ld e, a
+	add a
+	add e
+	call ATimes10
+	call SetDefiniteDamage
+	ret
+
+NidorinoDoubleKick_AIEffect: ; 2cad3 (b:4ad3)
+	ld a, 60 / 2
+	lb de, 0, 60
+	jp SetExpectedAIDamage
+
+NidorinoDoubleKick_MultiplierEffect: ; 2cabb (b:4abb)
+	ld hl, 30
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsXDamageText
+	ld a, 2
+	call TossCoinATimes_BankB
+	ld e, a
+	add a
+	add e
+	call ATimes10
+	call SetDefiniteDamage
+	ret
+
+ButterfreeWhirlwind_CheckBench: ; 2caf3 (b:4af3)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetNonTurnDuelistVariable
+	cp 2
+	jr nc, .has_bench
+	; no bench, do not do effect
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	ret
+.has_bench
+	call DuelistSelectForcedSwitch
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	ret
+
+ButterfreeWhirlwind_SwitchEffect: ; 2cb09 (b:4b09)
+	ldh a, [hTemp_ffa0]
+	call HandleSwitchDefendingPokemonEffect
+	ret
+
+ButterfreeMegaDrainEffect: ; 2cb0f (b:4b0f)
+	ld hl, wDealtDamage
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	srl h
+	rr l
+	bit 0, l
+	jr z, .rounded
+	; round up to nearest 10
+	ld de, 10 / 2
+	add hl, de
+.rounded
+	ld e, l
+	ld d, h
+	call ApplyAndAnimateHPRecovery
+	ret
+
+WeedlePoisonSting_AIEffect: ; 2cb27 (b:4b27)
+	ld a, 5
+	lb de, 0, 10
+	jp UpdateExpectedAIDamage_AccountForPoison
+
+IvysaurPoisonPowder_AIEffect: ; 2cb2f (b:4b2f)
+	ld a, 10
+	lb de, 10, 10
+	jp UpdateExpectedAIDamage_AccountForPoison
+
+BulbasaurLeechSeedEffect: ; 2cb37 (b:4b37)
+	ld hl, wDealtDamage
+	ld a, [hli]
+	or [hl]
+	ret z ; return if no damage dealt
+	lb de, 0, 10
+	call ApplyAndAnimateHPRecovery
+	ret
+
+; returns carry if no Grass Energy in Play Area
+EnergyTrans_CheckPlayArea: ; 2cb44 (b:4b44)
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	call CheckCannotUseDueToStatus_OnlyToxicGasIfANon0
+	ret c ; cannot use Pkmn Power
+
+; search in Play Area for at least 1 Grass Energy type
+	ld a, DUELVARS_CARD_LOCATIONS
+	call GetTurnDuelistVariable
+.loop_deck
+	ld a, [hl]
+	and CARD_LOCATION_PLAY_AREA
+	jr z, .next
+	push hl
+	ld a, l
+	call GetCardIDFromDeckIndex
+	call GetCardType
+	pop hl
+	cp TYPE_ENERGY_GRASS
+	ret z
+.next
+	inc l
+	ld a, l
+	cp DECK_SIZE
+	jr c, .loop_deck
+
+; none found
+	ldtx hl, NoGrassEnergyText
+	scf
+	ret
+
+EnergyTrans_PrintProcedure: ; 2cb6f (b:4b6f)
+	ldtx hl, ProcedureForEnergyTransferText
+	bank1call DrawWholeScreenTextBox
+	or a
+	ret
+
+EnergyTrans_TransferEffect: ; 2cb77 (b:4b77)
+	ld a, DUELVARS_DUELIST_TYPE
+	call GetTurnDuelistVariable
+	cp DUELIST_TYPE_PLAYER
+	jr z, .player
+; not player
+	bank1call Func_61a1
+	bank1call PrintPlayAreaCardList_EnableLCD
+	ret
+
+.player
+	xor a
+	ldh [hCurSelectionItem], a
+	bank1call Func_61a1
+
+.draw_play_area
+	bank1call PrintPlayAreaCardList_EnableLCD
+	push af
+	ldh a, [hCurSelectionItem]
+	ld hl, PlayAreaSelectionMenuParameters
+	call InitializeMenuParameters
+	pop af
+	ld [wNumMenuItems], a
+
+; handle the action of taking a Grass Energy card
+.loop_input_take
+	call DoFrame
+	call HandleMenuInput
+	jr nc, .loop_input_take
+	cp -1 ; b press?
+	ret z
+
+; a press
+	ldh [hAIPkmnPowerEffectParam], a
+	ldh [hCurSelectionItem], a
+	call CheckIfCardHasGrassEnergyAttached
+	jr c, .play_sfx ; no Grass attached
+
+	ldh [hAIEnergyTransEnergyCard], a
+	ldh a, [hAIEnergyTransEnergyCard] ; useless
+	; temporarily take card away to draw Play Area
+	call AddCardToHand
+	bank1call PrintPlayAreaCardList_EnableLCD
+	ldh a, [hAIPkmnPowerEffectParam]
+	ld e, a
+	ldh a, [hAIEnergyTransEnergyCard]
+	; give card back
+	call PutHandCardInPlayArea
+
+	; draw Grass symbol near cursor
+	ldh a, [hAIPkmnPowerEffectParam]
+	ld b, SYM_GRASS
+	call DrawSymbolOnPlayAreaCursor
+
+; handle the action of placing a Grass Energy card
+.loop_input_put
+	call DoFrame
+	call HandleMenuInput
+	jr nc, .loop_input_put
+	cp -1 ; b press?
+	jr z, .remove_symbol
+
+; a press
+	ldh [hCurSelectionItem], a
+	ldh [hAIEnergyTransPlayAreaLocation], a
+	ld a, OPPACTION_6B15
+	call SetOppAction_SerialSendDuelData
+	ldh a, [hAIEnergyTransPlayAreaLocation]
+	ld e, a
+	ldh a, [hAIEnergyTransEnergyCard]
+	; give card being held to this Pokemon
+	call AddCardToHand
+	call PutHandCardInPlayArea
+
+.remove_symbol
+	ldh a, [hAIPkmnPowerEffectParam]
+	ld b, SYM_SPACE
+	call DrawSymbolOnPlayAreaCursor
+	call EraseCursor
+	jr .draw_play_area
+
+.play_sfx
+	call Func_3794
+	jr .loop_input_take
+
+EnergyTrans_AIEffect: ; 2cbfb (b:4bfb)
+	ldh a, [hAIEnergyTransPlayAreaLocation]
+	ld e, a
+	ldh a, [hAIEnergyTransEnergyCard]
+	call AddCardToHand
+	call PutHandCardInPlayArea
+	bank1call PrintPlayAreaCardList_EnableLCD
+	ret
+
+; returns carry if no Grass Energy cards
+; attached to card in Play Area location of a.
+; input:
+;	a = PLAY_AREA_* of location to check
+CheckIfCardHasGrassEnergyAttached: ; 2cc0a (b:4c0a)
+	or CARD_LOCATION_PLAY_AREA
+	ld e, a
+
+	ld a, DUELVARS_CARD_LOCATIONS
+	call GetTurnDuelistVariable
+.loop
+	ld a, [hl]
+	cp e
+	jr nz, .next
+	push de
+	push hl
+	ld a, l
+	call GetCardIDFromDeckIndex
+	call GetCardType
+	pop hl
+	pop de
+	cp TYPE_ENERGY_GRASS
+	jr z, .no_carry
+.next
+	inc l
+	ld a, l
+	cp DECK_SIZE
+	jr c, .loop
+	scf
+	ret
+.no_carry
+	ld a, l
+	or a
+	ret
+
+GrimerMinimizeEffect: ; 2cc30 (b:4c30)
+	ld a, SUBSTATUS1_REDUCE_BY_20
+	call ApplySubstatus1ToDefendingCard
+	ret
+
+ToxicGasEffect: ; 2cc36 (b:4c36)
+	scf
+	ret
+
+Sludge_AIEffect: ; 2cc38 (b:4c38)
+	ld a, 5
+	lb de, 0, 10
+	jp UpdateExpectedAIDamage_AccountForPoison
+
+; returns carry if no cards in Deck
+; or if Play Area is full already.
+BellsproutCallForFamily_CheckDeckAndPlayArea: ; 2cc40 (b:4c40)
+	call CheckIfDeckIsEmpty
+	ret c ; return if no cards in deck
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ldtx hl, NoSpaceOnTheBenchText
+	cp MAX_PLAY_AREA_POKEMON
+	ccf
+	ret
+
+BellsproutCallForFamily_PlayerSelectEffect: ; 2cc50 (b:4c50)
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+
+	call CreateDeckCardList
+	ldtx hl, ChooseABellsproutFromDeckText
+	ldtx bc, BellsproutText
+	lb de, SEARCHEFFECT_CARD_ID, BELLSPROUT
+	call LookForCardsInDeck
+	ret c
+
+; draw Deck list interface and print text
+	bank1call Func_5591
+	ldtx hl, ChooseABellsproutText
+	ldtx de, DuelistDeckText
+	bank1call SetCardListHeaderText
+
+.loop
+	bank1call DisplayCardList
+	jr c, .pressed_b
+	call GetCardIDFromDeckIndex
+	ld bc, BELLSPROUT
+	call CompareDEtoBC
+	jr nz, .play_sfx
+
+; Bellsprout was selected
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTemp_ffa0], a
+	or a
+	ret
+
+.play_sfx
+	; play SFX and loop back
+	call Func_3794
+	jr .loop
+
+.pressed_b
+; figure if Player can exit the screen without selecting,
+; that is, if the Deck has no Bellsprout card.
+	ld a, DUELVARS_CARD_LOCATIONS
+	call GetTurnDuelistVariable
+.loop_b_press
+	ld a, [hl]
+	cp CARD_LOCATION_DECK
+	jr nz, .next
+	ld a, l
+	call GetCardIDFromDeckIndex
+	ld bc, BELLSPROUT
+	call CompareDEtoBC
+	jr z, .play_sfx ; found Bellsprout, go back to top loop
+.next
+	inc l
+	ld a, l
+	cp DECK_SIZE
+	jr c, .loop_b_press
+
+; no Bellsprout in Deck, can safely exit screen
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	or a
+	ret
+
+BellsproutCallForFamily_AISelectEffect: ; 2ccad (b:4cad)
+	call CreateDeckCardList
+	ld hl, wDuelTempList
+.loop_deck
+	ld a, [hli]
+	ldh [hTemp_ffa0], a
+	cp $ff
+	ret z ; no Bellsprout
+	call GetCardIDFromDeckIndex
+	ld a, e
+	cp BELLSPROUT
+	jr nz, .loop_deck
+	ret ; Bellsprout found
+
+BellsproutCallForFamily_PutInPlayAreaEffect: ; 2ccc2 (b:4cc2)
+	ldh a, [hTemp_ffa0]
+	cp $ff
+	jr z, .shuffle
+	call SearchCardInDeckAndAddToHand
+	call AddCardToHand
+	call PutHandPokemonCardInPlayArea
+	call IsPlayerTurn
+	jr c, .shuffle
+	ldh a, [hTemp_ffa0]
+	ldtx hl, PlacedOnTheBenchText
+	bank1call DisplayCardDetailScreen
+.shuffle
+	call Func_2c0bd
+	ret
+
+WeezingSmog_AIEffect: ; 2cce2 (b:4ce2)
+	ld a, 5
+	lb de, 0, 10
+	jp UpdateExpectedAIDamage_AccountForPoison
+
+WeezingSelfdestructEffect: ; 2ccea (b:4cea)
+	ld a, 60
+	call DealRecoilDamageToSelf
+	ld a, $01
+	ld [wIsDamageToSelf], a
+	ld a, 10
+	call DealDamageToAllBenchedPokemon
+	call SwapTurn
+	xor a
+	ld [wIsDamageToSelf], a
+	ld a, 10
+	call DealDamageToAllBenchedPokemon
+	call SwapTurn
+	ret
+
+Shift_OncePerTurnCheck: ; 2cd09 (b:4d09)
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	add DUELVARS_ARENA_CARD_FLAGS
+	call GetTurnDuelistVariable
+	and USED_PKMN_POWER_THIS_TURN
+	jr nz, .already_used
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	call CheckCannotUseDueToStatus_OnlyToxicGasIfANon0
+	ret
+.already_used
+	ldtx hl, OnlyOncePerTurnText
+	scf
+	ret
+
+Shift_PlayerSelectEffect: ; 2cd21 (b:4d21)
+	ldtx hl, ChoosePokemonWishToColorChangeText
+	ldh a, [hTemp_ffa0]
+	or $80
+	call HandleColorChangeScreen
+	ldh [hAIPkmnPowerEffectParam], a
+	ret c ; cancelled
+
+; check whether the color selected is valid
+	; look in Turn Duelist's Play Area
+	call .CheckColorInPlayArea
+	ret nc
+	; look in NonTurn Duelist's Play Area
+	call SwapTurn
+	call .CheckColorInPlayArea
+	call SwapTurn
+	ret nc
+	; not found in either Duelist's Play Area
+	ldtx hl, UnableToSelectText
+	call DrawWideTextBox_WaitForInput
+	jr Shift_PlayerSelectEffect ; loop back to start
+
+; checks in input color in a exists in Turn Duelist's Play Area
+; returns carry if not found.
+.CheckColorInPlayArea: ; 2cd44 (b:4d44)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ld c, a
+	ld b, PLAY_AREA_ARENA
+.loop_play_area
+	push bc
+	ld a, b
+	call GetPlayAreaCardColor
+	pop bc
+	ld hl, hAIPkmnPowerEffectParam
+	cp [hl]
+	ret z ; found
+	inc b
+	dec c
+	jr nz, .loop_play_area
+	; not found
+	scf
+	ret
+
+Shift_ChangeColorEffect: ; 2cd5d (b:4d5d)
+	ldh a, [hTemp_ffa0]
+	add DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	call LoadCardDataToBuffer1_FromDeckIndex
+
+	ldh a, [hTemp_ffa0]
+	add DUELVARS_ARENA_CARD_FLAGS
+	call GetTurnDuelistVariable
+	set USED_PKMN_POWER_THIS_TURN_F, [hl]
+
+	ldh a, [hTemp_ffa0]
+	add DUELVARS_ARENA_CARD_CHANGED_TYPE
+	ld l, a
+	ldh a, [hAIPkmnPowerEffectParam]
+	or HAS_CHANGED_COLOR
+	ld [hl], a
+	call LoadCardNameAndInputColor
+	ldtx hl, ChangedTheColorOfText
+	call DrawWideTextBox_WaitForInput
+	ret
+
+VenomPowder_AIEffect: ; 2cd84 (b:4d84)
+	ld a, 5
+	lb de, 0, 10
+	jp UpdateExpectedAIDamage
+
+VenomPowder_PoisonConfusion50PercentEffect: ; 2cd8c (b:4d8c)
+	ldtx de, VenomPowderCheckText
+	call TossCoin_BankB
+	ret nc ; return if tails
+
+; heads
+	call PoisonEffect
+	call ConfusionEffect
+	ret c
+	ld a, CONFUSED | POISONED
+	ld [wNoEffectFromWhichStatus], a
+	ret
+
+TangelaPoisonPowder_AIEffect: ; 2cda0 (b:4da0)
+	ld a, 5
+	lb de, 0, 10
+	jp UpdateExpectedAIDamage_AccountForPoison
+
+Heal_OncePerTurnCheck: ; 2cda8 (b:4da8)
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	add DUELVARS_ARENA_CARD_FLAGS
+	call GetTurnDuelistVariable
+	and USED_PKMN_POWER_THIS_TURN
+	jr nz, .already_used
+
+	call CheckIfPlayAreaHasAnyDamage
+	ldtx hl, NoPokemonWithDamageCountersText
+	ret c ; no damage counters to heal
+
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	call CheckCannotUseDueToStatus_OnlyToxicGasIfANon0
+	ret
+
+.already_used
+	ldtx hl, OnlyOncePerTurnText
+	scf
+	ret
+
+Heal_RemoveDamageEffect: ; 2cdc7 (b:4dc7)
+	ldtx de, IfHeadsHealIsSuccessfulText
+	call TossCoin_BankB
+	ldh [hAIPkmnPowerEffectParam], a
+	jr nc, .done
+
+	ld a, DUELVARS_DUELIST_TYPE
+	call GetTurnDuelistVariable
+	cp DUELIST_TYPE_LINK_OPP
+	jr z, .link_opp
+	and DUELIST_TYPE_AI_OPP
+	jr nz, .done
+
+; player
+	ldtx hl, ChoosePkmnToRemoveDamageCounterText
+	call DrawWideTextBox_WaitForInput
+	bank1call HasAlivePokemonInPlayArea
+.loop_input
+	bank1call OpenPlayAreaScreenForSelection
+	jr c, .loop_input
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hPlayAreaEffectTarget], a
+	ld e, a
+	call GetCardDamageAndMaxHP
+	or a
+	jr z, .loop_input ; has no damage counters
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	call SerialSend8Bytes
+	jr .done
+
+.link_opp
+	call SerialRecv8Bytes
+	ldh [hPlayAreaEffectTarget], a
+	; fallthrough
+
+.done
+; flag Pkmn Power as being used regardless of coin outcome
+	ldh a, [hTemp_ffa0]
+	add DUELVARS_ARENA_CARD_FLAGS
+	call GetTurnDuelistVariable
+	set USED_PKMN_POWER_THIS_TURN_F, [hl]
+	ldh a, [hAIPkmnPowerEffectParam]
+	or a
+	ret z ; return if coin was tails
+
+	ldh a, [hPlayAreaEffectTarget]
+	add DUELVARS_ARENA_CARD_HP
+	call GetTurnDuelistVariable
+	add 10 ; remove 1 damage counter
+	ld [hl], a
+	ldh a, [hPlayAreaEffectTarget]
+	call Func_2c10b
+	call ExchangeRNG
+	ret
+
+PetalDance_AIEffect: ; 2ce23 (b:4e23)
+	ld a, 120 / 2
+	lb de, 0, 120
+	jp SetExpectedAIDamage
+
+PetalDance_MultiplierEffect: ; 2ce2b (b:4e2b)
+	ld hl, 40
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsXDamageText
+	ld a, 3
+	call TossCoinATimes_BankB
+	add a
+	add a
+	call ATimes10
+	; a = 4 * 10 * heads
+	call SetDefiniteDamage
+	call SwapTurn
+	call ConfusionEffect
+	call SwapTurn
+	ret
+
+PoisonWhip_AIEffect: ; 2ce4b (b:4e4b)
+	ld a, 10
+	lb de, 10, 10
+	jp UpdateExpectedAIDamage_AccountForPoison
+
+SolarPower_CheckUse: ; 2ce53 (b:4e53)
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	add DUELVARS_ARENA_CARD_FLAGS
+	call GetTurnDuelistVariable
+	and USED_PKMN_POWER_THIS_TURN
+	jr nz, .already_used
+
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	call CheckCannotUseDueToStatus_OnlyToxicGasIfANon0
+	ret c ; can't use PKMN due to status or Toxic Gas
+
+; return carry if none of the Arena cards have status conditions
+	ld a, DUELVARS_ARENA_CARD_STATUS
+	call GetTurnDuelistVariable
+	or a
+	jr nz, .has_status
+	ld a, DUELVARS_ARENA_CARD_STATUS
+	call GetNonTurnDuelistVariable
+	or a
+	jr z, .no_status
+.has_status
+	or a
+	ret
+.already_used
+	ldtx hl, OnlyOncePerTurnText
+	scf
+	ret
+.no_status
+	ldtx hl, NotAffectedByPoisonSleepParalysisOrConfusionText
+	scf
+	ret
+
+SolarPower_RemoveStatusEffect: ; 2ce82 (b:4e82)
+	ld a, ATK_ANIM_HEAL_BOTH_SIDES
+	ld [wLoadedAttackAnimation], a
+	bank1call Func_7415
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ld b, a
+	ld c, $00
+	ldh a, [hWhoseTurn]
+	ld h, a
+	bank1call PlayAttackAnimation
+	bank1call WaitAttackAnimation
+
+	ldh a, [hTemp_ffa0]
+	add DUELVARS_ARENA_CARD_FLAGS
+	call GetTurnDuelistVariable
+	set USED_PKMN_POWER_THIS_TURN_F, [hl]
+	ld l, DUELVARS_ARENA_CARD_STATUS
+	ld [hl], NO_STATUS
+
+	ld a, DUELVARS_ARENA_CARD_STATUS
+	call GetNonTurnDuelistVariable
+	ld [hl], NO_STATUS
+	bank1call DrawDuelHUDs
+	ret
+
+VenusaurMegaDrainEffect: ; 2ceb0 (b:4eb0)
+	ld hl, wDealtDamage
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	srl h
+	rr l
+	bit 0, l
+	jr z, .rounded
+	; round up to nearest 10
+	ld de, 10 / 2
+	add hl, de
+.rounded
+	ld e, l
+	ld d, h
+	call ApplyAndAnimateHPRecovery
+	ret
+
+; applies the damage bonus for attacks that get bonus
+; from extra Water energy cards.
+; this bonus is always 10 more damage for each extra Water energy
+; and is always capped at a maximum of 20 damage.
+; input:
+;	b = number of Water energy cards needed for paying Energy Cost
+;	c = number of colorless energy cards needed for paying Energy Cost
+ApplyExtraWaterEnergyDamageBonus: ; 2cec8 (b:4ec8)
+	ld a, [wMetronomeEnergyCost]
+	or a
+	jr z, .not_metronome
+	ld c, a ; amount of colorless needed for Metronome
+	ld b, 0 ; no Water energy needed for Metronome
+
+.not_metronome
+	push bc
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ld e, a
+	call GetPlayAreaCardAttachedEnergies
+	pop bc
+
+	ld hl, wAttachedEnergies + WATER
+	ld a, c
+	or a
+	jr z, .check_bonus ; is Energy cost all water energy?
+
+	; it's not, so we need to remove the
+	; Water energy cards from calculations
+	; if they pay for colorless instead.
+	ld a, [wTotalAttachedEnergies]
+	cp [hl]
+	jr nz, .check_bonus ; skip if at least 1 non-Water energy attached
+
+	; Water is the only energy color attached
+	ld a, c
+	add b
+	ld b, a
+	; b += c
+
+.check_bonus
+	ld a, [hl]
+	sub b
+	jr c, .skip_bonus ; is water energy <  b?
+	jr z, .skip_bonus ; is water energy == b?
+
+; a holds number of water energy not payed for energy cost
+	cp 3
+	jr c, .less_than_3
+	ld a, 2 ; cap this to 2 for bonus effect
+.less_than_3
+	call ATimes10
+	call AddToDamage ; add 10 * a to damage
+
+.skip_bonus
+	ld a, [wDamage]
+	ld [wAIMinDamage], a
+	ld [wAIMaxDamage], a
+	ret
+
+OmastarWaterGunEffect: ; 2cf05 (b:4f05)
+	lb bc, 1, 1
+	jr ApplyExtraWaterEnergyDamageBonus
+
+OmastarSpikeCannon_AIEffect: ; 2cf0a (b:4f0a)
+	ld a, 60 / 2
+	lb de, 0, 60
+	jp SetExpectedAIDamage
+
+OmastarSpikeCannon_MultiplierEffect: ; 2cf12 (b:4f12)
+	ld hl, 30
+	call LoadTxRam3
+	ld a, 2
+	ldtx de, DamageCheckIfHeadsXDamageText
+	call TossCoinATimes_BankB
+	ld e, a
+	add a
+	add e
+	call ATimes10
+	call SetDefiniteDamage ; 3 * 10 * heads
+	ret
+
+ClairvoyanceEffect: ; 2cf2a (b:4f2a)
+	scf
+	ret
+
+OmanyteWaterGunEffect: ; 2cf2c (b:4f2c)
+	lb bc, 1, 0
+	jp ApplyExtraWaterEnergyDamageBonus
+
+WartortleWithdrawEffect: ; 2cf32 (b:4f32)
+	ldtx de, IfHeadsNoDamageNextTurnText
+	call TossCoin_BankB
+	jp nc, SetWasUnsuccessful
+	ld a, ATK_ANIM_PROTECT
+	ld [wLoadedAttackAnimation], a
+	ld a, SUBSTATUS1_NO_DAMAGE_10
+	call ApplySubstatus1ToDefendingCard
+	ret
+
+RainDanceEffect: ; 2cf46 (b:4f46)
+	scf
+	ret
+
+HydroPumpEffect: ; 2cf48 (b:4f48)
+	lb bc, 3, 0
+	jp ApplyExtraWaterEnergyDamageBonus
+
+KinglerFlail_AIEffect: ; 2cf4e (b:4f4e)
+	call KinglerFlail_HPCheck
+	jp SetDefiniteAIDamage
+
+KinglerFlail_HPCheck: ; 2cf54 (b:4f54)
+	ld e, PLAY_AREA_ARENA
+	call GetCardDamageAndMaxHP
+	call SetDefiniteDamage
+	ret
+
+; returns carry if no cards in Deck
+; or if Play Area is full already.
+KrabbyCallForFamily_CheckDeckAndPlayArea: ; 2cf5d (b:4f5d)
+	call CheckIfDeckIsEmpty
+	ret c ; return if no cards in deck
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ldtx hl, NoSpaceOnTheBenchText
+	cp MAX_PLAY_AREA_POKEMON
+	ccf
+	ret
+
+KrabbyCallForFamily_PlayerSelectEffect: ; 2cf6d (b:4f6d)
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+
+	call CreateDeckCardList
+	ldtx hl, ChooseAKrabbyFromDeckText
+	ldtx bc, KrabbyText
+	lb de, SEARCHEFFECT_CARD_ID, KRABBY
+	call LookForCardsInDeck
+	ret c
+
+; draw Deck list interface and print text
+	bank1call Func_5591
+	ldtx hl, ChooseAKrabbyText
+	ldtx de, DuelistDeckText
+	bank1call SetCardListHeaderText
+
+.loop
+	bank1call DisplayCardList
+	jr c, .pressed_b
+	call GetCardIDFromDeckIndex
+	ld bc, KRABBY
+	call CompareDEtoBC
+	jr nz, .play_sfx
+
+; Krabby was selected
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTemp_ffa0], a
+	or a
+	ret
+
+.play_sfx
+	; play SFX and loop back
+	call Func_3794
+	jr .loop
+
+.pressed_b
+; figure if Player can exit the screen without selecting,
+; that is, if the Deck has no Krabby card.
+	ld a, DUELVARS_CARD_LOCATIONS
+	call GetTurnDuelistVariable
+.loop_b_press
+	ld a, [hl]
+	cp CARD_LOCATION_DECK
+	jr nz, .next
+	ld a, l
+	call GetCardIDFromDeckIndex
+	ld bc, KRABBY
+	call CompareDEtoBC
+	jr z, .play_sfx ; found Krabby, go back to top loop
+.next
+	inc l
+	ld a, l
+	cp DECK_SIZE
+	jr c, .loop_b_press
+
+; no Krabby in Deck, can safely exit screen
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	or a
+	ret
+
+KrabbyCallForFamily_AISelectEffect: ; 2cfdf (b:4fdf)
+	call CreateDeckCardList
+	ld hl, wDuelTempList
+.loop_deck
+	ld a, [hli]
+	ldh [hTemp_ffa0], a
+	cp $ff
+	ret z ; no Krabby
+	call GetCardIDFromDeckIndex
+	ld a, e
+	cp KRABBY
+	jr nz, .loop_deck
+	ret ; Krabby found
+
+KrabbyCallForFamily_PutInPlayAreaEffect: ; 2cfca (b:4fca)
+	ldh a, [hTemp_ffa0]
+	cp $ff
+	jr z, .shuffle
+	call SearchCardInDeckAndAddToHand
+	call AddCardToHand
+	call PutHandPokemonCardInPlayArea
+	call IsPlayerTurn
+	jr c, .shuffle
+	ldh a, [hTemp_ffa0]
+	ldtx hl, PlacedOnTheBenchText
+	bank1call DisplayCardDetailScreen
+.shuffle
+	call Func_2c0bd
+	ret
+
+MagikarpFlail_AIEffect: ; 2cfff (b:4fff)
+	call MagikarpFlail_HPCheck
+	jp SetDefiniteAIDamage
+
+MagikarpFlail_HPCheck: ; 2d005 (b:5005)
+	ld e, PLAY_AREA_ARENA
+	call GetCardDamageAndMaxHP
+	call SetDefiniteDamage
+	ret
+
+HeadacheEffect: ; 2d00e (b:500e)
+	ld a, DUELVARS_ARENA_CARD_SUBSTATUS3
+	call GetNonTurnDuelistVariable
+	set SUBSTATUS3_HEADACHE, [hl]
+	ret
+
+PsyduckFurySwipes_AIEffect: ; 2d016 (b:5016)
+	ld a, 30 / 2
+	lb de, 0, 30
+	jp SetExpectedAIDamage
+
+PsyduckFurySwipes_MultiplierEffect: ; 2d01e (b:501e)
+	ld hl, 10
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsXDamageText
+	ld a, 3
+	call TossCoinATimes_BankB
+	call ATimes10
+	call SetDefiniteDamage
+	ret
+
+GolduckHyperBeam_PlayerSelectEffect: ; 2d033 (b:5033)
+	call SwapTurn
+	ld e, PLAY_AREA_ARENA
+	call GetPlayAreaCardAttachedEnergies
+	ld a, [wTotalAttachedEnergies]
+	or a
+	jr z, .no_energy
+
+; draw Energy Card list screen
+	ldtx hl, ChooseDiscardEnergyCardFromOpponentText
+	call DrawWideTextBox_WaitForInput
+	xor a ; PLAY_AREA_ARENA
+	call CreateArenaOrBenchEnergyCardList
+	xor a ; PLAY_AREA_ARENA
+	bank1call DisplayEnergyDiscardScreen
+
+.loop_input
+	bank1call HandleEnergyDiscardMenuInput
+	jr c, .loop_input
+
+	call SwapTurn
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTemp_ffa0], a ; store selected card to discard
+	ret
+
+.no_energy
+	call SwapTurn
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	or a
+	ret
+
+GolduckHyperBeam_AISelectEffect: ; 2d065 (b:5065)
+	call AIPickEnergyCardToDiscardFromDefendingPokemon
+	ldh [hTemp_ffa0], a
+	ret
+
+GolduckHyperBeam_DiscardEffect: ; 2d06b (b:506b)
+	call HandleNoDamageOrEffect
+	ret c ; return if attack had no effect
+
+	; check if energy card was chosen to discard
+	ldh a, [hTemp_ffa0]
+	cp $ff
+	ret z ; return if none selected
+
+	; discard Defending card's energy
+	call SwapTurn
+	call PutCardInDiscardPile
+	ld a, DUELVARS_ARENA_CARD_LAST_TURN_EFFECT
+	call GetTurnDuelistVariable
+	ld [hl], LAST_TURN_EFFECT_DISCARD_ENERGY
+	call SwapTurn
+	ret
+
+SeadraWaterGunEffect: ; 2d085 (b:5085)
+	lb bc, 1, 1
+	jp ApplyExtraWaterEnergyDamageBonus
+
+SeadraAgilityEffect: ; 2d08b (b:508b)
+	ldtx de, IfHeadsDoNotReceiveDamageOrEffectText
+	call TossCoin_BankB
+	ret nc ; return if tails
+	ld a, ATK_ANIM_AGILITY_PROTECT
+	ld [wLoadedAttackAnimation], a
+	ld a, SUBSTATUS1_AGILITY
+	call ApplySubstatus1ToDefendingCard
+	ret
+
+ShellderSupersonicEffect: ; 2d09d (b:509d)
+	call Confusion50PercentEffect
+	call nc, SetNoEffectFromStatus
+	ret
+
+HideInShellEffect: ; 2d0a4 (b:50a4)
+	ldtx de, IfHeadsNoDamageNextTurnText
+	call TossCoin_BankB
+	jp nc, SetWasUnsuccessful
+	ld a, ATK_ANIM_PROTECT
+	ld [wLoadedAttackAnimation], a
+	ld a, SUBSTATUS1_NO_DAMAGE_11
+	call ApplySubstatus1ToDefendingCard
+	ret
+
+VaporeonQuickAttack_AIEffect: ; 2d0b8 (b:50b8)
+	ld a, (10 + 30) / 2
+	lb de, 10, 30
+	jp SetExpectedAIDamage
+
+VaporeonQuickAttack_DamageBoostEffect: ; 2d0c0 (b:50c0)
+	ld hl, 20
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsPlusDamageText
+	call TossCoin_BankB
+	ret nc ; return if tails
+	ld a, 20
+	call AddToDamage
+	ret
+
+VaporeonWaterGunEffect: ; 2d0d3 (b:50d3)
+	lb bc, 2, 1
+	jp ApplyExtraWaterEnergyDamageBonus
+
+; returns carry if Arena card has no Water Energy attached
+; or if it doesn't have any damage counters.
+StarmieRecover_CheckEnergyHP: ; 2d0d9 (b:50d9)
+	ld e, PLAY_AREA_ARENA
+	call GetPlayAreaCardAttachedEnergies
+	ld a, [wAttachedEnergies + WATER]
+	ldtx hl, NotEnoughWaterEnergyText
+	cp 1
+	ret c ; return if not enough energy
+	call GetCardDamageAndMaxHP
+	ldtx hl, NoDamageCountersText
+	cp 10
+	ret ; return carry if no damage
+
+StarmieRecover_PlayerSelectEffect: ; 2d0f0 (b:50f0)
+	ld a, TYPE_ENERGY_WATER
+	call CreateListOfEnergyAttachedToArena
+	xor a ; PLAY_AREA_ARENA
+	bank1call DisplayEnergyDiscardScreen
+.loop_input
+	bank1call HandleEnergyDiscardMenuInput
+	jr c, .loop_input
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTemp_ffa0], a ; store card chosen
+	ret
+
+StarmieRecover_AISelectEffect: ; 2d103 (b:5103)
+	ld a, TYPE_ENERGY_WATER
+	call CreateListOfEnergyAttachedToArena
+	ld a, [wDuelTempList] ; pick first card
+	ldh [hTemp_ffa0], a
+	ret
+
+StarmieRecover_DiscardEffect: ; 2d10e (b:510e)
+	ldh a, [hTemp_ffa0]
+	call PutCardInDiscardPile
+	ret
+
+StarmieRecover_HealEffect: ; 2d114 (b:5114)
+	ld e, PLAY_AREA_ARENA
+	call GetCardDamageAndMaxHP
+	ld e, a ; all damage for recovery
+	ld d, 0
+	call ApplyAndAnimateHPRecovery
+	ret
+
+SquirtleWithdrawEffect: ; 2d120 (b:5120)
+	ldtx de, IfHeadsNoDamageNextTurnText
+	call TossCoin_BankB
+	jp nc, SetWasUnsuccessful
+	ld a, ATK_ANIM_PROTECT
+	ld [wLoadedAttackAnimation], a
+	ld a, SUBSTATUS1_NO_DAMAGE_10
+	call ApplySubstatus1ToDefendingCard
+	ret
+
+HorseaSmokescreenEffect: ; 2d134 (b:5134)
+	ld a, SUBSTATUS2_SMOKESCREEN
+	call ApplySubstatus2ToDefendingCard
+	ret
+
+TentacruelSupersonicEffect: ; 2d13a (b:513a)
+	call Confusion50PercentEffect
+	call nc, SetNoEffectFromStatus
+	ret
+
+JellyfishSting_AIEffect: ; 2d141 (b:5141)
+	ld a, 10
+	lb de, 10, 10
+	jp UpdateExpectedAIDamage_AccountForPoison
+
+; returns carry if Defending Pokemon has no attacks
+PoliwhirlAmnesia_CheckAttacks: ; 2d149 (b:5149)
+	call SwapTurn
+	ld a, DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Atk1Category]
+	cp POKEMON_POWER
+	jr nz, .has_attack
+	ld hl, wLoadedCard2Atk2Name
+	ld a, [hli]
+	or [hl]
+	jr nz, .has_attack
+; has no attack
+	call SwapTurn
+	ldtx hl, NoAttackMayBeChoosenText
+	scf
+	ret
+.has_attack
+	call SwapTurn
+	or a
+	ret
+
+PoliwhirlAmnesia_PlayerSelectEffect: ; 2d16f (b:516f)
+	call PlayerPickAttackForAmnesia
+	ret
+
+PoliwhirlAmnesia_AISelectEffect: ; 2d173 (b:5173)
+	call AIPickAttackForAmnesia
+	ldh [hTemp_ffa0], a
+	ret
+
+PoliwhirlAmnesia_DisableEffect: ; 2d179 (b:5179)
+	call ApplyAmnesiaToAttack
+	ret
+
+PlayerPickAttackForAmnesia: ; 2d17d (b:517d)
+	ldtx hl, ChooseAttackOpponentWillNotBeAbleToUseText
+	call DrawWideTextBox_WaitForInput
+	call HandleDefendingPokemonAttackSelection
+	ld a, e
+	ldh [hTemp_ffa0], a
+	ret
+
+; applies the Amnesia effect on the defending Pokemon,
+; for the attack index in hTemp_ffa0.
+ApplyAmnesiaToAttack: ; 2d18a (b:518a)
+	ld a, SUBSTATUS2_AMNESIA
+	call ApplySubstatus2ToDefendingCard
+	ld a, [wNoDamageOrEffect]
+	or a
+	ret nz ; no effect
+
+; set selected attack as disabled
+	ld a, DUELVARS_ARENA_CARD_DISABLED_ATTACK_INDEX
+	call GetNonTurnDuelistVariable
+	ldh a, [hTemp_ffa0]
+	ld [hl], a
+
+	ld l, DUELVARS_ARENA_CARD_LAST_TURN_EFFECT
+	ld [hl], LAST_TURN_EFFECT_AMNESIA
+
+	call IsPlayerTurn
+	ret c ; return if Player
+
+; the rest of the routine if for Opponent
+; to announce which attack was used for Amnesia.
+	call SwapTurn
+	ld a, DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	ld d, a
+	ldh a, [hTemp_ffa0]
+	ld e, a
+	call GetAttackName
+	call LoadTxRam2
+	ldtx hl, WasChosenForTheEffectOfAmnesiaText
+	call DrawWideTextBox_WaitForInput
+	call SwapTurn
+	ret
+
+PoliwhirlDoubleslap_AIEffect: ; 2d1c0 (b:51c0)
+	ld a, 60 / 2
+	lb de, 0, 60
+	jp SetExpectedAIDamage
+
+PoliwhirlDoubleslap_MultiplierEffect: ; 2d1c8 (b:51c8)
+	ld hl, 30
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsXDamageText
+	ld a, 2
+	call TossCoinATimes_BankB
+	ld e, a
+	add a
+	add e
+	call ATimes10
+	call SetDefiniteDamage
+	ret
+
+PoliwrathWaterGunEffect: ; 2d1e0 (b:51e0)
+	lb bc, 2, 1
+	jp ApplyExtraWaterEnergyDamageBonus
+
+Whirlpool_PlayerSelectEffect: ; 2d1e6 (b:51e6)
+	call SwapTurn
+	xor a ; PLAY_AREA_ARENA
+	call CreateArenaOrBenchEnergyCardList
+	jr c, .no_energy
+
+	ldtx hl, ChooseDiscardEnergyCardFromOpponentText
+	call DrawWideTextBox_WaitForInput
+	xor a ; PLAY_AREA_ARENA
+	bank1call DisplayEnergyDiscardScreen
+.loop_input
+	bank1call HandleEnergyDiscardMenuInput
+	jr c, .loop_input
+
+	call SwapTurn
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTemp_ffa0], a ; store selected card to discard
+	ret
+
+.no_energy
+	call SwapTurn
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	ret
+
+Whirlpool_AISelectEffect: ; 2d20e (b:520e)
+	call AIPickEnergyCardToDiscardFromDefendingPokemon
+	ldh [hTemp_ffa0], a
+	ret
+
+Whirlpool_DiscardEffect: ; 2d214 (b:5214)
+	call HandleNoDamageOrEffect
+	ret c ; return if attack had no effect
+	ldh a, [hTemp_ffa0]
+	cp $ff
+	ret z ; return if none selected
+
+	; discard Defending card's energy
+	; this doesn't update DUELVARS_ARENA_CARD_LAST_TURN_EFFECT
+	call SwapTurn
+	call PutCardInDiscardPile
+	; ld a, DUELVARS_ARENA_CARD_LAST_TURN_EFFECT
+	; call GetTurnDuelistVariable
+	; ld [hl], LAST_TURN_EFFECT_DISCARD_ENERGY
+	call SwapTurn
+	ret
+
+PoliwagWaterGunEffect: ; 2d227 (b:5227)
+	lb bc, 1, 0
+	jp ApplyExtraWaterEnergyDamageBonus
+
+ClampEffect: ; 2d22d (b:522d)
+	ld a, ATK_ANIM_HIT_EFFECT
+	ld [wLoadedAttackAnimation], a
+	ldtx de, SuccessCheckIfHeadsAttackIsSuccessfulText
+	call TossCoin_BankB
+	jp c, ParalysisEffect
+; unsuccessful
+	xor a ; ATK_ANIM_NONE
+	ld [wLoadedAttackAnimation], a
+	call SetDefiniteDamage
+	call SetWasUnsuccessful
+	ret
+
+CloysterSpikeCannon_AIEffect: ; 2d246 (b:5246)
+	ld a, 60 / 2
+	lb de, 0, 60
+	jp SetExpectedAIDamage
+
+CloysterSpikeCannon_MultiplierEffect: ; 2d24e (b:524e)
+	ld hl, 30
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsXDamageText
+	ld a, 2
+	call TossCoinATimes_BankB
+	ld e, a
+	add a
+	add e
+	call ATimes10
+	call SetDefiniteDamage
+	ret
+
+Blizzard_BenchDamage50PercentEffect: ; 2d266 (b:5266)
+	ldtx de, DamageToOppBenchIfHeadsDamageToYoursIfTailsText
+	call TossCoin_BankB
+	ldh [hTemp_ffa0], a ; store coin result
+	ret
+
+Blizzard_BenchDamageEffect: ; 2d26f (b:526f)
+	ldh a, [hTemp_ffa0]
+	or a
+	jr nz, .opp_bench
+
+; own bench
+	ld a, $01
+	ld [wIsDamageToSelf], a
+	ld a, 10
+	call DealDamageToAllBenchedPokemon
+	ret
+
+.opp_bench
+	call SwapTurn
+	ld a, 10
+	call DealDamageToAllBenchedPokemon
+	call SwapTurn
+	ret
+
+; return carry if can use Cowardice
+Cowardice_Check: ; 2d28b (b:528b)
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	call CheckCannotUseDueToStatus_OnlyToxicGasIfANon0
+	ret c ; return if cannot use
+
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ldtx hl, EffectNoPokemonOnTheBenchText
+	cp 2
+	ret c ; return if no bench
+
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	add DUELVARS_ARENA_CARD_FLAGS
+	call GetTurnDuelistVariable
+	ldtx hl, CannotBeUsedInTurnWhichWasPlayedText
+	and CAN_EVOLVE_THIS_TURN
+	scf
+	ret z ; return if was played this turn
+
+	or a
+	ret
+
+Cowardice_PlayerSelectEffect: ; 2d2ae (b:52ae)
+	ldh a, [hTemp_ffa0]
+	or a
+	ret nz ; return if not Arena card
+	ldtx hl, SelectPokemonToPlaceInTheArenaText
+	call DrawWideTextBox_WaitForInput
+	bank1call HasAlivePokemonInBench
+	bank1call OpenPlayAreaScreenForSelection
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hAIPkmnPowerEffectParam], a
+	ret
+
+Cowardice_RemoveFromPlayAreaEffect: ; 2d2c3 (b:52c3)
+	ldh a, [hTemp_ffa0]
+	add DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+
+; put card in Discard Pile temporarily, so that
+; all cards attached are discarded as well.
+	push af
+	ldh a, [hTemp_ffa0]
+	ld e, a
+	call MovePlayAreaCardToDiscardPile
+
+; if card was in Arena, swap selected Bench
+; Pokemon with Arena, otherwise skip.
+	ldh a, [hTemp_ffa0]
+	or a
+	jr nz, .skip_switch
+	ldh a, [hAIPkmnPowerEffectParam]
+	ld e, a
+	call SwapArenaWithBenchPokemon
+
+.skip_switch
+; move card back to Hand from Discard Pile
+; and adjust Play Area
+	pop af
+	call MoveDiscardPileCardToHand
+	call AddCardToHand
+	call ShiftAllPokemonToFirstPlayAreaSlots
+
+	xor a
+	ld [wDuelDisplayedScreen], a
+	ret
+
+LaprasWaterGunEffect: ; 2d2eb (b:52eb)
+	lb bc, 1, 0
+	jp ApplyExtraWaterEnergyDamageBonus
+
+Quickfreeze_InitialEffect: ; 2d2f1 (b:52f1)
+	scf
+	ret
+
+Quickfreeze_Paralysis50PercentEffect: ; 2d2f3 (b:52f3)
+	ldtx de, ParalysisCheckText
+	call TossCoin_BankB
+	jr c, .heads
+
+; tails
+	call SetWasUnsuccessful
+	bank1call DrawDuelMainScene
+	bank1call Func_1bca
+	call WaitForWideTextBoxInput
+	ret
+
+.heads
+	call ParalysisEffect
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ld b, a
+	ld c, $00
+	ldh a, [hWhoseTurn]
+	ld h, a
+	bank1call PlayAttackAnimation
+	bank1call Func_741a
+	bank1call WaitAttackAnimation
+	bank1call Func_6df1
+	bank1call DrawDuelHUDs
+	bank1call Func_1bca
+	call c, WaitForWideTextBoxInput
+	ret
+
+IceBreath_ZeroDamage: ; 2d329 (b:5329)
+	xor a
+	call SetDefiniteDamage
+	ret
+
+IceBreath_RandomPokemonDamageEffect: ; 2d32e (b:532e)
+	call SwapTurn
+	call PickRandomPlayAreaCard
+	ld b, a
+	ld de, 40
+	call DealDamageToPlayAreaPokemon_RegularAnim
+	call SwapTurn
+	ret
+
+FocusEnergyEffect: ; 2d33f (b:533f)
+	ld a, [wTempTurnDuelistCardID]
+	cp VAPOREON1
+	ret nz ; return if no Vaporeon1
+	ld a, SUBSTATUS1_NEXT_TURN_DOUBLE_DAMAGE
+	call ApplySubstatus1ToDefendingCard
+	ret
+
+PlayerPickFireEnergyCardToDiscard: ; 2d34b (b:534b)
+	call CreateListOfFireEnergyAttachedToArena
+	xor a
+	bank1call DisplayEnergyDiscardScreen
+	bank1call HandleEnergyDiscardMenuInput
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTempList], a
+	ret
+
+AIPickFireEnergyCardToDiscard: ; 2d35a (b:535a)
+	call CreateListOfFireEnergyAttachedToArena
+	ld a, [wDuelTempList]
+	ldh [hTempList], a ; pick first in list
+	ret
+
+; returns carry if Arena card has no Fire Energy cards
+ArcanineFlamethrower_CheckEnergy: ; 2d363 (b:5363)
+	ld e, PLAY_AREA_ARENA
+	call GetPlayAreaCardAttachedEnergies
+	ld a, [wAttachedEnergies]
+	ldtx hl, NotEnoughFireEnergyText
+	cp 1
+	ret
+
+ArcanineFlamethrower_PlayerSelectEffect: ; 2d371 (b:5371)
+	call PlayerPickFireEnergyCardToDiscard
+	ret
+
+ArcanineFlamethrower_AISelectEffect: ; 2d375 (b:5375)
+	call AIPickFireEnergyCardToDiscard
+	ret
+
+ArcanineFlamethrower_DiscardEffect: ; 2d379 (b:5379)
+	ldh a, [hTempList]
+	call PutCardInDiscardPile
+	ret
+
+TakeDownEffect: ; 2d37f (b:537f)
+	ld a, 30
+	call DealRecoilDamageToSelf
+	ret
+
+ArcanineQuickAttack_AIEffect: ; 2d385 (b:5385)
+	ld a, (10 + 30) / 2
+	lb de, 10, 30
+	jp SetExpectedAIDamage
+
+ArcanineQuickAttack_DamageBoostEffect: ; 2d38d (b:538d)
+	ld hl, 20
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsPlusDamageText
+	call TossCoin_BankB
+	ret nc ; return if tails
+	ld a, 20
+	call AddToDamage
+	ret
+
+; return carry if has less than 2 Fire Energy cards
+FlamesOfRage_CheckEnergy: ; 2d3a0 (b:53a0)
+	ld e, PLAY_AREA_ARENA
+	call GetPlayAreaCardAttachedEnergies
+	ld a, [wAttachedEnergies]
+	ldtx hl, NotEnoughFireEnergyText
+	cp 2
+	ret
+
+FlamesOfRage_PlayerSelectEffect: ; 2d3ae (b:53ae)
+	ldtx hl, ChooseAndDiscard2FireEnergyCardsText
+	call DrawWideTextBox_WaitForInput
+
+	xor a
+	ldh [hCurSelectionItem], a
+	call CreateListOfFireEnergyAttachedToArena
+	xor a
+	bank1call DisplayEnergyDiscardScreen
+.loop_input
+	bank1call HandleEnergyDiscardMenuInput
+	ret c
+	call GetNextPositionInTempList
+	ldh a, [hTempCardIndex_ff98]
+	ld [hl], a
+	call RemoveCardFromDuelTempList
+	ldh a, [hCurSelectionItem]
+	cp 2
+	ret nc ; return when 2 have been chosen
+	bank1call DisplayEnergyDiscardMenu
+	jr .loop_input
+
+FlamesOfRage_AISelectEffect: ; 2d3d5 (b:53d5)
+	call AIPickFireEnergyCardToDiscard
+	ld a, [wDuelTempList + 1]
+	ldh [hTempList + 1], a
+	ret
+
+FlamesOfRage_DiscardEffect: ; 2d3de (b:53de)
+	ldh a, [hTempList]
+	call PutCardInDiscardPile
+	ldh a, [hTempList + 1]
+	call PutCardInDiscardPile
+	ret
+
+FlamesOfRage_AIEffect: ; 2d3e9 (b:53e9)
+	call FlamesOfRage_DamageBoostEffect
+	jp SetDefiniteAIDamage
+
+FlamesOfRage_DamageBoostEffect: ; 2d3ef (b:53ef)
+	ld e, PLAY_AREA_ARENA
+	call GetCardDamageAndMaxHP
+	call AddToDamage
+	ret
+
+RapidashStomp_AIEffect: ; 2d3f8 (b:53f8)
+	ld a, (20 + 30) / 2
+	lb de, 20, 30
+	jp SetExpectedAIDamage
+
+RapidashStomp_DamageBoostEffect: ; 2d400 (b:5400)
+	ld hl, 10
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsPlusDamageText
+	call TossCoin_BankB
+	ret nc ; return if tails
+	ld a, 10
+	call AddToDamage
+	ret
+
+RapidashAgilityEffect: ; 2d413 (b:5413)
+	ldtx de, IfHeadsDoNotReceiveDamageOrEffectText
+	call TossCoin_BankB
+	ret nc ; return if tails
+	ld a, ATK_ANIM_AGILITY_PROTECT
+	ld [wLoadedAttackAnimation], a
+	ld a, SUBSTATUS1_AGILITY
+	call ApplySubstatus1ToDefendingCard
+	ret
+
+; returns carry if Opponent has no Pokemon in bench
+NinetalesLure_CheckBench: ; 2d425 (b:5425)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetNonTurnDuelistVariable
+	ldtx hl, EffectNoPokemonOnTheBenchText
+	cp 2
+	ret
+
+NinetalesLure_PlayerSelectEffect: ; 2d430 (b:5430)
+	ldtx hl, SelectPkmnOnBenchToSwitchWithActiveText
+	call DrawWideTextBox_WaitForInput
+	call SwapTurn
+	bank1call HasAlivePokemonInBench
+.loop_input
+	bank1call OpenPlayAreaScreenForSelection
+	jr c, .loop_input
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	call SwapTurn
+	ret
+
+NinetalesLure_AISelectEffect: ; 2d449 (b:5449)
+	call GetBenchPokemonWithLowestHP
+	ldh [hTemp_ffa0], a
+	ret
+
+NinetalesLure_SwitchEffect: ; 2d44f (b:544f)
+	call SwapTurn
+	ldh a, [hTemp_ffa0]
+	ld e, a
+	call HandleNShieldAndTransparency
+	call nc, SwapArenaWithBenchPokemon
+	call SwapTurn
+	xor a
+	ld [wDuelDisplayedScreen], a
+	ret
+
+; return carry if no Fire energy cards
+FireBlast_CheckEnergy: ; 2d463 (b:5463)
+	ld e, PLAY_AREA_ARENA
+	call GetPlayAreaCardAttachedEnergies
+	ldtx hl, NotEnoughFireEnergyText
+	ld a, [wAttachedEnergies]
+	cp 1
+	ret
+
+FireBlast_PlayerSelectEffect: ; 2d471 (b:5471)
+	call PlayerPickFireEnergyCardToDiscard
+	ret
+
+FireBlast_AISelectEffect: ; 2d475 (b:5475)
+	call AIPickFireEnergyCardToDiscard
+	ret
+
+FireBlast_DiscardEffect: ; 2d479 (b:5479)
+	ldh a, [hTempList]
+	call PutCardInDiscardPile
+	ret
+
+; return carry if no Fire energy cards
+Ember_CheckEnergy: ; 2d47f (b:547f)
+	ld e, PLAY_AREA_ARENA
+	call GetPlayAreaCardAttachedEnergies
+	ldtx hl, NotEnoughFireEnergyText
+	ld a, [wAttachedEnergies]
+	cp 1
+	ret
+
+Ember_PlayerSelectEffect: ; 2d48d (b:548d)
+	call PlayerPickFireEnergyCardToDiscard
+	ret
+
+Ember_AISelectEffect: ; 2d491 (b:5491)
+	call AIPickFireEnergyCardToDiscard
+	ret
+
+Ember_DiscardEffect: ; 2d495 (b:5495)
+	ldh a, [hTempList]
+	call PutCardInDiscardPile
+	ret
+
+; return carry if no Fire energy cards
+Wildfire_CheckEnergy: ; 2d49b (b:549b)
+	ld e, PLAY_AREA_ARENA
+	call GetPlayAreaCardAttachedEnergies
+	ldtx hl, NotEnoughFireEnergyText
+	ld a, [wAttachedEnergies]
+	cp 1
+	ret
+
+Wildfire_PlayerSelectEffect: ; 2d4a9 (b:54a9)
+	ldtx hl, DiscardOppDeckAsManyFireEnergyCardsText
+	call DrawWideTextBox_WaitForInput
+
+	xor a
+	ldh [hCurSelectionItem], a
+	call CreateListOfFireEnergyAttachedToArena
+	xor a
+	bank1call DisplayEnergyDiscardScreen
+
+; show list to Player and for each card selected to discard,
+; just increase a counter and store it.
+; this will be the output used by Wildfire_DiscardEnergyEffect.
+	xor a
+	ld [wEnergyDiscardMenuDenominator], a
+.loop
+	ldh a, [hCurSelectionItem]
+	ld [wEnergyDiscardMenuNumerator], a
+	bank1call HandleEnergyDiscardMenuInput
+	jr c, .done
+	ld hl, hCurSelectionItem
+	inc [hl]
+	call RemoveCardFromDuelTempList
+	jr c, .done
+	bank1call DisplayEnergyDiscardMenu
+	jr .loop
+
+.done
+; return carry if no cards were discarded
+; output the result in hTemp_ffa0
+	ldh a, [hCurSelectionItem]
+	ldh [hTemp_ffa0], a
+	or a
+	ret nz
+	scf
+	ret
+
+Wildfire_AISelectEffect: ; 2d4dd (b:54dd)
+; AI always chooses 0 cards to discard
+	xor a
+	ldh [hTempList], a
+	ret
+
+Wildfire_DiscardEnergyEffect: ; 2d4e1 (b:54e1)
+	call CreateListOfFireEnergyAttachedToArena
+	ldh a, [hTemp_ffa0]
+	or a
+	ret z ; no cards to discard
+
+; discard cards from wDuelTempList equal to the number
+; of cards that were input in hTemp_ffa0.
+; these are all the Fire Energy cards attached to Arena card
+; so it will discard the cards in order, regardless
+; of the actual order that was selected by Player.
+	ld c, a
+	ld hl, wDuelTempList
+.loop_discard
+	ld a, [hli]
+	call PutCardInDiscardPile
+	dec c
+	jr nz, .loop_discard
+	ret
+
+Wildfire_DiscardDeckEffect: ; 2d4f4 (b:54f4)
+	ldh a, [hTemp_ffa0]
+	ld c, a
+	ld b, $00
+	call SwapTurn
+	ld a, DUELVARS_NUMBER_OF_CARDS_NOT_IN_DECK
+	call GetTurnDuelistVariable
+	ld a, DECK_SIZE
+	sub [hl]
+	cp c
+	jr nc, .start_discard
+	; only discard number of cards that are left in deck
+	ld c, a
+
+.start_discard
+	push bc
+	inc c
+	jr .check_remaining
+
+.loop
+	; discard top card from deck
+	call DrawCardFromDeck
+	call nc, PutCardInDiscardPile
+.check_remaining
+	dec c
+	jr nz, .loop
+
+	pop hl
+	call LoadTxRam3
+	ldtx hl, DiscardedCardsFromDeckText
+	call DrawWideTextBox_PrintText
+	call SwapTurn
+	ret
+
+Moltres1DiveBomb_AIEffect: ; 2d523 (b:5523)
+	ld a, 80 / 2
+	lb de, 0, 80
+	jp SetExpectedAIDamage
+
+Moltres1DiveBomb_Success50PercentEffect: ; 2d52b (b:552b)
+	ldtx de, SuccessCheckIfHeadsAttackIsSuccessfulText
+	call TossCoin_BankB
+	jr c, .heads
+; tails
+	xor a
+	call SetDefiniteDamage
+	call SetWasUnsuccessful
+	ret
+.heads
+	ld a, ATK_ANIM_DIVE_BOMB
+	ld [wLoadedAttackAnimation], a
+	ret
+
+FlareonQuickAttack_AIEffect: ; 2d541 (b:5541)
+	ld a, (10 + 30) / 2
+	lb de, 10, 30
+	jp SetExpectedAIDamage
+
+FlareonQuickAttack_DamageBoostEffect: ; 2d549 (b:5549)
+	ld hl, 20
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsPlusDamageText
+	call TossCoin_BankB
+	ret nc ; return if tails
+	ld a, 20
+	call AddToDamage
+	ret
+
+; return carry if no Fire Energy attached
+FlareonFlamethrower_CheckEnergy: ; 2d55c (b:555c)
+	ld e, PLAY_AREA_ARENA
+	call GetPlayAreaCardAttachedEnergies
+	ldtx hl, NotEnoughFireEnergyText
+	ld a, [wAttachedEnergies]
+	cp 1
+	ret
+
+FlareonFlamethrower_PlayerSelectEffect: ; 2d56a (b:556a)
+	call PlayerPickFireEnergyCardToDiscard
+	ret
+
+FlareonFlamethrower_AISelectEffect: ; 2d56e (b:556e)
+	call AIPickFireEnergyCardToDiscard
+	ret
+
+FlareonFlamethrower_DiscardEffect: ; 2d572 (b:5572)
+	ldh a, [hTempList]
+	call PutCardInDiscardPile
+	ret
+
+; return carry if no Fire Energy attached
+MagmarFlamethrower_CheckEnergy: ; 2d578 (b:5578)
+	ld e, PLAY_AREA_ARENA
+	call GetPlayAreaCardAttachedEnergies
+	ldtx hl, NotEnoughFireEnergyText
+	ld a, [wAttachedEnergies]
+	cp 1
+	ret
+
+MagmarFlamethrower_PlayerSelectEffect: ; 2d586 (b:5586)
+	call PlayerPickFireEnergyCardToDiscard
+	ret
+
+MagmarFlamethrower_AISelectEffect: ; 2d58a (b:558a)
+	call AIPickFireEnergyCardToDiscard
+	ret
+
+MagmarFlamethrower_DiscardEffect: ; 2d58e (b:558e)
+	ldh a, [hTempList]
+	call PutCardInDiscardPile
+	ret
+
+MagmarSmokescreenEffect: ; 2d594 (b:5594)
+	ld a, SUBSTATUS2_SMOKESCREEN
+	call ApplySubstatus2ToDefendingCard
+	ret
+
+MagmarSmog_AIEffect: ; 2d59a (b:559a)
+	ld a, 5
+	lb de, 0, 10
+	jp UpdateExpectedAIDamage_AccountForPoison
+
+; return carry if no Fire Energy attached
+CharmeleonFlamethrower_CheckEnergy: ; 2d5a2 (b:55a2)
+	ld e, PLAY_AREA_ARENA
+	call GetPlayAreaCardAttachedEnergies
+	ldtx hl, NotEnoughFireEnergyText
+	ld a, [wAttachedEnergies]
+	cp 1
+	ret
+
+CharmeleonFlamethrower_PlayerSelectEffect: ; 2d5b0 (b:55b0)
+	call PlayerPickFireEnergyCardToDiscard
+	ret
+
+CharmeleonFlamethrower_AISelectEffect: ; 2d5b4 (b:55b4)
+	call AIPickFireEnergyCardToDiscard
+	ret
+
+CharmeleonFlamethrower_DiscardEffect: ; 2d5b8 (b:55b8)
+	ldh a, [hTempList]
+	call PutCardInDiscardPile
+	ret
+
+EnergyBurnEffect: ; 2d5be (b:55be)
+	scf
+	ret
+
+; return carry if has less than 2 Fire Energy cards
+FireSpin_CheckEnergy: ; 2d5c0 (b:55c0)
+	xor a ; PLAY_AREA_ARENA
+	call CreateArenaOrBenchEnergyCardList
+	call CountCardsInDuelTempList
+	ldtx hl, NotEnoughEnergyCardsText
+	cp 2
+	ret
+
+FireSpin_PlayerSelectEffect: ; 2d5cd (b:55cd)
+	ldtx hl, ChooseAndDiscard2EnergyCardsText
+	call DrawWideTextBox_WaitForInput
+
+	xor a
+	ldh [hCurSelectionItem], a
+	xor a
+	call CreateArenaOrBenchEnergyCardList
+	call SortCardsInDuelTempListByID
+	xor a
+	bank1call DisplayEnergyDiscardScreen
+
+	ld a, 2
+	ld [wEnergyDiscardMenuDenominator], a
+.loop_input
+	bank1call HandleEnergyDiscardMenuInput
+	ret c
+	call GetNextPositionInTempList
+	ldh a, [hTempCardIndex_ff98]
+	ld [hl], a
+	ld hl, wEnergyDiscardMenuNumerator
+	inc [hl]
+	ldh a, [hCurSelectionItem]
+	cp 2
+	jr nc, .done
+	ldh a, [hTempCardIndex_ff98]
+	call RemoveCardFromDuelTempList
+	bank1call DisplayEnergyDiscardMenu
+	jr .loop_input
+.done
+; return when 2 have been chosen
+	or a
+	ret
+
+FireSpin_AISelectEffect: ; 2d606 (b:5606)
+	xor a ; PLAY_AREA_ARENA
+	call CreateArenaOrBenchEnergyCardList
+	ld hl, wDuelTempList
+	ld a, [hli]
+	ldh [hTempList], a
+	ld a, [hl]
+	ldh [hTempList + 1], a
+	ret
+
+FireSpin_DiscardEffect: ; 2d614 (b:5614)
+	ld hl, hTempList
+	ld a, [hli]
+	call PutCardInDiscardPile
+	ld a, [hli]
+	call PutCardInDiscardPile
+	ret
+
+; returns carry if Pkmn Power cannot be used
+; or if Arena card is not Charizard.
+; this is unused.
+EnergyBurnCheck_Unreferenced: ; 2d620 (b:5620)
+	xor a
+	bank1call CheckCannotUseDueToStatus_OnlyToxicGasIfANon0
+	ret c
+	ld a, DUELVARS_ARENA_CARD
+	push de
+	call GetTurnDuelistVariable
+	call GetCardIDFromDeckIndex
+	ld a, e
+	pop de
+	cp CHARIZARD
+	jr nz, .not_charizard
+	or a
+	ret
+.not_charizard
+	scf
+	ret
+
+FlareonRage_AIEffect: ; 2d638 (b:5638)
+	call FlareonRage_DamageBoostEffect
+	jp SetDefiniteAIDamage
+
+FlareonRage_DamageBoostEffect: ; 2d63e (b:563e)
+	ld e, PLAY_AREA_ARENA
+	call GetCardDamageAndMaxHP
+	call AddToDamage
+	ret
+
+MixUpEffect: ; 2d647 (b:5647)
+	call SwapTurn
+	call CreateHandCardList
+	call SortCardsInDuelTempListByID
+
+; first go through Hand to place
+; all Pkmn cards in it in the Deck.
+	ld hl, wDuelTempList
+	ld c, 0
+.loop_hand
+	ld a, [hl]
+	cp $ff
+	jr z, .done_hand
+	call .CheckIfCardIsPkmnCard
+	jr nc, .next_hand
+	; found Pkmn card, place in deck
+	inc c
+	ld a, [hl]
+	call RemoveCardFromHand
+	call ReturnCardToDeck
+.next_hand
+	inc hl
+	jr .loop_hand
+
+.done_hand
+	ld a, c
+	ldh [hCurSelectionItem], a
+	push bc
+	ldtx hl, ThePkmnCardsInHandAndDeckWereShuffledText
+	call DrawWideTextBox_WaitForInput
+
+	call Func_2c0bd
+	call CreateDeckCardList
+	pop bc
+	ldh a, [hCurSelectionItem]
+	or a
+	jr z, .done ; if no cards were removed from Hand, return
+
+; c holds the number of cards that were placed in the Deck.
+; now pick Pkmn cards from the Deck to place in Hand.
+	ld hl, wDuelTempList
+.loop_deck
+	ld a, [hl]
+	call .CheckIfCardIsPkmnCard
+	jr nc, .next_deck
+	dec c
+	ld a, [hl]
+	call SearchCardInDeckAndAddToHand
+	call AddCardToHand
+.next_deck
+	inc hl
+	ld a, c
+	or a
+	jr nz, .loop_deck
+.done
+	call SwapTurn
+	ret
+
+; returns carry if card index in a is Pkmn card
+.CheckIfCardIsPkmnCard: ; 2d69a (b:569a)
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Type]
+	cp TYPE_ENERGY
+	ret
+
+DancingEmbers_AIEffect: ; 2d6a3 (b:56a3)
+	ld a, 80 / 2
+	lb de, 0, 80
+	jp SetExpectedAIDamage
+
+DancingEmbers_MultiplierEffect: ; 2d6ab (b:56ab)
+	ld hl, 10
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsXDamageText
+	ld a, 8
+	call TossCoinATimes_BankB
+	call ATimes10
+	call SetDefiniteDamage
+	ret
+
+Firegiver_InitialEffect: ; 2d6c0 (b:56c0)
+	scf
+	ret
+
+Firegiver_AddToHandEffect: ; 2d6c2 (b:56c2)
+; fill wDuelTempList with all Fire Energy card
+; deck indices that are in the Deck.
+	ld a, DUELVARS_CARD_LOCATIONS
+	call GetTurnDuelistVariable
+	ld de, wDuelTempList
+	ld c, 0
+.loop_cards
+	ld a, [hl]
+	cp CARD_LOCATION_DECK
+	jr nz, .next
+	push hl
+	push de
+	ld a, l
+	call GetCardIDFromDeckIndex
+	call GetCardType
+	pop de
+	pop hl
+	cp TYPE_ENERGY_FIRE
+	jr nz, .next
+	ld a, l
+	ld [de], a
+	inc de
+	inc c
+.next
+	inc l
+	ld a, l
+	cp DECK_SIZE
+	jr c, .loop_cards
+	ld a, $ff
+	ld [de], a
+
+; check how many were found
+	ld a, c
+	or a
+	jr nz, .found
+	; return if none found
+	ldtx hl, ThereWasNoFireEnergyText
+	call DrawWideTextBox_WaitForInput
+	call Func_2c0bd
+	ret
+
+.found
+; pick a random number between 1 and 4,
+; up to the maximum number of Fire Energy
+; cards that were found.
+	ld a, 4
+	call Random
+	inc a
+	cp c
+	jr c, .ok
+	ld a, c
+
+.ok
+	ldh [hCurSelectionItem], a
+; load correct attack animation depending
+; on what side the effect is from.
+	ld d, ATK_ANIM_FIREGIVER_PLAYER
+	ld a, [wDuelistType]
+	cp DUELIST_TYPE_PLAYER
+	jr z, .player_1
+; opponent
+	ld d, ATK_ANIM_FIREGIVER_OPP
+.player_1
+	ld a, d
+	ld [wLoadedAttackAnimation], a
+
+; start loop for adding Energy cards to hand
+	ldh a, [hCurSelectionItem]
+	ld c, a
+	ld hl, wDuelTempList
+.loop_energy
+	push hl
+	push bc
+	ld bc, $0
+	ldh a, [hWhoseTurn]
+	ld h, a
+	bank1call PlayAttackAnimation
+	bank1call WaitAttackAnimation
+
+; load correct coordinates to update the number of cards
+; in hand and deck during animation.
+	lb bc, 18, 7 ; x, y for hand number
+	ld e, 3 ; y for deck number
+	ld a, [wLoadedAttackAnimation]
+	cp ATK_ANIM_FIREGIVER_PLAYER
+	jr z, .player_2
+	lb bc, 4, 5 ; x, y for hand number
+	ld e, 10 ; y for deck number
+
+.player_2
+; update and print number of cards in hand
+	ld a, DUELVARS_NUMBER_OF_CARDS_IN_HAND
+	call GetTurnDuelistVariable
+	inc a
+	bank1call WriteTwoDigitNumberInTxSymbolFormat
+; update and print number of cards in deck
+	ld a, DUELVARS_NUMBER_OF_CARDS_NOT_IN_DECK
+	call GetTurnDuelistVariable
+	ld a, DECK_SIZE - 1
+	sub [hl]
+	ld c, e
+	bank1call WriteTwoDigitNumberInTxSymbolFormat
+
+; load Fire Energy card index and add to hand
+	pop bc
+	pop hl
+	ld a, [hli]
+	call SearchCardInDeckAndAddToHand
+	call AddCardToHand
+	dec c
+	jr nz, .loop_energy
+
+; load the number of cards added to hand and print text
+	ldh a, [hCurSelectionItem]
+	ld l, a
+	ld h, $00
+	call LoadTxRam3
+	ldtx hl, DrewFireEnergyFromTheHandText
+	call DrawWideTextBox_WaitForInput
+	call Func_2c0bd
+	ret
+
+Moltres2DiveBomb_AIEffect: ; 2d76e (b:576e)
+	ld a, 70 / 2
+	lb de, 0, 70
+	jp SetExpectedAIDamage
+
+Moltres2DiveBomb_Success50PercentEffect: ; 2d776 (b:5776)
+	ldtx de, SuccessCheckIfHeadsAttackIsSuccessfulText
+	call TossCoin_BankB
+	jr c, .heads
+; tails
+	xor a
+	call SetDefiniteDamage
+	call SetWasUnsuccessful
+	ret
+.heads
+	ld a, ATK_ANIM_DIVE_BOMB
+	ld [wLoadedAttackAnimation], a
+	ret
+
+; output in de the number of energy cards
+; attached to the Defending Pokemon times 10.
+; used for attacks that deal 10x number of energy
+; cards attached to the Defending card.
+GetEnergyAttachedMultiplierDamage: ; 2d78c (b:578c)
+	call SwapTurn
+	ld a, DUELVARS_CARD_LOCATIONS
+	call GetTurnDuelistVariable
+
+	ld c, 0
+.loop
+	ld a, [hl]
+	cp CARD_LOCATION_ARENA
+	jr nz, .next
+	; is in Arena
+	ld a, l
+	call GetCardIDFromDeckIndex
+	call GetCardType
+	and TYPE_ENERGY
+	jr z, .next
+	; is Energy attached to Arena card
+	inc c
+.next
+	inc l
+	ld a, l
+	cp DECK_SIZE
+	jr c, .loop
+
+	call SwapTurn
+	ld l, c
+	ld h, $00
+	ld b, $00
+	add hl, hl ; hl =  2 * c
+	add hl, hl ; hl =  4 * c
+	add hl, bc ; hl =  5 * c
+	add hl, hl ; hl = 10 * c
+	ld e, l
+	ld d, h
+	ret
+
+; draws list of Energy Cards in Discard Pile
+; for Player to select from.
+; the Player can select up to 2 cards from the list.
+; these cards are given in $ff-terminated list
+; in hTempList.
+HandleEnergyCardsInDiscardPileSelection: ; 2d7bc (b:57bc)
+	push hl
+	xor a
+	ldh [hCurSelectionItem], a
+	call CreateEnergyCardListFromDiscardPile_AllEnergy
+	pop hl
+	jr c, .finish
+
+	call DrawWideTextBox_WaitForInput
+.loop
+; draws Discard Pile screen and textbox,
+; and handles Player input
+	bank1call InitAndDrawCardListScreenLayout
+	ldtx hl, ChooseAnEnergyCardText
+	ldtx de, PlayerDiscardPileText
+	bank1call SetCardListHeaderText
+	bank1call DisplayCardList
+	jr nc, .selected
+
+; Player is trying to exit screen,
+; but can select up to 2 cards total.
+; prompt Player to confirm exiting screen.
+	ld a, 2
+	call AskWhetherToQuitSelectingCards
+	jr c, .loop
+	jr .finish
+
+.selected
+; a card was selected, so add it to list
+	call GetNextPositionInTempList
+	ldh a, [hTempCardIndex_ff98]
+	ld [hl], a
+	call RemoveCardFromDuelTempList
+	or a
+	jr z, .finish ; no more cards?
+	ldh a, [hCurSelectionItem]
+	cp 2
+	jr c, .loop ; already selected 2 cards?
+
+.finish
+; place terminating byte on list
+	call GetNextPositionInTempList
+	ld [hl], $ff
+	or a
+	ret
+
+; returns carry if Pkmn Power cannot be used, and
+; sets the correct text in hl for failure.
+Curse_CheckDamageAndBench: ; 2d7fc (b:57fc)
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+
+; fail if Pkmn Power has already been used
+	add DUELVARS_ARENA_CARD_FLAGS
+	call GetTurnDuelistVariable
+	ldtx hl, OnlyOncePerTurnText
+	and USED_PKMN_POWER_THIS_TURN
+	jr nz, .set_carry
+
+; fail if Opponent only has 1 Pokemon in Play Area
+	call SwapTurn
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	call SwapTurn
+	ldtx hl, CannotUseSinceTheresOnly1PkmnText
+	cp 2
+	jr c, .set_carry
+
+; fail if Opponent has no damage counters
+	call SwapTurn
+	call CheckIfPlayAreaHasAnyDamage
+	call SwapTurn
+	ldtx hl, NoPokemonWithDamageCountersText
+	jr c, .set_carry
+
+; return carry if Pkmn Power cannot be used due
+; to Toxic Gas or status.
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	call CheckCannotUseDueToStatus_OnlyToxicGasIfANon0
+	ret
+
+.set_carry
+	scf
+	ret
+
+Curse_PlayerSelectEffect: ; 2d834 (b:5834)
+	ldtx hl, ProcedureForCurseText
+	bank1call DrawWholeScreenTextBox
+	call SwapTurn
+	xor a
+	ldh [hCurSelectionItem], a
+	bank1call Func_61a1
+.start
+	bank1call PrintPlayAreaCardList_EnableLCD
+	push af
+	ldh a, [hCurSelectionItem]
+	ld hl, PlayAreaSelectionMenuParameters
+	call InitializeMenuParameters
+	pop af
+	ld [wNumMenuItems], a
+
+; first pick a target to take 1 damage counter from.
+.loop_input_first
+	call DoFrame
+	call HandleMenuInput
+	jr nc, .loop_input_first
+	cp $ff
+	jr z, .cancel
+	ldh [hCurSelectionItem], a
+	ldh [hTempPlayAreaLocation_ffa1], a
+	call GetCardDamageAndMaxHP
+	or a
+	jr nz, .picked_first ; test if has damage
+	; play sfx
+	call Func_3794
+	jr .loop_input_first
+
+.picked_first
+; give 10 HP to card selected, draw the scene,
+; then immediately revert this.
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	add DUELVARS_ARENA_CARD_HP
+	call GetTurnDuelistVariable
+	push af
+	push hl
+	add 10
+	ld [hl], a
+	bank1call PrintPlayAreaCardList_EnableLCD
+	pop hl
+	pop af
+	ld [hl], a
+
+; draw damage counter on cursor
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	ld b, SYM_HP_NOK
+	call DrawSymbolOnPlayAreaCursor
+
+; handle input to pick the target to receive the damage counter.
+.loop_input_second
+	call DoFrame
+	call HandleMenuInput
+	jr nc, .loop_input_second
+	ldh [hPlayAreaEffectTarget], a
+	cp $ff
+	jr nz, .a_press ; was a pressed?
+
+; b press
+; erase the damage counter symbol
+; and loop back up again.
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	ld b, SYM_SPACE
+	call DrawSymbolOnPlayAreaCursor
+	call EraseCursor
+	jr .start
+
+.a_press
+	ld hl, hTempPlayAreaLocation_ffa1
+	cp [hl]
+	jr z, .loop_input_second ; same as first?
+; a different Pokemon was picked,
+; so store this Play Area location
+; and erase the damage counter in the cursor.
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	ld b, SYM_SPACE
+	call DrawSymbolOnPlayAreaCursor
+	call EraseCursor
+	call SwapTurn
+	or a
+	ret
+
+.cancel
+; return carry if operation was cancelled.
+	call SwapTurn
+	scf
+	ret
+
+Curse_TransferDamageEffect: ; 2d8bb (b:58bb)
+; set Pkmn Power as used
+	ldh a, [hTempList]
+	add DUELVARS_ARENA_CARD_FLAGS
+	call GetTurnDuelistVariable
+	set USED_PKMN_POWER_THIS_TURN_F, [hl]
+
+; figure out the type of duelist that used Curse.
+; if it was the player, no need to draw the Play Area screen.
+	call SwapTurn
+	ld a, DUELVARS_DUELIST_TYPE
+	call GetNonTurnDuelistVariable
+	cp DUELIST_TYPE_PLAYER
+	jr z, .vs_player
+
+; vs. opponent
+	bank1call Func_61a1
+.vs_player
+; transfer the damage counter to the targets that were selected.
+	ldh a, [hPlayAreaEffectTarget]
+	add DUELVARS_ARENA_CARD_HP
+	call GetTurnDuelistVariable
+	sub 10
+	ld [hl], a
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	add DUELVARS_ARENA_CARD_HP
+	ld l, a
+	ld a, 10
+	add [hl]
+	ld [hl], a
+
+	bank1call PrintPlayAreaCardList_EnableLCD
+	ld a, DUELVARS_DUELIST_TYPE
+	call GetNonTurnDuelistVariable
+	cp DUELIST_TYPE_PLAYER
+	jr z, .done
+; vs. opponent
+	ldh a, [hPlayAreaEffectTarget]
+	ldh [hTempPlayAreaLocation_ff9d], a
+	bank1call Func_6194
+
+.done
+	call SwapTurn
+	call ExchangeRNG
+	bank1call Func_6e49
+	ret
+
+GengarDarkMind_PlayerSelectEffect: ; 2d903 (b:5903)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetNonTurnDuelistVariable
+	cp 2
+	jr nc, .has_bench
+; no bench Pokemon to damage.
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	ret
+
+.has_bench
+; opens Play Area screen to select Bench Pokemon
+; to damage, and store it before returning.
+	ldtx hl, ChoosePkmnInTheBenchToGiveDamageText
+	call DrawWideTextBox_WaitForInput
+	call SwapTurn
+	bank1call HasAlivePokemonInBench
+.loop_input
+	bank1call OpenPlayAreaScreenForSelection
+	jr c, .loop_input
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	call SwapTurn
+	ret
+
+GengarDarkMind_AISelectEffect: ; 2d92a (b:592a)
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetNonTurnDuelistVariable
+	cp 2
+	ret c ; return if no Bench Pokemon
+; just pick Pokemon with lowest remaining HP.
+	call GetBenchPokemonWithLowestHP
+	ldh [hTemp_ffa0], a
+	ret
+
+GengarDarkMind_DamageBenchEffect: ; 2d93c (b:593c)
+	ldh a, [hTemp_ffa0]
+	cp $ff
+	ret z ; no target chosen
+	call SwapTurn
+	ld b, a
+	ld de, 10
+	call DealDamageToPlayAreaPokemon_RegularAnim
+	call SwapTurn
+	ret
+
+SleepingGasEffect: ; 2d94f (b:594f)
+	call Sleep50PercentEffect
+	call nc, SetNoEffectFromStatus
+	ret
+
+DestinyBond_CheckEnergy: ; 2d956 (b:5956)
+	ld e, PLAY_AREA_ARENA
+	call GetPlayAreaCardAttachedEnergies
+	ld a, [wAttachedEnergies + PSYCHIC]
+	ldtx hl, NotEnoughPsychicEnergyText
+	cp 1
+	ret
+
+DestinyBond_PlayerSelectEffect: ; 2d964 (b:5964)
+; handle input and display of Energy card list
+	ld a, TYPE_ENERGY_PSYCHIC
+	call CreateListOfEnergyAttachedToArena
+	xor a
+	bank1call DisplayEnergyDiscardScreen
+	bank1call HandleEnergyDiscardMenuInput
+	ret c
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTempList], a
+	ret
+
+DestinyBond_AISelectEffect: ; 2d976 (b:5976)
+; pick first card in list
+	ld a, TYPE_ENERGY_PSYCHIC
+	call CreateListOfEnergyAttachedToArena
+	ld a, [wDuelTempList]
+	ldh [hTempList], a
+	ret
+
+DestinyBond_DiscardEffect: ; 2d981 (b:5981)
+	ldh a, [hTempList]
+	call PutCardInDiscardPile
+	ret
+
+DestinyBond_DestinyBondEffect: ; 2d987 (b:5987)
+	ld a, SUBSTATUS1_DESTINY_BOND
+	call ApplySubstatus1ToDefendingCard
+	ret
+
+; returns carry if no Energy cards in Discard Pile.
+EnergyConversion_CheckEnergy: ; 2d98d (b:598d)
+	call CreateEnergyCardListFromDiscardPile_AllEnergy
+	ldtx hl, ThereAreNoEnergyCardsInDiscardPileText
+	ret
+
+EnergyConversion_PlayerSelectEffect: ; 2d994 (b:5994)
+	ldtx hl, Choose2EnergyCardsFromDiscardPileForHandText
+	call HandleEnergyCardsInDiscardPileSelection
+	ret
+
+EnergyConversion_AISelectEffect: ; 2d99b (b:599b)
+	call CreateEnergyCardListFromDiscardPile_AllEnergy
+	ld hl, wDuelTempList
+	ld de, hTempList
+	ld c, 2
+; select the first two energy cards found in Discard Pile
+.loop
+	ld a, [hli]
+	cp $ff
+	jr z, .done
+	ld [de], a
+	inc de
+	dec c
+	jr nz, .loop
+.done
+	ld a, $ff
+	ld [de], a
+	ret
+
+EnergyConversion_AddToHandEffect: ; 2d9b4 (b:59b4)
+; damage itself
+	ld a, 10
+	call DealRecoilDamageToSelf
+
+; loop cards that were chosen
+; until $ff is reached,
+; and move them to the hand.
+	ld hl, hTempList
+	ld de, wDuelTempList
+.loop_cards
+	ld a, [hli]
+	ld [de], a
+	inc de
+	cp $ff
+	jr z, .done
+	call MoveDiscardPileCardToHand
+	call AddCardToHand
+	jr .loop_cards
+
+.done
+	call IsPlayerTurn
+	ret c
+	bank1call Func_4b38
+	ret
+
+; return carry if Defending Pokemon is not asleep
+DreamEaterEffect: ; 2d9d6 (b:59d6)
+	ld a, DUELVARS_ARENA_CARD_STATUS
+	call GetNonTurnDuelistVariable
+	and CNF_SLP_PRZ
+	cp ASLEEP
+	ret z ; return if asleep
+; not asleep, set carry and load text
+	ldtx hl, OpponentIsNotAsleepText
+	scf
+	ret
+
+TransparencyEffect: ; 2d9e5 (b:59e5)
+	scf
+	ret
+
+; returns carry if neither the Turn Duelist or
+; the non-Turn Duelist have any deck cards.
+Prophecy_CheckDeck: ; 2d9e7 (b:59e7)
+	ld a, DUELVARS_NUMBER_OF_CARDS_NOT_IN_DECK
+	call GetTurnDuelistVariable
+	cp DECK_SIZE
+	jr c, .no_carry
+	ld a, DUELVARS_NUMBER_OF_CARDS_NOT_IN_DECK
+	call GetNonTurnDuelistVariable
+	cp DECK_SIZE
+	jr c, .no_carry
+	ldtx hl, NoCardsLeftInTheDeckText
+	scf
+	ret
+.no_carry
+	or a
+	ret
+
+Prophecy_PlayerSelectEffect: ; 2da00 (b:5a00)
+	ldtx hl, ProcedureForProphecyText
+	bank1call DrawWholeScreenTextBox
+.select_deck
+	bank1call DrawDuelMainScene
+	ldtx hl, PleaseSelectTheDeckText
+	call TwoItemHorizontalMenu
+	ldh a, [hKeysHeld]
+	and B_BUTTON
+	jr nz, Prophecy_PlayerSelectEffect ; loop back to start
+
+	ldh a, [hCurMenuItem]
+	ldh [hTempList], a ; store selection in first position in list
+	or a
+	jr z, .turn_duelist
+
+; non-turn duelist
+	ld a, DUELVARS_NUMBER_OF_CARDS_NOT_IN_DECK
+	call GetNonTurnDuelistVariable
+	cp DECK_SIZE
+	jr nc, .select_deck ; no cards, go back to deck selection
+	call SwapTurn
+	call HandleProphecyScreen
+	call SwapTurn
+	ret
+
+.turn_duelist
+	ld a, DUELVARS_NUMBER_OF_CARDS_NOT_IN_DECK
+	call GetTurnDuelistVariable
+	cp DECK_SIZE
+	jr nc, .select_deck ; no cards, go back to deck selection
+	call HandleProphecyScreen
+	ret
+
+Prophecy_AISelectEffect: ; 2da3c (b:5a3c)
+; AI doesn't ever choose this attack
+; so this it does no sorting.
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	ret
+
+Prophecy_ReorderDeckEffect: ; 2da41 (b:5a41)
+	ld hl, hTempList
+	ld a, [hli]
+	or a
+	jr z, .ReorderCards ; turn duelist's deck
+	cp $ff
+	ret z
+
+	; non-turn duelist's deck
+	call SwapTurn
+	call .ReorderCards
+	call SwapTurn
+	ret
+
+.ReorderCards
+	ld c, 0
+; add selected cards to hand in the specified order
+.loop_add_hand
+	ld a, [hli]
+	cp $ff
+	jr z, .dec_hl
+	call SearchCardInDeckAndAddToHand
+	inc c
+	jr .loop_add_hand
+
+.dec_hl
+; go to last card that was in the list
+	dec hl
+	dec hl
+
+.loop_return_deck
+; return the cards to the top of the deck
+	ld a, [hld]
+	call ReturnCardToDeck
+	dec c
+	jr nz, .loop_return_deck
+	call IsPlayerTurn
+	ret c
+	; print text in case it was the opponent
+	ldtx hl, ExchangedCardsInDuelistsHandText
+	call DrawWideTextBox_WaitForInput
+	ret
+
+; draw and handle Player selection for reordering
+; the top 3 cards of Deck.
+; the resulting list is output in order in hTempList.
+HandleProphecyScreen: ; 2da76 (b:5a76)
+	ld a, DUELVARS_NUMBER_OF_CARDS_NOT_IN_DECK
+	call GetTurnDuelistVariable
+	ld b, a
+	ld a, DECK_SIZE
+	sub [hl] ; a = number of cards in deck
+
+; store in c the number of cards that will be reordered.
+; this number is 3, unless the deck as fewer cards than
+; that in which case it will be the number of cards remaining.
+	ld c, 3
+	cp c
+	jr nc, .got_number_cards
+	ld c, a ; store number of remaining cards in c
+.got_number_cards
+	ld a, c
+	inc a
+	ld [wNumberOfCardsToOrder], a
+
+; store in wDuelTempList the cards
+; at top of Deck to be reordered.
+	ld a, b
+	add DUELVARS_DECK_CARDS
+	ld l, a
+	ld de, wDuelTempList
+.loop_top_cards
+	ld a, [hli]
+	ld [de], a
+	inc de
+	dec c
+	jr nz, .loop_top_cards
+	ld a, $ff ; terminating byte
+	ld [de], a
+
+.start
+	call CountCardsInDuelTempList
+	ld b, a
+	ld a, 1 ; start at 1
+	ldh [hCurSelectionItem], a
+
+; initialize buffer ahead in wDuelTempList.
+	ld hl, wDuelTempList + 10
+	xor a
+.loop_init_buffer
+	ld [hli], a
+	dec b
+	jr nz, .loop_init_buffer
+	ld [hl], $ff
+
+	bank1call InitAndDrawCardListScreenLayout
+	ldtx hl, ChooseTheOrderOfTheCardsText
+	ldtx de, DuelistDeckText
+	bank1call SetCardListHeaderText
+	bank1call Func_5735
+
+.loop_selection
+	bank1call DisplayCardList
+	jr c, .clear
+
+; first check if this card was already selected
+	ldh a, [hCurMenuItem]
+	ld e, a
+	ld d, $00
+	ld hl, wDuelTempList + 10
+	add hl, de
+	ld a, [hl]
+	or a
+	jr nz, .loop_selection ; already chosen
+
+; being here means card hasn't been selected yet,
+; so add its order number to buffer and increment
+; the sort number for the next card.
+	ldh a, [hCurSelectionItem]
+	ld [hl], a
+	inc a
+	ldh [hCurSelectionItem], a
+	bank1call Func_5744
+	ldh a, [hCurSelectionItem]
+	ld hl, wNumberOfCardsToOrder
+	cp [hl]
+	jr c, .loop_selection ; still more cards
+
+; confirm that the ordering has been completed
+	call EraseCursor
+	ldtx hl, IsThisOKText
+	call YesOrNoMenuWithText_LeftAligned
+	jr c, .start ; if not, return back to beginning of selection
+
+; write in hTempList the card list
+; in order that was selected.
+	ld hl, wDuelTempList + 10
+	ld de, wDuelTempList
+	ld c, 0
+.loop_order
+	ld a, [hli]
+	cp $ff
+	jr z, .done
+	push hl
+	push bc
+	ld c, a
+	ld b, $00
+	ld hl, hTempList
+	add hl, bc
+	ld a, [de]
+	ld [hl], a
+	pop bc
+	pop hl
+	inc de
+	inc c
+	jr .loop_order
+; now hTempList has the list of card deck indices
+; in the order selected to be place on top of the deck.
+
+.done
+	ld b, $00
+	ld hl, hTempList + 1
+	add hl, bc
+	ld [hl], $ff ; terminating byte
+	or a
+	ret
+
+.clear
+; check if any reordering was done.
+	ld hl, hCurSelectionItem
+	ld a, [hl]
+	cp 1
+	jr z, .loop_selection ; none done, go back
+; clear the order that was selected thus far.
+	dec a
+	ld [hl], a
+	ld c, a
+	ld hl, wDuelTempList + 10
+.loop_clear
+	ld a, [hli]
+	cp c
+	jr nz, .loop_clear
+	; clear this byte
+	dec hl
+	ld [hl], $00
+	bank1call Func_5744
+	jr .loop_selection
+
+HypnoDarkMind_PlayerSelectEffect: ; 2db2b (b:5b2b)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetNonTurnDuelistVariable
+	cp 2
+	jr nc, .has_bench
+; no bench Pokemon to damage.
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	ret
+
+.has_bench
+; opens Play Area screen to select Bench Pokemon
+; to damage, and store it before returning.
+	ldtx hl, ChoosePkmnInTheBenchToGiveDamageText
+	call DrawWideTextBox_WaitForInput
+	call SwapTurn
+	bank1call HasAlivePokemonInBench
+.loop_input
+	bank1call OpenPlayAreaScreenForSelection
+	jr c, .loop_input
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	call SwapTurn
+	ret
+
+HypnoDarkMind_AISelectEffect: ; 2db52 (b:5b52)
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetNonTurnDuelistVariable
+	cp 2
+	ret c ; return if no Bench Pokemon
+; just pick Pokemon with lowest remaining HP.
+	call GetBenchPokemonWithLowestHP
+	ldh [hTemp_ffa0], a
+	ret
+
+HypnoDarkMind_DamageBenchEffect: ; 2db64 (b:5b64)
+	ldh a, [hTemp_ffa0]
+	cp $ff
+	ret z ; no target chosen
+	call SwapTurn
+	ld b, a
+	ld de, 10
+	call DealDamageToPlayAreaPokemon_RegularAnim
+	call SwapTurn
+	ret
+
+InvisibleWallEffect: ; 2db77 (b:5b77)
+	scf
+	ret
+
+MrMimeMeditate_AIEffect: ; 2db79 (b:5b79)
+	call MrMimeMeditate_DamageBoostEffect
+	jp SetDefiniteAIDamage
+
+MrMimeMeditate_DamageBoostEffect: ; 2db7f (b:5b7f)
+; add damage counters of Defending card to damage
+	call SwapTurn
+	ld e, PLAY_AREA_ARENA
+	call GetCardDamageAndMaxHP
+	call SwapTurn
+	call AddToDamage
+	ret
+
+; returns carry if Damage Swap cannot be used.
+DamageSwap_CheckDamage: ; 2db8e (b:5b8e)
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	call CheckIfPlayAreaHasAnyDamage
+	jr c, .no_damage
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	call CheckCannotUseDueToStatus_OnlyToxicGasIfANon0
+	ret
+.no_damage
+	ldtx hl, NoPokemonWithDamageCountersText
+	scf
+	ret
+
+DamageSwap_SelectAndSwapEffect: ; 2dba2 (b:5ba2)
+	ld a, DUELVARS_DUELIST_TYPE
+	call GetTurnDuelistVariable
+	cp DUELIST_TYPE_PLAYER
+	jr z, .player
+; non-player
+	bank1call Func_61a1
+	bank1call PrintPlayAreaCardList_EnableLCD
+	ret
+
+.player
+	ldtx hl, ProcedureForDamageSwapText
+	bank1call DrawWholeScreenTextBox
+	xor a
+	ldh [hCurSelectionItem], a
+	bank1call Func_61a1
+
+.start
+	bank1call PrintPlayAreaCardList_EnableLCD
+	push af
+	ldh a, [hCurSelectionItem]
+	ld hl, PlayAreaSelectionMenuParameters
+	call InitializeMenuParameters
+	pop af
+	ld [wNumMenuItems], a
+
+; handle selection of Pokemon to take damage from
+.loop_input_first
+	call DoFrame
+	call HandleMenuInput
+	jr nc, .loop_input_first
+	cp $ff
+	ret z ; quit when B button is pressed
+
+	ldh [hTempPlayAreaLocation_ffa1], a
+	ldh [hCurSelectionItem], a
+
+; if card has no damage, play sfx and return to start
+	call GetCardDamageAndMaxHP
+	or a
+	jr z, .no_damage
+
+; take damage away temporarily to draw UI.
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	add DUELVARS_ARENA_CARD_HP
+	call GetTurnDuelistVariable
+	push af
+	push hl
+	add 10
+	ld [hl], a
+	bank1call PrintPlayAreaCardList_EnableLCD
+	pop hl
+	pop af
+	ld [hl], a
+
+; draw damage counter in cursor
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	ld b, SYM_HP_NOK
+	call DrawSymbolOnPlayAreaCursor
+
+; handle selection of Pokemon to give damage to
+.loop_input_second
+	call DoFrame
+	call HandleMenuInput
+	jr nc, .loop_input_second
+	; if B is pressed, return damage counter
+	; to card that it was taken from
+	cp $ff
+	jr z, .update_ui
+
+; try to give the card selected the damage counter
+; if it would KO, ignore it.
+	ldh [hPlayAreaEffectTarget], a
+	ldh [hCurSelectionItem], a
+	call TryGiveDamageCounter_DamageSwap
+	jr c, .loop_input_second
+
+	ld a, OPPACTION_6B15
+	call SetOppAction_SerialSendDuelData
+
+.update_ui
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	ld b, SYM_SPACE
+	call DrawSymbolOnPlayAreaCursor
+	call EraseCursor
+	jr .start
+
+.no_damage
+	call Func_3794
+	jr .loop_input_first
+
+; tries to give damage counter to hPlayAreaEffectTarget,
+; and if successful updates UI screen.
+DamageSwap_SwapEffect: ; 2dc27 (b:5c27)
+	call TryGiveDamageCounter_DamageSwap
+	ret c
+	bank1call PrintPlayAreaCardList_EnableLCD
+	or a
+	ret
+
+; tries to give the damage counter to the target
+; chosen by the Player (hPlayAreaEffectTarget).
+; if the damage counter would KO card, then do
+; not give the damage counter and return carry.
+TryGiveDamageCounter_DamageSwap: ; 2dc30 (b:5c30)
+	ldh a, [hPlayAreaEffectTarget]
+	add DUELVARS_ARENA_CARD_HP
+	call GetTurnDuelistVariable
+	sub 10
+	jr z, .set_carry ; would bring HP to zero?
+; has enough HP to receive a damage counter
+	ld [hl], a
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	add DUELVARS_ARENA_CARD_HP
+	ld l, a
+	ld a, 10
+	add [hl]
+	ld [hl], a
+	or a
+	ret
+.set_carry
+	scf
+	ret
+
+PsywaveEffect: ; 2dc49 (b:5c49)
+	call GetEnergyAttachedMultiplierDamage
+	ld hl, wDamage
+	ld [hl], e
+	inc hl
+	ld [hl], d
+	ret
+
+; returns carry if neither Duelist has evolved Pokemon.
+DevolutionBeam_CheckPlayArea: ; 2dc53 (b:5c53)
+	call CheckIfTurnDuelistHasEvolvedCards
+	ret nc
+	call SwapTurn
+	call CheckIfTurnDuelistHasEvolvedCards
+	call SwapTurn
+	ldtx hl, ThereAreNoStage1PokemonText
+	ret
+
+; returns carry of Player cancelled selection.
+; otherwise, output in hTemp_ffa0 which Play Area
+; was selected ($0 = own Play Area, $1 = opp. Play Area)
+; and in hTempPlayAreaLocation_ffa1 selected card.
+DevolutionBeam_PlayerSelectEffect: ; 2dc64 (b:5c64)
+	ldtx hl, ProcedureForDevolutionBeamText
+	bank1call DrawWholeScreenTextBox
+
+.start
+	bank1call DrawDuelMainScene
+	ldtx hl, PleaseSelectThePlayAreaText
+	call TwoItemHorizontalMenu
+	ldh a, [hKeysHeld]
+	and B_BUTTON
+	jr nz, .set_carry
+
+; a Play Area was selected
+	ldh a, [hCurMenuItem]
+	or a
+	jr nz, .opp_chosen
+
+; player chosen
+	call HandleEvolvedCardSelection
+	jr c, .start
+
+	xor a
+.store_selection
+	ld hl, hTemp_ffa0
+	ld [hli], a ; store which Duelist Play Area selected
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ld [hl], a ; store which card selected
+	or a
+	ret
+
+.opp_chosen
+	call SwapTurn
+	call HandleEvolvedCardSelection
+	call SwapTurn
+	jr c, .start
+	ld a, $01
+	jr .store_selection
+
+.set_carry
+	scf
+	ret
+
+DevolutionBeam_AISelectEffect: ; 2dc9e (b:5c9e)
+	ld a, $01
+	ldh [hTemp_ffa0], a
+	call SwapTurn
+	call FindFirstNonBasicCardInPlayArea
+	call SwapTurn
+	jr c, .found
+	xor a
+	ldh [hTemp_ffa0], a
+	call FindFirstNonBasicCardInPlayArea
+.found
+	ldh [hTempPlayAreaLocation_ffa1], a
+	ret
+
+DevolutionBeam_LoadAnimation: ; 2dcb6 (b:5cb6)
+	xor a ; ATK_ANIM_NONE
+	ld [wLoadedAttackAnimation], a
+	ret
+
+DevolutionBeam_DevolveEffect: ; 2dcbb (b:5cbb)
+	ldh a, [hTemp_ffa0]
+	or a
+	jr z, .DevolvePokemon
+	cp $ff
+	ret z
+
+; opponent's Play Area
+	call SwapTurn
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	jr nz, .skip_handle_no_damage_effect
+	call HandleNoDamageOrEffect
+	jr c, .unaffected
+.skip_handle_no_damage_effect
+	call .DevolvePokemon
+.unaffected
+	call SwapTurn
+	ret
+
+.DevolvePokemon
+	ld a, ATK_ANIM_DEVOLUTION_BEAM
+	ld [wLoadedAttackAnimation], a
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	ld b, a
+	ld c, $00
+	ldh a, [hWhoseTurn]
+	ld h, a
+	bank1call PlayAttackAnimation
+	bank1call WaitAttackAnimation
+
+; load selected card's data
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	ldh [hTempPlayAreaLocation_ff9d], a
+	ld [wTempPlayAreaLocation_cceb], a
+	add DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	call LoadCardDataToBuffer1_FromDeckIndex
+
+; check if car is affected
+	ld a, [wLoadedCard1ID]
+	ld [wTempNonTurnDuelistCardID], a
+	ld de, $0
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	or a
+	jr nz, .skip_substatus_check
+	call HandleNoDamageOrEffectSubstatus
+	jr c, .check_no_damage_effect
+.skip_substatus_check
+	call HandleDamageReductionOrNoDamageFromPkmnPowerEffects
+.check_no_damage_effect
+	call CheckNoDamageOrEffect
+	jr nc, .devolve
+	call DrawWideTextBox_WaitForInput
+	ret
+
+.devolve
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	ldh [hTempPlayAreaLocation_ff9d], a
+	add DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	bank1call GetCardOneStageBelow
+	call PrintDevolvedCardNameAndLevelText
+
+	ld a, d
+	call UpdateDevolvedCardHPAndStage
+	call ResetDevolvedCardStatus
+
+; add the evolved card to the hand
+	ld a, e
+	call AddCardToHand
+
+; check if this devolution KO's card
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	call PrintPlayAreaCardKnockedOutIfNoHP
+
+	xor a
+	ld [wDuelDisplayedScreen], a
+	ret
+
+; returns carry if Turn Duelist
+; has no Stage1 or Stage2 cards in Play Area.
+CheckIfTurnDuelistHasEvolvedCards: ; 2dd3b (b:5d3b)
+	ld a, DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	ld d, h
+	ld e, DUELVARS_ARENA_CARD_STAGE
+.loop
+	ld a, [hli]
+	cp $ff
+	jr z, .set_carry
+	ld a, [de]
+	inc de
+	or a
+	jr z, .loop ; is Basic Stage
+	ret
+.set_carry
+	scf
+	ret
+
+; handles Player selection of an evolved card in Play Area.
+; returns carry if Player cancelled operation.
+HandleEvolvedCardSelection: ; 2dd50 (b:5d50)
+	bank1call HasAlivePokemonInPlayArea
+.loop
+	bank1call OpenPlayAreaScreenForSelection
+	ret c
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	add DUELVARS_ARENA_CARD_STAGE
+	call GetTurnDuelistVariable
+	or a
+	jr z, .loop ; if Basic, loop
+	ret
+
+; finds first occurrence in Play Area
+; of Stage 1 or 2 card, and outputs its
+; Play Area location in a, with carry set.
+; if none found, don't return carry set.
+FindFirstNonBasicCardInPlayArea: ; 2dd62 (b:5d62)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ld c, a
+
+	ld b, PLAY_AREA_ARENA
+	ld l, DUELVARS_ARENA_CARD_STAGE
+.loop
+	ld a, [hli]
+	or a
+	jr nz, .not_basic
+	inc b
+	dec c
+	jr nz, .loop
+	or a
+	ret
+.not_basic
+	ld a, b
+	scf
+	ret
+
+NeutralizingShieldEffect: ; 2dd79 (b:5d79)
+	scf
+	ret
+
+Psychic_AIEffect: ; 2dd7b (b:5d7b)
+	call Psychic_DamageBoostEffect
+	jp SetDefiniteAIDamage
+
+Psychic_DamageBoostEffect: ; 2dd81 (b:5d81)
+	call GetEnergyAttachedMultiplierDamage
+	ld hl, wDamage
+	ld a, e
+	add [hl]
+	ld [hli], a
+	ld a, d
+	adc [hl]
+	ld [hl], a
+	ret
+
+; return carry if no Psychic Energy attached
+Barrier_CheckEnergy: ; 2dd8e (b:5d8e)
+	ld e, PLAY_AREA_ARENA
+	call GetPlayAreaCardAttachedEnergies
+	ld a, [wAttachedEnergies + PSYCHIC]
+	ldtx hl, NotEnoughPsychicEnergyText
+	cp 1
+	ret
+
+Barrier_PlayerSelectEffect: ; 2dd9c (b:5d9c)
+	ld a, TYPE_ENERGY_PSYCHIC
+	call CreateListOfEnergyAttachedToArena
+	xor a ; PLAY_AREA_ARENA
+	bank1call DisplayEnergyDiscardScreen
+	bank1call HandleEnergyDiscardMenuInput
+	ret c
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTemp_ffa0], a
+	ret
+
+Barrier_AISelectEffect: ; 2ddae (b:5dae)
+; AI picks the first energy in list
+	ld a, TYPE_ENERGY_PSYCHIC
+	call CreateListOfEnergyAttachedToArena
+	ld a, [wDuelTempList]
+	ldh [hTemp_ffa0], a
+	ret
+
+Barrier_DiscardEffect: ; 2ddb9 (b:5db9)
+	ldh a, [hTemp_ffa0]
+	call PutCardInDiscardPile
+	ret
+
+Barrier_BarrierEffect: ; 2ddbf (b:5dbf)
+	ld a, SUBSTATUS1_BARRIER
+	call ApplySubstatus1ToDefendingCard
+	ret
+
+Mewtwo3EnergyAbsorption_CheckDiscardPile: ; 2ddc5 (b:5dc5)
+	call CreateEnergyCardListFromDiscardPile_AllEnergy
+	ldtx hl, ThereAreNoEnergyCardsInDiscardPileText
+	ret
+
+Mewtwo3EnergyAbsorption_PlayerSelectEffect: ; 2ddcc (b:5dcc)
+	ldtx hl, Choose2EnergyCardsFromDiscardPileToAttachText
+	call HandleEnergyCardsInDiscardPileSelection
+	ret
+
+Mewtwo3EnergyAbsorption_AISelectEffect: ; 2ddd3 (b:5dd3)
+; AI picks first 2 energy cards
+	call CreateEnergyCardListFromDiscardPile_AllEnergy
+	ld hl, wDuelTempList
+	ld de, hTempList
+	ld c, 2
+.loop
+	ld a, [hli]
+	cp $ff
+	jr z, .done
+	ld [de], a
+	inc de
+	dec c
+	jr nz, .loop
+.done
+	ld a, $ff ; terminating byte
+	ld [de], a
+	ret
+
+Mewtwo3EnergyAbsorption_AddToHandEffect: ; 2ddec (b:5dec)
+	ld hl, hTempList
+.loop
+	ld a, [hli]
+	cp $ff
+	ret z
+	push hl
+	call MoveDiscardPileCardToHand
+	call GetTurnDuelistVariable
+	ld [hl], CARD_LOCATION_ARENA
+	pop hl
+	jr .loop
+
+Mewtwo2EnergyAbsorption_CheckDiscardPile: ; 2ddff (b:5dff)
+	call CreateEnergyCardListFromDiscardPile_AllEnergy
+	ldtx hl, ThereAreNoEnergyCardsInDiscardPileText
+	ret
+
+Mewtwo2EnergyAbsorption_PlayerSelectEffect: ; 2de06 (b:5e06)
+	ldtx hl, Choose2EnergyCardsFromDiscardPileToAttachText
+	call HandleEnergyCardsInDiscardPileSelection
+	ret
+
+Mewtwo2EnergyAbsorption_AISelectEffect: ; 2de0d (b:5e0d)
+; AI picks first 2 energy cards
+	call CreateEnergyCardListFromDiscardPile_AllEnergy
+	ld hl, wDuelTempList
+	ld de, hTempList
+	ld c, 2
+.loop
+	ld a, [hli]
+	cp $ff
+	jr z, .done
+	ld [de], a
+	inc de
+	dec c
+	jr nz, .loop
+.done
+	ld a, $ff ; terminating byte
+	ld [de], a
+	ret
+
+Mewtwo2EnergyAbsorption_AddToHandEffect: ; 2de26 (b:5e26)
+	ld hl, hTempList
+.loop
+	ld a, [hli]
+	cp $ff
+	ret z
+	push hl
+	call MoveDiscardPileCardToHand
+	call GetTurnDuelistVariable
+	ld [hl], CARD_LOCATION_ARENA
+	pop hl
+	jr .loop
+
+; returns carry if Strange Behavior cannot be used.
+StrangeBehavior_CheckDamage: ; 2de39 (b:5e39)
+; does Play Area have any damage counters?
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	call CheckIfPlayAreaHasAnyDamage
+	ldtx hl, NoPokemonWithDamageCountersText
+	jr c, .set_carry
+; can Slowbro receive any damage counters without KO-ing?
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	add DUELVARS_ARENA_CARD_HP
+	call GetTurnDuelistVariable
+	ldtx hl, CannotUseBecauseItWillBeKnockedOutText
+	cp 10 + 10
+	jr c, .set_carry
+; can Pkmn Power be used?
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	call CheckCannotUseDueToStatus_OnlyToxicGasIfANon0
+	ret
+
+.set_carry
+	scf
+	ret
+
+StrangeBehavior_SelectAndSwapEffect: ; 2de5b (b:5e5b)
+	ld a, DUELVARS_DUELIST_TYPE
+	call GetTurnDuelistVariable
+	cp DUELIST_TYPE_PLAYER
+	jr z, .player
+
+; not player
+	bank1call Func_61a1
+	bank1call PrintPlayAreaCardList_EnableLCD
+	ret
+
+.player
+	ldtx hl, ProcedureForStrangeBehaviorText
+	bank1call DrawWholeScreenTextBox
+
+	xor a
+	ldh [hCurSelectionItem], a
+	bank1call Func_61a1
+.start
+	bank1call PrintPlayAreaCardList_EnableLCD
+	push af
+	ldh a, [hCurSelectionItem]
+	ld hl, PlayAreaSelectionMenuParameters
+	call InitializeMenuParameters
+	pop af
+
+	ld [wNumMenuItems], a
+.loop_input
+	call DoFrame
+	call HandleMenuInput
+	jr nc, .loop_input
+	cp -1
+	ret z ; return when B button is pressed
+
+	ldh [hCurSelectionItem], a
+	ldh [hTempPlayAreaLocation_ffa1], a
+	ld hl, hTemp_ffa0
+	cp [hl]
+	jr z, .play_sfx ; can't select Slowbro itself
+
+	call GetCardDamageAndMaxHP
+	or a
+	jr z, .play_sfx ; can't select card without damage
+
+	call TryGiveDamageCounter_StrangeBehavior
+	jr c, .play_sfx
+	ld a, OPPACTION_6B15
+	call SetOppAction_SerialSendDuelData
+	jr .start
+
+.play_sfx
+	call Func_3794
+	jr .loop_input
+
+StrangeBehavior_SwapEffect: ; 2deb3 (b:5eb3)
+	call TryGiveDamageCounter_StrangeBehavior
+	ret c
+	bank1call PrintPlayAreaCardList_EnableLCD
+	or a
+	ret
+
+; tries to give the damage counter to the target
+; chosen by the Player (hTemp_ffa0).
+; if the damage counter would KO card, then do
+; not give the damage counter and return carry.
+TryGiveDamageCounter_StrangeBehavior: ; 2debc (b:5ebc)
+	ldh a, [hTemp_ffa0]
+	add DUELVARS_ARENA_CARD_HP
+	call GetTurnDuelistVariable
+	sub 10
+	jr z, .set_carry  ; would bring HP to zero?
+; has enough HP to receive a damage counter
+	ld [hl], a
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	add DUELVARS_ARENA_CARD_HP
+	ld l, a
+	ld a, 10
+	add [hl]
+	ld [hl], a
+	or a
+	ret
+.set_carry
+	scf
+	ret
+
+; returns carry if has no damage counters.
+SpacingOut_CheckDamage: ; 2ded5 (b:5ed5)
+	ld e, PLAY_AREA_ARENA
+	call GetCardDamageAndMaxHP
+	ldtx hl, NoDamageCountersText
+	cp 10
+	ret
+
+SpacingOut_Success50PercentEffect: ; 2dee0 (b:5ee0)
+	ldtx de, SuccessCheckIfHeadsAttackIsSuccessfulText
+	call TossCoin_BankB
+	ldh [hTemp_ffa0], a
+	jp nc, SetWasUnsuccessful
+	ld a, ATK_ANIM_RECOVER
+	ld [wLoadedAttackAnimation], a
+	ret
+
+SpacingOut_HealEffect: ; 2def1 (b:5ef1)
+	ldh a, [hTemp_ffa0]
+	or a
+	ret z ; coin toss was tails
+	ld e, PLAY_AREA_ARENA
+	call GetCardDamageAndMaxHP
+	or a
+	ret z ; no damage counters
+	ld a, DUELVARS_ARENA_CARD_HP
+	call GetTurnDuelistVariable
+	add 10
+	ld [hl], a
+	ret
+
+; sets carry if no Trainer cards in the Discard Pile.
+Scavenge_CheckDiscardPile: ; 2df05 (b:5f05)
+	ld e, PLAY_AREA_ARENA
+	call GetPlayAreaCardAttachedEnergies
+	ld a, [wAttachedEnergies + PSYCHIC]
+	ldtx hl, NotEnoughPsychicEnergyText
+	cp 1
+	ret c ; return if no Psychic energy attached
+	call CreateTrainerCardListFromDiscardPile
+	ldtx hl, ThereAreNoTrainerCardsInDiscardPileText ; this is redundant
+	ret
+
+Scavenge_PlayerSelectEnergyEffect: ; 2df1a (b:5f1a)
+	ld a, TYPE_ENERGY_PSYCHIC
+	call CreateListOfEnergyAttachedToArena
+	xor a ; PLAY_AREA_ARENA
+	bank1call DisplayEnergyDiscardScreen
+	bank1call HandleEnergyDiscardMenuInput
+	ret c
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTemp_ffa0], a
+	or a
+	ret
+
+Scavenge_AISelectEffect: ; 2df2d (b:5f2d)
+; AI picks first Energy card in list
+	ld a, TYPE_ENERGY_PSYCHIC
+	call CreateListOfEnergyAttachedToArena
+	ld a, [wDuelTempList]
+	ldh [hTemp_ffa0], a
+; AI picks first Trainer card in list
+	call CreateTrainerCardListFromDiscardPile
+	ld a, [wDuelTempList]
+	ldh [hTempPlayAreaLocation_ffa1], a
+	ret
+
+Scavenge_DiscardEffect: ; 2df40 (b:5f40)
+	ldh a, [hTemp_ffa0]
+	call PutCardInDiscardPile
+	ret
+
+Scavenge_PlayerSelectTrainerEffect: ; 2df46 (b:5f46)
+	call CreateTrainerCardListFromDiscardPile
+	bank1call Func_5591
+	ldtx hl, PleaseSelectCardText
+	ldtx de, PlayerDiscardPileText
+	bank1call SetCardListHeaderText
+.loop_input
+	bank1call DisplayCardList
+	jr c, .loop_input
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTempPlayAreaLocation_ffa1], a
+	ret
+
+Scavenge_AddToHandEffect: ; 2df5f (b:5f5f)
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	call MoveDiscardPileCardToHand
+	call AddCardToHand
+	call IsPlayerTurn
+	ret c
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	ldtx hl, WasPlacedInTheHandText
+	bank1call DisplayCardDetailScreen
+	ret
+
+; returns carry if Defending Pokemon has no attacks
+SlowpokeAmnesia_CheckAttacks: ; 2df74 (b:5f74)
+	call CheckIfDefendingPokemonHasAnyAttack
+	ldtx hl, NoAttackMayBeChoosenText
+	ret
+
+SlowpokeAmnesia_PlayerSelectEffect: ; 2df7b (b:5f7b)
+	call PlayerPickAttackForAmnesia
+	ret
+
+SlowpokeAmnesia_AISelectEffect: ; 2df7f (b:5f7f)
+	call AIPickAttackForAmnesia
+	ldh [hTemp_ffa0], a
+	ret
+
+SlowpokeAmnesia_DisableEffect: ; 2df85 (b:5f85)
+	call ApplyAmnesiaToAttack
+	ret
+
+; returns carry if Arena card has no Psychic Energy attached
+; or if it doesn't have any damage counters.
+KadabraRecover_CheckEnergyHP: ; 2df89 (b:5f89)
+	ld e, PLAY_AREA_ARENA
+	call GetPlayAreaCardAttachedEnergies
+	ld a, [wAttachedEnergies + PSYCHIC]
+	ldtx hl, NotEnoughPsychicEnergyText
+	cp 1
+	ret c ; return if not enough energy
+	call GetCardDamageAndMaxHP
+	ldtx hl, NoDamageCountersText
+	cp 10
+	ret ; return carry if no damage
+
+KadabraRecover_PlayerSelectEffect: ; 2dfa0 (b:5fa0)
+	ld a, TYPE_ENERGY_PSYCHIC
+	call CreateListOfEnergyAttachedToArena
+	xor a ; PLAY_AREA_ARENA
+	bank1call DisplayEnergyDiscardScreen
+	bank1call HandleEnergyDiscardMenuInput
+	ret c
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTemp_ffa0], a ; store card chosen
+	ret
+
+KadabraRecover_AISelectEffect: ; 2dfb2 (b:5fb2)
+	ld a, TYPE_ENERGY_PSYCHIC
+	call CreateListOfEnergyAttachedToArena
+	ld a, [wDuelTempList] ; pick first card
+	ldh [hTemp_ffa0], a
+	ret
+
+KadabraRecover_DiscardEffect: ; 2dfbd (b:5fbd)
+	ldh a, [hTemp_ffa0]
+	call PutCardInDiscardPile
+	ret
+
+KadabraRecover_HealEffect: ; 2dfc3 (b:5fc3)
+	ld e, PLAY_AREA_ARENA
+	call GetCardDamageAndMaxHP
+	ld e, a ; all damage for recovery
+	ld d, 0
+	call ApplyAndAnimateHPRecovery
+	ret
+
+JynxDoubleslap_AIEffect: ; 2dfd7 (b:5fd7)
+	ld a, 20 / 2
+	lb de, 0, 20
+	jp SetExpectedAIDamage
+
+JynxDoubleslap_MultiplierEffect: ; 2dfcf (b:5fcf)
+	ld hl, 10
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsXDamageText
+	ld a, 2
+	call TossCoinATimes_BankB
+	call ATimes10
+	call SetDefiniteDamage
+	ret
+
+JynxMeditate_AIEffect: ; 2dff2 (b:5ff2)
+	call JynxMeditate_DamageBoostEffect
+	jp SetDefiniteAIDamage
+
+JynxMeditate_DamageBoostEffect: ; 2dfec (b:5fec)
+; add damage counters of Defending card to damage
+	call SwapTurn
+	ld e, PLAY_AREA_ARENA
+	call GetCardDamageAndMaxHP
+	call SwapTurn
+	call AddToDamage
+	ret
+
+MysteryAttack_AIEffect: ; 2e001 (b:6001)
+	ld a, 10
+	lb de, 0, 20
+	jp SetExpectedAIDamage
+
+MysteryAttack_RandomEffect: ; 2e009 (b:6009)
+	ld a, 10
+	call SetDefiniteDamage
+
+; chooses a random effect from 8 possible options.
+	call UpdateRNGSources
+	and %111
+	ldh [hTemp_ffa0], a
+	ld hl, .random_effect
+	jp JumpToFunctionInTable
+
+.random_effect
+	dw ParalysisEffect
+	dw PoisonEffect
+	dw SleepEffect
+	dw ConfusionEffect
+	dw .no_effect ; this will actually activate recovery effect afterwards
+	dw .no_effect
+	dw .more_damage
+	dw .no_damage
+
+.more_damage
+	ld a, 20
+	call SetDefiniteDamage
+	ret
+
+.no_damage
+	ld a, ATK_ANIM_GLOW_EFFECT
+	ld [wLoadedAttackAnimation], a
+	xor a
+	call SetDefiniteDamage
+	call SetNoEffectFromStatus
+.no_effect
+	ret
+
+MysteryAttack_RecoverEffect: ; 2e03e (b:603e)
+; in case the 5th option was chosen for random effect,
+; trigger recovery effect for 10 HP.
+	ldh a, [hTemp_ffa0]
+	cp 4
+	ret nz
+	lb de, 0, 10
+	call ApplyAndAnimateHPRecovery
+	ret
+
+StoneBarrage_AIEffect: ; 2e04a (b:604a)
+	ld a, 10
+	lb de, 0, 100
+	jp SetExpectedAIDamage
+
+StoneBarrage_MultiplierEffect: ; 2e052 (b:6052)
+	xor a
+	ldh [hTemp_ffa0], a
+.loop_coin_toss
+	ldtx de, FlipUntilFailAppears10DamageForEachHeadsText
+	xor a
+	call TossCoinATimes_BankB
+	jr nc, .tails
+	ld hl, hTemp_ffa0
+	inc [hl] ; increase heads count
+	jr .loop_coin_toss
+
+.tails
+; store resulting damage
+	ldh a, [hTemp_ffa0]
+	ld l, a
+	ld h, 10
+	call HtimesL
+	ld de, wDamage
+	ld a, l
+	ld [de], a
+	inc de
+	ld a, h
+	ld [de], a
+	ret
+
+OnixHardenEffect: ; 2e075 (b:6075)
+	ld a, SUBSTATUS1_HARDEN
+	call ApplySubstatus1ToDefendingCard
+	ret
+
+PrimeapeFurySwipes_AIEffect: ; 2e07b (b:607b)
+	ld a, 60 / 2
+	lb de, 0, 60
+	jp SetExpectedAIDamage
+
+PrimeapeFurySwipes_MultiplierEffect: ; 2e083 (b:6083)
+	ld hl, 20
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsXDamageText
+	ld a, 3
+	call TossCoinATimes_BankB
+	add a
+	call ATimes10
+	call SetDefiniteDamage
+	ret
+
+TantrumEffect: ; 2e099 (b:6099)
+	ldtx de, IfTailsYourPokemonBecomesConfusedText
+	call TossCoin_BankB
+	ret c ; return if heads
+; confuse Pokemon
+	ld a, ATK_ANIM_MULTIPLE_SLASH
+	ld [wLoadedAttackAnimation], a
+	call SwapTurn
+	call ConfusionEffect
+	call SwapTurn
+	ret
+
+StrikesBackEffect: ; 2e0af (b:60af)
+	scf
+	ret
+
+KabutoArmorEffect: ; 2e0b1 (b:60b1)
+	scf
+	ret
+
+AbsorbEffect: ; 2e0b3 (b:60b3)
+	ld hl, wDealtDamage
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	srl h
+	rr l
+	bit 0, l
+	jr z, .rounded
+	; round up to nearest 10
+	ld de, 5
+	add hl, de
+.rounded
+	ld e, l
+	ld d, h
+	call ApplyAndAnimateHPRecovery
+	ret
+
+SnivelEffect: ; 2e0cb (b:60cb)
+	ld a, SUBSTATUS2_REDUCE_BY_20
+	call ApplySubstatus2ToDefendingCard
+	ret
+
+CuboneRage_AIEffect: ; 2e0d1 (b:60d1)
+	call CuboneRage_DamageBoostEffect
+	jp SetDefiniteAIDamage
+
+CuboneRage_DamageBoostEffect: ; 2e0d7 (b:60d7)
+	ld e, PLAY_AREA_ARENA
+	call GetCardDamageAndMaxHP
+	call AddToDamage
+	ret
+
+Bonemerang_AIEffect: ; 2e0e0 (b:60e0)
+	ld a, 60 / 2
+	lb de, 0, 60
+	jp SetExpectedAIDamage
+
+Bonemerang_MultiplierEffect: ; 2e0e8 (b:60e8)
+	ld hl, 30
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsXDamageText
+	ld a, 2
+	call TossCoinATimes_BankB
+	ld e, a
+	add a ; a = 2 * heads
+	add e ; a = 3 * heads
+	call ATimes10
+	call SetDefiniteDamage
+	ret
+
+; returns carry if can't add Pokemon from deck
+MarowakCallForFamily_CheckDeckAndPlayArea: ; 2e100 (b:6100)
+	call CheckIfDeckIsEmpty
+	ret c ; no cards in deck
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ldtx hl, NoSpaceOnTheBenchText
+	cp MAX_PLAY_AREA_POKEMON
+	ccf
+	ret
+
+MarowakCallForFamily_PlayerSelectEffect: ; 2e110 (b:6110)
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+
+	call CreateDeckCardList
+	ldtx hl, ChooseBasicFightingPokemonFromDeckText
+	ldtx bc, FightingPokemonDeckText
+	lb de, SEARCHEFFECT_BASIC_FIGHTING, $00
+	call LookForCardsInDeck
+	ret c
+
+; draw Deck list interface and print text
+	bank1call Func_5591
+	ldtx hl, ChooseBasicFightingPokemonText
+	ldtx de, DuelistDeckText
+	bank1call SetCardListHeaderText
+
+.loop
+	bank1call DisplayCardList
+	jr c, .pressed_b
+
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Type]
+	cp FIGHTING
+	jr nz, .play_sfx ; is Fighting?
+	ld a, [wLoadedCard2Stage]
+	or a
+	jr nz, .play_sfx ; is Basic?
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTemp_ffa0], a
+	or a
+	ret
+
+.play_sfx
+	; play SFX and loop back
+	call Func_3794
+	jr .loop
+
+.pressed_b
+; figure if Player can exit the screen without selecting,
+; that is, if the Deck has no Basic Fighting Pokemon.
+	ld a, DUELVARS_CARD_LOCATIONS
+	call GetTurnDuelistVariable
+.loop_b_press
+	ld a, [hl]
+	cp CARD_LOCATION_DECK
+	jr nz, .next
+	ld a, l
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard1Type]
+	cp FIGHTING
+	jr nz, .next ; found, go back to top loop
+	ld a, [wLoadedCard1Stage]
+	or a
+	jr z, .play_sfx ; found, go back to top loop
+.next
+	inc l
+	ld a, l
+	cp DECK_SIZE
+	jr c, .loop_b_press
+
+; no valid card in Deck, can safely exit screen
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	or a
+	ret
+
+MarowakCallForFamily_AISelectEffect: ; 2e177 (b:6177)
+	call CreateDeckCardList
+	ld hl, wDuelTempList
+.loop_deck
+	ld a, [hli]
+	ldh [hTemp_ffa0], a
+	cp $ff
+	ret z ; none found
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Type]
+	cp FIGHTING
+	jr nz, .loop_deck
+	ld a, [wLoadedCard2Stage]
+	or a
+	jr nz, .loop_deck
+; found
+	ret
+
+MarowakCallForFamily_PutInPlayAreaEffect: ; 2e194 (b:6194)
+	ldh a, [hTemp_ffa0]
+	cp $ff
+	jr z, .shuffle
+	call SearchCardInDeckAndAddToHand
+	call AddCardToHand
+	call PutHandPokemonCardInPlayArea
+	call IsPlayerTurn
+	jr c, .shuffle
+	; display card on screen
+	ldh a, [hTemp_ffa0]
+	ldtx hl, PlacedOnTheBenchText
+	bank1call DisplayCardDetailScreen
+.shuffle
+	call Func_2c0bd
+	ret
+
+KarateChop_AIEffect: ; 2e1b4 (b:61b4)
+	call KarateChop_DamageSubtractionEffect
+	jp SetDefiniteAIDamage
+
+KarateChop_DamageSubtractionEffect: ; 2e1ba (b:61ba)
+	ld e, PLAY_AREA_ARENA
+	call GetCardDamageAndMaxHP
+	ld e, a
+	ld hl, wDamage
+	ld a, [hl]
+	sub e
+	ld [hli], a
+	ld a, [hl]
+	sbc 0
+	ld [hl], a
+	rla
+	ret nc
+; cap it to 0 damage
+	xor a
+	call SetDefiniteDamage
+	ret
+
+SubmissionEffect: ; 2e1d1 (b:61d1)
+	ld a, 20
+	call DealRecoilDamageToSelf
+	ret
+
+GolemSelfdestructEffect: ; 2e1d7 (b:61d7)
+	ld a, 100
+	call DealRecoilDamageToSelf
+	ld a, $01
+	ld [wIsDamageToSelf], a
+	ld a, 20
+	call DealDamageToAllBenchedPokemon
+	call SwapTurn
+	xor a
+	ld [wIsDamageToSelf], a
+	ld a, 20
+	call DealDamageToAllBenchedPokemon
+	call SwapTurn
+	ret
+
+GravelerHardenEffect: ; 2e1f6 (b:61f6)
+	ld a, SUBSTATUS1_HARDEN
+	call ApplySubstatus1ToDefendingCard
+	ret
+
+Ram_SelectSwitchEffect: ; 2e1fc (b:61fc)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetNonTurnDuelistVariable
+	cp 2
+	jr c, .no_bench
+	call DuelistSelectForcedSwitch
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	ret
+.no_bench
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	ret
+
+Ram_RecoilSwitchEffect: ; 2e212 (b:6212)
+	ld a, 20
+	call DealRecoilDamageToSelf
+	ldh a, [hTemp_ffa0]
+	call HandleSwitchDefendingPokemonEffect
+	ret
+
+LeerEffect: ; 2e21d (b:621d)
+	ldtx de, IfHeadsOpponentCannotAttackText
+	call TossCoin_BankB
+	jp nc, SetWasUnsuccessful
+	ld a, ATK_ANIM_LEER
+	ld [wLoadedAttackAnimation], a
+	ld a, SUBSTATUS2_LEER
+	call ApplySubstatus2ToDefendingCard
+	ret
+
+; return carry if opponent has no Bench Pokemon.
+StretchKick_CheckBench: ; 2e231 (b:6231)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetNonTurnDuelistVariable
+	ldtx hl, EffectNoPokemonOnTheBenchText
+	cp 2
+	ret
+
+StretchKick_PlayerSelectEffect: ; 2e23c (b:623c)
+	ldtx hl, ChoosePkmnInTheBenchToGiveDamageText
+	call DrawWideTextBox_WaitForInput
+	call SwapTurn
+	bank1call HasAlivePokemonInBench
+.loop_input
+	bank1call OpenPlayAreaScreenForSelection
+	jr c, .loop_input
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	call SwapTurn
+	ret
+
+StretchKick_AISelectEffect: ; 2e255 (b:6255)
+; chooses Bench Pokemon with least amount of remaining HP
+	call GetBenchPokemonWithLowestHP
+	ldh [hTemp_ffa0], a
+	ret
+
+StretchKick_BenchDamageEffect: ; 2e25b (b:625b)
+	call SwapTurn
+	ldh a, [hTemp_ffa0]
+	ld b, a
+	ld de, 20
+	call DealDamageToPlayAreaPokemon_RegularAnim
+	call SwapTurn
+	ret
+
+SandAttackEffect: ; 2e26b (b:626b)
+	ld a, SUBSTATUS2_SAND_ATTACK
+	call ApplySubstatus2ToDefendingCard
+	ret
+
+SandslashFurySwipes_AIEffect: ; 2e271 (b:6271)
+	ld a, 60 / 2
+	lb de, 0, 60
+	jp SetExpectedAIDamage
+
+SandslashFurySwipes_MultiplierEffect: ; 2e279 (b:6279)
+	ld hl, 20
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsXDamageText
+	ld a, 3
+	call TossCoinATimes_BankB
+	add a
+	call ATimes10
+	call SetDefiniteDamage
+	ret
+
+EarthquakeEffect: ; 2e28f (b:628f)
+	ld a, $01
+	ld [wIsDamageToSelf], a
+	ld a, 10
+	call DealDamageToAllBenchedPokemon
+	ret
+
+PrehistoricPowerEffect: ; 2e29a (b:629a)
+	scf
+	ret
+
+; returns carry if Pkmn Power can't be used.
+Peek_OncePerTurnCheck: ; 2e29c (b:629c)
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	add DUELVARS_ARENA_CARD_FLAGS
+	call GetTurnDuelistVariable
+	and USED_PKMN_POWER_THIS_TURN
+	jr nz, .already_used
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	call CheckCannotUseDueToStatus_OnlyToxicGasIfANon0
+	ret
+.already_used
+	ldtx hl, OnlyOncePerTurnText
+	scf
+	ret
+
+Peek_SelectEffect: ; 2e2b4 (b:62b4)
+; set Pkmn Power used flag
+	ldh a, [hTemp_ffa0]
+	add DUELVARS_ARENA_CARD_FLAGS
+	call GetTurnDuelistVariable
+	set USED_PKMN_POWER_THIS_TURN_F, [hl]
+
+	ld a, DUELVARS_DUELIST_TYPE
+	call GetTurnDuelistVariable
+	cp DUELIST_TYPE_LINK_OPP
+	jr z, .link_opp
+	and DUELIST_TYPE_AI_OPP
+	jr nz, .ai_opp
+
+; player
+	call Func_3b31
+	call HandlePeekSelection
+	ldh [hAIPkmnPowerEffectParam], a
+	call SerialSend8Bytes
+	ret
+
+.link_opp
+	call SerialRecv8Bytes
+	ldh [hAIPkmnPowerEffectParam], a
+
+.ai_opp
+	ldh a, [hAIPkmnPowerEffectParam]
+	bit AI_PEEK_TARGET_HAND_F, a
+	jr z, .prize_or_deck
+	and (~AI_PEEK_TARGET_HAND & $ff) ; unset bit to get deck index
+; if masked value is higher than $40, then it means
+; that AI chose to look at Player's deck.
+; all deck indices will be smaller than $40.
+	cp $40
+	jr c, .hand
+	ldh a, [hAIPkmnPowerEffectParam]
+	jr .prize_or_deck
+
+.hand
+; AI chose to look at random card in hand,
+; so display it to the Player on screen.
+	call SwapTurn
+	ldtx hl, PeekWasUsedToLookInYourHandText
+	bank1call DisplayCardDetailScreen
+	call SwapTurn
+	ret
+
+.prize_or_deck
+; AI chose either a prize card or Player's top deck card,
+; so show Play Area and draw cursor appropriately.
+	call Func_3b31
+	call SwapTurn
+	ldh a, [hAIPkmnPowerEffectParam]
+	xor $80
+	call DrawAIPeekScreen
+	call SwapTurn
+	ldtx hl, CardPeekWasUsedOnText
+	call DrawWideTextBox_WaitForInput
+	ret
+
+BoneAttackEffect: ; 2e30f (b:630f)
+	ldtx de, IfHeadsOpponentCannotAttackText
+	call TossCoin_BankB
+	ret nc
+	ld a, SUBSTATUS2_BONE_ATTACK
+	call ApplySubstatus2ToDefendingCard
+	ret
+
+; return carry if neither Play Area
+; has room for more Bench Pokemon.
+Wail_BenchCheck: ; 2e31c (b:631c)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	cp MAX_PLAY_AREA_POKEMON
+	jr c, .no_carry
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetNonTurnDuelistVariable
+	cp MAX_PLAY_AREA_POKEMON
+	jr c, .no_carry
+	ldtx hl, NoSpaceOnTheBenchText
+	scf
+	ret
+.no_carry
+	or a
+	ret
+
+Wail_FillBenchEffect: ; 2e335 (b:6335)
+	call SwapTurn
+	call .FillBench
+	call SwapTurn
+	call .FillBench
+
+; display both Play Areas
+	ldtx hl, BasicPokemonWasPlacedOnEachBenchText
+	call DrawWideTextBox_WaitForInput
+	bank1call HasAlivePokemonInPlayArea
+	bank1call OpenPlayAreaScreenForSelection
+	call SwapTurn
+	bank1call HasAlivePokemonInPlayArea
+	bank1call OpenPlayAreaScreenForSelection
+	call SwapTurn
+	ret
+
+.FillBench ; 2e35a (b:635a)
+	call CreateDeckCardList
+	ret c
+	ld hl, wDuelTempList
+	call ShuffleCards
+
+; if no more space in the Bench, then return.
+.check_bench
+	push hl
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	pop hl
+	cp MAX_PLAY_AREA_POKEMON
+	jr nc, .done
+
+; there's still space, so look for the next
+; Basic Pokemon card to put in the Bench.
+.loop
+	ld a, [hli]
+	ldh [hTempCardIndex_ff98], a
+	cp $ff
+	jr z, .done
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Type]
+	cp TYPE_ENERGY
+	jr nc, .loop ; is Pokemon card?
+	ld a, [wLoadedCard2Stage]
+	or a
+	jr nz, .loop ; is Basic?
+; place card in Bench
+	push hl
+	ldh a, [hTempCardIndex_ff98]
+	call SearchCardInDeckAndAddToHand
+	call AddCardToHand
+	call PutHandPokemonCardInPlayArea
+	pop hl
+	jr .check_bench
+
+.done
+	call Func_2c0bd
+	ret
+
+Thunderpunch_AIEffect: ; 2e399 (b:6399)
+	ld a, (30 + 40) / 2
+	lb de, 30, 40
+	jp SetExpectedAIDamage
+
+Thunderpunch_ModifierEffect: ; 2e3a1 (b:63a1)
+	ldtx de, IfHeadPlus10IfTails10ToYourselfText
+	call TossCoin_BankB
+	ldh [hTemp_ffa0], a
+	ret nc ; return if got tails
+	ld a, 10
+	call AddToDamage
+	ret
+
+Thunderpunch_RecoilEffect: ; 2e3b0 (b:63b0)
+	ldh a, [hTemp_ffa0]
+	or a
+	ret nz ; return if got heads
+	ld a, 10
+	call DealRecoilDamageToSelf
+	ret
+
+LightScreenEffect: ; 2e3ba (b:63ba)
+	ld a, SUBSTATUS1_HALVE_DAMAGE
+	call ApplySubstatus1ToDefendingCard
+	ret
+
+ElectabuzzQuickAttack_AIEffect: ; 2e3c0 (b:63c0)
+	ld a, (10 + 30) / 2
+	lb de, 10, 30
+	jp SetExpectedAIDamage
+
+ElectabuzzQuickAttack_DamageBoostEffect: ; 2e3c8 (b:63c8)
+	ld hl, 20
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsPlusDamageText
+	call TossCoin_BankB
+	ret nc ; return if tails
+	ld a, 20
+	call AddToDamage
+	ret
+
+MagnemiteSelfdestructEffect: ; 2e3db (b:63db)
+	ld a, 40
+	call DealRecoilDamageToSelf
+
+	ld a, $01
+	ld [wIsDamageToSelf], a
+	ld a, 10
+	call DealDamageToAllBenchedPokemon
+	call SwapTurn
+
+	xor a
+	ld [wIsDamageToSelf], a
+	ld a, 10
+	call DealDamageToAllBenchedPokemon
+	call SwapTurn
+	ret
+
+ZapdosThunder_Recoil50PercentEffect: ; 2e3fa (b:63fa)
+	ld hl, 30
+	call LoadTxRam3
+	ldtx de, IfTailsDamageToYourselfTooText
+	call TossCoin_BankB
+	ldh [hTemp_ffa0], a
+	ret
+
+ZapdosThunder_RecoilEffect: ; 2e409 (b:6409)
+	ld hl, 30
+	call LoadTxRam3
+	ldh a, [hTemp_ffa0]
+	or a
+	ret nz ; return if got heads
+	ld a, 30
+	call DealRecoilDamageToSelf
+	ret
+
+ThunderboltEffect: ; 2e419 (b:6419)
+	xor a
+	call CreateArenaOrBenchEnergyCardList
+	ld hl, wDuelTempList
+; put all energy cards in Discard Pile
+.loop
+	ld a, [hli]
+	cp $ff
+	ret z
+	call PutCardInDiscardPile
+	jr .loop
+
+ThunderstormEffect: ; 2e429 (b:6429)
+	ld a, 1
+	ldh [hCurSelectionItem], a
+
+	call SwapTurn
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ld c, a
+	ld b, 0
+	ld e, b
+	jr .next_pkmn
+
+.check_damage
+	push de
+	push bc
+	call .DisplayText
+	ld de, $0
+	call SwapTurn
+	call TossCoin_BankB
+	call SwapTurn
+	push af
+	call GetNextPositionInTempList
+	pop af
+	ld [hl], a ; store result in list
+	pop bc
+	pop de
+	jr c, .next_pkmn
+	inc b ; increase number of tails
+
+.next_pkmn
+	inc e
+	dec c
+	jr nz, .check_damage
+
+; all coins were tossed for each Benched Pokemon
+	call GetNextPositionInTempList
+	ld [hl], $ff
+	ld a, b
+	ldh [hTemp_ffa0], a
+	call Func_3b21
+	call SwapTurn
+
+; tally recoil damage
+	ldh a, [hTemp_ffa0]
+	or a
+	jr z, .skip_recoil
+	; deal number of tails times 10 to self
+	call ATimes10
+	call DealRecoilDamageToSelf
+.skip_recoil
+
+; deal damage for Bench Pokemon that got heads
+	call SwapTurn
+	ld hl, hTempPlayAreaLocation_ffa1
+	ld b, PLAY_AREA_BENCH_1
+.loop_bench
+	ld a, [hli]
+	cp $ff
+	jr z, .done
+	or a
+	jr z, .skip_damage ; skip if tails
+	ld de, 20
+	call DealDamageToPlayAreaPokemon_RegularAnim
+.skip_damage
+	inc b
+	jr .loop_bench
+
+.done
+	call SwapTurn
+	ret
+
+; displays text for current Bench Pokemon,
+; printing its Bench number and name.
+.DisplayText ; 2e491 (b:6491)
+	ld b, e
+	ldtx hl, BenchText
+	ld de, wDefaultText
+	call CopyText
+	ld a, $30 ; 0 FW character
+	add b
+	ld [de], a
+	inc de
+	ld a, $20 ; space FW character
+	ld [de], a
+	inc de
+
+	ld a, DUELVARS_ARENA_CARD
+	add b
+	call GetTurnDuelistVariable
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld hl, wLoadedCard2Name
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	call CopyText
+
+	xor a
+	ld [wDuelDisplayedScreen], a
+	ret
+
+JolteonQuickAttack_AIEffect: ; 2e4bb (b:64bb)
+	ld a, (10 + 30) / 2
+	lb de, 10, 30
+	jp SetExpectedAIDamage
+
+JolteonQuickAttack_DamageBoostEffect: ; 2e4c3 (b:64c3)
+	ld hl, 20
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsPlusDamageText
+	call TossCoin_BankB
+	ret nc ; return if tails
+	ld a, 20
+	call AddToDamage
+	ret
+
+PinMissile_AIEffect: ; 2e4d6 (b:64d6)
+	ld a, (20 * 4) / 2
+	lb de, 0, 80
+	jp SetExpectedAIDamage
+
+PinMissile_MultiplierEffect: ; 2e4de (b:64de)
+	ld hl, 20
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsXDamageText
+	ld a, 4
+	call TossCoinATimes_BankB
+	add a ; a = 2 * heads
+	call ATimes10
+	call SetDefiniteDamage
+	ret
+
+Fly_AIEffect: ; 2e4f4 (b:64f4)
+	ld a, 30 / 2
+	lb de, 0, 30
+	jp SetExpectedAIDamage
+
+Fly_Success50PercentEffect: ; 2e4fc (b:64fc)
+	ldtx de, SuccessCheckIfHeadsAttackIsSuccessfulText
+	call TossCoin_BankB
+	jr c, .heads
+	xor a ; ATK_ANIM_NONE
+	ld [wLoadedAttackAnimation], a
+	call SetDefiniteDamage
+	call SetWasUnsuccessful
+	ret
+.heads
+	ld a, ATK_ANIM_AGILITY_PROTECT
+	ld [wLoadedAttackAnimation], a
+	ld a, SUBSTATUS1_FLY
+	call ApplySubstatus1ToDefendingCard
+	ret
+
+ThunderJolt_Recoil50PercentEffect: ; 2e51a (b:651a)
+	ld hl, 10
+	call LoadTxRam3
+	ldtx de, IfTailsDamageToYourselfTooText
+	call TossCoin_BankB
+	ldh [hTemp_ffa0], a
+	ret
+
+ThunderJolt_RecoilEffect: ; 2e529 (b:6529)
+	ld hl, 10
+	call LoadTxRam3
+	ldh a, [hTemp_ffa0]
+	or a
+	ret nz ; return if was heads
+	ld a, 10
+	call DealRecoilDamageToSelf
+	ret
+
+Spark_PlayerSelectEffect: ; 2e539 (b:6539)
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetNonTurnDuelistVariable
+	cp 2
+	ret c ; has no Bench Pokemon
+
+	ldtx hl, ChoosePkmnInTheBenchToGiveDamageText
+	call DrawWideTextBox_WaitForInput
+	call SwapTurn
+	bank1call HasAlivePokemonInBench
+
+	; the following two instructions can be removed
+	; since Player selection will overwrite it.
+	ld a, PLAY_AREA_BENCH_1
+	ldh [hTempPlayAreaLocation_ff9d], a
+
+.loop_input
+	bank1call OpenPlayAreaScreenForSelection
+	jr c, .loop_input
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	call SwapTurn
+	ret
+
+Spark_AISelectEffect: ; 2e562 (b:6562)
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetNonTurnDuelistVariable
+	cp 2
+	ret c ; has no Bench Pokemon
+; AI always picks Pokemon with lowest HP remaining
+	call GetBenchPokemonWithLowestHP
+	ldh [hTemp_ffa0], a
+	ret
+
+Spark_BenchDamageEffect: ; 2e574 (b:6574)
+	ldh a, [hTemp_ffa0]
+	cp $ff
+	ret z
+	call SwapTurn
+	ldh a, [hTemp_ffa0]
+	ld b, a
+	ld de, 10
+	call DealDamageToPlayAreaPokemon_RegularAnim
+	call SwapTurn
+	ret
+
+Pikachu3GrowlEffect: ; 2e589 (b:6589)
+	ld a, SUBSTATUS2_GROWL
+	call ApplySubstatus2ToDefendingCard
+	ret
+
+Pikachu4GrowlEffect: ; 2e58f (b:658f)
+	ld a, SUBSTATUS2_GROWL
+	call ApplySubstatus2ToDefendingCard
+	ret
+
+ChainLightningEffect: ; 2e595 (b:6595)
+	ld a, 10
+	call SetDefiniteDamage
+	call SwapTurn
+	call GetArenaCardColor
+	call SwapTurn
+	ldh [hCurSelectionItem], a
+	cp COLORLESS
+	ret z ; don't damage if colorless
+
+; opponent's Bench
+	call SwapTurn
+	call .DamageSameColorBench
+	call SwapTurn
+
+; own Bench
+	ld a, $01
+	ld [wIsDamageToSelf], a
+	call .DamageSameColorBench
+	ret
+
+.DamageSameColorBench ; 2e5ba (b:65ba)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ld e, a
+	ld d, PLAY_AREA_ARENA
+	jr .next_bench
+
+.check_damage
+	ld a, d
+	call GetPlayAreaCardColor
+	ld c, a
+	ldh a, [hCurSelectionItem]
+	cp c
+	jr nz, .next_bench ; skip if not same color
+; apply damage to this Bench card
+	push de
+	ld b, d
+	ld de, 10
+	call DealDamageToPlayAreaPokemon_RegularAnim
+	pop de
+
+.next_bench
+	inc d
+	dec e
+	jr nz, .check_damage
+	ret
+
+RaichuAgilityEffect: ; 2e5dc (b:65dc)
+	ldtx de, IfHeadsDoNotReceiveDamageOrEffectText
+	call TossCoin_BankB
+	ret nc ; skip if got tails
+	ld a, ATK_ANIM_AGILITY_PROTECT
+	ld [wLoadedAttackAnimation], a
+	ld a, SUBSTATUS1_AGILITY
+	call ApplySubstatus1ToDefendingCard
+	ret
+
+RaichuThunder_Recoil50PercentEffect: ; 2e5ee (b:65ee)
+	ld hl, 30
+	call LoadTxRam3
+	ldtx de, IfTailsDamageToYourselfTooText
+	call TossCoin_BankB
+	ldh [hTemp_ffa0], a
+	ret
+
+RaichuThunder_RecoilEffect: ; 2e5fd (b:65fd)
+	ld hl, 30
+	call LoadTxRam3
+	ldh a, [hTemp_ffa0]
+	or a
+	ret nz ; return if got heads
+	ld a, 30
+	call DealRecoilDamageToSelf
+	ret
+
+Gigashock_PlayerSelectEffect: ; 2e60d (b:660d)
+	call SwapTurn
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	cp 2
+	jr nc, .has_bench
+	call SwapTurn
+	ld a, $ff
+	ldh [hTempList], a
+	ret
+
+.has_bench
+	ldtx hl, ChooseUpTo3PkmnOnBenchToGiveDamageText
+	call DrawWideTextBox_WaitForInput
+
+; init number of items in list and cursor position
+	xor a
+	ldh [hCurSelectionItem], a
+	ld [wce72], a
+	bank1call Func_61a1
+.start
+	bank1call PrintPlayAreaCardList_EnableLCD
+	push af
+	ld a, [wce72]
+	ld hl, BenchSelectionMenuParameters
+	call InitializeMenuParameters
+	pop af
+
+; exclude Arena Pokemon from number of items
+	dec a
+	ld [wNumMenuItems], a
+
+.loop_input
+	call DoFrame
+	call HandleMenuInput
+	jr nc, .loop_input
+	cp -1
+	jr z, .try_cancel
+
+	ld [wce72], a
+	call .CheckIfChosenAlready
+	jr nc, .not_chosen
+	; play SFX
+	call Func_3794
+	jr .loop_input
+
+.not_chosen
+; mark this Play Area location
+	ldh a, [hCurMenuItem]
+	inc a
+	ld b, SYM_LIGHTNING
+	call DrawSymbolOnPlayAreaCursor
+; store it in the list of chosen Bench Pokemon
+	call GetNextPositionInTempList
+	ldh a, [hCurMenuItem]
+	inc a
+	ld [hl], a
+
+; check if 3 were chosen already
+	ldh a, [hCurSelectionItem]
+	ld c, a
+	cp 3
+	jr nc, .chosen ; check if already chose 3
+
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	dec a
+	cp c
+	jr nz, .start ; if sill more options available, loop back
+	; fallthrough if no other options available to choose
+
+.chosen
+	ldh a, [hCurMenuItem]
+	inc a
+	call Func_2c10b
+	ldh a, [hKeysPressed]
+	and B_BUTTON
+	jr nz, .try_cancel
+	call SwapTurn
+	call GetNextPositionInTempList
+	ld [hl], $ff ; terminating byte
+	ret
+
+.try_cancel
+	ldh a, [hCurSelectionItem]
+	or a
+	jr z, .start ; none selected, can safely loop back to start
+
+; undo last selection made
+	dec a
+	ldh [hCurSelectionItem], a
+	ld e, a
+	ld d, $00
+	ld hl, hTempList
+	add hl, de
+	ld a, [hl]
+
+	push af
+	ld b, SYM_SPACE
+	call DrawSymbolOnPlayAreaCursor
+	call EraseCursor
+	pop af
+
+	dec a
+	ld [wce72], a
+	jr .start
+
+; returns carry if Bench Pokemon
+; in register a was already chosen.
+.CheckIfChosenAlready: ; 2e6af (b:66af)
+	inc a
+	ld c, a
+	ldh a, [hCurSelectionItem]
+	ld b, a
+	ld hl, hTempList
+	inc b
+	jr .next_check
+.check_chosen
+	ld a, [hli]
+	cp c
+	scf
+	ret z ; return if chosen already
+.next_check
+	dec b
+	jr nz, .check_chosen
+	or a
+	ret
+
+Gigashock_AISelectEffect: ; 2e6c3 (b:66c3)
+; if Bench has 3 Pokemon or less, no need for selection,
+; since AI will choose them all.
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetNonTurnDuelistVariable
+	cp MAX_PLAY_AREA_POKEMON - 1
+	jr nc, .start_selection
+
+; select them all
+	ld hl, hTempList
+	ld b, PLAY_AREA_ARENA
+	jr .next_bench
+.select_bench
+	ld [hl], b
+	inc hl
+.next_bench
+	inc b
+	dec a
+	jr nz, .select_bench
+	ld [hl], $ff ; terminating byte
+	ret
+
+.start_selection
+; has more than 3 Bench cards, proceed to sort them
+; by lowest remaining HP to highest, and pick first 3.
+	call SwapTurn
+	dec a
+	ld c, a
+	ld b, PLAY_AREA_BENCH_1
+
+; first select all of the Bench Pokemon and write to list
+	ld hl, hTempList
+.loop_all
+	ld [hl], b
+	inc hl
+	inc b
+	dec c
+	jr nz, .loop_all
+	ld [hl], $00 ; end list with $00
+
+; then check each of the Bench Pokemon HP
+; sort them from lowest remaining HP to highest.
+	ld de, hTempList
+.loop_outer
+	ld a, [de]
+	add DUELVARS_ARENA_CARD_HP
+	call GetTurnDuelistVariable
+	ld c, a
+	ld l, e
+	ld h, d
+	inc hl
+
+.loop_inner
+	ld a, [hli]
+	or a
+	jr z, .next ; reaching $00 means it's end of list
+
+	push hl
+	add DUELVARS_ARENA_CARD_HP
+	call GetTurnDuelistVariable
+	pop hl
+	cp c
+	jr c, .loop_inner
+	; a Bench Pokemon was found with less HP
+	ld c, a ; store its HP
+
+; switch the two
+	dec hl
+	ld b, [hl]
+	ld a, [de]
+	ld [hli], a
+	ld a, b
+	ld [de], a
+	jr .loop_inner
+
+.next
+	inc de
+	ld a, [de]
+	or a
+	jr nz, .loop_outer
+
+; done
+	ld a, $ff ; terminating byte
+	ldh [hTempList + 3], a
+	call SwapTurn
+	ret
+
+Gigashock_BenchDamageEffect: ; 2e71f (b:671f)
+	call SwapTurn
+	ld hl, hTempList
+.loop_selection
+	ld a, [hli]
+	cp $ff
+	jr z, .done
+	push hl
+	ld b, a
+	ld de, 10
+	call DealDamageToPlayAreaPokemon_RegularAnim
+	pop hl
+	jr .loop_selection
+.done
+	call SwapTurn
+	ret
+
+Magneton1SelfdestructEffect: ; 2e739 (b:6739)
+	ld a, 80
+	call DealRecoilDamageToSelf
+
+; own bench
+	ld a, $01
+	ld [wIsDamageToSelf], a
+	ld a, 20
+	call DealDamageToAllBenchedPokemon
+
+; opponent's bench
+	call SwapTurn
+	xor a
+	ld [wIsDamageToSelf], a
+	ld a, 20
+	call DealDamageToAllBenchedPokemon
+	call SwapTurn
+	ret
+
+MagnetonSonicboom_UnaffectedByColorEffect: ; 2e758 (b:6758)
+	ld hl, wDamage + 1
+	set UNAFFECTED_BY_WEAKNESS_RESISTANCE_F, [hl]
+	ret
+
+MagnetonSonicboom_NullEffect: ; 2e75e (b:675e)
+	ret
+
+Magneton2SelfdestructEffect: ; 2e75f (b:675f)
+	ld a, 100
+	call DealRecoilDamageToSelf
+
+; own bench
+	ld a, $01
+	ld [wIsDamageToSelf], a
+	ld a, 20
+	call DealDamageToAllBenchedPokemon
+
+; opponent's bench
+	call SwapTurn
+	xor a
+	ld [wIsDamageToSelf], a
+	ld a, 20
+	call DealDamageToAllBenchedPokemon
+	call SwapTurn
+	ret
+
+PealOfThunder_InitialEffect: ; 2e77e (b:677e)
+	scf
+	ret
+
+PealOfThunder_RandomlyDamageEffect: ; 2e780 (b:6780)
+	call ExchangeRNG
+	ld de, 30 ; damage to inflict
+	call RandomlyDamagePlayAreaPokemon
+	bank1call Func_6e49
+	ret
+
+; randomly damages a Pokemon in play, except
+; card that is in [hTempPlayAreaLocation_ff9d].
+; plays thunder animation when Play Area is shown.
+; input:
+;	de = amount of damage to deal
+RandomlyDamagePlayAreaPokemon: ; 2e78d (b:678d)
+	xor a
+	ld [wNoDamageOrEffect], a
+
+; choose randomly which Play Area to attack
+	call UpdateRNGSources
+	and 1
+	jr nz, .opp_play_area
+
+; own Play Area
+	ld a, $01
+	ld [wIsDamageToSelf], a
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	call Random
+	ld b, a
+	; can't select Zapdos
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	cp b
+	jr z, RandomlyDamagePlayAreaPokemon ; re-roll Pokemon to attack
+
+.damage
+	ld a, ATK_ANIM_THUNDER_PLAY_AREA
+	ld [wLoadedAttackAnimation], a
+	call DealDamageToPlayAreaPokemon
+	ret
+
+.opp_play_area
+	xor a
+	ld [wIsDamageToSelf], a
+	call SwapTurn
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	call Random
+	ld b, a
+	call .damage
+	call SwapTurn
+	ret
+
+BigThunderEffect: ; 2e7cb (b:67cb)
+	call ExchangeRNG
+	ld de, 70 ; damage to inflict
+	call RandomlyDamagePlayAreaPokemon
+	ret
+
+MagneticStormEffect: ; 2e7d5 (b:67d5)
+	ld a, DUELVARS_CARD_LOCATIONS
+	call GetTurnDuelistVariable
+
+; writes in wDuelTempList all deck indices
+; of Energy cards attached to Pokemon
+; in the Turn Duelist's Play Area.
+	ld de, wDuelTempList
+	ld c, 0
+.loop_card_locations
+	ld a, [hl]
+	and CARD_LOCATION_PLAY_AREA
+	jr z, .next_card_location
+
+; is a card that is in the Play Area
+	push hl
+	push de
+	push bc
+	ld a, l
+	call GetCardIDFromDeckIndex
+	call GetCardType
+	pop bc
+	pop de
+	pop hl
+	and TYPE_ENERGY
+	jr z, .next_card_location
+; is an Energy card attached to Pokemon in Play Area
+	ld a, l
+	ld [de], a
+	inc de
+	inc c
+.next_card_location
+	inc l
+	ld a, l
+	cp DECK_SIZE
+	jr c, .loop_card_locations
+	ld a, $ff ; terminating byte
+	ld [de], a
+
+; divide number of energy cards
+; by number of Pokemon in Play Area
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ld b, a
+	ld a, c
+	ld c, -1
+.loop_division
+	inc c
+	sub b
+	jr nc, .loop_division
+	; c = floor(a / b)
+
+; evenly divides the Energy cards randomly
+; to every Pokemon in the Play Area.
+	push bc
+	ld hl, wDuelTempList
+	call CountCardsInDuelTempList
+	call ShuffleCards
+	ld d, c
+	ld e, PLAY_AREA_ARENA
+.start_attach
+	ld c, d
+	inc c
+	jr .check_done
+.attach_energy
+	ld a, [hli]
+	push hl
+	push de
+	push bc
+	call AddCardToHand
+	call PutHandCardInPlayArea
+	pop bc
+	pop de
+	pop hl
+.check_done
+	dec c
+	jr nz, .attach_energy
+; go to next Pokemon in Play Area
+	inc e ; next in Play Area
+	dec b
+	jr nz, .start_attach
+	pop bc
+
+	push hl
+	ld hl, hTempList
+
+; fill hTempList with PLAY_AREA_* locations
+; that have Pokemon in them.
+	push hl
+	xor a
+.loop_init
+	ld [hli], a
+	inc a
+	cp b
+	jr nz, .loop_init
+	pop hl
+
+; shuffle them and distribute
+; the remaining cards in random order.
+	ld a, b
+	call ShuffleCards
+	pop hl
+	ld de, hTempList
+.next_random_pokemon
+	ld a, [hl]
+	cp $ff
+	jr z, .done
+	push hl
+	push de
+	ld a, [de]
+	ld e, a
+	ld a, [hl]
+	call AddCardToHand
+	call PutHandCardInPlayArea
+	pop de
+	pop hl
+	inc hl
+	inc de
+	jr .next_random_pokemon
+
+.done
+	bank1call DrawDuelMainScene
+	bank1call DrawDuelHUDs
+	ldtx hl, TheEnergyCardFromPlayAreaWasMovedText
+	call DrawWideTextBox_WaitForInput
+	xor a
+	call Func_2c10b
+	ret
+
+ElectrodeSonicboom_UnaffectedByColorEffect: ; 2e870 (b:6870)
+	ld hl, wDamage + 1
+	set UNAFFECTED_BY_WEAKNESS_RESISTANCE_F, [hl]
+	ret
+
+ElectrodeSonicboom_NullEffect: ; 2e876 (b:6876)
+	ret
+
+; return carry if no cards in Deck
+EnergySpike_DeckCheck: ; 2e877 (b:6877)
+	call CheckIfDeckIsEmpty
+	ret
+
+EnergySpike_PlayerSelectEffect: ; 2e87b (b:687b)
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+
+; search cards in Deck
+	call CreateDeckCardList
+	ldtx hl, Choose1BasicEnergyCardFromDeckText
+	ldtx bc, BasicEnergyText
+	lb de, SEARCHEFFECT_BASIC_ENERGY, 0
+	call LookForCardsInDeck
+	ret c
+
+	bank1call Func_5591
+	ldtx hl, ChooseBasicEnergyCardText
+	ldtx de, DuelistDeckText
+	bank1call SetCardListHeaderText
+.select_card
+	bank1call DisplayCardList
+	jr c, .try_cancel
+	call GetCardIDFromDeckIndex
+	call GetCardType
+	cp TYPE_ENERGY_DOUBLE_COLORLESS
+	jr nc, .select_card ; not a Basic Energy card
+	and TYPE_ENERGY
+	jr z, .select_card ; not a Basic Energy card
+	; Energy card selected
+
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTemp_ffa0], a
+	call EmptyScreen
+	ldtx hl, ChoosePokemonToAttachEnergyCardText
+	call DrawWideTextBox_WaitForInput
+
+; choose a Pokemon in Play Area to attach card
+	bank1call HasAlivePokemonInPlayArea
+.loop_input
+	bank1call OpenPlayAreaScreenForSelection
+	jr c, .loop_input
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTempPlayAreaLocation_ffa1], a
+	ret
+
+.play_sfx
+	call Func_3794
+	jr .select_card
+
+.try_cancel
+; Player tried exiting screen, if there are
+; any Basic Energy cards, Player is forced to select them.
+; otherwise, they can safely exit.
+	ld a, DUELVARS_CARD_LOCATIONS
+	call GetTurnDuelistVariable
+.loop_deck
+	ld a, [hl]
+	cp CARD_LOCATION_DECK
+	jr nz, .next_card
+	ld a, l
+	call GetCardIDFromDeckIndex
+	call GetCardType
+	and TYPE_ENERGY
+	jr z, .next_card
+	cp TYPE_ENERGY_DOUBLE_COLORLESS
+	jr c, .play_sfx
+.next_card
+	inc l
+	ld a, l
+	cp DECK_SIZE
+	jr c, .loop_deck
+	; can exit
+
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	ret
+
+EnergySpike_AISelectEffect: ; 2e8f1 (b:68f1)
+; AI doesn't select any card
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	ret
+
+EnergySpike_AttachEnergyEffect: ; 2e8f6 (b:68f6)
+	ldh a, [hTemp_ffa0]
+	cp $ff
+	jr z, .done
+
+; add card to hand and attach it to the selected Pokemon
+	call SearchCardInDeckAndAddToHand
+	call AddCardToHand
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	ld e, a
+	ldh a, [hTemp_ffa0]
+	call PutHandCardInPlayArea
+	call IsPlayerTurn
+	jr c, .done
+
+; not Player, so show detail screen
+; and which Pokemon was chosen to attach Energy.
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	add DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	call LoadCardDataToBuffer1_FromDeckIndex
+	ld hl, wLoadedCard1Name
+	ld de, wTxRam2_b
+	ld a, [hli]
+	ld [de], a
+	inc de
+	ld a, [hli]
+	ld [de], a
+	ldh a, [hTemp_ffa0]
+	ldtx hl, AttachedEnergyToPokemonText
+	bank1call DisplayCardDetailScreen
+
+.done
+	call Func_2c0bd
+	ret
+
+JolteonDoubleKick_AIEffect: ; 2e930 (b:6930)
+	ld a, 40 / 2
+	lb de, 0, 40
+	jp SetExpectedAIDamage
+
+JolteonDoubleKick_MultiplierEffect: ; 2e938 (b:6938)
+	ld hl, 20
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsXDamageText
+	ld a, 2
+	call TossCoinATimes_BankB
+	add a ; a = 2 * heads
+	call ATimes10
+	call SetDefiniteDamage
+	ret
+
+TailWagEffect: ; 2e94e (b:694e)
+	ldtx de, IfHeadsOpponentCannotAttackText
+	call TossCoin_BankB
+	jp nc, SetWasUnsuccessful
+	ld a, ATK_ANIM_LURE
+	ld [wLoadedAttackAnimation], a
+	ld a, SUBSTATUS2_TAIL_WAG
+	call ApplySubstatus2ToDefendingCard
+	ret
+
+EeveeQuickAttack_AIEffect: ; 2e962 (b:5962)
+	ld a, (10 + 30) / 2
+	lb de, 10, 30
+	jp SetExpectedAIDamage
+
+EeveeQuickAttack_DamageBoostEffect: ; 2e96a (b:596a)
+	ld hl, 20
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsPlusDamageText
+	call TossCoin_BankB
+	ret nc ; return if tails
+	ld a, 20
+	call AddToDamage
+	ret
+
+SpearowMirrorMove_AIEffect: ; 2e97d (b:697d)
+	jr MirrorMoveEffects.AIEffect
+
+SpearowMirrorMove_InitialEffect1: ; 2e97f (b:697f)
+	jr MirrorMoveEffects.InitialEffect1
+
+SpearowMirrorMove_InitialEffect2: ; 2e981 (b:6981)
+	jr MirrorMoveEffects.InitialEffect2
+
+SpearowMirrorMove_PlayerSelection: ; 2e983 (b:6983)
+	jr MirrorMoveEffects.PlayerSelection
+
+SpearowMirrorMove_AISelection: ; 2e985 (b:6985)
+	jr MirrorMoveEffects.AISelection
+
+SpearowMirrorMove_BeforeDamage: ; 2e987 (b:6987)
+	jr MirrorMoveEffects.BeforeDamage
+
+SpearowMirrorMove_AfterDamage: ; 2e989 (b:6989)
+	jp MirrorMoveEffects.AfterDamage
+
+; these are effect commands that Mirror Move uses
+; in order to mimic last turn's attack.
+; it covers all possible effect steps to perform its commands
+; (i.e. selection for Amnesia and Energy discarding attacks, etc)
+MirrorMoveEffects: ; 2e98c (b:698c)
+.AIEffect
+	ld a, DUELVARS_ARENA_CARD_LAST_TURN_DAMAGE
+	call GetTurnDuelistVariable
+	ld a, [hl]
+	ld [wAIMinDamage], a
+	ld [wAIMaxDamage], a
+	ret
+
+.InitialEffect1
+	ld a, DUELVARS_ARENA_CARD_LAST_TURN_DAMAGE
+	call GetTurnDuelistVariable
+	ld a, [hli]
+	or [hl]
+	inc hl
+	or [hl]
+	inc hl
+	ret nz ; return if has last turn damage
+	ld a, [hli]
+	or a
+	ret nz ; return if has last turn status
+	; no attack received last turn
+	ldtx hl, YouDidNotReceiveAnAttackToMirrorMoveText
+	scf
+	ret
+
+.InitialEffect2
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	ld a, DUELVARS_ARENA_CARD_LAST_TURN_EFFECT
+	call GetTurnDuelistVariable
+	or a
+	ret z ; no effect
+	cp LAST_TURN_EFFECT_AMNESIA
+	jp z, PlayerPickAttackForAmnesia
+	or a
+	ret
+
+.PlayerSelection
+	ld a, DUELVARS_ARENA_CARD_LAST_TURN_EFFECT
+	call GetTurnDuelistVariable
+	or a
+	ret z ; no effect
+; handle Energy card discard effect
+	cp LAST_TURN_EFFECT_DISCARD_ENERGY
+	jp z, HandleEnergyDiscardEffectSelection
+	ret
+
+.AISelection
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	ld a, DUELVARS_ARENA_CARD_LAST_TURN_EFFECT
+	call GetTurnDuelistVariable
+	or a
+	ret z ; no effect
+	cp LAST_TURN_EFFECT_DISCARD_ENERGY
+	jr z, .discard_energy
+	cp LAST_TURN_EFFECT_AMNESIA
+	jr z, .pick_amnesia_attack
+	ret
+
+.discard_energy
+	call AIPickEnergyCardToDiscardFromDefendingPokemon
+	ldh [hTemp_ffa0], a
+	ret
+
+.pick_amnesia_attack
+	call AIPickAttackForAmnesia
+	ldh [hTemp_ffa0], a
+	ret
+
+.BeforeDamage
+; if was attacked with Amnesia, apply it to the selected attack
+	ld a, DUELVARS_ARENA_CARD_LAST_TURN_EFFECT
+	call GetTurnDuelistVariable
+	cp LAST_TURN_EFFECT_AMNESIA
+	jr z, .apply_amnesia
+
+; otherwise, check if there was last turn damage,
+; and write it to wDamage.
+	ld a, DUELVARS_ARENA_CARD_LAST_TURN_DAMAGE
+	call GetTurnDuelistVariable
+	ld de, wDamage
+	ld a, [hli]
+	ld [de], a
+	inc de
+	ld a, [hld]
+	ld [de], a
+	or [hl]
+	jr z, .no_damage
+	ld a, ATK_ANIM_HIT
+	ld [wLoadedAttackAnimation], a
+.no_damage
+	inc hl
+	inc hl ; DUELVARS_ARENA_CARD_LAST_TURN_STATUS
+; check if there was a status applied to Defending Pokemon
+; from the attack it used.
+	push hl
+	ld a, DUELVARS_ARENA_CARD_STATUS
+	call GetNonTurnDuelistVariable
+	ld e, l
+	ld d, h
+	pop hl
+	ld a, [hli]
+	or a
+	jr z, .no_status
+	push hl
+	push de
+	call .ExecuteStatusEffect
+	pop de
+	pop hl
+.no_status
+; hl is at DUELVARS_ARENA_CARD_LAST_TURN_SUBSTATUS2
+; apply substatus2 to self
+	ld e, DUELVARS_ARENA_CARD_SUBSTATUS2
+	ld a, [hli]
+	ld [de], a
+	ret
+
+.apply_amnesia
+	call ApplyAmnesiaToAttack
+	ret
+
+.AfterDamage: ; 2ea28 (b:6a28)
+	ld a, [wNoDamageOrEffect]
+	or a
+	ret nz ; is unaffected
+	ld a, DUELVARS_ARENA_CARD_LAST_TURN_EFFECT
+	call GetTurnDuelistVariable
+	cp LAST_TURN_EFFECT_DISCARD_ENERGY
+	jr nz, .change_weakness
+
+; execute Energy discard effect for card chosen
+	call SwapTurn
+	ldh a, [hTemp_ffa0]
+	call PutCardInDiscardPile
+	ld a, DUELVARS_ARENA_CARD_LAST_TURN_EFFECT
+	call GetTurnDuelistVariable
+	ld [hl], LAST_TURN_EFFECT_DISCARD_ENERGY
+	call SwapTurn
+
+.change_weakness
+	ld a, DUELVARS_ARENA_CARD_LAST_TURN_CHANGE_WEAK
+	call GetTurnDuelistVariable
+	ld a, [hl]
+	or a
+	ret z ; weakness wasn't changed last turn
+
+	push hl
+	call SwapTurn
+	ld a, DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	call LoadCardDataToBuffer2_FromDeckIndex
+	call SwapTurn
+	pop hl
+
+	ld a, [wLoadedCard2Weakness]
+	or a
+	ret z ; defending Pokemon has no weakness to change
+
+; apply same color weakness to Defending Pokemon
+	ld a, [hl]
+	push af
+	ld a, DUELVARS_ARENA_CARD_CHANGED_WEAKNESS
+	call GetNonTurnDuelistVariable
+	pop af
+	ld [hl], a
+
+; print message of weakness color change
+	ld c, -1
+.loop_color
+	inc c
+	rla
+	jr nc, .loop_color
+	ld a, c
+	call SwapTurn
+	push af
+	ld a, DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	call LoadCardDataToBuffer1_FromDeckIndex
+	pop af
+	call LoadCardNameAndInputColor
+	ldtx hl, ChangedTheWeaknessOfPokemonToColorText
+	call DrawWideTextBox_PrintText
+	call SwapTurn
+	ret
+
+.ExecuteStatusEffect: ; 2ea8f (b:6a8f)
+	ld c, a
+	and PSN_DBLPSN
+	jr z, .cnf_slp_prz
+	ld b, a
+	cp DOUBLE_POISONED
+	push bc
+	call z, DoublePoisonEffect
+	pop bc
+	ld a, b
+	cp POISONED
+	push bc
+	call z, PoisonEffect
+	pop bc
+.cnf_slp_prz
+	ld a, c
+	and CNF_SLP_PRZ
+	ret z
+	cp CONFUSED
+	jp z, ConfusionEffect
+	cp ASLEEP
+	jp z, SleepEffect
+	cp PARALYZED
+	jp z, ParalysisEffect
+	ret
+
+FearowAgilityEffect: ; 2eab8 (b:6ab8)
+	ldtx de, IfHeadsDoNotReceiveDamageOrEffectText
+	call TossCoin_BankB
+	ret nc
+	ld a, ATK_ANIM_AGILITY_PROTECT
+	ld [wLoadedAttackAnimation], a
+	ld a, SUBSTATUS1_AGILITY
+	call ApplySubstatus1ToDefendingCard
+	ret
+
+; return carry if cannot use Step In
+StepIn_BenchCheck: ; 2eaca (b:6aca)
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	ldtx hl, CanOnlyBeUsedOnTheBenchText
+	or a
+	jr z, .set_carry
+
+	add DUELVARS_ARENA_CARD_FLAGS
+	call GetTurnDuelistVariable
+	ldtx hl, OnlyOncePerTurnText
+	and USED_PKMN_POWER_THIS_TURN
+	jr nz, .set_carry
+
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	call CheckCannotUseDueToStatus_OnlyToxicGasIfANon0
+	ret
+
+.set_carry
+	scf
+	ret
+
+StepIn_SwitchEffect: ; 2eae8 (b:6ae8)
+	ldh a, [hTemp_ffa0]
+	ld e, a
+	call SwapArenaWithBenchPokemon
+	ld a, DUELVARS_ARENA_CARD_FLAGS
+	call GetTurnDuelistVariable
+	set USED_PKMN_POWER_THIS_TURN_F, [hl]
+	ret
+
+Dragonite2Slam_AIEffect: ; 2eaf6 (b:6af6)
+	ld a, (40 * 2) / 2
+	lb de, 0, 80
+	jp SetExpectedAIDamage
+
+Dragonite2Slam_MultiplierEffect: ; 2eafe (b:6afe)
+	ld hl, 40
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsXDamageText
+	ld a, 2
+	call TossCoinATimes_BankB
+	add a
+	add a
+	call ATimes10
+	call SetDefiniteDamage
+	ret
+
+ThickSkinnedEffect: ; 2eb15 (b:6b15)
+	scf
+	ret
+
+LeekSlap_AIEffect: ; 2eb17 (b:6b17)
+	ld a, 30 / 2
+	lb de, 0, 30
+	jp SetExpectedAIDamage
+
+; return carry if already used attack in this duel
+LeekSlap_OncePerDuelCheck: ; 2eb1f (b:6b1f)
+; can only use attack if it was never used before this duel
+	ld a, DUELVARS_ARENA_CARD_FLAGS
+	call GetTurnDuelistVariable
+	and USED_LEEK_SLAP_THIS_DUEL
+	ret z
+	ldtx hl, ThisAttackCannotBeUsedTwiceText
+	scf
+	ret
+
+LeekSlap_SetUsedThisDuelFlag: ; 2eb2c (b:6b2c)
+	ld a, DUELVARS_ARENA_CARD_FLAGS
+	call GetTurnDuelistVariable
+	set USED_LEEK_SLAP_THIS_DUEL_F, [hl]
+	ret
+
+LeekSlap_NoDamage50PercentEffect: ; 2eb34 (b:6b34)
+	ldtx de, DamageCheckIfTailsNoDamageText
+	call TossCoin_BankB
+	ret c
+	xor a ; 0 damage
+	call SetDefiniteDamage
+	ret
+
+FetchEffect: ; 2eb40 (b:6b40)
+	ldtx hl, Draw1CardFromTheDeckText
+	call DrawWideTextBox_WaitForInput
+	bank1call DisplayDrawOneCardScreen
+	call DrawCardFromDeck
+	ret c ; return if deck is empty
+	call AddCardToHand
+	call LoadCardDataToBuffer1_FromDeckIndex
+	ld a, [wDuelistType]
+	cp DUELIST_TYPE_PLAYER
+	ret nz
+	; show card on screen if it was Player
+	bank1call OpenCardPage_FromHand
+	ret
+
+CometPunch_AIEffect: ; 2eb5d (b:6b5d)
+	ld a, (20 * 4) / 2
+	lb de, 0, 80
+	jp SetExpectedAIDamage
+
+CometPunch_MultiplierEffect: ; 2eb65 (b:6b65)
+	ld hl, 20
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsXDamageText
+	ld a, 4
+	call TossCoinATimes_BankB
+	add a
+	call ATimes10
+	call SetDefiniteDamage
+	ret
+
+TaurosStomp_AIEffect: ; 2eb7b (b:6b7b)
+	ld a, (20 + 30) / 2
+	lb de, 20, 30
+	jp SetExpectedAIDamage
+
+TaurosStomp_DamageBoostEffect: ; 2eb83 (b:6b83)
+	ld hl, 10
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsPlusDamageText
+	call TossCoin_BankB
+	ret nc ; tails
+	ld a, 10
+	call AddToDamage
+	ret
+
+Rampage_AIEffect: ; 2eb96 (b:6b96)
+	ld e, PLAY_AREA_ARENA
+	call GetCardDamageAndMaxHP
+	call AddToDamage
+	jp SetDefiniteAIDamage
+
+Rampage_Confusion50PercentEffect: ; 2eba1 (b:6ba1)
+	ld e, PLAY_AREA_ARENA
+	call GetCardDamageAndMaxHP
+	call AddToDamage
+	ldtx de, IfTailsYourPokemonBecomesConfusedText
+	call TossCoin_BankB
+	ret c ; heads
+	call SwapTurn
+	call ConfusionEffect
+	call SwapTurn
+	ret
+
+FuryAttack_AIEffect: ; 2ebba (b:6bba)
+	ld a, (10 * 2) / 2
+	lb de, 0, 20
+	jp SetExpectedAIDamage
+
+FuryAttack_MultiplierEffect: ; 2ebc2 (b:6bc2)
+	ld hl, 10
+	call LoadTxRam3
+	ld a, 2
+	ldtx de, DamageCheckIfHeadsXDamageText
+	call TossCoinATimes_BankB
+	call ATimes10
+	call SetDefiniteDamage
+	ret
+
+RetreatAidEffect: ; 2ebd7 (b:6bd7)
+	scf
+	ret
+
+DodrioRage_AIEffect: ; 2ebd9 (b:6bd9)
+	call DodrioRage_DamageBoostEffect
+	jp SetDefiniteAIDamage
+
+DodrioRage_DamageBoostEffect: ; 2ebdf (b:6bdf)
+	ld e, PLAY_AREA_ARENA
+	call GetCardDamageAndMaxHP
+	call AddToDamage
+	ret
+
+PayDayEffect: ; 2ebe8 (b:6be8)
+	ldtx de, IfHeadsDraw1CardFromDeckText
+	call TossCoin_BankB
+	ret nc ; tails
+	ldtx hl, Draw1CardFromTheDeckText
+	call DrawWideTextBox_WaitForInput
+	bank1call DisplayDrawOneCardScreen
+	call DrawCardFromDeck
+	ret c ; empty deck
+	call AddCardToHand
+	call LoadCardDataToBuffer1_FromDeckIndex
+	ld a, [wDuelistType]
+	cp DUELIST_TYPE_PLAYER
+	ret nz
+	; show card on screen if it was Player
+	bank1call OpenCardPage_FromHand
+	ret
+
+DragonairSlam_AIEffect: ; 2ec0c (b:6c0c)
+	ld a, (30 * 2) / 2
+	lb de, 0, 60
+	jp SetExpectedAIDamage
+
+DragonairSlam_MultiplierEffect: ; 2ec14 (b:6c14)
+	ld hl, 30
+	call LoadTxRam3
+	ld a, 2
+	ldtx de, DamageCheckIfHeadsXDamageText
+	call TossCoinATimes_BankB
+	ld e, a
+	add a
+	add e
+	call ATimes10
+	call SetDefiniteDamage
+	ret
+
+DragonairHyperBeam_PlayerSelectEffect: ; 2ec2c (b:6c2c)
+	jp HandleEnergyDiscardEffectSelection
+
+DragonairHyperBeam_AISelectEffect: ; 2ec2f (b:6c2f)
+	call AIPickEnergyCardToDiscardFromDefendingPokemon
+	ldh [hTemp_ffa0], a
+	ret
+
+DragonairHyperBeam_DiscardEffect: ; 2ec35 (b:6c35)
+	call HandleNoDamageOrEffect
+	ret c ; is unaffected
+	ldh a, [hTemp_ffa0]
+	cp $ff
+	ret z ; no energy card chosen
+	call SwapTurn
+	call PutCardInDiscardPile
+	ld a, DUELVARS_ARENA_CARD_LAST_TURN_EFFECT
+	call GetTurnDuelistVariable
+	ld [hl], LAST_TURN_EFFECT_DISCARD_ENERGY
+	call SwapTurn
+	ret
+
+; handles screen for selecting an Energy card to discard
+; that is attached to Defending Pokemon,
+; and store the Player selection in [hTemp_ffa0].
+HandleEnergyDiscardEffectSelection: ; 2ec4f (b:6c4f)
+	call SwapTurn
+	xor a ; PLAY_AREA_ARENA
+	call CreateArenaOrBenchEnergyCardList
+	jr c, .no_energy
+	ldtx hl, ChooseDiscardEnergyCardFromOpponentText
+	call DrawWideTextBox_WaitForInput
+	xor a ; PLAY_AREA_ARENA
+	bank1call DisplayEnergyDiscardScreen
+
+.loop_input
+	bank1call HandleEnergyDiscardMenuInput
+	jr c, .loop_input
+
+	call SwapTurn
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTemp_ffa0], a ; store selected card to discard
+	ret
+
+.no_energy
+	call SwapTurn
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	ret
+
+; return carry if Defending Pokemon has no attacks
+ClefableMetronome_CheckAttacks: ; 2ec77 (b:6c77)
+	call CheckIfDefendingPokemonHasAnyAttack
+	ldtx hl, NoAttackMayBeChoosenText
+	ret
+
+ClefableMetronome_AISelectEffect: ; 2ec7e (b:6c7e)
+	call HandleAIMetronomeEffect
+	ret
+
+ClefableMetronome_UseAttackEffect: ; 2ec82 (b:6c82)
+	ld a, 1 ; energy cost of this attack
+	call HandlePlayerMetronomeEffect
+	ret
+
+ClefableMinimizeEffect: ; 2ec88 (b:6c88)
+	ld a, SUBSTATUS1_REDUCE_BY_20
+	call ApplySubstatus1ToDefendingCard
+	ret
+
+HurricaneEffect: ; 2ec8e (b:6c8e)
+	call HandleNoDamageOrEffect
+	ret c ; is unaffected
+
+	ld a, DUELVARS_ARENA_CARD_HP
+	call GetNonTurnDuelistVariable
+	or a
+	ret z ; return if Pokemon was KO'd
+
+; look at all the card locations and put all cards
+; that are in the Arena in the hand.
+	call SwapTurn
+	ld a, DUELVARS_CARD_LOCATIONS
+	call GetTurnDuelistVariable
+.loop_locations
+	ld a, [hl]
+	cp CARD_LOCATION_ARENA
+	jr nz, .next_card
+	; card in Arena found, put in hand
+	ld a, l
+	call AddCardToHand
+.next_card
+	inc l
+	ld a, l
+	cp DECK_SIZE
+	jr c, .loop_locations
+
+; empty the Arena card slot
+	ld l, DUELVARS_ARENA_CARD
+	ld a, [hl]
+	ld [hl], $ff
+	ld l, DUELVARS_ARENA_CARD_HP
+	ld [hl], 0
+	call LoadCardDataToBuffer1_FromDeckIndex
+	ld hl, wLoadedCard1Name
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	call LoadTxRam2
+	ldtx hl, PokemonAndAllAttachedCardsReturnedToHandText
+	call DrawWideTextBox_WaitForInput
+	xor a
+	ld [wDuelDisplayedScreen], a
+	call SwapTurn
+	ret
+
+PidgeottoWhirlwind_SelectEffect: ; 2ecd3 (b:6cd3)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetNonTurnDuelistVariable
+	cp 2
+	jr nc, .switch
+	; no Bench Pokemon
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	ret
+.switch
+	call DuelistSelectForcedSwitch
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	ret
+
+PidgeottoWhirlwind_SwitchEffect: ; 2ece9 (b:6ce9)
+	ldh a, [hTemp_ffa0]
+	call HandleSwitchDefendingPokemonEffect
+	ret
+
+PidgeottoMirrorMove_AIEffect: ; 2ecef (b:6cef)
+	jp MirrorMoveEffects.AIEffect
+
+PidgeottoMirrorMove_InitialEffect1: ; 2ecf2 (b:6cf2)
+	jp MirrorMoveEffects.InitialEffect1
+
+PidgeottoMirrorMove_InitialEffect2: ; 2ecf5 (b:6cf5)
+	jp MirrorMoveEffects.InitialEffect2
+
+PidgeottoMirrorMove_PlayerSelection: ; 2ecf8 (b:6cf8)
+	jp MirrorMoveEffects.PlayerSelection
+
+PidgeottoMirrorMove_AISelection: ; 2ecfb (b:6cfb)
+	jp MirrorMoveEffects.AISelection
+
+PidgeottoMirrorMove_BeforeDamage: ; 2ecfe (b:6cfe)
+	jp MirrorMoveEffects.BeforeDamage
+
+PidgeottoMirrorMove_AfterDamage: ; 2ed01 (b:6d01)
+	jp MirrorMoveEffects.AfterDamage
+
+SingEffect: ; 2ed04 (b:6d04)
+	call Sleep50PercentEffect
+	call nc, SetNoEffectFromStatus
+	ret
+
+; return carry if Defending Pokemon has no attacks
+ClefairyMetronome_CheckAttacks: ; 2ed0b (b:6d0b)
+	call CheckIfDefendingPokemonHasAnyAttack
+	ldtx hl, NoAttackMayBeChoosenText
+	ret
+
+ClefairyMetronome_AISelectEffect: ; 2ed12 (b:6d12)
+	call HandleAIMetronomeEffect
+	ret
+
+ClefairyMetronome_UseAttackEffect: ; 2ed16 (b:6d16)
+	ld a, 3 ; energy cost of this attack
+;	fallthrough
+
+; handles Metronome selection, and validates
+; whether it can use the selected attack.
+; if unsuccessful, returns carry.
+; input:
+;	a = amount of colorless energy needed for Metronome
+HandlePlayerMetronomeEffect: ; 2ed18 (b:6d18)
+	ld [wMetronomeEnergyCost], a
+	ldtx hl, ChooseOppAttackToBeUsedWithMetronomeText
+	call DrawWideTextBox_WaitForInput
+
+	call HandleDefendingPokemonAttackSelection
+	ret c ; return if operation cancelled
+
+; store this attack as selected attack to use
+	ld hl, wMetronomeSelectedAttack
+	ld [hl], d
+	inc hl
+	ld [hl], e
+
+; compare selected attack's name with
+; the attack that is loaded, which is Metronome.
+; if equal, then cannot select it.
+; (i.e. cannot use Metronome with Metronome.)
+	ld hl, wLoadedAttackName
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	push hl
+	call SwapTurn
+	call CopyAttackDataAndDamage_FromDeckIndex
+	call SwapTurn
+	pop de
+	ld hl, wLoadedAttackName
+	ld a, e
+	cp [hl]
+	jr nz, .try_use
+	inc hl
+	ld a, d
+	cp [hl]
+	jr nz, .try_use
+	; cannot select Metronome
+	ldtx hl, UnableToSelectText
+.failed
+	call DrawWideTextBox_WaitForInput
+.set_carry
+	scf
+	ret
+
+.try_use
+; run the attack checks to determine
+; whether it can be used.
+	ld a, EFFECTCMDTYPE_INITIAL_EFFECT_1
+	call TryExecuteEffectCommandFunction
+	jr c, .failed
+	ld a, EFFECTCMDTYPE_INITIAL_EFFECT_2
+	call TryExecuteEffectCommandFunction
+	jr c, .set_carry
+	; successful
+
+; send data to link opponent
+	bank1call SendAttackDataToLinkOpponent
+	ld a, OPPACTION_USE_METRONOME_ATTACK
+	call SetOppAction_SerialSendDuelData
+	ld hl, wMetronomeSelectedAttack
+	ld d, [hl]
+	inc hl
+	ld e, [hl]
+	ld a, [wMetronomeEnergyCost]
+	ld c, a
+	call SerialSend8Bytes
+
+	ldh a, [hTempCardIndex_ff9f]
+	ld [wPlayerAttackingCardIndex], a
+	ld a, [wSelectedAttack]
+	ld [wPlayerAttackingAttackIndex], a
+	ld a, [wTempCardID_ccc2]
+	ld [wPlayerAttackingCardID], a
+	or a
+	ret
+
+; does nothing for AI.
+HandleAIMetronomeEffect: ; 2ed86 (b:6d86)
+	ret
+
+DoTheWaveEffect: ; 2ed87 (b:6d87)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	dec a ; don't count arena card
+	call ATimes10
+	call AddToDamage
+	ret
+
+; return carry if no damage counters
+FirstAid_DamageCheck: ; 2ed94 (b:6d94)
+	ld e, PLAY_AREA_ARENA
+	call GetCardDamageAndMaxHP
+	ldtx hl, NoDamageCountersText
+	cp 10
+	ret
+
+FirstAid_HealEffect: ; 2ed9f (b:6d9f)
+	lb de, 0, 10
+	call ApplyAndAnimateHPRecovery
+	ret
+
+JigglypuffDoubleEdgeEffect: ; 2eda6 (b:6da6)
+	ld a, 20
+	call DealRecoilDamageToSelf
+	ret
+
+PounceEffect: ; 2edac (b:6dac)
+	ld a, SUBSTATUS2_POUNCE
+	call ApplySubstatus2ToDefendingCard
+	ret
+
+LickitungSupersonicEffect: ; 2edb2 (b:6db2)
+	call Confusion50PercentEffect
+	call nc, SetNoEffectFromStatus
+	ret
+
+PidgeyWhirlwind_SelectEffect: ; 2edb9 (b:6db9)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetNonTurnDuelistVariable
+	cp 2
+	jr nc, .switch
+	; no Bench Pokemon
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	ret
+.switch
+	call DuelistSelectForcedSwitch
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	ret
+
+PidgeyWhirlwind_SwitchEffect: ; 2edcf (b:6dcf)
+	ldh a, [hTemp_ffa0]
+	call HandleSwitchDefendingPokemonEffect
+	ret
+
+; return carry if Defending card has no weakness
+Conversion1_WeaknessCheck: ; 2edd5 (b:6dd5)
+	call SwapTurn
+	ld a, DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	call LoadCardDataToBuffer2_FromDeckIndex
+	call SwapTurn
+	ld a, [wLoadedCard2Weakness]
+	or a
+	ret nz
+	ldtx hl, NoWeaknessText
+	scf
+	ret
+
+Conversion1_PlayerSelectEffect: ; 2eded (b:6ded)
+	ldtx hl, ChooseWeaknessYouWishToChangeText
+	xor a ; PLAY_AREA_ARENA
+	call HandleColorChangeScreen
+	ldh [hTemp_ffa0], a
+	ret
+
+Conversion1_AISelectEffect: ; 2edf7 (b:6df7)
+	call AISelectConversionColor
+	ret
+
+Conversion1_ChangeWeaknessEffect: ; 2edfb (b:6dfb)
+	call HandleNoDamageOrEffect
+	ret c ; is unaffected
+
+; apply changed weakness
+	ld a, DUELVARS_ARENA_CARD_CHANGED_WEAKNESS
+	call GetNonTurnDuelistVariable
+	ldh a, [hTemp_ffa0]
+	call TranslateColorToWR
+	ld [hl], a
+	ld l, DUELVARS_ARENA_CARD_LAST_TURN_CHANGE_WEAK
+	ld [hl], a
+
+; print text box
+	call SwapTurn
+	ldtx hl, ChangedTheWeaknessOfPokemonToColorText
+	call PrintArenaCardNameAndColorText
+	call SwapTurn
+
+; apply substatus
+	ld a, SUBSTATUS2_CONVERSION2
+	call ApplySubstatus2ToDefendingCard
+	ret
+
+; returns carry if Active Pokemon has no Resistance.
+Conversion2_ResistanceCheck: ; 2ee1f (b:6e1f)
+	ld a, DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Resistance]
+	or a
+	ret nz
+	ldtx hl, NoResistanceText
+	scf
+	ret
+
+Conversion2_PlayerSelectEffect: ; 2ee31 (b:6e31)
+	ldtx hl, ChooseResistanceYouWishToChangeText
+	ld a, $80
+	call HandleColorChangeScreen
+	ldh [hTemp_ffa0], a
+	ret
+
+Conversion2_AISelectEffect: ; 2ee3c (b:6e3c)
+; AI will choose Defending Pokemon's color
+; unless it is colorless.
+	call SwapTurn
+	ld a, DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	call LoadCardDataToBuffer1_FromDeckIndex
+	call SwapTurn
+	ld a, [wLoadedCard1Type]
+	cp COLORLESS
+	jr z, .is_colorless
+	ldh [hTemp_ffa0], a
+	ret
+
+.is_colorless
+	call SwapTurn
+	call AISelectConversionColor
+	call SwapTurn
+	ret
+
+Conversion2_ChangeResistanceEffect: ; 2ee5e (b:6e5e)
+; apply changed resistance
+	ld a, DUELVARS_ARENA_CARD_CHANGED_RESISTANCE
+	call GetTurnDuelistVariable
+	ldh a, [hTemp_ffa0]
+	call TranslateColorToWR
+	ld [hl], a
+	ldtx hl, ChangedTheResistanceOfPokemonToColorText
+;	fallthrough
+
+; prints text that requires card name and color,
+; with the card name of the Turn Duelist's Arena Pokemon
+; and color in [hTemp_ffa0].
+; input:
+;	hl = text to print
+PrintArenaCardNameAndColorText: ; 2ee6c (b:6e6c)
+	push hl
+	ld a, DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	call LoadCardDataToBuffer1_FromDeckIndex
+	ldh a, [hTemp_ffa0]
+	call LoadCardNameAndInputColor
+	pop hl
+	call DrawWideTextBox_PrintText
+	ret
+
+; handles AI logic for selecting a new color
+; for weakness/resistance.
+; - if within the context of Conversion1, looks
+; in own Bench for a non-colorless card that can attack.
+; - if within the context of Conversion2, looks
+; in Player's Bench for a non-colorless card that can attack.
+AISelectConversionColor: ; 2ee7f (b:6e7f)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ld d, a
+	ld e, PLAY_AREA_ARENA
+	jr .next_pkmn_atk
+
+; look for a non-colorless Bench Pokemon
+; that has enough energy to use an attack.
+.loop_atk
+	push de
+	call GetPlayAreaCardAttachedEnergies
+	ld a, e
+	add DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	ld d, a
+	call LoadCardDataToBuffer1_FromDeckIndex
+	ld a, [wLoadedCard1Type]
+	cp COLORLESS
+	jr z, .skip_pkmn_atk ; skip colorless Pokemon
+	ld e, FIRST_ATTACK_OR_PKMN_POWER
+	bank1call _CheckIfEnoughEnergiesToAttack
+	jr nc, .found
+	ld e, SECOND_ATTACK
+	bank1call _CheckIfEnoughEnergiesToAttack
+	jr nc, .found
+.skip_pkmn_atk
+	pop de
+.next_pkmn_atk
+	inc e
+	dec d
+	jr nz, .loop_atk
+
+; none found in Bench.
+; next, look for a non-colorless Bench Pokemon
+; that has any Energy cards attached.
+	ld d, e ; number of Play Area Pokemon
+	ld e, PLAY_AREA_ARENA
+	jr .next_pkmn_energy
+
+.loop_energy
+	push de
+	call GetPlayAreaCardAttachedEnergies
+	ld a, [wTotalAttachedEnergies]
+	or a
+	jr z, .skip_pkmn_energy
+	ld a, e
+	add DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	ld d, a
+	call LoadCardDataToBuffer1_FromDeckIndex
+	ld a, [wLoadedCard1Type]
+	cp COLORLESS
+	jr nz, .found
+.skip_pkmn_energy
+	pop de
+.next_pkmn_energy
+	inc e
+	dec d
+	jr nz, .loop_energy
+
+; otherwise, just select a random energy.
+	ld a, NUM_COLORED_TYPES
+	call Random
+	ldh [hTemp_ffa0], a
+	ret
+
+.found
+	pop de
+	ld a, [wLoadedCard1Type]
+	and TYPE_PKMN
+	ldh [hTemp_ffa0], a
+	ret
+
+ScrunchEffect: ; 2eee7 (b:6ee7)
+	ldtx de, IfHeadsNoDamageNextTurnText
+	call TossCoin_BankB
+	jp nc, SetWasUnsuccessful
+	ld a, ATK_ANIM_SCRUNCH
+	ld [wLoadedAttackAnimation], a
+	ld a, SUBSTATUS1_NO_DAMAGE_17
+	call ApplySubstatus1ToDefendingCard
+	ret
+
+ChanseyDoubleEdgeEffect: ; 2eefb (b:6efb)
+	ld a, 80
+	call DealRecoilDamageToSelf
+	ret
+
+SuperFang_AIEffect: ; 2ef01 (b:6f01)
+	call SuperFang_HalfHPEffect
+	jp SetDefiniteAIDamage
+
+SuperFang_HalfHPEffect: ; 2ef07 (b:6f07)
+	ld a, DUELVARS_ARENA_CARD_HP
+	call GetNonTurnDuelistVariable
+	srl a
+	bit 0, a
+	jr z, .rounded
+	; round up
+	add 5
+.rounded
+	call SetDefiniteDamage
+	ret
+
+; return carry if no Pokemon in Bench
+TrainerCardAsPokemon_BenchCheck: ; 2ef18 (b:6f18)
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ldtx hl, EffectNoPokemonOnTheBenchText
+	cp 2
+	ret
+
+TrainerCardAsPokemon_PlayerSelectSwitch: ; 2ef27 (b:6f27)
+	ldh a, [hTemp_ffa0]
+	or a
+	ret nz ; no need to switch if it's not Arena card
+
+	ldtx hl, SelectPokemonToPlaceInTheArenaText
+	call DrawWideTextBox_WaitForInput
+	bank1call HasAlivePokemonInBench
+	bank1call OpenPlayAreaScreenForSelection
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTempPlayAreaLocation_ffa1], a
+	ret
+
+TrainerCardAsPokemon_DiscardEffect: ; 2ef3c (b:6f3c)
+	ldh a, [hTemp_ffa0]
+	ld e, a
+	call MovePlayAreaCardToDiscardPile
+	ldh a, [hTemp_ffa0]
+	or a
+	jr nz, .shift_cards
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	ld e, a
+	call SwapArenaWithBenchPokemon
+.shift_cards
+	call ShiftAllPokemonToFirstPlayAreaSlots
+	ret
+
+HealingWind_InitialEffect: ; 2ef51 (b:6f51)
+	scf
+	ret
+
+HealingWind_PlayAreaHealEffect: ; 2ef53 (b:6f53)
+; play initial animation
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ld b, a
+	ld c, $00
+	ldh a, [hWhoseTurn]
+	ld h, a
+	bank1call PlayAttackAnimation
+	bank1call WaitAttackAnimation
+	ld a, ATK_ANIM_HEALING_WIND_PLAY_AREA
+	ld [wLoadedAttackAnimation], a
+
+
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ld d, a
+	ld e, PLAY_AREA_ARENA
+.loop_play_area
+	push de
+	ld a, e
+	ldh [hTempPlayAreaLocation_ff9d], a
+	call GetCardDamageAndMaxHP
+	or a
+	jr z, .next_pkmn ; skip if no damage
+
+; if less than 20 damage, cap recovery at 10 damage
+	ld de, 20
+	cp e
+	jr nc, .heal
+	ld e, a
+
+.heal
+; add HP to this card
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	add DUELVARS_ARENA_CARD_HP
+	call GetTurnDuelistVariable
+	add e
+	ld [hl], a
+
+; play heal animation
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ld b, a
+	ld c, $01
+	ldh a, [hWhoseTurn]
+	ld h, a
+	bank1call PlayAttackAnimation
+	bank1call WaitAttackAnimation
+.next_pkmn
+	pop de
+	inc e
+	dec d
+	jr nz, .loop_play_area
+
+	ret
+
+Dragonite1Slam_AIEffect: ; 2ef9c (b:6f9c)
+	ld a, (30 * 2) / 2
+	lb de, 0, 60
+	jp SetExpectedAIDamage
+
+Dragonite1Slam_MultiplierEffect: ; 2efa4 (b:6fa4)
+	ld hl, 30
+	call LoadTxRam3
+	ldtx de, DamageCheckIfHeadsXDamageText
+	ld a, 2
+	call TossCoinATimes_BankB
+	ld c, a
+	add a
+	add c
+	call ATimes10
+	call SetDefiniteDamage
+	ret
+
+; possibly unreferenced
+Func_2efbc: ; 2efbc (b:6fbc)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ld c, a
+	ld l, DUELVARS_ARENA_CARD_HP
+	ld de, wce76
+.asm_2efc7
+	ld a, [hli]
+	ld [de], a
+	inc de
+	dec c
+	jr nz, .asm_2efc7
+	ret
+
+; possibly unreferenced
+Func_2efce: ; 2efce (b:6fce)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ld c, a
+	ld l, DUELVARS_ARENA_CARD_HP
+	ld de, wce76
+.asm_2efd9
+	ld a, [de]
+	inc de
+	ld [hli], a
+	dec c
+	jr nz, .asm_2efd9
+	ret
+
+CatPunchEffect: ; 2efe0 (b:6fe0)
+	call SwapTurn
+	call PickRandomPlayAreaCard
+	ld b, a
+	ld a, ATK_ANIM_CAT_PUNCH_PLAY_AREA
+	ld [wLoadedAttackAnimation], a
+	ld de, 20
+	call DealDamageToPlayAreaPokemon
+	call SwapTurn
+	ret
+
+MorphEffect: ; 2eff6 (b:6ff6)
+	call ExchangeRNG
+	call .PickRandomBasicPokemonFromDeck
+	jr nc, .successful
+	ldtx hl, AttackUnsuccessfulText
+	call DrawWideTextBox_WaitForInput
+	ret
+
+.successful
+	ld a, DUELVARS_ARENA_CARD_STAGE
+	call GetTurnDuelistVariable
+	or a
+	jr z, .skip_discard_stage_below
+
+; if this is a stage 1 Pokemon (in case it's used
+; by Clefable's Metronome attack) then first discard
+; the lower stage card.
+	push hl
+	xor a
+	ldh [hTempPlayAreaLocation_ff9d], a
+	bank1call GetCardOneStageBelow
+	ld a, d
+	call PutCardInDiscardPile
+	pop hl
+	ld [hl], BASIC
+
+.skip_discard_stage_below
+; overwrite card ID
+	ldh a, [hTempCardIndex_ff98]
+	call GetCardIDFromDeckIndex
+	ld a, DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	ldh [hTempCardIndex_ff98], a
+	call _GetCardIDFromDeckIndex
+	ld [hl], e
+
+; overwrite HP to new card's maximum HP
+	ld e, PLAY_AREA_ARENA
+	call GetCardDamageAndMaxHP
+	ld a, DUELVARS_ARENA_CARD_HP
+	call GetTurnDuelistVariable
+	ld [hl], c
+
+; clear changed color and status
+	ld l, DUELVARS_ARENA_CARD_CHANGED_TYPE
+	ld [hl], $00
+	call ClearAllStatusConditions
+
+; load both card's names for printing text
+	ld a, [wTempTurnDuelistCardID]
+	ld e, a
+	ld d, $00
+	call LoadCardDataToBuffer2_FromCardID
+	ld hl, wLoadedCard2Name
+	ld de, wTxRam2
+	ld a, [hli]
+	ld [de], a
+	inc de
+	ld a, [hl]
+	ld [de], a
+	inc de
+	ldh a, [hTempCardIndex_ff98]
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld hl, wLoadedCard2Name
+	ld a, [hli]
+	ld [de], a
+	inc de
+	ld a, [hl]
+	ld [de], a
+	ldtx hl, MetamorphsToText
+	call DrawWideTextBox_WaitForInput
+
+	xor a
+	ld [wDuelDisplayedScreen], a
+	ret
+
+; picks a random Pokemon in the Deck to morph.
+; needs to be a Basic Pokemon that doesn't have
+; the same ID as the Arena card.
+; returns carry if no Pokemon were found.
+.PickRandomBasicPokemonFromDeck ; 2f06a (b:706a)
+	call CreateDeckCardList
+	ret c ; empty deck
+	ld hl, wDuelTempList
+	call ShuffleCards
+.loop_deck
+	ld a, [hli]
+	ldh [hTempCardIndex_ff98], a
+	cp $ff
+	jr z, .set_carry
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Type]
+	cp TYPE_ENERGY
+	jr nc, .loop_deck ; skip non-Pokemon cards
+	ld a, [wLoadedCard2Stage]
+	or a
+	jr nz, .loop_deck ; skip non-Basic cards
+	ld a, [wLoadedCard2ID]
+	cp DUELVARS_ARENA_CARD
+	jr z, .loop_deck ; skip cards with same ID as Arena card
+	ldh a, [hTempCardIndex_ff98]
+	or a
+	ret
+.set_carry
+	scf
+	ret
+
+; returns in a and [hTempCardIndex_ff98] the deck index
+; of random Basic Pokemon card in deck.
+; if none are found, return carry.
+PickRandomBasicCardFromDeck: ; 2f098 (b:7098)
+	call CreateDeckCardList
+	ret c ; return if empty deck
+	ld hl, wDuelTempList
+	call ShuffleCards
+.loop_deck
+	ld a, [hli]
+	ldh [hTempCardIndex_ff98], a
+	cp $ff
+	jr z, .set_carry
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Type]
+	cp TYPE_ENERGY
+	jr nc, .loop_deck ; skip if not Pokemon card
+	ld a, [wLoadedCard2Stage]
+	or a
+	jr nz, .loop_deck ; skip if not Basic stage
+	ldh a, [hTempCardIndex_ff98]
+	or a
+	ret
+.set_carry
+	scf
+	ret
+
+SlicingWindEffect: ; 2f0bf (b:70bf)
+	call SwapTurn
+	call PickRandomPlayAreaCard
+	ld b, a
+	ld de, 30
+	call DealDamageToPlayAreaPokemon_RegularAnim
+	call SwapTurn
+	ret
+
+Gale_LoadAnimation: ; 2f0d0 (b:70d0)
+	ld a, ATK_ANIM_GALE
+	ld [wLoadedAttackAnimation], a
+	ret
+
+Gale_SwitchEffect: ; 2f0d6 (b:70d6)
+; if Defending card is unaffected by attack
+; jump directly to switching this card only.
+	call HandleNoDamageOrEffect
+	jr c, .SwitchWithRandomBenchPokemon
+
+; handle switching Defending card
+	ld a, DUELVARS_ARENA_CARD_HP
+	call GetNonTurnDuelistVariable
+	or a
+	jr nz, .skip_destiny_bond
+	bank1call HandleDestinyBondSubstatus
+.skip_destiny_bond
+	call SwapTurn
+	call .SwitchWithRandomBenchPokemon
+	jr c, .skip_clear_damage
+; clear dealt damage because Pokemon was switched
+	xor a
+	ld hl, wDealtDamage
+	ld [hli], a
+	ld [hl], a
+.skip_clear_damage
+	call SwapTurn
+;	fallthrough for attacking card switch
+
+.SwitchWithRandomBenchPokemon
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	cp 2
+	ret c ; return if no Bench Pokemon
+
+; get random Bench location and swap
+	dec a
+	call Random
+	inc a
+	ld e, a
+	call SwapArenaWithBenchPokemon
+
+	xor a
+	ld [wDuelDisplayedScreen], a
+	ret
+
+; return carry if Bench is full
+FriendshipSong_BenchCheck: ; 2f10d (b:710d)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ldtx hl, NoSpaceOnTheBenchText
+	cp MAX_PLAY_AREA_POKEMON
+	ccf
+	ret
+
+FriendshipSong_AddToBench50PercentEffect: ; 2f119 (b:7119)
+	ldtx de, SuccessCheckIfHeadsAttackIsSuccessfulText
+	call TossCoin_BankB
+	jr c, .successful
+
+.none_came_text
+	ldtx hl, NoneCameText
+	call DrawWideTextBox_WaitForInput
+	ret
+
+.successful
+	call PickRandomBasicCardFromDeck
+	jr nc, .put_in_bench
+	ld a, ATK_ANIM_FRIENDSHIP_SONG
+	call Func_2c12e
+	call .none_came_text
+	call Func_2c0bd
+	ret
+
+.put_in_bench
+	call SearchCardInDeckAndAddToHand
+	call AddCardToHand
+	call PutHandPokemonCardInPlayArea
+	ld a, ATK_ANIM_FRIENDSHIP_SONG
+	call Func_2c12e
+	ldh a, [hTempCardIndex_ff98]
+	ldtx hl, CameToTheBenchText
+	bank1call DisplayCardDetailScreen
+	call Func_2c0bd
+	ret
+
+ExpandEffect: ; 2f153 (b:7153)
+	ld a, SUBSTATUS1_REDUCE_BY_10
+	call ApplySubstatus1ToDefendingCard
+	ret
+
+; returns carry if either there are no damage counters
+; or no Energy cards attached in the Play Area.
+SuperPotion_DamageEnergyCheck: ; 2f159 (b:7159)
+	call CheckIfPlayAreaHasAnyDamage
+	ldtx hl, NoPokemonWithDamageCountersText
+	ret c ; no damage counters
+	call CheckIfThereAreAnyEnergyCardsAttached
+	ldtx hl, ThereIsNoEnergyCardAttachedText
+	ret
+
+SuperPotion_PlayerSelectEffect: ; 2f167 (b:7167)
+	ldtx hl, ChoosePokemonToRemoveDamageCounterFromText
+	call DrawWideTextBox_WaitForInput
+.start
+	bank1call HasAlivePokemonInPlayArea
+.read_input
+	bank1call OpenPlayAreaScreenForSelection
+	ret c ; exit if B is pressed
+	ld e, a
+	call GetCardDamageAndMaxHP
+	or a
+	jr z, .read_input ; Pokemon has no damage?
+	ldh a, [hCurMenuItem]
+	ld e, a
+	call GetPlayAreaCardAttachedEnergies
+	ld a, [wTotalAttachedEnergies]
+	or a
+	jr nz, .got_pkmn
+	; no energy cards attached
+	ldtx hl, NoEnergyCardsText
+	call DrawWideTextBox_WaitForInput
+	jr .start
+
+.got_pkmn
+; Pokemon has damage and Energy cards attached,
+; prompt the Player for Energy selection to discard.
+	ldh a, [hCurMenuItem]
+	bank1call CreateArenaOrBenchEnergyCardList
+	ldh a, [hCurMenuItem]
+	bank1call DisplayEnergyDiscardScreen
+	bank1call HandleEnergyDiscardMenuInput
+	ret c ; exit if B was pressed
+
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTemp_ffa0], a
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTempPlayAreaLocation_ffa1], a
+	ld e, a
+
+; cap the healing damage if
+; it would make it exceed max HP.
+	call GetCardDamageAndMaxHP
+	ld c, 40
+	cp 40
+	jr nc, .heal
+	ld c, a
+.heal
+	ld a, c
+	ldh [hPlayAreaEffectTarget], a
+	or a
+	ret
+
+SuperPotion_HealEffect: ; 2f1b5 (b:71b5)
+	ldh a, [hTemp_ffa0]
+	call PutCardInDiscardPile
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	ldh [hTempPlayAreaLocation_ff9d], a
+	ldh a, [hPlayAreaEffectTarget]
+	call HealPlayAreaCardHP
+	ret
+
+; checks if there is at least one Energy card
+; attached to some card in the Turn Duelist's Play Area.
+; return no carry if one is found,
+; and returns carry set if none is found.
+CheckIfThereAreAnyEnergyCardsAttached: ; 2f1c4 (b:71c4)
+	ld a, DUELVARS_CARD_LOCATIONS
+	call GetTurnDuelistVariable
+.loop_deck
+	ld a, [hl]
+	bit CARD_LOCATION_PLAY_AREA_F, a
+	jr z, .next_card ; skip if not in Play Area
+	ld a, l
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Type]
+	cp TYPE_TRAINER
+	jr z, .next_card ; skip if it's a Trainer card
+	cp TYPE_ENERGY
+	jr nc, .found
+.next_card
+	inc l
+	ld a, l
+	cp DECK_SIZE
+	jr c, .loop_deck
+	scf
+	ret
+.found
+	or a
+	ret
+
+; handles Player selection for Pokemon in Play Area,
+; then opens screen to choose one of the energy cards
+; attached to that selected Pokemon.
+; outputs the selection in:
+;	[hTemp_ffa0] = play area location
+;	[hTempPlayAreaLocation_ffa1] = index of energy card
+HandlePokemonAndEnergySelectionScreen: ; 2f1e7 (b:71e7)
+	bank1call HasAlivePokemonInPlayArea
+	bank1call OpenPlayAreaScreenForSelection
+	ret c ; exit if B is pressed
+	ld e, a
+	call GetPlayAreaCardAttachedEnergies
+	ld a, [wTotalAttachedEnergies]
+	or a
+	jr nz, .has_energy
+	ldtx hl, NoEnergyCardsText
+	call DrawWideTextBox_WaitForInput
+	jr HandlePokemonAndEnergySelectionScreen ; loop back to start
+
+.has_energy
+	ldh a, [hCurMenuItem]
+	bank1call CreateArenaOrBenchEnergyCardList
+	ldh a, [hCurMenuItem]
+	bank1call DisplayEnergyDiscardScreen
+	bank1call HandleEnergyDiscardMenuInput
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTempPlayAreaLocation_ffa1], a
+	ret
+
+ImakuniEffect: ; 2f216 (b:7216)
+	ld a, DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	call LoadCardDataToBuffer1_FromDeckIndex
+	ld a, [wLoadedCard1ID]
+
+; cannot confuse Clefairy Doll and Mysterious Fossil
+	cp CLEFAIRY_DOLL
+	jr z, .failed
+	cp MYSTERIOUS_FOSSIL
+	jr z, .failed
+
+; cannot confuse Snorlax if its Pkmn Power is active
+	cp SNORLAX
+	jr nz, .success
+	xor a
+	call CheckCannotUseDueToStatus_OnlyToxicGasIfANon0
+	jr c, .success
+	; fallthrough if Thick Skinned is active
+
+.failed
+; play confusion animation and print failure text
+	ld a, ATK_ANIM_IMAKUNI_CONFUSION
+	call Func_2fea9
+	ldtx hl, ThereWasNoEffectText
+	call DrawWideTextBox_WaitForInput
+	ret
+
+.success
+; play confusion animation and confuse card
+	ld a, ATK_ANIM_IMAKUNI_CONFUSION
+	call Func_2fea9
+	ld a, DUELVARS_ARENA_CARD_STATUS
+	call GetTurnDuelistVariable
+	and PSN_DBLPSN
+	or CONFUSED
+	ld [hl], a
+	bank1call DrawDuelHUDs
+	ret
+
+; returns carry if opponent has no energy cards attached
+EnergyRemoval_EnergyCheck: ; 2f252 (b:7252)
+	call SwapTurn
+	call CheckIfThereAreAnyEnergyCardsAttached
+	ldtx hl, NoEnergyAttachedToOpponentsActiveText
+	call SwapTurn
+	ret
+
+EnergyRemoval_PlayerSelection: ; 2f25f (b:725f)
+	ldtx hl, ChoosePokemonToRemoveEnergyFromText
+	call DrawWideTextBox_WaitForInput
+	call SwapTurn
+	call HandlePokemonAndEnergySelectionScreen
+	call SwapTurn
+	ret
+
+EnergyRemoval_AISelection: ; 2f26f (b:726f)
+	call AIPickEnergyCardToDiscardFromDefendingPokemon
+	ret
+
+EnergyRemoval_DiscardEffect: ; 2f273 (b:7273)
+	call SwapTurn
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	call PutCardInDiscardPile
+	call SwapTurn
+	call IsPlayerTurn
+	ret c
+
+; show Player which Pokemon was affected
+	call SwapTurn
+	ldh a, [hTemp_ffa0]
+	call Func_2c10b
+	call SwapTurn
+	ret
+
+; return carry if no other card in hand to discard
+; or if there are no Basic Energy cards in Discard Pile.
+EnergyRetrieval_HandEnergyCheck: ; 2f28e (b:728e)
+	ld a, DUELVARS_NUMBER_OF_CARDS_IN_HAND
+	call GetTurnDuelistVariable
+	cp 2
+	ldtx hl, NotEnoughCardsInHandText
+	ret c ; return if doesn't have another card to discard
+	call CreateEnergyCardListFromDiscardPile_OnlyBasic
+	ldtx hl, ThereAreNoBasicEnergyCardsInDiscardPileText
+	ret
+
+EnergyRetrieval_PlayerHandSelection: ; 2f2a0 (b:72a0)
+	ldtx hl, ChooseCardToDiscardFromHandText
+	call DrawWideTextBox_WaitForInput
+	call CreateHandCardList
+	ldh a, [hTempCardIndex_ff9f]
+	call RemoveCardFromDuelTempList
+	bank1call Func_5591
+	bank1call DisplayCardList
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTempList], a
+	ret
+
+EnergyRetrieval_PlayerDiscardPileSelection: ; 2f2b9 (b:72b9)
+	ld a, 1 ; start at 1 due to card selected from hand
+	ldh [hCurSelectionItem], a
+	ldtx hl, Choose2BasicEnergyCardsFromDiscardPileText
+	call DrawWideTextBox_WaitForInput
+	call CreateEnergyCardListFromDiscardPile_OnlyBasic
+
+.select_card
+	bank1call InitAndDrawCardListScreenLayout
+	ldtx hl, PleaseSelectCardText
+	ldtx de, PlayerDiscardPileText
+	bank1call SetCardListHeaderText
+	bank1call DisplayCardList
+	jr nc, .selected
+	; B was pressed
+	ld a, 2 + 1 ; includes the card selected from hand
+	call AskWhetherToQuitSelectingCards
+	jr c, .select_card ; player selected No
+	jr .done
+
+.selected
+	call GetNextPositionInTempList_TrainerEffects
+	ldh a, [hTempCardIndex_ff98]
+	ld [hl], a
+	call RemoveCardFromDuelTempList
+	jr c, .done
+	ldh a, [hCurSelectionItem]
+	cp 2 + 1 ; includes the card selected from hand
+	jr c, .select_card
+
+.done
+	call GetNextPositionInTempList_TrainerEffects
+	ld [hl], $ff ; terminating byte
+	or a
+	ret
+
+EnergyRetrieval_DiscardAndAddToHandEffect: ; 2f2f8 (b:72f8)
+	ld hl, hTempList
+	ld a, [hli]
+	call RemoveCardFromHand
+	call PutCardInDiscardPile
+	ld de, wDuelTempList
+.loop
+	ld a, [hli]
+	ld [de], a
+	inc de
+	cp $ff
+	jr z, .done
+	call MoveDiscardPileCardToHand
+	call AddCardToHand
+	jr .loop
+.done
+	call IsPlayerTurn
+	ret c
+	bank1call Func_4b38
+	ret
+
+; return carry if no cards left in Deck.
+EnergySearch_DeckCheck: ; 2f31c (b:731c)
+	ld a, DUELVARS_NUMBER_OF_CARDS_NOT_IN_DECK
+	call GetTurnDuelistVariable
+	cp DECK_SIZE
+	ccf
+	ldtx hl, NoCardsLeftInTheDeckText
+	ret
+
+EnergySearch_PlayerSelection: ; 2f328 (b:7328)
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	call CreateDeckCardList
+	ldtx hl, Choose1BasicEnergyCardFromDeckText
+	lb de, SEARCHEFFECT_BASIC_ENERGY, 0
+	ldtx bc, BasicEnergyText
+	call LookForCardsInDeck
+	ret c ; skip showing deck
+
+	bank1call Func_5591
+	ldtx hl, ChooseBasicEnergyCardText
+	ldtx de, DuelistDeckText
+	bank1call SetCardListHeaderText
+.read_input
+	bank1call DisplayCardList
+	jr c, .try_exit ; B pressed?
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTemp_ffa0], a
+	call CheckIfCardIsBasicEnergy
+	jr c, .play_sfx
+	or a
+	ret
+.play_sfx
+	call Func_3794
+	jr .read_input
+
+.try_exit
+; check if Player can exit without selecting anything
+	ld hl, wDuelTempList
+.next_card
+	ld a, [hli]
+	cp $ff
+	jr z, .exit
+	call CheckIfCardIsBasicEnergy
+	jr c, .next_card
+	jr .read_input ; no, has to select Energy card
+.exit
+	ld a, $ff
+	ldh [hTemp_ffa0], a
+	or a
+	ret
+
+EnergySearch_AddToHandEffect: ; 2f372 (b:7372)
+	ldh a, [hTemp_ffa0]
+	cp $ff
+	jr z, .done
+; add to hand
+	call SearchCardInDeckAndAddToHand
+	call AddCardToHand
+	call IsPlayerTurn
+	jr c, .done ; done if Player played card
+; display card in screen
+	ldh a, [hTemp_ffa0]
+	ldtx hl, WasPlacedInTheHandText
+	bank1call DisplayCardDetailScreen
+.done
+	call Func_2c0bd
+	ret
+
+; check if card index in a is a Basic Energy card.
+; returns carry in case it's not.
+CheckIfCardIsBasicEnergy: ; 2f38f (b:738f)
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Type]
+	cp TYPE_ENERGY
+	jr c, .not_basic_energy
+	cp TYPE_ENERGY_DOUBLE_COLORLESS
+	jr nc, .not_basic_energy
+; is basic energy
+	or a
+	ret
+.not_basic_energy
+	scf
+	ret
+
+ProfessorOakEffect: ; 2f3a1 (b:73a1)
+; discard hand
+	call CreateHandCardList
+	call SortCardsInDuelTempListByID
+	ld hl, wDuelTempList
+.discard_loop
+	ld a, [hli]
+	cp $ff
+	jr z, .draw_cards
+	call RemoveCardFromHand
+	call PutCardInDiscardPile
+	jr .discard_loop
+
+.draw_cards
+	ld a, 7
+	bank1call DisplayDrawNCardsScreen
+	ld c, 7
+.draw_loop
+	call DrawCardFromDeck
+	jr c, .done
+	call AddCardToHand
+	dec c
+	jr nz, .draw_loop
+.done
+	ret
+
+Potion_DamageCheck: ; 2f3ca (b:73ca)
+	call CheckIfPlayAreaHasAnyDamage
+	ldtx hl, NoPokemonWithDamageCountersText
+	ret
+
+Potion_PlayerSelection: ; 2f3d1 (b:73d1)
+	bank1call HasAlivePokemonInPlayArea
+.read_input
+	bank1call OpenPlayAreaScreenForSelection
+	ret c ; exit is B was pressed
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	ld e, a
+	call GetCardDamageAndMaxHP
+	or a
+	jr z, .read_input ; no damage, loop back to start
+; cap damage
+	ld c, 20
+	cp 20
+	jr nc, .skip_cap
+	ld c, a
+.skip_cap
+	ld a, c
+	ldh [hTempPlayAreaLocation_ffa1], a
+	or a
+	ret
+
+Potion_HealEffect: ; 2f3ef (b:73ef)
+	ldh a, [hTemp_ffa0]
+	ldh [hTempPlayAreaLocation_ff9d], a
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	call HealPlayAreaCardHP
+	ret
+
+GamblerEffect: ; 2f3f9 (b:73f9)
+	ldtx de, CardCheckIfHeads8CardsIfTails1CardText
+	call TossCoin_BankB
+	ldh [hTemp_ffa0], a
+; discard Gambler card from hand
+	ldh a, [hTempCardIndex_ff9f]
+	call RemoveCardFromHand
+	call PutCardInDiscardPile
+
+; shuffle cards into deck
+	call CreateHandCardList
+	call SortCardsInDuelTempListByID
+	ld hl, wDuelTempList
+.loop_return_deck
+	ld a, [hli]
+	cp $ff
+	jr z, .check_coin_toss
+	call RemoveCardFromHand
+	call ReturnCardToDeck
+	jr .loop_return_deck
+
+.check_coin_toss
+	call Func_2c0bd
+	ld c, 8
+	ldh a, [hTemp_ffa0]
+	or a
+	jr nz, .draw_cards ; coin toss was heads?
+	; if tails, number of cards to draw is 1
+	ld c, 1
+
+; correct number of cards to draw is in c
+.draw_cards
+	ld a, c
+	bank1call DisplayDrawNCardsScreen
+.draw_loop
+	call DrawCardFromDeck
+	jr c, .done
+	call AddCardToHand
+	dec c
+	jr nz, .draw_loop
+.done
+	ret
+
+; return carry if not enough cards in hand to discard
+; or if there are no cards in the Discard Pile
+ItemFinder_HandDiscardPileCheck: ; 2f43b (b:743b)
+	ld a, DUELVARS_NUMBER_OF_CARDS_IN_HAND
+	call GetTurnDuelistVariable
+	ldtx hl, NotEnoughCardsInHandText
+	cp 3
+	ret c
+	call CreateTrainerCardListFromDiscardPile
+	ret
+
+ItemFinder_PlayerSelection: ; 2f44a (b:744a)
+	call HandlePlayerSelection2HandCardsToDiscard
+	ret c ; was operation cancelled?
+
+; cards were selected to discard from hand.
+; now to choose a Trainer card from Discard Pile.
+	call CreateTrainerCardListFromDiscardPile
+	bank1call Func_5591
+	ldtx hl, ChooseCardToPlaceInHandText
+	ldtx de, PlayerDiscardPileText
+	bank1call SetCardListHeaderText
+	bank1call DisplayCardList
+	ldh [hTempList + 2], a ; placed after the 2 cards selected to discard
+	ret
+
+ItemFinder_DiscardAddToHandEffect: ; 2f463 (b:7463)
+; discard cards from hand
+	ld hl, hTempList
+	ld a, [hli]
+	call RemoveCardFromHand
+	call PutCardInDiscardPile
+	ld a, [hli]
+	call RemoveCardFromHand
+	call PutCardInDiscardPile
+
+; place card from Discard Pile to hand
+	ld a, [hl]
+	call MoveDiscardPileCardToHand
+	call AddCardToHand
+	call IsPlayerTurn
+	ret c
+; display card in screen
+	ldh a, [hTempList + 2]
+	ldtx hl, WasPlacedInTheHandText
+	bank1call DisplayCardDetailScreen
+	ret
+
+Defender_PlayerSelection: ; 2f488 (b:7488)
+	ldtx hl, ChoosePokemonToAttachDefenderToText
+	call DrawWideTextBox_WaitForInput
+	bank1call HasAlivePokemonInPlayArea
+	bank1call OpenPlayAreaScreenForSelection
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	ret
+
+Defender_AttachDefenderEffect: ; 2f499 (b:7499)
+; attach Trainer card to Play Area Pokemon
+	ldh a, [hTemp_ffa0]
+	ld e, a
+	ldh a, [hTempCardIndex_ff9f]
+	call PutHandCardInPlayArea
+
+; increase number of Defender cards of this location by 1
+	ldh a, [hTemp_ffa0]
+	add DUELVARS_ARENA_CARD_ATTACHED_DEFENDER
+	call GetTurnDuelistVariable
+	inc [hl]
+	call IsPlayerTurn
+	ret c
+
+	ldh a, [hTemp_ffa0]
+	call Func_2c10b
+	ret
+
+; return carry if Bench is full.
+MysteriousFossil_BenchCheck: ; 2f4b3 (b:74b3)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	cp MAX_PLAY_AREA_POKEMON
+	ccf
+	ldtx hl, NoSpaceOnTheBenchText
+	ret
+
+MysteriousFossil_PlaceInPlayAreaEffect: ; 2f4bf (b:74bf)
+	ldh a, [hTempCardIndex_ff9f]
+	call PutHandPokemonCardInPlayArea
+	ret
+
+; return carry if Arena card has no status to heal.
+FullHeal_StatusCheck: ; 2f4c5 (b:74c5)
+	ld a, DUELVARS_ARENA_CARD_STATUS
+	call GetTurnDuelistVariable
+	or a
+	ret nz
+	ldtx hl, NotAffectedByPoisonSleepParalysisOrConfusionText
+	scf
+	ret
+
+FullHeal_ClearStatusEffect: ; 2f4d1 (b:74d1)
+	ld a, ATK_ANIM_FULL_HEAL
+	call Func_2fea9
+	ld a, DUELVARS_ARENA_CARD_STATUS
+	call GetTurnDuelistVariable
+	ld [hl], NO_STATUS
+	bank1call DrawDuelHUDs
+	ret
+
+ImposterProfessorOakEffect: ; 2f4e1 (b:74e1)
+	call SwapTurn
+	call CreateHandCardList
+	call SortCardsInDuelTempListByID
+
+; first return all cards in hand to the deck.
+	ld hl, wDuelTempList
+.loop_return_deck
+	ld a, [hli]
+	cp $ff
+	jr z, .done_return
+	call RemoveCardFromHand
+	call ReturnCardToDeck
+	jr .loop_return_deck
+
+; then draw 7 cards from the deck.
+.done_return
+	call Func_2c0bd
+	ld a, 7
+	bank1call DisplayDrawNCardsScreen
+	ld c, 7
+.loop_draw
+	call DrawCardFromDeck
+	jr c, .done
+	call AddCardToHand
+	dec c
+	jr nz, .loop_draw
+.done
+	call SwapTurn
+	ret
+
+; return carry if not enough cards in hand to discard
+; or if there are no cards left in the deck.
+ComputerSearch_HandDeckCheck: ; 2f513 (b:7513)
+	ld a, DUELVARS_NUMBER_OF_CARDS_IN_HAND
+	call GetTurnDuelistVariable
+	ldtx hl, NotEnoughCardsInHandText
+	cp 3
+	ret c
+	ld a, DUELVARS_NUMBER_OF_CARDS_NOT_IN_DECK
+	call GetTurnDuelistVariable
+	ldtx hl, NoCardsLeftInTheDeckText
+	cp DECK_SIZE
+	ccf
+	ret
+
+ComputerSearch_PlayerDiscardHandSelection: ; 2f52a (b:752a)
+	call HandlePlayerSelection2HandCardsToDiscard
+	ret
+
+ComputerSearch_PlayerDeckSelection: ; 2f52e (b:752e)
+	call CreateDeckCardList
+	bank1call Func_5591
+	ldtx hl, ChooseCardToPlaceInHandText
+	ldtx de, DuelistDeckText
+	bank1call SetCardListHeaderText
+.loop_input
+	bank1call DisplayCardList
+	jr c, .loop_input ; can't exit with B button
+	ldh [hTempList + 2], a
+	ret
+
+ComputerSearch_DiscardAddToHandEffect: ; 2f545 (b:7545)
+; discard cards from hand
+	ld hl, hTempList
+	ld a, [hli]
+	call RemoveCardFromHand
+	call PutCardInDiscardPile
+	ld a, [hli]
+	call RemoveCardFromHand
+	call PutCardInDiscardPile
+
+; add card from deck to hand
+	ld a, [hl]
+	call SearchCardInDeckAndAddToHand
+	call AddCardToHand
+	call Func_2c0bd
+	ret
+
+; return carry if Bench is full.
+ClefairyDoll_BenchCheck: ; 2f561 (b:7561)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ldtx hl, NoSpaceOnTheBenchText
+	cp MAX_PLAY_AREA_POKEMON
+	ccf
+	ret
+
+ClefairyDoll_PlaceInPlayAreaEffect: ; 2f56d (b:756d)
+	ldh a, [hTempCardIndex_ff9f]
+	call PutHandPokemonCardInPlayArea
+	ret
+
+; return carry if no Pokemon in the Bench.
+MrFuji_BenchCheck: ; 2f573 (b:7573)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ldtx hl, EffectNoPokemonOnTheBenchText
+	cp 2
+	ret
+
+MrFuji_PlayerSelection: ; 2f57e (b:757e)
+	ldtx hl, ChoosePokemonToReturnToTheDeckText
+	call DrawWideTextBox_WaitForInput
+	bank1call HasAlivePokemonInBench
+	bank1call OpenPlayAreaScreenForSelection
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	ret
+
+MrFuji_ReturnToDeckEffect: ; 2f58f (b:758f)
+; get Play Area location's card index
+	ldh a, [hTemp_ffa0]
+	add DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	ldh [hTempCardIndex_ff98], a
+
+; find all cards that are in the same location
+; (previous evolutions and energy cards attached)
+; and return them all to the deck.
+	ldh a, [hTemp_ffa0]
+	or CARD_LOCATION_PLAY_AREA
+	ld e, a
+	ld a, DUELVARS_CARD_LOCATIONS
+	call GetTurnDuelistVariable
+.loop_cards
+	push de
+	push hl
+	ld a, [hl]
+	cp e
+	jr nz, .next_card
+	ld a, l
+	call ReturnCardToDeck
+.next_card
+	pop hl
+	pop de
+	inc l
+	ld a, l
+	cp DECK_SIZE
+	jr c, .loop_cards
+
+; clear Play Area location of card
+	ldh a, [hTemp_ffa0]
+	ld e, a
+	call EmptyPlayAreaSlot
+	ld l, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	dec [hl]
+	call ShiftAllPokemonToFirstPlayAreaSlots
+
+; if Trainer card wasn't played by the Player,
+; print the selected Pokemon's name and show card on screen.
+	call IsPlayerTurn
+	jr c, .done
+	ldh a, [hTempCardIndex_ff98]
+	call LoadCardDataToBuffer1_FromDeckIndex
+	ld hl, wLoadedCard1Name
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	call LoadTxRam2
+	bank1call DrawLargePictureOfCard
+	ldtx hl, PokemonAndAllAttachedCardsWereReturnedToDeckText
+	call DrawWideTextBox_WaitForInput
+.done
+	call Func_2c0bd
+	ret
+
+PlusPowerEffect: ; 2f5e0 (b:75e0)
+; attach Trainer card to Arena Pokemon
+	ld e, PLAY_AREA_ARENA
+	ldh a, [hTempCardIndex_ff9f]
+	call PutHandCardInPlayArea
+
+; increase number of Defender cards of this location by 1
+	ld a, DUELVARS_ARENA_CARD_ATTACHED_PLUSPOWER
+	call GetTurnDuelistVariable
+	inc [hl]
+	ret
+
+; return carry if no Pokemon in the Bench.
+Switch_BenchCheck: ; 2f5ee (b:75ee)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ldtx hl, EffectNoPokemonOnTheBenchText
+	cp 2
+	ret
+
+Switch_PlayerSelection: ; 2f5f9 (b:75f9)
+	ldtx hl, SelectPkmnOnBenchToSwitchWithActiveText
+	call DrawWideTextBox_WaitForInput
+	bank1call HasAlivePokemonInBench
+	bank1call OpenPlayAreaScreenForSelection
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	ret
+
+Switch_SwitchEffect: ; 2f60a (b:760a)
+	ldh a, [hTemp_ffa0]
+	ld e, a
+	call SwapArenaWithBenchPokemon
+	ret
+
+PokemonCenter_DamageCheck: ; 2f611 (b:7611)
+	call CheckIfPlayAreaHasAnyDamage
+	ldtx hl, NoPokemonWithDamageCountersText
+	ret
+
+PokemonCenter_HealDiscardEnergyEffect: ; 2f618 (b:7618)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ld d, a
+	ld e, PLAY_AREA_ARENA
+
+; go through every Pokemon in the Play Area
+; and heal all damage & discard their Energy cards.
+.loop_play_area
+; check its damage
+	ld a, e
+	ldh [hTempPlayAreaLocation_ff9d], a
+	call GetCardDamageAndMaxHP
+	or a
+	jr z, .next_pkmn ; if no damage, skip Pokemon
+
+; heal all its damage
+	push de
+	ld e, a
+	ld d, $00
+	call HealPlayAreaCardHP
+
+; loop all cards in deck and for all the Energy cards
+; that are attached to this Play Area location Pokemon,
+; place them in the Discard Pile.
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	or CARD_LOCATION_PLAY_AREA
+	ld e, a
+	ld a, $00
+	call GetTurnDuelistVariable
+.loop_deck
+	ld a, [hl]
+	cp e
+	jr nz, .next_card_deck ; not attached to card, skip
+	ld a, l
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Type]
+	and TYPE_ENERGY
+	jr z, .next_card_deck ; not Energy, skip
+	ld a, l
+	call PutCardInDiscardPile
+.next_card_deck
+	inc l
+	ld a, l
+	cp DECK_SIZE
+	jr c, .loop_deck
+
+	pop de
+.next_pkmn
+	inc e
+	dec d
+	jr nz, .loop_play_area
+	ret
+
+; return carry if non-Turn Duelist has full Bench
+; or if they have no Basic Pokemon cards in Discard Pile.
+PokemonFlute_BenchCheck: ; 2f659 (b:7659)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetNonTurnDuelistVariable
+	ldtx hl, NoSpaceOnTheBenchText
+	cp MAX_PLAY_AREA_POKEMON
+	ccf
+	ret c ; not enough space in Bench
+	; check Discard Pile
+	call SwapTurn
+	call CreateBasicPokemonCardListFromDiscardPile
+	ldtx hl, ThereAreNoPokemonInDiscardPileText
+	call SwapTurn
+	ret
+
+PokemonFlute_PlayerSelection: ; 2f672 (b:7672)
+; create Discard Pile list
+	call SwapTurn
+	call CreateBasicPokemonCardListFromDiscardPile
+
+; display selection screen and store Player's selection
+	bank1call Func_5591
+	ldtx hl, ChoosePokemonToPlaceInPlayText
+	ldtx de, PlayerDiscardPileText
+	bank1call SetCardListHeaderText
+	bank1call DisplayCardList
+	call SwapTurn
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTemp_ffa0], a
+	ret
+
+PokemonFlute_PlaceInPlayAreaText: ; 2f68f (b:768f)
+; place selected card in non-Turn Duelist's Bench
+	call SwapTurn
+	ldh a, [hTemp_ffa0]
+	call MoveDiscardPileCardToHand
+	call AddCardToHand
+	call PutHandPokemonCardInPlayArea
+	call SwapTurn
+
+; unless it was the Player who played the card,
+; display the Pokemon card on screen.
+	call IsPlayerTurn
+	ret c
+	call SwapTurn
+	ldh a, [hTemp_ffa0]
+	ldtx hl, CardWasChosenText
+	bank1call DisplayCardDetailScreen
+	call SwapTurn
+	ret
+
+PokemonBreeder_HandPlayAreaCheck: ; 2f6b3 (b:76b3)
+	call CreatePlayableStage2PokemonCardListFromHand
+	jr c, .cannot_evolve
+	bank1call IsPrehistoricPowerActive
+	ret
+.cannot_evolve
+	ldtx hl, ConditionsForEvolvingToStage2NotFulfilledText
+	scf
+	ret
+
+PokemonBreeder_PlayerSelection: ; 2f6c1 (b:76c1)
+; create hand list of playable Stage2 cards
+	call CreatePlayableStage2PokemonCardListFromHand
+	bank1call Func_5591
+
+; handle Player selection of Stage2 card
+	ldtx hl, PleaseSelectCardText
+	ldtx de, DuelistHandText
+	bank1call SetCardListHeaderText
+	bank1call DisplayCardList
+	ret c ; exit if B was pressed
+
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTemp_ffa0], a
+	ldtx hl, ChooseBasicPokemonToEvolveText
+	call DrawWideTextBox_WaitForInput
+
+; handle Player selection of Basic card to evolve
+	bank1call HasAlivePokemonInPlayArea
+.read_input
+	bank1call OpenPlayAreaScreenForSelection
+	ret c ; exit if B was pressed
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTempPlayAreaLocation_ffa1], a
+	ld e, a
+	ldh a, [hTemp_ffa0]
+	ld d, a
+	call CheckIfCanEvolveInto_BasicToStage2
+	jr c, .read_input ; loop back if cannot evolve this card
+	or a
+	ret
+
+PokemonBreeder_EvolveEffect: ; 2f6f4 (b:76f4)
+	ldh a, [hTempCardIndex_ff9f]
+	push af
+	ld hl, hTemp_ffa0
+	ld a, [hli]
+	ldh [hTempCardIndex_ff98], a
+	ld a, [hl] ; hTempPlayAreaLocation_ffa1
+	ldh [hTempPlayAreaLocation_ff9d], a
+
+; load the Basic Pokemon card name to RAM
+	add DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	call LoadCardDataToBuffer1_FromDeckIndex
+	ld hl, wLoadedCard1Name
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	call LoadTxRam2
+
+; evolve card and overwrite its stage as STAGE2_WITHOUT_STAGE1
+	ldh a, [hTempCardIndex_ff98]
+	call EvolvePokemonCard
+	ld [hl], STAGE2_WITHOUT_STAGE1
+
+; load Stage2 Pokemon card name to RAM
+	ldh a, [hTempCardIndex_ff98]
+	call LoadCardDataToBuffer1_FromDeckIndex
+	ld a, 18
+	call CopyCardNameAndLevel
+	xor a
+	ld [hl], a ; $0 character
+	ld hl, wTxRam2_b
+	ld [hli], a
+	ld [hl], a
+
+; display Pokemon picture and play sfx,
+; print the corresponding card names.
+	bank1call DrawLargePictureOfCard
+	ld a, $5e
+	call PlaySFX
+	ldtx hl, PokemonEvolvedIntoPokemonText
+	call DrawWideTextBox_WaitForInput
+	bank1call Func_161e
+	pop af
+	ldh [hTempCardIndex_ff9f], a
+	ret
+
+; creates list in wDuelTempList of all Stage2 Pokemon cards
+; in the hand that can evolve a Basic Pokemon card in Play Area
+; through use of Pokemon Breeder.
+; returns carry if that list is empty.
+CreatePlayableStage2PokemonCardListFromHand: ; 2f73e (b:773e)
+	call CreateHandCardList
+	ret c ; return if no hand cards
+
+; check if hand Stage2 Pokemon cards can be made
+; to evolve a Basic Pokemon in the Play Area and, if so,
+; add it to the wDuelTempList.
+	ld hl, wDuelTempList
+	ld e, l
+	ld d, h
+.loop_hand
+	ld a, [hl]
+	cp $ff
+	jr z, .done
+	call .CheckIfCanEvolveAnyPlayAreaBasicCard
+	jr c, .next_hand_card
+	ld a, [hl]
+	ld [de], a
+	inc de
+.next_hand_card
+	inc hl
+	jr .loop_hand
+
+.done
+	ld a, $ff ; terminating byte
+	ld [de], a
+	ld a, [wDuelTempList]
+	cp $ff
+	scf
+	ret z ; return carry if empty
+	; not empty
+	or a
+	ret
+
+; return carry if Stage2 card in a cannot evolve any
+; of the Basic Pokemon in Play Area through Pokemon Breeder.
+.CheckIfCanEvolveAnyPlayAreaBasicCard
+	push de
+	ld d, a
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Type]
+	cp TYPE_ENERGY
+	jr nc, .set_carry ; skip if not Pokemon card
+	ld a, [wLoadedCard2Stage]
+	cp STAGE2
+	jr nz, .set_carry ; skip if not Stage2
+
+; check if can evolve any Play Area cards
+	push hl
+	push bc
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ld c, a
+	ld e, PLAY_AREA_ARENA
+.loop_play_area
+	push bc
+	push de
+	call CheckIfCanEvolveInto_BasicToStage2
+	pop de
+	pop bc
+	jr nc, .done_play_area
+	inc e
+	dec c
+	jr nz, .loop_play_area
+; set carry
+	scf
+.done_play_area
+	pop bc
+	pop hl
+	pop de
+	ret
+.set_carry
+	pop de
+	scf
+	ret
+
+; return carry if no cards in the Bench.
+ScoopUp_BenchCheck: ; 2f795 (b:7795)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ldtx hl, EffectNoPokemonOnTheBenchText
+	cp 2
+	ret
+
+ScoopUp_PlayerSelection: ; 2f7a0 (b:77a0)
+; print text box
+	ldtx hl, ChoosePokemonToScoopUpText
+	call DrawWideTextBox_WaitForInput
+
+; handle Player selection
+	bank1call HasAlivePokemonInPlayArea
+	bank1call OpenPlayAreaScreenForSelection
+	ret c ; exit if B was pressed
+
+	ldh [hTemp_ffa0], a
+	or a
+	ret nz ; if it wasn't the Active Pokemon, we are done
+
+; handle switching to a Pokemon in Bench and store location selected.
+	call EmptyScreen
+	ldtx hl, SelectPokemonToPlaceInTheArenaText
+	call DrawWideTextBox_WaitForInput
+	bank1call HasAlivePokemonInBench
+	bank1call OpenPlayAreaScreenForSelection
+	ldh [hTempPlayAreaLocation_ffa1], a
+	ret
+
+ScoopUp_ReturnToHandEffect: ; 2f7c3 (b:77c3)
+; store chosen card location to Scoop Up
+	ldh a, [hTemp_ffa0]
+	or CARD_LOCATION_PLAY_AREA
+	ld e, a
+
+; find Basic Pokemon card that is in the selected Play Area location
+; and add it to the hand, discarding all cards attached.
+	ld a, DUELVARS_CARD_LOCATIONS
+	call GetTurnDuelistVariable
+.loop
+	ld a, [hl]
+	cp e
+	jr nz, .next_card ; skip if not in selected location
+	ld a, l
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Type]
+	cp TYPE_ENERGY
+	jr nc, .next_card ; skip if not Pokemon card
+	ld a, [wLoadedCard2Stage]
+	or a
+	jr nz, .next_card  ; skip if not Basic stage
+; found
+	ld a, l
+	ldh [hTempCardIndex_ff98], a
+	call AddCardToHand
+	; optimization: break loop here, since
+	; no two Basic Pokemon cards may occupy
+	; the same Play Area location.
+.next_card
+	inc l
+	ld a, l
+	cp DECK_SIZE
+	jr c, .loop
+
+; since the card has been moved to hand,
+; MovePlayAreaCardToDiscardPile will take care
+; of discarding every higher stage cards and other cards attached.
+	ldh a, [hTemp_ffa0]
+	ld e, a
+	call MovePlayAreaCardToDiscardPile
+
+; if the Pokemon was in the Arena, clear status
+	ldh a, [hTemp_ffa0]
+	or a
+	jr nz, .skip_clear_status
+	call ClearAllStatusConditions
+.skip_clear_status
+
+; if card was not played by Player, show detail screen
+; and print corresponding text.
+	call IsPlayerTurn
+	jr c, .shift_or_switch
+	ldtx hl, PokemonWasReturnedFromArenaToHandText
+	ldh a, [hTemp_ffa0]
+	or a
+	jr z, .display_detail_screen
+	ldtx hl, PokemonWasReturnedFromBenchToHandText
+.display_detail_screen
+	ldh a, [hTempCardIndex_ff98]
+	bank1call DisplayCardDetailScreen
+
+.shift_or_switch
+; if card was in Bench, simply shift Pokemon slots...
+	ldh a, [hTemp_ffa0]
+	or a
+	jr z, .switch
+	call ShiftAllPokemonToFirstPlayAreaSlots
+	ret
+
+.switch
+; ...if Pokemon was in Arena, then switch it with the selected Bench card.
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	ld d, a
+	ld e, PLAY_AREA_ARENA
+	call SwapPlayAreaPokemon
+	call ShiftAllPokemonToFirstPlayAreaSlots
+	ret
+
+; return carry if no other cards in hand,
+; or if there are no Pokemon cards in hand.
+PokemonTrader_HandDeckCheck: ; 2f826 (b:7826)
+	ld a, DUELVARS_NUMBER_OF_CARDS_IN_HAND
+	call GetTurnDuelistVariable
+	ldtx hl, ThereAreNoCardsInHandThatYouCanChangeText
+	cp 2
+	ret c ; return if no other cards in hand
+	call CreatePokemonCardListFromHand
+	ldtx hl, ThereAreNoCardsInHandThatYouCanChangeText
+	ret
+
+PokemonTrader_PlayerHandSelection: ; 2f838 (b:7838)
+; print text box
+	ldtx hl, ChooseCardFromYourHandToSwitchText
+	call DrawWideTextBox_WaitForInput
+
+; create list with all Pokemon cards in hand
+	call CreatePokemonCardListFromHand
+	bank1call Func_5591
+
+; handle Player selection
+	ldtx hl, ChooseCardToSwitchText
+	ldtx de, DuelistHandText
+	bank1call SetCardListHeaderText
+	bank1call DisplayCardList
+	ldh [hTemp_ffa0], a
+	ret
+
+PokemonTrader_PlayerDeckSelection: ; 2f853 (b:7853)
+; temporarily place chosen hand card in deck
+; so it can be potentially chosen to be traded.
+	ldh a, [hTemp_ffa0]
+	call RemoveCardFromHand
+	call ReturnCardToDeck
+
+; display deck card list screen
+	ldtx hl, ChooseBasicOrEvolutionPokemonCardFromDeckText
+	call DrawWideTextBox_WaitForInput
+	call CreateDeckCardList
+	bank1call Func_5591
+	ldtx hl, ChoosePokemonCardText
+	ldtx de, DuelistDeckText
+	bank1call SetCardListHeaderText
+
+; handle Player selection
+.read_input
+	bank1call DisplayCardList
+	jr c, .read_input ; pressing B loops back to selection
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Type]
+	cp TYPE_ENERGY
+	jr nc, .read_input ; can't select non-Pokemon cards
+
+; a valid card was selected, store its card index and
+; place the selected hand card back to the hand.
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTempPlayAreaLocation_ffa1], a
+	ldh a, [hTemp_ffa0]
+	call SearchCardInDeckAndAddToHand
+	call AddCardToHand
+	or a
+	ret
+
+PokemonTrader_TradeCardsEffect: ; 2f88d (b:788d)
+; place hand card in deck
+	ldh a, [hTemp_ffa0]
+	call RemoveCardFromHand
+	call ReturnCardToDeck
+
+; place deck card in hand
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	call SearchCardInDeckAndAddToHand
+	call AddCardToHand
+
+; display cards if the Pokemon Trader wasn't played by Player
+	call IsPlayerTurn
+	jr c, .done
+	ldh a, [hTemp_ffa0]
+	ldtx hl, PokemonWasReturnedToDeckText
+	bank1call DisplayCardDetailScreen
+	ldh a, [hTempPlayAreaLocation_ffa1]
+	ldtx hl, WasPlacedInTheHandText
+	bank1call DisplayCardDetailScreen
+.done
+	call Func_2c0bd
+	ret
+
+; makes list in wDuelTempList with all Pokemon cards
+; that are in Turn Duelist's hand.
+; if list turns out empty, return carry.
+CreatePokemonCardListFromHand: ; 2f8b6 (b:78b6)
+	ld a, DUELVARS_NUMBER_OF_CARDS_IN_HAND
+	call GetTurnDuelistVariable
+	ld c, a
+	ld l, DUELVARS_HAND
+	ld de, wDuelTempList
+.loop
+	ld a, [hl]
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Type]
+	cp TYPE_ENERGY
+	jr nc, .next_hand_card
+	ld a, [hl]
+	ld [de], a
+	inc de
+.next_hand_card
+	inc l
+	dec c
+	jr nz, .loop
+	ld a, $ff ; terminating byte
+	ld [de], a
+	ld a, [wDuelTempList]
+	cp $ff
+	jr z, .set_carry
+	or a
+	ret
+.set_carry
+	scf
+	ret
+
+; return carry if no cards in deck
+Pokedex_DeckCheck: ; 2f8e1 (b:78e1)
+	ld a, DUELVARS_NUMBER_OF_CARDS_NOT_IN_DECK
+	call GetTurnDuelistVariable
+	ldtx hl, NoCardsLeftInTheDeckText
+	cp DECK_SIZE
+	ccf
+	ret
+
+Pokedex_PlayerSelection: ; 2f8ed (b:78ed)
+; print text box
+	ldtx hl, RearrangeThe5CardsAtTopOfDeckText
+	call DrawWideTextBox_WaitForInput
+
+; cap the number of cards to reorder up to
+; number of cards left in the deck (maximum of 5)
+	ld a, DUELVARS_NUMBER_OF_CARDS_NOT_IN_DECK
+	call GetTurnDuelistVariable
+	ld b, a
+	ld a, DECK_SIZE
+	sub [hl]
+	ld c, 5
+	cp c
+	jr nc, .no_cap
+	ld c, a
+.no_cap
+
+; fill wDuelTempList with cards that are going to be sorted
+	ld a, c
+	inc a
+	ld [wNumberOfCardsToOrder], a
+	ld a, b
+	add DUELVARS_DECK_CARDS
+	ld l, a
+	ld de, wDuelTempList
+.loop_cards_to_order
+	ld a, [hli]
+	ld [de], a
+	inc de
+	dec c
+	jr nz, .loop_cards_to_order
+	ld a, $ff ; terminating byte
+	ld [de], a
+
+.clear_list
+; wDuelTempList + 10 will be filled with numbers from 1
+; to 5 (or whatever the maximum order card is).
+; so that the first item in that list corresponds to the first card
+; the second item corresponds to the second card, etc.
+; and the number in the list corresponds to the ordering number.
+	call CountCardsInDuelTempList
+	ld b, a
+	ld a, 1
+; fill order list with zeroes
+	ldh [hCurSelectionItem], a
+	ld hl, wDuelTempList + 10
+	xor a
+.loop_init
+	ld [hli], a
+	dec b
+	jr nz, .loop_init
+	ld [hl], $ff ; terminating byte
+
+; display card list to order
+	bank1call InitAndDrawCardListScreenLayout
+	ldtx hl, ChooseTheOrderOfTheCardsText
+	ldtx de, DuelistDeckText
+	bank1call SetCardListHeaderText
+	bank1call Func_5735
+
+.read_input
+	bank1call DisplayCardList
+	jr c, .undo ; if B is pressed, undo last order selection
+
+; a card was selected, check if it's already been selected
+	ldh a, [hCurMenuItem]
+	ld e, a
+	ld d, $00
+	ld hl, wDuelTempList + 10
+	add hl, de
+	ld a, [hl]
+	or a
+	jr nz, .read_input ; already has an ordering number
+
+; hasn't been ordered yet, apply to it current ordering number
+; and increase it by 1.
+	ldh a, [hCurSelectionItem]
+	ld [hl], a
+	inc a
+	ldh [hCurSelectionItem], a
+
+; refresh screen
+	push af
+	bank1call Func_5744
+	pop af
+
+; check if we're done ordering
+	ldh a, [hCurSelectionItem]
+	ld hl, wNumberOfCardsToOrder
+	cp [hl]
+	jr c, .read_input ; if still more cards to select, loop back up
+
+; we're done selecting cards
+	call EraseCursor
+	ldtx hl, IsThisOKText
+	call YesOrNoMenuWithText_LeftAligned
+	jr c, .clear_list ; "No" was selected, start over
+	; selection was confirmed
+
+; now wDuelTempList + 10 will be overwritten with the
+; card indices in order of selection.
+	ld hl, wDuelTempList + 10
+	ld de, wDuelTempList
+	ld c, 0
+.loop_write_indices
+	ld a, [hli]
+	cp $ff
+	jr z, .done_write_indices
+	push hl
+	push bc
+	ld c, a
+	ld b, $00
+	ld hl, hTempCardIndex_ff9f
+	add hl, bc
+	ld a, [de]
+	ld [hl], a
+	pop bc
+	pop hl
+	inc de
+	inc c
+	jr .loop_write_indices
+
+.done_write_indices
+	ld b, $00
+	ld hl, hTempList
+	add hl, bc
+	ld [hl], $ff ; terminating byte
+	or a
+	ret
+
+.undo
+; undo last selection and get previous order number
+	ld hl, hCurSelectionItem
+	ld a, [hl]
+	cp 1
+	jr z, .read_input ; already at first input, nothing to undo
+	dec a
+	ld [hl], a
+	ld c, a
+	ld hl, wDuelTempList + 10
+.asm_2f99e
+	ld a, [hli]
+	cp c
+	jr nz, .asm_2f99e
+	dec hl
+	ld [hl], $00 ; overwrite order number with 0
+	bank1call Func_5744
+	jr .read_input
+
+Pokedex_OrderDeckCardsEffect: ; 2f9aa (b:79aa)
+; place cards in order to the hand.
+	ld hl, hTempList
+	ld c, 0
+.loop_place_hand
+	ld a, [hli]
+	cp $ff
+	jr z, .place_top_deck
+	call SearchCardInDeckAndAddToHand
+	inc c
+	jr .loop_place_hand
+
+.place_top_deck
+; go to last card in list and iterate in decreasing order
+; placing each card in top of deck.
+	dec hl
+	dec hl
+.loop_place_deck
+	ld a, [hld]
+	call ReturnCardToDeck
+	dec c
+	jr nz, .loop_place_deck
+	ret
+
+BillEffect: ; 2f9c4 (b:79c4)
+	ld a, 2
+	bank1call DisplayDrawNCardsScreen
+	ld c, 2
+.loop_draw
+	call DrawCardFromDeck
+	jr c, .done
+	ldh [hTempCardIndex_ff98], a
+	call AddCardToHand
+	call IsPlayerTurn
+	jr nc, .skip_display_screen
+	push bc
+	bank1call DisplayPlayerDrawCardScreen
+	pop bc
+.skip_display_screen
+	dec c
+	jr nz, .loop_draw
+.done
+	ret
+
+LassEffect: ; 2f9e3 (b:79e3)
+; first discard Lass card that was used
+	ldh a, [hTempCardIndex_ff9f]
+	call RemoveCardFromHand
+	call PutCardInDiscardPile
+
+	ldtx hl, PleaseCheckTheOpponentsHandText
+	call DrawWideTextBox_WaitForInput
+
+	call .DisplayLinkOrCPUHand
+	; do for non-Turn Duelist
+	call SwapTurn
+	call .ShuffleDuelistHandTrainerCardsInDeck
+	call SwapTurn
+	; do for Turn Duelist
+;	fallthrough
+
+.ShuffleDuelistHandTrainerCardsInDeck
+	call CreateHandCardList
+	call SortCardsInDuelTempListByID
+	xor a
+	ldh [hCurSelectionItem], a
+	ld hl, wDuelTempList
+
+; go through all cards in hand
+; and any Trainer card is returned to deck.
+.loop_hand
+	ld a, [hli]
+	ldh [hTempCardIndex_ff98], a
+	cp $ff
+	jr z, .done
+	call GetCardIDFromDeckIndex
+	call GetCardType
+	cp TYPE_TRAINER
+	jr nz, .loop_hand
+	ldh a, [hTempCardIndex_ff98]
+	call RemoveCardFromHand
+	call ReturnCardToDeck
+	push hl
+	ld hl, hCurSelectionItem
+	inc [hl]
+	pop hl
+	jr .loop_hand
+.done
+; show card list
+	ldh a, [hCurSelectionItem]
+	or a
+	call nz, Func_2c0bd ; only show list if there were any Trainer cards
+	ret
+
+.DisplayLinkOrCPUHand ; 2fa31 (b:7a31)
+	ld a, [wDuelType]
+	or a
+	jr z, .cpu_opp
+
+; link duel
+	ldh a, [hWhoseTurn]
+	push af
+	ld a, OPPONENT_TURN
+	ldh [hWhoseTurn], a
+	call .DisplayOppHand
+	pop af
+	ldh [hWhoseTurn], a
+	ret
+
+.cpu_opp
+	call SwapTurn
+	call .DisplayOppHand
+	call SwapTurn
+	ret
+
+.DisplayOppHand ; 2fa4f (b:7a4f)
+	call CreateHandCardList
+	jr c, .no_cards
+	bank1call InitAndDrawCardListScreenLayout
+	ldtx hl, ChooseTheCardYouWishToExamineText
+	ldtx de, DuelistHandText
+	bank1call SetCardListHeaderText
+	ld a, A_BUTTON | START
+	ld [wNoItemSelectionMenuKeys], a
+	bank1call DisplayCardList
+	ret
+.no_cards
+	ldtx hl, DuelistHasNoCardsInHandText
+	call DrawWideTextBox_WaitForInput
+	ret
+
+; return carry if not enough cards in hand for effect
+Maintenance_HandCheck: ; 2fa70 (b:7a70)
+	ld a, DUELVARS_NUMBER_OF_CARDS_IN_HAND
+	call GetTurnDuelistVariable
+	ldtx hl, NotEnoughCardsInHandText
+	cp 3
+	ret
+
+Maintenance_PlayerSelection: ; 2fa7b (b:7a7b)
+	ldtx hl, Choose2HandCardsFromHandToReturnToDeckText
+	ldtx de, ChooseTheCardToPutBackText
+	call HandlePlayerSelection2HandCards
+	ret
+
+Maintenance_ReturnToDeckAndDrawEffect: ; 2fa85 (b:7a85)
+; return both selected cards to the deck
+	ldh a, [hTempList]
+	call RemoveCardFromHand
+	call ReturnCardToDeck
+	ldh a, [hTempList + 1]
+	call RemoveCardFromHand
+	call ReturnCardToDeck
+	call Func_2c0bd
+
+; draw one card
+	ld a, 1
+	bank1call DisplayDrawNCardsScreen
+	call DrawCardFromDeck
+	ldh [hTempCardIndex_ff98], a
+	call AddCardToHand
+	call IsPlayerTurn
+	ret nc
+	; show card on screen if played by Player
+	bank1call DisplayPlayerDrawCardScreen
+	ret
+
+; return carry if no cards in deck
+PokeBall_DeckCheck: ; 2faad (b:7aad)
+	ld a, DUELVARS_NUMBER_OF_CARDS_NOT_IN_DECK
+	call GetTurnDuelistVariable
+	ldtx hl, NoCardsLeftInTheDeckText
+	cp DECK_SIZE
+	ccf
+	ret
+
+PokeBall_PlayerSelection: ; 2fab9 (b:7ab9)
+	ld de, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call Func_2c08a
+	ldh [hTempList], a ; store coin result
+	ret nc
+
+; create list of all Pokemon cards in deck to search for
+	call CreateDeckCardList
+	ldtx hl, ChooseBasicOrEvolutionPokemonCardFromDeckText
+	ldtx bc, EvolutionCardText
+	lb de, SEARCHEFFECT_POKEMON, 0
+	call LookForCardsInDeck
+	jr c, .no_pkmn ; return if Player chose not to check deck
+
+; handle input
+	bank1call Func_5591
+	ldtx hl, ChoosePokemonCardText
+	ldtx de, DuelistDeckText
+	bank1call SetCardListHeaderText
+.read_input
+	bank1call DisplayCardList
+	jr c, .try_exit ; B was pressed, check if Player can cancel operation
+	ldh a, [hTempCardIndex_ff98]
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Type]
+	cp TYPE_ENERGY
+	jr nc, .play_sfx ; can't select non-Pokemon card
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTempList + 1], a
+	or a
+	ret
+
+.no_pkmn
+	ld a, $ff
+	ldh [hTempList + 1], a
+	or a
+	ret
+
+.play_sfx
+	call Func_3794
+	jr .read_input
+
+.try_exit
+; Player can only exit screen if there are no cards to choose
+	ld hl, wDuelTempList
+.loop
+	ld a, [hli]
+	cp $ff
+	jr z, .no_pkmn
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Type]
+	cp TYPE_ENERGY
+	jr nc, .loop
+	jr .read_input
+
+PokeBall_AddToHandEffect: ; 2fb15 (b:7b15)
+	ldh a, [hTempList]
+	or a
+	ret z ; return if coin toss was tails
+
+	ldh a, [hTempList + 1]
+	cp $ff
+	jr z, .done ; skip if no Pokemon was chosen
+
+; add Pokemon card to hand and show in screen if
+; it wasn't the Player who played the Trainer card.
+	call SearchCardInDeckAndAddToHand
+	call AddCardToHand
+	call IsPlayerTurn
+	jr c, .done
+	ldh a, [hTempList + 1]
+	ldtx hl, WasPlacedInTheHandText
+	bank1call DisplayCardDetailScreen
+.done
+	call Func_2c0bd
+	ret
+
+; return carry if no cards in the Discard Pile
+Recycle_DiscardPileCheck: ; 2fb36 (b:7b36)
+	ld a, DUELVARS_NUMBER_OF_CARDS_IN_DISCARD_PILE
+	call GetTurnDuelistVariable
+	ldtx hl, ThereAreNoCardsInTheDiscardPileText
+	cp 1
+	ret
+
+Recycle_PlayerSelection: ; 2fb41 (b:7b41)
+	ld de, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call Func_2c08a
+	jr nc, .tails
+
+	call CreateDiscardPileCardList
+	bank1call Func_5591
+	ldtx hl, PleaseSelectCardText
+	ldtx de, PlayerDiscardPileText
+	bank1call SetCardListHeaderText
+.read_input
+	bank1call DisplayCardList
+	jr c, .read_input ; can't cancel with B button
+
+; Discard Pile card was chosen
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTempList], a
+	ret
+
+.tails
+	ld a, $ff
+	ldh [hTempList], a
+	or a
+	ret
+
+Recycle_AddToHandEffect: ; 2fb68 (b:7b68)
+	ldh a, [hTempList]
+	cp $ff
+	ret z ; return if no card was selected
+
+; add card to hand and show in screen if
+; it wasn't the Player who played the Trainer card.
+	call MoveDiscardPileCardToHand
+	call ReturnCardToDeck
+	call IsPlayerTurn
+	ret c
+	ldh a, [hTempList]
+	ldtx hl, CardWasChosenText
+	bank1call DisplayCardDetailScreen
+	ret
+
+; return carry if Bench is full or
+; if no Basic Pokemon cards in Discard Pile.
+Revive_BenchCheck: ; 2fb80 (b:7b80)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ldtx hl, NoSpaceOnTheBenchText
+	cp MAX_PLAY_AREA_POKEMON
+	ccf
+	ret c
+	call CreateBasicPokemonCardListFromDiscardPile
+	ldtx hl, ThereAreNoPokemonInDiscardPileText
+	ret
+
+Revive_PlayerSelection: ; 2fb93 (b:7b93)
+; create Basic Pokemon card list from Discard Pile
+	ldtx hl, ChooseBasicPokemonToPlaceOnBenchText
+	call DrawWideTextBox_WaitForInput
+	call CreateBasicPokemonCardListFromDiscardPile
+	bank1call Func_5591
+
+; display screen to select Pokemon
+	ldtx hl, PleaseSelectCardText
+	ldtx de, PlayerDiscardPileText
+	bank1call SetCardListHeaderText
+	bank1call DisplayCardList
+
+; store selection
+	ldh a, [hTempCardIndex_ff98]
+	ldh [hTemp_ffa0], a
+	ret
+
+Revive_PlaceInPlayAreaEffect: ; 2fbb0 (b:7bb0)
+; place selected Pokemon in the Bench
+	ldh a, [hTemp_ffa0]
+	call MoveDiscardPileCardToHand
+	call AddCardToHand
+	call PutHandPokemonCardInPlayArea
+
+; set HP to half, rounded up
+	add DUELVARS_ARENA_CARD_HP
+	call GetTurnDuelistVariable
+	srl a
+	bit 0, a
+	jr z, .rounded
+	add 5 ; round up HP to nearest 10
+.rounded
+	ld [hl], a
+	call IsPlayerTurn
+	ret c ; done if Player played Revive
+
+; display card
+	ldh a, [hTemp_ffa0]
+	ldtx hl, PlacedOnTheBenchText
+	bank1call DisplayCardDetailScreen
+	ret
+
+; makes list in wDuelTempList with all Basic Pokemon cards
+; that are in Turn Duelist's Discard Pile.
+; if list turns out empty, return carry.
+CreateBasicPokemonCardListFromDiscardPile: ; 2fbd6 (b:7bd6)
+; gets hl to point at end of Discard Pile cards
+; and iterates the cards in reverse order.
+	ld a, DUELVARS_NUMBER_OF_CARDS_IN_DISCARD_PILE
+	call GetTurnDuelistVariable
+	ld b, a
+	add DUELVARS_DECK_CARDS
+	ld l, a
+	ld de, wDuelTempList
+	inc b
+	jr .next_discard_pile_card
+
+.check_card
+	ld a, [hl]
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Type]
+	cp TYPE_ENERGY
+	jr nc, .next_discard_pile_card ; if not Pokemon card, skip
+	ld a, [wLoadedCard2Stage]
+	or a
+	jr nz, .next_discard_pile_card ; if not Basic stage, skip
+
+; write this card's index to wDuelTempList
+	ld a, [hl]
+	ld [de], a
+	inc de
+.next_discard_pile_card
+	dec l
+	dec b
+	jr nz, .check_card
+
+; done with the loop.
+	ld a, $ff ; terminating byte
+	ld [de], a
+	ld a, [wDuelTempList]
+	cp $ff
+	jr z, .set_carry
+	or a
+	ret
+.set_carry
+	scf
+	ret
+
+; return carry if Turn Duelist has no Evolution cards in Play Area
+DevolutionSpray_PlayAreaEvolutionCheck: ; 2fc0b (b:7c0b)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	ld c, a
+	ld l, DUELVARS_ARENA_CARD
+.loop
+	ld a, [hli]
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Stage]
+	or a
+	ret nz ; found an Evolution card
+	dec c
+	jr nz, .loop
+
+	ldtx hl, ThereAreNoStage1PokemonText
+	scf
+	ret
+
+DevolutionSpray_PlayerSelection: ; 2fc24 (b:7c24)
+; display textbox
+	ldtx hl, ChooseEvolutionCardAndPressAButtonToDevolveText
+	call DrawWideTextBox_WaitForInput
+
+; have Player select an Evolution card in Play Area
+	ld a, 1
+	ldh [hCurSelectionItem], a
+	bank1call HasAlivePokemonInPlayArea
+.read_input
+	bank1call OpenPlayAreaScreenForSelection
+	ret c ; exit if B was pressed
+	bank1call GetCardOneStageBelow
+	jr c, .read_input ; can't select Basic cards
+
+; get pre-evolution card data
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	add DUELVARS_ARENA_CARD_HP
+	call GetTurnDuelistVariable
+	push hl
+	push af
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	add DUELVARS_ARENA_CARD_STAGE
+	ld l, a
+	ld a, [hl]
+	push hl
+	push af
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	add DUELVARS_ARENA_CARD
+	ld l, a
+	ld a, [hl]
+	push hl
+	push af
+	jr .update_data
+
+.repeat_devolution
+; show Play Area screen with static cursor
+; so that the Player either presses A to do one more devolution
+; or presses B to finish selection.
+	bank1call Func_6194
+	jr c, .done_selection ; if B pressed, end selection instead
+	; do one more devolution
+	bank1call GetCardOneStageBelow
+
+.update_data
+; overwrite the card data to new devolved stats
+	ld a, d
+	call UpdateDevolvedCardHPAndStage
+	call GetNextPositionInTempList_TrainerEffects
+	ld [hl], e
+	ld a, d
+	call LoadCardDataToBuffer2_FromDeckIndex
+	ld a, [wLoadedCard2Stage]
+	or a
+	jr nz, .repeat_devolution ; can do one more devolution
+
+.done_selection
+	call GetNextPositionInTempList_TrainerEffects
+	ld [hl], $ff ; terminating byte
+
+; store this Play Area location in first item of temp list
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTempList], a
+
+; update Play Area location display of this Pokemon
+	call EmptyScreen
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ld hl, wHUDEnergyAndHPBarsX
+	ld [hli], a
+	ld [hl], $00
+	bank1call PrintPlayAreaCardInformationAndLocation
+	call EnableLCD
+	pop bc
+	pop hl
+
+; rewrite all duelvars from before the selection was done
+; this is so that if "No" is selected in confirmation menu,
+; then the Pokemon isn't devolved and remains unchanged.
+	ld [hl], b
+	ldtx hl, IsThisOKText
+	call YesOrNoMenuWithText
+	pop bc
+	pop hl
+
+	ld [hl], b
+	pop bc
+	pop hl
+
+	ld [hl], b
+	ret
+
+DevolutionSpray_DevolutionEffect: ; 2fc99 (b:7c99)
+; first byte in list is Play Area location chosen
+	ld hl, hTempList
+	ld a, [hli]
+	ldh [hTempPlayAreaLocation_ff9d], a
+	add DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	push hl
+	push af
+
+; loop through devolutions selected
+	ld hl, hTempList + 1
+.loop_devolutions
+	ld a, [hl]
+	cp $ff
+	jr z, .check_ko ; list is over
+	; devolve card to its stage below
+	push hl
+	bank1call GetCardOneStageBelow
+	ld a, d
+	call UpdateDevolvedCardHPAndStage
+	call ResetDevolvedCardStatus
+	pop hl
+	ld a, [hli]
+	call PutCardInDiscardPile
+	jr .loop_devolutions
+
+.check_ko
+	pop af
+	ld e, a
+	pop hl
+	ld d, [hl]
+	call PrintDevolvedCardNameAndLevelText
+	ldh a, [hTempList]
+	call PrintPlayAreaCardKnockedOutIfNoHP
+	bank1call Func_6e49
+	ret
+
+; returns carry if neither duelist has any energy cards attached
+SuperEnergyRemoval_EnergyCheck: ; 2fcd0 (b:7cd0)
+	call CheckIfThereAreAnyEnergyCardsAttached
+	ldtx hl, NoEnergyCardsAttachedToPokemonInYourPlayAreaText
+	ret c
+	call SwapTurn
+	call CheckIfThereAreAnyEnergyCardsAttached
+	ldtx hl, NoEnergyCardsAttachedToPokemonInOppPlayAreaText
+	call SwapTurn
+	ret
+
+SuperEnergyRemoval_PlayerSelection: ; 2fce4 (b:7ce4)
+; handle selection of Energy to discard in own Play Area
+	ldtx hl, ChoosePokemonInYourAreaThenPokemonInYourOppText
+	call DrawWideTextBox_WaitForInput
+	call HandlePokemonAndEnergySelectionScreen
+	ret c ; return if operation was cancelled
+
+	ldtx hl, ChoosePokemonToRemoveEnergyFromText
+	call DrawWideTextBox_WaitForInput
+
+	call SwapTurn
+	ld a, 3
+	ldh [hCurSelectionItem], a
+.select_opp_pkmn
+	bank1call HasAlivePokemonInPlayArea
+	bank1call OpenPlayAreaScreenForSelection
+	jr nc, .opp_pkmn_selected
+	; B was pressed
+	call SwapTurn
+	ret ; return if operation was cancelled
+.opp_pkmn_selected
+	ld e, a
+	call GetPlayAreaCardAttachedEnergies
+	ld a, [wTotalAttachedEnergies]
+	or a
+	jr nz, .has_energy ; has any energy cards attached?
+	; no energy, loop back
+	ldtx hl, NoEnergyCardsText
+	call DrawWideTextBox_WaitForInput
+	jr .select_opp_pkmn
+
+.has_energy
+; store this Pokemon's Play Area location
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hPlayAreaEffectTarget], a
+; store which energy card to discard from it
+	bank1call CreateArenaOrBenchEnergyCardList
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	bank1call DisplayEnergyDiscardScreen
+	ld a, 2
+	ld [wEnergyDiscardMenuDenominator], a
+
+.loop_discard_energy_selection
+	bank1call HandleEnergyDiscardMenuInput
+	jr nc, .energy_selected
+	; B pressed
+	ld a, 5
+	call AskWhetherToQuitSelectingCards
+	jr nc, .done ; finish operation
+	; player selected to continue selection
+	ld a, [wEnergyDiscardMenuNumerator]
+	push af
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	bank1call DisplayEnergyDiscardScreen
+	ld a, 2
+	ld [wEnergyDiscardMenuDenominator], a
+	pop af
+	ld [wEnergyDiscardMenuNumerator], a
+	jr .loop_discard_energy_selection
+
+.energy_selected
+; store energy cards to discard from opponent
+	call GetNextPositionInTempList_TrainerEffects
+	ldh a, [hTempCardIndex_ff98]
+	ld [hl], a
+	call RemoveCardFromDuelTempList
+	ld hl, wEnergyDiscardMenuNumerator
+	inc [hl]
+	ldh a, [hCurSelectionItem]
+	cp 5
+	jr nc, .done ; no more energy cards to select
+	ld a, [wDuelTempList]
+	cp $ff
+	jr z, .done ; no more energy cards to select
+	bank1call DisplayEnergyDiscardMenu
+	jr .loop_discard_energy_selection
+
+.done
+	call GetNextPositionInTempList_TrainerEffects
+	ld [hl], $ff
+	call SwapTurn
+	or a
+	ret
+
+SuperEnergyRemoval_DiscardEffect: ; 2fd73 (b:7d73)
+	ld hl, hTempList + 1
+
+; discard energy card of own Play Area
+	ld a, [hli]
+	call PutCardInDiscardPile
+
+; iterate and discard opponent's energy cards
+	inc hl
+	call SwapTurn
+.loop
+	ld a, [hli]
+	cp $ff
+	jr z, .done_discard
+	call PutCardInDiscardPile
+	jr .loop
+
+.done_discard
+; if it's Player's turn, return...
+	call SwapTurn
+	call IsPlayerTurn
+	ret c
+; ...otherwise show Play Area of affected Pokemon
+; in opponent's Play Area
+	ldh a, [hTemp_ffa0]
+	call Func_2c10b
+; in player's Play Area
+	xor a
+	ld [wDuelDisplayedScreen], a
+	call SwapTurn
+	ldh a, [hPlayAreaEffectTarget]
+	call Func_2c10b
+	call SwapTurn
+	ret
+
+; return carry if not enough cards in hand to
+; discard for Super Energy Retrieval effect
+; or if the Discard Pile has no basic Energy cards
+SuperEnergyRetrieval_HandEnergyCheck: ; 2fda4 (b:7da4)
+	ld a, DUELVARS_NUMBER_OF_CARDS_IN_HAND
+	call GetTurnDuelistVariable
+	ldtx hl, NotEnoughCardsInHandText
+	cp 3
+	ret c
+	call CreateEnergyCardListFromDiscardPile_OnlyBasic
+	ldtx hl, ThereAreNoBasicEnergyCardsInDiscardPileText
+	ret
+
+SuperEnergyRetrieval_PlayerHandSelection: ; 2fdb6 (b:7db6)
+	call HandlePlayerSelection2HandCardsToDiscard
+	ret
+
+SuperEnergyRetrieval_PlayerDiscardPileSelection: ; 2fdba (b:7dba)
+	ldtx hl, ChooseUpTo4FromDiscardPileText
+	call DrawWideTextBox_WaitForInput
+	call CreateEnergyCardListFromDiscardPile_OnlyBasic
+
+.loop_discard_pile_selection
+	bank1call InitAndDrawCardListScreenLayout
+	ldtx hl, PleaseSelectCardText
+	ldtx de, PlayerDiscardPileText
+	bank1call SetCardListHeaderText
+	bank1call DisplayCardList
+	jr nc, .store_selected_card
+	; B pressed
+	ld a, 6
+	call AskWhetherToQuitSelectingCards
+	jr c, .loop_discard_pile_selection ; player selected to continue
+	jr .done
+
+.store_selected_card
+	ldh a, [hTempCardIndex_ff98]
+	call GetTurnDuelistVariable
+	call GetNextPositionInTempList_TrainerEffects
+	ldh a, [hTempCardIndex_ff98]
+	ld [hl], a ; store selected energy card
+	call RemoveCardFromDuelTempList
+	jr c, .done
+	; this shouldn't happen
+	ldh a, [hCurSelectionItem]
+	cp 6
+	jr c, .loop_discard_pile_selection
+
+.done
+; insert terminating byte
+	call GetNextPositionInTempList_TrainerEffects
+	ld [hl], $ff
+	or a
+	ret
+
+SuperEnergyRetrieval_DiscardAndAddToHandEffect: ; 2fdfa (b:7dfa)
+; discard 2 cards selected from the hand
+	ld hl, hTemp_ffa0
+	ld a, [hli]
+	call RemoveCardFromHand
+	call PutCardInDiscardPile
+	ld a, [hli]
+	call RemoveCardFromHand
+	call PutCardInDiscardPile
+
+; put selected cards in hand
+	ld de, wDuelTempList
+.loop
+	ld a, [hli]
+	ld [de], a
+	inc de
+	cp $ff
+	jr z, .done
+	call MoveDiscardPileCardToHand
+	call AddCardToHand
+	jr .loop
+
+.done
+; if Player played the card, exit
+	call IsPlayerTurn
+	ret c
+; if not, show card list selected by Opponent
+	bank1call Func_4b38
+	ret
+
+; outputs in hl the next position
+; in hTempList to place a new card,
+; and increments hCurSelectionItem.
+; identical to GetNextPositionInTempList.
+GetNextPositionInTempList_TrainerEffects: ; 2fe25 (b:7e25)
+	push de
+	ld hl, hCurSelectionItem
+	ld a, [hl]
+	inc [hl]
+	ld e, a
+	ld d, $00
+	ld hl, hTempList
+	add hl, de
+	pop de
+	ret
+
+; handles screen for Player to select 2 cards from the hand to discard.
+; first prints text informing Player to choose cards to discard
+; then runs HandlePlayerSelection2HandCards routine.
+HandlePlayerSelection2HandCardsToDiscard: ; 2fe34 (b:7e34)
+	ldtx hl, Choose2CardsFromHandToDiscardText
+	ldtx de, ChooseTheCardToDiscardText
+;	fallthrough
+
+; handles screen for Player to select 2 cards from the hand
+; to activate some Trainer card effect.
+; assumes Trainer card index being used is in [hTempCardIndex_ff9f].
+; stores selection of cards in hTempList.
+; returns carry if Player cancels operation.
+; input:
+;	hl = text to print in text box;
+;	de = text to print in screen header.
+HandlePlayerSelection2HandCards: ; 2fe3a (b:7e3a)
+	push de
+	call DrawWideTextBox_WaitForInput
+
+; remove the Trainer card being used from list
+; of cards to select from hand.
+	call CreateHandCardList
+	ldh a, [hTempCardIndex_ff9f]
+	call RemoveCardFromDuelTempList
+
+	xor a
+	ldh [hCurSelectionItem], a
+	pop hl
+.loop
+	push hl
+	bank1call Func_5591
+	pop hl
+	bank1call SetCardListInfoBoxText
+	push hl
+	bank1call DisplayCardList
+	pop hl
+	jr c, .set_carry ; was B pressed?
+	push hl
+	call GetNextPositionInTempList_TrainerEffects
+	ldh a, [hTempCardIndex_ff98]
+	ld [hl], a
+	call RemoveCardFromDuelTempList
+	pop hl
+	ldh a, [hCurSelectionItem]
+	cp 2
+	jr c, .loop ; is selection over?
+	or a
+	ret
+.set_carry
+	scf
+	ret
+
+; return carry if non-turn duelist has no benched Pokemon
+GustOfWind_BenchCheck: ; 2fe6e (b:7e6e)
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetNonTurnDuelistVariable
+	ldtx hl, EffectNoPokemonOnTheBenchText
+	cp 2
+	ret
+
+GustOfWind_PlayerSelection: ; 2fe79 (b:7e79)
+	ldtx hl, ChooseAPokemonToSwitchWithActivePokemonText
+	call DrawWideTextBox_WaitForInput
+	call SwapTurn
+	bank1call HasAlivePokemonInBench
+	bank1call OpenPlayAreaScreenForSelection
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ldh [hTemp_ffa0], a
+	call SwapTurn
+	ret
+
+GustOfWind_SwitchEffect: ; 2fe90 (b:7e90)
+; play whirlwind animation
+	ld a, ATK_ANIM_GUST_OF_WIND
+	call Func_2fea9
+
+; switch Arena card
+	call SwapTurn
+	ldh a, [hTemp_ffa0]
+	ld e, a
+	call SwapArenaWithBenchPokemon
+	call SwapTurn
+	call ClearDamageReductionSubstatus2
+	xor a
+	ld [wDuelDisplayedScreen], a
+	ret
+
+; input:
+;	a = attack animation to play
+Func_2fea9: ; 2fea9 (b:7ea9)
+	ld [wLoadedAttackAnimation], a
+	bank1call Func_7415
+	ld bc, $0
+	ldh a, [hWhoseTurn]
+	ld h, a
+	bank1call PlayAttackAnimation
+	bank1call WaitAttackAnimation
+	ret
+
+; heals amount of damage in register e for card in
+; Play Area location in [hTempPlayAreaLocation_ff9d].
+; plays healing animation and prints text with card's name.
+; input:
+;	e = amount of HP to heal
+;	[hTempPlayAreaLocation_ff9d] = Play Area location of card to heal
+HealPlayAreaCardHP: ; 2febc (b:7ebc)
+	ld e, a
+	ld d, $00
+
+; play heal animation
+	push de
+	bank1call Func_7415
+	ld a, ATK_ANIM_HEALING_WIND_PLAY_AREA
+	ld [wLoadedAttackAnimation], a
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	ld b, a
+	ld c, $01
+	ldh a, [hWhoseTurn]
+	ld h, a
+	bank1call PlayAttackAnimation
+	bank1call WaitAttackAnimation
+	pop hl
+
+; print Pokemon card name and damage healed
+	push hl
+	call LoadTxRam3
+	ld hl, $0000
+	call LoadTxRam2
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	add DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	call LoadCardDataToBuffer1_FromDeckIndex
+	ld a, 18
+	call CopyCardNameAndLevel
+	ld [hl], $00 ; terminating character on end of the name
+	ldtx hl, PokemonHealedDamageText
+	call DrawWideTextBox_WaitForInput
+	pop de
+
+; heal the target Pokemon
+	ldh a, [hTempPlayAreaLocation_ff9d]
+	add DUELVARS_ARENA_CARD_HP
+	call GetTurnDuelistVariable
+	add e
+	ld [hl], a
+	ret