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

allow forms in the @battle.wild() script

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

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

@ -127,12 +127,23 @@
End If
Else
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))
If AD IsNot "" Then
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(","))
For i = 0 To args.Length - 1