Add RandomFollowItemPickup GameRule

This controls the random item pickup for all follower pokémon

P3D/Pokemon/Monster/PokemonInteractions.vb

@@ -894,7 +894,7 @@
 
     Public Shared Sub CheckForRandomPickup()
         'Checks if the first Pokémon in the party is following the player:
-        If Screen.Level.ShowOverworldPokemon = True And CBool(GameModeManager.GetGameRuleValue("ShowFollowPokemon", "1")) = True Then
+        If Screen.Level.ShowOverworldPokemon = True And CBool(GameModeManager.GetGameRuleValue("ShowFollowPokemon", "1")) = True AndAlso CBool(GameModeManager.GetGameRuleValue("RandomFollowItemPickup", "1")) = True Then
             'Checks if the player has a Pokémon:
             If Core.Player.Pokemons.Count > 0 And Screen.Level.Surfing = False And Screen.Level.Riding = False And Screen.Level.ShowOverworldPokemon = True And Not Core.Player.GetWalkPokemon() Is Nothing Then
                 If Core.Player.GetWalkPokemon().Status = Pokemon.StatusProblems.None Then

P3D/Resources/GameModeManager.vb

@@ -643,6 +643,7 @@ Public Class GameMode
         gameRules.Add(New GameRule("GameOverAt0Pokemon", "0"))
         gameRules.Add(New GameRule("CanGetAchievements", "1"))
         gameRules.Add(New GameRule("ShowFollowPokemon", "1"))
+        gameRules.Add(New GameRule("RandomFollowItemPickup", "1"))
         gameRules.Add(New GameRule("OverworldPoison", "0"))
         gameRules.Add(New GameRule("SavingDisabled", "0"))
         gameRules.Add(New GameRule("SingleUseTM", "0"))