mirror of https://github.com/pret/pokecrystal.git
392 lines
7.7 KiB
NASM
392 lines
7.7 KiB
NASM
const_def 2 ; object constants
|
|
const MRPOKEMONSHOUSE_GENTLEMAN
|
|
const MRPOKEMONSHOUSE_OAK
|
|
|
|
MrPokemonsHouse_MapScripts:
|
|
db 2 ; scene scripts
|
|
scene_script .MeetMrPokemon ; SCENE_DEFAULT
|
|
scene_script .DummyScene ; SCENE_FINISHED
|
|
|
|
db 0 ; callbacks
|
|
|
|
.MeetMrPokemon:
|
|
priorityjump .MrPokemonEvent
|
|
end
|
|
|
|
.DummyScene:
|
|
end
|
|
|
|
.MrPokemonEvent:
|
|
showemote EMOTE_SHOCK, MRPOKEMONSHOUSE_GENTLEMAN, 15
|
|
objectface 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
|
|
objectface MRPOKEMONSHOUSE_GENTLEMAN, RIGHT
|
|
writetext MrPokemonIntroText4
|
|
buttonsound
|
|
objectface MRPOKEMONSHOUSE_GENTLEMAN, DOWN
|
|
objectface 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
|
|
objectface PLAYER, RIGHT
|
|
opentext
|
|
writetext MrPokemonsHouse_OakText1
|
|
buttonsound
|
|
waitsfx
|
|
writetext MrPokemonsHouse_GetDexText
|
|
playsound SFX_ITEM
|
|
waitsfx
|
|
setflag ENGINE_POKEDEX
|
|
writetext MrPokemonsHouse_OakText2
|
|
waitbutton
|
|
closetext
|
|
objectface PLAYER, DOWN
|
|
applymovement MRPOKEMONSHOUSE_OAK, MrPokemonsHouse_OakExits
|
|
playsound SFX_EXIT_BUILDING
|
|
disappear MRPOKEMONSHOUSE_OAK
|
|
waitsfx
|
|
special RestartMapMusic
|
|
pause 15
|
|
objectface 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 SCENE_FINISHED
|
|
setmapscene CHERRYGROVE_CITY, SCENE_CHERRYGROVECITY_MEET_RIVAL
|
|
setmapscene ELMS_LAB, SCENE_ELMSLAB_MEET_OFFICER
|
|
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, ROUTE_30, 2
|
|
warp_event 3, 7, ROUTE_30, 2
|
|
|
|
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
|