pokecrystal/maps/VioletGym.asm

300 lines
5.7 KiB
NASM
Raw Normal View History

object_const_def
2015-11-27 05:22:14 +00:00
const VIOLETGYM_FALKNER
const VIOLETGYM_YOUNGSTER1
const VIOLETGYM_YOUNGSTER2
2020-07-17 17:01:48 +00:00
const VIOLETGYM_GYM_GUIDE
2015-11-27 05:22:14 +00:00
VioletGym_MapScripts:
def_scene_scripts
def_callbacks
2018-02-28 21:50:43 +00:00
VioletGymFalknerScript:
faceplayer
2015-12-09 23:25:44 +00:00
opentext
2013-09-24 07:48:58 +00:00
checkevent EVENT_BEAT_FALKNER
2015-07-10 07:00:27 +00:00
iftrue .FightDone
2018-08-19 17:56:41 +00:00
writetext FalknerIntroText
2015-11-25 15:16:29 +00:00
waitbutton
closetext
2018-08-19 17:56:41 +00:00
winlosstext FalknerWinLossText, 0
loadtrainer FALKNER, FALKNER1
startbattle
reloadmapafterbattle
2013-09-24 07:48:58 +00:00
setevent EVENT_BEAT_FALKNER
2015-12-09 23:25:44 +00:00
opentext
2018-08-19 17:56:41 +00:00
writetext ReceivedZephyrBadgeText
playsound SFX_GET_BADGE
2015-11-25 15:16:29 +00:00
waitsfx
2015-07-10 07:00:27 +00:00
setflag ENGINE_ZEPHYRBADGE
readvar VAR_BADGES
scall VioletGymActivateRockets
.FightDone:
2013-09-24 07:48:58 +00:00
checkevent EVENT_GOT_TM31_MUD_SLAP
iftrue .SpeechAfterTM
2013-09-24 07:48:58 +00:00
setevent EVENT_BEAT_BIRD_KEEPER_ROD
setevent EVENT_BEAT_BIRD_KEEPER_ABE
setmapscene ELMS_LAB, SCENE_ELMSLAB_NOTHING
2015-10-24 14:34:19 +00:00
specialphonecall SPECIALCALL_ASSISTANT
2018-08-19 17:56:41 +00:00
writetext FalknerZephyrBadgeText
2019-11-03 17:48:54 +00:00
promptbutton
2015-11-05 01:20:14 +00:00
verbosegiveitem TM_MUD_SLAP
iffalse .NoRoomForMudSlap
2013-09-24 07:48:58 +00:00
setevent EVENT_GOT_TM31_MUD_SLAP
2018-08-19 17:56:41 +00:00
writetext FalknerTMMudSlapText
2015-11-25 15:16:29 +00:00
waitbutton
closetext
end
.SpeechAfterTM:
2018-08-19 17:56:41 +00:00
writetext FalknerFightDoneText
2015-11-25 15:16:29 +00:00
waitbutton
.NoRoomForMudSlap:
2015-11-25 15:16:29 +00:00
closetext
end
VioletGymActivateRockets:
2018-02-03 02:09:17 +00:00
ifequal 7, .RadioTowerRockets
ifequal 6, .GoldenrodRockets
end
.GoldenrodRockets:
jumpstd GoldenrodRocketsScript
.RadioTowerRockets:
jumpstd RadioTowerRocketsScript
TrainerBirdKeeperRod:
trainer BIRD_KEEPER, ROD, EVENT_BEAT_BIRD_KEEPER_ROD, BirdKeeperRodSeenText, BirdKeeperRodBeatenText, 0, .Script
2017-12-18 01:45:04 +00:00
.Script:
2018-02-03 02:09:17 +00:00
endifjustbattled
2015-12-09 23:25:44 +00:00
opentext
writetext BirdKeeperRodAfterBattleText
2015-11-25 15:16:29 +00:00
waitbutton
closetext
end
TrainerBirdKeeperAbe:
trainer BIRD_KEEPER, ABE, EVENT_BEAT_BIRD_KEEPER_ABE, BirdKeeperAbeSeenText, BirdKeeperAbeBeatenText, 0, .Script
2017-12-18 01:45:04 +00:00
.Script:
2018-02-03 02:09:17 +00:00
endifjustbattled
2015-12-09 23:25:44 +00:00
opentext
writetext BirdKeeperAbeAfterBattleText
2015-11-25 15:16:29 +00:00
waitbutton
closetext
end
2020-07-17 17:01:48 +00:00
VioletGymGuideScript:
faceplayer
2015-12-09 23:25:44 +00:00
opentext
2013-09-24 07:48:58 +00:00
checkevent EVENT_BEAT_FALKNER
2020-07-17 17:01:48 +00:00
iftrue .VioletGymGuideWinScript
writetext VioletGymGuideText
2015-11-25 15:16:29 +00:00
waitbutton
closetext
end
2020-07-17 17:01:48 +00:00
.VioletGymGuideWinScript:
writetext VioletGymGuideWinText
2015-11-25 15:16:29 +00:00
waitbutton
closetext
end
2015-06-25 03:51:36 +00:00
VioletGymStatue:
checkflag ENGINE_ZEPHYRBADGE
iftrue .Beaten
jumpstd GymStatue1Script
.Beaten:
gettrainername STRING_BUFFER_4, FALKNER, FALKNER1
jumpstd GymStatue2Script
2018-08-19 17:56:41 +00:00
FalknerIntroText:
text "I'm FALKNER, the"
line "VIOLET #MON GYM"
cont "leader!"
para "People say you can"
line "clip flying-type"
para "#MON's wings"
line "with a jolt of"
cont "electricity…"
para "I won't allow such"
line "insults to bird"
cont "#MON!"
para "I'll show you the"
line "real power of the"
para "magnificent bird"
line "#MON!"
done
2018-08-19 17:56:41 +00:00
FalknerWinLossText:
text "…Darn! My dad's"
line "cherished bird"
cont "#MON…"
para "All right."
line "Take this."
para "It's the official"
line "#MON LEAGUE"
cont "ZEPHYRBADGE."
done
2018-08-19 17:56:41 +00:00
ReceivedZephyrBadgeText:
text "<PLAYER> received"
line "ZEPHYRBADGE."
done
2018-08-19 17:56:41 +00:00
FalknerZephyrBadgeText:
text "ZEPHYRBADGE"
line "raises the attack"
cont "power of #MON."
para "It also enables"
line "#MON to use"
para "FLASH, if they"
line "have it, anytime."
para "Here--take this"
line "too."
done
2018-08-19 17:56:41 +00:00
FalknerTMMudSlapText:
text "By using a TM, a"
line "#MON will"
para "instantly learn a"
line "new move."
para "Think before you"
line "act--a TM can be"
cont "used only once."
para "TM31 contains"
line "MUD-SLAP."
para "It reduces the"
line "enemy's accuracy"
para "while it causes"
line "damage."
para "In other words, it"
line "is both defensive"
cont "and offensive."
done
2018-08-19 17:56:41 +00:00
FalknerFightDoneText:
text "There are #MON"
line "GYMS in cities and"
cont "towns ahead."
para "You should test"
line "your skills at"
cont "these GYMS."
para "I'm going to train"
line "harder to become"
para "the greatest bird"
line "master!"
done
BirdKeeperRodSeenText:
text "The keyword is"
line "guts!"
para "Those here are"
line "training night and"
para "day to become bird"
line "#MON masters."
para "Come on!"
done
BirdKeeperRodBeatenText:
text "Gaaah!"
done
BirdKeeperRodAfterBattleText:
text "FALKNER's skills"
line "are for real!"
para "Don't get cocky"
line "just because you"
cont "beat me!"
done
BirdKeeperAbeSeenText:
text "Let me see if you"
line "are good enough to"
cont "face FALKNER!"
done
BirdKeeperAbeBeatenText:
text "This can't be"
line "true!"
done
BirdKeeperAbeAfterBattleText:
text "This is pathetic,"
line "losing to some"
cont "rookie trainer…"
done
2020-07-17 17:01:48 +00:00
VioletGymGuideText:
text "Hey! I'm no train-"
line "er but I can give"
cont "some advice!"
para "Believe me!"
line "If you believe, a"
para "championship dream"
line "can come true."
para "You believe?"
line "Then listen."
para "The grass-type is"
line "weak against the"
para "flying-type. Keep"
line "this in mind."
done
2020-07-17 17:01:48 +00:00
VioletGymGuideWinText:
text "Nice battle! Keep"
line "it up, and you'll"
para "be the CHAMP in no"
line "time at all!"
done
VioletGym_MapEvents:
db 0, 0 ; filler
def_warp_events
2018-02-02 03:22:07 +00:00
warp_event 4, 15, VIOLET_CITY, 2
warp_event 5, 15, VIOLET_CITY, 2
def_coord_events
def_bg_events
2018-02-02 03:22:07 +00:00
bg_event 3, 13, BGEVENT_READ, VioletGymStatue
bg_event 6, 13, BGEVENT_READ, VioletGymStatue
def_object_events
2018-02-28 21:50:43 +00:00
object_event 5, 1, SPRITE_FALKNER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, VioletGymFalknerScript, -1
2018-02-02 03:22:07 +00:00
object_event 7, 6, SPRITE_YOUNGSTER, SPRITEMOVEDATA_STANDING_LEFT, 2, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 3, TrainerBirdKeeperRod, -1
object_event 2, 10, SPRITE_YOUNGSTER, SPRITEMOVEDATA_STANDING_RIGHT, 2, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 3, TrainerBirdKeeperAbe, -1
2020-07-17 17:01:48 +00:00
object_event 7, 13, SPRITE_GYM_GUIDE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, VioletGymGuideScript, -1