Don't append repeating items into pokemon when mega evolve.

2016-10-09 03:07:23 +08:00 · 2016-10-09 03:07:23 +08:00 · 36010dfa46
parent 78f17a28cd
commit 36010dfa46
1 changed files with 3 additions and 1 deletions
--- a/2.5DHero/2.5DHero/Pokemon/Monster/Pokemon.vb
+++ b/2.5DHero/2.5DHero/Pokemon/Monster/Pokemon.vb
@ -1464,7 +1464,9 @@ Public Class Pokemon
                    Dim chance As Integer = CInt(Value.GetSplit(0))
                    Dim itemID As Integer = CInt(Value.GetSplit(1))

-                    WildItems.Add(chance, itemID)
+                    If Not WildItems.ContainsKey(chance) Then
+                        WildItems.Add(chance, itemID)
+                    End If
                Case "tradevalue"
                    Me.TradeValue = CInt(Value)
            End Select