Port pokefirered's Vs. Seeker to pokeemerald

asm/macros/movement.inc

@@ -162,5 +162,9 @@
 	create_movement_action figure_8, MOVEMENT_ACTION_FIGURE_8
 	create_movement_action fly_up, MOVEMENT_ACTION_FLY_UP
 	create_movement_action fly_down, MOVEMENT_ACTION_FLY_DOWN
+#if I_VS_SEEKER_CHARGING != 0
+	create_movement_action emote_double_exclamation_mark, MOVEMENT_ACTION_EMOTE_DOUBLE_EXCL_MARK
+	create_movement_action emote_x, MOVEMENT_ACTION_EMOTE_X
+#endif
 
 	create_movement_action step_end, MOVEMENT_ACTION_STEP_END

data/event_scripts.s

@@ -1005,6 +1005,15 @@ Common_EventScript_LegendaryFlewAway::
 	release
 	end
 
+.if I_VS_SEEKER_CHARGING != 0
+EventScript_VsSeekerChargingDone::
+	special VsSeekerFreezeObjectsAfterChargeComplete
+	waitstate
+	special VsSeekerResetObjectMovementAfterChargeComplete
+	releaseall
+	end
+.endif
+
 	.include "data/scripts/pc_transfer.inc"
 	.include "data/scripts/questionnaire.inc"
 	.include "data/scripts/abnormal_weather.inc"

data/field_effect_scripts.s

@@ -1,3 +1,4 @@
+#include "config/item.h"
 	.include "asm/macros.inc"
 	.include "constants/constants.inc"
 
@@ -72,6 +73,11 @@ gFieldEffectScriptPointers::
 	.4byte gFieldEffectScript_RayquazaSpotlight         @ FLDEFF_RAYQUAZA_SPOTLIGHT
 	.4byte gFieldEffectScript_DestroyDeoxysRock         @ FLDEFF_DESTROY_DEOXYS_ROCK
 	.4byte gFieldEffectScript_MoveDeoxysRock            @ FLDEFF_MOVE_DEOXYS_ROCK
+.if I_VS_SEEKER_CHARGING != 0
+	.4byte gFldEffScript_UseVsSeeker                    @ FLDEFF_USE_VS_SEEKER
+	.4byte gFldEffScript_XIcon                          @ FLDEFF_X_ICON
+	.4byte gFldEffScript_DoubleExclMarkIcon             @ FLDEFF_DOUBLE_EXCL_MARK_ICON
+.endif
 
 gFieldEffectScript_ExclamationMarkIcon1::
 	field_eff_callnative FldEff_ExclamationMarkIcon
@@ -343,3 +349,17 @@ gFieldEffectScript_DestroyDeoxysRock::
 gFieldEffectScript_MoveDeoxysRock::
 	field_eff_callnative FldEff_MoveDeoxysRock
 	field_eff_end
+
+.if I_VS_SEEKER_CHARGING != 0
+gFldEffScript_UseVsSeeker::
+	field_eff_callnative FldEff_UseVsSeeker
+	field_eff_end
+
+gFldEffScript_XIcon::
+	field_eff_callnative FldEff_XIcon
+	field_eff_end
+
+gFldEffScript_DoubleExclMarkIcon::
+	field_eff_callnative FldEff_DoubleExclMarkIcon
+	field_eff_end
+.endif

data/specials.inc

@@ -536,3 +536,7 @@ gSpecials::
 	def_special TrySetBattleTowerLinkType
 	def_special SetTotemBoost
 	def_special TrySpecialOverworldEvo
+#if I_VS_SEEKER_CHARGING != 0
+	def_special VsSeekerResetObjectMovementAfterChargeComplete
+	def_special VsSeekerFreezeObjectsAfterChargeComplete
+#endif

data/text/trainers.inc

@@ -4779,3 +4779,20 @@ Route134_Text_HudsonPostBattle:
 	.string "Our boat drifted out to sea.\p"
 	.string "My buddy's a timid fellow, so I'm\n"
 	.string "worried about him.$"
+
+#if I_VS_SEEKER_CHARGING != 0
+VSSeeker_Text_BatteryNotChargedNeedXSteps::
+	.string "The battery isn't charged enough.\p"
+	.string "No. of steps required to fully\n"
+	.string "charge the battery: {STR_VAR_1}{PAUSE_UNTIL_PRESS}$"
+
+VSSeeker_Text_NoTrainersWithinRange::
+	.string "There are no Trainers within range\n"
+	.string "who can battle…\p"
+	.string "The VS Seeker was turned off.{PAUSE_UNTIL_PRESS}$"
+
+VSSeeker_Text_TrainersNotReady::
+	.string "The other Trainers don't appear\n"
+	.string "to be ready for battle.\p"
+	.string "Let's wait till later.{PAUSE_UNTIL_PRESS}$"
+#endif

include/battle_setup.h

@@ -70,5 +70,10 @@ u16 CountBattledRematchTeams(u16 trainerId);
 
 void DoStandardWildBattle_Debug(void);
 void BattleSetup_StartTrainerBattle_Debug(void);
+#if I_VS_SEEKER_CHARGING != 0
+s32 TrainerIdToRematchTableId(const struct RematchTrainer *table, u16 trainerId);
+s32 FirstBattleTrainerIdToRematchTableId(const struct RematchTrainer *table, u16 trainerId);
+u16 GetRematchTrainerIdFromTable(const struct RematchTrainer *table, u16 firstBattleTrainerId);
+#endif
 
 #endif // GUARD_BATTLE_SETUP_H

include/config/item.h

@@ -29,4 +29,7 @@
 #define VAR_LAST_REPEL_LURE_USED    0       // If this var has been assigned, last Repel/Lure used will be saved and the player will get prompted with the vanilla repel YES/NO option, unless I_REPEL_LURE_MENU is set to TRUE.
 #define I_REPEL_LURE_MENU           TRUE    // If TRUE, the player is able to choose which Repel/Lure to use once the previous one runs out. Cursor position is saved by VAR_LAST_REPEL_LURE_USED if not 0.
 
+// Vs. Seeker
+#define I_VS_SEEKER_CHARGING        0     // If this flag is assigned, the Vs Seeker will functionlity will be enabled. When the player has the Vs. Seeker, Match Call rematch functions will stop working.
+
 #endif // GUARD_CONFIG_ITEM_H

include/constants/event_object_movement.h

@@ -242,6 +242,10 @@
 #define MOVEMENT_ACTION_FIGURE_8                        0x9B
 #define MOVEMENT_ACTION_FLY_UP                          0x9C
 #define MOVEMENT_ACTION_FLY_DOWN                        0x9D
+#if I_VS_SEEKER_CHARGING != 0
+#define MOVEMENT_ACTION_EMOTE_X                         0x9E
+#define MOVEMENT_ACTION_EMOTE_DOUBLE_EXCL_MARK          0x9F
+#endif
 
 #define MOVEMENT_ACTION_STEP_END 0xFE
 #define MOVEMENT_ACTION_NONE     0xFF
@@ -300,6 +304,9 @@
 #define ANIM_GET_ON_OFF_POKEMON_EAST  (ANIM_STD_COUNT + 3)
 
 #define ANIM_NURSE_BOW (ANIM_STD_COUNT + 0)
+#if I_VS_SEEKER_CHARGING != 0
+#define ANIM_RAISE_HAND (ANIM_STD_COUNT + 0)
+#endif
 
 #define ANIM_FIELD_MOVE 0
 

include/constants/field_effects.h

@@ -68,6 +68,11 @@
 #define FLDEFF_RAYQUAZA_SPOTLIGHT        64
 #define FLDEFF_DESTROY_DEOXYS_ROCK       65
 #define FLDEFF_MOVE_DEOXYS_ROCK          66
+#if I_VS_SEEKER_CHARGING != 0
+#define FLDEFF_USE_VS_SEEKER             67
+#define FLDEFF_X_ICON                    68
+#define FLDEFF_DOUBLE_EXCL_MARK_ICON     69
+#endif
 
 #define FLDEFFOBJ_SHADOW_S              0
 #define FLDEFFOBJ_SHADOW_M              1

include/event_object_movement.h

@@ -440,4 +440,9 @@ bool32 IsVirtualObjectInvisible(u8 virtualObjId);
 void SetVirtualObjectSpriteAnim(u8 virtualObjId, u8 animNum);
 bool32 IsVirtualObjectAnimating(u8 virtualObjId);
 
+#if I_VS_SEEKER_CHARGING != 0
+bool8 MovementAction_EmoteX_Step0(struct ObjectEvent *, struct Sprite *);
+bool8 MovementAction_EmoteDoubleExclamationMark_Step0(struct ObjectEvent *, struct Sprite *);
+#endif
+
 #endif //GUARD_EVENT_OBJECT_MOVEMENT_H

include/event_scripts.h

@@ -612,4 +612,11 @@ extern const u8 EventScript_TradeCenter_Chair0[];
 extern const u8 EventScript_ConfirmLeaveCableClubRoom[];
 extern const u8 EventScript_TerminateLink[];
 
+#if I_VS_SEEKER_CHARGING != 0
+extern const u8 VSSeeker_Text_BatteryNotChargedNeedXSteps[];
+extern const u8 VSSeeker_Text_NoTrainersWithinRange[];
+extern const u8 VSSeeker_Text_TrainersNotReady[];
+extern const u8 EventScript_VsSeekerChargingDone[];
+#endif
+
 #endif // GUARD_EVENT_SCRIPTS_H

include/global.fieldmap.h

@@ -254,6 +254,9 @@ enum {
     PLAYER_AVATAR_STATE_FIELD_MOVE,
     PLAYER_AVATAR_STATE_FISHING,
     PLAYER_AVATAR_STATE_WATERING,
+#if I_VS_SEEKER_CHARGING != 0
+    PLAYER_AVATAR_STATE_VSSEEKER,
+#endif
 };
 
 #define PLAYER_AVATAR_FLAG_ON_FOOT      (1 << 0)

include/item_use.h

@@ -40,6 +40,10 @@ void ItemUseInBattle_PartyMenuChooseMove(u8 taskId);
 void Task_UseDigEscapeRopeOnField(u8 taskId);
 u8 CanUseDigOrEscapeRopeOnCurMap(void);
 u8 CheckIfItemIsTMHMOrEvolutionStone(u16 itemId);
+#if I_VS_SEEKER_CHARGING != 0
+void FieldUseFunc_VsSeeker(u8 taskId);
+void Task_ItemUse_CloseMessageBoxAndReturnToField_VsSeeker(u8 taskId);
+#endif
 
 enum {
     BALL_THROW_UNABLE_TWO_MONS,

include/trainer_see.h

@@ -26,5 +26,9 @@ u8 FldEff_HeartIcon(void);
 u8 GetCurrentApproachingTrainerObjectEventId(void);
 u8 GetChosenApproachingTrainerObjectEventId(u8 arrayId);
 void PlayerFaceTrainerAfterBattle(void);
+#if I_VS_SEEKER_CHARGING != 0
+u8 FldEff_DoubleExclMarkIcon(void);
+u8 FldEff_XIcon(void);
+#endif
 
 #endif // GUARD_TRAINER_SEE_H

include/vs_seeker.h

@@ -0,0 +1,16 @@
+#ifndef GUARD_VS_SEEKER_H
+#define GUARD_VS_SEEKER_H
+
+#include "global.h"
+
+#if I_VS_SEEKER_CHARGING != 0
+void Task_InitVsSeekerAndCheckForTrainersOnScreen(u8 taskId);
+bool8 UpdateVsSeekerStepCounter(void);
+void MapResetTrainerRematches(u16 mapGroup, u16 mapNum);
+void ClearRematchMovementByTrainerId(void);
+u16 GetRematchTrainerIdVSSeeker(u16 trainerId);
+
+#define VSSEEKER_RECHARGE_STEPS 100
+#endif
+
+#endif //GUARD_VS_SEEKER_H

src/battle_setup.c

@@ -37,6 +37,10 @@
 #include "mirage_tower.h"
 #include "field_screen_effect.h"
 #include "data.h"
+#if I_VS_SEEKER_CHARGING != 0
+#include "vs_seeker.h"
+#include "item.h"
+#endif
 #include "constants/battle_frontier.h"
 #include "constants/battle_setup.h"
 #include "constants/game_stat.h"
@@ -1599,7 +1603,11 @@ static const u8 *GetTrainerCantBattleSpeech(void)
     return ReturnEmptyStringIfNull(sTrainerCannotBattleSpeech);
 }
 
+#if I_VS_SEEKER_CHARGING != 0
+s32 FirstBattleTrainerIdToRematchTableId(const struct RematchTrainer *table, u16 trainerId)
+#else
 static s32 FirstBattleTrainerIdToRematchTableId(const struct RematchTrainer *table, u16 trainerId)
+#endif
 {
     s32 i;
 
@@ -1612,7 +1620,11 @@ static s32 FirstBattleTrainerIdToRematchTableId(const struct RematchTrainer *tab
     return -1;
 }
 
+#if I_VS_SEEKER_CHARGING != 0
+s32 TrainerIdToRematchTableId(const struct RematchTrainer *table, u16 trainerId)
+#else
 static s32 TrainerIdToRematchTableId(const struct RematchTrainer *table, u16 trainerId)
+#endif
 {
     s32 i, j;
 
@@ -1658,30 +1670,44 @@ static void SetRematchIdForTrainer(const struct RematchTrainer *table, u32 table
     gSaveBlock1Ptr->trainerRematches[tableId] = i;
 }
 
+static bool32 DoesCurrentMapMatchRematchTrainerMap(s32 i, const struct RematchTrainer *table, u16 mapGroup, u16 mapNum)
+{
+    return table[i].mapGroup == mapGroup && table[i].mapNum == mapNum;
+}
+
+bool32 TrainerIsMatchCallRegistered(s32 i)
+{
+    return FlagGet(FLAG_MATCH_CALL_REGISTERED + i);
+}
+
 static bool32 UpdateRandomTrainerRematches(const struct RematchTrainer *table, u16 mapGroup, u16 mapNum)
 {
     s32 i;
-    bool32 ret = FALSE;
+#if I_VS_SEEKER_CHARGING != 0
+
+    if (CheckBagHasItem(ITEM_VS_SEEKER, 1))
+        return FALSE;
+#endif
 
     for (i = 0; i <= REMATCH_SPECIAL_TRAINER_START; i++)
     {
-        if (table[i].mapGroup == mapGroup && table[i].mapNum == mapNum && !IsRematchForbidden(i))
+        if (DoesCurrentMapMatchRematchTrainerMap(i,table,mapGroup,mapNum) && !IsRematchForbidden(i))
+            continue;
+
+        if (gSaveBlock1Ptr->trainerRematches[i] != 0)
+        {
+            // Trainer already wants a rematch. Don't bother updating it.
+            return TRUE;
+        }
+        else if (TrainerIsMatchCallRegistered(i) && ((Random() % 100) <= 30))
+            // 31% chance of getting a rematch.
         {
-            if (gSaveBlock1Ptr->trainerRematches[i] != 0)
-            {
-                // Trainer already wants a rematch. Don't bother updating it.
-                ret = TRUE;
-            }
-            else if (FlagGet(FLAG_MATCH_CALL_REGISTERED + i)
-             && (Random() % 100) <= 30)  // 31% chance of getting a rematch.
-            {
-                SetRematchIdForTrainer(table, i);
-                ret = TRUE;
-            }
+            SetRematchIdForTrainer(table, i);
+            return TRUE;
         }
     }
 
-    return ret;
+    return FALSE;
 }
 
 void UpdateRematchIfDefeated(s32 rematchTableId)
@@ -1744,7 +1770,11 @@ static bool8 IsTrainerReadyForRematch_(const struct RematchTrainer *table, u16 t
     return TRUE;
 }
 
+#if I_VS_SEEKER_CHARGING != 0
+u16 GetRematchTrainerIdFromTable(const struct RematchTrainer *table, u16 firstBattleTrainerId)
+#else
 static u16 GetRematchTrainerIdFromTable(const struct RematchTrainer *table, u16 firstBattleTrainerId)
+#endif
 {
     const struct RematchTrainer *trainerEntry;
     s32 i;
@@ -1849,7 +1879,11 @@ static bool32 HasAtLeastFiveBadges(void)
 
 void IncrementRematchStepCounter(void)
 {
-    if (HasAtLeastFiveBadges())
+    if (HasAtLeastFiveBadges()
+#if I_VS_SEEKER_CHARGING != 0
+            && (!CheckBagHasItem(ITEM_VS_SEEKER, 1))
+#endif
+       )
     {
         if (gSaveBlock1Ptr->trainerRematchStepCounter >= STEP_COUNTER_MAX)
             gSaveBlock1Ptr->trainerRematchStepCounter = STEP_COUNTER_MAX;
@@ -1884,7 +1918,12 @@ bool32 IsRematchTrainerIn(u16 mapGroup, u16 mapNum)
 
 static u16 GetRematchTrainerId(u16 trainerId)
 {
-    return GetRematchTrainerIdFromTable(gRematchTable, trainerId);
+#if I_VS_SEEKER_CHARGING != 0
+    if (FlagGet(I_VS_SEEKER_CHARGING))
+        return GetRematchTrainerIdVSSeeker(trainerId);
+    else
+#endif
+        return GetRematchTrainerIdFromTable(gRematchTable, trainerId);
 }
 
 u16 GetLastBeatenRematchTrainerId(u16 trainerId)
@@ -1907,6 +1946,11 @@ bool8 IsTrainerReadyForRematch(void)
 
 static void HandleRematchVarsOnBattleEnd(void)
 {
+#if I_VS_SEEKER_CHARGING != 0
+    if (gBattleTypeFlags & BATTLE_TYPE_TRAINER)
+        ClearRematchMovementByTrainerId();
+#endif
+
     ClearTrainerWantRematchState(gRematchTable, gTrainerBattleOpponent_A);
     SetBattledTrainersFlags();
 }

src/data/items.h

@@ -8716,7 +8716,11 @@ const struct Item gItems[] =
         .importance = 1,
         .pocket = POCKET_KEY_ITEMS,
         .type = ITEM_USE_FIELD,
+#if I_VS_SEEKER_CHARGING != 0
+        .fieldUseFunc = FieldUseFunc_VsSeeker,
+#else
         .fieldUseFunc = ItemUseOutOfBattle_CannotUse,
+#endif
     },
 
     [ITEM_TM_CASE] =