pokecrystal-board/maps/IndigoPlateauPokecenter1F.asm

332 lines
7.4 KiB
NASM
Raw Normal View History

2015-11-26 21:22:14 -08:00
const_value set 2
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_MapScriptHeader:
.SceneScripts:
db 1
scene_script .DummyScene
.MapCallbacks:
db 1
dbw MAPCALLBACK_NEWMAP, .PrepareElite4
.DummyScene:
end
.PrepareElite4:
setmapscene WILLS_ROOM, $0
setmapscene KOGAS_ROOM, $0
setmapscene BRUNOS_ROOM, $0
setmapscene KARENS_ROOM, $0
setmapscene LANCES_ROOM, $0
setmapscene HALL_OF_FAME, $0
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
checkcode VAR_WEEKDAY
2016-04-07 03:13:59 -07:00
if_equal SUNDAY, PlateauRivalScriptDone
if_equal TUESDAY, PlateauRivalScriptDone
if_equal THURSDAY, PlateauRivalScriptDone
if_equal FRIDAY, PlateauRivalScriptDone
if_equal SATURDAY, PlateauRivalScriptDone
moveobject INDIGOPLATEAUPOKECENTER1F_SILVER, $11, $9
2015-11-26 21:22:14 -08:00
appear INDIGOPLATEAUPOKECENTER1F_SILVER
spriteface PLAYER, DOWN
showemote EMOTE_SHOCK, PLAYER, 15
special Special_FadeOutMusic
pause 15
2016-04-07 03:13:59 -07:00
applymovement INDIGOPLATEAUPOKECENTER1F_SILVER, PlateauRivalMovement1
playmusic MUSIC_RIVAL_ENCOUNTER
spriteface PLAYER, RIGHT
2016-04-07 03:13:59 -07:00
jump 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
checkcode VAR_WEEKDAY
2016-04-07 03:13:59 -07:00
if_equal SUNDAY, PlateauRivalScriptDone
if_equal TUESDAY, PlateauRivalScriptDone
if_equal THURSDAY, PlateauRivalScriptDone
if_equal FRIDAY, PlateauRivalScriptDone
if_equal SATURDAY, PlateauRivalScriptDone
2015-11-26 21:22:14 -08:00
appear INDIGOPLATEAUPOKECENTER1F_SILVER
spriteface PLAYER, DOWN
showemote EMOTE_SHOCK, PLAYER, 15
special Special_FadeOutMusic
pause 15
2016-04-07 03:13:59 -07:00
applymovement INDIGOPLATEAUPOKECENTER1F_SILVER, PlateauRivalMovement2
playmusic MUSIC_RIVAL_ENCOUNTER
spriteface 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
2016-04-07 03:13:59 -07:00
jump 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
2016-04-07 03:13:59 -07:00
jump 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
2016-04-07 03:13:59 -07:00
jump 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
spriteface 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 $0
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
2015-07-10 01:45:35 -07:00
NurseScript_0x18012c:
jumpstd pokecenternurse
2015-07-10 01:45:35 -07:00
ClerkScript_0x18012f:
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
2015-11-26 18:05:32 -08:00
special FadeOutPalettes
2015-11-25 07:16:29 -08:00
waitsfx
warp NEW_BARK_TOWN, $d, $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_MapEventHeader:
; filler
db 0, 0
.Warps:
db 4
warp_def $d, $5, 1, ROUTE_23
warp_def $d, $6, 2, ROUTE_23
warp_def $d, $0, 1, POKECENTER_2F
warp_def $3, $e, 1, WILLS_ROOM
.CoordEvents:
db 2
coord_event 0, $4, $10, PlateauRivalBattle1
coord_event 0, $4, $11, PlateauRivalBattle2
.BGEvents:
db 0
.ObjectEvents:
db 6
object_event SPRITE_NURSE, 7, 3, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, NurseScript_0x18012c, -1
object_event SPRITE_CLERK, 7, 11, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, ClerkScript_0x18012f, -1
object_event SPRITE_COOLTRAINER_M, 11, 11, SPRITEMOVEDATA_WANDER, 2, 2, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, IndigoPlateauPokecenter1FCooltrainerMScript, -1
object_event SPRITE_SILVER, 9, 16, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_INDIGO_PLATEAU_POKECENTER_RIVAL
object_event SPRITE_GRAMPS, 9, 1, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, TeleportGuyScript, EVENT_TELEPORT_GUY
object_event SPRITE_JYNX, 9, 0, SPRITEMOVEDATA_POKEMON, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_SCRIPT, 0, AbraScript, EVENT_TELEPORT_GUY