pokecrystal-board/maps/MrPokemonsHouse.asm

392 lines
7.6 KiB
NASM

const_value set 2
const MRPOKEMONSHOUSE_GENTLEMAN
const MRPOKEMONSHOUSE_OAK
MrPokemonsHouse_MapScripts:
db 2 ; scene scripts
scene_script .MeetMrPokemon
scene_script .DummyScene
db 0 ; callbacks
.MeetMrPokemon:
priorityjump .MrPokemonEvent
end
.DummyScene:
end
.MrPokemonEvent:
showemote EMOTE_SHOCK, MRPOKEMONSHOUSE_GENTLEMAN, 15
spriteface MRPOKEMONSHOUSE_GENTLEMAN, DOWN
opentext
writetext MrPokemonIntroText1
waitbutton
closetext
applymovement PLAYER, MrPokemonsHouse_PlayerWalksToMrPokemon
opentext
writetext MrPokemonIntroText2
buttonsound
waitsfx
giveitem MYSTERY_EGG
writetext MrPokemonsHouse_GotEggText
playsound SFX_KEY_ITEM
waitsfx
itemnotify
setevent EVENT_GOT_MYSTERY_EGG_FROM_MR_POKEMON
blackoutmod CHERRYGROVE_CITY
writetext MrPokemonIntroText3
buttonsound
spriteface MRPOKEMONSHOUSE_GENTLEMAN, RIGHT
writetext MrPokemonIntroText4
buttonsound
spriteface MRPOKEMONSHOUSE_GENTLEMAN, DOWN
spriteface MRPOKEMONSHOUSE_OAK, LEFT
writetext MrPokemonIntroText5
waitbutton
closetext
jump MrPokemonsHouse_OakScript
MrPokemonsHouse_MrPokemonScript:
faceplayer
opentext
checkitem RED_SCALE
iftrue .RedScale
checkevent EVENT_GAVE_MYSTERY_EGG_TO_ELM
iftrue .AlwaysNewDiscoveries
writetext MrPokemonText_ImDependingOnYou
waitbutton
closetext
end
.AlwaysNewDiscoveries:
writetext MrPokemonText_AlwaysNewDiscoveries
waitbutton
closetext
end
.RedScale:
writetext MrPokemonText_GimmeTheScale
yesorno
iffalse .refused
verbosegiveitem EXP_SHARE
iffalse .full
takeitem RED_SCALE
jump .AlwaysNewDiscoveries
.refused
writetext MrPokemonText_Disappointed
waitbutton
.full
closetext
end
MrPokemonsHouse_OakScript:
playmusic MUSIC_PROF_OAK
applymovement MRPOKEMONSHOUSE_OAK, MrPokemonsHouse_OakWalksToPlayer
spriteface PLAYER, RIGHT
opentext
writetext MrPokemonsHouse_OakText1
buttonsound
waitsfx
writetext MrPokemonsHouse_GetDexText
playsound SFX_ITEM
waitsfx
setflag ENGINE_POKEDEX
writetext MrPokemonsHouse_OakText2
waitbutton
closetext
spriteface PLAYER, DOWN
applymovement MRPOKEMONSHOUSE_OAK, MrPokemonsHouse_OakExits
playsound SFX_EXIT_BUILDING
disappear MRPOKEMONSHOUSE_OAK
waitsfx
special RestartMapMusic
pause 15
spriteface PLAYER, UP
opentext
writetext MrPokemonsHouse_MrPokemonHealText
waitbutton
closetext
special FadeBlackQuickly
special ReloadSpritesNoPalettes
playmusic MUSIC_HEAL
special StubbedTrainerRankings_Healings
special HealParty
pause 60
special FadeInQuickly
special RestartMapMusic
opentext
writetext MrPokemonText_ImDependingOnYou
waitbutton
closetext
setevent EVENT_RIVAL_NEW_BARK_TOWN
setevent EVENT_PLAYERS_HOUSE_1F_NEIGHBOR
clearevent EVENT_PLAYERS_NEIGHBORS_HOUSE_NEIGHBOR
setscene 1
setmapscene CHERRYGROVE_CITY, 1
setmapscene ELMS_LAB, 3
specialphonecall SPECIALCALL_ROBBED
clearevent EVENT_COP_IN_ELMS_LAB
checkevent EVENT_GOT_TOTODILE_FROM_ELM
iftrue .RivalTakesChikorita
checkevent EVENT_GOT_CHIKORITA_FROM_ELM
iftrue .RivalTakesCyndaquil
setevent EVENT_TOTODILE_POKEBALL_IN_ELMS_LAB
end
.RivalTakesChikorita:
setevent EVENT_CHIKORITA_POKEBALL_IN_ELMS_LAB
end
.RivalTakesCyndaquil:
setevent EVENT_CYNDAQUIL_POKEBALL_IN_ELMS_LAB
end
MapMrPokemonsHouseSignpost1Script:
jumptext MrPokemonsHouse_ForeignMagazinesText
MapMrPokemonsHouseSignpost3Script:
jumptext MrPokemonsHouse_BrokenComputerText
MapMrPokemonsHouseSignpost4Script:
jumptext MrPokemonsHouse_StrangeCoinsText
MrPokemonsHouse_PlayerWalksToMrPokemon:
step RIGHT
step UP
step_end
MrPokemonsHouse_OakWalksToPlayer:
step DOWN
step LEFT
step LEFT
step_end
MrPokemonsHouse_OakExits:
step DOWN
step LEFT
turn_head DOWN
step_sleep 2
step_end
MrPokemonIntroText1:
text "Hello, hello! You"
line "must be <PLAY_G>."
para "PROF.ELM said that"
line "you would visit."
done
MrPokemonIntroText2:
text "This is what I"
line "want PROF.ELM to"
cont "examine."
done
MrPokemonsHouse_GotEggText:
text "<PLAYER> received"
line "MYSTERY EGG."
done
MrPokemonIntroText3:
text "I know a couple"
line "who run a #MON"
cont "DAY-CARE service."
para "They gave me that"
line "EGG."
para "I was intrigued,"
line "so I sent mail to"
cont "PROF.ELM."
para "For #MON evolu-"
line "tion, PROF.ELM is"
cont "the authority."
done
MrPokemonIntroText4:
text "Even PROF.OAK here"
line "recognizes that."
done
MrPokemonIntroText5:
text "If my assumption"
line "is correct, PROF."
cont "ELM will know it."
done
MrPokemonsHouse_MrPokemonHealText:
text "You are returning"
line "to PROF.ELM?"
para "Here. Your #MON"
line "should have some"
cont "rest."
done
MrPokemonText_ImDependingOnYou:
text "I'm depending on"
line "you!"
done
MrPokemonText_AlwaysNewDiscoveries:
text "Life is delight-"
line "ful! Always, new"
para "discoveries to be"
line "made!"
done
MrPokemonsHouse_OakText1:
text "OAK: Aha! So"
line "you're <PLAY_G>!"
para "I'm OAK! A #MON"
line "researcher."
para "I was just visit-"
line "ing my old friend"
cont "MR.#MON."
para "I heard you were"
line "running an errand"
para "for PROF.ELM, so I"
line "waited here."
para "Oh! What's this?"
line "A rare #MON!"
para "Let's see…"
para "Hm, I see!"
para "I understand why"
line "PROF.ELM gave you"
para "a #MON for this"
line "errand."
para "To researchers"
line "like PROF.ELM and"
para "I, #MON are our"
line "friends."
para "He saw that you"
line "would treat your"
para "#MON with love"
line "and care."
para "…Ah!"
para "You seem to be"
line "dependable."
para "How would you like"
line "to help me out?"
para "See? This is the"
line "latest version of"
cont "#DEX."
para "It automatically"
line "records data on"
para "#MON you've"
line "seen or caught."
para "It's a hi-tech"
line "encyclopedia!"
done
MrPokemonsHouse_GetDexText:
text "<PLAYER> received"
line "#DEX!"
done
MrPokemonsHouse_OakText2:
text "Go meet many kinds"
line "of #MON and"
para "complete that"
line "#DEX!"
para "But I've stayed"
line "too long."
para "I have to get to"
line "GOLDENROD for my"
cont "usual radio show."
para "<PLAY_G>, I'm"
line "counting on you!"
done
MrPokemonText_GimmeTheScale:
text "Hm? That SCALE!"
line "What's that?"
cont "A red GYARADOS?"
para "That's rare! "
line "I, I want it…"
para "<PLAY_G>, would you"
line "care to trade it?"
para "I can offer this"
line "EXP.SHARE I got"
cont "from PROF.OAK."
done
MrPokemonText_Disappointed:
text "That's disappoint-"
line "ing. That happens"
cont "to be very rare."
done
MrPokemonsHouse_ForeignMagazinesText:
text "It's packed with"
line "foreign magazines."
para "Can't even read"
line "their titles…"
done
MrPokemonsHouse_BrokenComputerText:
text "It's a big com-"
line "puter. Hmm. It's"
cont "broken."
done
MrPokemonsHouse_StrangeCoinsText:
text "A whole pile of"
line "strange coins!"
para "Maybe they're from"
line "another country…"
done
MrPokemonsHouse_MapEvents:
db 0, 0 ; filler
db 2 ; warp events
warp_event 2, 7, 2, ROUTE_30
warp_event 3, 7, 2, ROUTE_30
db 0 ; coord events
db 5 ; bg events
bg_event 0, 1, BGEVENT_READ, MapMrPokemonsHouseSignpost1Script
bg_event 1, 1, BGEVENT_READ, MapMrPokemonsHouseSignpost1Script
bg_event 6, 1, BGEVENT_READ, MapMrPokemonsHouseSignpost3Script
bg_event 7, 1, BGEVENT_READ, MapMrPokemonsHouseSignpost3Script
bg_event 6, 4, BGEVENT_READ, MapMrPokemonsHouseSignpost4Script
db 2 ; object events
object_event 3, 5, SPRITE_GENTLEMAN, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, MrPokemonsHouse_MrPokemonScript, -1
object_event 6, 5, SPRITE_OAK, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_MR_POKEMONS_HOUSE_OAK