From 84313dc429f3b09b5583e7c6f1ac637f33e098c3 Mon Sep 17 00:00:00 2001 From: JappaWakka Date: Sun, 30 Jul 2023 10:39:48 +0200 Subject: [PATCH] =?UTF-8?q?Fix=20some=20things=20related=20to=20pok=C3=A9m?= =?UTF-8?q?on=20commands?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- P3D/World/ActionScript/V2/ScriptCommands/DoPokemon.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/P3D/World/ActionScript/V2/ScriptCommands/DoPokemon.vb b/P3D/World/ActionScript/V2/ScriptCommands/DoPokemon.vb index 9b6b67e7f..e26e47de2 100644 --- a/P3D/World/ActionScript/V2/ScriptCommands/DoPokemon.vb +++ b/P3D/World/ActionScript/V2/ScriptCommands/DoPokemon.vb @@ -115,7 +115,7 @@ End If Dim isShiny As Boolean = False - If Core.Random.Next(0, P3D.Pokemon.MasterShinyRate) = 0 Then + If Core.Random.Next(0, P3D.Pokemon.MasterShinyRate + 1) = 0 Then isShiny = True End If If commas > 7 Then @@ -952,7 +952,7 @@ End If Dim isShiny As Boolean = False - If Core.Random.Next(0, P3D.Pokemon.MasterShinyRate) = 0 Then + If Core.Random.Next(0, P3D.Pokemon.MasterShinyRate + 1) = 0 Then isShiny = True End If If commas > 7 Then @@ -960,7 +960,7 @@ End If Dim Pokemon As Pokemon = Pokemon.GetPokemonByID(int(PokemonID), PokemonAddition) - Pokemon.Generate(Level, True) + Pokemon.Generate(Level, True, PokemonAddition) Pokemon.CatchTrainerName = catchTrainer Pokemon.OT = Core.Player.OT