pokecrystal/maps/Route36.asm

696 lines
13 KiB
NASM

const_value set 2
const ROUTE36_YOUNGSTER1
const ROUTE36_YOUNGSTER2
const ROUTE36_WEIRD_TREE
const ROUTE36_LASS1
const ROUTE36_FISHER
const ROUTE36_FRUIT_TREE
const ROUTE36_ARTHUR
const ROUTE36_FLORIA
const ROUTE36_SUICUNE
Route36_MapScriptHeader:
.SceneScripts:
db 2
scene_script .DummyScene0
scene_script .DummyScene1
.MapCallbacks:
db 1
dbw MAPCALLBACK_OBJECTS, .ArthurCallback
.DummyScene0:
end
.DummyScene1:
end
.ArthurCallback:
checkcode VAR_WEEKDAY
if_equal THURSDAY, .ArthurAppears
disappear ROUTE36_ARTHUR
return
.ArthurAppears:
appear ROUTE36_ARTHUR
return
Route36SuicuneScript:
showemote EMOTE_SHOCK, PLAYER, 15
pause 15
playsound SFX_WARP_FROM
spriteface PLAYER, UP
applymovement ROUTE36_SUICUNE, Route36SuicuneMovement
disappear ROUTE36_SUICUNE
spriteface PLAYER, DOWN
pause 10
setscene $0
clearevent EVENT_SAW_SUICUNE_AT_CIANWOOD_CITY
setmapscene CIANWOOD_CITY, $1
end
SudowoodoScript:
checkitem SQUIRTBOTTLE
iftrue .Fight
waitsfx
playsound SFX_SANDSTORM
applymovement ROUTE36_WEIRD_TREE, SudowoodoShakeMovement
end
.Fight:
opentext
writetext UseSquirtbottleText
yesorno
iffalse DidntUseSquirtbottleScript
closetext
WateredWeirdTreeScript:: ; export (for when you use Squirtbottle from pack)
opentext
writetext UsedSquirtbottleText
waitbutton
closetext
waitsfx
playsound SFX_SANDSTORM
applymovement ROUTE36_WEIRD_TREE, SudowoodoShakeMovement
opentext
writetext SudowoodoAttackedText
waitbutton
closetext
loadwildmon SUDOWOODO, 20
startbattle
setevent EVENT_FOUGHT_SUDOWOODO
if_equal $2, DidntCatchSudowoodo
disappear ROUTE36_WEIRD_TREE
variablesprite SPRITE_WEIRD_TREE, SPRITE_TWIN
reloadmapafterbattle
end
DidntUseSquirtbottleScript:
closetext
end
DidntCatchSudowoodo:
reloadmapafterbattle
applymovement ROUTE36_WEIRD_TREE, WeirdTreeMovement_Flee
disappear ROUTE36_WEIRD_TREE
variablesprite SPRITE_WEIRD_TREE, SPRITE_TWIN
special Special_MapCallbackSprites_LoadUsedSpritesGFX
special Special_RefreshSprites
end
Route36FloriaScript:
faceplayer
opentext
checkevent EVENT_TALKED_TO_FLORIA_AT_FLOWER_SHOP
iftrue .SecondTimeTalking
setevent EVENT_MET_FLORIA
writetext FloriaText1
waitbutton
closetext
clearevent EVENT_FLORIA_AT_FLOWER_SHOP
checkcode VAR_FACING
if_equal UP, .Up
applymovement ROUTE36_FLORIA, FloriaMovement1
disappear ROUTE36_FLORIA
end
.Up:
applymovement ROUTE36_FLORIA, FloriaMovement2
disappear ROUTE36_FLORIA
end
.SecondTimeTalking:
writetext FloriaText2
waitbutton
closetext
end
Route36RockSmashGuyScript:
faceplayer
opentext
checkevent EVENT_GOT_TM08_ROCK_SMASH
iftrue .AlreadyGotRockSmash
checkevent EVENT_FOUGHT_SUDOWOODO
iftrue .ClearedSudowoodo
writetext RockSmashGuyText1
waitbutton
closetext
end
.ClearedSudowoodo:
writetext RockSmashGuyText2
buttonsound
verbosegiveitem TM_ROCK_SMASH
iffalse .NoRoomForTM
setevent EVENT_GOT_TM08_ROCK_SMASH
.AlreadyGotRockSmash:
writetext RockSmashGuyText3
waitbutton
.NoRoomForTM:
closetext
end
LassScript_0x1940e0:
faceplayer
opentext
checkevent EVENT_FOUGHT_SUDOWOODO
iftrue .ClearedSudowoodo
writetext UnknownText_0x194626
waitbutton
closetext
end
.ClearedSudowoodo:
writetext UnknownText_0x19469e
waitbutton
closetext
end
TrainerSchoolboyAlan1:
trainer EVENT_BEAT_SCHOOLBOY_ALAN, SCHOOLBOY, ALAN1, SchoolboyAlan1SeenText, SchoolboyAlan1BeatenText, 0, .Script
.Script:
writecode VAR_CALLERID, PHONE_SCHOOLBOY_ALAN
end_if_just_battled
opentext
checkflag ENGINE_ALAN
iftrue .ChooseRematch
checkflag ENGINE_ALAN_HAS_FIRE_STONE
iftrue .GiveFireStone
checkcellnum PHONE_SCHOOLBOY_ALAN
iftrue .NumberAccepted
checkevent EVENT_ALAN_ASKED_FOR_PHONE_NUMBER
iftrue .AskAgainForPhoneNumber
writetext UnknownText_0x1947aa
buttonsound
setevent EVENT_ALAN_ASKED_FOR_PHONE_NUMBER
scall .AskNumber1
jump .ContinueAskForPhoneNumber
.AskAgainForPhoneNumber:
scall .AskNumber2
.ContinueAskForPhoneNumber:
askforphonenumber PHONE_SCHOOLBOY_ALAN
if_equal $1, .PhoneFull
if_equal $2, .NumberDeclined
trainertotext SCHOOLBOY, ALAN1, $0
scall .RegisteredNumber
jump .NumberAccepted
.ChooseRematch:
scall .Rematch
winlosstext SchoolboyAlan1BeatenText, 0
copybytetovar wAlanFightCount
if_equal 4, .Fight4
if_equal 3, .Fight3
if_equal 2, .Fight2
if_equal 1, .Fight1
if_equal 0, .LoadFight0
.Fight4:
checkevent EVENT_RESTORED_POWER_TO_KANTO
iftrue .LoadFight4
.Fight3:
checkevent EVENT_BEAT_ELITE_FOUR
iftrue .LoadFight3
.Fight2:
checkflag ENGINE_FLYPOINT_BLACKTHORN
iftrue .LoadFight2
.Fight1:
checkflag ENGINE_FLYPOINT_OLIVINE
iftrue .LoadFight1
.LoadFight0:
loadtrainer SCHOOLBOY, ALAN1
startbattle
reloadmapafterbattle
loadvar wAlanFightCount, 1
clearflag ENGINE_ALAN
end
.LoadFight1:
loadtrainer SCHOOLBOY, ALAN2
startbattle
reloadmapafterbattle
loadvar wAlanFightCount, 2
clearflag ENGINE_ALAN
end
.LoadFight2:
loadtrainer SCHOOLBOY, ALAN3
startbattle
reloadmapafterbattle
loadvar wAlanFightCount, 3
clearflag ENGINE_ALAN
end
.LoadFight3:
loadtrainer SCHOOLBOY, ALAN4
startbattle
reloadmapafterbattle
loadvar wAlanFightCount, 4
clearflag ENGINE_ALAN
end
.LoadFight4:
loadtrainer SCHOOLBOY, ALAN5
startbattle
reloadmapafterbattle
clearflag ENGINE_ALAN
end
.GiveFireStone:
scall .Gift
verbosegiveitem FIRE_STONE
iffalse .BagFull
clearflag ENGINE_ALAN_HAS_FIRE_STONE
setevent EVENT_ALAN_GAVE_FIRE_STONE
jump .NumberAccepted
.BagFull:
jump .PackFull
.AskNumber1:
jumpstd asknumber1m
end
.AskNumber2:
jumpstd asknumber2m
end
.RegisteredNumber:
jumpstd registerednumberm
end
.NumberAccepted:
jumpstd numberacceptedm
end
.NumberDeclined:
jumpstd numberdeclinedm
end
.PhoneFull:
jumpstd phonefullm
end
.Rematch:
jumpstd rematchm
end
.Gift:
jumpstd giftm
end
.PackFull:
jumpstd packfullm
end
TrainerPsychicMark:
trainer EVENT_BEAT_PSYCHIC_MARK, PSYCHIC_T, MARK, PsychicMarkSeenText, PsychicMarkBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext PsychicMarkAfterBattleText
waitbutton
closetext
end
ArthurScript:
faceplayer
opentext
checkevent EVENT_GOT_HARD_STONE_FROM_ARTHUR
iftrue .AlreadyGotStone
checkcode VAR_WEEKDAY
if_not_equal THURSDAY, ArthurNotThursdayScript
checkevent EVENT_MET_ARTHUR_OF_THURSDAY
iftrue .MetArthur
writetext MeetArthurText
buttonsound
setevent EVENT_MET_ARTHUR_OF_THURSDAY
.MetArthur:
writetext ArthurGivesGiftText
buttonsound
verbosegiveitem HARD_STONE
iffalse .BagFull
setevent EVENT_GOT_HARD_STONE_FROM_ARTHUR
writetext ArthurGaveGiftText
waitbutton
closetext
end
.AlreadyGotStone:
writetext ArthurThursdayText
waitbutton
.BagFull:
closetext
end
ArthurNotThursdayScript:
writetext ArthurNotThursdayText
waitbutton
closetext
end
Route36Sign:
jumptext Route36SignText
RuinsOfAlphNorthSign:
jumptext RuinsOfAlphNorthSignText
Route36TrainerTips1:
jumptext Route36TrainerTips1Text
Route36TrainerTips2:
jumptext Route36TrainerTips2Text
Route36FruitTree:
fruittree FRUITTREE_ROUTE_36
SudowoodoShakeMovement:
tree_shake ; shake
step_end
WeirdTreeMovement_Flee:
fast_jump_step UP
fast_jump_step UP
step_end
FloriaMovement1:
step DOWN
step DOWN
step DOWN
step LEFT
step LEFT
step LEFT
step LEFT
step LEFT
step LEFT
step_end
FloriaMovement2:
step LEFT
step DOWN
step DOWN
step DOWN
step LEFT
step LEFT
step LEFT
step LEFT
step LEFT
step_end
Route36SuicuneMovement:
set_sliding
fast_jump_step DOWN
fast_jump_step DOWN
fast_jump_step DOWN
fast_jump_step RIGHT
fast_jump_step RIGHT
fast_jump_step RIGHT
remove_sliding
step_end
UseSquirtbottleText:
text "It's a weird tree."
line "Use SQUIRTBOTTLE?"
done
UsedSquirtbottleText:
text "<PLAYER> used the"
line "SQUIRTBOTTLE."
done
SudowoodoAttackedText:
text "The weird tree"
line "doesn't like the"
cont "SQUIRTBOTTLE!"
para "The weird tree"
line "attacked!"
done
FloriaText1:
text "I'm the FLOWER"
line "SHOP's FLORIA!"
para "Listen, listen!"
para "When I sprinkled"
line "water on that"
para "wiggly tree, it"
line "jumped right up!"
para "It just has to be"
line "a #MON."
para "I bet it would be"
line "shocked out of its"
para "disguise if you"
line "soaked it!"
para "I know! I'll tell"
line "my sis and borrow"
cont "her water bottle!"
done
FloriaText2:
text "When I told my sis"
line "about the jiggly"
para "tree, she said"
line "it's dangerous."
para "If I beat WHITNEY,"
line "I wonder if she'll"
para "lend me her water"
line "bottle…"
done
RockSmashGuyText1:
text "Wa-hey!"
para "I was going to"
line "snap that tree"
para "with my straight-"
line "arm punch."
para "But I couldn't!"
line "I'm a failure!"
done
RockSmashGuyText2:
text "Did you clear that"
line "wretched tree?"
para "I'm impressed!"
line "I want you to"
cont "have this."
done
UnknownText_0x19451a:
text "<PLAYER> received"
line "TM08."
done
RockSmashGuyText3:
text "That happens to be"
line "ROCK SMASH."
para "You can shatter"
line "rocks with just a"
para "single well-aimed"
line "smack."
para "If any rocks are"
line "in your way, just"
cont "smash 'em up!"
done
UnknownText_0x1945b8:
text "An odd tree is"
line "blocking the way"
cont "to GOLDENROD CITY."
para "I wanted to go see"
line "the huge #MON"
para "CENTER they just"
line "opened…"
done
UnknownText_0x194626:
text "An odd tree is"
line "blocking the way"
cont "to GOLDENROD CITY."
para "It's preventing"
line "me from shopping."
para "Something should"
line "be done about it."
done
UnknownText_0x19469e:
text "That odd tree dis-"
line "appeared without a"
cont "trace."
para "Oh! That tree was"
line "really a #MON?"
done
PsychicMarkSeenText:
text "I'm going to read"
line "your thoughts!"
done
PsychicMarkBeatenText:
text "I misread you!"
done
PsychicMarkAfterBattleText:
text "I'd be strong if"
line "only I could tell"
para "what my opponent"
line "was thinking."
done
SchoolboyAlan1SeenText:
text "Thanks to my stud-"
line "ies, I'm ready for"
cont "any #MON!"
done
SchoolboyAlan1BeatenText:
text "Oops! Computation"
line "error?"
done
UnknownText_0x1947aa:
text "Darn. I study five"
line "hours a day too."
para "There's more to"
line "learning than just"
cont "reading books."
done
MeetArthurText:
text "ARTHUR: Who are"
line "you?"
para "I'm ARTHUR of"
line "Thursday."
done
ArthurGivesGiftText:
text "Here. You can have"
line "this."
done
ArthurGaveGiftText:
text "ARTHUR: A #MON"
line "that uses rock-"
para "type moves should"
line "hold on to that."
para "It pumps up rock-"
line "type attacks."
done
ArthurThursdayText:
text "ARTHUR: I'm ARTHUR"
line "of Thursday. I'm"
para "the second son out"
line "of seven children."
done
ArthurNotThursdayText:
text "ARTHUR: Today's"
line "not Thursday. How"
cont "disappointing."
done
Route36SignText:
text "ROUTE 36"
done
RuinsOfAlphNorthSignText:
text "RUINS OF ALPH"
line "NORTH ENTRANCE"
done
Route36TrainerTips1Text:
text "TRAINER TIPS"
para "#MON stats"
line "vary--even within"
cont "the same species."
para "Their stats may be"
line "similar at first."
para "However, differ-"
line "ences will become"
para "pronounced as the"
line "#MON grow."
done
Route36TrainerTips2Text:
text "TRAINER TIPS"
para "Use DIG to return"
line "to the entrance of"
cont "any place."
para "It is convenient"
line "for exploring"
para "caves and other"
line "landmarks."
done
Route36_MapEventHeader:
; filler
db 0, 0
.Warps:
db 4
warp_def 18, 8, 3, ROUTE_36_NATIONAL_PARK_GATE
warp_def 18, 9, 4, ROUTE_36_NATIONAL_PARK_GATE
warp_def 47, 13, 1, ROUTE_36_RUINS_OF_ALPH_GATE
warp_def 48, 13, 2, ROUTE_36_RUINS_OF_ALPH_GATE
.CoordEvents:
db 2
coord_event 20, 7, 1, Route36SuicuneScript
coord_event 22, 7, 1, Route36SuicuneScript
.BGEvents:
db 4
bg_event 29, 1, BGEVENT_READ, Route36TrainerTips2
bg_event 45, 11, BGEVENT_READ, RuinsOfAlphNorthSign
bg_event 55, 7, BGEVENT_READ, Route36Sign
bg_event 21, 7, BGEVENT_READ, Route36TrainerTips1
.ObjectEvents:
db 9
object_event 20, 13, SPRITE_YOUNGSTER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 3, TrainerPsychicMark, -1
object_event 31, 14, SPRITE_YOUNGSTER, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 5, TrainerSchoolboyAlan1, -1
object_event 35, 9, SPRITE_WEIRD_TREE, SPRITEMOVEDATA_SUDOWOODO, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, SudowoodoScript, EVENT_ROUTE_36_SUDOWOODO
object_event 51, 8, SPRITE_LASS, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 2, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, LassScript_0x1940e0, -1
object_event 44, 9, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, Route36RockSmashGuyScript, -1
object_event 21, 4, SPRITE_FRUIT_TREE, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, Route36FruitTree, -1
object_event 46, 6, SPRITE_YOUNGSTER, SPRITEMOVEDATA_WANDER, 1, 1, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, ArthurScript, EVENT_ROUTE_36_ARTHUR_OF_THURSDAY
object_event 33, 12, SPRITE_LASS, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, Route36FloriaScript, EVENT_FLORIA_AT_SUDOWOODO
object_event 21, 6, SPRITE_SUICUNE, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_SAW_SUICUNE_ON_ROUTE_36