tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

add/addtostorage shiny fix 

ensure they dont accidentally shiny lock
This commit is contained in:
darkfire006 2021-09-29 18:07:04 -05:00
parent bb6181679d
commit bb8bf084b1
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -23,7 +23,8 @@
Core.Player.Pokemons.RemoveAt(index)
End If
Case "add"
' PokemonID,Level,Method,Ball,Location,IsEgg,TrainerName,HeldItem
' @Pokemon.Add([PartyIndex], PokemonData)
' @Pokemon.Add(PokemonID, Level, [Method], [BallID], [Location], [isEgg], [trainerName], [heldItem], [isShiny])
If argument.StartsWith("{") = True Or argument.Remove(0, 1).StartsWith(",{") = True Then
Dim insertIndex As Integer = Core.Player.Pokemons.Count
@ -86,6 +87,9 @@
End If
Dim isShiny As Boolean = False
If Core.Random.Next(0, P3D.Pokemon.MasterShinyRate) = 0 Then
isShiny = True
End If
If commas > 7 Then
isShiny = CBool(argument.GetSplit(8))
End If
@ -784,6 +788,9 @@
End If
Dim isShiny As Boolean = False
If Core.Random.Next(0, P3D.Pokemon.MasterShinyRate) = 0 Then
isShiny = True
End If
If commas > 7 Then
isShiny = CBool(argument.GetSplit(8))
End If