Added class GameStats, added Pokédex records for eggs seen and expanded seen_forms to include shinies

Data/Scripts/011_Battle/003_Battle/002_PokeBattle_Battle.rb

@@ -652,7 +652,8 @@ class PokeBattle_Battle
   def pbSetSeen(battler)
     return if !battler || !@internalBattle
     if battler.is_a?(PokeBattle_Battler)
-      pbPlayer.pokedex.register(battler.displaySpecies,battler.displayGender,battler.displayForm)
+      pbPlayer.pokedex.register(battler.displaySpecies, battler.displayGender,
+                                battler.displayForm, battler.shiny?)
     else
       pbPlayer.pokedex.register(battler)
     end

Data/Scripts/011_Battle/003_Battle/003_Battle_StartAndEnd.rb

@@ -349,6 +349,7 @@ class PokeBattle_Battle
       pbPlayer.money += tMoney
       moneyGained = pbPlayer.money-oldMoney
       if moneyGained>0
+        $stats.battle_money_gained += moneyGained
         pbDisplayPaused(_INTL("You got ${1} for winning!",moneyGained.to_s_formatted))
       end
     end
@@ -360,6 +361,7 @@ class PokeBattle_Battle
       pbPlayer.money += @field.effects[PBEffects::PayDay]
       moneyGained = pbPlayer.money-oldMoney
       if moneyGained>0
+        $stats.battle_money_gained += moneyGained
         pbDisplayPaused(_INTL("You picked up ${1}!",moneyGained.to_s_formatted))
       end
     end
@@ -377,6 +379,7 @@ class PokeBattle_Battle
     pbPlayer.money -= tMoney
     moneyLost = oldMoney-pbPlayer.money
     if moneyLost>0
+      $stats.battle_money_lost += moneyLost
       if trainerBattle?
         pbDisplayPaused(_INTL("You gave ${1} to the winner...",moneyLost.to_s_formatted))
       else

Data/Scripts/011_Battle/003_Battle/004_Battle_ExpAndMoveLearning.rb

@@ -178,6 +178,7 @@ class PokeBattle_Battle
          pkmn.name,debugInfo))
     end
     # Give Exp
+    $stats.total_exp_gained += expGained
     if pkmn.shadowPokemon?
       pkmn.exp += expGained
       return

Data/Scripts/011_Battle/003_Battle/009_Battle_Action_Other.rb

@@ -127,6 +127,7 @@ class PokeBattle_Battle
     battler = @battlers[idxBattler]
     return if !battler || !battler.pokemon
     return if !battler.hasMega? || battler.mega?
+    $stats.mega_evolution_count += 1 if battler.pbOwnedByPlayer?
     trainerName = pbGetOwnerName(idxBattler)
     old_ability = battler.ability_id
     # Break Illusion

Data/Scripts/011_Battle/005_BallHandlers_PokeBallEffects.rb

@@ -22,6 +22,7 @@ module BallHandlers
   end
 
   def self.onFailCatch(ball,battle,battler)
+    $stats.failed_poke_ball_count += 1
     OnFailCatch.trigger(ball,battle,battler)
   end
 end

Data/Scripts/011_Battle/006_Other battle types/002_PokeBattle_SafariZone.rb

@@ -358,7 +358,8 @@ class PokeBattle_SafariZone
   def pbSetSeen(battler)
     return if !battler || !@internalBattle
     if battler.is_a?(PokeBattle_Battler)
-      pbPlayer.pokedex.register(battler.displaySpecies,battler.displayGender,battler.displayForm)
+      pbPlayer.pokedex.register(battler.displaySpecies, battler.displayGender,
+                                battler.displayForm, battler.shiny?)
     else
       pbPlayer.pokedex.register(battler)
     end