pokecrystal/maps/PlayersNeighborsHouse.asm

116 lines
2.5 KiB
NASM

object_const_def ; object_event constants
const PLAYERSNEIGHBORSHOUSE_COOLTRAINER_F
const PLAYERSNEIGHBORSHOUSE_POKEFAN_F
PlayersNeighborsHouse_MapScripts:
db 0 ; scene scripts
db 0 ; callbacks
PlayersNeighborsDaughterScript:
jumptextfaceplayer PlayersNeighborsDaughterText
PlayersNeighborScript:
jumptextfaceplayer PlayersNeighborText
PlayersNeighborsHouseBookshelfScript:
jumpstd MagazineBookshelfScript
PlayersNeighborsHouseRadioScript:
checkevent EVENT_GOT_A_POKEMON_FROM_ELM
iftrue .NormalRadio
checkevent EVENT_LISTENED_TO_INITIAL_RADIO
iftrue .AbbreviatedRadio
playmusic MUSIC_POKEMON_TALK
opentext
writetext PlayerNeighborRadioText1
pause 45
writetext PlayerNeighborRadioText2
pause 45
writetext PlayerNeighborRadioText3
pause 45
musicfadeout MUSIC_NEW_BARK_TOWN, 16
writetext PlayerNeighborRadioText4
pause 45
closetext
setevent EVENT_LISTENED_TO_INITIAL_RADIO
end
.NormalRadio:
jumpstd Radio1Script
.AbbreviatedRadio:
opentext
writetext PlayerNeighborRadioText4
pause 45
closetext
end
PlayersNeighborsDaughterText:
text "PIKACHU is an"
line "evolved #MON."
para "I was amazed by"
line "PROF.ELM's find-"
cont "ings."
para "He's so famous for"
line "his research on"
cont "#MON evolution."
para "…sigh…"
para "I wish I could be"
line "a researcher like"
cont "him…"
done
PlayersNeighborText:
text "My daughter is"
line "adamant about"
para "becoming PROF."
line "ELM's assistant."
para "She really loves"
line "#MON!"
para "But then, so do I!"
done
PlayerNeighborRadioText1:
text "PROF.OAK'S #MON"
line "TALK! Please tune"
cont "in next time!"
done
PlayerNeighborRadioText2:
text "#MON CHANNEL!"
done
PlayerNeighborRadioText3:
text "This is DJ MARY,"
line "your co-host!"
done
PlayerNeighborRadioText4:
text "#MON!"
line "#MON CHANNEL…"
done
PlayersNeighborsHouse_MapEvents:
db 0, 0 ; filler
db 2 ; warp events
warp_event 2, 7, NEW_BARK_TOWN, 3
warp_event 3, 7, NEW_BARK_TOWN, 3
db 0 ; coord events
db 3 ; bg events
bg_event 0, 1, BGEVENT_READ, PlayersNeighborsHouseBookshelfScript
bg_event 1, 1, BGEVENT_READ, PlayersNeighborsHouseBookshelfScript
bg_event 7, 1, BGEVENT_READ, PlayersNeighborsHouseRadioScript
db 2 ; object events
object_event 2, 3, SPRITE_COOLTRAINER_F, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, PlayersNeighborsDaughterScript, -1
object_event 5, 3, SPRITE_POKEFAN_F, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, PlayersNeighborScript, EVENT_PLAYERS_NEIGHBORS_HOUSE_NEIGHBOR