pokecrystal-board/maps/VioletGym.asm

300 lines
5.7 KiB
NASM
Raw Normal View History

2018-01-31 08:38:45 -08:00
const_def 2 ; object constants
2015-11-26 21:22:14 -08:00
const VIOLETGYM_FALKNER
const VIOLETGYM_YOUNGSTER1
const VIOLETGYM_YOUNGSTER2
const VIOLETGYM_GYM_GUY
VioletGym_MapScripts:
db 0 ; scene scripts
db 0 ; callbacks
2018-02-28 13:50:43 -08:00
VioletGymFalknerScript:
faceplayer
2015-12-09 15:25:44 -08:00
opentext
2013-09-24 00:48:58 -07:00
checkevent EVENT_BEAT_FALKNER
2015-07-10 00:00:27 -07:00
iftrue .FightDone
2018-08-19 10:56:41 -07:00
writetext FalknerIntroText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
2018-08-19 10:56:41 -07:00
winlosstext FalknerWinLossText, 0
loadtrainer FALKNER, FALKNER1
startbattle
reloadmapafterbattle
2013-09-24 00:48:58 -07:00
setevent EVENT_BEAT_FALKNER
2015-12-09 15:25:44 -08:00
opentext
2018-08-19 10:56:41 -07:00
writetext ReceivedZephyrBadgeText
playsound SFX_GET_BADGE
2015-11-25 07:16:29 -08:00
waitsfx
2015-07-10 00:00:27 -07:00
setflag ENGINE_ZEPHYRBADGE
checkcode VAR_BADGES
scall VioletGymActivateRockets
.FightDone:
2013-09-24 00:48:58 -07:00
checkevent EVENT_GOT_TM31_MUD_SLAP
iftrue .SpeechAfterTM
2013-09-24 00:48:58 -07:00
setevent EVENT_BEAT_BIRD_KEEPER_ROD
setevent EVENT_BEAT_BIRD_KEEPER_ABE
setmapscene ELMS_LAB, SCENE_ELMSLAB_NOTHING
2015-10-24 07:34:19 -07:00
specialphonecall SPECIALCALL_ASSISTANT
2018-08-19 10:56:41 -07:00
writetext FalknerZephyrBadgeText
2015-11-29 19:29:45 -08:00
buttonsound
2015-11-04 17:20:14 -08:00
verbosegiveitem TM_MUD_SLAP
iffalse .NoRoomForMudSlap
2013-09-24 00:48:58 -07:00
setevent EVENT_GOT_TM31_MUD_SLAP
2018-08-19 10:56:41 -07:00
writetext FalknerTMMudSlapText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
.SpeechAfterTM:
2018-08-19 10:56:41 -07:00
writetext FalknerFightDoneText
2015-11-25 07:16:29 -08:00
waitbutton
.NoRoomForMudSlap:
2015-11-25 07:16:29 -08:00
closetext
end
VioletGymActivateRockets:
2018-02-02 18:09:17 -08:00
ifequal 7, .RadioTowerRockets
ifequal 6, .GoldenrodRockets
end
.GoldenrodRockets:
2015-06-24 18:26:24 -07:00
jumpstd goldenrodrockets
.RadioTowerRockets:
2015-06-24 18:26:24 -07:00
jumpstd radiotowerrockets
TrainerBirdKeeperRod:
trainer BIRD_KEEPER, ROD, EVENT_BEAT_BIRD_KEEPER_ROD, BirdKeeperRodSeenText, BirdKeeperRodBeatenText, 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
writetext BirdKeeperRodAfterBattleText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
TrainerBirdKeeperAbe:
trainer BIRD_KEEPER, ABE, EVENT_BEAT_BIRD_KEEPER_ABE, BirdKeeperAbeSeenText, BirdKeeperAbeBeatenText, 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
writetext BirdKeeperAbeAfterBattleText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2015-07-10 00:00:27 -07:00
VioletGymGuyScript:
faceplayer
2015-12-09 15:25:44 -08:00
opentext
2013-09-24 00:48:58 -07:00
checkevent EVENT_BEAT_FALKNER
iftrue .VioletGymGuyWinScript
2015-01-20 00:01:23 -08:00
writetext VioletGymGuyText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
.VioletGymGuyWinScript:
2015-01-20 00:01:23 -08:00
writetext VioletGymGuyWinText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2015-06-24 20:51:36 -07:00
VioletGymStatue:
checkflag ENGINE_ZEPHYRBADGE
iftrue .Beaten
2015-06-24 18:26:24 -07:00
jumpstd gymstatue1
.Beaten:
2018-01-11 22:40:20 -08:00
trainertotext FALKNER, FALKNER1, MEM_BUFFER_1
2015-06-24 18:26:24 -07:00
jumpstd gymstatue2
2018-08-19 10:56:41 -07: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 10:56:41 -07: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 10:56:41 -07:00
ReceivedZephyrBadgeText:
text "<PLAYER> received"
line "ZEPHYRBADGE."
done
2018-08-19 10:56:41 -07: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 10:56:41 -07: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 10:56:41 -07: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
2015-07-10 00:00:27 -07:00
VioletGymGuyText:
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
2015-07-10 00:00:27 -07:00
VioletGymGuyWinText:
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
db 2 ; warp events
2018-02-01 19:22:07 -08:00
warp_event 4, 15, VIOLET_CITY, 2
warp_event 5, 15, VIOLET_CITY, 2
db 0 ; coord events
db 2 ; bg events
2018-02-01 19:22:07 -08:00
bg_event 3, 13, BGEVENT_READ, VioletGymStatue
bg_event 6, 13, BGEVENT_READ, VioletGymStatue
db 4 ; object events
2018-02-28 13:50:43 -08:00
object_event 5, 1, SPRITE_FALKNER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, VioletGymFalknerScript, -1
2018-02-01 19:22:07 -08: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
object_event 7, 13, SPRITE_GYM_GUY, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, VioletGymGuyScript, -1