ref: 21a7300f68478dc1529575da318092fd5d277e12
parent: d54725c28e06edd002141608b208c5d9b58b5806
author: IIMarckus <[email protected]>
date: Thu May 14 18:39:52 EDT 2015
Label some radio stuff.
--- a/main.asm
+++ b/main.asm
@@ -72032,7 +72032,7 @@
UpdateRadioStation: ; 9166f (24:566f)
ld hl, wd958
ld d, [hl]
- ld hl, Unknown_916ad
+ ld hl, RadioChannels
.asm_91676
ld a, [hli]
cp $ff
@@ -72076,79 +72076,82 @@
ret
; 916ad
-Unknown_916ad: ; 916ad
- dbw 16, Function916c9
- dbw 28, Function916d8
- dbw 32, Function916e0
- dbw 40, Function916e8
- dbw 52, Function916f0
- dbw 64, Function916fa
- dbw 72, Function91709
- dbw 78, Function91718
- dbw 80, Function91727
+
+RadioChannels:
+; frequencies and the shows that play on them.
+; frequency value given here = 4 × ingame_frequency − 2
+ dbw 16, .PkmnTalkAndPokedexShow
+ dbw 28, .PokemonMusic
+ dbw 32, .LuckyChannel
+ dbw 40, .BuenasPassword
+ dbw 52, .RuinsOfAlphRadio
+ dbw 64, .PlacesAndPeople
+ dbw 72, .LetsAllSing
+ dbw 78, .PokeFluteRadio
+ dbw 80, .EvolutionRadio
db $ff
-; 916c9
-Function916c9: ; 916c9
- call Function91744
- jr nc, Function91740
+.PkmnTalkAndPokedexShow
+; Pokédex Show in the morning
+; Oak's Pokémon Talk in the afternoon and evening
+ call .InJohto
+ jr nc, .NoSignal
ld a, [TimeOfDay]
and a
jp z, Function91766
jp Function91753
-Function916d8: ; 916d8
- call Function91744
- jr nc, Function91740
+.PokemonMusic
+ call .InJohto
+ jr nc, .NoSignal
jp Function9177b
-Function916e0: ; 916e0
- call Function91744
- jr nc, Function91740
+.LuckyChannel
+ call .InJohto
+ jr nc, .NoSignal
jp Function91790
-Function916e8: ; 916e8
- call Function91744
- jr nc, Function91740
+.BuenasPassword
+ call .InJohto
+ jr nc, .NoSignal
jp Function917a5
-Function916f0: ; 916f0
+.RuinsOfAlphRadio
ld a, [wc6d8]
cp RUINS_OF_ALPH
- jr nz, Function91740
+ jr nz, .NoSignal
jp Function917d5
-Function916fa: ; 916fa
- call Function91744
- jr c, Function91740
+.PlacesAndPeople
+ call .InJohto
+ jr c, .NoSignal
ld a, [wd957]
bit 3, a
- jr z, Function91740
+ jr z, .NoSignal
jp Function917ea
-Function91709: ; 91709
- call Function91744
- jr c, Function91740
+.LetsAllSing
+ call .InJohto
+ jr c, .NoSignal
ld a, [wd957]
bit 3, a
- jr z, Function91740
+ jr z, .NoSignal
jp Function917ff
-Function91718: ; 91718
- call Function91744
- jr c, Function91740
+.PokeFluteRadio
+ call .InJohto
+ jr c, .NoSignal
ld a, [wd957]
bit 3, a
- jr z, Function91740
+ jr z, .NoSignal
jp Function91829
-Function91727: ; 91727
-; This station airs in the Lake of Rage
-; area when Rocket are still in Mahogany.
+.EvolutionRadio
+; This station airs in the Lake of Rage area when Rocket are still in Mahogany.
ld a, [StatusFlags]
bit 4, a
- jr z, Function91740
+ jr z, .NoSignal
ld a, [wc6d8]
cp MAHOGANY_TOWN
@@ -72156,15 +72159,17 @@
cp ROUTE_43
jr z, .ok
cp LAKE_OF_RAGE
- jr nz, Function91740
+ jr nz, .NoSignal
.ok
jp Function9183e
-Function91740: ; 91740
+.NoSignal
call NoRadioStation
ret
-Function91744: ; 91744 (24:5744)
+.InJohto
+; if in Johto or on the S.S. Aqua, set carry
+; otherwise clear carry
ld a, [wc6d8]
cp FAST_SHIP
jr z, .johto
@@ -77644,12 +77649,12 @@
Functionb8b90: ; b8b90 (2e:4b90)
call Function1052
call PrintText
- ld de, $51
+ ld de, MUSIC_POKEMON_MARCH
call GetWeekday
and 1
- jr z, .asm_b8ba3
- ld de, $50
-.asm_b8ba3
+ jr z, .done
+ ld de, MUSIC_POKEMON_LULLABY
+.done
callab Function91854
ret
; b8baa (2e:4baa)
@@ -78751,7 +78756,7 @@
ret nz
call Function1052
call PrintText
- ld hl, Unknown_b920b
+ ld hl, RadioChannelSongs
ld a, [wd002]
ld c, a
ld b, 0
@@ -78764,7 +78769,7 @@
ret
; b920b (2e:520b)
-Unknown_b920b: ; b920b
+RadioChannelSongs: ; b920b
dw MUSIC_POKEMON_TALK
dw MUSIC_POKEMON_CENTER
dw MUSIC_TITLE