mirror of https://github.com/pret/pokecrystal.git
151 lines
2.5 KiB
NASM
151 lines
2.5 KiB
NASM
CinnabarIsland_MapScriptHeader:
|
|
; trigger count
|
|
db 0
|
|
|
|
; callback count
|
|
db 1
|
|
|
|
; callbacks
|
|
dbw 5, .FlyPoint
|
|
|
|
.FlyPoint
|
|
setflag ENGINE_FLYPOINT_CINNABAR
|
|
return
|
|
|
|
CinnabarIslandBlue:
|
|
faceplayer
|
|
loadfont
|
|
writetext CinnabarIslandBlueText
|
|
closetext
|
|
loadmovesprites
|
|
playsound SFX_WARP_TO
|
|
applymovement $2, CinnabarIslandBlueTeleport
|
|
disappear $2
|
|
clearevent $0776
|
|
end
|
|
|
|
CinnabarIslandGymSign:
|
|
jumptext CinnabarIslandGymSignText
|
|
|
|
CinnabarIslandSign:
|
|
jumptext CinnabarIslandSignText
|
|
|
|
CinnabarIslandPokeCenterSign:
|
|
jumpstd pokecentersign
|
|
|
|
MapCinnabarIslandSignpostItem3:
|
|
dw $00fe
|
|
db RARE_CANDY
|
|
|
|
CinnabarIslandBlueTeleport:
|
|
teleport_from
|
|
step_end
|
|
|
|
CinnabarIslandBlueText:
|
|
text "Who are you?"
|
|
|
|
para "Well, it's plain"
|
|
line "to see that you're"
|
|
cont "a trainer…"
|
|
|
|
para "My name's BLUE."
|
|
|
|
para "I was once the"
|
|
line "CHAMPION, although"
|
|
|
|
para "it was for only a"
|
|
line "short time…"
|
|
|
|
para "That meddling RED"
|
|
line "did me in…"
|
|
|
|
para "Anyway, what do"
|
|
line "you want? You want"
|
|
|
|
para "to challenge me or"
|
|
line "something?"
|
|
|
|
para "…I hate to say"
|
|
line "it, but I'm not in"
|
|
|
|
para "the mood for a"
|
|
line "battle now."
|
|
|
|
para "Take a good look"
|
|
line "around you…"
|
|
|
|
para "A volcano erupts,"
|
|
line "and just like"
|
|
|
|
para "that, a whole town"
|
|
line "disappears."
|
|
|
|
para "We can go on win-"
|
|
line "ning and losing in"
|
|
|
|
para "#MON. But if"
|
|
line "nature so much as"
|
|
|
|
para "twitches, we can"
|
|
line "lose in a second."
|
|
|
|
para "…"
|
|
|
|
para "That's the way it"
|
|
line "is…"
|
|
|
|
para "But, anyway, I'm"
|
|
line "still a trainer."
|
|
|
|
para "If I see a strong"
|
|
line "opponent, it makes"
|
|
cont "me want to battle."
|
|
|
|
para "If you want to"
|
|
line "battle me, come to"
|
|
cont "the VIRIDIAN GYM."
|
|
|
|
para "I'll take you on"
|
|
line "then."
|
|
done
|
|
|
|
CinnabarIslandGymSignText:
|
|
text "There's a notice"
|
|
line "here…"
|
|
|
|
para "CINNABAR GYM has"
|
|
line "relocated to SEA-"
|
|
cont "FOAM ISLANDS."
|
|
|
|
para "BLAINE"
|
|
done
|
|
|
|
CinnabarIslandSignText:
|
|
text "CINNABAR ISLAND"
|
|
|
|
para "The Fiery Town of"
|
|
line "Burning Desire"
|
|
done
|
|
|
|
CinnabarIsland_MapEventHeader:
|
|
; filler
|
|
db 0, 0
|
|
|
|
; warps
|
|
db 1
|
|
warp_def $b, $b, 1, GROUP_CINNABAR_POKECENTER_1F, MAP_CINNABAR_POKECENTER_1F
|
|
|
|
; xy triggers
|
|
db 0
|
|
|
|
; signposts
|
|
db 4
|
|
signpost 11, 12, $0, CinnabarIslandPokeCenterSign
|
|
signpost 11, 9, $0, CinnabarIslandGymSign
|
|
signpost 7, 7, $0, CinnabarIslandSign
|
|
signpost 1, 9, $7, MapCinnabarIslandSignpostItem3
|
|
|
|
; people-events
|
|
db 1
|
|
person_event SPRITE_BLUE, 10, 13, $3, $0, 255, 255, $0, 0, CinnabarIslandBlue, EVENT_BLUE_IN_CINNABAR
|