#include <TCP.au3>
Global $ip = TCPNameToIP("jonas-laptop") ;IP
Global Const $port = 3333 ;Port
Global $accepted = False ;Angenommen?
Global $blocked = False ;Blocked?
Global $nick = InputBox("Bitte Nicknamen eingeben...", "") ;Nickname?
Global $ClientName = $nick ;ClientNAme
$socket = _TCP_Client_Create($ip, $port) ;Client erstellen
_TCP_RegisterEvent($socket, $TCP_RECEIVE, "Receive")
_TCP_RegisterEvent($socket, $TCP_DISCONNECT, "Disconnect")
_TCP_RegisterEvent($socket, $TCP_CONNECT, "Connected")
While 1 ;Mainwhile
	Sleep(100)
WEnd
Func Receive($hSocket, $sReceived, $iError)
	$split = StringSplit( $sReceived , "~" , 2)
	Select
		Case $split[0] = "##accepted"
			ToolTip("CLIENT:Connected")
			Global $accepted = True
			Global $blocked = False
		Case $split[0] = "##kick"
			If $split[1] = $ClientName Then
			MsgBox(0, "CLIENT", "KICKED")
			Exit
		Else
			MsgBox(0 , "CLIENT", "USER: "&$split[1]&" was kicked" )
			EndIf
		Case $split[0] = "##block"
			MsgBox(0, "CLIENT", "BLOCKED")
			Global $accepted = False
			Global $blocked = True
		Case $split[0] = "##chat"
			MsgBox(0, "Chat", $split[1])
		Case $split[0] = "##banned"
			If $split[1] = 1 Then
			MsgBox(0, "Banned", "You are banned from this Server")
			Exit
		EndIf
		Case $split[0] = "##usersuc"
			If $split[1] = $ClientName Then
				MsgBox( 0 , "CLIENT" , "Name accepted" )
			EndIf
		Case $split[0] = "##userblock"
			MsgBox( 0 ,"", "Name already online" )
			Exit
		Case $split[0] = "##name"
			If $split[1] = @IPAddress1 Then
				Sleep(100)
				_TCP_Send($socket,"##useradd~"&$ClientName )
			EndIf
EndSelect
EndFunc   ;==>Receive
Func Disconnect($hSocket, $iError)
	MsgBox(0, "CLIENT", "Disconnected.")
	Exit
EndFunc   ;==>Disconnect
Func _Connected()

EndFunc