mirror of https://github.com/pret/pokecrystal.git
367 lines
7.1 KiB
NASM
367 lines
7.1 KiB
NASM
const_def 2 ; object constants
|
|
const BILLSHOUSE_GRAMPS
|
|
|
|
BillsHouse_MapScripts:
|
|
db 0 ; scene scripts
|
|
|
|
db 0 ; callbacks
|
|
|
|
BillsGrandpa:
|
|
faceplayer
|
|
opentext
|
|
checkevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
|
|
iftrue .JustShowedSomething
|
|
checkevent EVENT_GOT_THUNDERSTONE_FROM_BILLS_GRANDPA
|
|
iftrue .GotThunderstone
|
|
checkevent EVENT_MET_BILLS_GRANDPA
|
|
iftrue .MetGrandpa
|
|
writetext BillsGrandpaIntroText
|
|
buttonsound
|
|
setevent EVENT_MET_BILLS_GRANDPA
|
|
.MetGrandpa:
|
|
checkevent EVENT_SHOWED_PICHU_TO_BILLS_GRANDPA
|
|
iftrue .ShowedPichu
|
|
checkevent EVENT_SHOWED_GROWLITHE_VULPIX_TO_BILLS_GRANDPA
|
|
iftrue .ShowedGrowlitheVulpix
|
|
checkevent EVENT_SHOWED_STARYU_TO_BILLS_GRANDPA
|
|
iftrue .ShowedStaryu
|
|
checkevent EVENT_SHOWED_ODDISH_TO_BILLS_GRANDPA
|
|
iftrue .ShowedOddish
|
|
checkevent EVENT_SHOWED_LICKITUNG_TO_BILLS_GRANDPA
|
|
iftrue .ShowedLickitung
|
|
writetext BillsGrandpaLickitungText
|
|
buttonsound
|
|
writetext BillsGrandpaAskToSeeMonText
|
|
yesorno
|
|
iffalse .SaidNo
|
|
scall .ExcitedToSee
|
|
special BillsGrandfather
|
|
iffalse .SaidNo
|
|
ifnotequal LICKITUNG, .WrongPokemon
|
|
scall .CorrectPokemon
|
|
setevent EVENT_SHOWED_LICKITUNG_TO_BILLS_GRANDPA
|
|
jump .ShowedLickitung
|
|
|
|
.GotEverstone:
|
|
writetext BillsGrandpaOddishText
|
|
buttonsound
|
|
writetext BillsGrandpaAskToSeeMonText
|
|
yesorno
|
|
iffalse .SaidNo
|
|
scall .ExcitedToSee
|
|
special BillsGrandfather
|
|
iffalse .SaidNo
|
|
ifnotequal ODDISH, .WrongPokemon
|
|
scall .CorrectPokemon
|
|
setevent EVENT_SHOWED_ODDISH_TO_BILLS_GRANDPA
|
|
jump .ShowedOddish
|
|
|
|
.GotLeafStone:
|
|
writetext BillsGrandpaStaryuText
|
|
buttonsound
|
|
writetext BillsGrandpaAskToSeeMonText
|
|
yesorno
|
|
iffalse .SaidNo
|
|
scall .ExcitedToSee
|
|
special BillsGrandfather
|
|
iffalse .SaidNo
|
|
ifnotequal STARYU, .WrongPokemon
|
|
scall .CorrectPokemon
|
|
setevent EVENT_SHOWED_STARYU_TO_BILLS_GRANDPA
|
|
jump .ShowedStaryu
|
|
|
|
.GotWaterStone:
|
|
checkver
|
|
iftrue .AskVulpix
|
|
writetext BillsGrandpaGrowlitheText
|
|
buttonsound
|
|
writetext BillsGrandpaAskToSeeMonText
|
|
yesorno
|
|
iffalse .SaidNo
|
|
scall .ExcitedToSee
|
|
special BillsGrandfather
|
|
iffalse .SaidNo
|
|
ifnotequal GROWLITHE, .WrongPokemon
|
|
scall .CorrectPokemon
|
|
setevent EVENT_SHOWED_GROWLITHE_VULPIX_TO_BILLS_GRANDPA
|
|
jump .ShowedGrowlitheVulpix
|
|
|
|
.AskVulpix:
|
|
writetext BillsGrandpaVulpixText
|
|
buttonsound
|
|
writetext BillsGrandpaAskToSeeMonText
|
|
yesorno
|
|
iffalse .SaidNo
|
|
scall .ExcitedToSee
|
|
special BillsGrandfather
|
|
iffalse .SaidNo
|
|
ifnotequal VULPIX, .WrongPokemon
|
|
scall .CorrectPokemon
|
|
setevent EVENT_SHOWED_GROWLITHE_VULPIX_TO_BILLS_GRANDPA
|
|
jump .ShowedGrowlitheVulpix
|
|
|
|
.GotFireStone:
|
|
writetext BillsGrandpaPichuText
|
|
buttonsound
|
|
writetext BillsGrandpaAskToSeeMonText
|
|
yesorno
|
|
iffalse .SaidNo
|
|
scall .ExcitedToSee
|
|
special BillsGrandfather
|
|
iffalse .SaidNo
|
|
ifnotequal PICHU, .WrongPokemon
|
|
scall .CorrectPokemon
|
|
setevent EVENT_SHOWED_PICHU_TO_BILLS_GRANDPA
|
|
jump .ShowedPichu
|
|
|
|
.ShowedLickitung:
|
|
checkevent EVENT_GOT_EVERSTONE_FROM_BILLS_GRANDPA
|
|
iftrue .GotEverstone
|
|
scall .ReceiveItem
|
|
verbosegiveitem EVERSTONE
|
|
iffalse .BagFull
|
|
setevent EVENT_GOT_EVERSTONE_FROM_BILLS_GRANDPA
|
|
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
|
|
closetext
|
|
end
|
|
|
|
.ShowedOddish:
|
|
checkevent EVENT_GOT_LEAF_STONE_FROM_BILLS_GRANDPA
|
|
iftrue .GotLeafStone
|
|
scall .ReceiveItem
|
|
verbosegiveitem LEAF_STONE
|
|
iffalse .BagFull
|
|
setevent EVENT_GOT_LEAF_STONE_FROM_BILLS_GRANDPA
|
|
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
|
|
closetext
|
|
end
|
|
|
|
.ShowedStaryu:
|
|
checkevent EVENT_GOT_WATER_STONE_FROM_BILLS_GRANDPA
|
|
iftrue .GotWaterStone
|
|
scall .ReceiveItem
|
|
verbosegiveitem WATER_STONE
|
|
iffalse .BagFull
|
|
setevent EVENT_GOT_WATER_STONE_FROM_BILLS_GRANDPA
|
|
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
|
|
closetext
|
|
end
|
|
|
|
.ShowedGrowlitheVulpix:
|
|
checkevent EVENT_GOT_FIRE_STONE_FROM_BILLS_GRANDPA
|
|
iftrue .GotFireStone
|
|
scall .ReceiveItem
|
|
verbosegiveitem FIRE_STONE
|
|
iffalse .BagFull
|
|
setevent EVENT_GOT_FIRE_STONE_FROM_BILLS_GRANDPA
|
|
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
|
|
closetext
|
|
end
|
|
|
|
.ShowedPichu:
|
|
scall .ReceiveItem
|
|
verbosegiveitem THUNDERSTONE
|
|
iffalse .BagFull
|
|
setevent EVENT_GOT_THUNDERSTONE_FROM_BILLS_GRANDPA
|
|
closetext
|
|
end
|
|
|
|
.ExcitedToSee:
|
|
writetext BillsGrandpaExcitedToSeeText
|
|
buttonsound
|
|
end
|
|
|
|
.SaidNo:
|
|
writetext BillsGrandpaYouDontHaveItTextText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.CorrectPokemon:
|
|
writetext BillsGrandpaShownPokemonText
|
|
buttonsound
|
|
end
|
|
|
|
.ReceiveItem:
|
|
writetext BillsGrandpaTokenOfAppreciationText
|
|
buttonsound
|
|
end
|
|
|
|
.JustShowedSomething:
|
|
writetext BillsGrandpaComeAgainText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.GotThunderstone:
|
|
writetext BillsGrandpaShownAllThePokemonText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.WrongPokemon:
|
|
writetext BillsGrandpaWrongPokemonText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.BagFull:
|
|
closetext
|
|
end
|
|
|
|
BillsGrandpaIntroText:
|
|
text "Hm? You know BILL?"
|
|
line "He's my grandson."
|
|
|
|
para "He's in JOHTO. He"
|
|
line "does something"
|
|
|
|
para "with PCs, so I'm"
|
|
line "house-sitting."
|
|
done
|
|
|
|
BillsGrandpaAskToSeeMonText:
|
|
text "If you have that"
|
|
line "#MON, may I see"
|
|
cont "it, please?"
|
|
done
|
|
|
|
BillsGrandpaExcitedToSeeText:
|
|
text "You will show me?"
|
|
line "How good of you!"
|
|
done
|
|
|
|
BillsGrandpaYouDontHaveItTextText:
|
|
text "You don't have it?"
|
|
line "That's too bad…"
|
|
done
|
|
|
|
BillsGrandpaShownPokemonText:
|
|
text "Ah, so that is"
|
|
line "@"
|
|
text_from_ram wStringBuffer3
|
|
text "?"
|
|
|
|
para "Isn't it cute!"
|
|
line "That's so kind of"
|
|
cont "you."
|
|
done
|
|
|
|
BillsGrandpaTokenOfAppreciationText:
|
|
text "Thanks!"
|
|
|
|
para "This is a token of"
|
|
line "my appreciation."
|
|
done
|
|
|
|
BillsGrandpaComeAgainText:
|
|
text "Come visit again"
|
|
line "sometime."
|
|
done
|
|
|
|
BillsGrandpaShownAllThePokemonText:
|
|
text "Thanks for showing"
|
|
line "me so many cute"
|
|
cont "#MON."
|
|
|
|
para "I really enjoyed"
|
|
line "myself. I'm glad"
|
|
|
|
para "I've lived such a"
|
|
line "long life."
|
|
done
|
|
|
|
BillsGrandpaWrongPokemonText:
|
|
text "Hm?"
|
|
|
|
para "That's not the"
|
|
line "#MON that I was"
|
|
cont "told about."
|
|
done
|
|
|
|
BillsGrandpaLickitungText:
|
|
text "My grandson BILL"
|
|
line "told me about a"
|
|
|
|
para "#MON that has a"
|
|
line "long tongue."
|
|
done
|
|
|
|
BillsGrandpaOddishText:
|
|
text "Ah, my grandson"
|
|
line "mentioned a round,"
|
|
|
|
para "green #MON that"
|
|
line "has leaves growing"
|
|
cont "on its head."
|
|
done
|
|
|
|
BillsGrandpaStaryuText:
|
|
text "Do you know of a"
|
|
line "sea #MON that"
|
|
|
|
para "has a red sphere"
|
|
line "in its body?"
|
|
|
|
para "You know, the one"
|
|
line "that's shaped like"
|
|
cont "a star?"
|
|
|
|
para "I heard that it"
|
|
line "appears at night."
|
|
|
|
para "I would surely"
|
|
line "like to see it."
|
|
done
|
|
|
|
BillsGrandpaGrowlitheText:
|
|
text "BILL told me about"
|
|
line "a #MON that is"
|
|
|
|
para "very loyal to its"
|
|
line "trainer."
|
|
|
|
para "It's supposed to"
|
|
line "ROAR well."
|
|
done
|
|
|
|
BillsGrandpaVulpixText:
|
|
text "I heard about a"
|
|
line "cute #MON that"
|
|
cont "has six tails."
|
|
|
|
para "I would love to"
|
|
line "hug a cute #MON"
|
|
cont "like that."
|
|
done
|
|
|
|
BillsGrandpaPichuText:
|
|
text "Do you know that"
|
|
line "hugely popular"
|
|
cont "#MON?"
|
|
|
|
para "The #MON that"
|
|
line "has a yellow body"
|
|
cont "and red cheeks."
|
|
|
|
para "I would love to"
|
|
line "see what it looks"
|
|
|
|
para "like before it"
|
|
line "evolves."
|
|
done
|
|
|
|
BillsHouse_MapEvents:
|
|
db 0, 0 ; filler
|
|
|
|
db 2 ; warp events
|
|
warp_event 2, 7, ROUTE_25, 1
|
|
warp_event 3, 7, ROUTE_25, 1
|
|
|
|
db 0 ; coord events
|
|
|
|
db 0 ; bg events
|
|
|
|
db 1 ; object events
|
|
object_event 2, 3, SPRITE_GRAMPS, SPRITEMOVEDATA_STANDING_UP, 0, 2, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, BillsGrandpa, -1
|