pokecrystal-board/maps/LakeOfRage.asm

523 lines
11 KiB
NASM
Raw Normal View History

object_const_def ; object_event constants
2015-11-26 21:22:14 -08:00
const LAKEOFRAGE_LANCE
const LAKEOFRAGE_GRAMPS
const LAKEOFRAGE_SUPER_NERD1
const LAKEOFRAGE_COOLTRAINER_F1
const LAKEOFRAGE_FISHER1
const LAKEOFRAGE_FISHER2
const LAKEOFRAGE_COOLTRAINER_M
const LAKEOFRAGE_COOLTRAINER_F2
const LAKEOFRAGE_GYARADOS
2016-04-06 21:59:45 -07:00
const LAKEOFRAGE_WESLEY
2015-11-26 21:22:14 -08:00
const LAKEOFRAGE_POKE_BALL1
const LAKEOFRAGE_POKE_BALL2
LakeOfRage_MapScripts:
db 2 ; scene scripts
scene_script .DummyScene0 ; unusable
scene_script .DummyScene1 ; unusable
db 2 ; callbacks
callback MAPCALLBACK_NEWMAP, .FlyPoint
callback MAPCALLBACK_OBJECTS, .Wesley
.DummyScene0:
end
.DummyScene1:
end
.FlyPoint:
2015-06-25 22:30:16 -07:00
setflag ENGINE_FLYPOINT_LAKE_OF_RAGE
return
.Wesley:
readvar VAR_WEEKDAY
2018-02-02 18:09:17 -08:00
ifequal WEDNESDAY, .WesleyAppears
2016-04-06 21:59:45 -07:00
disappear LAKEOFRAGE_WESLEY
return
.WesleyAppears:
2016-04-06 21:59:45 -07:00
appear LAKEOFRAGE_WESLEY
return
2018-03-01 10:18:51 -08:00
LakeOfRageLanceScript:
2013-09-24 00:48:58 -07:00
checkevent EVENT_REFUSED_TO_HELP_LANCE_AT_LAKE_OF_RAGE
2018-03-01 10:18:51 -08:00
iftrue .AskAgainForHelp
2015-12-09 15:25:44 -08:00
opentext
writetext LakeOfRageLanceForcedToEvolveText
2015-11-29 19:29:45 -08:00
buttonsound
faceplayer
writetext LakeOfRageLanceIntroText
yesorno
2018-03-01 10:18:51 -08:00
iffalse .RefusedToHelp
.AgreedToHelp:
writetext LakeOfRageLanceRadioSignalText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
playsound SFX_WARP_TO
2015-11-26 21:22:14 -08:00
applymovement LAKEOFRAGE_LANCE, MovementData_0x70155
disappear LAKEOFRAGE_LANCE
2015-11-03 04:11:32 -08:00
clearevent EVENT_MAHOGANY_MART_LANCE_AND_DRAGONITE
2013-09-24 00:48:58 -07:00
setevent EVENT_DECIDED_TO_HELP_LANCE
setmapscene MAHOGANY_MART_1F, SCENE_MAHOGANYMART1F_LANCE_UNCOVERS_STAIRS
end
2018-03-01 10:18:51 -08:00
.RefusedToHelp:
writetext LakeOfRageLanceRefusedText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
2013-09-24 00:48:58 -07:00
setevent EVENT_REFUSED_TO_HELP_LANCE_AT_LAKE_OF_RAGE
end
2018-03-01 10:18:51 -08:00
.AskAgainForHelp:
faceplayer
2015-12-09 15:25:44 -08:00
opentext
writetext LakeOfRageLanceAskHelpText
yesorno
2018-03-01 10:18:51 -08:00
iffalse .RefusedToHelp
sjump .AgreedToHelp
2018-03-01 10:18:51 -08:00
RedGyarados:
2015-12-09 15:25:44 -08:00
opentext
writetext LakeOfRageGyaradosCryText
pause 15
cry GYARADOS
2015-11-25 07:16:29 -08:00
closetext
loadwildmon GYARADOS, 30
loadvar VAR_BATTLETYPE, BATTLETYPE_SHINY
startbattle
2019-01-15 04:37:22 -08:00
ifequal LOSE, .NotBeaten
2015-11-26 21:22:14 -08:00
disappear LAKEOFRAGE_GYARADOS
2018-03-01 10:18:51 -08:00
.NotBeaten:
reloadmapafterbattle
2015-12-09 15:25:44 -08:00
opentext
2015-11-04 17:20:14 -08:00
giveitem RED_SCALE
2015-11-25 07:16:29 -08:00
waitsfx
writetext LakeOfRageGotRedScaleText
playsound SFX_ITEM
2015-11-25 07:16:29 -08:00
waitsfx
itemnotify
2015-11-25 07:16:29 -08:00
closetext
setscene 0 ; Lake of Rage does not have a scene variable
2015-11-26 21:22:14 -08:00
appear LAKEOFRAGE_LANCE
end
2018-03-01 10:18:51 -08:00
LakeOfRageGrampsScript:
faceplayer
2015-12-09 15:25:44 -08:00
opentext
2013-09-24 00:48:58 -07:00
checkevent EVENT_CLEARED_ROCKET_HIDEOUT
2018-03-01 10:18:51 -08:00
iftrue .ClearedRocketHideout
writetext LakeOfRageGrampsText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2018-03-01 10:18:51 -08:00
.ClearedRocketHideout:
writetext LakeOfRageGrampsText_ClearedRocketHideout
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2017-12-17 16:48:04 -08:00
LakeOfRageSuperNerdScript:
jumptextfaceplayer LakeOfRageSuperNerdText
2017-12-17 16:48:04 -08:00
LakeOfRageCooltrainerFScript:
jumptextfaceplayer LakeOfRageCooltrainerFText
LakeOfRageSign:
jumptext LakeOfRageSignText
MagikarpHouseSignScript:
2015-12-09 15:25:44 -08:00
opentext
writetext FishingGurusHouseSignText
2013-09-24 00:48:58 -07:00
checkevent EVENT_CLEARED_ROCKET_HIDEOUT
iftrue .MagikarpLengthRecord
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
.MagikarpLengthRecord:
2015-11-29 19:29:45 -08:00
buttonsound
special MagikarpHouseSign
2015-11-25 07:16:29 -08:00
closetext
end
2015-06-25 22:30:16 -07:00
TrainerFisherAndre:
trainer FISHER, ANDRE, EVENT_BEAT_FISHER_ANDRE, FisherAndreSeenText, FisherAndreBeatenText, 0, .Script
2017-12-17 17:45:04 -08:00
.Script:
2018-02-02 18:09:17 -08:00
endifjustbattled
2015-12-09 15:25:44 -08:00
opentext
2017-12-10 12:36:58 -08:00
writetext FisherAndreAfterBattleText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2015-06-25 22:30:16 -07:00
TrainerFisherRaymond:
trainer FISHER, RAYMOND, EVENT_BEAT_FISHER_RAYMOND, FisherRaymondSeenText, FisherRaymondBeatenText, 0, .Script
2017-12-17 17:45:04 -08:00
.Script:
2018-02-02 18:09:17 -08:00
endifjustbattled
2015-12-09 15:25:44 -08:00
opentext
2017-12-10 12:36:58 -08:00
writetext FisherRaymondAfterBattleText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2015-06-25 22:30:16 -07:00
TrainerCooltrainermAaron:
trainer COOLTRAINERM, AARON, EVENT_BEAT_COOLTRAINERM_AARON, CooltrainermAaronSeenText, CooltrainermAaronBeatenText, 0, .Script
2017-12-17 17:45:04 -08:00
.Script:
2018-02-02 18:09:17 -08:00
endifjustbattled
2015-12-09 15:25:44 -08:00
opentext
2017-12-10 12:36:58 -08:00
writetext CooltrainermAaronAfterBattleText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2015-06-25 22:30:16 -07:00
TrainerCooltrainerfLois:
trainer COOLTRAINERF, LOIS, EVENT_BEAT_COOLTRAINERF_LOIS, CooltrainerfLoisSeenText, CooltrainerfLoisBeatenText, 0, .Script
2017-12-17 17:45:04 -08:00
.Script:
2018-02-02 18:09:17 -08:00
endifjustbattled
2015-12-09 15:25:44 -08:00
opentext
2017-12-10 12:36:58 -08:00
writetext CooltrainerfLoisAfterBattleText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2014-10-26 18:37:15 -07:00
WesleyScript:
faceplayer
2015-12-09 15:25:44 -08:00
opentext
2013-09-24 00:48:58 -07:00
checkevent EVENT_GOT_BLACKBELT_FROM_WESLEY
2014-10-26 18:37:15 -07:00
iftrue WesleyWednesdayScript
readvar VAR_WEEKDAY
2018-02-02 18:09:17 -08:00
ifnotequal WEDNESDAY, WesleyNotWednesdayScript
2013-09-24 00:48:58 -07:00
checkevent EVENT_MET_WESLEY_OF_WEDNESDAY
2014-10-26 18:37:15 -07:00
iftrue .MetWesley
2015-01-20 00:01:23 -08:00
writetext MeetWesleyText
2015-11-29 19:29:45 -08:00
buttonsound
2013-09-24 00:48:58 -07:00
setevent EVENT_MET_WESLEY_OF_WEDNESDAY
.MetWesley:
2015-01-20 00:01:23 -08:00
writetext WesleyGivesGiftText
2015-11-29 19:29:45 -08:00
buttonsound
2015-11-04 17:20:14 -08:00
verbosegiveitem BLACKBELT
2014-10-26 18:37:15 -07:00
iffalse WesleyDoneScript
2013-09-24 00:48:58 -07:00
setevent EVENT_GOT_BLACKBELT_FROM_WESLEY
2015-01-20 00:01:23 -08:00
writetext WesleyGaveGiftText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2014-10-26 18:37:15 -07:00
WesleyWednesdayScript:
2015-01-20 00:01:23 -08:00
writetext WesleyWednesdayText
2015-11-25 07:16:29 -08:00
waitbutton
2014-10-26 18:37:15 -07:00
WesleyDoneScript:
2015-11-25 07:16:29 -08:00
closetext
end
2014-10-26 18:37:15 -07:00
WesleyNotWednesdayScript:
2015-01-20 00:01:23 -08:00
writetext WesleyNotWednesdayText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
LakeOfRageElixer:
2015-12-15 07:55:56 -08:00
itemball ELIXER
LakeOfRageTMDetect:
2015-12-15 07:55:56 -08:00
itemball TM_DETECT
LakeOfRageHiddenFullRestore:
hiddenitem FULL_RESTORE, EVENT_LAKE_OF_RAGE_HIDDEN_FULL_RESTORE
LakeOfRageHiddenRareCandy:
hiddenitem RARE_CANDY, EVENT_LAKE_OF_RAGE_HIDDEN_RARE_CANDY
LakeOfRageHiddenMaxPotion:
hiddenitem MAX_POTION, EVENT_LAKE_OF_RAGE_HIDDEN_MAX_POTION
2015-06-25 22:30:16 -07:00
MovementData_0x70155:
teleport_from
step_end
LakeOfRageLanceForcedToEvolveText:
text "This lake is full"
line "of GYARADOS but"
cont "nothing else…"
para "So the MAGIKARP"
line "are being forced"
cont "to evolve…"
done
LakeOfRageLanceIntroText:
text "Did you come here"
line "because of the"
cont "rumors?"
para "You're <PLAYER>?"
line "I'm LANCE, a"
cont "trainer like you."
para "I heard some ru-"
line "mors, so I came to"
cont "investigate…"
para "I saw the way you"
line "battled earlier,"
cont "<PLAY_G>."
para "I can tell that"
line "you're a trainer"
para "with considerable"
line "skill."
para "If you don't mind,"
line "could you help me"
cont "investigate?"
done
LakeOfRageLanceRadioSignalText:
text "LANCE: Excellent!"
para "It seems that the"
line "LAKE's MAGIKARP"
para "are being forced"
line "to evolve."
para "A mysterious radio"
line "broadcast coming"
para "from MAHOGANY is"
line "the cause."
para "I'll be waiting"
line "for you, <PLAY_G>."
done
LakeOfRageLanceRefusedText:
text "Oh… Well, if you"
line "change your mind,"
cont "please help me."
done
LakeOfRageLanceAskHelpText:
text "LANCE: Hm? Are you"
line "going to help me?"
done
LakeOfRageGyaradosCryText:
text "GYARADOS: Gyashaa!"
done
LakeOfRageGotRedScaleText:
text "<PLAYER> obtained a"
line "RED SCALE."
done
2018-03-01 10:18:51 -08:00
LakeOfRageGrampsText:
text "The GYARADOS are"
line "angry!"
para "It's a bad omen!"
done
2018-03-01 10:18:51 -08:00
LakeOfRageGrampsText_ClearedRocketHideout:
text "Hahah! The MAGI-"
line "KARP are biting!"
done
2017-12-17 16:48:04 -08:00
LakeOfRageSuperNerdText:
text "I heard this lake"
line "was made by ram-"
cont "paging GYARADOS."
para "I wonder if there"
line "is any connection"
para "to their mass out-"
line "break now?"
done
2017-12-17 16:48:04 -08:00
LakeOfRageCooltrainerFText:
text "Did my eyes de-"
line "ceive me? I saw a"
para "red GYARADOS in"
line "the LAKE…"
para "But I thought"
line "GYARADOS were"
cont "usually blue?"
done
2015-06-25 22:30:16 -07:00
FisherAndreSeenText:
text "Let me battle with"
line "the #MON I just"
cont "caught!"
done
2015-06-25 22:30:16 -07:00
FisherAndreBeatenText:
text "I might be an ex-"
line "pert angler, but"
para "I stink as a #-"
line "MON trainer…"
done
2017-12-10 12:36:58 -08:00
FisherAndreAfterBattleText:
text "I won't lose as an"
line "angler! I catch"
cont "#MON all day."
done
2015-06-25 22:30:16 -07:00
FisherRaymondSeenText:
text "No matter what I"
line "do, all I catch"
para "are the same #-"
line "MON…"
done
2015-06-25 22:30:16 -07:00
FisherRaymondBeatenText:
text "My line's all"
line "tangled up…"
done
2017-12-10 12:36:58 -08:00
FisherRaymondAfterBattleText:
text "Why can't I catch"
line "any good #MON?"
done
2015-06-25 22:30:16 -07:00
CooltrainermAaronSeenText:
text "If a trainer spots"
line "another trainer,"
para "he has to make a"
line "challenge."
para "That is our"
line "destiny."
done
2015-06-25 22:30:16 -07:00
CooltrainermAaronBeatenText:
text "Whew…"
line "Good battle."
done
2017-12-10 12:36:58 -08:00
CooltrainermAaronAfterBattleText:
text "#MON and their"
line "trainer become"
para "powerful through"
line "constant battling."
done
2015-06-25 22:30:16 -07:00
CooltrainerfLoisSeenText:
text "What happened to"
line "the red GYARADOS?"
para "It's gone?"
para "Oh, darn. I came"
line "here for nothing?"
para "I know--let's"
line "battle!"
done
2015-06-25 22:30:16 -07:00
CooltrainerfLoisBeatenText:
text "Good going!"
done
2017-12-10 12:36:58 -08:00
CooltrainerfLoisAfterBattleText:
text "Come to think of"
line "it, I've seen a"
cont "pink BUTTERFREE."
done
2014-10-26 18:37:15 -07:00
MeetWesleyText:
text "WESLEY: Well, how"
line "do you do?"
para "Seeing as how it's"
line "Wednesday today,"
para "I'm WESLEY of"
line "Wednesday."
done
2014-10-26 18:37:15 -07:00
WesleyGivesGiftText:
text "Pleased to meet"
line "you. Please take a"
cont "souvenir."
done
2014-10-26 18:37:15 -07:00
WesleyGaveGiftText:
text "WESLEY: BLACKBELT"
line "beefs up the power"
cont "of fighting moves."
done
2014-10-26 18:37:15 -07:00
WesleyWednesdayText:
text "WESLEY: Since you"
line "found me, you must"
para "have met my broth-"
line "ers and sisters."
para "Or did you just"
line "get lucky?"
done
2014-10-26 18:37:15 -07:00
WesleyNotWednesdayText:
text "WESLEY: Today's"
line "not Wednesday."
cont "That's too bad."
done
LakeOfRageSignText:
text "LAKE OF RAGE,"
line "also known as"
cont "GYARADOS LAKE."
done
FishingGurusHouseSignText:
text "FISHING GURU'S"
line "HOUSE"
done
LakeOfRage_MapEvents:
db 0, 0 ; filler
db 2 ; warp events
2018-02-01 19:22:07 -08:00
warp_event 7, 3, LAKE_OF_RAGE_HIDDEN_POWER_HOUSE, 1
2018-02-01 18:54:00 -08:00
warp_event 27, 31, LAKE_OF_RAGE_MAGIKARP_HOUSE, 1
db 0 ; coord events
db 5 ; bg events
bg_event 21, 27, BGEVENT_READ, LakeOfRageSign
bg_event 25, 31, BGEVENT_READ, MagikarpHouseSignScript
bg_event 11, 28, BGEVENT_ITEM, LakeOfRageHiddenFullRestore
2018-02-01 19:22:07 -08:00
bg_event 4, 4, BGEVENT_ITEM, LakeOfRageHiddenRareCandy
bg_event 35, 5, BGEVENT_ITEM, LakeOfRageHiddenMaxPotion
db 12 ; object events
2018-03-01 10:18:51 -08:00
object_event 21, 28, SPRITE_LANCE, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, LakeOfRageLanceScript, EVENT_LAKE_OF_RAGE_LANCE
object_event 20, 26, SPRITE_GRAMPS, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, LakeOfRageGrampsScript, -1
object_event 36, 13, SPRITE_SUPER_NERD, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, LakeOfRageSuperNerdScript, -1
object_event 25, 29, SPRITE_COOLTRAINER_F, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, LakeOfRageCooltrainerFScript, -1
object_event 30, 23, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 1, TrainerFisherAndre, EVENT_LAKE_OF_RAGE_CIVILIANS
object_event 24, 26, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 1, TrainerFisherRaymond, EVENT_LAKE_OF_RAGE_CIVILIANS
2018-02-01 19:22:07 -08:00
object_event 4, 15, SPRITE_COOLTRAINER_M, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 1, TrainerCooltrainermAaron, EVENT_LAKE_OF_RAGE_CIVILIANS
object_event 36, 7, SPRITE_COOLTRAINER_F, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 0, TrainerCooltrainerfLois, EVENT_LAKE_OF_RAGE_CIVILIANS
2018-03-01 10:18:51 -08:00
object_event 18, 22, SPRITE_GYARADOS, SPRITEMOVEDATA_POKEMON, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, RedGyarados, EVENT_LAKE_OF_RAGE_RED_GYARADOS
2018-02-01 19:22:07 -08:00
object_event 4, 4, SPRITE_SUPER_NERD, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, WesleyScript, EVENT_LAKE_OF_RAGE_WESLEY_OF_WEDNESDAY
object_event 7, 10, SPRITE_POKE_BALL, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, LakeOfRageElixer, EVENT_LAKE_OF_RAGE_ELIXER
object_event 35, 2, SPRITE_POKE_BALL, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, LakeOfRageTMDetect, EVENT_LAKE_OF_RAGE_TM_DETECT