From da19fb45710e1d547d863d750241e11f9c4dc491 Mon Sep 17 00:00:00 2001 From: JappaWakka Date: Sun, 23 Jul 2023 18:39:26 +0200 Subject: [PATCH] fix mega stone GameModeItem --- P3D/Pokemon/Items/GameModeItemLoader.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/P3D/Pokemon/Items/GameModeItemLoader.vb b/P3D/Pokemon/Items/GameModeItemLoader.vb index 9a34b3a0c..6556bf811 100644 --- a/P3D/Pokemon/Items/GameModeItemLoader.vb +++ b/P3D/Pokemon/Items/GameModeItemLoader.vb @@ -168,7 +168,7 @@ Public Class GameModeItemLoader If nonCommentLines > 0 Then If setID = True AndAlso setName = True Then If item.gmIsMegaStone = True AndAlso item.gmMegaPokemonNumber <> Nothing AndAlso item.gmDescription = "" Then - Dim MegaPokemonName As String = Pokemon.GetPokemonByID(item.gmMegaPokemonNumber, item.AdditionalData).GetName + Dim MegaPokemonName As String = Pokemon.GetPokemonByID(item.gmMegaPokemonNumber).GetName item.gmDescription = "One variety of the mysterious Mega Stones. Have " & MegaPokemonName & " hold it, and this stone will enable it to Mega Evolve during battle." item.gmCanBeTossed = False item.gmCanBeTraded = False