pokecrystal/maps/BillsHouse.asm

367 lines
7.1 KiB
NASM
Raw Normal View History

2018-01-31 16:38:45 +00:00
const_def 2 ; object constants
2015-11-27 05:22:14 +00:00
const BILLSHOUSE_GRAMPS
BillsHouse_MapScripts:
db 0 ; scene scripts
db 0 ; callbacks
2017-01-11 07:25:12 +00:00
BillsGrandpa:
faceplayer
2015-12-09 23:25:44 +00:00
opentext
checkevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
2015-12-15 15:55:56 +00:00
iftrue .JustShowedSomething
2013-09-24 07:48:58 +00:00
checkevent EVENT_GOT_THUNDERSTONE_FROM_BILLS_GRANDPA
2015-12-15 15:55:56 +00:00
iftrue .GotThunderstone
2013-09-24 07:48:58 +00:00
checkevent EVENT_MET_BILLS_GRANDPA
2015-12-15 15:55:56 +00:00
iftrue .MetGrandpa
writetext BillsGrandpaIntroText
2015-11-30 03:29:45 +00:00
buttonsound
2013-09-24 07:48:58 +00:00
setevent EVENT_MET_BILLS_GRANDPA
2015-12-15 15:55:56 +00:00
.MetGrandpa:
2013-09-24 07:48:58 +00:00
checkevent EVENT_SHOWED_PICHU_TO_BILLS_GRANDPA
2015-12-15 15:55:56 +00:00
iftrue .ShowedPichu
2013-09-24 07:48:58 +00:00
checkevent EVENT_SHOWED_GROWLITHE_VULPIX_TO_BILLS_GRANDPA
2015-12-15 15:55:56 +00:00
iftrue .ShowedGrowlitheVulpix
2013-09-24 07:48:58 +00:00
checkevent EVENT_SHOWED_STARYU_TO_BILLS_GRANDPA
2015-12-15 15:55:56 +00:00
iftrue .ShowedStaryu
2013-09-24 07:48:58 +00:00
checkevent EVENT_SHOWED_ODDISH_TO_BILLS_GRANDPA
2015-12-15 15:55:56 +00:00
iftrue .ShowedOddish
2013-09-24 07:48:58 +00:00
checkevent EVENT_SHOWED_LICKITUNG_TO_BILLS_GRANDPA
2015-12-15 15:55:56 +00:00
iftrue .ShowedLickitung
writetext BillsGrandpaLickitungText
2015-11-30 03:29:45 +00:00
buttonsound
2015-12-15 15:55:56 +00:00
writetext BillsGrandpaAskToSeeMonText
yesorno
2015-12-15 15:55:56 +00:00
iffalse .SaidNo
scall .ExcitedToSee
special BillsGrandfather
2015-12-15 15:55:56 +00:00
iffalse .SaidNo
2018-02-03 02:09:17 +00:00
ifnotequal LICKITUNG, .WrongPokemon
2015-12-15 15:55:56 +00:00
scall .CorrectPokemon
2013-09-24 07:48:58 +00:00
setevent EVENT_SHOWED_LICKITUNG_TO_BILLS_GRANDPA
2015-12-15 15:55:56 +00:00
jump .ShowedLickitung
2015-12-15 15:55:56 +00:00
.GotEverstone:
writetext BillsGrandpaOddishText
2015-11-30 03:29:45 +00:00
buttonsound
2015-12-15 15:55:56 +00:00
writetext BillsGrandpaAskToSeeMonText
yesorno
2015-12-15 15:55:56 +00:00
iffalse .SaidNo
scall .ExcitedToSee
special BillsGrandfather
2015-12-15 15:55:56 +00:00
iffalse .SaidNo
2018-02-03 02:09:17 +00:00
ifnotequal ODDISH, .WrongPokemon
2015-12-15 15:55:56 +00:00
scall .CorrectPokemon
2013-09-24 07:48:58 +00:00
setevent EVENT_SHOWED_ODDISH_TO_BILLS_GRANDPA
2015-12-15 15:55:56 +00:00
jump .ShowedOddish
2015-12-15 15:55:56 +00:00
.GotLeafStone:
writetext BillsGrandpaStaryuText
2015-11-30 03:29:45 +00:00
buttonsound
2015-12-15 15:55:56 +00:00
writetext BillsGrandpaAskToSeeMonText
yesorno
2015-12-15 15:55:56 +00:00
iffalse .SaidNo
scall .ExcitedToSee
special BillsGrandfather
2015-12-15 15:55:56 +00:00
iffalse .SaidNo
2018-02-03 02:09:17 +00:00
ifnotequal STARYU, .WrongPokemon
2015-12-15 15:55:56 +00:00
scall .CorrectPokemon
2013-09-24 07:48:58 +00:00
setevent EVENT_SHOWED_STARYU_TO_BILLS_GRANDPA
2015-12-15 15:55:56 +00:00
jump .ShowedStaryu
2015-12-15 15:55:56 +00:00
.GotWaterStone:
checkver
iftrue .AskVulpix
2015-12-15 15:55:56 +00:00
writetext BillsGrandpaGrowlitheText
2015-11-30 03:29:45 +00:00
buttonsound
2015-12-15 15:55:56 +00:00
writetext BillsGrandpaAskToSeeMonText
yesorno
2015-12-15 15:55:56 +00:00
iffalse .SaidNo
scall .ExcitedToSee
special BillsGrandfather
2015-12-15 15:55:56 +00:00
iffalse .SaidNo
2018-02-03 02:09:17 +00:00
ifnotequal GROWLITHE, .WrongPokemon
2015-12-15 15:55:56 +00:00
scall .CorrectPokemon
2013-09-24 07:48:58 +00:00
setevent EVENT_SHOWED_GROWLITHE_VULPIX_TO_BILLS_GRANDPA
2015-12-15 15:55:56 +00:00
jump .ShowedGrowlitheVulpix
.AskVulpix:
2015-12-15 15:55:56 +00:00
writetext BillsGrandpaVulpixText
2015-11-30 03:29:45 +00:00
buttonsound
2015-12-15 15:55:56 +00:00
writetext BillsGrandpaAskToSeeMonText
yesorno
2015-12-15 15:55:56 +00:00
iffalse .SaidNo
scall .ExcitedToSee
special BillsGrandfather
2015-12-15 15:55:56 +00:00
iffalse .SaidNo
2018-02-03 02:09:17 +00:00
ifnotequal VULPIX, .WrongPokemon
2015-12-15 15:55:56 +00:00
scall .CorrectPokemon
2013-09-24 07:48:58 +00:00
setevent EVENT_SHOWED_GROWLITHE_VULPIX_TO_BILLS_GRANDPA
2015-12-15 15:55:56 +00:00
jump .ShowedGrowlitheVulpix
2015-12-15 15:55:56 +00:00
.GotFireStone:
writetext BillsGrandpaPichuText
2015-11-30 03:29:45 +00:00
buttonsound
2015-12-15 15:55:56 +00:00
writetext BillsGrandpaAskToSeeMonText
yesorno
2015-12-15 15:55:56 +00:00
iffalse .SaidNo
scall .ExcitedToSee
special BillsGrandfather
2015-12-15 15:55:56 +00:00
iffalse .SaidNo
2018-02-03 02:09:17 +00:00
ifnotequal PICHU, .WrongPokemon
2015-12-15 15:55:56 +00:00
scall .CorrectPokemon
2013-09-24 07:48:58 +00:00
setevent EVENT_SHOWED_PICHU_TO_BILLS_GRANDPA
2015-12-15 15:55:56 +00:00
jump .ShowedPichu
2015-12-15 15:55:56 +00:00
.ShowedLickitung:
2013-09-24 07:48:58 +00:00
checkevent EVENT_GOT_EVERSTONE_FROM_BILLS_GRANDPA
2015-12-15 15:55:56 +00:00
iftrue .GotEverstone
scall .ReceiveItem
2015-11-05 01:20:14 +00:00
verbosegiveitem EVERSTONE
2015-12-15 15:55:56 +00:00
iffalse .BagFull
2013-09-24 07:48:58 +00:00
setevent EVENT_GOT_EVERSTONE_FROM_BILLS_GRANDPA
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
2015-11-25 15:16:29 +00:00
closetext
end
2015-12-15 15:55:56 +00:00
.ShowedOddish:
2013-09-24 07:48:58 +00:00
checkevent EVENT_GOT_LEAF_STONE_FROM_BILLS_GRANDPA
2015-12-15 15:55:56 +00:00
iftrue .GotLeafStone
scall .ReceiveItem
2015-11-05 01:20:14 +00:00
verbosegiveitem LEAF_STONE
2015-12-15 15:55:56 +00:00
iffalse .BagFull
2013-09-24 07:48:58 +00:00
setevent EVENT_GOT_LEAF_STONE_FROM_BILLS_GRANDPA
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
2015-11-25 15:16:29 +00:00
closetext
end
2015-12-15 15:55:56 +00:00
.ShowedStaryu:
2013-09-24 07:48:58 +00:00
checkevent EVENT_GOT_WATER_STONE_FROM_BILLS_GRANDPA
2015-12-15 15:55:56 +00:00
iftrue .GotWaterStone
scall .ReceiveItem
2015-11-05 01:20:14 +00:00
verbosegiveitem WATER_STONE
2015-12-15 15:55:56 +00:00
iffalse .BagFull
2013-09-24 07:48:58 +00:00
setevent EVENT_GOT_WATER_STONE_FROM_BILLS_GRANDPA
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
2015-11-25 15:16:29 +00:00
closetext
end
2015-12-15 15:55:56 +00:00
.ShowedGrowlitheVulpix:
2013-09-24 07:48:58 +00:00
checkevent EVENT_GOT_FIRE_STONE_FROM_BILLS_GRANDPA
2015-12-15 15:55:56 +00:00
iftrue .GotFireStone
scall .ReceiveItem
2015-11-05 01:20:14 +00:00
verbosegiveitem FIRE_STONE
2015-12-15 15:55:56 +00:00
iffalse .BagFull
2013-09-24 07:48:58 +00:00
setevent EVENT_GOT_FIRE_STONE_FROM_BILLS_GRANDPA
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
2015-11-25 15:16:29 +00:00
closetext
end
2015-12-15 15:55:56 +00:00
.ShowedPichu:
scall .ReceiveItem
2015-11-05 01:20:14 +00:00
verbosegiveitem THUNDERSTONE
2015-12-15 15:55:56 +00:00
iffalse .BagFull
2013-09-24 07:48:58 +00:00
setevent EVENT_GOT_THUNDERSTONE_FROM_BILLS_GRANDPA
2015-11-25 15:16:29 +00:00
closetext
end
2015-12-15 15:55:56 +00:00
.ExcitedToSee:
writetext BillsGrandpaExcitedToSeeText
2015-11-30 03:29:45 +00:00
buttonsound
end
2015-12-15 15:55:56 +00:00
.SaidNo:
writetext BillsGrandpaYouDontHaveItTextText
2015-11-25 15:16:29 +00:00
waitbutton
closetext
end
2015-12-15 15:55:56 +00:00
.CorrectPokemon:
writetext BillsGrandpaShownPokemonText
2015-11-30 03:29:45 +00:00
buttonsound
end
2015-12-15 15:55:56 +00:00
.ReceiveItem:
writetext BillsGrandpaTokenOfAppreciationText
2015-11-30 03:29:45 +00:00
buttonsound
end
2015-12-15 15:55:56 +00:00
.JustShowedSomething:
writetext BillsGrandpaComeAgainText
2015-11-25 15:16:29 +00:00
waitbutton
closetext
end
2015-12-15 15:55:56 +00:00
.GotThunderstone:
writetext BillsGrandpaShownAllThePokemonText
2015-11-25 15:16:29 +00:00
waitbutton
closetext
end
2015-12-15 15:55:56 +00:00
.WrongPokemon:
writetext BillsGrandpaWrongPokemonText
2015-11-25 15:16:29 +00:00
waitbutton
closetext
end
2015-12-15 15:55:56 +00:00
.BagFull:
2015-11-25 15:16:29 +00:00
closetext
end
2015-12-15 15:55:56 +00:00
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
2015-12-15 15:55:56 +00:00
BillsGrandpaAskToSeeMonText:
text "If you have that"
line "#MON, may I see"
cont "it, please?"
done
2015-12-15 15:55:56 +00:00
BillsGrandpaExcitedToSeeText:
text "You will show me?"
line "How good of you!"
done
2015-12-15 15:55:56 +00:00
BillsGrandpaYouDontHaveItTextText:
text "You don't have it?"
line "That's too bad…"
done
2015-12-15 15:55:56 +00:00
BillsGrandpaShownPokemonText:
text "Ah, so that is"
line "@"
2018-01-23 22:39:09 +00:00
text_from_ram wStringBuffer3
text "?"
para "Isn't it cute!"
line "That's so kind of"
cont "you."
done
2015-12-15 15:55:56 +00:00
BillsGrandpaTokenOfAppreciationText:
text "Thanks!"
para "This is a token of"
line "my appreciation."
done
2015-12-15 15:55:56 +00:00
BillsGrandpaComeAgainText:
text "Come visit again"
line "sometime."
done
2015-12-15 15:55:56 +00:00
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
2015-12-15 15:55:56 +00:00
BillsGrandpaWrongPokemonText:
text "Hm?"
para "That's not the"
line "#MON that I was"
cont "told about."
done
2015-12-15 15:55:56 +00:00
BillsGrandpaLickitungText:
text "My grandson BILL"
line "told me about a"
para "#MON that has a"
line "long tongue."
done
2015-12-15 15:55:56 +00:00
BillsGrandpaOddishText:
text "Ah, my grandson"
line "mentioned a round,"
para "green #MON that"
line "has leaves growing"
cont "on its head."
done
2015-12-15 15:55:56 +00:00
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
2015-12-15 15:55:56 +00:00
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
2015-12-15 15:55:56 +00:00
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
2015-12-15 15:55:56 +00:00
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
2018-02-02 03:22:07 +00:00
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
2018-02-02 03:22:07 +00:00
object_event 2, 3, SPRITE_GRAMPS, SPRITEMOVEDATA_STANDING_UP, 0, 2, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, BillsGrandpa, -1