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

allow forms in the @battle.wild() script

Browse Source
This commit is contained in:
darkfire006 2022-08-09 10:35:24 -05:00
parent bae3a28431
commit f4691fe20d
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
P3D/World/ActionScript/V2/ScriptCommands/DoBattle.vb
View File

@ -127,11 +127,22 @@
End If End If
Else Else
If argument.Length > 0 Then If argument.Length > 0 Then
Dim ID As Integer = int(argument.GetSplit(0)) Dim ID As Integer = int(argument.GetSplit(0).Split(CChar("_"))(0))
Dim AD As String = ""
If argument.GetSplit(0).Contains(CChar("_")) Then
AD = argument.GetSplit(0).Split(CChar("_"))(1)
End If
Dim Level As Integer = int(argument.GetSplit(1)) Dim Level As Integer = int(argument.GetSplit(1))
p = Pokemon.GetPokemonByID(ID) If AD IsNot "" Then
p.Generate(Level, True) p = Pokemon.GetPokemonByID(ID, AD)
p.Generate(Level, True, AD)
Else
p = Pokemon.GetPokemonByID(ID)
p.Generate(Level, True)
End If
Dim args() As String = argument.Split(CChar(",")) Dim args() As String = argument.Split(CChar(","))