Case Chr(8)
Dim tmpUserId As String, tmpusername
tmpUserId = Format(Asc(Mid(sDATA, 2, 1)), "0#")
tmpusername = Split(Right(sDATA, Len(sDATA) - 2), ChrW("&H00"))
frmMain.lstPlayersList.AddItem tmpUserId & " - " & tmpusername(0) & " (0) "
AddConsole tmpusername(0) & " has joined the game."
If InStr(LCase(tmpusername(0)), "joop") Then
frmMain.GodSend "Recognized honorable user. Welcome, [UIF]Joop!"
ElseIf InStr(LCase(tmpusername(0)), "muppet") Then
frmMain.GodSend "Recognized honorable member. Welcome, DJ-Muppetmaster!"
ElseIf InStr(LCase(tmpusername(0)), "smithers") Then
frmMain.GodSend "Recognized member of GTA:C. What the fuck do you want?"
ElseIf InStr(LCase(tmpusername(0)), "jacob") Then
frmMain.GodSend "Recognized my master, Jacob. Welcome!"
ElseIf InStr(LCase(tmpusername(0)), "brownstone") Then
frmMain.GodSend "Recognized honorable member. Welcome, MrBrownstone!"
ElseIf InStr(LCase(tmpusername(0)), "1980") Then
frmMain.GodSend "Recognized spammer! Banning user immediatly!"
ElseIf InStr(LCase(tmpusername(0)), "mnk") Then
frmMain.GodSend "Recognized MNK member. Welcome!"
ElseIf InStr(LCase(tmpusername(0)), "gangsta") Then
frmMain.GodSend "Recognized honorable member. Welcome, Gangsta!"
ElseIf InStr(LCase(tmpusername(0)), "trix") Then
frmMain.GodSend "Recognized honorable member. Welcome, Trix!"
ElseIf InStr(LCase(tmpusername(0)), "jay") Then
frmMain.GodSend "Hello, Jay."
ElseIf InStr(LCase(tmpusername(0)), "blood") Then
frmMain.GodSend "Recognized MR.BLOOD! Welcome to our server."
ElseIf InStr(LCase(tmpusername(0)), "bazw") Then
frmMain.GodSend "Recognized honorable member! Welcome, BazW!"
ElseIf InStr(LCase(tmpusername(0)), "cmc") Then
frmMain.GodSend "Recognized fellow cMc member. Welcome!"
ElseIf InStr(LCase(tmpusername(0)), "drug") Then
frmMain.GodSend "Recognized [DRuG] member. Welcome!"
End If
tmpstr2 = ChrW("&H09")