pokecrystal/maps/BluesHouse.asm

165 lines
2.6 KiB
NASM

const_value set 2
const BLUESHOUSE_DAISY
BluesHouse_MapScriptHeader:
.SceneScripts:
db 0
.MapCallbacks:
db 0
DaisyScript:
faceplayer
opentext
checkcode VAR_HOUR
if_equal 15, .ThreePM
writetext DaisyHelloText
waitbutton
closetext
end
.ThreePM:
checkflag ENGINE_TEA_IN_BLUES_HOUSE
iftrue .AlreadyGroomedMon
writetext DaisyOfferGroomingText
yesorno
iffalse .Refused
writetext DaisyWhichMonText
waitbutton
special Special_DaisyMassage
if_equal 0, .Refused
if_equal 1, .CantGroomEgg
setflag ENGINE_TEA_IN_BLUES_HOUSE
writetext DaisyAlrightText
waitbutton
closetext
special FadeOutPalettes
playmusic MUSIC_HEAL
pause 60
special FadeInPalettes
special RestartMapMusic
opentext
writetext GroomedMonLooksContentText
special PlayCurMonCry
buttonsound
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_from_ram StringBuffer3
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_MapEventHeader:
; filler
db 0, 0
.Warps:
db 2
warp_def $7, $2, 2, PALLET_TOWN
warp_def $7, $3, 2, PALLET_TOWN
.CoordEvents:
db 0
.BGEvents:
db 0
.ObjectEvents:
db 1
object_event SPRITE_DAISY, 3, 2, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, DaisyScript, -1