From a6070ea47970d958a20e81d31fa9b370dfae1480 Mon Sep 17 00:00:00 2001 From: darkfire006 Date: Tue, 12 Jul 2022 09:14:11 -0500 Subject: [PATCH] use correct shininess value for roaming mons --- P3D/World/ActionScript/V2/ScriptCommands/DoPokemon.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/P3D/World/ActionScript/V2/ScriptCommands/DoPokemon.vb b/P3D/World/ActionScript/V2/ScriptCommands/DoPokemon.vb index d565183a8..ebe77f759 100644 --- a/P3D/World/ActionScript/V2/ScriptCommands/DoPokemon.vb +++ b/P3D/World/ActionScript/V2/ScriptCommands/DoPokemon.vb @@ -610,7 +610,7 @@ Core.Player.RoamingPokemonData &= Environment.NewLine End If - Core.Player.RoamingPokemonData &= data(0) & "|" & data(1) & "|" & data(2) & "|" & data(3) & "|" & data(4) & "|" & data(5) & "|" & p.GetSaveData() + Core.Player.RoamingPokemonData &= data(0) & "|" & data(1) & "|" & data(2) & "|" & data(3) & "|" & data(4) & "|" & p.IsShiny & "|" & p.GetSaveData() Case "evolve" Dim args() As String = argument.Split(CChar(",")) Dim triggerStr As String = "level"