Type TServer
	Field _ttcpsServerStream:TTCPStream
	Field _tlConnectedClients:TList
	Field _ttcpsClientStream:TTCPStream
	Field _tmClientStreamByNickname:TMap
	Field _tmNicknameByClientStream:TMap
	
	Method ServerStream:TTCPStream()
		Return _ttcpsServerStream
	End Method
	
	Method SetServerStream(pttcpsServerStream:TTCPStream)
		_ttcpsServerStream = pttcpsServerStream
	End Method
	
	Method ConnectedClients:TList()
		Return _tlConnectedClients
	End Method
	
	Method SetConnectedClients(ptlConnectedClients:TList)
		_tlConnectedClients = ptlConnectedClients
	End Method
	
	Method ClientStream:TTCPStream()
		Return _ttcpsClientStream
	End Method
	
	Method SetClientStream(pttcpsClientStream:TTCPStream)
		_ttcpsClientStream = pttcpsClientStream
	End Method
	
	Method ClientStreamByNickname:TMap()
		Return _tmClientStreamByNickname
	End Method
	
	Method __SetClientStreamByNickname(ptmClientStreamByNickname:TMap)
		_tmClientStreamByNickname = ptmClientStreamByNickname
	End Method
	
	Method AddNickname(psNickname:String, pttcpsClientStream:TTCPStream)
		
	End Method
	
	Method NicknameByClientStream:TMap()
		Return _tmNicknameByClientStream
	End Method
	
	Method __SetNicknameByClientStream(ptmNicknameByClientStream:TMap)
		_tmNicknameByClientStream = ptmNicknameByClientStream
	End Method
	
	Function Create:TServer(piPort:Int)
		Local serv:TServer = New TServer
		
		serv.SetConnectedClients(New TList)
		
		serv.SetServerStream(New TTCPStream)
		
		serv.Start(piPort)
		
		Return serv
	End Function
	
	Method Start(piPort:Int)
		If(Not ServerStream().Init()) Then Throw("Socket could not be created.")
		If(Not ServerStream().SetLocalPort(piPort)) Then Throw("Couldn't set local port to " + piPort + ".")
		If(Not ServerStream().Listen()) Then Throw("Can't set socket state to listen.")
		Print("******************************")
		Print("Server is ready to be used")
	End Method
	
	Function StartServer(ptseServer:TServer)
		'Local thread:TThread = TThread.Create(StartListen, ptseServer)
		ptseServer.Listen()
	End Function
	
	Function StartListen:Object(ptseServer:Object)
		TServer(ptseServer).Listen()
	End Function
	
	Method Listen()
		Print("Server starting to listen")
		Print("******************************")
		Print("")
		
		Repeat
			SetClientStream(ServerStream().Accept())
			
			If(ClientStream() <> Null) Then
				Print("New Client:~n" + ..
						" - IP:" + TNetwork.StringIP(ClientStream().GetLocalIP()) + "~n" + ..
						" - Port:" + ClientStream().GetLocalPort() + "~n")
				ConnectedClients().AddLast(ClientStream())
			EndIf
			
			For Local str:TTCPStream = EachIn ConnectedClients()
				SetClientStream(str)
				If(ClientStream().GetState() <> 1) Then
					Print("Client disconnected:~n" + ..
		            		" - IP:" + TNetwork.StringIP(ClientStream().GetLocalIP()) + "~n" + ..
		            		" - Port:" + ClientStream().GetLocalPort() + "~n")
					ClientStream().Close()
					ConnectedClients().Remove(ClientStream())
					Continue
				EndIf
				
				If(ClientStream().RecvAvail() <> (-1)) Then
					While(ClientStream().RecvMsg())
					
					Wend
					
					If(ClientStream().Size() > 0) Then
						Print("Message from client:~n" + ..
				            	" - IP:" + TNetwork.StringIP(ClientStream().GetLocalIP()) + "~n" + ..
				            	" - Port:" + ClientStream().GetLocalPort() + "~n")
								
						While(Not ClientStream().Eof())
							Print(">" + ClientStream().ReadLine() + "~n")
						Wend
						
						ClientStream().WriteLine("Okay")
						
						While(ClientStream().SendMsg())
						
						Wend
					EndIf
				EndIf
			Next
		Forever
	End Method
	
	Method SendMessageToAll(psNickName:String, psMessage:String)
		
	End Method
End Type

Global myServer:TServer = TServer.Create(1300)

TServer.StartServer(myServer)

	Function StartServer(ptseServer:TServer)
		Local thread:TThread = TThread.Create(StartListen, ptseServer)
		'ptseServer.Listen()
	End Function