Move radio code to its own file

7 files changed, 2129 insertions, 2128 deletions

diff --git a/battle/core.asm b/battle/core.asm
index 367af1754..4dd60c891 100644
--- a/battle/core.asm
+++ b/battle/core.asm
@@ -4360,7 +4360,7 @@ Function3dc5b: ; 3dc5b
 	jr z, .asm_3dcc0
 
 	ld a, [wc71a]
-	call Function399f
+	call UpdateBattleMon
 	ld hl, BattleMonHP
 	ld a, [hli]
 	or [hl]
diff --git a/engine/map_setup.asm b/engine/map_setup.asm
index 78849d989..baa45e636 100644
--- a/engine/map_setup.asm
+++ b/engine/map_setup.asm
@@ -485,6 +485,6 @@ ForceMapMusic: ; 15587
 	ld a, $88
 	ld [MusicFade], a
 .notbiking
-	call Function3d2f
+	call TryRestartMapMusic
 	ret
 ; 1559a
diff --git a/engine/radio.asm b/engine/radio.asm
new file mode 100644
index 000000000..35117668f
--- /dev/null
+++ b/engine/radio.asm
@@ -0,0 +1,2115 @@
+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

diff --git a/home/audio.asm b/home/audio.asm
index 610117715..3e22a1540 100644
--- a/home/audio.asm
+++ b/home/audio.asm
@@ -420,7 +420,7 @@ EnterMapMusic:: ; 3d03
 	ret
 ; 3d2f
 
-Function3d2f:: ; 3d2f
+TryRestartMapMusic:: ; 3d2f
 	ld a, [wc2c1]
 	and a
 	jr z, RestartMapMusic
diff --git a/home/battle.asm b/home/battle.asm
index 832792d88..9b89e673c 100644
--- a/home/battle.asm
+++ b/home/battle.asm
@@ -91,7 +91,7 @@ UpdateBattleMonInParty:: ; 399c
 
 	ld a, [CurBattleMon]
 
-Function399f:: ; 399f
+UpdateBattleMon:: ; 399f
 	ld hl, PartyMon1Level
 	call GetPartyLocation
 
@@ -262,7 +262,7 @@ endr
 ; 3a90
 
 
-Function3a90:: ; 3a90
+FarJumpText:: ; 3a90
 	inc hl
 	ld a, [hROMBank]
 	push af
diff --git a/home/copy.asm b/home/copy.asm
index f18b12802..3cc64f091 100644
--- a/home/copy.asm
+++ b/home/copy.asm
@@ -56,7 +56,7 @@ Functiondfd:: ; dfd
 	ld a, b
 	rst Bankswitch
 
-.asm_e09
+.loop
 	ld a, d
 	ld [rHDMA1], a
 	ld a, e
@@ -70,27 +70,27 @@ Functiondfd:: ; dfd
 	ld [rHDMA4], a
 	ld a, c
 	cp $8
-	jr c, .asm_e3c
+	jr c, .done
 	sub $8
 	ld c, a
 	ld a, $f
 	ld [hDMATransfer], a
 	call DelayFrame
 	ld a, l
-	add $0
+	add 0
 	ld l, a
 	ld a, h
-	adc $1
+	adc 1
 	ld h, a
 	ld a, e
-	add $0
+	add 0
 	ld e, a
 	ld a, d
-	adc $1
+	adc 1
 	ld d, a
-	jr .asm_e09
+	jr .loop
 
-.asm_e3c
+.done
 	ld a, c
 	and $7f
 	ld [hDMATransfer], a
diff --git a/main.asm b/main.asm
index 259ed04bb..9a3e55d5d 100644
--- a/main.asm
+++ b/main.asm
@@ -76773,2121 +76773,7 @@ KrisFishingGFX: ; b8582
 INCBIN "gfx/unknown/0b8582.2bpp"
 ; b8612
 
-
-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, Jumptable_b863a
-rept 2
-	add hl, de
-endr
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	jp [hl]
-
-Jumptable_b863a: ; b863a (2e:463a)
-	dw Functionb8742
-	dw Functionb8a46
-	dw Functionb8b35
-	dw Functionb8bdc
-	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
-
-Functionb8742: ; b8742 (2e:4742)
-	ld a, $5
-	ld [wd006], a
-	call Functionb91eb
-	ld hl, UnknownText_0xb8820
-	ld a, $b
-	jp Functionb9221
-
-Functionb8752: ; b8752 (2e:4752)
-	ld hl, UnknownText_0xb8825
-	ld a, $c
-	jp Functionb9221
-
-Functionb875a: ; b875a (2e:475a)
-	ld hl, UnknownText_0xb882a
-	ld a, $d
-	jp Functionb9221
-
-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 Functionb9221
-
-Functionb8818: ; b8818 (2e:4818)
-	ld hl, UnknownText_0xb8839
-	ld a, $10
-	jp Functionb9221
-; 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 Functionb9221
-; 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 Functionb9221
-; 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 Functionb9221
-; 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
-
-Functionb8a46: ; 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 Functionb9221
-
-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
-
-Functionb8b35: ; b8b35 (2e:4b35)
-	call Functionb8b90
-	ld hl, UnknownText_0xb8baa
-	ld a, $17
-	jp Functionb9221
-
-Functionb8b40: ; b8b40 (2e:4b40)
-	ld hl, UnknownText_0xb8baf
-	ld a, $18
-	jp Functionb9221
-
-Functionb8b48: ; b8b48 (2e:4b48)
-	ld hl, UnknownText_0xb8bb4
-	ld a, $19
-	jp Functionb9221
-
-Functionb8b50: ; b8b50 (2e:4b50)
-	call Functionb8b90
-	ld hl, UnknownText_0xb8bb9
-	ld a, $1d
-	jp Functionb9221
-
-Functionb8b5b: ; b8b5b (2e:4b5b)
-	ld hl, UnknownText_0xb8bbe
-	ld a, $19
-	jp Functionb9221
-
-Functionb8b63: ; b8b63 (2e:4b63)
-	ld hl, UnknownText_0xb8bc3
-	ld a, $1a
-	jp Functionb9221
-
-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 Functionb9221
-
-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 Functionb9221
-
-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
-
-Functionb8bdc: ; b8bdc (2e:4bdc)
-	call Functionb91eb
-	callab Functionc434
-	jr nc, .asm_b8bed
-	callab Functionc422
-.asm_b8bed
-	ld hl, UnknownText_0xb8c7e
-	ld a, $1e
-	jp Functionb9221
-
-Functionb8bf5: ; b8bf5 (2e:4bf5)
-	ld hl, UnknownText_0xb8c83
-	ld a, $1f
-	jp Functionb9221
-
-Functionb8bfd: ; b8bfd (2e:4bfd)
-	ld hl, UnknownText_0xb8c88
-	ld a, $20
-	jp Functionb9221
-
-Functionb8c05: ; b8c05 (2e:4c05)
-	ld hl, UnknownText_0xb8c8d
-	ld a, $21
-	jp Functionb9221
-
-Functionb8c0d: ; b8c0d (2e:4c0d)
-	ld hl, UnknownText_0xb8c92
-	ld a, $22
-	jp Functionb9221
-
-Functionb8c15: ; b8c15 (2e:4c15)
-	ld hl, UnknownText_0xb8c97
-	ld a, $23
-	jp Functionb9221
-
-Functionb8c1d: ; b8c1d (2e:4c1d)
-	ld hl, UnknownText_0xb8c9c
-	ld a, $24
-	jp Functionb9221
-
-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 Functionb9221
-
-Functionb8c3e: ; b8c3e (2e:4c3e)
-	ld hl, UnknownText_0xb8ca6
-	ld a, $26
-	jp Functionb9221
-
-Functionb8c46: ; b8c46 (2e:4c46)
-	ld hl, UnknownText_0xb8c9c
-	ld a, $27
-	jp Functionb9221
-
-Functionb8c4e: ; b8c4e (2e:4c4e)
-	ld hl, UnknownText_0xb8ca1
-	ld a, $28
-	jp Functionb9221
-
-Functionb8c56: ; b8c56 (2e:4c56)
-	ld hl, UnknownText_0xb8cab
-	ld a, $29
-	jp Functionb9221
-
-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 Functionb9221
-
-Functionb8c6e: ; b8c6e (2e:4c6e)
-	ld hl, UnknownText_0xb8cb5
-	ld a, $2b
-	jp Functionb9221
-
-Functionb8c76: ; b8c76 (2e:4c76)
-	ld hl, UnknownText_0xb8cba
-	ld a, $3
-	jp Functionb9221
-; 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 Functionb9221
-
-Functionb8cca: ; b8cca (2e:4cca)
-	ld hl, UnknownText_0xb8ce8
-	ld a, $2d
-	jp Functionb9221
-
-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 Functionb9221
-; 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 Functionb9221
-; 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 Functionb9221
-; 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 Functionb9221
-; 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 Functionb9221
-
-Functionb8e7d: ; b8e7d (2e:4e7d)
-	ld hl, UnknownText_0xb8eca
-	ld a, $33
-	jp Functionb9221
-
-Functionb8e85: ; b8e85 (2e:4e85)
-	ld hl, UnknownText_0xb8ecf
-	ld a, $34
-	jp Functionb9221
-
-Functionb8e8d: ; b8e8d (2e:4e8d)
-	ld hl, UnknownText_0xb8ed4
-	ld a, $35
-	jp Functionb9221
-
-Functionb8e95: ; b8e95 (2e:4e95)
-	ld hl, UnknownText_0xb8ed9
-	ld a, $36
-	jp Functionb9221
-
-Functionb8e9d: ; b8e9d (2e:4e9d)
-	ld hl, UnknownText_0xb8ede
-	ld a, $37
-	jp Functionb9221
-
-Functionb8ea5: ; b8ea5 (2e:4ea5)
-	ld hl, UnknownText_0xb8ee3
-	ld a, $38
-	jp Functionb9221
-
-Functionb8ead: ; b8ead (2e:4ead)
-	ld hl, UnknownText_0xb8ee8
-	ld a, $39
-	jp Functionb9221
-
-Functionb8eb5: ; b8eb5 (2e:4eb5)
-	ld hl, UnknownText_0xb8eed
-	ld a, $3a
-	jp Functionb9221
-
-Functionb8ebd: ; b8ebd (2e:4ebd)
-	ld hl, UnknownText_0xb8ef2
-	ld a, $7
-	jp Functionb9221
-; 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 Functionb9221
-
-Functionb8f3f: ; b8f3f (2e:4f3f)
-	ld hl, UnknownText_0xb9187
-	ld a, $41
-	jp Functionb9221
-
-Functionb8f47: ; b8f47 (2e:4f47)
-	call Functionb9169
-	ld hl, UnknownText_0xb918c
-	jp c, Functionb90b9
-	ld a, $42
-	jp Functionb9221
-
-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 Functionb9221
-
-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 Functionb9221
-
-Functionb90a4: ; b90a4 (2e:50a4)
-	ld hl, UnknownText_0xb919b
-	ld a, $45
-	jp Functionb9221
-
-Functionb90ac: ; b90ac (2e:50ac)
-	call Functionb9169
-	ld hl, UnknownText_0xb91a0
-	jr c, Functionb90b9
-	ld a, $4
-	jp Functionb9221
-
-Functionb90b9: ; b90b9 (2e:50b9)
-	push hl
-	ld hl, WeeklyFlags
-	res 7, [hl]
-	pop hl
-	ld a, $46
-	jp Functionb9221
-
-Functionb90c5: ; b90c5 (2e:50c5)
-	ld hl, WeeklyFlags
-	res 7, [hl]
-	ld hl, UnknownText_0xb91d2
-	ld a, $47
-	jp Functionb9221
-
-Functionb90d2: ; b90d2 (2e:50d2)
-	ld hl, UnknownText_0xb91a5
-	ld a, $48
-	jp Functionb9221
-
-Functionb90da: ; b90da (2e:50da)
-	ld hl, UnknownText_0xb91aa
-	ld a, $49
-	jp Functionb9221
-
-Functionb90e2: ; b90e2 (2e:50e2)
-	ld hl, UnknownText_0xb91af
-	ld a, $4a
-	jp Functionb9221
-
-Functionb90ea: ; b90ea (2e:50ea)
-	ld hl, UnknownText_0xb91b4
-	ld a, $4b
-	jp Functionb9221
-
-Functionb90f2: ; b90f2 (2e:50f2)
-	ld hl, UnknownText_0xb91b9
-	ld a, $4c
-	jp Functionb9221
-
-Functionb90fa: ; b90fa (2e:50fa)
-	ld hl, UnknownText_0xb91be
-	ld a, $4d
-	jp Functionb9221
-
-Functionb9102: ; b9102 (2e:5102)
-	ld hl, UnknownText_0xb91c3
-	ld a, $4e
-	jp Functionb9221
-
-Functionb910a: ; b910a (2e:510a)
-	ld hl, UnknownText_0xb91c8
-	ld a, $4f
-	jp Functionb9221
-
-Functionb9112: ; b9112 (2e:5112)
-	ld hl, UnknownText_0xb91cd
-	ld a, $50
-	jp Functionb9221
-
-Functionb911a: ; b911a (2e:511a)
-	ld hl, UnknownText_0xb91d2
-	ld a, $51
-	jp Functionb9221
-
-Functionb9122: ; b9122 (2e:5122)
-	ld hl, UnknownText_0xb91d2
-	ld a, $52
-	jp Functionb9221
-
-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 Functionb9221
-
-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 Functionb9221
-
-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, Function3a90
-	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
-
-Functionb9221: ; b9221 (2e:5221)
-	push af
-	call Functionb91dc
-	pop af
-	jp Functionb86ea
+INCLUDE "engine/radio.asm"
 
 Functionb9229: ; b9229
 	ld a, [CurPartyMon]