pokecrystal-board/maps/CinnabarIsland.asm
2015-06-25 23:30:16 -06:00

151 lines
2.4 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, $0775