Added <battle.caught> command

P3D/Battle/BattleSystemV2/Battle.vb

@@ -4,6 +4,7 @@
 
         Public Shared Won As Boolean = False
         Public Shared Fled As Boolean = False
+        Public Shared Caught As Boolean = False
 
 
         Public IsAfterFaint As Boolean = False

P3D/Battle/BattleSystemV2/BattleScreen.vb

@@ -122,6 +122,8 @@
             Me.IsTrainerBattle = False
             Me.MouseVisible = False
             Me.PVPGameJoltID = ""
+            'Reset variable when new battle starts
+            BattleSystem.Battle.Caught = False
         End Sub
 
         Public Sub New(ByVal Trainer As Trainer, ByVal OverworldScreen As Screen, ByVal defaultMapType As Integer)

P3D/Screens/Battle/BattleCatchScreen.vb

@@ -161,6 +161,7 @@
                                 AnimationStarted = False
                                 SetupAnimation()
                                 CatchPokemon()
+                                BattleSystem.Battle.Caught = True
                             Case 8
                                 AnimationIndex = 9
                                 If showPokedexEntry = True Then

P3D/World/ActionScript/V2/ScriptConstructs/DoBattle.vb

@@ -25,6 +25,8 @@
                     Return t.OutroMessage
                 Case "won"
                     Return ReturnBoolean(BattleSystem.Battle.Won)
+                Case "caught"
+                    Return ReturnBoolean(BattleSystem.Battle.Caught)
             End Select
 
             Return DEFAULTNULL