mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2024-11-16 11:27:33 -08:00
667 lines
7.5 KiB
NASM
Executable File
667 lines
7.5 KiB
NASM
Executable File
CheckPlayerMoveTypeMatchups: ; 3484e
|
|
; Check how well the moves you've already used
|
|
; fare against the enemy's Pokemon. Used to
|
|
; score a potential switch.
|
|
push hl
|
|
push de
|
|
push bc
|
|
ld a, 10
|
|
ld [wc716], a
|
|
ld hl, PlayerUsedMoves
|
|
ld a, [hl]
|
|
and a
|
|
jr z, .unknown_moves
|
|
|
|
ld d, NUM_MOVES
|
|
ld e, 0
|
|
.loop
|
|
ld a, [hli]
|
|
and a
|
|
jr z, .exit
|
|
push hl
|
|
dec a
|
|
ld hl, Moves + MOVE_POWER
|
|
call GetMoveAttr
|
|
and a
|
|
jr z, .next
|
|
|
|
inc hl
|
|
call GetMoveByte
|
|
ld hl, EnemyMonType
|
|
call CheckTypeMatchup
|
|
ld a, [wTypeMatchup]
|
|
cp 10 + 1 ; 1.0 + 0.1
|
|
jr nc, .super_effective
|
|
and a
|
|
jr z, .next
|
|
cp 10 ; 1.0
|
|
jr nc, .neutral
|
|
|
|
.not_very_effective
|
|
ld a, e
|
|
cp 1 ; 0.1
|
|
jr nc, .next
|
|
ld e, 1
|
|
jr .next
|
|
|
|
.neutral
|
|
ld e, 2
|
|
jr .next
|
|
|
|
.super_effective
|
|
call .DecreaseScore
|
|
pop hl
|
|
jr .done
|
|
|
|
.next
|
|
pop hl
|
|
dec d
|
|
jr nz, .loop
|
|
|
|
.exit
|
|
ld a, e
|
|
cp 2
|
|
jr z, .done
|
|
call .IncreaseScore
|
|
ld a, e
|
|
and a
|
|
jr nz, .done
|
|
call .IncreaseScore
|
|
jr .done
|
|
|
|
.unknown_moves
|
|
ld a, [BattleMonType1]
|
|
ld b, a
|
|
ld hl, EnemyMonType1
|
|
call CheckTypeMatchup
|
|
ld a, [wTypeMatchup]
|
|
cp 10 + 1 ; 1.0 + 0.1
|
|
jr c, .ok
|
|
call .DecreaseScore
|
|
.ok
|
|
ld a, [BattleMonType2]
|
|
cp b
|
|
jr z, .ok2
|
|
call CheckTypeMatchup
|
|
ld a, [wTypeMatchup]
|
|
cp 10 + 1 ; 1.0 + 0.1
|
|
jr c, .ok2
|
|
call .DecreaseScore
|
|
.ok2
|
|
|
|
.done
|
|
call .CheckEnemyMoveMatchups
|
|
pop bc
|
|
pop de
|
|
pop hl
|
|
ret
|
|
; 348de
|
|
|
|
|
|
.CheckEnemyMoveMatchups: ; 348de
|
|
ld de, EnemyMonMoves
|
|
ld b, NUM_MOVES + 1
|
|
ld c, 0
|
|
|
|
ld a, [wTypeMatchup]
|
|
push af
|
|
.loop2
|
|
dec b
|
|
jr z, .exit2
|
|
|
|
ld a, [de]
|
|
and a
|
|
jr z, .exit2
|
|
|
|
inc de
|
|
dec a
|
|
ld hl, Moves + MOVE_POWER
|
|
call GetMoveAttr
|
|
and a
|
|
jr z, .loop2
|
|
|
|
inc hl
|
|
call GetMoveByte
|
|
ld hl, BattleMonType1
|
|
call CheckTypeMatchup
|
|
|
|
ld a, [wTypeMatchup]
|
|
; immune
|
|
and a
|
|
jr z, .loop2
|
|
|
|
; not very effective
|
|
inc c
|
|
cp 10
|
|
jr c, .loop2
|
|
|
|
; neutral
|
|
rept 5
|
|
inc c
|
|
endr
|
|
cp 10
|
|
jr z, .loop2
|
|
|
|
; super effective
|
|
ld c, 100
|
|
jr .loop2
|
|
|
|
.exit2
|
|
pop af
|
|
ld [wTypeMatchup], a
|
|
|
|
ld a, c
|
|
and a
|
|
jr z, .doubledown ; double down
|
|
cp 5
|
|
jr c, .DecreaseScore ; down
|
|
cp 100
|
|
ret c
|
|
jr .IncreaseScore ; up
|
|
|
|
.doubledown
|
|
call .DecreaseScore
|
|
|
|
; fallthrough
|
|
; 34931
|
|
|
|
|
|
.DecreaseScore: ; 34931
|
|
ld a, [wc716]
|
|
dec a
|
|
ld [wc716], a
|
|
ret
|
|
; 34939
|
|
|
|
|
|
.IncreaseScore: ; 34939
|
|
ld a, [wc716]
|
|
inc a
|
|
ld [wc716], a
|
|
ret
|
|
; 34941
|
|
|
|
CheckAbleToSwitch: ; 34941
|
|
xor a
|
|
ld [wEnemySwitchMonParam], a
|
|
call FindAliveEnemyMons
|
|
ret c
|
|
|
|
ld a, [EnemySubStatus1]
|
|
bit SUBSTATUS_PERISH, a
|
|
jr z, .no_perish
|
|
|
|
ld a, [EnemyPerishCount]
|
|
cp 1
|
|
jr nz, .no_perish
|
|
|
|
; Perish count is 1
|
|
|
|
call FindAliveEnemyMons
|
|
call FindEnemyMonsWithEnoughHP
|
|
call FindEnemyMonsThatResistPlayer
|
|
call Function34a85
|
|
|
|
ld a, e
|
|
cp 2
|
|
jr nz, .not_2
|
|
|
|
ld a, [wc716]
|
|
add $30
|
|
ld [wEnemySwitchMonParam], a
|
|
ret
|
|
|
|
.not_2
|
|
call FindAliveEnemyMons
|
|
sla c
|
|
sla c
|
|
ld b, $ff
|
|
|
|
.loop1
|
|
inc b
|
|
sla c
|
|
jr nc, .loop1
|
|
|
|
ld a, b
|
|
add $30
|
|
ld [wEnemySwitchMonParam], a
|
|
ret
|
|
|
|
.no_perish
|
|
|
|
call CheckPlayerMoveTypeMatchups
|
|
ld a, [wc716]
|
|
cp 11
|
|
ret nc
|
|
|
|
ld a, [LastEnemyCounterMove]
|
|
and a
|
|
jr z, .no_last_counter_move
|
|
|
|
call Function34a2a
|
|
ld a, [wc716]
|
|
and a
|
|
jr z, .no_last_counter_move
|
|
|
|
ld c, a
|
|
call Function34aa7
|
|
ld a, [wc716]
|
|
cp $ff
|
|
ret z
|
|
|
|
ld b, a
|
|
ld a, e
|
|
cp 2
|
|
jr z, .not_2_again
|
|
|
|
call CheckPlayerMoveTypeMatchups
|
|
ld a, [wc716]
|
|
cp 10
|
|
ret nc
|
|
|
|
ld a, b
|
|
add $10
|
|
ld [wEnemySwitchMonParam], a
|
|
ret
|
|
|
|
.not_2_again
|
|
ld c, $10
|
|
call CheckPlayerMoveTypeMatchups
|
|
ld a, [wc716]
|
|
cp 10
|
|
jr nc, .okay
|
|
ld c, $20
|
|
|
|
.okay
|
|
ld a, b
|
|
add c
|
|
ld [wEnemySwitchMonParam], a
|
|
ret
|
|
|
|
.no_last_counter_move
|
|
call CheckPlayerMoveTypeMatchups
|
|
ld a, [wc716]
|
|
cp 10
|
|
ret nc
|
|
|
|
call FindAliveEnemyMons
|
|
call FindEnemyMonsWithEnoughHP
|
|
call FindEnemyMonsThatResistPlayer
|
|
call Function34a85
|
|
|
|
ld a, e
|
|
cp $2
|
|
ret nz
|
|
|
|
ld a, [wc716]
|
|
add $10
|
|
ld [wEnemySwitchMonParam], a
|
|
ret
|
|
; 349f4
|
|
|
|
|
|
FindAliveEnemyMons: ; 349f4
|
|
ld a, [OTPartyCount]
|
|
cp 2
|
|
jr c, .only_one
|
|
|
|
ld d, a
|
|
ld e, 0
|
|
ld b, 1 << (PARTY_LENGTH - 1)
|
|
ld c, 0
|
|
ld hl, OTPartyMon1HP
|
|
|
|
.loop
|
|
ld a, [CurOTMon]
|
|
cp e
|
|
jr z, .next
|
|
|
|
push bc
|
|
ld b, [hl]
|
|
inc hl
|
|
ld a, [hld]
|
|
or b
|
|
pop bc
|
|
jr z, .next
|
|
|
|
ld a, c
|
|
or b
|
|
ld c, a
|
|
|
|
.next
|
|
srl b
|
|
push bc
|
|
ld bc, PARTYMON_STRUCT_LENGTH
|
|
add hl, bc
|
|
pop bc
|
|
inc e
|
|
dec d
|
|
jr nz, .loop
|
|
|
|
ld a, c
|
|
and a
|
|
jr nz, .more_than_one
|
|
|
|
.only_one
|
|
scf
|
|
ret
|
|
|
|
.more_than_one
|
|
and a
|
|
ret
|
|
; 34a2a
|
|
|
|
|
|
Function34a2a: ; 34a2a
|
|
ld hl, OTPartyMon1
|
|
ld a, [OTPartyCount]
|
|
ld b, a
|
|
ld c, 1 << (PARTY_LENGTH - 1)
|
|
ld d, 0
|
|
xor a
|
|
ld [wc716], a
|
|
|
|
.asm_34a39
|
|
ld a, [CurOTMon]
|
|
cp d
|
|
push hl
|
|
jr z, .asm_34a77
|
|
|
|
push hl
|
|
push bc
|
|
ld bc, MON_HP
|
|
add hl, bc
|
|
pop bc
|
|
ld a, [hli]
|
|
or [hl]
|
|
pop hl
|
|
jr z, .asm_34a77
|
|
|
|
ld a, [hl]
|
|
ld [CurSpecies], a
|
|
call GetBaseData
|
|
ld a, [LastEnemyCounterMove]
|
|
dec a
|
|
ld hl, Moves + MOVE_POWER
|
|
call GetMoveAttr
|
|
and a
|
|
jr z, .asm_34a77
|
|
|
|
inc hl
|
|
call GetMoveByte
|
|
ld hl, BaseType
|
|
call CheckTypeMatchup
|
|
ld a, [wTypeMatchup]
|
|
and a
|
|
jr nz, .asm_34a77
|
|
|
|
ld a, [wc716]
|
|
or c
|
|
ld [wc716], a
|
|
.asm_34a77
|
|
pop hl
|
|
dec b
|
|
ret z
|
|
|
|
push bc
|
|
ld bc, PARTYMON_STRUCT_LENGTH
|
|
add hl, bc
|
|
pop bc
|
|
|
|
inc d
|
|
srl c
|
|
jr .asm_34a39
|
|
; 34a85
|
|
|
|
|
|
Function34a85: ; 34a85
|
|
push bc
|
|
ld a, [OTPartyCount]
|
|
ld e, a
|
|
ld hl, OTPartyMon1HP
|
|
ld b, 1 << (PARTY_LENGTH - 1)
|
|
ld c, 0
|
|
.loop
|
|
ld a, [hli]
|
|
or [hl]
|
|
jr z, .next
|
|
|
|
ld a, b
|
|
or c
|
|
ld c, a
|
|
|
|
.next
|
|
srl b
|
|
push bc
|
|
ld bc, PartyMon2HP - (PartyMon1HP + 1)
|
|
add hl, bc
|
|
pop bc
|
|
dec e
|
|
jr nz, .loop
|
|
|
|
ld a, c
|
|
pop bc
|
|
|
|
and c
|
|
ld c, a
|
|
|
|
; fallthrough
|
|
; 34aa7
|
|
|
|
Function34aa7: ; 34aa7
|
|
|
|
ld a, $ff
|
|
ld [wc716], a
|
|
ld hl, OTPartyMon1Moves
|
|
ld b, 1 << (PARTY_LENGTH - 1)
|
|
ld d, 0
|
|
ld e, 0
|
|
.loop
|
|
ld a, b
|
|
and c
|
|
jr z, .next
|
|
|
|
push hl
|
|
push bc
|
|
ld b, NUM_MOVES
|
|
ld c, 0
|
|
.loop3
|
|
ld a, [hli]
|
|
and a
|
|
push hl
|
|
jr z, .break3
|
|
|
|
dec a
|
|
ld hl, Moves + MOVE_POWER
|
|
call GetMoveAttr
|
|
and a
|
|
jr z, .nope
|
|
|
|
inc hl
|
|
call GetMoveByte
|
|
ld hl, BattleMonType1
|
|
call CheckTypeMatchup
|
|
ld a, [wTypeMatchup]
|
|
cp 10
|
|
jr c, .nope
|
|
|
|
ld e, 1
|
|
cp 10 + 1
|
|
jr c, .nope
|
|
|
|
ld e, 2
|
|
jr .break3
|
|
|
|
.nope
|
|
pop hl
|
|
dec b
|
|
jr nz, .loop3
|
|
|
|
jr .done
|
|
|
|
.break3
|
|
pop hl
|
|
.done
|
|
ld a, e
|
|
pop bc
|
|
pop hl
|
|
cp $2
|
|
jr z, .done2
|
|
|
|
cp $1
|
|
jr nz, .next
|
|
|
|
ld a, d
|
|
or b
|
|
ld d, a
|
|
jr .next
|
|
|
|
.next
|
|
push bc
|
|
ld bc, PARTYMON_STRUCT_LENGTH
|
|
add hl, bc
|
|
pop bc
|
|
srl b
|
|
jr nc, .loop
|
|
|
|
ld a, d
|
|
ld b, a
|
|
and a
|
|
ret z
|
|
|
|
.done2
|
|
push bc
|
|
sla b
|
|
sla b
|
|
ld c, $ff
|
|
.loop2
|
|
inc c
|
|
sla b
|
|
jr nc, .loop2
|
|
|
|
ld a, c
|
|
ld [wc716], a
|
|
pop bc
|
|
ret
|
|
; 34b20
|
|
|
|
|
|
FindEnemyMonsThatResistPlayer: ; 34b20
|
|
push bc
|
|
ld hl, OTPartySpecies
|
|
ld b, 1 << (PARTY_LENGTH - 1)
|
|
ld c, 0
|
|
|
|
.loop
|
|
ld a, [hli]
|
|
cp $ff
|
|
jr z, .done
|
|
|
|
push hl
|
|
ld [CurSpecies], a
|
|
call GetBaseData
|
|
ld a, [LastEnemyCounterMove]
|
|
and a
|
|
jr z, .skip_move
|
|
|
|
dec a
|
|
ld hl, Moves + MOVE_POWER
|
|
call GetMoveAttr
|
|
and a
|
|
jr z, .skip_move
|
|
|
|
inc hl
|
|
call GetMoveByte
|
|
jr .check_type
|
|
|
|
.skip_move
|
|
ld a, [BattleMonType1]
|
|
ld hl, BaseType
|
|
call CheckTypeMatchup
|
|
ld a, [wTypeMatchup]
|
|
cp 10 + 1
|
|
jr nc, .dont_choose_mon
|
|
ld a, [BattleMonType2]
|
|
|
|
.check_type
|
|
ld hl, BaseType
|
|
call CheckTypeMatchup
|
|
ld a, [wTypeMatchup]
|
|
cp 10 + 1
|
|
jr nc, .dont_choose_mon
|
|
|
|
ld a, b
|
|
or c
|
|
ld c, a
|
|
|
|
.dont_choose_mon
|
|
srl b
|
|
pop hl
|
|
jr .loop
|
|
|
|
.done
|
|
ld a, c
|
|
pop bc
|
|
and c
|
|
ld c, a
|
|
ret
|
|
; 34b77
|
|
|
|
|
|
FindEnemyMonsWithEnoughHP: ; 34b77
|
|
push bc
|
|
ld de, OTPartySpecies
|
|
ld b, 1 << (PARTY_LENGTH - 1)
|
|
ld c, 0
|
|
ld hl, OTPartyMon1HP
|
|
|
|
.loop
|
|
ld a, [de]
|
|
inc de
|
|
cp $ff
|
|
jr z, .done
|
|
|
|
push hl
|
|
push bc
|
|
ld b, [hl]
|
|
inc hl
|
|
ld c, [hl]
|
|
rept 2
|
|
inc hl
|
|
endr
|
|
; hl = MaxHP + 1
|
|
; b = (4 * b) % $100 + (c & 3)
|
|
; c = c / 4
|
|
srl c
|
|
rl b
|
|
srl c
|
|
rl b
|
|
; a = (MaxHP / $100) - b - (1 if c > (MaxHP % $100) else 0)
|
|
ld a, [hld]
|
|
cp c
|
|
ld a, [hl]
|
|
sbc b
|
|
pop bc
|
|
jr nc, .next
|
|
|
|
ld a, b
|
|
or c
|
|
ld c, a
|
|
|
|
.next
|
|
srl b
|
|
pop hl
|
|
push bc
|
|
ld bc, PARTYMON_STRUCT_LENGTH
|
|
add hl, bc
|
|
pop bc
|
|
jr .loop
|
|
|
|
.done
|
|
ld a, c
|
|
pop bc
|
|
and c
|
|
ld c, a
|
|
ret
|
|
; 34bb1
|