Skeetendo

; 9166C
$10,$5685
$1C,$5694
$20,$569C
$34,$56A4
$40,$56AE
$48,$56B6
$4E,$56BE
$50,$56CD
$FF

; 91685
; Play the Pokédex show in the morning, and Oak’s Pokémon Talk the rest of the
; time.
call IsPlayerInJohto
jr nc,+$5C ; to 916E6
ld a,[$D157]
and a
jp z,$570C ; play the Pokédex show
jp $56F9 ; play Oak’s Pokémon Talk

; 91694
call IsPlayerInJohto
jr nc,+$4D ; to 916E6
jp $5721 ; play Pokémon Music

; 9169C
call IsPlayerInJohto
jr nc,+$45 ; to 916E6
jp $5736 ; play the Lucky Channel

; 916A4
ld a,[$C5D8]
cp $9 ; check if in Ruins of Alph
jr nz,+$3B ; to 916E6
jp $574B ; play the Ruins of Alph broadcast

; 916AE
call IsPlayerInJohto
jr c,+$33 ; to 916E6
jp $5760 ; play Places & People

; 916B6
call IsPlayerInJohto
jr c,+$2B ; to 916E6
jp $5775 ; play Pokémusic

; 916BE
call IsPlayerInJohto
jr c,+$23 ; to 916E6
ld a,[$D67C]
bit 3,a
jr z,+$1C ; to 916E6
jp $579F ; play Poké Flute

; 916CD
; If Team Rocket has not been defeated and the player is in the vicinity of
; Lake of Rage, play the evolution broadcast.
ld a,[$D571]
bit 4,a
jr z,+$12 ; to 916E6
ld a,[$C5D8]
cp $23
jr z,+$8 ; to 916E3
cp $24
jr z,+$4 ; to 916E3
cp $25
jr nz,+$3 ; to 916E6
jp $57B4 ; play (916E3)

; 916E6
call $57FE
ret

; -----


; load $CEED with the show that will play:
; 00 Oak’s Pokémon Talk
; 01 Pokédex Show
; 02 Pokémon Music
; 03 Lucky Channel
; 04 Places & People
; 05 Pokémusic
; 06 Rocket broadcast
; 07 Poké Flute
; 08 Unown broadcast
; 09 Evolution broadcast

xor a ; 916F9, or 91753 in Crystal
ld [$CEED],a ; D002 in Crystal
ld [$CEF0],a ; D005 in Crystal
ld a,$2E
ld hl,$65BD
call $57F2
ld de,$582D ; pointer to "Oak's Pokemon Talk"
ret

ld a,1 ; 9170C
ld [$CEED],a
xor a
ld [$CEF0],a
ld a,$2E
ld hl,$65BD
call $57F2
ld de,$583A ; pointer to "Pokedex Show"
ret

ld a,2 ; 91721
ld [$CEED],a
xor a
ld [$CEF0],a
ld a,$2E
ld hl,$65BD
call $57F2
ld de,$5844 ; pointer to "Pokémon Music"
ret

ld a,3 ; 91736
ld [$CEED],a
xor a
ld [$CEF0],a
ld a,$2E
ld hl,$65BD
call $57F2
ld de,$584F ; pointer to "Lucky Channel"
ret

ld a,8 ; 9174B
ld [$CEED],a
xor a
ld [$CEF0],a
ld a,$2E
ld hl,$65BD
call $57F2
ld hl,$585D ; pointer to "?????"
ret

ld a,4 ; 91760
ld [$CEED],a
xor a
ld [$CEF0],a
ld a,$2E
ld hl,$65BD
call $57F2
ld de,$5863 ; pointer to "Places & People"
ret

ld a,5 ; 91775
ld [$CEED],a
xor a
ld [$CEF0],a
ld a,$2E
ld hl,$65BD
call $57F2
ld de,$5873 ; pointer to "Let's All Sing"
ret

ld a,6 ; 9178A
ld [$CEED],a
xor a
ld [$CEF0],a
ld a,$2E
ld hl,$65BD
call $57F2
ld de,$5873 ; pointer to "Let's All Sing"
ret

ld a,7 ; 9179F
ld [$CEED],a
xor a
ld [$CEF0],a
ld a,$2E
ld hl,$65BD
call $57F2
ld de,$5882 ; pointer to "Poke Flute"
ret

ld a,9 ; 917B4
ld [$CEED],a
xor a
ld [$CEF0],a
ld a,$2E
ld hl,$65BD
call $57F2
ld de,$585D ; pointer to "?????"
ret

ret ; 917C9

; 57F2: copy a, l, h to $C5D9, $C5DA, $C5DB

IsPlayerInJohto: ; 56EA
; region check: if in Johto, set carry
ld a,[$C5D8]
cp $5E ; on S.S. Aqua
jr z,+$6
cp $2E
jr c,+$2
and a
ret
scf
ret