ai scoring part 2

1 files changed, 2446 insertions, 81 deletions

diff --git a/main.asm b/main.asm
index 1d740e1f1..51c98f510 100644
--- a/main.asm
+++ b/main.asm
@@ -7442,91 +7442,2456 @@ Function_0x386be: ; 386be
 ; 386f2
 
 .table_386f2 ; 386f2
-	dbw EFFECT_SLEEP,            $47e3
-	dbw EFFECT_LEECH_HIT,        $47f7
-	dbw EFFECT_EXPLOSION,        $48a6
-	dbw EFFECT_DREAM_EATER,      $48ca
-	dbw EFFECT_MIRROR_MOVE,      $495b
-	dbw EFFECT_EVASION_UP,       $48d4
-	dbw EFFECT_ALWAYS_HIT,       $4947
-	dbw EFFECT_ACCURACY_DOWN,    $4985
-	dbw EFFECT_HAZE,             $49f5
-	dbw EFFECT_BIDE,             $4a1e
-	dbw EFFECT_WHIRLWIND,        $4a2a
-	dbw EFFECT_HEAL,             $4a3a
-	dbw EFFECT_TOXIC,            $4a4e
-	dbw EFFECT_LIGHT_SCREEN,     $4a54
-	dbw EFFECT_OHKO,             $4a60
-	dbw EFFECT_RAZOR_WIND,       $4a9c
-	dbw EFFECT_SUPER_FANG,       $4b20
-	dbw EFFECT_BIND,             $4a71
-	dbw EFFECT_UNUSED_2B,        $4a9c
-	dbw EFFECT_CONFUSE,          $4adb
-	dbw EFFECT_SP_DEFENSE_UP_2,  $4aed
-	dbw EFFECT_REFLECT,          $4a54
-	dbw EFFECT_PARALYZE,         $4b26
-	dbw EFFECT_SPEED_DOWN_HIT,   $4b40
-	dbw EFFECT_SUBSTITUTE,       $4b5c
-	dbw EFFECT_HYPER_BEAM,       $4b63
-	dbw EFFECT_RAGE,             $4b7f
-	dbw EFFECT_MIMIC,            $4ba8
-	dbw EFFECT_LEECH_SEED,       $4a4e
-	dbw EFFECT_DISABLE,          $4dd1
-	dbw EFFECT_COUNTER,          $4bf1
-	dbw EFFECT_ENCORE,           $4c3b
-	dbw EFFECT_PAIN_SPLIT,       $4ca4
-	dbw EFFECT_SNORE,            $4cba
-	dbw EFFECT_CONVERSION2,      $4d98
-	dbw EFFECT_LOCK_ON,          $481d
-	dbw EFFECT_DEFROST_OPPONENT, $4ccb
-	dbw EFFECT_SLEEP_TALK,       $4cba
-	dbw EFFECT_DESTINY_BOND,     $4d19
-	dbw EFFECT_REVERSAL,         $4d19
-	dbw EFFECT_SPITE,            $4cd5
-	dbw EFFECT_HEAL_BELL,        $4d1f
-	dbw EFFECT_PRIORITY_HIT,     $4d5a
-	dbw EFFECT_THIEF,            $4d93
-	dbw EFFECT_MEAN_LOOK,        $4dfb
-	dbw EFFECT_NIGHTMARE,        $4e4a
-	dbw EFFECT_FLAME_WHEEL,      $4e50
-	dbw EFFECT_CURSE,            $4e5c
-	dbw EFFECT_PROTECT,          $4ed2
-	dbw EFFECT_FORESIGHT,        $4f1d
-	dbw EFFECT_PERISH_SONG,      $4f4a
-	dbw EFFECT_SANDSTORM,        $4f7a
-	dbw EFFECT_ENDURE,           $4fac
-	dbw EFFECT_ROLLOUT,          $4fef
-	dbw EFFECT_SWAGGER,          $5026
-	dbw EFFECT_FURY_CUTTER,      $4fdb
-	dbw EFFECT_ATTRACT,          $5026
-	dbw EFFECT_SAFEGUARD,        $503a
-	dbw EFFECT_MAGNITUDE,        $5044
-	dbw EFFECT_BATON_PASS,       $5062
-	dbw EFFECT_PURSUIT,          $5072
-	dbw EFFECT_RAPID_SPIN,       $5084
-	dbw EFFECT_MORNING_SUN,      $4a3a
-	dbw EFFECT_SYNTHESIS,        $4a3a
-	dbw EFFECT_MOONLIGHT,        $4a3a
-	dbw EFFECT_HIDDEN_POWER,     $509e
-	dbw EFFECT_RAIN_DANCE,       $50cb
-	dbw EFFECT_SUNNY_DAY,        $50f3
-	dbw EFFECT_BELLY_DRUM,       $513d
-	dbw EFFECT_PSYCH_UP,         $5152
-	dbw EFFECT_MIRROR_COAT,      $518b
-	dbw EFFECT_SKULL_BASH,       $4d19
-	dbw EFFECT_TWISTER,          $51d5
-	dbw EFFECT_EARTHQUAKE,       $5044
-	dbw EFFECT_FUTURE_SIGHT,     $51f3
-	dbw EFFECT_GUST,             $51d5
-	dbw EFFECT_STOMP,            $5200
-	dbw EFFECT_SOLARBEAM,        $520b
-	dbw EFFECT_THUNDER,          $5225
-	dbw EFFECT_FLY,              $4b12
+	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
 
 
-INCBIN "baserom.gbc", $387e3, $39315 - $387e3
+AIScoring_Sleep: ; 387e3
+	ld b, $8
+	call $52ca
+
+	jr c, .asm_387f0
+
+	ld b, $6b
+	call $52ca
+
+	ret nc
+
+.asm_387f0
+	call $5527
+
+	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 $5251
+
+	ret c
+	call $5521
+
+	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 $5298
+
+	jr nc, .asm_38877
+
+	call $5281
+
+	jr c, .asm_38834
+
+	call $5233
+
+	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, EnemyMonMove1
+	ld c, $5
+
+.asm_3884f
+	dec c
+	jr z, .asm_38877
+
+	ld a, [hli]
+	and a
+	jr z, .asm_38877
+
+	call $5508
+
+	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 $5527
+
+	ret c
+	dec [hl]
+	dec [hl]
+	ret
+
+.asm_38882
+	push hl
+	ld hl, $d1e9
+	ld de, EnemyMonMove1
+	ld c, $5
+
+.asm_3888b
+	inc hl
+	dec c
+	jr z, .asm_388a2
+
+	ld a, [de]
+	and a
+	jr z, .asm_388a2
+
+	inc de
+	call $5508
+
+	ld a, [EnemyMoveAccuracy]
+	cp $b4
+	jr nc, .asm_3888b
+
+	dec [hl]
+	dec [hl]
+	jr .asm_3888b
+
+
+.asm_388a2
+	pop hl
+	jp $5503
+
+; 388a6
+
+
+AIScoring_Explosion: ; 388a6
+	push hl
+	ld a, $d
+	ld hl, $49f4
+	rst FarCall
+
+	pop hl
+	jr nc, .asm_388b7
+
+	push hl
+	call $4e2e
+
+	pop hl
+	jr nz, .asm_388c6
+
+
+.asm_388b7
+	call $5281
+
+	jr c, .asm_388c6
+
+	call $5298
+
+	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, $5503
+
+	call $5251
+
+	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 $5298
+
+	jr nc, .asm_3890f
+
+	call RNG
+
+	cp $a
+	jr c, .asm_388ef
+
+	call $5281
+
+	jr nc, .asm_3890a
+
+	call $5521
+
+	jr c, .asm_388ef
+
+	jr .asm_38911
+
+
+.asm_3890a
+	call $5527
+
+	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 $5527
+
+	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 $5521
+
+	ret c
+	dec [hl]
+	dec [hl]
+	ret
+; 3895b
+
+
+AIScoring_MirrorMove: ; 3895b
+	ld a, [LastEnemyCounterMove]
+	and a
+	jr nz, .asm_38968
+
+	call $5233
+
+	ret nc
+	jp $5503
+
+
+.asm_38968
+	push hl
+	ld hl, $5301
+	ld de, $0001
+	call IsInArray
+
+	pop hl
+	ret nc
+	call $5527
+
+	ret c
+	dec [hl]
+	call $5233
+
+	ret nc
+	call RNG
+
+	cp $19
+	ret c
+	dec [hl]
+	ret
+; 38985
+
+
+AIScoring_AccuracyDown: ; 38985
+	call $5246
+
+	jr nc, .asm_389a0
+
+	call $5281
+
+	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 $52b3
+
+	jr nc, .asm_389bd
+
+	call RNG
+
+	cp $a
+	jr c, .asm_3899d
+
+	call $526e
+
+	jr nc, .asm_389b8
+
+	call $5521
+
+	jr c, .asm_3899d
+
+	jr .asm_389bf
+
+
+.asm_389b8
+	call $5527
+
+	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 $5527
+
+	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 $5251
+
+	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 $5298
+
+	jr nc, .asm_38a45
+
+	call $5281
+
+	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 $526e
+
+	ret c
+	inc [hl]
+	ret
+; 38a54
+
+
+AIScoring_LightScreen:
+AIScoring_Reflect: ; 38a54
+	call $5251
+
+	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, $5503
+
+	call $526e
+
+	ret c
+	inc [hl]
+	ret
+; 38a71
+
+
+AIScoring_Bind: ; 38a71
+	ld a, [$c730]
+	and a
+	jr nz, .asm_38a8b
+
+	ld a, [PlayerSubStatus5]
+	bit 0, a
+	jr nz, .asm_38a91
+
+	ld a, [PlayerSubStatus1]
+	and $c9
+	jr nz, .asm_38a91
+
+	ld a, [PlayerTurnsTaken]
+	and a
+	jr z, .asm_38a91
+
+
+.asm_38a8b
+	call $5527
+
+	ret c
+	inc [hl]
+	ret
+
+.asm_38a91
+	call $5298
+
+	ret nc
+	call $5527
+
+	ret c
+	dec [hl]
+	dec [hl]
+	ret
+; 38a9c
+
+
+AIScoring_RazorWind:
+AIScoring_Unused2B: ; 38a9c
+	ld a, [EnemySubStatus1]
+	bit 4, 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 $5508
+
+	ld a, [EnemyMoveEffect]
+	cp $6f
+	jr z, .asm_38ad5
+
+	dec c
+	jr nz, .asm_38ab0
+
+
+.asm_38ac1
+	pop hl
+	ld a, [EnemySubStatus3]
+	bit 7, a
+	jr nz, .asm_38acd
+
+	call $5281
+
+	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 $526e
+
+	ret c
+	call RNG
+
+	cp $19
+	jr c, .asm_38ae7
+
+	inc [hl]
+
+.asm_38ae7
+	call $52b3
+
+	ret c
+	inc [hl]
+	ret
+; 38aed
+
+
+AIScoring_SpDefenseUp2: ; 38aed
+	call $5281
+
+	jr nc, .asm_38b10
+
+	ld a, [EnemySDefLevel]
+	cp $b
+	jr nc, .asm_38b10
+
+	cp $9
+	ret nc
+	ld a, [BattleMonType1]
+	cp $14
+	jr nc, .asm_38b09
+
+	ld a, [BattleMonType2]
+	cp $14
+	ret c
+
+.asm_38b09
+	call $5521
+
+	ret c
+	dec [hl]
+	dec [hl]
+	ret
+
+.asm_38b10
+	inc [hl]
+	ret
+; 38b12
+
+
+AIScoring_Fly: ; 38b12
+	ld a, [PlayerSubStatus3]
+	and $60
+	ret z
+	call $5233
+
+	ret nc
+	dec [hl]
+	dec [hl]
+	dec [hl]
+	ret
+; 38b20
+
+
+AIScoring_SuperFang: ; 38b20
+	call $52b3
+
+	ret c
+	inc [hl]
+	ret
+; 38b26
+
+
+AIScoring_Paralyze: ; 38b26
+	call $52b3
+
+	jr nc, .asm_38b3a
+
+	call $5233
+
+	ret c
+	call $5298
+
+	ret nc
+	call $5521
+
+	ret c
+	dec [hl]
+	dec [hl]
+	ret
+
+.asm_38b3a
+	call $5527
+
+	ret c
+	inc [hl]
+	ret
+; 38b40
+
+
+AIScoring_SpeedDownHit: ; 38b40
+	ld a, [EnemyMoveAnimation]
+	cp $c4
+	ret nz
+	call $5298
+
+	ret nc
+	ld a, [PlayerTurnsTaken]
+	and a
+	ret nz
+	call $5233
+
+	ret c
+	call RNG
+
+	cp $1e
+	ret c
+	dec [hl]
+	dec [hl]
+	ret
+; 38b5c
+
+
+AIScoring_Substitute: ; 38b5c
+	call $5281
+
+	ret c
+	jp $5503
+
+; 38b63
+
+
+AIScoring_HyperBeam: ; 38b63
+	call $5281
+
+	jr c, .asm_38b72
+
+	call $5298
+
+	ret c
+	call $5527
+
+	ret c
+	dec [hl]
+	ret
+
+.asm_38b72
+	call RNG
+
+	cp $28
+	ret c
+	inc [hl]
+	call $5527
+
+	ret c
+	inc [hl]
+	ret
+; 38b7f
+
+
+AIScoring_Rage: ; 38b7f
+	ld a, [EnemySubStatus4]
+	bit 6, a
+	jr z, .asm_38b9b
+
+	call $5527
+
+	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 $5281
+
+	jr nc, .asm_38ba6
+
+	call $5521
+
+	ret nc
+	dec [hl]
+	ret
+
+.asm_38ba6
+	inc [hl]
+	ret
+; 38ba8
+
+
+AIScoring_Mimic: ; 38ba8
+	ld a, [LastEnemyCounterMove]
+	and a
+	jr z, .asm_38be9
+
+	call $5281
+
+	jr nc, .asm_38bef
+
+	push hl
+	ld a, [LastEnemyCounterMove]
+	call $5508
+
+	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 $5527
+
+	jr c, .asm_38bd4
+
+	dec [hl]
+
+.asm_38bd4
+	ld a, [LastEnemyCounterMove]
+	push hl
+	ld hl, $5301
+	ld de, $0001
+	call IsInArray
+
+	pop hl
+	ret nc
+	call $5527
+
+	ret c
+	dec [hl]
+	ret
+
+.asm_38be9
+	call $5233
+
+	jp c, $5503
+
+
+.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 $5508
+
+	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 $5508
+
+	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 $5233
+
+	jr nc, .asm_38c81
+
+	ld a, [LastPlayerMove]
+	and a
+	jp z, $5503
+
+	call $5508
+
+	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, $4c85
+	ld de, $0001
+	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
+; 38c85
+
+
+
+INCBIN "baserom.gbc", $38c85, $38ca4 - $38c85
+
+
+
+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 $5233
+
+	jp c, $5503
+
+	call $5527
+
+	ret c
+	inc [hl]
+	ret
+
+.asm_38ce7
+	push hl
+	ld b, a
+	ld c, $4
+	ld hl, BattleMonMove1
+	ld de, BattleMonPPMove1
+
+.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
+
+
+
+INCBIN "baserom.gbc", $38d16, $38d19 - $38d16
+
+
+
+AIScoring_DestinyBond:
+AIScoring_Reversal:
+AIScoring_SkullBash: ; 38d19
+	call $5298
+
+	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 $5527
+
+	ret c
+	dec [hl]
+	dec [hl]
+	ret
+
+.asm_38d52
+	ld a, [EnemyMonStatus]
+	and a
+	ret nz
+	jp $5503
+
+; 38d5a
+
+
+AIScoring_PriorityHit: ; 38d5a
+	call $5233
+
+	ret c
+	ld a, [PlayerSubStatus3]
+	and $60
+	jp nz, $5503
+
+	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, $5afe
+	ld bc, $0007
+	call AddNTimes
+
+	ld a, $10
+	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 $5527
+
+	ret c
+	dec [hl]
+	ret
+
+.asm_38dc9
+	call RNG
+
+	cp $19
+	ret c
+	inc [hl]
+	ret
+; 38dd1
+
+
+AIScoring_Disable: ; 38dd1
+	call $5233
+
+	jr nc, .asm_38df3
+
+	push hl
+	ld a, [LastEnemyCounterMove]
+	ld hl, $5301
+	ld de, $0001
+	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 $5281
+
+	jr nc, .asm_38e24
+
+	push hl
+	call $4e2e
+
+	pop hl
+	jp z, $5503
+
+	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 $5521
+
+	ret c
+	dec [hl]
+	dec [hl]
+	dec [hl]
+	ret
+; 38e2e
+
+
+
+INCBIN "baserom.gbc", $38e2e, $38e4a - $38e2e
+
+
+
+AIScoring_Nightmare: ; 38e4a
+	call $5527
+
+	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 $5281
+
+	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 $5521
+
+	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, $5503
+
+	push hl
+	ld a, $d
+	ld hl, $49f4
+	rst FarCall
+
+	pop hl
+	jr nc, .asm_38eb0
+
+	push hl
+	call $4e2e
+
+	pop hl
+	jr nz, .asm_38e90
+
+	jr .asm_38eb7
+
+
+.asm_38eb0
+	push hl
+	call $4e2e
+
+	pop hl
+	jr z, .asm_38ecb
+
+
+.asm_38eb7
+	call $5298
+
+	jp nc, $4e90
+
+	call $5281
+
+	jr nc, .asm_38e92
+
+	call $5251
+
+	ret nc
+	ld a, [PlayerTurnsTaken]
+	and a
+	ret nz
+
+.asm_38ecb
+	call $5527
+
+	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 $5521
+
+	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 $5527
+
+	ret c
+	inc [hl]
+	ret
+
+.asm_38f6f
+	call $5527
+
+	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, $4fa8
+	ld de, $0001
+	call IsInArray
+
+	pop hl
+	jr c, .asm_38fa5
+
+	ld a, [BattleMonType2]
+	push hl
+	ld hl, $4fa8
+	ld de, $0001
+	call IsInArray
+
+	pop hl
+	jr c, .asm_38fa5
+
+	call $526e
+
+	jr nc, .asm_38fa6
+
+	call $5527
+
+	ret c
+	dec [hl]
+	ret
+
+.asm_38fa5
+	inc [hl]
+
+.asm_38fa6
+	inc [hl]
+	ret
+; 38fa8
+
+
+
+INCBIN "baserom.gbc", $38fa8, $38fac - $38fa8
+
+
+
+AIScoring_Endure: ; 38fac
+	ld a, [$c681]
+	and a
+	jr nz, .asm_38fd8
+
+	call $5251
+
+	jr c, .asm_38fd8
+
+	call $5298
+
+	jr c, .asm_38fd9
+
+	ld b, $63
+	call $52ca
+
+	jr nc, .asm_38fcb
+
+	call $5521
+
+	ret c
+	dec [hl]
+	dec [hl]
+	dec [hl]
+	ret
+
+.asm_38fcb
+	ld a, [EnemySubStatus5]
+	bit 5, a
+	ret z
+	call $5527
+
+	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 $5298
+
+	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 $5521
+
+	ret c
+	inc [hl]
+	ret
+; 39026
+
+
+AIScoring_Swagger:
+AIScoring_Attract: ; 39026
+	ld a, [PlayerTurnsTaken]
+	and a
+	jr z, .asm_39032
+
+	call $5521
+
+	ret c
+	inc [hl]
+	ret
+
+.asm_39032
+	call RNG
+
+	cp $c8
+	ret nc
+	dec [hl]
+	ret
+; 3903a
+
+
+AIScoring_Safeguard: ; 3903a
+	call $526e
+
+	ret c
+	call $5521
+
+	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 $5233
+
+	ret nc
+	dec [hl]
+	dec [hl]
+	ret
+
+.asm_39058
+	call $5233
+
+	ret c
+	call $5527
+
+	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 $52b3
+
+	jr nc, .asm_3907d
+
+	call $5521
+
+	ret c
+	inc [hl]
+	ret
+
+.asm_3907d
+	call $5527
+
+	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 $5521
+
+	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 $15
+	jr z, Function_0x3911e
+
+	cp $14
+	jr z, Function_0x39122
+
+	ld a, [BattleMonType2]
+	cp $15
+	jr z, Function_0x3911e
+
+	cp $14
+	jr z, Function_0x39122
+
+	push hl
+	ld hl, $50e7
+	jr Function_0x3910d
+; 390e7
+
+
+
+INCBIN "baserom.gbc", $390e7, $390f3 - $390e7
+
+
+
+AIScoring_SunnyDay: ; 390f3
+	ld a, [BattleMonType1]
+	cp $14
+	jr z, Function_0x3911e
+
+	cp $15
+	jr z, Function_0x39122
+
+	ld a, [BattleMonType2]
+	cp $14
+	jr z, Function_0x3911e
+
+	cp $15
+	jr z, Function_0x39122
+
+	push hl
+	ld hl, $5134
+
+	; fallthrough
+; 3910d
+
+
+Function_0x3910d: ; 3910d
+	call $52e6
+
+	pop hl
+	jr nc, Function_0x3911e
+
+	call $526e
+
+	jr nc, Function_0x3911e
+
+	call $5527
+
+	ret c
+	dec [hl]
+	ret
+
+Function_0x3911e: ; 3911e
+	inc [hl]
+	inc [hl]
+	inc [hl]
+	ret
+
+Function_0x39122: ; 39122
+	call $526e
+
+	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
+
+
+
+INCBIN "baserom.gbc", $39134, $3913d - $39134
+
+
+
+AIScoring_BellyDrum: ; 3913d
+	ld a, [EnemyAtkLevel]
+	cp $a
+	jr nc, .asm_3914d
+
+	call $5251
+
+	ret c
+	inc [hl]
+	call $5281
+
+	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 $5521
+
+	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 $5508
+
+	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 $5508
+
+	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 $5233
+
+	ret nc
+	dec [hl]
+	dec [hl]
+	ret
+
+.asm_391e9
+	call $5233
+
+	ret c
+	call $5527
+
+	ret c
+	dec [hl]
+	ret
+; 391f3
+
+
+AIScoring_FutureSight: ; 391f3
+	call $5233
+
+	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 $5521
+
+	ret c
+	dec [hl]
+	ret
+; 3920b
+
+
+AIScoring_Solarbeam: ; 3920b
+	ld a, [Weather]
+	cp $2
+	jr z, .asm_3921e
+
+	cp $1
+	ret nz
+	call RNG
+
+	cp $19
+	ret c
+	inc [hl]
+	inc [hl]
+	ret
+
+.asm_3921e
+	call $5521
+
+	ret c
+	dec [hl]
+	dec [hl]
+	ret
+; 39225
+
+
+AIScoring_Thunder: ; 39225
+	ld a, [Weather]
+	cp $2
+	ret nz
+	call RNG
+
+	cp $19
+	ret c
+	inc [hl]
+	ret
+; 39233
+
+
+
+INCBIN "baserom.gbc", $39233, $39315 - $39233
+
 
 
 Function_0x39315: ; 39315