mirror of https://github.com/pret/pokecrystal.git
144 lines
2.7 KiB
NASM
144 lines
2.7 KiB
NASM
const_def 2 ; object constants
|
|
const CINNABARISLAND_BLUE
|
|
|
|
CinnabarIsland_MapScripts:
|
|
db 0 ; scene scripts
|
|
|
|
db 1 ; callbacks
|
|
callback MAPCALLBACK_NEWMAP, .FlyPoint
|
|
|
|
.FlyPoint:
|
|
setflag ENGINE_FLYPOINT_CINNABAR
|
|
return
|
|
|
|
CinnabarIslandBlue:
|
|
faceplayer
|
|
opentext
|
|
writetext CinnabarIslandBlueText
|
|
waitbutton
|
|
closetext
|
|
playsound SFX_WARP_TO
|
|
applymovement CINNABARISLAND_BLUE, CinnabarIslandBlueTeleport
|
|
disappear CINNABARISLAND_BLUE
|
|
clearevent EVENT_VIRIDIAN_GYM_BLUE
|
|
end
|
|
|
|
CinnabarIslandGymSign:
|
|
jumptext CinnabarIslandGymSignText
|
|
|
|
CinnabarIslandSign:
|
|
jumptext CinnabarIslandSignText
|
|
|
|
CinnabarIslandPokecenterSign:
|
|
jumpstd pokecentersign
|
|
|
|
CinnabarIslandHiddenRareCandy:
|
|
hiddenitem RARE_CANDY, EVENT_CINNABAR_ISLAND_HIDDEN_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_MapEvents:
|
|
db 0, 0 ; filler
|
|
|
|
db 1 ; warp events
|
|
warp_event 11, 11, CINNABAR_POKECENTER_1F, 1
|
|
|
|
db 0 ; coord events
|
|
|
|
db 4 ; bg events
|
|
bg_event 12, 11, BGEVENT_READ, CinnabarIslandPokecenterSign
|
|
bg_event 9, 11, BGEVENT_READ, CinnabarIslandGymSign
|
|
bg_event 7, 7, BGEVENT_READ, CinnabarIslandSign
|
|
bg_event 9, 1, BGEVENT_ITEM, CinnabarIslandHiddenRareCandy
|
|
|
|
db 1 ; object events
|
|
object_event 9, 6, SPRITE_BLUE, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CinnabarIslandBlue, EVENT_BLUE_IN_CINNABAR
|