diff options
Diffstat (limited to 'main.asm')
| -rw-r--r-- | main.asm | 2116 |
1 files changed, 1 insertions, 2115 deletions
@@ -76773,2121 +76773,7 @@ KrisFishingGFX: ; b8582 INCBIN "gfx/unknown/0b8582.2bpp" ; b8612 - -PlayRadioShow: ; b8612 - ld a, [wd002] - cp 8 - jr nc, .ok - ld a, [StatusFlags2] - bit 0, a - jr z, .ok - call IsInJohto - and a - jr nz, .ok - ld a, 7 - ld [wd002], a -.ok - ld a, [wd002] - ld e, a - ld d, 0 - ld hl, Jumptable_b863a -rept 2 - add hl, de -endr - ld a, [hli] - ld h, [hl] - ld l, a - jp [hl] - -Jumptable_b863a: ; b863a (2e:463a) - dw Functionb8742 - dw Functionb8a46 - dw Functionb8b35 - dw Functionb8bdc - dw Functionb8f12 - dw Functionb8cbf - dw Functionb8b50 - dw Functionb8e72 - dw Functionb8ef7 - dw Functionb8f00 - dw Functionb8f09 - dw Functionb8752 - dw Functionb875a - dw Functionb8762 - dw Functionb8810 - dw Functionb8818 - dw Functionb883e - dw Functionb8854 - dw Functionb88d9 - dw Functionb8a6c - dw Functionb8aa4 - dw Functionb8aac - dw Functionb8ab4 - dw Functionb8b40 - dw Functionb8b48 - dw Functionb8b63 - dw Functionb8b6b - dw Functionb8b7d - dw Functionb8b8f - dw Functionb8b5b - dw Functionb8bf5 - dw Functionb8bfd - dw Functionb8c05 - dw Functionb8c0d - dw Functionb8c15 - dw Functionb8c1d - dw Functionb8c25 - dw Functionb8c3e - dw Functionb8c46 - dw Functionb8c4e - dw Functionb8c56 - dw Functionb8c5e - dw Functionb8c6e - dw Functionb8c76 - dw Functionb8cca - dw Functionb8cd2 - dw Functionb8cf2 - dw Functionb8d56 - dw Functionb8ded - dw Functionb8e28 - dw Functionb8e7d - dw Functionb8e85 - dw Functionb8e8d - dw Functionb8e95 - dw Functionb8e9d - dw Functionb8ea5 - dw Functionb8ead - dw Functionb8eb5 - dw Functionb8ebd - dw Functionb896e - dw Functionb8994 - dw Functionb89a9 - dw Functionb89c6 - dw Functionb89d7 - dw Functionb8f3f - dw Functionb8f47 - dw Functionb8f55 - dw Functionb909c - dw Functionb90a4 - dw Functionb90ac - dw Functionb90c5 - dw Functionb90d2 - dw Functionb90da - dw Functionb90e2 - dw Functionb90ea - dw Functionb90f2 - dw Functionb90fa - dw Functionb9102 - dw Functionb910a - dw Functionb9112 - dw Functionb911a - dw Functionb9122 - dw Functionb912a - dw Functionb9152 - dw Functionb8728 - dw Functionb8abc - dw Functionb8ac4 - dw Functionb8acc - - -Functionb86ea: ; b86ea (2e:46ea) - ld [wd003], a - ld hl, wd00c - ld a, [wd005] - cp $2 - jr nc, .asm_b870a - inc hl - ld [hl], $0 - inc a - ld [wd005], a - cp $2 - jr nz, .asm_b870a - bccoord 1, 16 - call Function13e5 - jr .asm_b870d -.asm_b870a - call PrintTextBoxText -.asm_b870d - ld a, $54 - ld [wd002], a - ld a, $64 - ld [wd004], a - ret -; b8718 (2e:4718) - -Functionb8718: ; b8718 - push hl - ld b, $28 -.asm_b871b - ld a, [hl] - cp $e8 - jr nz, .asm_b8722 - ld [hl], $7f - -.asm_b8722 - inc hl - dec b - jr nz, .asm_b871b - pop hl - ret -; b8728 - -Functionb8728: ; b8728 (2e:4728) - ld hl, wd004 - ld a, [hl] - and a - jr z, .asm_b8731 - dec [hl] - ret -.asm_b8731 - ld a, [wd003] - ld [wd002], a - ld a, [wd005] - cp $1 - call nz, Functionb8a0b - jp Functionb8a17 - -Functionb8742: ; b8742 (2e:4742) - ld a, $5 - ld [wd006], a - call Functionb91eb - ld hl, UnknownText_0xb8820 - ld a, $b - jp Functionb9221 - -Functionb8752: ; b8752 (2e:4752) - ld hl, UnknownText_0xb8825 - ld a, $c - jp Functionb9221 - -Functionb875a: ; b875a (2e:475a) - ld hl, UnknownText_0xb882a - ld a, $d - jp Functionb9221 - -Functionb8762: ; b8762 (2e:4762) - call Random - and $1f - cp $f - jr nc, Functionb8762 - ld hl, Unknown_b87f2 - ld c, a - ld b, 0 -rept 2 - add hl, bc -endr - ld b, [hl] - inc hl - ld c, [hl] - push bc - - ld hl, WildMons1 -.loop - ld a, BANK(WildMons1) - call GetFarByte - cp $ff - jr z, .done2 - inc hl - cp b - jr nz, .next - ld a, BANK(WildMons1) - call GetFarByte - cp c - jr z, .done -.next - dec hl - ld de, $2f - add hl, de - jr .loop - -.done -rept 4 - inc hl -endr - -.not3 - call Random - and 3 - cp 3 - jr z, .not3 - - ld bc, $e - call AddNTimes -.loop2 - call Random - and 7 - cp 2 - jr c, .loop2 - cp 5 - jr nc, .loop2 - ld e, a - ld d, 0 -rept 2 - add hl, de -endr - inc hl - ld a, BANK(WildMons1) - call GetFarByte - ld [wd265], a - ld [CurPartySpecies], a - call GetPokemonName - ld hl, StringBuffer1 - ld de, wd050 - ld bc, $b - call CopyBytes - - pop bc - call GetWorldMapLocation - ld e, a - callba GetLandmarkName - ld hl, UnknownText_0xb882f - call Functionb91dc - ld a, $e - jp Functionb86ea - -.done2 - pop bc - ld a, $0 - jp Functionb86ea -; b87f2 (2e:47f2) - -Unknown_b87f2: ; b87f2 - map ROUTE_29 - map ROUTE_46 - map ROUTE_30 - map ROUTE_32 - map ROUTE_34 - map ROUTE_35 - map ROUTE_37 - map ROUTE_38 - map ROUTE_39 - map ROUTE_42 - map ROUTE_43 - map ROUTE_44 - map ROUTE_45 - map ROUTE_36 - map ROUTE_31 -; b8810 - -Functionb8810: ; b8810 (2e:4810) - ld hl, UnknownText_0xb8834 - ld a, $f - jp Functionb9221 - -Functionb8818: ; b8818 (2e:4818) - ld hl, UnknownText_0xb8839 - ld a, $10 - jp Functionb9221 -; b8820 (2e:4820) - -UnknownText_0xb8820: ; 0xb8820 - ; MARY: PROF.OAK'S - text_jump UnknownText_0x1bc81a - db "@" -; 0xb8825 - -UnknownText_0xb8825: ; 0xb8825 - ; #MON TALK! - text_jump UnknownText_0x1bc82d - db "@" -; 0xb882a - -UnknownText_0xb882a: ; 0xb882a - ; With me, MARY! - text_jump UnknownText_0x1bc83a - db "@" -; 0xb882f - -UnknownText_0xb882f: ; 0xb882f - ; OAK: @ @ - text_jump UnknownText_0x1bc84b - db "@" -; 0xb8834 - -UnknownText_0xb8834: ; 0xb8834 - ; may be seen around - text_jump UnknownText_0x1bc858 - db "@" -; 0xb8839 - -UnknownText_0xb8839: ; 0xb8839 - ; @ . - text_jump UnknownText_0x1bc86d - db "@" -; 0xb883e - -Functionb883e: ; b883e (2e:483e) - ld a, [CurPartySpecies] - ld [wd265], a - call GetPokemonName - ld hl, UnknownText_0xb884f - ld a, $11 - jp Functionb9221 -; b884f (2e:484f) - -UnknownText_0xb884f: ; 0xb884f - ; MARY: @ 's - text_jump UnknownText_0x1bc876 - db "@" -; 0xb8854 - -Functionb8854: ; b8854 (2e:4854) - call Random - and $f - ld e, a - ld d, 0 - ld hl, Unknown_b8869 -rept 2 - add hl, de -endr - ld a, [hli] - ld h, [hl] - ld l, a - ld a, $12 - jp Functionb9221 -; b8869 (2e:4869) - -Unknown_b8869: ; b8869 - dw UnknownText_0xb8889 - dw UnknownText_0xb888e - dw UnknownText_0xb8893 - dw UnknownText_0xb8898 - dw UnknownText_0xb889d - dw UnknownText_0xb88a2 - dw UnknownText_0xb88a7 - dw UnknownText_0xb88ac - dw UnknownText_0xb88b1 - dw UnknownText_0xb88b6 - dw UnknownText_0xb88bb - dw UnknownText_0xb88c0 - dw UnknownText_0xb88c5 - dw UnknownText_0xb88ca - dw UnknownText_0xb88cf - dw UnknownText_0xb88d4 -; b8889 - -UnknownText_0xb8889: ; 0xb8889 - ; sweet and adorably - text_jump UnknownText_0x1bc885 - db "@" -; 0xb888e - -UnknownText_0xb888e: ; 0xb888e - ; wiggly and slickly - text_jump UnknownText_0x1bc89a - db "@" -; 0xb8893 - -UnknownText_0xb8893: ; 0xb8893 - ; aptly named and - text_jump UnknownText_0x1bc8af - db "@" -; 0xb8898 - -UnknownText_0xb8898: ; 0xb8898 - ; undeniably kind of - text_jump UnknownText_0x1bc8c1 - db "@" -; 0xb889d - -UnknownText_0xb889d: ; 0xb889d - ; so, so unbearably - text_jump UnknownText_0x1bc8d6 - db "@" -; 0xb88a2 - -UnknownText_0xb88a2: ; 0xb88a2 - ; wow, impressively - text_jump UnknownText_0x1bc8ea - db "@" -; 0xb88a7 - -UnknownText_0xb88a7: ; 0xb88a7 - ; almost poisonously - text_jump UnknownText_0x1bc8fe - db "@" -; 0xb88ac - -UnknownText_0xb88ac: ; 0xb88ac - ; ooh, so sensually - text_jump UnknownText_0x1bc913 - db "@" -; 0xb88b1 - -UnknownText_0xb88b1: ; 0xb88b1 - ; so mischievously - text_jump UnknownText_0x1bc927 - db "@" -; 0xb88b6 - -UnknownText_0xb88b6: ; 0xb88b6 - ; so very topically - text_jump UnknownText_0x1bc93a - db "@" -; 0xb88bb - -UnknownText_0xb88bb: ; 0xb88bb - ; sure addictively - text_jump UnknownText_0x1bc94e - db "@" -; 0xb88c0 - -UnknownText_0xb88c0: ; 0xb88c0 - ; looks in water is - text_jump UnknownText_0x1bc961 - db "@" -; 0xb88c5 - -UnknownText_0xb88c5: ; 0xb88c5 - ; evolution must be - text_jump UnknownText_0x1bc975 - db "@" -; 0xb88ca - -UnknownText_0xb88ca: ; 0xb88ca - ; provocatively - text_jump UnknownText_0x1bc989 - db "@" -; 0xb88cf - -UnknownText_0xb88cf: ; 0xb88cf - ; so flipped out and - text_jump UnknownText_0x1bc999 - db "@" -; 0xb88d4 - -UnknownText_0xb88d4: ; 0xb88d4 - ; heart-meltingly - text_jump UnknownText_0x1bc9ae - db "@" -; 0xb88d9 - -Functionb88d9: ; b88d9 (2e:48d9) - call Random - and $f - ld e, a - ld d, 0 - ld hl, Unknown_b88fe -rept 2 - add hl, de -endr - ld a, [hli] - ld h, [hl] - ld l, a - ld a, [wd006] - dec a - ld [wd006], a - ld a, $d - jr nz, .asm_b88fb - ld a, $5 - ld [wd006], a - ld a, $3b -.asm_b88fb - jp Functionb9221 -; b88fe (2e:48fe) - -Unknown_b88fe: ; b88fe - dw UnknownText_0xb891e - dw UnknownText_0xb8923 - dw UnknownText_0xb8928 - dw UnknownText_0xb892d - dw UnknownText_0xb8932 - dw UnknownText_0xb8937 - dw UnknownText_0xb893c - dw UnknownText_0xb8941 - dw UnknownText_0xb8946 - dw UnknownText_0xb894b - dw UnknownText_0xb8950 - dw UnknownText_0xb8955 - dw UnknownText_0xb895a - dw UnknownText_0xb895f - dw UnknownText_0xb8964 - dw UnknownText_0xb8969 -; b891e - -UnknownText_0xb891e: ; 0xb891e - ; cute. - text_jump UnknownText_0x1bc9c0 - db "@" -; 0xb8923 - -UnknownText_0xb8923: ; 0xb8923 - ; weird. - text_jump UnknownText_0x1bc9c8 - db "@" -; 0xb8928 - -UnknownText_0xb8928: ; 0xb8928 - ; pleasant. - text_jump UnknownText_0x1bc9d1 - db "@" -; 0xb892d - -UnknownText_0xb892d: ; 0xb892d - ; bold, sort of. - text_jump UnknownText_0x1bc9dd - db "@" -; 0xb8932 - -UnknownText_0xb8932: ; 0xb8932 - ; frightening. - text_jump UnknownText_0x1bc9ee - db "@" -; 0xb8937 - -UnknownText_0xb8937: ; 0xb8937 - ; suave & debonair! - text_jump UnknownText_0x1bc9fd - db "@" -; 0xb893c - -UnknownText_0xb893c: ; 0xb893c - ; powerful. - text_jump UnknownText_0x1bca11 - db "@" -; 0xb8941 - -UnknownText_0xb8941: ; 0xb8941 - ; exciting. - text_jump UnknownText_0x1bca1d - db "@" -; 0xb8946 - -UnknownText_0xb8946: ; 0xb8946 - ; groovy! - text_jump UnknownText_0x1bca29 - db "@" -; 0xb894b - -UnknownText_0xb894b: ; 0xb894b - ; inspiring. - text_jump UnknownText_0x1bca33 - db "@" -; 0xb8950 - -UnknownText_0xb8950: ; 0xb8950 - ; friendly. - text_jump UnknownText_0x1bca40 - db "@" -; 0xb8955 - -UnknownText_0xb8955: ; 0xb8955 - ; hot, hot, hot! - text_jump UnknownText_0x1bca4c - db "@" -; 0xb895a - -UnknownText_0xb895a: ; 0xb895a - ; stimulating. - text_jump UnknownText_0x1bca5d - db "@" -; 0xb895f - -UnknownText_0xb895f: ; 0xb895f - ; guarded. - text_jump UnknownText_0x1bca6c - db "@" -; 0xb8964 - -UnknownText_0xb8964: ; 0xb8964 - ; lovely. - text_jump UnknownText_0x1bca77 - db "@" -; 0xb8969 - -UnknownText_0xb8969: ; 0xb8969 - ; speedy. - text_jump UnknownText_0x1bca81 - db "@" -; 0xb896e - -Functionb896e: ; b896e (2e:496e) - callba Function91868 - ld hl, UnknownText_0xb8993 - call PrintText - call WaitBGMap - ld hl, UnknownText_0xb898e - call PrintText - ld a, $3c - ld [wd002], a - ld a, $64 - ld [wd004], a - ret -; b898e (2e:498e) - -UnknownText_0xb898e: ; 0xb898e - ; #MON - text_jump UnknownText_0x1bca8b - db "@" -; 0xb8993 - -UnknownText_0xb8993: ; 0xb8993 - db "@" -; 0xb8994 - -Functionb8994: ; b8994 (2e:4994) - ld hl, wd004 - dec [hl] - ret nz - hlcoord 9, 14 - ld de, String_b89a4 - ld a, $3d - jp Functionb8a00 -; b89a4 (2e:49a4) - -String_b89a4: - db "#MON@" -; b89a9 - -Functionb89a9: ; b89a9 (2e:49a9) - ld hl, wd004 - dec [hl] - ret nz - hlcoord 1, 16 - ld de, String_b89b9 - ld a, $3e - jp Functionb8a00 -; b89b9 (2e:49b9) - -String_b89b9: - db "#MON Channel@" -; b89c6 - -Functionb89c6: ; b89c6 (2e:49c6) - ld hl, wd004 - dec [hl] - ret nz - hlcoord 12, 16 - ld de, String_b89d6 - ld a, $3f - jp Functionb8a00 -; b89d6 (2e:49d6) - -String_b89d6: - db "@" -; b89d7 - -Functionb89d7: ; b89d7 (2e:49d7) - ld hl, wd004 - dec [hl] - ret nz - ld de, $1d - callab Function91854 - ld hl, UnknownText_0xb89ff - call PrintText - ld a, $d - ld [wd003], a - xor a - ld [wd005], a - ld a, $54 - ld [wd002], a - ld a, $a - ld [wd004], a - ret -; b89ff (2e:49ff) - -UnknownText_0xb89ff: ; 0xb89ff - db "@" -; 0xb8a00 - -Functionb8a00: ; b8a00 (2e:4a00) - ld [wd002], a - ld a, $64 - ld [wd004], a - jp PlaceString - -Functionb8a0b: ; b8a0b (2e:4a0b) - hlcoord 0, 15 - decoord 0, 13 - ld bc, $28 - jp CopyBytes - -Functionb8a17: ; b8a17 (2e:4a17) - hlcoord 1, 15 - ld bc, $12 - ld a, $7f - call ByteFill - hlcoord 1, 16 - ld bc, $12 - ld a, $7f - jp ByteFill - -Functionb8a2d: ; b8a2d (2e:4a2d) - push hl - push de - ld a, [CurPartySpecies] - dec a - rlca - rlca - and 3 - ld hl, .pokedexbanks - ld d, 0 - ld e, a - add hl, de - ld a, [hl] - pop de - pop hl - ret -; b8a42 (2e:4a42) - -.pokedexbanks - db BANK(PokedexEntries1) - db BANK(PokedexEntries2) - db BANK(PokedexEntries3) - db BANK(PokedexEntries4) -; b8a46 - -Functionb8a46: ; b8a46 (2e:4a46) - call Functionb91eb -.asm_b8a49 - call Random - cp CELEBI - jr nc, .asm_b8a49 - ld c, a - push bc - ld a, c - call CheckCaughtMon - pop bc - jr z, .asm_b8a49 - inc c - ld a, c - ld [CurPartySpecies], a - ld [wd265], a - call GetPokemonName - ld hl, UnknownText_0xb8b30 - ld a, $13 - jp Functionb9221 - -Functionb8a6c: ; b8a6c (2e:4a6c) - ld a, [CurPartySpecies] - dec a - ld hl, PokedexDataPointerTable - ld c, a - ld b, 0 -rept 2 - add hl, bc -endr - ld a, BANK(PokedexDataPointerTable) - call GetFarHalfword - call Functionb8a2d - push af - push hl - call Functionb8af3 - dec hl - ld [hl], $57 - ld hl, wd26b - call Functionb91dc - pop hl - pop af - call Functionb8b11 -rept 4 - inc hl -endr - ld a, l - ld [wd26b], a - ld a, h - ld [wd26c], a - ld a, $14 - jp Functionb86ea - -Functionb8aa4: ; b8aa4 (2e:4aa4) - call Functionb8ad4 - ld a, $15 - jp Functionb86ea - -Functionb8aac: ; b8aac (2e:4aac) - call Functionb8ad4 - ld a, $16 - jp Functionb86ea - -Functionb8ab4: ; b8ab4 (2e:4ab4) - call Functionb8ad4 - ld a, $55 - jp Functionb86ea - -Functionb8abc: ; b8abc (2e:4abc) - call Functionb8ad4 - ld a, $56 - jp Functionb86ea - -Functionb8ac4: ; b8ac4 (2e:4ac4) - call Functionb8ad4 - ld a, $57 - jp Functionb86ea - -Functionb8acc: ; b8acc (2e:4acc) - call Functionb8ad4 - ld a, $1 - jp Functionb86ea - -Functionb8ad4: ; b8ad4 (2e:4ad4) - ld a, [wd26b] - ld l, a - ld a, [wd26c] - ld h, a - ld a, [wd26d] - push af - push hl - call Functionb8af3 - dec hl - ld [hl], $57 - ld hl, wd26b - call Functionb91dc - pop hl - pop af - call Functionb8b11 - ret - -Functionb8af3: ; b8af3 (2e:4af3) - ld de, wd26d - ld bc, $13 - call FarCopyBytes - ld hl, wd26b - ld [hl], $0 - inc hl - ld [hl], $4f - inc hl -.asm_b8b05 - ld a, [hli] - cp $50 - ret z - cp $4e - ret z - cp $5f - ret z - jr .asm_b8b05 - -Functionb8b11: ; b8b11 (2e:4b11) - ld d, a -.asm_b8b12 - ld a, d - call GetFarByte - inc hl - cp $50 - jr z, .asm_b8b23 - cp $4e - jr z, .asm_b8b23 - cp $5f - jr nz, .asm_b8b12 -.asm_b8b23 - ld a, l - ld [wd26b], a - ld a, h - ld [wd26c], a - ld a, d - ld [wd26d], a - ret -; b8b30 (2e:4b30) - -UnknownText_0xb8b30: ; 0xb8b30 - ; @ @ - text_jump UnknownText_0x1bca91 - db "@" -; 0xb8b35 - -Functionb8b35: ; b8b35 (2e:4b35) - call Functionb8b90 - ld hl, UnknownText_0xb8baa - ld a, $17 - jp Functionb9221 - -Functionb8b40: ; b8b40 (2e:4b40) - ld hl, UnknownText_0xb8baf - ld a, $18 - jp Functionb9221 - -Functionb8b48: ; b8b48 (2e:4b48) - ld hl, UnknownText_0xb8bb4 - ld a, $19 - jp Functionb9221 - -Functionb8b50: ; b8b50 (2e:4b50) - call Functionb8b90 - ld hl, UnknownText_0xb8bb9 - ld a, $1d - jp Functionb9221 - -Functionb8b5b: ; b8b5b (2e:4b5b) - ld hl, UnknownText_0xb8bbe - ld a, $19 - jp Functionb9221 - -Functionb8b63: ; b8b63 (2e:4b63) - ld hl, UnknownText_0xb8bc3 - ld a, $1a - jp Functionb9221 - -Functionb8b6b: ; b8b6b (2e:4b6b) - call GetWeekday - and 1 - ld hl, UnknownText_0xb8bc8 - jr z, .asm_b8b78 - ld hl, UnknownText_0xb8bcd -.asm_b8b78 - ld a, $1b - jp Functionb9221 - -Functionb8b7d: ; b8b7d (2e:4b7d) - call GetWeekday - and 1 - ld hl, UnknownText_0xb8bd2 - jr z, .asm_b8b8a - ld hl, UnknownText_0xb8bd7 -.asm_b8b8a - ld a, $1c - jp Functionb9221 - -Functionb8b8f: ; b8b8f (2e:4b8f) - ret - -Functionb8b90: ; b8b90 (2e:4b90) - call Function1052 - call PrintText - ld de, MUSIC_POKEMON_MARCH - call GetWeekday - and 1 - jr z, .done - ld de, MUSIC_POKEMON_LULLABY -.done - callab Function91854 - ret -; b8baa (2e:4baa) - -UnknownText_0xb8baa: ; 0xb8baa - ; BEN: #MON MUSIC - text_jump UnknownText_0x1bca99 - db "@" -; 0xb8baf - -UnknownText_0xb8baf: ; 0xb8baf - ; CHANNEL! - text_jump UnknownText_0x1bcaab - db "@" -; 0xb8bb4 - -UnknownText_0xb8bb4: ; 0xb8bb4 - ; It's me, DJ BEN! - text_jump UnknownText_0x1bcab6 - db "@" -; 0xb8bb9 - -UnknownText_0xb8bb9: ; 0xb8bb9 - ; FERN: #MUSIC! - text_jump UnknownText_0x1bcac8 - db "@" -; 0xb8bbe - -UnknownText_0xb8bbe: ; 0xb8bbe - ; With DJ FERN! - text_jump UnknownText_0x1bcad8 - db "@" -; 0xb8bc3 - -UnknownText_0xb8bc3: ; 0xb8bc3 - ; Today's @ , - text_jump UnknownText_0x1bcae8 - db "@" -; 0xb8bc8 - -UnknownText_0xb8bc8: ; 0xb8bc8 - ; so let us jam to - text_jump UnknownText_0x1bcaf6 - db "@" -; 0xb8bcd - -UnknownText_0xb8bcd: ; 0xb8bcd - ; so chill out to - text_jump UnknownText_0x1bcb09 - db "@" -; 0xb8bd2 - -UnknownText_0xb8bd2: ; 0xb8bd2 - ; #MON March! - text_jump UnknownText_0x1bcb1b - db "@" -; 0xb8bd7 - -UnknownText_0xb8bd7: ; 0xb8bd7 - ; #MON Lullaby! - text_jump UnknownText_0x1bcb29 - db "@" -; 0xb8bdc - -Functionb8bdc: ; b8bdc (2e:4bdc) - call Functionb91eb - callab Functionc434 - jr nc, .asm_b8bed - callab Functionc422 -.asm_b8bed - ld hl, UnknownText_0xb8c7e - ld a, $1e - jp Functionb9221 - -Functionb8bf5: ; b8bf5 (2e:4bf5) - ld hl, UnknownText_0xb8c83 - ld a, $1f - jp Functionb9221 - -Functionb8bfd: ; b8bfd (2e:4bfd) - ld hl, UnknownText_0xb8c88 - ld a, $20 - jp Functionb9221 - -Functionb8c05: ; b8c05 (2e:4c05) - ld hl, UnknownText_0xb8c8d - ld a, $21 - jp Functionb9221 - -Functionb8c0d: ; b8c0d (2e:4c0d) - ld hl, UnknownText_0xb8c92 - ld a, $22 - jp Functionb9221 - -Functionb8c15: ; b8c15 (2e:4c15) - ld hl, UnknownText_0xb8c97 - ld a, $23 - jp Functionb9221 - -Functionb8c1d: ; b8c1d (2e:4c1d) - ld hl, UnknownText_0xb8c9c - ld a, $24 - jp Functionb9221 - -Functionb8c25: ; b8c25 (2e:4c25) - ld hl, StringBuffer1 - ld de, wdc9f - ld bc, $8205 - call PrintNum - ld a, $50 - ld [StringBuffer1 + 5], a - ld hl, UnknownText_0xb8ca1 - ld a, $25 - jp Functionb9221 - -Functionb8c3e: ; b8c3e (2e:4c3e) - ld hl, UnknownText_0xb8ca6 - ld a, $26 - jp Functionb9221 - -Functionb8c46: ; b8c46 (2e:4c46) - ld hl, UnknownText_0xb8c9c - ld a, $27 - jp Functionb9221 - -Functionb8c4e: ; b8c4e (2e:4c4e) - ld hl, UnknownText_0xb8ca1 - ld a, $28 - jp Functionb9221 - -Functionb8c56: ; b8c56 (2e:4c56) - ld hl, UnknownText_0xb8cab - ld a, $29 - jp Functionb9221 - -Functionb8c5e: ; b8c5e (2e:4c5e) - ld hl, UnknownText_0xb8cb0 - call Random - and a - ld a, $3 - jr nz, .asm_b8c6b - ld a, $2a -.asm_b8c6b - jp Functionb9221 - -Functionb8c6e: ; b8c6e (2e:4c6e) - ld hl, UnknownText_0xb8cb5 - ld a, $2b - jp Functionb9221 - -Functionb8c76: ; b8c76 (2e:4c76) - ld hl, UnknownText_0xb8cba - ld a, $3 - jp Functionb9221 -; b8c7e (2e:4c7e) - -UnknownText_0xb8c7e: ; 0xb8c7e - ; REED: Yeehaw! How - text_jump UnknownText_0x1bcb39 - db "@" -; 0xb8c83 - -UnknownText_0xb8c83: ; 0xb8c83 - ; y'all doin' now? - text_jump UnknownText_0x1bcb4d - db "@" -; 0xb8c88 - -UnknownText_0xb8c88: ; 0xb8c88 - ; Whether you're up - text_jump UnknownText_0x1bcb60 - db "@" -; 0xb8c8d - -UnknownText_0xb8c8d: ; 0xb8c8d - ; or way down low, - text_jump UnknownText_0x1bcb73 - db "@" -; 0xb8c92 - -UnknownText_0xb8c92: ; 0xb8c92 - ; don't you miss the - text_jump UnknownText_0x1bcb86 - db "@" -; 0xb8c97 - -UnknownText_0xb8c97: ; 0xb8c97 - ; LUCKY NUMBER SHOW! - text_jump UnknownText_0x1bcb9a - db "@" -; 0xb8c9c - -UnknownText_0xb8c9c: ; 0xb8c9c - ; This week's Lucky - text_jump UnknownText_0x1bcbaf - db "@" -; 0xb8ca1 - -UnknownText_0xb8ca1: ; 0xb8ca1 - ; Number is @ ! - text_jump UnknownText_0x1bcbc2 - db "@" -; 0xb8ca6 - -UnknownText_0xb8ca6: ; 0xb8ca6 - ; I'll repeat that! - text_jump UnknownText_0x1bcbd6 - db "@" -; 0xb8cab - -UnknownText_0xb8cab: ; 0xb8cab - ; Match it and go to - text_jump UnknownText_0x1bcbe9 - db "@" -; 0xb8cb0 - -UnknownText_0xb8cb0: ; 0xb8cb0 - ; the RADIO TOWER! - text_jump UnknownText_0x1bcbfe - db "@" -; 0xb8cb5 - -UnknownText_0xb8cb5: ; 0xb8cb5 - ; …Repeating myself - text_jump UnknownText_0x1bcc11 - db "@" -; 0xb8cba - -UnknownText_0xb8cba: ; 0xb8cba - ; gets to be a drag… - text_jump UnknownText_0x1bcc25 - db "@" -; 0xb8cbf - -Functionb8cbf: ; b8cbf (2e:4cbf) - call Functionb91eb - ld hl, UnknownText_0xb8ce3 - ld a, $2c - jp Functionb9221 - -Functionb8cca: ; b8cca (2e:4cca) - ld hl, UnknownText_0xb8ce8 - ld a, $2d - jp Functionb9221 - -Functionb8cd2: ; b8cd2 (2e:4cd2) - ld hl, UnknownText_0xb8ced - call Random - cp $7b - ld a, $2e - jr c, .asm_b8ce0 - ld a, $30 -.asm_b8ce0 - jp Functionb9221 -; b8ce3 (2e:4ce3) - -UnknownText_0xb8ce3: ; 0xb8ce3 - ; PLACES AND PEOPLE! - text_jump UnknownText_0x1bcc3a - db "@" -; 0xb8ce8 - -UnknownText_0xb8ce8: ; 0xb8ce8 - ; Brought to you by - text_jump UnknownText_0x1bcc4f - db "@" -; 0xb8ced - -UnknownText_0xb8ced: ; 0xb8ced - ; me, DJ LILY! - text_jump UnknownText_0x1bcc63 - db "@" -; 0xb8cf2 - -Functionb8cf2: ; b8cf2 (2e:4cf2) - call Random - and $7f - inc a - cp $43 - jr nc, Functionb8cf2 - push af - ld hl, Unknown_b8d3e - ld a, [StatusFlags] - bit 6, a - jr z, .NotMet - ld hl, Unknown_b8d43 - ld a, [KantoBadges] - cp %11111111 - jr nz, .NotMet - ld hl, Unknown_b8d4b -.NotMet - pop af - ld c, a - ld de, $1 - push bc - call IsInArray - pop bc - jr c, Functionb8cf2 - push bc - callab Function3952d - ld de, StringBuffer1 - call CopyName1 - pop bc - ld b, $1 - callab GetTrainerName - ld hl, UnknownText_0xb8d51 - ld a, $2f - jp Functionb9221 -; b8d3e (2e:4d3e) - -Unknown_b8d3e: db $0b, $0d, $0e, $0f, $10 -Unknown_b8d43: db $11, $12, $13, $15, $1a, $23, $2e, $40 -Unknown_b8d4b: db $09, $0a, $0c, $2a, $3f - db $ff -; b8d51 - -UnknownText_0xb8d51: ; 0xb8d51 - ; @ @ @ - text_jump UnknownText_0x1bcc72 - db "@" -; 0xb8d56 - -Functionb8d56: ; b8d56 (2e:4d56) - call Random - and $f - ld e, a - ld d, 0 - ld hl, Unknown_b8d7d -rept 2 - add hl, de -endr - ld a, [hli] - ld h, [hl] - ld l, a - call Random - cp $a - ld a, $5 - jr c, .asm_b8d7a - call Random - cp $7b - ld a, $2e - jr c, .asm_b8d7a - ld a, $30 -.asm_b8d7a - jp Functionb9221 -; b8d7d (2e:4d7d) - -Unknown_b8d7d: ; b8d7d - dw UnknownText_0xb8d9d - dw UnknownText_0xb8da2 - dw UnknownText_0xb8da7 - dw UnknownText_0xb8dac - dw UnknownText_0xb8db1 - dw UnknownText_0xb8db6 - dw UnknownText_0xb8dbb - dw UnknownText_0xb8dc0 - dw UnknownText_0xb8dc5 - dw UnknownText_0xb8dca - dw UnknownText_0xb8dcf - dw UnknownText_0xb8dd4 - dw UnknownText_0xb8dd9 - dw UnknownText_0xb8dde - dw UnknownText_0xb8de3 - dw UnknownText_0xb8de8 -; b8d9d - -UnknownText_0xb8d9d: ; 0xb8d9d - ; is cute. - text_jump UnknownText_0x1bcc80 - db "@" -; 0xb8da2 - -UnknownText_0xb8da2: ; 0xb8da2 - ; is sort of lazy. - text_jump UnknownText_0x1bcc8b - db "@" -; 0xb8da7 - -UnknownText_0xb8da7: ; 0xb8da7 - ; is always happy. - text_jump UnknownText_0x1bcc9e - db "@" -; 0xb8dac - -UnknownText_0xb8dac: ; 0xb8dac - ; is quite noisy. - text_jump UnknownText_0x1bccb1 - db "@" -; 0xb8db1 - -UnknownText_0xb8db1: ; 0xb8db1 - ; is precocious. - text_jump UnknownText_0x1bccc3 - db "@" -; 0xb8db6 - -UnknownText_0xb8db6: ; 0xb8db6 - ; is somewhat bold. - text_jump UnknownText_0x1bccd4 - db "@" -; 0xb8dbb - -UnknownText_0xb8dbb: ; 0xb8dbb - ; is too picky! - text_jump UnknownText_0x1bcce8 - db "@" -; 0xb8dc0 - -UnknownText_0xb8dc0: ; 0xb8dc0 - ; is sort of OK. - text_jump UnknownText_0x1bccf8 - db "@" -; 0xb8dc5 - -UnknownText_0xb8dc5: ; 0xb8dc5 - ; is just so-so. - text_jump UnknownText_0x1bcd09 - db "@" -; 0xb8dca - -UnknownText_0xb8dca: ; 0xb8dca - ; is actually great. - text_jump UnknownText_0x1bcd1a - db "@" -; 0xb8dcf - -UnknownText_0xb8dcf: ; 0xb8dcf - ; is just my type. - text_jump UnknownText_0x1bcd2f - db "@" -; 0xb8dd4 - -UnknownText_0xb8dd4: ; 0xb8dd4 - ; is so cool, no? - text_jump UnknownText_0x1bcd42 - db "@" -; 0xb8dd9 - -UnknownText_0xb8dd9: ; 0xb8dd9 - ; is inspiring! - text_jump UnknownText_0x1bcd54 - db "@" -; 0xb8dde - -UnknownText_0xb8dde: ; 0xb8dde - ; is kind of weird. - text_jump UnknownText_0x1bcd64 - db "@" -; 0xb8de3 - -UnknownText_0xb8de3: ; 0xb8de3 - ; is right for me? - text_jump UnknownText_0x1bcd78 - db "@" -; 0xb8de8 - -UnknownText_0xb8de8: ; 0xb8de8 - ; is definitely odd! - text_jump UnknownText_0x1bcd8b - db "@" -; 0xb8ded - -Functionb8ded: ; b8ded (2e:4ded) - call Random - cp $9 - jr nc, Functionb8ded - ld hl, Unknown_b8e11 - ld c, a - ld b, 0 -rept 2 - add hl, bc -endr - ld b, [hl] - inc hl - ld c, [hl] - call GetWorldMapLocation - ld e, a - callba GetLandmarkName - ld hl, UnknownText_0xb8e23 - ld a, $31 - jp Functionb9221 -; b8e11 (2e:4e11) - -Unknown_b8e11: ; b8e11 - map PALLET_TOWN - map ROUTE_22 - map PEWTER_CITY - map CERULEAN_POLICE_STATION - map ROUTE_12 - map ROUTE_11 - map ROUTE_16 - map ROUTE_14 - map CINNABAR_POKECENTER_2F_BETA -; b8e23 - -UnknownText_0xb8e23: ; 0xb8e23 - ; @ @ - text_jump UnknownText_0x1bcda0 - db "@" -; 0xb8e28 - -Functionb8e28: ; b8e28 (2e:4e28) - call Random - and $f - ld e, a - ld d, 0 - ld hl, Unknown_b8e52 -rept 2 - add hl, de -endr - ld a, [hli] - ld h, [hl] - ld l, a - call Functionb91dc - call Random - cp $a - ld a, $5 - jr c, .asm_b8e4f - call Random - cp $7b - ld a, $2e - jr c, .asm_b8e4f - ld a, $30 -.asm_b8e4f - jp Functionb86ea -; b8e52 (2e:4e52) - -Unknown_b8e52: ; b8e52 - dw UnknownText_0xb8d9d - dw UnknownText_0xb8da2 - dw UnknownText_0xb8da7 - dw UnknownText_0xb8dac - dw UnknownText_0xb8db1 - dw UnknownText_0xb8db6 - dw UnknownText_0xb8dbb - dw UnknownText_0xb8dc0 - dw UnknownText_0xb8dc5 - dw UnknownText_0xb8dca - dw UnknownText_0xb8dcf - dw UnknownText_0xb8dd4 - dw UnknownText_0xb8dd9 - dw UnknownText_0xb8dde - dw UnknownText_0xb8de3 - dw UnknownText_0xb8de8 -; b8e72 - -Functionb8e72: ; b8e72 (2e:4e72) - call Functionb91eb - ld hl, UnknownText_0xb8ec5 - ld a, $32 - jp Functionb9221 - -Functionb8e7d: ; b8e7d (2e:4e7d) - ld hl, UnknownText_0xb8eca - ld a, $33 - jp Functionb9221 - -Functionb8e85: ; b8e85 (2e:4e85) - ld hl, UnknownText_0xb8ecf - ld a, $34 - jp Functionb9221 - -Functionb8e8d: ; b8e8d (2e:4e8d) - ld hl, UnknownText_0xb8ed4 - ld a, $35 - jp Functionb9221 - -Functionb8e95: ; b8e95 (2e:4e95) - ld hl, UnknownText_0xb8ed9 - ld a, $36 - jp Functionb9221 - -Functionb8e9d: ; b8e9d (2e:4e9d) - ld hl, UnknownText_0xb8ede - ld a, $37 - jp Functionb9221 - -Functionb8ea5: ; b8ea5 (2e:4ea5) - ld hl, UnknownText_0xb8ee3 - ld a, $38 - jp Functionb9221 - -Functionb8ead: ; b8ead (2e:4ead) - ld hl, UnknownText_0xb8ee8 - ld a, $39 - jp Functionb9221 - -Functionb8eb5: ; b8eb5 (2e:4eb5) - ld hl, UnknownText_0xb8eed - ld a, $3a - jp Functionb9221 - -Functionb8ebd: ; b8ebd (2e:4ebd) - ld hl, UnknownText_0xb8ef2 - ld a, $7 - jp Functionb9221 -; b8ec5 (2e:4ec5) - -UnknownText_0xb8ec5: ; 0xb8ec5 - ; … …Ahem, we are - text_jump UnknownText_0x1bcda8 - db "@" -; 0xb8eca - -UnknownText_0xb8eca: ; 0xb8eca - ; TEAM ROCKET! - text_jump UnknownText_0x1bcdba - db "@" -; 0xb8ecf - -UnknownText_0xb8ecf: ; 0xb8ecf - ; After three years - text_jump UnknownText_0x1bcdc9 - db "@" -; 0xb8ed4 - -UnknownText_0xb8ed4: ; 0xb8ed4 - ; of preparation, we - text_jump UnknownText_0x1bcddd - db "@" -; 0xb8ed9 - -UnknownText_0xb8ed9: ; 0xb8ed9 - ; have risen again - text_jump UnknownText_0x1bcdf2 - db "@" -; 0xb8ede - -UnknownText_0xb8ede: ; 0xb8ede - ; from the ashes! - text_jump UnknownText_0x1bce05 - db "@" -; 0xb8ee3 - -UnknownText_0xb8ee3: ; 0xb8ee3 - ; GIOVANNI! @ Can you - text_jump UnknownText_0x1bce17 - db "@" -; 0xb8ee8 - -UnknownText_0xb8ee8: ; 0xb8ee8 - ; hear?@ We did it! - text_jump UnknownText_0x1bce2e - db "@" -; 0xb8eed - -UnknownText_0xb8eed: ; 0xb8eed - ; @ Where is our boss? - text_jump UnknownText_0x1bce44 - db "@" -; 0xb8ef2 - -UnknownText_0xb8ef2: ; 0xb8ef2 - ; @ Is he listening? - text_jump UnknownText_0x1bce5c - db "@" -; 0xb8ef7 - -Functionb8ef7: ; b8ef7 (2e:4ef7) - call Functionb91eb - ld a, $1 - ld [wd005], a - ret - -Functionb8f00: ; b8f00 (2e:4f00) - call Functionb91eb - ld a, $1 - ld [wd005], a - ret - -Functionb8f09: ; b8f09 (2e:4f09) - call Functionb91eb - ld a, $1 - ld [wd005], a - ret - -Functionb8f12: ; b8f12 (2e:4f12) - call Functionb9169 - jp nc, Functionb8f22 - ld a, [wd005] - and a - jp z, Functionb912a - jp Functionb90c5 - -Functionb8f22: ; b8f22 (2e:4f22) - call Functionb91eb - ld a, [hBGMapMode] ; $ff00+$d4 - push af - xor a - ld [hBGMapMode], a ; $ff00+$d4 - ld de, String_b9171 - hlcoord 2, 9 - call PlaceString - pop af - ld [hBGMapMode], a ; $ff00+$d4 - ld hl, UnknownText_0xb9182 - ld a, $40 - jp Functionb9221 - -Functionb8f3f: ; b8f3f (2e:4f3f) - ld hl, UnknownText_0xb9187 - ld a, $41 - jp Functionb9221 - -Functionb8f47: ; b8f47 (2e:4f47) - call Functionb9169 - ld hl, UnknownText_0xb918c - jp c, Functionb90b9 - ld a, $42 - jp Functionb9221 - -Functionb8f55: ; b8f55 (2e:4f55) - call Functionb9169 - jp c, Functionb90c5 - ld a, [wdc4a] - ld hl, WeeklyFlags - bit 7, [hl] - jr nz, .asm_b8f83 -.asm_b8f65 - call Random - and $f - cp $b - jr nc, .asm_b8f65 - swap a - ld e, a -.asm_b8f71 - call Random - and $3 - cp $3 - jr nc, .asm_b8f71 - add e - ld [wdc4a], a - ld hl, WeeklyFlags - set 7, [hl] -.asm_b8f83 - ld c, a - call Functionb8f8f - ld hl, UnknownText_0xb9191 - ld a, $43 - jp Functionb9221 - -Functionb8f8f: ; b8f8f - ld a, c - swap a - and $f - ld hl, Unknown_b8ff9 - ld d, 0 - ld e, a -rept 2 - add hl, de -endr - ld a, [hli] - ld h, [hl] - ld l, a - ld a, [hli] - ld b, a - push hl - inc hl - ld a, c - and $f - ld c, a - push hl - ld hl, Jumptable_b8fb8 - ld e, b -rept 2 - add hl, de -endr - ld a, [hli] - ld h, [hl] - ld l, a - pop de - call _hl_ - pop hl - ld c, [hl] - ret -; b8fb8 - - -Jumptable_b8fb8: ; b8fb8 (2e:4fb8) - dw Functionb8fc0 - dw Functionb8fc7 - dw Functionb8fce - dw Functionb8fde - - -Functionb8fc0: ; b8fc0 (2e:4fc0) - call Functionb8fd5 - call GetPokemonName - ret - -Functionb8fc7: ; b8fc7 (2e:4fc7) - call Functionb8fd5 - call GetItemName - ret - -Functionb8fce: ; b8fce (2e:4fce) - call Functionb8fd5 - call GetMoveName - ret - -Functionb8fd5: ; b8fd5 (2e:4fd5) - ld h, 0 - ld l, c - add hl, de - ld a, [hl] - ld [wd265], a - ret - -Functionb8fde: ; b8fde (2e:4fde) - ld a, c - and a - jr z, .asm_b8feb -.asm_b8fe2 - ld a, [de] - inc de - cp $50 - jr nz, .asm_b8fe2 - dec c - jr nz, .asm_b8fe2 -.asm_b8feb - ld hl, StringBuffer1 -.asm_b8fee - ld a, [de] - inc de - ld [hli], a - cp $50 - jr nz, .asm_b8fee - ld de, StringBuffer1 - ret -; b8ff9 (2e:4ff9) - -Unknown_b8ff9: ; b8ff9 - dw Unknown_b900f - dw Unknown_b9014 - dw Unknown_b9019 - dw Unknown_b901e - dw Unknown_b9023 - dw Unknown_b9028 - dw Unknown_b902d - dw Unknown_b905a - dw Unknown_b906d - dw Unknown_b9072 - dw Unknown_b9077 -; b900f - -Unknown_b900f: db 0, 10, CYNDAQUIL, TOTODILE, CHIKORITA -Unknown_b9014: db 1, 12, FRESH_WATER, SODA_POP, LEMONADE -Unknown_b9019: db 1, 12, POTION, ANTIDOTE, PARLYZ_HEAL -Unknown_b901e: db 1, 12, POKE_BALL, GREAT_BALL, ULTRA_BALL -Unknown_b9023: db 0, 10, PIKACHU, RATTATA, GEODUDE -Unknown_b9028: db 0, 10, HOOTHOOT, SPINARAK, DROWZEE -Unknown_b902d: db 3, 16, "NEW BARK TOWN@", "CHERRYGROVE CITY@", "AZALEA TOWN@" -Unknown_b905a: db 3, 6, "FLYING@", "BUG@", "GRASS@" -Unknown_b906d: db 2, 12, TACKLE, GROWL, MUD_SLAP -Unknown_b9072: db 1, 12, X_ATTACK, X_DEFEND, X_SPEED -Unknown_b9077: db 3, 13, "#MON Talk@", "#MON Music@", "Lucky Channel@" -; b909c - -Functionb909c: ; b909c (2e:509c) - ld hl, UnknownText_0xb9196 - ld a, $44 - jp Functionb9221 - -Functionb90a4: ; b90a4 (2e:50a4) - ld hl, UnknownText_0xb919b - ld a, $45 - jp Functionb9221 - -Functionb90ac: ; b90ac (2e:50ac) - call Functionb9169 - ld hl, UnknownText_0xb91a0 - jr c, Functionb90b9 - ld a, $4 - jp Functionb9221 - -Functionb90b9: ; b90b9 (2e:50b9) - push hl - ld hl, WeeklyFlags - res 7, [hl] - pop hl - ld a, $46 - jp Functionb9221 - -Functionb90c5: ; b90c5 (2e:50c5) - ld hl, WeeklyFlags - res 7, [hl] - ld hl, UnknownText_0xb91d2 - ld a, $47 - jp Functionb9221 - -Functionb90d2: ; b90d2 (2e:50d2) - ld hl, UnknownText_0xb91a5 - ld a, $48 - jp Functionb9221 - -Functionb90da: ; b90da (2e:50da) - ld hl, UnknownText_0xb91aa - ld a, $49 - jp Functionb9221 - -Functionb90e2: ; b90e2 (2e:50e2) - ld hl, UnknownText_0xb91af - ld a, $4a - jp Functionb9221 - -Functionb90ea: ; b90ea (2e:50ea) - ld hl, UnknownText_0xb91b4 - ld a, $4b - jp Functionb9221 - -Functionb90f2: ; b90f2 (2e:50f2) - ld hl, UnknownText_0xb91b9 - ld a, $4c - jp Functionb9221 - -Functionb90fa: ; b90fa (2e:50fa) - ld hl, UnknownText_0xb91be - ld a, $4d - jp Functionb9221 - -Functionb9102: ; b9102 (2e:5102) - ld hl, UnknownText_0xb91c3 - ld a, $4e - jp Functionb9221 - -Functionb910a: ; b910a (2e:510a) - ld hl, UnknownText_0xb91c8 - ld a, $4f - jp Functionb9221 - -Functionb9112: ; b9112 (2e:5112) - ld hl, UnknownText_0xb91cd - ld a, $50 - jp Functionb9221 - -Functionb911a: ; b911a (2e:511a) - ld hl, UnknownText_0xb91d2 - ld a, $51 - jp Functionb9221 - -Functionb9122: ; b9122 (2e:5122) - ld hl, UnknownText_0xb91d2 - ld a, $52 - jp Functionb9221 - -Functionb912a: ; b912a (2e:512a) - ld a, [hBGMapMode] ; $ff00+$d4 - push af - callba NoRadioMusic - callba NoRadioName - pop af - ld [hBGMapMode], a ; $ff00+$d4 - ld hl, WeeklyFlags - res 7, [hl] - ld a, $4 - ld [wd002], a - xor a - ld [wd005], a - ld hl, UnknownText_0xb91d7 - ld a, $53 - jp Functionb9221 - -Functionb9152: ; b9152 (2e:5152) - ld a, $4 - ld [wd002], a - xor a - ld [wd005], a - call Functionb9169 - jp nc, Functionb8f12 - ld hl, UnknownText_0xb91d7 - ld a, $53 - jp Functionb9221 - -Functionb9169: ; b9169 (2e:5169) - call UpdateTime - ld a, [hHours] ; $ff00+$94 - cp $12 - ret -; b9171 (2e:5171) - -String_b9171: - db "BUENA'S PASSWORD@" -; b9182 - -UnknownText_0xb9182: ; 0xb9182 - ; BUENA: BUENA here! - text_jump UnknownText_0x1bce72 - db "@" -; 0xb9187 - -UnknownText_0xb9187: ; 0xb9187 - ; Today's password! - text_jump UnknownText_0x1bce87 - db "@" -; 0xb918c - -UnknownText_0xb918c: ; 0xb918c - ; Let me think… It's - text_jump UnknownText_0x1bce9a - db "@" -; 0xb9191 - -UnknownText_0xb9191: ; 0xb9191 - ; @ ! - text_jump UnknownText_0x1bceae - db "@" -; 0xb9196 - -UnknownText_0xb9196: ; 0xb9196 - ; Don't forget it! - text_jump UnknownText_0x1bceb7 - db "@" -; 0xb919b - -UnknownText_0xb919b: ; 0xb919b - ; I'm in GOLDENROD's - text_jump UnknownText_0x1bcec9 - db "@" -; 0xb91a0 - -UnknownText_0xb91a0: ; 0xb91a0 - ; RADIO TOWER! - text_jump UnknownText_0x1bcedc - db "@" -; 0xb91a5 - -UnknownText_0xb91a5: ; 0xb91a5 - ; BUENA: Oh my… - text_jump UnknownText_0x1bceeb - db "@" -; 0xb91aa - -UnknownText_0xb91aa: ; 0xb91aa - ; It's midnight! I - text_jump UnknownText_0x1bcefb - db "@" -; 0xb91af - -UnknownText_0xb91af: ; 0xb91af - ; have to shut down! - text_jump UnknownText_0x1bcf0d - db "@" -; 0xb91b4 - -UnknownText_0xb91b4: ; 0xb91b4 - ; Thanks for tuning - text_jump UnknownText_0x1bcf22 - db "@" -; 0xb91b9 - -UnknownText_0xb91b9: ; 0xb91b9 - ; in to the end! But - text_jump UnknownText_0x1bcf36 - db "@" -; 0xb91be - -UnknownText_0xb91be: ; 0xb91be - ; don't stay up too - text_jump UnknownText_0x1bcf4b - db "@" -; 0xb91c3 - -UnknownText_0xb91c3: ; 0xb91c3 - ; late! Presented to - text_jump UnknownText_0x1bcf5e - db "@" -; 0xb91c8 - -UnknownText_0xb91c8: ; 0xb91c8 - ; you by DJ BUENA! - text_jump UnknownText_0x1bcf73 - db "@" -; 0xb91cd - -UnknownText_0xb91cd: ; 0xb91cd - ; I'm outta here! - text_jump UnknownText_0x1bcf86 - db "@" -; 0xb91d2 - -UnknownText_0xb91d2: ; 0xb91d2 - ; … - text_jump UnknownText_0x1bcf96 - db "@" -; 0xb91d7 - -UnknownText_0xb91d7: ; 0xb91d7 - ; - text_jump UnknownText_0x1bcf99 - db "@" -; 0xb91dc - -Functionb91dc: ; b91dc (2e:51dc) - ld a, [hl] - cp $16 ; TX_FAR - jp z, Function3a90 - ld de, wd00c - ld bc, $28 - jp CopyBytes - -Functionb91eb: ; b91eb (2e:51eb) - ld a, [wd005] - and a - ret nz - call Function1052 - call PrintText - ld hl, RadioChannelSongs - ld a, [wd002] - ld c, a - ld b, 0 -rept 2 - add hl, bc -endr - ld e, [hl] - inc hl - ld d, [hl] - callab Function91854 - ret -; b920b (2e:520b) - -RadioChannelSongs: ; b920b - dw MUSIC_POKEMON_TALK - dw MUSIC_POKEMON_CENTER - dw MUSIC_TITLE - dw MUSIC_GAME_CORNER - dw MUSIC_BUENAS_PASSWORD - dw MUSIC_VIRIDIAN_CITY - dw MUSIC_BICYCLE - dw MUSIC_ROCKET_OVERTURE - dw MUSIC_POKE_FLUTE_CHANNEL - dw MUSIC_RUINS_OF_ALPH_RADIO - dw MUSIC_LAKE_OF_RAGE_ROCKET_RADIO -; b9221 - -Functionb9221: ; b9221 (2e:5221) - push af - call Functionb91dc - pop af - jp Functionb86ea +INCLUDE "engine/radio.asm" Functionb9229: ; b9229 ld a, [CurPartyMon] |