Function_0x38591: ; 38591
	ld hl, Buffer1 - 1
	ld de, EnemyMonMoves
	ld b, EnemyMonMovesEnd - EnemyMonMoves + 1
.asm_38599
	dec b
	ret z

	inc hl
	ld a, [de]
	and a
	ret z

	inc de
	call Function_0x39508

	ld a, [EnemyMoveEffect]
	ld c, a

	push hl
	push de
	push bc
	ld a, $b
	ld hl, $441a
	rst FarCall
	pop bc
	pop de
	pop hl
	jr nz, .asm_385d6

	ld a, [EnemyMoveEffect]
	push hl
	push de
	push bc
	ld hl, .table_385db
	ld de, 1
	call IsInArray

	pop bc
	pop de
	pop hl
	jr nc, .asm_38599

	ld a, [BattleMonStatus]
	and a
	jr nz, .asm_385d6

	ld a, [PlayerScreens]
	bit 2, a
	jr z, .asm_38599

.asm_385d6
	call Function_0x39503

	jr .asm_38599
; 385db

.table_385db
	db EFFECT_SLEEP
	db EFFECT_TOXIC
	db EFFECT_POISON
	db EFFECT_PARALYZE
	db $ff
; 385e0



Function_0x385e0: ; 385e0
	ld hl, Buffer1 - 1
	ld de, EnemyMonMoves
	ld b, EnemyMonMovesEnd - EnemyMonMoves + 1
.next
	dec b
	ret z

	inc hl
	ld a, [de]
	and a
	ret z

	inc de
	call Function_0x39508

	ld a, [EnemyMoveEffect]

	cp EFFECT_ATTACK_UP
	jr c, .next
	cp EFFECT_EVASION_UP + 1
	jr c, .statup

;	cp EFFECT_ATTACK_DOWN - 1
	jr z, .next
	cp EFFECT_EVASION_DOWN + 1
	jr c, .statdown

	cp EFFECT_ATTACK_UP_2
	jr c, .next
	cp EFFECT_EVASION_UP_2 + 1
	jr c, .statup

;	cp EFFECT_ATTACK_DOWN_2 - 1
	jr z, .next
	cp EFFECT_EVASION_DOWN_2 + 1
	jr c, .statdown

	jr .next

.statup
	ld a, [EnemyTurnsTaken]
	and a
	jr nz, .asm_3862a

	jr .asm_38621

.statdown
	ld a, [PlayerTurnsTaken]
	and a
	jr nz, .asm_3862a

.asm_38621
	call Function_0x39527

	jr c, .next

	dec [hl]
	dec [hl]
	jr .next

.asm_3862a
	call RNG

	cp $1e
	jr c, .next

	inc [hl]
	inc [hl]
	jr .next
; 38635



Function_0x38635: ; 38635
	ld hl, Buffer1 - 1
	ld de, EnemyMonMoves
	ld b, EnemyMonMovesEnd - EnemyMonMoves + 1
.asm_3863d
	dec b
	ret z

	inc hl
	ld a, [de]
	and a
	ret z

	inc de
	call Function_0x39508

	push hl
	push bc
	push de
	ld a, 1
	ld [hBattleTurn], a
	ld hl, $47c8
	ld a, $d
	rst FarCall

	pop de
	pop bc
	pop hl
	ld a, [$d265]
	and a
	jr z, .asm_3869d

	cp $a
	jr z, .asm_3863d

	jr c, .asm_3866c

	ld a, [EnemyMovePower]
	and a
	jr z, .asm_3863d

	dec [hl]
	jr .asm_3863d

.asm_3866c
	push hl
	push de
	push bc
	ld a, [EnemyMoveType]
	ld d, a
	ld hl, EnemyMonMoves
	ld b, EnemyMonMovesEnd - EnemyMonMoves + 1
	ld c, 0
.asm_3867a
	dec b
	jr z, .asm_38693

	ld a, [hli]
	and a
	jr z, .asm_38693

	call Function_0x39508

	ld a, [EnemyMoveType]
	cp d
	jr z, .asm_3867a

	ld a, [EnemyMovePower]
	and a
	jr nz, .asm_38692

	jr .asm_3867a

.asm_38692
	ld c, a
.asm_38693
	ld a, c
	pop bc
	pop de
	pop hl
	and a
	jr z, .asm_3863d

	inc [hl]
	jr .asm_3863d

.asm_3869d
	call Function_0x39503

	jr .asm_3863d
; 386a2



Function_0x386a2: ; 386a2
	ld hl, Buffer1 - 1
	ld de, EnemyMonMoves
	ld b, EnemyMonMovesEnd - EnemyMonMoves + 1
.asm_386aa
	dec b
	ret z

	inc hl
	ld a, [de]
	and a
	ret z

	inc de
	call Function_0x39508

	ld a, [EnemyMovePower]
	and a
	jr nz, .asm_386aa

	inc [hl]
	inc [hl]
	jr .asm_386aa
; 386be



Function_0x386be: ; 386be
	ld hl, Buffer1
	ld de, EnemyMonMoves
	ld b, EnemyMonMovesEnd - EnemyMonMoves + 1
.asm_386c6
	dec b
	ret z

	ld a, [de]
	inc de
	and a
	ret z

	push de
	push bc
	push hl
	call Function_0x39508

	ld a, [EnemyMoveEffect]
	ld hl, .table_386f2
	ld de, 3
	call IsInArray

	inc hl
	jr nc, .asm_386ec

	ld a, [hli]
	ld e, a
	ld d, [hl]
	pop hl
	push hl
	ld bc, .asm_386ec
	push bc
	push de
	ret

.asm_386ec
	pop hl
	pop bc
	pop de
	inc hl
	jr .asm_386c6
; 386f2

.table_386f2 ; 386f2
	dbw EFFECT_SLEEP,            AIScoring_Sleep
	dbw EFFECT_LEECH_HIT,        AIScoring_LeechHit
	dbw EFFECT_EXPLOSION,        AIScoring_Explosion
	dbw EFFECT_DREAM_EATER,      AIScoring_DreamEater
	dbw EFFECT_MIRROR_MOVE,      AIScoring_MirrorMove
	dbw EFFECT_EVASION_UP,       AIScoring_EvasionUp
	dbw EFFECT_ALWAYS_HIT,       AIScoring_AlwaysHit
	dbw EFFECT_ACCURACY_DOWN,    AIScoring_AccuracyDown
	dbw EFFECT_HAZE,             AIScoring_Haze
	dbw EFFECT_BIDE,             AIScoring_Bide
	dbw EFFECT_WHIRLWIND,        AIScoring_Whirlwind
	dbw EFFECT_HEAL,             AIScoring_Heal
	dbw EFFECT_TOXIC,            AIScoring_Toxic
	dbw EFFECT_LIGHT_SCREEN,     AIScoring_LightScreen
	dbw EFFECT_OHKO,             AIScoring_Ohko
	dbw EFFECT_RAZOR_WIND,       AIScoring_RazorWind
	dbw EFFECT_SUPER_FANG,       AIScoring_SuperFang
	dbw EFFECT_BIND,             AIScoring_Bind
	dbw EFFECT_UNUSED_2B,        AIScoring_Unused2B
	dbw EFFECT_CONFUSE,          AIScoring_Confuse
	dbw EFFECT_SP_DEFENSE_UP_2,  AIScoring_SpDefenseUp2
	dbw EFFECT_REFLECT,          AIScoring_Reflect
	dbw EFFECT_PARALYZE,         AIScoring_Paralyze
	dbw EFFECT_SPEED_DOWN_HIT,   AIScoring_SpeedDownHit
	dbw EFFECT_SUBSTITUTE,       AIScoring_Substitute
	dbw EFFECT_HYPER_BEAM,       AIScoring_HyperBeam
	dbw EFFECT_RAGE,             AIScoring_Rage
	dbw EFFECT_MIMIC,            AIScoring_Mimic
	dbw EFFECT_LEECH_SEED,       AIScoring_LeechSeed
	dbw EFFECT_DISABLE,          AIScoring_Disable
	dbw EFFECT_COUNTER,          AIScoring_Counter
	dbw EFFECT_ENCORE,           AIScoring_Encore
	dbw EFFECT_PAIN_SPLIT,       AIScoring_PainSplit
	dbw EFFECT_SNORE,            AIScoring_Snore
	dbw EFFECT_CONVERSION2,      AIScoring_Conversion2
	dbw EFFECT_LOCK_ON,          AIScoring_LockOn
	dbw EFFECT_DEFROST_OPPONENT, AIScoring_DefrostOpponent
	dbw EFFECT_SLEEP_TALK,       AIScoring_SleepTalk
	dbw EFFECT_DESTINY_BOND,     AIScoring_DestinyBond
	dbw EFFECT_REVERSAL,         AIScoring_Reversal
	dbw EFFECT_SPITE,            AIScoring_Spite
	dbw EFFECT_HEAL_BELL,        AIScoring_HealBell
	dbw EFFECT_PRIORITY_HIT,     AIScoring_PriorityHit
	dbw EFFECT_THIEF,            AIScoring_Thief
	dbw EFFECT_MEAN_LOOK,        AIScoring_MeanLook
	dbw EFFECT_NIGHTMARE,        AIScoring_Nightmare
	dbw EFFECT_FLAME_WHEEL,      AIScoring_FlameWheel
	dbw EFFECT_CURSE,            AIScoring_Curse
	dbw EFFECT_PROTECT,          AIScoring_Protect
	dbw EFFECT_FORESIGHT,        AIScoring_Foresight
	dbw EFFECT_PERISH_SONG,      AIScoring_PerishSong
	dbw EFFECT_SANDSTORM,        AIScoring_Sandstorm
	dbw EFFECT_ENDURE,           AIScoring_Endure
	dbw EFFECT_ROLLOUT,          AIScoring_Rollout
	dbw EFFECT_SWAGGER,          AIScoring_Swagger
	dbw EFFECT_FURY_CUTTER,      AIScoring_FuryCutter
	dbw EFFECT_ATTRACT,          AIScoring_Attract
	dbw EFFECT_SAFEGUARD,        AIScoring_Safeguard
	dbw EFFECT_MAGNITUDE,        AIScoring_Magnitude
	dbw EFFECT_BATON_PASS,       AIScoring_BatonPass
	dbw EFFECT_PURSUIT,          AIScoring_Pursuit
	dbw EFFECT_RAPID_SPIN,       AIScoring_RapidSpin
	dbw EFFECT_MORNING_SUN,      AIScoring_MorningSun
	dbw EFFECT_SYNTHESIS,        AIScoring_Synthesis
	dbw EFFECT_MOONLIGHT,        AIScoring_Moonlight
	dbw EFFECT_HIDDEN_POWER,     AIScoring_HiddenPower
	dbw EFFECT_RAIN_DANCE,       AIScoring_RainDance
	dbw EFFECT_SUNNY_DAY,        AIScoring_SunnyDay
	dbw EFFECT_BELLY_DRUM,       AIScoring_BellyDrum
	dbw EFFECT_PSYCH_UP,         AIScoring_PsychUp
	dbw EFFECT_MIRROR_COAT,      AIScoring_MirrorCoat
	dbw EFFECT_SKULL_BASH,       AIScoring_SkullBash
	dbw EFFECT_TWISTER,          AIScoring_Twister
	dbw EFFECT_EARTHQUAKE,       AIScoring_Earthquake
	dbw EFFECT_FUTURE_SIGHT,     AIScoring_FutureSight
	dbw EFFECT_GUST,             AIScoring_Gust
	dbw EFFECT_STOMP,            AIScoring_Stomp
	dbw EFFECT_SOLARBEAM,        AIScoring_Solarbeam
	dbw EFFECT_THUNDER,          AIScoring_Thunder
	dbw EFFECT_FLY,              AIScoring_Fly
	db $ff
; 387e3


AIScoring_Sleep: ; 387e3
	ld b, $8
	call Function_0x392ca

	jr c, .asm_387f0

	ld b, $6b
	call Function_0x392ca

	ret nc

.asm_387f0
	call Function_0x39527

	ret c
	dec [hl]
	dec [hl]
	ret
; 387f7


AIScoring_LeechHit: ; 387f7
	push hl
	ld a, $1
	ld [hBattleTurn], a
	ld hl, $47c8
	ld a, $d
	rst FarCall

	pop hl
	ld a, [$d265]
	cp $a
	jr c, .asm_38815

	ret z
	call Function_0x39251

	ret c
	call Function_0x39521

	ret c
	dec [hl]
	ret

.asm_38815
	call RNG

	cp $64
	ret c
	inc [hl]
	ret
; 3881d


AIScoring_LockOn: ; 3881d
	ld a, [PlayerSubStatus5]
	bit 5, a
	jr nz, .asm_38882

	push hl
	call Function_0x39298

	jr nc, .asm_38877

	call Function_0x39281

	jr c, .asm_38834

	call Function_0x39233

	jr nc, .asm_38877


.asm_38834
	ld a, [PlayerEvaLevel]
	cp $a
	jr nc, .asm_3887a

	cp $8
	jr nc, .asm_38875

	ld a, [EnemyAccLevel]
	cp $5
	jr c, .asm_3887a

	cp $7
	jr c, .asm_38875

	ld hl, EnemyMonMoves
	ld c, EnemyMonMovesEnd - EnemyMonMoves + 1

.asm_3884f
	dec c
	jr z, .asm_38877

	ld a, [hli]
	and a
	jr z, .asm_38877

	call Function_0x39508

	ld a, [EnemyMoveAccuracy]
	cp $b4
	jr nc, .asm_3884f

	ld a, $1
	ld [hBattleTurn], a
	push hl
	push bc
	ld a, $d
	ld hl, $47c8
	rst FarCall

	ld a, [$d265]
	cp $a
	pop bc
	pop hl
	jr c, .asm_3884f


.asm_38875
	pop hl
	ret

.asm_38877
	pop hl
	inc [hl]
	ret

.asm_3887a
	pop hl
	call Function_0x39527

	ret c
	dec [hl]
	dec [hl]
	ret

.asm_38882
	push hl
	ld hl, Buffer1 - 1
	ld de, EnemyMonMoves
	ld c, EnemyMonMovesEnd - EnemyMonMoves + 1

.asm_3888b
	inc hl
	dec c
	jr z, .asm_388a2

	ld a, [de]
	and a
	jr z, .asm_388a2

	inc de
	call Function_0x39508

	ld a, [EnemyMoveAccuracy]
	cp $b4
	jr nc, .asm_3888b

	dec [hl]
	dec [hl]
	jr .asm_3888b


.asm_388a2
	pop hl
	jp Function_0x39503

; 388a6


AIScoring_Explosion: ; 388a6
	push hl
	ld a, $d
	ld hl, $49f4
	rst FarCall

	pop hl
	jr nc, .asm_388b7

	push hl
	call Function_0x38e2e

	pop hl
	jr nz, .asm_388c6


.asm_388b7
	call Function_0x39281

	jr c, .asm_388c6

	call Function_0x39298

	ret nc
	call RNG

	cp $14
	ret c

.asm_388c6
	inc [hl]
	inc [hl]
	inc [hl]
	ret
; 388ca


AIScoring_DreamEater: ; 388ca
	call RNG

	cp $19
	ret c
	dec [hl]
	dec [hl]
	dec [hl]
	ret
; 388d4


AIScoring_EvasionUp: ; 388d4
	ld a, [EnemyEvaLevel]
	cp $d
	jp nc, Function_0x39503

	call Function_0x39251

	jr nc, .asm_388f2

	ld a, [PlayerSubStatus5]
	bit 0, a
	jr nz, .asm_388ef

	call RNG

	cp $b2
	jr nc, .asm_38911


.asm_388ef
	dec [hl]
	dec [hl]
	ret

.asm_388f2
	call Function_0x39298

	jr nc, .asm_3890f

	call RNG

	cp $a
	jr c, .asm_388ef

	call Function_0x39281

	jr nc, .asm_3890a

	call Function_0x39521

	jr c, .asm_388ef

	jr .asm_38911


.asm_3890a
	call Function_0x39527

	jr c, .asm_38911


.asm_3890f
	inc [hl]
	inc [hl]

.asm_38911
	ld a, [PlayerSubStatus5]
	bit 0, a
	jr nz, .asm_38938

	ld a, [PlayerSubStatus4]
	bit 7, a
	jr nz, .asm_38941

	ld a, [EnemyEvaLevel]
	ld b, a
	ld a, [PlayerAccLevel]
	cp b
	jr c, .asm_38936

	ld a, [PlayerFuryCutterCount]
	and a
	jr nz, .asm_388ef

	ld a, [PlayerSubStatus1]
	bit 6, a
	jr nz, .asm_388ef


.asm_38936
	inc [hl]
	ret

.asm_38938
	call RNG
	cp $50
	ret c
	dec [hl]
	dec [hl]
	ret

.asm_38941
	call Function_0x39527

	ret c
	dec [hl]
	ret
; 38947


AIScoring_AlwaysHit: ; 38947
	ld a, [EnemyAccLevel]
	cp $5
	jr c, .asm_38954

	ld a, [PlayerEvaLevel]
	cp $a
	ret c

.asm_38954
	call Function_0x39521

	ret c
	dec [hl]
	dec [hl]
	ret
; 3895b


AIScoring_MirrorMove: ; 3895b
	ld a, [LastEnemyCounterMove]
	and a
	jr nz, .asm_38968

	call Function_0x39233

	ret nc
	jp Function_0x39503


.asm_38968
	push hl
	ld hl, Table_0x39301
	ld de, 1
	call IsInArray

	pop hl
	ret nc
	call Function_0x39527

	ret c
	dec [hl]
	call Function_0x39233

	ret nc
	call RNG

	cp $19
	ret c
	dec [hl]
	ret
; 38985


AIScoring_AccuracyDown: ; 38985
	call Function_0x39246

	jr nc, .asm_389a0

	call Function_0x39281

	jr nc, .asm_389a0

	ld a, [PlayerSubStatus5]
	bit 0, a
	jr nz, .asm_3899d

	call RNG

	cp $b2
	jr nc, .asm_389bf


.asm_3899d
	dec [hl]
	dec [hl]
	ret

.asm_389a0
	call Function_0x392b3

	jr nc, .asm_389bd

	call RNG

	cp $a
	jr c, .asm_3899d

	call Function_0x3926e

	jr nc, .asm_389b8

	call Function_0x39521

	jr c, .asm_3899d

	jr .asm_389bf


.asm_389b8
	call Function_0x39527

	jr c, .asm_389bf


.asm_389bd
	inc [hl]
	inc [hl]

.asm_389bf
	ld a, [PlayerSubStatus5]
	bit 0, a
	jr nz, .asm_389e6

	ld a, [PlayerSubStatus4]
	bit 7, a
	jr nz, .asm_389ef

	ld a, [EnemyEvaLevel]
	ld b, a
	ld a, [PlayerAccLevel]
	cp b
	jr c, .asm_389e4

	ld a, [PlayerFuryCutterCount]
	and a
	jr nz, .asm_3899d

	ld a, [PlayerSubStatus1]
	bit 6, a
	jr nz, .asm_3899d


.asm_389e4
	inc [hl]
	ret

.asm_389e6
	call RNG
	cp $50
	ret c
	dec [hl]
	dec [hl]
	ret

.asm_389ef
	call Function_0x39527

	ret c
	dec [hl]
	ret
; 389f5


AIScoring_Haze: ; 389f5
	push hl
	ld hl, EnemyAtkLevel
	ld c, $8
.asm_389fb
	dec c
	jr z, .asm_38a05
	ld a, [hli]
	cp $5
	jr c, .asm_38a12
	jr .asm_389fb


.asm_38a05
	ld hl, PlayerAtkLevel
	ld c, $8
.asm_38a0a
	dec c
	jr z, .asm_38a1b
	ld a, [hli]
	cp $a
	jr c, .asm_38a0a

.asm_38a12
	pop hl
	call RNG
	cp $28
	ret c
	dec [hl]
	ret

.asm_38a1b
	pop hl
	inc [hl]
	ret
; 38a1e


AIScoring_Bide: ; 38a1e
	call Function_0x39251
	ret c
	call RNG
	cp $19
	ret c
	inc [hl]
	ret
; 38a2a


AIScoring_Whirlwind: ; 38a2a
	push hl
	ld hl, $484e
	ld a, $d
	rst FarCall
	ld a, [$c716]
	cp $a
	pop hl
	ret c
	inc [hl]
	ret
; 38a3a


AIScoring_Heal:
AIScoring_MorningSun:
AIScoring_Synthesis:
AIScoring_Moonlight: ; 38a3a
	call Function_0x39298
	jr nc, .asm_38a45
	call Function_0x39281
	ret nc
	inc [hl]
	ret

.asm_38a45
	call RNG
	cp $19
	ret c
	dec [hl]
	dec [hl]
	ret
; 38a4e


AIScoring_Toxic:
AIScoring_LeechSeed: ; 38a4e
	call Function_0x3926e
	ret c
	inc [hl]
	ret
; 38a54


AIScoring_LightScreen:
AIScoring_Reflect: ; 38a54
	call Function_0x39251
	ret c
	call RNG
	cp $14
	ret c
	inc [hl]
	ret
; 38a60


AIScoring_Ohko: ; 38a60
	ld a, [BattleMonLevel]
	ld b, a
	ld a, [EnemyMonLevel]
	cp b
	jp c, Function_0x39503
	call Function_0x3926e
	ret c
	inc [hl]
	ret
; 38a71


AIScoring_Bind: ; 38a71
	ld a, [$c730]
	and a
	jr nz, .asm_38a8b

	ld a, [PlayerSubStatus5]
	bit SUBSTATUS_TOXIC, a
	jr nz, .asm_38a91

	ld a, [PlayerSubStatus1]
	and 1<<SUBSTATUS_IN_LOVE | 1<<SUBSTATUS_ENCORED | 1<<SUBSTATUS_IDENTIFIED | 1<<SUBSTATUS_NIGHTMARE
	jr nz, .asm_38a91

	ld a, [PlayerTurnsTaken]
	and a
	jr z, .asm_38a91

.asm_38a8b
	call Function_0x39527
	ret c
	inc [hl]
	ret

.asm_38a91
	call Function_0x39298
	ret nc
	call Function_0x39527
	ret c
	dec [hl]
	dec [hl]
	ret
; 38a9c


AIScoring_RazorWind:
AIScoring_Unused2B: ; 38a9c
	ld a, [EnemySubStatus1]
	bit SUBSTATUS_PERISH, a
	jr z, .asm_38aaa

	ld a, [EnemyPerishCount]
	cp 3
	jr c, .asm_38ad3

.asm_38aaa
	push hl
	ld hl, PlayerUsedMoves
	ld c, 4

.asm_38ab0
	ld a, [hli]
	and a
	jr z, .asm_38ac1

	call Function_0x39508

	ld a, [EnemyMoveEffect]
	cp EFFECT_PROTECT
	jr z, .asm_38ad5
	dec c
	jr nz, .asm_38ab0

.asm_38ac1
	pop hl
	ld a, [EnemySubStatus3]
	bit SUBSTATUS_CONFUSED, a
	jr nz, .asm_38acd

	call Function_0x39281
	ret c

.asm_38acd
	call RNG
	cp $c8
	ret c

.asm_38ad3
	inc [hl]
	ret

.asm_38ad5
	pop hl
	ld a, [hl]
	add 6
	ld [hl], a
	ret
; 38adb


AIScoring_Confuse: ; 38adb
	call Function_0x3926e
	ret c
	call RNG
	cp $19
	jr c, .asm_38ae7
	inc [hl]
.asm_38ae7
	call Function_0x392b3
	ret c
	inc [hl]
	ret
; 38aed


AIScoring_SpDefenseUp2: ; 38aed
	call Function_0x39281
	jr nc, .asm_38b10

	ld a, [EnemySDefLevel]
	cp $b
	jr nc, .asm_38b10
	cp $9
	ret nc

	ld a, [BattleMonType1]
	cp FIRE
	jr nc, .asm_38b09
	ld a, [BattleMonType2]
	cp FIRE
	ret c

.asm_38b09
	call Function_0x39521
	ret c
	dec [hl]
	dec [hl]
	ret

.asm_38b10
	inc [hl]
	ret
; 38b12


AIScoring_Fly: ; 38b12
	ld a, [PlayerSubStatus3]
	and 1<<SUBSTATUS_FLYING | 1<<SUBSTATUS_UNDERGROUND
	ret z
	call Function_0x39233
	ret nc
	dec [hl]
	dec [hl]
	dec [hl]
	ret
; 38b20


AIScoring_SuperFang: ; 38b20
	call Function_0x392b3
	ret c
	inc [hl]
	ret
; 38b26


AIScoring_Paralyze: ; 38b26
	call Function_0x392b3
	jr nc, .asm_38b3a
	call Function_0x39233
	ret c
	call Function_0x39298
	ret nc
	call Function_0x39521
	ret c
	dec [hl]
	dec [hl]
	ret

.asm_38b3a
	call Function_0x39527
	ret c
	inc [hl]
	ret
; 38b40


AIScoring_SpeedDownHit: ; 38b40
	ld a, [EnemyMoveAnimation]
	cp $c4
	ret nz
	call Function_0x39298
	ret nc
	ld a, [PlayerTurnsTaken]
	and a
	ret nz
	call Function_0x39233
	ret c
	call RNG
	cp $1e
	ret c
	dec [hl]
	dec [hl]
	ret
; 38b5c


AIScoring_Substitute: ; 38b5c
	call Function_0x39281
	ret c
	jp Function_0x39503
; 38b63


AIScoring_HyperBeam: ; 38b63
	call Function_0x39281
	jr c, .asm_38b72
	call Function_0x39298
	ret c
	call Function_0x39527
	ret c
	dec [hl]
	ret

.asm_38b72
	call RNG
	cp $28
	ret c
	inc [hl]
	call Function_0x39527
	ret c
	inc [hl]
	ret
; 38b7f


AIScoring_Rage: ; 38b7f
	ld a, [EnemySubStatus4]
	bit 6, a
	jr z, .asm_38b9b

	call Function_0x39527
	jr c, .asm_38b8c

	dec [hl]

.asm_38b8c
	ld a, [$c72c]
	cp $2
	ret c
	dec [hl]
	ld a, [$c72c]
	cp $3
	ret c
	dec [hl]
	ret

.asm_38b9b
	call Function_0x39281
	jr nc, .asm_38ba6

	call Function_0x39521
	ret nc
	dec [hl]
	ret

.asm_38ba6
	inc [hl]
	ret
; 38ba8


AIScoring_Mimic: ; 38ba8
	ld a, [LastEnemyCounterMove]
	and a
	jr z, .asm_38be9

	call Function_0x39281
	jr nc, .asm_38bef

	push hl
	ld a, [LastEnemyCounterMove]
	call Function_0x39508

	ld a, $1
	ld [hBattleTurn], a
	ld hl, $47c8
	ld a, $d
	rst FarCall

	ld a, [$d265]
	cp $a
	pop hl
	jr c, .asm_38bef
	jr z, .asm_38bd4

	call Function_0x39527
	jr c, .asm_38bd4

	dec [hl]

.asm_38bd4
	ld a, [LastEnemyCounterMove]
	push hl
	ld hl, Table_0x39301
	ld de, 1
	call IsInArray

	pop hl
	ret nc
	call Function_0x39527
	ret c
	dec [hl]
	ret

.asm_38be9
	call Function_0x39233
	jp c, Function_0x39503

.asm_38bef
	inc [hl]
	ret
; 38bf1


AIScoring_Counter: ; 38bf1
	push hl
	ld hl, PlayerUsedMoves
	ld c, 4
	ld b, 0

.asm_38bf9
	ld a, [hli]
	and a
	jr z, .asm_38c0e

	call Function_0x39508

	ld a, [EnemyMovePower]
	and a
	jr z, .asm_38c0e

	ld a, [EnemyMoveType]
	cp $14
	jr nc, .asm_38c0e

	inc b

.asm_38c0e
	dec c
	jr nz, .asm_38bf9

	pop hl
	ld a, b
	and a
	jr z, .asm_38c39

	cp $3
	jr nc, .asm_38c30

	ld a, [LastEnemyCounterMove]
	and a
	jr z, .asm_38c38

	call Function_0x39508

	ld a, [EnemyMovePower]
	and a
	jr z, .asm_38c38

	ld a, [EnemyMoveType]
	cp $14
	jr nc, .asm_38c38


.asm_38c30
	call RNG
	cp $64
	jr c, .asm_38c38

	dec [hl]

.asm_38c38
	ret

.asm_38c39
	inc [hl]
	ret
; 38c3b


AIScoring_Encore: ; 38c3b
	call Function_0x39233
	jr nc, .asm_38c81

	ld a, [LastPlayerMove]
	and a
	jp z, Function_0x39503

	call Function_0x39508

	ld a, [EnemyMovePower]
	and a
	jr z, .asm_38c68

	push hl
	ld a, [EnemyMoveType]
	ld hl, EnemyMonType1
	ld a, $41
	call Predef

	pop hl
	ld a, [$d265]
	cp $a
	jr nc, .asm_38c68

	and a
	ret nz
	jr .asm_38c78

.asm_38c68
	push hl
	ld a, [LastEnemyCounterMove]
	ld hl, .table_38c85
	ld de, 1
	call IsInArray
	pop hl
	jr nc, .asm_38c81

.asm_38c78
	call RNG
	cp $46
	ret c
	dec [hl]
	dec [hl]
	ret

.asm_38c81
	inc [hl]
	inc [hl]
	inc [hl]
	ret

.table_38c85
	db SWORDS_DANCE
	db WHIRLWIND
	db LEER
	db ROAR
	db DISABLE
	db MIST
	db LEECH_SEED
	db GROWTH
	db POISONPOWDER
	db STRING_SHOT
	db MEDITATE
	db AGILITY
	db TELEPORT
	db SCREECH
	db HAZE
	db FOCUS_ENERGY
	db DREAM_EATER
	db POISON_GAS
	db SPLASH
	db SHARPEN
	db CONVERSION
	db SUPER_FANG
	db SUBSTITUTE
	db TRIPLE_KICK
	db SPIDER_WEB
	db MIND_READER
	db FLAME_WHEEL
	db AEROBLAST
	db COTTON_SPORE
	db POWDER_SNOW
	db $ff
; 38ca4


AIScoring_PainSplit: ; 38ca4
	push hl
	ld hl, EnemyMonHPHi
	ld b, [hl]
	inc hl
	ld c, [hl]
	sla c
	rl b
	ld hl, $c63d
	ld a, [hld]
	cp c
	ld a, [hl]
	sbc b
	pop hl
	ret nc
	inc [hl]
	ret
; 38cba


AIScoring_Snore:
AIScoring_SleepTalk: ; 38cba
	ld a, [EnemyMonStatus]
	and $7
	cp $1
	jr z, .asm_38cc7

	dec [hl]
	dec [hl]
	dec [hl]
	ret

.asm_38cc7
	inc [hl]
	inc [hl]
	inc [hl]
	ret
; 38ccb


AIScoring_DefrostOpponent: ; 38ccb
	ld a, [EnemyMonStatus]
	and $20
	ret z
	dec [hl]
	dec [hl]
	dec [hl]
	ret
; 38cd5


AIScoring_Spite: ; 38cd5
	ld a, [LastEnemyCounterMove]
	and a
	jr nz, .asm_38ce7

	call Function_0x39233
	jp c, Function_0x39503

	call Function_0x39527
	ret c
	inc [hl]
	ret

.asm_38ce7
	push hl
	ld b, a
	ld c, 4
	ld hl, BattleMonMoves
	ld de, BattleMonPP

.asm_38cf1
	ld a, [hli]
	cp b
	jr z, .asm_38cfb

	inc de
	dec c
	jr nz, .asm_38cf1

	pop hl
	ret

.asm_38cfb
	pop hl
	ld a, [de]
	cp $6
	jr c, .asm_38d0d
	cp $f
	jr nc, .asm_38d0b

	call RNG
	cp $64
	ret nc

.asm_38d0b
	inc [hl]
	ret

.asm_38d0d
	call RNG
	cp $64
	ret c
	dec [hl]
	dec [hl]
	ret
; 38d16


Function_0x38d16; 38d16
	jp Function_0x39503
; 38d19


AIScoring_DestinyBond:
AIScoring_Reversal:
AIScoring_SkullBash: ; 38d19
	call Function_0x39298
	ret nc
	inc [hl]
	ret
; 38d1f


AIScoring_HealBell: ; 38d1f
	push hl
	ld a, [OTPartyCount]
	ld b, a
	ld c, 0
	ld hl, OTPartyMon1CurHP
	ld de, $0030

.asm_38d2c
	push hl
	ld a, [hli]
	or [hl]
	jr z, .asm_38d37

	dec hl
	dec hl
	dec hl
	ld a, [hl]
	or c
	ld c, a

.asm_38d37
	pop hl
	add hl, de
	dec b
	jr nz, .asm_38d2c

	pop hl
	ld a, c
	and a
	jr z, .asm_38d52

	ld a, [EnemyMonStatus]
	and a
	jr z, .asm_38d48

	dec [hl]

.asm_38d48
	and $27
	ret z
	call Function_0x39527

	ret c
	dec [hl]
	dec [hl]
	ret

.asm_38d52
	ld a, [EnemyMonStatus]
	and a
	ret nz
	jp Function_0x39503

; 38d5a


AIScoring_PriorityHit: ; 38d5a
	call Function_0x39233

	ret c
	ld a, [PlayerSubStatus3]
	and $60
	jp nz, Function_0x39503

	ld a, $1
	ld [hBattleTurn], a
	push hl
	ld hl, $53f6
	ld a, $d
	rst FarCall

	ld hl, $5612
	ld a, $d
	rst FarCall

	ld hl, $46d2
	ld a, $d
	rst FarCall

	pop hl
	ld a, [$d257]
	ld c, a
	ld a, [CurDamage]
	ld b, a
	ld a, [$c63d]
	cp c
	ld a, [BattleMonHP]
	sbc b
	ret nc
	dec [hl]
	dec [hl]
	dec [hl]
	ret
; 38d93


AIScoring_Thief: ; 38d93
	ld a, [hl]
	add $1e
	ld [hl], a
	ret
; 38d98


AIScoring_Conversion2: ; 38d98
	ld a, [LastPlayerMove]
	and a
	jr nz, .asm_38dc9

	push hl
	dec a
	ld hl, Moves + PlayerMoveType - PlayerMoveStruct
	ld bc, Move2 - Move1
	call AddNTimes

	ld a, BANK(Moves)
	call GetFarByte
	ld [PlayerMoveType], a

	xor a
	ld [hBattleTurn], a

	ld hl, $47c8
	ld a, $d
	rst FarCall

	ld a, [$d265]
	cp $a
	pop hl
	jr c, .asm_38dc9

	ret z
	call Function_0x39527

	ret c
	dec [hl]
	ret

.asm_38dc9
	call RNG

	cp $19
	ret c
	inc [hl]
	ret
; 38dd1


AIScoring_Disable: ; 38dd1
	call Function_0x39233

	jr nc, .asm_38df3

	push hl
	ld a, [LastEnemyCounterMove]
	ld hl, Table_0x39301
	ld de, 1
	call IsInArray

	pop hl
	jr nc, .asm_38dee

	call RNG

	cp $64
	ret c
	dec [hl]
	ret

.asm_38dee
	ld a, [EnemyMovePower]
	and a
	ret nz

.asm_38df3
	call RNG

	cp $14
	ret c
	inc [hl]
	ret
; 38dfb


AIScoring_MeanLook: ; 38dfb
	call Function_0x39281

	jr nc, .asm_38e24

	push hl
	call Function_0x38e2e

	pop hl
	jp z, Function_0x39503

	ld a, [EnemySubStatus5]
	bit 0, a
	jr nz, .asm_38e26

	ld a, [PlayerSubStatus1]
	and $c9
	jr nz, .asm_38e26

	push hl
	ld hl, $484e
	ld a, $d
	rst FarCall

	ld a, [$c716]
	cp $b
	pop hl
	ret nc

.asm_38e24
	inc [hl]
	ret

.asm_38e26
	call Function_0x39521

	ret c
	dec [hl]
	dec [hl]
	dec [hl]
	ret
; 38e2e


Function_0x38e2e: ; 38e2e
	ld a, [PartyCount]
	ld b, a
	ld c, 0
	ld hl, PartyMon1CurHP
	ld de, PartyMon2 - PartyMon1

.loop
	ld a, [CurBattleMon]
	cp c
	jr z, .asm_38e44

	ld a, [hli]
	or [hl]
	ret nz
	dec hl

.asm_38e44
	add hl, de
	inc c
	dec b
	jr nz, .loop

	ret
; 38e4a


AIScoring_Nightmare: ; 38e4a
	call Function_0x39527

	ret c
	dec [hl]
	ret
; 38e50


AIScoring_FlameWheel: ; 38e50
	ld a, [EnemyMonStatus]
	bit 5, a
	ret z
	dec [hl]
	dec [hl]
	dec [hl]
	dec [hl]
	dec [hl]
	ret
; 38e5c


AIScoring_Curse: ; 38e5c
	ld a, [EnemyMonType1]
	cp $8
	jr z, .asm_38e95

	ld a, [EnemyMonType2]
	cp $8
	jr z, .asm_38e95

	call Function_0x39281

	jr nc, .asm_38e93

	ld a, [EnemyAtkLevel]
	cp $b
	jr nc, .asm_38e93

	cp $9
	ret nc
	ld a, [BattleMonType1]
	cp $8
	jr z, .asm_38e92

	cp $14
	ret nc
	ld a, [BattleMonType2]
	cp $14
	ret nc
	call Function_0x39521

	ret c
	dec [hl]
	dec [hl]
	ret

.asm_38e90
	inc [hl]
	inc [hl]

.asm_38e92
	inc [hl]

.asm_38e93
	inc [hl]
	ret

.asm_38e95
	ld a, [PlayerSubStatus1]
	bit 1, a
	jp nz, Function_0x39503

	push hl
	ld a, $d
	ld hl, $49f4
	rst FarCall

	pop hl
	jr nc, .asm_38eb0

	push hl
	call Function_0x38e2e

	pop hl
	jr nz, .asm_38e90

	jr .asm_38eb7


.asm_38eb0
	push hl
	call Function_0x38e2e

	pop hl
	jr z, .asm_38ecb


.asm_38eb7
	call Function_0x39298

	jp nc, .asm_38e90

	call Function_0x39281

	jr nc, .asm_38e92

	call Function_0x39251

	ret nc
	ld a, [PlayerTurnsTaken]
	and a
	ret nz

.asm_38ecb
	call Function_0x39527

	ret c
	dec [hl]
	dec [hl]
	ret
; 38ed2


AIScoring_Protect: ; 38ed2
	ld a, [$c681]
	and a
	jr nz, .asm_38f13

	ld a, [PlayerSubStatus5]
	bit 5, a
	jr nz, .asm_38f14

	ld a, [PlayerFuryCutterCount]
	cp $3
	jr nc, .asm_38f0d

	ld a, [PlayerSubStatus3]
	bit 4, a
	jr nz, .asm_38f0d

	ld a, [PlayerSubStatus5]
	bit 0, a
	jr nz, .asm_38f0d

	ld a, [PlayerSubStatus4]
	bit 7, a
	jr nz, .asm_38f0d

	ld a, [PlayerSubStatus1]
	bit 1, a
	jr nz, .asm_38f0d

	bit 6, a
	jr z, .asm_38f14

	ld a, [PlayerRolloutCount]
	cp $3
	jr c, .asm_38f14


.asm_38f0d
	call Function_0x39521

	ret c
	dec [hl]
	ret

.asm_38f13
	inc [hl]

.asm_38f14
	call RNG

	cp $14
	ret c
	inc [hl]
	inc [hl]
	ret
; 38f1d


AIScoring_Foresight: ; 38f1d
	ld a, [EnemyAccLevel]
	cp $5
	jr c, .asm_38f41

	ld a, [PlayerEvaLevel]
	cp $a
	jr nc, .asm_38f41

	ld a, [BattleMonType1]
	cp $8
	jr z, .asm_38f41

	ld a, [BattleMonType2]
	cp $8
	jr z, .asm_38f41

	call RNG

	cp $14
	ret c
	inc [hl]
	ret

.asm_38f41
	call RNG

	cp $64
	ret c
	dec [hl]
	dec [hl]
	ret
; 38f4a


AIScoring_PerishSong: ; 38f4a
	push hl
	ld hl, $49f4
	ld a, $d
	rst FarCall

	pop hl
	jr c, .asm_38f75

	ld a, [PlayerSubStatus5]
	bit 7, a
	jr nz, .asm_38f6f

	push hl
	ld hl, $484e
	ld a, $d
	rst FarCall

	ld a, [$c716]
	cp $a
	pop hl
	ret c
	call Function_0x39527

	ret c
	inc [hl]
	ret

.asm_38f6f
	call Function_0x39527

	ret c
	dec [hl]
	ret

.asm_38f75
	ld a, [hl]
	add $5
	ld [hl], a
	ret
; 38f7a


AIScoring_Sandstorm: ; 38f7a
	ld a, [BattleMonType1]
	push hl
	ld hl, .SandstormImmuneTypes
	ld de, 1
	call IsInArray
	pop hl
	jr c, .asm_38fa5

	ld a, [BattleMonType2]
	push hl
	ld hl, .SandstormImmuneTypes
	ld de, 1
	call IsInArray
	pop hl
	jr c, .asm_38fa5

	call Function_0x3926e
	jr nc, .asm_38fa6

	call Function_0x39527
	ret c

	dec [hl]
	ret

.asm_38fa5
	inc [hl]

.asm_38fa6
	inc [hl]
	ret

.SandstormImmuneTypes
	db ROCK
	db GROUND
	db STEEL
	db $ff
; 38fac


AIScoring_Endure: ; 38fac
	ld a, [$c681]
	and a
	jr nz, .asm_38fd8

	call Function_0x39251

	jr c, .asm_38fd8

	call Function_0x39298

	jr c, .asm_38fd9

	ld b, $63
	call Function_0x392ca

	jr nc, .asm_38fcb

	call Function_0x39521

	ret c
	dec [hl]
	dec [hl]
	dec [hl]
	ret

.asm_38fcb
	ld a, [EnemySubStatus5]
	bit 5, a
	ret z
	call Function_0x39527

	ret c
	dec [hl]
	dec [hl]
	ret

.asm_38fd8
	inc [hl]

.asm_38fd9
	inc [hl]
	ret
; 38fdb


AIScoring_FuryCutter: ; 38fdb
	ld a, [EnemyFuryCutterCount]
	and a
	jr z, AIScoring_Rollout

	dec [hl]
	cp $2
	jr c, AIScoring_Rollout

	dec [hl]
	dec [hl]
	cp $3
	jr c, AIScoring_Rollout

	dec [hl]
	dec [hl]
	dec [hl]

	; fallthrough
; 38fef


AIScoring_Rollout: ; 38fef
	ld a, [EnemySubStatus1]
	bit 7, a
	jr nz, .asm_39020

	ld a, [EnemySubStatus3]
	bit 7, a
	jr nz, .asm_39020

	ld a, [EnemyMonStatus]
	bit 6, a
	jr nz, .asm_39020

	call Function_0x39298

	jr nc, .asm_39020

	ld a, [EnemyAccLevel]
	cp $7
	jr c, .asm_39020

	ld a, [PlayerEvaLevel]
	cp $8
	jr nc, .asm_39020

	call RNG

	cp $c8
	ret nc
	dec [hl]
	dec [hl]
	ret

.asm_39020
	call Function_0x39521

	ret c
	inc [hl]
	ret
; 39026


AIScoring_Swagger:
AIScoring_Attract: ; 39026
	ld a, [PlayerTurnsTaken]
	and a
	jr z, .asm_39032

	call Function_0x39521

	ret c
	inc [hl]
	ret

.asm_39032
	call RNG

	cp $c8
	ret nc
	dec [hl]
	ret
; 3903a


AIScoring_Safeguard: ; 3903a
	call Function_0x3926e

	ret c
	call Function_0x39521

	ret c
	inc [hl]
	ret
; 39044


AIScoring_Magnitude:
AIScoring_Earthquake: ; 39044
	ld a, [LastEnemyCounterMove]
	cp $5b
	ret nz
	ld a, [PlayerSubStatus3]
	bit 5, a
	jr z, .asm_39058

	call Function_0x39233

	ret nc
	dec [hl]
	dec [hl]
	ret

.asm_39058
	call Function_0x39233

	ret c
	call Function_0x39527

	ret c
	dec [hl]
	ret
; 39062


AIScoring_BatonPass: ; 39062
	push hl
	ld hl, $484e
	ld a, $d
	rst FarCall

	ld a, [$c716]
	cp $a
	pop hl
	ret c
	inc [hl]
	ret
; 39072


AIScoring_Pursuit: ; 39072
	call Function_0x392b3

	jr nc, .asm_3907d

	call Function_0x39521

	ret c
	inc [hl]
	ret

.asm_3907d
	call Function_0x39527

	ret c
	dec [hl]
	dec [hl]
	ret
; 39084


AIScoring_RapidSpin: ; 39084
	ld a, [$c731]
	and a
	jr nz, .asm_39097

	ld a, [EnemySubStatus4]
	bit 7, a
	jr nz, .asm_39097

	ld a, [EnemyScreens]
	bit 0, a
	ret z

.asm_39097
	call Function_0x39521

	ret c
	dec [hl]
	dec [hl]
	ret
; 3909e


AIScoring_HiddenPower: ; 3909e
	push hl
	ld a, $1
	ld [hBattleTurn], a
	ld hl, $7ced
	ld a, $3e
	rst FarCall

	ld hl, $47c8
	ld a, $d
	rst FarCall

	pop hl
	ld a, [$d265]
	cp $a
	jr c, .asm_390c9

	ld a, d
	cp $32
	jr c, .asm_390c9

	ld a, [$d265]
	cp $b
	jr nc, .asm_390c7

	ld a, d
	cp $46
	ret c

.asm_390c7
	dec [hl]
	ret

.asm_390c9
	inc [hl]
	ret
; 390cb


AIScoring_RainDance: ; 390cb
	ld a, [BattleMonType1]
	cp WATER
	jr z, Function_0x3911e
	cp FIRE
	jr z, Function_0x39122

	ld a, [BattleMonType2]
	cp WATER
	jr z, Function_0x3911e
	cp FIRE
	jr z, Function_0x39122

	push hl
	ld hl, RainDanceMoves
	jr Function_0x3910d
; 390e7


RainDanceMoves: ; 390e7
	db WATER_GUN
	db HYDRO_PUMP
	db SURF
	db BUBBLEBEAM
	db THUNDER
	db WATERFALL
	db CLAMP
	db BUBBLE
	db CRABHAMMER
	db OCTAZOOKA
	db WHIRLPOOL
	db $ff
; 390f3


AIScoring_SunnyDay: ; 390f3
	ld a, [BattleMonType1]
	cp FIRE
	jr z, Function_0x3911e
	cp WATER
	jr z, Function_0x39122

	ld a, [BattleMonType2]
	cp FIRE
	jr z, Function_0x3911e
	cp WATER
	jr z, Function_0x39122

	push hl
	ld hl, SunnyDayMoves

	; fallthrough
; 3910d


Function_0x3910d: ; 3910d
	call Function_0x392e6
	pop hl
	jr nc, Function_0x3911e

	call Function_0x3926e
	jr nc, Function_0x3911e

	call Function_0x39527
	ret c

	dec [hl]
	ret

Function_0x3911e: ; 3911e
	inc [hl]
	inc [hl]
	inc [hl]
	ret

Function_0x39122: ; 39122
	call Function_0x3926e
	ret nc

	ld a, [PlayerTurnsTaken]
	and a
	jr z, .asm_39131

	ld a, [EnemyTurnsTaken]
	and a
	ret nz

.asm_39131
	dec [hl]
	dec [hl]
	ret
; 39134


SunnyDayMoves: ; 39134
	db FIRE_PUNCH
	db EMBER
	db FLAMETHROWER
	db FIRE_SPIN
	db FIRE_BLAST
	db SACRED_FIRE
	db MORNING_SUN
	db SYNTHESIS
	db $ff
; 3913d


AIScoring_BellyDrum: ; 3913d
	ld a, [EnemyAtkLevel]
	cp $a
	jr nc, .asm_3914d

	call Function_0x39251

	ret c
	inc [hl]
	call Function_0x39281

	ret c

.asm_3914d
	ld a, [hl]
	add $5
	ld [hl], a
	ret
; 39152


AIScoring_PsychUp: ; 39152
	push hl
	ld hl, EnemyAtkLevel
	ld b, $8
	ld c, $64

.asm_3915a
	ld a, [hli]
	sub $7
	add c
	ld c, a
	dec b
	jr nz, .asm_3915a

	ld hl, PlayerAtkLevel
	ld b, $8
	ld d, $64

.asm_39169
	ld a, [hli]
	sub $7
	add d
	ld d, a
	dec b
	jr nz, .asm_39169

	ld a, c
	sub d
	pop hl
	jr nc, .asm_39188

	ld a, [PlayerAccLevel]
	cp $6
	ret c
	ld a, [EnemyEvaLevel]
	cp $8
	ret nc
	call Function_0x39521

	ret c
	dec [hl]
	ret

.asm_39188
	inc [hl]
	inc [hl]
	ret
; 3918b


AIScoring_MirrorCoat: ; 3918b
	push hl
	ld hl, PlayerUsedMoves
	ld c, $4
	ld b, $0

.asm_39193
	ld a, [hli]
	and a
	jr z, .asm_391a8

	call Function_0x39508

	ld a, [EnemyMovePower]
	and a
	jr z, .asm_391a8

	ld a, [EnemyMoveType]
	cp $14
	jr c, .asm_391a8

	inc b

.asm_391a8
	dec c
	jr nz, .asm_39193

	pop hl
	ld a, b
	and a
	jr z, .asm_391d3

	cp $3
	jr nc, .asm_391ca

	ld a, [LastEnemyCounterMove]
	and a
	jr z, .asm_391d2

	call Function_0x39508

	ld a, [EnemyMovePower]
	and a
	jr z, .asm_391d2

	ld a, [EnemyMoveType]
	cp $14
	jr c, .asm_391d2


.asm_391ca
	call RNG

	cp $64
	jr c, .asm_391d2

	dec [hl]

.asm_391d2
	ret

.asm_391d3
	inc [hl]
	ret
; 391d5


AIScoring_Twister:
AIScoring_Gust: ; 391d5
	ld a, [LastEnemyCounterMove]
	cp $13
	ret nz
	ld a, [PlayerSubStatus3]
	bit 6, a
	jr z, .asm_391e9

	call Function_0x39233

	ret nc
	dec [hl]
	dec [hl]
	ret

.asm_391e9
	call Function_0x39233

	ret c
	call Function_0x39527

	ret c
	dec [hl]
	ret
; 391f3


AIScoring_FutureSight: ; 391f3
	call Function_0x39233

	ret nc
	ld a, [PlayerSubStatus3]
	and $60
	ret z
	dec [hl]
	dec [hl]
	ret
; 39200


AIScoring_Stomp: ; 39200
	ld a, [$c6fe]
	and a
	ret z
	call Function_0x39521

	ret c
	dec [hl]
	ret
; 3920b


AIScoring_Solarbeam: ; 3920b
	ld a, [Weather]
	cp WEATHER_SUN
	jr z, .asm_3921e

	cp WEATHER_RAIN
	ret nz

	call RNG
	cp 25 ; 1/10
	ret c

	inc [hl]
	inc [hl]
	ret

.asm_3921e
	call Function_0x39521
	ret c

	dec [hl]
	dec [hl]
	ret
; 39225


AIScoring_Thunder: ; 39225
	ld a, [Weather]
	cp WEATHER_SUN
	ret nz

	call RNG
	cp 25 ; 1/10
	ret c

	inc [hl]
	ret
; 39233


Function_0x39233: ; 39233
	push bc
	ld a, [$d21f]
	ld b, a
	ld a, [$c645]
	cp b
	ld a, [EnemyMonSpd]
	ld b, a
	ld a, [BattleMonSpd]
	sbc b
	pop bc
	ret
; 39246


Function_0x39246: ; 39246
	push hl
	push de
	push bc
	ld de, BattleMonHP
	ld hl, BattleMonMaxHP
	jr Function_0x3925a
; 39251


Function_0x39251: ; 39251
	push hl
	push de
	push bc
	ld de, EnemyMonHPHi
	ld hl, EnemyMonMaxHPHi
	; fallthrough
; 3925a


Function_0x3925a: ; 3925a
	ld a, [de]
	inc de
	cp [hl]
	jr nz, .asm_39269

	inc hl
	ld a, [de]
	cp [hl]
	jr nz, .asm_39269

	pop bc
	pop de
	pop hl
	scf
	ret

.asm_39269
	pop bc
	pop de
	pop hl
	and a
	ret
; 3926e


Function_0x3926e: ; 3926e
	push hl
	ld hl, BattleMonHP
	ld b, [hl]
	inc hl
	ld c, [hl]
	sla c
	rl b
	inc hl
	inc hl
	ld a, [hld]
	cp c
	ld a, [hl]
	sbc b
	pop hl
	ret
; 39281


Function_0x39281: ; 39281
	push hl
	push de
	push bc
	ld hl, EnemyMonHPHi
	ld b, [hl]
	inc hl
	ld c, [hl]
	sla c
	rl b
	inc hl
	inc hl
	ld a, [hld]
	cp c
	ld a, [hl]
	sbc b
	pop bc
	pop de
	pop hl
	ret
; 39298


Function_0x39298: ; 39298
	push hl
	push de
	push bc
	ld hl, EnemyMonHPHi
	ld b, [hl]
	inc hl
	ld c, [hl]
	sla c
	rl b
	sla c
	rl b
	inc hl
	inc hl
	ld a, [hld]
	cp c
	ld a, [hl]
	sbc b
	pop bc
	pop de
	pop hl
	ret
; 392b3


Function_0x392b3: ; 392b3
	push hl
	ld hl, BattleMonHP
	ld b, [hl]
	inc hl
	ld c, [hl]
	sla c
	rl b
	sla c
	rl b
	inc hl
	inc hl
	ld a, [hld]
	cp c
	ld a, [hl]
	sbc b
	pop hl
	ret
; 392ca


Function_0x392ca: ; 392ca
	push hl
	ld hl, EnemyMonMoves
	ld c, EnemyMonMovesEnd - EnemyMonMoves

.asm_392d0
	ld a, [hli]
	and a
	jr z, .asm_392e0

	call Function_0x39508

	ld a, [EnemyMoveEffect]
	cp b
	jr z, .asm_392e3

	dec c
	jr nz, .asm_392d0

.asm_392e0
	pop hl
	and a
	ret

.asm_392e3
	pop hl
	scf
	ret
; 392e6


Function_0x392e6: ; 392e6
	push hl
	push de
	push bc

.asm_392e9
	ld a, [hli]
	cp $ff
	jr z, .asm_392fd

	ld b, a
	ld c, EnemyMonMovesEnd - EnemyMonMoves + 1
	ld de, EnemyMonMoves

.asm_392f4
	dec c
	jr z, .asm_392e9

	ld a, [de]
	inc de
	cp b
	jr nz, .asm_392f4

	scf

.asm_392fd
	pop bc
	pop de
	pop hl
	ret
; 39301


Table_0x39301: ; 39301
	db DOUBLE_EDGE
	db SING
	db FLAMETHROWER
	db HYDRO_PUMP
	db SURF
	db ICE_BEAM
	db BLIZZARD
	db HYPER_BEAM
	db SLEEP_POWDER
	db THUNDERBOLT
	db THUNDER
	db EARTHQUAKE
	db TOXIC
	db PSYCHIC_M
	db HYPNOSIS
	db RECOVER
	db FIRE_BLAST
	db SOFTBOILED
	db SUPER_FANG
	db $ff
; 39315


Function_0x39315: ; 39315
	call Function_0x39281
	ret c

	call Function_0x39298
	jr nc, .asm_39322

	call Function_0x39527
	ret c

.asm_39322
	ld hl, Buffer1 - 1
	ld de, EnemyMonMoves
	ld c, EnemyMonMovesEnd - EnemyMonMoves + 1
.asm_3932a
	inc hl
	dec c
	jr z, .asm_39347

	ld a, [de]
	inc de
	and a
	jr z, .asm_39347

	push hl
	push de
	push bc
	ld hl, .table_39348
	ld de, 1
	call IsInArray

	pop bc
	pop de
	pop hl
	jr nc, .asm_3932a

	inc [hl]
	jr .asm_3932a

.asm_39347
	ret

.table_39348
	db SWORDS_DANCE
	db TAIL_WHIP
	db LEER
	db GROWL
	db DISABLE
	db MIST
	db COUNTER
	db LEECH_SEED
	db GROWTH
	db STRING_SHOT
	db MEDITATE
	db AGILITY
	db RAGE
	db MIMIC
	db SCREECH
	db HARDEN
	db WITHDRAW
	db DEFENSE_CURL
	db BARRIER
	db LIGHT_SCREEN
	db HAZE
	db REFLECT
	db FOCUS_ENERGY
	db BIDE
	db AMNESIA
	db TRANSFORM
	db SPLASH
	db ACID_ARMOR
	db SHARPEN
	db CONVERSION
	db SUBSTITUTE
	db FLAME_WHEEL
	db $ff
; 39369



Function_0x39369: ; 39369
	ld hl, EnemyMonMoves
	ld bc, 0
	ld de, 0
.asm_39372
	inc b
	ld a, b
	cp EnemyMonMovesEnd - EnemyMonMoves + 1
	jr z, .asm_393a8

	ld a, [hli]
	and a
	jr z, .asm_393a8

	push hl
	push de
	push bc
	call Function_0x39508

	ld a, [EnemyMovePower]
	and a
	jr z, .asm_393a3

	call Function_0x393e7

	pop bc
	pop de
	pop hl
	ld a, [CurDamage + 1]
	cp e
	ld a, [CurDamage]
	sbc d
	jr c, .asm_39372

	ld a, [CurDamage + 1]
	ld e, a
	ld a, [CurDamage]
	ld d, a
	ld c, b
	jr .asm_39372

.asm_393a3
	pop bc
	pop de
	pop hl
	jr .asm_39372

.asm_393a8
	ld a, c
	and a
	jr z, .asm_393e1

	ld hl, Buffer1 - 1
	ld de, EnemyMonMoves
	ld b, 0
.asm_393b4
	inc b
	ld a, b
	cp EnemyMonMovesEnd - EnemyMonMoves + 1
	jr z, .asm_393e1

	cp c
	ld a, [de]
	inc de
	inc hl
	jr z, .asm_393b4

	call Function_0x39508

	ld a, [EnemyMovePower]
	cp $2
	jr c, .asm_393b4

	push hl
	push de
	push bc
	ld a, [EnemyMoveEffect]
	ld hl, Table_0x393e2
	ld de, 1
	call IsInArray
	pop bc
	pop de
	pop hl
	jr c, .asm_393b4

	inc [hl]
	jr .asm_393b4

.asm_393e1
	ret

; 393e2


Table_0x393e2: ; 393e2
	db EFFECT_EXPLOSION
	db EFFECT_RAMPAGE
	db EFFECT_MULTI_HIT
	db EFFECT_DOUBLE_HIT
	db $ff
; 393e7


Function_0x393e7: ; 393e7
	ld a, 1
	ld [hBattleTurn], a
	ld a, [EnemyMoveEffect]
	ld de, 1
	ld hl, .ConstantDamageEffects
	call IsInArray
	jr nc, .asm_39400
	callab BattleCommand3f
	ret

.asm_39400
	callab EnemyAttackDamage
	callab BattleCommand62
	callab BattleCommand07
	ret

.ConstantDamageEffects
	db EFFECT_SUPER_FANG
	db EFFECT_STATIC_DAMAGE
	db EFFECT_LEVEL_DAMAGE
	db EFFECT_PSYWAVE
	db $ff
; 39418


Function_0x39418: ; 39418
	ld a, [EnemyTurnsTaken]
	and a
	ret z

	ld hl, Buffer1 - 1
	ld de, EnemyMonMoves
	ld c, EnemyMonMovesEnd - EnemyMonMoves + 1
.asm_39425
	inc hl
	dec c
	ret z

	ld a, [de]
	inc de
	and a
	ret z

	push hl
	push de
	push bc
	ld hl, .table_39446
	ld de, 1
	call IsInArray

	pop bc
	pop de
	pop hl
	jr nc, .asm_39425

	call RNG
	cp $e6
	ret nc

	inc [hl]
	jr .asm_39425

.table_39446
	db MIST
	db LEECH_SEED
	db POISONPOWDER
	db STUN_SPORE
	db THUNDER_WAVE
	db FOCUS_ENERGY
	db BIDE
	db POISON_GAS
	db TRANSFORM
	db CONVERSION
	db SUBSTITUTE
	db SPIKES
	db $ff
; 39453



Function_0x39453: ; 39453
	ld hl, Buffer1 - 1
	ld de, EnemyMonMoves
	ld b, EnemyMonMovesEnd - EnemyMonMoves + 1
.asm_3945b
	dec b
	ret z

	inc hl
	ld a, [de]
	and a
	ret z

	inc de
	call Function_0x39508

	ld a, [EnemyMoveEffect]
	cp EFFECT_TOXIC
	jr z, .asm_39480
	cp EFFECT_POISON
	jr z, .asm_39480
	cp EFFECT_SLEEP
	jr z, .asm_3948e
	cp EFFECT_PARALYZE
	jr z, .asm_3948e

	ld a, [EnemyMovePower]
	and a
	jr z, .asm_3945b

	jr .asm_3948e

.asm_39480
	ld a, [BattleMonType1]
	cp POISON
	jr z, .asm_394a4
	ld a, [BattleMonType2]
	cp POISON
	jr z, .asm_394a4

.asm_3948e
	push hl
	push bc
	push de

	ld a, 1
	ld [hBattleTurn], a

	ld hl, $47c8
	ld a, $d
	rst FarCall

	pop de
	pop bc
	pop hl

	ld a, [$d265]
	and a
	jr nz, .asm_3945b

.asm_394a4
	call Function_0x39503
	jr .asm_3945b
; 394a9



Function_0x394a9: ; 394a9
	ld hl, Buffer1 - 1
	ld de, EnemyMonMoves
	ld c, EnemyMonMovesEnd - EnemyMonMoves + 1
.asm_394b1
	inc hl
	dec c
	ret z

	ld a, [de]
	inc de
	and a
	ret z

	push de
	push bc
	push hl
	call Function_0x39508

	ld a, [EnemyMovePower]
	and a
	jr z, .asm_394fa

	ld a, [EnemyMoveEffect]
	ld de, 1
	ld hl, .table_394ff
	call IsInArray
	jr nc, .asm_394de

	call Function_0x39251
	jr c, .asm_394fa

	call RNG
	cp $c8
	jr c, .asm_394fa

.asm_394de
	call Function_0x393e7

	ld a, [CurDamage + 1]
	ld e, a
	ld a, [CurDamage]
	ld d, a
	ld a, [BattleMonHP + 1]
	cp e
	ld a, [BattleMonHP]
	sbc d
	jr nc, .asm_394fa

	pop hl
	dec [hl]
	dec [hl]
	dec [hl]
	dec [hl]
	dec [hl]
	push hl
.asm_394fa
	pop hl
	pop bc
	pop de
	jr .asm_394b1

.table_394ff
	db EFFECT_EXPLOSION
	db EFFECT_OHKO
	db $ff
; 39502



Function_0x39502: ; 39502
	ret
; 39503


Function_0x39503: ; 39503
	ld a, [hl]
	add 10
	ld [hl], a
	ret
; 39508


Function_0x39508: ; 39508
	push hl
	push de
	push bc
	dec a
	ld hl, Moves
	ld bc, Move2 - Move1
	call AddNTimes

	ld de, EnemyMoveStruct
	ld a, BANK(Moves)
	call FarCopyBytes

	pop bc
	pop de
	pop hl
	ret
; 39521


Function_0x39521: ; 39521
	call RNG
	cp 50 ; 1/5
	ret
; 39527


Function_0x39527: ; 39527
	call RNG
	cp $80 ; 1/2
	ret
; 3952d