diff options
| -rw-r--r-- | src/constants/card_data_constants.asm | 69 | ||||
| -rw-r--r-- | src/data/cards.asm | 6 | ||||
| -rw-r--r-- | src/engine/bank01.asm | 81 | ||||
| -rw-r--r-- | src/engine/bank05.asm | 2346 | ||||
| -rw-r--r-- | src/engine/bank08.asm | 968 | ||||
| -rw-r--r-- | src/wram.asm | 32 |
6 files changed, 3264 insertions, 238 deletions
diff --git a/src/constants/card_data_constants.asm b/src/constants/card_data_constants.asm index 641d04b..9d4c88f 100644 --- a/src/constants/card_data_constants.asm +++ b/src/constants/card_data_constants.asm @@ -164,32 +164,65 @@ POKEMON_POWER EQU $04 RESIDUAL_F EQU 7 RESIDUAL EQU 1 << RESIDUAL_F +; Bit mask for CheckLoadedMoveFlag +; for flag address from wLoadedMoveFlag1 +MOVE_FLAG1_ADDRESS EQU $0 << 3 +MOVE_FLAG2_ADDRESS EQU $1 << 3 +MOVE_FLAG3_ADDRESS EQU $2 << 3 + ; CARD_DATA_MOVE*_FLAG1 constants -INFLICT_POISON EQU %00000001 -INFLICT_SLEEP EQU %00000010 -INFLICT_PARALYSIS EQU %00000100 -INFLICT_CONFUSION EQU %00001000 -LOW_RECOIL EQU %00010000 -DAMAGE_TO_OPPONENT_BENCH EQU %00100000 -HIGH_RECOIL EQU %01000000 -DRAW_CARD EQU %10000000 +INFLICT_POISON_F EQU %000 +INFLICT_SLEEP_F EQU %001 +INFLICT_PARALYSIS_F EQU %010 +INFLICT_CONFUSION_F EQU %011 +LOW_RECOIL_F EQU %100 +DAMAGE_TO_OPPONENT_BENCH_F EQU %101 +HIGH_RECOIL_F EQU %110 +DRAW_CARD_F EQU %111 ; CARD_DATA_MOVE*_FLAG2 constants ; bits 5, 6 and 7 cover a wide variety of effects -SWITCH_OPPONENT_POKEMON EQU %00000001 -HEAL_USER EQU %00000010 -NULLIFY_OR_WEAKEN_ATTACK EQU %00000100 -DISCARD_ENERGY EQU %00001000 -ATTACHED_ENERGY_BOOST EQU %00010000 -FLAG_2_BIT_5 EQU %00100000 -FLAG_2_BIT_6 EQU %01000000 -FLAG_2_BIT_7 EQU %10000000 +SWITCH_OPPONENT_POKEMON_F EQU %000 +HEAL_USER_F EQU %001 +NULLIFY_OR_WEAKEN_ATTACK_F EQU %010 +DISCARD_ENERGY_F EQU %011 +ATTACHED_ENERGY_BOOST_F EQU %100 +FLAG_2_BIT_5_F EQU %101 +FLAG_2_BIT_6_F EQU %110 +FLAG_2_BIT_7_F EQU %111 ; CARD_DATA_MOVE*_FLAG3 constants ; bit 1 covers a wide variety of effects ; bits 2-7 are unused -BOOST_IF_TAKEN_DAMAGE EQU %00000001 -FLAG_3_BIT_1 EQU %00000010 +BOOST_IF_TAKEN_DAMAGE_F EQU %000 +FLAG_3_BIT_1_F EQU %001 + +; CARD_DATA_MOVE*_FLAG1_F constants +INFLICT_POISON EQU $1 << INFLICT_POISON_F +INFLICT_SLEEP EQU $1 << INFLICT_SLEEP_F +INFLICT_PARALYSIS EQU $1 << INFLICT_PARALYSIS_F +INFLICT_CONFUSION EQU $1 << INFLICT_CONFUSION_F +LOW_RECOIL EQU $1 << LOW_RECOIL_F +DAMAGE_TO_OPPONENT_BENCH EQU $1 << DAMAGE_TO_OPPONENT_BENCH_F +HIGH_RECOIL EQU $1 << HIGH_RECOIL_F +DRAW_CARD EQU $1 << DRAW_CARD_F + +; CARD_DATA_MOVE*_FLAG2_F constants +; bits 5, 6 and 7 cover a wide variety of effects +SWITCH_OPPONENT_POKEMON EQU $1 << SWITCH_OPPONENT_POKEMON_F +HEAL_USER EQU $1 << HEAL_USER_F +NULLIFY_OR_WEAKEN_ATTACK EQU $1 << NULLIFY_OR_WEAKEN_ATTACK_F +DISCARD_ENERGY EQU $1 << DISCARD_ENERGY_F +ATTACHED_ENERGY_BOOST EQU $1 << ATTACHED_ENERGY_BOOST_F +FLAG_2_BIT_5 EQU $1 << FLAG_2_BIT_5_F +FLAG_2_BIT_6 EQU $1 << FLAG_2_BIT_6_F +FLAG_2_BIT_7 EQU $1 << FLAG_2_BIT_7_F + +; CARD_DATA_MOVE*_FLAG3_F constants +; bit 1 covers a wide variety of effects +; bits 2-7 are unused +BOOST_IF_TAKEN_DAMAGE EQU $1 << BOOST_IF_TAKEN_DAMAGE_F +FLAG_3_BIT_1 EQU $1 << FLAG_3_BIT_1_F ; special CARD_DATA_RETREAT_COST values UNABLE_RETREAT EQU $64 diff --git a/src/data/cards.asm b/src/data/cards.asm index db2a9ec..8bbc091 100644 --- a/src/data/cards.asm +++ b/src/data/cards.asm @@ -2817,7 +2817,7 @@ RapidashCard: ; 31ada (c:5ada) db DAMAGE_NORMAL ; category dw RapidashAgilityEffectCommands ; effect commands db NONE ; flags 1 - db NULLIFY_OR_WEAKEN_ATTACK + $40 ; flags 2 + db NULLIFY_OR_WEAKEN_ATTACK | FLAG_2_BIT_6 ; flags 2 db NONE ; flags 3 db 0 db 81 ; animation @@ -5760,7 +5760,7 @@ Zapdos1Card: ; 32994 (c:6994) db 40 ; damage db DAMAGE_NORMAL ; category dw ZapdosThunderstormEffectCommands ; effect commands - db LOW_RECOIL + DAMAGE_TO_OPPONENT_BENCH ; flags 1 + db LOW_RECOIL | DAMAGE_TO_OPPONENT_BENCH ; flags 1 db NONE ; flags 2 db NONE ; flags 3 db 0 @@ -7866,7 +7866,7 @@ Mewtwo1Card: ; 333fd (c:73fd) db RESIDUAL ; category dw MewtwoBarrierEffectCommands ; effect commands db NONE ; flags 1 - db NULLIFY_OR_WEAKEN_ATTACK + DISCARD_ENERGY ; flags 2 + db NULLIFY_OR_WEAKEN_ATTACK | DISCARD_ENERGY ; flags 2 db NONE ; flags 3 db 2 db 80 ; animation diff --git a/src/engine/bank01.asm b/src/engine/bank01.asm index f9f8781..5131025 100644 --- a/src/engine/bank01.asm +++ b/src/engine/bank01.asm @@ -7620,7 +7620,86 @@ PrintThereWasNoEffectFromStatusText: ; 700a (1:700a) ret ; 0x7045 - INCROM $7045, $70aa +; returns carry if card at hTempPlayAreaLocation_ff9d +; is a basic card. +; otherwise, lists the card indices of all stages in +; that card location, and returns the card one +; stage below. +; input: +; hTempPlayAreaLocation_ff9d = play area location to check; +; output: +; a = card index in hTempPlayAreaLocation_ff9d; +; d = card index of card one stage below; +; carry set if card is a basic card. +GetCardOneStageBelow: ; 7045 (1:7045) + ldh a, [hTempPlayAreaLocation_ff9d] + add DUELVARS_ARENA_CARD + call GetTurnDuelistVariable + call LoadCardDataToBuffer2_FromDeckIndex + ld a, [wLoadedCard2Stage] + or a + jr nz, .not_basic + scf + ret + +.not_basic + ld hl, wAllStagesIndices + ld a, $ff + ld [hli], a + ld [hli], a + ld [hl], a + +; loads deck indices of the stages present in hTempPlayAreaLocation_ff9d. +; the three stages are loaded consecutively in wAllStagesIndices. + ldh a, [hTempPlayAreaLocation_ff9d] + or CARD_LOCATION_ARENA + ld c, a + ld a, DUELVARS_CARD_LOCATIONS + call GetTurnDuelistVariable +.loop + ld a, [hl] + cp c + jr nz, .next + ld a, l + call LoadCardDataToBuffer2_FromDeckIndex + ld a, [wLoadedCard2Type] + cp TYPE_ENERGY + jr nc, .next + ld b, l + push hl + ld a, [wLoadedCard2Stage] + ld e, a + ld d, $00 + ld hl, wAllStagesIndices + add hl, de + ld [hl], b + pop hl +.next + inc l + ld a, l + cp DECK_SIZE + jr c, .loop + +; if card at hTempPlayAreaLocation_ff9d is a stage 1, load d with basic card. +; otherwise if stage 2, load d with the stage 1 card. + ldh a, [hTempPlayAreaLocation_ff9d] + add DUELVARS_ARENA_CARD_STAGE + call GetTurnDuelistVariable + ld hl, wAllStagesIndices ; pointing to basic + cp STAGE1 + jr z, .done + cp STAGE2 + 1 ; unnecessary check? + jr z, .done + inc hl ; pointing to stage 1 +.done + ld d, [hl] + ldh a, [hTempPlayAreaLocation_ff9d] + add DUELVARS_ARENA_CARD + call GetTurnDuelistVariable + ld e, a + or a + ret +; 0x70aa ; initializes variables when a duel begins, such as zeroing wDuelFinished or wDuelTurns, ; and setting wDuelType based on wPlayerDuelistType and wOpponentDuelistType diff --git a/src/engine/bank05.asm b/src/engine/bank05.asm index 7e8854f..251f5c5 100644 --- a/src/engine/bank05.asm +++ b/src/engine/bank05.asm @@ -58,30 +58,31 @@ PointerTable_1406a: ; 1406a (5:406a) dw $406c dw Func_14078 dw Func_14078 - dw $409e + dw Func_1409e dw $40a2 dw $40a6 dw $40aa Func_14078: ; 14078 (5:4078) - call Func_15eae - call Func_158b2 + call AIDecidePlayPokemonCard + call AIDecideWhetherToRetreat jr nc, .asm_14091 - call Func_15b72 - call Func_15d4f - call Func_158b2 + call AIDecideBenchPokemonToSwitchTo + call AIChooseEnergyToDiscardForRetreatCost + call AIDecideWhetherToRetreat jr nc, .asm_14091 - call Func_15b72 - call Func_15d4f + call AIDecideBenchPokemonToSwitchTo + call AIChooseEnergyToDiscardForRetreatCost .asm_14091 - call Func_164e8 + call AIDecidePlayEnergyCardFromHand call Func_169f8 ret c - ld a, $05 + ld a, OPPACTION_FINISH_NO_ATTACK bank1call AIMakeDecision ret ; 0x1409e +Func_1409e: ; 1409e (5:409e) INCROM $1409e, $140ae ; returns carry if damage dealt from any of @@ -110,7 +111,29 @@ CheckIfMoveKnocksOutDefendingCard: ; 140b5 (5:40b5) ret ; 0x140c5 - INCROM $140c5, $140df +; returns carry if any of the defending Pokémon's attacks +; brings card at hTempPlayAreaLocation_ff9d down +; to exactly 0 HP. +; outputs that attack index in wSelectedMove. +CheckIfAnyDefendingPokemonAttackDealsSameDamageAsHP: ; 140c5 (5:40c5) + xor a ; first attack + call .check_damage + ret c + ld a, $01 ; second attack + +.check_damage + call EstimateDamage_FromDefendingPokemon + ldh a, [hTempPlayAreaLocation_ff9d] + add DUELVARS_ARENA_CARD_HP + call GetTurnDuelistVariable + ld hl, wDamage + sub [hl] + jr z, .true + ret +.true + scf + ret +; 0x140df ; checks AI scores for all benched Pokémon ; returns the location of the card with highest score @@ -122,7 +145,7 @@ FindHighestBenchScore: ; 140df (5:40df) ld c, 0 ld e, c ld d, c - ld hl, wBenchAIScore + 1 + ld hl, wPlayAreaAIScore + 1 jp .next .loop @@ -202,7 +225,7 @@ Func_14145: ; 14145 (5:4145) ; return carry if any of the following is satisfied: ; - deck index in a corresponds to a double colorless energy card; -; - card type in wTempCardType is double colorless energy; +; - card type in wTempCardType is colorless; ; - card ID in wTempCardID is a Pokémon card that has ; moves that require energy other than its color and ; the deck index in a corresponds to that energy type; @@ -304,7 +327,7 @@ Func_14226: ; 14226 (5:4226) ; input: ; [hTempPlayAreaLocation_ff9d] = location of Pokémon card ; [wSelectedMoveIndex] = selected move to examine -CheckIfCardCanUseSelectedMove: ; 1424b (5:424b) +CheckIfSelectedMoveIsUnusable: ; 1424b (5:424b) ldh a, [hTempPlayAreaLocation_ff9d] or a jr nz, .bench @@ -329,7 +352,7 @@ CheckIfCardCanUseSelectedMove: ; 1424b (5:424b) .bench call CheckEnergyNeededForAttack ret c ; can't be used - ld a, $0d ; $00001101 + ld a, MOVE_FLAG2_ADDRESS | FLAG_2_BIT_5_F call CheckLoadedMoveFlag ret ; 0x14279 @@ -340,8 +363,8 @@ CheckIfCardCanUseSelectedMove: ; 1424b (5:424b) ; [hTempPlayAreaLocation_ff9d] = location of Pokémon card ; [wSelectedMoveIndex] = selected move to examine ; output: -; b = colorless energy still needed -; c = basic energy still needed +; b = basic energy still needed +; c = colorless energy still needed ; e = output of ConvertColorToEnergyCardID, or $0 if not a move ; carry set if no move ; OR if it's a Pokémon Power @@ -357,17 +380,17 @@ CheckEnergyNeededForAttack: ; 14279 (5:4279) ld hl, wLoadedMoveName ld a, [hli] or [hl] - jr z, .no_move + jr z, .no_attack ld a, [wLoadedMoveCategory] cp POKEMON_POWER - jr nz, .is_move -.no_move + jr nz, .is_attack +.no_attack lb bc, 0, 0 ld e, c scf ret -.is_move +.is_attack ldh a, [hTempPlayAreaLocation_ff9d] ld e, a call GetPlayAreaCardAttachedEnergies @@ -672,7 +695,7 @@ EstimateDamage_VersusDefendingCard: ; 143e5 (5:43e5) call CopyMoveDataAndDamage_FromDeckIndex ld a, [wLoadedMoveCategory] cp POKEMON_POWER - jr nz, .is_move + jr nz, .is_attack ; is a Pokémon Power ; set wDamage, wAIMinDamage and wAIMaxDamage to zero @@ -686,7 +709,7 @@ EstimateDamage_VersusDefendingCard: ; 143e5 (5:43e5) ld d, a ret -.is_move +.is_attack ; set wAIMinDamage and wAIMaxDamage to damage of move ; these values take into account the range of damage ; that the move can span (e.g. min and max number of hits) @@ -889,7 +912,7 @@ EstimateDamage_FromDefendingPokemon: ; 1450b (5:450b) call SwapTurn ld a, [wLoadedMoveCategory] cp POKEMON_POWER - jr nz, .is_move + jr nz, .is_attack ; is a Pokémon Power ; set wDamage, wAIMinDamage and wAIMaxDamage to zero @@ -903,7 +926,7 @@ EstimateDamage_FromDefendingPokemon: ; 1450b (5:450b) ld d, a ret -.is_move +.is_attack ; set wAIMinDamage and wAIMaxDamage to damage of move ; these values take into account the range of damage ; that the move can span (e.g. min and max number of hits) @@ -1257,10 +1280,12 @@ Func_1468b: ; 1468b (5:468b) Func_14786: ; 14786 (5:4786) INCROM $14786, $14c91 -; if the player has more than 3 prize cards -; check for certain card IDs in bench, -; as well as their HP and energy cards attached -Func_14c91: ; 14c91 (5:4c91) +; this routine handles how Legendary Articuno +; prioritises playing energy cards to each Pokémon. +; first, it makes sure that all Lapras have at least +; 3 energy cards before moving on to Articuno, +; and then to Dewgong and Seel +ScoreLegendaryArticunoCards: ; 14c91 (5:4c91) call SwapTurn call CountPrizes call SwapTurn @@ -1285,9 +1310,9 @@ Func_14c91: ; 14c91 (5:4c91) jr .articuno ; the following routines check for certain card IDs in bench -; and call Func_174cd if these are found +; and call RaiseAIScoreToAllMatchingIDsInBench if these are found. ; for Lapras, an additional check is made to its -; attached energy count, which skips Func_174cd +; attached energy count, which skips calling the routine ; if this count is >= 3 .lapras ld a, LAPRAS @@ -1299,7 +1324,7 @@ Func_14c91: ; 14c91 (5:4c91) cp 3 jr nc, .articuno ld a, LAPRAS - call Func_174cd + call RaiseAIScoreToAllMatchingIDsInBench ret .articuno @@ -1308,7 +1333,7 @@ Func_14c91: ; 14c91 (5:4c91) call LookForCardIDInBench jr nc, .dewgong ld a, ARTICUNO1 - call Func_174cd + call RaiseAIScoreToAllMatchingIDsInBench ret .dewgong @@ -1317,7 +1342,7 @@ Func_14c91: ; 14c91 (5:4c91) call LookForCardIDInBench jr nc, .seel ld a, DEWGONG - call Func_174cd + call RaiseAIScoreToAllMatchingIDsInBench ret .seel @@ -1326,7 +1351,7 @@ Func_14c91: ; 14c91 (5:4c91) call LookForCardIDInBench ret nc ld a, SEEL - call Func_174cd + call RaiseAIScoreToAllMatchingIDsInBench ret ; 0x14cf7 @@ -1499,7 +1524,122 @@ Func_15649: ; 15649 (5:5649) ret ; 0x156c3 - INCROM $156c3, $1575e +; load selected move from Pokémon in hTempPlayAreaLocation_ff9d, +; gets an energy card to discard and subsequently +; check if there is enough energy to execute the selected move +; after removing that attached energy card. +; input: +; [hTempPlayAreaLocation_ff9d] = location of Pokémon card +; [wSelectedMoveIndex] = selected move to examine +; output: +; b = basic energy still needed +; c = colorless energy still needed +; e = output of ConvertColorToEnergyCardID, or $0 if not a move +; carry set if no move +; OR if it's a Pokémon Power +; OR if not enough energy for move +CheckEnergyNeededForAttackAfterDiscard: ; 156c3 (5:56c3) + ldh a, [hTempPlayAreaLocation_ff9d] + add DUELVARS_ARENA_CARD + call GetTurnDuelistVariable + ld d, a + ld a, [wSelectedMoveIndex] + ld e, a + call CopyMoveDataAndDamage_FromDeckIndex + ld hl, wLoadedMoveName + ld a, [hli] + or [hl] + jr z, .no_attack + ld a, [wLoadedMoveCategory] + cp POKEMON_POWER + jr nz, .is_attack +.no_attack + lb bc, 0, 0 + ld e, c + scf + ret + +.is_attack + ldh a, [hTempPlayAreaLocation_ff9d] + farcall GetEnergyCardToDiscard + call LoadCardDataToBuffer1_FromDeckIndex + cp DOUBLE_COLORLESS_ENERGY + jr z, .colorless + +; color energy +; decrease respective attached energy by 1. + ld hl, wAttachedEnergies + dec a + ld c, a + ld b, $00 + add hl, bc + dec [hl] + ld hl, wTotalAttachedEnergies + dec [hl] + jr .asm_1570c +; decrease attached colorless by 2. +.colorless + ld hl, wAttachedEnergies + COLORLESS + dec [hl] + dec [hl] + ld hl, wTotalAttachedEnergies + dec [hl] + dec [hl] + +.asm_1570c + bank1call HandleEnergyBurn + xor a + ld [wTempLoadedMoveEnergyCost], a + ld [wTempLoadedMoveEnergyNeededAmount], a + ld [wTempLoadedMoveEnergyNeededType], a + ld hl, wAttachedEnergies + ld de, wLoadedMoveEnergyCost + ld b, 0 + ld c, (NUM_TYPES / 2) - 1 +.loop + ; check all basic energy cards except colorless + ld a, [de] + swap a + call CheckIfEnoughParticularAttachedEnergy + ld a, [de] + call CheckIfEnoughParticularAttachedEnergy + inc de + dec c + jr nz, .loop + + ld a, [de] + swap a + and $0f + ld b, a ; colorless energy still needed + ld a, [wTempLoadedMoveEnergyCost] + ld hl, wTempLoadedMoveEnergyNeededAmount + sub [hl] + ld c, a ; basic energy still needed + ld a, [wTotalAttachedEnergies] + sub c + sub b + jr c, .not_enough_energy + + ld a, [wTempLoadedMoveEnergyNeededAmount] + or a + ret z + +; being here means the energy cost isn't satisfied, +; including with colorless energy + xor a +.not_enough_energy + cpl + inc a + ld c, a ; colorless energy still needed + ld a, [wTempLoadedMoveEnergyNeededAmount] + ld b, a ; basic energy still needed + ld a, [wTempLoadedMoveEnergyNeededType] + call ConvertColorToEnergyCardID + ld e, a + ld d, 0 + scf + ret +; 0x1575e ; zeroes a bytes starting at hl ZeroData: ; 1575e (5:575e) @@ -1590,11 +1730,47 @@ CountNumberOfEnergyCardsAttached: ; 15787 (5:5787) ret ; 0x157a3 -Func_157a3: ; 157a3 (5:57a3) - INCROM $157a3, $158b2 +; returns carry if any card with ID in e is found +; in card location in a +; input: +; a = card location to look in; +; e = card ID to look for. +CheckIfAnyCardIDinLocation: ; 157a3 (5:57a3) + ld b, a + ld c, e + lb de, 0, 0 +.loop + ld a, DUELVARS_CARD_LOCATIONS + add e + call GetTurnDuelistVariable + cp b + jr nz, .next + ld a, e + push de + call GetCardIDFromDeckIndex + ld a, e + pop de + cp c + jr z, .set_carry +.next + inc e + ld a, DECK_SIZE + cp e + jr nz, .loop + or a + ret +.set_carry + ld a, e + scf + ret +; 0x157c6 + +Func_157c6: ; 157c6 (5:57c6) + INCROM $157c6, $158b2 ; determine AI score for retreating -Func_158b2: ; 158b2 (5:58b2) +; return carry if AI decides to retreat +AIDecideWhetherToRetreat: ; 158b2 (5:58b2) ld a, [wGotHeadsFromConfusionCheckDuringRetreat] or a jp nz, .no_carry @@ -1633,7 +1809,7 @@ Func_158b2: ; 158b2 (5:58b2) ldh [hTempPlayAreaLocation_ff9d], a call CheckIfAnyMoveKnocksOutDefendingCard jr nc, .active_cant_ko_1 - call CheckIfCardCanUseSelectedMove + call CheckIfSelectedMoveIsUnusable jp nc, .active_cant_use_move call LookForEnergyNeededForMoveInHand jr nc, .active_cant_ko_1 @@ -1834,7 +2010,7 @@ Func_158b2: ; 158b2 (5:58b2) push bc call CheckIfAnyMoveKnocksOutDefendingCard jr nc, .no_ko - call CheckIfCardCanUseSelectedMove + call CheckIfSelectedMoveIsUnusable jr nc, .success call LookForEnergyNeededForMoveInHand jr c, .success @@ -1863,7 +2039,7 @@ Func_158b2: ; 158b2 (5:58b2) ldh [hTempPlayAreaLocation_ff9d], a call CheckIfAnyMoveKnocksOutDefendingCard jr nc, .active_cant_ko_2 - call CheckIfCardCanUseSelectedMove + call CheckIfSelectedMoveIsUnusable jp nc, .check_defending_id .active_cant_ko_2 ld a, 40 @@ -2056,7 +2232,9 @@ Func_15b54: ; 15b54 (5:5b54) ; 0x15b72 ; calculates AI score for bench Pokémon -Func_15b72: ; 15b72 (5:5b72) +; returns in hTempPlayAreaLocation_ff9d the +; Play Area location of best card to switch to +AIDecideBenchPokemonToSwitchTo: ; 15b72 (5:5b72) xor a ldh [hTempPlayAreaLocation_ff9d], a ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA @@ -2088,7 +2266,7 @@ Func_15b72: ; 15b72 (5:5b72) ; if on last prize card, raise AI score again call CheckIfAnyMoveKnocksOutDefendingCard jr nc, .check_can_use_moves - call CheckIfCardCanUseSelectedMove + call CheckIfSelectedMoveIsUnusable jr c, .check_can_use_moves ld a, 10 call AddToAIScore @@ -2106,11 +2284,11 @@ Func_15b72: ; 15b72 (5:5b72) .check_can_use_moves xor a ld [wSelectedMoveIndex], a - call CheckIfCardCanUseSelectedMove + call CheckIfSelectedMoveIsUnusable call nc, .calculate_damage ld a, $01 ld [wSelectedMoveIndex], a - call CheckIfCardCanUseSelectedMove + call CheckIfSelectedMoveIsUnusable call nc, .calculate_damage jr .check_energy_card @@ -2341,7 +2519,7 @@ Func_15b72: ; 15b72 (5:5b72) ldh a, [hTempPlayAreaLocation_ff9d] ld c, a ld b, $00 - ld hl, wBenchAIScore + ld hl, wPlayAreaAIScore add hl, bc ld a, [wAIScore] ld [hl], a @@ -2359,7 +2537,7 @@ Func_15b72: ; 15b72 (5:5b72) ; handles AI action of retreating Arena Pokémon ; and chooses which energy cards to discard ; if card can't discard, return carry -Func_15d4f: ; 15d4f (5:5d4f) +AIChooseEnergyToDiscardForRetreatCost: ; 15d4f (5:5d4f) push af ld a, [wAIPlayEnergyCardForRetreat] or a @@ -2609,8 +2787,8 @@ CopyHandCardList: ; 15ea6 (5:5ea6) jr CopyHandCardList ; determine whether AI plays -; basic card from hand -Func_15eae: ; 15eae (5:5eae) +; basic cards from hand +AIDecidePlayPokemonCard: ; 15eae (5:5eae) call CreateHandCardList call SortTempHandByIDList ld hl, wDuelTempList @@ -2621,7 +2799,7 @@ Func_15eae: ; 15eae (5:5eae) .next_hand_card ld a, [hli] cp $ff - jp z, Func_15f4c + jp z, AIDecideEvolution ld [wTempAIPokemonCard], a push hl @@ -2711,7 +2889,7 @@ Func_15eae: ; 15eae (5:5eae) ; determine whether AI evolves ; Pokémon in the Play Area -Func_15f4c: ; 15f4c (5:5f4c) +AIDecideEvolution: ; 15f4c (5:5f4c) call CreateHandCardList ld hl, wDuelTempList ld de, wHandTempList @@ -2758,10 +2936,10 @@ Func_15f4c: ; 15f4c (5:5f4c) push bc jp c, .done_bench_pokemon -; store this Play Area location in wCurCardPlayAreaLocation +; store this Play Area location in wTempAI ; and initialize the AI score ld a, b - ld [wCurCardPlayAreaLocation], a + ld [wTempAI], a ldh [hTempPlayAreaLocation_ff9d], a ld a, 128 ld [wAIScore], a @@ -2771,18 +2949,18 @@ Func_15f4c: ; 15f4c (5:5f4c) ; and if any of those moves can KO xor a ld [wSelectedMoveIndex], a - call CheckIfCardCanUseSelectedMove + call CheckIfSelectedMoveIsUnusable jr nc, .can_attack ld a, $01 ld [wSelectedMoveIndex], a - call CheckIfCardCanUseSelectedMove + call CheckIfSelectedMoveIsUnusable jr c, .cant_attack_or_ko .can_attack ld a, $01 ld [wCurCardCanAttack], a call CheckIfAnyMoveKnocksOutDefendingCard jr nc, .check_evolution_attacks - call CheckIfCardCanUseSelectedMove + call CheckIfSelectedMoveIsUnusable jr c, .check_evolution_attacks ld a, $01 ld [wCurCardCanKO], a @@ -2805,11 +2983,11 @@ Func_15f4c: ; 15f4c (5:5f4c) ld [hl], a xor a ld [wSelectedMoveIndex], a - call CheckIfCardCanUseSelectedMove + call CheckIfSelectedMoveIsUnusable jr nc, .evolution_can_attack ld a, $01 ld [wSelectedMoveIndex], a - call CheckIfCardCanUseSelectedMove + call CheckIfSelectedMoveIsUnusable jr c, .evolution_cant_attack .evolution_can_attack ld a, 5 @@ -2836,12 +3014,12 @@ Func_15f4c: ; 15f4c (5:5f4c) ld a, [wCurCardCanAttack] or a jr z, .check_defending_can_ko_evolution - ld a, [wCurCardPlayAreaLocation] + ld a, [wTempAI] or a jr nz, .check_defending_can_ko_evolution call CheckIfAnyMoveKnocksOutDefendingCard jr nc, .evolution_cant_ko - call CheckIfCardCanUseSelectedMove + call CheckIfSelectedMoveIsUnusable jr c, .evolution_cant_ko ld a, 5 call AddToAIScore @@ -2855,7 +3033,7 @@ Func_15f4c: ; 15f4c (5:5f4c) ; if defending Pokémon can KO evolution, lower AI score .check_defending_can_ko_evolution - ld a, [wCurCardPlayAreaLocation] + ld a, [wTempAI] or a jr nz, .check_mr_mime xor a @@ -2867,7 +3045,7 @@ Func_15f4c: ; 15f4c (5:5f4c) ; if evolution can't damage player's Mr Mime, lower AI score .check_mr_mime - ld a, [wCurCardPlayAreaLocation] + ld a, [wTempAI] call CheckDamageToMrMime jr c, .check_defending_can_ko ld a, 20 @@ -2875,12 +3053,12 @@ Func_15f4c: ; 15f4c (5:5f4c) ; if defending Pokémon can KO current card, raise AI score .check_defending_can_ko - ld a, [wCurCardPlayAreaLocation] + ld a, [wTempAI] add DUELVARS_ARENA_CARD call GetTurnDuelistVariable pop af ld [hl], a - ld a, [wCurCardPlayAreaLocation] + ld a, [wTempAI] or a jr nz, .check_2nd_stage_hand xor a @@ -2919,7 +3097,7 @@ Func_15f4c: ; 15f4c (5:5f4c) ; decrease AI score proportional to damage ; AI score -= floor(Damage / 40) .check_damage - ld a, [wCurCardPlayAreaLocation] + ld a, [wTempAI] ld e, a call GetCardDamage or a @@ -2933,7 +3111,7 @@ Func_15f4c: ; 15f4c (5:5f4c) ; wLoadedCard1Unknown2 is set to $02, ; raise AI score .check_mysterious_fossil - ld a, [wCurCardPlayAreaLocation] + ld a, [wTempAI] add DUELVARS_ARENA_CARD call GetTurnDuelistVariable call LoadCardDataToBuffer1_FromDeckIndex @@ -2974,7 +3152,7 @@ Func_15f4c: ; 15f4c (5:5f4c) ld a, [wAIScore] cp 133 jr c, .done_bench_pokemon - ld a, [wCurCardPlayAreaLocation] + ld a, [wTempAI] ldh [hTempPlayAreaLocation_ffa1], a ld a, [wTempAIPokemonCard] ldh [hTemp_ffa0], a @@ -3169,7 +3347,7 @@ Func_161d5: ; 161d5 (5:61d5) jr c, .subtract call CheckIfActivePokemonCanUseAnyNonResidualMove jr nc, .subtract - call Func_158b2 + call AIDecideWhetherToRetreat jr c, .subtract ; checks for player's active card status @@ -3272,7 +3450,7 @@ CheckIfActiveCardCanKnockOut: ; 1628f (5:628f) ldh [hTempPlayAreaLocation_ff9d], a call CheckIfAnyMoveKnocksOutDefendingCard jr nc, .fail - call CheckIfCardCanUseSelectedMove + call CheckIfSelectedMoveIsUnusable jp c, .fail scf ret @@ -3289,7 +3467,7 @@ CheckIfActivePokemonCanUseAnyNonResidualMove: ; 162a1 (5:62a1) ldh [hTempPlayAreaLocation_ff9d], a ; first move ld [wSelectedMoveIndex], a - call CheckIfCardCanUseSelectedMove + call CheckIfSelectedMoveIsUnusable jr c, .next_move ld a, [wLoadedMoveCategory] and RESIDUAL @@ -3299,7 +3477,7 @@ CheckIfActivePokemonCanUseAnyNonResidualMove: ; 162a1 (5:62a1) ; second move ld a, $01 ld [wSelectedMoveIndex], a - call CheckIfCardCanUseSelectedMove + call CheckIfSelectedMoveIsUnusable jr c, .fail ld a, [wLoadedMoveCategory] and RESIDUAL @@ -3331,12 +3509,12 @@ LookForEnergyNeededInHand: ; 162c8 (5:62c8) cp 1 jr z, .one_energy cp 2 - jr nz, .second_move + jr nz, .second_attack ld a, c cp 2 jr z, .two_colorless -.second_move +.second_attack ld a, $01 ; second move ld [wSelectedMoveIndex], a call CheckEnergyNeededForAttack @@ -3735,14 +3913,52 @@ CheckForEvolutionInDeck: ; 16451 (5:6451) ; 0x16488 Func_16488 ; 16488 (5:6488) - INCROM $16488, $164d3 + INCROM $16488, $164a1 + +; copies wPlayAreaAIScore to wTempPlayAreaAIScore. +; copies AIScore to wcde3. +; decides which card to get energy card. +Func_164a1: ; 164a1 (5:64a1) + ld a, $03 + ld [wcdd8], a + ld de, wTempPlayAreaAIScore + ld hl, wPlayAreaAIScore + ld b, MAX_PLAY_AREA_POKEMON +.loop_play_area + ld a, [hli] + ld [de], a + inc de + dec b + jr nz, .loop_play_area -; copies bench AI score to wcddd -; and loads in wAIscore value in wcde3 + ld a, [wAIScore] + ld [de], a + jr AIDecideWhichCardToAttachEnergy + +Func_164ba: ; 164ba (5:64ba) + ld a, $83 + ld [wcdd8], a + ld de, wTempPlayAreaAIScore + ld hl, wPlayAreaAIScore + ld b, MAX_PLAY_AREA_POKEMON +.asm_164c7 + ld a, [hli] + ld [de], a + inc de + dec b + jr nz, .asm_164c7 + + ld a, [wAIScore] + ld [de], a + jr AIDecideWhichCardToAttachEnergy + +; copies wTempPlayAreaAIScore to wPlayAreaAIScore +; and loads wAIscore with value in wcde3. +; identical to Func_169e3. Func_164d3: ; 164d3 (5:64d3) push af - ld de, wBenchAIScore - ld hl, wcddd + ld de, wPlayAreaAIScore + ld hl, wTempPlayAreaAIScore ld b, MAX_PLAY_AREA_POKEMON .loop ld a, [hli] @@ -3756,24 +3972,26 @@ Func_164d3: ; 164d3 (5:64d3) ret ; 0x164e8 -Func_164e8: ; 164e8 (5:64e8) +; have AI decide whether to play energy card from hand +; and determine which card is best to attach it. +AIDecidePlayEnergyCardFromHand: ; 164e8 (5:64e8) xor a ld [wcdd8], a call CreateEnergyCardListFromHand - jr nc, .has_energy + jr nc, AIDecideWhichCardToAttachEnergy ; no energy ld a, [wcdd8] or a jr z, .exit - ; can this even be reached? jp Func_164d3 .exit or a ret -; initialize wcde4 to $80 -.has_energy +; have AI decide whether to play energy card +; and determine which card is best to attach it. +AIDecideWhichCardToAttachEnergy: ; 164fc (5:64fc) ld a, $80 ld b, MAX_PLAY_AREA_POKEMON ld hl, wcde4 @@ -3782,7 +4000,8 @@ Func_164e8: ; 164e8 (5:64e8) dec b jr nz, .loop - call Func_175bd + call HandleLegendaryArticunoEnergyScoring + ld b, PLAY_AREA_ARENA ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA call GetTurnDuelistVariable @@ -3795,7 +4014,7 @@ Func_164e8: ; 164e8 (5:64e8) ld a, $80 ld [wAIScore], a ld a, $ff - ld [wCurCardPlayAreaLocation], a + ld [wTempAI], a ld a, [wcdd8] and $02 jr nz, .check_venusaur @@ -3811,11 +4030,11 @@ Func_164e8: ; 164e8 (5:64e8) call GetMovesEnergyCostBits ld hl, wDuelTempList call CheckEnergyFlagsNeededInList - jp nc, .asm_16661 + jp nc, .store_score ld a, [wCurCardCanAttack] call CheckForEvolutionInList jr nc, .no_evolution_in_hand - ld [wCurCardPlayAreaLocation], a + ld [wTempAI], a ld a, 2 call AddToAIScore jr .check_venusaur @@ -3950,16 +4169,17 @@ Func_164e8: ; 164e8 (5:64e8) jr c, .check_id_score ld a, 10 call SubFromAIScore - jr .asm_16661 + jr .store_score .check_id_score ld a, [hli] cp $80 - jr c, .asm_16622 + jr c, .decrease_score_1 sub $80 call AddToAIScore jr .check_boss_deck -.asm_16622 + +.decrease_score_1 ld d, a ld a, $80 sub d @@ -3985,29 +4205,34 @@ Func_164e8: ; 164e8 (5:64e8) add hl, bc ld a, [hl] cp $80 - jr c, .asm_1664c + jr c, .decrease_score_2 sub $80 call AddToAIScore jr .skip_boss_deck -.asm_1664c + +.decrease_score_2 ld b, a ld a, $80 sub b call SubFromAIScore + .skip_boss_deck ld a, 1 call AddToAIScore - + +; add AI score for both moves, +; according to their energy requirements. xor a ; first move - call Func_16695 + call DetermineAIScoreOfMoveEnergyRequirement ld a, $01 ; second move - call Func_16695 + call DetermineAIScoreOfMoveEnergyRequirement -.asm_16661 +; store bench score for this card. +.store_score ldh a, [hTempPlayAreaLocation_ff9d] ld c, a ld b, $00 - ld hl, wBenchAIScore + ld hl, wPlayAreaAIScore add hl, bc ld a, [wAIScore] ld [hl], a @@ -4015,57 +4240,77 @@ Func_164e8: ; 164e8 (5:64e8) inc b dec c jp nz, .loop_play_area - call Func_167b5 - jp nc, Func_1668a + +; the Play Area loop is over and the score +; for each card has been calculated. +; now to determine the highest score. + call FindPlayAreaCardWithHighestAIScore + jp nc, .asm_1668a + ld a, [wcdd8] or a - jr z, .asm_16684 + jr z, .play_card scf jp Func_164d3 -.asm_16684 + +.play_card call CreateEnergyCardListFromHand - jp Func_1689f -; 0x1668a + jp AITryToPlayEnergyCard -Func_1668a ; 1668a (5:668a) - INCROM $1668a, $16695 +.asm_1668a: ; 1668a (5:668a) + ld a, [wcdd8] + or a + jr z, .asm_16693 + jp Func_164d3 +.asm_16693 + or a + ret +; 0x16695 -Func_16695: ; 16695 (5:6695) +; checks score related to selected move, +; in order to determine whether to play energy card. +; the AI score is increased/decreased accordingly. +; input: +; [wSelectedMoveIndex] = move to check. +DetermineAIScoreOfMoveEnergyRequirement: ; 16695 (5:6695) ld [wSelectedMoveIndex], a call CheckEnergyNeededForAttack - jp c, .asm_1671e - ld a, $0c ; ATTACHED_ENERGY_BOOST + jp c, .not_enough_energy + ld a, MOVE_FLAG2_ADDRESS | ATTACHED_ENERGY_BOOST_F call CheckLoadedMoveFlag - jr c, .asm_166af - ld a, $0b ; FLAG_2_BIT_5 + jr c, .attached_energy_boost + ld a, MOVE_FLAG2_ADDRESS | DISCARD_ENERGY_F call CheckLoadedMoveFlag - jr c, .asm_16710 + jr c, .discard_energy jp .check_evolution -.asm_166af +.attached_energy_boost ld a, [wLoadedMoveUnknown1] cp $02 - jr z, .asm_166bc + jr z, .check_surplus_energy call AddToAIScore jp .check_evolution -.asm_166bc - call Func_171fb +.check_surplus_energy + call CheckIfNoSurplusEnergyForMove jr c, .asm_166cd - cp 3 + cp 3 ; check how much surplus energy jr c, .asm_166cd + .asm_166c5 ld a, 5 call SubFromAIScore jp .check_evolution + .asm_166cd ld a, 2 call AddToAIScore ; check whether move has ATTACHED_ENERGY_BOOST flag ; and add to AI score if attaching another energy -; will KO defending Pokémon - ld a, $0c +; will KO defending Pokémon. +; add more to score if this is currently active Pokémon. + ld a, MOVE_FLAG2_ADDRESS | ATTACHED_ENERGY_BOOST_F call CheckLoadedMoveFlag jp nc, .check_evolution ld a, [wSelectedMoveIndex] @@ -4082,9 +4327,10 @@ Func_16695: ; 16695 (5:6695) ld a, DUELVARS_ARENA_CARD_HP call GetNonTurnDuelistVariable sub b - jr c, .asm_166ff + jr c, .attaching_kos_player jr nz, .check_evolution -.asm_166ff + +.attaching_kos_player ld a, 20 call AddToAIScore ldh a, [hTempPlayAreaLocation_ff9d] @@ -4094,41 +4340,47 @@ Func_16695: ; 16695 (5:6695) call AddToAIScore jr .check_evolution -; FLAG_2_BIT_5 is set only for Pokémon Powers, -; except for Magnemite2's Magnetic Storm attack -.asm_16710 +; checks if there is surplus energy for move +; that discards attached energy card. +; if current card is Zapdos2, don't add to score. +; if there is no surplus energy, encourage playing energy. +.discard_energy ld a, [wLoadedCard1ID] cp ZAPDOS2 jr z, .check_evolution - call Func_171fb + call CheckIfNoSurplusEnergyForMove jr c, .asm_166cd jr .asm_166c5 -.asm_1671e - ld a, $0d ; FLAG_2_BIT_5 +.not_enough_energy + ld a, MOVE_FLAG2_ADDRESS | FLAG_2_BIT_5_F call CheckLoadedMoveFlag - jr nc, .asm_1672a + jr nc, .check_color_needed ld a, 5 call SubFromAIScore -.asm_1672a +; if the energy card color needed is in hand, increase AI score. +; if a colorless card is needed, increase AI score. +.check_color_needed ld a, b or a - jr z, .asm_1673b + jr z, .check_colorless_needed ld a, e call LookForCardIDInHand - jr c, .asm_1673b + jr c, .check_colorless_needed ld a, 4 call AddToAIScore - jr .asm_16744 -.asm_1673b + jr .check_total_needed +.check_colorless_needed ld a, c or a jr z, .check_evolution ld a, 3 call AddToAIScore -.asm_16744 +; if only one energy card is needed for move, +; encourage playing energy card. +.check_total_needed ld a, b add c dec a @@ -4136,6 +4388,7 @@ Func_16695: ; 16695 (5:6695) ld a, 3 call AddToAIScore +; if the move KOs player and this is the active card, add to AI score. ldh a, [hTempPlayAreaLocation_ff9d] or a jr nz, .check_evolution @@ -4145,11 +4398,18 @@ Func_16695: ; 16695 (5:6695) call GetNonTurnDuelistVariable ld hl, wDamage sub [hl] - jr z, .asm_16766 + jr z, .move_kos_defending jr nc, .check_evolution -.asm_16766 +.move_kos_defending ld a, 20 call AddToAIScore + +; this is possibly a bug. +; this is an identical check as above to test whether this card is active. +; in case it is active, the score gets added 10 more points, +; in addition to the 20 points already added above. +; what was probably intended was to add 20 points in case this card +; is active and only 10 in case it is benched. ldh a, [hTempPlayAreaLocation_ff9d] or a jr nz, .check_evolution @@ -4157,36 +4417,44 @@ Func_16695: ; 16695 (5:6695) call AddToAIScore .check_evolution - ld a, [wCurCardPlayAreaLocation] + ld a, [wTempAI] ; evolution in hand cp $ff ret z + +; temporarily replace this card with evolution in hand. ld b, a ldh a, [hTempPlayAreaLocation_ff9d] add DUELVARS_ARENA_CARD call GetTurnDuelistVariable push af ld [hl], b + +; check for energy still needed for evolution to attack. +; if FLAG_2_BIT_5 is not set, check what color is needed. +; if the energy card color needed is in hand, increase AI score. +; if a colorless card is needed, increase AI score. call CheckEnergyNeededForAttack jr nc, .done - ld a, $0d ; FLAG_2_BIT_5 + ld a, MOVE_FLAG2_ADDRESS | FLAG_2_BIT_5_F call CheckLoadedMoveFlag jr c, .done ld a, b or a - jr z, .asm_167a2 + jr z, .check_colorless_needed_evo ld a, e call LookForCardIDInHand - jr c, .asm_167a2 + jr c, .check_colorless_needed_evo ld a, 2 call AddToAIScore jr .done -.asm_167a2 +.check_colorless_needed_evo ld a, c or a jr z, .done ld a, 1 call AddToAIScore +; recover the original card in the Play Area location. .done ldh a, [hTempPlayAreaLocation_ff9d] add DUELVARS_ARENA_CARD @@ -4196,14 +4464,1696 @@ Func_16695: ; 16695 (5:6695) ret ; 0x167b5 -Func_167b5 ; 167b5 (5:67b5) - INCROM $167b5, $1689f +; returns in hTempPlayAreaLocation_ff9d the Play Area location +; of the card with the highest Play Area AI score, unless +; the highest score is below $85. +; if it succeeds in return a card location, set carry. +FindPlayAreaCardWithHighestAIScore: ; 167b5 (5:67b5) + ld a, [wcdd8] + and $80 + jr nz, .asm_167e1 + + ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA + call GetTurnDuelistVariable + ld b, a + ld c, 0 ; PLAY_AREA_ARENA + ld e, c + ld d, c + ld hl, wPlayAreaAIScore +; find highest Play Area AI score. +.loop_1 + ld a, [hli] + cp e + jr c, .next_1 + jr z, .next_1 + ld e, a ; overwrite highest score found + ld d, c ; overwrite Play Area of highest score +.next_1 + inc c + dec b + jr nz, .loop_1 + +; if highest AI score is below $85, return no carry. +; else, store Play Area location and return carry. + ld a, e + cp $85 + jr c, .not_enough_score + ld a, d + ldh [hTempPlayAreaLocation_ff9d], a + scf + ret +.not_enough_score + or a + ret + +; same as above but only check bench Pokémon scores. +.asm_167e1 + ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA + call GetTurnDuelistVariable + dec a + jr z, .no_carry + + ld b, a + ld e, 0 + ld c, PLAY_AREA_BENCH_1 + ld d, c + ld hl, wPlayAreaAIScore + 1 +.loop_2 + ld a, [hli] + cp e + jr c, .next_2 + jr z, .next_2 + ld e, a ; overwrite highest score found + ld d, c ; overwrite Play Area of highest score +.next_2 + inc c + dec b + jr nz, .loop_2 + + ld a, d + ldh [hTempPlayAreaLocation_ff9d], a + scf + ret +.no_carry + or a + ret +; 0x16805 + +; returns carry if there's an evolution card +; that can evolve card in hTempPlayAreaLocation_ff9d, +; and that card needs energy to use wSelectedMove. +CheckIfEvolutionNeedsEnergyForMove: ; 16805 (5:6805) + call CreateHandCardList + ldh a, [hTempPlayAreaLocation_ff9d] + add DUELVARS_ARENA_CARD + call GetTurnDuelistVariable + call CheckCardEvolutionInHandOrDeck + jr c, .has_evolution + or a + ret + +.has_evolution + ld b, a + ldh a, [hTempPlayAreaLocation_ff9d] + add DUELVARS_ARENA_CARD + call GetTurnDuelistVariable + push af + ld [hl], b + call CheckEnergyNeededForAttack + jr c, .not_enough_energy + ldh a, [hTempPlayAreaLocation_ff9d] + add DUELVARS_ARENA_CARD + call GetTurnDuelistVariable + pop af + ld [hl], a + or a + ret + +.not_enough_energy + ldh a, [hTempPlayAreaLocation_ff9d] + add DUELVARS_ARENA_CARD + call GetTurnDuelistVariable + pop af + ld [hl], a + scf + ret +; 0x1683b + +; returns in e the card ID of the energy required for +; the Discard/Energy Boost attack loaded in wSelectedMoveIndex. +; if it's Zapdos2's Thunderbolt attack, return no carry. +; if it's Charizard's Fire Spin or Exeggutor's Big Eggplosion +; attack, don't return energy card ID, but set carry. +; output: +; b = 1 if needs color energy, 0 otherwise; +; c = 1 if only needs colorless energy, 0 otherwise; +; carry set if not Zapdos2's Thunderbolt attack. +GetEnergyCardForDiscardOrEnergyBoostAttack: ; 1683b (5:683b) +; load card ID and check selected move index. + ldh a, [hTempPlayAreaLocation_ff9d] + add DUELVARS_ARENA_CARD + call GetTurnDuelistVariable + call LoadCardDataToBuffer2_FromDeckIndex + ld b, a + ld a, [wSelectedMoveIndex] + or a + jr z, .first_attack + +; check if second attack is Zapdos2's Thunderbolt, +; Charizard's Fire Spin or Exeggcutor's Big Eggsplosion, +; for these to be treated differently. +; for both attacks, load its energy cost. + ld a, b + cp ZAPDOS2 + jr z, .zapdos2 + cp CHARIZARD + jr z, .charizard_or_exeggcutor + cp EXEGGUTOR + jr z, .charizard_or_exeggcutor + ld hl, wLoadedCard2Move2EnergyCost + jr .fire +.first_attack + ld hl, wLoadedCard2Move1EnergyCost + +; check which energy color the move requires, +; and load in e the card ID of corresponding energy card, +; then return carry flag set. +.fire + ld a, [hli] + ld b, a + and $f0 + jr z, .grass + ld e, FIRE_ENERGY + jr .set_carry +.grass + ld a, b + and $0f + jr z, .lightning + ld e, GRASS_ENERGY + jr .set_carry +.lightning + ld a, [hli] + ld b, a + and $f0 + jr z, .water + ld e, LIGHTNING_ENERGY + jr .set_carry +.water + ld a, b + and $0f + jr z, .fighting + ld e, WATER_ENERGY + jr .set_carry +.fighting + ld a, [hli] + ld b, a + and $f0 + jr z, .psychic + ld e, FIGHTING_ENERGY + jr .set_carry +.psychic + ld e, PSYCHIC_ENERGY + +.set_carry + lb bc, $01, $00 + scf + ret + +; for Zapdos2's Thunderbolt attack, return with no carry. +.zapdos2 + or a + ret + +; Charizard's Fire Spin and Exeggcutor's Big Eggsplosion, +; return carry. +.charizard_or_exeggcutor + lb bc, $00, $01 + scf + ret +; 0x1689f + +; called after the AI has decided which card to attach +; energy from hand. AI does checks to determine whether +; this card needs more energy or not, and chooses the +; right energy card to play. If the card is played, +; return with carry flag set. +AITryToPlayEnergyCard: ; 1689f (5:689f) +; check if energy cards are still needed for attacks. +; if first attack doesn't need, test for the second attack. + xor a + ld [wTempAI], a + ld [wSelectedMoveIndex], a + call CheckEnergyNeededForAttack + jr nc, .second_attack + ld a, b + or a + jr nz, .check_deck + ld a, c + or a + jr nz, .check_deck + +.second_attack + ld a, $01 ; second attack + ld [wSelectedMoveIndex], a + call CheckEnergyNeededForAttack + jr nc, .check_discard_or_energy_boost + ld a, b + or a + jr nz, .check_deck + ld a, c + or a + jr nz, .check_deck + +; neither attack needs energy cards to be used. +; check whether these attacks can be given +; extra energy cards for their effects. +.check_discard_or_energy_boost + ld a, $01 + ld [wTempAI], a + +; for both attacks, check if it has the effect of +; discarding energy cards or attached energy boost. + xor a ; first attack + ld [wSelectedMoveIndex], a + call CheckEnergyNeededForAttack + ld a, MOVE_FLAG2_ADDRESS | ATTACHED_ENERGY_BOOST_F + call CheckLoadedMoveFlag + jr c, .energy_boost_or_discard_energy + ld a, MOVE_FLAG2_ADDRESS | DISCARD_ENERGY_F + call CheckLoadedMoveFlag + jr c, .energy_boost_or_discard_energy + + ld a, $01 ; second attack + ld [wSelectedMoveIndex], a + call CheckEnergyNeededForAttack + ld a, MOVE_FLAG2_ADDRESS | ATTACHED_ENERGY_BOOST_F + call CheckLoadedMoveFlag + jr c, .energy_boost_or_discard_energy + ld a, MOVE_FLAG2_ADDRESS | DISCARD_ENERGY_F + call CheckLoadedMoveFlag + jr c, .energy_boost_or_discard_energy + +; if none of the attacks have those flags, do an additional +; check to ascertain whether evolution card needs energy +; to use second attack. Return if all these checks fail. + call CheckIfEvolutionNeedsEnergyForMove + ret nc + call CreateEnergyCardListFromHand + jr .check_deck + +; for attacks that discard energy or get boost for +; additional energy cards, get the energy card ID required by move. +; if it's Zapdos2's Thunderbolt move, return. +.energy_boost_or_discard_energy + call GetEnergyCardForDiscardOrEnergyBoostAttack + ret nc + +; some decks allow basic Pokémon to be given double colorless +; in anticipation for evolution, so play card if that is the case. +.check_deck + call CheckSpecificDecksToAttachDoubleColorless + jr c, .play_energy_card + + ld a, b + or a + jr z, .colorless_energy + +; in this case, Pokémon needs a specific basic energy card. +; look for basic energy card needed in hand and play it. + ld a, e + call LookForCardIDInHand + ldh [hTemp_ffa0], a + jr nc, .play_energy_card + +; in this case Pokémon just needs colorless (any basic energy card). +; if active card, check if it needs 2 colorless. +; if it does (and also doesn't additionally need a color energy), +; look for double colorless card in hand and play it if found. +.colorless_energy + ldh a, [hTempPlayAreaLocation_ff9d] + or a + jr nz, .look_for_any_energy + ld a, c + or a + jr z, .check_if_done + cp 2 + jr nz, .look_for_any_energy + + ; needs two colorless + ld hl, wDuelTempList +.loop_1 + ld a, [hli] + cp $ff + jr z, .look_for_any_energy + ldh [hTemp_ffa0], a + call GetCardIDFromDeckIndex + ld a, e + cp DOUBLE_COLORLESS_ENERGY + jr nz, .loop_1 + jr .play_energy_card + +; otherwise, look for any card and play it. +; if it's a boss deck, only play double colorless in this situation. +.look_for_any_energy + ld hl, wDuelTempList + call CountCardsInDuelTempList + call ShuffleCards +.loop_2 + ld a, [hli] + cp $ff + jr z, .check_if_done + call CheckIfOpponentHasBossDeckID + jr nc, .load_card + push af + call GetCardIDFromDeckIndex + ld a, e + cp DOUBLE_COLORLESS_ENERGY + pop bc + jr z, .loop_2 + ld a, b +.load_card + ldh [hTemp_ffa0], a + +; plays energy card loaded in hTemp_ffa0 and sets carry flag. +.play_energy_card + ldh a, [hTempPlayAreaLocation_ff9d] + ldh [hTempPlayAreaLocation_ffa1], a + ld a, OPPACTION_PLAY_ENERGY + bank1call AIMakeDecision + scf + ret + +; wTempAI is 1 if the attack had a Discard/Energy Boost effect, +; and 0 otherwise. If 1, then return. If not one, check if +; there is still a second attack to check. +.check_if_done + ld a, [wTempAI] + or a + jr z, .check_first_attack + ret +.check_first_attack + ld a, [wSelectedMoveIndex] + or a + jp z, .second_attack + ret +; 0x1696e + +; check if playing certain decks so that AI can decide whether to play +; double colorless to some specific cards. +; these are cards that do not need double colorless to any of their moves +; but are required by their evolutions. +; return carry if there's a double colorless in hand to attach +; and it's one of the card IDs from these decks. +; output: +; [hTemp_ffa0] = card index of double colorless in hand; +; carry set if can play energy card. +CheckSpecificDecksToAttachDoubleColorless: ; 1696e (5:696e) + push bc + push de + push hl + +; check if AI is playing any of the aplicable decks. + ld a, [wOpponentDeckID] + cp LEGENDARY_DRAGONITE_DECK_ID + jr z, .legendary_dragonite_deck + cp FIRE_CHARGE_DECK_ID + jr z, .fire_charge_deck + cp LEGENDARY_RONALD_DECK_ID + jr z, .legendary_ronald_deck + +.no_carry + pop hl + pop de + pop bc + or a + ret + +; if playing Legendary Dragonite deck, +; check for Charmander and Dratini. +.legendary_dragonite_deck + call .get_id + cp CHARMANDER + jr z, .check_colorless_attached + cp DRATINI + jr z, .check_colorless_attached + jr .no_carry + +; if playing Fire Charge deck, +; check for Growlithe. +.fire_charge_deck + call .get_id + cp GROWLITHE + jr z, .check_colorless_attached + jr .no_carry + +; if playing Legendary Ronald deck, +; check for Dratini. +.legendary_ronald_deck + call .get_id + cp DRATINI + jr z, .check_colorless_attached + jr .no_carry + +; check if card has any colorless energy cards attached, +; and if there are any, return no carry. +.check_colorless_attached + ldh a, [hTempPlayAreaLocation_ff9d] + ld e, a + call GetPlayAreaCardAttachedEnergies + ld a, [wAttachedEnergies + COLORLESS] + or a + jr nz, .no_carry + +; card has no colorless energy, so look for double colorless +; in hand and if found, return carry and its card index. + ld a, DOUBLE_COLORLESS_ENERGY + call LookForCardIDInHand + jr c, .no_carry + ldh [hTemp_ffa0], a + pop hl + pop de + pop bc + scf + ret + +.get_id: + ldh a, [hTempPlayAreaLocation_ff9d] + add DUELVARS_ARENA_CARD + call GetTurnDuelistVariable + call GetCardIDFromDeckIndex + ld a, e + ret +; 0x169ca + +Func_169ca: ; 169ca (5:69ca) + ld a, $01 + ld [wcdd9], a + +; copy wPlayAreaAIScore to wTempPlayAreaAIScore. + ld de, wTempPlayAreaAIScore + ld hl, wPlayAreaAIScore + ld b, MAX_PLAY_AREA_POKEMON +.loop + ld a, [hli] + ld [de], a + inc de + dec b + jr nz, .loop + + ld a, [wAIScore] + ld [de], a + jr Func_169f8.asm_169fc + +; copies wTempPlayAreaAIScore to wPlayAreaAIScore +; and loads wAIscore with value in wcde3. +; identical to Func_164d3. +; TODO: reconsider function structure here. +Func_169e3: ; 169e3 (5:69e3) + push af + ld de, wPlayAreaAIScore + ld hl, wTempPlayAreaAIScore + ld b, MAX_PLAY_AREA_POKEMON +.loop + ld a, [hli] + ld [de], a + inc de + dec b + jr nz, .loop + ld a, [hl] + ld [wAIScore], a + pop af + ret +; 0x169f8 + +Func_169f8: ; 169f8 (5:69f8) + xor a + ld [wcdd9], a +.asm_169fc + ld a, [wce20] + and $01 + jr z, .asm_16a0b + ld a, [wcdd6] + ld [wSelectedMoveIndex], a + jr .first_attack + +.asm_16a0b + ld a, [wcda7] + cp $80 + jp z, .asm_16a77 + +; determine AI score of both attacks. + xor a ; first attack + call GetAIScoreOfAttack + ld a, [wAIScore] + ld [wPlayAreaAIScore], a + ld a, $01 ; second attack + call GetAIScoreOfAttack + ld c, $01 + ld a, [wPlayAreaAIScore] + ld b, a + ld a, [wAIScore] + cp b + jr nc, .asm_16a30 + ; first attack has higher score + dec c + ld a, b + +; c holds the attack index chosen by AI, +; and a holds its AI score. +; first check if chosen attack has at least minimum score. +; then check if first attack is better than second attack +; in case the second one was chosen. +.asm_16a30 + cp $50 ; minimum score to use attack + jr c, .asm_16a77 + ld a, c + ld [wSelectedMoveIndex], a + or a + jr z, .first_attack + call CheckWhetherToSwitchToFirstAttack + +.first_attack + ld a, [wcdd9] + or a + jr z, .asm_16a48 + scf + jp Func_169e3 + +.asm_16a48 + ld a, $0e + call Func_14663 + xor a + ldh [hTempPlayAreaLocation_ff9d], a + ld a, [wSelectedMoveIndex] + call EstimateDamage_VersusDefendingCard + ld a, [wDamage] + or a + jr z, .asm_16a62 +.asm_16a5c + xor a + ld [$cdb4], a + jr .asm_16a6d +.asm_16a62 + ld a, MOVE_FLAG1_ADDRESS | DAMAGE_TO_OPPONENT_BENCH_F + call CheckLoadedMoveFlag + jr c, .asm_16a5c + ld hl, $cdb4 + inc [hl] +.asm_16a6d + ld a, $01 + ld [wcddb], a + call Func_14145 + scf + ret +.asm_16a77 + ld a, [wcdd9] + or a + jr z, .asm_16a80 + jp Func_169e3 +.asm_16a80 + ld hl, $cdb4 + inc [hl] + or a + ret +; 0x16a86 + +; determines the AI score of attack index in a. +GetAIScoreOfAttack: ; 16a86 (5:6a86) +; initialize AI score. + ld [wSelectedMoveIndex], a + ld a, $50 + ld [wAIScore], a + + xor a + ldh [hTempPlayAreaLocation_ff9d], a + call CheckIfSelectedMoveIsUnusable + jr nc, .usable + +; return zero AI score. +.unusable + xor a + ld [wAIScore], a + jp .done + +; load arena card IDs +.usable + xor a + ld [wAICannotDamage], a + ld a, DUELVARS_ARENA_CARD + call GetTurnDuelistVariable + call GetCardIDFromDeckIndex + ld a, e + ld [wTempTurnDuelistCardID], a + call SwapTurn + ld a, DUELVARS_ARENA_CARD + call GetTurnDuelistVariable + call GetCardIDFromDeckIndex + ld a, e + ld [wTempNonTurnDuelistCardID], a + +; handle the case where the player has No Damage substatus. +; in the case the player does, check if this move +; has a residual effect, or if it can damage the opposing bench. +; If none of those are true, render the move unusable. +; also if it's a PKMN power, consider it unusable as well. + bank1call HandleNoDamageOrEffectSubstatus + call SwapTurn + jr nc, .check_if_can_ko + + ; player is under No Damage substatus + ld a, $01 + ld [wAICannotDamage], a + ld a, [wSelectedMoveIndex] + call EstimateDamage_VersusDefendingCard + ld a, [wLoadedMoveCategory] + cp POKEMON_POWER + jr z, .unusable + and RESIDUAL + jr nz, .check_if_can_ko + ld a, MOVE_FLAG1_ADDRESS | DAMAGE_TO_OPPONENT_BENCH_F + call CheckLoadedMoveFlag + jr nc, .unusable + +; calculate damage to player to check if move can KO. +; encourage move if it's able to KO. +.check_if_can_ko + ld a, [wSelectedMoveIndex] + call EstimateDamage_VersusDefendingCard + ld a, DUELVARS_ARENA_CARD_HP + call GetNonTurnDuelistVariable + ld hl, wDamage + sub [hl] + jr c, .can_ko + jr z, .can_ko + jr .check_damage +.can_ko + ld a, 20 + call AddToAIScore + +; raise AI score by the number of damage counters that this move deals. +; if no damage is dealt, subtract AI score. in case wDamage is zero +; but wMaxDamage is not, then encourage move afterwards. +; otherwise, if wMaxDamage is also zero, check for damage against +; player's bench, and encourage move in case there is. +.check_damage + xor a + ld [wAIMoveIsNonDamaging], a + ld a, [wDamage] + ld [wTempAI], a + or a + jr z, .no_damage + call CalculateTensDigit + call AddToAIScore + jr .check_recoil +.no_damage + ld a, $01 + ld [wAIMoveIsNonDamaging], a + call SubFromAIScore + ld a, [wAIMaxDamage] + or a + jr z, .no_max_damage + ld a, 2 + call AddToAIScore + xor a + ld [wAIMoveIsNonDamaging], a +.no_max_damage + ld a, MOVE_FLAG1_ADDRESS | DAMAGE_TO_OPPONENT_BENCH_F + call CheckLoadedMoveFlag + jr nc, .check_recoil + ld a, 2 + call AddToAIScore + +; handle recoil moves (low and high recoil). +.check_recoil + ld a, MOVE_FLAG1_ADDRESS | LOW_RECOIL_F + call CheckLoadedMoveFlag + jr c, .is_recoil + ld a, MOVE_FLAG1_ADDRESS | HIGH_RECOIL_F + call CheckLoadedMoveFlag + jp nc, .check_defending_can_ko +.is_recoil + ; sub from AI score number of damage counters + ; that move deals to itself. + ld a, [wLoadedMoveUnknown1] + or a + jp z, .check_defending_can_ko + ld [wDamage], a + call ApplyDamageModifiers_DamageToSelf + ld a, e + call CalculateTensDigit + call SubFromAIScore + + push de + ld a, MOVE_FLAG1_ADDRESS | HIGH_RECOIL_F + call CheckLoadedMoveFlag + pop de + jr c, .high_recoil + + ; if LOW_RECOIL KOs self, decrease AI score + ld a, DUELVARS_ARENA_CARD_HP + call GetTurnDuelistVariable + cp e + jr c, .kos_self + jp nz, .check_defending_can_ko +.kos_self + ld a, 10 + call SubFromAIScore + +.high_recoil + ; dismiss this move if no benched Pokémon + ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA + call GetTurnDuelistVariable + cp 2 + jr c, .dismiss_high_recoil_move + ; has benched Pokémon + +; here the AI handles high recoil moves differently +; depending on what deck it's playing. + ld a, [wOpponentDeckID] + cp ROCK_CRUSHER_DECK_ID + jr z, .rock_crusher_deck + cp ZAPPING_SELFDESTRUCT_DECK_ID + jr z, .zapping_selfdestruct_deck + cp BOOM_BOOM_SELFDESTRUCT_DECK_ID + jr z, .encourage_high_recoil_move + ; Boom Boom Selfdestruct deck always encourages + cp POWER_GENERATOR_DECK_ID + jr nz, .high_recoil_generic_checks + ; Power Generator deck always dismisses + +.dismiss_high_recoil_move + xor a + ld [wAIScore], a + jp .done + +.encourage_high_recoil_move + ld a, 20 + call AddToAIScore + jp .done + +; Zapping Selfdestruct deck only uses this move +; if number of cards in deck >= 30 and +; HP of active card is < half max HP. +.zapping_selfdestruct_deck + ld a, DUELVARS_NUMBER_OF_CARDS_NOT_IN_DECK + call GetTurnDuelistVariable + cp 31 + jr nc, .high_recoil_generic_checks + ld e, PLAY_AREA_ARENA + call GetCardDamage + sla a + cp c + jr c, .high_recoil_generic_checks + ld b, 0 + ld a, DUELVARS_ARENA_CARD + call GetTurnDuelistVariable + call GetCardIDFromDeckIndex + ld a, e + cp MAGNEMITE1 + jr z, .magnemite1 + ld b, 10 ; bench damage +.magnemite1 + ld a, 10 + add b + ld b, a ; 20 bench damage if not Magnemite1 + +; if this move causes player to win the duel by +; knocking out own Pokémon, dismiss move. + ld a, 1 ; count active Pokémon as KO'd + call .check_if_kos_bench + jr c, .dismiss_high_recoil_move + jr .encourage_high_recoil_move + +; Rock Crusher Deck only uses this move if +; prize count is below 4 and move wins (or potentially draws) the duel, +; (i.e. at least gets KOs equal to prize cards left). +.rock_crusher_deck + call CountPrizes + cp 4 + jr nc, .dismiss_high_recoil_move + ; prize count < 4 + ld b, 20 ; damage dealt to bench + call SwapTurn + xor a + call .check_if_kos_bench + call SwapTurn + jr c, .encourage_high_recoil_move + +; generic checks for all other deck IDs. +; encourage move if it wins (or potentially draws) the duel, +; (i.e. at least gets KOs equal to prize cards left). +; dismiss it if it causes the player to win. +.high_recoil_generic_checks + ld a, DUELVARS_ARENA_CARD + call GetTurnDuelistVariable + call GetCardIDFromDeckIndex + ld a, e + cp CHANSEY + jr z, .chansey + cp MAGNEMITE1 + jr z, .magnemite1_or_weezing + cp WEEZING + jr z, .magnemite1_or_weezing + ld b, 20 ; bench damage + jr .check_bench_kos +.magnemite1_or_weezing + ld b, 10 ; bench damage + jr .check_bench_kos +.chansey + ld b, 0 ; no bench damage + +.check_bench_kos + push bc + call SwapTurn + xor a + call .check_if_kos_bench + call SwapTurn + pop bc + jr c, .wins_the_duel + push de + ld a, 1 + call .check_if_kos_bench + pop bc + jr nc, .count_own_ko_bench + +; move causes player to draw all prize cards + xor a + ld [wAIScore], a + jp .done + +; move causes CPU to draw all prize cards +.wins_the_duel + ld a, 20 + call AddToAIScore + jp .done + +; subtract from AI score number of own benched Pokémon KO'd +.count_own_ko_bench + push bc + ld a, d + or a + jr z, .count_player_ko_bench + dec a + call SubFromAIScore + +; add to AI score number of player benched Pokémon KO'd +.count_player_ko_bench + pop bc + ld a, b + call AddToAIScore + jr .check_defending_can_ko + +; local function that gets called to determine damage to +; benched Pokémon caused by a HIGH_RECOIL move. +; return carry if using move causes number of benched Pokémon KOs +; equal to or larger than remaining prize cards. +; this function is independent on duelist turn, so whatever +; turn it is when this is called, it's that duelist's +; bench/prize cards that get checked. +; input: +; a = initial number of KO's beside benched Pokémon, +; so that if the active Pokémon is KO'd by the move, +; this counts towards the prize cards collected +; b = damage dealt to bench Pokémon +.check_if_kos_bench + ld d, a + ld a, DUELVARS_BENCH + call GetTurnDuelistVariable + ld e, PLAY_AREA_ARENA +.loop + inc e + ld a, [hli] + cp $ff + jr z, .exit_loop + ld a, e + add DUELVARS_ARENA_CARD_HP + push hl + call GetTurnDuelistVariable + pop hl + cp b + jr z, .increase_count + jr nc, .loop +.increase_count + ; increase d if damage dealt KOs + inc d + jr .loop +.exit_loop + push de + call SwapTurn + call CountPrizes + call SwapTurn + pop de + cp d + jp c, .set_carry + jp z, .set_carry + or a + ret +.set_carry + scf + ret + +; if defending card can KO, encourage move +; unless move is non-damaging. +.check_defending_can_ko + ld a, [wSelectedMoveIndex] + push af + call CheckIfDefendingPokemonCanKnockOut + pop bc + ld a, b + ld [wSelectedMoveIndex], a + jr nc, .check_discard + ld a, 5 + call AddToAIScore + ld a, [wAIMoveIsNonDamaging] + or a + jr z, .check_discard + ld a, 5 + call SubFromAIScore + +; subtract from AI score if this move requires +; discarding any energy cards. +.check_discard + ld a, [wSelectedMoveIndex] + ld e, a + ld a, DUELVARS_ARENA_CARD + call GetTurnDuelistVariable + ld d, a + call CopyMoveDataAndDamage_FromDeckIndex + ld a, MOVE_FLAG2_ADDRESS | DISCARD_ENERGY_F + call CheckLoadedMoveFlag + jr nc, .asm_16ca6 + ld a, 1 + call SubFromAIScore + ld a, [wLoadedMoveUnknown1] + call SubFromAIScore + +.asm_16ca6 + ld a, MOVE_FLAG2_ADDRESS | FLAG_2_BIT_6_F + call CheckLoadedMoveFlag + jr nc, .check_nullify_flag + ld a, [wLoadedMoveUnknown1] + call AddToAIScore + +; encourage move if it has a nullify or weaken attack effect. +.check_nullify_flag + ld a, MOVE_FLAG2_ADDRESS | NULLIFY_OR_WEAKEN_ATTACK_F + call CheckLoadedMoveFlag + jr nc, .check_draw_flag + ld a, 1 + call AddToAIScore + +; encourage move if it has an effect to draw a card. +.check_draw_flag + ld a, MOVE_FLAG1_ADDRESS | DRAW_CARD_F + call CheckLoadedMoveFlag + jr nc, .check_heal_flag + ld a, 1 + call AddToAIScore + +.check_heal_flag + ld a, MOVE_FLAG2_ADDRESS | HEAL_USER_F + call CheckLoadedMoveFlag + jr nc, .check_status_effect + ld a, [wLoadedMoveUnknown1] + cp 1 + jr z, .tally_heal_score + ld a, [wTempAI] + call CalculateTensDigit + ld b, a + ld a, [wLoadedMoveUnknown1] + cp 3 + jr z, .asm_16cec + srl b + jr nc, .asm_16cec + inc b +.asm_16cec + ld a, DUELVARS_ARENA_CARD_HP + call GetTurnDuelistVariable + call CalculateTensDigit + cp b + jr c, .tally_heal_score + ld a, b +.tally_heal_score + push af + ld e, PLAY_AREA_ARENA + call GetCardDamage + call CalculateTensDigit + pop bc + cp b ; wLoadedMoveUnknown1 + jr c, .add_heal_score + ld a, b +.add_heal_score + call AddToAIScore + +.check_status_effect + ld a, DUELVARS_ARENA_CARD + call GetNonTurnDuelistVariable + call SwapTurn + call GetCardIDFromDeckIndex + call SwapTurn + ld a, e + ; skip if player has Snorlax + cp SNORLAX + jp z, .handle_flag3_bit1 + + ld a, DUELVARS_ARENA_CARD_STATUS + call GetNonTurnDuelistVariable + ld [wTempAI], a + +; encourage a poison inflicting move if opposing Pokémon +; isn't (doubly) poisoned already. +; if opposing Pokémon is only poisoned and not double poisoned, +; and this move has FLAG_2_BIT_6 set, discourage it +; (possibly to make Nidoking's Toxic attack less likely to be chosen +; if the other Pokémon is poisoned.) + ld a, MOVE_FLAG1_ADDRESS | INFLICT_POISON_F + call CheckLoadedMoveFlag + jr nc, .check_sleep + ld a, [wTempAI] + and DOUBLE_POISONED + jr z, .add_poison_score + and $40 ; only double poisoned? + jr z, .check_sleep + ld a, MOVE_FLAG2_ADDRESS | FLAG_2_BIT_6_F + call CheckLoadedMoveFlag + jr nc, .check_sleep + ld a, 2 + call SubFromAIScore + jr .check_sleep +.add_poison_score + ld a, 2 + call AddToAIScore + +; encourage sleep-inducing move if other Pokémon isn't asleep. +.check_sleep + ld a, MOVE_FLAG1_ADDRESS | INFLICT_SLEEP_F + call CheckLoadedMoveFlag + jr nc, .check_paralysis + ld a, [wTempAI] + and CNF_SLP_PRZ + cp ASLEEP + jr z, .check_paralysis + ld a, 1 + call AddToAIScore + +; encourage paralysis-inducing move if other Pokémon isn't asleep. +; otherwise, if other Pokémon is asleep, discourage move. +.check_paralysis + ld a, MOVE_FLAG1_ADDRESS | INFLICT_PARALYSIS_F + call CheckLoadedMoveFlag + jr nc, .check_confusion + ld a, [wTempAI] + and CNF_SLP_PRZ + cp ASLEEP + jr z, .sub_prz_score + ld a, 1 + call AddToAIScore + jr .check_confusion +.sub_prz_score + ld a, 1 + call SubFromAIScore + +; encourage confuse-inducing move if other Pokémon isn't asleep +; or confused already. +; otherwise, if other Pokémon is asleep or confused, +; discourage move instead. +.check_confusion + ld a, MOVE_FLAG1_ADDRESS | INFLICT_CONFUSION_F + call CheckLoadedMoveFlag + jr nc, .check_if_confused + ld a, [wTempAI] + and CNF_SLP_PRZ + cp ASLEEP + jr z, .sub_cnf_score + ld a, [wTempAI] + and CNF_SLP_PRZ + cp CONFUSED + jr z, .check_if_confused + ld a, 1 + call AddToAIScore + jr .check_if_confused +.sub_cnf_score + ld a, 1 + call SubFromAIScore + +; if this Pokémon is confused, subtract from score. +.check_if_confused + ld a, DUELVARS_ARENA_CARD_STATUS + call GetTurnDuelistVariable + and CNF_SLP_PRZ + cp CONFUSED + jr nz, .handle_flag3_bit1 + ld a, 1 + call SubFromAIScore + +; flag3_bit1 marks moves that the AI handles individually. +; each move has its own checks and modifies AI score accordingly. +.handle_flag3_bit1 + ld a, MOVE_FLAG3_ADDRESS | FLAG_3_BIT_1_F + call CheckLoadedMoveFlag + jr nc, .done + call HandleSpecialAIMoves + cp $80 + jr c, .negative_score + sub $80 + call AddToAIScore + jr .done +.negative_score + ld b, a + ld a, $80 + sub b + call SubFromAIScore + +.done + ret +; 0x16dcd + +; this function handles moves with the FLAG_3_BIT_1 set, +; and makes specific checks in each of these moves +; to either return a positive score (value above $80) +; or a negative score (value below $80). +; input: +; hTempPlayAreaLocation_ff9d = location of card with move. +HandleSpecialAIMoves: ; 16dcd (5:6dcd) + ldh a, [hTempPlayAreaLocation_ff9d] + add DUELVARS_ARENA_CARD + call GetTurnDuelistVariable + call GetCardIDFromDeckIndex + ld a, e + + cp NIDORANF + jr z, HandleNidoranFCallForFamily + cp ODDISH + jr z, HandleCallForFamily + cp BELLSPROUT + jr z, HandleCallForFamily + cp EXEGGUTOR + jp z, HandleExeggcutorTeleport + cp SCYTHER + jp z, HandleSwordsDanceAndFocusEnergy + cp KRABBY + jr z, HandleCallForFamily + cp VAPOREON1 + jp z, HandleSwordsDanceAndFocusEnergy + cp ELECTRODE2 + jp z, HandleElectrode2ChainLightning + cp MAROWAK1 + jr z, HandleMarowak1CallForFriend + cp MEW3 + jp z, HandleMew3DevolutionBeam + cp JIGGLYPUFF2 + jp z, HandleJigglypuff2FriendshipSong + cp PORYGON + jp z, HandlePorygonConversion + cp MEWTWO3 + jp z, HandleEnergyAbsorption + cp MEWTWO2 + jp z, HandleEnergyAbsorption + cp NINETAILS2 + jp z, HandleNinetalesMixUp + cp ZAPDOS3 + jp z, HandleZapdos3BigThunder + cp KANGASKHAN + jp z, HandleKangaskhanFetch + cp DUGTRIO + jp z, HandleDugtrioEarthquake + cp ELECTRODE1 + jp z, HandleElectrode1EnergySpike + cp GOLDUCK + jp z, HandleHyperBeam + cp DRAGONAIR + jp z, HandleHyperBeam + +; return zero score. +.zero + xor a + ret + +; if any of card ID in a is found in deck, +; return a score of $80 + slots available in bench. +HandleCallForFamily: + ld a, CARD_LOCATION_DECK + call CheckIfAnyCardIDinLocation + jr nc, HandleSpecialAIMoves.zero + ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA + call GetTurnDuelistVariable + cp MAX_BENCH_POKEMON + jr nc, HandleSpecialAIMoves.zero + ld b, a + ld a, MAX_BENCH_POKEMON + sub b + add $80 + ret + +; if any of NidoranM or NidoranF is found in deck, +; return a score of $80 + slots available in bench. +HandleNidoranFCallForFamily: + ld e, NIDORANM + ld a, CARD_LOCATION_DECK + call CheckIfAnyCardIDinLocation + jr c, .found + ld e, NIDORANF + ld a, CARD_LOCATION_DECK + call CheckIfAnyCardIDinLocation + jr nc, HandleSpecialAIMoves.zero +.found + ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA + call GetTurnDuelistVariable + cp MAX_PLAY_AREA_POKEMON + jr nc, HandleSpecialAIMoves.zero + ld b, a + ld a, MAX_PLAY_AREA_POKEMON + sub b + add $80 + ret + +; checks for certain card IDs of Fighting color in deck. +; if any of them are found, return a score of +; $80 + slots available in bench. +HandleMarowak1CallForFriend + ld e, GEODUDE + ld a, CARD_LOCATION_DECK + call CheckIfAnyCardIDinLocation + jr c, .found + ld e, ONIX + ld a, CARD_LOCATION_DECK + call CheckIfAnyCardIDinLocation + jr c, .found + ld e, CUBONE + ld a, CARD_LOCATION_DECK + call CheckIfAnyCardIDinLocation + jr c, .found + ld e, RHYHORN + ld a, CARD_LOCATION_DECK + call CheckIfAnyCardIDinLocation + jr c, .found + jr HandleSpecialAIMoves.zero +.found + ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA + call GetTurnDuelistVariable + cp MAX_BENCH_POKEMON + jr nc, HandleSpecialAIMoves.zero + ld b, a + ld a, MAX_BENCH_POKEMON + sub b + add $80 + ret + +; if any basic cards are found in deck, +; return a score of $80 + slots available in bench. +HandleJigglypuff2FriendshipSong: ; 16ead (5:6ead) + call CheckIfAnyBasicPokemonInDeck + jr nc, HandleSpecialAIMoves.zero + ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA + call GetTurnDuelistVariable + cp MAX_PLAY_AREA_POKEMON + jr nc, HandleSpecialAIMoves.zero + ld b, a + ld a, MAX_PLAY_AREA_POKEMON + sub b + add $80 + ret + +; if AI decides to retreat, return a score of $80 + 10. +HandleExeggcutorTeleport: ; 16ec2 (5:6ec2) + call AIDecideWhetherToRetreat + jp nc, HandleSpecialAIMoves.zero + ld a, $8a + ret + +; tests for the following conditions: +; - player is under No Damage substatus; +; - second move is unusable; +; - second move deals no damage; +; if any are true, returns score of $80 + 5. +HandleSwordsDanceAndFocusEnergy: ; 16ecb (5:6ecb) + ld a, [wAICannotDamage] + or a + jr nz, .success + ld a, $01 ; second move + ld [wSelectedMoveIndex], a + call CheckIfSelectedMoveIsUnusable + jr c, .success + ld a, $01 ; second move + call EstimateDamage_VersusDefendingCard + ld a, [wDamage] + or a + jp nz, HandleSpecialAIMoves.zero +.success + ld a, $85 + ret + +; checks player's active card color, then +; loops through bench looking for a Pokémon +; with that same color. +; if none are found, returns score of $80 + 2. +HandleElectrode2ChainLightning: ; 16eea (5:6eea) + call SwapTurn + call GetArenaCardColor + call SwapTurn + ld b, a + ld a, DUELVARS_BENCH + call GetTurnDuelistVariable +.loop + ld a, [hli] + cp $ff + jr z, .success + push bc + call GetCardIDFromDeckIndex + call GetCardType + pop bc + cp b + jr nz, .loop + jp HandleSpecialAIMoves.zero +.success + ld a, $82 + ret -Func_1689f ; 1689f (5:689f) - INCROM $1689f, $169f8 +HandleMew3DevolutionBeam: ; 16f0f (5:6f0f) + call LookForCardThatIsKnockedOutOnDevolution + jp nc, HandleSpecialAIMoves.zero + ld a, $85 + ret -Func_169f8 ; 169f8 (5:69f8) - INCROM $169f8, $170c9 +; first checks if card is confused, and if so return 0. +; then checks number of Pokémon in bench that are viable to use: +; - if that number is < 2 and this move is Conversion 1 OR +; - if that number is >= 2 and this move is Conversion 2 +; then return score of $80 + 2. +; otherwise return score of $80 + 1. +HandlePorygonConversion: ; 16f18 (5:6f18) + ld a, DUELVARS_ARENA_CARD_STATUS + call GetTurnDuelistVariable + and CNF_SLP_PRZ + cp CONFUSED + jp z, HandleSpecialAIMoves.zero + + ld a, [wSelectedMoveIndex] + or a + jr nz, .conversion_2 + +; conversion 1 + call CheckIfBenchCardsAreAtHalfHPCanEvolveAndUseSecondMove + cp 2 + jr c, .low_score + ld a, $82 + ret + +.conversion_2 + call CheckIfBenchCardsAreAtHalfHPCanEvolveAndUseSecondMove + cp 2 + jr nc, .low_score + ld a, $82 + ret + +.low_score + ld a, $81 + ret + +; if any Psychic Energy is found in the Discard Pile, +; return a score of $80 + 2. +HandleEnergyAbsorption: ; 16f41 (5:6f41) + ld e, PSYCHIC_ENERGY + ld a, CARD_LOCATION_DISCARD_PILE + call CheckIfAnyCardIDinLocation + jp nc, HandleSpecialAIMoves.zero + ld a, $82 + ret + +; if player has cards in hand, AI calls Random: +; - 1/3 chance to encourage move regardless; +; - 1/3 chance to dismiss move regardless; +; - 1/3 change to make some checks to player's hand. +; AI tallies number of basic cards in hand, and if this +; number is >= 2, encourage move. +; otherwise, if it finds an evolution card in hand that +; can evolve a card in player's deck, encourage. +; if encouraged, returns a score of $80 + 3. +HandleNinetalesMixUp: ; 16f4e (5:6f4e) + ld a, DUELVARS_NUMBER_OF_CARDS_IN_HAND + call GetNonTurnDuelistVariable + or a + ret z + + ld a, 3 + call Random + or a + jr z, .encourage + dec a + ret z + call SwapTurn + call CreateHandCardList + call SwapTurn + or a + ret z ; return if no hand cards (again) + ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA + call GetNonTurnDuelistVariable + cp 3 + jr nc, .check_play_area + + ld hl, wDuelTempList + ld b, 0 +.loop_hand + ld a, [hli] + cp $ff + jr z, .tally_basic_cards + push bc + call SwapTurn + call LoadCardDataToBuffer2_FromDeckIndex + call SwapTurn + pop bc + ld a, [wLoadedCard2Type] + cp TYPE_ENERGY + jr nc, .loop_hand + ld a, [wLoadedCard2Stage] + or a + jr nz, .loop_hand + ; is a basic Pokémon card + inc b + jr .loop_hand +.tally_basic_cards + ld a, b + cp 2 + jr nc, .encourage + +; less than 2 basic cards in hand +.check_play_area + ld a, DUELVARS_ARENA_CARD + call GetNonTurnDuelistVariable +.loop_play_area + ld a, [hli] + cp $ff + jp z, HandleSpecialAIMoves.zero + push hl + call SwapTurn + call CheckForEvolutionInList + call SwapTurn + pop hl + jr nc, .loop_play_area + +.encourage + ld a, $83 + ret + +; return score of $80 + 3. +HandleZapdos3BigThunder: ; 16fb8 (5:6fb8) + ld a, $83 + ret + +; dismiss move if cards in deck <= 20. +; otherwise return a score of $80 + 0. +HandleKangaskhanFetch: ; 16fbb (5:6fbb) + ld a, DUELVARS_NUMBER_OF_CARDS_NOT_IN_DECK + call GetTurnDuelistVariable + cp 41 + jp nc, HandleSpecialAIMoves.zero + ld a, $80 + ret + +; dismiss move if number of own benched cards which would +; be KOd is greater than or equal to the number +; of prize cards left for player. +HandleDugtrioEarthquake: ; 16fc8 (5:6fc8) + ld a, DUELVARS_BENCH + call GetTurnDuelistVariable + + lb de, 0, 0 +.loop + inc e + ld a, [hli] + cp $ff + jr z, .count_prizes + ld a, e + add DUELVARS_ARENA_CARD_HP + call GetTurnDuelistVariable + cp 20 + jr nc, .loop + inc d + jr .loop + +.count_prizes + push de + call CountPrizes + pop de + cp d + jp c, HandleSpecialAIMoves.zero + jp z, HandleSpecialAIMoves.zero + ld a, $80 + ret + +; if there's any lightning energy cards in deck, +; return a score of $80 + 3. +HandleElectrode1EnergySpike: ; 16ff2 (5:6ff2) + ld a, CARD_LOCATION_DECK + ld e, LIGHTNING_ENERGY + call CheckIfAnyCardIDinLocation + jp nc, HandleSpecialAIMoves.zero + call Func_164a1 + jp nc, HandleSpecialAIMoves.zero + ld a, $83 + ret + +; only incentivize move if player's active card, +; has any energy cards attached, and if so, +; return a score of $80 + 3. +HandleHyperBeam: ; 17005 (5:7005) + call SwapTurn + ld e, PLAY_AREA_ARENA + call CountNumberOfEnergyCardsAttached + call SwapTurn + or a + jr z, .keep_score + ld a, $83 + ret +.keep_score + ld a, $80 + ret +; 0x17019 + +; called when second attack is determined by AI to have +; more AI score than the first attack, so that it checks +; whether the first attack is a better alternative. +CheckWhetherToSwitchToFirstAttack: ; 17019 (5:7019) +; this checks whether the first attack is also viable +; (has more than minimum score to be used) + ld a, [wPlayAreaAIScore] + cp $50 + jr c, .keep_second_attack + +; first attack has more than minimum score to be used. +; check if second attack can KO. +; in case it can't, the AI keeps it as the attack to be used. +; (possibly due to the assumption that if the +; second attack cannot KO, the first attack can't KO as well.) + xor a + ldh [hTempPlayAreaLocation_ff9d], a + call EstimateDamage_VersusDefendingCard + ld a, DUELVARS_ARENA_CARD_HP + call GetNonTurnDuelistVariable + ld hl, wDamage + sub [hl] + jr z, .check_flag + jr nc, .keep_second_attack + +; second attack can ko, check its flag. +; in case its effect is to heal user or nullify/weaken damage +; next turn, keep second move as the option. +; otherwise switch to the first attack. +.check_flag + ld a, DUELVARS_ARENA_CARD + call GetTurnDuelistVariable + ld d, a + ld e, $01 ; second attack + call CopyMoveDataAndDamage_FromDeckIndex + ld a, MOVE_FLAG2_ADDRESS | HEAL_USER_F + call CheckLoadedMoveFlag + jr c, .keep_second_attack + ld a, MOVE_FLAG2_ADDRESS | NULLIFY_OR_WEAKEN_ATTACK_F + call CheckLoadedMoveFlag + jr c, .keep_second_attack +; switch to first attack + xor a + ld [wSelectedMoveIndex], a + ret +.keep_second_attack + ld a, $01 + ld [wSelectedMoveIndex], a + ret +; 0x17057 + +; returns carry if there are +; any basic Pokémon cards in deck. +CheckIfAnyBasicPokemonInDeck: ; 17057 (5:7057) + ld e, 0 +.loop + ld a, DUELVARS_CARD_LOCATIONS + add e + call GetTurnDuelistVariable + cp CARD_LOCATION_DECK + jr nz, .next + push de + ld a, e + call LoadCardDataToBuffer2_FromDeckIndex + pop de + ld a, [wLoadedCard2Type] + cp TYPE_ENERGY + jr nc, .next + ld a, [wLoadedCard2Stage] + or a + jr z, .set_carry +.next + inc e + ld a, DECK_SIZE + cp e + jr nz, .loop + or a + ret +.set_carry + scf + ret +; 0x17080 + +; checks in other Play Area for non-basic cards. +; afterwards, that card is checked for damage, +; and if the damage counters it has is greater than or equal +; to the max HP of the card stage below it, +; return carry and that card's Play Area location in a. +; output: +; a = card location of Pokémon card, if found; +; cerry set if such a card is found. +LookForCardThatIsKnockedOutOnDevolution: ; 17080 (5:7080) + ldh a, [hTempPlayAreaLocation_ff9d] + push af + call SwapTurn + ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA + call GetTurnDuelistVariable + ld b, a + ld c, PLAY_AREA_ARENA + +.loop + ld a, c + ldh [hTempPlayAreaLocation_ff9d], a + push bc + bank1call GetCardOneStageBelow + pop bc + jr c, .next + ; is not a basic card + ; compare its HP with current damage + ld a, d + push bc + call LoadCardDataToBuffer2_FromDeckIndex + pop bc + ld a, [wLoadedCard2HP] + ld [wTempAI], a + ld e, c + push bc + call GetCardDamage + pop bc + ld e, a + ld a, [wTempAI] + cp e + jr c, .set_carry + jr z, .set_carry +.next + inc c + ld a, c + cp b + jr nz, .loop + + call SwapTurn + pop af + ldh [hTempPlayAreaLocation_ff9d], a + or a + ret + +.set_carry + call SwapTurn + pop af + ldh [hTempPlayAreaLocation_ff9d], a + ld a, c + scf + ret +; 0x170c9 ; returns carry if the following conditions are met: ; - arena card HP >= half max HP @@ -4227,18 +6177,18 @@ CheckIfArenaCardIsAtHalfHPCanEvolveAndUseSecondMove: ; 170c9 (5:70c9) ld a, [wLoadedCard1Unknown2] and %00010000 - jr z, .check_second_move + jr z, .check_second_attack ld a, d call CheckCardEvolutionInHandOrDeck jr c, .no_carry -.check_second_move +.check_second_attack xor a ; active card ldh [hTempPlayAreaLocation_ff9d], a ld a, $01 ; second move ld [wSelectedMoveIndex], a push hl - call CheckIfCardCanUseSelectedMove + call CheckIfSelectedMoveIsUnusable pop hl jr c, .no_carry scf @@ -4255,7 +6205,7 @@ CheckIfArenaCardIsAtHalfHPCanEvolveAndUseSecondMove: ; 170c9 (5:70c9) ; is set but there's no evolution of card in hand/deck ; - card can use second move ; Also outputs the number of Pokémon in bench -; that meet these requirements in b +; that meet these requirements in a CheckIfBenchCardsAreAtHalfHPCanEvolveAndUseSecondMove: ; 17101 (5:7101) ldh a, [hTempPlayAreaLocation_ff9d] ld d, a @@ -4291,7 +6241,7 @@ CheckIfBenchCardsAreAtHalfHPCanEvolveAndUseSecondMove: ; 17101 (5:7101) ld a, [wLoadedCard1Unknown2] and $10 - jr z, .check_second_move + jr z, .check_second_attack ld a, d push bc @@ -4299,14 +6249,14 @@ CheckIfBenchCardsAreAtHalfHPCanEvolveAndUseSecondMove: ; 17101 (5:7101) pop bc jr c, .next -.check_second_move +.check_second_attack ld a, c ldh [hTempPlayAreaLocation_ff9d], a ld a, $01 ; second move ld [wSelectedMoveIndex], a push bc push hl - call CheckIfCardCanUseSelectedMove + call CheckIfSelectedMoveIsUnusable pop hl pop bc jr c, .next @@ -4337,7 +6287,9 @@ Func_17161 ; 17161 (5:7161) ; input: ; [hTempPlayAreaLocation_ff9d] = play area location ; [wSelectedMoveIndex] = move index to check -Func_171fb: ; 171fb (5:71fb) +; output: +; a = number of extra energy cards attached +CheckIfNoSurplusEnergyForMove: ; 171fb (5:71fb) ldh a, [hTempPlayAreaLocation_ff9d] add DUELVARS_ARENA_CARD call GetTurnDuelistVariable @@ -4394,7 +6346,7 @@ Func_171fb: ; 171fb (5:71fb) or a ret nz ; return if surplus energy -; exactly the amount of energy needed + ; exactly the amount of energy needed scf ret ; 0x17258 @@ -4434,16 +6386,19 @@ CalculateParticularAttachedEnergyNeeded: ; 17258 (5:7258) ; 0x17274 ; return carry if there is a card that -; can evolve a Pokémon in hand or deck +; can evolve a Pokémon in hand or deck. ; input: -; a = deck index of card to check +; a = deck index of card to check; +; output: +; a = deck index of evolution in hand, if found; +; carry set if there's a card in hand that can evolve. CheckCardEvolutionInHandOrDeck: ; 17274 (5:7274) ld b, a ld a, DUELVARS_ARENA_CARD call GetTurnDuelistVariable push af ld [hl], b - ld e, $00 + ld e, 0 .loop ld a, DUELVARS_CARD_LOCATIONS @@ -4494,18 +6449,18 @@ CheckIfCanDamageDefendingPokemon: ; 17383 (5:7383) ldh [hTempPlayAreaLocation_ff9d], a xor a ; first move ld [wSelectedMoveIndex], a - call CheckIfCardCanUseSelectedMove - jr c, .second_move + call CheckIfSelectedMoveIsUnusable + jr c, .second_attack xor a call EstimateDamage_VersusDefendingCard ld a, [wDamage] or a jr nz, .set_carry -.second_move +.second_attack ld a, $01 ; second move ld [wSelectedMoveIndex], a - call CheckIfCardCanUseSelectedMove + call CheckIfSelectedMoveIsUnusable jr c, .no_carry ld a, $01 call EstimateDamage_VersusDefendingCard @@ -4536,11 +6491,11 @@ CheckIfDefendingPokemonCanKnockOut: ; 173b1 (5:73b1) ld [wce00], a ld [wce01], a call CheckIfDefendingPokemonCanKnockOutWithMove - jr nc, .second_move + jr nc, .second_attack ld a, [wDamage] ld [wce00], a -.second_move +.second_attack ld a, $01 ; second move call CheckIfDefendingPokemonCanKnockOutWithMove jr nc, .return_if_neither_kos @@ -4577,7 +6532,7 @@ CheckIfDefendingPokemonCanKnockOutWithMove: ; 173e4 (5:73e4) xor a ldh [hTempPlayAreaLocation_ff9d], a call SwapTurn - call CheckIfCardCanUseSelectedMove + call CheckIfSelectedMoveIsUnusable call SwapTurn pop bc ld a, b @@ -4644,8 +6599,49 @@ CheckIfNotABossDeckID: ; 17426 (5:7426) ret ; 0x1743b -Func_1743b ; 1743b (5:743b) - INCROM $1743b, $17474 +; probability to return carry: +; - 50% if deck AI is playing is on the list; +; - 25% for all other decks. +Func_1743b: ; 1743b (5:743b) + push hl + push de + call CheckIfNotABossDeckID + jr c, .check_deck + pop de + pop hl + ret + +.check_deck + ld a, [wOpponentDeckID] + cp MUSCLES_FOR_BRAINS_DECK_ID + jr z, .carry_50_percent + cp BLISTERING_POKEMON_DECK_ID + jr z, .carry_50_percent + cp WATERFRONT_POKEMON_DECK_ID + jr z, .carry_50_percent + cp BOOM_BOOM_SELFDESTRUCT_DECK_ID + jr z, .carry_50_percent + cp KALEIDOSCOPE_DECK_ID + jr z, .carry_50_percent + cp RESHUFFLE_DECK_ID + jr z, .carry_50_percent + +; carry 25 percent + ld a, 4 + call Random + cp 1 + pop de + pop hl + ret + +.carry_50_percent + ld a, 4 + call Random + cp 2 + pop de + pop hl + ret +; 0x17474 ; checks if any bench Pokémon has same ID ; as input, and sets carry if it has more than @@ -4698,7 +6694,7 @@ CheckForBenchIDAtHalfHPAndCanUseSecondMove: ; 17474 (5:7474) ld a, $01 ; second move ld [wSelectedMoveIndex], a push bc - call CheckIfCardCanUseSelectedMove + call CheckIfSelectedMoveIsUnusable pop bc jr c, .loop inc b @@ -4720,7 +6716,7 @@ CheckForBenchIDAtHalfHPAndCanUseSecondMove: ; 17474 (5:7474) ; in bench that have same ID as register a ; input: ; a = card ID to look for -Func_174cd: ; 174cd (5:74cd) +RaiseAIScoreToAllMatchingIDsInBench: ; 174cd (5:74cd) ld d, a ld a, DUELVARS_BENCH call GetTurnDuelistVariable @@ -4922,17 +6918,17 @@ Func_175a8: ; 175a8 (5:75a8) ret ; 0x175bd -; handle Legendary Articuno deck -; card IDs in bench -Func_175bd: ; 175bd (5:75bd) +; handle how AI scores giving out Energy Cards +; when using Legendary Articuno deck +HandleLegendaryArticunoEnergyScoring: ; 175bd (5:75bd) ld a, [wOpponentDeckID] cp LEGENDARY_ARTICUNO_DECK_ID jr z, .articuno_deck ret .articuno_deck - call Func_14c91 + call ScoreLegendaryArticunoCards ret ; 0x175c9 Func_175c9 ; 175c9 (5:75c9) - INCROM $175c9, $18000
\ No newline at end of file + INCROM $175c9, $18000 diff --git a/src/engine/bank08.asm b/src/engine/bank08.asm index 15ff62a..48ed23f 100644 --- a/src/engine/bank08.asm +++ b/src/engine/bank08.asm @@ -1,80 +1,135 @@ - INCROM $20000, $200e5 +; unknown byte / card ID / function pointer 1 / function pointer 2 +unknown_data_20000: MACRO + db \1, \2 + dw \3 + dw \4 +ENDM -; 0 - e4 is a big set of data, seems to be one entry for each card +Data_20000: ; 20000 (8:4000) + unknown_data_20000 $07, POTION, CheckIfPotionPreventsKnockOut, AIPlayPotion + unknown_data_20000 $0a, POTION, FindTargetCardForPotion, AIPlayPotion + unknown_data_20000 $08, SUPER_POTION, CheckIfSuperPotionPreventsKnockOut, AIPlaySuperPotion + unknown_data_20000 $0b, SUPER_POTION, FindTargetCardForSuperPotion, AIPlaySuperPotion + unknown_data_20000 $0d, DEFENDER, CheckIfDefenderPreventsKnockOut, AIPlayDefender + unknown_data_20000 $0e, DEFENDER, CheckIfDefenderPreventsRecoilKnockOut, AIPlayDefender + unknown_data_20000 $0d, PLUSPOWER, $4501, AIPlayPluspower + unknown_data_20000 $0e, PLUSPOWER, $45a5, AIPlayPluspower + unknown_data_20000 $09, SWITCH, $462e, $4612 + unknown_data_20000 $07, GUST_OF_WIND, $467e, $4666 + unknown_data_20000 $0a, GUST_OF_WIND, $467e, $4666 + unknown_data_20000 $04, BILL, $4878, $486d + unknown_data_20000 $05, ENERGY_REMOVAL, $4895, $4880 + unknown_data_20000 $05, SUPER_ENERGY_REMOVAL, $49bc, $4994 + unknown_data_20000 $07, POKEMON_BREEDER, $4b1b, $4b06 + unknown_data_20000 $0f, PROFESSOR_OAK, $4cc1, $4cae + unknown_data_20000 $0a, ENERGY_RETRIEVAL, $4e6e, $4e44 + unknown_data_20000 $0b, SUPER_ENERGY_RETRIEVAL, $4fc1, $4f80 + unknown_data_20000 $06, POKEMON_CENTER, $50eb, $50e0 + unknown_data_20000 $07, IMPOSTER_PROFESSOR_OAK, $517b, $5170 + unknown_data_20000 $0c, ENERGY_SEARCH, $51aa, $519a + unknown_data_20000 $03, POKEDEX, $52dc, $52b4 + unknown_data_20000 $07, FULL_HEAL, $5428, $541d + unknown_data_20000 $0a, MR_FUJI, $54a7, $5497 + unknown_data_20000 $0a, SCOOP_UP, $5506, $54f1 + unknown_data_20000 $02, MAINTENANCE, $562c, $560f + unknown_data_20000 $03, RECYCLE, $56b8, $569a + unknown_data_20000 $0d, LASS, $5768, $5755 + unknown_data_20000 $04, ITEM_FINDER, $57b1, $578f + unknown_data_20000 $01, IMAKUNI_CARD, $581e, $5813 + unknown_data_20000 $01, GAMBLER, $5875, $582d + unknown_data_20000 $05, REVIVE, $58a9, $5899 + unknown_data_20000 $0d, POKEMON_FLUTE, $58e8, $58d8 + unknown_data_20000 $05, CLEFAIRY_DOLL, $5982, $5977 + unknown_data_20000 $05, MYSTERIOUS_FOSSIL, $5982, $5977 + unknown_data_20000 $02, POKE_BALL, $59c6, $59a6 + unknown_data_20000 $02, COMPUTER_SEARCH, $5b34, $5b12 + unknown_data_20000 $02, POKEMON_TRADER, $5d8f, $5d7a + db $ff Func_200e5: ; 200e5 (8:40e5) ld [wce18], a +; create hand list in wDuelTempList and wTempHandCardList. call CreateHandCardList ld hl, wDuelTempList ld de, wTempHandCardList call CopyBuffer ld hl, wTempHandCardList + +.loop_hand ld a, [hli] ld [wce16], a cp $ff ret z + push hl ld a, [wce18] ld d, a - ld hl, $4000 -.asm_4106 + ld hl, Data_20000 +.loop_data xor a ld [wce21], a ld a, [hli] cp $ff - jp z, $41b1 + jp z, .pop_hl + +; compare input to first byte in data and continue if equal. cp d - jp nz, .incHL5 + jp nz, .inc_hl_by_5 ld a, [hli] ld [wce17], a ld a, [wce16] call LoadCardDataToBuffer1_FromDeckIndex - cp $d2 - jr nz, .asm_2012b + cp SWITCH + jr nz, .skip_switch_check + ld b, a ld a, [wce20] - and $2 - jr nz, .incHL4 + and $02 + jr nz, .inc_hl_by_4 ld a, b -.asm_2012b +.skip_switch_check +; compare hand card to second byte in data and continue if equal. ld b, a ld a, [wce17] cp b - jr nz, .incHL4 + jr nz, .inc_hl_by_4 + push hl push de ld a, [wce16] ldh [hTempCardIndex_ff9f], a bank1call CheckCantUseTrainerDueToHeadache - jp c, $41a8 + jp c, .next_in_data call LoadNonPokemonCardEffectCommands ld a, EFFECTCMDTYPE_INITIAL_EFFECT_1 call TryExecuteEffectCommandFunction - jp c, $41a8 - farcall $5, $743b - jr c, .asm_201a8 + jp c, .next_in_data + farcall Func_1743b + jr c, .next_in_data pop de pop hl push hl call CallIndirect pop hl - jr nc, .incHL4 + jr nc, .inc_hl_by_4 inc hl inc hl ld [wce19], a + push de push hl ld a, [wce16] ldh [hTempCardIndex_ff9f], a - ld a, $6 - bank1call $67be + ld a, OPPACTION_PLAY_TRAINER + bank1call AIMakeDecision pop hl pop de - jr c, .incHL2 + jr c, .inc_hl_by_2 push hl call CallIndirect pop hl + inc hl inc hl ld a, [wce20] @@ -83,41 +138,864 @@ Func_200e5: ; 200e5 (8:40e5) or b ld [wce20], a pop hl - and $8 - jp z, $40f7 + and $08 + jp z, .loop_hand + +.asm_20186 ; 20186 (8:4186) call CreateHandCardList ld hl, wDuelTempList ld de, wTempHandCardList - call $697b + call CopyBuffer ld hl, wTempHandCardList ld a, [wce20] and $f7 ld [wce20], a - jp $40f7 + jp .loop_hand -.incHL5 +.inc_hl_by_5 inc hl - -.incHL4 +.inc_hl_by_4 inc hl inc hl - -.incHL2 +.inc_hl_by_2 inc hl inc hl - jp .asm_4106 + jp .loop_data -.asm_201a8 +.next_in_data pop de pop hl inc hl inc hl inc hl inc hl - jp .asm_4106 -; 0x201b1 + jp .loop_data + +.pop_hl + pop hl + jp .loop_hand +; 0x201b5 + +; makes AI use Potion card. +AIPlayPotion: ; 201b5 (8:41b5) + ld a, [wce16] + ldh [hTempCardIndex_ff9f], a + ld a, [wce19] + ldh [hTemp_ffa0], a + ld e, a + call GetCardDamage + cp 20 + jr c, .play_card + ld a, 20 +.play_card + ldh [hTempPlayAreaLocation_ffa1], a + ld a, OPPACTION_EXECUTE_TRAINER_EFFECTS + bank1call AIMakeDecision + ret +; 0x201d1 + +; if AI doesn't decide to retreat this card, +; check if defending Pokémon can KO active card +; next turn after using Potion. +; if it cannot, return carry. +; also take into account whether move is high recoil. +CheckIfPotionPreventsKnockOut: ; 201d1 (8:41d1) + farcall AIDecideWhetherToRetreat + jr c, .no_carry + call Func_22bad + jr c, .no_carry + xor a ; active card + ldh [hTempPlayAreaLocation_ff9d], a + farcall CheckIfDefendingPokemonCanKnockOut + jr nc, .no_carry + ld d, a + + ld a, DUELVARS_ARENA_CARD_HP + call GetTurnDuelistVariable + ld h, a + ld e, PLAY_AREA_ARENA + call GetCardDamage + cp 20 + 1 ; if damage <= 20 + jr c, .calculate_hp + ld a, 20 ; amount of Potion HP healing + +; if damage done by defending Pokémon next turn will still +; KO this card after healing, return no carry. +.calculate_hp + ld l, a + ld a, h + add l + sub d + jr c, .no_carry + jr z, .no_carry + +; return carry. + xor a + scf + ret +.no_carry + or a + ret +; 0x20204 + +; finds a card in Play Area to use Potion on. +; output: +; a = card to use Potion on; +; carry set if Potion should be used. +FindTargetCardForPotion: ; 20204 (8:4204) + xor a + ldh [hTempPlayAreaLocation_ff9d], a + farcall CheckIfDefendingPokemonCanKnockOut + jr nc, .start_from_active +; can KO + ld d, a + ld a, DUELVARS_ARENA_CARD_HP + call GetTurnDuelistVariable + ld h, a + ld e, PLAY_AREA_ARENA + call GetCardDamage + cp 20 + 1 ; if damage <= 20 + jr c, .calculate_hp + ld a, 20 +; return if using healing prevents KO. +.calculate_hp + ld l, a + ld a, h + add l + sub d + jr c, .count_prizes + jr z, .count_prizes + or a + ret + +; using Potion on active card does not prevent a KO. +; if player is at last prize, start loop with active card. +; otherwise start loop at first bench Pokémon. +.count_prizes + call SwapTurn + call CountPrizes + call SwapTurn + dec a + jr z, .start_from_active + ld e, PLAY_AREA_BENCH_1 + jr .loop + +; find Play Area Pokémon with more than 10 damage. +; skip Pokémon if it has a BOOST_IF_TAKEN_DAMAGE attack. +.start_from_active + ld e, PLAY_AREA_ARENA +.loop + ld a, DUELVARS_ARENA_CARD + add e + call GetTurnDuelistVariable + cp $ff + ret z + call .check_boost_if_taken_damage + jr c, .has_boost_damage + call GetCardDamage + cp 20 ; if damage >= 20 + jr nc, .found +.has_boost_damage + inc e + jr .loop + +; a card was found, now to check if it's active or benched. +.found + ld a, e + or a + jr z, .active_card + +; bench card + push de + call SwapTurn + call CountPrizes + call SwapTurn + dec a + or a + jr z, .check_random + ld a, 10 + call Random + cp 3 +; 7/10 chance of returning carry. +.check_random + pop de + jr c, .no_carry + ld a, e + scf + ret + +; return carry for active card if not Hgh Recoil. +.active_card + push de + call Func_22bad + pop de + jr c, .no_carry + ld a, e + scf + ret +.no_carry + or a + ret +; 0x2027e + +; return carry if either of the attacks are usable +; and have the BOOST_IF_TAKEN_DAMAGE effect. +.check_boost_if_taken_damage ; 2027e (8:427e) + push de + xor a ; first attack + ld [wSelectedMoveIndex], a + farcall CheckIfSelectedMoveIsUnusable + jr c, .second_attack + ld a, MOVE_FLAG3_ADDRESS | BOOST_IF_TAKEN_DAMAGE_F + call CheckLoadedMoveFlag + jr c, .set_carry +.second_attack + ld a, $01 ; second attack + ld [wSelectedMoveIndex], a + farcall CheckIfSelectedMoveIsUnusable + jr c, .false + ld a, MOVE_FLAG3_ADDRESS | BOOST_IF_TAKEN_DAMAGE_F + call CheckLoadedMoveFlag + jr c, .set_carry +.false + pop de + or a + ret +.set_carry + pop de + scf + ret +; 0x202a8 + +; makes AI use Super Potion card. +AIPlaySuperPotion: ; 202a8 (8:42a8) + ld a, [wce16] + ldh [hTempCardIndex_ff9f], a + ld a, [wce19] + ldh [hTempPlayAreaLocation_ffa1], a + call GetEnergyCardToDiscard + ldh [hTemp_ffa0], a + ld a, [wce19] + ld e, a + call GetCardDamage + cp 40 + jr c, .play_card + ld a, 40 +.play_card + ldh [hTempRetreatCostCards], a + ld a, OPPACTION_EXECUTE_TRAINER_EFFECTS + bank1call AIMakeDecision + ret +; 0x202cc + +; if AI doesn't decide to retreat this card and card has +; any energy cards attached, check if defending Pokémon can KO +; active card next turn after using Super Potion. +; if it cannot, return carry. +; also take into account whether move is high recoil. +CheckIfSuperPotionPreventsKnockOut: ; 202cc (8:42cc) + farcall AIDecideWhetherToRetreat + jr c, .no_carry + call Func_22bad + jr c, .no_carry + xor a + ldh [hTempPlayAreaLocation_ff9d], a + ld e, a + call .check_attached_energy + ret nc + farcall CheckIfDefendingPokemonCanKnockOut + jr nc, .no_carry + + ld d, a + ld d, a + ld a, DUELVARS_ARENA_CARD_HP + call GetTurnDuelistVariable + ld h, a + ld e, $00 + call GetCardDamage + cp 40 + 1 ; if damage < 40 + jr c, .calculate_hp + ld a, 40 +.calculate_hp + ld l, a + ld a, h + add l + sub d + jr c, .no_carry + jr z, .no_carry + +; return carry + ld a, e + scf + ret +.no_carry + or a + ret +; 0x20305 + +; returns carry if card has energies attached. +.check_attached_energy ; 20305 (8:4305) + call GetPlayAreaCardAttachedEnergies + ld a, [wTotalAttachedEnergies] + or a + ret z + scf + ret +; 0x2030f + +; finds a card in Play Area to use Super Potion on. +; output: +; a = card to use Super Potion on; +; carry set if Super Potion should be used. +FindTargetCardForSuperPotion: ; 2030f (8:430f) + xor a + ldh [hTempPlayAreaLocation_ff9d], a + farcall CheckIfDefendingPokemonCanKnockOut + jr nc, .start_from_active +; can KO + ld d, a + ld a, DUELVARS_ARENA_CARD_HP + call GetTurnDuelistVariable + ld h, a + ld e, $00 + call GetCardDamage + cp 40 + 1 ; if damage < 40 + jr c, .calculate_hp + ld a, 40 +; return if using healing prevents KO. +.calculate_hp + ld l, a + ld a, h + add l + sub d + jr c, .count_prizes + jr z, .count_prizes + or a + ret + +; using Super Potion on active card does not prevent a KO. +; if player is at last prize, start loop with active card. +; otherwise start loop at first bench Pokémon. +.count_prizes + call SwapTurn + call CountPrizes + call SwapTurn + dec a + jr z, .start_from_active + ld e, PLAY_AREA_BENCH_1 + jr .loop + +; find Play Area Pokémon with more than 30 damage. +; skip Pokémon if it doesn't have any energy attached, +; has a BOOST_IF_TAKEN_DAMAGE attack, +; or if discarding makes any attack of its attacks unusable. +.start_from_active + ld e, PLAY_AREA_ARENA +.loop + ld a, DUELVARS_ARENA_CARD + add e + call GetTurnDuelistVariable + cp $ff + ret z + ld d, a + call .check_attached_energy + jr nc, .next + call .check_boost_if_taken_damage + jr c, .next + call .check_energy_cost + jr c, .next + call GetCardDamage + cp 40 ; if damage >= 40 + jr nc, .found +.next + inc e + jr .loop + +; a card was found, now to check if it's active or benched. +.found + ld a, e + or a + jr z, .active_card + +; bench card + push de + call SwapTurn + call CountPrizes + call SwapTurn + dec a + or a + jr z, .check_random + ld a, 10 + call Random + cp 3 +; 7/10 chance of returning carry. +.check_random + pop de + jr c, .no_carry + ld a, e + scf + ret + +; return carry for active card if not Hgh Recoil. +.active_card + push de + call Func_22bad + pop de + jr c, .no_carry + ld a, e + scf + ret +.no_carry + or a + ret +; 0x20394 + +; returns carry if card has energies attached. +.check_attached_energy ; 20394 (8:4394) + call GetPlayAreaCardAttachedEnergies + ld a, [wTotalAttachedEnergies] + or a + ret z + scf + ret +; 0x2039e + +; return carry if either of the attacks are usable +; and have the BOOST_IF_TAKEN_DAMAGE effect. +.check_boost_if_taken_damage ; 2039e (8:439e) + push de + xor a ; first attack + ld [wSelectedMoveIndex], a + farcall CheckIfSelectedMoveIsUnusable + jr c, .second_attack_1 + ld a, MOVE_FLAG3_ADDRESS | BOOST_IF_TAKEN_DAMAGE_F + call CheckLoadedMoveFlag + jr c, .true_1 +.second_attack_1 + ld a, $01 ; second attack + ld [wSelectedMoveIndex], a + farcall CheckIfSelectedMoveIsUnusable + jr c, .false_1 + ld a, MOVE_FLAG3_ADDRESS | BOOST_IF_TAKEN_DAMAGE_F + call CheckLoadedMoveFlag + jr c, .true_1 +.false_1 + pop de + or a + ret +.true_1 + pop de + scf + ret +; 0x203c8 + +; returns carry if discarding energy card renders any attack unusable, +; given that they have enough energy to be used before discarding. +.check_energy_cost ; 203c8 (8:43c8) + push de + xor a ; first attack + ld [wSelectedMoveIndex], a + ld a, e + ldh [hTempPlayAreaLocation_ff9d], a + farcall CheckEnergyNeededForAttack + jr c, .second_attack_2 + farcall CheckEnergyNeededForAttackAfterDiscard + jr c, .true_2 + +.second_attack_2 + pop de + push de + ld a, $01 ; second attack + ld [wSelectedMoveIndex], a + ld a, e + ldh [hTempPlayAreaLocation_ff9d], a + farcall CheckEnergyNeededForAttack + jr c, .false_2 + farcall CheckEnergyNeededForAttackAfterDiscard + jr c, .true_2 + +.false_2 + pop de + or a + ret +.true_2 + pop de + scf + ret +; 0x203f8 + +AIPlayDefender: ; 203f8 (8:43f8) + ld a, [wce16] + ldh [hTempCardIndex_ff9f], a + xor a + ldh [hTemp_ffa0], a + ld a, OPPACTION_EXECUTE_TRAINER_EFFECTS + bank1call AIMakeDecision + ret +; 0x20406 + +; returns carry if using Defender can prevent a KO +; by the defending Pokémon. +; this takes into account both attacks and whether they're useable. +CheckIfDefenderPreventsKnockOut: ; 20406 (8:4406) + xor a + ldh [hTempPlayAreaLocation_ff9d], a + farcall CheckIfAnyMoveKnocksOutDefendingCard + jr nc, .asm_2041b + farcall CheckIfSelectedMoveIsUnusable + jr nc, .no_carry + farcall LookForEnergyNeededForMoveInHand + jr c, .no_carry + +.asm_2041b +; check if any of the defending Pokémon's attacks deal +; damage exactly equal to current HP, and if so, +; only continue if that move is useable. + farcall CheckIfAnyDefendingPokemonAttackDealsSameDamageAsHP + jr nc, .no_carry + call SwapTurn + farcall CheckIfSelectedMoveIsUnusable + call SwapTurn + jr c, .no_carry + + ld a, [wSelectedMoveIndex] + farcall EstimateDamage_FromDefendingPokemon + ld a, [wDamage] + ld [wce06], a + ld d, a + +; load in a the attack that was not selected, +; and check if it is useable. + ld a, [wSelectedMoveIndex] + ld b, a + ld a, $01 + sub b + ld [wSelectedMoveIndex], a + push de + call SwapTurn + farcall CheckIfSelectedMoveIsUnusable + call SwapTurn + pop de + jr c, .switch_back + +; the other attack is useable. +; compare its damage to the selected move. + ld a, [wSelectedMoveIndex] + push de + farcall EstimateDamage_FromDefendingPokemon + pop de + ld a, [wDamage] + cp d + jr nc, .subtract + +; in case the non-selected move is useable +; and deals less damage than the selected move, +; switch back to the other attack. +.switch_back + ld a, [wSelectedMoveIndex] + ld b, a + ld a, $01 + sub b + ld [wSelectedMoveIndex], a + ld a, [wce06] + ld [wDamage], a + +; now the selected attack is the one that deals +; the most damage of the two (and is useable). +; if subtracting damage by using Defender +; still prevents a KO, return carry. +.subtract + ld a, [wDamage] + sub 20 + ld d, a + ld a, DUELVARS_ARENA_CARD_HP + call GetTurnDuelistVariable + sub d + jr c, .no_carry + jr z, .no_carry + scf + ret +.no_carry + or a + ret +; 0x20486 + +; return carry if using Defender prevents Pokémon +; from being knocked out by an attack with recoil. +CheckIfDefenderPreventsRecoilKnockOut: ; 20486 (8:4486) + ld a, MOVE_FLAG1_ADDRESS | HIGH_RECOIL_F + call CheckLoadedMoveFlag + jr c, .recoil + ld a, MOVE_FLAG1_ADDRESS | LOW_RECOIL_F + call CheckLoadedMoveFlag + jr c, .recoil + or a + ret + +.recoil + ld a, DUELVARS_ARENA_CARD + call GetTurnDuelistVariable + call LoadCardDataToBuffer2_FromDeckIndex + ld a, [wSelectedMoveIndex] + or a + jr nz, .second_attack +; first attack + ld a, [wLoadedCard2Move1Unknown1] + jr .check_weak +.second_attack + ld a, [wLoadedCard2Move2Unknown1] + +; double recoil damage if card is weak to its own color. +.check_weak + ld d, a + push de + call GetArenaCardColor + call TranslateColorToWR + ld b, a + call GetArenaCardWeakness + and b + pop de + jr z, .check_resist + sla d + +; subtract 30 from recoil damage if card resists its own color. +; if this yields a negative number, return no carry. +.check_resist + push de + call GetArenaCardColor + call TranslateColorToWR + ld b, a + call GetArenaCardResistance + and b + pop de + jr z, .subtract + ld a, d + sub 30 + jr c, .no_carry + ld d, a + +; subtract damage prevented by Defender. +; if damage still knocks out card, return no carry. +; if damage does not knock out, return carry. +.subtract + ld a, d + or a + jr z, .no_carry + sub 20 + ld d, a + ld a, DUELVARS_ARENA_CARD_HP + call GetTurnDuelistVariable + sub d + jr c, .no_carry + jr z, .no_carry + scf + ret +.no_carry + or a + ret +; 0x204e8 + +AIPlayPluspower: ; 204e8 (8:44e8) + ld a, [wce21] + or $01 + ld [wce21], a + ld a, [wce19] + ld [wcdd6], a + ld a, [wce16] + ldh [hTempCardIndex_ff9f], a + ld a, OPPACTION_EXECUTE_TRAINER_EFFECTS + bank1call AIMakeDecision + ret +; 0x20501 + +Func_20501: ; 20501 (8:4501) +; this is mistakenly duplicated + xor a + ldh [hTempPlayAreaLocation_ff9d], a + xor a + ldh [hTempPlayAreaLocation_ff9d], a + +; continue if no attack can knock out. +; if there's an attack that can, only continue +; if it's unusable and there's no card in hand +; to fulfill its energy cost. + farcall CheckIfAnyMoveKnocksOutDefendingCard + jr nc, .cannot_ko + farcall CheckIfSelectedMoveIsUnusable + jr nc, .no_carry + farcall LookForEnergyNeededForMoveInHand + jr c, .no_carry + +; cannot use an attack that knocks out. +.cannot_ko +; get active Pokémon's info. + ld a, DUELVARS_ARENA_CARD + call GetTurnDuelistVariable + call GetCardIDFromDeckIndex + ld a, e + ld [wTempTurnDuelistCardID], a + +; get defending Pokémon's info and check +; its No Damage or Effect substatus. +; if substatus is active, return. + call SwapTurn + ld a, DUELVARS_ARENA_CARD + call GetTurnDuelistVariable + call GetCardIDFromDeckIndex + ld a, e + ld [wTempNonTurnDuelistCardID], a + bank1call HandleNoDamageOrEffectSubstatus + call SwapTurn + jr c, .no_carry + + xor a ; first attack + ld [wSelectedMoveIndex], a + call .asm_20562 + jr c, .asm_20551 + ld a, $01 ; second attack + ld [wSelectedMoveIndex], a + call .asm_20562 + jr c, .asm_20559 + +.no_carry + or a + ret +.asm_20551 + call .asm_20589 + jr nc, .no_carry + xor a ; first attack + scf + ret +.asm_20559 + call .asm_20589 + jr nc, .no_carry + ld a, $01 ; first attack + scf + ret +; 0x20562 + +.asm_20562 ; 20562 (8:4562) + farcall CheckIfSelectedMoveIsUnusable + jr c, .unusable + ld a, [wSelectedMoveIndex] + farcall EstimateDamage_VersusDefendingCard + ld a, DUELVARS_ARENA_CARD_HP + call GetNonTurnDuelistVariable + ld b, a + ld hl, wDamage + sub [hl] + jr c, .no_carry + jr z, .no_carry + ld a, [hl] + add 10 + ld c, a + ld a, b + sub c + ret c + ret nz + scf + ret +.unusable + or a + ret +; 0x20589 + +.asm_20589 ; 20589 (8:4589) + ld a, [wDamage] + add 10 + cp 30 + ret c + call SwapTurn + ld a, DUELVARS_ARENA_CARD + call GetTurnDuelistVariable + call GetCardIDFromDeckIndex + call SwapTurn + ld a, e + cp $9b + ret z + scf + ret +; 0x205a5 + +Func_205a5: ; 205a5 (8:45a5) + xor a + ldh [hTempPlayAreaLocation_ff9d], a + call Func_205d7 + jr nc, .asm_205b9 + call Func_205f6 + jr nc, .asm_205b9 + call Func_205bb + jr nc, .asm_205b9 + scf + ret +.asm_205b9 + or a + ret +; 0x205bb + +Func_205bb: ; 205bb (8:45bb) + INCROM $205bb, $205d7 + +Func_205d7: ; 205d7 (8:45d7) + INCROM $205d7, $205f6 + +Func_205f6: ; 205f6 (8:45f6) + INCROM $205f6, $2282e + +; returns in a the card index of energy card +; attached to Pokémon in Play Area location a, +; that is to be discarded. +GetEnergyCardToDiscard: ; 2282e (8:682e) +; load Pokémon's attached energy cards. + ldh [hTempPlayAreaLocation_ff9d], a + call CreateArenaOrBenchEnergyCardList + ldh a, [hTempPlayAreaLocation_ff9d] + ld e, a + call GetPlayAreaCardAttachedEnergies + ld a, [wTotalAttachedEnergies] + or a + jr z, .no_energy + +; load card's ID and type. + ldh a, [hTempPlayAreaLocation_ff9d] + ld b, a + ld a, DUELVARS_ARENA_CARD + add b + call GetTurnDuelistVariable + call GetCardIDFromDeckIndex + ld a, e + ld [wTempCardID], a + call LoadCardDataToBuffer1_FromCardID + ld a, [wLoadedCard1Type] + or TYPE_ENERGY + ld [wTempCardType], a + +; find a card that is not useful. +; if none is found, just return the first energy card attached. + ld hl, wDuelTempList +.loop + ld a, [hl] + cp $ff + jr z, .not_found + farcall CheckIfEnergyIsUseful + jr nc, .found + inc hl + jr .loop - INCROM $201b1, $2297b +.found + ld a, [hl] + ret +.not_found + ld hl, wDuelTempList + ld a, [hl] + ret +.no_energy + ld a, $ff + ret +; 0x22875 + +Func_22875: ; 22875 (8:6875) + INCROM $22875, $2297b ; copies $ff terminated buffer from hl to de CopyBuffer: ; 2297b (8:697b) @@ -129,6 +1007,7 @@ CopyBuffer: ; 2297b (8:697b) jr CopyBuffer ; 0x22983 +Func_22983: ; 22983 (8:6983) INCROM $22983, $22990 ; counts number of energy cards found in hand @@ -152,4 +1031,23 @@ CountEnergyCardsInHand: ; 22990 (8:6990) ; 0x229a3 Func_229a3 ; 229a3 (8:69a3) - INCROM $229a3, $24000 + INCROM $229a3, $22bad + +; return carry flag if move is not high recoil. +Func_22bad: ; 22bad (8:6bad) + farcall Func_169ca + ret nc + ld a, [wSelectedMoveIndex] + ld e, a + ld a, DUELVARS_ARENA_CARD + call GetTurnDuelistVariable + ld d, a + call CopyMoveDataAndDamage_FromDeckIndex + ld a, MOVE_FLAG1_ADDRESS | HIGH_RECOIL_F + call CheckLoadedMoveFlag + ccf + ret +; 0x22bc6 + +Func_22bc6 ; 22bc6 (8:6bc6) + INCROM $22bc6, $24000 diff --git a/src/wram.asm b/src/wram.asm index 8e1de6b..20abcf6 100644 --- a/src/wram.asm +++ b/src/wram.asm @@ -972,6 +972,8 @@ wccc8:: ; ccc8 wGotHeadsFromConfusionCheck:: ; ccc9 ds $1 +; used to store card indices of all stages, in order, of a Play Area Pokémon +wAllStagesIndices:: ; ccca ds $3 wEffectFunctionsFeedbackIndex:: ; cccd @@ -1225,7 +1227,9 @@ wTempCardType:: ; cdba wAIScore:: ; cdbe ds $1 -wBenchAIScore:: ; cdbf +; used for AI decisions that involve +; each card in the Play Area. +wPlayAreaAIScore:: ; cdbf ds MAX_PLAY_AREA_POKEMON ds $0a @@ -1280,7 +1284,9 @@ wcddb:: ; cddb wcddc:: ; cddc ds $1 -wcddd:: ; cddd +; used to compliment wPlayAreaAIScore, +; to temporarily do calculations and store results. +wTempPlayAreaAIScore:: ; cddd ds MAX_PLAY_AREA_POKEMON wcde3:: ; cde3 @@ -1292,11 +1298,15 @@ wcde4:: ; cde4 wcdea:: ; cdea ds MAX_PLAY_AREA_POKEMON +; whether AI cannot inflict damage on player's active Pokémon +; (due to No Damage or Effect substatus). +; $00 = can damage +; $01 = can't damage +wAICannotDamage:: ; cdf0 ds $1 -; a PLAY_AREA_* constant (0: arena card, 1-5: bench card) -; used by the AI to temporarily store card location -wCurCardPlayAreaLocation:: ; cdf1 +; used by AI to store variable information +wTempAI:: ; cdf1 ds $1 ; used for AI to store whether this card can use any attack @@ -1330,12 +1340,22 @@ wce00:: ; ce00 wce01:: ; ce01 ds $1 +; whether AI's move is a damaging move or not +; (move that only damages bench is treated as non-damaging) +; $00 = is a damaging move +; $01 = is a non damaging move +wAIMoveIsNonDamaging:: ; ce02 ds $1 wce03:: ; ce03 ds $1 - ds $12 + ds $2 + +wce06:: ; ce06 + ds $1 + + ds $0f wce16:: ; ce16 ds $1 |