pokecrystal/maps/BluesHouse.asm

165 lines
2.6 KiB
NASM

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