ref: f14562da4b066a80af3edfc5171e083f63532109
parent: 61c4cfe7d7b49821fec4fcfad6b717ee96ff4c67
parent: f4c643f0c851542fb515e137c832a4b423ec81fb
author: PikalaxALT <PikalaxALT@gmail.com>
date: Thu Jan 7 13:45:34 EST 2016
Merge branch 'master' of https://github.com/pret/pokecrystal
--- a/engine/radio.asm
+++ b/engine/radio.asm
@@ -1,4 +1,4 @@
-PlayRadioShow: ; b8612
+PlayRadioShow:
; If we're already in the radio program proper, we don't need to be here.
ld a, [wCurrentRadioLine]
cp POKE_FLUTE_RADIO
@@ -20,15 +20,14 @@
ld e, a
ld d, 0
ld hl, RadioJumptable
-rept 2
add hl, de
-endr
+ add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
-RadioJumptable: ; b863a (2e:463a)
+RadioJumptable:
dw OaksPkmnTalk1 ; $00
dw PokedexShow1 ; $01
dw BenMonMusic1 ; $02
@@ -127,7 +126,7 @@
dw PokedexShow8 ; $57
-PrintRadioLine: ; b86ea (2e:46ea)
+PrintRadioLine:
ld [wNextRadioLine], a
ld hl, wRadioText
ld a, [wNumRadioLinesPrinted]
@@ -150,9 +149,8 @@
ld a, 100
ld [wRadioTextDelay], a
ret
-; b8718 (2e:4718)
-ReplacePeriodsWithSpaces: ; b8718
+ReplacePeriodsWithSpaces:
push hl
ld b, SCREEN_WIDTH * 2
.loop
@@ -167,9 +165,8 @@
jr nz, .loop
pop hl
ret
-; b8728
-RadioScroll: ; b8728 (2e:4728)
+RadioScroll:
ld hl, wRadioTextDelay
ld a, [hl]
and a
@@ -184,25 +181,25 @@
call nz, CopyBottomLineToTopLine
jp ClearBottomLine
-OaksPkmnTalk1: ; b8742 (2e:4742)
+OaksPkmnTalk1:
ld a, 5
ld [wOaksPkmnTalkSegmentCounter], a
call StartRadioStation
- ld hl, UnknownText_0xb8820
+ ld hl, OPT_IntroText1
ld a, OAKS_POKEMON_TALK_2
jp NextRadioLine
-OaksPkmnTalk2: ; b8752 (2e:4752)
- ld hl, UnknownText_0xb8825
+OaksPkmnTalk2:
+ ld hl, OPT_IntroText2
ld a, OAKS_POKEMON_TALK_3
jp NextRadioLine
-OaksPkmnTalk3: ; b875a (2e:475a)
- ld hl, UnknownText_0xb882a
+OaksPkmnTalk3:
+ ld hl, OPT_IntroText3
ld a, OAKS_POKEMON_TALK_4
jp NextRadioLine
-OaksPkmnTalk4: ; b8762 (2e:4762)
+OaksPkmnTalk4:
; Choose a random route, and a random Pokemon from that route.
call Random
and $1f
@@ -212,9 +209,8 @@
ld hl, .routes
ld c, a
ld b, 0
-rept 2
add hl, bc
-endr
+ add hl, bc
ld b, [hl]
inc hl
ld c, [hl]
@@ -264,9 +260,8 @@
jr nc, .loop3
ld e, a
ld d, 0
-rept 2
add hl, de
-endr
+ add hl, de
inc hl ; skip level
ld a, BANK(JohtoGrassWildMons)
call GetFarByte
@@ -283,7 +278,7 @@
call GetWorldMapLocation
ld e, a
callba GetLandmarkName
- ld hl, UnknownText_0xb882f
+ ld hl, OPT_OakText1
call CopyRadioTextToRAM
ld a, OAKS_POKEMON_TALK_5
jp PrintRadioLine
@@ -292,9 +287,8 @@
pop bc
ld a, OAKS_POKEMON_TALK
jp PrintRadioLine
-; b87f2 (2e:47f2)
-.routes: ; b87f2
+.routes
map ROUTE_29
map ROUTE_46
map ROUTE_30
@@ -310,87 +304,75 @@
map ROUTE_45
map ROUTE_36
map ROUTE_31
-; b8810
-OaksPkmnTalk5: ; b8810 (2e:4810)
- ld hl, UnknownText_0xb8834
+OaksPkmnTalk5:
+ ld hl, OPT_OakText2
ld a, OAKS_POKEMON_TALK_6
jp NextRadioLine
-OaksPkmnTalk6: ; b8818 (2e:4818)
- ld hl, UnknownText_0xb8839
+OaksPkmnTalk6:
+ ld hl, OPT_OakText3
ld a, OAKS_POKEMON_TALK_7
jp NextRadioLine
-; b8820 (2e:4820)
-UnknownText_0xb8820: ; 0xb8820
+OPT_IntroText1:
; MARY: PROF.OAK'S
- text_jump UnknownText_0x1bc81a
+ text_jump _OPT_IntroText1
db "@"
-; 0xb8825
-UnknownText_0xb8825: ; 0xb8825
+OPT_IntroText2:
; #MON TALK!
- text_jump UnknownText_0x1bc82d
+ text_jump _OPT_IntroText2
db "@"
-; 0xb882a
-UnknownText_0xb882a: ; 0xb882a
+OPT_IntroText3:
; With me, MARY!
- text_jump UnknownText_0x1bc83a
+ text_jump _OPT_IntroText3
db "@"
-; 0xb882f
-UnknownText_0xb882f: ; 0xb882f
+OPT_OakText1:
; OAK: @ @
- text_jump UnknownText_0x1bc84b
+ text_jump _OPT_OakText1
db "@"
-; 0xb8834
-UnknownText_0xb8834: ; 0xb8834
+OPT_OakText2:
; may be seen around
- text_jump UnknownText_0x1bc858
+ text_jump _OPT_OakText2
db "@"
-; 0xb8839
-UnknownText_0xb8839: ; 0xb8839
+OPT_OakText3:
; @ .
- text_jump UnknownText_0x1bc86d
+ text_jump _OPT_OakText3
db "@"
-; 0xb883e
-OaksPkmnTalk7: ; b883e (2e:483e)
+OaksPkmnTalk7:
ld a, [CurPartySpecies]
ld [wNamedObjectIndexBuffer], a
call GetPokemonName
- ld hl, UnknownText_0xb884f
+ ld hl, OPT_MaryText1
ld a, OAKS_POKEMON_TALK_8
jp NextRadioLine
-; b884f (2e:484f)
-UnknownText_0xb884f: ; 0xb884f
+OPT_MaryText1:
; MARY: @ 's
- text_jump UnknownText_0x1bc876
+ text_jump _OPT_MaryText1
db "@"
-; 0xb8854
-OaksPkmnTalk8: ; b8854 (2e:4854)
+OaksPkmnTalk8:
call Random
and $f
ld e, a
ld d, 0
ld hl, .Descriptors
-rept 2
add hl, de
-endr
+ add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
ld a, OAKS_POKEMON_TALK_9
jp NextRadioLine
-; b8869 (2e:4869)
-.Descriptors: ; b8869
+.Descriptors
dw .sweetadorably
dw .wigglyslickly
dw .aptlynamed
@@ -407,113 +389,95 @@
dw .provocatively
dw .flippedout
dw .heartmeltingly
-; b8889
-.sweetadorably: ; 0xb8889
+.sweetadorably
; sweet and adorably
- text_jump UnknownText_0x1bc885
+ text_jump OPT_SweetAdorably
db "@"
-; 0xb888e
-.wigglyslickly: ; 0xb888e
+.wigglyslickly
; wiggly and slickly
- text_jump UnknownText_0x1bc89a
+ text_jump OPT_WigglySlickly
db "@"
-; 0xb8893
-.aptlynamed: ; 0xb8893
+.aptlynamed
; aptly named and
- text_jump UnknownText_0x1bc8af
+ text_jump OPT_AptlyNamed
db "@"
-; 0xb8898
-.undeniablykindof: ; 0xb8898
+.undeniablykindof
; undeniably kind of
- text_jump UnknownText_0x1bc8c1
+ text_jump OPT_UndeniablyKindOf
db "@"
-; 0xb889d
-.unbearably: ; 0xb889d
+.unbearably
; so, so unbearably
- text_jump UnknownText_0x1bc8d6
+ text_jump OPT_Unbearably
db "@"
-; 0xb88a2
-.wowimpressively: ; 0xb88a2
+.wowimpressively
; wow, impressively
- text_jump UnknownText_0x1bc8ea
+ text_jump OPT_WowImpressively
db "@"
-; 0xb88a7
-.almostpoisonously: ; 0xb88a7
+.almostpoisonously
; almost poisonously
- text_jump UnknownText_0x1bc8fe
+ text_jump OPT_AlmostPoisonously
db "@"
-; 0xb88ac
-.sensually: ; 0xb88ac
+.sensually
; ooh, so sensually
- text_jump UnknownText_0x1bc913
+ text_jump OPT_Sensually
db "@"
-; 0xb88b1
-.mischievously: ; 0xb88b1
+.mischievously
; so mischievously
- text_jump UnknownText_0x1bc927
+ text_jump OPT_Mischievously
db "@"
-; 0xb88b6
-.topically: ; 0xb88b6
+.topically
; so very topically
- text_jump UnknownText_0x1bc93a
+ text_jump OPT_Topically
db "@"
-; 0xb88bb
-.addictively: ; 0xb88bb
+.addictively
; sure addictively
- text_jump UnknownText_0x1bc94e
+ text_jump OPT_Addictively
db "@"
-; 0xb88c0
-.looksinwater: ; 0xb88c0
+.looksinwater
; looks in water is
- text_jump UnknownText_0x1bc961
+ text_jump OPT_LooksInWater
db "@"
-; 0xb88c5
-.evolutionmustbe: ; 0xb88c5
+.evolutionmustbe
; evolution must be
- text_jump UnknownText_0x1bc975
+ text_jump OPT_EvolutionMustBe
db "@"
-; 0xb88ca
-.provocatively: ; 0xb88ca
+.provocatively
; provocatively
- text_jump UnknownText_0x1bc989
+ text_jump OPT_Provocatively
db "@"
-; 0xb88cf
-.flippedout: ; 0xb88cf
+.flippedout
; so flipped out and
- text_jump UnknownText_0x1bc999
+ text_jump OPT_FlippedOut
db "@"
-; 0xb88d4
-.heartmeltingly: ; 0xb88d4
+.heartmeltingly
; heart-meltingly
- text_jump UnknownText_0x1bc9ae
+ text_jump OPT_HeartMeltingly
db "@"
-; 0xb88d9
-OaksPkmnTalk9: ; b88d9 (2e:48d9)
+OaksPkmnTalk9:
call Random
and $f
ld e, a
ld d, 0
ld hl, .Descriptors
-rept 2
add hl, de
-endr
+ add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
@@ -527,9 +491,8 @@
ld a, OAKS_POKEMON_TALK_10
.ok
jp NextRadioLine
-; b88fe (2e:48fe)
-.Descriptors: ; b88fe
+.Descriptors
dw .cute
dw .weird
dw .pleasant
@@ -546,110 +509,93 @@
dw .guarded
dw .lovely
dw .speedy
-; b891e
-.cute: ; 0xb891e
+.cute
; cute.
- text_jump UnknownText_0x1bc9c0
+ text_jump OPT_Cute
db "@"
-; 0xb8923
-.weird: ; 0xb8923
+.weird
; weird.
- text_jump UnknownText_0x1bc9c8
+ text_jump OPT_Weird
db "@"
-; 0xb8928
-.pleasant: ; 0xb8928
+.pleasant
; pleasant.
- text_jump UnknownText_0x1bc9d1
+ text_jump OPT_Pleasant
db "@"
-; 0xb892d
-.boldsortof: ; 0xb892d
+.boldsortof
; bold, sort of.
- text_jump UnknownText_0x1bc9dd
+ text_jump OPT_BoldSortOf
db "@"
-; 0xb8932
-.frightening: ; 0xb8932
+.frightening
; frightening.
- text_jump UnknownText_0x1bc9ee
+ text_jump OPT_Frightening
db "@"
-; 0xb8937
-.suavedebonair: ; 0xb8937
+.suavedebonair
; suave & debonair!
- text_jump UnknownText_0x1bc9fd
+ text_jump OPT_SuaveDebonair
db "@"
-; 0xb893c
-.powerful: ; 0xb893c
+.powerful
; powerful.
- text_jump UnknownText_0x1bca11
+ text_jump OPT_Powerful
db "@"
-; 0xb8941
-.exciting: ; 0xb8941
+.exciting
; exciting.
- text_jump UnknownText_0x1bca1d
+ text_jump OPT_Exciting
db "@"
-; 0xb8946
-.groovy: ; 0xb8946
+.groovy
; groovy!
- text_jump UnknownText_0x1bca29
+ text_jump OPT_Groovy
db "@"
-; 0xb894b
-.inspiring: ; 0xb894b
+.inspiring
; inspiring.
- text_jump UnknownText_0x1bca33
+ text_jump OPT_Inspiring
db "@"
-; 0xb8950
-.friendly: ; 0xb8950
+.friendly
; friendly.
- text_jump UnknownText_0x1bca40
+ text_jump OPT_Friendly
db "@"
-; 0xb8955
-.hothothot: ; 0xb8955
+.hothothot
; hot, hot, hot!
- text_jump UnknownText_0x1bca4c
+ text_jump OPT_HotHotHot
db "@"
-; 0xb895a
-.stimulating: ; 0xb895a
+.stimulating
; stimulating.
- text_jump UnknownText_0x1bca5d
+ text_jump OPT_Stimulating
db "@"
-; 0xb895f
-.guarded: ; 0xb895f
+.guarded
; guarded.
- text_jump UnknownText_0x1bca6c
+ text_jump OPT_Guarded
db "@"
-; 0xb8964
-.lovely: ; 0xb8964
+.lovely
; lovely.
- text_jump UnknownText_0x1bca77
+ text_jump OPT_Lovely
db "@"
-; 0xb8969
-.speedy: ; 0xb8969
+.speedy
; speedy.
- text_jump UnknownText_0x1bca81
+ text_jump OPT_Speedy
db "@"
-; 0xb896e
-OaksPkmnTalk10: ; b896e (2e:496e)
+OaksPkmnTalk10:
callba RadioMusicRestartPokemonChannel
- ld hl, UnknownText_0xb8993
+ ld hl, OPT_RestartText
call PrintText
call WaitBGMap
- ld hl, UnknownText_0xb898e
+ ld hl, OPT_PokemonChannelText
call PrintText
ld a, OAKS_POKEMON_TALK_11
ld [wCurrentRadioLine], a
@@ -656,19 +602,16 @@
ld a, 100
ld [wRadioTextDelay], a
ret
-; b898e (2e:498e)
-UnknownText_0xb898e: ; 0xb898e
+OPT_PokemonChannelText:
; #MON
- text_jump UnknownText_0x1bca8b
+ text_jump _OPT_PokemonChannelText
db "@"
-; 0xb8993
-UnknownText_0xb8993: ; 0xb8993
+OPT_RestartText:
db "@"
-; 0xb8994
-OaksPkmnTalk11: ; b8994 (2e:4994)
+OaksPkmnTalk11:
ld hl, wRadioTextDelay
dec [hl]
ret nz
@@ -676,13 +619,11 @@
ld de, .pokemon_string
ld a, OAKS_POKEMON_TALK_12
jp PlaceRadioString
-; b89a4 (2e:49a4)
-.pokemon_string:
+.pokemon_string
db "#MON@"
-; b89a9
-OaksPkmnTalk12: ; b89a9 (2e:49a9)
+OaksPkmnTalk12:
ld hl, wRadioTextDelay
dec [hl]
ret nz
@@ -690,13 +631,11 @@
ld de, .pokemon_channel_string
ld a, OAKS_POKEMON_TALK_13
jp PlaceRadioString
-; b89b9 (2e:49b9)
-.pokemon_channel_string:
+.pokemon_channel_string
db "#MON Channel@"
-; b89c6
-OaksPkmnTalk13: ; b89c6 (2e:49c6)
+OaksPkmnTalk13:
ld hl, wRadioTextDelay
dec [hl]
ret nz
@@ -704,13 +643,11 @@
ld de, .terminator
ld a, OAKS_POKEMON_TALK_14
jp PlaceRadioString
-; b89d6 (2e:49d6)
-.terminator:
+.terminator
db "@"
-; b89d7
-OaksPkmnTalk14: ; b89d7 (2e:49d7)
+OaksPkmnTalk14:
ld hl, wRadioTextDelay
dec [hl]
ret nz
@@ -727,25 +664,23 @@
ld a, 10
ld [wRadioTextDelay], a
ret
-; b89ff (2e:49ff)
-.terminator: ; 0xb89ff
+.terminator
db "@"
-; 0xb8a00
-PlaceRadioString: ; b8a00 (2e:4a00)
+PlaceRadioString:
ld [wCurrentRadioLine], a
ld a, 100
ld [wRadioTextDelay], a
jp PlaceString
-CopyBottomLineToTopLine: ; b8a0b (2e:4a0b)
+CopyBottomLineToTopLine:
hlcoord 0, 15
decoord 0, 13
ld bc, SCREEN_WIDTH * 2
jp CopyBytes
-ClearBottomLine: ; b8a17 (2e:4a17)
+ClearBottomLine:
hlcoord 1, 15
ld bc, SCREEN_WIDTH - 2
ld a, " "
@@ -755,7 +690,7 @@
ld a, " "
jp ByteFill
-PokedexShow_GetDexEntryBank: ; b8a2d (2e:4a2d)
+PokedexShow_GetDexEntryBank:
push hl
push de
ld a, [CurPartySpecies]
@@ -771,7 +706,6 @@
pop de
pop hl
ret
-; b8a42 (2e:4a42)
.pokedexbanks
db BANK(PokedexEntries1)
@@ -778,9 +712,8 @@
db BANK(PokedexEntries2)
db BANK(PokedexEntries3)
db BANK(PokedexEntries4)
-; b8a46
-PokedexShow1: ; b8a46 (2e:4a46)
+PokedexShow1:
call StartRadioStation
.loop
call Random
@@ -797,19 +730,18 @@
ld [CurPartySpecies], a
ld [wNamedObjectIndexBuffer], a
call GetPokemonName
- ld hl, UnknownText_0xb8b30
+ ld hl, PokedexShowText
ld a, POKEDEX_SHOW_2
jp NextRadioLine
-PokedexShow2: ; b8a6c (2e:4a6c)
+PokedexShow2:
ld a, [CurPartySpecies]
dec a
ld hl, PokedexDataPointerTable
ld c, a
ld b, 0
-rept 2
add hl, bc
-endr
+ add hl, bc
ld a, BANK(PokedexDataPointerTable)
call GetFarHalfword
call PokedexShow_GetDexEntryBank
@@ -833,37 +765,37 @@
ld a, POKEDEX_SHOW_3
jp PrintRadioLine
-PokedexShow3: ; b8aa4 (2e:4aa4)
+PokedexShow3:
call CopyDexEntry
ld a, POKEDEX_SHOW_4
jp PrintRadioLine
-PokedexShow4: ; b8aac (2e:4aac)
+PokedexShow4:
call CopyDexEntry
ld a, POKEDEX_SHOW_5
jp PrintRadioLine
-PokedexShow5: ; b8ab4 (2e:4ab4)
+PokedexShow5:
call CopyDexEntry
ld a, POKEDEX_SHOW_6
jp PrintRadioLine
-PokedexShow6: ; b8abc (2e:4abc)
+PokedexShow6:
call CopyDexEntry
ld a, POKEDEX_SHOW_7
jp PrintRadioLine
-PokedexShow7: ; b8ac4 (2e:4ac4)
+PokedexShow7:
call CopyDexEntry
ld a, POKEDEX_SHOW_8
jp PrintRadioLine
-PokedexShow8: ; b8acc (2e:4acc)
+PokedexShow8:
call CopyDexEntry
ld a, POKEDEX_SHOW
jp PrintRadioLine
-CopyDexEntry: ; b8ad4 (2e:4ad4)
+CopyDexEntry:
ld a, [wPokedexShowPointerAddr]
ld l, a
ld a, [wPokedexShowPointerAddr + 1]
@@ -881,7 +813,7 @@
call CopyDexEntryPart2
ret
-CopyDexEntryPart1: ; b8af3 (2e:4af3)
+CopyDexEntryPart1:
ld de, wPokedexShowPointerBank
ld bc, SCREEN_WIDTH - 1
call FarCopyBytes
@@ -900,7 +832,7 @@
ret z
jr .loop
-CopyDexEntryPart2: ; b8b11 (2e:4b11)
+CopyDexEntryPart2:
ld d, a
.loop
ld a, d
@@ -920,70 +852,68 @@
ld a, d
ld [wPokedexShowPointerBank], a
ret
-; b8b30 (2e:4b30)
-UnknownText_0xb8b30: ; 0xb8b30
+PokedexShowText:
; @ @
- text_jump UnknownText_0x1bca91
+ text_jump _PokedexShowText
db "@"
-; 0xb8b35
-BenMonMusic1: ; b8b35 (2e:4b35)
+BenMonMusic1:
call StartPokemonMusicChannel
- ld hl, UnknownText_0xb8baa
+ ld hl, BenIntroText1
ld a, POKEMON_MUSIC_2
jp NextRadioLine
-BenMonMusic2: ; b8b40 (2e:4b40)
- ld hl, UnknownText_0xb8baf
+BenMonMusic2:
+ ld hl, BenIntroText2
ld a, POKEMON_MUSIC_3
jp NextRadioLine
-BenMonMusic3: ; b8b48 (2e:4b48)
- ld hl, UnknownText_0xb8bb4
+BenMonMusic3:
+ ld hl, BenIntroText3
ld a, POKEMON_MUSIC_4
jp NextRadioLine
-FernMonMusic1: ; b8b50 (2e:4b50)
+FernMonMusic1:
call StartPokemonMusicChannel
- ld hl, UnknownText_0xb8bb9
+ ld hl, FernIntroText1
ld a, LETS_ALL_SING_2
jp NextRadioLine
-FernMonMusic2: ; b8b5b (2e:4b5b)
- ld hl, UnknownText_0xb8bbe
+FernMonMusic2:
+ ld hl, FernIntroMusic2
ld a, POKEMON_MUSIC_4
jp NextRadioLine
-BenFernMusic4: ; b8b63 (2e:4b63)
- ld hl, UnknownText_0xb8bc3
+BenFernMusic4:
+ ld hl, BenFernText1
ld a, POKEMON_MUSIC_5
jp NextRadioLine
-BenFernMusic5: ; b8b6b (2e:4b6b)
+BenFernMusic5:
call GetWeekday
and 1
- ld hl, UnknownText_0xb8bc8
+ ld hl, BenFernText2A
jr z, .SunTueThurSun
- ld hl, UnknownText_0xb8bcd
+ ld hl, BenFernText2B
.SunTueThurSun
ld a, POKEMON_MUSIC_6
jp NextRadioLine
-BenFernMusic6: ; b8b7d (2e:4b7d)
+BenFernMusic6:
call GetWeekday
and 1
- ld hl, UnknownText_0xb8bd2
+ ld hl, BenFernText3A
jr z, .SunTueThurSun
- ld hl, UnknownText_0xb8bd7
+ ld hl, BenFernText3B
.SunTueThurSun
ld a, POKEMON_MUSIC_7
jp NextRadioLine
-BenFernMusic7: ; b8b8f (2e:4b8f)
+BenFernMusic7:
ret
-StartPokemonMusicChannel: ; b8b90 (2e:4b90)
+StartPokemonMusicChannel:
call RadioTerminator
call PrintText
ld de, MUSIC_POKEMON_MARCH
@@ -994,109 +924,98 @@
.SunTueThurSun
callab RadioMusicRestartDE
ret
-; b8baa (2e:4baa)
-UnknownText_0xb8baa: ; 0xb8baa
+BenIntroText1:
; BEN: #MON MUSIC
- text_jump UnknownText_0x1bca99
+ text_jump _BenIntroText1
db "@"
-; 0xb8baf
-UnknownText_0xb8baf: ; 0xb8baf
+BenIntroText2:
; CHANNEL!
- text_jump UnknownText_0x1bcaab
+ text_jump _BenIntroText2
db "@"
-; 0xb8bb4
-UnknownText_0xb8bb4: ; 0xb8bb4
+BenIntroText3:
; It's me, DJ BEN!
- text_jump UnknownText_0x1bcab6
+ text_jump _BenIntroText3
db "@"
-; 0xb8bb9
-UnknownText_0xb8bb9: ; 0xb8bb9
+FernIntroText1:
; FERN: #MUSIC!
- text_jump UnknownText_0x1bcac8
+ text_jump _FernIntroText1
db "@"
-; 0xb8bbe
-UnknownText_0xb8bbe: ; 0xb8bbe
+FernIntroMusic2:
; With DJ FERN!
- text_jump UnknownText_0x1bcad8
+ text_jump _FernIntroText2
db "@"
-; 0xb8bc3
-UnknownText_0xb8bc3: ; 0xb8bc3
+BenFernText1:
; Today's @ ,
- text_jump UnknownText_0x1bcae8
+ text_jump _BenFernText1
db "@"
-; 0xb8bc8
-UnknownText_0xb8bc8: ; 0xb8bc8
+BenFernText2A:
; so let us jam to
- text_jump UnknownText_0x1bcaf6
+ text_jump _BenFernText2A
db "@"
-; 0xb8bcd
-UnknownText_0xb8bcd: ; 0xb8bcd
+BenFernText2B:
; so chill out to
- text_jump UnknownText_0x1bcb09
+ text_jump _BenFernText2B
db "@"
-; 0xb8bd2
-UnknownText_0xb8bd2: ; 0xb8bd2
+BenFernText3A:
; #MON March!
- text_jump UnknownText_0x1bcb1b
+ text_jump _BenFernText3A
db "@"
-; 0xb8bd7
-UnknownText_0xb8bd7: ; 0xb8bd7
+BenFernText3B:
; #MON Lullaby!
- text_jump UnknownText_0x1bcb29
+ text_jump _BenFernText3B
db "@"
-; 0xb8bdc
-LuckyNumberShow1: ; b8bdc (2e:4bdc)
+LuckyNumberShow1:
call StartRadioStation
callab Special_CheckLuckyNumberShowFlag
jr nc, .dontreset
callab Special_ResetLuckyNumberShowFlag
.dontreset
- ld hl, UnknownText_0xb8c7e
+ ld hl, LC_Text1
ld a, LUCKY_NUMBER_SHOW_2
jp NextRadioLine
-LuckyNumberShow2: ; b8bf5 (2e:4bf5)
- ld hl, UnknownText_0xb8c83
+LuckyNumberShow2:
+ ld hl, LC_Text2
ld a, LUCKY_NUMBER_SHOW_3
jp NextRadioLine
-LuckyNumberShow3: ; b8bfd (2e:4bfd)
- ld hl, UnknownText_0xb8c88
+LuckyNumberShow3:
+ ld hl, LC_Text3
ld a, LUCKY_NUMBER_SHOW_4
jp NextRadioLine
-LuckyNumberShow4: ; b8c05 (2e:4c05)
- ld hl, UnknownText_0xb8c8d
+LuckyNumberShow4:
+ ld hl, LC_Text4
ld a, LUCKY_NUMBER_SHOW_5
jp NextRadioLine
-LuckyNumberShow5: ; b8c0d (2e:4c0d)
- ld hl, UnknownText_0xb8c92
+LuckyNumberShow5:
+ ld hl, LC_Text5
ld a, LUCKY_NUMBER_SHOW_6
jp NextRadioLine
-LuckyNumberShow6: ; b8c15 (2e:4c15)
- ld hl, UnknownText_0xb8c97
+LuckyNumberShow6:
+ ld hl, LC_Text6
ld a, LUCKY_NUMBER_SHOW_7
jp NextRadioLine
-LuckyNumberShow7: ; b8c1d (2e:4c1d)
- ld hl, UnknownText_0xb8c9c
+LuckyNumberShow7:
+ ld hl, LC_Text7
ld a, LUCKY_NUMBER_SHOW_8
jp NextRadioLine
-LuckyNumberShow8: ; b8c25 (2e:4c25)
+LuckyNumberShow8:
ld hl, StringBuffer1
ld de, wLuckyIDNumber
lb bc, PRINTNUM_LEADINGZEROS | 2, 5
@@ -1103,32 +1022,32 @@
call PrintNum
ld a, "@"
ld [StringBuffer1 + 5], a
- ld hl, UnknownText_0xb8ca1
+ ld hl, LC_Text8
ld a, LUCKY_NUMBER_SHOW_9
jp NextRadioLine
-LuckyNumberShow9: ; b8c3e (2e:4c3e)
- ld hl, UnknownText_0xb8ca6
+LuckyNumberShow9:
+ ld hl, LC_Text9
ld a, LUCKY_NUMBER_SHOW_10
jp NextRadioLine
-LuckyNumberShow10: ; b8c46 (2e:4c46)
- ld hl, UnknownText_0xb8c9c
+LuckyNumberShow10:
+ ld hl, LC_Text7
ld a, LUCKY_NUMBER_SHOW_11
jp NextRadioLine
-LuckyNumberShow11: ; b8c4e (2e:4c4e)
- ld hl, UnknownText_0xb8ca1
+LuckyNumberShow11:
+ ld hl, LC_Text8
ld a, LUCKY_NUMBER_SHOW_12
jp NextRadioLine
-LuckyNumberShow12: ; b8c56 (2e:4c56)
- ld hl, UnknownText_0xb8cab
+LuckyNumberShow12:
+ ld hl, LC_Text10
ld a, LUCKY_NUMBER_SHOW_13
jp NextRadioLine
-LuckyNumberShow13: ; b8c5e (2e:4c5e)
- ld hl, UnknownText_0xb8cb0
+LuckyNumberShow13:
+ ld hl, LC_Text11
call Random
and a
ld a, LUCKY_CHANNEL
@@ -1137,108 +1056,94 @@
.okay
jp NextRadioLine
-LuckyNumberShow14: ; b8c6e (2e:4c6e)
- ld hl, UnknownText_0xb8cb5
+LuckyNumberShow14:
+ ld hl, LC_DragText1
ld a, LUCKY_NUMBER_SHOW_15
jp NextRadioLine
-LuckyNumberShow15: ; b8c76 (2e:4c76)
- ld hl, UnknownText_0xb8cba
+LuckyNumberShow15:
+ ld hl, LC_DragText2
ld a, LUCKY_CHANNEL
jp NextRadioLine
-; b8c7e (2e:4c7e)
-UnknownText_0xb8c7e: ; 0xb8c7e
+LC_Text1:
; REED: Yeehaw! How
- text_jump UnknownText_0x1bcb39
+ text_jump _LC_Text1
db "@"
-; 0xb8c83
-UnknownText_0xb8c83: ; 0xb8c83
+LC_Text2:
; y'all doin' now?
- text_jump UnknownText_0x1bcb4d
+ text_jump _LC_Text2
db "@"
-; 0xb8c88
-UnknownText_0xb8c88: ; 0xb8c88
+LC_Text3:
; Whether you're up
- text_jump UnknownText_0x1bcb60
+ text_jump _LC_Text3
db "@"
-; 0xb8c8d
-UnknownText_0xb8c8d: ; 0xb8c8d
+LC_Text4:
; or way down low,
- text_jump UnknownText_0x1bcb73
+ text_jump _LC_Text4
db "@"
-; 0xb8c92
-UnknownText_0xb8c92: ; 0xb8c92
+LC_Text5:
; don't you miss the
- text_jump UnknownText_0x1bcb86
+ text_jump _LC_Text5
db "@"
-; 0xb8c97
-UnknownText_0xb8c97: ; 0xb8c97
+LC_Text6:
; LUCKY NUMBER SHOW!
- text_jump UnknownText_0x1bcb9a
+ text_jump _LC_Text6
db "@"
-; 0xb8c9c
-UnknownText_0xb8c9c: ; 0xb8c9c
+LC_Text7:
; This week's Lucky
- text_jump UnknownText_0x1bcbaf
+ text_jump _LC_Text7
db "@"
-; 0xb8ca1
-UnknownText_0xb8ca1: ; 0xb8ca1
+LC_Text8:
; Number is @ !
- text_jump UnknownText_0x1bcbc2
+ text_jump _LC_Text8
db "@"
-; 0xb8ca6
-UnknownText_0xb8ca6: ; 0xb8ca6
+LC_Text9:
; I'll repeat that!
- text_jump UnknownText_0x1bcbd6
+ text_jump _LC_Text9
db "@"
-; 0xb8cab
-UnknownText_0xb8cab: ; 0xb8cab
+LC_Text10:
; Match it and go to
- text_jump UnknownText_0x1bcbe9
+ text_jump _LC_Text10
db "@"
-; 0xb8cb0
-UnknownText_0xb8cb0: ; 0xb8cb0
+LC_Text11:
; the RADIO TOWER!
- text_jump UnknownText_0x1bcbfe
+ text_jump _LC_Text11
db "@"
-; 0xb8cb5
-UnknownText_0xb8cb5: ; 0xb8cb5
+LC_DragText1:
; …Repeating myself
- text_jump UnknownText_0x1bcc11
+ text_jump _LC_DragText1
db "@"
-; 0xb8cba
-UnknownText_0xb8cba: ; 0xb8cba
+LC_DragText2:
; gets to be a drag…
- text_jump UnknownText_0x1bcc25
+ text_jump _LC_DragText2
db "@"
-; 0xb8cbf
-PeoplePlaces1: ; b8cbf (2e:4cbf)
+PeoplePlaces1:
call StartRadioStation
- ld hl, UnknownText_0xb8ce3
+ ld hl, PnP_Text1
ld a, PLACES_AND_PEOPLE_2
jp NextRadioLine
-PeoplePlaces2: ; b8cca (2e:4cca)
- ld hl, UnknownText_0xb8ce8
+PeoplePlaces2:
+ ld hl, PnP_Text2
ld a, PLACES_AND_PEOPLE_3
jp NextRadioLine
-PeoplePlaces3: ; b8cd2 (2e:4cd2)
- ld hl, UnknownText_0xb8ced
+PeoplePlaces3:
+ ld hl, PnP_Text3
call Random
cp $7b ; 48 percent
ld a, PLACES_AND_PEOPLE_4 ; People
@@ -1246,25 +1151,21 @@
ld a, PLACES_AND_PEOPLE_6 ; Places
.ok
jp NextRadioLine
-; b8ce3 (2e:4ce3)
-UnknownText_0xb8ce3: ; 0xb8ce3
+PnP_Text1:
; PLACES AND PEOPLE!
- text_jump UnknownText_0x1bcc3a
+ text_jump _PnP_Text1
db "@"
-; 0xb8ce8
-UnknownText_0xb8ce8: ; 0xb8ce8
+PnP_Text2:
; Brought to you by
- text_jump UnknownText_0x1bcc4f
+ text_jump _PnP_Text2
db "@"
-; 0xb8ced
-UnknownText_0xb8ced: ; 0xb8ced
+PnP_Text3:
; me, DJ LILY!
- text_jump UnknownText_0x1bcc63
+ text_jump _PnP_Text3
db "@"
-; 0xb8cf2
PeoplePlaces4: ; People
call Random
@@ -1297,32 +1198,28 @@
pop bc
ld b, 1
callab GetTrainerName
- ld hl, UnknownText_0xb8d51
+ ld hl, PnP_Text4
ld a, PLACES_AND_PEOPLE_5
jp NextRadioLine
-; b8d3e (2e:4d3e)
.E4Names: db WILL, BRUNO, KAREN, KOGA, CHAMPION
.KantoLeaderNames: db BROCK, MISTY, LT_SURGE, ERIKA, JANINE, SABRINA, BLAINE, BLUE
.MiscNames: db RIVAL1, POKEMON_PROF, CAL, RIVAL2, RED
db -1
-; b8d51
-UnknownText_0xb8d51: ; 0xb8d51
+PnP_Text4:
; @ @ @
- text_jump UnknownText_0x1bcc72
+ text_jump _PnP_Text4
db "@"
-; 0xb8d56
-PeoplePlaces5: ; b8d56 (2e:4d56)
+PeoplePlaces5:
call Random
and $f
ld e, a
ld d, 0
ld hl, .Descriptors
-rept 2
add hl, de
-endr
+ add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
@@ -1337,9 +1234,8 @@
ld a, PLACES_AND_PEOPLE_6 ; Places
.ok
jp NextRadioLine
-; b8d7d (2e:4d7d)
-.Descriptors: ; b8d7d
+.Descriptors
dw PnP_cute
dw PnP_lazy
dw PnP_happy
@@ -1348,111 +1244,94 @@
dw PnP_bold
dw PnP_picky
dw PnP_sortofok
- dw PnP_justsoso
- dw PnP_actuallygreat
- dw PnP_justmytype
- dw PnP_socool
+ dw PnP_soso
+ dw PnP_great
+ dw PnP_mytype
+ dw PnP_cool
dw PnP_inspiring
dw PnP_weird
dw PnP_rightforme
dw PnP_odd
-; b8d9d
-PnP_cute: ; 0xb8d9d
+PnP_cute:
; is cute.
- text_jump UnknownText_0x1bcc80
+ text_jump _PnP_cute
db "@"
-; 0xb8da2
-PnP_lazy: ; 0xb8da2
+PnP_lazy:
; is sort of lazy.
- text_jump UnknownText_0x1bcc8b
+ text_jump _PnP_lazy
db "@"
-; 0xb8da7
-PnP_happy: ; 0xb8da7
+PnP_happy:
; is always happy.
- text_jump UnknownText_0x1bcc9e
+ text_jump _PnP_happy
db "@"
-; 0xb8dac
-PnP_noisy: ; 0xb8dac
+PnP_noisy:
; is quite noisy.
- text_jump UnknownText_0x1bccb1
+ text_jump _PnP_noisy
db "@"
-; 0xb8db1
-PnP_precocious: ; 0xb8db1
+PnP_precocious:
; is precocious.
- text_jump UnknownText_0x1bccc3
+ text_jump _PnP_precocious
db "@"
-; 0xb8db6
-PnP_bold: ; 0xb8db6
+PnP_bold:
; is somewhat bold.
- text_jump UnknownText_0x1bccd4
+ text_jump _PnP_bold
db "@"
-; 0xb8dbb
-PnP_picky: ; 0xb8dbb
+PnP_picky:
; is too picky!
- text_jump UnknownText_0x1bcce8
+ text_jump _PnP_picky
db "@"
-; 0xb8dc0
-PnP_sortofok: ; 0xb8dc0
+PnP_sortofok:
; is sort of OK.
- text_jump UnknownText_0x1bccf8
+ text_jump _PnP_sortofok
db "@"
-; 0xb8dc5
-PnP_justsoso: ; 0xb8dc5
+PnP_soso:
; is just so-so.
- text_jump UnknownText_0x1bcd09
+ text_jump _PnP_soso
db "@"
-; 0xb8dca
-PnP_actuallygreat: ; 0xb8dca
+PnP_great:
; is actually great.
- text_jump UnknownText_0x1bcd1a
+ text_jump _PnP_great
db "@"
-; 0xb8dcf
-PnP_justmytype: ; 0xb8dcf
+PnP_mytype:
; is just my type.
- text_jump UnknownText_0x1bcd2f
+ text_jump _PnP_mytype
db "@"
-; 0xb8dd4
-PnP_socool: ; 0xb8dd4
+PnP_cool:
; is so cool, no?
- text_jump UnknownText_0x1bcd42
+ text_jump _PnP_cool
db "@"
-; 0xb8dd9
-PnP_inspiring: ; 0xb8dd9
+PnP_inspiring:
; is inspiring!
- text_jump UnknownText_0x1bcd54
+ text_jump _PnP_inspiring
db "@"
-; 0xb8dde
-PnP_weird: ; 0xb8dde
+PnP_weird:
; is kind of weird.
- text_jump UnknownText_0x1bcd64
+ text_jump _PnP_weird
db "@"
-; 0xb8de3
-PnP_rightforme: ; 0xb8de3
+PnP_rightforme:
; is right for me?
- text_jump UnknownText_0x1bcd78
+ text_jump _PnP_rightforme
db "@"
-; 0xb8de8
-PnP_odd: ; 0xb8de8
+PnP_odd:
; is definitely odd!
- text_jump UnknownText_0x1bcd8b
+ text_jump _PnP_odd
db "@"
-; 0xb8ded
PeoplePlaces6: ; Places
call Random
@@ -1461,9 +1340,8 @@
ld hl, .Maps
ld c, a
ld b, 0
-rept 2
add hl, bc
-endr
+ add hl, bc
ld b, [hl]
inc hl
ld c, [hl]
@@ -1470,12 +1348,11 @@
call GetWorldMapLocation
ld e, a
callba GetLandmarkName
- ld hl, UnknownText_0xb8e23
+ ld hl, PnP_Text5
ld a, PLACES_AND_PEOPLE_7
jp NextRadioLine
-; b8e11 (2e:4e11)
-.Maps: ; b8e11
+.Maps
map PALLET_TOWN
map ROUTE_22
map PEWTER_CITY
@@ -1485,23 +1362,20 @@
map ROUTE_16
map ROUTE_14
map CINNABAR_POKECENTER_2F_BETA
-; b8e23
-UnknownText_0xb8e23: ; 0xb8e23
+PnP_Text5:
; @ @
- text_jump UnknownText_0x1bcda0
+ text_jump _PnP_Text5
db "@"
-; 0xb8e28
-PeoplePlaces7: ; b8e28 (2e:4e28)
+PeoplePlaces7:
call Random
and $f
ld e, a
ld d, 0
ld hl, .Descriptors
-rept 2
add hl, de
-endr
+ add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
@@ -1517,9 +1391,8 @@
ld a, PLACES_AND_PEOPLE_6 ; Places
.ok
jp PrintRadioLine
-; b8e52 (2e:4e52)
-.Descriptors: ; b8e52
+.Descriptors
dw PnP_cute
dw PnP_lazy
dw PnP_happy
@@ -1528,147 +1401,135 @@
dw PnP_bold
dw PnP_picky
dw PnP_sortofok
- dw PnP_justsoso
- dw PnP_actuallygreat
- dw PnP_justmytype
- dw PnP_socool
+ dw PnP_soso
+ dw PnP_great
+ dw PnP_mytype
+ dw PnP_cool
dw PnP_inspiring
dw PnP_weird
dw PnP_rightforme
dw PnP_odd
-; b8e72
-RocketRadio1: ; b8e72 (2e:4e72)
+RocketRadio1:
call StartRadioStation
- ld hl, UnknownText_0xb8ec5
+ ld hl, RocketRadioText1
ld a, ROCKET_RADIO_2
jp NextRadioLine
-RocketRadio2: ; b8e7d (2e:4e7d)
- ld hl, UnknownText_0xb8eca
+RocketRadio2:
+ ld hl, RocketRadioText2
ld a, ROCKET_RADIO_3
jp NextRadioLine
-RocketRadio3: ; b8e85 (2e:4e85)
- ld hl, UnknownText_0xb8ecf
+RocketRadio3:
+ ld hl, RocketRadioText3
ld a, ROCKET_RADIO_4
jp NextRadioLine
-RocketRadio4: ; b8e8d (2e:4e8d)
- ld hl, UnknownText_0xb8ed4
+RocketRadio4:
+ ld hl, RocketRadioText4
ld a, ROCKET_RADIO_5
jp NextRadioLine
-RocketRadio5: ; b8e95 (2e:4e95)
- ld hl, UnknownText_0xb8ed9
+RocketRadio5:
+ ld hl, RocketRadioText5
ld a, ROCKET_RADIO_6
jp NextRadioLine
-RocketRadio6: ; b8e9d (2e:4e9d)
- ld hl, UnknownText_0xb8ede
+RocketRadio6:
+ ld hl, RocketRadioText6
ld a, ROCKET_RADIO_7
jp NextRadioLine
-RocketRadio7: ; b8ea5 (2e:4ea5)
- ld hl, UnknownText_0xb8ee3
+RocketRadio7:
+ ld hl, RocketRadioText7
ld a, ROCKET_RADIO_8
jp NextRadioLine
-RocketRadio8: ; b8ead (2e:4ead)
- ld hl, UnknownText_0xb8ee8
+RocketRadio8:
+ ld hl, RocketRadioText8
ld a, ROCKET_RADIO_9
jp NextRadioLine
-RocketRadio9: ; b8eb5 (2e:4eb5)
- ld hl, UnknownText_0xb8eed
+RocketRadio9:
+ ld hl, RocketRadioText9
ld a, ROCKET_RADIO_10
jp NextRadioLine
-RocketRadio10: ; b8ebd (2e:4ebd)
- ld hl, UnknownText_0xb8ef2
+RocketRadio10:
+ ld hl, RocketRadioText10
ld a, ROCKET_RADIO
jp NextRadioLine
-; b8ec5 (2e:4ec5)
-UnknownText_0xb8ec5: ; 0xb8ec5
+RocketRadioText1:
; … …Ahem, we are
- text_jump UnknownText_0x1bcda8
+ text_jump _RocketRadioText1
db "@"
-; 0xb8eca
-UnknownText_0xb8eca: ; 0xb8eca
+RocketRadioText2:
; TEAM ROCKET!
- text_jump UnknownText_0x1bcdba
+ text_jump _RocketRadioText2
db "@"
-; 0xb8ecf
-UnknownText_0xb8ecf: ; 0xb8ecf
+RocketRadioText3:
; After three years
- text_jump UnknownText_0x1bcdc9
+ text_jump _RocketRadioText3
db "@"
-; 0xb8ed4
-UnknownText_0xb8ed4: ; 0xb8ed4
+RocketRadioText4:
; of preparation, we
- text_jump UnknownText_0x1bcddd
+ text_jump _RocketRadioText4
db "@"
-; 0xb8ed9
-UnknownText_0xb8ed9: ; 0xb8ed9
+RocketRadioText5:
; have risen again
- text_jump UnknownText_0x1bcdf2
+ text_jump _RocketRadioText5
db "@"
-; 0xb8ede
-UnknownText_0xb8ede: ; 0xb8ede
+RocketRadioText6:
; from the ashes!
- text_jump UnknownText_0x1bce05
+ text_jump _RocketRadioText6
db "@"
-; 0xb8ee3
-UnknownText_0xb8ee3: ; 0xb8ee3
+RocketRadioText7:
; GIOVANNI! @ Can you
- text_jump UnknownText_0x1bce17
+ text_jump _RocketRadioText7
db "@"
-; 0xb8ee8
-UnknownText_0xb8ee8: ; 0xb8ee8
+RocketRadioText8:
; hear?@ We did it!
- text_jump UnknownText_0x1bce2e
+ text_jump _RocketRadioText8
db "@"
-; 0xb8eed
-UnknownText_0xb8eed: ; 0xb8eed
+RocketRadioText9:
; @ Where is our boss?
- text_jump UnknownText_0x1bce44
+ text_jump _RocketRadioText9
db "@"
-; 0xb8ef2
-UnknownText_0xb8ef2: ; 0xb8ef2
+RocketRadioText10:
; @ Is he listening?
- text_jump UnknownText_0x1bce5c
+ text_jump _RocketRadioText10
db "@"
-; 0xb8ef7
-PokeFluteRadio: ; b8ef7 (2e:4ef7)
+PokeFluteRadio:
call StartRadioStation
ld a, 1
ld [wNumRadioLinesPrinted], a
ret
-UnownRadio: ; b8f00 (2e:4f00)
+UnownRadio:
call StartRadioStation
ld a, 1
ld [wNumRadioLinesPrinted], a
ret
-EvolutionRadio: ; b8f09 (2e:4f09)
+EvolutionRadio:
call StartRadioStation
ld a, 1
ld [wNumRadioLinesPrinted], a
ret
-BuenasPassword1: ; b8f12 (2e:4f12)
+BuenasPassword1:
; Determine if we need to be here
call BuenasPasswordCheckTime
jp nc, .PlayPassword
@@ -1677,34 +1538,34 @@
jp z, BuenasPassword20
jp BuenasPassword8
-.PlayPassword: ; b8f22 (2e:4f22)
+.PlayPassword
call StartRadioStation
ld a, [hBGMapMode]
push af
xor a
ld [hBGMapMode], a
- ld de, String_b9171
+ ld de, BuenasPasswordChannelName
hlcoord 2, 9
call PlaceString
pop af
ld [hBGMapMode], a
- ld hl, UnknownText_0xb9182
+ ld hl, BuenaRadioText1
ld a, BUENAS_PASSWORD_2
jp NextRadioLine
-BuenasPassword2: ; b8f3f (2e:4f3f)
- ld hl, UnknownText_0xb9187
+BuenasPassword2:
+ ld hl, BuenaRadioText2
ld a, BUENAS_PASSWORD_3
jp NextRadioLine
-BuenasPassword3: ; b8f47 (2e:4f47)
+BuenasPassword3:
call BuenasPasswordCheckTime
- ld hl, UnknownText_0xb918c
+ ld hl, BuenaRadioText3
jp c, BuenasPasswordAfterMidnight
ld a, BUENAS_PASSWORD_4
jp NextRadioLine
-BuenasPassword4: ; b8f55 (2e:4f55)
+BuenasPassword4:
call BuenasPasswordCheckTime
jp c, BuenasPassword8
ld a, [wBuenasPassword]
@@ -1736,11 +1597,11 @@
.AlreadyGotIt
ld c, a
call GetBuenasPassword
- ld hl, UnknownText_0xb9191
+ ld hl, BuenaRadioText4
ld a, BUENAS_PASSWORD_5
jp NextRadioLine
-GetBuenasPassword: ; b8f8f
+GetBuenasPassword:
; The password indices are held in c. High nybble contains the group index, low nybble contains the word index.
; Load the password group pointer in hl.
ld a, c
@@ -1749,9 +1610,8 @@
ld hl, PasswordTable
ld d, 0
ld e, a
-rept 2
add hl, de
-endr
+ add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
@@ -1767,9 +1627,8 @@
push hl
ld hl, .StringFunctionJumpTable
ld e, b
-rept 2
add hl, de
-endr
+ add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
@@ -1778,10 +1637,8 @@
pop hl
ld c, [hl]
ret
-; b8fb8
-
-.StringFunctionJumpTable: ; b8fb8 (2e:4fb8)
+.StringFunctionJumpTable
dw .Mon
dw .Item
dw .Move
@@ -1788,22 +1645,22 @@
dw .RawString
-.Mon: ; b8fc0 (2e:4fc0)
+.Mon
call .GetTheIndex
call GetPokemonName
ret
-.Item: ; b8fc7 (2e:4fc7)
+.Item
call .GetTheIndex
call GetItemName
ret
-.Move: ; b8fce (2e:4fce)
+.Move
call .GetTheIndex
call GetMoveName
ret
-.GetTheIndex: ; b8fd5 (2e:4fd5)
+.GetTheIndex
ld h, 0
ld l, c
add hl, de
@@ -1811,7 +1668,7 @@
ld [wNamedObjectIndexBuffer], a
ret
-.RawString: ; b8fde (2e:4fde)
+.RawString
; Get the string from the table...
ld a, c
and a
@@ -1834,9 +1691,8 @@
jr nz, .copy_loop
ld de, StringBuffer1
ret
-; b8ff9 (2e:4ff9)
-PasswordTable: ; b8ff9
+PasswordTable:
dw .JohtoStarters
dw .Beverages
dw .HealingItems
@@ -1848,8 +1704,7 @@
dw .Moves
dw .XItems
dw .RadioStations
-; b900f
- ; string type, points, option 1, option 2, option 3
+ ; string type, points, option 1, option 2, option 3
.JohtoStarters: db BUENA_MON, 10, CYNDAQUIL, TOTODILE, CHIKORITA
.Beverages: db BUENA_ITEM, 12, FRESH_WATER, SODA_POP, LEMONADE
.HealingItems: db BUENA_ITEM, 12, POTION, ANTIDOTE, PARLYZ_HEAL
@@ -1861,26 +1716,25 @@
.Moves: db BUENA_MOVE, 12, TACKLE, GROWL, MUD_SLAP
.XItems: db BUENA_ITEM, 12, X_ATTACK, X_DEFEND, X_SPEED
.RadioStations: db BUENA_STRING, 13, "#MON Talk@", "#MON Music@", "Lucky Channel@"
-; b909c
-BuenasPassword5: ; b909c (2e:509c)
- ld hl, UnknownText_0xb9196
+BuenasPassword5:
+ ld hl, BuenaRadioText5
ld a, BUENAS_PASSWORD_6
jp NextRadioLine
-BuenasPassword6: ; b90a4 (2e:50a4)
- ld hl, UnknownText_0xb919b
+BuenasPassword6:
+ ld hl, BuenaRadioText6
ld a, BUENAS_PASSWORD_7
jp NextRadioLine
-BuenasPassword7: ; b90ac (2e:50ac)
+BuenasPassword7:
call BuenasPasswordCheckTime
- ld hl, UnknownText_0xb91a0
+ ld hl, BuenaRadioText7
jr c, BuenasPasswordAfterMidnight
ld a, BUENAS_PASSWORD
jp NextRadioLine
-BuenasPasswordAfterMidnight: ; b90b9 (2e:50b9)
+BuenasPasswordAfterMidnight:
push hl
ld hl, WeeklyFlags
res 7, [hl]
@@ -1888,69 +1742,69 @@
ld a, BUENAS_PASSWORD_8
jp NextRadioLine
-BuenasPassword8: ; b90c5 (2e:50c5)
+BuenasPassword8:
ld hl, WeeklyFlags
res 7, [hl]
- ld hl, UnknownText_0xb91d2
+ ld hl, BuenaRadioMidnightText10
ld a, BUENAS_PASSWORD_9
jp NextRadioLine
-BuenasPassword9: ; b90d2 (2e:50d2)
- ld hl, UnknownText_0xb91a5
+BuenasPassword9:
+ ld hl, BuenaRadioMidnightText1
ld a, BUENAS_PASSWORD_10
jp NextRadioLine
-BuenasPassword10: ; b90da (2e:50da)
- ld hl, UnknownText_0xb91aa
+BuenasPassword10:
+ ld hl, BuenaRadioMidnightText2
ld a, BUENAS_PASSWORD_11
jp NextRadioLine
-BuenasPassword11: ; b90e2 (2e:50e2)
- ld hl, UnknownText_0xb91af
+BuenasPassword11:
+ ld hl, BuenaRadioMidnightText3
ld a, BUENAS_PASSWORD_12
jp NextRadioLine
-BuenasPassword12: ; b90ea (2e:50ea)
- ld hl, UnknownText_0xb91b4
+BuenasPassword12:
+ ld hl, BuenaRadioMidnightText4
ld a, BUENAS_PASSWORD_13
jp NextRadioLine
-BuenasPassword13: ; b90f2 (2e:50f2)
- ld hl, UnknownText_0xb91b9
+BuenasPassword13:
+ ld hl, BuenaRadioMidnightText5
ld a, BUENAS_PASSWORD_14
jp NextRadioLine
-BuenasPassword14: ; b90fa (2e:50fa)
- ld hl, UnknownText_0xb91be
+BuenasPassword14:
+ ld hl, BuenaRadioMidnightText6
ld a, BUENAS_PASSWORD_15
jp NextRadioLine
-BuenasPassword15: ; b9102 (2e:5102)
- ld hl, UnknownText_0xb91c3
+BuenasPassword15:
+ ld hl, BuenaRadioMidnightText7
ld a, BUENAS_PASSWORD_16
jp NextRadioLine
-BuenasPassword16: ; b910a (2e:510a)
- ld hl, UnknownText_0xb91c8
+BuenasPassword16:
+ ld hl, BuenaRadioMidnightText8
ld a, BUENAS_PASSWORD_17
jp NextRadioLine
-BuenasPassword17: ; b9112 (2e:5112)
- ld hl, UnknownText_0xb91cd
+BuenasPassword17:
+ ld hl, BuenaRadioMidnightText9
ld a, BUENAS_PASSWORD_18
jp NextRadioLine
-BuenasPassword18: ; b911a (2e:511a)
- ld hl, UnknownText_0xb91d2
+BuenasPassword18:
+ ld hl, BuenaRadioMidnightText10
ld a, BUENAS_PASSWORD_19
jp NextRadioLine
-BuenasPassword19: ; b9122 (2e:5122)
- ld hl, UnknownText_0xb91d2
+BuenasPassword19:
+ ld hl, BuenaRadioMidnightText10
ld a, BUENAS_PASSWORD_20
jp NextRadioLine
-BuenasPassword20: ; b912a (2e:512a)
+BuenasPassword20:
ld a, [hBGMapMode]
push af
callba NoRadioMusic
@@ -1963,11 +1817,11 @@
ld [wCurrentRadioLine], a
xor a
ld [wNumRadioLinesPrinted], a
- ld hl, UnknownText_0xb91d7
+ ld hl, BuenaOffTheAirText
ld a, BUENAS_PASSWORD_21
jp NextRadioLine
-BuenasPassword21: ; b9152 (2e:5152)
+BuenasPassword21:
ld a, BUENAS_PASSWORD
ld [wCurrentRadioLine], a
xor a
@@ -1974,130 +1828,110 @@
ld [wNumRadioLinesPrinted], a
call BuenasPasswordCheckTime
jp nc, BuenasPassword1
- ld hl, UnknownText_0xb91d7
+ ld hl, BuenaOffTheAirText
ld a, BUENAS_PASSWORD_21
jp NextRadioLine
-BuenasPasswordCheckTime: ; b9169 (2e:5169)
+BuenasPasswordCheckTime:
call UpdateTime
ld a, [hHours]
cp 18 ; 6 PM
ret
-; b9171 (2e:5171)
-String_b9171:
+BuenasPasswordChannelName:
db "BUENA'S PASSWORD@"
-; b9182
-UnknownText_0xb9182: ; 0xb9182
+BuenaRadioText1:
; BUENA: BUENA here!
- text_jump UnknownText_0x1bce72
+ text_jump _BuenaRadioText1
db "@"
-; 0xb9187
-UnknownText_0xb9187: ; 0xb9187
+BuenaRadioText2:
; Today's password!
- text_jump UnknownText_0x1bce87
+ text_jump _BuenaRadioText2
db "@"
-; 0xb918c
-UnknownText_0xb918c: ; 0xb918c
+BuenaRadioText3:
; Let me think… It's
- text_jump UnknownText_0x1bce9a
+ text_jump _BuenaRadioText3
db "@"
-; 0xb9191
-UnknownText_0xb9191: ; 0xb9191
+BuenaRadioText4:
; @ !
- text_jump UnknownText_0x1bceae
+ text_jump _BuenaRadioText4
db "@"
-; 0xb9196
-UnknownText_0xb9196: ; 0xb9196
+BuenaRadioText5:
; Don't forget it!
- text_jump UnknownText_0x1bceb7
+ text_jump _BuenaRadioText5
db "@"
-; 0xb919b
-UnknownText_0xb919b: ; 0xb919b
+BuenaRadioText6:
; I'm in GOLDENROD's
- text_jump UnknownText_0x1bcec9
+ text_jump _BuenaRadioText6
db "@"
-; 0xb91a0
-UnknownText_0xb91a0: ; 0xb91a0
+BuenaRadioText7:
; RADIO TOWER!
- text_jump UnknownText_0x1bcedc
+ text_jump _BuenaRadioText7
db "@"
-; 0xb91a5
-UnknownText_0xb91a5: ; 0xb91a5
+BuenaRadioMidnightText1:
; BUENA: Oh my…
- text_jump UnknownText_0x1bceeb
+ text_jump _BuenaRadioMidnightText1
db "@"
-; 0xb91aa
-UnknownText_0xb91aa: ; 0xb91aa
+BuenaRadioMidnightText2:
; It's midnight! I
- text_jump UnknownText_0x1bcefb
+ text_jump _BuenaRadioMidnightText2
db "@"
-; 0xb91af
-UnknownText_0xb91af: ; 0xb91af
+BuenaRadioMidnightText3:
; have to shut down!
- text_jump UnknownText_0x1bcf0d
+ text_jump _BuenaRadioMidnightText3
db "@"
-; 0xb91b4
-UnknownText_0xb91b4: ; 0xb91b4
+BuenaRadioMidnightText4:
; Thanks for tuning
- text_jump UnknownText_0x1bcf22
+ text_jump _BuenaRadioMidnightText4
db "@"
-; 0xb91b9
-UnknownText_0xb91b9: ; 0xb91b9
+BuenaRadioMidnightText5:
; in to the end! But
- text_jump UnknownText_0x1bcf36
+ text_jump _BuenaRadioMidnightText5
db "@"
-; 0xb91be
-UnknownText_0xb91be: ; 0xb91be
+BuenaRadioMidnightText6:
; don't stay up too
- text_jump UnknownText_0x1bcf4b
+ text_jump _BuenaRadioMidnightText6
db "@"
-; 0xb91c3
-UnknownText_0xb91c3: ; 0xb91c3
+BuenaRadioMidnightText7:
; late! Presented to
- text_jump UnknownText_0x1bcf5e
+ text_jump _BuenaRadioMidnightText7
db "@"
-; 0xb91c8
-UnknownText_0xb91c8: ; 0xb91c8
+BuenaRadioMidnightText8:
; you by DJ BUENA!
- text_jump UnknownText_0x1bcf73
+ text_jump _BuenaRadioMidnightText8
db "@"
-; 0xb91cd
-UnknownText_0xb91cd: ; 0xb91cd
+BuenaRadioMidnightText9:
; I'm outta here!
- text_jump UnknownText_0x1bcf86
+ text_jump _BuenaRadioMidnightText9
db "@"
-; 0xb91d2
-UnknownText_0xb91d2: ; 0xb91d2
+BuenaRadioMidnightText10:
; …
- text_jump UnknownText_0x1bcf96
+ text_jump _BuenaRadioMidnightText10
db "@"
-; 0xb91d7
-UnknownText_0xb91d7: ; 0xb91d7
+BuenaOffTheAirText:
;
- text_jump UnknownText_0x1bcf99
+ text_jump _BuenaOffTheAirText
db "@"
-; 0xb91dc
-CopyRadioTextToRAM: ; b91dc (2e:51dc)
+CopyRadioTextToRAM:
ld a, [hl]
cp TX_FAR
jp z, FarCopyRadioText
@@ -2105,7 +1939,7 @@
ld bc, SCREEN_WIDTH * 2
jp CopyBytes
-StartRadioStation: ; b91eb (2e:51eb)
+StartRadioStation:
ld a, [wNumRadioLinesPrinted]
and a
ret nz
@@ -2115,17 +1949,15 @@
ld a, [wCurrentRadioLine]
ld c, a
ld b, 0
-rept 2
add hl, bc
-endr
+ add hl, bc
ld e, [hl]
inc hl
ld d, [hl]
callab RadioMusicRestartDE
ret
-; b920b (2e:520b)
-RadioChannelSongs: ; b920b
+RadioChannelSongs:
dw MUSIC_POKEMON_TALK
dw MUSIC_POKEMON_CENTER
dw MUSIC_TITLE
@@ -2137,11 +1969,9 @@
dw MUSIC_POKE_FLUTE_CHANNEL
dw MUSIC_RUINS_OF_ALPH_RADIO
dw MUSIC_LAKE_OF_RAGE_ROCKET_RADIO
-; b9221
-NextRadioLine: ; b9221 (2e:5221)
+NextRadioLine:
push af
call CopyRadioTextToRAM
pop af
jp PrintRadioLine
-; b9229
--- a/main.asm
+++ b/main.asm
@@ -23,11 +23,9 @@
call PlaceString
ld c, 50
jp DelayFrames
-; 4025
.Waiting ; 4025
db "Waiting...!@"
-; 4031
LoadPushOAM:: ; 4031
ld c, hPushOAM - $ff00
@@ -40,7 +38,6 @@
dec b
jr nz, .loop
ret
-; 403f
PushOAM: ; 403f
ld a, Sprites / $100
@@ -51,7 +48,6 @@
jr nz, .loop
ret
PushOAMEnd
-; 4049
INCLUDE "engine/map_objects.asm"
@@ -77,7 +73,6 @@
ld hl, VramState
set 6, [hl]
ret
-; 6473
.Function6473
xor a
@@ -108,7 +103,6 @@
ld [hSCY], a
call Function5958
ret
-; 64b9
.Function64b9: ; 64b9
ld [hBGMapAddress + 1], a
@@ -115,7 +109,6 @@
xor a
ld [hBGMapAddress], a
ret
-; 64bf
Function64bf:: ; 64bf
ld a, [hOAMUpdate]
@@ -136,7 +129,6 @@
call Function2e31
call LoadStandardFont
ret
-; 64db
Function64db: ; 64db
ld a, [rSVBK]
@@ -163,7 +155,6 @@
pop af
ld [rSVBK], a
ret
-; 6508
INCLUDE "engine/learn.asm"
@@ -228,7 +219,6 @@
pop de
pop bc
ret
-; 66cf
.textcommands ; 66cf
; table defining which characters are actually text commands
@@ -242,13 +232,11 @@
db $49, "<TM>" + 1
db "<ROCKET>", "┘" + 1
db -1 ; end
-; 66de
INCLUDE "engine/math.asm"
ItemAttributes: ; 67c1
INCLUDE "items/item_attributes.asm"
-; 6ec1
INCLUDE "engine/npc_movement.asm"
GetFirstPokemonHappiness: ; 718d
@@ -269,7 +257,6 @@
ld [ScriptVar], a
call GetPokemonName
jp CopyPokemonName_Buffer1_Buffer3
-; 71ac
CheckFirstMonIsEgg: ; 71ac
ld a, [PartySpecies]
@@ -283,7 +270,6 @@
ld [ScriptVar], a
call GetPokemonName
jp CopyPokemonName_Buffer1_Buffer3
-; 71c2
ChangeHappiness: ; 71c2
; Perform happiness action c on CurPartyMon
@@ -356,7 +342,6 @@
ld a, [de]
ld [BattleMonHappiness], a
ret
-; 7221
.Actions
db +5, +3, +2 ; Gained a level
@@ -378,7 +363,6 @@
db -15, -15, -20 ; Used Revival Herb (bitter)
db +3, +3, +1 ; Grooming
db +10, +6, +4 ; Gained a level in the place where it was caught
-; 725a
StepHappiness:: ; 725a
; Raise the party's happiness by 1 point every other step cycle.
@@ -414,7 +398,6 @@
dec c
jr nz, .loop
ret
-; 7282
DaycareStep:: ; 7282
@@ -494,7 +477,6 @@
res 5, [hl]
set 6, [hl]
ret
-; 7305
SpecialGiveShuckle: ; 7305
@@ -567,7 +549,6 @@
db "MANIA@"
SpecialShuckleNick:
db "SHUCKIE@"
-; 737e
SpecialReturnShuckle: ; 737e
callba SelectMonFromParty
@@ -583,7 +564,6 @@
call AddNTimes
; OT ID
-; 00518
ld a, [hli]
cp 00518 / $100
jr nz, .DontReturn
@@ -639,7 +619,6 @@
ld a, $4
ld [ScriptVar], a
ret
-; 73f7
Special_BillsGrandfather: ; 73f7
callba SelectMonFromParty
@@ -654,7 +633,6 @@
xor a
ld [ScriptVar], a
ret
-; 7413
Special_YoungerHaircutBrother: ; 7413
ld hl, Data_YoungerHaircutBrother
@@ -712,7 +690,6 @@
ld a, 1
ld [ScriptVar], a
ret
-; 7459
Data_YoungerHaircutBrother: ; 7459
db $4c, 2, HAPPINESS_YOUNGCUT1 ; 30% chance
@@ -726,7 +703,6 @@
Data_DaisyMassage: ; 746b
db $ff, 2, HAPPINESS_MASSAGE ; 99.6% chance
-; 746e
CopyPokemonName_Buffer1_Buffer3: ; 746e
ld hl, StringBuffer1
@@ -733,12 +709,10 @@
ld de, StringBuffer3
ld bc, PKMN_NAME_LENGTH
jp CopyBytes
-; 747a
Predef1: ; 747a
; not used
ret
-; 747b
SECTION "bank2", ROMX, BANK[$2]
@@ -759,7 +733,6 @@
call WaitBGMap2
call SetPalettes
ret
-; 8029
GetSpawnCoord: ; 8029
ld a, -1
@@ -795,7 +768,6 @@
ld a, PLAYER
ld [wCenteredObject], a
ret
-; 8071
PlayerObjectTemplate: ; 8071
; A dummy map object used to initialize the player object.
@@ -802,7 +774,6 @@
; Shorter than the actual amount copied by two bytes.
; Said bytes seem to be unused.
person_event SPRITE_CHRIS, -4, -4, SPRITEMOVEDATA_PLAYER, 15, 15, -1, -1, 0, PERSONTYPE_SCRIPT, 0, 0, -1
-; 807e
CopyDECoordsToMapObject:: ; 807e
push de
@@ -816,7 +787,6 @@
add hl, bc
ld [hl], e
ret
-; 808f
PlayerSpawn_ConvertCoords: ; 808f
push bc
@@ -829,7 +799,6 @@
pop bc
call CopyDECoordsToMapObject
ret
-; 80a1
WritePersonXY:: ; 80a1
ld a, b
@@ -847,7 +816,6 @@
call CopyDECoordsToMapObject
and a
ret
-; 80b8
RefreshPlayerCoords: ; 80b8
ld a, [XCoord]
@@ -876,7 +844,6 @@
cp $0
ret nz ; wtf
ret
-; 80e7
CopyObjectStruct:: ; 80e7
call CheckObjectMask
@@ -911,13 +878,11 @@
add hl, de
set 5, [hl]
ret
-; 8116
CopyMapObjectToObjectStruct: ; 8116
call .CopyMapObjectToTempObject
call CopyTempObjectToObjectStruct
ret
-; 811d
.CopyMapObjectToTempObject: ; 811d
ld a, [hObjectStructIndexBuffer]
@@ -975,7 +940,6 @@
ld a, [hl]
ld [wTempObjectCopyRadius], a
ret
-; 8177
InitializeVisibleSprites: ; 8177
ld bc, MapObjects + OBJECT_LENGTH
@@ -1034,11 +998,9 @@
cp NUM_OBJECTS
jr nz, .loop
ret
-; 81c9
.ret: ; 81c9
ret
-; 81ca
CheckObjectEnteringVisibleRange:: ; 81ca
nop
@@ -1048,7 +1010,6 @@
ld hl, .dw
rst JumpTable
ret
-; 81d6
.dw: ; 81d6
dw .Down
@@ -1055,7 +1016,6 @@
dw .Up
dw .Left
dw .Right
-; 81de
.Up: ; 81de
ld a, [YCoord]
@@ -1112,7 +1072,6 @@
cp NUM_OBJECTS
jr nz, .loop_v
ret
-; 8232
.Left: ; 8232
ld a, [XCoord]
@@ -1169,7 +1128,6 @@
cp NUM_OBJECTS
jr nz, .loop_h
ret
-; 8286
CopyTempObjectToObjectStruct: ; 8286
ld a, [wTempObjectCopyMapObjectIndex]
@@ -1220,7 +1178,6 @@
and a
ret
-; 82d5
.InitYCoord: ; 82d5
ld hl, OBJECT_INIT_Y
@@ -1241,7 +1198,6 @@
add hl, de
ld [hl], a
ret
-; 82f1
.InitXCoord: ; 82f1
ld hl, OBJECT_INIT_X
@@ -1260,7 +1216,6 @@
add hl, de
ld [hl], a
ret
-; 830d
.InitRadius: ; 830d
ld h, a
@@ -1275,7 +1230,6 @@
add hl, de
ld [hl], a
ret
-; 831e
TrainerWalkToPlayer: ; 831e
ld a, [hLastTalked]
@@ -1296,7 +1250,6 @@
ld a, movement_step_end
call AppendToMovementBuffer
ret
-; 8341
.GetPathToPlayer: ; 8341
push de
@@ -1341,7 +1294,6 @@
pop af
call ComputePathToWalkToPlayer
ret
-; 8379
Special_SurfStartStep: ; 8379
call InitMovementBuffer
@@ -1350,7 +1302,6 @@
ld a, movement_step_end
call AppendToMovementBuffer
ret
-; 8388
.GetMovementData: ; 8388
ld a, [PlayerDirection]
@@ -1363,7 +1314,6 @@
add hl, de
ld a, [hl]
ret
-; 839a
.movement_data
slow_step_down
@@ -1370,7 +1320,6 @@
slow_step_up
slow_step_left
slow_step_right
-; 839e
FollowNotExact:: ; 839e
push bc
@@ -1458,7 +1407,6 @@
add hl, de
ld [hl], STEP_TYPE_00
ret
-; 8417
GetRelativeFacing:: ; 8417
; Determines which way map object e would have to turn to face map object d. Returns carry if it's impossible for whatever reason.
@@ -1484,7 +1432,6 @@
.carry
scf
ret
-; 8439
.GetFacing_e_relativeto_d: ; 8439
; Determines which way object e would have to turn to face object d. Returns carry if it's impossible.
@@ -1566,7 +1513,6 @@
.same_x_and_y
scf
ret
-; 848a
QueueFollowerFirstStep: ; 848a
call .QueueFirstStep
@@ -1580,7 +1526,6 @@
ld a, -1
ld [wFollowerMovementQueueLength], a
ret
-; 849d
.QueueFirstStep
ld a, [wObjectFollow_Leader]
@@ -1627,7 +1572,6 @@
.same_xy
scf
ret
-; 84d9
_Sine:: ; 84d9
; A simple sine function.
@@ -1650,7 +1594,6 @@
xor -1
inc a
ret
-; 84ef
.ApplySineWave: ; 84ef
ld e, a
@@ -1675,13 +1618,11 @@
and a
jr nz, .multiply
ret
-; 850b
.sinewave: ; 850b
; A $20-word table representing a sine wave.
; 90 degrees is index $10 at a base amplitude of $100.
sine_wave $100
-; 854b
INCLUDE "engine/predef.asm"
@@ -1701,7 +1642,6 @@
xor a
ld c, a
ret
-; c012
TimeOfDayTable: ; c012
db MORN, 1 << MORN
@@ -1709,7 +1649,6 @@
db NITE, 1 << NITE
db NITE, 1 << NITE
db -1
-; c01b
INCLUDE "engine/specials.asm"
@@ -1892,7 +1831,6 @@
pop de
pop bc
ret
-; c5ba
.PrintYen: ; c5ba
push af
@@ -1908,7 +1846,6 @@
.stop
pop af
ret
-; c5cb
.PrintDigit: ; c5cb (3:45cb)
dec e
@@ -2015,7 +1952,6 @@
.inc
inc hl
ret
-; c658
HealParty: ; c658
xor a
@@ -2040,7 +1976,6 @@
.done
ret
-; c677
HealPartyMon: ; c677
ld a, MON_SPECIES
@@ -2071,7 +2006,6 @@
callba RestoreAllPP
ret
-; c699
ComputeHPBarPixels: ; c699
; bc * (6 * 8) / de
@@ -2123,7 +2057,6 @@
.zero
ld e, 0
ret
-; c6e0
AnimateHPBar: ; c6e0
call WaitBGMap
@@ -2130,7 +2063,6 @@
call _AnimateHPBar
call WaitBGMap
ret
-; c6ea
ClearBuffer1: ; c6ea
xor a
@@ -2138,7 +2070,6 @@
ld bc, 7
call ByteFill
ret
-; c6f5
FieldMoveJumptable: ; c6f5
ld a, [Buffer1]
@@ -2153,7 +2084,6 @@
and $7f
scf
ret
-; c706
GetPartyNick: ; c706
; write CurPartyMon nickname to StringBuffer1-3
@@ -2168,7 +2098,6 @@
ld hl, StringBuffer3
call CopyName2
ret
-; c721
CheckEngineFlag: ; c721
; Check engine flag de
@@ -2183,7 +2112,6 @@
.isset
xor a
ret
-; c731
CheckBadge: ; c731
; Check engine flag a (ENGINE_ZEPHYRBADGE thru ENGINE_EARTHBADGE)
@@ -2194,7 +2122,6 @@
call MenuTextBoxBackup ; push text to queue
scf
ret
-; c73d
.BadgeRequiredText: ; c73d
; Sorry! A new BADGE
@@ -2201,7 +2128,6 @@
; is required.
text_jump _BadgeRequiredText
db "@"
-; c742
CheckPartyMove: ; c742
; Check if a monster in your party has move d.
@@ -2246,19 +2172,16 @@
.no
scf
ret
-; c779
FieldMoveFailed: ; c779
ld hl, .CantUseHere
call MenuTextBoxBackup
ret
-; c780
.CantUseHere: ; 0xc780
; Can't use that here.
text_jump UnknownText_0x1c05c8
db "@"
-; 0xc785
CutFunction: ; c785
call ClearBuffer1
@@ -2269,7 +2192,6 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; c796
.Jumptable: ; c796 (3:4796)
@@ -2310,13 +2232,11 @@
; used CUT!
text_jump UnknownText_0x1c05dd
db "@"
-; 0xc7c9
Text_NothingToCut: ; 0xc7c9
; There's nothing to CUT here.
text_jump UnknownText_0x1c05ec
db "@"
-; 0xc7ce
CheckMapForSomethingToCut: ; c7ce
; Does the collision data of the facing tile permit cutting?
@@ -2352,7 +2272,6 @@
.fail
scf
ret
-; c7fe
Script_CutFromMenu: ; c7fe
reloadmappart
@@ -2365,7 +2284,6 @@
callasm CutDownTreeOrGrass
closetext
end
-; 0xc810
CutDownTreeOrGrass: ; c810
ld hl, Buffer3 ; OverworldMapTile
@@ -2388,7 +2306,6 @@
call DelayFrame
call LoadStandardFont
ret
-; c840
CheckOverworldTileArrays: ; c840
; Input: c contains the tile you're facing
@@ -2425,7 +2342,6 @@
.nope
xor a
ret
-; c862
CutTreeBlockPointers: ; c862
; Which tileset are we in?
@@ -2435,7 +2351,6 @@
dbw TILESET_PARK, .park
dbw TILESET_ILEX_FOREST, .ilex
db -1
-; c872
.johto1: ; Johto OW
; Which meta tile are we facing, which should we replace it with, and which animation?
@@ -2445,12 +2360,10 @@
db $63, $3f, $00 ; tree
db $67, $3e, $00 ; tree
db -1
-; c882
.johto2: ; Goldenrod area
db $03, $02, $01 ; grass
db -1
-; c886
.kanto: ; Kanto OW
db $0b, $0a, $01 ; grass
@@ -2460,28 +2373,23 @@
db $35, $4c, $00 ; tree
db $60, $6e, $00 ; tree
db -1
-; c899
.park: ; National Park
db $13, $03, $01 ; grass
db $03, $04, $01 ; grass
db -1
-; c8a0
.ilex: ; Ilex Forest
db $0f, $17, $00
db -1
-; c8a4
WhirlpoolBlockPointers: ; c8a4
dbw TILESET_JOHTO_1, .johto
db -1
-; c8a8
.johto: ; c8a8
db $07, $36, $00
db -1
-; c8ac
OWFlash: ; c8ac
call .CheckUseFlash
@@ -2488,7 +2396,6 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; c8b5
.CheckUseFlash: ; c8b5
; Flash
@@ -2515,12 +2422,10 @@
.nozephyrbadge
ld a, $80
ret
-; c8e0
UseFlash: ; c8e0
ld hl, Script_UseFlash
jp QueueScript
-; c8e6
Script_UseFlash: ; 0xc8e6
reloadmappart
@@ -2529,7 +2434,6 @@
callasm BlindingFlash
closetext
end
-; 0xc8f3
UnknownText_0xc8f3: ; 0xc8f3
text_jump UnknownText_0x1c0609
@@ -2540,11 +2444,9 @@
call WaitSFX
ld hl, .BlankText
ret
-; c908
.BlankText: ; 0xc908
db "@"
-; 0xc909
SurfFunction: ; c909
call ClearBuffer1
@@ -2555,7 +2457,6 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; c91a
.Jumptable: ; c91a (3:491a)
dw .TrySurf
@@ -2615,7 +2516,6 @@
call MenuTextBoxBackup
ld a, $80
ret
-; c983 (3:4983)
SurfFromMenuScript: ; c983
special UpdateTimePals
@@ -2636,27 +2536,22 @@
special Special_SurfStartStep ; (slow_step_x, step_end)
applymovement PLAYER, MovementBuffer ; PLAYER, MovementBuffer
end
-; c9a2
Functionc9a2: ; c9a2
callba MobileFn_1060bb ; empty
ret
-; c9a9
UsedSurfText: ; c9a9
text_jump _UsedSurfText
db "@"
-; c9ae
CantSurfText: ; c9ae
text_jump _CantSurfText
db "@"
-; c9b3
AlreadySurfingText: ; c9b3
text_jump _AlreadySurfingText
db "@"
-; c9b8
GetSurfType: ; c9b8
; Surfing on Pikachu uses an alternate sprite.
@@ -2674,7 +2569,6 @@
ret z
ld a, PLAYER_SURF
ret
-; c9cb
CheckDirection: ; c9cb
; Return carry if a tile permission prevents you
@@ -2706,7 +2600,6 @@
db FACE_UP
db FACE_LEFT
db FACE_RIGHT
-; c9e7
TrySurfOW:: ; c9e7
; Checking a tile in the overworld.
@@ -2755,7 +2648,6 @@
.quit
xor a
ret
-; ca2c
AskSurfScript: ; ca2c
opentext
@@ -2764,12 +2656,10 @@
iftrue UsedSurfScript
closetext
end
-; ca36
AskSurfText: ; ca36
text_jump _AskSurfText ; The water is calm.
db "@" ; Want to SURF?
-; ca3b
FlyFunction: ; ca3b
call ClearBuffer1
@@ -2780,13 +2670,11 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; ca4c
.Jumptable
dw .TryFly
dw .DoFly
dw .FailFly
-; ca52
.TryFly: ; ca52
; Fly
@@ -2828,7 +2716,6 @@
call WaitBGMap
ld a, $80
ret
-; ca94
.DoFly: ; ca94
ld hl, .FlyScript
@@ -2835,13 +2722,11 @@
call QueueScript
ld a, $81
ret
-; ca9d
.FailFly: ; ca9d
call FieldMoveFailed
ld a, $82
ret
-; caa3
.FlyScript: ; 0xcaa3
reloadmappart
@@ -2857,7 +2742,6 @@
special WaitSFX
callasm .ReturnFromFly
end
-; 0xcacb
.ReturnFromFly: ; cacb
callba Function561d
@@ -2865,7 +2749,6 @@
call ReplaceKrisSprite
callba LoadOverworldFont
ret
-; cade
WaterfallFunction: ; cade
call .TryWaterfall
@@ -2872,7 +2755,6 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; cae7
.TryWaterfall: ; cae7
; Waterfall
@@ -2891,7 +2773,6 @@
call FieldMoveFailed
ld a, $80
ret
-; cb07
CheckMapCanWaterfall: ; cb07
ld a, [PlayerDirection]
@@ -2907,7 +2788,6 @@
.failed
scf
ret
-; cb1c
Script_WaterfallFromMenu: ; 0xcb1c
reloadmappart
@@ -2924,7 +2804,6 @@
callasm .CheckContinueWaterfall
iffalse .loop
end
-; 0xcb38
.CheckContinueWaterfall: ; cb38
xor a
@@ -2936,18 +2815,15 @@
ld a, $1
ld [ScriptVar], a
ret
-; cb4f
.WaterfallStep: ; cb4f
turn_waterfall_up
step_end
-; cb51
.Text_UsedWaterfall: ; 0xcb51
; used WATERFALL!
text_jump UnknownText_0x1c068e
db "@"
-; 0xcb56
TryWaterfallOW:: ; cb56
ld d, WATERFALL
@@ -2970,17 +2846,14 @@
call CallScript
scf
ret
-; cb7e
Script_CantDoWaterfall: ; 0xcb7e
jumptext .Text_CantDoWaterfall
-; 0xcb81
.Text_CantDoWaterfall: ; 0xcb81
; Wow, it's a huge waterfall.
text_jump UnknownText_0x1c06a3
db "@"
-; 0xcb86
Script_AskWaterfall: ; 0xcb86
opentext
@@ -2989,13 +2862,11 @@
iftrue Script_UsedWaterfall
closetext
end
-; 0xcb90
.AskUseWaterfall: ; 0xcb90
; Do you want to use WATERFALL?
text_jump UnknownText_0x1c06bf
db "@"
-; 0xcb95
EscapeRopeFunction: ; cb95
call ClearBuffer1
@@ -3015,13 +2886,11 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; cbb2
.DigTable: ; cbb2
dw .CheckCanDig
dw .DoDig
dw .FailDig
-; cbb8
.CheckCanDig: ; cbb8
call GetMapPermission
@@ -3046,7 +2915,6 @@
jr z, .fail
ld a, $1
ret
-; cbd8
.DoDig: ; cbd8
ld hl, wDigWarp
@@ -3068,7 +2936,6 @@
call QueueScript
ld a, $81
ret
-; cc06
.FailDig: ; cc06
ld a, [Buffer2]
@@ -3082,25 +2949,21 @@
.failescaperope
ld a, $80
ret
-; cc1c
.Text_UsedDig: ; 0xcc1c
; used DIG!
text_jump UnknownText_0x1c06de
db "@"
-; 0xcc21
.Text_UsedEscapeRope: ; 0xcc21
; used an ESCAPE ROPE.
text_jump UnknownText_0x1c06ed
db "@"
-; 0xcc26
.Text_CantUseHere: ; 0xcc26
; Can't use that here.
text_jump UnknownText_0x1c0705
db "@"
-; 0xcc2b
.UsedEscapeRopeScript: ; 0xcc2b
reloadmappart
@@ -3107,7 +2970,6 @@
special UpdateTimePals
writetext .Text_UsedEscapeRope
jump .UsedDigOrEscapeRopeScript
-; 0xcc35
.UsedDigScript: ; 0xcc35
reloadmappart
@@ -3126,19 +2988,16 @@
playsound SFX_WARP_FROM
applymovement PLAYER, .DigReturn
end
-; 0xcc59
.DigOut: ; 0xcc59
step_dig 32
hide_person
step_end
-; 0xcc5d
.DigReturn: ; 0xcc5d
show_person
return_dig 32
step_end
-; 0xcc61
TeleportFunction: ; cc61
call ClearBuffer1
@@ -3149,13 +3008,11 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; cc72
.Jumptable: ; cc72
dw .TryTeleport
dw .DoTeleport
dw .FailTeleport
-; cc78
.TryTeleport: ; cc78
call GetMapPermission
@@ -3178,7 +3035,6 @@
.nope
ld a, $2
ret
-; cc9c
.DoTeleport: ; cc9c
call GetPartyNick
@@ -3186,7 +3042,6 @@
call QueueScript
ld a, $81
ret
-; cca8
.FailTeleport: ; cca8
ld hl, .Text_CantUseHere
@@ -3193,19 +3048,16 @@
call MenuTextBoxBackup
ld a, $80
ret
-; ccb1
.Text_ReturnToLastMonCenter: ; 0xccb1
; Return to the last #MON CENTER.
text_jump UnknownText_0x1c071a
db "@"
-; 0xccb6
.Text_CantUseHere: ; 0xccb6
; Can't use that here.
text_jump UnknownText_0x1c073b
db "@"
-; 0xccbb
.TeleportScript: ; 0xccbb
reloadmappart
@@ -3223,17 +3075,14 @@
playsound SFX_WARP_FROM
applymovement PLAYER, .TeleportTo
end
-; 0xcce1
.TeleportFrom: ; cce1
teleport_from
step_end
-; cce3
.TeleportTo: ; cce3
teleport_to
step_end
-; cce5
StrengthFunction: ; cce5
call .TryStrength
@@ -3240,7 +3089,6 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; ccee
.TryStrength: ; ccee
; Strength
@@ -3248,7 +3096,6 @@
call CheckBadge
jr c, .Failed
jr .UseStrength
-; ccf8
.AlreadyUsing: ; unreferenced
ld hl, .JumpText
@@ -3255,17 +3102,14 @@
call MenuTextBoxBackup
ld a, $80
ret
-; cd01
.JumpText: ; 0xcd01
text_jump UnknownText_0x1c0751
db "@"
-; 0xcd06
.Failed: ; cd06
ld a, $80
ret
-; cd09
.UseStrength: ; cd09
ld hl, Script_StrengthFromMenu
@@ -3272,7 +3116,6 @@
call QueueScript
ld a, $81
ret
-; cd12
SetStrengthFlag: ; cd12
ld hl, BikeFlags
@@ -3286,7 +3129,6 @@
ld [Buffer6], a
call GetPartyNick
ret
-; cd29
Script_StrengthFromMenu: ; 0xcd29
reloadmappart
@@ -3301,17 +3143,14 @@
writetext .StrengthAllowedItToMoveBoulders
closetext
end
-; 0xcd41
.UsedStrength: ; 0xcd41
text_jump UnknownText_0x1c0774
db "@"
-; 0xcd46
.StrengthAllowedItToMoveBoulders: ; 0xcd46
text_jump UnknownText_0x1c0788
db "@"
-; 0xcd4b
AskStrengthScript:
callasm TryStrengthOW
@@ -3318,15 +3157,12 @@
iffalse .AskStrength
if_equal $1, .DontMeetRequirements
jump .AlreadyUsedStrength
-; 0xcd59
.DontMeetRequirements: ; 0xcd59
jumptext UnknownText_0xcd73
-; 0xcd5c
.AlreadyUsedStrength: ; 0xcd5c
jumptext UnknownText_0xcd6e
-; 0xcd5f
.AskStrength: ; 0xcd5f
opentext
@@ -3335,25 +3171,21 @@
iftrue Script_UsedStrength
closetext
end
-; 0xcd69
UnknownText_0xcd69: ; 0xcd69
; A #MON may be able to move this. Want to use STRENGTH?
text_jump UnknownText_0x1c07a0
db "@"
-; 0xcd6e
UnknownText_0xcd6e: ; 0xcd6e
; Boulders may now be moved!
text_jump UnknownText_0x1c07d8
db "@"
-; 0xcd73
UnknownText_0xcd73: ; 0xcd73
; A #MON may be able to move this.
text_jump UnknownText_0x1c07f4
db "@"
-; 0xcd78
TryStrengthOW: ; cd78
ld d, STRENGTH
@@ -3382,7 +3214,6 @@
.done
ld [ScriptVar], a
ret
-; cd9d
WhirlpoolFunction: ; cd9d
call ClearBuffer1
@@ -3393,13 +3224,11 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; cdae
Jumptable_cdae: ; cdae
dw .TryWhirlpool
dw .DoWhirlpool
dw .FailWhirlpool
-; cdb4
.TryWhirlpool: ; cdb4
ld de, ENGINE_GLACIERBADGE
@@ -3417,7 +3246,6 @@
.noglacierbadge
ld a, $80
ret
-; cdca
.DoWhirlpool: ; cdca
ld hl, Script_WhirlpoolFromMenu
@@ -3424,19 +3252,16 @@
call QueueScript
ld a, $81
ret
-; cdd3
.FailWhirlpool: ; cdd3
call FieldMoveFailed
ld a, $80
ret
-; cdd9
Text_UsedWhirlpool: ; 0xcdd9
; used WHIRLPOOL!
text_jump UnknownText_0x1c0816
db "@"
-; 0xcdde
TryWhirlpoolMenu: ; cdde
call GetFacingTileCoord
@@ -3466,7 +3291,6 @@
.failed
scf
ret
-; ce0b
Script_WhirlpoolFromMenu: ; 0xce0b
reloadmappart
@@ -3479,7 +3303,6 @@
callasm DisappearWhirlpool
closetext
end
-; 0xce1d
DisappearWhirlpool: ; ce1d
ld hl, Buffer3
@@ -3497,7 +3320,6 @@
call BufferScreen
call GetMovementPermissions
ret
-; ce3e
TryWhirlpoolOW:: ; ce3e
ld d, WHIRLPOOL
@@ -3520,16 +3342,13 @@
call CallScript
scf
ret
-; ce66
Script_MightyWhirlpool: ; 0xce66
jumptext .MightyWhirlpoolText
-; 0xce69
.MightyWhirlpoolText: ; 0xce69
text_jump UnknownText_0x1c082b
db "@"
-; 0xce6e
Script_AskWhirlpoolOW: ; 0xce6e
opentext
@@ -3538,12 +3357,10 @@
iftrue Script_UsedWhirlpool
closetext
end
-; 0xce78
UnknownText_0xce78: ; 0xce78
text_jump UnknownText_0x1c0864
db "@"
-; 0xce7d
HeadbuttFunction: ; ce7d
call TryHeadbuttFromMenu
@@ -3550,7 +3367,6 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; ce86
TryHeadbuttFromMenu: ; ce86
call GetFacingTileCoord
@@ -3566,19 +3382,16 @@
call FieldMoveFailed
ld a, $80
ret
-; ce9d
UnknownText_0xce9d: ; 0xce9d
; did a HEADBUTT!
text_jump UnknownText_0x1c0897
db "@"
-; 0xcea2
UnknownText_0xcea2: ; 0xcea2
; Nope. Nothing…
text_jump UnknownText_0x1c08ac
db "@"
-; 0xcea7
HeadbuttFromMenuScript: ; 0xcea7
reloadmappart
@@ -3604,7 +3417,6 @@
waitbutton
closetext
end
-; 0xcec9
TryHeadbuttOW:: ; cec9
ld d, HEADBUTT
@@ -3620,7 +3432,6 @@
.no
xor a
ret
-; cedc
AskHeadbuttScript: ; 0xcedc
opentext
@@ -3629,13 +3440,11 @@
iftrue HeadbuttScript
closetext
end
-; 0xcee6
UnknownText_0xcee6: ; 0xcee6
; A #MON could be in this tree. Want to HEADBUTT it?
text_jump UnknownText_0x1c08bc
db "@"
-; 0xceeb
RockSmashFunction: ; ceeb
call TryRockSmashFromMenu
@@ -3642,7 +3451,6 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; cef4
TryRockSmashFromMenu: ; cef4
call GetFacingObject
@@ -3660,7 +3468,6 @@
call FieldMoveFailed
ld a, $80
ret
-; cf0d
GetFacingObject: ; cf0d
callba CheckFacingObject
@@ -3683,7 +3490,6 @@
.fail
scf
ret
-; cf2e
RockSmashFromMenuScript: ; 0xcf2e
reloadmappart
@@ -3707,7 +3513,6 @@
reloadmapafterbattle
.done
end
-; 0xcf55
MovementData_0xcf55: ; 0xcf55
rock_smash 10
@@ -3716,7 +3521,6 @@
UnknownText_0xcf58: ; 0xcf58
text_jump UnknownText_0x1c08f0
db "@"
-; 0xcf5d
AskRockSmashScript: ; 0xcf5d
callasm HasRockSmash
@@ -3730,19 +3534,16 @@
end
.no
jumptext UnknownText_0xcf72
-; 0xcf72
UnknownText_0xcf72: ; 0xcf72
; Maybe a #MON can break this.
text_jump UnknownText_0x1c0906
db "@"
-; 0xcf77
UnknownText_0xcf77: ; 0xcf77
; This rock looks breakable. Want to use ROCK SMASH?
text_jump UnknownText_0x1c0924
db "@"
-; 0xcf7c
HasRockSmash: ; cf7c
ld d, ROCK_SMASH
@@ -3771,7 +3572,6 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; cfa5
.FishTable: ; cfa5
dw .TryFish
@@ -3779,7 +3579,6 @@
dw .FishGotSomething
dw .SurfingFish
dw .FailFish
-; cfaf
.TryFish: ; cfaf
ld a, [PlayerState]
@@ -3822,12 +3621,10 @@
.nonibble
ld a, $1
ret
-; cff1
.SurfingFish: ; cff1
ld a, $80
ret
-; cff4
.FishGotSomething: ; cff4
ld a, $1
@@ -3836,7 +3633,6 @@
call QueueScript
ld a, $81
ret
-; d002
.FishNoBite: ; d002
ld a, $2
@@ -3845,7 +3641,6 @@
call QueueScript
ld a, $81
ret
-; d010
.FailFish: ; d010
ld a, $0
@@ -3854,13 +3649,11 @@
call QueueScript
ld a, $81
ret
-; d01e
Script_NotEvenANibble: ; 0xd01e
scall Script_FishCastRod
writetext UnknownText_0xd0a9
jump Script_NotEvenANibble_FallThrough
-; 0xd027
Script_NotEvenANibble2: ; 0xd027
scall Script_FishCastRod
@@ -3871,7 +3664,6 @@
callasm PutTheRodAway
closetext
end
-; 0xd035
Script_GotABite: ; 0xd035
scall Script_FishCastRod
@@ -3879,7 +3671,6 @@
iffalse .NotFacingUp
applymovement PLAYER, .Movement_FacingUp
jump .FightTheHookedPokemon
-; 0xd046
.NotFacingUp: ; 0xd046
applymovement PLAYER, .Movement_NotFacingUp
@@ -3894,7 +3685,6 @@
startbattle
reloadmapafterbattle
end
-; 0xd05c
.Movement_NotFacingUp: ; d05c
fish_got_bite
@@ -3903,7 +3693,6 @@
fish_got_bite
show_emote
step_end
-; d062
.Movement_FacingUp: ; d062
fish_got_bite
@@ -3913,13 +3702,11 @@
step_sleep_1
show_emote
step_end
-; d069
.Movement_RestoreRod: ; d069
hide_emote
fish_cast_rod
step_end
-; d06c
Fishing_CheckFacingUp: ; d06c
ld a, [PlayerDirection]
@@ -3932,7 +3719,6 @@
.up
ld [ScriptVar], a
ret
-; d07c
Script_FishCastRod: ; 0xd07c
reloadmappart
@@ -3944,12 +3730,10 @@
applymovement PLAYER, MovementData_0xd093
pause 40
end
-; 0xd093
MovementData_0xd093: ; d093
fish_cast_rod
step_end
-; d095
PutTheRodAway: ; d095
xor a
@@ -3959,25 +3743,21 @@
call UpdateSprites
call ReplaceKrisSprite
ret
-; d0a4
UnknownText_0xd0a4: ; 0xd0a4
; Oh! A bite!
text_jump UnknownText_0x1c0958
db "@"
-; 0xd0a9
UnknownText_0xd0a9: ; 0xd0a9
; Not even a nibble!
text_jump UnknownText_0x1c0965
db "@"
-; 0xd0ae
UnknownText_0xd0ae: ; unused
; Looks like there's nothing here.
text_jump UnknownText_0x1c0979
db "@"
-; 0xd0b3
BikeFunction: ; d0b3
call .TryBike
@@ -3984,7 +3764,6 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; d0bc
.TryBike: ; d0bc
call .CheckEnvironment
@@ -4036,7 +3815,6 @@
call QueueScript
ld a, $1
ret
-; d119
.CheckIfRegistered: ; d119
ld a, [wUsingItemWithSelect]
@@ -4045,7 +3823,6 @@
ld h, d
ld l, e
ret
-; d121
.CheckEnvironment: ; d121
call GetMapPermission
@@ -4067,7 +3844,6 @@
.nope
scf
ret
-; d13e
Script_GetOnBike: ; 0xd13e
reloadmappart
@@ -4078,7 +3854,6 @@
closetext
special ReplaceKrisSprite
end
-; 0xd14e
Script_GetOnBike_Register: ; 0xd14e
writecode VAR_MOVEMENT, PLAYER_BIKE
@@ -4085,7 +3860,6 @@
closetext
special ReplaceKrisSprite
end
-; 0xd156
Functiond156: ; unreferenced
nop
@@ -4103,12 +3877,10 @@
special ReplaceKrisSprite
special PlayMapMusic
end
-; 0xd16b
Script_GetOffBike_Register: ; 0xd16b
writecode VAR_MOVEMENT, PLAYER_NORMAL
jump FinishGettingOffBike
-; 0xd171
UnknownScript_0xd171: ; 0xd171
writetext UnknownText_0xd177
@@ -4115,25 +3887,21 @@
waitbutton
closetext
end
-; 0xd177
UnknownText_0xd177: ; 0xd177
; You can't get off here!
text_jump UnknownText_0x1c099a
db "@"
-; 0xd17c
UnknownText_0xd17c: ; 0xd17c
; got on the @ .
text_jump UnknownText_0x1c09b2
db "@"
-; 0xd181
UnknownText_0xd181: ; 0xd181
; got off the @ .
text_jump UnknownText_0x1c09c7
db "@"
-; 0xd186
TryCutOW:: ; d186
ld d, CUT
@@ -4156,7 +3924,6 @@
call CallScript
scf
ret
-; d1a9
AskCutScript: ; 0xd1a9
opentext
@@ -4168,7 +3935,6 @@
.script_d1b8
closetext
end
-; 0xd1ba
.CheckMap: ; d1ba
xor a
@@ -4178,21 +3944,17 @@
ld a, TRUE
ld [ScriptVar], a
ret
-; d1c8
UnknownText_0xd1c8: ; 0xd1c8
text_jump UnknownText_0x1c09dd
db "@"
-; 0xd1cd
CantCutScript: ; 0xd1cd
jumptext UnknownText_0xd1d0
-; 0xd1d0
UnknownText_0xd1d0: ; 0xd1d0
text_jump UnknownText_0x1c0a05
db "@"
-; 0xd1d5
_ReceiveItem:: ; d1d5
call DoesHLEqualNumItems
@@ -4205,7 +3967,6 @@
ld hl, .Pockets
rst JumpTable
ret
-; d1e9
.Pockets: ; d1e9
dw .Item
@@ -4212,24 +3973,20 @@
dw .KeyItem
dw .Ball
dw .TMHM
-; d1f1
.Item: ; d1f1
ld h, d
ld l, e
jp PutItemInPocket
-; d1f6
.KeyItem: ; d1f6
ld h, d
ld l, e
jp ReceiveKeyItem
-; d1fb
.Ball: ; d1fb
ld hl, NumBalls
jp PutItemInPocket
-; d201
.TMHM: ; d201
ld h, d
@@ -4238,7 +3995,6 @@
ld c, a
call GetTMHMNumber
jp ReceiveTMHM
-; d20d
_TossItem:: ; d20d
call DoesHLEqualNumItems
@@ -4257,12 +4013,10 @@
dw .KeyItem
dw .Ball
dw .TMHM
-; d228
.Ball ; d228
ld hl, NumBalls
jp RemoveItemFromPocket
-; d22e
.TMHM ; d22e
ld h, d
@@ -4271,22 +4025,18 @@
ld c, a
call GetTMHMNumber
jp TossTMHM
-; d23a
.KeyItem ; d23a
ld h, d
ld l, e
jp TossKeyItem
-; d23f
.Item ; d23f
ld h, d
ld l, e
-; d241
.remove
jp RemoveItemFromPocket
-; d244
_CheckItem:: ; d244
call DoesHLEqualNumItems
@@ -4305,12 +4055,10 @@
dw .KeyItem
dw .Ball
dw .TMHM
-; d25f
.Ball ; d25f
ld hl, NumBalls
jp CheckTheItem
-; d265
.TMHM ; d265
ld h, d
@@ -4319,22 +4067,18 @@
ld c, a
call GetTMHMNumber
jp CheckTMHM
-; d271
.KeyItem ; d271
ld h, d
ld l, e
jp CheckKeyItems
-; d276
.Item ; d276
ld h, d
ld l, e
-; d278
.nope
jp CheckTheItem
-; d27b
DoesHLEqualNumItems: ; d27b
ld a, l
@@ -4343,7 +4087,6 @@
ld a, h
cp NumItems / $100
ret
-; d283
GetPocketCapacity: ; d283
ld c, MAX_ITEMS
@@ -4366,7 +4109,6 @@
.not_pc
ld c, MAX_BALLS
ret
-; d29c
PutItemInPocket: ; d29c
ld d, h
@@ -4443,7 +4185,6 @@
.done
scf
ret
-; d2ff
RemoveItemFromPocket: ; d2ff
ld d, h
@@ -4509,7 +4250,6 @@
.nope
and a
ret
-; d349
CheckTheItem: ; d349
ld a, [CurItem]
@@ -4527,7 +4267,6 @@
.done
and a
ret
-; d35a
ReceiveKeyItem: ; d35a
ld hl, NumKeyItems
@@ -4548,7 +4287,6 @@
.nope
and a
ret
-; d374
TossKeyItem: ; d374
ld a, [wd107]
@@ -4579,7 +4317,6 @@
jr nz, .loop
scf
ret
-; d396
.Toss: ; d396
ld hl, NumKeyItems
@@ -4601,7 +4338,6 @@
ld [NumKeyItems], a
scf
ret
-; d3b1
CheckKeyItems: ; d3b1
ld a, [CurItem]
@@ -4619,7 +4355,6 @@
.done
scf
ret
-; d3c4
ReceiveTMHM: ; d3c4
dec c
@@ -4637,7 +4372,6 @@
.toomany
and a
ret
-; d3d8
TossTMHM: ; d3d8
dec c
@@ -4665,7 +4399,6 @@
.nope
and a
ret
-; d3fb
CheckTMHM: ; d3fb
dec c
@@ -4677,7 +4410,6 @@
ret z
scf
ret
-; d407
GetTMHMNumber:: ; d407
; Return the number of a TM/HM by item id c.
@@ -4698,7 +4430,6 @@
inc a
ld c, a
ret
-; d417
GetNumberedTMHM: ; d417
; Return the item id of a TM/HM by number c.
@@ -4720,7 +4451,6 @@
dec a
ld c, a
ret
-; d427
_CheckTossableItem:: ; d427
; Return 1 in wItemAttributeParamBuffer and carry if CurItem can't be removed from the bag.
@@ -4730,7 +4460,6 @@
jr nz, ItemAttr_ReturnCarry
and a
ret
-; d432
CheckSelectableItem: ; d432
; Return 1 in wItemAttributeParamBuffer and carry if CurItem can't be selected.
@@ -4740,7 +4469,6 @@
jr nz, ItemAttr_ReturnCarry
and a
ret
-; d43d
CheckItemPocket:: ; d43d
; Return the pocket for CurItem in wItemAttributeParamBuffer.
@@ -4749,7 +4477,6 @@
and $f
ld [wItemAttributeParamBuffer], a
ret
-; d448
CheckItemContext: ; d448
; Return the context for CurItem in wItemAttributeParamBuffer.
@@ -4758,7 +4485,6 @@
and $f
ld [wItemAttributeParamBuffer], a
ret
-; d453
CheckItemMenu: ; d453
; Return the menu for CurItem in wItemAttributeParamBuffer.
@@ -4768,7 +4494,6 @@
and $f
ld [wItemAttributeParamBuffer], a
ret
-; d460
GetItemAttr: ; d460
; Get attribute a of CurItem.
@@ -4795,7 +4520,6 @@
pop bc
pop hl
ret
-; d47f
ItemAttr_ReturnCarry: ; d47f
ld a, 1
@@ -4802,7 +4526,6 @@
ld [wItemAttributeParamBuffer], a
scf
ret
-; d486
GetItemPrice: ; d486
; Return the price of CurItem in de.
@@ -4817,7 +4540,6 @@
pop bc
pop hl
ret
-; d497
INCLUDE "engine/player_step.asm"
INCLUDE "engine/anim_hp_bar.asm"
@@ -4838,13 +4560,11 @@
call MenuTextBoxBackup
scf
ret
-; e417 (3:6417)
.Text_GottaHavePokemon: ; 0xe417
; You gotta have #MON to call!
text_jump UnknownText_0x1c1006
db "@"
-; 0xe41c
.LogIn: ; e41c (3:641c)
xor a
@@ -4861,13 +4581,11 @@
ld [Options], a
call LoadFontsBattleExtra
ret
-; e43a (3:643a)
.Text_What: ; 0xe43a
; What?
text_jump UnknownText_0x1c1024
db "@"
-; 0xe43f
.LogOut: ; e43f (3:643f)
call CloseSubmenu
@@ -4896,7 +4614,6 @@
.cancel
call CloseWindow
ret
-; e46f (3:646f)
.MenuDataHeader: ; 0xe46f
db $40 ; flags
@@ -4904,7 +4621,6 @@
db 17, 19 ; end coords
dw .MenuData2
db 1 ; default option
-; 0xe477
.MenuData2: ; 0xe477
db $80 ; flags
@@ -4912,7 +4628,6 @@
dw .items
dw PlaceMenuStrings
dw .strings
-; 0xe47f
.strings: ; e47f
db "WITHDRAW <PK><MN>@"
@@ -4927,7 +4642,6 @@
dw BillsPC_ChangeBoxMenu
dw BillsPC_MovePKMNMenu
dw BillsPC_SeeYa
-; e4c4
.items: ; e4c4
db 5
@@ -4937,12 +4651,10 @@
db 3 ; MOVE PKMN
db 4 ; SEE YA!
db -1
-; e4cb
BillsPC_SeeYa: ; e4cb
scf
ret
-; e4cd
BillsPC_MovePKMNMenu: ; e4cd
call LoadStandardMenuDataHeader
@@ -4963,13 +4675,11 @@
call CloseWindow
and a
ret
-; e4f9
.Text_MonHoldingMail: ; 0xe4f9
; There is a #MON holding MAIL. Please remove the MAIL.
text_jump UnknownText_0x1c102b
db "@"
-; 0xe4fe
BillsPC_DepositMenu: ; e4fe (3:64fe)
call LoadStandardMenuDataHeader
@@ -4979,7 +4689,6 @@
call CloseWindow
and a
ret
-; e512 (3:6512)
Functione512: ; unused
ld a, [PartyCount]
@@ -5001,19 +4710,16 @@
call MenuTextBoxBackup
scf
ret
-; e52e
.Text_NoPKMN: ; 0xe52e
; You don't have a single #MON!
text_jump UnknownText_0x1c1062
db "@"
-; 0xe533
.Text_ItsYourLastPKMN: ; 0xe533
; You can't deposit your last #MON!
text_jump UnknownText_0x1c1080
db "@"
-; 0xe538
CheckCurPartyMonFainted: ; e538
ld hl, PartyMon1HP
@@ -5043,7 +4749,6 @@
.notfainted
and a
ret
-; e559
BillsPC_WithdrawMenu: ; e559 (3:6559)
call LoadStandardMenuDataHeader
@@ -5053,7 +4758,6 @@
call CloseWindow
and a
ret
-; e56d (3:656d)
Functione56d: ; unused
ld a, [PartyCount]
@@ -5067,13 +4771,11 @@
call MenuTextBoxBackup
scf
ret
-; e57e
UnknownText_0xe57e: ; 0xe57e
; You can't take any more #MON.
text_jump UnknownText_0x1c10a2
db "@"
-; 0xe583
BillsPC_ChangeBoxMenu: ; e583 (3:6583)
callba _ChangeBox
@@ -5099,7 +4801,6 @@
call WaitBGMap2
call SetPalettes ; load regular palettes?
ret
-; 0xe5bb
CopyBoxmonToTempMon: ; e5bb
ld a, [CurPartyMon]
@@ -5113,7 +4814,6 @@
call CopyBytes
call CloseSRAM
ret
-; e5d9
Functione5d9: ; unreferenced
ld a, [wCurBox]
@@ -5217,7 +4917,6 @@
.empty_box
call CloseSRAM
ret
-; e66e
.BoxAddrs: ; e66e
dba sBox1
@@ -5234,7 +4933,6 @@
dba sBox12
dba sBox13
dba sBox14
-; e698
GetBreedMon1LevelGrowth: ; e698
ld hl, wBreedMon1Stats
@@ -5249,7 +4947,6 @@
sub b
ld d, a
ret
-; e6b3
GetBreedMon2LevelGrowth: ; e6b3
ld hl, wBreedMon2Stats
@@ -5264,7 +4961,6 @@
sub b
ld d, a
ret
-; e6ce
BugContest_SetCaughtContestMon: ; e6ce
ld a, [wContestMon]
@@ -5285,7 +4981,6 @@
ld hl, .caughttext
call PrintText
ret
-; e6fd
.generatestats: ; e6fd
ld a, [TempEnemyMonSpecies]
@@ -5300,13 +4995,11 @@
ld [MonType], a
ld hl, wContestMon
jp GeneratePartyMonStats
-; e71d
.caughttext: ; 0xe71d
; Caught @ !
text_jump UnknownText_0x1c10c0
db "@"
-; 0xe722
INCLUDE "items/item_effects.asm"
@@ -5370,7 +5063,6 @@
ld a, e
pop de
ret
-; f9ba (3:79ba)
.WobbleProbabilities: ; f9ba
; catch rate, chance of wobbling / 255
@@ -5399,7 +5091,6 @@
db 240, 251
db 254, 253
db 255, 255
-; f9ea
KnowsMove: ; f9ea
ld a, MON_MOVES
@@ -5421,13 +5112,11 @@
call PrintText
scf
ret
-; fa06
.Text_knows: ; 0xfa06
; knows @ .
text_jump UnknownText_0x1c5ea8
db "@"
-; 0xfa0b
SECTION "bank4", ROMX, BANK[$4]
@@ -5444,7 +5133,6 @@
special ContestReturnMons
.finish
end
-; 0x122ce
INCLUDE "event/itemball.asm"
INCLUDE "engine/healmachineanim.asm"
@@ -5462,7 +5150,6 @@
ld [wParkBallsRemaining], a
callba StartBugContestTimer
ret
-; 135eb
BugCatchingContestBattleScript:: ; 0x135eb
writecode VAR_BATTLETYPE, BATTLETYPE_CONTEST
@@ -5472,7 +5159,6 @@
copybytetovar wParkBallsRemaining
iffalse BugCatchingContestOutOfBallsScript
end
-; 0x135f8
BugCatchingContestOverScript:: ; 0x135f8
playsound SFX_ELEVATOR_END
@@ -5480,7 +5166,6 @@
writetext BugCatchingContestText_BeeepTimesUp
waitbutton
jump BugCatchingContestReturnToGateScript
-; 0x13603
BugCatchingContestOutOfBallsScript: ; 0x13603
playsound SFX_ELEVATOR_END
@@ -5491,19 +5176,16 @@
BugCatchingContestReturnToGateScript: ; 0x1360b
closetext
jumpstd bugcontestresultswarp
-; 0x1360f
BugCatchingContestText_BeeepTimesUp: ; 0x1360f
; ANNOUNCER: BEEEP! Time's up!
text_jump UnknownText_0x1bd2ca
db "@"
-; 0x13614
BugCatchingContestText_ContestIsOver: ; 0x13614
; ANNOUNCER: The Contest is over!
text_jump UnknownText_0x1bd2e7
db "@"
-; 0x13619
RepelWoreOffScript:: ; 0x13619
opentext
@@ -5511,13 +5193,11 @@
waitbutton
closetext
end
-; 0x13620
.text: ; 0x13620
; REPEL's effect wore off.
text_jump UnknownText_0x1bd308
db "@"
-; 0x13625
HiddenItemScript:: ; 0x13625
opentext
@@ -5530,7 +5210,6 @@
specialsound
itemnotify
jump .finish
-; 0x1363e
.bag_full: ; 0x1363e
buttonsound
@@ -5540,19 +5219,16 @@
.finish: ; 13643
closetext
end
-; 0x13645
.found_text: ; 0x13645
; found @ !
text_jump UnknownText_0x1bd321
db "@"
-; 0x1364a
.no_room_text: ; 0x1364a
; But has no space left…
text_jump UnknownText_0x1bd331
db "@"
-; 0x1364f
SetMemEvent: ; 1364f
ld hl, EngineBuffer1 ; wd03e (aliases: MenuItemsList, CurFruitTree, CurInput)
@@ -5587,7 +5263,6 @@
.notintable
xor a
ret
-; 13681
.table1
dbw $91, magazinebookshelf
@@ -5599,11 +5274,9 @@
dbw $9d, window
dbw $9f, incenseburner
db -1 ; end
-; 1369a
Script_JumpStdFromRAM: ; 0x1369a
jump wJumpStdScriptBuffer
-; 0x1369d
INCLUDE "event/bug_contest_judging.asm"
@@ -5635,7 +5308,6 @@
dec c
jr nz, .loop
ret
-; 139a8
INCLUDE "event/bug_contest_2.asm"
@@ -5671,7 +5343,6 @@
dw root*root
root set root+1
endr
-; 13d96
SECTION "bank5", ROMX, BANK[$5]
@@ -5720,7 +5391,6 @@
dw StringBuffer1
dw EnemyMonNick
dw BattleMonNick
-; 2400e
INCLUDE "engine/menu.asm"
@@ -5737,7 +5407,6 @@
decoord 1, 14
callba PrintItemDescription
ret
-; 0x244e3
Pokepic:: ; 244e3
ld hl, PokepicMenuDataHeader
@@ -5767,7 +5436,6 @@
predef FillBox
call WaitBGMap
ret
-; 24528
ClosePokepic:: ; 24528
ld hl, PokepicMenuDataHeader
@@ -5782,7 +5450,6 @@
call UpdateSprites
call LoadStandardFont
ret
-; 24547
PokepicMenuDataHeader: ; 0x24547
db $40 ; flags
@@ -5790,7 +5457,6 @@
db 13, 14 ; end coords
dw NULL
db 1 ; default option
-; 0x2454f
LoadObjectMasks: ; 2454f
ld hl, wObjectMasks
@@ -5874,7 +5540,6 @@
pop hl
call PlaceString
ret
-; 0x24ac3
PlaceMenuItemQuantity: ; 0x24ac3
push de
@@ -5895,7 +5560,6 @@
.done
ret
-; 0x24ae8
PlaceMoneyTopRight: ; 24ae8
ld hl, MenuDataHeader_0x24b15
@@ -5921,7 +5585,6 @@
lb bc, PRINTNUM_MONEY | 3, 6
call PrintNum
ret
-; 24b15
MenuDataHeader_0x24b15: ; 0x24b15
db $40 ; flags
@@ -5929,7 +5592,6 @@
db 02, 19 ; end coords
dw NULL
db 1 ; default option
-; 0x24b1d
MenuDataHeader_0x24b1d: ; 0x24b1d
db $40 ; flags
@@ -5937,7 +5599,6 @@
db 13, 08 ; end coords
dw NULL
db 1 ; default option
-; 0x24b25
Special_DisplayCoinCaseBalance: ; 24b25
; Place a text box of size 1x7 at 11, 0.
@@ -5956,7 +5617,6 @@
hlcoord 13, 1
call PrintNum
ret
-; 24b4e
Special_DisplayMoneyAndCoinBalance: ; 24b4e
hlcoord 5, 0
@@ -5978,7 +5638,6 @@
lb bc, 2, 4
call PrintNum
ret
-; 24b83
MoneyString: ; 24b83
db "MONEY@"
@@ -5986,7 +5645,6 @@
db "COIN@"
ShowMoney_TerminatorString: ; 24b8e
db "@"
-; 24b8f
Function24b8f: ; 24b8f
; unreferenced, related to safari?
@@ -6015,13 +5673,11 @@
pop af
ld [Options], a
ret
-; 24bcf
.slash_500: ; 24bcf
db "/500@"
.booru_ko: ; 24bd4
db "ボール こ@"
-; 24bdc
Function24bdc: ; 24bdc
hlcoord 0, 0
@@ -6029,7 +5685,6 @@
ld c, $11
call TextBox
ret
-; 24be7
Function24be7: ; 24be7
ld hl, Options
@@ -6074,7 +5729,6 @@
pop af
ld [Options], a
ret
-; 24c43
String24c43: ; 24c43
db "ボール こ@"
@@ -6086,7 +5740,6 @@
db "None@"
String24c5e: ; 24c5e
db "LEVEL@"
-; 24c64
FindApricornsInBag: ; 24c64
; Checks the bag for Apricorns.
@@ -6121,7 +5774,6 @@
ret nz
scf
ret
-; 24c94
.addtobuffer: ; 24c94
push hl
@@ -6133,7 +5785,6 @@
ld [hl], a
pop hl
ret
-; 24ca0
.ApricornBalls: ; 24ca0
db RED_APRICORN, LEVEL_BALL
@@ -6144,7 +5795,6 @@
db BLK_APRICORN, HEAVY_BALL
db PNK_APRICORN, LOVE_BALL
db -1
-; 24caf
INCLUDE "engine/mon_menu.asm"
INCLUDE "battle/menu.asm"
@@ -6163,7 +5813,6 @@
call JoyWaitAorB
call ExitMenu
ret
-; 0x265ee
ProfOaksPCBoot ; 0x265ee
ld hl, OakPCText2
@@ -6173,7 +5822,6 @@
call JoyWaitAorB
call WaitSFX
ret
-; 0x26601
ProfOaksPCRating: ; 0x26601
call Rate
@@ -6185,7 +5833,6 @@
call JoyWaitAorB
call WaitSFX
ret
-; 0x26616
Rate: ; 0x26616
; calculate Seen/Owned
@@ -6210,7 +5857,6 @@
call PrintText
pop de
ret
-; 0x26647
.UpdateRatingBuffers: ; 0x26647
ld hl, StringBuffer3
@@ -6220,7 +5866,6 @@
ld de, wd003
call .UpdateRatingBuffer
ret
-; 0x2665a
.UpdateRatingBuffer: ; 0x2665a
push hl
@@ -6231,7 +5876,6 @@
lb bc, PRINTNUM_RIGHTALIGN | 1, 3
call PrintNum
ret
-; 0x2666b
FindOakRating: ; 0x2666b
; return sound effect in de
@@ -6256,7 +5900,6 @@
ld h, [hl]
ld l, a
ret
-; 0x2667f
OakRatings: ; 0x2667f
oakrating: MACRO
@@ -6388,7 +6031,6 @@
ld e, a
call GetBlockLocation
ret
-; 2709e
LevelUpHappinessMod: ; 2709e
ld a, [CurPartyMon]
@@ -6410,7 +6052,6 @@
.ok
callab ChangeHappiness
ret
-; 270c4
INCLUDE "trainers/dvs.asm"
@@ -6433,7 +6074,6 @@
call LoadStandardMenuDataHeader
call WaitBGMap
jp SetPalettes
-; 27192
ConsumeHeldItem: ; 27192
push hl
@@ -6490,7 +6130,6 @@
pop de
pop hl
ret
-; 271de
.ConsumableEffects: ; 271de
; Consumable items?
@@ -6516,7 +6155,6 @@
db HELD_ESCAPE
db HELD_CRITICAL_UP
db -1
-; 271f4
MoveEffectsPointers: ; 271f4
INCLUDE "battle/moves/move_effects_pointers.asm"
@@ -6528,7 +6166,6 @@
call BuySellToss_InterpretJoypad
ld b, a
ret
-; 27a2d
SECTION "bankA", ROMX, BANK[$A]
@@ -6544,7 +6181,6 @@
ld a, c
and a
ret
-; 29ff8
INCLUDE "engine/wildmons.asm"
@@ -6607,7 +6243,6 @@
add $2
ld [wBattleResult], a
ret
-; 2b995
.CountMonsRemaining: ; 2b995
ld c, 0
@@ -6624,7 +6259,6 @@
dec b
jr nz, .loop
ret
-; 2b9a6
.CalcPercentHPRemaining: ; 2b9a6
ld de, 0
@@ -6668,7 +6302,6 @@
dec c
jr nz, .loop2
ret
-; 2b9e1
.BothSides_CheckNumberMonsAtFullHealth: ; 2b9e1
ld hl, PartyMon1HP
@@ -6688,7 +6321,6 @@
ld a, $1
and a
ret
-; 2ba01
.CheckFaintedOrFullHealth: ; 2ba01
ld d, 3
@@ -6714,15 +6346,12 @@
dec d
jr nz, .loop3
ret
-; 2ba1a
ChrisBackpic: ; 2ba1a
INCBIN "gfx/misc/player.6x6.2bpp.lz"
-; 2bbaa
DudeBackpic: ; 2bbaa
INCBIN "gfx/misc/dude.6x6.2bpp.lz"
-; 2bcea
SECTION "bankB", ROMX, BANK[$B]
@@ -6741,7 +6370,6 @@
MoveDescriptions:: ; 2cb52
INCLUDE "battle/moves/move_descriptions.asm"
-; 2ed44
GivePokerusAndConvertBerries: ; 2ed44
call ConvertBerriesToBerryJuice
@@ -6865,7 +6493,6 @@
add b
ld [hl], a
ret
-; 2ede6
; any berry held by a Shuckle may be converted to berry juice
ConvertBerriesToBerryJuice: ; 2ede6
@@ -6904,7 +6531,6 @@
pop hl
pop af
ret
-; 2ee18
ShowLinkBattleParticipants: ; 2ee18
; If we're not in a communications room,
@@ -6919,7 +6545,6 @@
call ClearTileMap
call ClearSprites
ret
-; 2ee2f
FindFirstAliveMon: ; 2ee2f
xor a
@@ -6954,7 +6579,6 @@
ld [rWY], a
ld [hMapAnims], a
ret
-; 2ee6c
PlayBattleMusic: ; 2ee6c
@@ -7056,7 +6680,6 @@
pop de
pop hl
ret
-; 2ef18
ClearBattleRAM: ; 2ef18
xor a
@@ -7107,7 +6730,6 @@
ld [hli], a
ld [hl], VBGMap0 / $100
ret
-; 2ef6e
FillBox: ; 2ef6e
; Fill wBoxAlignment-aligned box width b height c
@@ -7165,7 +6787,6 @@
dec b
jr nz, .x2
ret
-; 2ef9f
SECTION "Tileset Data 4", ROMX, BANK[TILESETS_4]
@@ -7202,7 +6823,6 @@
call CopyBytes
pop de
ret
-; 39550
GetOTName: ; 39550
ld hl, OTPlayerName
@@ -7228,7 +6848,6 @@
call CopyBytes
pop de
ret
-; 3957b
GetTrainerAttributes: ; 3957b
ld a, [TrainerClass]
@@ -7248,7 +6867,6 @@
ld a, [hl]
ld [wEnemyTrainerBaseReward], a
ret
-; 3959c
INCLUDE "trainers/attributes.asm"
@@ -7308,7 +6926,6 @@
ld c, 32
call DelayFrames
ret
-; 441fc
.FrameIDs: ; 441fc
; frame ID, duration
@@ -7318,7 +6935,6 @@
db 3, 7
db 4, 7
db -2
-; 44207
DoDexSearchSlowpokeFrame: ; 44207
ld a, [wDexSearchSlowpokeFrame]
@@ -7345,7 +6961,6 @@
ld [de], a
inc de
jr .loop
-; 44228
.SpriteData: ; 44228
dsprite 11, 0, 9, 0, $00, $00
@@ -7358,7 +6973,6 @@
dsprite 13, 0, 10, 0, $21, $00
dsprite 13, 0, 11, 0, $22, $00
db -1
-; 4424d
DisplayDexEntry: ; 4424d
call GetPokemonName
@@ -7494,11 +7108,9 @@
hlcoord 2, 11
call FarString
ret
-; 44331
String_44331: ; 44331
db "#@"
-; 44333
GetDexEntryPointer: ; 44333
; return dex entry pointer b:de
@@ -7525,7 +7137,6 @@
pop de
pop hl
ret
-; 44351
.PokedexEntryBanks: ; 44351
@@ -7538,7 +7149,6 @@
db BANK(PokedexEntries2)
db BANK(PokedexEntries3)
db BANK(PokedexEntries4)
-; 44355
GetDexEntryPagePointer: ; 44355
call GetDexEntryPointer ; b:de
@@ -7572,7 +7182,6 @@
ld e, l
pop hl
ret
-; 44378
PokedexDataPointerTable: ; 0x44378
INCLUDE "data/pokedex/entry_pointers.asm"
@@ -7594,7 +7203,6 @@
lb bc, BANK(PackFGFX), 15
call Request2bpp
ret
-; 48e93
PackFGFXPointers: ; 48e93
dw PackFGFX + (15 tiles) * 1
@@ -7601,11 +7209,9 @@
dw PackFGFX + (15 tiles) * 3
dw PackFGFX + (15 tiles) * 0
dw PackFGFX + (15 tiles) * 2
-; 48e9b
PackFGFX: ; 48e9b
INCBIN "gfx/misc/pack_f.2bpp"
-; 4925b
Special_MoveTutor: ; 4925b
call FadeToMenu
@@ -7641,7 +7247,6 @@
.quit
call CloseSubmenu
ret
-; 492a5
.GetMoveTutorMove: ; 492a5
ld a, [ScriptVar]
@@ -7659,7 +7264,6 @@
.thunderbolt
ld a, THUNDERBOLT
ret
-; 492b9
CheckCanLearnMoveTutorMove: ; 492b9
ld hl, .MenuDataHeader
@@ -7707,13 +7311,11 @@
call ExitMenu
scf
ret
-; 4930a
.MenuDataHeader: ; 0x4930a
db $40 ; flags
db 12, 00 ; start coords
db 17, 19 ; end coords
-; 4930f
INCLUDE "predef/crystal.asm"
@@ -7743,7 +7345,6 @@
.okay
ld [ScriptVar], a
ret
-; 4ae1f
.DoMenu: ; 4ae1f
lb bc, 14, 7
@@ -7778,7 +7379,6 @@
ld [wMenuCursorY], a
scf
ret
-; 4ae5e
Buena_ExitMenu: ; 4ae5e
ld a, [hOAMUpdate]
@@ -7794,7 +7394,6 @@
pop af
ld [hOAMUpdate], a
ret
-; 4ae78
SECTION "bank13", ROMX, BANK[$13]
@@ -7843,7 +7442,6 @@
dec b
jr nz, .loop
ret
-; 4c03f
ScrollBGMapPalettes:: ; 4c03f
ld hl, BGMapBuffer
@@ -7885,7 +7483,6 @@
dec c
jr nz, .loop
ret
-; 4c075
INCLUDE "tilesets/palette_maps.asm"
@@ -7931,7 +7528,6 @@
db NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE
db NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE
db NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + WATRTILE
-; 4cf1f
EmptyAllSRAMBanks: ; 4cf1f
ld a, $0
@@ -7943,7 +7539,6 @@
ld a, $3
call .EmptyBank
ret
-; 4cf34
.EmptyBank: ; 4cf34
call GetSRAMBank
@@ -7953,7 +7548,6 @@
call ByteFill
call CloseSRAM
ret
-; 4cf45
SaveMenu_LoadEDTile: ; 4cf45 (13:4f45)
ld a, [hCGB]
@@ -8053,7 +7647,6 @@
.ok
ld c, $0
ret
-; 4d01e
INCLUDE "engine/map_triggers.asm"
@@ -8093,7 +7686,6 @@
dec b
jr nz, .loop
ret
-; 4d188
PhoneRing_LoadEDTile: ; 4d188
ld a, [hCGB]
@@ -8137,7 +7729,6 @@
pop af
ld [hBGMapMode], a
ret
-; 4d1cb
.LoadEDTile: ; 4d1cb
ld [hSPBuffer], sp
@@ -8176,7 +7767,6 @@
ld h, a
ld sp, hl
ret
-; 4d249
Shrink1Pic: ; 4d249
INCBIN "gfx/shrink1.2bpp.lz"
@@ -8183,7 +7773,6 @@
Shrink2Pic: ; 4d2d9
INCBIN "gfx/shrink2.2bpp.lz"
-; 4d319
LinkMonStatsScreen: ; 4d319
ld a, [wMenuCursorY]
@@ -8203,13 +7792,11 @@
callba Function28eff
call WaitBGMap2
ret
-; 4d354
Link_WaitBGMap: ; 4d354
call WaitBGMap
call WaitBGMap2
ret
-; 4d35b
LinkTextbox2: ; 4d35b
ld h, d
@@ -8240,7 +7827,6 @@
dec b
jr nz, .row
ret
-; 4d37e
.PlaceBorder: ; 4d37e
push hl
@@ -8271,7 +7857,6 @@
call .PlaceRow
ld [hl], "└"
ret
-; 4d3ab
.PlaceRow: ; 4d3ab
ld d, c
@@ -8280,7 +7865,6 @@
dec d
jr nz, .row_loop
ret
-; 4d3b1
_ResetClock: ; 4d3b1
callba BlankScreen
@@ -8314,25 +7898,21 @@
ld hl, .text_wrong
call PrintText
ret
-; 4d3fe
.text_okay: ; 0x4d3fe
; Password OK. Select CONTINUE & reset settings.
text_jump UnknownText_0x1c55db
db "@"
-; 0x4d403
.text_wrong: ; 0x4d403
; Wrong password!
text_jump UnknownText_0x1c560b
db "@"
-; 0x4d408
.text_askreset: ; 0x4d408
; Reset the clock?
text_jump UnknownText_0x1c561c
db "@"
-; 0x4d40d
.NoYes_MenuDataHeader: ; 0x4d40d
db $00 ; flags
@@ -8340,7 +7920,6 @@
db 11, 19 ; end coords
dw .NoYes_MenuData2
db 1 ; default option
-; 0x4d415
.NoYes_MenuData2: ; 0x4d415
db $c0 ; flags
@@ -8347,7 +7926,6 @@
db 2 ; items
db "NO@"
db "YES@"
-; 0x4d41e
ClockResetPassword: ; 4d41e
call .CalculatePassword
@@ -8391,13 +7969,11 @@
.nope
scf
ret
-; 4d463
.pleaseenterpasswordtext: ; 0x4d463
; Please enter the password.
text_jump UnknownText_0x1c562e
db "@"
-; 0x4d468
.updateIDdisplay: ; 4d468
hlcoord 14, 15
@@ -8421,7 +7997,6 @@
add hl, de
ld [hl], $61
ret
-; 4d490
.dpadinput: ; 4d490
ld a, b
@@ -8479,7 +8054,6 @@
.wraparound_down
ld [hl], 9
ret
-; 4d4d5
.getcurrentdigit: ; 4d4d5
ld a, [StringBuffer2 + 5]
@@ -8488,7 +8062,6 @@
ld hl, StringBuffer2
add hl, de
ret
-; 4d4e0
.ConvertDecIDToBytes: ; 4d4e0
ld hl, 0
@@ -8513,7 +8086,6 @@
pop hl
add hl, bc
ret
-; 4d50f
.CalculatePassword: ; 4d50f
ld a, BANK(sPlayerData)
@@ -8530,7 +8102,6 @@
call .ComponentFromNumber
call CloseSRAM
ret
-; 4d533
.ComponentFromNumber: ; 4d533
ld a, [hli]
@@ -8542,7 +8113,6 @@
dec c
jr nz, .ComponentFromNumber
ret
-; 4d53e
.ComponentFromString: ; 4d53e
ld a, [hli]
@@ -8556,7 +8126,6 @@
dec c
jr nz, .ComponentFromString
ret
-; 4d54c
_DeleteSaveData: ; 4d54c
callba BlankScreen
@@ -8577,13 +8146,11 @@
ret z
callba EmptyAllSRAMBanks
ret
-; 4d580
.Text_ClearAllSaveData: ; 0x4d580
; Clear all save data?
text_jump UnknownText_0x1c564a
db "@"
-; 0x4d585
.NoYesMenuDataHeader: ; 0x4d585
db $00 ; flags
@@ -8591,7 +8158,6 @@
db 11, 19 ; end coords
dw .MenuData2
db 1 ; default option
-; 0x4d58d
.MenuData2: ; 0x4d58d
db $c0 ; flags
@@ -8598,7 +8164,6 @@
db 2 ; items
db "NO@"
db "YES@"
-; 0x4d596
Tilesets::
INCLUDE "tilesets/tileset_headers.asm"
@@ -8673,7 +8238,6 @@
pop hl
ld c, a
ret
-; 4d7fd
GetTrademonFrontpic: ; 4d7fd
ld a, [wOTTrademonSpecies]
@@ -8689,7 +8253,6 @@
pop de
predef FrontpicPredef
ret
-; 4d81e
AnimateTrademonFrontpic: ; 4d81e
ld a, [wOTTrademonSpecies]
@@ -8714,7 +8277,6 @@
ld e, ANIM_MON_TRADE
predef AnimateFrontpic
ret
-; 4d860
CheckPokerus: ; 4d860
; Return carry if a monster in your party has Pokerus
@@ -8741,7 +8303,6 @@
.HasPokerus
scf
ret
-; 4d87a
Special_CheckForLuckyNumberWinners: ; 4d87a
xor a
@@ -8862,7 +8423,6 @@
jp PrintText
-; 4d939
.CompareLuckyNumberToMonID: ; 4d939
push bc
@@ -8935,7 +8495,6 @@
pop bc
and a
ret
-; 4d99f
.BoxBankAddresses: ; 4d99f
dba sBox1
@@ -8952,19 +8511,16 @@
dba sBox12
dba sBox13
dba sBox14
-; 4d9c9
.FoundPartymonText: ; 0x4d9c9
; Congratulations! We have a match with the ID number of @ in your party.
text_jump UnknownText_0x1c1261
db "@"
-; 0x4d9ce
.FoundBoxmonText: ; 0x4d9ce
; Congratulations! We have a match with the ID number of @ in your PC BOX.
text_jump UnknownText_0x1c12ae
db "@"
-; 0x4d9d3
Special_PrintTodaysLuckyNumber: ; 4d9d3
ld hl, StringBuffer3
@@ -8974,7 +8530,6 @@
ld a, "@"
ld [StringBuffer3 + 5], a
ret
-; 4d9e5
CheckPartyFullAfterContest: ; 4d9e5
ld a, [wContestMon]
@@ -9062,7 +8617,6 @@
and a
ld [ScriptVar], a
ret
-; 4daa3
.TryAddToBox: ; 4daa3
ld a, BANK(sBoxCount)
@@ -9124,25 +8678,21 @@
ld a, $1
ld [ScriptVar], a
ret
-; 4db35
.DidntCatchAnything: ; 4db35
ld a, $2
ld [ScriptVar], a
ret
-; 4db3b
GiveANickname_YesNo: ; 4db3b
ld hl, TextJump_GiveANickname
call PrintText
jp YesNoBox
-; 4db44
TextJump_GiveANickname: ; 0x4db44
; Give a nickname to the @ you received?
text_jump UnknownText_0x1c12fc
db "@"
-; 0x4db49
SetCaughtData: ; 4db49
ld a, [PartyCount]
@@ -9181,7 +8731,6 @@
or b
ld [hl], a
ret
-; 4db83
SetBoxMonCaughtData: ; 4db83
ld a, BANK(sBoxMon1CaughtLevel)
@@ -9190,7 +8739,6 @@
call SetBoxmonOrEggmonCaughtData
call CloseSRAM
ret
-; 4db92
SetGiftBoxMonCaughtData: ; 4db92
push bc
@@ -9201,7 +8749,6 @@
call SetGiftMonCaughtData
call CloseSRAM
ret
-; 4dba3
SetGiftPartyMonCaughtData: ; 4dba3
ld a, [PartyCount]
@@ -9218,7 +8765,6 @@
or b
ld [hl], a
ret
-; 4dbb8
SetEggMonCaughtData: ; 4dbb8 (13:5bb8)
ld a, [CurPartyMon]
@@ -9237,18 +8783,15 @@
ld hl, PartyMon1Level
call FindGreaterThanThatLevel
ret
-; 4dbd9
_FindAtLeastThatHappy: ; 4dbd9
ld hl, PartyMon1Happiness
call FindAtLeastThatHappy
ret
-; 4dbe0
_FindThatSpecies: ; 4dbe0
ld hl, PartyMon1Species
jp FindThatSpecies
-; 4dbe6
_FindThatSpeciesYourTrainerID: ; 4dbe6
ld hl, PartyMon1Species
@@ -9272,7 +8815,6 @@
.nope
xor a
ret
-; 4dc0a
FindAtLeastThatHappy: ; 4dc0a
; Sets the bits for the Pokemon that have a happiness greater than or equal to b.
@@ -9307,7 +8849,6 @@
ld a, c
and a
ret
-; 4dc31
FindGreaterThanThatLevel: ; 4dc31
ld c, $0
@@ -9337,7 +8878,6 @@
ld a, c
and a
ret
-; 4dc56
FindThatSpecies: ; 4dc56
; Find species b in your party.
@@ -9356,7 +8896,6 @@
ld a, $1
and a
ret
-; 4dc67
RetroactivelyIgnoreEggs: ; 4dc67
ld e, -2
@@ -9374,7 +8913,6 @@
.skip_notegg
rlc e
jr .loop
-; 4dc7b
INCLUDE "engine/stats_screen.asm"
@@ -9390,7 +8928,6 @@
ld h, [hl]
ld l, a
jp [hl]
-; 4e564
.dw: ; 4e564 (13:6564)
dw .DudeTutorial
@@ -9454,15 +8991,12 @@
ld [hli], a
ld [hl], -1
ret
-; 4e5da (13:65da)
.Dude: ; 4e5da
db "DUDE@"
-; 4e5df
.AutoInput: ; 4e5df
db NO_INPUT, $ff ; end
-; 4e5e1
INCLUDE "engine/evolution_animation.asm"
@@ -9490,13 +9024,11 @@
call WaitBGMap2
call SetPalettes
ret
-; 4e8bd
.SavingRecordDontTurnOff: ; 0x4e8bd
; SAVING RECORD… DON'T TURN OFF!
text_jump UnknownText_0x1bd39e
db "@"
-; 0x4e8c2
Function4e8c2: ; 4e8c2
call ClearBGPalettes
@@ -9529,7 +9061,6 @@
call WaitBGMap2
call SetPalettes
ret
-; 4e906
Function4e906: ; 4e906
ld a, [rSVBK]
@@ -9548,7 +9079,6 @@
pop af
ld [rSVBK], a
ret
-; 4e929
Function4e929: ; mobile function
ld h, b
@@ -9556,7 +9086,6 @@
call Function4e930
ld c, a
ret
-; 4e930
Function4e930: ; 4e930
ld a, [hli]
@@ -9595,7 +9124,6 @@
add hl, bc
ld a, [hl]
ret
-; 4e95d
MaleTrainers: ; 4e95d
db BURGLAR
@@ -9624,7 +9152,6 @@
db BIKER
db SCIENTIST
MaleTrainersEnd:
-; 4e976
FemaleTrainers: ; 4e976
db MEDIUM
@@ -9638,7 +9165,6 @@
db POKEFANF
db COOLTRAINERF
FemaleTrainersEnd:
-; 4e980
INCLUDE "battle/sliding_intro.asm"
@@ -9672,7 +9198,6 @@
ld c, 180
call DelayFrames
ret
-; 4ea44
CheckBattleScene: ; 4ea44
; Return carry if battle scene is turned off.
@@ -9721,7 +9246,6 @@
.off
scf
ret
-; 4ea82
INCLUDE "misc/gbc_only.asm"
@@ -9770,12 +9294,10 @@
.done
ret
-; 5088b
CalcwBufferMonStats: ; 5088b
ld bc, wBufferMon
jr _TempMonStatsCalculation
-; 50890
CalcTempmonStats: ; 50890
ld bc, TempMon
@@ -9822,7 +9344,6 @@
ld [hli], a
ld [hl], a
ret
-; 508d5
GetPkmnSpecies: ; 508d5
; [MonType] has the type of the Pkmn
@@ -9867,7 +9388,6 @@
.done2
ld [CurPartySpecies], a
ret
-; 5090d
INCLUDE "text/types.asm"
@@ -9890,7 +9410,6 @@
cp "@"
jr nz, .copy
ret
-; 50a42
Strings50a42: ; 50a42
; Untranslated trainer class names from Red.
@@ -9963,7 +9482,6 @@
.Rocket db "だんいん@"
.CooltrainerM db "エりート♂@"
.CooltrainerF db "エりート♀@"
-; 50b0a
DrawPlayerHP: ; 50b0a
ld a, $1
@@ -10047,7 +9565,6 @@
pop hl
pop de
ret
-; 50b7b
PrintTempMonStats: ; 50b7b
; Print TempMon's stats at hl, with spacing bc.
@@ -10071,7 +9588,6 @@
call .PrintStat
ld de, TempMonSpeed
jp PrintNum
-; 50bab
.PrintStat: ; 50bab
push hl
@@ -10080,7 +9596,6 @@
ld de, SCREEN_WIDTH * 2
add hl, de
ret
-; 50bb5
.StatNames: ; 50bb5
db "ATTACK"
@@ -10089,7 +9604,6 @@
next "SPCL.DEF"
next "SPEED"
next "@"
-; 50bdd
GetGender: ; 50bdd
; Return the gender of a given monster (CurPartyMon/CurOTMon/CurWildMon).
@@ -10204,7 +9718,6 @@
.Genderless
scf
ret
-; 50c50
ListMovePP: ; 50c50
ld a, [wNumMoves]
@@ -10286,7 +9799,6 @@
.done
ret
-; 50cc9
.load_loop: ; 50cc9
ld [hli], a
@@ -10295,7 +9807,6 @@
dec c
jr nz, .load_loop
ret
-; 50cd0
Function50cd0: ; 50cd0
.asm_50cd0
@@ -10307,7 +9818,6 @@
dec c
jr nz, .asm_50cd0
ret
-; 50cdb
Function50cdb: ; unreferenced predef
push hl
@@ -10336,7 +9846,6 @@
.asm_50d09
ret
-; 50d0a
PlaceStatusString: ; 50d0a
push de
@@ -10356,11 +9865,9 @@
ld a, $1
and a
ret
-; 50d22
FntString: ; 50d22
db "FNT@"
-; 50d25
CopyStatusString: ; 50d25
ld a, [de]
@@ -10372,7 +9879,6 @@
ld a, [de]
ld [hl], a
ret
-; 50d2e
PlaceNonFaintStatus: ; 50d2e
push de
@@ -10401,7 +9907,6 @@
.no_status
pop de
ret
-; 50d5b
SlpString: db "SLP@"
PsnString: db "PSN@"
@@ -10408,7 +9913,6 @@
BrnString: db "BRN@"
FrzString: db "FRZ@"
ParString: db "PAR@"
-; 50d6f
ListMoves: ; 50d6f
; List moves at hl, spaced every [Buffer1] tiles.
@@ -10463,7 +9967,6 @@
.done
ret
-; 50db9
Function50db9: ; 50db9
ld a, [wd263]
@@ -10520,7 +10023,6 @@
ld a, b
ld [wd105], a
ret
-; 50e1b
CalcLevel: ; 50e1b
ld a, [TempMonSpecies]
@@ -10553,7 +10055,6 @@
.got_level
dec d
ret
-; 50e47
CalcExpAtLevel: ; 50e47
; (a/b)*n**3 + c*n**2 + d*n - e
@@ -10674,7 +10175,6 @@
adc b
ld [hMultiplicand], a
ret
-; 50eed
.LevelSquared: ; 50eed
xor a
@@ -10684,7 +10184,6 @@
ld [hMultiplicand + 2], a
ld [hMultiplier], a
jp Multiply
-; 50efa
GrowthRates: ; 50efa
@@ -10705,7 +10204,6 @@
growth_rate 6, 5, -15, 100, 140 ; Medium Slow
growth_rate 4, 5, 0, 0, 0 ; Fast
growth_rate 5, 4, 0, 0, 0 ; Slow
-; 50f12
_SwitchPartyMons:
ld a, [wd0e3]
@@ -10902,7 +10400,6 @@
inc a
ld [UnownLetter], a
ret
-; 51077
GetFrontpic: ; 51077
ld a, [CurPartySpecies]
@@ -10915,7 +10412,6 @@
pop af
ld [rSVBK], a
ret
-; 5108b
FrontpicPredef: ; 5108b
ld a, [CurPartySpecies]
@@ -10931,7 +10427,6 @@
pop af
ld [rSVBK], a
ret
-; 510a5
_GetFrontpic: ; 510a5
push de
@@ -10959,7 +10454,6 @@
call Get2bpp
pop hl
ret
-; 510d7
GetFrontpicPointer: ; 510d7
GLOBAL PicPointers, UnownPicPointers
@@ -10989,7 +10483,6 @@
call GetFarHalfword
pop bc
ret
-; 51103
Function51103: ; 51103
ld a, $1
@@ -11033,7 +10526,6 @@
xor a
ld [rVBK], a
ret
-; 5114f
Function5114f: ; 5114f
ld hl, wDecompressScratch
@@ -11055,7 +10547,6 @@
dec b
jr nz, .asm_51161
ret
-; 5116c
GetBackpic: ; 5116c
ld a, [CurPartySpecies]
@@ -11109,7 +10600,6 @@
pop af
ld [rSVBK], a
ret
-; 511c5
FixPicBank: ; 511c5
; This is a thing for some reason.
@@ -11124,7 +10614,6 @@
pop bc
pop hl
ret
-; 511d4
.PicsBanks: ; 511d4
db PICS_1
@@ -11170,7 +10659,6 @@
pop de
call FarDecompress
ret
-; 0x5120d
GetTrainerPic: ; 5120d
ld a, [TrainerClass]
@@ -11213,7 +10701,6 @@
ld a, $1
ld [hBGMapMode], a
ret
-; 5125d
DecompressPredef: ; 5125d
; Decompress lz data from b:hl to scratch space at 6:d000, then copy it to address de.
@@ -11238,7 +10725,6 @@
pop af
ld [rSVBK], a
ret
-; 5127c
FixBackpicAlignment: ; 5127c
push de
@@ -11275,7 +10761,6 @@
pop bc
pop de
ret
-; 512ab
Function512ab: ; 512ab
ld a, b
@@ -11327,7 +10812,6 @@
dec c
jr nz, .Fill
ret
-; 512f2
LoadFrontpic: ; 512f2
ld a, [wBoxAlignment]
@@ -11357,7 +10841,6 @@
jr nz, .right_loop
pop bc
ret
-; 51322
Function51322: ; 51322
ld a, BANK(sBoxCount)
@@ -11397,7 +10880,6 @@
ld b, a
callba Functiondcb6
jp CloseSRAM
-; 5138b
Function5138b: ; 5138b
ld hl, PartyCount
@@ -11424,7 +10906,6 @@
ld de, wBufferMon
call Function513e0
ret
-; 513cb
Function513cb: ; 513cb
inc [hl]
@@ -11443,7 +10924,6 @@
ld c, a
jr nz, .asm_513d8
ret
-; 513e0
Function513e0: ; 513e0
push de
@@ -11495,7 +10975,6 @@
pop hl
call CopyBytes
ret
-; 51424
BaseData::
INCLUDE "data/base_stats.asm"
@@ -11516,12 +10995,10 @@
db $f6, $1e
db $ff, $1f
db $ff, $20
-; 53d9c
UnknownEggPic:: ; 53d9c
; Another egg pic. This is shifted up a few pixels.
INCBIN "gfx/misc/unknown_egg.5x5.2bpp.lz"
-; 53e2e
SECTION "bank19", ROMX, BANK[$19]
@@ -11532,7 +11009,6 @@
INCLUDE "engine/player_movement.asm"
INCLUDE "engine/engine_flags.asm"
-; 80648
INCLUDE "engine/variables.asm"
@@ -11564,7 +11040,6 @@
ld a, c
ld [TrainerClass], a
ret
-; 88258
MovePlayerPicRight: ; 88258
hlcoord 6, 4
@@ -11610,7 +11085,6 @@
pop bc
pop hl
jr .loop
-; 88297
ShowPlayerNamingChoices: ; 88297
ld hl, ChrisNameMenuHeader
@@ -11626,7 +11100,6 @@
call CopyNameFromMenu
call CloseWindow
ret
-; 882b5
ChrisNameMenuHeader: ; 882b5
db $40 ; flags
@@ -11635,7 +11108,6 @@
dw .MaleNames
db 1 ; ????
db 0 ; default option
-; 882be
.MaleNames: ; 882be
db $91 ; flags
@@ -11648,7 +11120,6 @@
db "JON@"
db 2 ; displacement
db " NAME @" ; title
-; 882e5
KrisNameMenuHeader: ; 882e5
db $40 ; flags
@@ -11657,7 +11128,6 @@
dw .FemaleNames
db 1 ; ????
db 0 ; default option
-; 882ee
.FemaleNames: ; 882ee
db $91 ; flags
@@ -11670,7 +11140,6 @@
db "JODI@"
db 2 ; displacement
db " NAME @" ; title
-; 88318
GetPlayerNameArray: ; 88318 This Function is never called
ld hl, PlayerName
@@ -11683,7 +11152,6 @@
.done
call InitName
ret
-; 8832c
GetPlayerIcon: ; 8832c
; Get the player icon corresponding to gender
@@ -11702,7 +11170,6 @@
.done
ret
-; 8833e
GetCardPic: ; 8833e
ld hl, ChrisCardPic
@@ -11721,19 +11188,15 @@
ld a, BANK(CardGFX)
call FarCopyBytes
ret
-; 88365 (22:4365)
ChrisCardPic: ; 88365
INCBIN "gfx/misc/chris_card.5x7.2bpp"
-; 88595
KrisCardPic: ; 88595
INCBIN "gfx/misc/kris_card.5x7.2bpp"
-; 887c5
CardGFX: ; 887c5
INCBIN "gfx/misc/trainer_card.2bpp"
-; 88825
GetPlayerBackpic: ; 88825
ld a, [PlayerGender]
@@ -11749,7 +11212,6 @@
ld c, 7 * 7
predef DecompressPredef
ret
-; 88840
Function88840: ; 88840
call WaitBGMap
@@ -11779,7 +11241,6 @@
ld a, $1
ld [hBGMapMode], a
ret
-; 88874
DrawIntroPlayerPic: ; 88874
; Draw the player pic at (6,4).
@@ -11813,15 +11274,12 @@
lb bc, 7, 7
predef FillBox
ret
-; 888a9
ChrisPic: ; 888a9
INCBIN "gfx/misc/chris.7x7.2bpp"
-; 88bb9
KrisPic: ; 88bb9
INCBIN "gfx/misc/kris.7x7.2bpp"
-; 88ec9
GetKrisBackpic: ; 88ec9
; Kris's backpic is uncompressed.
@@ -11830,15 +11288,12 @@
lb bc, BANK(KrisBackpic), 7 * 7 ; dimensions
call Get2bpp
ret
-; 88ed6
KrisBackpic: ; 88ed6
INCBIN "gfx/misc/kris_back.6x6.2bpp"
-; 89116
String_89116:
db "-----@"
-; 8911c
INCLUDE "misc/mobile_22.asm"
INCLUDE "event/unown.asm"
@@ -11852,7 +11307,6 @@
Predef35: ; 8c000
Predef36:
ret
-; 8c001
INCLUDE "engine/timeofdaypals.asm"
INCLUDE "engine/battle_start.asm"
@@ -11864,7 +11318,6 @@
xor a
ld [hBGMapMode], a
ret
-; 8c7d4
INCLUDE "event/field_moves.asm"
INCLUDE "event/magnet_train.asm"
@@ -11872,7 +11325,6 @@
Function8cf4f: ; 8cf4f
call Function3238
ret
-; 8cf53
INCLUDE "engine/sprites.asm"
@@ -11937,7 +11389,6 @@
loadmemtrainer
encountermusic
jump StartBattleWithMapTrainerScript
-; 0xbe675
SeenByTrainerScript:: ; 0xbe675
loadmemtrainer
@@ -11948,7 +11399,6 @@
writepersonxy LAST_TALKED
faceperson PLAYER, LAST_TALKED
jump StartBattleWithMapTrainerScript
-; 0xbe68a
StartBattleWithMapTrainerScript: ; 0xbe68a
opentext
@@ -11963,7 +11413,6 @@
AlreadyBeatenTrainerScript:
scripttalkafter
-; 0xbe699
SECTION "bank30", ROMX, BANK[$30]
@@ -11985,7 +11434,6 @@
and a
ret nz
ret
-; cbce5
.LoadPals: ; cbce5
ld a, [hCGB]
@@ -12028,11 +11476,9 @@
call DelayFrames
callba _UpdateTimePals
ret
-; cbd2e
TheEndGFX:: ; cbd2e
INCBIN "gfx/credits/theend.2bpp"
-; cbe2e
SECTION "bank33", ROMX, BANK[$33]
@@ -12117,7 +11563,6 @@
call GetSGBLayout
call SetPalettes
ret
-; cc0a7
.Health
db "HEALTH@"
@@ -12130,25 +11575,21 @@
; Switch #MON?
text_jump UnknownText_0x1c10cf
db "@"
-; cc0c7
DisplayAlreadyCaughtText: ; cc0c7
call GetPokemonName
ld hl, .AlreadyCaughtText
jp PrintText
-; cc0d0
.AlreadyCaughtText: ; 0xcc0d0
; You already caught a @ .
text_jump UnknownText_0x1c10dd
db "@"
-; 0xcc0d5
Predef2F:
Predef38:
Predef39: ; cc0d5
ret
-; cc0d6
INCLUDE "battle/anim_commands.asm"
@@ -12259,7 +11700,6 @@
call Get2bpp
call CloseSRAM
ret
-; e004e
.Copy: ; e004e
ld c, $10
@@ -12270,7 +11710,6 @@
dec c
jr nz, .loop_copy
ret
-; e0057
.Decompress: ; e0057
ld hl, wd012
@@ -12293,7 +11732,6 @@
dec d
jr nz, .loop_decompress
ret
-; e0078
.CountSetBit: ; e0078
ld b, 0
@@ -12314,7 +11752,6 @@
dec c
jr nz, .loop_count
ret
-; e008b
overworldmaptile EQUS "dw OverworldMap + $10 *"
overworldmaprect: MACRO
@@ -12331,7 +11768,6 @@
Unknown_e008b: ; e008b
overworldmaprect 7, 7
-; e00ed
Unknown_e00ed:
; Graphics for an unused Game Corner
@@ -12340,7 +11776,6 @@
ret_e00ed: ; e00ed (38:40ed)
; How many coins?
ret
-; e00ee (38:40ee)
INCLUDE "engine/card_flip.asm"
INCLUDE "engine/unown_puzzle.asm"
@@ -12351,7 +11786,6 @@
CopyrightGFX:: ; e4000
INCBIN "gfx/misc/copyright.2bpp"
-; e41d0
INCLUDE "engine/options_menu.asm"
INCLUDE "engine/crystal_intro.asm"
@@ -12399,7 +11833,6 @@
IntroLogoGFX: ; 109407
INCBIN "gfx/intro/logo.2bpp.lz"
-; 109847
INCLUDE "misc/unused_title.asm"
@@ -12436,7 +11869,6 @@
call SetHPPal
callba FinishBattleAnim
ret
-; 17801f (5e:401f)
INCLUDE "misc/mobile_5f.asm"
@@ -12474,15 +11906,10 @@
INCLUDE "engine/landmarks.asm"
-SECTION "bank75", ROMX, BANK[$75]
-
-SECTION "bank76", ROMX, BANK[$76]
-
SECTION "bank77", ROMX, BANK[$77]
UnownFont: ; 1dc000
INCBIN "gfx/misc/unown_font.2bpp"
-; 1dc1b0
INCLUDE "misc/printer_77.asm"
@@ -12512,7 +11939,6 @@
call PrintNum
pop bc
ret
-; 1dd6bb
PrintHoursMins ; 1dd6bb (77:56bb)
; Hours in b, minutes in c
@@ -12559,11 +11985,9 @@
inc hl
call PlaceString
ret
-; 1dd6fc (77:56fc)
String_AM: db "AM@" ; 1dd6fc
String_PM: db "PM@" ; 1dd6ff
-; 1dd702
INCLUDE "engine/diploma.asm"
@@ -12572,7 +11996,6 @@
ld de, VTiles2 tile $31
call Decompress
ret
-; 1ddf26
Function1ddf26: ; 1ddf26 (77:5f26)
ld hl, LZ_1ddf33
@@ -12580,11 +12003,9 @@
lb bc, BANK(LZ_1ddf33), $3a
call DecompressRequest2bpp
ret
-; 1ddf33 (77:5f33)
LZ_1ddf33: ; 1ddf33
INCBIN "gfx/pokedex/sgb.2bpp.lz"
-; 1de0d7
LoadQuestionMarkPic: ; 1de0d7
ld hl, .QuestionMarkLZ
@@ -12591,11 +12012,9 @@
ld de, sScratch
call Decompress
ret
-; 1de0e1
.QuestionMarkLZ: ; 1de0e1
INCBIN "gfx/pics/questionmark/front.2bpp.lz"
-; 1de171
DrawPokedexListWindow: ; 1de171 (77:6171)
ld a, $32
@@ -12684,7 +12103,6 @@
hlcoord 0, 12
call PlaceString
ret
-; 1de23c (77:623c)
.esults_D: ; 1de23c
; (SEARCH R)
@@ -12691,7 +12109,6 @@
db "ESULTS<NEXT>"
; (### FOUN)
next "D!@"
-; 1de247
Function1de247: ; 1de247
ld a, [hBGMapAddress]
@@ -12724,7 +12141,6 @@
ld a, h
ld [hBGMapAddress + 1], a
ret
-; 1de27f
Bank77_FillColumn: ; 1de27f
push de
@@ -12736,28 +12152,23 @@
jr nz, .loop
pop de
ret
-; 1de28a
_DudeAutoInput_A:: ; 1de28a
ld hl, DudeAutoInput_A
jr _DudeAutoInput
-; 1de28f
_DudeAutoInput_RightA: ; 1de28f
ld hl, DudeAutoInput_RightA
jr _DudeAutoInput
-; 1de294
_DudeAutoInput_DownA: ; 1de294
ld hl, DudeAutoInput_DownA
jr _DudeAutoInput
-; 1de299
_DudeAutoInput: ; 1de299
ld a, BANK(DudeAutoInputs)
call StartAutoInput
ret
-; 1de29f
DudeAutoInputs:
@@ -12765,7 +12176,6 @@
db NO_INPUT, $50
db A_BUTTON, $00
db NO_INPUT, $ff ; end
-; 1de2a5
DudeAutoInput_RightA: ; 1de2a5
db NO_INPUT, $08
@@ -12773,7 +12183,6 @@
db NO_INPUT, $08
db A_BUTTON, $00
db NO_INPUT, $ff ; end
-; 1de2af
DudeAutoInput_DownA: ; 1de2af
db NO_INPUT, $fe
@@ -12787,7 +12196,6 @@
db NO_INPUT, $fe
db A_BUTTON, $00
db NO_INPUT, $ff ; end
-; 1de2c5
Function1de2c5: ; 1de2c5
ld hl, StringBuffer1
@@ -12810,11 +12218,9 @@
hlcoord 9, 0
call PlaceString
ret
-; 1de2e4
PokegearGFX: ; 1de2e4
INCBIN "gfx/misc/pokegear.2bpp.lz"
-; 1de5c8
IsMailEuropean: ; 1de5c8
; return 1 if French
@@ -12843,7 +12249,6 @@
ret z
ld c, $0
ret
-; 1de5e6
; The regular font.
StandardEnglishFont: ; 1de5e6
@@ -12885,7 +12290,6 @@
dec b
jr nz, .loop
ret
-; 1df203
LireLeCourrierAnglais:
DeutenEnglischenPost: ; 1df203
@@ -12918,7 +12322,6 @@
dec b
jr nz, .loop
ret
-; 1df220
HandleSpanishItalianMail: ; 1df220
LeerCorreosIngleses:
@@ -12948,16 +12351,11 @@
dec b
jr nz, .loop
ret
-; 1df238
SECTION "Tileset Data 8", ROMX, BANK[TILESETS_8]
INCLUDE "tilesets/data_8.asm"
-SECTION "bank79", ROMX, BANK[$79]
-
-SECTION "bank7A", ROMX, BANK[$7A]
-
SECTION "bank7B", ROMX, BANK[$7B]
INCLUDE "text/battle_tower.asm"
@@ -12979,7 +12377,6 @@
call CopyBytes
call CloseSRAM
ret
-; 1f4018
Unknown_1f4018:
INCBIN "unknown/1f4018.bin"
@@ -12993,7 +12390,6 @@
call CopyBytes
call CloseSRAM
ret
-; 1f4dd3
Unknown_1f4dd3:
INCBIN "unknown/1f4dd3.bin"
@@ -13007,7 +12403,6 @@
call CopyBytes
call CloseSRAM
ret
-; 1f5db4
Unknown_1f5db4:
INCBIN "unknown/1f5db4.bin"
--- a/text/common_1.asm
+++ b/text/common_1.asm
@@ -482,33 +482,35 @@
line "back!"
done
-UnknownText_0x1bc81a::
+; Oak's Pokémon Talk
+
+_OPT_IntroText1::
text ""
line "MARY: PROF.OAK'S"
done
-UnknownText_0x1bc82d::
+_OPT_IntroText2::
text ""
line "#MON TALK!"
done
-UnknownText_0x1bc83a::
+_OPT_IntroText3::
text ""
line "With me, MARY!"
done
-UnknownText_0x1bc84b::
+_OPT_OakText1::
text ""
line "OAK: @"
text_from_ram wMonOrItemNameBuffer
db "@@"
-UnknownText_0x1bc858::
+_OPT_OakText2::
text ""
line "may be seen around"
done
-UnknownText_0x1bc86d::
+_OPT_OakText3::
text ""
line "@"
text_from_ram StringBuffer1
@@ -515,7 +517,7 @@
text "."
done
-UnknownText_0x1bc876::
+_OPT_MaryText1::
text ""
line "MARY: @"
text_from_ram StringBuffer1
@@ -522,202 +524,204 @@
text "'s"
done
-UnknownText_0x1bc885::
+OPT_SweetAdorably::
text ""
line "sweet and adorably"
done
-UnknownText_0x1bc89a::
+OPT_WigglySlickly::
text ""
line "wiggly and slickly"
done
-UnknownText_0x1bc8af::
+OPT_AptlyNamed::
text ""
line "aptly named and"
done
-UnknownText_0x1bc8c1::
+OPT_UndeniablyKindOf::
text ""
line "undeniably kind of"
done
-UnknownText_0x1bc8d6::
+OPT_Unbearably::
text ""
line "so, so unbearably"
done
-UnknownText_0x1bc8ea::
+OPT_WowImpressively::
text ""
line "wow, impressively"
done
-UnknownText_0x1bc8fe::
+OPT_AlmostPoisonously::
text ""
line "almost poisonously"
done
-UnknownText_0x1bc913::
+OPT_Sensually::
text ""
line "ooh, so sensually"
done
-UnknownText_0x1bc927::
+OPT_Mischievously::
text ""
line "so mischievously"
done
-UnknownText_0x1bc93a::
+OPT_Topically::
text ""
line "so very topically"
done
-UnknownText_0x1bc94e::
+OPT_Addictively::
text ""
line "sure addictively"
done
-UnknownText_0x1bc961::
+OPT_LooksInWater::
text ""
line "looks in water is"
done
-UnknownText_0x1bc975::
+OPT_EvolutionMustBe::
text ""
line "evolution must be"
done
-UnknownText_0x1bc989::
+OPT_Provocatively::
text ""
line "provocatively"
done
-UnknownText_0x1bc999::
+OPT_FlippedOut::
text ""
line "so flipped out and"
done
-UnknownText_0x1bc9ae::
+OPT_HeartMeltingly::
text ""
line "heart-meltingly"
done
-UnknownText_0x1bc9c0::
+OPT_Cute::
text ""
line "cute."
done
-UnknownText_0x1bc9c8::
+OPT_Weird::
text ""
line "weird."
done
-UnknownText_0x1bc9d1::
+OPT_Pleasant::
text ""
line "pleasant."
done
-UnknownText_0x1bc9dd::
+OPT_BoldSortOf::
text ""
line "bold, sort of."
done
-UnknownText_0x1bc9ee::
+OPT_Frightening::
text ""
line "frightening."
done
-UnknownText_0x1bc9fd::
+OPT_SuaveDebonair::
text ""
line "suave & debonair!"
done
-UnknownText_0x1bca11::
+OPT_Powerful::
text ""
line "powerful."
done
-UnknownText_0x1bca1d::
+OPT_Exciting::
text ""
line "exciting."
done
-UnknownText_0x1bca29::
+OPT_Groovy::
text ""
line "groovy!"
done
-UnknownText_0x1bca33::
+OPT_Inspiring::
text ""
line "inspiring."
done
-UnknownText_0x1bca40::
+OPT_Friendly::
text ""
line "friendly."
done
-UnknownText_0x1bca4c::
+OPT_HotHotHot::
text ""
line "hot, hot, hot!"
done
-UnknownText_0x1bca5d::
+OPT_Stimulating::
text ""
line "stimulating."
done
-UnknownText_0x1bca6c::
+OPT_Guarded::
text ""
line "guarded."
done
-UnknownText_0x1bca77::
+OPT_Lovely::
text ""
line "lovely."
done
-UnknownText_0x1bca81::
+OPT_Speedy::
text ""
line "speedy."
done
-UnknownText_0x1bca8b::
+_OPT_PokemonChannelText::
text "#MON"
done
-UnknownText_0x1bca91::
+_PokedexShowText::
text ""
line "@"
text_from_ram StringBuffer1
db "@@"
-UnknownText_0x1bca99::
+; Pokémon Music Channel / Pokémusic
+
+_BenIntroText1::
text ""
line "BEN: #MON MUSIC"
done
-UnknownText_0x1bcaab::
+_BenIntroText2::
text ""
line "CHANNEL!"
done
-UnknownText_0x1bcab6::
+_BenIntroText3::
text ""
line "It's me, DJ BEN!"
done
-UnknownText_0x1bcac8::
+_FernIntroText1::
text ""
line "FERN: #MUSIC!"
done
-UnknownText_0x1bcad8::
+_FernIntroText2::
text ""
line "With DJ FERN!"
done
-UnknownText_0x1bcae8::
+_BenFernText1::
text ""
line "Today's @"
current_day
@@ -724,62 +728,64 @@
text ","
done
-UnknownText_0x1bcaf6::
+_BenFernText2A::
text ""
line "so let us jam to"
done
-UnknownText_0x1bcb09::
+_BenFernText2B::
text ""
line "so chill out to"
done
-UnknownText_0x1bcb1b::
+_BenFernText3A::
text ""
line "#MON March!"
done
-UnknownText_0x1bcb29::
+_BenFernText3B::
text ""
line "#MON Lullaby!"
done
-UnknownText_0x1bcb39::
+; Lucky Channel
+
+_LC_Text1::
text ""
line "REED: Yeehaw! How"
done
-UnknownText_0x1bcb4d::
+_LC_Text2::
text ""
line "y'all doin' now?"
done
-UnknownText_0x1bcb60::
+_LC_Text3::
text ""
line "Whether you're up"
done
-UnknownText_0x1bcb73::
+_LC_Text4::
text ""
line "or way down low,"
done
-UnknownText_0x1bcb86::
+_LC_Text5::
text ""
line "don't you miss the"
done
-UnknownText_0x1bcb9a::
+_LC_Text6::
text ""
line "LUCKY NUMBER SHOW!"
done
-UnknownText_0x1bcbaf::
+_LC_Text7::
text ""
line "This week's Lucky"
done
-UnknownText_0x1bcbc2::
+_LC_Text8::
text ""
line "Number is @"
interpret_data
@@ -787,47 +793,49 @@
text "!"
done
-UnknownText_0x1bcbd6::
+_LC_Text9::
text ""
line "I'll repeat that!"
done
-UnknownText_0x1bcbe9::
+_LC_Text10::
text ""
line "Match it and go to"
done
-UnknownText_0x1bcbfe::
+_LC_Text11::
text ""
line "the RADIO TOWER!"
done
-UnknownText_0x1bcc11::
+_LC_DragText1::
text ""
line "…Repeating myself"
done
-UnknownText_0x1bcc25::
+_LC_DragText2::
text ""
line "gets to be a drag…"
done
-UnknownText_0x1bcc3a::
+; Places and People
+
+_PnP_Text1::
text ""
line "PLACES AND PEOPLE!"
done
-UnknownText_0x1bcc4f::
+_PnP_Text2::
text ""
line "Brought to you by"
done
-UnknownText_0x1bcc63::
+_PnP_Text3::
text ""
line "me, DJ LILY!"
done
-UnknownText_0x1bcc72::
+_PnP_Text4::
text ""
line "@"
text_from_ram StringBuffer2
@@ -835,123 +843,123 @@
text_from_ram StringBuffer1
db "@@"
-UnknownText_0x1bcc80::
+_PnP_cute::
text ""
line "is cute."
done
-UnknownText_0x1bcc8b::
+_PnP_lazy::
text ""
line "is sort of lazy."
done
-UnknownText_0x1bcc9e::
+_PnP_happy::
text ""
line "is always happy."
done
-UnknownText_0x1bccb1::
+_PnP_noisy::
text ""
line "is quite noisy."
done
-UnknownText_0x1bccc3::
+_PnP_precocious::
text ""
line "is precocious."
done
-UnknownText_0x1bccd4::
+_PnP_bold::
text ""
line "is somewhat bold."
done
-UnknownText_0x1bcce8::
+_PnP_picky::
text ""
line "is too picky!"
done
-UnknownText_0x1bccf8::
+_PnP_sortofok::
text ""
line "is sort of OK."
done
-UnknownText_0x1bcd09::
+_PnP_soso::
text ""
line "is just so-so."
done
-UnknownText_0x1bcd1a::
+_PnP_great::
text ""
line "is actually great."
done
-UnknownText_0x1bcd2f::
+_PnP_mytype::
text ""
line "is just my type."
done
-UnknownText_0x1bcd42::
+_PnP_cool::
text ""
line "is so cool, no?"
done
-UnknownText_0x1bcd54::
+_PnP_inspiring::
text ""
line "is inspiring!"
done
-UnknownText_0x1bcd64::
+_PnP_weird::
text ""
line "is kind of weird."
done
-UnknownText_0x1bcd78::
+_PnP_rightforme::
text ""
line "is right for me?"
done
-UnknownText_0x1bcd8b::
+_PnP_odd::
text ""
line "is definitely odd!"
done
-UnknownText_0x1bcda0::
+_PnP_Text5::
text ""
line "@"
text_from_ram StringBuffer1
db "@@"
-UnknownText_0x1bcda8::
+_RocketRadioText1::
text ""
line "… …Ahem, we are"
done
-UnknownText_0x1bcdba::
+_RocketRadioText2::
text ""
line "TEAM ROCKET!"
done
-UnknownText_0x1bcdc9::
+_RocketRadioText3::
text ""
line "After three years"
done
-UnknownText_0x1bcddd::
+_RocketRadioText4::
text ""
line "of preparation, we"
done
-UnknownText_0x1bcdf2::
+_RocketRadioText5::
text ""
line "have risen again"
done
-UnknownText_0x1bce05::
+_RocketRadioText6::
text ""
line "from the ashes!"
done
-UnknownText_0x1bce17::
+_RocketRadioText7::
text ""
line "GIOVANNI! @"
interpret_data
@@ -958,7 +966,7 @@
text "Can you"
done
-UnknownText_0x1bce2e::
+_RocketRadioText8::
text ""
line "hear?@"
interpret_data
@@ -965,7 +973,7 @@
text " We did it!"
done
-UnknownText_0x1bce44::
+_RocketRadioText9::
text ""
line "@"
interpret_data
@@ -972,7 +980,7 @@
text "Where is our boss?"
done
-UnknownText_0x1bce5c::
+_RocketRadioText10::
text ""
line "@"
interpret_data
@@ -979,22 +987,22 @@
text "Is he listening?"
done
-UnknownText_0x1bce72::
+_BuenaRadioText1::
text ""
line "BUENA: BUENA here!"
done
-UnknownText_0x1bce87::
+_BuenaRadioText2::
text ""
line "Today's password!"
done
-UnknownText_0x1bce9a::
+_BuenaRadioText3::
text ""
line "Let me think… It's"
done
-UnknownText_0x1bceae::
+_BuenaRadioText4::
text ""
line "@"
text_from_ram StringBuffer1
@@ -1001,70 +1009,70 @@
text "!"
done
-UnknownText_0x1bceb7::
+_BuenaRadioText5::
text ""
line "Don't forget it!"
done
-UnknownText_0x1bcec9::
+_BuenaRadioText6::
text ""
line "I'm in GOLDENROD's"
done
-UnknownText_0x1bcedc::
+_BuenaRadioText7::
text ""
line "RADIO TOWER!"
done
-UnknownText_0x1bceeb::
+_BuenaRadioMidnightText1::
text ""
line "BUENA: Oh my…"
done
-UnknownText_0x1bcefb::
+_BuenaRadioMidnightText2::
text ""
line "It's midnight! I"
done
-UnknownText_0x1bcf0d::
+_BuenaRadioMidnightText3::
text ""
line "have to shut down!"
done
-UnknownText_0x1bcf22::
+_BuenaRadioMidnightText4::
text ""
line "Thanks for tuning"
done
-UnknownText_0x1bcf36::
+_BuenaRadioMidnightText5::
text ""
line "in to the end! But"
done
-UnknownText_0x1bcf4b::
+_BuenaRadioMidnightText6::
text ""
line "don't stay up too"
done
-UnknownText_0x1bcf5e::
+_BuenaRadioMidnightText7::
text ""
line "late! Presented to"
done
-UnknownText_0x1bcf73::
+_BuenaRadioMidnightText8::
text ""
line "you by DJ BUENA!"
done
-UnknownText_0x1bcf86::
+_BuenaRadioMidnightText9::
text "I'm outta here!"
done
-UnknownText_0x1bcf96::
+_BuenaRadioMidnightText10::
text "…"
done
-UnknownText_0x1bcf99::
+_BuenaOffTheAirText::
text ""
line ""
done