mirror of https://github.com/pret/pokecrystal.git
92 lines
1.5 KiB
NASM
92 lines
1.5 KiB
NASM
const_value set 2
|
|
const REDSHOUSE1F_REDS_MOM
|
|
|
|
RedsHouse1F_MapScripts:
|
|
db 1 ; scene scripts
|
|
scene_script .DummyScene
|
|
|
|
db 0 ; callbacks
|
|
|
|
.DummyScene:
|
|
end
|
|
|
|
RedsMom:
|
|
faceplayer
|
|
opentext
|
|
checkevent EVENT_MET_REDS_MOM
|
|
iftrue .MetAlready
|
|
writetext RedsMomText1
|
|
waitbutton
|
|
closetext
|
|
setevent EVENT_MET_REDS_MOM
|
|
end
|
|
.MetAlready:
|
|
writetext RedsMomText2
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
RedsHouse1FTV:
|
|
jumptext RedsHouse1FTVText
|
|
|
|
RedsHouse1FBookshelf:
|
|
jumpstd picturebookshelf
|
|
|
|
RedsMomText1:
|
|
text "Hi!"
|
|
|
|
para "RED's been away"
|
|
line "for a long time."
|
|
|
|
para "He hasn't called"
|
|
line "either, so I have"
|
|
|
|
para "no idea where he"
|
|
line "is or what he's"
|
|
cont "been doing."
|
|
|
|
para "They say that no"
|
|
line "word is proof that"
|
|
|
|
para "he's doing fine,"
|
|
line "but I do worry"
|
|
cont "about him."
|
|
done
|
|
|
|
RedsMomText2:
|
|
text "I worry about RED"
|
|
line "getting hurt or"
|
|
|
|
para "sick, but he's a"
|
|
line "boy. I'm proud"
|
|
|
|
para "that he is doing"
|
|
line "what he wants to"
|
|
|
|
para "do."
|
|
done
|
|
|
|
RedsHouse1FTVText:
|
|
text "They have programs"
|
|
line "that aren't shown"
|
|
cont "in JOHTO…"
|
|
done
|
|
|
|
RedsHouse1F_MapEvents:
|
|
db 0, 0 ; filler
|
|
|
|
db 3 ; warp events
|
|
warp_event 2, 7, 1, PALLET_TOWN
|
|
warp_event 3, 7, 1, PALLET_TOWN
|
|
warp_event 7, 0, 1, REDS_HOUSE_2F
|
|
|
|
db 0 ; coord events
|
|
|
|
db 3 ; bg events
|
|
bg_event 0, 1, BGEVENT_READ, RedsHouse1FBookshelf
|
|
bg_event 1, 1, BGEVENT_READ, RedsHouse1FBookshelf
|
|
bg_event 2, 1, BGEVENT_READ, RedsHouse1FTV
|
|
|
|
db 1 ; object events
|
|
object_event 5, 3, SPRITE_REDS_MOM, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, RedsMom, -1
|