pokecrystal/maps/MrPokemonsHouse.asm

392 lines
7.6 KiB
NASM
Raw Normal View History

object_const_def
2015-11-27 05:22:14 +00:00
const MRPOKEMONSHOUSE_GENTLEMAN
const MRPOKEMONSHOUSE_OAK
MrPokemonsHouse_MapScripts:
def_scene_scripts
scene_script .MeetMrPokemon ; SCENE_DEFAULT
scene_script .DummyScene ; SCENE_FINISHED
def_callbacks
.MeetMrPokemon:
prioritysjump .MrPokemonEvent
end
.DummyScene:
end
.MrPokemonEvent:
2015-11-27 05:22:14 +00:00
showemote EMOTE_SHOCK, MRPOKEMONSHOUSE_GENTLEMAN, 15
turnobject MRPOKEMONSHOUSE_GENTLEMAN, DOWN
2015-12-09 23:25:44 +00:00
opentext
2016-01-06 21:59:56 +00:00
writetext MrPokemonIntroText1
2015-11-25 15:16:29 +00:00
waitbutton
closetext
2016-01-06 21:59:56 +00:00
applymovement PLAYER, MrPokemonsHouse_PlayerWalksToMrPokemon
2015-12-09 23:25:44 +00:00
opentext
2016-01-06 21:59:56 +00:00
writetext MrPokemonIntroText2
2019-11-03 17:48:54 +00:00
promptbutton
2015-11-25 15:16:29 +00:00
waitsfx
2015-11-05 01:20:14 +00:00
giveitem MYSTERY_EGG
2016-01-06 21:59:56 +00:00
writetext MrPokemonsHouse_GotEggText
playsound SFX_KEY_ITEM
2015-11-25 15:16:29 +00:00
waitsfx
itemnotify
2013-09-24 07:48:58 +00:00
setevent EVENT_GOT_MYSTERY_EGG_FROM_MR_POKEMON
blackoutmod CHERRYGROVE_CITY
2016-01-06 21:59:56 +00:00
writetext MrPokemonIntroText3
2019-11-03 17:48:54 +00:00
promptbutton
turnobject MRPOKEMONSHOUSE_GENTLEMAN, RIGHT
2016-01-06 21:59:56 +00:00
writetext MrPokemonIntroText4
2019-11-03 17:48:54 +00:00
promptbutton
turnobject MRPOKEMONSHOUSE_GENTLEMAN, DOWN
turnobject MRPOKEMONSHOUSE_OAK, LEFT
2016-01-06 21:59:56 +00:00
writetext MrPokemonIntroText5
2015-11-25 15:16:29 +00:00
waitbutton
closetext
sjump MrPokemonsHouse_OakScript
2016-01-06 21:59:56 +00:00
MrPokemonsHouse_MrPokemonScript:
faceplayer
2015-12-09 23:25:44 +00:00
opentext
checkitem RED_SCALE
2016-01-06 21:59:56 +00:00
iftrue .RedScale
2013-09-24 07:48:58 +00:00
checkevent EVENT_GAVE_MYSTERY_EGG_TO_ELM
2016-01-06 21:59:56 +00:00
iftrue .AlwaysNewDiscoveries
writetext MrPokemonText_ImDependingOnYou
2015-11-25 15:16:29 +00:00
waitbutton
closetext
end
.AlwaysNewDiscoveries:
2016-01-06 21:59:56 +00:00
writetext MrPokemonText_AlwaysNewDiscoveries
2015-11-25 15:16:29 +00:00
waitbutton
closetext
end
.RedScale:
2016-01-06 21:59:56 +00:00
writetext MrPokemonText_GimmeTheScale
yesorno
2016-01-06 21:59:56 +00:00
iffalse .refused
2015-11-05 01:20:14 +00:00
verbosegiveitem EXP_SHARE
2016-01-06 21:59:56 +00:00
iffalse .full
2015-11-05 01:20:14 +00:00
takeitem RED_SCALE
sjump .AlwaysNewDiscoveries
2016-01-06 21:59:56 +00:00
.refused
writetext MrPokemonText_Disappointed
2015-11-25 15:16:29 +00:00
waitbutton
2016-01-06 21:59:56 +00:00
.full
2015-11-25 15:16:29 +00:00
closetext
end
2016-01-06 21:59:56 +00:00
MrPokemonsHouse_OakScript:
playmusic MUSIC_PROF_OAK
2016-01-06 21:59:56 +00:00
applymovement MRPOKEMONSHOUSE_OAK, MrPokemonsHouse_OakWalksToPlayer
turnobject PLAYER, RIGHT
2015-12-09 23:25:44 +00:00
opentext
2016-01-06 21:59:56 +00:00
writetext MrPokemonsHouse_OakText1
2019-11-03 17:48:54 +00:00
promptbutton
2015-11-25 15:16:29 +00:00
waitsfx
2016-01-06 21:59:56 +00:00
writetext MrPokemonsHouse_GetDexText
playsound SFX_ITEM
2015-11-25 15:16:29 +00:00
waitsfx
2015-07-10 12:08:03 +00:00
setflag ENGINE_POKEDEX
2016-01-06 21:59:56 +00:00
writetext MrPokemonsHouse_OakText2
2015-11-25 15:16:29 +00:00
waitbutton
closetext
turnobject PLAYER, DOWN
2016-01-06 21:59:56 +00:00
applymovement MRPOKEMONSHOUSE_OAK, MrPokemonsHouse_OakExits
playsound SFX_EXIT_BUILDING
2015-11-27 05:22:14 +00:00
disappear MRPOKEMONSHOUSE_OAK
2015-11-25 15:16:29 +00:00
waitsfx
special RestartMapMusic
pause 15
turnobject PLAYER, UP
2015-12-09 23:25:44 +00:00
opentext
2016-01-06 21:59:56 +00:00
writetext MrPokemonsHouse_MrPokemonHealText
2015-11-25 15:16:29 +00:00
waitbutton
closetext
special FadeBlackQuickly
2018-01-02 17:49:25 +00:00
special ReloadSpritesNoPalettes
playmusic MUSIC_HEAL
special StubbedTrainerRankings_Healings
special HealParty
pause 60
special FadeInQuickly
special RestartMapMusic
2015-12-09 23:25:44 +00:00
opentext
2016-01-06 21:59:56 +00:00
writetext MrPokemonText_ImDependingOnYou
2015-11-25 15:16:29 +00:00
waitbutton
closetext
setevent EVENT_RIVAL_NEW_BARK_TOWN
2018-01-23 00:10:09 +00:00
setevent EVENT_PLAYERS_HOUSE_1F_NEIGHBOR
clearevent EVENT_PLAYERS_NEIGHBORS_HOUSE_NEIGHBOR
setscene SCENE_FINISHED
setmapscene CHERRYGROVE_CITY, SCENE_CHERRYGROVECITY_MEET_RIVAL
setmapscene ELMS_LAB, SCENE_ELMSLAB_MEET_OFFICER
2015-10-24 14:34:19 +00:00
specialphonecall SPECIALCALL_ROBBED
clearevent EVENT_COP_IN_ELMS_LAB
2013-09-24 07:48:58 +00:00
checkevent EVENT_GOT_TOTODILE_FROM_ELM
2016-01-06 21:59:56 +00:00
iftrue .RivalTakesChikorita
2013-09-24 07:48:58 +00:00
checkevent EVENT_GOT_CHIKORITA_FROM_ELM
2016-01-06 21:59:56 +00:00
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
MrPokemonsHouse_ForeignMagazines:
2016-01-06 21:59:56 +00:00
jumptext MrPokemonsHouse_ForeignMagazinesText
MrPokemonsHouse_BrokenComputer:
2016-01-06 21:59:56 +00:00
jumptext MrPokemonsHouse_BrokenComputerText
MrPokemonsHouse_StrangeCoins:
2016-01-06 21:59:56 +00:00
jumptext MrPokemonsHouse_StrangeCoinsText
2016-01-06 21:59:56 +00:00
MrPokemonsHouse_PlayerWalksToMrPokemon:
2016-05-14 17:46:14 +00:00
step RIGHT
step UP
step_end
2016-01-06 21:59:56 +00:00
MrPokemonsHouse_OakWalksToPlayer:
2016-05-14 17:46:14 +00:00
step DOWN
step LEFT
step LEFT
step_end
2016-01-06 21:59:56 +00:00
MrPokemonsHouse_OakExits:
2016-05-14 17:46:14 +00:00
step DOWN
step LEFT
turn_head DOWN
step_sleep 2
step_end
2016-01-06 21:59:56 +00:00
MrPokemonIntroText1:
text "Hello, hello! You"
line "must be <PLAY_G>."
para "PROF.ELM said that"
line "you would visit."
done
2016-01-06 21:59:56 +00:00
MrPokemonIntroText2:
text "This is what I"
line "want PROF.ELM to"
cont "examine."
done
2016-01-06 21:59:56 +00:00
MrPokemonsHouse_GotEggText:
text "<PLAYER> received"
line "MYSTERY EGG."
done
2016-01-06 21:59:56 +00:00
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
2016-01-06 21:59:56 +00:00
MrPokemonIntroText4:
text "Even PROF.OAK here"
line "recognizes that."
done
2016-01-06 21:59:56 +00:00
MrPokemonIntroText5:
text "If my assumption"
line "is correct, PROF."
cont "ELM will know it."
done
2016-01-06 21:59:56 +00:00
MrPokemonsHouse_MrPokemonHealText:
text "You are returning"
line "to PROF.ELM?"
para "Here. Your #MON"
line "should have some"
cont "rest."
done
2016-01-06 21:59:56 +00:00
MrPokemonText_ImDependingOnYou:
text "I'm depending on"
line "you!"
done
2016-01-06 21:59:56 +00:00
MrPokemonText_AlwaysNewDiscoveries:
text "Life is delight-"
line "ful! Always, new"
para "discoveries to be"
line "made!"
done
2016-01-06 21:59:56 +00:00
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
2016-01-06 21:59:56 +00:00
MrPokemonsHouse_GetDexText:
text "<PLAYER> received"
line "#DEX!"
done
2016-01-06 21:59:56 +00:00
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
2016-01-06 21:59:56 +00:00
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
2016-01-06 21:59:56 +00:00
MrPokemonText_Disappointed:
text "That's disappoint-"
line "ing. That happens"
cont "to be very rare."
done
2016-01-06 21:59:56 +00:00
MrPokemonsHouse_ForeignMagazinesText:
text "It's packed with"
line "foreign magazines."
para "Can't even read"
line "their titles…"
done
2016-01-06 21:59:56 +00:00
MrPokemonsHouse_BrokenComputerText:
text "It's a big com-"
line "puter. Hmm. It's"
cont "broken."
done
2016-01-06 21:59:56 +00:00
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
def_warp_events
2018-02-02 03:22:07 +00:00
warp_event 2, 7, ROUTE_30, 2
warp_event 3, 7, ROUTE_30, 2
def_coord_events
def_bg_events
bg_event 0, 1, BGEVENT_READ, MrPokemonsHouse_ForeignMagazines
bg_event 1, 1, BGEVENT_READ, MrPokemonsHouse_ForeignMagazines
bg_event 6, 1, BGEVENT_READ, MrPokemonsHouse_BrokenComputer
bg_event 7, 1, BGEVENT_READ, MrPokemonsHouse_BrokenComputer
bg_event 6, 4, BGEVENT_READ, MrPokemonsHouse_StrangeCoins
def_object_events
2018-02-02 03:22:07 +00:00
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