From dd8653fe6fa0544e757fad416ccbb4582ec008f0 Mon Sep 17 00:00:00 2001
From: xCrystal <rgr.crystal@gmail.com>
Date: Wed, 22 Oct 2014 23:08:51 +0200
Subject: [PATCH] More AI commentary/labels

---
 battle/ai/scoring.asm | 217 +++++++++++++++++++++++++++---------------
 1 file changed, 138 insertions(+), 79 deletions(-)

diff --git a/battle/ai/scoring.asm b/battle/ai/scoring.asm
index f12da12aa..bf4b660e5 100644
--- a/battle/ai/scoring.asm
+++ b/battle/ai/scoring.asm
@@ -126,7 +126,7 @@ AIScoring_RedStatMods: ; 385e0
 	jr nz, .discourage
 
 .encourage
-	call Function39527
+	call AIRandom2
 	jr c, .checkmove
 
 	dec [hl]
@@ -411,7 +411,7 @@ AIScoring_Sleep: ; 387e3
 	ret nc
 
 .asm_387f0
-	call Function39527
+	call AIRandom2
 	ret c
 	dec [hl]
 	dec [hl]
@@ -439,7 +439,7 @@ AIScoring_LeechHit: ; 387f7
 	ret c
 
 ; 80% chance to encourage this move otherwise.
-	call Function39521 
+	call AIRandom1 
 	ret c
 	dec [hl]
 	ret
@@ -521,7 +521,7 @@ AIScoring_LockOn: ; 3881d
 
 .asm_3887a
 	pop hl
-	call Function39527
+	call AIRandom2
 	ret c
 
 	dec [hl]
@@ -654,13 +654,13 @@ AIScoring_EvasionUp: ; 388d4
 	jr nc, .asm_3890a
 
 ; If enemy's HP is above 50% but not full, 20% chance to greatly encourage this move.
-	call Function39521
+	call AIRandom1
 	jr c, .asm_388ef
 	jr .asm_38911
 
 .asm_3890a
 ; ...50% chance to greatly discourage this move.
-	call Function39527
+	call AIRandom2
 	jr c, .asm_38911
 
 .asm_3890f
@@ -717,7 +717,7 @@ AIScoring_EvasionUp: ; 388d4
 ; 50% chance to encourage this move.
 ; This would partly counter any previous discouragement.
 .asm_38941
-	call Function39527
+	call AIRandom2
 	ret c
 
 	dec [hl]
@@ -739,7 +739,7 @@ AIScoring_AlwaysHit: ; 38947
 	ret c
 
 .asm_38954
-	call Function39521
+	call AIRandom1
 
 	ret c
 	dec [hl]
@@ -774,7 +774,7 @@ AIScoring_MirrorMove: ; 3895b
 	ret nc
 
 ; If he did, 50% chance to encourage this move...
-	call Function39527
+	call AIRandom2
 	ret c
 	dec [hl]
 
@@ -832,13 +832,13 @@ AIScoring_AccuracyDown: ; 38985
 	jr nc, .asm_389b8
 
 ; If player's HP is above 50% but not full, 20% chance to greatly encourage this move.	
-	call Function39521
+	call AIRandom1
 	jr c, .asm_3899d
 	jr .asm_389bf
 
 ; ...50% chance to greatly discourage this move.	
 .asm_389b8
-	call Function39527
+	call AIRandom2
 	jr c, .asm_389bf
 
 .asm_389bd
@@ -890,7 +890,7 @@ AIScoring_AccuracyDown: ; 38985
 ; 50% chance to encourage this move.
 ; This would partly counter any previous discouragement.	
 .asm_389ef
-	call Function39527
+	call AIRandom2
 	ret c
 
 	dec [hl]
@@ -1024,7 +1024,7 @@ AIScoring_Reflect: ; 38a54
 
 AIScoring_Ohko: ; 38a60
 ; Dismiss this move if player's level is higher than enemy's level.
-; Otherwise, discourage this move is player's HP is below 50%.
+; Else, discourage this move is player's HP is below 50%.
 
 	ld a, [BattleMonLevel]
 	ld b, a
@@ -1041,10 +1041,13 @@ AIScoring_Ohko: ; 38a60
 AIScoring_Bind: ; 38a71
 ; Bind, Wrap, Fire Spin, Clamp
 
+; 50% chance to discourage this move if the player is already trapped.
 	ld a, [$c730]
 	and a
 	jr nz, .asm_38a8b
 
+; 50% chance to greatly encourage this move if player is either
+; badly poisoned, in love, identified, stuck in Rollout, or has a Nightmare.
 	ld a, [PlayerSubStatus5]
 	bit SUBSTATUS_TOXIC, a
 	jr nz, .asm_38a91
@@ -1053,12 +1056,14 @@ AIScoring_Bind: ; 38a71
 	and 1<<SUBSTATUS_IN_LOVE | 1<<SUBSTATUS_ROLLOUT | 1<<SUBSTATUS_IDENTIFIED | 1<<SUBSTATUS_NIGHTMARE
 	jr nz, .asm_38a91
 
+; Else, 50% chance to greatly encourage this move if it's the player's Pokemon first turn.
 	ld a, [PlayerTurnsTaken]
 	and a
 	jr z, .asm_38a91
 
+; 50% chance to discourage this move otherwise.
 .asm_38a8b
-	call Function39527
+	call AIRandom2
 	ret c
 	inc [hl]
 	ret
@@ -1066,7 +1071,7 @@ AIScoring_Bind: ; 38a71
 .asm_38a91
 	call AICheckEnemyQuarterHP
 	ret nc
-	call Function39527
+	call AIRandom2
 	ret c
 	dec [hl]
 	dec [hl]
@@ -1171,7 +1176,7 @@ AIScoring_SpDefenseUp2: ; 38aed
 	ret c
 
 .asm_38b09
-	call Function39521
+	call AIRandom1
 	ret c
 	dec [hl]
 	dec [hl]
@@ -1184,14 +1189,18 @@ AIScoring_SpDefenseUp2: ; 38aed
 
 
 AIScoring_Fly: ; 38b12
+; Fly, Dig
+
 ; Greatly encourage this move if the player is
 ; flying or underground, and slower than the enemy.
 
 	ld a, [PlayerSubStatus3]
 	and 1 << SUBSTATUS_FLYING | 1 << SUBSTATUS_UNDERGROUND
 	ret z
+	
 	call AICompareSpeed
 	ret nc
+	
 	dec [hl]
 	dec [hl]
 	dec [hl]
@@ -1221,14 +1230,14 @@ AIScoring_Paralyze: ; 38b26
 	ret c
 	call AICheckEnemyQuarterHP
 	ret nc
-	call Function39521
+	call AIRandom1
 	ret c
 	dec [hl]
 	dec [hl]
 	ret
 
 .asm_38b3a
-	call Function39527
+	call AIRandom2
 	ret c
 	inc [hl]
 	ret
@@ -1278,7 +1287,7 @@ AIScoring_HyperBeam: ; 38b63
 ; 50% chance to encourage this move if enemy's HP is below 25%.	
 	call AICheckEnemyQuarterHP
 	ret c
-	call Function39527
+	call AIRandom2
 	ret c
 	dec [hl]
 	ret
@@ -1289,7 +1298,7 @@ AIScoring_HyperBeam: ; 38b63
 	cp 40
 	ret c
 	inc [hl]
-	call Function39527
+	call AIRandom2
 	ret c
 	inc [hl]
 	ret
@@ -1302,7 +1311,7 @@ AIScoring_Rage: ; 38b7f
 	jr z, .asm_38b9b
 
 ; If enemy's Rage is building, 50% chance to encourage this move.	
-	call Function39527
+	call AIRandom2
 	jr c, .asm_38b8c
 	dec [hl]
 
@@ -1324,7 +1333,7 @@ AIScoring_Rage: ; 38b7f
 	jr nc, .asm_38ba6
 
 ; 50% chance to encourage this move otherwise.
-	call Function39521
+	call AIRandom1
 	ret nc
 	dec [hl]
 	ret
@@ -1357,7 +1366,7 @@ AIScoring_Mimic: ; 38ba8
 	jr c, .asm_38bef
 	jr z, .asm_38bd4
 
-	call Function39527
+	call AIRandom2
 	jr c, .asm_38bd4
 
 	dec [hl]
@@ -1371,7 +1380,7 @@ AIScoring_Mimic: ; 38ba8
 
 	pop hl
 	ret nc
-	call Function39527
+	call AIRandom2
 	ret c
 	dec [hl]
 	ret
@@ -1605,7 +1614,7 @@ AIScoring_Spite: ; 38cd5
 	call AICompareSpeed
 	jp c, AIDiscourageMove
 
-	call Function39527
+	call AIRandom2
 	ret c
 	inc [hl]
 	ret
@@ -1715,7 +1724,7 @@ AIScoring_HealBell: ; 38d1f
 .ok
 	and 1 << FRZ | SLP
 	ret z
-	call Function39527
+	call AIRandom2
 	ret c
 	dec [hl]
 	dec [hl]
@@ -1799,7 +1808,7 @@ AIScoring_Conversion2: ; 38d98
 	jr c, .asm_38dc9
 
 	ret z
-	call Function39527
+	call AIRandom2
 
 	ret c
 	dec [hl]
@@ -1881,7 +1890,7 @@ AIScoring_MeanLook: ; 38dfb
 	ret
 
 .asm_38e26
-	call Function39521
+	call AIRandom1
 	ret c
 	dec [hl]
 	dec [hl]
@@ -1922,7 +1931,7 @@ AIScoring_Nightmare: ; 38e4a
 ; The AIScoring_RedStatus layer will make sure that
 ; Dream Eater is only used against sleeping targets.
 
-	call Function39527
+	call AIRandom2
 	ret c
 	dec [hl]
 	ret
@@ -1930,6 +1939,8 @@ AIScoring_Nightmare: ; 38e4a
 
 
 AIScoring_FlameWheel: ; 38e50
+; Use this move if the enemy is frozen.
+
 	ld a, [EnemyMonStatus]
 	bit FRZ, a
 	ret z
@@ -1967,7 +1978,7 @@ AIScoring_Curse: ; 38e5c
 	ld a, [BattleMonType2]
 	cp SPECIAL
 	ret nc
-	call Function39521
+	call AIRandom1
 	ret c
 	dec [hl]
 	dec [hl]
@@ -2022,7 +2033,7 @@ AIScoring_Curse: ; 38e5c
 	ret nz
 
 .asm_38ecb
-	call Function39527
+	call AIRandom2
 
 	ret c
 	dec [hl]
@@ -2066,7 +2077,7 @@ AIScoring_Protect: ; 38ed2
 	jr c, .asm_38f14
 
 .asm_38f0d
-	call Function39521
+	call AIRandom1
 	ret c
 	dec [hl]
 	ret
@@ -2132,14 +2143,14 @@ AIScoring_PerishSong: ; 38f4a
 	pop hl
 	ret c
 
-	call Function39527
+	call AIRandom2
 	ret c
 
 	inc [hl]
 	ret
 
 .asm_38f6f
-	call Function39527
+	call AIRandom2
 	ret c
 
 	dec [hl]
@@ -2154,6 +2165,8 @@ AIScoring_PerishSong: ; 38f4a
 
 
 AIScoring_Sandstorm: ; 38f7a
+
+; Greatly discourage this move if the player is immune to Sandstorm damage.
 	ld a, [BattleMonType1]
 	push hl
 	ld hl, .SandstormImmuneTypes
@@ -2170,10 +2183,12 @@ AIScoring_Sandstorm: ; 38f7a
 	pop hl
 	jr c, .asm_38fa5
 
+; Discourage this move if player's HP is below 50%.
 	call AICheckPlayerHalfHP
 	jr nc, .asm_38fa6
 
-	call Function39527
+; 50% chance to encourage this move otherwise.
+	call AIRandom2
 	ret c
 
 	dec [hl]
@@ -2209,7 +2224,7 @@ AIScoring_Endure: ; 38fac
 	call AIHasMove
 	jr nc, .asm_38fcb
 
-	call Function39521
+	call AIRandom1
 	ret c
 
 	dec [hl]
@@ -2221,7 +2236,7 @@ AIScoring_Endure: ; 38fac
 	ld a, [EnemySubStatus5]
 	bit SUBSTATUS_LOCK_ON, a
 	ret z
-	call Function39527
+	call AIRandom2
 
 	ret c
 	dec [hl]
@@ -2277,8 +2292,8 @@ AIScoring_Rollout: ; 38fef
 	bit PAR, a
 	jr nz, .asm_39020
 
-; 80% chance to discourage this move if the enemy's HP is below 25%, 
-; or if accuracy or evasion modifiers favor the player.	
+; 80% chance to discourage this move if the enemy's HP is below 25%,
+; or if accuracy or evasion modifiers favour the player.
 	call AICheckEnemyQuarterHP
 	jr nc, .asm_39020
 
@@ -2289,7 +2304,7 @@ AIScoring_Rollout: ; 38fef
 	cp 8
 	jr nc, .asm_39020
 
-; Otherwise, 80% chance to greatly encourage this move.	
+; Otherwise, 80% chance to greatly encourage this move.
 	call Random
 	cp 200
 	ret nc
@@ -2298,7 +2313,7 @@ AIScoring_Rollout: ; 38fef
 	ret
 
 .asm_39020
-	call Function39521
+	call AIRandom1
 	ret c
 	inc [hl]
 	ret
@@ -2314,7 +2329,7 @@ AIScoring_Attract: ; 39026
 	and a
 	jr z, .first_turn
 
-	call Function39521
+	call AIRandom1
 	ret c
 	inc [hl]
 	ret
@@ -2333,7 +2348,7 @@ AIScoring_Safeguard: ; 3903a
 
 	call AICheckPlayerHalfHP
 	ret c
-	call Function39521
+	call AIRandom1
 	ret c
 	inc [hl]
 	ret
@@ -2342,15 +2357,15 @@ AIScoring_Safeguard: ; 3903a
 
 AIScoring_Magnitude:
 AIScoring_Earthquake: ; 39044
-; Greatly encourage this move if the player is underground and the enemy is faster.
 
+; Greatly encourage this move if the player is underground and the enemy is faster.
 	ld a, [LastEnemyCounterMove]
 	cp DIG
 	ret nz
 
 	ld a, [PlayerSubStatus3]
 	bit SUBSTATUS_UNDERGROUND, a
-	jr z, .could_dig
+	jr z, .couldDig
 
 	call AICompareSpeed
 	ret nc
@@ -2358,14 +2373,13 @@ AIScoring_Earthquake: ; 39044
 	dec [hl]
 	ret
 
-; Try to predict if the player will use Dig this turn
-; even if the player doesn't know or can't learn it.	
-.could_dig	
+; Try to predict if the player will use Dig this turn.
+.couldDig	
 
 ; 50% chance to encourage this move if the enemy is slower than the player.
 	call AICompareSpeed
 	ret c
-	call Function39527
+	call AIRandom2
 	ret c
 	dec [hl]
 	ret
@@ -2374,7 +2388,7 @@ AIScoring_Earthquake: ; 39044
 
 AIScoring_BatonPass: ; 39062
 ; Discourage this move if the player hasn't shown super-effective moves against the enemy.
-; Consider player's type(s) if its moves are unknown. 
+; Consider player's type(s) if its moves are unknown.
 
 	push hl
 	callab Function3484e
@@ -2388,15 +2402,18 @@ AIScoring_BatonPass: ; 39062
 
 
 AIScoring_Pursuit: ; 39072
+; 50% chance to greatly encourage this move if player's HP is below 25%.
+; 80% chance to discourage this move otherwise.
+
 	call AICheckPlayerQuarterHP
 	jr nc, .asm_3907d
-	call Function39521
+	call AIRandom1
 	ret c
 	inc [hl]
 	ret
 
 .asm_3907d
-	call Function39527
+	call AIRandom2
 	ret c
 	dec [hl]
 	dec [hl]
@@ -2405,6 +2422,9 @@ AIScoring_Pursuit: ; 39072
 
 
 AIScoring_RapidSpin: ; 39084
+; 80% chance to greatly encourage this move if the enemy is
+; trapped (Bind effect), seeded, or scattered with spikes.
+
 	ld a, [$c731]
 	and a
 	jr nz, .asm_39097
@@ -2418,8 +2438,7 @@ AIScoring_RapidSpin: ; 39084
 	ret z
 
 .asm_39097
-	call Function39521
-
+	call AIRandom1
 	ret c
 	dec [hl]
 	dec [hl]
@@ -2432,12 +2451,12 @@ AIScoring_HiddenPower: ; 3909e
 	ld a, 1
 	ld [hBattleTurn], a
 	
-; Calculate Hidden Power's type and base power based on enemy's DVs.	
+; Calculate Hidden Power's type and base power based on enemy's DVs.
 	callab HiddenPowerDamage
 	callab Function347c8
 	pop hl
 
-; Discourage Hidden Power if not very effective.	
+; Discourage Hidden Power if not very effective.
 	ld a, [$d265]
 	cp $a
 	jr c, .asm_390c9
@@ -2447,16 +2466,16 @@ AIScoring_HiddenPower: ; 3909e
 	cp 50
 	jr c, .asm_390c9
 	
-; Encourage Hidden Power if super-effective.	
+; Encourage Hidden Power if super-effective.
 	ld a, [$d265]
 	cp $b
 	jr nc, .asm_390c7
 	
-; Encourage Hidden Power if its base power is 70.	
+; Encourage Hidden Power if its base power is 70.
 	ld a, d
 	cp 70	
 	
-; Do nothing if none of these conditions meet.	
+; Do nothing if none of these conditions meet.
 	ret c
 
 .asm_390c7
@@ -2470,6 +2489,9 @@ AIScoring_HiddenPower: ; 3909e
 
 
 AIScoring_RainDance: ; 390cb
+
+; Greatly discourage this move if it would favour the player type-wise.
+; Particularly, if the player is a Water-type.
 	ld a, [BattleMonType1]
 	cp WATER
 	jr z, AIBadWeatherType
@@ -2504,6 +2526,9 @@ RainDanceMoves: ; 390e7
 
 
 AIScoring_SunnyDay: ; 390f3
+
+; Greatly discourage this move if it would favour the player type-wise.
+; Particularly, if the player is a Fire-type.
 	ld a, [BattleMonType1]
 	cp FIRE
 	jr z, AIBadWeatherType
@@ -2524,14 +2549,20 @@ AIScoring_SunnyDay: ; 390f3
 
 
 AIScoring_WeatherMove: ; 3910d
+; Rain Dance, Sunny Day
+
+; Greatly discourage this move if the enemy doesn't have
+; one of the useful Rain Dance or Sunny Day moves.
 	call AIHasMoveInArray
 	pop hl
 	jr nc, AIBadWeatherType
 
+; Greatly discourage this move if player's HP is below 50%.
 	call AICheckPlayerHalfHP
 	jr nc, AIBadWeatherType
 
-	call Function39527
+; 50% chance to encourage this move otherwise.
+	call AIRandom2
 	ret c
 
 	dec [hl]
@@ -2546,13 +2577,19 @@ AIBadWeatherType: ; 3911e
 ; 39122
 
 AIGoodWeatherType: ; 39122
+; Rain Dance, Sunny Day
+
+; Greatly encourage this move if it would disfavour the player type-wise and player's HP is above 50%...
 	call AICheckPlayerHalfHP
 	ret nc
 
+; ...as long as one of the following conditions meet:
+; It's the first turn of the player's Pokemon.
 	ld a, [PlayerTurnsTaken]
 	and a
 	jr z, .good
 
+; Or it's the first turn of the enemy's Pokemon.
 	ld a, [EnemyTurnsTaken]
 	and a
 	ret nz
@@ -2578,16 +2615,18 @@ SunnyDayMoves: ; 39134
 
 
 AIScoring_BellyDrum: ; 3913d
+; Dismiss this move if enemy's attack is higher than +2 or if enemy's HP is below 50%.
+; Else, discourage this move if enemy's HP is not full.
+
 	ld a, [EnemyAtkLevel]
 	cp $a
 	jr nc, .asm_3914d
 
 	call AICheckEnemyMaxHP
-
 	ret c
+	
 	inc [hl]
 	call AICheckEnemyHalfHP
-
 	ret c
 
 .asm_3914d
@@ -2602,19 +2641,23 @@ AIScoring_PsychUp: ; 39152
 	push hl
 	ld hl, EnemyAtkLevel
 	ld b, $8
-	ld c, $64
+	ld c, 100
 
+; Calculate the sum of all enemy's stat level modifiers. Add 100 first to prevent underflow.
+; Put the result in c. c will range between 58 and 142.
 .asm_3915a
 	ld a, [hli]
 	sub $7
-	add c
+	add c 
 	ld c, a
 	dec b
 	jr nz, .asm_3915a
 
+; Calculate the sum of all player's stat level modifiers. Add 100 first to prevent underflow.
+; Put the result in d. d will range between 58 and 142.	
 	ld hl, PlayerAtkLevel
 	ld b, $8
-	ld d, $64
+	ld d, 100
 
 .asm_39169
 	ld a, [hli]
@@ -2624,18 +2667,22 @@ AIScoring_PsychUp: ; 39152
 	dec b
 	jr nz, .asm_39169
 
+; Greatly discourage this move if enemy's stat levels are higher than player's (if c>=d).
 	ld a, c
 	sub d
 	pop hl
 	jr nc, .asm_39188
 
+; Else, 80% chance to encourage this move unless player's accuracy level is lower than -1...	
 	ld a, [PlayerAccLevel]
 	cp $6
 	ret c
+	
+; ...or enemy's evasion level is higher than +0.	
 	ld a, [EnemyEvaLevel]
 	cp $8
 	ret nc
-	call Function39521
+	call AIRandom1
 
 	ret c
 	dec [hl]
@@ -2715,25 +2762,29 @@ AIScoring_MirrorCoat: ; 3918b
 
 AIScoring_Twister:
 AIScoring_Gust: ; 391d5
+
+; Greatly encourage this move if the player is flying and the enemy is faster.
 	ld a, [LastEnemyCounterMove]
 	cp FLY
 	ret nz
 
 	ld a, [PlayerSubStatus3]
 	bit SUBSTATUS_FLYING, a
-	jr z, .asm_391e9
+	jr z, .couldFly
 
 	call AICompareSpeed
 	ret nc
-
 	dec [hl]
 	dec [hl]
 	ret
 
-.asm_391e9
+; Try to predict if the player will use Fly this turn.	
+.couldFly
+
+; 50% chance to encourage this move if the enemy is slower than the player.
 	call AICompareSpeed
 	ret c
-	call Function39527
+	call AIRandom2
 	ret c
 	dec [hl]
 	ret
@@ -2741,6 +2792,9 @@ AIScoring_Gust: ; 391d5
 
 
 AIScoring_FutureSight: ; 391f3
+; Greatly encourage this move if the player is
+; flying or underground, and slower than the enemy.
+
 	call AICompareSpeed
 	ret nc
 
@@ -2755,11 +2809,13 @@ AIScoring_FutureSight: ; 391f3
 
 
 AIScoring_Stomp: ; 39200
+; 80% chance to encourage this move if the player has used Minimize.
+
 	ld a, [$c6fe]
 	and a
 	ret z
 
-	call Function39521
+	call AIRandom1
 	ret c
 
 	dec [hl]
@@ -2768,6 +2824,9 @@ AIScoring_Stomp: ; 39200
 
 
 AIScoring_Solarbeam: ; 3920b
+; 80% chance to encourage this move when it's sunny.
+; 90% chance to discourage this move when it's raining.
+
 	ld a, [Weather]
 	cp WEATHER_SUN
 	jr z, .asm_3921e
@@ -2784,7 +2843,7 @@ AIScoring_Solarbeam: ; 3920b
 	ret
 
 .asm_3921e
-	call Function39521
+	call AIRandom1
 	ret c
 
 	dec [hl]
@@ -2794,7 +2853,7 @@ AIScoring_Solarbeam: ; 3920b
 
 
 AIScoring_Thunder: ; 39225
-; 90% chance to discourage this move when it's raining.
+; 90% chance to discourage this move when it's sunny.
 
 	ld a, [Weather]
 	cp WEATHER_SUN
@@ -2810,7 +2869,7 @@ AIScoring_Thunder: ; 39225
 
 
 AICompareSpeed: ; 39233
-; Return carry if enemy is faster than player
+; Return carry if enemy is faster than player.
 
 	push bc
 	ld a, [EnemyMonSpeed + 1]
@@ -3066,7 +3125,7 @@ AIScoring_Opportunist: ; 39315
 	jr nc, .asm_39322
 	
 ; 50% chance to discourage stall moves if enemy's HP is between 25% and 50%.
-	call Function39527
+	call AIRandom2
 	ret c
 
 .asm_39322
@@ -3279,7 +3338,7 @@ AIDamageCalc: ; 393e7
 
 
 AIScoring_Cautious: ; 39418
-; 90% chance to discourage moves with residual effects after enemy's turn 1.
+; 90% chance to discourage moves with residual effects after enemy's Pokemon first turn.
 
 	ld a, [EnemyTurnsTaken]
 	and a
@@ -3435,7 +3494,7 @@ AIScoring_Risky: ; 394a9
 	call AICheckEnemyMaxHP
 	jr c, .nextmove
 
-; Otherwise, 80% chance to exclude them.	
+; Else, 80% chance to exclude them.	
 	call Random
 	cp 200 
 	jr c, .nextmove
@@ -3510,14 +3569,14 @@ AIGetEnemyMove: ; 39508
 ; 39521
 
 
-Function39521: ; 39521
+AIRandom1: ; 39521
 	call Random
 	cp 50 ; 1/5
 	ret
 ; 39527
 
 
-Function39527: ; 39527
+AIRandom2: ; 39527
 	call Random
 	cp $80 ; 1/2
 	ret