Fix Remove NPC data crash if < 4 args

2024-04-22 13:10:13 +02:00 · 2024-04-22 13:10:13 +02:00 · fabbc958d9
parent fa52bddf96
commit fabbc958d9
1 changed files with 5 additions and 1 deletions
--- a/P3D/Entites/Other/NPC.vb
+++ b/P3D/Entites/Other/NPC.vb
@ -218,8 +218,12 @@

    Public Shared Sub RemoveNPCData(ByVal FullData As String)
        Dim Data() As String = FullData.Split(CChar("|"))
+        If Data.Count > 3 Then
+            RemoveNPCData(Data(0), CInt(Data(1)), Data(2), Data(3))
+        Else
+            RemoveNPCData(Data(0), CInt(Data(1)), Data(2))
+        End If

-        RemoveNPCData(Data(0), CInt(Data(1)), Data(2), Data(3))
    End Sub

 #End Region