pokecrystal-board/maps/MrPokemonsHouse.asm

401 lines
7.6 KiB
NASM
Raw Normal View History

2015-11-26 21:22:14 -08:00
const_value set 2
const MRPOKEMONSHOUSE_GENTLEMAN
const MRPOKEMONSHOUSE_OAK
2015-07-10 01:45:35 -07:00
MrPokemonsHouse_MapScriptHeader:
.MapTriggers:
db 2
; triggers
2016-01-06 13:59:56 -08:00
maptrigger .Trigger0
maptrigger .Trigger1
.MapCallbacks:
db 0
.Trigger0:
2016-01-06 13:59:56 -08:00
priorityjump .MrPokemonEvent
end
.Trigger1:
end
.MrPokemonEvent:
2015-11-26 21:22:14 -08:00
showemote EMOTE_SHOCK, MRPOKEMONSHOUSE_GENTLEMAN, 15
spriteface MRPOKEMONSHOUSE_GENTLEMAN, DOWN
2015-12-09 15:25:44 -08:00
opentext
2016-01-06 13:59:56 -08:00
writetext MrPokemonIntroText1
2015-11-25 07:16:29 -08:00
waitbutton
closetext
2016-01-06 13:59:56 -08:00
applymovement PLAYER, MrPokemonsHouse_PlayerWalksToMrPokemon
2015-12-09 15:25:44 -08:00
opentext
2016-01-06 13:59:56 -08:00
writetext MrPokemonIntroText2
2015-11-29 19:29:45 -08:00
buttonsound
2015-11-25 07:16:29 -08:00
waitsfx
2015-11-04 17:20:14 -08:00
giveitem MYSTERY_EGG
2016-01-06 13:59:56 -08:00
writetext MrPokemonsHouse_GotEggText
playsound SFX_KEY_ITEM
2015-11-25 07:16:29 -08:00
waitsfx
itemnotify
2013-09-24 00:48:58 -07:00
setevent EVENT_GOT_MYSTERY_EGG_FROM_MR_POKEMON
blackoutmod CHERRYGROVE_CITY
2016-01-06 13:59:56 -08:00
writetext MrPokemonIntroText3
2015-11-29 19:29:45 -08:00
buttonsound
2015-11-26 21:22:14 -08:00
spriteface MRPOKEMONSHOUSE_GENTLEMAN, RIGHT
2016-01-06 13:59:56 -08:00
writetext MrPokemonIntroText4
2015-11-29 19:29:45 -08:00
buttonsound
2015-11-26 21:22:14 -08:00
spriteface MRPOKEMONSHOUSE_GENTLEMAN, DOWN
spriteface MRPOKEMONSHOUSE_OAK, LEFT
2016-01-06 13:59:56 -08:00
writetext MrPokemonIntroText5
2015-11-25 07:16:29 -08:00
waitbutton
closetext
2016-01-06 13:59:56 -08:00
jump MrPokemonsHouse_OakScript
2016-01-06 13:59:56 -08:00
MrPokemonsHouse_MrPokemonScript:
faceplayer
2015-12-09 15:25:44 -08:00
opentext
checkitem RED_SCALE
2016-01-06 13:59:56 -08:00
iftrue .RedScale
2013-09-24 00:48:58 -07:00
checkevent EVENT_GAVE_MYSTERY_EGG_TO_ELM
2016-01-06 13:59:56 -08:00
iftrue .AlwaysNewDiscoveries
writetext MrPokemonText_ImDependingOnYou
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
.AlwaysNewDiscoveries:
2016-01-06 13:59:56 -08:00
writetext MrPokemonText_AlwaysNewDiscoveries
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
.RedScale:
2016-01-06 13:59:56 -08:00
writetext MrPokemonText_GimmeTheScale
yesorno
2016-01-06 13:59:56 -08:00
iffalse .refused
2015-11-04 17:20:14 -08:00
verbosegiveitem EXP_SHARE
2016-01-06 13:59:56 -08:00
iffalse .full
2015-11-04 17:20:14 -08:00
takeitem RED_SCALE
2016-01-06 13:59:56 -08:00
jump .AlwaysNewDiscoveries
2016-01-06 13:59:56 -08:00
.refused
writetext MrPokemonText_Disappointed
2015-11-25 07:16:29 -08:00
waitbutton
2016-01-06 13:59:56 -08:00
.full
2015-11-25 07:16:29 -08:00
closetext
end
2016-01-06 13:59:56 -08:00
MrPokemonsHouse_OakScript:
playmusic MUSIC_PROF_OAK
2016-01-06 13:59:56 -08:00
applymovement MRPOKEMONSHOUSE_OAK, MrPokemonsHouse_OakWalksToPlayer
spriteface PLAYER, RIGHT
2015-12-09 15:25:44 -08:00
opentext
2016-01-06 13:59:56 -08:00
writetext MrPokemonsHouse_OakText1
2015-11-29 19:29:45 -08:00
buttonsound
2015-11-25 07:16:29 -08:00
waitsfx
2016-01-06 13:59:56 -08:00
writetext MrPokemonsHouse_GetDexText
playsound SFX_ITEM
2015-11-25 07:16:29 -08:00
waitsfx
2015-07-10 05:08:03 -07:00
setflag ENGINE_POKEDEX
2016-01-06 13:59:56 -08:00
writetext MrPokemonsHouse_OakText2
2015-11-25 07:16:29 -08:00
waitbutton
closetext
spriteface PLAYER, DOWN
2016-01-06 13:59:56 -08:00
applymovement MRPOKEMONSHOUSE_OAK, MrPokemonsHouse_OakExits
playsound SFX_EXIT_BUILDING
2015-11-26 21:22:14 -08:00
disappear MRPOKEMONSHOUSE_OAK
2015-11-25 07:16:29 -08:00
waitsfx
special RestartMapMusic
pause 15
spriteface PLAYER, UP
2015-12-09 15:25:44 -08:00
opentext
2016-01-06 13:59:56 -08:00
writetext MrPokemonsHouse_MrPokemonHealText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
special Special_FadeBlackQuickly
special Special_ReloadSpritesNoPalettes
playmusic MUSIC_HEAL
special TrainerRankings_Healings
special HealParty
pause 60
2015-11-26 18:05:32 -08:00
special Special_FadeInQuickly
special RestartMapMusic
2015-12-09 15:25:44 -08:00
opentext
2016-01-06 13:59:56 -08:00
writetext MrPokemonText_ImDependingOnYou
2015-11-25 07:16:29 -08:00
waitbutton
closetext
setevent EVENT_RIVAL_NEW_BARK_TOWN
setevent EVENT_KRISS_HOUSE_1F_NEIGHBOR
clearevent EVENT_KRISS_NEIGHBORS_HOUSE_NEIGHBOR
dotrigger $1
domaptrigger CHERRYGROVE_CITY, $1
domaptrigger ELMS_LAB, $3
2015-10-24 07:34:19 -07:00
specialphonecall SPECIALCALL_ROBBED
clearevent EVENT_COP_IN_ELMS_LAB
2013-09-24 00:48:58 -07:00
checkevent EVENT_GOT_TOTODILE_FROM_ELM
2016-01-06 13:59:56 -08:00
iftrue .RivalTakesChikorita
2013-09-24 00:48:58 -07:00
checkevent EVENT_GOT_CHIKORITA_FROM_ELM
2016-01-06 13:59:56 -08: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
2015-07-10 01:45:35 -07:00
MapMrPokemonsHouseSignpost1Script:
2016-01-06 13:59:56 -08:00
jumptext MrPokemonsHouse_ForeignMagazinesText
2015-07-10 01:45:35 -07:00
MapMrPokemonsHouseSignpost3Script:
2016-01-06 13:59:56 -08:00
jumptext MrPokemonsHouse_BrokenComputerText
2015-07-10 01:45:35 -07:00
MapMrPokemonsHouseSignpost4Script:
2016-01-06 13:59:56 -08:00
jumptext MrPokemonsHouse_StrangeCoinsText
2016-01-06 13:59:56 -08:00
MrPokemonsHouse_PlayerWalksToMrPokemon:
2016-05-14 10:46:14 -07:00
step RIGHT
step UP
step_end
2016-01-06 13:59:56 -08:00
MrPokemonsHouse_OakWalksToPlayer:
2016-05-14 10:46:14 -07:00
step DOWN
step LEFT
step LEFT
step_end
2016-01-06 13:59:56 -08:00
MrPokemonsHouse_OakExits:
2016-05-14 10:46:14 -07:00
step DOWN
step LEFT
turn_head DOWN
db $3f ; movement
step_end
2016-01-06 13:59:56 -08:00
MrPokemonIntroText1:
text "Hello, hello! You"
line "must be <PLAY_G>."
para "PROF.ELM said that"
line "you would visit."
done
2016-01-06 13:59:56 -08:00
MrPokemonIntroText2:
text "This is what I"
line "want PROF.ELM to"
cont "examine."
done
2016-01-06 13:59:56 -08:00
MrPokemonsHouse_GotEggText:
text "<PLAYER> received"
line "MYSTERY EGG."
done
2016-01-06 13:59:56 -08: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 13:59:56 -08:00
MrPokemonIntroText4:
text "Even PROF.OAK here"
line "recognizes that."
done
2016-01-06 13:59:56 -08:00
MrPokemonIntroText5:
text "If my assumption"
line "is correct, PROF."
cont "ELM will know it."
done
2016-01-06 13:59:56 -08: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 13:59:56 -08:00
MrPokemonText_ImDependingOnYou:
text "I'm depending on"
line "you!"
done
2016-01-06 13:59:56 -08:00
MrPokemonText_AlwaysNewDiscoveries:
text "Life is delight-"
line "ful! Always, new"
para "discoveries to be"
line "made!"
done
2016-01-06 13:59:56 -08: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 13:59:56 -08:00
MrPokemonsHouse_GetDexText:
text "<PLAYER> received"
line "#DEX!"
done
2016-01-06 13:59:56 -08: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 13:59:56 -08: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 13:59:56 -08:00
MrPokemonText_Disappointed:
text "That's disappoint-"
line "ing. That happens"
cont "to be very rare."
done
2016-01-06 13:59:56 -08:00
MrPokemonsHouse_ForeignMagazinesText:
text "It's packed with"
line "foreign magazines."
para "Can't even read"
line "their titles…"
done
2016-01-06 13:59:56 -08:00
MrPokemonsHouse_BrokenComputerText:
text "It's a big com-"
line "puter. Hmm. It's"
cont "broken."
done
2016-01-06 13:59:56 -08:00
MrPokemonsHouse_StrangeCoinsText:
text "A whole pile of"
line "strange coins!"
para "Maybe they're from"
line "another country…"
done
2015-07-10 01:45:35 -07:00
MrPokemonsHouse_MapEventHeader:
; filler
db 0, 0
.Warps:
db 2
warp_def $7, $2, 2, ROUTE_30
warp_def $7, $3, 2, ROUTE_30
.XYTriggers:
db 0
.Signposts:
db 5
signpost 1, 0, SIGNPOST_READ, MapMrPokemonsHouseSignpost1Script
signpost 1, 1, SIGNPOST_READ, MapMrPokemonsHouseSignpost1Script
signpost 1, 6, SIGNPOST_READ, MapMrPokemonsHouseSignpost3Script
signpost 1, 7, SIGNPOST_READ, MapMrPokemonsHouseSignpost3Script
signpost 4, 6, SIGNPOST_READ, MapMrPokemonsHouseSignpost4Script
.PersonEvents:
db 2
2016-01-06 13:59:56 -08:00
person_event SPRITE_GENTLEMAN, 5, 3, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, PERSONTYPE_SCRIPT, 0, MrPokemonsHouse_MrPokemonScript, -1
person_event SPRITE_OAK, 5, 6, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, PERSONTYPE_SCRIPT, 0, ObjectEvent, EVENT_MR_POKEMONS_HOUSE_OAK