Nuke bomb Part 2

2.5DHero/2.5DHero/Player/Player.vb

@@ -583,11 +583,12 @@
             Next
 
             ' Check PC Boxes.
+            If Not String.IsNullOrWhiteSpace(BoxData) Then
                 Dim TempBoxData As New List(Of String)
                 TempBoxData.AddRange(BoxData.SplitAtNewline())
 
                 For Each item As String In TempBoxData
-                If Not item.StartsWith("BOX") Then
+                    If Not String.IsNullOrWhiteSpace(item) AndAlso Not item.StartsWith("BOX") Then
                         Dim TempString As String = item.Remove(item.IndexOf("{"))
                         Dim TempPokemon As Pokemon = Pokemon.GetPokemonByData(item.Remove(0, item.IndexOf("{")))
 
@@ -600,6 +601,29 @@
                 Next
 
                 BoxData = String.Join(vbNewLine, TempBoxData)
+            End If
+
+            ' Check Day Care.
+            If Not String.IsNullOrWhiteSpace(DaycareData) Then
+                Dim TempDaycareData As New List(Of String)
+                TempDaycareData.AddRange(DaycareData.SplitAtNewline())
+
+                For Each item As String In TempDaycareData
+                    If Not String.IsNullOrWhiteSpace(item) AndAlso item.Contains("{") Then
+                        Dim TempString As String = ItemData.Remove(item.IndexOf("{"))
+                        Dim TempPokemon As Pokemon = Pokemon.GetPokemonByData(item.Remove(0, item.IndexOf("{")))
+
+                        If TempPokemon.Item IsNot Nothing AndAlso TempPokemon.Item.ID >= 507 AndAlso TempPokemon.Item.ID <= 553 Then
+                            TempPokemon.Item = Nothing
+                        End If
+
+                        item = TempString & TempPokemon.ToString()
+                    End If
+                Next
+
+                DaycareData = String.Join(vbNewLine, TempDaycareData)
+            End If
+
             ActionScript.RegisterID("PokemonIndev054Update")
         End If