ref: ae6930fc66913a8575596798c384ff4e60a45ce3
parent: 7e4744fdaf9ec1a9d260a2e7717af3023a49d326
author: yenatch <[email protected]>
date: Thu May 1 23:32:51 EDT 2014
Radio stations and the cell phone menu.
--- a/main.asm
+++ b/main.asm
@@ -8407,7 +8407,7 @@
; check background music
ld a, [CurMusic]
- cp $40 ; Poké Flute Channel
+ cp MUSIC_POKE_FLUTE_CHANNEL
jr nz, .nope
ld a, [XCoord]
@@ -80197,7 +80197,7 @@
; no known jump sources
Function90f2d: ; 90f2d (24:4f2d)
call Function90da8
- ld hl, $54d3
+ ld hl, UnknownText_0x914d3
call PrintText
ld hl, $cf63
inc [hl]
@@ -80552,7 +80552,7 @@
ld [$c6d3], a
call Function90da8
call Function91492
- ld hl, $54ce
+ ld hl, UnknownText_0x914ce
call PrintText
ret
@@ -80632,29 +80632,29 @@
call Function2d05
and a
jr nz, .asm_91234
- ld hl, Options ; $cfcc
- res 4, [hl]
+ ld hl, Options
+ res NO_TEXT_SCROLL, [hl]
xor a
- ld [$FF00+$aa], a
- ld de, $6a
+ ld [$ffaa], a
+ ld de, SFX_CALL
call PlaySFX
- ld hl, $524c
+ ld hl, UnknownText_0x9124c
call PrintText
call WaitSFX
- ld de, $6a
+ ld de, SFX_CALL
call PlaySFX
- ld hl, $524c
+ ld hl, UnknownText_0x9124c
call PrintText
call WaitSFX
ld a, [$c6d3]
ld b, a
call Function90199
- ld c, $a
+ ld c, 10
call DelayFrames
- ld hl, Options ; $cfcc
- set 4, [hl]
+ ld hl, Options
+ set NO_TEXT_SCROLL, [hl]
ld a, $1
- ld [$FF00+$aa], a
+ ld [$ffaa], a
call Function912b7
ld hl, $cf63
inc [hl]
@@ -80661,17 +80661,27 @@
ret
.asm_91234
callba Function902e3
- ld hl, $5251
+ ld hl, OutOfServiceAreaText
call PrintText
ld a, $8
ld [$cf63], a
- ld hl, $54ce
+ ld hl, UnknownText_0x914ce
call PrintText
ret
; 9124c (24:524c)
-INCBIN "baserom.gbc",$9124c,$91256 - $9124c
+UnknownText_0x9124c: ; 0x9124c
+ ;
+ text_jump UnknownText_0x1c5824
+ db "@"
+; 0x91251
+OutOfServiceAreaText: ; 0x91251
+ ; You're out of the service area.
+ text_jump UnknownText_0x1c5827
+ db "@"
+; 0x91256
+
; no known jump sources
Function91256: ; 91256 (24:5256)
ld a, [hJoyPressed] ; $ff00+$a7
@@ -80680,7 +80690,7 @@
callba Function902eb
ld a, $8
ld [$cf63], a
- ld hl, $54ce
+ ld hl, UnknownText_0x914ce
call PrintText
ret
@@ -80695,7 +80705,7 @@
jr nz, .asm_9128e
ret
.asm_9127b
- ld hl, PlayerAccLevel ; $c6d1
+ ld hl, $c6d1
ld a, [hl]
and a
jr z, .asm_91285
@@ -80702,7 +80712,7 @@
dec [hl]
jr .asm_912a3
.asm_91285
- ld hl, PlayerEvaLevel ; $c6d2
+ ld hl, $c6d2
ld a, [hl]
and a
ret z
@@ -80709,7 +80719,7 @@
dec [hl]
jr .asm_912ad
.asm_9128e
- ld hl, PlayerAccLevel ; $c6d1
+ ld hl, $c6d1
ld a, [hl]
cp $3
jr nc, .asm_91299
@@ -80716,7 +80726,7 @@
inc [hl]
jr .asm_912a3
.asm_91299
- ld hl, PlayerEvaLevel ; $c6d2
+ ld hl, $c6d2
ld a, [hl]
cp $6
ret nc
@@ -80747,7 +80757,7 @@
ld hl, $c569
ld [hl], a
ld hl, $c4f1
- ld a, [PlayerAccLevel] ; $c6d1
+ ld a, [$c6d1]
ld bc, $28
call AddNTimes
ld [hl], $ed
@@ -80768,19 +80778,19 @@
inc hl
dec b
jr nz, .asm_912df
- ld a, [PlayerEvaLevel] ; $c6d2
+ ld a, [$c6d2]
ld e, a
ld d, $0
ld hl, $dc7c
add hl, de
xor a
- ld [PlayerSDefLevel], a ; $c6d0
+ ld [$c6d0], a
.asm_912f8
ld a, [hli]
push hl
push af
ld hl, $c4f2
- ld a, [PlayerSDefLevel] ; $c6d0
+ ld a, [$c6d0]
ld bc, $28
call AddNTimes
ld d, h
@@ -80789,9 +80799,9 @@
ld b, a
call Function90380
pop hl
- ld a, [PlayerSDefLevel] ; $c6d0
+ ld a, [$c6d0]
inc a
- ld [PlayerSDefLevel], a ; $c6d0
+ ld [$c6d0], a
cp $4
jr c, .asm_912f8
call Function912b7
@@ -80798,18 +80808,43 @@
ret
; 9131e (24:531e)
-INCBIN "baserom.gbc",$9131e,$91342 - $9131e
+Function9131e: ; 9131e
+ ld hl, $dc7c
+ ld a, [PlayerEvaLevel]
+ ld e, a
+ ld d, $0
+ add hl, de
+ ld a, [PlayerAccLevel]
+ ld e, a
+ ld d, $0
+ add hl, de
+ ld [hl], $0
+ ld hl, $dc7c
+ ld c, $a
+.asm_91336
+ ld a, [hli]
+ and a
+ jr nz, .asm_9133e
+ ld a, [hld]
+ ld [hli], a
+ ld [hl], $0
+.asm_9133e
+ dec c
+ jr nz, .asm_91336
+ ret
+; 91342
+
; known jump sources: 911db (24:51db)
Function91342: ; 91342 (24:5342)
ld hl, $dc7c
- ld a, [PlayerEvaLevel] ; $c6d2
+ ld a, [$c6d2]
ld e, a
- ld d, $0
+ ld d, 0
add hl, de
- ld a, [PlayerAccLevel] ; $c6d1
+ ld a, [$c6d1]
ld e, a
- ld d, $0
+ ld d, 0
add hl, de
ld c, [hl]
callba Function9038a
@@ -80816,12 +80851,15 @@
ld a, c
and a
jr z, .asm_91366
- ld hl, $5455
- ld de, $543f
+
+ ld hl, Jumptable_91455
+ ld de, Unknown_9143f
jr .asm_9136c
+
.asm_91366
- ld hl, $546a
- ld de, $545b
+ ld hl, Jumptable_9146a
+ ld de, Unknown_9145b
+
.asm_9136c
xor a
ld [hBGMapMode], a ; $ff00+$d4
@@ -80840,7 +80878,7 @@
inc de
sla a
ld b, a
- ld c, $8
+ ld c, 8
push de
call TextBox
pop de
@@ -80849,9 +80887,10 @@
call PlaceString
pop de
xor a
- ld [EnemyAtkLevel], a ; $c6d4 (aliases: EnemyStatLevels, PlayerStatLevelsEnd)
+ ld [$c6d4], a
call Function9141d
call WaitBGMap
+
.asm_91398
push de
call Functiona57
@@ -80858,18 +80897,19 @@
pop de
ld hl, hJoyPressed ; $ffa7
ld a, [hl]
- and $40
+ and D_UP
jr nz, .asm_913b4
ld a, [hl]
- and $80
+ and D_DOWN
jr nz, .asm_913c1
ld a, [hl]
- and $3
+ and A_BUTTON | B_BUTTON
jr nz, .asm_913d4
call DelayFrame
jr .asm_91398
+
.asm_913b4
- ld hl, EnemyAtkLevel ; $c6d4 (aliases: EnemyStatLevels, PlayerStatLevelsEnd)
+ ld hl, $c6d4
ld a, [hl]
and a
jr z, .asm_91398
@@ -80876,16 +80916,18 @@
dec [hl]
call Function9141d
jr .asm_91398
+
.asm_913c1
- ld hl, $2
+ ld hl, 2
add hl, de
- ld a, [EnemyAtkLevel] ; $c6d4 (aliases: EnemyStatLevels, PlayerStatLevelsEnd)
+ ld a, [$c6d4]
inc a
cp [hl]
jr nc, .asm_91398
- ld [EnemyAtkLevel], a ; $c6d4 (aliases: EnemyStatLevels, PlayerStatLevelsEnd)
+ ld [$c6d4], a
call Function9141d
jr .asm_91398
+
.asm_913d4
xor a
ld [hBGMapMode], a ; $ff00+$d4
@@ -80894,9 +80936,10 @@
ld [hBGMapMode], a ; $ff00+$d4
pop hl
ld a, [hJoyPressed] ; $ff00+$a7
- and $2
- jr nz, .asm_913f1
- ld a, [EnemyAtkLevel] ; $c6d4 (aliases: EnemyStatLevels, PlayerStatLevelsEnd)
+ and B_BUTTON
+ jr nz, Function913f1
+
+ ld a, [$c6d4]
ld e, a
ld d, 0
add hl, de
@@ -80905,15 +80948,38 @@
ld h, [hl]
ld l, a
jp [hl]
-.asm_913f1
- ld hl, $54ce
+
+Function913f1: ; 913f1
+ ld hl, UnknownText_0x914ce
call PrintText
scf
ret
; 913f9 (24:53f9)
-INCBIN "baserom.gbc",$913f9,$9141d - $913f9
+Function913f9: ; 913f9
+ ld hl, UnknownText_0x914d8
+ call Function1d4f
+ call YesNoBox
+ call Function1c07
+ jr c, .asm_91419
+ call Function9131e
+ xor a
+ ld [hBGMapMode], a
+ call Function912d8
+ ld hl, UnknownText_0x914ce
+ call PrintText
+ call WaitBGMap
+.asm_91419
+ scf
+ ret
+; 9141b
+
+Function9141b: ; 9141b
+ and a
+ ret
+; 9141d
+
; known jump sources: 91392 (24:5392), 913bc (24:53bc), 913cf (24:53cf)
Function9141d: ; 9141d (24:541d)
push de
@@ -80926,8 +80992,8 @@
ld a, [de]
ld c, a
push hl
- ld a, $7f
- ld de, $28
+ ld a, " "
+ ld de, 20 * 2
.asm_9142c
ld [hl], a
add hl, de
@@ -80934,19 +81000,62 @@
dec c
jr nz, .asm_9142c
pop hl
- ld a, [EnemyAtkLevel] ; $c6d4 (aliases: EnemyStatLevels, PlayerStatLevelsEnd)
- ld bc, $28
+ ld a, [$c6d4]
+ ld bc, 20 * 2
call AddNTimes
- ld [hl], $ed
+ ld [hl], "▶"
pop de
ret
; 9143f (24:543f)
-INCBIN "baserom.gbc",$9143f,$91480 - $9143f
+Unknown_9143f: ; 9143f
+ dw $c522
+ db 3
+ db "CALL"
+ next "DELETE"
+ next "CANCEL"
+ db "@"
+; 91455
+Jumptable_91455: ; 91455
+ dw Function9141b
+ dw Function913f9
+ dw Function913f1
+; 9145b
+
+Unknown_9145b: ; 9145b
+ dw $c54a
+ db 2
+ db "CALL"
+ next "CANCEL"
+ db "@"
+; 9146a
+
+Jumptable_9146a: ; 9146a
+ dw Function9141b
+ dw Function913f1
+; 9146e
+
+
+Function9146e: ; 9146e
+ ld a, [hHours]
+ cp 12
+ jr c, .asm_9147b
+ sub 12
+ ld [$d265], a
+ scf
+ ret
+
+.asm_9147b
+ ld [$d265], a
+ and a
+ ret
+; 91480
+
+
; known jump sources: 90f71 (24:4f71), 91025 (24:5025), 9114c (24:514c), 911ac (24:51ac)
Function91480: ; 91480 (24:5480)
- ld de, $8
+ ld de, SFX_READ_TEXT_2
call PlaySFX
ld a, c
ld [$cf63], a
@@ -80956,19 +81065,19 @@
ret
Function91492: ; 91492
- ld a, [EnemyTurnsTaken]
+ ld a, [$c6dc]
cp $fe
jr z, .asm_914a3
cp $ff
call z, Function3d03
xor a
- ld [EnemyTurnsTaken], a
+ ld [$c6dc], a
ret
.asm_914a3
call Function3d47
xor a
- ld [EnemyTurnsTaken], a
+ ld [$c6dc], a
ret
; 914ab
@@ -81003,17 +81112,36 @@
jr .asm_914be
; 914ce (24:54ce)
-INCBIN "baserom.gbc",$914ce,$914dd - $914ce
+UnknownText_0x914ce: ; 0x914ce
+ ; Whom do you want to call?
+ text_jump UnknownText_0x1c5847
+ db "@"
+; 0x914d3
+UnknownText_0x914d3: ; 0x914d3
+ ; Press any button to exit.
+ text_jump UnknownText_0x1c5862
+ db "@"
+; 0x914d8
+
+UnknownText_0x914d8: ; 0x914d8
+ ; Delete this stored phone number?
+ text_jump UnknownText_0x1c587d
+ db "@"
+; 0x914dd
+
+
PokegearSpritesGFX: ; 914dd
INCBIN "gfx/misc/pokegear_sprites.2bpp.lz"
; 91508
+
INCBIN "baserom.gbc",$91508,$9163e - $91508
+
; known jump sources: 9110a (24:510a)
Function9163e: ; 9163e (24:563e)
- jr asm_9166f
+ jr UpdateRadioStation
; no known jump sources
Function91640: ; 91640 (24:5640)
@@ -81030,13 +81158,14 @@
Function9164e: ; 9164e (24:564e)
ld hl, $ffa9
ld a, [hl]
- and $80
- jr nz, .asm_9165c
+ and D_DOWN
+ jr nz, .down
ld a, [hl]
- and $40
- jr nz, .asm_91666
+ and D_UP
+ jr nz, .up
ret
-.asm_9165c
+
+.down
ld hl, $d958
ld a, [hl]
and a
@@ -81043,18 +81172,22 @@
ret z
dec [hl]
dec [hl]
- jr asm_9166f
-.asm_91666
+ jr .update
+
+.up
ld hl, $d958
ld a, [hl]
- cp $50
+ cp 80
ret nc
inc [hl]
inc [hl]
-asm_9166f: ; 9166f (24:566f)
+
+.update
+
+UpdateRadioStation: ; 9166f (24:566f)
ld hl, $d958
ld d, [hl]
- ld hl, $56ad
+ ld hl, Unknown_916ad
.asm_91676
ld a, [hli]
cp $ff
@@ -81064,9 +81197,11 @@
inc hl
inc hl
jr .asm_91676
+
.asm_91682
- call Function91888
+ call NoRadioStation
ret
+
.asm_91686
ld a, [hli]
ld h, [hl]
@@ -81074,9 +81209,8 @@
ld de, .asm_9168e
push de
jp [hl]
-
.asm_9168e
- ld a, [EnemyAccLevel] ; $c6d9
+ ld a, [$c6d9]
and a
ret z
xor a
@@ -81088,221 +81222,280 @@
ret
; 916a1 (24:56a1)
-INCBIN "baserom.gbc",$916a1,$916c9 - $916a1
+Function916a1: ; 916a1
+ ld [$c6d9], a
+ ld a, [hli]
+ ld [$c6da], a
+ ld a, [hli]
+ ld [$c6db], a
+ 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
+ db $ff
+; 916c9
+
+Function916c9: ; 916c9
call Function91744
- jr nc, .asm_91740
- ld a, [TimeOfDay] ; $d269
+ jr nc, Function91740
+ ld a, [TimeOfDay]
and a
jp z, Function91766
jp Function91753
+
+Function916d8: ; 916d8
call Function91744
- jr nc, .asm_91740
+ jr nc, Function91740
jp Function9177b
+
+Function916e0: ; 916e0
call Function91744
- jr nc, .asm_91740
+ jr nc, Function91740
jp Function91790
+
+Function916e8: ; 916e8
call Function91744
- jr nc, .asm_91740
+ jr nc, Function91740
jp Function917a5
- ld a, [EnemySDefLevel] ; $c6d8
- cp $9
- jr nz, .asm_91740
+
+Function916f0: ; 916f0
+ ld a, [$c6d8]
+ cp RUINS_OF_ALPH
+ jr nz, Function91740
jp Function917d5
+
+Function916fa: ; 916fa
call Function91744
- jr c, .asm_91740
+ jr c, Function91740
ld a, [$d957]
bit 3, a
- jr z, .asm_91740
+ jr z, Function91740
jp Function917ea
+
+Function91709: ; 91709
call Function91744
- jr c, .asm_91740
+ jr c, Function91740
ld a, [$d957]
bit 3, a
- jr z, .asm_91740
+ jr z, Function91740
jp Function917ff
+
+Function91718: ; 91718
call Function91744
- jr c, .asm_91740
+ jr c, Function91740
ld a, [$d957]
bit 3, a
- jr z, .asm_91740
+ jr z, Function91740
jp Function91829
- ld a, [StatusFlags] ; $d84c
+
+Function91727: ; 91727
+; This station airs in the Lake of Rage
+; area when Rocket are still in Mahogany.
+
+ ld a, [StatusFlags]
bit 4, a
- jr z, .asm_91740
- ld a, [EnemySDefLevel] ; $c6d8
- cp $24
- jr z, .asm_9173d
- cp $25
- jr z, .asm_9173d
- cp $26
- jr nz, .asm_91740
-.asm_9173d
+ jr z, Function91740
+
+ ld a, [$c6d8]
+ cp MAHOGANY_TOWN
+ jr z, .ok
+ cp ROUTE_43
+ jr z, .ok
+ cp LAKE_OF_RAGE
+ jr nz, Function91740
+.ok
jp Function9183e
-.asm_91740
- call Function91888
+
+Function91740: ; 91740
+ call NoRadioStation
ret
; known jump sources: 916c9 (24:56c9), 916d8 (24:56d8), 916e0 (24:56e0), 916e8 (24:56e8), 916fa (24:56fa), 91709 (24:5709), 91718 (24:5718)
Function91744: ; 91744 (24:5744)
- ld a, [EnemySDefLevel] ; $c6d8
- cp $5f
- jr z, .asm_91751
- cp $2f
- jr c, .asm_91751
+ ld a, [$c6d8]
+ cp FAST_SHIP
+ jr z, .johto
+ cp KANTO_LANDMARK
+ jr c, .johto
+.kanto
and a
ret
-.asm_91751
+.johto
scf
ret
+
+OAKS_POKEMON_TALK EQU 0
+POKEDEX_SHOW EQU 1
+POKEMON_MUSIC EQU 2
+LUCKY_CHANNEL EQU 3
+BUENAS_PASSWORD EQU 4
+PLACES_AND_PEOPLE EQU 5
+LETS_ALL_SING EQU 6
+ROCKET_RADIO EQU 7
+POKE_FLUTE_RADIO EQU 8
+UNOWN_RADIO EQU 9
+EVOLUTION_RADIO EQU 10
+
; known jump sources: 916d5 (24:56d5)
Function91753: ; 91753 (24:5753)
- xor a
- ld [DefaultFlypoint], a ; $d002
- ld [StartFlypoint], a ; $d005
- ld a, $2e
- ld hl, $4612
+ xor a ; OAKS_POKEMON_TALK
+ ld [$d002], a
+ ld [$d005], a
+ ld a, BANK(Functionb8612)
+ ld hl, Functionb8612
call Function9187c
- ld de, $58bf
+ ld de, OaksPkmnTalkName
ret
; known jump sources: 916d2 (24:56d2)
Function91766: ; 91766 (24:5766)
- ld a, $1
- ld [DefaultFlypoint], a ; $d002
+ ld a, POKEDEX_SHOW
+ ld [$d002], a
xor a
- ld [StartFlypoint], a ; $d005
- ld a, $2e
- ld hl, $4612
+ ld [$d005], a
+ ld a, BANK(Functionb8612)
+ ld hl, Functionb8612
call Function9187c
- ld de, $58cc
+ ld de, PokedexShowName
ret
; known jump sources: 916dd (24:56dd)
Function9177b: ; 9177b (24:577b)
- ld a, $2
- ld [DefaultFlypoint], a ; $d002
+ ld a, POKEMON_MUSIC
+ ld [$d002], a
xor a
- ld [StartFlypoint], a ; $d005
- ld a, $2e
- ld hl, $4612
+ ld [$d005], a
+ ld a, BANK(Functionb8612)
+ ld hl, Functionb8612
call Function9187c
- ld de, $58d6
+ ld de, PokemonMusicName
ret
; known jump sources: 916e5 (24:56e5)
Function91790: ; 91790 (24:5790)
- ld a, $3
- ld [DefaultFlypoint], a ; $d002
+ ld a, LUCKY_CHANNEL
+ ld [$d002], a
xor a
- ld [StartFlypoint], a ; $d005
- ld a, $2e
- ld hl, $4612
+ ld [$d005], a
+ ld a, BANK(Functionb8612)
+ ld hl, Functionb8612
call Function9187c
- ld de, $58e1
+ ld de, LuckyChannelName
ret
; known jump sources: 916ed (24:56ed)
Function917a5: ; 917a5 (24:57a5)
- ld a, $4
- ld [DefaultFlypoint], a ; $d002
+ ld a, BUENAS_PASSWORD
+ ld [$d002], a
xor a
- ld [StartFlypoint], a ; $d005
- ld a, $2e
- ld hl, $4612
+ ld [$d005], a
+ ld a, BANK(Functionb8612)
+ ld hl, Functionb8612
call Function9187c
- ld de, $57d4
+ ld de, NotBuenasPasswordName
ld a, [StatusFlags2] ; $d84d
bit 0, a
ret z
- ld de, $57c3
+ ld de, BuenasPasswordName
ret
; 917c3 (24:57c3)
-INCBIN "baserom.gbc",$917c3,$917d5 - $917c3
+BuenasPasswordName: db "BUENA'S PASSWORD@"
+NotBuenasPasswordName: db "@"
; known jump sources: 916f7 (24:56f7)
Function917d5: ; 917d5 (24:57d5)
- ld a, $9
- ld [DefaultFlypoint], a ; $d002
+ ld a, UNOWN_RADIO
+ ld [$d002], a
xor a
- ld [StartFlypoint], a ; $d005
- ld a, $2e
- ld hl, $4612
+ ld [$d005], a
+ ld a, BANK(Functionb8612)
+ ld hl, Functionb8612
call Function9187c
- ld de, $58ef
+ ld de, UnknownStationName
ret
; known jump sources: 91706 (24:5706)
Function917ea: ; 917ea (24:57ea)
- ld a, $5
- ld [DefaultFlypoint], a ; $d002
+ ld a, PLACES_AND_PEOPLE
+ ld [$d002], a
xor a
- ld [StartFlypoint], a ; $d005
- ld a, $2e
- ld hl, $4612
+ ld [$d005], a
+ ld a, BANK(Functionb8612)
+ ld hl, Functionb8612
call Function9187c
- ld de, $58f5
+ ld de, PlacesAndPeopleName
ret
; known jump sources: 91715 (24:5715)
Function917ff: ; 917ff (24:57ff)
- ld a, $6
- ld [DefaultFlypoint], a ; $d002
+ ld a, LETS_ALL_SING
+ ld [$d002], a
xor a
- ld [StartFlypoint], a ; $d005
- ld a, $2e
- ld hl, $4612
+ ld [$d005], a
+ ld a, BANK(Functionb8612)
+ ld hl, Functionb8612
call Function9187c
- ld de, $5905
+ ld de, LetsAllSingName
ret
; 91814 (24:5814)
Function91814: ; 91814
- ld a, $7
- ld [DefaultFlypoint], a
+ ld a, ROCKET_RADIO
+ ld [$d002], a
xor a
- ld [StartFlypoint], a
- ld a, $2e
- ld hl, $4612
+ ld [$d005], a
+ ld a, BANK(Functionb8612)
+ ld hl, Functionb8612
call Function9187c
- ld de, $5905
+ ld de, LetsAllSingName
ret
; 91829
; known jump sources: 91724 (24:5724)
Function91829: ; 91829 (24:5829)
- ld a, $8
- ld [DefaultFlypoint], a ; $d002
+ ld a, POKE_FLUTE_RADIO
+ ld [$d002], a
xor a
- ld [StartFlypoint], a ; $d005
- ld a, $2e
- ld hl, $4612
+ ld [$d005], a
+ ld a, BANK(Functionb8612)
+ ld hl, Functionb8612
call Function9187c
- ld de, $5914
+ ld de, PokeFluteStationName
ret
; known jump sources: 9173d (24:573d)
Function9183e: ; 9183e (24:583e)
- ld a, $a
- ld [DefaultFlypoint], a ; $d002
+ ld a, EVOLUTION_RADIO
+ ld [$d002], a
xor a
- ld [StartFlypoint], a ; $d005
- ld a, $2e
- ld hl, $4612
+ ld [$d005], a
+ ld a, BANK(Functionb8612)
+ ld hl, Functionb8612
call Function9187c
- ld de, $58ef
+ ld de, UnknownStationName
ret
; 91853 (24:5853)
-INCBIN "baserom.gbc",$91853,$91854 - $91853
+Function91853: ; 91853
+ ret
; no known jump sources
Function91854: ; 91854 (24:5854)
push de
ld a, e
- ld [EnemyTurnsTaken], a ; $c6dc
- ld de, $0
+ ld [$c6dc], a
+ ld de, MUSIC_NONE
call PlayMusic
pop de
ld a, e
@@ -81314,30 +81507,30 @@
Function91868: ; 91868 (24:5868)
push de
ld a, $fe
- ld [EnemyTurnsTaken], a ; $c6dc
- ld de, $0
+ ld [$c6dc], a
+ ld de, MUSIC_NONE
call PlayMusic
pop de
- ld de, $3f
+ ld de, MUSIC_POKEMON_CHANNEL
call PlayMusic
ret
; known jump sources: 9175f (24:575f), 91774 (24:5774), 91789 (24:5789), 9179e (24:579e), 917b3 (24:57b3), 917e3 (24:57e3), 917f8 (24:57f8), 9180d (24:580d), 91837 (24:5837), 9184c (24:584c)
Function9187c: ; 9187c (24:587c)
- ld [EnemyAccLevel], a ; $c6d9
+ ld [$c6d9], a
ld a, l
- ld [EnemyEvaLevel], a ; $c6da
+ ld [$c6da], a
ld a, h
ld [$c6db], a
ret
; known jump sources: 91682 (24:5682), 91740 (24:5740)
-Function91888: ; 91888 (24:5888)
- call Function9189d
- call Function918a9
+NoRadioStation: ; 91888 (24:5888)
+ call NoRadioMusic
+ call NoRadioName
xor a
- ld [EnemyAccLevel], a ; $c6d9
- ld [EnemyEvaLevel], a ; $c6da
+ ld [$c6d9], a
+ ld [$c6da], a
ld [$c6db], a
ld a, $1
ld [hBGMapMode], a ; $ff00+$d4
@@ -81344,15 +81537,15 @@
ret
; known jump sources: 91888 (24:5888)
-Function9189d: ; 9189d (24:589d)
- ld de, $0
+NoRadioMusic: ; 9189d (24:589d)
+ ld de, MUSIC_NONE
call PlayMusic
ld a, $ff
- ld [EnemyTurnsTaken], a ; $c6dc
+ ld [$c6dc], a
ret
; known jump sources: 9188b (24:588b)
-Function918a9: ; 918a9 (24:58a9)
+NoRadioName: ; 918a9 (24:58a9)
xor a
ld [hBGMapMode], a ; $ff00+$d4
ld hl, $c541
@@ -81362,17 +81555,16 @@
ld bc, $412
call TextBox
ret
+; 918bf
-RadioChannels: ; 918bf
-; Buena's Password is at 0x917c3
- db "OAK's ", $e1, $e2, " Talk@"
- db "#DEX Show@"
- db "#MON Music@"
- db "Lucky Channel@"
- db "?????@"
- db "Places & People@"
- db "Let's All Sing!@"
- db "# FLUTE@"
+OaksPkmnTalkName: db "OAK's ", $e1, $e2, " Talk@"
+PokedexShowName: db "#DEX Show@"
+PokemonMusicName: db "#MON Music@"
+LuckyChannelName: db "Lucky Channel@"
+UnknownStationName: db "?????@"
+PlacesAndPeopleName: db "Places & People@"
+LetsAllSingName: db "Let's All Sing!@"
+PokeFluteStationName: db "# FLUTE@"
; 9191c
Function9191c: ; 9191c
@@ -85484,22 +85676,23 @@
INCBIN "baserom.gbc",$b8582,$b8612 - $b8582
; b8612
- ld a, [DefaultFlypoint] ; $d002
- cp $8
- jr nc, .asm_b862b
- ld a, [StatusFlags2] ; $d84d
+Functionb8612: ; b8612
+ ld a, [$d002]
+ cp 8
+ jr nc, .ok
+ ld a, [StatusFlags2]
bit 0, a
- jr z, .asm_b862b
+ jr z, .ok
call IsInJohto
and a
- jr nz, .asm_b862b
- ld a, $7
- ld [DefaultFlypoint], a ; $d002
-.asm_b862b
- ld a, [DefaultFlypoint] ; $d002
+ jr nz, .ok
+ ld a, 7
+ ld [$d002], a
+.ok
+ ld a, [$d002]
ld e, a
- ld d, $0
- ld hl, $463a
+ ld d, 0
+ ld hl, Jumptable_b863a
add hl, de
add hl, de
ld a, [hli]
@@ -86787,8 +86980,8 @@
Functionb912a: ; b912a (2e:512a)
ld a, [hBGMapMode] ; $ff00+$d4
push af
- callba Function9189d
- callba Function918a9
+ callba NoRadioMusic
+ callba NoRadioName
pop af
ld [hBGMapMode], a ; $ff00+$d4
ld hl, $dc1f