128 lines
3.8 KiB
VB.net
128 lines
3.8 KiB
VB.net
Namespace Servers
|
|
|
|
''' <summary>
|
|
''' Contains all connected players.
|
|
''' </summary>
|
|
Public Class PlayerCollection
|
|
|
|
Inherits List(Of Player)
|
|
|
|
''' <summary>
|
|
''' Removes all players from the collection that have the specified name.
|
|
''' </summary>
|
|
Public Sub RemoveByName(ByVal Name As String)
|
|
For i = 0 To Me.Count - 1
|
|
If i <= Me.Count - 1 Then
|
|
If Me(i).Name = Name Then
|
|
Me.RemoveAt(i)
|
|
i -= 1
|
|
End If
|
|
Else
|
|
Exit For
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
Public Sub RemoveByID(ByVal ID As Integer)
|
|
For i = 0 To Me.Count - 1
|
|
If i <= Me.Count - 1 Then
|
|
If Me(i).ServersID = ID Then
|
|
Me.RemoveAt(i)
|
|
i -= 1
|
|
End If
|
|
Else
|
|
Exit For
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
Public Function HasPlayer(ByVal ID As Integer) As Boolean
|
|
For i = 0 To Me.Count - 1
|
|
If i <= Me.Count - 1 Then
|
|
If Me(i).ServersID = ID Then
|
|
Return True
|
|
End If
|
|
End If
|
|
Next
|
|
Return False
|
|
End Function
|
|
|
|
Public Function HasPlayer(ByVal Name As String) As Boolean
|
|
For i = 0 To Me.Count - 1
|
|
If i <= Me.Count - 1 Then
|
|
If Me(i).Name.ToLower() = Name.ToLower() Then
|
|
Return True
|
|
End If
|
|
End If
|
|
Next
|
|
Return False
|
|
End Function
|
|
|
|
Public Function GetPlayer(ByVal ID As Integer) As Player
|
|
For Each p As Player In Me
|
|
If p.ServersID = ID Then
|
|
Return p
|
|
End If
|
|
Next
|
|
Return Nothing
|
|
End Function
|
|
|
|
Public Function GetPlayer(ByVal Name As String) As Player
|
|
For i = 0 To Me.Count - 1
|
|
If i <= Me.Count - 1 Then
|
|
If Me(i).Name = Name Then
|
|
Return Me(i)
|
|
End If
|
|
End If
|
|
Next
|
|
Return Nothing
|
|
End Function
|
|
|
|
Public Function GetPlayerName(ByVal ID As Integer) As String
|
|
If ID = -1 Then
|
|
Return "[SERVER]"
|
|
End If
|
|
If ID = Core.ServersManager.ID Then
|
|
Return Core.Player.Name
|
|
End If
|
|
|
|
For i = 0 To Me.Count - 1
|
|
If i <= Me.Count - 1 Then
|
|
If Me(i).ServersID = ID Then
|
|
Return Me(i).Name
|
|
End If
|
|
End If
|
|
Next
|
|
|
|
Return ""
|
|
End Function
|
|
|
|
Public Sub ApplyPlayerDataPackage(ByVal p As Package)
|
|
If p.DataItems.Count = Player.PLAYERDATAITEMSCOUNT Then
|
|
If p.Origin <> Core.ServersManager.ID Then
|
|
Dim targetPlayer = GetPlayer(p.Origin)
|
|
|
|
If Not targetPlayer Is Nothing Then
|
|
targetPlayer.ApplyNewData(p)
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Public Function GetMatchingPlayerName(ByVal expression As String) As String
|
|
For i = 0 To Me.Count - 1
|
|
If i <= Me.Count - 1 Then
|
|
If Me(i).Name.ToLower().StartsWith(expression.ToLower()) = True Then
|
|
Return Me(i).Name
|
|
End If
|
|
End If
|
|
Next
|
|
|
|
'No matching player name, return input expression.
|
|
Return expression
|
|
End Function
|
|
|
|
End Class
|
|
|
|
End Namespace
|