pokecrystal/maps/SilphCo1F.asm

70 lines
1.4 KiB
NASM

const_def 2 ; object constants
const SILPHCO1F_RECEPTIONIST
const SILPHCO1F_OFFICER
SilphCo1F_MapScripts:
db 0 ; scene scripts
db 0 ; callbacks
SilphCoReceptionistScript:
jumptextfaceplayer SilphCoReceptionistText
SilphCoOfficerScript:
faceplayer
opentext
checkevent EVENT_GOT_UP_GRADE
iftrue .GotUpGrade
writetext SilphCoOfficerText
buttonsound
verbosegiveitem UP_GRADE
iffalse .NoRoom
setevent EVENT_GOT_UP_GRADE
.GotUpGrade:
writetext SilphCoOfficerText_GotUpGrade
waitbutton
.NoRoom:
closetext
end
SilphCoReceptionistText:
text "Welcome. This is"
line "SILPH CO.'s HEAD"
cont "OFFICE BUILDING."
done
SilphCoOfficerText:
text "Only employees are"
line "permitted to go"
cont "upstairs."
para "But since you came"
line "such a long way,"
para "have this neat"
line "little souvenir."
done
SilphCoOfficerText_GotUpGrade:
text "It's SILPH CO.'s"
line "latest product."
para "It's not for sale"
line "anywhere yet."
done
SilphCo1F_MapEvents:
db 0, 0 ; filler
db 2 ; warp events
warp_event 2, 7, SAFFRON_CITY, 7
warp_event 3, 7, SAFFRON_CITY, 7
db 0 ; coord events
db 0 ; bg events
db 2 ; object events
object_event 4, 2, SPRITE_RECEPTIONIST, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, SilphCoReceptionistScript, -1
object_event 13, 1, SPRITE_OFFICER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, SilphCoOfficerScript, -1