Various annotations

Annotated the SGB functions in predef/sgb.asm, and some of the map scripts.  Renamed several functions in home.  Renamed six WRAM addresses corresponding to party icon animations, and renamed several others relative to these.

43 files changed, 3252 insertions, 3160 deletions

diff --git a/battle/core.asm b/battle/core.asm
index 4dd60c891..e2d1cb6a6 100644
--- a/battle/core.asm
+++ b/battle/core.asm
@@ -8824,9 +8824,9 @@ Function3f836: ; 3f836
 	call GetSRAMBank
 	call Function3f85f
 	call CloseSRAM
-	ld hl, AttrMap
+	hlcoord 0, 0, AttrMap
 	xor a
-	ld bc, $0168
+	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
 	call ByteFill
 	call Function3200
 	ld b, $8
diff --git a/battle/effect_commands.asm b/battle/effect_commands.asm
index d162e1c37..4d53eec08 100644
--- a/battle/effect_commands.asm
+++ b/battle/effect_commands.asm
@@ -6448,7 +6448,7 @@ BattleCommand8c: ; 363b8
 	jp BattleTextBox
 
 .stat
-	TX_FAR UnknownText_0x1c0cc6
+	text_jump UnknownText_0x1c0cc6
 	start_asm
 
 	ld hl, .up
@@ -6459,11 +6459,11 @@ BattleCommand8c: ; 363b8
 	ret
 
 .wayup
-	TX_FAR UnknownText_0x1c0cd0
+	text_jump UnknownText_0x1c0cd0
 	db "@"
 
 .up
-	TX_FAR UnknownText_0x1c0ce0
+	text_jump UnknownText_0x1c0ce0
 	db "@"
 
 ; 363e9
@@ -6482,7 +6482,7 @@ BattleCommand8d: ; 363e9
 	jp BattleTextBox
 
 .stat
-	TX_FAR UnknownText_0x1c0ceb
+	text_jump UnknownText_0x1c0ceb
 	start_asm
 
 	ld hl, .fell
@@ -6493,10 +6493,10 @@ BattleCommand8d: ; 363e9
 	ret
 
 .sharplyfell
-	TX_FAR UnknownText_0x1c0cf5
+	text_jump UnknownText_0x1c0cf5
 	db "@"
 .fell
-	TX_FAR UnknownText_0x1c0d06
+	text_jump UnknownText_0x1c0d06
 	db "@"
 
 ; 3641a
@@ -7804,7 +7804,7 @@ BattleCommand39: ; 36b4d
 	jp EndMoveEffect
 
 .UsedText
-	TX_FAR UnknownText_0x1c0d0e ; "[USER]"
+	text_jump UnknownText_0x1c0d0e ; "[USER]"
 	start_asm
 
 	ld a, BATTLE_VARS_MOVE_ANIM
@@ -7837,32 +7837,32 @@ BattleCommand39: ; 36b4d
 
 .RazorWind
 ; 'made a whirlwind!'
-	TX_FAR UnknownText_0x1c0d12
+	text_jump UnknownText_0x1c0d12
 	db "@"
 
 .Solarbeam
 ; 'took in sunlight!'
-	TX_FAR UnknownText_0x1c0d26
+	text_jump UnknownText_0x1c0d26
 	db "@"
 
 .SkullBash
 ; 'lowered its head!'
-	TX_FAR UnknownText_0x1c0d3a
+	text_jump UnknownText_0x1c0d3a
 	db "@"
 
 .SkyAttack
 ; 'is glowing!'
-	TX_FAR UnknownText_0x1c0d4e
+	text_jump UnknownText_0x1c0d4e
 	db "@"
 
 .Fly
 ; 'flew up high!'
-	TX_FAR UnknownText_0x1c0d5c
+	text_jump UnknownText_0x1c0d5c
 	db "@"
 
 .Dig
 ; 'dug a hole!'
-	TX_FAR UnknownText_0x1c0d6c
+	text_jump UnknownText_0x1c0d6c
 	db "@"
 ; 36c2c
 
diff --git a/constants.asm b/constants.asm
index 3b4fe7cd4..2d3c19fa2 100644
--- a/constants.asm
+++ b/constants.asm
@@ -25,3 +25,4 @@ INCLUDE "constants/pokemon_data_constants.asm"
 INCLUDE "constants/misc_constants.asm"
 INCLUDE "constants/std_constants.asm"
 INCLUDE "constants/deco_constants.asm"
+INCLUDE "constants/radio_constants.asm"
diff --git a/engine/color.asm b/engine/color.asm
index 1a28e1104..0e932f786 100644
--- a/engine/color.asm
+++ b/engine/color.asm
@@ -297,7 +297,7 @@ Function8bec: ; 8bec
 	ld a, [EnemyLightScreenCount]
 	ld c, a
 	ld a, [EnemyReflectCount]
-	ld hl, AttrMap
+	hlcoord 0, 0, AttrMap
 	ld de, $0014
 .asm_8c04
 	and a
@@ -661,8 +661,8 @@ endr
 
 
 Function9699: ; 9699
-	ld hl, AttrMap
-	ld bc, $0168
+	hlcoord 0, 0, AttrMap
+	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
 	xor a
 	call ByteFill
 	ret
@@ -694,7 +694,7 @@ Function96b3: ; 96b3
 	ret
 
 .asm_96d0
-	ld hl, AttrMap
+	hlcoord 0, 0, AttrMap
 	ld de, VBGMap0
 	ld b, $12
 	ld a, $1
diff --git a/engine/credits.asm b/engine/credits.asm
index 2be947bf3..3454e00b5 100644
--- a/engine/credits.asm
+++ b/engine/credits.asm
@@ -527,7 +527,7 @@ Function109a95: ; 109a95 (42:5a95)
 	ld a, $c
 	ld [hBGMapAddress], a ; $ff00+$d6
 	ld a, $28
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld bc, $168
 	call ByteFill
 	ld a, $7f
@@ -540,7 +540,7 @@ Function109a95: ; 109a95 (42:5a95)
 	hlcoord 0, 17
 	ld a, $20
 	call Function109b1d
-	ld hl, AttrMap
+	hlcoord 0, 0, AttrMap
 	ld bc, $50
 	xor a
 	call ByteFill
@@ -560,7 +560,7 @@ Function109a95: ; 109a95 (42:5a95)
 	xor a
 	ld [hBGMapMode], a ; $ff00+$d4
 	ld [hBGMapAddress], a ; $ff00+$d6
-	ld hl, TileMap
+	hlcoord 0, 0
 	call Function109aff
 	call Function3200
 	ret
diff --git a/engine/diploma.asm b/engine/diploma.asm
index bf6e89fa8..420bff7f1 100644
--- a/engine/diploma.asm
+++ b/engine/diploma.asm
@@ -14,8 +14,8 @@ Function1dd709: ; 1dd709
 	ld de, VTiles2
 	call Decompress
 	ld hl, Tilemap_1ddc4b
-	ld de, TileMap
-	ld bc, $0168
+	decoord 0, 0
+	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
 	call CopyBytes
 	ld de, String_1dd760
 	hlcoord 2, 5
@@ -54,13 +54,13 @@ String_1dd768:
 ; 1dd7ae
 
 Function1dd7ae: ; 1dd7ae
-	ld hl, TileMap
-	ld bc, $0168
+	hlcoord 0, 0
+	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
 	ld a, $7f
 	call ByteFill
 	ld hl, Tilemap_1dddb3
-	ld de, TileMap
-	ld bc, $0168
+	decoord 0, 0
+	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
 	call CopyBytes
 	ld de, String_1dd7fa
 	hlcoord 8, 0
diff --git a/engine/engine_flags.asm b/engine/engine_flags.asm
index 87fbd987d..87d802d30 100644
--- a/engine/engine_flags.asm
+++ b/engine/engine_flags.asm
@@ -29,9 +29,9 @@
 	dwb StatusFlags, %01000000 ; credits skip
 	dwb StatusFlags, %10000000 ; bug contest on   ; $10
 	dwb StatusFlags2, %00000100 ; bug contest timer
-	dwb StatusFlags2, %00000010 ; rockets in radio tower
-	dwb StatusFlags2, %00000001 ; bike shop call enabled (1024 bike steps reqd)
-	dwb StatusFlags2, %00010000
+	dwb StatusFlags2, %00000010
+	dwb StatusFlags2, %00000001 ; rockets in radio tower
+	dwb StatusFlags2, %00010000 ; bike shop call enabled (1024 bike steps reqd)
 	dwb StatusFlags2, %00100000 ; give pokerus; berry -> berry juice when trading?
 	dwb StatusFlags2, %01000000
 	dwb StatusFlags2, %10000000 ; rockets in mahogany
diff --git a/engine/pack.asm b/engine/pack.asm
index 62796ed3f..a50612bb8 100644
--- a/engine/pack.asm
+++ b/engine/pack.asm
@@ -1404,7 +1404,7 @@ Function10955: ; 10955
 	hlcoord 5, 1
 	lb bc, 11, 15
 	call ClearBox
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld a, $28
 	ld c, $14
 .asm_1098a
@@ -1489,8 +1489,8 @@ Function10a1d: ; 10a1d
 ; 10a2a
 
 Function10a2a: ; 10a2a
-	ld hl, TileMap
-	ld bc, $0168
+	hlcoord 0, 0
+	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
 	ld a, $7f
 	call ByteFill
 	ret
diff --git a/engine/pokedex.asm b/engine/pokedex.asm
index 25b291ffb..c48030501 100644
--- a/engine/pokedex.asm
+++ b/engine/pokedex.asm
@@ -212,7 +212,7 @@ Function4013c: ; 4013c (10:413c)
 	ld [hBGMapMode], a ; $ff00+$d4
 	call ClearSprites
 	xor a
-	ld hl, AttrMap
+	hlcoord 0, 0, AttrMap
 	ld bc, $168
 	call ByteFill
 	callba Function1de171
@@ -725,7 +725,7 @@ Function4050a: ; 4050a (10:450a)
 	xor a
 	ld [hBGMapMode], a ; $ff00+$d4
 	xor a
-	ld hl, AttrMap
+	hlcoord 0, 0, AttrMap
 	ld bc, $168
 	call ByteFill
 	call Function41ae1
@@ -1071,10 +1071,10 @@ Function4074c: ; 4074c (10:474c)
 	ld de, Unknown_407f2
 	call Function40acd
 	ld a, $32
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld bc, $168
 	call ByteFill
-	ld hl, TileMap
+	hlcoord 0, 0
 	lb bc, 7, 7
 	call Function40ad5
 	hlcoord 0, 9
@@ -1135,7 +1135,7 @@ Unknown_407f2: ; 407f2
 
 Function407fd: ; 407fd
 	call Function40aa6
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld bc, $0f12
 	call Function40ad5
 	hlcoord 19, 0
@@ -1259,7 +1259,7 @@ String_4094c: ; 4094c
 
 Function40962: ; 40962 (10:4962)
 	call Function40aa6
-	ld hl, TileMap
+	hlcoord 0, 0
 	lb bc, 7, 7
 	call Function40ad5
 	hlcoord 0, 11
@@ -1387,9 +1387,9 @@ Unknown_40a3e: ; 40a3e
 ; 40aa6
 
 Function40aa6: ; 40aa6
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld a, $32
-	ld bc, $0168
+	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
 	call ByteFill
 	ret
 ; 40ab2
diff --git a/engine/predef.asm b/engine/predef.asm
index c886e4a84..22e323246 100644
--- a/engine/predef.asm
+++ b/engine/predef.asm
@@ -79,7 +79,7 @@ PredefPointers:: ; 856b
 	add_predef Functioncbcdd
 	add_predef Predef2F
 	add_predef Function9853 ; $30
-	add_predef Function864c
+	add_predef Predef_LoadSGBLayout
 	add_predef Function91d11
 	add_predef CheckContestMon
 	add_predef Function8c20f
diff --git a/engine/radio.asm b/engine/radio.asm
index 35117668f..74d0383e7 100644
--- a/engine/radio.asm
+++ b/engine/radio.asm
@@ -1,2115 +1,2141 @@
-PlayRadioShow: ; b8612

-	ld a, [wd002]

-	cp 8

-	jr nc, .ok

-	ld a, [StatusFlags2]

-	bit 0, a

-	jr z, .ok

-	call IsInJohto

-	and a

-	jr nz, .ok

-	ld a, 7

-	ld [wd002], a

-.ok

-	ld a, [wd002]

-	ld e, a

-	ld d, 0

-	ld hl, RadioJumptable

-rept 2

-	add hl, de

-endr

-	ld a, [hli]

-	ld h, [hl]

-	ld l, a

-	jp [hl]

-

-RadioJumptable: ; b863a (2e:463a)

-	dw MaryOakShow1

-	dw MaryOakShow2

-	dw BenMonMusic1

-	dw DJReed1

-	dw Functionb8f12

-	dw Functionb8cbf

-	dw Functionb8b50

-	dw Functionb8e72

-	dw Functionb8ef7

-	dw Functionb8f00

-	dw Functionb8f09

-	dw Functionb8752

-	dw Functionb875a

-	dw Functionb8762

-	dw Functionb8810

-	dw Functionb8818

-	dw Functionb883e

-	dw Functionb8854

-	dw Functionb88d9

-	dw Functionb8a6c

-	dw Functionb8aa4

-	dw Functionb8aac

-	dw Functionb8ab4

-	dw Functionb8b40

-	dw Functionb8b48

-	dw Functionb8b63

-	dw Functionb8b6b

-	dw Functionb8b7d

-	dw Functionb8b8f

-	dw Functionb8b5b

-	dw Functionb8bf5

-	dw Functionb8bfd

-	dw Functionb8c05

-	dw Functionb8c0d

-	dw Functionb8c15

-	dw Functionb8c1d

-	dw Functionb8c25

-	dw Functionb8c3e

-	dw Functionb8c46

-	dw Functionb8c4e

-	dw Functionb8c56

-	dw Functionb8c5e

-	dw Functionb8c6e

-	dw Functionb8c76

-	dw Functionb8cca

-	dw Functionb8cd2

-	dw Functionb8cf2

-	dw Functionb8d56

-	dw Functionb8ded

-	dw Functionb8e28

-	dw Functionb8e7d

-	dw Functionb8e85

-	dw Functionb8e8d

-	dw Functionb8e95

-	dw Functionb8e9d

-	dw Functionb8ea5

-	dw Functionb8ead

-	dw Functionb8eb5

-	dw Functionb8ebd

-	dw Functionb896e

-	dw Functionb8994

-	dw Functionb89a9

-	dw Functionb89c6

-	dw Functionb89d7

-	dw Functionb8f3f

-	dw Functionb8f47

-	dw Functionb8f55

-	dw Functionb909c

-	dw Functionb90a4

-	dw Functionb90ac

-	dw Functionb90c5

-	dw Functionb90d2

-	dw Functionb90da

-	dw Functionb90e2

-	dw Functionb90ea

-	dw Functionb90f2

-	dw Functionb90fa

-	dw Functionb9102

-	dw Functionb910a

-	dw Functionb9112

-	dw Functionb911a

-	dw Functionb9122

-	dw Functionb912a

-	dw Functionb9152

-	dw Functionb8728

-	dw Functionb8abc

-	dw Functionb8ac4

-	dw Functionb8acc

-

-

-Functionb86ea: ; b86ea (2e:46ea)

-	ld [wd003], a

-	ld hl, wd00c

-	ld a, [wd005]

-	cp $2

-	jr nc, .asm_b870a

-	inc hl

-	ld [hl], $0

-	inc a

-	ld [wd005], a

-	cp $2

-	jr nz, .asm_b870a

-	bccoord 1, 16

-	call Function13e5

-	jr .asm_b870d

-.asm_b870a

-	call PrintTextBoxText

-.asm_b870d

-	ld a, $54

-	ld [wd002], a

-	ld a, $64

-	ld [wd004], a

-	ret

-; b8718 (2e:4718)

-

-Functionb8718: ; b8718

-	push hl

-	ld b, $28

-.asm_b871b

-	ld a, [hl]

-	cp $e8

-	jr nz, .asm_b8722

-	ld [hl], $7f

-

-.asm_b8722

-	inc hl

-	dec b

-	jr nz, .asm_b871b

-	pop hl

-	ret

-; b8728

-

-Functionb8728: ; b8728 (2e:4728)

-	ld hl, wd004

-	ld a, [hl]

-	and a

-	jr z, .asm_b8731

-	dec [hl]

-	ret

-.asm_b8731

-	ld a, [wd003]

-	ld [wd002], a

-	ld a, [wd005]

-	cp $1

-	call nz, Functionb8a0b

-	jp Functionb8a17

-

-MaryOakShow1: ; b8742 (2e:4742)

-	ld a, $5

-	ld [wd006], a

-	call Functionb91eb

-	ld hl, UnknownText_0xb8820

-	ld a, $b

-	jp NextRadioLine

-

-Functionb8752: ; b8752 (2e:4752)

-	ld hl, UnknownText_0xb8825

-	ld a, $c

-	jp NextRadioLine

-

-Functionb875a: ; b875a (2e:475a)

-	ld hl, UnknownText_0xb882a

-	ld a, $d

-	jp NextRadioLine

-

-Functionb8762: ; b8762 (2e:4762)

-	call Random

-	and $1f

-	cp $f

-	jr nc, Functionb8762

-	ld hl, Unknown_b87f2

-	ld c, a

-	ld b, 0

-rept 2

-	add hl, bc

-endr

-	ld b, [hl]

-	inc hl

-	ld c, [hl]

-	push bc

-

-	ld hl, WildMons1

-.loop

-	ld a, BANK(WildMons1)

-	call GetFarByte

-	cp $ff

-	jr z, .done2

-	inc hl

-	cp b

-	jr nz, .next

-	ld a, BANK(WildMons1)

-	call GetFarByte

-	cp c

-	jr z, .done

-.next

-	dec hl

-	ld de, $2f

-	add hl, de

-	jr .loop

-

-.done

-rept 4

-	inc hl

-endr

-

-.not3

-	call Random

-	and 3

-	cp 3

-	jr z, .not3

-

-	ld bc, $e

-	call AddNTimes

-.loop2

-	call Random

-	and 7

-	cp 2

-	jr c, .loop2

-	cp 5

-	jr nc, .loop2

-	ld e, a

-	ld d, 0

-rept 2

-	add hl, de

-endr

-	inc hl

-	ld a, BANK(WildMons1)

-	call GetFarByte

-	ld [wd265], a

-	ld [CurPartySpecies], a

-	call GetPokemonName

-	ld hl, StringBuffer1

-	ld de, wd050

-	ld bc, $b

-	call CopyBytes

-

-	pop bc

-	call GetWorldMapLocation

-	ld e, a

-	callba GetLandmarkName

-	ld hl, UnknownText_0xb882f

-	call Functionb91dc

-	ld a, $e

-	jp Functionb86ea

-

-.done2

-	pop bc

-	ld a, $0

-	jp Functionb86ea

-; b87f2 (2e:47f2)

-

-Unknown_b87f2: ; b87f2

-	map ROUTE_29

-	map ROUTE_46

-	map ROUTE_30

-	map ROUTE_32

-	map ROUTE_34

-	map ROUTE_35

-	map ROUTE_37

-	map ROUTE_38

-	map ROUTE_39

-	map ROUTE_42

-	map ROUTE_43

-	map ROUTE_44

-	map ROUTE_45

-	map ROUTE_36

-	map ROUTE_31

-; b8810

-

-Functionb8810: ; b8810 (2e:4810)

-	ld hl, UnknownText_0xb8834

-	ld a, $f

-	jp NextRadioLine

-

-Functionb8818: ; b8818 (2e:4818)

-	ld hl, UnknownText_0xb8839

-	ld a, $10

-	jp NextRadioLine

-; b8820 (2e:4820)

-

-UnknownText_0xb8820: ; 0xb8820

-	; MARY: PROF.OAK'S

-	text_jump UnknownText_0x1bc81a

-	db "@"

-; 0xb8825

-

-UnknownText_0xb8825: ; 0xb8825

-	; #MON TALK!

-	text_jump UnknownText_0x1bc82d

-	db "@"

-; 0xb882a

-

-UnknownText_0xb882a: ; 0xb882a

-	; With me, MARY!

-	text_jump UnknownText_0x1bc83a

-	db "@"

-; 0xb882f

-

-UnknownText_0xb882f: ; 0xb882f

-	; OAK: @ @

-	text_jump UnknownText_0x1bc84b

-	db "@"

-; 0xb8834

-

-UnknownText_0xb8834: ; 0xb8834

-	; may be seen around

-	text_jump UnknownText_0x1bc858

-	db "@"

-; 0xb8839

-

-UnknownText_0xb8839: ; 0xb8839

-	; @ .

-	text_jump UnknownText_0x1bc86d

-	db "@"

-; 0xb883e

-

-Functionb883e: ; b883e (2e:483e)

-	ld a, [CurPartySpecies]

-	ld [wd265], a

-	call GetPokemonName

-	ld hl, UnknownText_0xb884f

-	ld a, $11

-	jp NextRadioLine

-; b884f (2e:484f)

-

-UnknownText_0xb884f: ; 0xb884f

-	; MARY: @ 's

-	text_jump UnknownText_0x1bc876

-	db "@"

-; 0xb8854

-

-Functionb8854: ; b8854 (2e:4854)

-	call Random

-	and $f

-	ld e, a

-	ld d, 0

-	ld hl, Unknown_b8869

-rept 2

-	add hl, de

-endr

-	ld a, [hli]

-	ld h, [hl]

-	ld l, a

-	ld a, $12

-	jp NextRadioLine

-; b8869 (2e:4869)

-

-Unknown_b8869: ; b8869

-	dw UnknownText_0xb8889

-	dw UnknownText_0xb888e

-	dw UnknownText_0xb8893

-	dw UnknownText_0xb8898

-	dw UnknownText_0xb889d

-	dw UnknownText_0xb88a2

-	dw UnknownText_0xb88a7

-	dw UnknownText_0xb88ac

-	dw UnknownText_0xb88b1

-	dw UnknownText_0xb88b6

-	dw UnknownText_0xb88bb

-	dw UnknownText_0xb88c0

-	dw UnknownText_0xb88c5

-	dw UnknownText_0xb88ca

-	dw UnknownText_0xb88cf

-	dw UnknownText_0xb88d4

-; b8889

-

-UnknownText_0xb8889: ; 0xb8889

-	; sweet and adorably

-	text_jump UnknownText_0x1bc885

-	db "@"

-; 0xb888e

-

-UnknownText_0xb888e: ; 0xb888e

-	; wiggly and slickly

-	text_jump UnknownText_0x1bc89a

-	db "@"

-; 0xb8893

-

-UnknownText_0xb8893: ; 0xb8893

-	; aptly named and

-	text_jump UnknownText_0x1bc8af

-	db "@"

-; 0xb8898

-

-UnknownText_0xb8898: ; 0xb8898

-	; undeniably kind of

-	text_jump UnknownText_0x1bc8c1

-	db "@"

-; 0xb889d

-

-UnknownText_0xb889d: ; 0xb889d

-	; so, so unbearably

-	text_jump UnknownText_0x1bc8d6

-	db "@"

-; 0xb88a2

-

-UnknownText_0xb88a2: ; 0xb88a2

-	; wow, impressively

-	text_jump UnknownText_0x1bc8ea

-	db "@"

-; 0xb88a7

-

-UnknownText_0xb88a7: ; 0xb88a7

-	; almost poisonously

-	text_jump UnknownText_0x1bc8fe

-	db "@"

-; 0xb88ac

-

-UnknownText_0xb88ac: ; 0xb88ac

-	; ooh, so sensually

-	text_jump UnknownText_0x1bc913

-	db "@"

-; 0xb88b1

-

-UnknownText_0xb88b1: ; 0xb88b1

-	; so mischievously

-	text_jump UnknownText_0x1bc927

-	db "@"

-; 0xb88b6

-

-UnknownText_0xb88b6: ; 0xb88b6

-	; so very topically

-	text_jump UnknownText_0x1bc93a

-	db "@"

-; 0xb88bb

-

-UnknownText_0xb88bb: ; 0xb88bb

-	; sure addictively

-	text_jump UnknownText_0x1bc94e

-	db "@"

-; 0xb88c0

-

-UnknownText_0xb88c0: ; 0xb88c0

-	; looks in water is

-	text_jump UnknownText_0x1bc961

-	db "@"

-; 0xb88c5

-

-UnknownText_0xb88c5: ; 0xb88c5

-	; evolution must be

-	text_jump UnknownText_0x1bc975

-	db "@"

-; 0xb88ca

-

-UnknownText_0xb88ca: ; 0xb88ca

-	; provocatively

-	text_jump UnknownText_0x1bc989

-	db "@"

-; 0xb88cf

-

-UnknownText_0xb88cf: ; 0xb88cf

-	; so flipped out and

-	text_jump UnknownText_0x1bc999

-	db "@"

-; 0xb88d4

-

-UnknownText_0xb88d4: ; 0xb88d4

-	; heart-meltingly

-	text_jump UnknownText_0x1bc9ae

-	db "@"

-; 0xb88d9

-

-Functionb88d9: ; b88d9 (2e:48d9)

-	call Random

-	and $f

-	ld e, a

-	ld d, 0

-	ld hl, Unknown_b88fe

-rept 2

-	add hl, de

-endr

-	ld a, [hli]

-	ld h, [hl]

-	ld l, a

-	ld a, [wd006]

-	dec a

-	ld [wd006], a

-	ld a, $d

-	jr nz, .asm_b88fb

-	ld a, $5

-	ld [wd006], a

-	ld a, $3b

-.asm_b88fb

-	jp NextRadioLine

-; b88fe (2e:48fe)

-

-Unknown_b88fe: ; b88fe

-	dw UnknownText_0xb891e

-	dw UnknownText_0xb8923

-	dw UnknownText_0xb8928

-	dw UnknownText_0xb892d

-	dw UnknownText_0xb8932

-	dw UnknownText_0xb8937

-	dw UnknownText_0xb893c

-	dw UnknownText_0xb8941

-	dw UnknownText_0xb8946

-	dw UnknownText_0xb894b

-	dw UnknownText_0xb8950

-	dw UnknownText_0xb8955

-	dw UnknownText_0xb895a

-	dw UnknownText_0xb895f

-	dw UnknownText_0xb8964

-	dw UnknownText_0xb8969

-; b891e

-

-UnknownText_0xb891e: ; 0xb891e

-	; cute.

-	text_jump UnknownText_0x1bc9c0

-	db "@"

-; 0xb8923

-

-UnknownText_0xb8923: ; 0xb8923

-	; weird.

-	text_jump UnknownText_0x1bc9c8

-	db "@"

-; 0xb8928

-

-UnknownText_0xb8928: ; 0xb8928

-	; pleasant.

-	text_jump UnknownText_0x1bc9d1

-	db "@"

-; 0xb892d

-

-UnknownText_0xb892d: ; 0xb892d

-	; bold, sort of.

-	text_jump UnknownText_0x1bc9dd

-	db "@"

-; 0xb8932

-

-UnknownText_0xb8932: ; 0xb8932

-	; frightening.

-	text_jump UnknownText_0x1bc9ee

-	db "@"

-; 0xb8937

-

-UnknownText_0xb8937: ; 0xb8937

-	; suave & debonair!

-	text_jump UnknownText_0x1bc9fd

-	db "@"

-; 0xb893c

-

-UnknownText_0xb893c: ; 0xb893c

-	; powerful.

-	text_jump UnknownText_0x1bca11

-	db "@"

-; 0xb8941

-

-UnknownText_0xb8941: ; 0xb8941

-	; exciting.

-	text_jump UnknownText_0x1bca1d

-	db "@"

-; 0xb8946

-

-UnknownText_0xb8946: ; 0xb8946

-	; groovy!

-	text_jump UnknownText_0x1bca29

-	db "@"

-; 0xb894b

-

-UnknownText_0xb894b: ; 0xb894b

-	; inspiring.

-	text_jump UnknownText_0x1bca33

-	db "@"

-; 0xb8950

-

-UnknownText_0xb8950: ; 0xb8950

-	; friendly.

-	text_jump UnknownText_0x1bca40

-	db "@"

-; 0xb8955

-

-UnknownText_0xb8955: ; 0xb8955

-	; hot, hot, hot!

-	text_jump UnknownText_0x1bca4c

-	db "@"

-; 0xb895a

-

-UnknownText_0xb895a: ; 0xb895a

-	; stimulating.

-	text_jump UnknownText_0x1bca5d

-	db "@"

-; 0xb895f

-

-UnknownText_0xb895f: ; 0xb895f

-	; guarded.

-	text_jump UnknownText_0x1bca6c

-	db "@"

-; 0xb8964

-

-UnknownText_0xb8964: ; 0xb8964

-	; lovely.

-	text_jump UnknownText_0x1bca77

-	db "@"

-; 0xb8969

-

-UnknownText_0xb8969: ; 0xb8969

-	; speedy.

-	text_jump UnknownText_0x1bca81

-	db "@"

-; 0xb896e

-

-Functionb896e: ; b896e (2e:496e)

-	callba Function91868

-	ld hl, UnknownText_0xb8993

-	call PrintText

-	call WaitBGMap

-	ld hl, UnknownText_0xb898e

-	call PrintText

-	ld a, $3c

-	ld [wd002], a

-	ld a, $64

-	ld [wd004], a

-	ret

-; b898e (2e:498e)

-

-UnknownText_0xb898e: ; 0xb898e

-	; #MON

-	text_jump UnknownText_0x1bca8b

-	db "@"

-; 0xb8993

-

-UnknownText_0xb8993: ; 0xb8993

-	db "@"

-; 0xb8994

-

-Functionb8994: ; b8994 (2e:4994)

-	ld hl, wd004

-	dec [hl]

-	ret nz

-	hlcoord 9, 14

-	ld de, String_b89a4

-	ld a, $3d

-	jp Functionb8a00

-; b89a4 (2e:49a4)

-

-String_b89a4:

-	db "#MON@"

-; b89a9

-

-Functionb89a9: ; b89a9 (2e:49a9)

-	ld hl, wd004

-	dec [hl]

-	ret nz

-	hlcoord 1, 16

-	ld de, String_b89b9

-	ld a, $3e

-	jp Functionb8a00

-; b89b9 (2e:49b9)

-

-String_b89b9:

-	db "#MON Channel@"

-; b89c6

-

-Functionb89c6: ; b89c6 (2e:49c6)

-	ld hl, wd004

-	dec [hl]

-	ret nz

-	hlcoord 12, 16

-	ld de, String_b89d6

-	ld a, $3f

-	jp Functionb8a00

-; b89d6 (2e:49d6)

-

-String_b89d6:

-	db "@"

-; b89d7

-

-Functionb89d7: ; b89d7 (2e:49d7)

-	ld hl, wd004

-	dec [hl]

-	ret nz

-	ld de, $1d

-	callab Function91854

-	ld hl, UnknownText_0xb89ff

-	call PrintText

-	ld a, $d

-	ld [wd003], a

-	xor a

-	ld [wd005], a

-	ld a, $54

-	ld [wd002], a

-	ld a, $a

-	ld [wd004], a

-	ret

-; b89ff (2e:49ff)

-

-UnknownText_0xb89ff: ; 0xb89ff

-	db "@"

-; 0xb8a00

-

-Functionb8a00: ; b8a00 (2e:4a00)

-	ld [wd002], a

-	ld a, $64

-	ld [wd004], a

-	jp PlaceString

-

-Functionb8a0b: ; b8a0b (2e:4a0b)

-	hlcoord 0, 15

-	decoord 0, 13

-	ld bc, $28

-	jp CopyBytes

-

-Functionb8a17: ; b8a17 (2e:4a17)

-	hlcoord 1, 15

-	ld bc, $12

-	ld a, $7f

-	call ByteFill

-	hlcoord 1, 16

-	ld bc, $12

-	ld a, $7f

-	jp ByteFill

-

-Functionb8a2d: ; b8a2d (2e:4a2d)

-	push hl

-	push de

-	ld a, [CurPartySpecies]

-	dec a

-	rlca

-	rlca

-	and 3

-	ld hl, .pokedexbanks

-	ld d, 0

-	ld e, a

-	add hl, de

-	ld a, [hl]

-	pop de

-	pop hl

-	ret

-; b8a42 (2e:4a42)

-

-.pokedexbanks

-	db BANK(PokedexEntries1)

-	db BANK(PokedexEntries2)

-	db BANK(PokedexEntries3)

-	db BANK(PokedexEntries4)

-; b8a46

-

-MaryOakShow2: ; b8a46 (2e:4a46)

-	call Functionb91eb

-.asm_b8a49

-	call Random

-	cp CELEBI

-	jr nc, .asm_b8a49

-	ld c, a

-	push bc

-	ld a, c

-	call CheckCaughtMon

-	pop bc

-	jr z, .asm_b8a49

-	inc c

-	ld a, c

-	ld [CurPartySpecies], a

-	ld [wd265], a

-	call GetPokemonName

-	ld hl, UnknownText_0xb8b30

-	ld a, $13

-	jp NextRadioLine

-

-Functionb8a6c: ; b8a6c (2e:4a6c)

-	ld a, [CurPartySpecies]

-	dec a

-	ld hl, PokedexDataPointerTable

-	ld c, a

-	ld b, 0

-rept 2

-	add hl, bc

-endr

-	ld a, BANK(PokedexDataPointerTable)

-	call GetFarHalfword

-	call Functionb8a2d

-	push af

-	push hl

-	call Functionb8af3

-	dec hl

-	ld [hl], $57

-	ld hl, wd26b

-	call Functionb91dc

-	pop hl

-	pop af

-	call Functionb8b11

-rept 4

-	inc hl

-endr

-	ld a, l

-	ld [wd26b], a

-	ld a, h

-	ld [wd26c], a

-	ld a, $14

-	jp Functionb86ea

-

-Functionb8aa4: ; b8aa4 (2e:4aa4)

-	call Functionb8ad4

-	ld a, $15

-	jp Functionb86ea

-

-Functionb8aac: ; b8aac (2e:4aac)

-	call Functionb8ad4

-	ld a, $16

-	jp Functionb86ea

-

-Functionb8ab4: ; b8ab4 (2e:4ab4)

-	call Functionb8ad4

-	ld a, $55

-	jp Functionb86ea

-

-Functionb8abc: ; b8abc (2e:4abc)

-	call Functionb8ad4

-	ld a, $56

-	jp Functionb86ea

-

-Functionb8ac4: ; b8ac4 (2e:4ac4)

-	call Functionb8ad4

-	ld a, $57

-	jp Functionb86ea

-

-Functionb8acc: ; b8acc (2e:4acc)

-	call Functionb8ad4

-	ld a, $1

-	jp Functionb86ea

-

-Functionb8ad4: ; b8ad4 (2e:4ad4)

-	ld a, [wd26b]

-	ld l, a

-	ld a, [wd26c]

-	ld h, a

-	ld a, [wd26d]

-	push af

-	push hl

-	call Functionb8af3

-	dec hl

-	ld [hl], $57

-	ld hl, wd26b

-	call Functionb91dc

-	pop hl

-	pop af

-	call Functionb8b11

-	ret

-

-Functionb8af3: ; b8af3 (2e:4af3)

-	ld de, wd26d

-	ld bc, $13

-	call FarCopyBytes

-	ld hl, wd26b

-	ld [hl], $0

-	inc hl

-	ld [hl], $4f

-	inc hl

-.asm_b8b05

-	ld a, [hli]

-	cp $50

-	ret z

-	cp $4e

-	ret z

-	cp $5f

-	ret z

-	jr .asm_b8b05

-

-Functionb8b11: ; b8b11 (2e:4b11)

-	ld d, a

-.asm_b8b12

-	ld a, d

-	call GetFarByte

-	inc hl

-	cp $50

-	jr z, .asm_b8b23

-	cp $4e

-	jr z, .asm_b8b23

-	cp $5f

-	jr nz, .asm_b8b12

-.asm_b8b23

-	ld a, l

-	ld [wd26b], a

-	ld a, h

-	ld [wd26c], a

-	ld a, d

-	ld [wd26d], a

-	ret

-; b8b30 (2e:4b30)

-

-UnknownText_0xb8b30: ; 0xb8b30

-	; @ @

-	text_jump UnknownText_0x1bca91

-	db "@"

-; 0xb8b35

-

-BenMonMusic1: ; b8b35 (2e:4b35)

-	call Functionb8b90

-	ld hl, UnknownText_0xb8baa

-	ld a, $17

-	jp NextRadioLine

-

-Functionb8b40: ; b8b40 (2e:4b40)

-	ld hl, UnknownText_0xb8baf

-	ld a, $18

-	jp NextRadioLine

-

-Functionb8b48: ; b8b48 (2e:4b48)

-	ld hl, UnknownText_0xb8bb4

-	ld a, $19

-	jp NextRadioLine

-

-Functionb8b50: ; b8b50 (2e:4b50)

-	call Functionb8b90

-	ld hl, UnknownText_0xb8bb9

-	ld a, $1d

-	jp NextRadioLine

-

-Functionb8b5b: ; b8b5b (2e:4b5b)

-	ld hl, UnknownText_0xb8bbe

-	ld a, $19

-	jp NextRadioLine

-

-Functionb8b63: ; b8b63 (2e:4b63)

-	ld hl, UnknownText_0xb8bc3

-	ld a, $1a

-	jp NextRadioLine

-

-Functionb8b6b: ; b8b6b (2e:4b6b)

-	call GetWeekday

-	and 1

-	ld hl, UnknownText_0xb8bc8

-	jr z, .asm_b8b78

-	ld hl, UnknownText_0xb8bcd

-.asm_b8b78

-	ld a, $1b

-	jp NextRadioLine

-

-Functionb8b7d: ; b8b7d (2e:4b7d)

-	call GetWeekday

-	and 1

-	ld hl, UnknownText_0xb8bd2

-	jr z, .asm_b8b8a

-	ld hl, UnknownText_0xb8bd7

-.asm_b8b8a

-	ld a, $1c

-	jp NextRadioLine

-

-Functionb8b8f: ; b8b8f (2e:4b8f)

-	ret

-

-Functionb8b90: ; b8b90 (2e:4b90)

-	call Function1052

-	call PrintText

-	ld de, MUSIC_POKEMON_MARCH

-	call GetWeekday

-	and 1

-	jr z, .done

-	ld de, MUSIC_POKEMON_LULLABY

-.done

-	callab Function91854

-	ret

-; b8baa (2e:4baa)

-

-UnknownText_0xb8baa: ; 0xb8baa

-	; BEN: #MON MUSIC

-	text_jump UnknownText_0x1bca99

-	db "@"

-; 0xb8baf

-

-UnknownText_0xb8baf: ; 0xb8baf

-	; CHANNEL!

-	text_jump UnknownText_0x1bcaab

-	db "@"

-; 0xb8bb4

-

-UnknownText_0xb8bb4: ; 0xb8bb4

-	; It's me, DJ BEN!

-	text_jump UnknownText_0x1bcab6

-	db "@"

-; 0xb8bb9

-

-UnknownText_0xb8bb9: ; 0xb8bb9

-	; FERN: #MUSIC!

-	text_jump UnknownText_0x1bcac8

-	db "@"

-; 0xb8bbe

-

-UnknownText_0xb8bbe: ; 0xb8bbe

-	; With DJ FERN!

-	text_jump UnknownText_0x1bcad8

-	db "@"

-; 0xb8bc3

-

-UnknownText_0xb8bc3: ; 0xb8bc3

-	; Today's @ ,

-	text_jump UnknownText_0x1bcae8

-	db "@"

-; 0xb8bc8

-

-UnknownText_0xb8bc8: ; 0xb8bc8

-	; so let us jam to

-	text_jump UnknownText_0x1bcaf6

-	db "@"

-; 0xb8bcd

-

-UnknownText_0xb8bcd: ; 0xb8bcd

-	; so chill out to

-	text_jump UnknownText_0x1bcb09

-	db "@"

-; 0xb8bd2

-

-UnknownText_0xb8bd2: ; 0xb8bd2

-	; #MON March!

-	text_jump UnknownText_0x1bcb1b

-	db "@"

-; 0xb8bd7

-

-UnknownText_0xb8bd7: ; 0xb8bd7

-	; #MON Lullaby!

-	text_jump UnknownText_0x1bcb29

-	db "@"

-; 0xb8bdc

-

-DJReed1: ; b8bdc (2e:4bdc)

-	call Functionb91eb

-	callab Functionc434

-	jr nc, .asm_b8bed

-	callab Functionc422

-.asm_b8bed

-	ld hl, UnknownText_0xb8c7e

-	ld a, $1e

-	jp NextRadioLine

-

-Functionb8bf5: ; b8bf5 (2e:4bf5)

-	ld hl, UnknownText_0xb8c83

-	ld a, $1f

-	jp NextRadioLine

-

-Functionb8bfd: ; b8bfd (2e:4bfd)

-	ld hl, UnknownText_0xb8c88

-	ld a, $20

-	jp NextRadioLine

-

-Functionb8c05: ; b8c05 (2e:4c05)

-	ld hl, UnknownText_0xb8c8d

-	ld a, $21

-	jp NextRadioLine

-

-Functionb8c0d: ; b8c0d (2e:4c0d)

-	ld hl, UnknownText_0xb8c92

-	ld a, $22

-	jp NextRadioLine

-

-Functionb8c15: ; b8c15 (2e:4c15)

-	ld hl, UnknownText_0xb8c97

-	ld a, $23

-	jp NextRadioLine

-

-Functionb8c1d: ; b8c1d (2e:4c1d)

-	ld hl, UnknownText_0xb8c9c

-	ld a, $24

-	jp NextRadioLine

-

-Functionb8c25: ; b8c25 (2e:4c25)

-	ld hl, StringBuffer1

-	ld de, wdc9f

-	ld bc, $8205

-	call PrintNum

-	ld a, $50

-	ld [StringBuffer1 + 5], a

-	ld hl, UnknownText_0xb8ca1

-	ld a, $25

-	jp NextRadioLine

-

-Functionb8c3e: ; b8c3e (2e:4c3e)

-	ld hl, UnknownText_0xb8ca6

-	ld a, $26

-	jp NextRadioLine

-

-Functionb8c46: ; b8c46 (2e:4c46)

-	ld hl, UnknownText_0xb8c9c

-	ld a, $27

-	jp NextRadioLine

-

-Functionb8c4e: ; b8c4e (2e:4c4e)

-	ld hl, UnknownText_0xb8ca1

-	ld a, $28

-	jp NextRadioLine

-

-Functionb8c56: ; b8c56 (2e:4c56)

-	ld hl, UnknownText_0xb8cab

-	ld a, $29

-	jp NextRadioLine

-

-Functionb8c5e: ; b8c5e (2e:4c5e)

-	ld hl, UnknownText_0xb8cb0

-	call Random

-	and a

-	ld a, $3

-	jr nz, .asm_b8c6b

-	ld a, $2a

-.asm_b8c6b

-	jp NextRadioLine

-

-Functionb8c6e: ; b8c6e (2e:4c6e)

-	ld hl, UnknownText_0xb8cb5

-	ld a, $2b

-	jp NextRadioLine

-

-Functionb8c76: ; b8c76 (2e:4c76)

-	ld hl, UnknownText_0xb8cba

-	ld a, $3

-	jp NextRadioLine

-; b8c7e (2e:4c7e)

-

-UnknownText_0xb8c7e: ; 0xb8c7e

-	; REED: Yeehaw! How

-	text_jump UnknownText_0x1bcb39

-	db "@"

-; 0xb8c83

-

-UnknownText_0xb8c83: ; 0xb8c83

-	; y'all doin' now?

-	text_jump UnknownText_0x1bcb4d

-	db "@"

-; 0xb8c88

-

-UnknownText_0xb8c88: ; 0xb8c88

-	; Whether you're up

-	text_jump UnknownText_0x1bcb60

-	db "@"

-; 0xb8c8d

-

-UnknownText_0xb8c8d: ; 0xb8c8d

-	; or way down low,

-	text_jump UnknownText_0x1bcb73

-	db "@"

-; 0xb8c92

-

-UnknownText_0xb8c92: ; 0xb8c92

-	; don't you miss the

-	text_jump UnknownText_0x1bcb86

-	db "@"

-; 0xb8c97

-

-UnknownText_0xb8c97: ; 0xb8c97

-	; LUCKY NUMBER SHOW!

-	text_jump UnknownText_0x1bcb9a

-	db "@"

-; 0xb8c9c

-

-UnknownText_0xb8c9c: ; 0xb8c9c

-	; This week's Lucky

-	text_jump UnknownText_0x1bcbaf

-	db "@"

-; 0xb8ca1

-

-UnknownText_0xb8ca1: ; 0xb8ca1

-	; Number is @ !

-	text_jump UnknownText_0x1bcbc2

-	db "@"

-; 0xb8ca6

-

-UnknownText_0xb8ca6: ; 0xb8ca6

-	; I'll repeat that!

-	text_jump UnknownText_0x1bcbd6

-	db "@"

-; 0xb8cab

-

-UnknownText_0xb8cab: ; 0xb8cab

-	; Match it and go to

-	text_jump UnknownText_0x1bcbe9

-	db "@"

-; 0xb8cb0

-

-UnknownText_0xb8cb0: ; 0xb8cb0

-	; the RADIO TOWER!

-	text_jump UnknownText_0x1bcbfe

-	db "@"

-; 0xb8cb5

-

-UnknownText_0xb8cb5: ; 0xb8cb5

-	; …Repeating myself

-	text_jump UnknownText_0x1bcc11

-	db "@"

-; 0xb8cba

-

-UnknownText_0xb8cba: ; 0xb8cba

-	; gets to be a drag…

-	text_jump UnknownText_0x1bcc25

-	db "@"

-; 0xb8cbf

-

-Functionb8cbf: ; b8cbf (2e:4cbf)

-	call Functionb91eb

-	ld hl, UnknownText_0xb8ce3

-	ld a, $2c

-	jp NextRadioLine

-

-Functionb8cca: ; b8cca (2e:4cca)

-	ld hl, UnknownText_0xb8ce8

-	ld a, $2d

-	jp NextRadioLine

-

-Functionb8cd2: ; b8cd2 (2e:4cd2)

-	ld hl, UnknownText_0xb8ced

-	call Random

-	cp $7b

-	ld a, $2e

-	jr c, .asm_b8ce0

-	ld a, $30

-.asm_b8ce0

-	jp NextRadioLine

-; b8ce3 (2e:4ce3)

-

-UnknownText_0xb8ce3: ; 0xb8ce3

-	; PLACES AND PEOPLE!

-	text_jump UnknownText_0x1bcc3a

-	db "@"

-; 0xb8ce8

-

-UnknownText_0xb8ce8: ; 0xb8ce8

-	; Brought to you by

-	text_jump UnknownText_0x1bcc4f

-	db "@"

-; 0xb8ced

-

-UnknownText_0xb8ced: ; 0xb8ced

-	; me, DJ LILY!

-	text_jump UnknownText_0x1bcc63

-	db "@"

-; 0xb8cf2

-

-Functionb8cf2: ; b8cf2 (2e:4cf2)

-	call Random

-	and $7f

-	inc a

-	cp $43

-	jr nc, Functionb8cf2

-	push af

-	ld hl, Unknown_b8d3e

-	ld a, [StatusFlags]

-	bit 6, a

-	jr z, .NotMet

-	ld hl, Unknown_b8d43

-	ld a, [KantoBadges]

-	cp %11111111

-	jr nz, .NotMet

-	ld hl, Unknown_b8d4b

-.NotMet

-	pop af

-	ld c, a

-	ld de, $1

-	push bc

-	call IsInArray

-	pop bc

-	jr c, Functionb8cf2

-	push bc

-	callab Function3952d

-	ld de, StringBuffer1

-	call CopyName1

-	pop bc

-	ld b, $1

-	callab GetTrainerName

-	ld hl, UnknownText_0xb8d51

-	ld a, $2f

-	jp NextRadioLine

-; b8d3e (2e:4d3e)

-

-Unknown_b8d3e: db $0b, $0d, $0e, $0f, $10

-Unknown_b8d43: db $11, $12, $13, $15, $1a, $23, $2e, $40

-Unknown_b8d4b: db $09, $0a, $0c, $2a, $3f

-               db $ff

-; b8d51

-

-UnknownText_0xb8d51: ; 0xb8d51

-	; @  @ @

-	text_jump UnknownText_0x1bcc72

-	db "@"

-; 0xb8d56

-

-Functionb8d56: ; b8d56 (2e:4d56)

-	call Random

-	and $f

-	ld e, a

-	ld d, 0

-	ld hl, Unknown_b8d7d

-rept 2

-	add hl, de

-endr

-	ld a, [hli]

-	ld h, [hl]

-	ld l, a

-	call Random

-	cp $a

-	ld a, $5

-	jr c, .asm_b8d7a

-	call Random

-	cp $7b

-	ld a, $2e

-	jr c, .asm_b8d7a

-	ld a, $30

-.asm_b8d7a

-	jp NextRadioLine

-; b8d7d (2e:4d7d)

-

-Unknown_b8d7d: ; b8d7d

-	dw UnknownText_0xb8d9d

-	dw UnknownText_0xb8da2

-	dw UnknownText_0xb8da7

-	dw UnknownText_0xb8dac

-	dw UnknownText_0xb8db1

-	dw UnknownText_0xb8db6

-	dw UnknownText_0xb8dbb

-	dw UnknownText_0xb8dc0

-	dw UnknownText_0xb8dc5

-	dw UnknownText_0xb8dca

-	dw UnknownText_0xb8dcf

-	dw UnknownText_0xb8dd4

-	dw UnknownText_0xb8dd9

-	dw UnknownText_0xb8dde

-	dw UnknownText_0xb8de3

-	dw UnknownText_0xb8de8

-; b8d9d

-

-UnknownText_0xb8d9d: ; 0xb8d9d

-	; is cute.

-	text_jump UnknownText_0x1bcc80

-	db "@"

-; 0xb8da2

-

-UnknownText_0xb8da2: ; 0xb8da2

-	; is sort of lazy.

-	text_jump UnknownText_0x1bcc8b

-	db "@"

-; 0xb8da7

-

-UnknownText_0xb8da7: ; 0xb8da7

-	; is always happy.

-	text_jump UnknownText_0x1bcc9e

-	db "@"

-; 0xb8dac

-

-UnknownText_0xb8dac: ; 0xb8dac

-	; is quite noisy.

-	text_jump UnknownText_0x1bccb1

-	db "@"

-; 0xb8db1

-

-UnknownText_0xb8db1: ; 0xb8db1

-	; is precocious.

-	text_jump UnknownText_0x1bccc3

-	db "@"

-; 0xb8db6

-

-UnknownText_0xb8db6: ; 0xb8db6

-	; is somewhat bold.

-	text_jump UnknownText_0x1bccd4

-	db "@"

-; 0xb8dbb

-

-UnknownText_0xb8dbb: ; 0xb8dbb

-	; is too picky!

-	text_jump UnknownText_0x1bcce8

-	db "@"

-; 0xb8dc0

-

-UnknownText_0xb8dc0: ; 0xb8dc0

-	; is sort of OK.

-	text_jump UnknownText_0x1bccf8

-	db "@"

-; 0xb8dc5

-

-UnknownText_0xb8dc5: ; 0xb8dc5

-	; is just so-so.

-	text_jump UnknownText_0x1bcd09

-	db "@"

-; 0xb8dca

-

-UnknownText_0xb8dca: ; 0xb8dca

-	; is actually great.

-	text_jump UnknownText_0x1bcd1a

-	db "@"

-; 0xb8dcf

-

-UnknownText_0xb8dcf: ; 0xb8dcf

-	; is just my type.

-	text_jump UnknownText_0x1bcd2f

-	db "@"

-; 0xb8dd4

-

-UnknownText_0xb8dd4: ; 0xb8dd4

-	; is so cool, no?

-	text_jump UnknownText_0x1bcd42

-	db "@"

-; 0xb8dd9

-

-UnknownText_0xb8dd9: ; 0xb8dd9

-	; is inspiring!

-	text_jump UnknownText_0x1bcd54

-	db "@"

-; 0xb8dde

-

-UnknownText_0xb8dde: ; 0xb8dde

-	; is kind of weird.

-	text_jump UnknownText_0x1bcd64

-	db "@"

-; 0xb8de3

-

-UnknownText_0xb8de3: ; 0xb8de3

-	; is right for me?

-	text_jump UnknownText_0x1bcd78

-	db "@"

-; 0xb8de8

-

-UnknownText_0xb8de8: ; 0xb8de8

-	; is definitely odd!

-	text_jump UnknownText_0x1bcd8b

-	db "@"

-; 0xb8ded

-

-Functionb8ded: ; b8ded (2e:4ded)

-	call Random

-	cp $9

-	jr nc, Functionb8ded

-	ld hl, Unknown_b8e11

-	ld c, a

-	ld b, 0

-rept 2

-	add hl, bc

-endr

-	ld b, [hl]

-	inc hl

-	ld c, [hl]

-	call GetWorldMapLocation

-	ld e, a

-	callba GetLandmarkName

-	ld hl, UnknownText_0xb8e23

-	ld a, $31

-	jp NextRadioLine

-; b8e11 (2e:4e11)

-

-Unknown_b8e11: ; b8e11

-	map PALLET_TOWN

-	map ROUTE_22

-	map PEWTER_CITY

-	map CERULEAN_POLICE_STATION

-	map ROUTE_12

-	map ROUTE_11

-	map ROUTE_16

-	map ROUTE_14

-	map CINNABAR_POKECENTER_2F_BETA

-; b8e23

-

-UnknownText_0xb8e23: ; 0xb8e23

-	; @ @

-	text_jump UnknownText_0x1bcda0

-	db "@"

-; 0xb8e28

-

-Functionb8e28: ; b8e28 (2e:4e28)

-	call Random

-	and $f

-	ld e, a

-	ld d, 0

-	ld hl, Unknown_b8e52

-rept 2

-	add hl, de

-endr

-	ld a, [hli]

-	ld h, [hl]

-	ld l, a

-	call Functionb91dc

-	call Random

-	cp $a

-	ld a, $5

-	jr c, .asm_b8e4f

-	call Random

-	cp $7b

-	ld a, $2e

-	jr c, .asm_b8e4f

-	ld a, $30

-.asm_b8e4f

-	jp Functionb86ea

-; b8e52 (2e:4e52)

-

-Unknown_b8e52: ; b8e52

-	dw UnknownText_0xb8d9d

-	dw UnknownText_0xb8da2

-	dw UnknownText_0xb8da7

-	dw UnknownText_0xb8dac

-	dw UnknownText_0xb8db1

-	dw UnknownText_0xb8db6

-	dw UnknownText_0xb8dbb

-	dw UnknownText_0xb8dc0

-	dw UnknownText_0xb8dc5

-	dw UnknownText_0xb8dca

-	dw UnknownText_0xb8dcf

-	dw UnknownText_0xb8dd4

-	dw UnknownText_0xb8dd9

-	dw UnknownText_0xb8dde

-	dw UnknownText_0xb8de3

-	dw UnknownText_0xb8de8

-; b8e72

-

-Functionb8e72: ; b8e72 (2e:4e72)

-	call Functionb91eb

-	ld hl, UnknownText_0xb8ec5

-	ld a, $32

-	jp NextRadioLine

-

-Functionb8e7d: ; b8e7d (2e:4e7d)

-	ld hl, UnknownText_0xb8eca

-	ld a, $33

-	jp NextRadioLine

-

-Functionb8e85: ; b8e85 (2e:4e85)

-	ld hl, UnknownText_0xb8ecf

-	ld a, $34

-	jp NextRadioLine

-

-Functionb8e8d: ; b8e8d (2e:4e8d)

-	ld hl, UnknownText_0xb8ed4

-	ld a, $35

-	jp NextRadioLine

-

-Functionb8e95: ; b8e95 (2e:4e95)

-	ld hl, UnknownText_0xb8ed9

-	ld a, $36

-	jp NextRadioLine

-

-Functionb8e9d: ; b8e9d (2e:4e9d)

-	ld hl, UnknownText_0xb8ede

-	ld a, $37

-	jp NextRadioLine

-

-Functionb8ea5: ; b8ea5 (2e:4ea5)

-	ld hl, UnknownText_0xb8ee3

-	ld a, $38

-	jp NextRadioLine

-

-Functionb8ead: ; b8ead (2e:4ead)

-	ld hl, UnknownText_0xb8ee8

-	ld a, $39

-	jp NextRadioLine

-

-Functionb8eb5: ; b8eb5 (2e:4eb5)

-	ld hl, UnknownText_0xb8eed

-	ld a, $3a

-	jp NextRadioLine

-

-Functionb8ebd: ; b8ebd (2e:4ebd)

-	ld hl, UnknownText_0xb8ef2

-	ld a, $7

-	jp NextRadioLine

-; b8ec5 (2e:4ec5)

-

-UnknownText_0xb8ec5: ; 0xb8ec5

-	; … …Ahem, we are

-	text_jump UnknownText_0x1bcda8

-	db "@"

-; 0xb8eca

-

-UnknownText_0xb8eca: ; 0xb8eca

-	; TEAM ROCKET!

-	text_jump UnknownText_0x1bcdba

-	db "@"

-; 0xb8ecf

-

-UnknownText_0xb8ecf: ; 0xb8ecf

-	; After three years

-	text_jump UnknownText_0x1bcdc9

-	db "@"

-; 0xb8ed4

-

-UnknownText_0xb8ed4: ; 0xb8ed4

-	; of preparation, we

-	text_jump UnknownText_0x1bcddd

-	db "@"

-; 0xb8ed9

-

-UnknownText_0xb8ed9: ; 0xb8ed9

-	; have risen again

-	text_jump UnknownText_0x1bcdf2

-	db "@"

-; 0xb8ede

-

-UnknownText_0xb8ede: ; 0xb8ede

-	; from the ashes!

-	text_jump UnknownText_0x1bce05

-	db "@"

-; 0xb8ee3

-

-UnknownText_0xb8ee3: ; 0xb8ee3

-	; GIOVANNI! @ Can you

-	text_jump UnknownText_0x1bce17

-	db "@"

-; 0xb8ee8

-

-UnknownText_0xb8ee8: ; 0xb8ee8

-	; hear?@  We did it!

-	text_jump UnknownText_0x1bce2e

-	db "@"

-; 0xb8eed

-

-UnknownText_0xb8eed: ; 0xb8eed

-	; @ Where is our boss?

-	text_jump UnknownText_0x1bce44

-	db "@"

-; 0xb8ef2

-

-UnknownText_0xb8ef2: ; 0xb8ef2

-	; @ Is he listening?

-	text_jump UnknownText_0x1bce5c

-	db "@"

-; 0xb8ef7

-

-Functionb8ef7: ; b8ef7 (2e:4ef7)

-	call Functionb91eb

-	ld a, $1

-	ld [wd005], a

-	ret

-

-Functionb8f00: ; b8f00 (2e:4f00)

-	call Functionb91eb

-	ld a, $1

-	ld [wd005], a

-	ret

-

-Functionb8f09: ; b8f09 (2e:4f09)

-	call Functionb91eb

-	ld a, $1

-	ld [wd005], a

-	ret

-

-Functionb8f12: ; b8f12 (2e:4f12)

-	call Functionb9169

-	jp nc, Functionb8f22

-	ld a, [wd005]

-	and a

-	jp z, Functionb912a

-	jp Functionb90c5

-

-Functionb8f22: ; b8f22 (2e:4f22)

-	call Functionb91eb

-	ld a, [hBGMapMode] ; $ff00+$d4

-	push af

-	xor a

-	ld [hBGMapMode], a ; $ff00+$d4

-	ld de, String_b9171

-	hlcoord 2, 9

-	call PlaceString

-	pop af

-	ld [hBGMapMode], a ; $ff00+$d4

-	ld hl, UnknownText_0xb9182

-	ld a, $40

-	jp NextRadioLine

-

-Functionb8f3f: ; b8f3f (2e:4f3f)

-	ld hl, UnknownText_0xb9187

-	ld a, $41

-	jp NextRadioLine

-

-Functionb8f47: ; b8f47 (2e:4f47)

-	call Functionb9169

-	ld hl, UnknownText_0xb918c

-	jp c, Functionb90b9

-	ld a, $42

-	jp NextRadioLine

-

-Functionb8f55: ; b8f55 (2e:4f55)

-	call Functionb9169

-	jp c, Functionb90c5

-	ld a, [wdc4a]

-	ld hl, WeeklyFlags

-	bit 7, [hl]

-	jr nz, .asm_b8f83

-.asm_b8f65

-	call Random

-	and $f

-	cp $b

-	jr nc, .asm_b8f65

-	swap a

-	ld e, a

-.asm_b8f71

-	call Random

-	and $3

-	cp $3

-	jr nc, .asm_b8f71

-	add e

-	ld [wdc4a], a

-	ld hl, WeeklyFlags

-	set 7, [hl]

-.asm_b8f83

-	ld c, a

-	call Functionb8f8f

-	ld hl, UnknownText_0xb9191

-	ld a, $43

-	jp NextRadioLine

-

-Functionb8f8f: ; b8f8f

-	ld a, c

-	swap a

-	and $f

-	ld hl, Unknown_b8ff9

-	ld d, 0

-	ld e, a

-rept 2

-	add hl, de

-endr

-	ld a, [hli]

-	ld h, [hl]

-	ld l, a

-	ld a, [hli]

-	ld b, a

-	push hl

-	inc hl

-	ld a, c

-	and $f

-	ld c, a

-	push hl

-	ld hl, Jumptable_b8fb8

-	ld e, b

-rept 2

-	add hl, de

-endr

-	ld a, [hli]

-	ld h, [hl]

-	ld l, a

-	pop de

-	call _hl_

-	pop hl

-	ld c, [hl]

-	ret

-; b8fb8

-

-

-Jumptable_b8fb8: ; b8fb8 (2e:4fb8)

-	dw Functionb8fc0

-	dw Functionb8fc7

-	dw Functionb8fce

-	dw Functionb8fde

-

-

-Functionb8fc0: ; b8fc0 (2e:4fc0)

-	call Functionb8fd5

-	call GetPokemonName

-	ret

-

-Functionb8fc7: ; b8fc7 (2e:4fc7)

-	call Functionb8fd5

-	call GetItemName

-	ret

-

-Functionb8fce: ; b8fce (2e:4fce)

-	call Functionb8fd5

-	call GetMoveName

-	ret

-

-Functionb8fd5: ; b8fd5 (2e:4fd5)

-	ld h, 0

-	ld l, c

-	add hl, de

-	ld a, [hl]

-	ld [wd265], a

-	ret

-

-Functionb8fde: ; b8fde (2e:4fde)

-	ld a, c

-	and a

-	jr z, .asm_b8feb

-.asm_b8fe2

-	ld a, [de]

-	inc de

-	cp $50

-	jr nz, .asm_b8fe2

-	dec c

-	jr nz, .asm_b8fe2

-.asm_b8feb

-	ld hl, StringBuffer1

-.asm_b8fee

-	ld a, [de]

-	inc de

-	ld [hli], a

-	cp $50

-	jr nz, .asm_b8fee

-	ld de, StringBuffer1

-	ret

-; b8ff9 (2e:4ff9)

-

-Unknown_b8ff9: ; b8ff9

-	dw Unknown_b900f

-	dw Unknown_b9014

-	dw Unknown_b9019

-	dw Unknown_b901e

-	dw Unknown_b9023

-	dw Unknown_b9028

-	dw Unknown_b902d

-	dw Unknown_b905a

-	dw Unknown_b906d

-	dw Unknown_b9072

-	dw Unknown_b9077

-; b900f

-

-Unknown_b900f: db 0, 10, CYNDAQUIL, TOTODILE, CHIKORITA

-Unknown_b9014: db 1, 12, FRESH_WATER, SODA_POP, LEMONADE

-Unknown_b9019: db 1, 12, POTION, ANTIDOTE, PARLYZ_HEAL

-Unknown_b901e: db 1, 12, POKE_BALL, GREAT_BALL, ULTRA_BALL

-Unknown_b9023: db 0, 10, PIKACHU, RATTATA, GEODUDE

-Unknown_b9028: db 0, 10, HOOTHOOT, SPINARAK, DROWZEE

-Unknown_b902d: db 3, 16, "NEW BARK TOWN@", "CHERRYGROVE CITY@", "AZALEA TOWN@"

-Unknown_b905a: db 3,  6, "FLYING@", "BUG@", "GRASS@"

-Unknown_b906d: db 2, 12, TACKLE, GROWL, MUD_SLAP

-Unknown_b9072: db 1, 12, X_ATTACK, X_DEFEND, X_SPEED

-Unknown_b9077: db 3, 13, "#MON Talk@", "#MON Music@", "Lucky Channel@"

-; b909c

-

-Functionb909c: ; b909c (2e:509c)

-	ld hl, UnknownText_0xb9196

-	ld a, $44

-	jp NextRadioLine

-

-Functionb90a4: ; b90a4 (2e:50a4)

-	ld hl, UnknownText_0xb919b

-	ld a, $45

-	jp NextRadioLine

-

-Functionb90ac: ; b90ac (2e:50ac)

-	call Functionb9169

-	ld hl, UnknownText_0xb91a0

-	jr c, Functionb90b9

-	ld a, $4

-	jp NextRadioLine

-

-Functionb90b9: ; b90b9 (2e:50b9)

-	push hl

-	ld hl, WeeklyFlags

-	res 7, [hl]

-	pop hl

-	ld a, $46

-	jp NextRadioLine

-

-Functionb90c5: ; b90c5 (2e:50c5)

-	ld hl, WeeklyFlags

-	res 7, [hl]

-	ld hl, UnknownText_0xb91d2

-	ld a, $47

-	jp NextRadioLine

-

-Functionb90d2: ; b90d2 (2e:50d2)

-	ld hl, UnknownText_0xb91a5

-	ld a, $48

-	jp NextRadioLine

-

-Functionb90da: ; b90da (2e:50da)

-	ld hl, UnknownText_0xb91aa

-	ld a, $49

-	jp NextRadioLine

-

-Functionb90e2: ; b90e2 (2e:50e2)

-	ld hl, UnknownText_0xb91af

-	ld a, $4a

-	jp NextRadioLine

-

-Functionb90ea: ; b90ea (2e:50ea)

-	ld hl, UnknownText_0xb91b4

-	ld a, $4b

-	jp NextRadioLine

-

-Functionb90f2: ; b90f2 (2e:50f2)

-	ld hl, UnknownText_0xb91b9

-	ld a, $4c

-	jp NextRadioLine

-

-Functionb90fa: ; b90fa (2e:50fa)

-	ld hl, UnknownText_0xb91be

-	ld a, $4d

-	jp NextRadioLine

-

-Functionb9102: ; b9102 (2e:5102)

-	ld hl, UnknownText_0xb91c3

-	ld a, $4e

-	jp NextRadioLine

-

-Functionb910a: ; b910a (2e:510a)

-	ld hl, UnknownText_0xb91c8

-	ld a, $4f

-	jp NextRadioLine

-

-Functionb9112: ; b9112 (2e:5112)

-	ld hl, UnknownText_0xb91cd

-	ld a, $50

-	jp NextRadioLine

-

-Functionb911a: ; b911a (2e:511a)

-	ld hl, UnknownText_0xb91d2

-	ld a, $51

-	jp NextRadioLine

-

-Functionb9122: ; b9122 (2e:5122)

-	ld hl, UnknownText_0xb91d2

-	ld a, $52

-	jp NextRadioLine

-

-Functionb912a: ; b912a (2e:512a)

-	ld a, [hBGMapMode] ; $ff00+$d4

-	push af

-	callba NoRadioMusic

-	callba NoRadioName

-	pop af

-	ld [hBGMapMode], a ; $ff00+$d4

-	ld hl, WeeklyFlags

-	res 7, [hl]

-	ld a, $4

-	ld [wd002], a

-	xor a

-	ld [wd005], a

-	ld hl, UnknownText_0xb91d7

-	ld a, $53

-	jp NextRadioLine

-

-Functionb9152: ; b9152 (2e:5152)

-	ld a, $4

-	ld [wd002], a

-	xor a

-	ld [wd005], a

-	call Functionb9169

-	jp nc, Functionb8f12

-	ld hl, UnknownText_0xb91d7

-	ld a, $53

-	jp NextRadioLine

-

-Functionb9169: ; b9169 (2e:5169)

-	call UpdateTime

-	ld a, [hHours] ; $ff00+$94

-	cp $12

-	ret

-; b9171 (2e:5171)

-

-String_b9171:

-	db "BUENA'S PASSWORD@"

-; b9182

-

-UnknownText_0xb9182: ; 0xb9182

-	; BUENA: BUENA here!

-	text_jump UnknownText_0x1bce72

-	db "@"

-; 0xb9187

-

-UnknownText_0xb9187: ; 0xb9187

-	; Today's password!

-	text_jump UnknownText_0x1bce87

-	db "@"

-; 0xb918c

-

-UnknownText_0xb918c: ; 0xb918c

-	; Let me think… It's

-	text_jump UnknownText_0x1bce9a

-	db "@"

-; 0xb9191

-

-UnknownText_0xb9191: ; 0xb9191

-	; @ !

-	text_jump UnknownText_0x1bceae

-	db "@"

-; 0xb9196

-

-UnknownText_0xb9196: ; 0xb9196

-	; Don't forget it!

-	text_jump UnknownText_0x1bceb7

-	db "@"

-; 0xb919b

-

-UnknownText_0xb919b: ; 0xb919b

-	; I'm in GOLDENROD's

-	text_jump UnknownText_0x1bcec9

-	db "@"

-; 0xb91a0

-

-UnknownText_0xb91a0: ; 0xb91a0

-	; RADIO TOWER!

-	text_jump UnknownText_0x1bcedc

-	db "@"

-; 0xb91a5

-

-UnknownText_0xb91a5: ; 0xb91a5

-	; BUENA: Oh my…

-	text_jump UnknownText_0x1bceeb

-	db "@"

-; 0xb91aa

-

-UnknownText_0xb91aa: ; 0xb91aa

-	; It's midnight! I

-	text_jump UnknownText_0x1bcefb

-	db "@"

-; 0xb91af

-

-UnknownText_0xb91af: ; 0xb91af

-	; have to shut down!

-	text_jump UnknownText_0x1bcf0d

-	db "@"

-; 0xb91b4

-

-UnknownText_0xb91b4: ; 0xb91b4

-	; Thanks for tuning

-	text_jump UnknownText_0x1bcf22

-	db "@"

-; 0xb91b9

-

-UnknownText_0xb91b9: ; 0xb91b9

-	; in to the end! But

-	text_jump UnknownText_0x1bcf36

-	db "@"

-; 0xb91be

-

-UnknownText_0xb91be: ; 0xb91be

-	; don't stay up too

-	text_jump UnknownText_0x1bcf4b

-	db "@"

-; 0xb91c3

-

-UnknownText_0xb91c3: ; 0xb91c3

-	; late! Presented to

-	text_jump UnknownText_0x1bcf5e

-	db "@"

-; 0xb91c8

-

-UnknownText_0xb91c8: ; 0xb91c8

-	; you by DJ BUENA!

-	text_jump UnknownText_0x1bcf73

-	db "@"

-; 0xb91cd

-

-UnknownText_0xb91cd: ; 0xb91cd

-	; I'm outta here!

-	text_jump UnknownText_0x1bcf86

-	db "@"

-; 0xb91d2

-

-UnknownText_0xb91d2: ; 0xb91d2

-	; …

-	text_jump UnknownText_0x1bcf96

-	db "@"

-; 0xb91d7

-

-UnknownText_0xb91d7: ; 0xb91d7

-	;

-	text_jump UnknownText_0x1bcf99

-	db "@"

-; 0xb91dc

-

-Functionb91dc: ; b91dc (2e:51dc)

-	ld a, [hl]

-	cp $16 ; TX_FAR

-	jp z, FarJumpText

-	ld de, wd00c

-	ld bc, $28

-	jp CopyBytes

-

-Functionb91eb: ; b91eb (2e:51eb)

-	ld a, [wd005]

-	and a

-	ret nz

-	call Function1052

-	call PrintText

-	ld hl, RadioChannelSongs

-	ld a, [wd002]

-	ld c, a

-	ld b, 0

-rept 2

-	add hl, bc

-endr

-	ld e, [hl]

-	inc hl

-	ld d, [hl]

-	callab Function91854

-	ret

-; b920b (2e:520b)

-

-RadioChannelSongs: ; b920b

-	dw MUSIC_POKEMON_TALK

-	dw MUSIC_POKEMON_CENTER

-	dw MUSIC_TITLE

-	dw MUSIC_GAME_CORNER

-	dw MUSIC_BUENAS_PASSWORD

-	dw MUSIC_VIRIDIAN_CITY

-	dw MUSIC_BICYCLE

-	dw MUSIC_ROCKET_OVERTURE

-	dw MUSIC_POKE_FLUTE_CHANNEL

-	dw MUSIC_RUINS_OF_ALPH_RADIO

-	dw MUSIC_LAKE_OF_RAGE_ROCKET_RADIO

-; b9221

-

-NextRadioLine: ; b9221 (2e:5221)

-	push af

-	call Functionb91dc

-	pop af

-	jp Functionb86ea

-; b9229

+PlayRadioShow: ; b8612
+; If we're already in the radio program proper, we don't need to be here.
+	ld a, [wd002]
+	cp 8
+	jr nc, .ok
+; If Team Rocket is not occupying the radio tower, we don't need to be here.
+	ld a, [StatusFlags2]
+	bit 0, a ; checkflag ENGINE_ROCKETS_IN_RADIO_TOWER
+	jr z, .ok
+; If we're in Kanto, we don't need to be here.
+	call IsInJohto
+	and a
+	jr nz, .ok
+; Team Rocket broadcasts on all stations.
+	ld a, 7
+	ld [wd002], a
+.ok
+; Jump to the currently loaded station.  The index to which we need to jump is in wd002.
+	ld a, [wd002]
+	ld e, a
+	ld d, 0
+	ld hl, RadioJumptable
+rept 2
+	add hl, de
+endr
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	jp [hl]
+
+RadioJumptable: ; b863a (2e:463a)
+	dw OaksPkmnTalk1  ; $00
+	dw PokedexShow1 ; $01
+	dw BenMonMusic1  ; $02
+	dw LuckyNumberShow1 ; $03
+	dw BuenasPassword1 ; $04
+	dw PeoplePlaces1 ; $05
+	dw FernMonMusic1 ; $06
+	dw RocketRadio1 ; $07
+	dw PokeFluteRadio ; $08
+	dw EvolutionRadio ; $09
+	dw UnownRadio ; $0a
+; OaksPkmnTalk
+	dw OaksPkmnTalk2  ; $0b
+	dw OaksPkmnTalk3  ; $0c
+	dw OaksPkmnTalk4  ; $0d
+	dw OaksPkmnTalk5  ; $0e
+	dw OaksPkmnTalk6  ; $0f
+	dw OaksPkmnTalk7  ; $10
+	dw OaksPkmnTalk8  ; $11
+	dw OaksPkmnTalk9  ; $12
+	dw OaksPkmnTalk10 ; $13
+	dw OaksPkmnTalk11 ; $14
+	dw OaksPkmnTalk12 ; $15
+	dw OaksPkmnTalk13 ; $16
+; Ben Music
+	dw BenMonMusic2  ; $17
+	dw BenMonMusic3  ; $18
+	dw BenFernMusic4 ; $19
+	dw BenFernMusic5 ; $1a
+	dw BenFernMusic6 ; $1b
+	dw BenFernMusic7 ; $1c
+	dw FernMonMusic2 ; $1d
+; Lucky Number Show
+	dw LuckyNumberShow2 ; $1e
+	dw LuckyNumberShow3 ; $1f
+	dw LuckyNumberShow4 ; $20
+	dw LuckyNumberShow5 ; $21
+	dw LuckyNumberShow6 ; $22
+	dw LuckyNumberShow7 ; $23
+	dw LuckyNumberShow8 ; $24
+	dw LuckyNumberShow9 ; $25
+	dw LuckyNumberShow10 ; $26
+	dw LuckyNumberShow11 ; $27
+	dw LuckyNumberShow12 ; $28
+	dw LuckyNumberShow13 ; $29
+	dw LuckyNumberShow14 ; $2a
+	dw LuckyNumberShow15 ; $2b
+	dw LuckyNumberShow16 ; $2c
+	dw LuckyNumberShow17 ; $2d
+	dw LuckyNumberShow18 ; $2e
+	dw LuckyNumberShow19 ; $2f
+	dw LuckyNumberShow20 ; $30
+	dw LuckyNumberShow21 ; $31
+; Rocket Radio
+	dw RocketRadio2 ; $32
+	dw RocketRadio3 ; $33
+	dw RocketRadio4 ; $34
+	dw RocketRadio5 ; $35
+	dw RocketRadio6 ; $36
+	dw RocketRadio7 ; $37
+	dw RocketRadio8 ; $38
+	dw RocketRadio9 ; $39
+	dw RocketRadio10 ; $3a
+; More Pokemon Channel stuff
+	dw OaksPkmnTalk14 ; $3b
+	dw OaksPkmnTalk15 ; $3c
+	dw OaksPkmnTalk16 ; $3d
+	dw OaksPkmnTalk17 ; $3e
+	dw OaksPkmnTalk18 ; $3f
+; Buenas Password
+	dw BuenasPassword2 ; $40
+	dw BuenasPassword3 ; $41
+	dw BuenasPassword4 ; $42
+	dw BuenasPassword5 ; $43
+	dw BuenasPassword6 ; $44
+	dw BuenasPassword7 ; $45
+	dw BuenasPassword8 ; $46
+	dw BuenasPassword9 ; $47
+	dw BuenasPassword10 ; $48
+	dw BuenasPassword11 ; $49
+	dw BuenasPassword12 ; $4a
+	dw BuenasPassword13 ; $4b
+	dw BuenasPassword14 ; $4c
+	dw BuenasPassword15 ; $4d
+	dw BuenasPassword16 ; $4e
+	dw BuenasPassword17 ; $4f
+	dw BuenasPassword18 ; $50
+	dw BuenasPassword19 ; $51
+	dw BuenasPassword20 ; $52
+	dw BuenasPassword21 ; $53
+	dw RadioScroll ; $54
+; More Pokemon Channel stuff
+	dw OaksPkmnTalk19 ; $55
+	dw OaksPkmnTalk20 ; $56
+	dw OaksPkmnTalk21 ; $57
+
+
+PrintRadioLine: ; b86ea (2e:46ea)
+	ld [wd003], a
+	ld hl, wd00c
+	ld a, [wd005]
+	cp $2
+	jr nc, .print
+	inc hl
+	ld [hl], $0
+	inc a
+	ld [wd005], a
+	cp $2
+	jr nz, .print
+	bccoord 1, 16
+	call PlaceWholeStringInBoxAtOnce
+	jr .skip
+.print
+	call PrintTextBoxText
+.skip
+	ld a, $54
+	ld [wd002], a
+	ld a, $64
+	ld [wd004], a
+	ret
+; b8718 (2e:4718)
+
+Functionb8718: ; b8718
+	push hl
+	ld b, SCREEN_WIDTH * 2
+.greater_than_10
+	ld a, [hl]
+	cp "."
+	jr nz, .next
+	ld [hl], " "
+
+.next
+	inc hl
+	dec b
+	jr nz, .greater_than_10
+	pop hl
+	ret
+; b8728
+
+RadioScroll: ; b8728 (2e:4728)
+	ld hl, wd004
+	ld a, [hl]
+	and a
+	jr z, .proceed
+	dec [hl]
+	ret
+.proceed
+	ld a, [wd003]
+	ld [wd002], a
+	ld a, [wd005]
+	cp 1
+	call nz, CopyBottomLineToTopLine
+	jp ClearBottomLine
+
+OaksPkmnTalk1: ; b8742 (2e:4742)
+	ld a, $5
+	ld [wd006], a
+	call StartRadioStation
+	ld hl, UnknownText_0xb8820
+	ld a, $b
+	jp NextRadioLine
+
+OaksPkmnTalk2: ; b8752 (2e:4752)
+	ld hl, UnknownText_0xb8825
+	ld a, $c
+	jp NextRadioLine
+
+OaksPkmnTalk3: ; b875a (2e:475a)
+	ld hl, UnknownText_0xb882a
+	ld a, $d
+	jp NextRadioLine
+
+OaksPkmnTalk4: ; b8762 (2e:4762)
+; Choose a random root, and a random Pokemon from that route.
+	call Random
+	and $1f
+	cp $f
+	jr nc, OaksPkmnTalk4
+	ld hl, Unknown_b87f2
+	ld c, a
+	ld b, 0
+rept 2
+	add hl, bc
+endr
+	ld b, [hl]
+	inc hl
+	ld c, [hl]
+	push bc
+
+	ld hl, WildMons1
+.greater_than_10
+	ld a, BANK(WildMons1)
+	call GetFarByte
+	cp -1
+	jr z, .done2
+	inc hl
+	cp b
+	jr nz, .next
+	ld a, BANK(WildMons1)
+	call GetFarByte
+	cp c
+	jr z, .done
+.next
+	dec hl
+	ld de, $2f
+	add hl, de
+	jr .greater_than_10
+
+.done
+rept 4
+	inc hl
+endr
+
+.both_bits_set
+	call Random
+	and 3
+	cp 3
+	jr z, .both_bits_set
+
+	ld bc, $e
+	call AddNTimes
+.greater_than_102
+	call Random
+	and 7
+	cp 2
+	jr c, .greater_than_102
+	cp 5
+	jr nc, .greater_than_102
+	ld e, a
+	ld d, 0
+rept 2
+	add hl, de
+endr
+	inc hl
+	ld a, BANK(WildMons1)
+	call GetFarByte
+	ld [wd265], a
+	ld [CurPartySpecies], a
+	call GetPokemonName
+	ld hl, StringBuffer1
+	ld de, wd050
+	ld bc, $b
+	call CopyBytes
+
+	pop bc
+	call GetWorldMapLocation
+	ld e, a
+	callba GetLandmarkName
+	ld hl, UnknownText_0xb882f
+	call CopyRadioTextToRAM
+	ld a, $e
+	jp PrintRadioLine
+
+.done2
+	pop bc
+	ld a, $0
+	jp PrintRadioLine
+; b87f2 (2e:47f2)
+
+Unknown_b87f2: ; b87f2
+	map ROUTE_29
+	map ROUTE_46
+	map ROUTE_30
+	map ROUTE_32
+	map ROUTE_34
+	map ROUTE_35
+	map ROUTE_37
+	map ROUTE_38
+	map ROUTE_39
+	map ROUTE_42
+	map ROUTE_43
+	map ROUTE_44
+	map ROUTE_45
+	map ROUTE_36
+	map ROUTE_31
+; b8810
+
+OaksPkmnTalk5: ; b8810 (2e:4810)
+	ld hl, UnknownText_0xb8834
+	ld a, $f
+	jp NextRadioLine
+
+OaksPkmnTalk6: ; b8818 (2e:4818)
+	ld hl, UnknownText_0xb8839
+	ld a, $10
+	jp NextRadioLine
+; b8820 (2e:4820)
+
+UnknownText_0xb8820: ; 0xb8820
+	; MARY: PROF.OAK'S
+	text_jump UnknownText_0x1bc81a
+	db "@"
+; 0xb8825
+
+UnknownText_0xb8825: ; 0xb8825
+	; #MON TALK!
+	text_jump UnknownText_0x1bc82d
+	db "@"
+; 0xb882a
+
+UnknownText_0xb882a: ; 0xb882a
+	; With me, MARY!
+	text_jump UnknownText_0x1bc83a
+	db "@"
+; 0xb882f
+
+UnknownText_0xb882f: ; 0xb882f
+	; OAK: @ @
+	text_jump UnknownText_0x1bc84b
+	db "@"
+; 0xb8834
+
+UnknownText_0xb8834: ; 0xb8834
+	; may be seen around
+	text_jump UnknownText_0x1bc858
+	db "@"
+; 0xb8839
+
+UnknownText_0xb8839: ; 0xb8839
+	; @ .
+	text_jump UnknownText_0x1bc86d
+	db "@"
+; 0xb883e
+
+OaksPkmnTalk7: ; b883e (2e:483e)
+	ld a, [CurPartySpecies]
+	ld [wd265], a
+	call GetPokemonName
+	ld hl, UnknownText_0xb884f
+	ld a, $11
+	jp NextRadioLine
+; b884f (2e:484f)
+
+UnknownText_0xb884f: ; 0xb884f
+	; MARY: @ 's
+	text_jump UnknownText_0x1bc876
+	db "@"
+; 0xb8854
+
+OaksPkmnTalk8: ; b8854 (2e:4854)
+	call Random
+	and $f
+	ld e, a
+	ld d, 0
+	ld hl, Unknown_b8869
+rept 2
+	add hl, de
+endr
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	ld a, $12
+	jp NextRadioLine
+; b8869 (2e:4869)
+
+Unknown_b8869: ; b8869
+	dw UnknownText_0xb8889
+	dw UnknownText_0xb888e
+	dw UnknownText_0xb8893
+	dw UnknownText_0xb8898
+	dw UnknownText_0xb889d
+	dw UnknownText_0xb88a2
+	dw UnknownText_0xb88a7
+	dw UnknownText_0xb88ac
+	dw UnknownText_0xb88b1
+	dw UnknownText_0xb88b6
+	dw UnknownText_0xb88bb
+	dw UnknownText_0xb88c0
+	dw UnknownText_0xb88c5
+	dw UnknownText_0xb88ca
+	dw UnknownText_0xb88cf
+	dw UnknownText_0xb88d4
+; b8889
+
+UnknownText_0xb8889: ; 0xb8889
+	; sweet and adorably
+	text_jump UnknownText_0x1bc885
+	db "@"
+; 0xb888e
+
+UnknownText_0xb888e: ; 0xb888e
+	; wiggly and slickly
+	text_jump UnknownText_0x1bc89a
+	db "@"
+; 0xb8893
+
+UnknownText_0xb8893: ; 0xb8893
+	; aptly named and
+	text_jump UnknownText_0x1bc8af
+	db "@"
+; 0xb8898
+
+UnknownText_0xb8898: ; 0xb8898
+	; undeniably kind of
+	text_jump UnknownText_0x1bc8c1
+	db "@"
+; 0xb889d
+
+UnknownText_0xb889d: ; 0xb889d
+	; so, so unbearably
+	text_jump UnknownText_0x1bc8d6
+	db "@"
+; 0xb88a2
+
+UnknownText_0xb88a2: ; 0xb88a2
+	; wow, impressively
+	text_jump UnknownText_0x1bc8ea
+	db "@"
+; 0xb88a7
+
+UnknownText_0xb88a7: ; 0xb88a7
+	; almost poisonously
+	text_jump UnknownText_0x1bc8fe
+	db "@"
+; 0xb88ac
+
+UnknownText_0xb88ac: ; 0xb88ac
+	; ooh, so sensually
+	text_jump UnknownText_0x1bc913
+	db "@"
+; 0xb88b1
+
+UnknownText_0xb88b1: ; 0xb88b1
+	; so mischievously
+	text_jump UnknownText_0x1bc927
+	db "@"
+; 0xb88b6
+
+UnknownText_0xb88b6: ; 0xb88b6
+	; so very topically
+	text_jump UnknownText_0x1bc93a
+	db "@"
+; 0xb88bb
+
+UnknownText_0xb88bb: ; 0xb88bb
+	; sure addictively
+	text_jump UnknownText_0x1bc94e
+	db "@"
+; 0xb88c0
+
+UnknownText_0xb88c0: ; 0xb88c0
+	; looks in water is
+	text_jump UnknownText_0x1bc961
+	db "@"
+; 0xb88c5
+
+UnknownText_0xb88c5: ; 0xb88c5
+	; evolution must be
+	text_jump UnknownText_0x1bc975
+	db "@"
+; 0xb88ca
+
+UnknownText_0xb88ca: ; 0xb88ca
+	; provocatively
+	text_jump UnknownText_0x1bc989
+	db "@"
+; 0xb88cf
+
+UnknownText_0xb88cf: ; 0xb88cf
+	; so flipped out and
+	text_jump UnknownText_0x1bc999
+	db "@"
+; 0xb88d4
+
+UnknownText_0xb88d4: ; 0xb88d4
+	; heart-meltingly
+	text_jump UnknownText_0x1bc9ae
+	db "@"
+; 0xb88d9
+
+OaksPkmnTalk9: ; b88d9 (2e:48d9)
+	call Random
+	and $f
+	ld e, a
+	ld d, 0
+	ld hl, Unknown_b88fe
+rept 2
+	add hl, de
+endr
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	ld a, [wd006]
+	dec a
+	ld [wd006], a
+	ld a, $d
+	jr nz, .nope
+	ld a, $5
+	ld [wd006], a
+	ld a, $3b
+.nope
+	jp NextRadioLine
+; b88fe (2e:48fe)
+
+Unknown_b88fe: ; b88fe
+	dw UnknownText_0xb891e
+	dw UnknownText_0xb8923
+	dw UnknownText_0xb8928
+	dw UnknownText_0xb892d
+	dw UnknownText_0xb8932
+	dw UnknownText_0xb8937
+	dw UnknownText_0xb893c
+	dw UnknownText_0xb8941
+	dw UnknownText_0xb8946
+	dw UnknownText_0xb894b
+	dw UnknownText_0xb8950
+	dw UnknownText_0xb8955
+	dw UnknownText_0xb895a
+	dw UnknownText_0xb895f
+	dw UnknownText_0xb8964
+	dw UnknownText_0xb8969
+; b891e
+
+UnknownText_0xb891e: ; 0xb891e
+	; cute.
+	text_jump UnknownText_0x1bc9c0
+	db "@"
+; 0xb8923
+
+UnknownText_0xb8923: ; 0xb8923
+	; weird.
+	text_jump UnknownText_0x1bc9c8
+	db "@"
+; 0xb8928
+
+UnknownText_0xb8928: ; 0xb8928
+	; pleasant.
+	text_jump UnknownText_0x1bc9d1
+	db "@"
+; 0xb892d
+
+UnknownText_0xb892d: ; 0xb892d
+	; bold, sort of.
+	text_jump UnknownText_0x1bc9dd
+	db "@"
+; 0xb8932
+
+UnknownText_0xb8932: ; 0xb8932
+	; frightening.
+	text_jump UnknownText_0x1bc9ee
+	db "@"
+; 0xb8937
+
+UnknownText_0xb8937: ; 0xb8937
+	; suave & debonair!
+	text_jump UnknownText_0x1bc9fd
+	db "@"
+; 0xb893c
+
+UnknownText_0xb893c: ; 0xb893c
+	; powerful.
+	text_jump UnknownText_0x1bca11
+	db "@"
+; 0xb8941
+
+UnknownText_0xb8941: ; 0xb8941
+	; exciting.
+	text_jump UnknownText_0x1bca1d
+	db "@"
+; 0xb8946
+
+UnknownText_0xb8946: ; 0xb8946
+	; groovy!
+	text_jump UnknownText_0x1bca29
+	db "@"
+; 0xb894b
+
+UnknownText_0xb894b: ; 0xb894b
+	; inspiring.
+	text_jump UnknownText_0x1bca33
+	db "@"
+; 0xb8950
+
+UnknownText_0xb8950: ; 0xb8950
+	; friendly.
+	text_jump UnknownText_0x1bca40
+	db "@"
+; 0xb8955
+
+UnknownText_0xb8955: ; 0xb8955
+	; hot, hot, hot!
+	text_jump UnknownText_0x1bca4c
+	db "@"
+; 0xb895a
+
+UnknownText_0xb895a: ; 0xb895a
+	; stimulating.
+	text_jump UnknownText_0x1bca5d
+	db "@"
+; 0xb895f
+
+UnknownText_0xb895f: ; 0xb895f
+	; guarded.
+	text_jump UnknownText_0x1bca6c
+	db "@"
+; 0xb8964
+
+UnknownText_0xb8964: ; 0xb8964
+	; lovely.
+	text_jump UnknownText_0x1bca77
+	db "@"
+; 0xb8969
+
+UnknownText_0xb8969: ; 0xb8969
+	; speedy.
+	text_jump UnknownText_0x1bca81
+	db "@"
+; 0xb896e
+
+OaksPkmnTalk14: ; b896e (2e:496e)
+	callba Function91868
+	ld hl, UnknownText_0xb8993
+	call PrintText
+	call WaitBGMap
+	ld hl, UnknownText_0xb898e
+	call PrintText
+	ld a, $3c
+	ld [wd002], a
+	ld a, $64
+	ld [wd004], a
+	ret
+; b898e (2e:498e)
+
+UnknownText_0xb898e: ; 0xb898e
+	; #MON
+	text_jump UnknownText_0x1bca8b
+	db "@"
+; 0xb8993
+
+UnknownText_0xb8993: ; 0xb8993
+	db "@"
+; 0xb8994
+
+OaksPkmnTalk15: ; b8994 (2e:4994)
+	ld hl, wd004
+	dec [hl]
+	ret nz
+	hlcoord 9, 14
+	ld de, String_b89a4
+	ld a, $3d
+	jp Functionb8a00
+; b89a4 (2e:49a4)
+
+String_b89a4:
+	db "#MON@"
+; b89a9
+
+OaksPkmnTalk16: ; b89a9 (2e:49a9)
+	ld hl, wd004
+	dec [hl]
+	ret nz
+	hlcoord 1, 16
+	ld de, String_b89b9
+	ld a, $3e
+	jp Functionb8a00
+; b89b9 (2e:49b9)
+
+String_b89b9:
+	db "#MON Channel@"
+; b89c6
+
+OaksPkmnTalk17: ; b89c6 (2e:49c6)
+	ld hl, wd004
+	dec [hl]
+	ret nz
+	hlcoord 12, 16
+	ld de, String_b89d6
+	ld a, $3f
+	jp Functionb8a00
+; b89d6 (2e:49d6)
+
+String_b89d6:
+	db "@"
+; b89d7
+
+OaksPkmnTalk18: ; b89d7 (2e:49d7)
+	ld hl, wd004
+	dec [hl]
+	ret nz
+	ld de, $1d
+	callab RadioMusicNone
+	ld hl, UnknownText_0xb89ff
+	call PrintText
+	ld a, $d
+	ld [wd003], a
+	xor a
+	ld [wd005], a
+	ld a, $54
+	ld [wd002], a
+	ld a, $a
+	ld [wd004], a
+	ret
+; b89ff (2e:49ff)
+
+UnknownText_0xb89ff: ; 0xb89ff
+	db "@"
+; 0xb8a00
+
+Functionb8a00: ; b8a00 (2e:4a00)
+	ld [wd002], a
+	ld a, $64
+	ld [wd004], a
+	jp PlaceString
+
+CopyBottomLineToTopLine: ; b8a0b (2e:4a0b)
+	hlcoord 0, 15
+	decoord 0, 13
+	ld bc, SCREEN_WIDTH * 2
+	jp CopyBytes
+
+ClearBottomLine: ; b8a17 (2e:4a17)
+	hlcoord 1, 15
+	ld bc, $12
+	ld a, " "
+	call ByteFill
+	hlcoord 1, 16
+	ld bc, $12
+	ld a, " "
+	jp ByteFill
+
+Functionb8a2d: ; b8a2d (2e:4a2d)
+	push hl
+	push de
+	ld a, [CurPartySpecies]
+	dec a
+	rlca
+	rlca
+	and 3
+	ld hl, .pokedexbanks
+	ld d, 0
+	ld e, a
+	add hl, de
+	ld a, [hl]
+	pop de
+	pop hl
+	ret
+; b8a42 (2e:4a42)
+
+.pokedexbanks
+	db BANK(PokedexEntries1)
+	db BANK(PokedexEntries2)
+	db BANK(PokedexEntries3)
+	db BANK(PokedexEntries4)
+; b8a46
+
+PokedexShow1: ; b8a46 (2e:4a46)
+	call StartRadioStation
+.asm_b8a49
+	call Random
+	cp CELEBI
+	jr nc, .asm_b8a49
+	ld c, a
+	push bc
+	ld a, c
+	call CheckCaughtMon
+	pop bc
+	jr z, .asm_b8a49
+	inc c
+	ld a, c
+	ld [CurPartySpecies], a
+	ld [wd265], a
+	call GetPokemonName
+	ld hl, UnknownText_0xb8b30
+	ld a, $13
+	jp NextRadioLine
+
+OaksPkmnTalk10: ; b8a6c (2e:4a6c)
+	ld a, [CurPartySpecies]
+	dec a
+	ld hl, PokedexDataPointerTable
+	ld c, a
+	ld b, 0
+rept 2
+	add hl, bc
+endr
+	ld a, BANK(PokedexDataPointerTable)
+	call GetFarHalfword
+	call Functionb8a2d
+	push af
+	push hl
+	call Functionb8af3
+	dec hl
+	ld [hl], $57
+	ld hl, wd26b
+	call CopyRadioTextToRAM
+	pop hl
+	pop af
+	call Functionb8b11
+rept 4
+	inc hl
+endr
+	ld a, l
+	ld [wd26b], a
+	ld a, h
+	ld [wd26c], a
+	ld a, $14
+	jp PrintRadioLine
+
+OaksPkmnTalk11: ; b8aa4 (2e:4aa4)
+	call Functionb8ad4
+	ld a, $15
+	jp PrintRadioLine
+
+OaksPkmnTalk12: ; b8aac (2e:4aac)
+	call Functionb8ad4
+	ld a, $16
+	jp PrintRadioLine
+
+OaksPkmnTalk13: ; b8ab4 (2e:4ab4)
+	call Functionb8ad4
+	ld a, $55
+	jp PrintRadioLine
+
+OaksPkmnTalk19: ; b8abc (2e:4abc)
+	call Functionb8ad4
+	ld a, $56
+	jp PrintRadioLine
+
+OaksPkmnTalk20: ; b8ac4 (2e:4ac4)
+	call Functionb8ad4
+	ld a, $57
+	jp PrintRadioLine
+
+OaksPkmnTalk21: ; b8acc (2e:4acc)
+	call Functionb8ad4
+	ld a, $1
+	jp PrintRadioLine
+
+Functionb8ad4: ; b8ad4 (2e:4ad4)
+	ld a, [wd26b]
+	ld l, a
+	ld a, [wd26c]
+	ld h, a
+	ld a, [wd26d]
+	push af
+	push hl
+	call Functionb8af3
+	dec hl
+	ld [hl], $57
+	ld hl, wd26b
+	call CopyRadioTextToRAM
+	pop hl
+	pop af
+	call Functionb8b11
+	ret
+
+Functionb8af3: ; b8af3 (2e:4af3)
+	ld de, wd26d
+	ld bc, $13
+	call FarCopyBytes
+	ld hl, wd26b
+	ld [hl], $0
+	inc hl
+	ld [hl], $4f
+	inc hl
+.asm_b8b05
+	ld a, [hli]
+	cp $50
+	ret z
+	cp $4e
+	ret z
+	cp $5f
+	ret z
+	jr .asm_b8b05
+
+Functionb8b11: ; b8b11 (2e:4b11)
+	ld d, a
+.asm_b8b12
+	ld a, d
+	call GetFarByte
+	inc hl
+	cp $50
+	jr z, .asm_b8b23
+	cp $4e
+	jr z, .asm_b8b23
+	cp $5f
+	jr nz, .asm_b8b12
+.asm_b8b23
+	ld a, l
+	ld [wd26b], a
+	ld a, h
+	ld [wd26c], a
+	ld a, d
+	ld [wd26d], a
+	ret
+; b8b30 (2e:4b30)
+
+UnknownText_0xb8b30: ; 0xb8b30
+	; @ @
+	text_jump UnknownText_0x1bca91
+	db "@"
+; 0xb8b35
+
+BenMonMusic1: ; b8b35 (2e:4b35)
+	call Functionb8b90
+	ld hl, UnknownText_0xb8baa
+	ld a, $17
+	jp NextRadioLine
+
+BenMonMusic2: ; b8b40 (2e:4b40)
+	ld hl, UnknownText_0xb8baf
+	ld a, $18
+	jp NextRadioLine
+
+BenMonMusic3: ; b8b48 (2e:4b48)
+	ld hl, UnknownText_0xb8bb4
+	ld a, $19
+	jp NextRadioLine
+
+FernMonMusic1: ; b8b50 (2e:4b50)
+	call Functionb8b90
+	ld hl, UnknownText_0xb8bb9
+	ld a, $1d
+	jp NextRadioLine
+
+FernMonMusic2: ; b8b5b (2e:4b5b)
+	ld hl, UnknownText_0xb8bbe
+	ld a, $19
+	jp NextRadioLine
+
+BenFernMusic4: ; b8b63 (2e:4b63)
+	ld hl, UnknownText_0xb8bc3
+	ld a, $1a
+	jp NextRadioLine
+
+BenFernMusic5: ; b8b6b (2e:4b6b)
+	call GetWeekday
+	and 1
+	ld hl, UnknownText_0xb8bc8
+	jr z, .asm_b8b78
+	ld hl, UnknownText_0xb8bcd
+.asm_b8b78
+	ld a, $1b
+	jp NextRadioLine
+
+BenFernMusic6: ; b8b7d (2e:4b7d)
+	call GetWeekday
+	and 1
+	ld hl, UnknownText_0xb8bd2
+	jr z, .asm_b8b8a
+	ld hl, UnknownText_0xb8bd7
+.asm_b8b8a
+	ld a, $1c
+	jp NextRadioLine
+
+BenFernMusic7: ; b8b8f (2e:4b8f)
+	ret
+
+Functionb8b90: ; b8b90 (2e:4b90)
+	call RadioTerminator
+	call PrintText
+	ld de, MUSIC_POKEMON_MARCH
+	call GetWeekday
+	and 1
+	jr z, .done
+	ld de, MUSIC_POKEMON_LULLABY
+.done
+	callab RadioMusicNone
+	ret
+; b8baa (2e:4baa)
+
+UnknownText_0xb8baa: ; 0xb8baa
+	; BEN: #MON MUSIC
+	text_jump UnknownText_0x1bca99
+	db "@"
+; 0xb8baf
+
+UnknownText_0xb8baf: ; 0xb8baf
+	; CHANNEL!
+	text_jump UnknownText_0x1bcaab
+	db "@"
+; 0xb8bb4
+
+UnknownText_0xb8bb4: ; 0xb8bb4
+	; It's me, DJ BEN!
+	text_jump UnknownText_0x1bcab6
+	db "@"
+; 0xb8bb9
+
+UnknownText_0xb8bb9: ; 0xb8bb9
+	; FERN: #MUSIC!
+	text_jump UnknownText_0x1bcac8
+	db "@"
+; 0xb8bbe
+
+UnknownText_0xb8bbe: ; 0xb8bbe
+	; With DJ FERN!
+	text_jump UnknownText_0x1bcad8
+	db "@"
+; 0xb8bc3
+
+UnknownText_0xb8bc3: ; 0xb8bc3
+	; Today's @ ,
+	text_jump UnknownText_0x1bcae8
+	db "@"
+; 0xb8bc8
+
+UnknownText_0xb8bc8: ; 0xb8bc8
+	; so let us jam to
+	text_jump UnknownText_0x1bcaf6
+	db "@"
+; 0xb8bcd
+
+UnknownText_0xb8bcd: ; 0xb8bcd
+	; so chill out to
+	text_jump UnknownText_0x1bcb09
+	db "@"
+; 0xb8bd2
+
+UnknownText_0xb8bd2: ; 0xb8bd2
+	; #MON March!
+	text_jump UnknownText_0x1bcb1b
+	db "@"
+; 0xb8bd7
+
+UnknownText_0xb8bd7: ; 0xb8bd7
+	; #MON Lullaby!
+	text_jump UnknownText_0x1bcb29
+	db "@"
+; 0xb8bdc
+
+LuckyNumberShow1: ; b8bdc (2e:4bdc)
+	call StartRadioStation
+	callab Functionc434
+	jr nc, .asm_b8bed
+	callab Functionc422
+.asm_b8bed
+	ld hl, UnknownText_0xb8c7e
+	ld a, $1e
+	jp NextRadioLine
+
+LuckyNumberShow2: ; b8bf5 (2e:4bf5)
+	ld hl, UnknownText_0xb8c83
+	ld a, $1f
+	jp NextRadioLine
+
+LuckyNumberShow3: ; b8bfd (2e:4bfd)
+	ld hl, UnknownText_0xb8c88
+	ld a, $20
+	jp NextRadioLine
+
+LuckyNumberShow4: ; b8c05 (2e:4c05)
+	ld hl, UnknownText_0xb8c8d
+	ld a, $21
+	jp NextRadioLine
+
+LuckyNumberShow5: ; b8c0d (2e:4c0d)
+	ld hl, UnknownText_0xb8c92
+	ld a, $22
+	jp NextRadioLine
+
+LuckyNumberShow6: ; b8c15 (2e:4c15)
+	ld hl, UnknownText_0xb8c97
+	ld a, $23
+	jp NextRadioLine
+
+LuckyNumberShow7: ; b8c1d (2e:4c1d)
+	ld hl, UnknownText_0xb8c9c
+	ld a, $24
+	jp NextRadioLine
+
+LuckyNumberShow8: ; b8c25 (2e:4c25)
+	ld hl, StringBuffer1
+	ld de, wdc9f
+	ld bc, $8205
+	call PrintNum
+	ld a, $50
+	ld [StringBuffer1 + 5], a
+	ld hl, UnknownText_0xb8ca1
+	ld a, $25
+	jp NextRadioLine
+
+LuckyNumberShow9: ; b8c3e (2e:4c3e)
+	ld hl, UnknownText_0xb8ca6
+	ld a, $26
+	jp NextRadioLine
+
+LuckyNumberShow10: ; b8c46 (2e:4c46)
+	ld hl, UnknownText_0xb8c9c
+	ld a, $27
+	jp NextRadioLine
+
+LuckyNumberShow11: ; b8c4e (2e:4c4e)
+	ld hl, UnknownText_0xb8ca1
+	ld a, $28
+	jp NextRadioLine
+
+LuckyNumberShow12: ; b8c56 (2e:4c56)
+	ld hl, UnknownText_0xb8cab
+	ld a, $29
+	jp NextRadioLine
+
+LuckyNumberShow13: ; b8c5e (2e:4c5e)
+	ld hl, UnknownText_0xb8cb0
+	call Random
+	and a
+	ld a, $3
+	jr nz, .asm_b8c6b
+	ld a, $2a
+.asm_b8c6b
+	jp NextRadioLine
+
+LuckyNumberShow14: ; b8c6e (2e:4c6e)
+	ld hl, UnknownText_0xb8cb5
+	ld a, $2b
+	jp NextRadioLine
+
+LuckyNumberShow15: ; b8c76 (2e:4c76)
+	ld hl, UnknownText_0xb8cba
+	ld a, $3
+	jp NextRadioLine
+; b8c7e (2e:4c7e)
+
+UnknownText_0xb8c7e: ; 0xb8c7e
+	; REED: Yeehaw! How
+	text_jump UnknownText_0x1bcb39
+	db "@"
+; 0xb8c83
+
+UnknownText_0xb8c83: ; 0xb8c83
+	; y'all doin' now?
+	text_jump UnknownText_0x1bcb4d
+	db "@"
+; 0xb8c88
+
+UnknownText_0xb8c88: ; 0xb8c88
+	; Whether you're up
+	text_jump UnknownText_0x1bcb60
+	db "@"
+; 0xb8c8d
+
+UnknownText_0xb8c8d: ; 0xb8c8d
+	; or way down low,
+	text_jump UnknownText_0x1bcb73
+	db "@"
+; 0xb8c92
+
+UnknownText_0xb8c92: ; 0xb8c92
+	; don't you miss the
+	text_jump UnknownText_0x1bcb86
+	db "@"
+; 0xb8c97
+
+UnknownText_0xb8c97: ; 0xb8c97
+	; LUCKY NUMBER SHOW!
+	text_jump UnknownText_0x1bcb9a
+	db "@"
+; 0xb8c9c
+
+UnknownText_0xb8c9c: ; 0xb8c9c
+	; This week's Lucky
+	text_jump UnknownText_0x1bcbaf
+	db "@"
+; 0xb8ca1
+
+UnknownText_0xb8ca1: ; 0xb8ca1
+	; Number is @ !
+	text_jump UnknownText_0x1bcbc2
+	db "@"
+; 0xb8ca6
+
+UnknownText_0xb8ca6: ; 0xb8ca6
+	; I'll repeat that!
+	text_jump UnknownText_0x1bcbd6
+	db "@"
+; 0xb8cab
+
+UnknownText_0xb8cab: ; 0xb8cab
+	; Match it and go to
+	text_jump UnknownText_0x1bcbe9
+	db "@"
+; 0xb8cb0
+
+UnknownText_0xb8cb0: ; 0xb8cb0
+	; the RADIO TOWER!
+	text_jump UnknownText_0x1bcbfe
+	db "@"
+; 0xb8cb5
+
+UnknownText_0xb8cb5: ; 0xb8cb5
+	; …Repeating myself
+	text_jump UnknownText_0x1bcc11
+	db "@"
+; 0xb8cba
+
+UnknownText_0xb8cba: ; 0xb8cba
+	; gets to be a drag…
+	text_jump UnknownText_0x1bcc25
+	db "@"
+; 0xb8cbf
+
+PeoplePlaces1: ; b8cbf (2e:4cbf)
+	call StartRadioStation
+	ld hl, UnknownText_0xb8ce3
+	ld a, $2c
+	jp NextRadioLine
+
+LuckyNumberShow16: ; b8cca (2e:4cca)
+	ld hl, UnknownText_0xb8ce8
+	ld a, $2d
+	jp NextRadioLine
+
+LuckyNumberShow17: ; b8cd2 (2e:4cd2)
+	ld hl, UnknownText_0xb8ced
+	call Random
+	cp $7b
+	ld a, $2e
+	jr c, .asm_b8ce0
+	ld a, $30
+.asm_b8ce0
+	jp NextRadioLine
+; b8ce3 (2e:4ce3)
+
+UnknownText_0xb8ce3: ; 0xb8ce3
+	; PLACES AND PEOPLE!
+	text_jump UnknownText_0x1bcc3a
+	db "@"
+; 0xb8ce8
+
+UnknownText_0xb8ce8: ; 0xb8ce8
+	; Brought to you by
+	text_jump UnknownText_0x1bcc4f
+	db "@"
+; 0xb8ced
+
+UnknownText_0xb8ced: ; 0xb8ced
+	; me, DJ LILY!
+	text_jump UnknownText_0x1bcc63
+	db "@"
+; 0xb8cf2
+
+LuckyNumberShow18: ; b8cf2 (2e:4cf2)
+	call Random
+	and " "
+	inc a
+	cp $43
+	jr nc, LuckyNumberShow18
+	push af
+	ld hl, Unknown_b8d3e
+	ld a, [StatusFlags]
+	bit 6, a
+	jr z, .NotMet
+	ld hl, Unknown_b8d43
+	ld a, [KantoBadges]
+	cp %11111111
+	jr nz, .NotMet
+	ld hl, Unknown_b8d4b
+.NotMet
+	pop af
+	ld c, a
+	ld de, $1
+	push bc
+	call IsInArray
+	pop bc
+	jr c, LuckyNumberShow18
+	push bc
+	callab Function3952d
+	ld de, StringBuffer1
+	call CopyName1
+	pop bc
+	ld b, $1
+	callab GetTrainerName
+	ld hl, UnknownText_0xb8d51
+	ld a, $2f
+	jp NextRadioLine
+; b8d3e (2e:4d3e)
+
+Unknown_b8d3e: db $0b, $0d, $0e, $0f, $10
+Unknown_b8d43: db $11, $12, $13, $15, $1a, $23, $2e, $40
+Unknown_b8d4b: db $09, $0a, $0c, $2a, $3f
+               db $ff
+; b8d51
+
+UnknownText_0xb8d51: ; 0xb8d51
+	; @  @ @
+	text_jump UnknownText_0x1bcc72
+	db "@"
+; 0xb8d56
+
+LuckyNumberShow19: ; b8d56 (2e:4d56)
+	call Random
+	and $f
+	ld e, a
+	ld d, 0
+	ld hl, Unknown_b8d7d
+rept 2
+	add hl, de
+endr
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	call Random
+	cp $a
+	ld a, $5
+	jr c, .asm_b8d7a
+	call Random
+	cp $7b
+	ld a, $2e
+	jr c, .asm_b8d7a
+	ld a, $30
+.asm_b8d7a
+	jp NextRadioLine
+; b8d7d (2e:4d7d)
+
+Unknown_b8d7d: ; b8d7d
+	dw UnknownText_0xb8d9d
+	dw UnknownText_0xb8da2
+	dw UnknownText_0xb8da7
+	dw UnknownText_0xb8dac
+	dw UnknownText_0xb8db1
+	dw UnknownText_0xb8db6
+	dw UnknownText_0xb8dbb
+	dw UnknownText_0xb8dc0
+	dw UnknownText_0xb8dc5
+	dw UnknownText_0xb8dca
+	dw UnknownText_0xb8dcf
+	dw UnknownText_0xb8dd4
+	dw UnknownText_0xb8dd9
+	dw UnknownText_0xb8dde
+	dw UnknownText_0xb8de3
+	dw UnknownText_0xb8de8
+; b8d9d
+
+UnknownText_0xb8d9d: ; 0xb8d9d
+	; is cute.
+	text_jump UnknownText_0x1bcc80
+	db "@"
+; 0xb8da2
+
+UnknownText_0xb8da2: ; 0xb8da2
+	; is sort of lazy.
+	text_jump UnknownText_0x1bcc8b
+	db "@"
+; 0xb8da7
+
+UnknownText_0xb8da7: ; 0xb8da7
+	; is always happy.
+	text_jump UnknownText_0x1bcc9e
+	db "@"
+; 0xb8dac
+
+UnknownText_0xb8dac: ; 0xb8dac
+	; is quite noisy.
+	text_jump UnknownText_0x1bccb1
+	db "@"
+; 0xb8db1
+
+UnknownText_0xb8db1: ; 0xb8db1
+	; is precocious.
+	text_jump UnknownText_0x1bccc3
+	db "@"
+; 0xb8db6
+
+UnknownText_0xb8db6: ; 0xb8db6
+	; is somewhat bold.
+	text_jump UnknownText_0x1bccd4
+	db "@"
+; 0xb8dbb
+
+UnknownText_0xb8dbb: ; 0xb8dbb
+	; is too picky!
+	text_jump UnknownText_0x1bcce8
+	db "@"
+; 0xb8dc0
+
+UnknownText_0xb8dc0: ; 0xb8dc0
+	; is sort of OK.
+	text_jump UnknownText_0x1bccf8
+	db "@"
+; 0xb8dc5
+
+UnknownText_0xb8dc5: ; 0xb8dc5
+	; is just so-so.
+	text_jump UnknownText_0x1bcd09
+	db "@"
+; 0xb8dca
+
+UnknownText_0xb8dca: ; 0xb8dca
+	; is actually great.
+	text_jump UnknownText_0x1bcd1a
+	db "@"
+; 0xb8dcf
+
+UnknownText_0xb8dcf: ; 0xb8dcf
+	; is just my type.
+	text_jump UnknownText_0x1bcd2f
+	db "@"
+; 0xb8dd4
+
+UnknownText_0xb8dd4: ; 0xb8dd4
+	; is so cool, no?
+	text_jump UnknownText_0x1bcd42
+	db "@"
+; 0xb8dd9
+
+UnknownText_0xb8dd9: ; 0xb8dd9
+	; is inspiring!
+	text_jump UnknownText_0x1bcd54
+	db "@"
+; 0xb8dde
+
+UnknownText_0xb8dde: ; 0xb8dde
+	; is kind of weird.
+	text_jump UnknownText_0x1bcd64
+	db "@"
+; 0xb8de3
+
+UnknownText_0xb8de3: ; 0xb8de3
+	; is right for me?
+	text_jump UnknownText_0x1bcd78
+	db "@"
+; 0xb8de8
+
+UnknownText_0xb8de8: ; 0xb8de8
+	; is definitely odd!
+	text_jump UnknownText_0x1bcd8b
+	db "@"
+; 0xb8ded
+
+LuckyNumberShow20: ; b8ded (2e:4ded)
+	call Random
+	cp $9
+	jr nc, LuckyNumberShow20
+	ld hl, Unknown_b8e11
+	ld c, a
+	ld b, 0
+rept 2
+	add hl, bc
+endr
+	ld b, [hl]
+	inc hl
+	ld c, [hl]
+	call GetWorldMapLocation
+	ld e, a
+	callba GetLandmarkName
+	ld hl, UnknownText_0xb8e23
+	ld a, $31
+	jp NextRadioLine
+; b8e11 (2e:4e11)
+
+Unknown_b8e11: ; b8e11
+	map PALLET_TOWN
+	map ROUTE_22
+	map PEWTER_CITY
+	map CERULEAN_POLICE_STATION
+	map ROUTE_12
+	map ROUTE_11
+	map ROUTE_16
+	map ROUTE_14
+	map CINNABAR_POKECENTER_2F_BETA
+; b8e23
+
+UnknownText_0xb8e23: ; 0xb8e23
+	; @ @
+	text_jump UnknownText_0x1bcda0
+	db "@"
+; 0xb8e28
+
+LuckyNumberShow21: ; b8e28 (2e:4e28)
+	call Random
+	and $f
+	ld e, a
+	ld d, 0
+	ld hl, Unknown_b8e52
+rept 2
+	add hl, de
+endr
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	call CopyRadioTextToRAM
+	call Random
+	cp $a
+	ld a, $5
+	jr c, .asm_b8e4f
+	call Random
+	cp $7b
+	ld a, $2e
+	jr c, .asm_b8e4f
+	ld a, $30
+.asm_b8e4f
+	jp PrintRadioLine
+; b8e52 (2e:4e52)
+
+Unknown_b8e52: ; b8e52
+	dw UnknownText_0xb8d9d
+	dw UnknownText_0xb8da2
+	dw UnknownText_0xb8da7
+	dw UnknownText_0xb8dac
+	dw UnknownText_0xb8db1
+	dw UnknownText_0xb8db6
+	dw UnknownText_0xb8dbb
+	dw UnknownText_0xb8dc0
+	dw UnknownText_0xb8dc5
+	dw UnknownText_0xb8dca
+	dw UnknownText_0xb8dcf
+	dw UnknownText_0xb8dd4
+	dw UnknownText_0xb8dd9
+	dw UnknownText_0xb8dde
+	dw UnknownText_0xb8de3
+	dw UnknownText_0xb8de8
+; b8e72
+
+RocketRadio1: ; b8e72 (2e:4e72)
+	call StartRadioStation
+	ld hl, UnknownText_0xb8ec5
+	ld a, $32
+	jp NextRadioLine
+
+RocketRadio2: ; b8e7d (2e:4e7d)
+	ld hl, UnknownText_0xb8eca
+	ld a, $33
+	jp NextRadioLine
+
+RocketRadio3: ; b8e85 (2e:4e85)
+	ld hl, UnknownText_0xb8ecf
+	ld a, $34
+	jp NextRadioLine
+
+RocketRadio4: ; b8e8d (2e:4e8d)
+	ld hl, UnknownText_0xb8ed4
+	ld a, $35
+	jp NextRadioLine
+
+RocketRadio5: ; b8e95 (2e:4e95)
+	ld hl, UnknownText_0xb8ed9
+	ld a, $36
+	jp NextRadioLine
+
+RocketRadio6: ; b8e9d (2e:4e9d)
+	ld hl, UnknownText_0xb8ede
+	ld a, $37
+	jp NextRadioLine
+
+RocketRadio7: ; b8ea5 (2e:4ea5)
+	ld hl, UnknownText_0xb8ee3
+	ld a, $38
+	jp NextRadioLine
+
+RocketRadio8: ; b8ead (2e:4ead)
+	ld hl, UnknownText_0xb8ee8
+	ld a, $39
+	jp NextRadioLine
+
+RocketRadio9: ; b8eb5 (2e:4eb5)
+	ld hl, UnknownText_0xb8eed
+	ld a, $3a
+	jp NextRadioLine
+
+RocketRadio10: ; b8ebd (2e:4ebd)
+	ld hl, UnknownText_0xb8ef2
+	ld a, $7
+	jp NextRadioLine
+; b8ec5 (2e:4ec5)
+
+UnknownText_0xb8ec5: ; 0xb8ec5
+	; … …Ahem, we are
+	text_jump UnknownText_0x1bcda8
+	db "@"
+; 0xb8eca
+
+UnknownText_0xb8eca: ; 0xb8eca
+	; TEAM ROCKET!
+	text_jump UnknownText_0x1bcdba
+	db "@"
+; 0xb8ecf
+
+UnknownText_0xb8ecf: ; 0xb8ecf
+	; After three years
+	text_jump UnknownText_0x1bcdc9
+	db "@"
+; 0xb8ed4
+
+UnknownText_0xb8ed4: ; 0xb8ed4
+	; of preparation, we
+	text_jump UnknownText_0x1bcddd
+	db "@"
+; 0xb8ed9
+
+UnknownText_0xb8ed9: ; 0xb8ed9
+	; have risen again
+	text_jump UnknownText_0x1bcdf2
+	db "@"
+; 0xb8ede
+
+UnknownText_0xb8ede: ; 0xb8ede
+	; from the ashes!
+	text_jump UnknownText_0x1bce05
+	db "@"
+; 0xb8ee3
+
+UnknownText_0xb8ee3: ; 0xb8ee3
+	; GIOVANNI! @ Can you
+	text_jump UnknownText_0x1bce17
+	db "@"
+; 0xb8ee8
+
+UnknownText_0xb8ee8: ; 0xb8ee8
+	; hear?@  We did it!
+	text_jump UnknownText_0x1bce2e
+	db "@"
+; 0xb8eed
+
+UnknownText_0xb8eed: ; 0xb8eed
+	; @ Where is our boss?
+	text_jump UnknownText_0x1bce44
+	db "@"
+; 0xb8ef2
+
+UnknownText_0xb8ef2: ; 0xb8ef2
+	; @ Is he listening?
+	text_jump UnknownText_0x1bce5c
+	db "@"
+; 0xb8ef7
+
+PokeFluteRadio: ; b8ef7 (2e:4ef7)
+	call StartRadioStation
+	ld a, $1
+	ld [wd005], a
+	ret
+
+EvolutionRadio: ; b8f00 (2e:4f00)
+	call StartRadioStation
+	ld a, $1
+	ld [wd005], a
+	ret
+
+UnownRadio: ; b8f09 (2e:4f09)
+	call StartRadioStation
+	ld a, $1
+	ld [wd005], a
+	ret
+
+BuenasPassword1: ; b8f12 (2e:4f12)
+; Determine if we need to be here
+	call BuenasPasswordCheckMidnight
+	jp nc, Functionb8f22
+	ld a, [wd005]
+	and a
+	jp z, BuenasPassword20
+	jp BuenasPassword8
+
+Functionb8f22: ; b8f22 (2e:4f22)
+	call StartRadioStation
+	ld a, [hBGMapMode] ; $ff00+$d4
+	push af
+	xor a
+	ld [hBGMapMode], a ; $ff00+$d4
+	ld de, String_b9171
+	hlcoord 2, 9
+	call PlaceString
+	pop af
+	ld [hBGMapMode], a ; $ff00+$d4
+	ld hl, UnknownText_0xb9182
+	ld a, $40
+	jp NextRadioLine
+
+BuenasPassword2: ; b8f3f (2e:4f3f)
+	ld hl, UnknownText_0xb9187
+	ld a, $41
+	jp NextRadioLine
+
+BuenasPassword3: ; b8f47 (2e:4f47)
+	call BuenasPasswordCheckMidnight
+	ld hl, UnknownText_0xb918c
+	jp c, BuenasPasswordAfterMidnight
+	ld a, $42
+	jp NextRadioLine
+
+BuenasPassword4: ; b8f55 (2e:4f55)
+	call BuenasPasswordCheckMidnight
+	jp c, BuenasPassword8
+	ld a, [wdc4a]
+; If we already generated the password today, we don't need to generate a new one.
+	ld hl, WeeklyFlags
+	bit 7, [hl]
+	jr nz, .AlreadyGotIt
+; There are only 11 groups to choose from.
+.greater_than_11
+	call Random
+	and $f
+	cp $b
+	jr nc, .greater_than_11
+; Store it in the high nybble of e.
+	swap a
+	ld e, a
+; For each group, choose one of the three passwords.
+.greater_than_three
+	call Random
+	and $3
+	cp $3
+	jr nc, .greater_than_three
+; The high nybble of wdc4a will now contain the password group index, and the low nybble contains the actual password.
+	add e
+	ld [wdc4a], a
+; Set the flag so that we don't generate a new password this week.
+	ld hl, WeeklyFlags
+	set 7, [hl]
+.AlreadyGotIt
+	ld c, a
+	call GetBuenasPassword
+	ld hl, UnknownText_0xb9191
+	ld a, $43
+	jp NextRadioLine
+
+GetBuenasPassword: ; b8f8f
+; The password indices are held in c.  High nybble contains the group index, low nybble contains the word index.
+; Load the password group pointer in hl.
+	ld a, c
+	swap a
+	and $f
+	ld hl, PasswordTable
+	ld d, 0
+	ld e, a
+rept 2
+	add hl, de
+endr
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+; Get the password type and store it in b.
+	ld a, [hli]
+	ld b, a
+	push hl
+	inc hl
+; Get the password index.
+	ld a, c
+	and $f
+	ld c, a
+	push hl
+	ld hl, .StringFunctionJumpTable
+	ld e, b
+rept 2
+	add hl, de
+endr
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	pop de ; de now contains the pointer to the value of this week's password, in Blue Card Points.
+	call _hl_
+	pop hl
+	ld c, [hl]
+	ret
+; b8fb8
+
+
+.StringFunctionJumpTable: ; b8fb8 (2e:4fb8)
+	dw .Mon
+	dw .Item
+	dw .Move
+	dw .RawString
+
+
+.Mon: ; b8fc0 (2e:4fc0)
+	call .GetTheIndex
+	call GetPokemonName
+	ret
+
+.Item: ; b8fc7 (2e:4fc7)
+	call .GetTheIndex
+	call GetItemName
+	ret
+
+.Move: ; b8fce (2e:4fce)
+	call .GetTheIndex
+	call GetMoveName
+	ret
+
+.GetTheIndex: ; b8fd5 (2e:4fd5)
+	ld h, 0
+	ld l, c
+	add hl, de
+	ld a, [hl]
+	ld [wd265], a
+	ret
+
+.RawString: ; b8fde (2e:4fde)
+; Get the string from the table...
+	ld a, c
+	and a
+	jr z, .skip
+.read_loop
+	ld a, [de]
+	inc de
+	cp "@"
+	jr nz, .read_loop
+	dec c
+	jr nz, .read_loop
+; ... and copy it into StringBuffer1.
+.skip
+	ld hl, StringBuffer1
+.copy_loop
+	ld a, [de]
+	inc de
+	ld [hli], a
+	cp "@"
+	jr nz, .copy_loop
+	ld de, StringBuffer1
+	ret
+; b8ff9 (2e:4ff9)
+
+PasswordTable: ; b8ff9
+	dw .JohtoStarters
+	dw .Beverages
+	dw .HealingItems
+	dw .Balls
+	dw .Pokemon1
+	dw .Pokemon2
+	dw .JohtoTowns
+	dw .Types
+	dw .Moves
+	dw .XItems
+	dw .RadioStations
+; b900f
+                     ; string type, points, option 1, option 2, option 3
+.JohtoStarters:      db BUENA_MON,    10, CYNDAQUIL, TOTODILE, CHIKORITA
+.Beverages:          db BUENA_ITEM,   12, FRESH_WATER, SODA_POP, LEMONADE
+.HealingItems:       db BUENA_ITEM,   12, POTION, ANTIDOTE, PARLYZ_HEAL
+.Balls:              db BUENA_ITEM,   12, POKE_BALL, GREAT_BALL, ULTRA_BALL
+.Pokemon1:           db BUENA_MON,    10, PIKACHU, RATTATA, GEODUDE
+.Pokemon2:           db BUENA_MON,    10, HOOTHOOT, SPINARAK, DROWZEE
+.JohtoTowns:         db BUENA_STRING, 16, "NEW BARK TOWN@", "CHERRYGROVE CITY@", "AZALEA TOWN@"
+.Types:              db BUENA_STRING,  6, "FLYING@", "BUG@", "GRASS@"
+.Moves:              db BUENA_MOVE,   12, TACKLE, GROWL, MUD_SLAP
+.XItems:             db BUENA_ITEM,   12, X_ATTACK, X_DEFEND, X_SPEED
+.RadioStations:      db BUENA_STRING, 13, "#MON Talk@", "#MON Music@", "Lucky Channel@"
+; b909c
+
+BuenasPassword5: ; b909c (2e:509c)
+	ld hl, UnknownText_0xb9196
+	ld a, $44
+	jp NextRadioLine
+
+BuenasPassword6: ; b90a4 (2e:50a4)
+	ld hl, UnknownText_0xb919b
+	ld a, $45
+	jp NextRadioLine
+
+BuenasPassword7: ; b90ac (2e:50ac)
+	call BuenasPasswordCheckMidnight
+	ld hl, UnknownText_0xb91a0
+	jr c, BuenasPasswordAfterMidnight
+	ld a, $4
+	jp NextRadioLine
+
+BuenasPasswordAfterMidnight: ; b90b9 (2e:50b9)
+	push hl
+	ld hl, WeeklyFlags
+	res 7, [hl]
+	pop hl
+	ld a, $46
+	jp NextRadioLine
+
+BuenasPassword8: ; b90c5 (2e:50c5)
+	ld hl, WeeklyFlags
+	res 7, [hl]
+	ld hl, UnknownText_0xb91d2
+	ld a, $47
+	jp NextRadioLine
+
+BuenasPassword9: ; b90d2 (2e:50d2)
+	ld hl, UnknownText_0xb91a5
+	ld a, $48
+	jp NextRadioLine
+
+BuenasPassword10: ; b90da (2e:50da)
+	ld hl, UnknownText_0xb91aa
+	ld a, $49
+	jp NextRadioLine
+
+BuenasPassword11: ; b90e2 (2e:50e2)
+	ld hl, UnknownText_0xb91af
+	ld a, $4a
+	jp NextRadioLine
+
+BuenasPassword12: ; b90ea (2e:50ea)
+	ld hl, UnknownText_0xb91b4
+	ld a, $4b
+	jp NextRadioLine
+
+BuenasPassword13: ; b90f2 (2e:50f2)
+	ld hl, UnknownText_0xb91b9
+	ld a, $4c
+	jp NextRadioLine
+
+BuenasPassword14: ; b90fa (2e:50fa)
+	ld hl, UnknownText_0xb91be
+	ld a, $4d
+	jp NextRadioLine
+
+BuenasPassword15: ; b9102 (2e:5102)
+	ld hl, UnknownText_0xb91c3
+	ld a, $4e
+	jp NextRadioLine
+
+BuenasPassword16: ; b910a (2e:510a)
+	ld hl, UnknownText_0xb91c8
+	ld a, $4f
+	jp NextRadioLine
+
+BuenasPassword17: ; b9112 (2e:5112)
+	ld hl, UnknownText_0xb91cd
+	ld a, $50
+	jp NextRadioLine
+
+BuenasPassword18: ; b911a (2e:511a)
+	ld hl, UnknownText_0xb91d2
+	ld a, $51
+	jp NextRadioLine
+
+BuenasPassword19: ; b9122 (2e:5122)
+	ld hl, UnknownText_0xb91d2
+	ld a, $52
+	jp NextRadioLine
+
+BuenasPassword20: ; b912a (2e:512a)
+	ld a, [hBGMapMode] ; $ff00+$d4
+	push af
+	callba NoRadioMusic
+	callba NoRadioName
+	pop af
+	ld [hBGMapMode], a ; $ff00+$d4
+	ld hl, WeeklyFlags
+	res 7, [hl]
+	ld a, $4
+	ld [wd002], a
+	xor a
+	ld [wd005], a
+	ld hl, UnknownText_0xb91d7
+	ld a, $53
+	jp NextRadioLine
+
+BuenasPassword21: ; b9152 (2e:5152)
+	ld a, $4
+	ld [wd002], a
+	xor a
+	ld [wd005], a
+	call BuenasPasswordCheckMidnight
+	jp nc, BuenasPassword1
+	ld hl, UnknownText_0xb91d7
+	ld a, $53
+	jp NextRadioLine
+
+BuenasPasswordCheckMidnight: ; b9169 (2e:5169)
+	call UpdateTime
+	ld a, [hHours] ; $ff00+$94
+	cp $12
+	ret
+; b9171 (2e:5171)
+
+String_b9171:
+	db "BUENA'S PASSWORD@"
+; b9182
+
+UnknownText_0xb9182: ; 0xb9182
+	; BUENA: BUENA here!
+	text_jump UnknownText_0x1bce72
+	db "@"
+; 0xb9187
+
+UnknownText_0xb9187: ; 0xb9187
+	; Today's password!
+	text_jump UnknownText_0x1bce87
+	db "@"
+; 0xb918c
+
+UnknownText_0xb918c: ; 0xb918c
+	; Let me think… It's
+	text_jump UnknownText_0x1bce9a
+	db "@"
+; 0xb9191
+
+UnknownText_0xb9191: ; 0xb9191
+	; @ !
+	text_jump UnknownText_0x1bceae
+	db "@"
+; 0xb9196
+
+UnknownText_0xb9196: ; 0xb9196
+	; Don't forget it!
+	text_jump UnknownText_0x1bceb7
+	db "@"
+; 0xb919b
+
+UnknownText_0xb919b: ; 0xb919b
+	; I'm in GOLDENROD's
+	text_jump UnknownText_0x1bcec9
+	db "@"
+; 0xb91a0
+
+UnknownText_0xb91a0: ; 0xb91a0
+	; RADIO TOWER!
+	text_jump UnknownText_0x1bcedc
+	db "@"
+; 0xb91a5
+
+UnknownText_0xb91a5: ; 0xb91a5
+	; BUENA: Oh my…
+	text_jump UnknownText_0x1bceeb
+	db "@"
+; 0xb91aa
+
+UnknownText_0xb91aa: ; 0xb91aa
+	; It's midnight! I
+	text_jump UnknownText_0x1bcefb
+	db "@"
+; 0xb91af
+
+UnknownText_0xb91af: ; 0xb91af
+	; have to shut down!
+	text_jump UnknownText_0x1bcf0d
+	db "@"
+; 0xb91b4
+
+UnknownText_0xb91b4: ; 0xb91b4
+	; Thanks for tuning
+	text_jump UnknownText_0x1bcf22
+	db "@"
+; 0xb91b9
+
+UnknownText_0xb91b9: ; 0xb91b9
+	; in to the end! But
+	text_jump UnknownText_0x1bcf36
+	db "@"
+; 0xb91be
+
+UnknownText_0xb91be: ; 0xb91be
+	; don't stay up too
+	text_jump UnknownText_0x1bcf4b
+	db "@"
+; 0xb91c3
+
+UnknownText_0xb91c3: ; 0xb91c3
+	; late! Presented to
+	text_jump UnknownText_0x1bcf5e
+	db "@"
+; 0xb91c8
+
+UnknownText_0xb91c8: ; 0xb91c8
+	; you by DJ BUENA!
+	text_jump UnknownText_0x1bcf73
+	db "@"
+; 0xb91cd
+
+UnknownText_0xb91cd: ; 0xb91cd
+	; I'm outta here!
+	text_jump UnknownText_0x1bcf86
+	db "@"
+; 0xb91d2
+
+UnknownText_0xb91d2: ; 0xb91d2
+	; …
+	text_jump UnknownText_0x1bcf96
+	db "@"
+; 0xb91d7
+
+UnknownText_0xb91d7: ; 0xb91d7
+	;
+	text_jump UnknownText_0x1bcf99
+	db "@"
+; 0xb91dc
+
+CopyRadioTextToRAM: ; b91dc (2e:51dc)
+	ld a, [hl]
+	cp TX_FAR
+	jp z, FarJumpText
+	ld de, wd00c
+	ld bc, SCREEN_WIDTH * 2
+	jp CopyBytes
+
+StartRadioStation: ; b91eb (2e:51eb)
+	ld a, [wd005]
+	and a
+	ret nz
+	call RadioTerminator
+	call PrintText
+	ld hl, RadioChannelSongs
+	ld a, [wd002]
+	ld c, a
+	ld b, 0
+rept 2
+	add hl, bc
+endr
+	ld e, [hl]
+	inc hl
+	ld d, [hl]
+	callab RadioMusicNone
+	ret
+; b920b (2e:520b)
+
+RadioChannelSongs: ; b920b
+	dw MUSIC_POKEMON_TALK
+	dw MUSIC_POKEMON_CENTER
+	dw MUSIC_TITLE
+	dw MUSIC_GAME_CORNER
+	dw MUSIC_BUENAS_PASSWORD
+	dw MUSIC_VIRIDIAN_CITY
+	dw MUSIC_BICYCLE
+	dw MUSIC_ROCKET_OVERTURE
+	dw MUSIC_POKE_FLUTE_CHANNEL
+	dw MUSIC_RUINS_OF_ALPH_RADIO
+	dw MUSIC_LAKE_OF_RAGE_ROCKET_RADIO
+; b9221
+
+NextRadioLine: ; b9221 (2e:5221)
+	push af
+	call CopyRadioTextToRAM
+	pop af
+	jp PrintRadioLine
+; b9229
diff --git a/engine/scripting.asm b/engine/scripting.asm
index 709a75c25..b01ac0c52 100644
--- a/engine/scripting.asm
+++ b/engine/scripting.asm
@@ -475,7 +475,7 @@ Script_loadmenudata: ; 0x96efa
 	ld de, LoadMenuDataHeader
 	ld a, [ScriptBank]
 	call Call_a_de
-	call DrawOnMap
+	call UpdateSprites
 	ret
 ; 0x96f0f
 
@@ -483,7 +483,7 @@ Script_writebackup: ; 0x96f0f
 ; script command 0x50
 
 	call WriteBackup
-	call DrawOnMap
+	call UpdateSprites
 	ret
 ; 0x96f16
 
@@ -1212,7 +1212,7 @@ ApplyPersonFacing: ; 0x9728b
 	jr nz, .asm_972b5 ; 0x972b0 $3
 	call Function972bc
 .asm_972b5
-	call DrawOnMap
+	call UpdateSprites
 	ret
 .not_visible
 	pop de
@@ -1222,8 +1222,8 @@ ApplyPersonFacing: ; 0x9728b
 
 Function972bc: ; 0x972bc
 	call Function217a
-	ld hl, TileMap
-	ld bc, $0168
+	hlcoord 0, 0
+	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
 .asm_972c5
 	res 7, [hl]
 	inc hl
@@ -2970,7 +2970,7 @@ Script_reloadmappart:: ; 0x97ae3
 	call Function2173
 	call Function2914
 	callba Function104061
-	call DrawOnMap
+	call UpdateSprites
 	ret
 ; 0x97af6
 
diff --git a/engine/specials.asm b/engine/specials.asm
index e4e2005a6..d91692786 100644
--- a/engine/specials.asm
+++ b/engine/specials.asm
@@ -75,7 +75,7 @@ SpecialsPointers:: ; c029
 	add_special WhiteBGMap
 	add_special UpdateTimePals
 	add_special ClearTileMap
-	add_special DrawOnMap
+	add_special UpdateSprites
 	add_special Special_ReplaceKrisSprite
 	add_special Special_GameCornerPrizeMonCheckDex
 	add_special SpecialSeenMon
@@ -110,7 +110,7 @@ SpecialsPointers:: ; c029
 	add_special SpecialNameRater
 	add_special Functionc2da
 	add_special GetFirstPokemonHappiness
-	add_special Function71ac
+	add_special CheckFirstMonIsEgg
 	add_special Function2a4ab
 	add_special Function2a51f
 	add_special RandomPhoneMon
diff --git a/home.asm b/home.asm
index 47ea6d370..233c0c9a7 100644
--- a/home.asm
+++ b/home.asm
@@ -217,7 +217,7 @@ Function309d:: ; 309d
 	push af
 	ld a, 2
 	ld [rSVBK], a
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld de, w2_d000
 	ld bc, TileMapEnd - TileMap
 	call CopyBytes
@@ -241,7 +241,7 @@ Function30bf:: ; 30bf
 	ld a, 2
 	ld [rSVBK], a
 	ld hl, w2_d000
-	ld de, TileMap
+	decoord 0, 0
 	ld bc, TileMapEnd - TileMap
 	call CopyBytes
 	pop af
@@ -271,7 +271,7 @@ IsInArray:: ; 30e1
 	ld c, a
 .loop
 	ld a, [hl]
-	cp $ff
+	cp -1
 	jr z, .NotInArray
 	cp c
 	jr z, .InArray
@@ -626,11 +626,11 @@ Function3246:: ; 3246
 	di
 	ld a, $1
 	ld [rVBK], a
-	ld hl, AttrMap
+	hlcoord 0, 0, AttrMap
 	call Function327b
 	ld a, $0
 	ld [rVBK], a
-	ld hl, TileMap
+	hlcoord 0, 0
 	call Function327b
 .wait2
 	ld a, [rLY]
@@ -761,7 +761,7 @@ GetSGBLayout:: ; 3340
 	ret z
 
 .sgb
-	predef_jump Function864c ; LoadSGBLayout
+	predef_jump Predef_LoadSGBLayout ; LoadSGBLayout
 ; 334e
 
 
@@ -2153,11 +2153,11 @@ endr
 ; 3f20
 
 Function3f20:: ; 3f20
-	ld hl, AttrMap
+	hlcoord 0, 0, AttrMap
 	ld b, $6
 	ld c, $14
 	call Function3f35
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld b, $4
 	ld c, $12
 	call Function3f47
diff --git a/home/battle.asm b/home/battle.asm
index 9b89e673c..a374d59bc 100644
--- a/home/battle.asm
+++ b/home/battle.asm
@@ -312,7 +312,7 @@ BattleTextBox:: ; 3ac3
 	push hl
 	call SpeechTextBox
 	call MobileTextBorder
-	call DrawOnMap
+	call UpdateSprites
 	call Function321c
 	pop hl
 	call PrintTextBoxText
diff --git a/home/map.asm b/home/map.asm
index 2954c7d41..d3b397e50 100644
--- a/home/map.asm
+++ b/home/map.asm
@@ -97,7 +97,7 @@ GetMapTrigger:: ; 2147
 
 Function2173:: ; 2173
 	call Function217a
-	call Functiondb1
+	call FarCallFunction4c000
 	ret
 ; 217a
 
@@ -110,7 +110,7 @@ Function217a:: ; 217a
 
 	call Function2198
 	ld a, $60
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld bc, TileMapEnd - TileMap
 	call ByteFill
 
@@ -1143,7 +1143,7 @@ ObjectEvent:: ; 0x26ef
 ; 0x26f2
 
 ObjectEventText::
-	TX_FAR _ObjectEventText
+	text_jump _ObjectEventText
 	db "@"
 ; 0x26f7
 
@@ -1200,11 +1200,11 @@ Function271e:: ; 271e
 
 
 Function272a:: ; 272a
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld de, BGMapBuffer
 	call Function27b7
 	ld c, $28
-	call Functiondbd
+	call FarCallFunction4c03f
 	ld a, [wd152]
 	ld e, a
 	ld a, [wd153]
@@ -1220,7 +1220,7 @@ Function2748:: ; 2748
 	ld de, BGMapBuffer
 	call Function27b7
 	ld c, $28
-	call Functiondbd
+	call FarCallFunction4c03f
 	ld a, [wd152]
 	ld l, a
 	ld a, [wd153]
@@ -1239,11 +1239,11 @@ Function2748:: ; 2748
 ; 2771
 
 Function2771:: ; 2771
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld de, BGMapBuffer
 	call Function27c0
 	ld c, $24
-	call Functiondbd
+	call FarCallFunction4c03f
 	ld a, [wd152]
 	ld e, a
 	ld a, [wd153]
@@ -1259,7 +1259,7 @@ Function278f:: ; 278f
 	ld de, BGMapBuffer
 	call Function27c0
 	ld c, $24
-	call Functiondbd
+	call FarCallFunction4c03f
 	ld a, [wd152]
 	ld e, a
 	and $e0
@@ -1966,7 +1966,7 @@ FadeToMenu:: ; 2b29
 Function2b3c:: ; 2b3c
 	call WhiteBGMap
 	call Function2bae
-	call DrawOnMap
+	call UpdateSprites
 	call Function1d7d
 	call Functiond90
 	jr Function2b5c
@@ -1976,7 +1976,7 @@ Function2b4d:: ; 2b4d
 	call WhiteBGMap
 	call Function1d7d
 	call Function2bae
-	call DrawOnMap
+	call UpdateSprites
 	call Functiond90
 ; 2b5c
 
@@ -2003,7 +2003,7 @@ Function2b74:: ; 0x2b74
 	call TextBox
 	ld hl, VramState
 	set 0, [hl]
-	call DrawOnMap
+	call UpdateSprites
 	call Function3200
 	ld b, $9
 	call GetSGBLayout
diff --git a/home/map_objects.asm b/home/map_objects.asm
index 2b7bd9a92..4f22c6203 100644
--- a/home/map_objects.asm
+++ b/home/map_objects.asm
@@ -623,7 +623,7 @@ ResetVramState_Bit0:: ; 1acc
 ; 1ad2
 
 
-DrawOnMap:: ; 1ad2
+UpdateSprites:: ; 1ad2
 	ld a, [VramState]
 	bit 0, a
 	ret z
diff --git a/home/menu.asm b/home/menu.asm
index 2b9885834..82bac3b99 100644
--- a/home/menu.asm
+++ b/home/menu.asm
@@ -75,7 +75,7 @@ InterpretMenu2:: ; 0x1d81
 	xor a
 	ld [hBGMapMode], a
 	call Function1cbb
-	call DrawOnMap
+	call UpdateSprites
 	call Function1c89
 	call Function321c
 	call Function1c66
diff --git a/home/movement.asm b/home/movement.asm
index e6e2e1025..87f28f5ca 100644
--- a/home/movement.asm
+++ b/home/movement.asm
@@ -209,7 +209,7 @@ WriteBackup:: ; 0x1c17
 	push af
 	call ExitMenu
 	call Function321c
-	call DrawOnMap
+	call UpdateSprites
 	pop af
 	ret
 
diff --git a/home/palettes.asm b/home/palettes.asm
index 1a24fbe89..333ae78fe 100644
--- a/home/palettes.asm
+++ b/home/palettes.asm
@@ -323,7 +323,7 @@ Special_ReloadSpritesNoPalettes:: ; d91
 ; db1
 
 
-Functiondb1:: ; db1
+FarCallFunction4c000:: ; db1
 	ld a, [hROMBank]
 	push af
 	ld a, BANK(Function4c000)
@@ -334,7 +334,7 @@ Functiondb1:: ; db1
 	ret
 ; dbd
 
-Functiondbd:: ; dbd
+FarCallFunction4c03f:: ; dbd
 	ld a, [hROMBank]
 	push af
 	ld a, BANK(Function4c03f)
diff --git a/home/text.asm b/home/text.asm
index 98ca87051..c76504c53 100644
--- a/home/text.asm
+++ b/home/text.asm
@@ -37,7 +37,7 @@ Functionfb8::
 ClearTileMap:: ; fc8
 ; Fill TileMap with blank tiles.
 
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld a, " "
 	ld bc, TileMapEnd - TileMap
 	call ByteFill
@@ -52,7 +52,7 @@ ClearTileMap:: ; fc8
 
 ClearScreen:: ; fdb
 	ld a, TEXTBOX_PAL
-	ld hl, AttrMap
+	hlcoord 0, 0, AttrMap
 	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
 	call ByteFill
 	jr ClearTileMap
@@ -163,7 +163,7 @@ TestText:: ; 1048
 	done
 ; 1052
 
-Function1052:: ; 1052
+RadioTerminator:: ; 1052
 	ld hl, .stop
 	ret
 .stop	db "@"
@@ -181,14 +181,14 @@ Function105a:: ; 105a
 
 PrintTextBoxText:: ; 1065
 	bccoord TEXTBOX_INNERX, TEXTBOX_INNERY
-	call Function13e5
+	call PlaceWholeStringInBoxAtOnce
 	ret
 ; 106c
 
 SetUpTextBox:: ; 106c
 	push hl
 	call SpeechTextBox
-	call DrawOnMap
+	call UpdateSprites
 	call Function321c
 	pop hl
 	ret
@@ -478,7 +478,7 @@ Char16:: ; 12b9
 	jr .asm_12c4
 
 .asm_12d1
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld de, SCREEN_WIDTH
 	ld a, c
 .asm_12d8
@@ -697,7 +697,7 @@ Function13e0:: ; 13e0
 ; 13e5
 
 
-Function13e5:: ; 13e5
+PlaceWholeStringInBoxAtOnce:: ; 13e5
 	ld a, [TextBoxFrame + 1]
 	push af
 	set 1, a
@@ -780,7 +780,7 @@ Text_00:: ; 143e
 ; 1449
 
 Text_01:: ; 1449
-; TX_RAM
+; text_from_ram
 ; write text from a ram address
 ; little endian
 ; [$01][addr]
@@ -798,7 +798,7 @@ Text_01:: ; 1449
 ; 1455
 
 Text_16:: ; 1455
-; TX_FAR
+; text_jump
 ; write text from a different bank
 ; little endian
 ; [$16][addr][bank]
diff --git a/home/tilemap.asm b/home/tilemap.asm
index c9eaaba67..d0875c37b 100644
--- a/home/tilemap.asm
+++ b/home/tilemap.asm
@@ -186,7 +186,7 @@ endr
 	xor a
 	ld b, a
 	add hl, bc
-	ld bc, TileMap
+	bccoord 0, 0
 	add hl, bc
 	ret
 ; 1d19
@@ -216,7 +216,7 @@ endr
 	xor a
 	ld b, a
 	add hl, bc
-	ld bc, AttrMap
+	bccoord 0, 0, AttrMap
 	add hl, bc
 	ret
 ; 1d35
diff --git a/home/video.asm b/home/video.asm
index 440c90307..b7e9f4db5 100644
--- a/home/video.asm
+++ b/home/video.asm
@@ -169,7 +169,7 @@ UpdateBGMap:: ; 164c
 	ld a, 1
 	ld [rVBK], a
 
-	ld hl, AttrMap
+	hlcoord 0, 0, AttrMap
 	call .update
 
 	ld a, 0
@@ -178,7 +178,7 @@ UpdateBGMap:: ; 164c
 
 
 .Tiles
-	ld hl, TileMap
+	hlcoord 0, 0
 
 
 .update
diff --git a/home/window.asm b/home/window.asm
index 850b7466e..0d30cfbdd 100644
--- a/home/window.asm
+++ b/home/window.asm
@@ -83,7 +83,7 @@ Function2e31:: ; 2e31
 	ld [hBGMapMode], a
 	ld a, $1
 	ld [hOAMUpdate], a
-	call DrawOnMap
+	call UpdateSprites
 	xor a
 	ld [hOAMUpdate], a
 	call DelayFrame
diff --git a/items/item_effects.asm b/items/item_effects.asm
index 31403dc78..599ecc6bb 100644
--- a/items/item_effects.asm
+++ b/items/item_effects.asm
@@ -1912,7 +1912,7 @@ Functionf24a: ; f24a (3:724a)
 Functionf279: ; f279 (3:7279)
 	xor a
 	ld [hBGMapMode], a
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld bc, TileMapEnd - TileMap
 	ld a, " "
 	call ByteFill
diff --git a/macros/movement.asm b/macros/movement.asm
index a647e4176..d0b97fb8c 100644
--- a/macros/movement.asm
+++ b/macros/movement.asm
@@ -359,12 +359,12 @@ __enum__ = $51
 
 	enum movement_fish_got_bite
 fish_got_bite: macro
-	db movement_fish_got_bite
+	db movement_fish_got_bite ; $51
 	endm
 
 	enum movement_fish_got_bite_2
 fish_got_bite_2: macro
-	db movement_fish_got_bite_2
+	db movement_fish_got_bite_2 ; $52
 	endm
 
 	enum movement_hide_emote
@@ -382,3 +382,10 @@ step_shake: macro
 	db movement_step_shake ; $55
 	db \1 ; displacement
 	endm
+
+__enum__ = $57
+	enum movement_rock_smash
+rock_smash: macro
+	db movement_rock_smash ; $57
+	db \1
+	endm
diff --git a/macros/text.asm b/macros/text.asm
index 8174c5200..3a3efe48e 100644
--- a/macros/text.asm
+++ b/macros/text.asm
@@ -12,19 +12,19 @@ page   EQUS "db $50,"     ; Start a new Pokedex page.
 dex    EQUS "db $e8, $50" ; End a Pokedex entry.
 
 
-TX_RAM: MACRO
-	db 1
-	dw \1
-	ENDM
+TX_RAM EQU 1
+TX_FAR EQU $16
 
-TX_FAR: MACRO
-	db $16
+text_jump: MACRO
+	db TX_FAR
 	dw \1
 	db BANK(\1)
 	ENDM
 
-
-text_from_ram EQUS "TX_RAM"
+text_from_ram: MACRO
+	db TX_RAM
+	dw \1
+	ENDM
 
 text_dunno1: macro
 	db 5
@@ -81,4 +81,3 @@ current_day: macro
 	db $15
 	endm
 
-text_jump EQUS "TX_FAR"
diff --git a/main.asm b/main.asm
index 9a3e55d5d..61e994922 100644
--- a/main.asm
+++ b/main.asm
@@ -201,7 +201,7 @@ _ResetWRAM: ; 5bae
 	ld [wd84b], a
 
 	ld hl, PartyCount
-	call Function5ca1
+	call InitializePartyAndBag
 
 	xor a
 	ld [wCurBox], a
@@ -212,20 +212,20 @@ _ResetWRAM: ; 5bae
 	ld a, 1
 	call GetSRAMBank
 	ld hl, sBoxCount
-	call Function5ca1
+	call InitializePartyAndBag
 	call CloseSRAM
 
 	ld hl, NumItems
-	call Function5ca1
+	call InitializePartyAndBag
 
 	ld hl, NumKeyItems
-	call Function5ca1
+	call InitializePartyAndBag
 
 	ld hl, NumBalls
-	call Function5ca1
+	call InitializePartyAndBag
 
 	ld hl, PCItems
-	call Function5ca1
+	call InitializePartyAndBag
 
 	xor a
 	ld [wRoamMon1Species], a
@@ -249,7 +249,7 @@ _ResetWRAM: ; 5bae
 	call CloseSRAM
 
 	call Function5d33
-	call Function5cd3
+	call InitializeRalphName
 
 	xor a
 	ld [MonType], a
@@ -281,7 +281,7 @@ ENDC
 	inc hl
 	ld [hl], 2300 % $100
 
-	call Function5ce9
+	call InitializeNPCNames
 
 	callba Function26751
 
@@ -293,7 +293,8 @@ ENDC
 	ret
 ; 5ca1
 
-Function5ca1: ; 5ca1
+InitializePartyAndBag: ; 5ca1
+; Loads 0 in the count and -1 in the first item or mon slot.
 	xor a
 	ld [hli], a
 	dec a
@@ -334,7 +335,7 @@ SetDefaultBoxNames: ; 5ca6
 	db "BOX@"
 ; 5cd3
 
-Function5cd3: ; 5cd3
+InitializeRalphName: ; 5cd3
 	ld hl, wdfe8
 	ld a, $3
 	ld [hli], a
@@ -349,7 +350,7 @@ Function5cd3: ; 5cd3
 	db "RALPH@"
 ; 5ce9
 
-Function5ce9: ; 5ce9
+InitializeNPCNames: ; 5ce9
 	ld hl, .Rival
 	ld de, RivalName
 	call .Copy
@@ -377,7 +378,7 @@ Function5ce9: ; 5ce9
 ; 5d23
 
 InitializeWorld: ; 5d23
-	call Function610f
+	call ShrinkPlayer
 	callba GetSpawnCoord
 	callba Function113d6
 	ret
@@ -394,14 +395,14 @@ Function5d33: ; 5d33
 	ld a, [$ac6a]
 	ld c, a
 	ld a, [$ac69]
-	jr z, .asm_5d55
+	jr z, .skip
 	ld a, b
 	ld [$ac68], a
 	call Random
 	ld c, a
 	call Random
 
-.asm_5d55
+.skip
 	ld [wdc9f], a
 	ld [$ac69], a
 	ld a, c
@@ -412,7 +413,7 @@ Function5d33: ; 5d33
 
 Continue: ; 5d65
 	callba TryLoadSaveFile
-	jr c, .asm_5dd6
+	jr c, .FailToLoad
 	callba Function150b9
 	call Function1d6e
 	call Function5e85
@@ -423,13 +424,13 @@ Continue: ; 5d65
 	call Function5e34
 	jr nc, .asm_5d8c
 	call WriteBackup
-	jr .asm_5dd6
+	jr .FailToLoad
 
 .asm_5d8c
 	call Function5e48
 	jr nc, .asm_5d96
 	call WriteBackup
-	jr .asm_5dd6
+	jr .FailToLoad
 
 .asm_5d96
 	ld a, $8
@@ -454,7 +455,7 @@ Continue: ; 5d65
 	ld [$ff9f], a
 	jp Function5e5d
 
-.asm_5dd6
+.FailToLoad
 	ret
 
 .asm_5dd7
@@ -567,13 +568,13 @@ Function5e85: ; 5e85
 	ret
 
 .asm_5e93
-	ld de, $0408
+	lb de, 4, 8
 	call Function5e9f
 	ret
 ; 5e9a
 
 Function5e9a: ; 5e9a
-	ld de, $0400
+	lb de, 4, 0
 	jr Function5e9f
 ; 5e9f
 
@@ -582,7 +583,7 @@ Function5e9f: ; 5e9f
 	call Function5f1c
 	call Function5f40
 	call Functione5f
-	call DrawOnMap
+	call UpdateSprites
 	ret
 ; 5eaf
 
@@ -591,7 +592,7 @@ Function5eaf: ; 5eaf
 	call Function5f1c
 	call Function5f48
 	call Functione5f
-	call DrawOnMap
+	call UpdateSprites
 	ret
 ; 5ebf
 
@@ -651,12 +652,12 @@ Function5f1c: ; 5f1c
 	push hl
 	ld de, $005d
 	add hl, de
-	call Function5f58
+	call DisplayBadgeCount
 	pop hl
 	push hl
 	ld de, $0084
 	add hl, de
-	call Function5f6b
+	call DisplayPokedexNumCaught
 	pop hl
 	push hl
 	ld de, $0030
@@ -673,7 +674,7 @@ Function5f1c: ; 5f1c
 Function5f40: ; 5f40
 	ld de, $00a9
 	add hl, de
-	call Function5f84
+	call DisplayGameTime
 	ret
 ; 5f48
 
@@ -688,18 +689,18 @@ Function5f48: ; 5f48
 	db " ???@"
 ; 5f58
 
-Function5f58: ; 5f58
+DisplayBadgeCount: ; 5f58
 	push hl
 	ld hl, JohtoBadges
 	ld b, $2
 	call CountSetBits
 	pop hl
 	ld de, wd265
-	ld bc, $0102
+	lb bc, 1, 2
 	jp PrintNum
 ; 5f6b
 
-Function5f6b: ; 5f6b
+DisplayPokedexNumCaught: ; 5f6b
 	ld a, [StatusFlags]
 	bit 0, a
 	ret z
@@ -709,18 +710,18 @@ Function5f6b: ; 5f6b
 	call CountSetBits
 	pop hl
 	ld de, wd265
-	ld bc, $0103
+	lb bc, 1, 3
 	jp PrintNum
 ; 5f84
 
-Function5f84: ; 5f84
+DisplayGameTime: ; 5f84
 	ld de, GameTimeHours
-	ld bc, $0203
+	lb bc, 2, 3
 	call PrintNum
 	ld [hl], $6d
 	inc hl
 	ld de, GameTimeMinutes
-	ld bc, $8102
+	lb bc, $81, 2
 	jp PrintNum
 ; 5f99
 
@@ -804,11 +805,11 @@ OakSpeech: ; 0x5f99
 	ret
 
 OakText1: ; 0x6045
-	TX_FAR _OakText1
+	text_jump _OakText1
 	db "@"
 
 OakText2: ; 0x604a
-	TX_FAR _OakText2
+	text_jump _OakText2
 	start_asm
 	ld a,WOOPER
 	call PlayCry
@@ -817,23 +818,23 @@ OakText2: ; 0x604a
 	ret
 
 OakText3: ; 0x605b
-	TX_FAR _OakText3
+	text_jump _OakText3
 	db "@"
 
 OakText4: ; 0x6060
-	TX_FAR _OakText4
+	text_jump _OakText4
 	db "@"
 
 OakText5: ; 0x6065
-	TX_FAR _OakText5
+	text_jump _OakText5
 	db "@"
 
 OakText6: ; 0x606a
-	TX_FAR _OakText6
+	text_jump _OakText6
 	db "@"
 
 OakText7: ; 0x606f
-	TX_FAR _OakText7
+	text_jump _OakText7
 	db "@"
 
 NamePlayer: ; 0x6074
@@ -870,9 +871,9 @@ NamePlayer: ; 0x6074
 	ld de, .Chris
 	ld a, [PlayerGender]
 	bit 0, a
-	jr z, .asm_60cf
+	jr z, .Male
 	ld de, .Kris
-.asm_60cf
+.Male
 	call InitName
 	ret
 
@@ -903,7 +904,7 @@ StorePlayerName: ; 60fa
 	ret
 ; 610f
 
-Function610f: ; 610f
+ShrinkPlayer: ; 610f
 
 	ld a, [hROMBank]
 	push af
@@ -926,14 +927,14 @@ Function610f: ; 610f
 
 	ld hl, Shrink1Pic
 	ld b, BANK(Shrink1Pic)
-	call Function61b4
+	call ShrinkFrame
 
 	ld c, 8
 	call DelayFrames
 
 	ld hl, Shrink2Pic
 	ld b, BANK(Shrink2Pic)
-	call Function61b4
+	call ShrinkFrame
 
 	ld c, 8
 	call DelayFrames
@@ -960,13 +961,13 @@ Function610f: ; 610f
 Intro_FadeInFrontpic: ; 616a
 	ld hl, IntroFadePalettes
 	ld b, IntroFadePalettesEnd - IntroFadePalettes
-.asm_616f
+.loop
 	ld a, [hli]
 	call DmgToCgbBGPals
 	ld c, 10
 	call DelayFrames
 	dec b
-	jr nz, .asm_616f
+	jr nz, .loop
 	ret
 ; 617c
 
@@ -984,13 +985,13 @@ Intro_WipeInFrontpic: ; 6182
 	ld a, $77
 	ld [hWX], a
 	call DelayFrame
-	ld a, $e4
+	ld a, %11100100
 	call DmgToCgbBGPals
 .loop
 	call DelayFrame
 	ld a, [hWX]
 	sub $8
-	cp $ff
+	cp -1
 	ret z
 	ld [hWX], a
 	jr .loop
@@ -1007,7 +1008,7 @@ Function619c: ; 619c
 	ret
 ; 61b4
 
-Function61b4: ; 61b4
+ShrinkFrame: ; 61b4
 	ld de, VTiles2
 	ld c, $31
 	predef DecompressPredef
@@ -1604,7 +1605,7 @@ LearnMove: ; 6508
 	jr nz, .next
 
 	push de
-	call Function65d3
+	call ForgetMove
 	pop de
 	jp c, .cancel
 
@@ -1693,7 +1694,7 @@ LearnMove: ; 6508
 	ret
 ; 65d3
 
-Function65d3: ; 65d3
+ForgetMove: ; 65d3
 	push hl
 	ld hl, UnknownText_0x667f
 	call PrintText
@@ -1707,7 +1708,7 @@ Function65d3: ; 65d3
 	ld bc, NUM_MOVES
 	call CopyBytes
 	pop hl
-.asm_65ee
+.loop
 	push hl
 	ld hl, UnknownText_0x6670
 	call PrintText
@@ -1744,7 +1745,7 @@ Function65d3: ; 65d3
 	pop af
 	pop hl
 	bit 1, a
-	jr nz, .asm_6669
+	jr nz, .cancel
 	push hl
 	ld a, [wcfa9]
 	dec a
@@ -1758,19 +1759,19 @@ Function65d3: ; 65d3
 	pop bc
 	pop de
 	ld a, d
-	jr c, .asm_6660
+	jr c, .hmmove
 	pop hl
 	add hl, bc
 	and a
 	ret
 
-.asm_6660
+.hmmove
 	ld hl, UnknownText_0x669a
 	call PrintText
 	pop hl
-	jr .asm_65ee
+	jr .loop
 
-.asm_6669
+.cancel
 	scf
 	ret
 ; 666b
@@ -1846,7 +1847,7 @@ CheckNickErrors:: ; 669f
 	inc hl
 ; reached end of commands table?
 	ld a, [hl]
-	cp a, $ff
+	cp a, -1
 	jr z, .done
 
 ; is the current char between this value (inclusive)...
@@ -2691,7 +2692,7 @@ GetFirstPokemonHappiness: ; 718d
 	jp CopyPokemonName_Buffer1_Buffer3
 ; 71ac
 
-Function71ac: ; 71ac
+CheckFirstMonIsEgg: ; 71ac
 	ld a, [PartySpecies]
 	ld [wd265], a
 	cp EGG
@@ -3751,7 +3752,7 @@ Function8388: ; 8388
 ; 839a
 
 .data_839a
-	db 8, 9, 10, 11
+	db 8 + DOWN, 8 + UP, 8 + LEFT, 8 + RIGHT
 ; 839e
 
 
@@ -4026,7 +4027,7 @@ _Sine:: ; 84d9
 	and %011111
 	call Function84ef
 	ld a, h
-	xor $ff
+	xor -1
 	inc a
 	ret
 ; 84ef
@@ -4091,7 +4092,7 @@ TimeOfDayTable: ; c012
 	db DAY,  2
 	db NITE, 4
 	db NITE, 4
-	db $ff
+	db -1
 ; c01b
 
 
@@ -4584,7 +4585,7 @@ CheckBadge: ; c731
 BadgeRequiredText: ; c73d
 	; Sorry! A new BADGE
 	; is required.
-	TX_FAR _BadgeRequiredText
+	text_jump _BadgeRequiredText
 	db "@"
 ; c742
 
@@ -4756,14 +4757,14 @@ CutDownTreeOrGrass: ; c810
 	xor a
 	ld [hBGMapMode], a
 	call Function2173
-	call DrawOnMap
+	call UpdateSprites
 	call DelayFrame
 	ld a, [wd1ef]
 	ld e, a
 	callba Function8c940
 	call BufferScreen
 	call Function2914
-	call DrawOnMap
+	call UpdateSprites
 	call DelayFrame
 	call Functione51
 	ret
@@ -5019,17 +5020,17 @@ Functionc9a2: ; c9a2
 ; c9a9
 
 UsedSurfText: ; c9a9
-	TX_FAR _UsedSurfText
+	text_jump _UsedSurfText
 	db "@"
 ; c9ae
 
 CantSurfText: ; c9ae
-	TX_FAR _CantSurfText
+	text_jump _CantSurfText
 	db "@"
 ; c9b3
 
 AlreadySurfingText: ; c9b3
-	TX_FAR _AlreadySurfingText
+	text_jump _AlreadySurfingText
 	db "@"
 ; c9b8
 
@@ -5146,7 +5147,7 @@ AskSurfScript: ; ca2c
 ; ca36
 
 AskSurfText: ; ca36
-	TX_FAR _AskSurfText ; The water is calm.
+	text_jump _AskSurfText ; The water is calm.
 	db "@"              ; Want to SURF?
 ; ca3b
 
@@ -5233,7 +5234,7 @@ FlyFunction: ; ca3b
 	special WarpToSpawnPoint
 	callasm DelayLoadingNewSprites
 	writecode VAR_MOVEMENT, $0
-	newloadmap $fc
+	newloadmap -4
 	callasm Function8cb33
 	special WaitSFX
 	callasm Functioncacb
@@ -5501,7 +5502,7 @@ UsedDigOrEscapeRopeScript: ; 0xcc3c
 	farscall UnknownScript_0x122c1
 	special WarpToSpawnPoint
 	writecode VAR_MOVEMENT, $0
-	newloadmap $f5
+	newloadmap -11
 	playsound SFX_WARP_FROM
 	applymovement $0, MovementData_0xcc5d
 	end
@@ -5599,7 +5600,7 @@ Script_UsedTeleport: ; 0xccbb
 	farscall UnknownScript_0x122c1
 	special WarpToSpawnPoint
 	writecode VAR_MOVEMENT, $0
-	newloadmap $f4
+	newloadmap -12
 	playsound SFX_WARP_FROM
 	applymovement $0, MovementData_0xcce3
 	end
@@ -5689,12 +5690,12 @@ Script_UsedStrength: ; 0xcd2d
 
 UnknownText_0xcd41: ; 0xcd41
 	text_jump UnknownText_0x1c0774
-	db $50
+	db "@"
 ; 0xcd46
 
 UnknownText_0xcd46: ; 0xcd46
 	text_jump UnknownText_0x1c0788
-	db $50
+	db "@"
 ; 0xcd4b
 
 AskStrengthScript:
@@ -6096,7 +6097,7 @@ RockSmashScript: ; cf32
 ; 0xcf55
 
 MovementData_0xcf55: ; 0xcf55
-	db $57, $0a
+	rock_smash 10
 	step_end
 
 UnknownText_0xcf58: ; 0xcf58
@@ -6334,7 +6335,7 @@ Script_FishCastRod: ; 0xd07c
 ; 0xd093
 
 MovementData_0xd093: ; d093
-	db $52
+	fish_got_bite_2
 	step_end
 ; d095
 
@@ -6343,7 +6344,7 @@ PutTheRodAway: ; d095
 	ld [hBGMapMode], a
 	ld a, $1
 	ld [PlayerAction], a
-	call DrawOnMap
+	call UpdateSprites
 	call Special_ReplaceKrisSprite
 	ret
 ; d0a4
@@ -12880,7 +12881,7 @@ StartMenu:: ; 125cd
 	jr .Select
 
 .Reopen
-	call DrawOnMap
+	call UpdateSprites
 	call UpdateTimePals
 	call .SetUpMenuItems
 	ld a, [wd0d2]
@@ -12996,7 +12997,7 @@ endr
 	call .DrawMenuAccount_
 	call MenuFunc_1e7f
 	call .DrawBugContestStatus
-	call DrawOnMap
+	call UpdateSprites
 	call Functiond90
 	call Function2b5c
 	ret
@@ -15128,7 +15129,7 @@ Function134dd: ; 134dd
 	ld hl, Elevator_MenuDataHeader
 	call CopyMenuDataHeader
 	call Function352f
-	call DrawOnMap
+	call UpdateSprites
 	xor a
 	ld [wd0e4], a
 	call Function350c
@@ -18183,7 +18184,7 @@ Function14a1a: ; 14a1a
 	call Function1d6e
 	callba Function5e9a
 	call SpeechTextBox
-	call DrawOnMap
+	call UpdateSprites
 	callba Function4cf45
 	ld hl, UnknownText_0x15283
 	call SaveTheGame_yesorno
@@ -19551,7 +19552,7 @@ Function156d9: ; 156d9
 	jr nz, .asm_156f9
 	call Function2173
 	call Function321c
-	call DrawOnMap
+	call UpdateSprites
 	call Function156b8
 	ld c, $0
 	ret
@@ -19742,15 +19743,15 @@ Function157e9: ; 0x157e9
 ; 0x15850
 
 .HowManyText ; 0x15850
-	TX_FAR _KrissPCHowManyWithdrawText
+	text_jump _KrissPCHowManyWithdrawText
 	db "@"
 
 .WithdrewText ; 0x15855
-	TX_FAR _KrissPCWithdrewItemsText
+	text_jump _KrissPCWithdrewItemsText
 	db "@"
 
 .NoRoomText ; 0x1585a
-	TX_FAR _KrissPCNoRoomWithdrawText
+	text_jump _KrissPCNoRoomWithdrawText
 	db "@"
 
 
@@ -19915,15 +19916,15 @@ Function1590a: ; 0x1590a
 
 
 .HowManyText ; 0x1596e
-	TX_FAR _KrissPCHowManyDepositText
+	text_jump _KrissPCHowManyDepositText
 	db "@"
 
 .DepositText ; 0x15973
-	TX_FAR _KrissPCDepositItemsText
+	text_jump _KrissPCDepositItemsText
 	db "@"
 
 .NoRoomText ; 0x15978
-	TX_FAR _KrissPCNoRoomDepositText
+	text_jump _KrissPCNoRoomDepositText
 	db "@"
 
 
@@ -20521,7 +20522,7 @@ Unknown_15ce3: ; 15ce3
 
 Function15cef: ; 15cef
 	callba Function24ae8
-	call DrawOnMap
+	call UpdateSprites
 	ld hl, MenuDataHeader_0x15e18
 	call CopyMenuDataHeader
 	ld a, [WalkingX]
@@ -21588,13 +21589,13 @@ DSTChecks: ; 16439
 	call Function164ea
 	bccoord 1, 14
 	ld hl, UnknownText_0x164f4
-	call Function13e5
+	call PlaceWholeStringInBoxAtOnce
 	call YesNoBox
 	ret c
 	call Function164ea
 	bccoord 1, 14
 	ld hl, LostInstructionBookletText
-	call Function13e5
+	call PlaceWholeStringInBoxAtOnce
 	ret
 
 .loop
@@ -21604,7 +21605,7 @@ DSTChecks: ; 16439
 	bit 7, a
 	jr z, .asm_16497
 	ld hl, UnknownText_0x16508
-	call Function13e5
+	call PlaceWholeStringInBoxAtOnce
 	call YesNoBox
 	ret c
 	ld a, [wDST]
@@ -21614,12 +21615,12 @@ DSTChecks: ; 16439
 	call Function164ea
 	bccoord 1, 14
 	ld hl, UnknownText_0x1650d
-	call Function13e5
+	call PlaceWholeStringInBoxAtOnce
 	ret
 
 .asm_16497
 	ld hl, UnknownText_0x164fe
-	call Function13e5
+	call PlaceWholeStringInBoxAtOnce
 	call YesNoBox
 	ret c
 	ld a, [wDST]
@@ -21629,7 +21630,7 @@ DSTChecks: ; 16439
 	call Function164ea
 	bccoord 1, 14
 	ld hl, UnknownText_0x16503
-	call Function13e5
+	call PlaceWholeStringInBoxAtOnce
 	ret
 ; 164b9
 
@@ -21743,7 +21744,7 @@ Function1651a: ; 1651a
 	ld de, StringBuffer2
 	ld bc, $a306
 	call PrintNum
-	call DrawOnMap
+	call UpdateSprites
 	call Function3238
 	ret
 ; 1656b
@@ -24340,7 +24341,7 @@ Function2400e:: ; 2400e
 	ld a, [wcf94]
 	rst FarCall
 	call Function24085
-	call DrawOnMap
+	call UpdateSprites
 	call Function321c
 	call Function2408f
 	ret
@@ -24352,7 +24353,7 @@ Function24022:: ; 24022
 	rst FarCall
 	call Function24085
 	callba MobileTextBorder
-	call DrawOnMap
+	call UpdateSprites
 	call Function321c
 	call Function2408f
 	ret
@@ -24364,7 +24365,7 @@ Function2403c:: ; 2403c
 	rst FarCall
 	call Function24085
 	callba MobileTextBorder
-	call DrawOnMap
+	call UpdateSprites
 	call Function321c
 	call Function2411a
 	ld hl, wcfa5
@@ -25184,7 +25185,7 @@ Pokepic:: ; 244e3
 	ld hl, MenuDataHeader_0x24547
 	call CopyMenuDataHeader
 	call Function1cbb
-	call DrawOnMap
+	call UpdateSprites
 	call Function321c
 	ld b, $12
 	call GetSGBLayout
@@ -25220,7 +25221,7 @@ PokepicYesOrNo:: ; 24528
 	ld [hBGMapMode], a
 	call Function2173
 	call Function321c
-	call DrawOnMap
+	call UpdateSprites
 	call Functione51
 	ret
 ; 24547
@@ -26700,7 +26701,7 @@ Function24e99: ; 24e99
 	xor a
 	ld [hBGMapMode], a
 	call Function1cbb
-	call DrawOnMap
+	call UpdateSprites
 	call Function1c89
 	call WaitBGMap
 	call Function1c66
@@ -27902,95 +27903,95 @@ OakRatings: ; 0x2667f
 	dw OakRating19
 
 OakPCText1: ; 0x266de
-	TX_FAR _OakPCText1
+	text_jump _OakPCText1
 	db "@"
 
 OakPCText2: ; 0x266e3
-	TX_FAR _OakPCText2
+	text_jump _OakPCText2
 	db "@"
 
 OakPCText3: ; 0x266e8
-	TX_FAR _OakPCText3
+	text_jump _OakPCText3
 	db "@"
 
 OakRating01:
-	TX_FAR _OakRating01
+	text_jump _OakRating01
 	db "@"
 
 OakRating02:
-	TX_FAR _OakRating02
+	text_jump _OakRating02
 	db "@"
 
 OakRating03:
-	TX_FAR _OakRating03
+	text_jump _OakRating03
 	db "@"
 
 OakRating04:
-	TX_FAR _OakRating04
+	text_jump _OakRating04
 	db "@"
 
 OakRating05:
-	TX_FAR _OakRating05
+	text_jump _OakRating05
 	db "@"
 
 OakRating06:
-	TX_FAR _OakRating06
+	text_jump _OakRating06
 	db "@"
 
 OakRating07:
-	TX_FAR _OakRating07
+	text_jump _OakRating07
 	db "@"
 
 OakRating08:
-	TX_FAR _OakRating08
+	text_jump _OakRating08
 	db "@"
 
 OakRating09:
-	TX_FAR _OakRating09
+	text_jump _OakRating09
 	db "@"
 
 OakRating10:
-	TX_FAR _OakRating10
+	text_jump _OakRating10
 	db "@"
 
 OakRating11:
-	TX_FAR _OakRating11
+	text_jump _OakRating11
 	db "@"
 
 OakRating12:
-	TX_FAR _OakRating12
+	text_jump _OakRating12
 	db "@"
 
 OakRating13:
-	TX_FAR _OakRating13
+	text_jump _OakRating13
 	db "@"
 
 OakRating14:
-	TX_FAR _OakRating14
+	text_jump _OakRating14
 	db "@"
 
 OakRating15:
-	TX_FAR _OakRating15
+	text_jump _OakRating15
 	db "@"
 
 OakRating16:
-	TX_FAR _OakRating16
+	text_jump _OakRating16
 	db "@"
 
 OakRating17:
-	TX_FAR _OakRating17
+	text_jump _OakRating17
 	db "@"
 
 OakRating18:
-	TX_FAR _OakRating18
+	text_jump _OakRating18
 	db "@"
 
 OakRating19:
-	TX_FAR _OakRating19
+	text_jump _OakRating19
 	db "@"
 
 OakPCText4: ; 0x2674c
-	TX_FAR _OakPCText4
+	text_jump _OakPCText4
 	db "@"
 
 
@@ -29550,14 +29551,14 @@ Function28000: ; 28000
 	call DelayFrames
 	call ClearScreen
 	call ClearSprites
-	call DrawOnMap
+	call UpdateSprites
 	xor a
 	ld [hSCX], a
 	ld [hSCY], a
 	ld c, $50
 	call DelayFrames
 	call ClearScreen
-	call DrawOnMap
+	call UpdateSprites
 	call Functione51
 	call Functione58
 	callba Function16d69a
@@ -30038,7 +30039,7 @@ Function283b2: ; 283b2
 	pop de
 	pop hl
 	bccoord 1, 14
-	call Function13e5
+	call PlaceWholeStringInBoxAtOnce
 	call FadeToWhite
 	call ClearScreen
 	ld b, $8
@@ -31022,7 +31023,7 @@ Function28926: ; 28926
 	callba Function4d354
 	ld hl, UnknownText_0x28aaf
 	bccoord 1, 14
-	call Function13e5
+	call PlaceWholeStringInBoxAtOnce
 	jr .asm_28a89
 
 .asm_28a58
@@ -31044,7 +31045,7 @@ Function28926: ; 28926
 	callba Function4d354
 	ld hl, UnknownText_0x28ac4
 	bccoord 1, 14
-	call Function13e5
+	call PlaceWholeStringInBoxAtOnce
 
 .asm_28a89
 	hlcoord 0, 12
@@ -31221,7 +31222,7 @@ Function28b87: ; 28b87
 	call GetPokemonName
 	ld hl, UnknownText_0x28eb8
 	bccoord 1, 14
-	call Function13e5
+	call PlaceWholeStringInBoxAtOnce
 	call Function1d6e
 	hlcoord 10, 7
 	ld b, $3
@@ -38721,7 +38722,7 @@ _KrisMailBoxMenu: ; 0x447a0
 ; 0x447b4
 
 .EmptyMailboxText ; 0x447b4
-	TX_FAR _EmptyMailboxText
+	text_jump _EmptyMailboxText
 	db "@"
 
 InitMail: ; 0x447b9
@@ -38791,7 +38792,7 @@ Function44806: ; 0x44806
 	xor a
 	ld [hBGMapMode], a
 	call Function352f
-	call DrawOnMap
+	call UpdateSprites
 	ld a, [wd0f1]
 	ld [wcf88], a
 	ld a, [OBPals + 8 * 6]
@@ -38869,15 +38870,15 @@ Function4484a: ; 0x4484a
 ; 0x448ac
 
 .PutAwayText ; 0x448ac
-	TX_FAR ClearedMailPutAwayText
+	text_jump ClearedMailPutAwayText
 	db "@"
 
 .PackFullText ; 0x448b1
-	TX_FAR MailPackFullText
+	text_jump MailPackFullText
 	db "@"
 
 .MessageLostText ; 0x448b6
-	TX_FAR MailMessageLostText
+	text_jump MailMessageLostText
 	db "@"
 
 .Function448bb: ; 0x448bb
@@ -38939,15 +38940,15 @@ Function4484a: ; 0x4484a
 ; 0x4493c
 
 .HoldingMailText ; 0x4493c
-	TX_FAR MailAlreadyHoldingItemText
+	text_jump MailAlreadyHoldingItemText
 	db "@"
 
 .EggText ; 0x44941
-	TX_FAR MailEggText
+	text_jump MailEggText
 	db "@"
 
 .MailMovedText ; 0x44946
-	TX_FAR MailMovedFromBoxText
+	text_jump MailMovedFromBoxText
 	db "@"
 
 .Cancel
@@ -43933,31 +43934,31 @@ Function4aa6e: ; 4aa6e
 Function4aa7a: ; 4aa7a
 	ld hl, DefaultFlypoint
 	ld d, $3
-.asm_4aa7f
-	ld e, $6
+.loop
+	ld e, PARTY_LENGTH
 	ld a, [hli]
 	push de
 	push hl
-	cp $ff
-	jr z, .asm_4aab3
-	ld hl, wc314
+	cp -1
+	jr z, .done
+	ld hl, wPartyMon1MenuIconAnim
 	inc a
 	ld d, a
-.asm_4aa8d
+.inner_loop
 	ld a, [hl]
 	and a
-	jr z, .asm_4aaa5
+	jr z, .next
 	cp d
-	jr z, .asm_4aa9a
-	jr .asm_4aaa5
+	jr z, .same_as_d
+	jr .next
 
 	ld a, $3
-	jr .asm_4aa9c
+	jr .proceed
 
-.asm_4aa9a
+.same_as_d
 	ld a, $2
 
-.asm_4aa9c
+.proceed
 	push hl
 	ld c, l
 	ld b, h
@@ -43966,32 +43967,32 @@ Function4aa7a: ; 4aa7a
 	ld [hl], a
 	pop hl
 
-.asm_4aaa5
+.next
 	ld bc, $0010
 	add hl, bc
 	dec e
-	jr nz, .asm_4aa8d
+	jr nz, .inner_loop
 	pop hl
 	pop de
 	dec d
-	jr nz, .asm_4aa7f
-	jr .asm_4aab5
+	jr nz, .loop
+	jr .finished
 
-.asm_4aab3
+.done
 	pop hl
 	pop de
 
-.asm_4aab5
+.finished
 	ret
 ; 4aab6
 
 Function4aab6: ; 4aab6
 	ld hl, DefaultFlypoint
 	ld d, $3
-.asm_4aabb
+.loop
 	ld a, [hli]
-	cp $ff
-	jr z, .asm_4aad2
+	cp -1
+	jr z, .done
 	push de
 	push hl
 	hlcoord 0, 1
@@ -44001,9 +44002,9 @@ Function4aab6: ; 4aab6
 	pop hl
 	pop de
 	dec d
-	jr nz, .asm_4aabb
+	jr nz, .loop
 
-.asm_4aad2
+.done
 	ret
 ; 4aad3
 
@@ -44011,12 +44012,12 @@ Function4aad3: ; 4aad3
 	ld hl, PartyCount
 	ld a, [hli]
 	and a
-	ret z
+	ret z ; Nothing in your party
 
 	ld c, a
 	xor a
 	ld [$ffb0], a
-.asm_4aadd
+.loop
 	push bc
 	push hl
 	ld e, 0
@@ -44027,7 +44028,7 @@ Function4aad3: ; 4aad3
 	pop hl
 	pop bc
 	dec c
-	jr nz, .asm_4aadd
+	jr nz, .loop
 
 	call Function4aa7a
 	callba Function8cf69
@@ -44037,11 +44038,11 @@ Function4aad3: ; 4aad3
 Function4aafb: ; 4aafb
 	ld a, [CurPartySpecies]
 	cp EGG
-	jr z, .asm_4ab04
+	jr z, .egg
 	and a
 	ret
 
-.asm_4ab04
+.egg
 	scf
 	ret
 ; 4ab06
@@ -44055,10 +44056,10 @@ Function4ab06: ; 4ab06
 	ld b, a
 	ld a, [hl]
 	or b
-	jr nz, .asm_4ab19
+	jr nz, .NotFainted
 	scf
 
-.asm_4ab19
+.NotFainted
 	ret
 ; 4ab1a
 
@@ -44563,7 +44564,7 @@ Function4ae5e: ; 4ae5e
 	ld a, [hOAMUpdate]
 	push af
 	call ExitMenu
-	call DrawOnMap
+	call UpdateSprites
 	xor a
 	ld [hOAMUpdate], a
 	call DelayFrame
@@ -46344,7 +46345,7 @@ StatsScreenInit_gotaddress: ; 4dc94
 	push hl
 	call WhiteBGMap
 	call ClearTileMap
-	call DrawOnMap
+	call UpdateSprites
 	callba Functionfb53e
 	pop hl
 	call _hl_
@@ -55176,10 +55177,10 @@ Function84753: ; 84753
 
 Function84757: ; 84757
 	ld a, [wca88]
-	cp $ff
+	cp -1
 	jr nz, .c_directly_below_e5
 	ld a, [wca89]
-	cp $ff
+	cp -1
 	jr z, .asm_8477f
 
 .c_directly_below_e5
@@ -56278,7 +56279,7 @@ Function88055: ; 88055
 	xor a
 	ld [hBGMapMode], a
 	call Function352f
-	call DrawOnMap
+	call UpdateSprites
 	call Function350c
 	ld a, [wcf73]
 	cp $2
@@ -56348,7 +56349,7 @@ Function880c2: ; 880c2
 	xor a
 	ld [hBGMapMode], a
 	call Function1cbb
-	call DrawOnMap
+	call UpdateSprites
 	call Function88116
 	call Function88126
 	call Function321c
@@ -61465,7 +61466,7 @@ Special_DisplayUnownWords: ; 8ae68
 	xor a
 	ld [hBGMapMode], a
 	call Function1cbb
-	call DrawOnMap
+	call UpdateSprites
 	call Function321c
 	call Function1cfd
 	inc hl
@@ -61648,7 +61649,7 @@ SpecialBuenasPassword: ; 8af6b
 	call CopyMenuDataHeader
 	ld a, [wdc4a]
 	ld c, a
-	callba Functionb8f8f
+	callba GetBuenasPassword
 	ld a, [wcf83]
 	add c
 	add $2
@@ -61701,7 +61702,7 @@ Function8afbd: ; 8afbd
 	ld a, [MenuSelection]
 	add c
 	ld c, a
-	callba Functionb8f8f
+	callba GetBuenasPassword
 	pop hl
 	call PlaceString
 	ret
@@ -61724,7 +61725,7 @@ SpecialBuenaPrize: ; 8afd4
 
 .asm_8aff1
 	call DelayFrame
-	call DrawOnMap
+	call UpdateSprites
 	call Function8b097
 	call Function8b0e2
 	jr z, .asm_8b05f
@@ -61844,7 +61845,7 @@ Function8b09e: ; 8b09e
 	ld hl, MenuDataHeader_0x8b0d1
 	call CopyMenuDataHeader
 	call Function1cbb
-	call DrawOnMap
+	call UpdateSprites
 	call Function1cfd
 	ld bc, $0015
 	add hl, bc
@@ -61893,7 +61894,7 @@ Function8b0e2: ; 8b0e2
 	ld [wcf76], a
 	ld [hBGMapMode], a
 	call Function352f
-	call DrawOnMap
+	call UpdateSprites
 	call Function350c
 	ld a, [MenuSelection]
 	ld c, a
@@ -63154,7 +63155,7 @@ Function8b7bd: ; 8b7bd
 	ld c, $12
 	call Function8b703
 	call Function8b75d
-	call DrawOnMap
+	call UpdateSprites
 	call Function89209
 	call Function350c
 	call Function8920f
@@ -63957,7 +63958,7 @@ Function8c26d: ; 8c26d
 	cp $4
 	jr z, .asm_8c288
 	callba Function6454
-	call DrawOnMap
+	call UpdateSprites
 	call DelayFrame
 	call Function8c2a0
 	call Function8cf4f
@@ -65695,12 +65696,12 @@ Function8cf69: ; 8cf69
 ; 8cf7a
 
 Function8cf7a: ; 8cf7a
-	ld hl, wc314
-	ld e, $a
-.asm_8cf7f
+	ld hl, wPartyMon1MenuIconAnim
+	ld e, 10 ; Do this first loop 10 times
+.loop
 	ld a, [hl]
 	and a
-	jr z, .asm_8cf91
+	jr z, .next ; Done with this iteration
 	ld c, l
 	ld b, h
 	push hl
@@ -65709,30 +65710,30 @@ Function8cf7a: ; 8cf7a
 	call Function8d04c
 	pop de
 	pop hl
-	jr c, .asm_8cfa7
+	jr c, .done
 
-.asm_8cf91
+.next
 	ld bc, $0010
 	add hl, bc
 	dec e
-	jr nz, .asm_8cf7f
+	jr nz, .loop
 	ld a, [wc3b5]
 	ld l, a
-	ld h, $c4
-.asm_8cf9e
+	ld h, Sprites / $0100
+.loop2 ; Clear (Sprites + [wc3b5] --> SpritesEnd)
 	ld a, l
-	cp $a0
-	jr nc, .asm_8cfa7
+	cp SpritesEnd % $0100
+	jr nc, .done
 	xor a
 	ld [hli], a
-	jr .asm_8cf9e
+	jr .loop2
 
-.asm_8cfa7
+.done
 	ret
 ; 8cfa8
 
 Function8cfa8: ; 8cfa8 (23:4fa8)
-	ld hl, wc314
+	ld hl, wPartyMon1MenuIconAnim
 	ld e, $a
 .asm_8cfad
 	ld a, [hl]
@@ -65768,7 +65769,7 @@ Function8cfa8: ; 8cfa8 (23:4fa8)
 Function8cfd6:: ; 8cfd6
 	push de
 	push af
-	ld hl, wc314
+	ld hl, wPartyMon1MenuIconAnim
 	ld e, $a
 .asm_8cfdd
 	ld a, [hl]
@@ -65854,19 +65855,20 @@ Function8d036: ; 8d036
 
 
 Function8d03d: ; 8d03d (23:503d)
-	ld hl, wc314
+	ld hl, wPartyMon1MenuIconAnim
 	ld bc, $10
 	ld e, $a
 	xor a
-.asm_8d046
+.loop
 	ld [hl], a
 	add hl, bc
 	dec e
-	jr nz, .asm_8d046
+	jr nz, .loop
 	ret
 
 
 Function8d04c: ; 8d04c
+; Populate Sprites with the bounding mon icons
 	call Function8d0ec
 	call Function8d132
 	cp $fd
@@ -66046,7 +66048,7 @@ Function8d120:: ; 8d120
 
 
 Function8d132: ; 8d132
-.asm_8d132
+.loop
 	ld hl, $0008
 	add hl, bc
 	ld a, [hl]
@@ -66098,7 +66100,7 @@ Function8d132: ; 8d132
 rept 2
 	dec [hl]
 endr
-	jr .asm_8d132
+	jr .loop
 
 .asm_8d17b
 	xor a
@@ -66109,7 +66111,7 @@ endr
 	ld hl, $000a
 	add hl, bc
 	ld [hl], a
-	jr .asm_8d132
+	jr .loop
 ; 8d189
 
 Function8d189: ; 8d189
@@ -67099,81 +67101,156 @@ Unknown_8d6e6: ; 8d6e6
 	dw Unknown_8d948
 ; 8d76a
 
-Unknown_8d76a: 	db $00,$20, $ff
-Unknown_8d76d: 	db $00,$08, $01,$08, $fe
-Unknown_8d772: 	db $3d,$08, $3e,$08, $fe
-Unknown_8d777: 	db $3f,$08, $40,$08, $fe
-Unknown_8d77c: 	db $00,$04, $01,$04, $fe
-Unknown_8d781: 	db $3d,$04, $3e,$04, $fe
-Unknown_8d786: 	db $3f,$04, $40,$04, $fe
-Unknown_8d78b: 	db $00,$08, $01,$08, $00,$08, $01,$48, $fe
-Unknown_8d794: 	db $63,$08, $64,$08, $63,$08, $64,$48, $fe
-Unknown_8d79d: 	db $65,$08, $66,$08, $65,$08, $66,$48, $fe
-Unknown_8d7a6: 	db $1e,$01, $1f,$01, $fe
-Unknown_8d7ab: 	db $20,$01, $fd,$01, $fe
-Unknown_8d7b0: 	db $21,$01, $fd,$01, $fe
-Unknown_8d7b5: 	db $81,$0c, $82,$01, $83,$01, $82,$04, $81,$0c, $82,$0c, $83,$04, $84,$20, $85,$03, $86,$03, $87,$04, $88,$04, $89,$04, $8a,$0a, $8b,$07, $ff
-Unknown_8d7d4: 	db $23,$03, $23,$83, $fe
-Unknown_8d7d9: 	db $24,$02, $25,$02, $26,$02, $25,$02, $fe
-Unknown_8d7e2: 	db $27,$07, $28,$07, $27,$87, $28,$47, $fe
-Unknown_8d7eb: 	db $29,$07, $2a,$07, $29,$07, $2b,$07, $fe
-Unknown_8d7f4: 	db $29,$07, $2c,$07, $2d,$07, $2c,$07, $29,$07, $ff
-Unknown_8d7ff: 	db $2e,$14, $ff
-Unknown_8d802: 	db $2f,$20, $ff
-Unknown_8d805: 	db $30,$20, $ff
-Unknown_8d808: 	db $30,$03, $31,$03, $30,$03, $31,$43, $fe
-Unknown_8d811: 	db $32,$04, $33,$04, $34,$04, $fc
-Unknown_8d818: 	db $35,$03, $36,$03, $fe
-Unknown_8d81d: 	db $37,$07, $38,$07, $fe
-Unknown_8d822: 	db $39,$20, $ff
-Unknown_8d825: 	db $3b,$02, $3a,$02, $3b,$02, $ff
-Unknown_8d82c: 	db $3c,$20, $ff
-Unknown_8d82f: 	db $41,$08, $42,$08, $41,$08, $42,$48, $fe
-                db $43,$08, $44,$08, $fe
-                db $45,$08, $46,$08, $fe
-                db $47,$08, $48,$08, $fe
-                db $49,$01, $49,$41, $49,$c1, $49,$81, $fe
-                db $4a,$20, $ff
-                db $4b,$20, $ff
-                db $4c,$20, $ff
-                db $4d,$20, $ff
-                db $4e,$03, $fd,$03, $fe
-Unknown_8d861: 	db $fd,$20, $ff
-Unknown_8d864: 	db $4f,$20, $ff
-Unknown_8d867: 	db $50,$02, $51,$10, $fd,$01, $52,$01, $fd,$01, $53,$01, $fc
-Unknown_8d874: 	db $54,$20, $ff
-Unknown_8d877: 	db $55,$20, $ff
-Unknown_8d87a: 	db $55,$60, $ff
-Unknown_8d87d: 	db $55,$a0, $ff
-Unknown_8d880: 	db $55,$e0, $ff
-Unknown_8d883: 	db $56,$0a, $57,$09, $58,$0a, $59,$0a, $58,$09, $5a,$0a, $fe
-Unknown_8d890: 	db $50,$02, $5b,$02, $50,$02, $5b,$42, $fe
-Unknown_8d899: 	db $5c,$02, $ff
-Unknown_8d89c: 	db $5d,$02, $ff
-Unknown_8d89f: 	db $5e,$02, $ff
-Unknown_8d8a2: 	db $5f,$02, $ff
-Unknown_8d8a5: 	db $60,$02, $ff
-Unknown_8d8a8: 	db $61,$02, $ff
-Unknown_8d8ab: 	db $62,$02, $ff
-Unknown_8d8ae: 	db $32,$03, $33,$03, $34,$03, $30,$03, $31,$03, $30,$03, $31,$43, $30,$03, $31,$03, $30,$03, $31,$43, $30,$03, $31,$03, $30,$03, $31,$43, $ff
-Unknown_8d8cd: 	db $30,$03, $31,$03, $30,$03, $31,$43, $30,$03, $31,$03, $30,$03, $31,$43, $30,$03, $31,$03, $30,$03, $31,$43, $32,$03, $33,$03, $34,$03, $fc
-Unknown_8d8ec: 	db $67,$03, $68,$03, $fe
-Unknown_8d8f1: 	db $6c,$03, $ff
-Unknown_8d8f4: 	db $6d,$03, $ff
-Unknown_8d8f7: 	db $69,$02, $6a,$02, $6b,$02, $fc
-Unknown_8d8fe: 	db $6e,$03, $6f,$03, $70,$03, $71,$03, $fe
-Unknown_8d907: 	db $71,$03, $6e,$07, $ff
-Unknown_8d90c: 	db $72,$20, $73,$07, $74,$07, $ff
-Unknown_8d913: 	db $75,$03, $ff
-Unknown_8d916: 	db $76,$03, $77,$03, $78,$07, $fc
-Unknown_8d91d: 	db $76,$43, $77,$43, $78,$47, $fc
-Unknown_8d924: 	db $76,$83, $77,$83, $78,$87, $fc
-Unknown_8d92b: 	db $76,$c3, $77,$c3, $78,$c7, $fc
-Unknown_8d932: 	db $79,$03, $7a,$03, $7b,$03, $7c,$07, $7d,$07, $ff
-Unknown_8d93d: 	db $7e,$03, $ff
-Unknown_8d940: 	db $fd,$00, $ff
-Unknown_8d943: 	db $7f,$08, $80,$08, $ff
-Unknown_8d948: 	db $7f,$48, $80,$48, $ff
+Unknown_8d76a: 	dw $2000
+                db -1
+Unknown_8d76d: 	dw $0800, $0801
+                db -2
+Unknown_8d772: 	dw $083d, $083e
+                db -2
+Unknown_8d777: 	dw $083f, $0840
+                db -2
+Unknown_8d77c: 	dw $0400, $0401
+                db -2
+Unknown_8d781: 	dw $043d, $043e
+                db -2
+Unknown_8d786: 	dw $043f, $0440
+                db -2
+Unknown_8d78b: 	dw $0800, $0801, $0800, $4801
+                db -2
+Unknown_8d794: 	dw $0863, $0864, $0863, $4864
+                db -2
+Unknown_8d79d: 	dw $0865, $0866, $0865, $4866
+                db -2
+Unknown_8d7a6: 	dw $011e, $011f
+                db -2
+Unknown_8d7ab: 	dw $0120, $01fd
+                db -2
+Unknown_8d7b0: 	dw $0121, $01fd
+                db -2
+Unknown_8d7b5: 	dw $0c81, $0182, $0183, $0482, $0c81, $0c82, $0483, $2084, $0385, $0386, $0487, $0488, $0489, $0a8a, $078b
+                db -1
+Unknown_8d7d4: 	dw $0323, $8323
+                db -2
+Unknown_8d7d9: 	dw $0224, $0225, $0226, $0225
+                db -2
+Unknown_8d7e2: 	dw $0727, $0728, $8727, $4728
+                db -2
+Unknown_8d7eb: 	dw $0729, $072a, $0729, $072b
+                db -2
+Unknown_8d7f4: 	dw $0729, $072c, $072d, $072c, $0729
+                db -1
+Unknown_8d7ff: 	dw $142e
+                db -1
+Unknown_8d802: 	dw $202f
+                db -1
+Unknown_8d805: 	dw $2030
+                db -1
+Unknown_8d808: 	dw $0330, $0331, $0330, $4331
+                db -2
+Unknown_8d811: 	dw $0432, $0433, $0434
+                db -4
+Unknown_8d818: 	dw $0335, $0336
+                db -2
+Unknown_8d81d: 	dw $0737, $0738
+                db -2
+Unknown_8d822: 	dw $2039
+                db -1
+Unknown_8d825: 	dw $023b, $023a, $023b
+                db -1
+Unknown_8d82c: 	dw $203c
+                db -1
+Unknown_8d82f: 	dw $0841, $0842, $0841, $4842
+                db -2
+                dw $0843, $0844
+                db -2
+                dw $0845, $0846
+                db -2
+                dw $0847, $0848
+                db -2
+                dw $0149, $4149, $c149, $8149
+                db -2
+                dw $204a
+                db -1
+                dw $204b
+                db -1
+                dw $204c
+                db -1
+                dw $204d
+                db -1
+                dw $034e, $03fd
+                db -2
+Unknown_8d861: 	dw $20fd
+                db -1
+Unknown_8d864: 	dw $204f
+                db -1
+Unknown_8d867: 	dw $0250, $1051, $01fd, $0152, $01fd, $0153
+                db -4
+Unknown_8d874: 	dw $2054
+                db -1
+Unknown_8d877: 	dw $2055
+                db -1
+Unknown_8d87a: 	dw $6055
+                db -1
+Unknown_8d87d: 	dw $a055
+                db -1
+Unknown_8d880: 	dw $e055
+                db -1
+Unknown_8d883: 	dw $0a56, $0957, $0a58, $0a59, $0958, $0a5a
+                db -2
+Unknown_8d890: 	dw $0250, $025b, $0250, $425b
+                db -2
+Unknown_8d899: 	dw $025c
+                db -1
+Unknown_8d89c: 	dw $025d
+                db -1
+Unknown_8d89f: 	dw $025e
+                db -1
+Unknown_8d8a2: 	dw $025f
+                db -1
+Unknown_8d8a5: 	dw $0260
+                db -1
+Unknown_8d8a8: 	dw $0261
+                db -1
+Unknown_8d8ab: 	dw $0262
+                db -1
+Unknown_8d8ae: 	dw $0332, $0333, $0334, $0330, $0331, $0330, $4331, $0330, $0331, $0330, $4331, $0330, $0331, $0330, $4331
+                db -1
+Unknown_8d8cd: 	dw $0330, $0331, $0330, $4331, $0330, $0331, $0330, $4331, $0330, $0331, $0330, $4331, $0332, $0333, $0334
+                db -4
+Unknown_8d8ec: 	dw $0367, $0368
+                db -2
+Unknown_8d8f1: 	dw $036c
+                db -1
+Unknown_8d8f4: 	dw $036d
+                db -1
+Unknown_8d8f7: 	dw $0269, $026a, $026b
+                db -4
+Unknown_8d8fe: 	dw $036e, $036f, $0370, $0371
+                db -2
+Unknown_8d907: 	dw $0371, $076e
+                db -1
+Unknown_8d90c: 	dw $2072, $0773, $0774
+                db -1
+Unknown_8d913: 	dw $0375
+                db -1
+Unknown_8d916: 	dw $0376, $0377, $0778
+                db -4
+Unknown_8d91d: 	dw $4376, $4377, $4778
+                db -4
+Unknown_8d924: 	dw $8376, $8377, $8778
+                db -4
+Unknown_8d92b: 	dw $c376, $c377, $c778
+                db -4
+Unknown_8d932: 	dw $0379, $037a, $037b, $077c, $077d
+                db -1
+Unknown_8d93d: 	dw $037e
+                db -1
+Unknown_8d940: 	dw $00fd
+                db -1
+Unknown_8d943: 	dw $087f, $0880
+                db -1
+Unknown_8d948: 	dw $487f, $4880
+                db -1
 ; 8d94d
 
 Unknown_8d94d: ; 8d94d
@@ -68892,23 +68969,23 @@ GetGFXUnlessMobile: ; 8ea3f
 ; 8ea4a
 
 Function8ea4a: ; 8ea4a
-	ld hl, wc314
+	ld hl, wPartyMon1MenuIconAnim
 	ld e, $6
 	ld a, [wcfa9]
 	ld d, a
-.asm_8ea53
+.loop
 	ld a, [hl]
 	and a
-	jr z, .asm_8ea69
+	jr z, .next
 	cp d
-	jr z, .asm_8ea5e
+	jr z, .loadwithtwo
 	ld a, $0
-	jr .asm_8ea60
+	jr .ok
 
-.asm_8ea5e
+.loadwithtwo
 	ld a, $2
 
-.asm_8ea60
+.ok
 	push hl
 	ld c, l
 	ld b, h
@@ -68917,21 +68994,21 @@ Function8ea4a: ; 8ea4a
 	ld [hl], a
 	pop hl
 
-.asm_8ea69
+.next
 	ld bc, $0010
 	add hl, bc
 	dec e
-	jr nz, .asm_8ea53
+	jr nz, .loop
 	ret
 ; 8ea71
 
 Function8ea71: ; 8ea71
-	ld hl, wc314
+	ld hl, wPartyMon1MenuIconAnim
 	ld e, $6
-.asm_8ea76
+.loop
 	ld a, [hl]
 	and a
-	jr z, .asm_8ea84
+	jr z, .zero
 	push hl
 	ld c, l
 	ld b, h
@@ -68939,16 +69016,16 @@ Function8ea71: ; 8ea71
 	add hl, bc
 	ld [hl], $1
 	pop hl
-.asm_8ea84
+.zero
 	ld bc, $10
 	add hl, bc
 	dec e
-	jr nz, .asm_8ea76
+	jr nz, .loop
 	ret
 ; 8ea8c (23:6a8c)
 
 Function8ea8c: ; 8ea8c
-	ld hl, wc314
+	ld hl, wPartyMon1MenuIconAnim
 	ld e, $6
 	ld a, [wd0e3]
 	ld d, a
@@ -69569,7 +69646,7 @@ Phone_StartRinging: ; 9033f
 	ld de, SFX_CALL
 	call PlaySFX
 	call Phone_CallerTextbox
-	call DrawOnMap
+	call UpdateSprites
 	callba Function4d188
 	ret
 ; 90355
@@ -70286,7 +70363,7 @@ Special_SetDayOfWeek: ; 90913
 	call Function90993
 	jr nc, .asm_9096a
 	call ExitMenu
-	call DrawOnMap
+	call UpdateSprites
 	ld hl, UnknownText_0x90a44
 	call PrintText
 	call YesNoBox
@@ -70420,7 +70497,7 @@ Function90a54: ; 90a54
 	ld bc, $0312
 	call ClearBox
 	ld hl, UnknownText_0x90a6c
-	call Function13e5
+	call PlaceWholeStringInBoxAtOnce
 	ret
 ; 90a6c
 
@@ -70451,7 +70528,7 @@ Function90a88: ; 90a88
 	ld bc, $0312
 	call ClearBox
 	ld hl, UnknownText_0x90aa0
-	call Function13e5
+	call PlaceWholeStringInBoxAtOnce
 	ret
 ; 90aa0
 
@@ -70479,7 +70556,7 @@ Function90abc: ; 90abc
 	ld bc, $0312
 	call ClearBox
 	ld hl, UnknownText_0x90acc
-	call Function13e5
+	call PlaceWholeStringInBoxAtOnce
 	ret
 ; 90acc
 
@@ -71142,7 +71219,7 @@ Function90f86: ; 90f86 (24:4f86)
 	callba Function1dd6bb
 	ld hl, UnknownText_0x90faf
 	bccoord 6, 6
-	call Function13e5
+	call PlaceWholeStringInBoxAtOnce
 	ret
 ; 90fa8 (24:4fa8)
 
@@ -71973,7 +72050,7 @@ Function91492: ; 91492
 
 
 Function914ab: ; 914ab (24:54ab)
-	ld hl, wc324
+	ld hl, wPartyMon2MenuIconAnim
 	ld bc, $90
 	xor a
 	call ByteFill
@@ -72232,17 +72309,6 @@ RadioChannels:
 	ret
 
 
-OAKS_POKEMON_TALK EQU 0
-POKEDEX_SHOW      EQU 1
-POKEMON_MUSIC     EQU 2
-LUCKY_CHANNEL     EQU 3
-BUENAS_PASSWORD   EQU 4
-PLACES_AND_PEOPLE EQU 5
-LETS_ALL_SING     EQU 6
-ROCKET_RADIO      EQU 7
-POKE_FLUTE_RADIO  EQU 8
-UNOWN_RADIO       EQU 9
-EVOLUTION_RADIO   EQU 10
 
 Function91753: ; 91753 (24:5753)
 	xor a ; OAKS_POKEMON_TALK
@@ -72378,7 +72444,7 @@ Function9183e: ; 9183e (24:583e)
 Function91853: ; 91853
 	ret
 
-Function91854: ; 91854 (24:5854)
+RadioMusicNone: ; 91854 (24:5854)
 	push de
 	ld a, e
 	ld [wc6dc], a
@@ -72661,11 +72727,11 @@ endr
 	ld a, [hli]
 	ld h, [hl]
 	ld l, a
-	ld de, .asm_91a9b
+	ld de, .jump_return
 	push de
 	jp [hl]
 
-.asm_91a9b
+.jump_return
 	push de
 	hlcoord 0, 12
 	ld bc, $0412
@@ -72753,8 +72819,8 @@ _FlyMap: ; 91af3
 	ld a, [hl]
 	and A_BUTTON
 	jr nz, .pressedA
-	call Function91b73
-	call Function91c17
+	call FlyMapScroll
+	call GetMapCursorCoordinates
 	callba Function8cf69
 	call DelayFrame
 	jr .loop
@@ -72788,50 +72854,50 @@ _FlyMap: ; 91af3
 	ret
 ; 91b73
 
-Function91b73: ; 91b73
+FlyMapScroll: ; 91b73
 	ld a, [StartFlypoint]
 	ld e, a
 	ld a, [EndFlypoint]
 	ld d, a
 	ld hl, $ffa9
 	ld a, [hl]
-	and $40
-	jr nz, .asm_91b89
+	and D_UP
+	jr nz, .ScrollNext
 	ld a, [hl]
-	and $80
-	jr nz, .asm_91b9b
+	and D_DOWN
+	jr nz, .ScrollPrev
 	ret
 
-.asm_91b89
+.ScrollNext
 	ld hl, DefaultFlypoint
 	ld a, [hl]
 	cp d
-	jr nz, .asm_91b93
+	jr nz, .NotAtEndYet
 	ld a, e
 	dec a
 	ld [hl], a
 
-.asm_91b93
+.NotAtEndYet
 	inc [hl]
-	call Function91c3c
-	jr z, .asm_91b89
-	jr .asm_91bab
+	call CheckIfVisitedFlypoint
+	jr z, .ScrollNext
+	jr .Finally
 
-.asm_91b9b
+.ScrollPrev
 	ld hl, DefaultFlypoint
 	ld a, [hl]
 	cp e
-	jr nz, .asm_91ba5
+	jr nz, .NotAtStartYet
 	ld a, d
 	inc a
 	ld [hl], a
 
-.asm_91ba5
+.NotAtStartYet
 	dec [hl]
-	call Function91c3c
-	jr z, .asm_91b9b
+	call CheckIfVisitedFlypoint
+	jr z, .ScrollPrev
 
-.asm_91bab
+.Finally
 	call TownMapBubble
 	call WaitBGMap
 	xor a
@@ -72913,7 +72979,7 @@ TownMapBubble: ; 91bb5
 	ret
 ; 91c17
 
-Function91c17: ; 91c17
+GetMapCursorCoordinates: ; 91c17
 	ld a, [DefaultFlypoint]
 	ld l, a
 	ld h, $0
@@ -72935,7 +73001,8 @@ Function91c17: ; 91c17
 	ret
 ; 91c3c
 
-Function91c3c: ; 91c3c
+CheckIfVisitedFlypoint: ; 91c3c
+; Check if the flypoint loaded in [hl] has been visited yet.
 	push bc
 	push de
 	push hl
@@ -73673,26 +73740,26 @@ Function92311: ; 92311
 	ld b, $2
 	call GetSGBLayout
 	call Function32f9
-.asm_9236e
+.loop
 	call Functiona57
 	ld hl, hJoyPressed
 	ld a, [hl]
 	and B_BUTTON
-	jr nz, .asm_9238f
+	jr nz, .pressedB
 	ld a, [hl]
 	and A_BUTTON
-	jr nz, .asm_92393
+	jr nz, .pressedA
 	call Function923b8
-	call Function91c17
+	call GetMapCursorCoordinates
 	callba Function8cf69
 	call DelayFrame
-	jr .asm_9236e
+	jr .loop
 
-.asm_9238f
-	ld a, $ff
+.pressedB
+	ld a, -1
 	jr .asm_9239f
 
-.asm_92393
+.pressedA
 	ld a, [DefaultFlypoint]
 	ld l, a
 	ld h, 0
@@ -75513,11 +75580,11 @@ Function930e9: ; 930e9 (24:70e9)
 ; 9311a (24:711a)
 
 UnknownText_9311a: ; 9311a
-	TX_FAR UnknownText_0x1c5079
+	text_jump UnknownText_0x1c5079
 	db "@"
 
 UnknownText_9311f: ; 9311f
-	TX_FAR UnknownText_0x1c5092
+	text_jump UnknownText_0x1c5092
 	db "@"
 
 Function93124: ; 93124 (24:7124)
@@ -87754,7 +87821,7 @@ Functionfb877: ; fb877
 	call LowVolume
 	call WhiteBGMap
 	call ClearTileMap
-	call DrawOnMap
+	call UpdateSprites
 	call ClearSprites
 	ld a, [wPokedexStatus]
 	push af
diff --git a/maps/AzaleaGym.asm b/maps/AzaleaGym.asm
index 263995d6d..4752a7545 100644
--- a/maps/AzaleaGym.asm
+++ b/maps/AzaleaGym.asm
@@ -27,7 +27,7 @@ BugsyScript_0x18ec1e:
 	scall AzaleaGymTriggerRockets
 .FightDone
 	checkevent EVENT_GOT_TM49_FURY_CUTTER
-	iftrue UnknownScript_0x18ec6d
+	iftrue .GotFuryCutter
 	setevent EVENT_BEAT_TWINS_AMY_AND_MAY
 	setevent EVENT_BEAT_BUG_CATCHER_BENNY
 	setevent EVENT_BEAT_BUG_CATCHER_AL
@@ -35,17 +35,17 @@ BugsyScript_0x18ec1e:
 	writetext UnknownText_0x18ee2b
 	keeptextopen
 	verbosegiveitem TM_FURY_CUTTER, 1
-	iffalse UnknownScript_0x18ec71
+	iffalse .NoRoomForFuryCutter
 	setevent EVENT_GOT_TM49_FURY_CUTTER
 	writetext UnknownText_0x18eefa
 	closetext
 	loadmovesprites
 	end
 
-UnknownScript_0x18ec6d:
+.GotFuryCutter:
 	writetext UnknownText_0x18ef98
 	closetext
-UnknownScript_0x18ec71:
+.NoRoomForFuryCutter:
 	loadmovesprites
 	end
 
@@ -61,9 +61,9 @@ AzaleaGymTriggerRockets:
 	jumpstd radiotowerrockets
 
 TrainerTwinsAmyandmay1:
-	trainer EVENT_BEAT_TWINS_AMY_AND_MAY, TWINS, AMYANDMAY1, TwinsAmyandmay1SeenText, TwinsAmyandmay1BeatenText, $0000, TwinsAmyandmay1Script
+	trainer EVENT_BEAT_TWINS_AMY_AND_MAY, TWINS, AMYANDMAY1, TwinsAmyandmay1SeenText, TwinsAmyandmay1BeatenText, $0000, .AfterScript
 
-TwinsAmyandmay1Script:
+.AfterScript:
 	talkaftercancel
 	loadfont
 	writetext UnknownText_0x18f1fc
@@ -72,9 +72,9 @@ TwinsAmyandmay1Script:
 	end
 
 TrainerTwinsAmyandmay2:
-	trainer EVENT_BEAT_TWINS_AMY_AND_MAY, TWINS, AMYANDMAY2, TwinsAmyandmay2SeenText, TwinsAmyandmay2BeatenText, $0000, TwinsAmyandmay2Script
+	trainer EVENT_BEAT_TWINS_AMY_AND_MAY, TWINS, AMYANDMAY2, TwinsAmyandmay2SeenText, TwinsAmyandmay2BeatenText, $0000, .AfterScript
 
-TwinsAmyandmay2Script:
+.AfterScript:
 	talkaftercancel
 	loadfont
 	writetext UnknownText_0x18f269
@@ -83,9 +83,9 @@ TwinsAmyandmay2Script:
 	end
 
 TrainerBug_catcherBug_catcher_benny:
-	trainer EVENT_BEAT_BUG_CATCHER_BENNY, BUG_CATCHER, BUG_CATCHER_BENNY, Bug_catcherBug_catcher_bennySeenText, Bug_catcherBug_catcher_bennyBeatenText, $0000, Bug_catcherBug_catcher_bennyScript
+	trainer EVENT_BEAT_BUG_CATCHER_BENNY, BUG_CATCHER, BUG_CATCHER_BENNY, Bug_catcherBug_catcher_bennySeenText, Bug_catcherBug_catcher_bennyBeatenText, $0000, .AfterScript
 
-Bug_catcherBug_catcher_bennyScript:
+.AfterScript:
 	talkaftercancel
 	loadfont
 	writetext UnknownText_0x18f053
@@ -94,9 +94,9 @@ Bug_catcherBug_catcher_bennyScript:
 	end
 
 TrainerBug_catcherAl:
-	trainer EVENT_BEAT_BUG_CATCHER_AL, BUG_CATCHER, AL, Bug_catcherAlSeenText, Bug_catcherAlBeatenText, $0000, Bug_catcherAlScript
+	trainer EVENT_BEAT_BUG_CATCHER_AL, BUG_CATCHER, AL, Bug_catcherAlSeenText, Bug_catcherAlBeatenText, $0000, .AfterScript
 
-Bug_catcherAlScript:
+.AfterScript:
 	talkaftercancel
 	loadfont
 	writetext UnknownText_0x18f0d3
@@ -105,9 +105,9 @@ Bug_catcherAlScript:
 	end
 
 TrainerBug_catcherJosh:
-	trainer EVENT_BEAT_BUG_CATCHER_JOSH, BUG_CATCHER, JOSH, Bug_catcherJoshSeenText, Bug_catcherJoshBeatenText, $0000, Bug_catcherJoshScript
+	trainer EVENT_BEAT_BUG_CATCHER_JOSH, BUG_CATCHER, JOSH, Bug_catcherJoshSeenText, Bug_catcherJoshBeatenText, $0000, .AfterScript
 
-Bug_catcherJoshScript:
+.AfterScript:
 	talkaftercancel
 	loadfont
 	writetext UnknownText_0x18f17e
diff --git a/maps/GoldenrodFlowerShop.asm b/maps/GoldenrodFlowerShop.asm
index 08f6dc3c9..31193c714 100644
--- a/maps/GoldenrodFlowerShop.asm
+++ b/maps/GoldenrodFlowerShop.asm
@@ -5,17 +5,17 @@ GoldenrodFlowerShop_MapScriptHeader:
 .MapCallbacks:
 	db 0
 
-TeacherScript_0x5535d:
+FlowerShopTeacherScript:
 	checkevent EVENT_FOUGHT_SUDOWOODO
-	iftrue UnknownScript_0x5538f
+	iftrue .Lalala
 	checkevent EVENT_GOT_SQUIRTBOTTLE
-	iftrue UnknownScript_0x55399
+	iftrue .GotSquirtbottle
 	checkevent EVENT_MET_FLORIA
-	iffalse UnknownScript_0x5539f
+	iffalse .HaventMetFloria
 	checkevent EVENT_TALKED_TO_FLORIA_AT_FLOWER_SHOP
-	iffalse UnknownScript_0x5538f
+	iffalse .Lalala
 	checkflag ENGINE_PLAINBADGE
-	iffalse UnknownScript_0x5539c
+	iffalse .NoPlainBadge
 	faceplayer
 	loadfont
 	writetext UnknownText_0x554c2
@@ -27,7 +27,7 @@ TeacherScript_0x5535d:
 	clearevent EVENT_FLORIA_AT_FLOWER_SHOP
 	end
 
-UnknownScript_0x5538f:
+.Lalala:
 	spriteface $2, LEFT
 	loadfont
 	writetext UnknownText_0x5552e
@@ -35,22 +35,22 @@ UnknownScript_0x5538f:
 	loadmovesprites
 	end
 
-UnknownScript_0x55399:
+.GotSquirtbottle:
 	jumptextfaceplayer UnknownText_0x5550d
 
-UnknownScript_0x5539c:
+.NoPlainBadge:
 	jumptextfaceplayer UnknownText_0x55463
 
-UnknownScript_0x5539f:
+.HaventMetFloria:
 	jumptextfaceplayer UnknownText_0x553d4
 
-LassScript_0x553a2:
+FlowerShopFloriaScript:
 	faceplayer
 	loadfont
 	checkevent EVENT_FOUGHT_SUDOWOODO
-	iftrue UnknownScript_0x553c5
+	iftrue .FoughtSudowoodo
 	checkevent EVENT_GOT_SQUIRTBOTTLE
-	iftrue UnknownScript_0x553bf
+	iftrue .GotSquirtbottle
 	writetext UnknownText_0x55561
 	closetext
 	loadmovesprites
@@ -59,13 +59,13 @@ LassScript_0x553a2:
 	clearevent EVENT_FLORIA_AT_SUDOWOODO
 	end
 
-UnknownScript_0x553bf:
+.GotSquirtbottle:
 	writetext UnknownText_0x555e6
 	closetext
 	loadmovesprites
 	end
 
-UnknownScript_0x553c5:
+.FoughtSudowoodo:
 	writetext UnknownText_0x55604
 	closetext
 	loadmovesprites
@@ -172,5 +172,5 @@ GoldenrodFlowerShop_MapEventHeader:
 
 .PersonEvents:
 	db 2
-	person_event SPRITE_TEACHER, 8, 6, OW_LEFT | $1, $0, -1, -1, $0, 0, TeacherScript_0x5535d, -1
-	person_event SPRITE_LASS, 10, 9, OW_DOWN | $2, $11, -1, -1, (PAL_OW_BLUE << 4) | $80, 0, LassScript_0x553a2, EVENT_FLORIA_AT_FLOWER_SHOP
+	person_event SPRITE_TEACHER, 8, 6, OW_LEFT | $1, $0, -1, -1, $0, 0, FlowerShopTeacherScript, -1
+	person_event SPRITE_LASS, 10, 9, OW_DOWN | $2, $11, -1, -1, (PAL_OW_BLUE << 4) | $80, 0, FlowerShopFloriaScript, EVENT_FLORIA_AT_FLOWER_SHOP
diff --git a/maps/Route35NationalParkgate.asm b/maps/Route35NationalParkgate.asm
index 2d166ebe0..64a37061a 100644
--- a/maps/Route35NationalParkgate.asm
+++ b/maps/Route35NationalParkgate.asm
@@ -135,7 +135,7 @@ Route35NationalParkgate_LeaveTheRestBehind:
 	if_equal 0, Route35NationalParkgate_NoRoomInBox
 
 Route35NationalParkgate_LessThanFullParty: ; 6a27d
-	special Function71ac
+	special CheckFirstMonIsEgg
 	if_equal $1, Route35NationalParkgate_FirstMonIsEgg
 	writetext UnknownText_0x6a4c6
 	yesorno
diff --git a/maps/Route36NationalParkgate.asm b/maps/Route36NationalParkgate.asm
index 49a869255..c01e66d5b 100644
--- a/maps/Route36NationalParkgate.asm
+++ b/maps/Route36NationalParkgate.asm
@@ -3,59 +3,59 @@ Route36NationalParkgate_MapScriptHeader:
 	db 3
 
 	; triggers
-	dw UnknownScript_0x6ab11, $0000
-	dw UnknownScript_0x6ab12, $0000
-	dw UnknownScript_0x6ab13, $0000
+	dw .Trigger1, $0000
+	dw .Trigger2, $0000
+	dw .Trigger3, $0000
 
 .MapCallbacks:
 	db 2
 
 	; callbacks
 
-	dbw 5, UnknownScript_0x6ab17
+	dbw 5, .CheckIfContestRunning
 
-	dbw 2, UnknownScript_0x6ab23
+	dbw 2, .CheckIfContestAvailable
 
-UnknownScript_0x6ab11:
+.Trigger1:
 	end
 
-UnknownScript_0x6ab12:
+.Trigger2:
 	end
 
-UnknownScript_0x6ab13:
-	priorityjump UnknownScript_0x6ab47
+.Trigger3:
+	priorityjump .LeftTheContestEarly
 	end
 
-UnknownScript_0x6ab17:
+.CheckIfContestRunning:
 	checkflag ENGINE_BUG_CONTEST_TIMER
-	iftrue UnknownScript_0x6ab20
+	iftrue .BugContestIsRunning
 	dotrigger $0
 	return
 
-UnknownScript_0x6ab20:
+.BugContestIsRunning:
 	dotrigger $2
 	return
 
-UnknownScript_0x6ab23:
+.CheckIfContestAvailable:
 	checkevent EVENT_WARPED_FROM_ROUTE_35_NATIONAL_PARK_GATE
-	iftrue UnknownScript_0x6ab46
+	iftrue .Return
 	checkcode VAR_WEEKDAY
-	if_equal TUESDAY, UnknownScript_0x6ab42
-	if_equal THURSDAY, UnknownScript_0x6ab42
-	if_equal SATURDAY, UnknownScript_0x6ab42
+	if_equal TUESDAY, .SetContestOfficer
+	if_equal THURSDAY, .SetContestOfficer
+	if_equal SATURDAY, .SetContestOfficer
 	checkflag ENGINE_BUG_CONTEST_TIMER
-	iftrue UnknownScript_0x6ab42
+	iftrue .SetContestOfficer
 	disappear $2
 	appear $d
 	return
 
-UnknownScript_0x6ab42:
+.SetContestOfficer:
 	appear $2
 	disappear $d
-UnknownScript_0x6ab46:
+.Return:
 	return
 
-UnknownScript_0x6ab47:
+.LeftTheContestEarly:
 	spriteface $0, UP
 	loadfont
 	checkcode VAR_CONTESTMINUTES
@@ -63,13 +63,13 @@ UnknownScript_0x6ab47:
 	RAM2MEM $0
 	writetext UnknownText_0x6b284
 	yesorno
-	iffalse UnknownScript_0x6ab76
+	iffalse .GoBackToContest
 	writetext UnknownText_0x6b2c5
 	closetext
 	loadmovesprites
 	special Special_FadeBlackQuickly
 	special Special_ReloadSpritesNoPalettes
-	scall UnknownScript_0x6ab8c
+	scall .CopyContestants
 	disappear $2
 	appear $d
 	applymovement $0, MovementData_0x6add1
@@ -77,7 +77,7 @@ UnknownScript_0x6ab47:
 	special Special_FadeInQuickly
 	jumpstd bugcontestresults
 
-UnknownScript_0x6ab76:
+.GoBackToContest:
 	writetext UnknownText_0x6b300
 	closetext
 	loadmovesprites
@@ -88,69 +88,69 @@ UnknownScript_0x6ab76:
 	warpfacing $2, GROUP_NATIONAL_PARK_BUG_CONTEST, MAP_NATIONAL_PARK_BUG_CONTEST, $21, $12
 	end
 
-UnknownScript_0x6ab8c:
+.CopyContestants:
 	checkevent EVENT_BUG_CATCHING_CONTESTANT_1A
-	iftrue UnknownScript_0x6ab94
+	iftrue .Not1
 	appear $3
-UnknownScript_0x6ab94:
+.Not1:
 	checkevent EVENT_BUG_CATCHING_CONTESTANT_2A
-	iftrue UnknownScript_0x6ab9c
+	iftrue .Not2
 	appear $4
-UnknownScript_0x6ab9c:
+.Not2:
 	checkevent EVENT_BUG_CATCHING_CONTESTANT_3A
-	iftrue UnknownScript_0x6aba4
+	iftrue .Not3
 	appear $5
-UnknownScript_0x6aba4:
+.Not3:
 	checkevent EVENT_BUG_CATCHING_CONTESTANT_4A
-	iftrue UnknownScript_0x6abac
+	iftrue .Not4
 	appear $6
-UnknownScript_0x6abac:
+.Not4:
 	checkevent EVENT_BUG_CATCHING_CONTESTANT_5A
-	iftrue UnknownScript_0x6abb4
+	iftrue .Not5
 	appear $7
-UnknownScript_0x6abb4:
+.Not5:
 	checkevent EVENT_BUG_CATCHING_CONTESTANT_6A
-	iftrue UnknownScript_0x6abbc
+	iftrue .Not6
 	appear $8
-UnknownScript_0x6abbc:
+.Not6:
 	checkevent EVENT_BUG_CATCHING_CONTESTANT_7A
-	iftrue UnknownScript_0x6abc4
+	iftrue .Not7
 	appear $9
-UnknownScript_0x6abc4:
+.Not7:
 	checkevent EVENT_BUG_CATCHING_CONTESTANT_8A
-	iftrue UnknownScript_0x6abcc
+	iftrue .Not8
 	appear $a
-UnknownScript_0x6abcc:
+.Not8:
 	checkevent EVENT_BUG_CATCHING_CONTESTANT_9A
-	iftrue UnknownScript_0x6abd4
+	iftrue .Not9
 	appear $b
-UnknownScript_0x6abd4:
+.Not9:
 	checkevent EVENT_BUG_CATCHING_CONTESTANT_10A
-	iftrue UnknownScript_0x6abdc
+	iftrue .Not10
 	appear $c
-UnknownScript_0x6abdc:
-	special DrawOnMap
+.Not10:
+	special UpdateSprites
 	end
 
-OfficerScript_0x6abe0:
+Route36OfficerScriptContest:
 	checkcode VAR_WEEKDAY
-	if_equal SUNDAY, UnknownScript_0x6acf1
-	if_equal MONDAY, UnknownScript_0x6acf1
-	if_equal WEDNESDAY, UnknownScript_0x6acf1
-	if_equal FRIDAY, UnknownScript_0x6acf1
+	if_equal SUNDAY, _ContestNotOn
+	if_equal MONDAY, _ContestNotOn
+	if_equal WEDNESDAY, _ContestNotOn
+	if_equal FRIDAY, _ContestNotOn
 	faceplayer
 	loadfont
 	checkflag ENGINE_DAILY_BUG_CONTEST
-	iftrue UnknownScript_0x6ac91
-	scall UnknownScript_0x6ad02
+	iftrue Route36Officer_ContestHasConcluded
+	scall Route36Parkgate_DayToText
 	writetext UnknownText_0x6add5
 	yesorno
-	iffalse UnknownScript_0x6ac73
+	iffalse .DecidedNotToJoinContest
 	checkcode VAR_PARTYCOUNT
-	if_greater_than $1, UnknownScript_0x6ac41
+	if_greater_than $1, .LeaveMonsWithOfficer
 	special CheckFirstMonFainted
 	clearevent EVENT_LEFT_MONS_WITH_CONTEST_OFFICER
-UnknownScript_0x6ac10:
+.ResumeStartingContest:
 	setflag ENGINE_BUG_CONTEST_TIMER
 	special PlayMapMusic
 	writetext UnknownText_0x6ae87
@@ -172,19 +172,19 @@ UnknownScript_0x6ac10:
 	warpfacing $2, GROUP_NATIONAL_PARK_BUG_CONTEST, MAP_NATIONAL_PARK_BUG_CONTEST, $21, $12
 	end
 
-UnknownScript_0x6ac41:
+.LeaveMonsWithOfficer:
 	checkcode VAR_PARTYCOUNT
-	if_less_than $6, UnknownScript_0x6ac4d
+	if_less_than $6, .ContinueLeavingMons
 	checkcode VAR_BOXSPACE
-	if_equal $0, UnknownScript_0x6ac85
-UnknownScript_0x6ac4d:
-	special Function71ac
-	if_equal $1, UnknownScript_0x6ac8b
+	if_equal $0, .BoxFull
+.ContinueLeavingMons:
+	special CheckFirstMonIsEgg
+	if_equal $1, .FirstMonIsEgg
 	writetext UnknownText_0x6afb0
 	yesorno
-	iffalse UnknownScript_0x6ac79
+	iffalse .RefusedToLeaveMons
 	special CheckFirstMonFainted
-	iftrue UnknownScript_0x6ac7f
+	iftrue .FirstMonIsFainted
 	setevent EVENT_LEFT_MONS_WITH_CONTEST_OFFICER
 	writetext UnknownText_0x6b021
 	keeptextopen
@@ -192,108 +192,108 @@ UnknownScript_0x6ac4d:
 	playsound SFX_GOT_SAFARI_BALLS
 	waitbutton
 	keeptextopen
-	jump UnknownScript_0x6ac10
+	jump .ResumeStartingContest
 
-UnknownScript_0x6ac73:
+.DecidedNotToJoinContest:
 	writetext UnknownText_0x6b0c6
 	closetext
 	loadmovesprites
 	end
 
-UnknownScript_0x6ac79:
+.RefusedToLeaveMons:
 	writetext UnknownText_0x6b081
 	closetext
 	loadmovesprites
 	end
 
-UnknownScript_0x6ac7f:
+.FirstMonIsFainted:
 	writetext UnknownText_0x6b0f2
 	closetext
 	loadmovesprites
 	end
 
-UnknownScript_0x6ac85:
+.BoxFull:
 	writetext UnknownText_0x6b166
 	closetext
 	loadmovesprites
 	end
 
-UnknownScript_0x6ac8b:
+.FirstMonIsEgg:
 	writetext UnknownText_0x6b209
 	closetext
 	loadmovesprites
 	end
 
-UnknownScript_0x6ac91:
+Route36Officer_ContestHasConcluded:
 	checkevent EVENT_CONTEST_OFFICER_HAS_SUN_STONE
-	iftrue UnknownScript_0x6acaf
+	iftrue .Sunstone
 	checkevent EVENT_CONTEST_OFFICER_HAS_EVERSTONE
-	iftrue UnknownScript_0x6acbe
+	iftrue .Everstone
 	checkevent EVENT_CONTEST_OFFICER_HAS_GOLD_BERRY
-	iftrue UnknownScript_0x6accd
+	iftrue .GoldBerry
 	checkevent EVENT_CONTEST_OFFICER_HAS_BERRY
-	iftrue UnknownScript_0x6acdc
+	iftrue .Berry
 	writetext UnknownText_0x6b32b
 	closetext
 	loadmovesprites
 	end
 
-UnknownScript_0x6acaf:
+.Sunstone:
 	writetext UnknownText_0x6b97f
 	keeptextopen
 	verbosegiveitem SUN_STONE, 1
-	iffalse UnknownScript_0x6aceb
+	iffalse .BagFull
 	clearevent EVENT_CONTEST_OFFICER_HAS_SUN_STONE
 	loadmovesprites
 	end
 
-UnknownScript_0x6acbe:
+.Everstone:
 	writetext UnknownText_0x6b97f
 	keeptextopen
 	verbosegiveitem EVERSTONE, 1
-	iffalse UnknownScript_0x6aceb
+	iffalse .BagFull
 	clearevent EVENT_CONTEST_OFFICER_HAS_EVERSTONE
 	loadmovesprites
 	end
 
-UnknownScript_0x6accd:
+.GoldBerry:
 	writetext UnknownText_0x6b97f
 	keeptextopen
 	verbosegiveitem GOLD_BERRY, 1
-	iffalse UnknownScript_0x6aceb
+	iffalse .BagFull
 	clearevent EVENT_CONTEST_OFFICER_HAS_GOLD_BERRY
 	loadmovesprites
 	end
 
-UnknownScript_0x6acdc:
+.Berry:
 	writetext UnknownText_0x6b97f
 	keeptextopen
 	verbosegiveitem BERRY, 1
-	iffalse UnknownScript_0x6aceb
+	iffalse .BagFull
 	clearevent EVENT_CONTEST_OFFICER_HAS_BERRY
 	loadmovesprites
 	end
 
-UnknownScript_0x6aceb:
+.BagFull:
 	writetext UnknownText_0x6b910
 	closetext
 	loadmovesprites
 	end
 
-UnknownScript_0x6acf1:
+_ContestNotOn:
 	jumptextfaceplayer UnknownText_0x6b370
 
 OfficerScript_0x6acf4:
 	faceplayer
 	loadfont
 	checkflag ENGINE_DAILY_BUG_CONTEST
-	iftrue UnknownScript_0x6ac91
+	iftrue Route36Officer_ContestHasConcluded
 	writetext UnknownText_0x6b370
 	closetext
 	loadmovesprites
 	end
 
-UnknownScript_0x6ad02:
+Route36Parkgate_DayToText:
 	jumpstd daytotext
 	end
 
@@ -862,7 +862,7 @@ Route36NationalParkgate_MapEventHeader:
 
 .PersonEvents:
 	db 12
-	person_event SPRITE_OFFICER, 7, 4, OW_UP | $2, $0, -1, -1, (PAL_OW_GREEN << 4) | $80, 0, OfficerScript_0x6abe0, EVENT_ROUTE_36_NATIONAL_PARK_GATE_OFFICER_CONTEST_DAY
+	person_event SPRITE_OFFICER, 7, 4, OW_UP | $2, $0, -1, -1, (PAL_OW_GREEN << 4) | $80, 0, Route36OfficerScriptContest, EVENT_ROUTE_36_NATIONAL_PARK_GATE_OFFICER_CONTEST_DAY
 	person_event SPRITE_YOUNGSTER, 9, 6, OW_UP | $3, $0, -1, -1, (PAL_OW_RED << 4) | $80, 0, YoungsterScript_0x6ad06, EVENT_BUG_CATCHING_CONTESTANT_1B
 	person_event SPRITE_YOUNGSTER, 9, 8, OW_UP | $3, $0, -1, -1, (PAL_OW_GREEN << 4) | $80, 0, YoungsterScript_0x6ad1a, EVENT_BUG_CATCHING_CONTESTANT_2B
 	person_event SPRITE_ROCKER, 10, 6, OW_UP | $3, $0, -1, -1, (PAL_OW_BLUE << 4) | $80, 0, RockerScript_0x6ad2e, EVENT_BUG_CATCHING_CONTESTANT_3B
diff --git a/misc/crystal_misc.asm b/misc/crystal_misc.asm
index 9dbbea79c..67bef18bc 100644
--- a/misc/crystal_misc.asm
+++ b/misc/crystal_misc.asm
@@ -645,7 +645,7 @@ Function17aaa9: ; 17aaa9 (5e:6aa9)
 	call Function17aae3
 	ld c, a
 	ld b, $0
-	ld hl, AttrMap ; AttrMap + 0 + 0 * SCREEN_WIDTH
+	hlcoord 0, 0, AttrMap
 	add hl, bc
 	push hl
 	ld a, $4
@@ -766,7 +766,7 @@ Function17abcf: ; 17abcf (5e:6bcf)
 Function17ac0c: ; 17ac0c (5e:6c0c)
 	call Function17ac1d
 	call Function17ac2a
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld b, $2
 	ld c, $12
 	call Function17ac46
diff --git a/misc/mobile_40.asm b/misc/mobile_40.asm
index 49a81f06d..affe094a0 100644
--- a/misc/mobile_40.asm
+++ b/misc/mobile_40.asm
@@ -173,7 +173,7 @@ Function1000fa: ; 1000fa
 	xor a
 	ld [InLinkBattle], a
 	ld a, $4
-	ld [wc319], a
+	ld [wPartyMon1MenuIconAnim + 5], a
 	callba Function11619d
 	ld hl, wcd29
 	set 6, [hl]
@@ -327,7 +327,7 @@ Function100232: ; 100232
 	push de
 	callba Function106464
 	call Function3f20
-	call DrawOnMap
+	call UpdateSprites
 	hlcoord 1, 2
 	pop de
 	call PlaceString
@@ -797,7 +797,7 @@ Function1004f4: ; 1004f4
 Function100504: ; 100504
 	push de
 	call Function3f20
-	call DrawOnMap
+	call UpdateSprites
 	pop de
 	hlcoord 4, 2
 	call PlaceString
@@ -830,7 +830,7 @@ Jumptable_10052a: ; 10052a
 
 Function100534: ; 100534
 	call Function100513
-	call DrawOnMap
+	call UpdateSprites
 	call Function321c
 	ld a, [wcd28]
 	inc a
@@ -1514,10 +1514,10 @@ Function100902: ; 100902
 
 
 Function100970: ; 100970
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld de, wdc00
 	call Function1009a5
-	ld hl, AttrMap
+	hlcoord 0, 0, AttrMap
 	ld de, $dd68
 	call Function1009a5
 	call Function1009d2
@@ -1527,18 +1527,18 @@ Function100970: ; 100970
 
 Function100989: ; 100989
 	ld hl, wdc00
-	ld de, TileMap
+	decoord 0, 0
 	call Function1009a5
 	call Function1009ae
 	callba Function104061
 	ld hl, $dd68
-	ld de, AttrMap
+	decoord 0, 0, AttrMap
 	call Function1009a5
 	ret
 ; 1009a5
 
 Function1009a5: ; 1009a5
-	ld bc, $0168
+	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
 	ld a, $3
 	call FarCopyWRAM
 	ret
@@ -1550,7 +1550,7 @@ Function1009ae: ; 1009ae
 	ld a, $3
 	ld [rSVBK], a
 	ld hl, $d800
-	ld de, AttrMap
+	decoord 0, 0, AttrMap
 	ld c, $14
 	ld b, $12
 .asm_1009bf
@@ -1829,7 +1829,7 @@ Function100b7a: ; 100b7a
 	rst FarCall
 	callba Function24085
 	callba MobileTextBorder
-	call DrawOnMap
+	call UpdateSprites
 	call Function321c
 	callba Function2411a
 	ld hl, wcfa5
@@ -2084,7 +2084,7 @@ Function100d67: ; 100d67
 	xor a
 	ld [hBGMapMode], a
 	call Function1cbb
-	call DrawOnMap
+	call UpdateSprites
 	call Function1c89
 	call WaitBGMap
 	call Function1c66
@@ -2812,7 +2812,7 @@ Jumptable_101247: ; 101247
 ; 101251
 
 Function101251: ; 101251
-	call DrawOnMap
+	call UpdateSprites
 	call ResetWindow
 	ld hl, UnknownText_0x1021f4
 	call Function1021e0
@@ -2829,7 +2829,7 @@ Function101265: ; 101265
 ; 10126c
 
 Function10126c: ; 10126c
-	call DrawOnMap
+	call UpdateSprites
 	callba Script_reloadmappart
 	ld hl, UnknownText_0x1021f4
 	call Function1021e0
@@ -3018,7 +3018,7 @@ Function1013aa: ; 1013aa
 	call Function1d7d
 	call Function2bae
 	callba Function106464
-	call DrawOnMap
+	call UpdateSprites
 	call Function2b5c
 	ret
 ; 1013c0
@@ -4174,7 +4174,7 @@ Function101b70: ; 101b70
 	call Function101ee4
 	ld hl, wcd29
 	set 5, [hl]
-	call DrawOnMap
+	call UpdateSprites
 	ld a, [wcd25]
 	inc a
 	ld [wcd25], a
@@ -4356,7 +4356,7 @@ Function101cc2: ; 101cc2 ; unreferenced
 
 Function101cc8: ; 101cc8
 	ld a, $1
-	ld [wc314], a
+	ld [wPartyMon1MenuIconAnim], a
 	ld a, $1
 	ld [wc30d], a
 	ld hl, wcd29
@@ -4369,7 +4369,7 @@ Function101cc8: ; 101cc8
 
 Function101cdf: ; 101cdf
 	ld a, $6
-	ld [wc314], a
+	ld [wPartyMon1MenuIconAnim], a
 	ld a, $1
 	ld [wc30d], a
 	ld hl, wcd29
@@ -4382,7 +4382,7 @@ Function101cdf: ; 101cdf
 
 Function101cf6: ; 101cf6
 	ld a, $b
-	ld [wc315], a
+	ld [wPartyMon1MenuIconAnim + 1], a
 	ld a, [wcd25]
 	inc a
 	ld [wcd25], a
@@ -4391,7 +4391,7 @@ Function101cf6: ; 101cf6
 
 Function101d03: ; 101d03
 	ld a, $e
-	ld [wc315], a
+	ld [wPartyMon1MenuIconAnim + 1], a
 	ld a, [wcd25]
 	inc a
 	ld [wcd25], a
@@ -6747,11 +6747,11 @@ Function102d48: ; 102d48
 Function102d9a: ; 102d9a
 	ld a, $7f
 	ld hl, SpritesEnd
-	ld bc, $0168
+	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
 	call ByteFill
 	ld a, $7
-	ld hl, AttrMap
-	ld bc, $0168
+	hlcoord 0, 0, AttrMap
+	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
 	call ByteFill
 	callba Function104000
 	ret
@@ -7321,7 +7321,7 @@ Function103309: ; 103309
 	ld a, [hl]
 	ld [wd1ee], a
 	call Function1034be
-	call DrawOnMap
+	call UpdateSprites
 	callba Function104000
 	ld a, $1
 	ld [wd1f0], a
@@ -7566,7 +7566,7 @@ Function1034f1: ; 1034f1
 	ld [wd1f2], a
 
 Function1034f7: ; 10134f7
-	ld hl, TileMap
+	hlcoord 0, 0
 	add hl, bc
 	ld a, [wd1ef]
 	ld bc, SCREEN_WIDTH
diff --git a/misc/mobile_42.asm b/misc/mobile_42.asm
index 634ea3a57..b12fb29b3 100644
--- a/misc/mobile_42.asm
+++ b/misc/mobile_42.asm
@@ -497,7 +497,7 @@ Function10830e: ; 10830e
 	call Function3b2a
 	ld de, SFX_BALL_POOF
 	call PlaySFX
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld bc, $00f0
 	ld a, $7f
 	call ByteFill
@@ -632,7 +632,7 @@ Function10842c: ; 10842c
 	call Function3b2a
 	ld de, SFX_BALL_POOF
 	call PlaySFX
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld bc, $00f0
 	ld a, $7f
 	call ByteFill
@@ -1386,8 +1386,8 @@ Function108abe: ; 108abe
 ; 108ac8
 
 Function108ac8: ; 108ac8
-	ld hl, TileMap
-	ld bc, $0168
+	hlcoord 0, 0
+	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
 	ld a, $7f
 	call ByteFill
 	ret
diff --git a/misc/mobile_45.asm b/misc/mobile_45.asm
index c959452ad..ded844c5e 100644
--- a/misc/mobile_45.asm
+++ b/misc/mobile_45.asm
@@ -5588,14 +5588,14 @@ INCBIN "gfx/unknown/11601a.2bpp"
 Function11615a: ; 11615a
 	xor a
 	ld [wc30d], a
-	ld [wc319], a
+	ld [wPartyMon1MenuIconAnim + 5], a
 	ld [wc310], a
 	ld [wc311], a
 	ld [wc312], a
 	ld [wc313], a
-	ld [wc314], a
-	ld [wc315], a
-	ld [wc318], a
+	ld [wPartyMon1MenuIconAnim], a
+	ld [wPartyMon1MenuIconAnim + 1], a
+	ld [wPartyMon1MenuIconAnim + 4], a
 	ld [wc3f6], a
 	ld [wc3f8], a
 	ld [wc3f2], a
@@ -5617,7 +5617,7 @@ Function11619d: ; 11619d
 	ld a, [wc30d]
 	and a
 	ret z
-	ld a, [wc319]
+	ld a, [wPartyMon1MenuIconAnim + 5]
 	cp $2
 	jr c, .asm_1161b4
 	ld a, $a0
@@ -5631,7 +5631,7 @@ Function11619d: ; 11619d
 ; 1161b8
 
 Function1161b8: ; 1161b8
-	ld a, [wc319]
+	ld a, [wPartyMon1MenuIconAnim + 5]
 	ld e, a
 	ld d, 0
 	ld hl, Jumptable_1161c7
@@ -5758,9 +5758,9 @@ Function1161d5: ; 1161d5
 	ld [wc2a9], a
 	ld a, d
 	ld [wc2aa], a
-	ld a, [wc319]
+	ld a, [wPartyMon1MenuIconAnim + 5]
 	inc a
-	ld [wc319], a
+	ld [wPartyMon1MenuIconAnim + 5], a
 	ret
 ; 11628c
 
@@ -5774,15 +5774,15 @@ MenuDataHeader_11628c: ; 11628c
 
 Function116294: ; 116294
 	callba Function170d02
-	ld a, [wc319]
+	ld a, [wPartyMon1MenuIconAnim + 5]
 	inc a
-	ld [wc319], a
+	ld [wPartyMon1MenuIconAnim + 5], a
 	ld a, [rSVBK]
 	push af
 	ld a, $5
 	ld [rSVBK], a
 	ld hl, wd030
-	ld de, wc320
+	ld de, wPartyMon1MenuIconAnim + 12
 	ld bc, $0010
 	call CopyBytes
 	ld hl, Palette_11734e
@@ -5799,9 +5799,9 @@ Function116294: ; 116294
 
 Function1162cb: ; 1162cb
 	callba Function170cc6
-	ld a, [wc319]
+	ld a, [wPartyMon1MenuIconAnim + 5]
 	inc a
-	ld [wc319], a
+	ld [wPartyMon1MenuIconAnim + 5], a
 	ld a, [rSVBK]
 	push af
 	ld a, $5
@@ -5838,7 +5838,7 @@ Function1162f2: ; 1162f2
 	ld c, a
 	ld a, [wc30f]
 	ld b, a
-	ld a, [wc318]
+	ld a, [wPartyMon1MenuIconAnim + 4]
 	ld e, a
 	ld a, [hli]
 	sub e
@@ -5928,7 +5928,7 @@ Function11636e: ; 11636e
 	call ByteFill
 	ld a, $90
 	ld [hWY], a
-	call DrawOnMap
+	call UpdateSprites
 	pop af
 	ld [rSVBK], a
 	callba Function104061
@@ -5939,7 +5939,7 @@ Function11636e: ; 11636e
 	xor a
 	ld [wc2aa], a
 	xor a
-	ld [wc319], a
+	ld [wPartyMon1MenuIconAnim + 5], a
 	ld [wc30d], a
 	ret
 ; 1163c0
@@ -5961,7 +5961,7 @@ Function1163c0: ; 1163c0
 	push af
 	ld a, $5
 	ld [rSVBK], a
-	ld hl, wc320
+	ld hl, wPartyMon1MenuIconAnim + 12
 	ld de, wd030
 	ld bc, $0010
 	call CopyBytes
@@ -5971,7 +5971,7 @@ Function1163c0: ; 1163c0
 	call DelayFrame
 	ld a, $90
 	ld [hWY], a
-	call DrawOnMap
+	call UpdateSprites
 	callba Function14157
 	pop af
 	ld [rSVBK], a
@@ -5997,7 +5997,7 @@ Function1163c0: ; 1163c0
 
 .asm_116439
 	xor a
-	ld [wc319], a
+	ld [wPartyMon1MenuIconAnim + 5], a
 	ld [wc30d], a
 	ret
 ; 116441
@@ -6014,14 +6014,14 @@ Function116441: ; 116441
 	xor a
 	ld [wc2aa], a
 	xor a
-	ld [wc319], a
+	ld [wPartyMon1MenuIconAnim + 5], a
 	ld [wc30d], a
 	ret
 ; 116468
 
 Function116468: ; 116468
 	call Function116567
-	ld a, [wc314]
+	ld a, [wPartyMon1MenuIconAnim]
 	cp $d
 	jr nz, .asm_1164a8
 	ld hl, wc30e
@@ -6213,7 +6213,7 @@ Function116567: ; 116567
 ; 11659d
 
 Function11659d: ; 11659d
-	ld a, [wc314]
+	ld a, [wPartyMon1MenuIconAnim]
 	cp $12
 	ret nc
 	ld e, a
@@ -6289,7 +6289,7 @@ Function116600:
 	call Function116780
 	ret c
 	ld a, $2
-	ld [wc314], a
+	ld [wPartyMon1MenuIconAnim], a
 	ret
 ; 116615
 
@@ -6332,24 +6332,24 @@ Function116640:
 	call Function116780
 	ret c
 	ld a, $7
-	ld [wc314], a
+	ld [wPartyMon1MenuIconAnim], a
 	ret
 ; 116655
 
 Function116655: ; 116655
 	xor a
-	ld [wc317], a
+	ld [wPartyMon1MenuIconAnim + 3], a
 	call Function11678e
 
 Function11665c:
-	ld hl, wc317
+	ld hl, wPartyMon1MenuIconAnim + 3
 	ld a, $1
 	xor [hl]
 	ld [hl], a
 	add $4
 	ld c, a
 	call Function11679c
-	ld a, [wc317]
+	ld a, [wPartyMon1MenuIconAnim + 3]
 	and a
 	jr nz, .asm_116673
 	ld a, $48
@@ -6378,7 +6378,7 @@ Function11668d:
 	call Function116780
 	ret c
 	ld a, $c
-	ld [wc314], a
+	ld [wPartyMon1MenuIconAnim], a
 	ret
 ; 11669f
 
@@ -6393,9 +6393,9 @@ Function1166a2:
 	ld [wc30f], a
 	ld [wc3f3], a
 	ld a, $ff
-	ld [wc316], a
+	ld [wPartyMon1MenuIconAnim + 2], a
 	xor a
-	ld [wc317], a
+	ld [wPartyMon1MenuIconAnim + 3], a
 	ld a, $0
 	ld c, a
 	call Function11679c
@@ -6417,25 +6417,25 @@ Function1166d6:
 	cp $48
 	jr nz, .asm_1166e4
 	xor a
-	ld [wc316], a
+	ld [wPartyMon1MenuIconAnim + 2], a
 
 .asm_1166e4
 	ld a, [wc311]
 	cp $ff
 	ret nz
 	ld a, $4
-	ld [wc319], a
+	ld [wPartyMon1MenuIconAnim + 5], a
 	xor a
-	ld [wc314], a
+	ld [wPartyMon1MenuIconAnim], a
 	ret
 ; 1166f4
 
 Function1166f4: ; 1166f4
 	ld [wc30e], a
 	ld a, b
-	ld [wc316], a
+	ld [wPartyMon1MenuIconAnim + 2], a
 	xor a
-	ld [wc317], a
+	ld [wPartyMon1MenuIconAnim + 3], a
 	ld hl, wc30f
 .asm_116702
 	call Random
@@ -6460,9 +6460,9 @@ Function1166f4: ; 1166f4
 Function11671f: ; 11671f
 	ld [wc30f], a
 	ld a, b
-	ld [wc317], a
+	ld [wPartyMon1MenuIconAnim + 3], a
 	xor a
-	ld [wc316], a
+	ld [wPartyMon1MenuIconAnim + 2], a
 	ld hl, wc30e
 .asm_11672d
 	call Random
@@ -6482,11 +6482,11 @@ Function11671f: ; 11671f
 
 Function116747: ; 116747
 	ld hl, wc30e
-	ld a, [wc316]
+	ld a, [wPartyMon1MenuIconAnim + 2]
 	add [hl]
 	ld [hl], a
 	ld hl, wc30f
-	ld a, [wc317]
+	ld a, [wPartyMon1MenuIconAnim + 3]
 	add [hl]
 	ld [hl], a
 	ret
@@ -6518,7 +6518,7 @@ Function116758: ; 116758
 	ld a, $4
 
 .asm_11677a
-	ld [wc318], a
+	ld [wPartyMon1MenuIconAnim + 4], a
 	ret
 ; 11677e
 
@@ -6526,11 +6526,11 @@ Function11677e: ; 11677e
 	ld a, $0
 
 Function116780:
-	ld hl, wc315
+	ld hl, wPartyMon1MenuIconAnim + 1
 	cp [hl]
 	jr z, .asm_11678c
 	ld a, [hl]
-	ld [wc314], a
+	ld [wPartyMon1MenuIconAnim], a
 	scf
 	ret
 
@@ -6540,15 +6540,15 @@ Function116780:
 ; 11678e
 
 Function11678e: ; 11678e
-	ld hl, wc314
+	ld hl, wPartyMon1MenuIconAnim
 	ld a, [hl]
-	ld [wc315], a
+	ld [wPartyMon1MenuIconAnim + 1], a
 	inc [hl]
 	ret
 ; 116797
 
 Function116797: ; 116797
-	ld hl, wc314
+	ld hl, wPartyMon1MenuIconAnim
 	inc [hl]
 	ret
 ; 11679c
@@ -8456,11 +8456,11 @@ YesNo117ccc: ; 0x117ccc
 	db   "@"
 
 MobileStadiumEntryText: ; 0x117cd3
-	TX_FAR _MobileStadiumEntryText
+	text_jump _MobileStadiumEntryText
 	db "@"
 
 MobileStadiumSuccessText: ; 0x117cd8
-	TX_FAR _MobileStadiumSuccessText
+	text_jump _MobileStadiumSuccessText
 	db "@"
 
 Function117cdd: ; 0x117cdd
@@ -8938,7 +8938,7 @@ Function1183cb: ; 1183cb
 	ld [wcd66], a
 	ld [wcd67], a
 	ld [wcd68], a
-	ld [wc31a], a
+	ld [wPartyMon1MenuIconAnim + 6], a
 	ld [wcd89], a
 	ld [wcd8a], a
 	ld [wcd8b], a
@@ -9527,7 +9527,7 @@ Function11878d: ; 11878d (46:478d)
 	ld a, $a
 	call Function3e32
 	ld a, [wc3f0]
-	ld [wc319], a
+	ld [wPartyMon1MenuIconAnim + 5], a
 	ld a, [wcd34]
 	ld [wcf66], a
 	ret
@@ -9571,13 +9571,13 @@ Function118805: ; 118805 (46:4805)
 	ld a, $a
 	call Function3e32
 	ld a, [wc3f0]
-	ld [wc319], a
+	ld [wPartyMon1MenuIconAnim + 5], a
 	ld a, [wcd34]
 	ld [wcf66], a
 	ret
 
 Function118821: ; 118821 (46:4821)
-	ld a, [wc319]
+	ld a, [wPartyMon1MenuIconAnim + 5]
 	cp $3
 	jr c, .asm_11884a
 	cp $4
@@ -9590,7 +9590,7 @@ Function118821: ; 118821 (46:4821)
 	ld a, $a
 	ld [wc300], a
 	ld a, [wc3f0]
-	ld [wc319], a
+	ld [wPartyMon1MenuIconAnim + 5], a
 	ld a, [wcd34]
 	ld [wcf66], a
 	scf
@@ -9669,7 +9669,7 @@ Function118896: ; 118896
 ; 1188b0
 
 Function1188b0: ; 1188b0 (46:48b0)
-	ld de, wc346
+	ld de, wPartyMon4MenuIconAnim + 2
 	ld a, $c
 	jp Function119e2b
 
@@ -9701,7 +9701,7 @@ Function1188c8: ; 1188c8 (46:48c8)
 	jp Function119e2b
 
 Function1188e7: ; 1188e7 (46:48e7)
-	ld de, wc346
+	ld de, wPartyMon4MenuIconAnim + 2
 	ld a, $5
 	call GetSRAMBank
 	ld a, [$aa4a]
@@ -9721,7 +9721,7 @@ Function1188e7: ; 1188e7 (46:48e7)
 
 Function118903: ; 118903 (46:4903)
 	ld a, [wc3f0]
-	ld [wc319], a
+	ld [wPartyMon1MenuIconAnim + 5], a
 	ld c, $1
 	callba Function115e18
 	ld a, $8
@@ -9750,7 +9750,7 @@ Function118922: ; 118922
 	call Function119e2e
 
 Function118936:
-	ld a, [wc31a]
+	ld a, [wPartyMon1MenuIconAnim + 6]
 	and a
 	ret nz
 	ld hl, MenuDataHeader_119cf7
@@ -10032,7 +10032,7 @@ Function118b10:
 	jp Function119e2b
 
 Function118b24: ; 118b24 (46:4b24)
-	ld hl, wc346
+	ld hl, wPartyMon4MenuIconAnim + 2
 	ld a, $8
 	ld [hli], a
 	ld a, $c7
@@ -10045,7 +10045,7 @@ Function118b24: ; 118b24 (46:4b24)
 	call Function119ec2
 	ld a, $80
 	ld [wcd89], a
-	ld hl, wc346
+	ld hl, wPartyMon4MenuIconAnim + 2
 	ret
 ; 118b42 (46:4b42)
 
@@ -10380,22 +10380,22 @@ Function118ec6: ; 118ec6
 	call Function118440
 	call SpeechTextBox
 	ld hl, $d80e
-	ld de, wc320
+	ld de, wPartyMon1MenuIconAnim + 12
 	ld bc, $0026
 	call CopyBytes
 	xor a
-	ld [wc31f], a
+	ld [wPartyMon1MenuIconAnim + 11], a
 	ld a, $20
-	ld [wc31b], a
+	ld [wPartyMon1MenuIconAnim + 7], a
 	ld a, $c3
-	ld [wc31c], a
+	ld [wPartyMon1MenuIconAnim + 8], a
 	hlcoord 1, 14
 	ld a, l
-	ld [wc31d], a
+	ld [wPartyMon1MenuIconAnim + 9], a
 	ld a, h
-	ld [wc31e], a
+	ld [wPartyMon1MenuIconAnim + 10], a
 	ld a, $2
-	ld [wc31a], a
+	ld [wPartyMon1MenuIconAnim + 6], a
 	ld a, $1d
 	ld [wcd3c], a
 	ld a, $24
@@ -10468,7 +10468,7 @@ Function118f68:
 	ld a, [wcc60]
 	and a
 	jr z, .asm_118fba
-	ld hl, wc346
+	ld hl, wPartyMon4MenuIconAnim + 2
 	ld a, $c608 % $100
 	ld [hli], a
 	ld a, $c608 / $100
@@ -10489,7 +10489,7 @@ Function118f68:
 	call Function119ec2
 	ld a, $40
 	ld [wcd89], a
-	ld hl, wc346
+	ld hl, wPartyMon4MenuIconAnim + 2
 	ld de, $de00
 	ld bc, $0200
 	ld a, $2c
@@ -10549,7 +10549,7 @@ Function119009:
 	ld de, wcc60
 	call Function1191ad
 	ret c
-	ld hl, wc346
+	ld hl, wPartyMon4MenuIconAnim + 2
 	ld a, $8
 	ld [hli], a
 	ld a, $c6
@@ -10570,7 +10570,7 @@ Function119009:
 	call Function119ec2
 	ld a, $40
 	ld [wcd89], a
-	ld hl, wc346
+	ld hl, wPartyMon4MenuIconAnim + 2
 	ld de, Unkn1Pals
 	ld bc, $1000
 	ld a, $2c
@@ -11097,7 +11097,7 @@ Function1193a0:
 	ld a, $8
 	ld [wcd3c], a
 	call Function119ed8
-	ld hl, wc346
+	ld hl, wPartyMon4MenuIconAnim + 2
 	ld a, wd000 % $100
 	ld [hli], a
 	ld a, wd000 / $100
@@ -11118,7 +11118,7 @@ Function1193a0:
 	call Function119ec2
 	ld a, $40
 	ld [wcd89], a
-	ld hl, wc346
+	ld hl, wPartyMon4MenuIconAnim + 2
 	ld de, $de00
 	ld bc, $0200
 	ld a, $2c
@@ -11920,7 +11920,7 @@ Function1198ee: ; 1198ee
 	call Function119e2e
 
 Function1198f7:
-	ld a, [wc31a]
+	ld a, [wPartyMon1MenuIconAnim + 6]
 	and a
 	ret nz
 	ld hl, $c608 + 2
@@ -12466,7 +12466,7 @@ Function119ca2:
 	call Function119e2e
 
 Function119cab:
-	ld a, [wc31a]
+	ld a, [wPartyMon1MenuIconAnim + 6]
 	and a
 	ret nz
 	ld a, $80
@@ -12503,7 +12503,7 @@ Function119cc3: ; 119cc3
 	call Function119e2e
 
 Function119cdf:
-	ld a, [wc31a]
+	ld a, [wPartyMon1MenuIconAnim + 6]
 	and a
 	ret nz
 	ld a, $f
@@ -12949,7 +12949,7 @@ Function119f98: ; 119f98
 	ld a, $1
 	ld [wc30d], a
 	ld a, $1
-	ld [wc314], a
+	ld [wPartyMon1MenuIconAnim], a
 	callba Function104061
 	and a
 	ret
@@ -13131,7 +13131,7 @@ Function11a16d: ; 11a16d
 	call Function11a63c
 	call Function11a1e6
 	hlcoord 4, 2
-	ld de, wc346
+	ld de, wPartyMon4MenuIconAnim + 2
 	call PlaceString
 	call Function11a5f5
 	xor a
@@ -13185,7 +13185,7 @@ Function11a1d6: ; 11a1d6
 
 Function11a1e6: ; 11a1e6
 	ld hl, String_11a706
-	ld de, wc346
+	ld de, wPartyMon4MenuIconAnim + 2
 	call Function11a1ff
 	ld hl, wcd85
 	call Function11a1ff
@@ -13734,15 +13734,15 @@ Function11a5b9: ; 11a5b9
 	ld a, $5
 	ld [wcf84], a
 	call Function1c00
-	ld hl, AttrMap
+	hlcoord 0, 0, AttrMap
 	ld b, $6
 	ld c, $14
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld b, $4
 	ld c, $12
 	call Function3eea
 	callba Function104061
-	call DrawOnMap
+	call UpdateSprites
 	ld c, $0
 	callba Function115e18
 	ld a, $1
@@ -14011,7 +14011,7 @@ endr
 ; 11a8fa
 
 Function11a8fa: ; 11a8fa
-	ld a, [wc31a]
+	ld a, [wPartyMon1MenuIconAnim + 6]
 	ld e, a
 	ld d, 0
 	ld hl, Jumptable_11a909
@@ -14035,14 +14035,14 @@ Function11a90f: ; 11a90f
 	ld [rSVBK], a
 	call SpeechTextBox
 	ld a, $50
-	ld hl, wc320
+	ld hl, wPartyMon1MenuIconAnim + 12
 	ld bc, $008c
 	call ByteFill
-	ld a, [wc31b]
+	ld a, [wPartyMon1MenuIconAnim + 7]
 	ld l, a
-	ld a, [wc31c]
+	ld a, [wPartyMon1MenuIconAnim + 8]
 	ld h, a
-	ld de, wc320
+	ld de, wPartyMon1MenuIconAnim + 12
 .asm_11a92c
 	ld a, [hli]
 	cp $57
@@ -14073,17 +14073,17 @@ Function11a90f: ; 11a90f
 
 .asm_11a94f
 	xor a
-	ld [wc31f], a
+	ld [wPartyMon1MenuIconAnim + 11], a
 	ld a, $20
-	ld [wc31b], a
+	ld [wPartyMon1MenuIconAnim + 7], a
 	ld a, $c3
-	ld [wc31c], a
+	ld [wPartyMon1MenuIconAnim + 8], a
 	hlcoord 1, 14
 	ld a, l
-	ld [wc31d], a
+	ld [wPartyMon1MenuIconAnim + 9], a
 	ld a, h
-	ld [wc31e], a
-	ld hl, wc31a
+	ld [wPartyMon1MenuIconAnim + 10], a
+	ld hl, wPartyMon1MenuIconAnim + 6
 	inc [hl]
 	ld a, $3
 	ld [rSVBK], a
@@ -14093,7 +14093,7 @@ Function11a970:
 ; 11a971
 
 Function11a971: ; 11a971
-	ld hl, wc31f
+	ld hl, wPartyMon1MenuIconAnim + 11
 	ld a, [hJoyDown]
 	and a
 	jr nz, .asm_11a97f
@@ -14108,34 +14108,34 @@ Function11a971: ; 11a971
 	and $7
 	ld [hl], a
 	ld hl, wcd8d
-	ld a, [wc31b]
+	ld a, [wPartyMon1MenuIconAnim + 7]
 	ld e, a
-	ld a, [wc31c]
+	ld a, [wPartyMon1MenuIconAnim + 8]
 	ld d, a
 	ld a, [de]
 	inc de
 	ld [hli], a
 	ld a, e
-	ld [wc31b], a
+	ld [wPartyMon1MenuIconAnim + 7], a
 	ld a, d
-	ld [wc31c], a
+	ld [wPartyMon1MenuIconAnim + 8], a
 	ld a, $50
 	ld [hl], a
-	ld a, [wc31d]
+	ld a, [wPartyMon1MenuIconAnim + 9]
 	ld l, a
-	ld a, [wc31e]
+	ld a, [wPartyMon1MenuIconAnim + 10]
 	ld h, a
 	ld de, wcd8d
 	call PlaceString
 	ld a, c
-	ld [wc31d], a
+	ld [wPartyMon1MenuIconAnim + 9], a
 	ld a, b
-	ld [wc31e], a
+	ld [wPartyMon1MenuIconAnim + 10], a
 	ld a, [wcd8d]
 	cp $50
 	jr nz, .asm_11a9bf
 	xor a
-	ld [wc31a], a
+	ld [wPartyMon1MenuIconAnim + 6], a
 
 .asm_11a9bf
 	ret
@@ -14143,11 +14143,11 @@ Function11a971: ; 11a971
 
 Function11a9c0: ; 11a9c0
 	ld a, l
-	ld [wc31b], a
+	ld [wPartyMon1MenuIconAnim + 7], a
 	ld a, h
-	ld [wc31c], a
+	ld [wPartyMon1MenuIconAnim + 8], a
 	ld a, $1
-	ld [wc31a], a
+	ld [wPartyMon1MenuIconAnim + 6], a
 	ret
 ; 11a9ce
 
@@ -14159,7 +14159,7 @@ Function11a9ce: ; 11a9ce
 	callba Function106464
 	call Functiond90
 	callba Function2b5c
-	call DrawOnMap
+	call UpdateSprites
 	ret
 ; 11a9f0
 
@@ -15200,9 +15200,9 @@ Function11b175: ; 11b175
 ; 11b1f7
 
 Function11b1f7: ; 11b1f7
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld a, $32
-	ld bc, $0168
+	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
 	call ByteFill
 	ret
 ; 11b203
@@ -16576,7 +16576,7 @@ endr
 	bccoord 1, 14
 	pop af
 	ld [rSVBK], a
-	call Function13e5
+	call PlaceWholeStringInBoxAtOnce
 	ret
 ; 11c05d
 
@@ -16759,7 +16759,7 @@ Function11c0c6: ; 11c0c6
 	ld [hl], $57
 	pop bc
 	ld hl, $c608 + 16
-	call Function13e5
+	call PlaceWholeStringInBoxAtOnce
 	pop hl
 	ld a, l
 	ld [wcf63], a
@@ -18804,7 +18804,7 @@ Unknown_11cfca:
 ; 11cfce
 
 Function11cfce: ; 11cfce (47:4fce)
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld bc, $14
 	ld a, [de]
 	inc de
@@ -18895,7 +18895,7 @@ endr
 	ret
 
 Function11d035: ; 11d035 (47:5035)
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld bc, $14
 	ld a, [de]
 	inc de
@@ -21492,7 +21492,7 @@ Function16c130: ; 16c130
 ; 16c145
 
 Function16c145: ; 16c145
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld bc, 20
 	xor a
 	call ByteFill
@@ -21504,7 +21504,7 @@ Function16c145: ; 16c145
 ; 16c15c
 
 Function16c15c: ; 16c15c
-	ld hl, AttrMap
+	hlcoord 0, 0, AttrMap
 	ld bc, $0014
 	xor a
 	call ByteFill
@@ -22099,12 +22099,12 @@ Function16cc73:
 	ld a, $0
 	ld [rVBK], a
 	push hl
-	ld de, TileMap
+	decoord 0, 0
 	call Function16cc90
 	pop hl
 	ld a, $1
 	ld [rVBK], a
-	ld de, AttrMap
+	decoord 0, 0, AttrMap
 	call Function16cc90
 	pop af
 	ld [rVBK], a
@@ -22169,8 +22169,8 @@ Function16d421: ; 16d421
 
 Function16d42e: ; 16d42e
 	ld hl, Tilemap_16d465
-	ld de, TileMap
-	ld bc, $0168
+	decoord 0, 0
+	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
 	call CopyBytes
 	ret
 ; 16d43b
@@ -22310,7 +22310,7 @@ Function16d6a7: ; 16d6a7
 Function16d6ae: ; 16d6ae
 	call Function16d42e
 	ld hl, Tilemap_16d5cd
-	ld de, TileMap
+	decoord 0, 0
 	ld bc, $0028
 	call CopyBytes
 	ld hl, Tilemap_16d5f5
@@ -24856,11 +24856,11 @@ Function171c87: ; 171c87 (5c:5c87)
 	call Decompress
 	call EnableLCD
 	ld hl, Tilemap_172491
-	ld de, TileMap
+	decoord 0, 0
 	ld bc, $168
 	call CopyBytes
 	ld hl, Attrmap_1727ed
-	ld de, AttrMap
+	decoord 0, 0, AttrMap
 	ld bc, $168
 	call CopyBytes
 	hlcoord 3, 2
@@ -24928,11 +24928,11 @@ Function171d2b: ; 171d2b (5c:5d2b)
 	call Decompress
 	call EnableLCD
 	ld hl, Tilemap_172685
-	ld de, TileMap
+	decoord 0, 0
 	ld bc, $168
 	call CopyBytes
 	ld hl, Attrmap_172955
-	ld de, AttrMap
+	decoord 0, 0, AttrMap
 	ld bc, $168
 	call CopyBytes
 	hlcoord 2, 2
@@ -25010,11 +25010,11 @@ String_172e5d: ; 172e5d
 
 Function172e78: ; 172e78 (5c:6e78)
 	ld a, $7f
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld bc, $168
 	call ByteFill
 	ld a, $7
-	ld hl, AttrMap
+	hlcoord 0, 0, AttrMap
 	ld bc, $168
 	call ByteFill
 	call DisableLCD
@@ -25024,11 +25024,11 @@ Function172e78: ; 172e78 (5c:6e78)
 	call CopyBytes
 	call EnableLCD
 	ld hl, Tilemap_1733af
-	ld de, TileMap
+	decoord 0, 0
 	ld bc, $168
 	call CopyBytes
 	ld hl, Attrmap_173517
-	ld de, AttrMap
+	decoord 0, 0, AttrMap
 	ld bc, $168
 	call CopyBytes
 	ret
diff --git a/misc/mobile_5f.asm b/misc/mobile_5f.asm
index 4b780cbce..acf5ede40 100644
--- a/misc/mobile_5f.asm
+++ b/misc/mobile_5f.asm
@@ -14,8 +14,8 @@ Function17c000: ; 17c000
 	call Functione5f
 
 	ld hl, HaveWantMap
-	ld de, TileMap
-	ld bc, AttrMap
+	decoord 0, 0
+	bccoord 0, 0, AttrMap
 
 	ld a, SCREEN_HEIGHT
 .y
@@ -746,8 +746,8 @@ Function17d48d: ; 17d48d
 	ld bc, $0040
 	call CopyBytes
 	ld hl, TileAttrmap_17eb8e
-	ld de, TileMap
-	ld bc, AttrMap
+	decoord 0, 0
+	bccoord 0, 0, AttrMap
 	ld a, $12
 .asm_17d4a4
 	push af
@@ -862,7 +862,7 @@ Function17d48d: ; 17d48d
 	ld b, a
 	push hl
 	pop de
-	ld hl, TileMap
+	hlcoord 0, 0
 	add hl, bc
 	call PlaceString
 	push de
@@ -1310,7 +1310,7 @@ Function17d818: ; 17d818
 	call Function17e447
 	ld e, l
 	ld d, h
-	ld hl, TileMap
+	hlcoord 0, 0
 	add hl, bc
 	call PlaceString
 	ret
@@ -1335,7 +1335,7 @@ Function17d833: ; 17d833
 	call Function17e43d
 	ld c, l
 	ld b, h
-	ld hl, TileMap
+	hlcoord 0, 0
 	add hl, de
 	ld e, l
 	ld d, h
@@ -1505,7 +1505,7 @@ Function17d93a: ; 17d93a
 	ld h, a
 	ld a, [wc70b]
 	ld c, a
-	ld de, TileMap
+	decoord 0, 0
 	add hl, de
 	ld e, l
 	ld d, h
@@ -1543,7 +1543,7 @@ Function17d98b: ; 17d98b
 	ld de, VTiles2
 	callba GetTrainerPic
 	pop hl
-	ld de, TileMap
+	decoord 0, 0
 	add hl, de
 	ld bc, $0707
 	predef FillBox
@@ -2051,12 +2051,12 @@ Function17dd13: ; 17dd13
 	call Function17e41e
 	call Function17e447
 	push hl
-	ld hl, TileMap
+	hlcoord 0, 0
 	add hl, bc
 	push hl
 	pop bc
 	pop hl
-	call Function13e5
+	call PlaceWholeStringInBoxAtOnce
 	ret
 ; 17dd30
 
@@ -2073,7 +2073,7 @@ Function17dd30: ; 17dd30
 	push af
 	call Function17e41e
 	pop af
-	ld hl, TileMap
+	hlcoord 0, 0
 	add hl, de
 	call Function17e600
 	ret
@@ -3230,7 +3230,7 @@ rept 2
 	add hl, bc
 endr
 	push hl
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld bc, $0014
 	ld a, [wcd23]
 	call AddNTimes
@@ -3308,7 +3308,7 @@ Function17e4dd: ; 17e4dd
 	and $1
 	ret z
 	ld a, [wcd29]
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld bc, $0014
 	call AddNTimes
 	ld a, [wcd28]
@@ -3345,7 +3345,7 @@ Function17e51b: ; 17e51b
 	sub [hl]
 	inc a
 	ld [wcd4f], a
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld bc, $0014
 	ld a, [wcd23]
 	dec a
@@ -3395,7 +3395,7 @@ Function17e566: ; 17e566
 
 Function17e571: ; 17e571
 	push af
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld bc, $0014
 	ld a, [wcd23]
 	call AddNTimes
@@ -3437,7 +3437,7 @@ Function17e5af: ; 17e5af
 	ld l, a
 	ld a, [wcd44]
 	ld h, a
-	ld bc, TileMap
+	bccoord 0, 0
 	add hl, bc
 	ld bc, $ffec
 	add hl, bc
@@ -3471,7 +3471,7 @@ endr
 	ld l, a
 	ld a, [wcd44]
 	ld h, a
-	ld bc, TileMap
+	bccoord 0, 0
 	add hl, bc
 	call PlaceString
 	ret
@@ -3496,7 +3496,7 @@ Function17e600: ; 17e600
 
 Function17e613: ; 17e613
 	push hl
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld bc, $0014
 	ld a, [de]
 	inc de
@@ -3633,7 +3633,7 @@ endr
 	push af
 	push hl
 	push hl
-	ld bc, TileMap
+	bccoord 0, 0
 	add hl, bc
 	ld a, [hl]
 	cp $7f
@@ -3648,7 +3648,7 @@ endr
 
 .asm_17e6c7
 	pop hl
-	ld bc, AttrMap
+	bccoord 0, 0, AttrMap
 	add hl, bc
 	ld [hl], a
 	pop hl
@@ -3672,7 +3672,7 @@ Function17e6de: ; 17e6de
 	ld l, a
 	ld a, [wc709]
 	ld h, a
-	ld de, AttrMap
+	decoord 0, 0, AttrMap
 	add hl, de
 	pop af
 	ld b, $7
@@ -4456,7 +4456,7 @@ Function17f41d: ; 17f41d
 	jr .asm_17f42c
 
 .asm_17f439
-	ld hl, TileMap
+	hlcoord 0, 0
 	ld de, SCREEN_WIDTH
 	ld a, c
 .asm_17f440
@@ -4769,12 +4769,12 @@ Function17f5e4: ; 17f5e4
 	ld a, d
 	ld [MusicFadeIDHi], a
 	ld a, " "
-	ld hl, TileMap
-	ld bc, $0168
+	hlcoord 0, 0
+	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
 	call ByteFill
 	ld a, $6
-	ld hl, AttrMap
-	ld bc, $0168
+	hlcoord 0, 0, AttrMap
+	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
 	call ByteFill
 	hlcoord 2, 1
 	ld b, $1
diff --git a/predef/cgb.asm b/predef/cgb.asm
index 89b8cee99..e4cecad83 100644
--- a/predef/cgb.asm
+++ b/predef/cgb.asm
@@ -13,7 +13,7 @@ Function8d59: ; 8d59
 	ld a, [SGBPredef]
 
 .asm_8d61
-	cp $fc
+	cp -4
 	jp z, Function96f3
 	call Function9673
 	ld l, a
@@ -121,8 +121,8 @@ endr
 
 Function8e23: ; 8e23
 	call Function8e85
-	ld hl, AttrMap
-	ld bc, $0168
+	hlcoord 0, 0, AttrMap
+	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
 	ld a, $2
 	call ByteFill
 	hlcoord 0, 4, AttrMap
@@ -133,7 +133,7 @@ Function8e23: ; 8e23
 	ld bc, $070a
 	ld a, $1
 	call Function9663
-	ld hl, AttrMap
+	hlcoord 0, 0, AttrMap
 	ld bc, $040a
 	ld a, $2
 	call Function9663
@@ -233,7 +233,7 @@ endr
 	ld a, $5
 	call FarCopyWRAM
 	call Function9699
-	ld hl, AttrMap
+	hlcoord 0, 0, AttrMap
 	ld bc, $0814
 	ld a, $1
 	call Function9663
@@ -717,8 +717,8 @@ Function9289: ; 9289
 	ld a, $24
 	call Function9625
 	call Function9630
-	ld hl, AttrMap
-	ld bc, $0168
+	hlcoord 0, 0, AttrMap
+	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
 	ld a, [PlayerGender]
 	and a
 	ld a, $1
@@ -864,7 +864,7 @@ Function93d3: ; 93d3
 	ld a, $5
 	call FarCopyWRAM
 	call Function9699
-	ld hl, AttrMap
+	hlcoord 0, 0, AttrMap
 	ld bc, $010a
 	ld a, $1
 	call Function9663
@@ -948,7 +948,7 @@ Palettes_9469: ; 9469
 Function9499: ; 9499
 	call Function91c8
 	ld de, $0014
-	ld hl, AttrMap
+	hlcoord 0, 0, AttrMap
 	ld a, [wcf82]
 .asm_94a5
 	and a
@@ -1093,7 +1093,7 @@ Function9591: ; 9591
 	ld bc, $0112
 	ld a, $1
 	call Function9663
-	ld hl, AttrMap
+	hlcoord 0, 0, AttrMap
 	ld bc, $1102
 	ld a, $1
 	call Function9663
diff --git a/predef/sgb.asm b/predef/sgb.asm
index 5db1c14bd..590dcb3d2 100644
--- a/predef/sgb.asm
+++ b/predef/sgb.asm
@@ -1,7 +1,7 @@
-Function864c: ; 864c
+Predef_LoadSGBLayout: ; 864c
 ; LoadSGBLayout
 	call CheckCGB
-	jp nz, Function8d59
+	jp nz, Predef_LoadSGBLayoutCGB
 
 	ld a, b
 	cp $ff
@@ -14,57 +14,57 @@ Function864c: ; 864c
 	ld l, a
 	ld h, 0
 	add hl, hl
-	ld de, Table866f
+	ld de, .Jumptable
 	add hl, de
 	ld a, [hli]
 	ld h, [hl]
 	ld l, a
-	ld de, Function8a60
+	ld de, .Finish
 	push de
 	jp [hl]
 ; 866f
 
-Table866f: ; 866f
-	dw Function86ad
-	dw Function86b4
-	dw Function875c
-	dw Function8763
-	dw Function87b2
-	dw Function8852
-	dw Function8859
-	dw Function8867
-	dw Function8860
-	dw Function88b1
-	dw Function87ab
-	dw Function88cd
-	dw Function8884
-	dw Function891a
-	dw Function873c
-	dw Function8897
-	dw Function882a
-	dw Function889e
-	dw Function8928
-	dw Function8890
-	dw Function884b
-	dw Function891a
-	dw Function8823
-	dw Function87e9
-	dw Function8921
-	dw Function89a6
-	dw Function89ad
-	dw Function89d9
-	dw Function89e0
-	dw Function8860
-	dw Function8969
+.Jumptable: ; 866f
+	dw .SGB00
+	dw .SGB01
+	dw .SGB02
+	dw .SGB03
+	dw .SGB04
+	dw .SGB05
+	dw .SGB06
+	dw .SGB07
+	dw .SGB08_1d
+	dw .SGB09
+	dw .SGB0a
+	dw .SGB0b
+	dw .SGB0c
+	dw .SGB0d_15
+	dw .SGB0e
+	dw .SGB0f
+	dw .SGB10
+	dw .SGB11
+	dw .SGB12
+	dw .SGB13
+	dw .SGB14
+	dw .SGB0d_15
+	dw .SGB16
+	dw .SGB17
+	dw .SGB18
+	dw .SGB19
+	dw .SGB1a
+	dw .SGB1b
+	dw .SGB1c
+	dw .SGB08_1d
+	dw .SGB1e
 ; 86ad
 
-Function86ad: ; 86ad
+.SGB00: ; 86ad
 	ld hl, PalPacket_9c66
 	ld de, BlkPacket_9aa6
 	ret
 ; 86b4
 
-Function86b4: ; 86b4
+.SGB01: ; 86b4
 	ld hl, BlkPacket_9aa6
 	call Function9809
 	ld hl, PalPacket_9ce6
@@ -132,7 +132,7 @@ endr
 	ret
 ; 873c
 
-Function873c: ; 873c
+.SGB0e: ; 873c
 	ld hl, PalPacket_9bd6
 	ld de, wcda9
 	ld bc, $0010
@@ -150,13 +150,13 @@ endr
 	ret
 ; 875c
 
-Function875c: ; 875c
+.SGB02: ; 875c
 	ld hl, PalPacket_9c76
 	ld de, BlkPacket_9a86
 	ret
 ; 8763
 
-Function8763: ; 8763
+.SGB03: ; 8763
 	ld hl, PalPacket_9ce6
 	ld de, wcda9
 	ld bc, $0010
@@ -193,13 +193,13 @@ endr
 	ret
 ; 87ab
 
-Function87ab: ; 87ab
+.SGB0a: ; 87ab
 	ld hl, PalPacket_9c56
 	ld de, wcda9 + 1
 	ret
 ; 87b2
 
-Function87b2: ; 87b2
+.SGB04: ; 87b2
 	ld hl, PalPacket_9ce6
 	ld de, wcda9
 	ld bc, $0010
@@ -227,7 +227,7 @@ Function87b2: ; 87b2
 	ret
 ; 87e9
 
-Function87e9: ; 87e9
+.SGB17: ; 87e9
 	ld hl, PalPacket_9ce6
 	ld de, wcda9
 	ld bc, $0010
@@ -256,13 +256,13 @@ Function87e9: ; 87e9
 	ret
 ; 8823
 
-Function8823: ; 8823
-	call Function87b2
+.SGB16: ; 8823
+	call .SGB04
 	ld de, BlkPacket_9af6
 	ret
 ; 882a
 
-Function882a: ; 882a
+.SGB10: ; 882a
 	ld hl, PalPacket_9ce6
 	ld de, wcda9
 	ld bc, $0010
@@ -280,33 +280,33 @@ Function882a: ; 882a
 	ret
 ; 884b
 
-Function884b: ; 884b
+.SGB14: ; 884b
 	ld hl, PalPacket_9c36
 	ld de, BlkPacket_9a86
 	ret
 ; 8852
 
-Function8852: ; 8852
+.SGB05: ; 8852
 	ld hl, PalPacket_9c96
 	ld de, BlkPacket_9b06
 	ret
 ; 8859
 
-Function8859: ; 8859
+.SGB06: ; 8859
 	ld hl, PalPacket_9ca6
 	ld de, BlkPacket_9b76
 	ret
 ; 8860
 
-Function8860: ; 8860
+.SGB08_1d: ; 8860
 	ld hl, PalPacket_9cb6
 	ld de, BlkPacket_9a86
 	ret
 ; 8867
 
-Function8867: ; 8867
+.SGB07: ; 8867
 	ld b, 0
-	ld hl, Unknown_8878
+	ld hl, .BlkPacketTable_SGB07
 rept 4
 	add hl, bc
 endr
@@ -320,13 +320,13 @@ endr
 	ret
 ; 8878
 
-Unknown_8878: ; 8878
+.BlkPacketTable_SGB07: ; 8878
 	dw BlkPacket_9a86, PalPacket_9be6
 	dw BlkPacket_9a96, PalPacket_9c06
 	dw BlkPacket_9a86, PalPacket_9c16
 ; 8884
 
-Function8884: ; 8884
+.SGB0c: ; 8884
 	ld hl, PalPacket_9b96
 	ld de, BlkPacket_9b56
 	ld a, $8
@@ -334,19 +334,19 @@ Function8884: ; 8884
 	ret
 ; 8890
 
-Function8890: ; 8890
+.SGB13: ; 8890
 	ld hl, PalPacket_9ba6
 	ld de, BlkPacket_9b86
 	ret
 ; 8897
 
-Function8897: ; 8897
+.SGB0f: ; 8897
 	ld hl, PalPacket_9c46
 	ld de, BlkPacket_9a86
 	ret
 ; 889e
 
-Function889e: ; 889e
+.SGB11: ; 889e
 	ld hl, BlkPacket_9a86
 	ld de, PlayerLightScreenCount
 	ld bc, $0010
@@ -356,12 +356,12 @@ Function889e: ; 889e
 	ret
 ; 88b1
 
-Function88b1: ; 88b1
+.SGB09: ; 88b1
 	ld hl, PalPacket_9bd6
 	ld de, wcda9
 	ld bc, $0010
 	call CopyBytes
-	call Function8a0c
+	call .GetPermission
 	ld hl, wcda9 + 1
 	ld [hld], a
 	ld de, BlkPacket_9a86
@@ -370,7 +370,7 @@ Function88b1: ; 88b1
 	ret
 ; 88cd
 
-Function88cd: ; 88cd
+.SGB0b: ; 88cd
 	push bc
 	ld hl, PalPacket_9ce6
 	ld de, wcda9
@@ -414,19 +414,19 @@ Function88cd: ; 88cd
 	ret
 ; 891a
 
-Function891a: ; 891a
+.SGB0d_15: ; 891a
 	ld hl, PalPacket_9cb6
 	ld de, BlkPacket_9a86
 	ret
 ; 8921
 
-Function8921: ; 8921
+.SGB18: ; 8921
 	ld hl, PalPacket_9bc6
 	ld de, BlkPacket_9a86
 	ret
 ; 8928
 
-Function8928: ; 8928
+.SGB12: ; 8928
 	ld hl, PalPacket_9bd6
 	ld de, wcda9
 	ld bc, $0010
@@ -435,7 +435,7 @@ Function8928: ; 8928
 	ld de, wcda9 + $10
 	ld bc, $0010
 	call CopyBytes
-	call Function8a0c
+	call .GetPermission
 	ld hl, wcda9 + 1
 	ld [hl], a
 	ld hl, wcda9 + 3
@@ -456,7 +456,7 @@ Function8928: ; 8928
 	ret
 ; 8969
 
-Function8969: ; 8969
+.SGB1e: ; 8969
 	ld hl, PalPacket_9ce6
 	ld de, wcda9
 	ld bc, $0010
@@ -489,13 +489,13 @@ endr
 	ret
 ; 89a6
 
-Function89a6: ; 89a6
+.SGB19: ; 89a6
 	ld hl, PalPacket_9cd6
 	ld de, BlkPacket_9a86
 	ret
 ; 89ad
 
-Function89ad: ; 89ad
+.SGB1a: ; 89ad
 	ld hl, PalPacket_9ce6
 	ld de, wcda9
 	ld bc, $0010
@@ -516,13 +516,13 @@ Function89ad: ; 89ad
 	ret
 ; 89d9
 
-Function89d9: ; 89d9
+.SGB1b: ; 89d9
 	ld hl, PalPacket_9cc6
 	ld de, BlkPacket_9a86
 	ret
 ; 89e0
 
-Function89e0: ; 89e0
+.SGB1c: ; 89e0
 	ld hl, PalPacket_9ce6
 	ld de, wcda9
 	ld bc, $0010
@@ -543,7 +543,7 @@ Function89e0: ; 89e0
 	ret
 ; 8a0c
 
-Function8a0c: ; 8a0c
+.GetPermission: ; 8a0c
 	ld a, [TimeOfDayPal]
 	cp $2
 	jr c, .asm_8a16
@@ -565,7 +565,7 @@ Function8a0c: ; 8a0c
 	ld a, [MapGroup]
 	ld e, a
 	ld d, 0
-	ld hl, Unknown_8a45
+	ld hl, .Unknown_8a45
 	add hl, de
 	ld a, [hl]
 	ret
@@ -587,7 +587,7 @@ Function8a0c: ; 8a0c
 	ret
 ; 8a45
 
-Unknown_8a45: ; 8a45
+.Unknown_8a45: ; 8a45
 	db $00
 	db $12
 	db $14
@@ -617,7 +617,7 @@ Unknown_8a45: ; 8a45
 	db $0d
 ; 8a60
 
-Function8a60: ; 8a60
+.Finish: ; 8a60
 	push de
 	call Function9809
 	pop hl
diff --git a/text/phone/bill.asm b/text/phone/bill.asm
index 293188909..37c0cd546 100644
--- a/text/phone/bill.asm
+++ b/text/phone/bill.asm
@@ -44,7 +44,7 @@ BillPhoneNotFullText: ; 0x1b452a
 
 	para "<PLAY_G>, your BOX"
 	line "has room for @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text ""
 	cont "more #MON."
 
@@ -59,7 +59,7 @@ BillPhoneNearlyFullText: ; 0x1b4587
 	para "<PLAY_G>, your BOX"
 	line "has room for only"
 	cont "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " more #MON."
 
 	para "Maybe you should"
diff --git a/text/phone/mom.asm b/text/phone/mom.asm
index f94ef388a..6842728b7 100644
--- a/text/phone/mom.asm
+++ b/text/phone/mom.asm
@@ -8,12 +8,12 @@ MomPhoneGreetingText: ; 0x1b4000
 UnknownText_0x1b4021: ; 0x1b4021
 	text "Oh, so you're in"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Isn't that where"
 	line "@"
-	TX_RAM StringBuffer4
+	text_from_ram StringBuffer4
 	text ""
 	para "is? Did you go"
 	line "take a look?"
@@ -22,7 +22,7 @@ UnknownText_0x1b4021: ; 0x1b4021
 MomPhoneGenericAreaText: ; 0x1b406b
 	text "Really, you're in"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "?"
 
 	para "I've never gone"
@@ -33,7 +33,7 @@ MomPhoneGenericAreaText: ; 0x1b406b
 MomPhoneNewBarkText: ; 0x1b40b1
 	text "What? You're in"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "?"
 
 	para "Come see your MOM"
@@ -43,7 +43,7 @@ MomPhoneNewBarkText: ; 0x1b40b1
 MomPhoneCherrygroveText: ; 0x1b40e4
 	text "You're visiting"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "?"
 
 	para "How about coming"
@@ -53,7 +53,7 @@ MomPhoneCherrygroveText: ; 0x1b40e4
 UnknownText_0x1b411c: ; 0x1b411c
 	text "Wow, you're in"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "?"
 
 	para "Good luck on your"
@@ -74,7 +74,7 @@ UnknownText_0x1b4150: ; 0x1b4150
 UnknownText_0x1b41a7: ; 0x1b41a7
 	text "By the way, you've"
 	line "saved up ¥@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 
 	para "Do you want to"
@@ -97,7 +97,7 @@ UnknownText_0x1b420d: ; 0x1b420d
 UnknownText_0x1b4249: ; 0x1b4249
 	text "By the way, you've"
 	line "saved up ¥@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 
 	para "Want to start"
diff --git a/text/phone/trainers1.asm b/text/phone/trainers1.asm
index 09747c44d..29080f114 100644
--- a/text/phone/trainers1.asm
+++ b/text/phone/trainers1.asm
@@ -1,7 +1,7 @@
 UnknownText_0x1b4dc5: ; 0x1b4dc5
 	text "Hello. This is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Good morning,"
@@ -11,7 +11,7 @@ UnknownText_0x1b4dc5: ; 0x1b4dc5
 UnknownText_0x1b4ded: ; 0x1b4ded
 	text "Hello. This is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "How's it going,"
@@ -21,7 +21,7 @@ UnknownText_0x1b4ded: ; 0x1b4ded
 UnknownText_0x1b4e16: ; 0x1b4e16
 	text "Hello. This is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Good evening,"
@@ -33,7 +33,7 @@ UnknownText_0x1b4e3e: ; 0x1b4e3e
 	line "morning!"
 
 	para "It's me, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	line "How are you doing?"
 	done
@@ -42,7 +42,7 @@ UnknownText_0x1b4e72: ; 0x1b4e72
 	text "<PLAY_G>, howdy!"
 
 	para "It's me, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	line "Isn't it nice out?"
 	done
@@ -52,7 +52,7 @@ UnknownText_0x1b4e9e: ; 0x1b4e9e
 	line "evening!"
 
 	para "It's me, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	line "Got a minute?"
 	done
@@ -62,7 +62,7 @@ UnknownText_0x1b4ecd: ; 0x1b4ecd
 	line "#MON doing?"
 
 	para "My @"
-	TX_RAM StringBuffer4
+	text_from_ram StringBuffer4
 	text " is"
 	line "so curious, it's a"
 
@@ -73,7 +73,7 @@ UnknownText_0x1b4ecd: ; 0x1b4ecd
 UnknownText_0x1b4f21: ; 0x1b4f21
 	text "Hello, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 
 	para "Oh! Good morning,"
@@ -83,7 +83,7 @@ UnknownText_0x1b4f21: ; 0x1b4f21
 UnknownText_0x1b4f4d: ; 0x1b4f4d
 	text "Hello, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 
 	para "Oh! Good day,"
@@ -93,7 +93,7 @@ UnknownText_0x1b4f4d: ; 0x1b4f4d
 UnknownText_0x1b4f75: ; 0x1b4f75
 	text "Hello, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 
 	para "Oh! Good evening,"
@@ -105,7 +105,7 @@ UnknownText_0x1b4fa1: ; 0x1b4fa1
 	line "Good morning."
 
 	para "This is @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	line "Were you asleep?"
 	done
@@ -113,7 +113,7 @@ UnknownText_0x1b4fa1: ; 0x1b4fa1
 UnknownText_0x1b4fda: ; 0x1b4fda
 	text "Hi, <PLAYER>."
 	line "This is @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 
 	para "How are you doing?"
@@ -122,7 +122,7 @@ UnknownText_0x1b4fda: ; 0x1b4fda
 UnknownText_0x1b5004: ; 0x1b5004
 	text "Hi, <PLAYER>."
 	line "This is @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 
 	para "Were you awake?"
@@ -133,7 +133,7 @@ UnknownText_0x1b502b: ; 0x1b502b
 	line "#MON happy?"
 
 	para "My @"
-	TX_RAM StringBuffer4
+	text_from_ram StringBuffer4
 	text " is"
 	line "healthy. It eats a"
 	cont "lot every day."
@@ -142,7 +142,7 @@ UnknownText_0x1b502b: ; 0x1b502b
 UnknownText_0x1b5073: ; 0x1b5073
 	text "Yeah, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 
 	para "Huh? What's up,"
@@ -152,7 +152,7 @@ UnknownText_0x1b5073: ; 0x1b5073
 UnknownText_0x1b509b: ; 0x1b509b
 	text "Yeah, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 
 	para "Huh? What's up"
@@ -162,7 +162,7 @@ UnknownText_0x1b509b: ; 0x1b509b
 UnknownText_0x1b50c2: ; 0x1b50c2
 	text "Yeah, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 
 	para "Huh? What's up"
@@ -174,7 +174,7 @@ UnknownText_0x1b50e9: ; 0x1b50e9
 	line "You awake?"
 
 	para "It's me, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 	line "How's it going?"
 	done
@@ -184,7 +184,7 @@ UnknownText_0x1b511a: ; 0x1b511a
 	line "free right now?"
 
 	para "It's me, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 	line "How's it going?"
 	done
@@ -194,7 +194,7 @@ UnknownText_0x1b5154: ; 0x1b5154
 	line "Were you asleep?"
 
 	para "It's me, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 	line "How's it going?"
 	done
@@ -207,7 +207,7 @@ UnknownText_0x1b518b: ; 0x1b518b
 	line "bit too energetic."
 
 	para "@"
-	TX_RAM StringBuffer4
+	text_from_ram StringBuffer4
 	text ","
 	line "especially."
 
@@ -221,7 +221,7 @@ UnknownText_0x1b518b: ; 0x1b518b
 
 UnknownText_0x1b522b: ; 0x1b522b
 	text "My @"
-	TX_RAM StringBuffer4
+	text_from_ram StringBuffer4
 	text "'s"
 	line "looking tougher"
 	cont "than ever."
@@ -233,7 +233,7 @@ UnknownText_0x1b522b: ; 0x1b522b
 UnknownText_0x1b5270: ; 0x1b5270
 	text "Hello, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " speaking…"
 
 	para "Hi, <PLAY_G>!"
@@ -243,7 +243,7 @@ UnknownText_0x1b5270: ; 0x1b5270
 UnknownText_0x1b52a5: ; 0x1b52a5
 	text "Hello, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " speaking…"
 
 	para "Hi, <PLAY_G>!"
@@ -252,7 +252,7 @@ UnknownText_0x1b52a5: ; 0x1b52a5
 UnknownText_0x1b52cc: ; 0x1b52cc
 	text "Hello, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " speaking…"
 
 	para "Hi, <PLAY_G>!"
@@ -264,7 +264,7 @@ UnknownText_0x1b5301: ; 0x1b5301
 	line "morning!"
 
 	para "It's me, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	line "How are you doing?"
 	done
@@ -273,7 +273,7 @@ UnknownText_0x1b5335: ; 0x1b5335
 	text "Hi, <PLAY_G>!"
 
 	para "It's me, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	line "How are you doing?"
 	done
@@ -283,7 +283,7 @@ UnknownText_0x1b535f: ; 0x1b535f
 	line "evening!"
 
 	para "It's me, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	line "How are you doing?"
 	done
@@ -293,7 +293,7 @@ UnknownText_0x1b5393: ; 0x1b5393
 	line "#MON doing?"
 
 	para "My @"
-	TX_RAM StringBuffer4
+	text_from_ram StringBuffer4
 	text "'s"
 	line "doing as great as"
 	cont "ever."
@@ -306,7 +306,7 @@ UnknownText_0x1b5393: ; 0x1b5393
 UnknownText_0x1b53f7: ; 0x1b53f7
 	text "Hello, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	para "Oh, <PLAY_G>."
 	line "Good morning."
@@ -316,7 +316,7 @@ UnknownText_0x1b53f7: ; 0x1b53f7
 UnknownText_0x1b5424: ; 0x1b5424
 	text "Hello, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 
 	para "Oh. Hi, <PLAY_G>."
@@ -325,7 +325,7 @@ UnknownText_0x1b5424: ; 0x1b5424
 UnknownText_0x1b5446: ; 0x1b5446
 	text "Hello, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 
 	para "Oh, <PLAY_G>."
@@ -337,7 +337,7 @@ UnknownText_0x1b5472: ; 0x1b5472
 	line "<PLAY_G>!"
 
 	para "This is @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	line "Were you sleeping?"
 	done
@@ -345,7 +345,7 @@ UnknownText_0x1b5472: ; 0x1b5472
 UnknownText_0x1b54a6: ; 0x1b54a6
 	text "<PLAY_G>, hi!"
 	line "This is @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 
 	para "Do you have some"
@@ -357,7 +357,7 @@ UnknownText_0x1b54d4: ; 0x1b54d4
 	line "Good evening."
 
 	para "This is @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 
 	para "I hope you were"
@@ -384,7 +384,7 @@ UnknownText_0x1b5510: ; 0x1b5510
 UnknownText_0x1b55ae: ; 0x1b55ae
 	text "Hello, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Oh, <PLAY_G>?"
@@ -394,7 +394,7 @@ UnknownText_0x1b55ae: ; 0x1b55ae
 UnknownText_0x1b55da: ; 0x1b55da
 	text "Hello, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Oh, <PLAY_G>? Hi!"
@@ -403,7 +403,7 @@ UnknownText_0x1b55da: ; 0x1b55da
 UnknownText_0x1b55fc: ; 0x1b55fc
 	text "Hello, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Oh, <PLAY_G>?"
@@ -415,7 +415,7 @@ UnknownText_0x1b5628: ; 0x1b5628
 
 	para "Tweet! Yeah, it's"
 	line "me, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	done
 
@@ -424,7 +424,7 @@ UnknownText_0x1b564c: ; 0x1b564c
 
 	para "Tweet! Yeah, it's"
 	line "me, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	done
 
@@ -433,7 +433,7 @@ UnknownText_0x1b5670: ; 0x1b5670
 
 	para "Tweet! Yeah, it's"
 	line "me, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	done
 
@@ -442,7 +442,7 @@ UnknownText_0x1b5694: ; 0x1b5694
 	line "still cooking?"
 
 	para "My @"
-	TX_RAM StringBuffer4
+	text_from_ram StringBuffer4
 	text " has"
 	line "too much energy."
 
@@ -454,7 +454,7 @@ UnknownText_0x1b5694: ; 0x1b5694
 UnknownText_0x1b5702: ; 0x1b5702
 	text "Hello, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Oh. Hi, <PLAYER>."
@@ -464,7 +464,7 @@ UnknownText_0x1b5702: ; 0x1b5702
 UnknownText_0x1b572e: ; 0x1b572e
 	text "Hello, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Oh, hi, <PLAYER>,"
@@ -474,7 +474,7 @@ UnknownText_0x1b572e: ; 0x1b572e
 UnknownText_0x1b575a: ; 0x1b575a
 	text "Hello, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Oh, hi, <PLAYER>,"
@@ -486,7 +486,7 @@ UnknownText_0x1b5786: ; 0x1b5786
 	line "up and answer!"
 
 	para "It's me, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 	done
 
@@ -495,7 +495,7 @@ UnknownText_0x1b57b7: ; 0x1b57b7
 	line "up and answer!"
 
 	para "It's me, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 	done
 
@@ -504,7 +504,7 @@ UnknownText_0x1b57e8: ; 0x1b57e8
 	line "up and answer!"
 
 	para "It's me, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 	done
 
@@ -526,7 +526,7 @@ UnknownText_0x1b5819: ; 0x1b5819
 
 UnknownText_0x1b589a: ; 0x1b589a
 	text "Hi, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " here!"
 
 	para "Oh, <PLAYER>? You"
@@ -535,7 +535,7 @@ UnknownText_0x1b589a: ; 0x1b589a
 
 UnknownText_0x1b58c2: ; 0x1b58c2
 	text "Hi, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " here!"
 
 	para "Oh, <PLAYER>? You"
@@ -544,7 +544,7 @@ UnknownText_0x1b58c2: ; 0x1b58c2
 
 UnknownText_0x1b58ea: ; 0x1b58ea
 	text "Hi, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " here!"
 
 	para "Oh, <PLAYER>? You"
@@ -556,7 +556,7 @@ UnknownText_0x1b5912: ; 0x1b5912
 	line "How're you doing?"
 
 	para "This is @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text ","
 	line "got a minute?"
 	done
@@ -566,7 +566,7 @@ UnknownText_0x1b5948: ; 0x1b5948
 	line "it going?"
 
 	para "This is @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	line "Got a minute?"
 	done
@@ -576,7 +576,7 @@ UnknownText_0x1b597c: ; 0x1b597c
 	line "How're you doing?"
 
 	para "This is @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text ","
 	line "got a minute?"
 	done
@@ -586,7 +586,7 @@ UnknownText_0x1b59b2: ; 0x1b59b2
 	line "#MON doing?"
 
 	para "My @"
-	TX_RAM StringBuffer4
+	text_from_ram StringBuffer4
 	text "'s"
 	line "raring to go, just"
 	cont "like always."
@@ -601,7 +601,7 @@ UnknownText_0x1b59b2: ; 0x1b59b2
 UnknownText_0x1b5a3b: ; 0x1b5a3b
 	text "Hello? This is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " speaking."
 
 	para "Oh. Hi, <PLAY_G>!"
@@ -611,7 +611,7 @@ UnknownText_0x1b5a3b: ; 0x1b5a3b
 UnknownText_0x1b5a74: ; 0x1b5a74
 	text "Hello? This is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " speaking."
 
 	para "Oh, hi, <PLAY_G>!"
@@ -620,7 +620,7 @@ UnknownText_0x1b5a74: ; 0x1b5a74
 UnknownText_0x1b5a9f: ; 0x1b5a9f
 	text "Hello? This is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " speaking."
 
 	para "Oh, hi, <PLAY_G>!"
@@ -632,7 +632,7 @@ UnknownText_0x1b5ad8: ; 0x1b5ad8
 	line "morning!"
 
 	para "It's me, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	line "Isn't it nice out?"
 	done
@@ -641,7 +641,7 @@ UnknownText_0x1b5b0b: ; 0x1b5b0b
 	text "<PLAY_G>, howdy!"
 
 	para "It's me, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	line "Isn't it nice out?"
 	done
@@ -651,7 +651,7 @@ UnknownText_0x1b5b37: ; 0x1b5b37
 	line "<PLAY_G>!"
 
 	para "It's me, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	line "Were you awake?"
 	done
@@ -668,7 +668,7 @@ UnknownText_0x1b5b68: ; 0x1b5b68
 
 	para "Of all my #MON,"
 	line "@"
-	TX_RAM StringBuffer4
+	text_from_ram StringBuffer4
 	text " is the"
 	cont "hardest to handle."
 
@@ -709,21 +709,21 @@ UnknownText_0x1b5cb6: ; 0x1b5cb6
 UnknownText_0x1b5d09: ; 0x1b5d09
 	text "Hiya, it's Uncle"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	done
 
 UnknownText_0x1b5d21: ; 0x1b5d21
 	text "Hiya, it's Uncle"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	done
 
 UnknownText_0x1b5d39: ; 0x1b5d39
 	text "Hiya, it's Uncle"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	done
 
@@ -738,7 +738,7 @@ UnknownText_0x1b5d51: ; 0x1b5d51
 
 UnknownText_0x1b5d9f: ; 0x1b5d9f
 	text "Hello, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text ""
 	line "speaking."
 
@@ -748,7 +748,7 @@ UnknownText_0x1b5d9f: ; 0x1b5d9f
 
 UnknownText_0x1b5dcc: ; 0x1b5dcc
 	text "Hello, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text ""
 	line "speaking."
 
@@ -758,7 +758,7 @@ UnknownText_0x1b5dcc: ; 0x1b5dcc
 
 UnknownText_0x1b5df8: ; 0x1b5df8
 	text "Hello, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text ""
 	line "speaking."
 
@@ -771,7 +771,7 @@ UnknownText_0x1b5e25: ; 0x1b5e25
 	line "<PLAY_G>."
 
 	para "This is @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	line "Were you sleeping?"
 	done
@@ -779,7 +779,7 @@ UnknownText_0x1b5e25: ; 0x1b5e25
 UnknownText_0x1b5e59: ; 0x1b5e59
 	text "Hi, <PLAY_G>."
 	line "This is @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 
 	para "How are things"
@@ -791,7 +791,7 @@ UnknownText_0x1b5e8e: ; 0x1b5e8e
 	line "<PLAY_G>."
 
 	para "This is @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	line "Are you awake?"
 	done
@@ -805,7 +805,7 @@ UnknownText_0x1b5ebe: ; 0x1b5ebe
 
 	para "Me, I take my"
 	line "@"
-	TX_RAM StringBuffer4
+	text_from_ram StringBuffer4
 	text " to the"
 
 	para "#MON CENTER in"
@@ -820,7 +820,7 @@ UnknownText_0x1b5ebe: ; 0x1b5ebe
 
 UnknownText_0x1b5f7a: ; 0x1b5f7a
 	text "Yeah, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " the"
 	line "HIKER here."
 
@@ -829,7 +829,7 @@ UnknownText_0x1b5f7a: ; 0x1b5f7a
 
 UnknownText_0x1b5f9e: ; 0x1b5f9e
 	text "Yeah, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " the"
 	line "HIKER here."
 
@@ -839,7 +839,7 @@ UnknownText_0x1b5f9e: ; 0x1b5f9e
 
 UnknownText_0x1b5fc9: ; 0x1b5fc9
 	text "Yeah, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " the"
 	line "HIKER here."
 
@@ -851,7 +851,7 @@ UnknownText_0x1b5ff6: ; 0x1b5ff6
 	text "Yo, <PLAYER>?"
 
 	para "This is @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text ""
 	line "the HIKER!"
 	done
@@ -861,7 +861,7 @@ UnknownText_0x1b6017: ; 0x1b6017
 	line "<PLAYER>?"
 
 	para "This is @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text ""
 	line "the HIKER!"
 	done
@@ -871,7 +871,7 @@ UnknownText_0x1b6041: ; 0x1b6041
 	line "awake?"
 
 	para "This is @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text ""
 	line "the HIKER!"
 	done
@@ -881,7 +881,7 @@ UnknownText_0x1b606f: ; 0x1b606f
 	line "as feisty as ever?"
 
 	para "My @"
-	TX_RAM StringBuffer4
+	text_from_ram StringBuffer4
 	text " and"
 	line "me--we have energy"
 
@@ -895,7 +895,7 @@ UnknownText_0x1b606f: ; 0x1b606f
 UnknownText_0x1b60f5: ; 0x1b60f5
 	text "Yes? This is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " speaking."
 
 	para "Hey, <PLAY_G>!"
@@ -904,7 +904,7 @@ UnknownText_0x1b60f5: ; 0x1b60f5
 UnknownText_0x1b611b: ; 0x1b611b
 	text "Yes? This is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " speaking."
 
 	para "This must be"
@@ -914,7 +914,7 @@ UnknownText_0x1b611b: ; 0x1b611b
 UnknownText_0x1b6149: ; 0x1b6149
 	text "Yes? This is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " speaking."
 
 	para "Ah, <PLAY_G>!"
@@ -923,7 +923,7 @@ UnknownText_0x1b6149: ; 0x1b6149
 UnknownText_0x1b616e: ; 0x1b616e
 	text "Hello, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 
 	para "<PLAY_G>, right?"
@@ -932,7 +932,7 @@ UnknownText_0x1b616e: ; 0x1b616e
 UnknownText_0x1b618f: ; 0x1b618f
 	text "Hello, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 
 	para "<PLAY_G>, what are"
@@ -942,7 +942,7 @@ UnknownText_0x1b618f: ; 0x1b618f
 UnknownText_0x1b61bd: ; 0x1b61bd
 	text "Hello, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 
 	para "<PLAY_G>, sorry to"
@@ -966,7 +966,7 @@ UnknownText_0x1b61f2: ; 0x1b61f2
 UnknownText_0x1b626a: ; 0x1b626a
 	text "Hello? This is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Oh, <PLAY_G>!"
@@ -976,7 +976,7 @@ UnknownText_0x1b626a: ; 0x1b626a
 UnknownText_0x1b6296: ; 0x1b6296
 	text "Hello? This is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Oh, <PLAY_G>!"
@@ -986,7 +986,7 @@ UnknownText_0x1b6296: ; 0x1b6296
 UnknownText_0x1b62c5: ; 0x1b62c5
 	text "Hello? This is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Oh, <PLAY_G>!"
@@ -997,7 +997,7 @@ UnknownText_0x1b62f1: ; 0x1b62f1
 	text "<PLAY_G>?"
 
 	para "It's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	line "Good morning!"
 	done
@@ -1006,7 +1006,7 @@ UnknownText_0x1b630e: ; 0x1b630e
 	text "<PLAY_G>?"
 
 	para "It's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text ". Is"
 	line "this a bad time?"
 	done
@@ -1015,7 +1015,7 @@ UnknownText_0x1b6331: ; 0x1b6331
 	text "<PLAY_G>?"
 
 	para "It's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	line "Got time to chat?"
 	done
@@ -1026,13 +1026,13 @@ UnknownText_0x1b6352: ; 0x1b6352
 
 	para "I train every day"
 	line "with @"
-	TX_RAM StringBuffer4
+	text_from_ram StringBuffer4
 	text "."
 	done
 
 UnknownText_0x1b638c: ; 0x1b638c
 	text "Hello? @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text ""
 	line "here…"
 
@@ -1041,7 +1041,7 @@ UnknownText_0x1b638c: ; 0x1b638c
 
 UnknownText_0x1b63a8: ; 0x1b63a8
 	text "Hello? @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text ""
 	line "here…"
 
@@ -1050,7 +1050,7 @@ UnknownText_0x1b63a8: ; 0x1b63a8
 
 UnknownText_0x1b63c4: ; 0x1b63c4
 	text "Hello? @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text ""
 	line "here…"
 
@@ -1063,7 +1063,7 @@ UnknownText_0x1b63e3: ; 0x1b63e3
 
 	para "It's your pal,"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 	done
 
@@ -1073,7 +1073,7 @@ UnknownText_0x1b6407: ; 0x1b6407
 
 	para "It's your buddy"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 	done
 
@@ -1083,14 +1083,14 @@ UnknownText_0x1b642c: ; 0x1b642c
 
 	para "It's your sidekick"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 	done
 
 UnknownText_0x1b6454: ; 0x1b6454
 	text "Yeah, hello."
 	line "This is @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 
 	para "…Huh, <PLAY_G>? Yo!"
@@ -1099,7 +1099,7 @@ UnknownText_0x1b6454: ; 0x1b6454
 UnknownText_0x1b647e: ; 0x1b647e
 	text "Yeah, hello, you"
 	line "got @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 
 	para "…Huh, <PLAY_G>? Yo!"
@@ -1108,7 +1108,7 @@ UnknownText_0x1b647e: ; 0x1b647e
 UnknownText_0x1b64a8: ; 0x1b64a8
 	text "Yeah, hello, you"
 	line "got @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 
 	para "…Huh, <PLAY_G>? Yo!"
@@ -1117,7 +1117,7 @@ UnknownText_0x1b64a8: ; 0x1b64a8
 UnknownText_0x1b64d2: ; 0x1b64d2
 	text "Yeah, hello?"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " calling."
 
 	para "What are you up"
@@ -1127,7 +1127,7 @@ UnknownText_0x1b64d2: ; 0x1b64d2
 UnknownText_0x1b6506: ; 0x1b6506
 	text "Yeah, hello?"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " calling."
 
 	para "Where are you now,"
@@ -1137,7 +1137,7 @@ UnknownText_0x1b6506: ; 0x1b6506
 UnknownText_0x1b6539: ; 0x1b6539
 	text "Yeah, hello?"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " calling."
 
 	para "Are you awake now,"
@@ -1152,7 +1152,7 @@ UnknownText_0x1b656c: ; 0x1b656c
 
 UnknownText_0x1b659d: ; 0x1b659d
 	text "Yup, it's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 
 	para "Is this <PLAY_G>?"
@@ -1161,7 +1161,7 @@ UnknownText_0x1b659d: ; 0x1b659d
 
 UnknownText_0x1b65c7: ; 0x1b65c7
 	text "Yup, it's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 
 	para "Is that <PLAY_G>?"
@@ -1169,7 +1169,7 @@ UnknownText_0x1b65c7: ; 0x1b65c7
 
 UnknownText_0x1b65e3: ; 0x1b65e3
 	text "Yup, it's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 
 	para "Is that <PLAY_G>?"
@@ -1179,21 +1179,21 @@ UnknownText_0x1b65e3: ; 0x1b65e3
 UnknownText_0x1b660d: ; 0x1b660d
 	text "Hello! It's me,"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 	done
 
 UnknownText_0x1b6624: ; 0x1b6624
 	text "Hello! It's me,"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 	done
 
 UnknownText_0x1b663b: ; 0x1b663b
 	text "Hello! It's me,"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 	done
 
@@ -1212,7 +1212,7 @@ UnknownText_0x1b6652: ; 0x1b6652
 
 UnknownText_0x1b66c8: ; 0x1b66c8
 	text "Hi, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " on the"
 	line "line."
 
@@ -1221,7 +1221,7 @@ UnknownText_0x1b66c8: ; 0x1b66c8
 
 UnknownText_0x1b66ec: ; 0x1b66ec
 	text "Hi, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " on the"
 	line "line."
 
@@ -1231,7 +1231,7 @@ UnknownText_0x1b66ec: ; 0x1b66ec
 
 UnknownText_0x1b6713: ; 0x1b6713
 	text "Hi, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " on the"
 	line "line."
 
@@ -1244,7 +1244,7 @@ UnknownText_0x1b6738: ; 0x1b6738
 
 	para "It's me!"
 	line "It's me, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 	done
 
@@ -1253,7 +1253,7 @@ UnknownText_0x1b6757: ; 0x1b6757
 
 	para "It's me!"
 	line "It's me, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 	done
 
@@ -1262,13 +1262,13 @@ UnknownText_0x1b6776: ; 0x1b6776
 
 	para "It's me!"
 	line "It's me, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 	done
 
 UnknownText_0x1b6795: ; 0x1b6795
 	text "My @"
-	TX_RAM StringBuffer4
+	text_from_ram StringBuffer4
 	text " is"
 	line "so full of energy,"
 
@@ -1282,7 +1282,7 @@ UnknownText_0x1b6795: ; 0x1b6795
 UnknownText_0x1b67e2: ; 0x1b67e2
 	text "Hello, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Hi, <PLAY_G>!"
@@ -1292,7 +1292,7 @@ UnknownText_0x1b67e2: ; 0x1b67e2
 UnknownText_0x1b680e: ; 0x1b680e
 	text "Hello, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Hi, <PLAY_G>, good"
@@ -1302,7 +1302,7 @@ UnknownText_0x1b680e: ; 0x1b680e
 UnknownText_0x1b6836: ; 0x1b6836
 	text "Hello, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Hi, <PLAY_G>, good"
@@ -1314,7 +1314,7 @@ UnknownText_0x1b6862: ; 0x1b6862
 	line "morning!"
 
 	para "It's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	line "How are you?"
 	done
@@ -1324,7 +1324,7 @@ UnknownText_0x1b6890: ; 0x1b6890
 	line "day!"
 
 	para "It's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	line "How are you?"
 	done
@@ -1334,7 +1334,7 @@ UnknownText_0x1b68ba: ; 0x1b68ba
 	line "evening!"
 
 	para "It's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	line "How are you?"
 	done
@@ -1384,7 +1384,7 @@ UnknownText_0x1b6a22: ; 0x1b6a22
 	line "morning!"
 
 	para "It's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text ", how"
 	line "pika are you?"
 	done
@@ -1394,7 +1394,7 @@ UnknownText_0x1b6a56: ; 0x1b6a56
 	line "pika day!"
 
 	para "It's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text ", how"
 	line "pika are you?"
 	done
@@ -1404,7 +1404,7 @@ UnknownText_0x1b6a8b: ; 0x1b6a8b
 	line "evening!"
 
 	para "It's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text ". Were"
 	line "you pika awake?"
 	done
@@ -1414,7 +1414,7 @@ UnknownText_0x1b6ac2: ; 0x1b6ac2
 	line "this! My lovable"
 
 	para "@"
-	TX_RAM StringBuffer4
+	text_from_ram StringBuffer4
 	text " looked"
 	line "at me and grinned!"
 
@@ -1426,7 +1426,7 @@ UnknownText_0x1b6ac2: ; 0x1b6ac2
 UnknownText_0x1b6b39: ; 0x1b6b39
 	text "Hello, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Oh, Good morning,"
@@ -1436,7 +1436,7 @@ UnknownText_0x1b6b39: ; 0x1b6b39
 UnknownText_0x1b6b65: ; 0x1b6b65
 	text "Hello, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "That voice…"
@@ -1446,7 +1446,7 @@ UnknownText_0x1b6b65: ; 0x1b6b65
 UnknownText_0x1b6b92: ; 0x1b6b92
 	text "Hello, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "This must be"
@@ -1456,7 +1456,7 @@ UnknownText_0x1b6b92: ; 0x1b6b92
 UnknownText_0x1b6bb9: ; 0x1b6bb9
 	text "Hello!"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " here…"
 
 	para "Good morning! The"
@@ -1466,7 +1466,7 @@ UnknownText_0x1b6bb9: ; 0x1b6bb9
 UnknownText_0x1b6bef: ; 0x1b6bef
 	text "Hello!"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " here…"
 
 	para "What a perfect day"
@@ -1476,7 +1476,7 @@ UnknownText_0x1b6bef: ; 0x1b6bef
 UnknownText_0x1b6c23: ; 0x1b6c23
 	text "Hello!"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " here…"
 
 	para "It's a great night"
@@ -1493,7 +1493,7 @@ UnknownText_0x1b6c56: ; 0x1b6c56
 
 UnknownText_0x1b6c96: ; 0x1b6c96
 	text "Yes? @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " here…"
 
 	para "Ah, <PLAYER>. What"
@@ -1502,7 +1502,7 @@ UnknownText_0x1b6c96: ; 0x1b6c96
 
 UnknownText_0x1b6cc6: ; 0x1b6cc6
 	text "Yes? @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " here…"
 
 	para "Ah, <PLAYER>. What"
@@ -1511,7 +1511,7 @@ UnknownText_0x1b6cc6: ; 0x1b6cc6
 
 UnknownText_0x1b6cf6: ; 0x1b6cf6
 	text "Yes? @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " here…"
 
 	para "Ah, <PLAYER>. What"
@@ -1524,7 +1524,7 @@ UnknownText_0x1b6d26: ; 0x1b6d26
 
 	para "Hey! It's me,"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	done
 
@@ -1534,7 +1534,7 @@ UnknownText_0x1b6d57: ; 0x1b6d57
 
 	para "Hey, it's me,"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	done
 
@@ -1544,7 +1544,7 @@ UnknownText_0x1b6d88: ; 0x1b6d88
 
 	para "Hey, it's me,"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	done
 
@@ -1562,7 +1562,7 @@ UnknownText_0x1b6db9: ; 0x1b6db9
 	line "I'm impressed."
 
 	para "Heh, my @"
-	TX_RAM StringBuffer4
+	text_from_ram StringBuffer4
 	text ""
 	line "is so tough, it"
 
@@ -1574,7 +1574,7 @@ UnknownText_0x1b6db9: ; 0x1b6db9
 UnknownText_0x1b6e7c: ; 0x1b6e7c
 	text "Yes? This is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 
 	para "Oh, <PLAY_G>."
@@ -1584,7 +1584,7 @@ UnknownText_0x1b6e7c: ; 0x1b6e7c
 UnknownText_0x1b6ea6: ; 0x1b6ea6
 	text "Yes? This is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 
 	para "Oh, <PLAY_G>."
@@ -1594,7 +1594,7 @@ UnknownText_0x1b6ea6: ; 0x1b6ea6
 UnknownText_0x1b6ec9: ; 0x1b6ec9
 	text "Yes? This is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 
 	para "Oh, <PLAY_G>, good"
@@ -1606,7 +1606,7 @@ UnknownText_0x1b6ef3: ; 0x1b6ef3
 
 	para "Good morning. This"
 	line "is @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	done
 
@@ -1614,7 +1614,7 @@ UnknownText_0x1b6f1c: ; 0x1b6f1c
 	text "Is this <PLAY_G>?"
 
 	para "Hi, it's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	done
 
@@ -1623,7 +1623,7 @@ UnknownText_0x1b6f37: ; 0x1b6f37
 
 	para "Good evening. This"
 	line "is @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "."
 	done
 
@@ -1639,7 +1639,7 @@ UnknownText_0x1b6f60: ; 0x1b6f60
 	line "too hard."
 
 	para "My @"
-	TX_RAM StringBuffer4
+	text_from_ram StringBuffer4
 	text " is"
 	line "cute and lively"
 
@@ -1653,7 +1653,7 @@ UnknownText_0x1b6f60: ; 0x1b6f60
 UnknownText_0x1b7019: ; 0x1b7019
 	text "Yes, hello?"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " here!"
 
 	para "Morning, <PLAY_G>!"
@@ -1665,7 +1665,7 @@ UnknownText_0x1b7019: ; 0x1b7019
 UnknownText_0x1b7057: ; 0x1b7057
 	text "Yes, hello?"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " here!"
 
 	para "Hi, <PLAY_G>!"
@@ -1677,7 +1677,7 @@ UnknownText_0x1b7057: ; 0x1b7057
 UnknownText_0x1b7092: ; 0x1b7092
 	text "Yes, hello?"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " here!"
 
 	para "Evening, <PLAY_G>!"
@@ -1692,7 +1692,7 @@ UnknownText_0x1b70e7: ; 0x1b70e7
 	line "<PLAY_G>!"
 
 	para "It's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 	line "Good morning!"
 	done
@@ -1701,7 +1701,7 @@ UnknownText_0x1b7112: ; 0x1b7112
 	text "Hi, <PLAY_G>!"
 
 	para "It's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 	line "Remember me?"
 	done
@@ -1711,7 +1711,7 @@ UnknownText_0x1b7132: ; 0x1b7132
 	line "<PLAY_G>!"
 
 	para "It's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 	line "Are you free now?"
 	done
@@ -1721,7 +1721,7 @@ UnknownText_0x1b7161: ; 0x1b7161
 	line "#MON fine?"
 
 	para "My @"
-	TX_RAM StringBuffer4
+	text_from_ram StringBuffer4
 	text ""
 	line "looks like it will"
 
@@ -1735,7 +1735,7 @@ UnknownText_0x1b7161: ; 0x1b7161
 UnknownText_0x1b71d5: ; 0x1b71d5
 	text "Hello, you have"
 	line "reached @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Ah, <PLAY_G>."
@@ -1744,7 +1744,7 @@ UnknownText_0x1b71d5: ; 0x1b71d5
 UnknownText_0x1b71fc: ; 0x1b71fc
 	text "Hello, you have"
 	line "reached @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Ah, <PLAY_G>, is"
@@ -1754,7 +1754,7 @@ UnknownText_0x1b71fc: ; 0x1b71fc
 UnknownText_0x1b722a: ; 0x1b722a
 	text "Hello, you have"
 	line "reached @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Ah, if it isn't"
@@ -1763,7 +1763,7 @@ UnknownText_0x1b722a: ; 0x1b722a
 
 UnknownText_0x1b725c: ; 0x1b725c
 	text "Ah, it's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Have you got a"
@@ -1772,7 +1772,7 @@ UnknownText_0x1b725c: ; 0x1b725c
 
 UnknownText_0x1b7283: ; 0x1b7283
 	text "Ah, it's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Can you talk now?"
@@ -1780,7 +1780,7 @@ UnknownText_0x1b7283: ; 0x1b7283
 
 UnknownText_0x1b72a5: ; 0x1b72a5
 	text "Ah, it's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Sorry for calling"
@@ -1792,13 +1792,13 @@ UnknownText_0x1b72d0: ; 0x1b72d0
 	line "grown any?"
 
 	para "My @"
-	TX_RAM StringBuffer4
+	text_from_ram StringBuffer4
 	text " has"
 	line "grown quite a bit."
 	done
 
 UnknownText_0x1b730b: ; 0x1b730b
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " here…"
 
 	para "<PLAYER>! Beautiful"
@@ -1806,7 +1806,7 @@ UnknownText_0x1b730b: ; 0x1b730b
 	done
 
 UnknownText_0x1b7331: ; 0x1b7331
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " here…"
 
 	para "<PLAYER>! Beautiful"
@@ -1814,7 +1814,7 @@ UnknownText_0x1b7331: ; 0x1b7331
 	done
 
 UnknownText_0x1b7357: ; 0x1b7357
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text " here…"
 
 	para "<PLAYER>! Beautiful"
@@ -1824,28 +1824,28 @@ UnknownText_0x1b7357: ; 0x1b7357
 UnknownText_0x1b737f: ; 0x1b737f
 	text "Hey, <PLAYER>!"
 	line "This is @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 	done
 
 UnknownText_0x1b7397: ; 0x1b7397
 	text "Hey, <PLAYER>!"
 	line "This is @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 	done
 
 UnknownText_0x1b73af: ; 0x1b73af
 	text "Hey, <PLAYER>!"
 	line "This is @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 	done
 
 UnknownText_0x1b73c7: ; 0x1b73c7
 	text "Yup, yup!"
 	line "It's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 
 	para "Hah, and here's"
@@ -1855,7 +1855,7 @@ UnknownText_0x1b73c7: ; 0x1b73c7
 UnknownText_0x1b73ef: ; 0x1b73ef
 	text "Yup, yup!"
 	line "It's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 
 	para "Hah, and here's"
@@ -1865,7 +1865,7 @@ UnknownText_0x1b73ef: ; 0x1b73ef
 UnknownText_0x1b7417: ; 0x1b7417
 	text "Yup, yup!"
 	line "It's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 
 	para "Hah, and here's"
@@ -1875,7 +1875,7 @@ UnknownText_0x1b7417: ; 0x1b7417
 UnknownText_0x1b743f: ; 0x1b743f
 	text "<PLAY_G>, it's"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 
 	para "Have you had a"
@@ -1885,7 +1885,7 @@ UnknownText_0x1b743f: ; 0x1b743f
 UnknownText_0x1b746f: ; 0x1b746f
 	text "<PLAY_G>, it's"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 
 	para "Have you had a"
@@ -1895,7 +1895,7 @@ UnknownText_0x1b746f: ; 0x1b746f
 UnknownText_0x1b749b: ; 0x1b749b
 	text "<PLAY_G>, it's"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 
 	para "Have you had a"
@@ -1907,7 +1907,7 @@ UnknownText_0x1b74c8: ; 0x1b74c8
 	line "looking good?"
 
 	para "My @"
-	TX_RAM StringBuffer4
+	text_from_ram StringBuffer4
 	text " and"
 	line "me--we're looking"
 
@@ -1918,7 +1918,7 @@ UnknownText_0x1b74c8: ; 0x1b74c8
 UnknownText_0x1b751a: ; 0x1b751a
 	text "Yes, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Oh. Hi, <PLAY_G>!"
@@ -1928,7 +1928,7 @@ UnknownText_0x1b751a: ; 0x1b751a
 UnknownText_0x1b7548: ; 0x1b7548
 	text "Yes, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Oh, hi, <PLAY_G>!"
@@ -1938,7 +1938,7 @@ UnknownText_0x1b7548: ; 0x1b7548
 UnknownText_0x1b756f: ; 0x1b756f
 	text "Yes, this is"
 	line "@"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "…"
 
 	para "Oh, hi, <PLAY_G>!"
@@ -1948,7 +1948,7 @@ UnknownText_0x1b758f: ; 0x1b758f
 	text "<PLAY_G>!"
 
 	para "It's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 	line "Good morning!"
 	done
@@ -1957,7 +1957,7 @@ UnknownText_0x1b75ac: ; 0x1b75ac
 	text "<PLAY_G>!"
 
 	para "It's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 	line "Working hard?"
 	done
@@ -1966,7 +1966,7 @@ UnknownText_0x1b75c9: ; 0x1b75c9
 	text "<PLAY_G>!"
 
 	para "It's @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "!"
 	line "Were you up?"
 	done
@@ -1976,10 +1976,10 @@ UnknownText_0x1b75e5: ; 0x1b75e5
 	line "your #MON?"
 
 	para "Hey, @"
-	TX_RAM StringBuffer3
+	text_from_ram StringBuffer3
 	text "'s"
 	line "@"
-	TX_RAM StringBuffer4
+	text_from_ram StringBuffer4
 	text " is"
 	cont "looking good!"
 	done
diff --git a/wram.asm b/wram.asm
index 5b08d9d2f..1ad43b98e 100644
--- a/wram.asm
+++ b/wram.asm
@@ -356,21 +356,13 @@ wc310:: ds 1
 wc311:: ds 1
 wc312:: ds 1
 wc313:: ds 1
-wc314:: ds 1
-wc315:: ds 1
-wc316:: ds 1
-wc317:: ds 1
-wc318:: ds 1
-wc319:: ds 1
-wc31a:: ds 1
-wc31b:: ds 1
-wc31c:: ds 1
-wc31d:: ds 1
-wc31e:: ds 1
-wc31f:: ds 1
-wc320:: ds 4
-wc324:: ds 34
-wc346:: ds 94
+wPartyMon1MenuIconAnim:: ds 16 ; c314
+wPartyMon2MenuIconAnim:: ds 16 ; c324
+wPartyMon3MenuIconAnim:: ds 16 ; c334
+wPartyMon4MenuIconAnim:: ds 16 ; c344
+wPartyMon5MenuIconAnim:: ds 16 ; c354
+wPartyMon6MenuIconAnim:: ds 16 ; c364
+wc374:: ds 64
 wc3a4:: ds 8
 wc3ac:: ds 8
 wc3b4:: ds 1