pokecrystal-board/maps/BlackthornCity.asm

354 lines
7.5 KiB
NASM

const_value set 2
const BLACKTHORNCITY_SUPER_NERD1
const BLACKTHORNCITY_SUPER_NERD2
const BLACKTHORNCITY_GRAMPS1
const BLACKTHORNCITY_GRAMPS2
const BLACKTHORNCITY_BLACK_BELT
const BLACKTHORNCITY_COOLTRAINER_F1
const BLACKTHORNCITY_YOUNGSTER1
const BLACKTHORNCITY_SANTOS
const BLACKTHORNCITY_COOLTRAINER_F2
BlackthornCity_MapScriptHeader:
.SceneScripts:
db 0
.MapCallbacks:
db 2
callback MAPCALLBACK_NEWMAP, .FlyPoint
callback MAPCALLBACK_OBJECTS, .Santos
.FlyPoint:
setflag ENGINE_FLYPOINT_BLACKTHORN
return
.Santos:
checkcode VAR_WEEKDAY
if_equal SATURDAY, .SantosAppears
disappear BLACKTHORNCITY_SANTOS
return
.SantosAppears:
appear BLACKTHORNCITY_SANTOS
return
BlackthornSuperNerdScript:
faceplayer
opentext
checkevent EVENT_BEAT_CLAIR
iftrue .BeatClair
checkevent EVENT_CLEARED_RADIO_TOWER
iftrue .ClearedRadioTower
writetext Text_ClairIsOut
waitbutton
closetext
end
.ClearedRadioTower:
writetext Text_ClairIsIn
waitbutton
closetext
end
.BeatClair:
writetext Text_ClairIsBeaten
waitbutton
closetext
end
BlackthornGramps1Script:
jumptextfaceplayer BlackthornGrampsRefusesEntryText
BlackthornGramps2Script:
jumptextfaceplayer BlackthornGrampsGrantsEntryText
BlackthornBlackBeltScript:
faceplayer
opentext
checkevent EVENT_CLEARED_RADIO_TOWER
iftrue .ClearedRadioTower
writetext BlackBeltText_WeirdRadio
waitbutton
closetext
end
.ClearedRadioTower:
writetext BlackBeltText_VoicesInMyHead
waitbutton
closetext
end
BlackthornCooltrainerF1Script:
jumptextfaceplayer BlackthornCooltrainerF1Text
BlackthornYoungsterScript:
jumptextfaceplayer BlackthornYoungsterText
BlackthornCooltrainerF2Script:
jumptextfaceplayer BlackthornCooltrainerF2Text
SantosScript:
faceplayer
opentext
checkevent EVENT_GOT_SPELL_TAG_FROM_SANTOS
iftrue .Saturday
checkcode VAR_WEEKDAY
if_not_equal SATURDAY, .NotSaturday
checkevent EVENT_MET_SANTOS_OF_SATURDAY
iftrue .MetSantos
writetext MeetSantosText
buttonsound
setevent EVENT_MET_SANTOS_OF_SATURDAY
.MetSantos:
writetext SantosGivesGiftText
buttonsound
verbosegiveitem SPELL_TAG
iffalse .Done
setevent EVENT_GOT_SPELL_TAG_FROM_SANTOS
writetext SantosGaveGiftText
waitbutton
closetext
end
.Saturday:
writetext SantosSaturdayText
waitbutton
.Done:
closetext
end
.NotSaturday:
writetext SantosNotSaturdayText
waitbutton
closetext
end
BlackthornCitySign:
jumptext BlackthornCitySignText
BlackthornGymSign:
jumptext BlackthornGymSignText
MoveDeletersHouseSign:
jumptext MoveDeletersHouseSignText
DragonDensSign:
jumptext DragonDensSignText
BlackthornCityTrainerTips:
jumptext BlackthornCityTrainerTipsText
BlackthornCityPokecenterSign:
jumpstd pokecentersign
BlackthornCityMartSign:
jumpstd martsign
Text_ClairIsOut:
text "I am sorry."
para "CLAIR, our GYM"
line "LEADER, entered"
para "the DRAGON'S DEN"
line "behind the GYM."
para "I have no idea"
line "when our LEADER"
cont "will return."
done
Text_ClairIsIn:
text "CLAIR, our GYM"
line "LEADER, is waiting"
cont "for you."
para "However, it would"
line "be impossible for"
para "a run-of-the-mill"
line "trainer to win."
done
Text_ClairIsBeaten:
text "You defeated"
line "CLAIR?"
para "That's amazing!"
para "I've never heard"
line "of her losing to"
para "anyone other than"
line "LANCE."
done
BlackthornGrampsRefusesEntryText:
text "No. Only chosen"
line "trainers may train"
para "here."
line "Please leave."
done
BlackthornGrampsGrantsEntryText:
text "If CLAIR allows"
line "it, her grand-"
cont "father--our MASTER"
cont "--will also."
para "You may enter."
done
BlackBeltText_WeirdRadio:
text "My radio's busted?"
line "Lately, I only get"
cont "this weird signal."
done
BlackBeltText_VoicesInMyHead:
text "Arooo! Voices in"
line "my head!"
para "Huh? I'm listening"
line "to my radio!"
done
BlackthornCooltrainerF1Text:
text "Are you going to"
line "make your #MON"
cont "forget some moves?"
done
BlackthornYoungsterText:
text "Dragon masters all"
line "come from the city"
cont "of BLACKTHORN."
done
MeetSantosText:
text "SANTOS: …"
para "It's Saturday…"
para "I'm SANTOS of"
line "Saturday…"
done
SantosGivesGiftText:
text "You can have this…"
done
SantosGaveGiftText:
text "SANTOS: …"
para "SPELL TAG…"
para "Ghost-type moves"
line "get stronger…"
para "It will frighten"
line "you…"
done
SantosSaturdayText:
text "SANTOS: …"
para "See you again on"
line "another Saturday…"
para "I won't have any"
line "more gifts…"
done
SantosNotSaturdayText:
text "SANTOS: Today's"
line "not Saturday…"
done
BlackthornCooltrainerF2Text:
text "Wow, you came"
line "through the ICE"
cont "PATH?"
para "You must be a real"
line "hotshot trainer!"
done
BlackthornCitySignText:
text "BLACKTHORN CITY"
para "A Quiet Mountain"
line "Retreat"
done
BlackthornGymSignText:
text "BLACKTHORN CITY"
line "#MON GYM"
cont "LEADER: CLAIR"
para "The Blessed User"
line "of Dragon #MON"
done
MoveDeletersHouseSignText:
text "MOVE DELETER'S"
line "HOUSE"
done
DragonDensSignText:
text "DRAGON'S DEN"
line "AHEAD"
done
BlackthornCityTrainerTipsText:
text "TRAINER TIPS"
para "A #MON holding"
line "a MIRACLEBERRY"
para "will cure itself"
line "of any status"
cont "problem."
done
BlackthornCity_MapEventHeader:
; filler
db 0, 0
.Warps:
db 8
warp_def 18, 11, 1, BLACKTHORN_GYM_1F
warp_def 13, 21, 1, BLACKTHORN_DRAGON_SPEECH_HOUSE
warp_def 29, 23, 1, BLACKTHORN_EMYS_HOUSE
warp_def 15, 29, 2, BLACKTHORN_MART
warp_def 21, 29, 1, BLACKTHORN_POKECENTER_1F
warp_def 9, 31, 1, MOVE_DELETERS_HOUSE
warp_def 36, 9, 2, ICE_PATH_1F
warp_def 20, 1, 1, DRAGONS_DEN_1F
.CoordEvents:
db 0
.BGEvents:
db 7
bg_event 34, 24, BGEVENT_READ, BlackthornCitySign
bg_event 17, 13, BGEVENT_READ, BlackthornGymSign
bg_event 7, 31, BGEVENT_READ, MoveDeletersHouseSign
bg_event 21, 3, BGEVENT_READ, DragonDensSign
bg_event 5, 25, BGEVENT_READ, BlackthornCityTrainerTips
bg_event 16, 29, BGEVENT_READ, BlackthornCityMartSign
bg_event 22, 29, BGEVENT_READ, BlackthornCityPokecenterSign
.ObjectEvents:
db 9
object_event 18, 12, SPRITE_SUPER_NERD, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, BlackthornSuperNerdScript, EVENT_BLACKTHORN_CITY_SUPER_NERD_BLOCKS_GYM
object_event 19, 12, SPRITE_SUPER_NERD, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, BlackthornSuperNerdScript, EVENT_BLACKTHORN_CITY_SUPER_NERD_DOES_NOT_BLOCK_GYM
object_event 20, 2, SPRITE_GRAMPS, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BlackthornGramps1Script, EVENT_BLACKTHORN_CITY_GRAMPS_BLOCKS_DRAGONS_DEN
object_event 21, 2, SPRITE_GRAMPS, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BlackthornGramps2Script, EVENT_BLACKTHORN_CITY_GRAMPS_NOT_BLOCKING_DRAGONS_DEN
object_event 24, 31, SPRITE_BLACK_BELT, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, BlackthornBlackBeltScript, -1
object_event 9, 25, SPRITE_COOLTRAINER_F, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 2, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, BlackthornCooltrainerF1Script, -1
object_event 13, 15, SPRITE_YOUNGSTER, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BlackthornYoungsterScript, -1
object_event 22, 20, SPRITE_YOUNGSTER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, SantosScript, EVENT_BLACKTHORN_CITY_SANTOS_OF_SATURDAY
object_event 35, 19, SPRITE_COOLTRAINER_F, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, BlackthornCooltrainerF2Script, -1