tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-22 21:35:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix some things related to pokémon commands

Browse Source
This commit is contained in:
JappaWakka 2023-07-30 10:39:48 +02:00
parent 3076bf5bc5
commit 84313dc429
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
P3D/World/ActionScript/V2/ScriptCommands/DoPokemon.vb
View File

@ -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