pokecrystal-board/maps/BluesHouse.asm
2020-07-24 09:57:16 -04:00

158 lines
2.5 KiB
NASM

object_const_def
const BLUESHOUSE_DAISY
BluesHouse_MapScripts:
def_scene_scripts
def_callbacks
DaisyScript:
faceplayer
opentext
readvar VAR_HOUR
ifequal 15, .ThreePM
writetext DaisyHelloText
waitbutton
closetext
end
.ThreePM:
checkflag ENGINE_DAISYS_GROOMING
iftrue .AlreadyGroomedMon
writetext DaisyOfferGroomingText
yesorno
iffalse .Refused
writetext DaisyWhichMonText
waitbutton
special DaisysGrooming
ifequal $0, .Refused
ifequal $1, .CantGroomEgg
setflag ENGINE_DAISYS_GROOMING
writetext DaisyAlrightText
waitbutton
closetext
special FadeOutPalettes
playmusic MUSIC_HEAL
pause 60
special FadeInPalettes
special RestartMapMusic
opentext
writetext GroomedMonLooksContentText
special PlayCurMonCry
promptbutton
writetext DaisyAllDoneText
waitbutton
closetext
end
.AlreadyGroomedMon:
writetext DaisyAlreadyGroomedText
waitbutton
closetext
end
.Refused:
writetext DaisyRefusedText
waitbutton
closetext
end
.CantGroomEgg:
writetext DaisyCantGroomEggText
waitbutton
closetext
end
DaisyHelloText:
text "DAISY: Hi! My kid"
line "brother is the GYM"
para "LEADER in VIRIDIAN"
line "CITY."
para "But he goes out"
line "of town so often,"
para "it causes problems"
line "for the trainers."
done
DaisyOfferGroomingText:
text "DAISY: Hi! Good"
line "timing. I'm about"
cont "to have some tea."
para "Would you like to"
line "join me?"
para "Oh, your #MON"
line "are a bit dirty."
para "Would you like me"
line "to groom one?"
done
DaisyWhichMonText:
text "DAISY: Which one"
line "should I groom?"
done
DaisyAlrightText:
text "DAISY: OK, I'll"
line "get it looking"
cont "nice in no time."
done
GroomedMonLooksContentText:
text_ram wStringBuffer3
text " looks"
line "content."
done
DaisyAllDoneText:
text "DAISY: There you"
line "go! All done."
para "See? Doesn't it"
line "look nice?"
para "It's such a cute"
line "#MON."
done
DaisyAlreadyGroomedText:
text "DAISY: I always"
line "have tea around"
para "this time. Come"
line "join me."
done
DaisyRefusedText:
text "DAISY: You don't"
line "want to have one"
para "groomed? OK, we'll"
line "just have tea."
done
DaisyCantGroomEggText:
text "DAISY: Oh, sorry."
line "I honestly can't"
cont "groom an EGG."
done
BluesHouse_MapEvents:
db 0, 0 ; filler
def_warp_events
warp_event 2, 7, PALLET_TOWN, 2
warp_event 3, 7, PALLET_TOWN, 2
def_coord_events
def_bg_events
def_object_events
object_event 2, 3, SPRITE_DAISY, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, DaisyScript, -1