diff options
Diffstat (limited to 'src/engine/effect_functions.asm')
| -rw-r--r-- | src/engine/effect_functions.asm | 11194 |
1 files changed, 0 insertions, 11194 deletions
diff --git a/src/engine/effect_functions.asm b/src/engine/effect_functions.asm deleted file mode 100644 index ce3a517..0000000 --- a/src/engine/effect_functions.asm +++ /dev/null @@ -1,11194 +0,0 @@ -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 |