Move radio code to its own file

2 files changed, 2116 insertions, 1 deletions

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