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

Check if attack args not "" before CInt()

Browse Source
This commit is contained in:
JappaWakka 2025-01-30 09:51:59 +01:00
parent aa7dbc3f20
commit 1db6f81cb3
1 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
P3D/Pokemon/Attacks/AttackSpecialFunctions.vb
View File

@ -235,12 +235,16 @@
If f.Split(CChar(",")).Count > 3 Then If f.Split(CChar(",")).Count > 3 Then
Message = f.GetSplit(3, ",") Message = f.GetSplit(3, ",")
If f.Split(CChar(",")).Count > 4 Then If f.Split(CChar(",")).Count > 4 Then
If CInt(f.GetSplit(4, ",")) > 0 Then If f.GetSplit(4, ",") <> "" Then
RaiseAmount = CInt(f.GetSplit(4, ",")) If CInt(f.GetSplit(4, ",")) > 0 Then
RaiseAmount = CInt(f.GetSplit(4, ","))
End If
End If End If
If f.Split(CChar(",")).Count > 5 Then If f.Split(CChar(",")).Count > 5 Then
If CInt(f.GetSplit(5, ",")) > 0 Then If f.GetSplit(5, ",") <> "" Then
Chance = CInt(f.GetSplit(5, ",")) If CInt(f.GetSplit(5, ",")) > 0 Then
Chance = CInt(f.GetSplit(5, ","))
End If
End If End If
If f.Split(CChar(",")).Count > 6 Then If f.Split(CChar(",")).Count > 6 Then
FailMessage = f.GetSplit(6, ",") FailMessage = f.GetSplit(6, ",")
@ -264,11 +268,17 @@
Message = f.GetSplit(3, ",") Message = f.GetSplit(3, ",")
If f.Split(CChar(",")).Count > 4 Then If f.Split(CChar(",")).Count > 4 Then
If CInt(f.GetSplit(4, ",")) > 0 Then If CInt(f.GetSplit(4, ",")) > 0 Then
LowerAmount = CInt(f.GetSplit(4, ",")) If f.GetSplit(4, ",") <> "" Then
If CInt(f.GetSplit(4, ",")) > 0 Then
LowerAmount = CInt(f.GetSplit(4, ","))
End If
End If
End If End If
If f.Split(CChar(",")).Count > 5 Then If f.Split(CChar(",")).Count > 5 Then
If CInt(f.GetSplit(5, ",")) > 0 Then If f.GetSplit(5, ",") <> "" Then
Chance = CInt(f.GetSplit(5, ",")) If CInt(f.GetSplit(5, ",")) > 0 Then
Chance = CInt(f.GetSplit(5, ","))
End If
End If End If
If f.Split(CChar(",")).Count > 6 Then If f.Split(CChar(",")).Count > 6 Then
FailMessage = f.GetSplit(6, ",") FailMessage = f.GetSplit(6, ",")