From 36010dfa46fb3e481204d2c42e6d8debd0090215 Mon Sep 17 00:00:00 2001 From: jianmingyong Date: Sun, 9 Oct 2016 03:07:23 +0800 Subject: [PATCH] Don't append repeating items into pokemon when mega evolve. --- 2.5DHero/2.5DHero/Pokemon/Monster/Pokemon.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/2.5DHero/2.5DHero/Pokemon/Monster/Pokemon.vb b/2.5DHero/2.5DHero/Pokemon/Monster/Pokemon.vb index 806383835..eab1891ea 100644 --- 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