ref: 83ef3b9a36bf4b11239713df229165e40694421f
dir: /maps/IndigoPlateauPokecenter1F.asm/
const_value set 2 const INDIGOPLATEAUPOKECENTER1F_NURSE const INDIGOPLATEAUPOKECENTER1F_CLERK const INDIGOPLATEAUPOKECENTER1F_COOLTRAINER_M const INDIGOPLATEAUPOKECENTER1F_SILVER const INDIGOPLATEAUPOKECENTER1F_GRAMPS const INDIGOPLATEAUPOKECENTER1F_ABRA 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 clearevent EVENT_WILLS_ROOM_ENTRANCE_CLOSED clearevent EVENT_WILLS_ROOM_EXIT_OPEN clearevent EVENT_KOGAS_ROOM_ENTRANCE_CLOSED clearevent EVENT_KOGAS_ROOM_EXIT_OPEN clearevent EVENT_BRUNOS_ROOM_ENTRANCE_CLOSED 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 clearevent EVENT_BEAT_ELITE_4_WILL clearevent EVENT_BEAT_ELITE_4_KOGA clearevent EVENT_BEAT_ELITE_4_BRUNO clearevent EVENT_BEAT_ELITE_4_KAREN clearevent EVENT_BEAT_CHAMPION_LANCE setevent EVENT_LANCES_ROOM_OAK_AND_MARY return PlateauRivalBattle1: checkevent EVENT_BEAT_RIVAL_IN_MT_MOON iffalse PlateauRivalScriptDone checkflag ENGINE_INDIGO_PLATEAU_RIVAL_FIGHT iftrue PlateauRivalScriptDone checkcode VAR_WEEKDAY 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 appear INDIGOPLATEAUPOKECENTER1F_SILVER spriteface PLAYER, DOWN showemote EMOTE_SHOCK, PLAYER, 15 special Special_FadeOutMusic pause 15 applymovement INDIGOPLATEAUPOKECENTER1F_SILVER, PlateauRivalMovement1 playmusic MUSIC_RIVAL_ENCOUNTER spriteface PLAYER, RIGHT jump PlateauRivalBattleCommon PlateauRivalBattle2: checkevent EVENT_BEAT_RIVAL_IN_MT_MOON iffalse PlateauRivalScriptDone checkflag ENGINE_INDIGO_PLATEAU_RIVAL_FIGHT iftrue PlateauRivalScriptDone checkcode VAR_WEEKDAY if_equal SUNDAY, PlateauRivalScriptDone if_equal TUESDAY, PlateauRivalScriptDone if_equal THURSDAY, PlateauRivalScriptDone if_equal FRIDAY, PlateauRivalScriptDone if_equal SATURDAY, PlateauRivalScriptDone appear INDIGOPLATEAUPOKECENTER1F_SILVER spriteface PLAYER, DOWN showemote EMOTE_SHOCK, PLAYER, 15 special Special_FadeOutMusic pause 15 applymovement INDIGOPLATEAUPOKECENTER1F_SILVER, PlateauRivalMovement2 playmusic MUSIC_RIVAL_ENCOUNTER spriteface PLAYER, LEFT PlateauRivalBattleCommon: opentext writetext PlateauRivalText1 waitbutton closetext setevent EVENT_INDIGO_PLATEAU_POKECENTER_RIVAL checkevent EVENT_GOT_TOTODILE_FROM_ELM iftrue .Totodile checkevent EVENT_GOT_CHIKORITA_FROM_ELM iftrue .Chikorita ; Cyndaquil winlosstext PlateauRivalWinText, PlateauRivalLoseText setlasttalked INDIGOPLATEAUPOKECENTER1F_SILVER loadtrainer RIVAL2, RIVAL2_2_TOTODILE startbattle dontrestartmapmusic reloadmapafterbattle jump PlateauRivalPostBattle .Totodile: winlosstext PlateauRivalWinText, PlateauRivalLoseText setlasttalked INDIGOPLATEAUPOKECENTER1F_SILVER loadtrainer RIVAL2, RIVAL2_2_CHIKORITA startbattle dontrestartmapmusic reloadmapafterbattle jump PlateauRivalPostBattle .Chikorita: winlosstext PlateauRivalWinText, PlateauRivalLoseText setlasttalked INDIGOPLATEAUPOKECENTER1F_SILVER loadtrainer RIVAL2, RIVAL2_2_CYNDAQUIL startbattle dontrestartmapmusic reloadmapafterbattle jump PlateauRivalPostBattle PlateauRivalPostBattle: playmusic MUSIC_RIVAL_AFTER opentext writetext PlateauRivalText2 waitbutton closetext spriteface PLAYER, DOWN applymovement INDIGOPLATEAUPOKECENTER1F_SILVER, PlateauRivalLeavesMovement disappear INDIGOPLATEAUPOKECENTER1F_SILVER setscene $0 playmapmusic setflag ENGINE_INDIGO_PLATEAU_RIVAL_FIGHT PlateauRivalScriptDone: end NurseScript_0x18012c: jumpstd pokecenternurse ClerkScript_0x18012f: opentext pokemart MARTTYPE_STANDARD, MART_INDIGO_PLATEAU closetext end IndigoPlateauPokecenter1FCooltrainerMScript: jumptextfaceplayer IndigoPlateauPokecenter1FCooltrainerMText TeleportGuyScript: faceplayer opentext writetext TeleportGuyText1 yesorno iffalse .No writetext TeleportGuyYesText waitbutton closetext playsound SFX_WARP_TO special FadeOutPalettes waitsfx warp NEW_BARK_TOWN, $d, $6 end .No: writetext TeleportGuyNoText waitbutton closetext end AbraScript: opentext writetext AbraText cry ABRA waitbutton closetext end PlateauRivalMovement1: step UP step UP step UP step UP step UP turn_head LEFT step_end PlateauRivalMovement2: step UP step UP step UP step UP step UP turn_head RIGHT step_end PlateauRivalLeavesMovement: step DOWN step DOWN step DOWN step DOWN step DOWN step_end 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 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 PlateauRivalWinText: text "…" para "OK--I lost…" done 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 PlateauRivalLoseText: text "…" para "Whew…" line "With my partners," para "I'm going to be" line "the CHAMPION!" done 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 TeleportGuyYesText: text "OK, OK. Picture" line "your house in your" cont "mind…" done TeleportGuyNoText: text "OK, OK. The best" line "of luck to you!" done 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