diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/engine/bank05.asm | 367 | ||||
| -rw-r--r-- | src/engine/bank08.asm | 5 |
2 files changed, 368 insertions, 4 deletions
diff --git a/src/engine/bank05.asm b/src/engine/bank05.asm index 200fc44..3d9271d 100644 --- a/src/engine/bank05.asm +++ b/src/engine/bank05.asm @@ -1182,7 +1182,11 @@ ZeroData: ; 1575e (5:575e) ret ; 0x1576b - INCROM $1576b, $158b2 +Func_1576b: ; 1576b (5:576b) + INCROM $1576b, $15787 + +Func_15787: ; 15787 (5:5787) + INCROM $15787, $158b2 ; determine AI score for retreating Func_158b2: ; 158b2 (5:58b2) @@ -1715,8 +1719,363 @@ Func_15eae: ; 15eae (5:5eae) pop hl ret -Func_15f4c ; 15f4c (5:5f4c) - INCROM $15f4c, $161d5 +Func_15f4c: ; 15f4c (5:5f4c) + call CreateHandCardList + ld hl, wDuelTempList + ld de, wHandTempList + call CopyHandCardList + ld hl, wHandTempList + +.next + ld a, [hli] + cp $ff + jp z, .done + ld [wcdf3], a + push hl + call IsPrehistoricPowerActive + jp c, .asm_1611a + ld a, [wcdf3] + call LoadCardDataToBuffer1_FromDeckIndex + ld a, [wLoadedCard1Type] + cp TYPE_ENERGY + jp nc, .asm_1611a + ld a, [wLoadedCard1Stage] + or a + jp z, .asm_1611a + + ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA + call GetTurnDuelistVariable + ld c, a + ld b, $00 +.asm_15f88 + push bc + ld e, b + ld a, [wcdf3] + ld d, a + call CheckIfCanEvolveInto + pop bc + push bc + jp c, .asm_16114 + + ld a, b + ld [$cdf1], a + ldh [hTempPlayAreaLocation_ff9d], a + ld a, 128 + ld [wcdbe], a + call Func_16120 + xor a + ld [wSelectedMoveIndex], a + call CheckIfCardCanUseSelectedMove + jr nc, .asm_15fb7 + ld a, $01 + ld [wSelectedMoveIndex], a + call CheckIfCardCanUseSelectedMove + jr c, .asm_15fcd +.asm_15fb7 + ld a, $01 + ld [$cdf2], a + call CheckIfAnyMoveKnocksOutDefendingCard + jr nc, .asm_15fd4 + call CheckIfCardCanUseSelectedMove + jr c, .asm_15fd4 + ld a, $01 + ld [$cdf4], a + jr .asm_15fd4 +.asm_15fcd + xor a + ld [$cdf2], a + ld [$cdf4], a +.asm_15fd4 + ldh a, [hTempPlayAreaLocation_ff9d] + add $bb + call GetTurnDuelistVariable + push af + ld a, [wcdf3] + ld [hl], a + xor a + ld [wSelectedMoveIndex], a + call CheckIfCardCanUseSelectedMove + jr nc, .asm_15ff3 + ld a, $01 + ld [wSelectedMoveIndex], a + call CheckIfCardCanUseSelectedMove + jr c, .asm_15ffa +.asm_15ff3 + ld a, $05 + call AddToWcdbe + jr .asm_16015 +.asm_15ffa + ld a, [$cdf2] + or a + jr z, .asm_16015 + ld a, $02 + call SubFromWcdbe + ld a, [wAlreadyPlayedEnergy] + or a + jr nz, .asm_16015 + call Func_162c8 + jr nc, .asm_16015 + ld a, $07 + call AddToWcdbe +.asm_16015 + ld a, [$cdf2] + or a + jr z, .asm_1603d + ld a, [$cdf1] + or a + jr nz, .asm_1603d + call CheckIfAnyMoveKnocksOutDefendingCard + jr nc, .asm_16032 + call CheckIfCardCanUseSelectedMove + jr c, .asm_16032 + ld a, $05 + call AddToWcdbe + jr .asm_1603d +.asm_16032 + ld a, [$cdf4] + or a + jr z, .asm_1603d + ld a, $14 + call SubFromWcdbe +.asm_1603d + ld a, [$cdf1] + or a + jr nz, .asm_16050 + xor a + ldh [hTempPlayAreaLocation_ff9d], a + call CheckIfDefendingPokemonCanKnockOut + jr nc, .asm_16050 + ld a, $05 + call SubFromWcdbe +.asm_16050 + ld a, [$cdf1] + call Func_16270 + jr c, .asm_1605d + ld a, $14 + call SubFromWcdbe +.asm_1605d + ld a, [$cdf1] + add $bb + call GetTurnDuelistVariable + pop af + ld [hl], a + ld a, [$cdf1] + or a + jr nz, .asm_16087 + xor a + ldh [hTempPlayAreaLocation_ff9d], a + call CheckIfDefendingPokemonCanKnockOut + jr nc, .asm_1607a + ld a, $05 + call AddToWcdbe +.asm_1607a + ld a, $f0 + call GetTurnDuelistVariable + or a + jr z, .asm_16087 + ld a, $04 + call AddToWcdbe +.asm_16087 + ld a, [wcdf3] + call Func_16422 + jr nc, .asm_16096 + ld a, $02 + call AddToWcdbe + jr .asm_160a3 +.asm_16096 + ld a, [wcdf3] + call Func_16451 + jr nc, .asm_160a3 + ld a, $01 + call AddToWcdbe +.asm_160a3 + ld a, [$cdf1] + ld e, a + call SubstractHPFromCard + or a + jr z, .asm_160b7 + srl a + srl a + call Func_1576b + call SubFromWcdbe +.asm_160b7 + ld a, [$cdf1] + add $bb + call GetTurnDuelistVariable + call LoadCardDataToBuffer1_FromDeckIndex + ld a, [wLoadedCard1ID] + cp $cc + jr z, .asm_160d7 + ld a, [wLoadedCard1Unknown2] + cp $02 + jr nz, .asm_160dc + ld a, $02 + call AddToWcdbe + jr .asm_160dc +.asm_160d7 + ld a, $05 + call AddToWcdbe +.asm_160dc + ld a, [wOpponentDeckID] + cp $25 + jr nz, .asm_160fb + ld a, [wLoadedCard1ID] + cp $60 + jr z, .asm_160f6 + cp $61 + jr z, .asm_160f6 + cp $62 + jr z, .asm_160f6 + cp $63 + jr nz, .asm_160fb +.asm_160f6 + ld a, $03 + call SubFromWcdbe +.asm_160fb + ld a, [wcdbe] + cp $85 + jr c, .asm_16114 + ld a, [$cdf1] + ldh [hTempPlayAreaLocation_ffa1], a + ld a, [wcdf3] + ldh [hTemp_ffa0], a + ld a, $02 + bank1call AIMakeDecision + pop bc + jr .asm_1611a +.asm_16114 + pop bc + inc b + dec c + jp nz, .asm_15f88 +.asm_1611a + pop hl + jp .next + +.done + or a + ret + +Func_16120: ; 16120 (5:6120) + ld a, [wOpponentDeckID] + cp LEGENDARY_DRAGONITE_DECK_ID + jr z, .legendary_dragonite + cp INVINCIBLE_RONALD_DECK_ID + jr z, .invincible_ronald + cp LEGENDARY_RONALD_DECK_ID + jr z, .legendary_ronald + ret + +.legendary_dragonite + ld a, [wLoadedCard2ID] + cp CHARMELEON + jr z, .asm_16140 + cp MAGIKARP + jr z, .asm_16161 + cp DRAGONAIR + jr z, .asm_1618c + ret + +.asm_16140 + ldh a, [hTempPlayAreaLocation_ff9d] + ld e, a + call Func_15787 + cp $03 + jr c, .asm_1615b + push af + farcall Func_22990 + pop bc + add b + cp $06 + jr c, .asm_1615b + ld a, 3 + call AddToWcdbe + ret + +.asm_1615b + ld a, 10 + call SubFromWcdbe + ret + +.asm_16161 + ldh a, [hTempPlayAreaLocation_ff9d] + or a + ret z + ld e, a + call Func_15787 + cp $02 + ret c + ld a, 3 + call AddToWcdbe + ret + +.invincible_ronald + ld a, [wLoadedCard2ID] + cp GRIMER + jr z, .asm_1617a + ret + +.asm_1617a + ldh a, [hTempPlayAreaLocation_ff9d] + or a + ret z + ld a, 10 + call AddToWcdbe + ret + +.legendary_ronald + ld a, [wLoadedCard2ID] + cp DRAGONAIR + jr z, .asm_1618c + ret + +.asm_1618c + ldh a, [hTempPlayAreaLocation_ff9d] + or a + jr z, .asm_161be + ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA + call GetTurnDuelistVariable + ld b, a + ld c, 0 +.asm_16199 + dec b + ld e, b + push bc + call SubstractHPFromCard + pop bc + add c + ld c, a + ld a, b + or a + jr nz, .asm_16199 + ld a, $46 + cp c + jr c, .asm_161b1 +.asm_161ab + ld a, 10 + call SubFromWcdbe + ret + +.asm_161b1 + ld a, MUK + call CountPokemonIDInBothPlayAreas + jr c, .asm_161ab + ld a, 10 + call AddToWcdbe + ret + +.asm_161be + ld e, 0 + call SubstractHPFromCard + cp 50 + jr c, .asm_161ab + ld e, PLAY_AREA_ARENA + call GetPlayAreaCardAttachedEnergies + ld a, [wTotalAttachedEnergies] + cp 3 + jr c, .asm_161ab + jr .asm_161b1 +; 0x161d5 ; determine AI score for the legendary cards ; Moltres, Zapdos and Articuno @@ -1822,6 +2181,7 @@ Func_161d5: ; 161d5 (5:61d5) ret ; 0x16270 +Func_16270 ; 16270 (5:6270) INCROM $16270, $1628f ; returns carry if card at hTempPlayAreaLocation_ff9d @@ -1876,6 +2236,7 @@ CheckIfActivePokemonCanUseAnyNonResidualMove: ; 162a1 (5:62a1) ret ; 0x162c8 +Func_162c8 ; 162c8 (5:62c8) INCROM $162c8, $16311 ; looks for energy card(s) in hand depending on what is needed diff --git a/src/engine/bank08.asm b/src/engine/bank08.asm index a3614af..b3c2a3a 100644 --- a/src/engine/bank08.asm +++ b/src/engine/bank08.asm @@ -129,4 +129,7 @@ CopyBuffer: ; 2297b (8:697b) jr CopyBuffer ; 0x22983 - INCROM $22983, $24000 + INCROM $22983, $22990 + +Func_22990 ; 22990 (8:6990) + INCROM $22990, $24000 |