Prefix wram labels with w, part 2.

1 files changed, 192 insertions, 192 deletions

diff --git a/engine/battle/ai/scoring.asm b/engine/battle/ai/scoring.asm
index 2ea87cc82..b250128a4 100644
--- a/engine/battle/ai/scoring.asm
+++ b/engine/battle/ai/scoring.asm
@@ -5,9 +5,9 @@ AI_Basic: ; 38591
 ;  -Using status-only moves if the player can't be statused
 ;  -Using moves that fail if they've already been used
 
-	ld hl, Buffer1 - 1
-	ld de, EnemyMonMoves
-	ld b, EnemyMonMovesEnd - EnemyMonMoves + 1
+	ld hl, wBuffer1 - 1
+	ld de, wEnemyMonMoves
+	ld b, wEnemyMonMovesEnd - wEnemyMonMoves + 1
 .checkmove
 	dec b
 	ret z
@@ -49,12 +49,12 @@ AI_Basic: ; 38591
 	pop hl
 	jr nc, .checkmove
 
-	ld a, [BattleMonStatus]
+	ld a, [wBattleMonStatus]
 	and a
 	jr nz, .discourage
 
 ; Dismiss Safeguard if it's already active.
-	ld a, [PlayerScreens]
+	ld a, [wPlayerScreens]
 	bit SCREENS_SAFEGUARD, a
 	jr z, .checkmove
 
@@ -80,9 +80,9 @@ AI_Setup: ; 385e0
 ; 50% chance to greatly encourage stat-down moves during the first turn of player's Pokemon.
 ; Almost 90% chance to greatly discourage stat-modifying moves otherwise.
 
-	ld hl, Buffer1 - 1
-	ld de, EnemyMonMoves
-	ld b, EnemyMonMovesEnd - EnemyMonMoves + 1
+	ld hl, wBuffer1 - 1
+	ld de, wEnemyMonMoves
+	ld b, wEnemyMonMovesEnd - wEnemyMonMoves + 1
 .checkmove
 	dec b
 	ret z
@@ -120,14 +120,14 @@ AI_Setup: ; 385e0
 	jr .checkmove
 
 .statup
-	ld a, [EnemyTurnsTaken]
+	ld a, [wEnemyTurnsTaken]
 	and a
 	jr nz, .discourage
 
 	jr .encourage
 
 .statdown
-	ld a, [PlayerTurnsTaken]
+	ld a, [wPlayerTurnsTaken]
 	and a
 	jr nz, .discourage
 
@@ -156,9 +156,9 @@ AI_Types: ; 38635
 ; Discourage not very effective moves unless
 ; all damaging moves are of the same type.
 
-	ld hl, Buffer1 - 1
-	ld de, EnemyMonMoves
-	ld b, EnemyMonMovesEnd - EnemyMonMoves + 1
+	ld hl, wBuffer1 - 1
+	ld de, wEnemyMonMoves
+	ld b, wEnemyMonMovesEnd - wEnemyMonMoves + 1
 .checkmove
 	dec b
 	ret z
@@ -203,8 +203,8 @@ AI_Types: ; 38635
 	push bc
 	ld a, [wEnemyMoveStruct + MOVE_TYPE]
 	ld d, a
-	ld hl, EnemyMonMoves
-	ld b, EnemyMonMovesEnd - EnemyMonMoves + 1
+	ld hl, wEnemyMonMoves
+	ld b, wEnemyMonMovesEnd - wEnemyMonMoves + 1
 	ld c, 0
 .checkmove2
 	dec b
@@ -245,9 +245,9 @@ AI_Types: ; 38635
 AI_Offensive: ; 386a2
 ; Greatly discourage non-damaging moves.
 
-	ld hl, Buffer1 - 1
-	ld de, EnemyMonMoves
-	ld b, EnemyMonMovesEnd - EnemyMonMoves + 1
+	ld hl, wBuffer1 - 1
+	ld de, wEnemyMonMoves
+	ld b, wEnemyMonMovesEnd - wEnemyMonMoves + 1
 .checkmove
 	dec b
 	ret z
@@ -274,9 +274,9 @@ AI_Offensive: ; 386a2
 AI_Smart: ; 386be
 ; Context-specific scoring.
 
-	ld hl, Buffer1
-	ld de, EnemyMonMoves
-	ld b, EnemyMonMovesEnd - EnemyMonMoves + 1
+	ld hl, wBuffer1
+	ld de, wEnemyMonMoves
+	ld b, wEnemyMonMovesEnd - wEnemyMonMoves + 1
 .checkmove
 	dec b
 	ret z
@@ -462,7 +462,7 @@ AI_Smart_LeechHit: ; 387f7
 
 
 AI_Smart_LockOn: ; 3881d
-	ld a, [PlayerSubStatus5]
+	ld a, [wPlayerSubStatus5]
 	bit SUBSTATUS_LOCK_ON, a
 	jr nz, .asm_38882
 
@@ -477,20 +477,20 @@ AI_Smart_LockOn: ; 3881d
 	jr nc, .asm_38877
 
 .asm_38834
-	ld a, [PlayerEvaLevel]
+	ld a, [wPlayerEvaLevel]
 	cp $a
 	jr nc, .asm_3887a
 	cp $8
 	jr nc, .asm_38875
 
-	ld a, [EnemyAccLevel]
+	ld a, [wEnemyAccLevel]
 	cp $5
 	jr c, .asm_3887a
 	cp $7
 	jr c, .asm_38875
 
-	ld hl, EnemyMonMoves
-	ld c, EnemyMonMovesEnd - EnemyMonMoves + 1
+	ld hl, wEnemyMonMoves
+	ld c, wEnemyMonMovesEnd - wEnemyMonMoves + 1
 .asm_3884f
 	dec c
 	jr z, .asm_38877
@@ -537,9 +537,9 @@ AI_Smart_LockOn: ; 3881d
 
 .asm_38882
 	push hl
-	ld hl, Buffer1 - 1
-	ld de, EnemyMonMoves
-	ld c, EnemyMonMovesEnd - EnemyMonMoves + 1
+	ld hl, wBuffer1 - 1
+	ld de, wEnemyMonMoves
+	ld c, wEnemyMonMovesEnd - wEnemyMonMoves + 1
 
 .asm_3888b
 	inc hl
@@ -622,7 +622,7 @@ AI_Smart_DreamEater: ; 388ca
 AI_Smart_EvasionUp: ; 388d4
 
 ; Dismiss this move if enemy's evasion can't raise anymore.
-	ld a, [EnemyEvaLevel]
+	ld a, [wEnemyEvaLevel]
 	cp $d
 	jp nc, AIDiscourageMove
 
@@ -631,7 +631,7 @@ AI_Smart_EvasionUp: ; 388d4
 	jr nc, .asm_388f2
 
 ; ...greatly encourage this move if player is badly poisoned.
-	ld a, [PlayerSubStatus5]
+	ld a, [wPlayerSubStatus5]
 	bit SUBSTATUS_TOXIC, a
 	jr nz, .asm_388ef
 
@@ -680,27 +680,27 @@ AI_Smart_EvasionUp: ; 388d4
 ; 100% chance to end up here if enemy's HP is below 25%.
 ; In other words, we only end up here if the move has not been encouraged or dismissed.
 .asm_38911
-	ld a, [PlayerSubStatus5]
+	ld a, [wPlayerSubStatus5]
 	bit SUBSTATUS_TOXIC, a
 	jr nz, .asm_38938
 
-	ld a, [PlayerSubStatus4]
+	ld a, [wPlayerSubStatus4]
 	bit SUBSTATUS_LEECH_SEED, a
 	jr nz, .asm_38941
 
 ; Discourage this move if enemy's evasion level is higher than player's accuracy level.
-	ld a, [EnemyEvaLevel]
+	ld a, [wEnemyEvaLevel]
 	ld b, a
-	ld a, [PlayerAccLevel]
+	ld a, [wPlayerAccLevel]
 	cp b
 	jr c, .asm_38936
 
 ; Greatly encourage this move if the player is in the middle of Fury Cutter or Rollout.
-	ld a, [PlayerFuryCutterCount]
+	ld a, [wPlayerFuryCutterCount]
 	and a
 	jr nz, .asm_388ef
 
-	ld a, [PlayerSubStatus1]
+	ld a, [wPlayerSubStatus1]
 	bit SUBSTATUS_ROLLOUT, a
 	jr nz, .asm_388ef
 
@@ -736,12 +736,12 @@ AI_Smart_AlwaysHit: ; 38947
 ; 80% chance to greatly encourage this move if either...
 
 ; ...enemy's accuracy level has been lowered three or more stages
-	ld a, [EnemyAccLevel]
+	ld a, [wEnemyAccLevel]
 	cp $5
 	jr c, .asm_38954
 
 ; ...or player's evasion level has been raised three or more stages.
-	ld a, [PlayerEvaLevel]
+	ld a, [wPlayerEvaLevel]
 	cp $a
 	ret c
 
@@ -758,7 +758,7 @@ AI_Smart_AlwaysHit: ; 38947
 AI_Smart_MirrorMove: ; 3895b
 
 ; If the player did not use any move last turn...
-	ld a, [LastPlayerCounterMove]
+	ld a, [wLastPlayerCounterMove]
 	and a
 	jr nz, .asm_38968
 
@@ -810,7 +810,7 @@ AI_Smart_AccuracyDown: ; 38985
 	jr nc, .asm_389a0
 
 ; ...greatly encourage this move if player is badly poisoned.
-	ld a, [PlayerSubStatus5]
+	ld a, [wPlayerSubStatus5]
 	bit SUBSTATUS_TOXIC, a
 	jr nz, .asm_3899d
 
@@ -855,27 +855,27 @@ AI_Smart_AccuracyDown: ; 38985
 
 ; We only end up here if the move has not been already encouraged.
 .asm_389bf
-	ld a, [PlayerSubStatus5]
+	ld a, [wPlayerSubStatus5]
 	bit SUBSTATUS_TOXIC, a
 	jr nz, .asm_389e6
 
-	ld a, [PlayerSubStatus4]
+	ld a, [wPlayerSubStatus4]
 	bit SUBSTATUS_LEECH_SEED, a
 	jr nz, .asm_389ef
 
 ; Discourage this move if enemy's evasion level is higher than player's accuracy level.
-	ld a, [EnemyEvaLevel]
+	ld a, [wEnemyEvaLevel]
 	ld b, a
-	ld a, [PlayerAccLevel]
+	ld a, [wPlayerAccLevel]
 	cp b
 	jr c, .asm_389e4
 
 ; Greatly encourage this move if the player is in the middle of Fury Cutter or Rollout.
-	ld a, [PlayerFuryCutterCount]
+	ld a, [wPlayerFuryCutterCount]
 	and a
 	jr nz, .asm_3899d
 
-	ld a, [PlayerSubStatus1]
+	ld a, [wPlayerSubStatus1]
 	bit SUBSTATUS_ROLLOUT, a
 	jr nz, .asm_3899d
 
@@ -910,7 +910,7 @@ AI_Smart_ResetStats: ; 389f5
 
 ; 85% chance to encourage this move if any of enemy's stat levels is lower than -2.
 	push hl
-	ld hl, EnemyAtkLevel
+	ld hl, wEnemyAtkLevel
 	ld c, $8
 .asm_389fb
 	dec c
@@ -922,7 +922,7 @@ AI_Smart_ResetStats: ; 389f5
 
 ; 85% chance to encourage this move if any of player's stat levels is higher than +2.
 .asm_38a05
-	ld hl, PlayerAtkLevel
+	ld hl, wPlayerAtkLevel
 	ld c, $8
 .asm_38a0a
 	dec c
@@ -1034,9 +1034,9 @@ AI_Smart_Ohko: ; 38a60
 ; Dismiss this move if player's level is higher than enemy's level.
 ; Else, discourage this move is player's HP is below 50%.
 
-	ld a, [BattleMonLevel]
+	ld a, [wBattleMonLevel]
 	ld b, a
-	ld a, [EnemyMonLevel]
+	ld a, [wEnemyMonLevel]
 	cp b
 	jp c, AIDiscourageMove
 	call AICheckPlayerHalfHP
@@ -1056,16 +1056,16 @@ AI_Smart_TrapTarget: ; 38a71
 
 ; 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]
+	ld a, [wPlayerSubStatus5]
 	bit SUBSTATUS_TOXIC, a
 	jr nz, .asm_38a91
 
-	ld a, [PlayerSubStatus1]
+	ld a, [wPlayerSubStatus1]
 	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]
+	ld a, [wPlayerTurnsTaken]
 	and a
 	jr z, .asm_38a91
 
@@ -1089,17 +1089,17 @@ AI_Smart_TrapTarget: ; 38a71
 
 AI_Smart_RazorWind:
 AI_Smart_Unused2B: ; 38a9c
-	ld a, [EnemySubStatus1]
+	ld a, [wEnemySubStatus1]
 	bit SUBSTATUS_PERISH, a
 	jr z, .asm_38aaa
 
-	ld a, [EnemyPerishCount]
+	ld a, [wEnemyPerishCount]
 	cp 3
 	jr c, .asm_38ad3
 
 .asm_38aaa
 	push hl
-	ld hl, PlayerUsedMoves
+	ld hl, wPlayerUsedMoves
 	ld c, 4
 
 .asm_38ab0
@@ -1117,7 +1117,7 @@ AI_Smart_Unused2B: ; 38a9c
 
 .asm_38ac1
 	pop hl
-	ld a, [EnemySubStatus3]
+	ld a, [wEnemySubStatus3]
 	bit SUBSTATUS_CONFUSED, a
 	jr nz, .asm_38acd
 
@@ -1168,7 +1168,7 @@ AI_Smart_SpDefenseUp2: ; 38aed
 	jr nc, .asm_38b10
 
 ; Discourage this move if enemy's special defense level is higher than +3.
-	ld a, [EnemySDefLevel]
+	ld a, [wEnemySDefLevel]
 	cp $b
 	jr nc, .asm_38b10
 
@@ -1177,10 +1177,10 @@ AI_Smart_SpDefenseUp2: ; 38aed
 	cp $9
 	ret nc
 
-	ld a, [BattleMonType1]
+	ld a, [wBattleMonType1]
 	cp SPECIAL
 	jr nc, .asm_38b09
-	ld a, [BattleMonType2]
+	ld a, [wBattleMonType2]
 	cp SPECIAL
 	ret c
 
@@ -1203,7 +1203,7 @@ AI_Smart_Fly: ; 38b12
 ; Greatly encourage this move if the player is
 ; flying or underground, and slower than the enemy.
 
-	ld a, [PlayerSubStatus3]
+	ld a, [wPlayerSubStatus3]
 	and 1 << SUBSTATUS_FLYING | 1 << SUBSTATUS_UNDERGROUND
 	ret z
 
@@ -1266,7 +1266,7 @@ AI_Smart_SpeedDownHit: ; 38b40
 	ret nz
 	call AICheckEnemyQuarterHP
 	ret nc
-	ld a, [PlayerTurnsTaken]
+	ld a, [wPlayerTurnsTaken]
 	and a
 	ret nz
 	call AICompareSpeed
@@ -1315,7 +1315,7 @@ AI_Smart_HyperBeam: ; 38b63
 
 
 AI_Smart_Rage: ; 38b7f
-	ld a, [EnemySubStatus4]
+	ld a, [wEnemySubStatus4]
 	bit SUBSTATUS_RAGE, a
 	jr z, .asm_38b9b
 
@@ -1355,7 +1355,7 @@ AI_Smart_Rage: ; 38b7f
 
 
 AI_Smart_Mimic: ; 38ba8
-	ld a, [LastPlayerCounterMove]
+	ld a, [wLastPlayerCounterMove]
 	and a
 	jr z, .asm_38be9
 
@@ -1363,7 +1363,7 @@ AI_Smart_Mimic: ; 38ba8
 	jr nc, .asm_38bef
 
 	push hl
-	ld a, [LastPlayerCounterMove]
+	ld a, [wLastPlayerCounterMove]
 	call AIGetEnemyMove
 
 	ld a, $1
@@ -1382,7 +1382,7 @@ AI_Smart_Mimic: ; 38ba8
 	dec [hl]
 
 .asm_38bd4
-	ld a, [LastPlayerCounterMove]
+	ld a, [wLastPlayerCounterMove]
 	push hl
 	ld hl, UsefulMoves
 	ld de, 1
@@ -1407,7 +1407,7 @@ AI_Smart_Mimic: ; 38ba8
 
 AI_Smart_Counter: ; 38bf1
 	push hl
-	ld hl, PlayerUsedMoves
+	ld hl, wPlayerUsedMoves
 	ld c, 4
 	ld b, 0
 
@@ -1440,7 +1440,7 @@ AI_Smart_Counter: ; 38bf1
 	cp $3
 	jr nc, .asm_38c30
 
-	ld a, [LastPlayerCounterMove]
+	ld a, [wLastPlayerCounterMove]
 	and a
 	jr z, .asm_38c38
 
@@ -1475,7 +1475,7 @@ AI_Smart_Encore: ; 38c3b
 	call AICompareSpeed
 	jr nc, .asm_38c81
 
-	ld a, [LastPlayerMove]
+	ld a, [wLastPlayerMove]
 	and a
 	jp z, AIDiscourageMove
 
@@ -1487,7 +1487,7 @@ AI_Smart_Encore: ; 38c3b
 
 	push hl
 	ld a, [wEnemyMoveStruct + MOVE_TYPE]
-	ld hl, EnemyMonType1
+	ld hl, wEnemyMonType1
 	predef CheckTypeMatchup
 
 	pop hl
@@ -1501,7 +1501,7 @@ AI_Smart_Encore: ; 38c3b
 
 .asm_38c68
 	push hl
-	ld a, [LastPlayerCounterMove]
+	ld a, [wLastPlayerCounterMove]
 	ld hl, .EncoreMoves
 	ld de, 1
 	call IsInArray
@@ -1561,13 +1561,13 @@ AI_Smart_PainSplit: ; 38ca4
 ; Discourage this move if [enemy's current HP * 2 > player's current HP].
 
 	push hl
-	ld hl, EnemyMonHP
+	ld hl, wEnemyMonHP
 	ld b, [hl]
 	inc hl
 	ld c, [hl]
 	sla c
 	rl b
-	ld hl, BattleMonHP + 1
+	ld hl, wBattleMonHP + 1
 	ld a, [hld]
 	cp c
 	ld a, [hl]
@@ -1584,7 +1584,7 @@ AI_Smart_SleepTalk: ; 38cba
 ; Greatly encourage this move if enemy is fast asleep.
 ; Greatly discourage this move otherwise.
 
-	ld a, [EnemyMonStatus]
+	ld a, [wEnemyMonStatus]
 	and $7
 	cp $1
 	jr z, .asm_38cc7
@@ -1606,7 +1606,7 @@ AI_Smart_DefrostOpponent: ; 38ccb
 ; Greatly encourage this move if enemy is frozen.
 ; No move has EFFECT_DEFROST_OPPONENT, so this layer is unused.
 
-	ld a, [EnemyMonStatus]
+	ld a, [wEnemyMonStatus]
 	and $20
 	ret z
 	dec [hl]
@@ -1617,7 +1617,7 @@ AI_Smart_DefrostOpponent: ; 38ccb
 
 
 AI_Smart_Spite: ; 38cd5
-	ld a, [LastPlayerCounterMove]
+	ld a, [wLastPlayerCounterMove]
 	and a
 	jr nz, .asm_38ce7
 
@@ -1633,8 +1633,8 @@ AI_Smart_Spite: ; 38cd5
 	push hl
 	ld b, a
 	ld c, 4
-	ld hl, BattleMonMoves
-	ld de, BattleMonPP
+	ld hl, wBattleMonMoves
+	ld de, wBattleMonPP
 
 .asm_38cf1
 	ld a, [hli]
@@ -1697,10 +1697,10 @@ AI_Smart_HealBell: ; 38d1f
 ; 50% chance to greatly encourage this move if the enemy is fast asleep or frozen.
 
 	push hl
-	ld a, [OTPartyCount]
+	ld a, [wOTPartyCount]
 	ld b, a
 	ld c, 0
-	ld hl, OTPartyMon1HP
+	ld hl, wOTPartyMon1HP
 	ld de, PARTYMON_STRUCT_LENGTH
 
 .loop
@@ -1728,7 +1728,7 @@ AI_Smart_HealBell: ; 38d1f
 	and a
 	jr z, .no_status
 
-	ld a, [EnemyMonStatus]
+	ld a, [wEnemyMonStatus]
 	and a
 	jr z, .ok
 	dec [hl]
@@ -1742,7 +1742,7 @@ AI_Smart_HealBell: ; 38d1f
 	ret
 
 .no_status
-	ld a, [EnemyMonStatus]
+	ld a, [wEnemyMonStatus]
 	and a
 	ret nz
 	jp AIDiscourageMove
@@ -1755,7 +1755,7 @@ AI_Smart_PriorityHit: ; 38d5a
 	ret c
 
 ; Dismiss this move if the player is flying or underground.
-	ld a, [PlayerSubStatus3]
+	ld a, [wPlayerSubStatus3]
 	and 1 << SUBSTATUS_FLYING | 1 << SUBSTATUS_UNDERGROUND
 	jp nz, AIDiscourageMove
 
@@ -1767,13 +1767,13 @@ AI_Smart_PriorityHit: ; 38d5a
 	callfar BattleCommand_DamageCalc
 	callfar BattleCommand_Stab
 	pop hl
-	ld a, [CurDamage + 1]
+	ld a, [wCurDamage + 1]
 	ld c, a
-	ld a, [CurDamage]
+	ld a, [wCurDamage]
 	ld b, a
-	ld a, [BattleMonHP + 1]
+	ld a, [wBattleMonHP + 1]
 	cp c
-	ld a, [BattleMonHP]
+	ld a, [wBattleMonHP]
 	sbc b
 	ret nc
 	dec [hl]
@@ -1794,7 +1794,7 @@ AI_Smart_Thief: ; 38d93
 
 
 AI_Smart_Conversion2: ; 38d98
-	ld a, [LastPlayerMove]
+	ld a, [wLastPlayerMove]
 	and a
 	jr nz, .asm_38dc9
 
@@ -1839,7 +1839,7 @@ AI_Smart_Disable: ; 38dd1
 	jr nc, .asm_38df3
 
 	push hl
-	ld a, [LastPlayerCounterMove]
+	ld a, [wLastPlayerCounterMove]
 	ld hl, UsefulMoves
 	ld de, 1
 	call IsInArray
@@ -1877,14 +1877,14 @@ AI_Smart_MeanLook: ; 38dfb
 	jp z, AIDiscourageMove
 
 ; 80% chance to greatly encourage this move if the enemy is badly poisoned (buggy).
-; Should check PlayerSubStatus5 instead.
-	ld a, [EnemySubStatus5]
+; Should check wPlayerSubStatus5 instead.
+	ld a, [wEnemySubStatus5]
 	bit SUBSTATUS_TOXIC, a
 	jr nz, .asm_38e26
 
 ; 80% chance to greatly encourage this move if the player is either
 ; in love, identified, stuck in Rollout, or has a Nightmare.
-	ld a, [PlayerSubStatus1]
+	ld a, [wPlayerSubStatus1]
 	and 1<<SUBSTATUS_IN_LOVE | 1<<SUBSTATUS_ROLLOUT | 1<<SUBSTATUS_IDENTIFIED | 1<<SUBSTATUS_NIGHTMARE
 	jr nz, .asm_38e26
 
@@ -1911,14 +1911,14 @@ AI_Smart_MeanLook: ; 38dfb
 
 
 AICheckLastPlayerMon: ; 38e2e
-	ld a, [PartyCount]
+	ld a, [wPartyCount]
 	ld b, a
 	ld c, 0
-	ld hl, PartyMon1HP
+	ld hl, wPartyMon1HP
 	ld de, PARTYMON_STRUCT_LENGTH
 
 .loop
-	ld a, [CurBattleMon]
+	ld a, [wCurBattleMon]
 	cp c
 	jr z, .asm_38e44
 
@@ -1952,7 +1952,7 @@ AI_Smart_Nightmare: ; 38e4a
 AI_Smart_FlameWheel: ; 38e50
 ; Use this move if the enemy is frozen.
 
-	ld a, [EnemyMonStatus]
+	ld a, [wEnemyMonStatus]
 	bit FRZ, a
 	ret z
 rept 5
@@ -1963,28 +1963,28 @@ endr
 
 
 AI_Smart_Curse: ; 38e5c
-	ld a, [EnemyMonType1]
+	ld a, [wEnemyMonType1]
 	cp GHOST
 	jr z, .ghostcurse
-	ld a, [EnemyMonType2]
+	ld a, [wEnemyMonType2]
 	cp GHOST
 	jr z, .ghostcurse
 
 	call AICheckEnemyHalfHP
 	jr nc, .asm_38e93
 
-	ld a, [EnemyAtkLevel]
+	ld a, [wEnemyAtkLevel]
 	cp $b
 	jr nc, .asm_38e93
 	cp $9
 	ret nc
 
-	ld a, [BattleMonType1]
+	ld a, [wBattleMonType1]
 	cp GHOST
 	jr z, .asm_38e92
 	cp SPECIAL
 	ret nc
-	ld a, [BattleMonType2]
+	ld a, [wBattleMonType2]
 	cp SPECIAL
 	ret nc
 	call AI_80_20
@@ -2003,7 +2003,7 @@ AI_Smart_Curse: ; 38e5c
 	ret
 
 .ghostcurse
-	ld a, [PlayerSubStatus1]
+	ld a, [wPlayerSubStatus1]
 	bit SUBSTATUS_CURSE, a
 	jp nz, AIDiscourageMove
 
@@ -2037,7 +2037,7 @@ AI_Smart_Curse: ; 38e5c
 	call AICheckEnemyMaxHP
 	ret nc
 
-	ld a, [PlayerTurnsTaken]
+	ld a, [wPlayerTurnsTaken]
 	and a
 	ret nz
 
@@ -2052,36 +2052,36 @@ AI_Smart_Curse: ; 38e5c
 
 
 AI_Smart_Protect: ; 38ed2
-	ld a, [EnemyProtectCount]
+	ld a, [wEnemyProtectCount]
 	and a
 	jr nz, .asm_38f13
 
-	ld a, [PlayerSubStatus5]
+	ld a, [wPlayerSubStatus5]
 	bit SUBSTATUS_LOCK_ON, a
 	jr nz, .asm_38f14
 
-	ld a, [PlayerFuryCutterCount]
+	ld a, [wPlayerFuryCutterCount]
 	cp 3
 	jr nc, .asm_38f0d
 
-	ld a, [PlayerSubStatus3]
+	ld a, [wPlayerSubStatus3]
 	bit SUBSTATUS_CHARGED, a
 	jr nz, .asm_38f0d
 
-	ld a, [PlayerSubStatus5]
+	ld a, [wPlayerSubStatus5]
 	bit SUBSTATUS_TOXIC, a
 	jr nz, .asm_38f0d
-	ld a, [PlayerSubStatus4]
+	ld a, [wPlayerSubStatus4]
 	bit SUBSTATUS_LEECH_SEED, a
 	jr nz, .asm_38f0d
-	ld a, [PlayerSubStatus1]
+	ld a, [wPlayerSubStatus1]
 	bit SUBSTATUS_CURSE, a
 	jr nz, .asm_38f0d
 
 	bit SUBSTATUS_ROLLOUT, a
 	jr z, .asm_38f14
 
-	ld a, [PlayerRolloutCount]
+	ld a, [wPlayerRolloutCount]
 	cp 3
 	jr c, .asm_38f14
 
@@ -2105,17 +2105,17 @@ AI_Smart_Protect: ; 38ed2
 
 
 AI_Smart_Foresight: ; 38f1d
-	ld a, [EnemyAccLevel]
+	ld a, [wEnemyAccLevel]
 	cp $5
 	jr c, .asm_38f41
-	ld a, [PlayerEvaLevel]
+	ld a, [wPlayerEvaLevel]
 	cp $a
 	jr nc, .asm_38f41
 
-	ld a, [BattleMonType1]
+	ld a, [wBattleMonType1]
 	cp GHOST
 	jr z, .asm_38f41
-	ld a, [BattleMonType2]
+	ld a, [wBattleMonType2]
 	cp GHOST
 	jr z, .asm_38f41
 
@@ -2141,7 +2141,7 @@ AI_Smart_PerishSong: ; 38f4a
 	pop hl
 	jr c, .no
 
-	ld a, [PlayerSubStatus5]
+	ld a, [wPlayerSubStatus5]
 	bit SUBSTATUS_CANT_RUN, a
 	jr nz, .yes
 
@@ -2176,7 +2176,7 @@ AI_Smart_PerishSong: ; 38f4a
 AI_Smart_Sandstorm: ; 38f7a
 
 ; Greatly discourage this move if the player is immune to Sandstorm damage.
-	ld a, [BattleMonType1]
+	ld a, [wBattleMonType1]
 	push hl
 	ld hl, .SandstormImmuneTypes
 	ld de, 1
@@ -2184,7 +2184,7 @@ AI_Smart_Sandstorm: ; 38f7a
 	pop hl
 	jr c, .asm_38fa5
 
-	ld a, [BattleMonType2]
+	ld a, [wBattleMonType2]
 	push hl
 	ld hl, .SandstormImmuneTypes
 	ld de, 1
@@ -2219,7 +2219,7 @@ AI_Smart_Sandstorm: ; 38f7a
 
 
 AI_Smart_Endure: ; 38fac
-	ld a, [EnemyProtectCount]
+	ld a, [wEnemyProtectCount]
 	and a
 	jr nz, .asm_38fd8
 
@@ -2242,7 +2242,7 @@ AI_Smart_Endure: ; 38fac
 	ret
 
 .asm_38fcb
-	ld a, [EnemySubStatus5]
+	ld a, [wEnemySubStatus5]
 	bit SUBSTATUS_LOCK_ON, a
 	ret z
 
@@ -2265,7 +2265,7 @@ AI_Smart_Endure: ; 38fac
 AI_Smart_FuryCutter: ; 38fdb
 ; Encourage this move based on Fury Cutter's count.
 
-	ld a, [EnemyFuryCutterCount]
+	ld a, [wEnemyFuryCutterCount]
 	and a
 	jr z, .end
 	dec [hl]
@@ -2291,15 +2291,15 @@ AI_Smart_Rollout: ; 38fef
 ; Rollout, Fury Cutter
 
 ; 80% chance to discourage this move if the enemy is in love, confused, or paralyzed.
-	ld a, [EnemySubStatus1]
+	ld a, [wEnemySubStatus1]
 	bit SUBSTATUS_IN_LOVE, a
 	jr nz, .asm_39020
 
-	ld a, [EnemySubStatus3]
+	ld a, [wEnemySubStatus3]
 	bit SUBSTATUS_CONFUSED, a
 	jr nz, .asm_39020
 
-	ld a, [EnemyMonStatus]
+	ld a, [wEnemyMonStatus]
 	bit PAR, a
 	jr nz, .asm_39020
 
@@ -2308,10 +2308,10 @@ AI_Smart_Rollout: ; 38fef
 	call AICheckEnemyQuarterHP
 	jr nc, .asm_39020
 
-	ld a, [EnemyAccLevel]
+	ld a, [wEnemyAccLevel]
 	cp 7
 	jr c, .asm_39020
-	ld a, [PlayerEvaLevel]
+	ld a, [wPlayerEvaLevel]
 	cp 8
 	jr nc, .asm_39020
 
@@ -2336,7 +2336,7 @@ AI_Smart_Attract: ; 39026
 ; 80% chance to encourage this move during the first turn of player's Pokemon.
 ; 80% chance to discourage this move otherwise.
 
-	ld a, [PlayerTurnsTaken]
+	ld a, [wPlayerTurnsTaken]
 	and a
 	jr z, .first_turn
 
@@ -2370,11 +2370,11 @@ AI_Smart_Magnitude:
 AI_Smart_Earthquake: ; 39044
 
 ; Greatly encourage this move if the player is underground and the enemy is faster.
-	ld a, [LastPlayerCounterMove]
+	ld a, [wLastPlayerCounterMove]
 	cp DIG
 	ret nz
 
-	ld a, [PlayerSubStatus3]
+	ld a, [wPlayerSubStatus3]
 	bit SUBSTATUS_UNDERGROUND, a
 	jr z, .could_dig
 
@@ -2442,11 +2442,11 @@ AI_Smart_RapidSpin: ; 39084
 	and a
 	jr nz, .asm_39097
 
-	ld a, [EnemySubStatus4]
+	ld a, [wEnemySubStatus4]
 	bit SUBSTATUS_LEECH_SEED, a
 	jr nz, .asm_39097
 
-	ld a, [EnemyScreens]
+	ld a, [wEnemyScreens]
 	bit SCREENS_SPIKES, a
 	ret z
 
@@ -2504,13 +2504,13 @@ AI_Smart_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]
+	ld a, [wBattleMonType1]
 	cp WATER
 	jr z, AIBadWeatherType
 	cp FIRE
 	jr z, AIGoodWeatherType
 
-	ld a, [BattleMonType2]
+	ld a, [wBattleMonType2]
 	cp WATER
 	jr z, AIBadWeatherType
 	cp FIRE
@@ -2541,13 +2541,13 @@ AI_Smart_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]
+	ld a, [wBattleMonType1]
 	cp FIRE
 	jr z, AIBadWeatherType
 	cp WATER
 	jr z, AIGoodWeatherType
 
-	ld a, [BattleMonType2]
+	ld a, [wBattleMonType2]
 	cp FIRE
 	jr z, AIBadWeatherType
 	cp WATER
@@ -2597,12 +2597,12 @@ AIGoodWeatherType: ; 39122
 
 ; ...as long as one of the following conditions meet:
 ; It's the first turn of the player's Pokemon.
-	ld a, [PlayerTurnsTaken]
+	ld a, [wPlayerTurnsTaken]
 	and a
 	jr z, .good
 
 ; Or it's the first turn of the enemy's Pokemon.
-	ld a, [EnemyTurnsTaken]
+	ld a, [wEnemyTurnsTaken]
 	and a
 	ret nz
 
@@ -2630,7 +2630,7 @@ AI_Smart_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]
+	ld a, [wEnemyAtkLevel]
 	cp $a
 	jr nc, .asm_3914d
 
@@ -2652,7 +2652,7 @@ AI_Smart_BellyDrum: ; 3913d
 
 AI_Smart_PsychUp: ; 39152
 	push hl
-	ld hl, EnemyAtkLevel
+	ld hl, wEnemyAtkLevel
 	ld b, $8
 	ld c, 100
 
@@ -2668,7 +2668,7 @@ AI_Smart_PsychUp: ; 39152
 
 ; 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 hl, wPlayerAtkLevel
 	ld b, $8
 	ld d, 100
 
@@ -2687,12 +2687,12 @@ AI_Smart_PsychUp: ; 39152
 	jr nc, .asm_39188
 
 ; Else, 80% chance to encourage this move unless player's accuracy level is lower than -1...
-	ld a, [PlayerAccLevel]
+	ld a, [wPlayerAccLevel]
 	cp $6
 	ret c
 
 ; ...or enemy's evasion level is higher than +0.
-	ld a, [EnemyEvaLevel]
+	ld a, [wEnemyEvaLevel]
 	cp $8
 	ret nc
 
@@ -2711,7 +2711,7 @@ AI_Smart_PsychUp: ; 39152
 
 AI_Smart_MirrorCoat: ; 3918b
 	push hl
-	ld hl, PlayerUsedMoves
+	ld hl, wPlayerUsedMoves
 	ld c, $4
 	ld b, $0
 
@@ -2744,7 +2744,7 @@ AI_Smart_MirrorCoat: ; 3918b
 	cp $3
 	jr nc, .asm_391ca
 
-	ld a, [LastPlayerCounterMove]
+	ld a, [wLastPlayerCounterMove]
 	and a
 	jr z, .asm_391d2
 
@@ -2778,11 +2778,11 @@ AI_Smart_Twister:
 AI_Smart_Gust: ; 391d5
 
 ; Greatly encourage this move if the player is flying and the enemy is faster.
-	ld a, [LastPlayerCounterMove]
+	ld a, [wLastPlayerCounterMove]
 	cp FLY
 	ret nz
 
-	ld a, [PlayerSubStatus3]
+	ld a, [wPlayerSubStatus3]
 	bit SUBSTATUS_FLYING, a
 	jr z, .couldFly
 
@@ -2813,7 +2813,7 @@ AI_Smart_FutureSight: ; 391f3
 	call AICompareSpeed
 	ret nc
 
-	ld a, [PlayerSubStatus3]
+	ld a, [wPlayerSubStatus3]
 	and 1 << SUBSTATUS_FLYING | 1 << SUBSTATUS_UNDERGROUND
 	ret z
 
@@ -2887,13 +2887,13 @@ AICompareSpeed: ; 39233
 ; Return carry if enemy is faster than player.
 
 	push bc
-	ld a, [EnemyMonSpeed + 1]
+	ld a, [wEnemyMonSpeed + 1]
 	ld b, a
-	ld a, [BattleMonSpeed + 1]
+	ld a, [wBattleMonSpeed + 1]
 	cp b
-	ld a, [EnemyMonSpeed]
+	ld a, [wEnemyMonSpeed]
 	ld b, a
-	ld a, [BattleMonSpeed]
+	ld a, [wBattleMonSpeed]
 	sbc b
 	pop bc
 	ret
@@ -2904,8 +2904,8 @@ AICheckPlayerMaxHP: ; 39246
 	push hl
 	push de
 	push bc
-	ld de, BattleMonHP
-	ld hl, BattleMonMaxHP
+	ld de, wBattleMonHP
+	ld hl, wBattleMonMaxHP
 	jr AICheckMaxHP
 ; 39251
 
@@ -2914,8 +2914,8 @@ AICheckEnemyMaxHP: ; 39251
 	push hl
 	push de
 	push bc
-	ld de, EnemyMonHP
-	ld hl, EnemyMonMaxHP
+	ld de, wEnemyMonHP
+	ld hl, wEnemyMonMaxHP
 	; fallthrough
 ; 3925a
 
@@ -2950,7 +2950,7 @@ AICheckMaxHP: ; 3925a
 
 AICheckPlayerHalfHP: ; 3926e
 	push hl
-	ld hl, BattleMonHP
+	ld hl, wBattleMonHP
 	ld b, [hl]
 	inc hl
 	ld c, [hl]
@@ -2971,7 +2971,7 @@ AICheckEnemyHalfHP: ; 39281
 	push hl
 	push de
 	push bc
-	ld hl, EnemyMonHP
+	ld hl, wEnemyMonHP
 	ld b, [hl]
 	inc hl
 	ld c, [hl]
@@ -2994,7 +2994,7 @@ AICheckEnemyQuarterHP: ; 39298
 	push hl
 	push de
 	push bc
-	ld hl, EnemyMonHP
+	ld hl, wEnemyMonHP
 	ld b, [hl]
 	inc hl
 	ld c, [hl]
@@ -3017,7 +3017,7 @@ AICheckEnemyQuarterHP: ; 39298
 
 AICheckPlayerQuarterHP: ; 392b3
 	push hl
-	ld hl, BattleMonHP
+	ld hl, wBattleMonHP
 	ld b, [hl]
 	inc hl
 	ld c, [hl]
@@ -3040,8 +3040,8 @@ AIHasMoveEffect: ; 392ca
 ; Return carry if the enemy has move b.
 
 	push hl
-	ld hl, EnemyMonMoves
-	ld c, EnemyMonMovesEnd - EnemyMonMoves
+	ld hl, wEnemyMonMoves
+	ld c, wEnemyMonMovesEnd - wEnemyMonMoves
 
 .checkmove
 	ld a, [hli]
@@ -3082,8 +3082,8 @@ AIHasMoveInArray: ; 392e6
 	jr z, .done
 
 	ld b, a
-	ld c, EnemyMonMovesEnd - EnemyMonMoves + 1
-	ld de, EnemyMonMoves
+	ld c, wEnemyMonMovesEnd - wEnemyMonMoves + 1
+	ld de, wEnemyMonMoves
 
 .check
 	dec c
@@ -3145,9 +3145,9 @@ AI_Opportunist: ; 39315
 	ret c
 
 .asm_39322
-	ld hl, Buffer1 - 1
-	ld de, EnemyMonMoves
-	ld c, EnemyMonMovesEnd - EnemyMonMoves + 1
+	ld hl, wBuffer1 - 1
+	ld de, wEnemyMonMoves
+	ld c, wEnemyMonMovesEnd - wEnemyMonMoves + 1
 .checkmove
 	inc hl
 	dec c
@@ -3222,13 +3222,13 @@ AI_Aggressive: ; 39369
 ; no move will be discouraged
 
 ; Figure out which attack does the most damage and put it in c.
-	ld hl, EnemyMonMoves
+	ld hl, wEnemyMonMoves
 	ld bc, 0
 	ld de, 0
 .checkmove
 	inc b
 	ld a, b
-	cp EnemyMonMovesEnd - EnemyMonMoves + 1
+	cp wEnemyMonMovesEnd - wEnemyMonMoves + 1
 	jr z, .gotstrongestmove
 
 	ld a, [hli]
@@ -3248,15 +3248,15 @@ AI_Aggressive: ; 39369
 	pop hl
 
 ; Update current move if damage is highest so far
-	ld a, [CurDamage + 1]
+	ld a, [wCurDamage + 1]
 	cp e
-	ld a, [CurDamage]
+	ld a, [wCurDamage]
 	sbc d
 	jr c, .checkmove
 
-	ld a, [CurDamage + 1]
+	ld a, [wCurDamage + 1]
 	ld e, a
-	ld a, [CurDamage]
+	ld a, [wCurDamage]
 	ld d, a
 	ld c, b
 	jr .checkmove
@@ -3274,13 +3274,13 @@ AI_Aggressive: ; 39369
 	jr z, .done
 
 ; Discourage moves that do less damage unless they're reckless too.
-	ld hl, Buffer1 - 1
-	ld de, EnemyMonMoves
+	ld hl, wBuffer1 - 1
+	ld de, wEnemyMonMoves
 	ld b, 0
 .checkmove2
 	inc b
 	ld a, b
-	cp EnemyMonMovesEnd - EnemyMonMoves + 1
+	cp wEnemyMonMovesEnd - wEnemyMonMoves + 1
 	jr z, .done
 
 ; Ignore this move if it is the highest damaging one.
@@ -3357,13 +3357,13 @@ AIDamageCalc: ; 393e7
 AI_Cautious: ; 39418
 ; 90% chance to discourage moves with residual effects after the first turn.
 
-	ld a, [EnemyTurnsTaken]
+	ld a, [wEnemyTurnsTaken]
 	and a
 	ret z
 
-	ld hl, Buffer1 - 1
-	ld de, EnemyMonMoves
-	ld c, EnemyMonMovesEnd - EnemyMonMoves + 1
+	ld hl, wBuffer1 - 1
+	ld de, wEnemyMonMoves
+	ld c, wEnemyMonMovesEnd - wEnemyMonMoves + 1
 .asm_39425
 	inc hl
 	dec c
@@ -3414,9 +3414,9 @@ AI_Cautious: ; 39418
 AI_Status: ; 39453
 ; Dismiss status moves that don't affect the player.
 
-	ld hl, Buffer1 - 1
-	ld de, EnemyMonMoves
-	ld b, EnemyMonMovesEnd - EnemyMonMoves + 1
+	ld hl, wBuffer1 - 1
+	ld de, wEnemyMonMoves
+	ld b, wEnemyMonMovesEnd - wEnemyMonMoves + 1
 .checkmove
 	dec b
 	ret z
@@ -3446,10 +3446,10 @@ AI_Status: ; 39453
 	jr .typeimmunity
 
 .poisonimmunity
-	ld a, [BattleMonType1]
+	ld a, [wBattleMonType1]
 	cp POISON
 	jr z, .immune
-	ld a, [BattleMonType2]
+	ld a, [wBattleMonType2]
 	cp POISON
 	jr z, .immune
 
@@ -3479,9 +3479,9 @@ AI_Risky: ; 394a9
 ; Use any move that will KO the target.
 ; Risky moves will often be an exception (see below).
 
-	ld hl, Buffer1 - 1
-	ld de, EnemyMonMoves
-	ld c, EnemyMonMovesEnd - EnemyMonMoves + 1
+	ld hl, wBuffer1 - 1
+	ld de, wEnemyMonMoves
+	ld c, wEnemyMonMovesEnd - wEnemyMonMoves + 1
 .checkmove
 	inc hl
 	dec c
@@ -3519,13 +3519,13 @@ AI_Risky: ; 394a9
 .checkko
 	call AIDamageCalc
 
-	ld a, [CurDamage + 1]
+	ld a, [wCurDamage + 1]
 	ld e, a
-	ld a, [CurDamage]
+	ld a, [wCurDamage]
 	ld d, a
-	ld a, [BattleMonHP + 1]
+	ld a, [wBattleMonHP + 1]
 	cp e
-	ld a, [BattleMonHP]
+	ld a, [wBattleMonHP]
 	sbc d
 	jr nc, .nextmove