mirror of https://github.com/pret/pokecrystal.git
354 lines
7.5 KiB
NASM
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
|
|
dbw MAPCALLBACK_NEWMAP, .FlyPoint
|
|
dbw 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 $b, $12, 1, BLACKTHORN_GYM_1F
|
|
warp_def $15, $d, 1, BLACKTHORN_DRAGON_SPEECH_HOUSE
|
|
warp_def $17, $1d, 1, BLACKTHORN_EMYS_HOUSE
|
|
warp_def $1d, $f, 2, BLACKTHORN_MART
|
|
warp_def $1d, $15, 1, BLACKTHORN_POKECENTER_1F
|
|
warp_def $1f, $9, 1, MOVE_DELETERS_HOUSE
|
|
warp_def $9, $24, 2, ICE_PATH_1F
|
|
warp_def $1, $14, 1, DRAGONS_DEN_1F
|
|
|
|
.CoordEvents:
|
|
db 0
|
|
|
|
.BGEvents:
|
|
db 7
|
|
bg_event 24, 34, BGEVENT_READ, BlackthornCitySign
|
|
bg_event 13, 17, BGEVENT_READ, BlackthornGymSign
|
|
bg_event 31, 7, BGEVENT_READ, MoveDeletersHouseSign
|
|
bg_event 3, 21, BGEVENT_READ, DragonDensSign
|
|
bg_event 25, 5, BGEVENT_READ, BlackthornCityTrainerTips
|
|
bg_event 29, 16, BGEVENT_READ, BlackthornCityMartSign
|
|
bg_event 29, 22, BGEVENT_READ, BlackthornCityPokecenterSign
|
|
|
|
.ObjectEvents:
|
|
db 9
|
|
object_event SPRITE_SUPER_NERD, 12, 18, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, BlackthornSuperNerdScript, EVENT_BLACKTHORN_CITY_SUPER_NERD_BLOCKS_GYM
|
|
object_event SPRITE_SUPER_NERD, 12, 19, 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 SPRITE_GRAMPS, 2, 20, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BlackthornGramps1Script, EVENT_BLACKTHORN_CITY_GRAMPS_BLOCKS_DRAGONS_DEN
|
|
object_event SPRITE_GRAMPS, 2, 21, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BlackthornGramps2Script, EVENT_BLACKTHORN_CITY_GRAMPS_NOT_BLOCKING_DRAGONS_DEN
|
|
object_event SPRITE_BLACK_BELT, 31, 24, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 0, 1, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, BlackthornBlackBeltScript, -1
|
|
object_event SPRITE_COOLTRAINER_F, 25, 9, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 0, 2, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, BlackthornCooltrainerF1Script, -1
|
|
object_event SPRITE_YOUNGSTER, 15, 13, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 0, 1, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BlackthornYoungsterScript, -1
|
|
object_event SPRITE_YOUNGSTER, 20, 22, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, SantosScript, EVENT_BLACKTHORN_CITY_SANTOS_OF_SATURDAY
|
|
object_event SPRITE_COOLTRAINER_F, 19, 35, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, BlackthornCooltrainerF2Script, -1
|