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

.poke level and pokeID can contain constructs

Browse Source
This commit is contained in:
JappaWakka 2024-08-23 19:10:58 +02:00
parent 73fc0bc916
commit 90b13caf94
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
P3D/Pokemon/Wild/Spawner.vb
View File

@ -56,10 +56,10 @@ Public Class Spawner
Dim splits() As String = Line.Split(CChar("|")) Dim splits() As String = Line.Split(CChar("|"))
Dim PMethod As Integer = CInt(splits(0)) Dim PMethod As Integer = CInt(splits(0))
Dim Pokemon As String = splits(1) Dim Pokemon As String = P3D.ScriptVersion2.ScriptCommander.Parse(splits(1)).ToString
Dim Chance As Integer = CInt(splits(2)) Dim Chance As Integer = CInt(splits(2))
Dim DayTime() As String = splits(3).Split(CChar(",")) Dim DayTime() As String = splits(3).Split(CChar(","))
Dim levelCap As String = splits(4) Dim levelCap As String = P3D.ScriptVersion2.ScriptCommander.Parse(splits(4)).ToString
'Optional Season and Weather checks: 'Optional Season and Weather checks:
Dim Weathers() As String = {"-1"} Dim Weathers() As String = {"-1"}
@ -191,7 +191,9 @@ Public Class Spawner
End If End If
Next Next
If Pokemons(i).Contains("_") Then If Pokemons(i).Contains("_") Then
PkAD = Pokemons(i).Split(CChar("_"))(1) PkAD = PokemonForms.GetAdditionalValueFromDataFile(Pokemons(i).Split(CChar("_"))(1))
ElseIf Pokemons(i).Contains(";") Then
PkAD = Pokemons(i).Split(CChar(";"))(1)
End If End If
p = Pokemon.GetPokemonByID(PkID, PkAD) p = Pokemon.GetPokemonByID(PkID, PkAD)
p.Generate(level, True, PkAD) p.Generate(level, True, PkAD)