pokecrystal-board/maps/IndigoPlateauPokecenter1F.asm

325 lines
7.6 KiB
NASM
Raw Normal View History

object_const_def ; object_event constants
2015-11-26 21:22:14 -08:00
const INDIGOPLATEAUPOKECENTER1F_NURSE
const INDIGOPLATEAUPOKECENTER1F_CLERK
const INDIGOPLATEAUPOKECENTER1F_COOLTRAINER_M
const INDIGOPLATEAUPOKECENTER1F_SILVER
const INDIGOPLATEAUPOKECENTER1F_GRAMPS
2016-04-07 03:13:59 -07:00
const INDIGOPLATEAUPOKECENTER1F_ABRA
2015-11-26 21:22:14 -08:00
IndigoPlateauPokecenter1F_MapScripts:
db 1 ; scene scripts
scene_script .DummyScene ; SCENE_DEFAULT
db 1 ; callbacks
callback MAPCALLBACK_NEWMAP, .PrepareElite4
.DummyScene:
end
.PrepareElite4:
setmapscene WILLS_ROOM, SCENE_DEFAULT
setmapscene KOGAS_ROOM, SCENE_DEFAULT
setmapscene BRUNOS_ROOM, SCENE_DEFAULT
setmapscene KARENS_ROOM, SCENE_DEFAULT
setmapscene LANCES_ROOM, SCENE_DEFAULT
setmapscene HALL_OF_FAME, SCENE_DEFAULT
2013-09-24 00:48:58 -07:00
clearevent EVENT_WILLS_ROOM_ENTRANCE_CLOSED
clearevent EVENT_WILLS_ROOM_EXIT_OPEN
2013-09-24 00:48:58 -07:00
clearevent EVENT_KOGAS_ROOM_ENTRANCE_CLOSED
clearevent EVENT_KOGAS_ROOM_EXIT_OPEN
clearevent EVENT_BRUNOS_ROOM_ENTRANCE_CLOSED
2013-09-24 00:48:58 -07:00
clearevent EVENT_BRUNOS_ROOM_EXIT_OPEN
clearevent EVENT_KARENS_ROOM_ENTRANCE_CLOSED
clearevent EVENT_KARENS_ROOM_EXIT_OPEN
clearevent EVENT_LANCES_ROOM_ENTRANCE_CLOSED
clearevent EVENT_LANCES_ROOM_EXIT_OPEN
2015-07-10 01:20:21 -07:00
clearevent EVENT_BEAT_ELITE_4_WILL
clearevent EVENT_BEAT_ELITE_4_KOGA
clearevent EVENT_BEAT_ELITE_4_BRUNO
2013-09-24 00:48:58 -07:00
clearevent EVENT_BEAT_ELITE_4_KAREN
clearevent EVENT_BEAT_CHAMPION_LANCE
setevent EVENT_LANCES_ROOM_OAK_AND_MARY
return
2016-04-07 03:13:59 -07:00
PlateauRivalBattle1:
2013-09-24 00:48:58 -07:00
checkevent EVENT_BEAT_RIVAL_IN_MT_MOON
2016-04-07 03:13:59 -07:00
iffalse PlateauRivalScriptDone
2015-07-10 05:08:03 -07:00
checkflag ENGINE_INDIGO_PLATEAU_RIVAL_FIGHT
2016-04-07 03:13:59 -07:00
iftrue PlateauRivalScriptDone
readvar VAR_WEEKDAY
2018-02-02 18:09:17 -08:00
ifequal SUNDAY, PlateauRivalScriptDone
ifequal TUESDAY, PlateauRivalScriptDone
ifequal THURSDAY, PlateauRivalScriptDone
ifequal FRIDAY, PlateauRivalScriptDone
ifequal SATURDAY, PlateauRivalScriptDone
moveobject INDIGOPLATEAUPOKECENTER1F_SILVER, 17, 9
2015-11-26 21:22:14 -08:00
appear INDIGOPLATEAUPOKECENTER1F_SILVER
turnobject PLAYER, DOWN
showemote EMOTE_SHOCK, PLAYER, 15
special FadeOutMusic
pause 15
2016-04-07 03:13:59 -07:00
applymovement INDIGOPLATEAUPOKECENTER1F_SILVER, PlateauRivalMovement1
playmusic MUSIC_RIVAL_ENCOUNTER
turnobject PLAYER, RIGHT
sjump PlateauRivalBattleCommon
2016-04-07 03:13:59 -07:00
PlateauRivalBattle2:
2013-09-24 00:48:58 -07:00
checkevent EVENT_BEAT_RIVAL_IN_MT_MOON
2016-04-07 03:13:59 -07:00
iffalse PlateauRivalScriptDone
2015-07-10 05:08:03 -07:00
checkflag ENGINE_INDIGO_PLATEAU_RIVAL_FIGHT
2016-04-07 03:13:59 -07:00
iftrue PlateauRivalScriptDone
readvar VAR_WEEKDAY
2018-02-02 18:09:17 -08:00
ifequal SUNDAY, PlateauRivalScriptDone
ifequal TUESDAY, PlateauRivalScriptDone
ifequal THURSDAY, PlateauRivalScriptDone
ifequal FRIDAY, PlateauRivalScriptDone
ifequal SATURDAY, PlateauRivalScriptDone
2015-11-26 21:22:14 -08:00
appear INDIGOPLATEAUPOKECENTER1F_SILVER
turnobject PLAYER, DOWN
showemote EMOTE_SHOCK, PLAYER, 15
special FadeOutMusic
pause 15
2016-04-07 03:13:59 -07:00
applymovement INDIGOPLATEAUPOKECENTER1F_SILVER, PlateauRivalMovement2
playmusic MUSIC_RIVAL_ENCOUNTER
turnobject PLAYER, LEFT
2016-04-07 03:13:59 -07:00
PlateauRivalBattleCommon:
2015-12-09 15:25:44 -08:00
opentext
2016-04-07 03:13:59 -07:00
writetext PlateauRivalText1
2015-11-25 07:16:29 -08:00
waitbutton
closetext
setevent EVENT_INDIGO_PLATEAU_POKECENTER_RIVAL
2013-09-24 00:48:58 -07:00
checkevent EVENT_GOT_TOTODILE_FROM_ELM
2016-04-07 03:13:59 -07:00
iftrue .Totodile
2013-09-24 00:48:58 -07:00
checkevent EVENT_GOT_CHIKORITA_FROM_ELM
2016-04-07 03:13:59 -07:00
iftrue .Chikorita
; Cyndaquil
winlosstext PlateauRivalWinText, PlateauRivalLoseText
2015-12-09 08:38:40 -08:00
setlasttalked INDIGOPLATEAUPOKECENTER1F_SILVER
loadtrainer RIVAL2, RIVAL2_2_TOTODILE
startbattle
dontrestartmapmusic
reloadmapafterbattle
sjump PlateauRivalPostBattle
.Totodile:
2016-04-07 03:13:59 -07:00
winlosstext PlateauRivalWinText, PlateauRivalLoseText
2015-12-09 08:38:40 -08:00
setlasttalked INDIGOPLATEAUPOKECENTER1F_SILVER
loadtrainer RIVAL2, RIVAL2_2_CHIKORITA
startbattle
dontrestartmapmusic
reloadmapafterbattle
sjump PlateauRivalPostBattle
.Chikorita:
2016-04-07 03:13:59 -07:00
winlosstext PlateauRivalWinText, PlateauRivalLoseText
2015-12-09 08:38:40 -08:00
setlasttalked INDIGOPLATEAUPOKECENTER1F_SILVER
loadtrainer RIVAL2, RIVAL2_2_CYNDAQUIL
startbattle
dontrestartmapmusic
reloadmapafterbattle
sjump PlateauRivalPostBattle
2016-04-07 03:13:59 -07:00
PlateauRivalPostBattle:
playmusic MUSIC_RIVAL_AFTER
2015-12-09 15:25:44 -08:00
opentext
2016-04-07 03:13:59 -07:00
writetext PlateauRivalText2
2015-11-25 07:16:29 -08:00
waitbutton
closetext
turnobject PLAYER, DOWN
2016-04-07 03:13:59 -07:00
applymovement INDIGOPLATEAUPOKECENTER1F_SILVER, PlateauRivalLeavesMovement
2015-11-26 21:22:14 -08:00
disappear INDIGOPLATEAUPOKECENTER1F_SILVER
setscene SCENE_DEFAULT
playmapmusic
2015-07-10 05:08:03 -07:00
setflag ENGINE_INDIGO_PLATEAU_RIVAL_FIGHT
2016-04-07 03:13:59 -07:00
PlateauRivalScriptDone:
end
2018-02-28 13:50:43 -08:00
IndigoPlateauPokecenter1FNurseScript:
jumpstd pokecenternurse
2018-02-28 13:50:43 -08:00
IndigoPlateauPokecenter1FClerkScript:
2015-12-09 15:25:44 -08:00
opentext
2015-11-02 14:38:08 -08:00
pokemart MARTTYPE_STANDARD, MART_INDIGO_PLATEAU
2015-11-25 07:16:29 -08:00
closetext
end
2017-12-17 16:48:04 -08:00
IndigoPlateauPokecenter1FCooltrainerMScript:
jumptextfaceplayer IndigoPlateauPokecenter1FCooltrainerMText
2015-06-24 20:20:04 -07:00
TeleportGuyScript:
faceplayer
2015-12-09 15:25:44 -08:00
opentext
2015-06-24 20:20:04 -07:00
writetext TeleportGuyText1
yesorno
2015-06-24 20:20:04 -07:00
iffalse .No
writetext TeleportGuyYesText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
playsound SFX_WARP_TO
special FadeOutPalettes
2015-11-25 07:16:29 -08:00
waitsfx
warp NEW_BARK_TOWN, 13, 6
end
.No:
2015-06-24 20:20:04 -07:00
writetext TeleportGuyNoText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2015-06-24 20:20:04 -07:00
AbraScript:
2015-12-09 15:25:44 -08:00
opentext
2015-06-24 20:20:04 -07:00
writetext AbraText
cry ABRA
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2016-04-07 03:13:59 -07:00
PlateauRivalMovement1:
2016-05-14 10:46:14 -07:00
step UP
step UP
step UP
step UP
step UP
turn_head LEFT
step_end
2016-04-07 03:13:59 -07:00
PlateauRivalMovement2:
2016-05-14 10:46:14 -07:00
step UP
step UP
step UP
step UP
step UP
turn_head RIGHT
step_end
2016-04-07 03:13:59 -07:00
PlateauRivalLeavesMovement:
2016-05-14 10:46:14 -07:00
step DOWN
step DOWN
step DOWN
step DOWN
step DOWN
step_end
2017-12-17 16:48:04 -08:00
IndigoPlateauPokecenter1FCooltrainerMText:
text "At the #MON"
line "LEAGUE, you'll get"
para "tested by the"
line "ELITE FOUR."
para "You have to beat"
line "them all. If you"
para "lose, you have to"
line "start all over!"
done
2016-04-07 03:13:59 -07:00
PlateauRivalText1:
text "Hold it."
para "You're going to"
line "take the #MON"
para "LEAGUE challenge"
line "now?"
para "That's not going"
line "to happen."
para "My super-well-"
line "trained #MON"
para "are going to pound"
line "you."
para "<PLAYER>!"
line "I challenge you!"
done
2016-04-07 03:13:59 -07:00
PlateauRivalWinText:
text "…"
para "OK--I lost…"
done
2016-04-07 03:13:59 -07:00
PlateauRivalText2:
text "…Darn… I still"
line "can't win…"
para "I… I have to think"
line "more about my"
cont "#MON…"
para "Humph! Try not to"
line "lose!"
done
2016-04-07 03:13:59 -07:00
PlateauRivalLoseText:
text "…"
para "Whew…"
line "With my partners,"
para "I'm going to be"
line "the CHAMPION!"
done
2015-06-24 20:20:04 -07:00
TeleportGuyText1:
text "Ah! You're chal-"
line "lenging the ELITE"
para "FOUR? Are you sure"
line "you're ready?"
para "If you need to"
line "train some more,"
para "my ABRA can help"
line "you."
para "It can TELEPORT"
line "you home."
para "Would you like to"
line "go home now?"
done
2015-06-24 20:20:04 -07:00
TeleportGuyYesText:
text "OK, OK. Picture"
line "your house in your"
cont "mind…"
done
2015-06-24 20:20:04 -07:00
TeleportGuyNoText:
text "OK, OK. The best"
line "of luck to you!"
done
2015-06-24 20:20:04 -07:00
AbraText:
text "ABRA: Aabra…"
done
IndigoPlateauPokecenter1F_MapEvents:
db 0, 0 ; filler
db 4 ; warp events
2018-02-01 19:22:07 -08:00
warp_event 5, 13, ROUTE_23, 1
warp_event 6, 13, ROUTE_23, 2
warp_event 0, 13, POKECENTER_2F, 1
warp_event 14, 3, WILLS_ROOM, 1
db 2 ; coord events
2018-02-01 19:22:07 -08:00
coord_event 16, 4, SCENE_DEFAULT, PlateauRivalBattle1
coord_event 17, 4, SCENE_DEFAULT, PlateauRivalBattle2
db 0 ; bg events
db 6 ; object events
2018-02-28 13:50:43 -08:00
object_event 3, 7, SPRITE_NURSE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, IndigoPlateauPokecenter1FNurseScript, -1
object_event 11, 7, SPRITE_CLERK, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, IndigoPlateauPokecenter1FClerkScript, -1
object_event 11, 11, SPRITE_COOLTRAINER_M, SPRITEMOVEDATA_WANDER, 2, 2, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, IndigoPlateauPokecenter1FCooltrainerMScript, -1
2018-02-01 19:22:07 -08:00
object_event 16, 9, SPRITE_SILVER, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_INDIGO_PLATEAU_POKECENTER_RIVAL
object_event 1, 9, SPRITE_GRAMPS, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, TeleportGuyScript, EVENT_TELEPORT_GUY
object_event 0, 9, SPRITE_JYNX, SPRITEMOVEDATA_POKEMON, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_SCRIPT, 0, AbraScript, EVENT_TELEPORT_GUY