'####################################################################################################################################################
'####################################################################################################################################################
' EGNP_V1 - Easy Game Net Play Version: (see line 19 till 21)
'####################################################################################################################################################
'####################################################################################################################################################
' (c) 2013-.... By.: /_\ DeltaLab's Germany - Experimental Computing
' Autor: Martin Wiemann
' IRC: IRC://DeltaLabs.de/#mln
' Idea: 2013.12.31
'####################################################################################################################################################
' Free for NON-comercial use. Using the DeltaLab's Server for comercial use is NOT allowed! Mail me if u need more licences: fb@deltalabs.de
'####################################################################################################################################################



'####################################################################################################################################################
#IFNDEF _EGNP_
	#DEFINE _EGNP_
	#Define EGNP_Version 1.0
	#Define EGNP_VersionDate 20140123
	#Define EGNP_VersionFull 1.0_20140123 (0.90.1 07-17-2013)
'>...
#Define EGNP_INT_PubServerHost "deltalabs.de"
#Define EGNP_INT_PubServerPort 6007

#Define TSNE_DEF_REUSER
#Define TSNE_SUBCALLBACK
#Define TSNE_FastEventThread
#Include Once "TSNE_V3.bi"
#IF TSNE_VersionDate < 20131223
	#ERROR Wrong TSNE-Version! Too old! U need 3.7_20131223 or higer!
#ENDIF



'####################################################################################################################################################
' === TODO ===
'highscores



'####################################################################################################################################################
Enum EGNP_GURU_Enum
	EGNP_GURU_Unknown							= 0
	EGNP_GURU_NoError							= 1
	EGNP_GURU_NoErrorCreateAccount				= 2

	EGNP_GURU_ParameterError					= -1000
	EGNP_GURU_IDnotFound						= -1001
	EGNP_GURU_NothingSelected					= -1002

	EGNP_GURU_InternalError						= -1900
	EGNP_GURU_DATALenError						= -1901
	EGNP_GURU_Timeout							= -1902
	EGNP_GURU_UnknownCMD						= -1903
	EGNP_GURU_CantConnect						= -1904
	EGNP_GURU_ExternalError						= -1905
	EGNP_GURU_CantOpenFile						= -1906
	EGNP_GURU_TransmissionError					= -1907
	EGNP_GURU_ParseLenError						= -1908

	EGNP_GURU_LoginDenied						= -1920
	EGNP_GURU_NickDenied						= -1921
	EGNP_GURU_CommandDenied						= -1922
	EGNP_GURU_UsernameDenied					= -1923
End Enum



'####################################################################################################################################################
Enum EGNP_INT_CMD_Enum
	EGNP_CMD_Unknown							= 0
	EGNP_CMD_NoError							= 1

	EGNP_CMD_ServerUnavaible					= 1100
	EGNP_CMD_ServerOffline						= 1101
	EGNP_CMD_ServerFull							= 1102
	EGNP_CMD_ServerConnectionDenied				= 1103

	EGNP_CMD_Ping								= 1190
	EGNP_CMD_Pong								= 1191

	EGNP_CMD_Crypt1								= 1200
	EGNP_CMD_Crypt2								= 1201
	EGNP_CMD_Crypt3								= 1202
	EGNP_CMD_Ident								= 1203
	EGNP_CMD_ServerAlternative					= 1204
	EGNP_CMD_ServerList							= 1205
	EGNP_CMD_ServerListAdd						= 1206
	EGNP_CMD_ServerListReady					= 1207
	EGNP_CMD_ServerListUpdate					= 1208

	EGNP_CMD_AccCreate							= 1210
	EGNP_CMD_AccDestroy							= 1211
	EGNP_CMD_AccLogin							= 1212
	EGNP_CMD_AccList							= 1213
	EGNP_CMD_AccSetFlags						= 1214
	EGNP_CMD_AccSetNick							= 1215
	EGNP_CMD_AccSetPass							= 1216

	EGNP_CMD_Ready								= 1300

	EGNP_CMD_UserLeave							= 1400
	EGNP_CMD_UserKick							= 1401
	EGNP_CMD_UserJoin							= 1402
	EGNP_CMD_UserMessage						= 1403
	EGNP_CMD_UserData							= 1404
	EGNP_CMD_UserMoveDbl						= 1405
	EGNP_CMD_UserMoveInt						= 1406

	EGNP_CMD_ScoreList							= 1420
	EGNP_CMD_ScoreAdd							= 1421

End Enum



'####################################################################################################################################################
Dim Shared EGNP_INT_Mux							as Any Ptr



'####################################################################################################################################################
Enum EGNP_INT_AccountAction_Enum
	EGNP_AAE_Unknown							= 0
	EGNP_AAE_Login
	EGNP_AAE_Create
	EGNP_AAE_Destroy
	EGNP_AAE_SetFlags
End Enum



'####################################################################################################################################################
Enum EGNP_INT_UserState_Enum
	EGNP_USE_Unknown							= 0
	EGNP_USE_Leave
	EGNP_USE_Kicked
	EGNP_USE_Join
End Enum



'####################################################################################################################################################
Enum EGNP_INT_ClientState_Enum
	EGNP_CSE_Unknown							= 0
	EGNP_CSE_Disconnected						= &B00001000
	EGNP_CSE_DisconnectedTimeout				= &B00001001
	EGNP_CSE_DisconnectedUnavaible				= &B00001011
	EGNP_CSE_DisconnectedFull					= &B00001100
	EGNP_CSE_DisconnectedConnectionDenied		= &B00001101
	EGNP_CSE_Connecting							= &B00010000
	EGNP_CSE_Connected							= &B00010001
	EGNP_CSE_Ident								= &B00100000
	EGNP_CSE_Login								= &B01000000
	EGNP_CSE_Ready								= &B10000000
End Enum



'####################################################################################################################################################
Enum EGNP_MessageType_Enum
	EGNP_MTE_Regular							= 0
	EGNP_MTE_Private
	EGNP_MTE_Notice
	EGNP_MTE_Hightlighted
End Enum



'####################################################################################################################################################
Enum EGNP_AccountPermissions_Enum
	EGNP_APE_AnonymouseUser						= &B00000000000000000000000000000000
	EGNP_APE_Registered							= &B00000000000000000000000000000001
	EGNP_APE_Banned								= &B00000000000000000000000000000010
	EGNP_APE_Owner								= &B00000000000000000000000000010000
	EGNP_APE_Moderator							= &B00000000000000000000000000100000
	EGNP_APE_SuperModerator						= &B00000000000000000000000001000000
	EGNP_APE_Administrator						= &B00000000000000000000000010000000
End Enum



'####################################################################################################################################################
Type EGNP_Callback_Type
	V_StateConnection							as Sub	(V_ClientID as UInteger, V_State as EGNP_INT_ClientState_Enum)
	V_StateUser									as Sub	(V_UserID as UInteger, V_State as EGNP_INT_UserState_Enum, ByRef RV_MyPtr as Any Ptr)
	V_Message									as Sub	(V_FromUserID as UInteger, V_ToUserID as UInteger, ByRef V_Message as String, V_MessageType as EGNP_MessageType_Enum, ByRef RV_FromMyPtr as Any Ptr, ByRef RV_ToMyPtr as Any Ptr)
	V_Data										as Sub	(V_FromUserID as UInteger, V_ToUserID as UInteger, ByRef V_Data as String, ByRef RV_FromMyPtr as Any Ptr, ByRef RV_ToMyPtr as Any Ptr)
	V_MoveDbl									as Sub	(V_FromUserID as UInteger, V_ToUserID as UInteger, V_X as Double, V_Y as Double, V_Z as Double, V_Int as Integer, ByRef RV_FromMyPtr as Any Ptr, ByRef RV_ToMyPtr as Any Ptr)
	V_MoveInt									as Sub	(V_FromUserID as UInteger, V_ToUserID as UInteger, V_X as Integer, V_Y as Integer, V_Z as Integer, V_Int as Integer, ByRef RV_FromMyPtr as Any Ptr, ByRef RV_ToMyPtr as Any Ptr)

	V_Server_ConnectionRequest					as Sub	(V_ServerID as UInteger, V_IPA as String, ByRef R_Cancel as Integer)
	V_Server_StateUser							as Sub	(V_ServerID as UInteger, V_UserID as UInteger, V_State as EGNP_INT_UserState_Enum, ByRef RV_MyPtr as Any Ptr, ByRef R_Cancel as Integer)
	V_Server_AccountAction						as Sub	(V_ServerID as UInteger, V_UserID as UInteger, V_Action as EGNP_INT_AccountAction_Enum, ByRef V_Username as String, ByRef RV_UserFlags as EGNP_AccountPermissions_Enum, ByRef RV_MyPtr as Any Ptr, ByRef R_Cancel as Integer)
	V_Server_Message							as Sub	(V_ServerID as UInteger, V_FromUserID as UInteger, V_ToUserID as UInteger, ByRef V_Message as String, V_MessageType as EGNP_MessageType_Enum, ByRef RV_FromMyPtr as Any Ptr, ByRef RV_ToMyPtr as Any Ptr, ByRef R_Cancel as Integer)
	V_Server_Data								as Sub	(V_ServerID as UInteger, V_FromUserID as UInteger, V_ToUserID as UInteger, ByRef V_Data as String, ByRef RV_FromMyPtr as Any Ptr, ByRef RV_ToMyPtr as Any Ptr, ByRef R_Cancel as Integer)
	V_Server_MoveDbl							as Sub	(V_ServerID as UInteger, V_FromUserID as UInteger, V_ToUserID as UInteger, V_X as Double, V_Y as Double, V_Z as Double, V_Int as Integer, ByRef RV_FromMyPtr as Any Ptr, ByRef RV_ToMyPtr as Any Ptr, ByRef R_Cancel as Integer)
	V_Server_MoveInt							as Sub	(V_ServerID as UInteger, V_FromUserID as UInteger, V_ToUserID as UInteger, V_X as Integer, V_Y as Integer, V_Z as Integer, V_Int as Integer, ByRef RV_FromMyPtr as Any Ptr, ByRef RV_ToMyPtr as Any Ptr, ByRef R_Cancel as Integer)
End Type



'####################################################################################################################################################
Enum EGNP_ServerFlags_Enum
	EGNP_SFE_Serverpass							= &B00000000000000000000000000000001
	EGNP_SFE_Account							= &B00000000000000000000000000000010
End Enum



'####################################################################################################################################################
Type EGNP_User_Type
	V_Next										as EGNP_User_Type Ptr
	V_Prev										as EGNP_User_Type Ptr

	V_ClientID									as UInteger
	V_Nickname									as String
	V_UserFlags									as EGNP_AccountPermissions_Enum
	V_MyPtr										as Any Ptr
End Type



'####################################################################################################################################################
Type EGNP_INT_ClientAnswer_Type
	V_Next										as EGNP_INT_ClientAnswer_Type Ptr
	V_Prev										as EGNP_INT_ClientAnswer_Type Ptr

	V_TimeOut									as Double
	V_Serial									as Double
	V_CMD										as EGNP_INT_CMD_Enum
	V_Answer									as String
End Type
'----------------------------------------------------------------------------------------------------------------------------------------------------
Type EGNP_INT_Client_Type
	V_Next										as EGNP_INT_Client_Type Ptr
	V_Prev										as EGNP_INT_Client_Type Ptr

	V_TSNEIDTCP									as UInteger
	V_TSNEIDUDPRX								as UInteger
	V_TSNEIDUDPTX								as UInteger

	V_DataTCP									as String
	V_DataUDP									as String

	V_Callbacks									as EGNP_Callback_Type
	V_State										as EGNP_INT_ClientState_Enum
	V_LCMD										as EGNP_INT_CMD_Enum

	V_Host										as String
	V_PortTCP									as UShort
	V_PortUDP									as UShort
	V_Nickname									as String
	V_PasswordServer							as String
	V_Username									as String
	V_Password									as String
	V_AutoReconnect								as Integer

	V_ServerName								as String
	V_ServerDescription							as String
	V_ServerMaxPlayer							as UShort
	V_ServerPublic								as Integer
	V_ServerUseServerPass						as Integer
	V_ServerUseAccount							as Integer

	V_CryptKeyRX								as String
	V_CryptKeyTX								as String

	V_MyID										as UInteger

	V_UserF										as EGNP_User_Type Ptr
	V_UserL										as EGNP_User_Type Ptr

	V_AnswerF									as EGNP_INT_ClientAnswer_Type Ptr
	V_AnswerL									as EGNP_INT_ClientAnswer_Type Ptr

'	V_LSerialMsg								as ULongInt
'	V_LSerialDat								as ULongInt
'	V_LSerialDbl								as ULongInt
'	V_LSerialInt								as ULongInt
End Type
'----------------------------------------------------------------------------------------------------------------------------------------------------
Dim Shared EGNP_INT_Client_F					as EGNP_INT_Client_Type Ptr
Dim Shared EGNP_INT_Client_L					as EGNP_INT_Client_Type Ptr



'####################################################################################################################################################
Type EGNP_INT_Server_Type_ as EGNP_INT_Server_Type
'----------------------------------------------------------------------------------------------------------------------------------------------------
Type EGNP_INT_ServerClient_Type
	V_Next										as EGNP_INT_ServerClient_Type Ptr
	V_Prev										as EGNP_INT_ServerClient_Type Ptr

	V_Server									as EGNP_INT_Server_Type_ Ptr

	V_TSNEID									as UInteger
	V_TimeCon									as Double
	V_TimeOut									as Double
	V_TimePing									as Double
	V_IPA										as String

	V_PingC										as Integer
	V_DataTCP									as String
	V_DataUDP									as String

	V_State										as EGNP_INT_ClientState_Enum

	V_Nickname									as String
	V_NicknameL									as String
	V_Username									as String
	V_UserFlags									as EGNP_AccountPermissions_Enum
	V_MyPtr										as Any Ptr

	V_PPKLen									as Integer
	V_PPKPri									as String
	V_PPKPub									as String
	V_PPKSum									as String
	V_PPKMix									as String
	V_CryptKeyRX								as String
	V_CryptKeyTX								as String
End Type
'----------------------------------------------------------------------------------------------------------------------------------------------------
Type EGNP_Account_Type
	V_ClientID									as UInteger
	V_Username									as String
	V_Nickname									as String
	V_UserFlags									as EGNP_AccountPermissions_Enum
End Type
'----------------------------------------------------------------------------------------------------------------------------------------------------
Type EGNP_INT_Account_Type
	V_Next										as EGNP_INT_Account_Type Ptr
	V_Prev										as EGNP_INT_Account_Type Ptr

	V_Username									as String
	V_UsernameL									as String
	V_Password									as String
	V_Nickname									as String
	V_UserFlags									as EGNP_AccountPermissions_Enum
End Type
'----------------------------------------------------------------------------------------------------------------------------------------------------
Type EGNP_INT_Server_Type
	V_Next										as EGNP_INT_Server_Type Ptr
	V_Prev										as EGNP_INT_Server_Type Ptr

	V_CreateTime								as Double

	V_GameName									as String
	V_GameVersion								as UInteger

	V_PortTCP									as UShort
	V_PortUDP									as UShort

	V_Callbacks									as EGNP_Callback_Type
	V_Password									as String
	V_MaxPlayer									as UShort
	V_Public									as Integer
	V_UseAccounts								as Integer
	V_Name										as String
	V_Description								as String

	V_AccountF									as EGNP_INT_Account_Type Ptr
	V_AccountL									as EGNP_INT_Account_Type Ptr
	V_AccountFile								as String

	V_ClientF									as EGNP_INT_ServerClient_Type Ptr
	V_ClientL									as EGNP_INT_ServerClient_Type Ptr
	V_ClientC									as UInteger

	V_Enabled									as Integer

	V_PublicUpdate								as Integer
	V_PublicKey									as String
	V_PublicTime								as Double

	V_TSNEIDTCP									as UInteger
	V_TSNEIDUDPRX								as UInteger
	V_TSNEIDUDPTX								as UInteger

End Type
'----------------------------------------------------------------------------------------------------------------------------------------------------
Dim Shared EGNP_INT_Server_F					as EGNP_INT_Server_Type Ptr
Dim Shared EGNP_INT_Server_L					as EGNP_INT_Server_Type Ptr



'####################################################################################################################################################
Type EGNP_INT_PublicServer_Type
	V_Next										as EGNP_INT_PublicServer_Type Ptr
	V_Prev										as EGNP_INT_PublicServer_Type Ptr
	V_IPA										as String
	V_Port										as UShort
	V_GameName									as String
	V_GameVersion								as UInteger
	V_Name										as String
	V_Desc										as String
	V_Flags										as EGNP_ServerFlags_Enum
	V_PlayerMax									as UInteger
	V_PlayerCur									as UInteger
End Type
'----------------------------------------------------------------------------------------------------------------------------------------------------
Dim Shared EGNP_INT_ServerPubSLF				as EGNP_INT_PublicServer_Type Ptr
Dim Shared EGNP_INT_ServerPubSLL				as EGNP_INT_PublicServer_Type Ptr
Dim Shared EGNP_INT_ServerPubSLTime				as Double
Dim Shared EGNP_INT_ServerPubTSNEID				as UInteger
Dim Shared EGNP_INT_ServerPubData				as String
Dim Shared EGNP_INT_ServerPubThread				as Any Ptr
Dim Shared EGNP_INT_ServerPubExit				as Integer



'####################################################################################################################################################
Dim Shared EGNP_INT_CMDSerial					as Double



'####################################################################################################################################################
Function EGNP_INT_GETCMDDESC(V_CMDCode as Integer) as String
Select Case V_CMDCode
	Case EGNP_GURU_Unknown							: Return "[    0] UNKNOWN"
	Case EGNP_GURU_NoError							: Return "[    1] E-NO   "
	Case EGNP_GURU_ParameterError					: Return "[-1000] E-PARAM"
	Case EGNP_GURU_IDnotFound						: Return "[-1001] IDnotFo"
	Case EGNP_GURU_NothingSelected					: Return "[-1002] NotiSel"
	Case EGNP_GURU_InternalError					: Return "[-1900] E-INT  "
	Case EGNP_GURU_DATALenError						: Return "[-1901] E-DATLE"
	Case EGNP_GURU_Timeout							: Return "[-1902] TIMEOUT"
	Case EGNP_GURU_UnknownCMD						: Return "[-1903] UnkoCMD"
	Case EGNP_GURU_CantConnect						: Return "[-1904] CantCon"
	Case EGNP_GURU_ExternalError					: Return "[-1905] E-EXT  "
	Case EGNP_GURU_CantOpenFile						: Return "[-1906] CantOpe"
	Case EGNP_GURU_TransmissionError				: Return "[-1907] E-Trans"
	Case EGNP_GURU_ParseLenError					: Return "[-1908] E-PaLen"
	Case EGNP_GURU_LoginDenied						: Return "[-1910] Log-Den"
	Case EGNP_GURU_NickDenied						: Return "[-1911] Nic-Den"
	Case EGNP_GURU_CommandDenied					: Return "[-1912] CMD-Den"
	Case EGNP_CMD_ServerUnavaible					: Return "[ 1100] Unavaib"
	Case EGNP_CMD_ServerOffline						: Return "[ 1101] Offline"
	Case EGNP_CMD_ServerFull						: Return "[ 1102] Full   "
	Case EGNP_CMD_ServerConnectionDenied			: Return "[ 1103] Con-Den"
	Case EGNP_CMD_Ping								: Return "[ 1190] PING   "
	Case EGNP_CMD_Pong								: Return "[ 1191] PONG   "
	Case EGNP_CMD_Crypt1							: Return "[ 1200] Crypt-1"
	Case EGNP_CMD_Crypt2							: Return "[ 1201] Crypt-2"
	Case EGNP_CMD_Crypt3							: Return "[ 1202] Crypt-3"
	Case EGNP_CMD_Ident								: Return "[ 1203] Ident  "
	Case EGNP_CMD_ServerAlternative					: Return "[ 1204] SerAlt "
	Case EGNP_CMD_ServerList						: Return "[ 1205] SerL   "
	Case EGNP_CMD_ServerListAdd						: Return "[ 1206] SerLAdd"
	Case EGNP_CMD_ServerListReady					: Return "[ 1207] SerLRed"
	Case EGNP_CMD_ServerListUpdate					: Return "[ 1208] SerLUpd"
	Case EGNP_CMD_AccCreate							: Return "[ 1210] AccCrea"
	Case EGNP_CMD_AccDestroy						: Return "[ 1211] AccDest"
	Case EGNP_CMD_AccLogin							: Return "[ 1212] AccLogi"
	Case EGNP_CMD_AccList							: Return "[ 1213] AccList"
	Case EGNP_CMD_AccSetFlags						: Return "[ 1213] AccSFla"
	Case EGNP_CMD_AccSetNick						: Return "[ 1213] AccNick"
	Case EGNP_CMD_AccSetPass						: Return "[ 1213] AccPass"
	Case EGNP_CMD_Ready								: Return "[ 1300] Ready  "
	Case EGNP_CMD_UserLeave							: Return "[ 1400] UsrLeav"
	Case EGNP_CMD_UserKick							: Return "[ 1401] UsrKick"
	Case EGNP_CMD_UserJoin							: Return "[ 1402] UsrJoin"
	Case EGNP_CMD_UserMessage						: Return "[ 1403] UsrMsg "
	Case EGNP_CMD_UserData							: Return "[ 1404] UsrData"
	Case EGNP_CMD_UserMoveDbl						: Return "[ 1405] UsrMDbl"
	Case EGNP_CMD_UserMoveInt						: Return "[ 1406] UsrMInt"
	Case EGNP_CMD_ScoreList							: Return "[ 1420] ScorLis"
	Case EGNP_CMD_ScoreAdd							: Return "[ 1421] ScorAdd"
	Case Else										: Return "[" & Space(5 - Len(Str(V_CMDCode))) & Str(V_CMDCode) & "        "
End Select
End Function



'####################################################################################################################################################
Function EGNP_GetGURUDescription(V_GURU as EGNP_GURU_Enum) as String
Select Case V_GURU
	Case EGNP_GURU_ParameterError				: Return "Parametererror"
	Case EGNP_GURU_IDnotFound					: Return "ID not found"
	Case EGNP_GURU_NothingSelected				: Return "Nothing selected"

	Case EGNP_GURU_InternalError				: Return "Internal error"
	Case EGNP_GURU_DATALenError					: Return "DATALEN error"
	Case EGNP_GURU_Timeout						: Return "Timeout"
	Case EGNP_GURU_UnknownCMD					: Return "Unknown CMD"
	Case EGNP_GURU_ParseLenError				: Return "PARAMETERDATALEN error"

	Case EGNP_CMD_ServerUnavaible				: Return "Server unavaible"
	Case EGNP_CMD_ServerOffline					: Return "Server offline"
	Case EGNP_CMD_ServerFull					: Return "Server full"
	Case EGNP_GURU_CantConnect					: Return "Can't connect"

	Case EGNP_GURU_ExternalError				: Return "External error"
	Case EGNP_GURU_CantOpenFile					: Return "Can't open file"
	Case EGNP_GURU_TransmissionError			: Return "Transmission error"

	Case EGNP_GURU_LoginDenied					: Return "Login denied"
	Case EGNP_GURU_NickDenied					: Return "Nickname in use or not allowed to use"
	Case EGNP_GURU_CommandDenied				: Return "Command denied"
	Case EGNP_GURU_UsernameDenied				: Return "Username in use or not allowed to use"

	Case EGNP_CMD_ServerUnavaible				: Return "Server unavaible"
	Case EGNP_CMD_ServerOffline					: Return "Server offline"
	Case EGNP_CMD_ServerFull					: Return "Server full"
	Case EGNP_CMD_ServerConnectionDenied		: Return "Connection denied"
	Case Else: Return TSNE_GetGURUCode(V_GURU)
End Select
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_GetConnectionStateDescription(V_State as EGNP_INT_ClientState_Enum) as String
Select Case V_State
	Case EGNP_CSE_Unknown						: Return "Unknown."
	Case EGNP_CSE_Disconnected					: Return "Disconnected."
	Case EGNP_CSE_DisconnectedTimeout			: Return "Disconnected. Timeout."
	Case EGNP_CSE_DisconnectedUnavaible			: Return "Disconnected. Server unavaible."
	Case EGNP_CSE_DisconnectedFull				: Return "Disconnected. Server full."
	Case EGNP_CSE_DisconnectedConnectionDenied	: Return "Disconnected. Connection denied."
	Case EGNP_CSE_Connecting					: Return "Connecting..."
	Case EGNP_CSE_Connected						: Return "Connected!"
	Case EGNP_CSE_Ready							: Return "Ready!"

	Case Else: Return "Unknown connection state!"
End Select
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_GetUserStateDescription(V_State as EGNP_INT_UserState_Enum) as String
Select Case V_State
	Case EGNP_USE_Unknown						: Return "Unknown."
	Case EGNP_USE_Leave							: Return "Leave."
	Case EGNP_USE_Kicked						: Return "Kicked."
	Case EGNP_USE_Join							: Return "Join."

	Case Else: Return "Unknown user state!"
End Select
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_GetAccountActionDescription(V_Action as EGNP_INT_AccountAction_Enum) as String
Select Case V_Action
	Case EGNP_AAE_Unknown						: Return "Unknown."
	Case EGNP_AAE_Login							: Return "Login."
	Case EGNP_AAE_Create						: Return "Create."
	Case EGNP_AAE_Destroy						: Return "Destroy."
	Case EGNP_AAE_SetFlags						: Return "SetFlags."

	Case Else: Return "Unknown user state!"
End Select
End Function



'####################################################################################################################################################
Function OSC_Crypt(ByVal V_Username as String, ByVal V_Passwort as String, ByVal V_Rechte as String, ByVal V_CryptDeep as UByte) as String
Dim V as Integer
Dim X as Integer
Dim Y as Integer
Dim Z as Integer
Dim T as String
Dim ASCIICode as UByte
For V = 1 to V_CryptDeep
	ASCIICode XOR= CByte((V_CryptDeep - V + 1) Mod 255)
	For X = 1 to Len(V_Username)
		ASCIICode XOR= V_Username[X - 1]
		For Y = 1 to Len(V_Passwort)
			ASCIICode XOR= V_Passwort[Y - 1]
			If Len(V_Rechte) > 0 then
				For Z = 1 to Len(V_Rechte)
					ASCIICode XOR= V_Rechte[Z - 1]
				Next
			End If
			T += Chr(ASCIICode)
			ASCIICode XOR= CByte(X Mod 255)
		Next
	Next
Next
Return T
End Function



'####################################################################################################################################################
Function EGNP_INT_BuildCMD(V_CMD as EGNP_INT_CMD_Enum, V_Data as String = "") as String
Dim TLen as UInteger = 4 + Len(V_Data)
Return Chr((TLen shr 24) and 255, (TLen shr 16) and 255, (TLen shr 8) and 255, TLen and 255, (V_CMD shr 24) and 255, (V_CMD shr 16) and 255, (V_CMD shr 8) and 255, V_CMD and 255) & V_Data
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_INT_BuildString(V_Data as String) as String
Dim TLen as UInteger = 4 + Len(V_Data)
Return Chr((TLen shr 24) and 255, (TLen shr 16) and 255, (TLen shr 8) and 255, TLen and 255) & V_Data
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_INT_BuildUShort(V_Data as UShort) as String
Return Chr((V_Data shr 8) and 255, V_Data and 255)
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_INT_BuildUInteger(V_Data as UInteger) as String
Return Chr((V_Data shr 24) and 255, (V_Data shr 16) and 255, (V_Data shr 8) and 255, V_Data and 255)
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_INT_BuildDouble(V_Data as Double) as String
Dim T as String = Space(8)
*Cast(Double Ptr, @T[0]) = V_Data
Return T
End Function



'####################################################################################################################################################
Function EGNP_INT_GetString(ByRef RV_Data as String, ByRef R_Data as String) as EGNP_GURU_Enum
If Len(RV_Data) < 4 Then Return EGNP_GURU_ParseLenError
Dim TLen as UInteger = (RV_Data[0] shl 24) or (RV_Data[1] shl 16) or (RV_Data[2] shl 8) or RV_Data[3]
If TLen > &HFFFFF Then Return EGNP_GURU_ParseLenError
If Len(RV_Data) < TLen Then Return EGNP_GURU_ParseLenError
R_Data = Mid(RV_Data, 5, TLen - 4)
RV_Data = Mid(RV_Data, TLen + 1)
Return EGNP_GURU_NoError
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_INT_GetUShort(ByRef RV_Data as String, ByRef R_Data as UShort) as EGNP_GURU_Enum
If Len(RV_Data) < 2 Then Return EGNP_GURU_ParseLenError
R_Data = (RV_Data[0] shl 8) or RV_Data[1]
RV_Data = Mid(RV_Data, 3)
Return EGNP_GURU_NoError
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_INT_GetUInteger(ByRef RV_Data as String, ByRef R_Data as UInteger) as EGNP_GURU_Enum
If Len(RV_Data) < 4 Then Return EGNP_GURU_ParseLenError
R_Data = (RV_Data[0] shl 24) or (RV_Data[1] shl 16) or (RV_Data[2] shl 8) or RV_Data[3]
RV_Data = Mid(RV_Data, 5)
Return EGNP_GURU_NoError
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_INT_GetDouble(ByRef RV_Data as String, ByRef R_Data as Double) as EGNP_GURU_Enum
If Len(RV_Data) < 8 Then Return EGNP_GURU_ParseLenError
R_Data = *Cast(Double Ptr, @RV_Data[0])
RV_Data = Mid(RV_Data, 9)
Return EGNP_GURU_NoError
End Function



'####################################################################################################################################################
Function EGNP_INT_AsyncSendToOne(V_TSNEID as UInteger, V_Data as String, V_Async as Integer = 1) as Integer
'If Len(V_Data) >= 8 Then
'	Dim TCMD as EGNP_INT_CMD_Enum
'	TCMD = (V_Data[4] shl 24) or (V_Data[5] shl 16) or (V_Data[6] shl 8) or V_Data[7]
'	Print #1, "OUT >" & EGNP_INT_GETCMDDESC(TCMD) & "<___>" & Len(V_Data) & "<"
'Else: Print #1, "OUT >[?????]        <___>" & Len(V_Data) & "<"
'End If
Return TSNE_Data_Send(V_TSNEID, V_Data)
Return TSNE_Data_Send(V_TSNEID, V_Data, , , , V_Async)
End Function


'----------------------------------------------------------------------------------------------------------------------------------------------------
Sub EGNP_INT_AsyncSendToAll(V_ServerPtr as EGNP_INT_Server_Type Ptr, V_Data as String)
If V_ServerPtr = 0 Then Exit Sub
Dim TCPtr as EGNP_INT_ServerClient_Type Ptr = V_ServerPtr->V_ClientF
Do Until TCPtr = 0
	If (TCPtr->V_State and EGNP_CSE_Ready) = 0 Then TCPtr = TCPtr->V_Next: Continue Do
	TSNE_Data_Send(TCPtr->V_TSNEID, V_Data, , , , 1)
	TCPtr = TCPtr->V_Next
Loop
End Sub



'####################################################################################################################################################
Sub EGNP_INT_Public_Disconnected(ByVal V_TSNEID as UInteger, ByVal V_ClientPtr as EGNP_INT_Client_Type Ptr)
MutexLock(EGNP_INT_Mux)
EGNP_INT_ServerPubTSNEID = 0
MutexUnLock(EGNP_INT_Mux)
End Sub

'----------------------------------------------------------------------------------------------------------------------------------------------------
Sub EGNP_INT_Public_NewData(ByVal V_TSNEID as UInteger, ByRef V_Data as String, ByVal V_ClientPtr as EGNP_INT_Client_Type Ptr)
Dim TLen as UInteger
Dim TCMD as EGNP_INT_CMD_Enum
Dim TData as String
Dim T as String
Dim TS(1 to 4) as String
Dim TUS as UShort
Dim TUI(1 to 6) as UInteger
Dim TD(1 to 3) as Double
Dim RV as EGNP_GURU_Enum
Dim TSPtr as EGNP_INT_Server_Type Ptr
Dim TSPtrC as EGNP_INT_Server_Type Ptr
MutexLock(EGNP_INT_Mux)
EGNP_INT_ServerPubData += V_Data
Do
	If Len(EGNP_INT_ServerPubData) < 8 Then MutexUnLock(EGNP_INT_Mux): Exit Sub
	If Len(EGNP_INT_ServerPubData) > &HFFFFF Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_DATALenError)): Exit Sub
	TLen = (EGNP_INT_ServerPubData[0] shl 24) or (EGNP_INT_ServerPubData[1] shl 16) or (EGNP_INT_ServerPubData[2] shl 8) or EGNP_INT_ServerPubData[3]
	If TLen > &HFFFFFF Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_DATALenError)): Exit Sub
	If Len(EGNP_INT_ServerPubData) < TLen Then MutexUnLock(EGNP_INT_Mux): Exit Sub
	TCMD = (EGNP_INT_ServerPubData[4] shl 24) or (EGNP_INT_ServerPubData[5] shl 16) or (EGNP_INT_ServerPubData[6] shl 8) or EGNP_INT_ServerPubData[7]
	TData = Mid(EGNP_INT_ServerPubData, 9, TLen - 4)
	EGNP_INT_ServerPubData = Mid(EGNP_INT_ServerPubData, TLen + 5)
	T = ""
	'Print "CMD >" & Str(TCMD) & "<___>" & TLen & "<___>" & Len(TData) & "<"
	Select Case TCMD
		Case EGNP_CMD_ServerList
			Do Until EGNP_INT_ServerPubSLF = 0
				EGNP_INT_ServerPubSLL = EGNP_INT_ServerPubSLF->V_Next
				DeAllocate(EGNP_INT_ServerPubSLF)
				EGNP_INT_ServerPubSLF = EGNP_INT_ServerPubSLL
			Loop
			EGNP_INT_ServerPubSLL = CAllocate(SizeOf(EGNP_INT_PublicServer_Type))
			EGNP_INT_ServerPubSLF = EGNP_INT_ServerPubSLL
			EGNP_INT_ServerPubSLL->V_Name = "Manual select"

		Case EGNP_CMD_ServerListAdd
			RV = EGNP_INT_GetString(TData, TS(1)):		If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Sub
			RV = EGNP_INT_GetUShort(TData, TUS):		If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Sub
			RV = EGNP_INT_GetString(TData, TS(2)):		If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Sub
			RV = EGNP_INT_GetUInteger(TData, TUI(1)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Sub
			RV = EGNP_INT_GetString(TData, TS(3)):		If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Sub
			RV = EGNP_INT_GetString(TData, TS(4)):		If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Sub
			RV = EGNP_INT_GetUInteger(TData, TUI(2)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Sub
			RV = EGNP_INT_GetUInteger(TData, TUI(3)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Sub
			RV = EGNP_INT_GetUInteger(TData, TUI(4)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Sub
			EGNP_INT_ServerPubSLL->V_Next = CAllocate(SizeOf(EGNP_INT_PublicServer_Type))
			EGNP_INT_ServerPubSLL->V_Next->V_Prev = EGNP_INT_ServerPubSLL
			EGNP_INT_ServerPubSLL = EGNP_INT_ServerPubSLL->V_Next
			With *EGNP_INT_ServerPubSLL
				.V_IPA			= TS(1)
				.V_Port			= TUS
				.V_GameName		= TS(2)
				.V_GameVersion	= TUI(1)
				.V_Name			= TS(3)
				.V_Desc			= TS(4)
				.V_Flags		= TUI(2)
				.V_PlayerMax	= TUI(3)
				.V_PlayerCur	= TUI(4)
			End With

		Case EGNP_CMD_ServerListReady
			EGNP_INT_ServerPubSLTime = Timer()

		Case EGNP_CMD_ServerListUpdate
			RV = EGNP_INT_GetUInteger(TData, TUI(1)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Sub
			RV = EGNP_INT_GetString(TData, TS(1)):		If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Sub
			TSPtrC = Cast(EGNP_INT_Server_Type Ptr, TUI(1))
			TSPtr = EGNP_INT_Server_F
			Do Until TSPtr = 0
				If TSPtr = TSPtrC Then If TSPtr->V_PublicKey = "" Then TSPtr->V_PublicKey = TS(1): Exit Do
				TSPtr = TSPtr->V_Next
			Loop

		Case EGNP_GURU_UnknownCMD
		Case EGNP_GURU_CommandDenied
		Case Else: MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do
	End Select
Loop
MutexUnLock(EGNP_INT_Mux)
End Sub

'----------------------------------------------------------------------------------------------------------------------------------------------------
Sub EGNP_INT_MainThead(Nothing as Any Ptr)
'USleep 1000000
Sleep 1000, 1
Dim T as String
Dim TFlag as EGNP_ServerFlags_Enum
Dim TSPtr as EGNP_INT_Server_Type Ptr
Dim TCPtr as EGNP_INT_ServerClient_Type Ptr
Do
	Mutexlock(EGNP_INT_Mux)
	If EGNP_INT_ServerPubExit = 1 Then MutexUnlock(EGNP_INT_Mux): Exit Do
	TSPtr = EGNP_INT_Server_F
	Do Until TSPtr = 0
		With *TSPtr
			'TCPtr = .V_ClientF
			'Do Until TCPtr = 0
			'	If TCPtr->V_TimePing < Timer() Then
			'		TCPtr->V_TimePing = Timer() + 10
			'		If TCPtr->V_PingC = 0 Then
			'			TCPtr->V_PingC += 1
			'			EGNP_INT_AsyncSendToOne(TCPtr->V_TSNEID, EGNP_INT_BuildCMD(EGNP_CMD_PING))
			'		Else: TSNE_Disconnect(TCPtr->V_TSNEID)
			'		End If
			'	End If
			'	TCPtr = TCPtr->V_Next
			'Loop
			'Print "UPDATE-check!:" & fix(.V_PublicTime - Timer())
			If .V_Public <> 1 Then TSPtr = TSPtr->V_Next: Continue Do
			'If .V_PublicUpdate = 1 Then If .V_PublicTime + 5 > Timer() Then .V_PublicTime = Timer() + 5
			If .V_PublicTime > Timer() Then TSPtr = TSPtr->V_Next: Continue Do
			If EGNP_INT_ServerPubTSNEID = 0 Then
				EGNP_INT_ServerPubData = ""
				TSNE_Create_Client(EGNP_INT_ServerPubTSNEID, EGNP_INT_PubServerHost, EGNP_INT_PubServerPort, @EGNP_INT_Public_Disconnected, 0, @EGNP_INT_Public_NewData)
			End If
			If TSNE_WaitConnected(EGNP_INT_ServerPubTSNEID) <> TSNE_Const_NoError Then Exit Do
			.V_PublicUpdate = 0
			.V_PublicTime = Timer() + (60 * 1) '1min update-cycle
			'Print "UPDATE!"
			T = ""
			T += EGNP_INT_BuildUInteger(Cast(UInteger, TSPtr))
			T += EGNP_INT_BuildString(.V_PublicKey)
			T += EGNP_INT_BuildUShort(.V_PortTCP)
			T += EGNP_INT_BuildUShort(.V_PortUDP)
			T += EGNP_INT_BuildString(.V_GameName)
			T += EGNP_INT_BuildUInteger(.V_GameVersion)
			T += EGNP_INT_BuildString(.V_Name)
			T += EGNP_INT_BuildString(.V_Description)
			TFlag = 0
			If .V_Password <> "" Then TFlag or= EGNP_SFE_ServerPass
			If .V_UseAccounts = 1 Then TFlag or= EGNP_SFE_Account
			T += EGNP_INT_BuildUInteger(TFlag)
			T += EGNP_INT_BuildUInteger(.V_MaxPlayer)
			T += EGNP_INT_BuildUInteger(.V_ClientC)
			EGNP_INT_AsyncSendToOne(EGNP_INT_ServerPubTSNEID, EGNP_INT_BuildCMD(EGNP_CMD_ServerListUpdate, T))
		End With
		TSPtr = TSPtr->V_Next
	Loop
	MutexUnlock(EGNP_INT_Mux)
	'USleep 1000000
	Sleep 1000, 1
Loop
End Sub



'####################################################################################################################################################
Sub EGNP_INT_Construct() Constructor
EGNP_INT_Mux = MutexCreate()
Randomize(Timer())
MutexLock(EGNP_INT_Mux)
EGNP_INT_ServerPubExit = 0
EGNP_INT_ServerPubThread = ThreadCreate(Cast(Any Ptr, @EGNP_INT_MainThead))
MutexUnlock(EGNP_INT_Mux)
End Sub

'----------------------------------------------------------------------------------------------------------------------------------------------------
Sub EGNP_INT_Destruct() Destructor
Mutexlock(EGNP_INT_Mux)
EGNP_INT_ServerPubExit = 1
MutexUnlock(EGNP_INT_Mux)
ThreadWait(EGNP_INT_ServerPubThread)
EGNP_INT_ServerPubThread = 0
MutexDestroy(EGNP_INT_Mux)
EGNP_INT_Mux = 0
End Sub



'####################################################################################################################################################
Function EGNP_INT_User_Add(V_ClientPtr as EGNP_INT_Client_Type Ptr, V_ClientID as UInteger, V_Nickname as String, V_UserFlags as EGNP_AccountPermissions_Enum) as EGNP_User_Type Ptr
If V_ClientPtr = 0 Then Return 0
With *V_ClientPtr
	If .V_UserL <> 0 Then
		.V_UserL->V_Next = CAllocate(SizeOf(EGNP_User_Type))
		.V_UserL->V_Next->V_Prev = .V_UserL
		.V_UserL = .V_UserL->V_Next
	Else
		.V_UserL = CAllocate(SizeOf(EGNP_User_Type))
		.V_UserF = .V_UserL
	End If
	With *.V_UserL
		.V_ClientID		= V_ClientID
		.V_Nickname		= V_Nickname
		.V_UserFlags	= V_UserFlags
	End With
	Return .V_UserL
End With
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_INT_User_Get(V_ClientPtr as EGNP_INT_Client_Type Ptr, V_ClientID as UInteger) as EGNP_User_Type Ptr
If V_ClientPtr = 0 Then Return 0
Dim TCPtr as EGNP_User_Type Ptr = V_ClientPtr->V_UserF
Do Until TCPtr = 0
	If TCPtr->V_ClientID = V_ClientID Then Return TCPtr
	TCPtr = TCPtr->V_Next
Loop
Return 0
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Sub EGNP_INT_User_Del(V_ClientPtr as EGNP_INT_Client_Type Ptr, V_ClientID as UInteger)
Dim TCPtr as EGNP_User_Type Ptr = EGNP_INT_User_Get(V_ClientPtr, V_ClientID)
If TCPtr = 0 Then Exit Sub
If TCPtr->V_Next <> 0 Then TCPtr->V_Next->V_Prev = TCPtr->V_Prev
If TCPtr->V_Prev <> 0 Then TCPtr->V_Prev->V_Next = TCPtr->V_Next
If V_ClientPtr->V_UserF = TCPtr Then V_ClientPtr->V_UserF = TCPtr->V_Next
If V_ClientPtr->V_UserL = TCPtr Then V_ClientPtr->V_UserL = TCPtr->V_Prev
DeAllocate(TCPtr)
End Sub



'####################################################################################################################################################
Function EGNP_INT_Client_GetByID(V_ServerPtr as EGNP_INT_Server_Type Ptr, V_ClientID as UInteger) as EGNP_INT_ServerClient_Type Ptr
If V_ServerPtr = 0 Then Return 0
Dim TSPtr as EGNP_INT_ServerClient_Type Ptr = Cast(EGNP_INT_ServerClient_Type Ptr, V_ClientID)
Dim TCPtr as EGNP_INT_ServerClient_Type Ptr = V_ServerPtr->V_ClientF
Do Until TCPtr = 0
	If TCPtr = TSPtr Then Return TCPtr
	TCPtr = TCPtr->V_Next
Loop
Return 0
End Function



'####################################################################################################################################################
Function EGNP_INT_Server_AccountAdd(V_ServerPtr as EGNP_INT_Server_Type Ptr, V_Username as String, V_Password as String, V_Nickname as String, V_Flags as EGNP_AccountPermissions_Enum = EGNP_APE_Registered) as EGNP_GURU_Enum
If V_ServerPtr = 0 Then Return EGNP_GURU_ParameterError
If V_Username = "" Then Return EGNP_GURU_ParameterError
If V_Password = "" Then Return EGNP_GURU_ParameterError
If V_Nickname = "" Then Return EGNP_GURU_ParameterError
Dim S as String = LCase(V_Username)
If V_ServerPtr->V_UseAccounts <> 1 Then Return EGNP_GURU_ParameterError
If V_ServerPtr->V_AccountFile = "" Then Return EGNP_GURU_ParameterError
Dim TAPtr as EGNP_INT_Account_Type Ptr = V_ServerPtr->V_AccountF
Do Until TAPtr = 0
	If TAPtr->V_UsernameL = S Then Return EGNP_GURU_UsernameDenied
	TAPtr = TAPtr->V_Next
Loop
Dim T as String
T += EGNP_INT_BuildUInteger(0)
T += EGNP_INT_BuildString(V_Username)
T += EGNP_INT_BuildString(V_Password)
T += EGNP_INT_BuildString(V_Nickname)
Dim TLen as UInteger = Len(T)
Dim TFN as Integer = FreeFile()
If Open(V_ServerPtr->V_AccountFile for Append as #TFN) <> 0 Then Return EGNP_GURU_CantOpenFile
Print #TFN, Chr((TLen Shr 24) and 255, (TLen Shr 16) and 255, (TLen Shr 8) and 255, TLen and 255) & T;
Close #TFN
With *V_ServerPtr
	If .V_AccountL <> 0 Then
		.V_AccountL->V_Next = CAllocate(SizeOf(EGNP_INT_Account_Type))
		.V_AccountL->V_Next->V_Prev = .V_AccountL
		.V_AccountL = .V_AccountL->V_Next
	Else
		.V_AccountL = CAllocate(SizeOf(EGNP_INT_Account_Type))
		.V_AccountF = .V_AccountL
	End If
	With *.V_AccountL
		.V_Username		= V_Username
		.V_UsernameL	= LCase(.V_Username)
		.V_Password		= V_Password
		.V_Nickname		= V_Nickname
		.V_UserFlags	= EGNP_APE_Registered or V_Flags
	End With
End With
Return EGNP_GURU_NoError
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_INT_Server_AccountRestore(V_ServerPtr as EGNP_INT_Server_Type Ptr) as EGNP_GURU_Enum
If V_ServerPtr = 0 Then Return EGNP_GURU_ParameterError
Dim T as String
Dim D as String
Dim TLen as UInteger
If V_ServerPtr->V_AccountFile = "" Then Return EGNP_GURU_ParameterError
If Kill(V_ServerPtr->V_AccountFile) <> 0 Then Return EGNP_GURU_CantOpenFile
Dim TFN as Integer = FreeFile()
If Open(V_ServerPtr->V_AccountFile for Binary as #TFN) <> 0 Then Return EGNP_GURU_CantOpenFile
Dim TAPtr as EGNP_INT_Account_Type Ptr = V_ServerPtr->V_AccountF
Do Until TAPtr = 0
	With *TAPtr
		T = ""
		T += EGNP_INT_BuildUInteger(.V_UserFlags)
		T += EGNP_INT_BuildString(.V_Username)
		T += EGNP_INT_BuildString(.V_Password)
		T += EGNP_INT_BuildString(.V_Nickname)
		TLen = Len(T)
		D += Chr((TLen Shr 24) and 255, (TLen Shr 16) and 255, (TLen Shr 8) and 255, TLen and 255) & T
	End With
	TAPtr = TAPtr->V_Next
Loop
Print #TFN, D;
Close #TFN
Return EGNP_GURU_NoError
End Function



'####################################################################################################################################################
Sub EGNP_INT_Server_Disconnected(ByVal V_TSNEID as UInteger, ByVal V_ClientPtr as EGNP_INT_ServerClient_Type Ptr)
'Print "SDIS:" & Str(V_ClientPtr)
If V_ClientPtr = 0 Then Exit Sub
MutexLock(EGNP_INT_Mux)
Dim TDoCall as Integer = IIf((V_ClientPtr->V_State and EGNP_CSE_Ready) <> 0, 1, 0)
V_ClientPtr->V_State = EGNP_CSE_Disconnected
Dim TSPtr as EGNP_INT_Server_Type Ptr = V_ClientPtr->V_Server
If V_ClientPtr->V_Next <> 0 Then V_ClientPtr->V_Next->V_Prev = V_ClientPtr->V_Prev
If V_ClientPtr->V_Prev <> 0 Then V_ClientPtr->V_Prev->V_Next = V_ClientPtr->V_Next
If TSPtr->V_ClientF = V_ClientPtr Then TSPtr->V_ClientF = V_ClientPtr->V_Next
If TSPtr->V_ClientL = V_ClientPtr Then TSPtr->V_ClientL = V_ClientPtr->V_Prev
If TSPtr->V_ClientC > 0 Then TSPtr->V_ClientC -= 1
EGNP_INT_AsyncSendToAll(V_ClientPtr->V_Server, EGNP_INT_BuildCMD(EGNP_CMD_UserLeave, EGNP_INT_BuildUInteger(Cast(UInteger, V_ClientPtr))))
Dim TCallbacks as EGNP_Callback_Type = V_ClientPtr->V_Server->V_Callbacks
V_ClientPtr->V_Server->V_PublicUpdate = 1
Dim TServID as UInteger = Cast(UInteger, V_ClientPtr->V_Server)
MutexUnLock(EGNP_INT_Mux)
Dim TMyPtrFrom as Any Ptr = V_ClientPtr->V_MyPtr
Dim TCRV as Integer
If TDoCall = 1 Then If TCallbacks.V_Server_StateUser <> 0 Then TCallbacks.V_Server_StateUser(TServID, Cast(UInteger, V_ClientPtr), EGNP_USE_Leave, TMyPtrFrom, TCRV)
DeAllocate(V_ClientPtr)
End Sub

'----------------------------------------------------------------------------------------------------------------------------------------------------
Sub EGNP_INT_Server_Connected(ByVal V_TSNEID as UInteger, ByVal V_ClientPtr as EGNP_INT_ServerClient_Type Ptr)
'Print "SCON"
If V_ClientPtr = 0 Then TSNE_Disconnect(V_TSNEID): Exit Sub
MutexLock(EGNP_INT_Mux)
V_ClientPtr->V_State = EGNP_CSE_Connected
Dim T as String
With *V_ClientPtr
	T += EGNP_INT_BuildString(.V_Server->V_Name)
	T += EGNP_INT_BuildString(.V_Server->V_Description)
	T += EGNP_INT_BuildUShort(.V_Server->V_MaxPlayer)
	T += Chr(IIf(.V_Server->V_Public = 1, 1, 0))
	T += Chr(IIf(.V_Server->V_UseAccounts = 1, 1, 0))
	T += Chr(IIf(.V_Server->V_Password <> "", 1, 0))
End With
MutexUnLock(EGNP_INT_Mux)
If EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_CMD_Ident, T)) <> TSNE_Const_NoError Then TSNE_Disconnect(V_TSNEID)
End Sub

'----------------------------------------------------------------------------------------------------------------------------------------------------
Sub EGNP_INT_Server_ConnectionDenied(ByVal V_TSNEID as UInteger, ByVal V_ClientPtr as EGNP_INT_ServerClient_Type Ptr)
'Print "SDEN"
EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(Cast(UInteger, V_ClientPtr)))
TSNE_Disconnect(V_TSNEID)
End Sub

'----------------------------------------------------------------------------------------------------------------------------------------------------
Sub EGNP_INT_Server_NewData(ByVal V_TSNEID as UInteger, ByRef V_Data as String, ByVal V_ClientPtr as EGNP_INT_ServerClient_Type Ptr)
'Print "SDAT:" & Len(V_Data)
If V_ClientPtr = 0 Then TSNE_Disconnect(V_TSNEID): Exit Sub
Dim TLen as UInteger
Dim TCMD as EGNP_INT_CMD_Enum
Dim TData as String
Dim TData1 as String
Dim TS(1 to 4) as String
Dim TUI(1 to 6) as UInteger
Dim TD(1 to 3) as Double
Dim RV as EGNP_GURU_Enum
Dim T as String
Dim T1 as String
Dim TCPtr as EGNP_INT_ServerClient_Type Ptr
Dim TCPtrS as EGNP_INT_ServerClient_Type Ptr
Dim TCRV as Integer
Dim TCUID as UInteger
Dim TCallbacks as EGNP_Callback_Type
Dim TMyPtrFrom as Any Ptr
Dim TMyPtrTo as Any Ptr
Dim TAPtr as EGNP_INT_Account_Type Ptr
Dim TUFlags as EGNP_AccountPermissions_Enum
Dim TSerial as Double
Dim TOK as Integer
MutexLock(EGNP_INT_Mux)
With *V_ClientPtr
	TCUID = Cast(UInteger, V_ClientPtr)
	TCallbacks = .V_Server->V_Callbacks
	Dim TServID as UInteger = Cast(UInteger, .V_Server)
	.V_DataTCP += V_Data
	.V_TimeOut = Timer() + 60
	Do
		TCRV = 0
		If Len(.V_DataTCP) < 8 Then MutexUnLock(EGNP_INT_Mux): Exit Sub
		If Len(.V_DataTCP) > &HFFFFF Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_DATALenError)): Exit Sub
		TLen = (.V_DataTCP[0] shl 24) or (.V_DataTCP[1] shl 16) or (.V_DataTCP[2] shl 8) or .V_DataTCP[3]
		If TLen > &HFFFFFF Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_DATALenError)): Exit Sub
		If Len(.V_DataTCP) < TLen Then MutexUnLock(EGNP_INT_Mux): Exit Sub
		TCMD = (.V_DataTCP[4] shl 24) or (.V_DataTCP[5] shl 16) or (.V_DataTCP[6] shl 8) or .V_DataTCP[7]
		TData = Mid(.V_DataTCP, 9, TLen - 4)
		.V_DataTCP = Mid(.V_DataTCP, TLen + 5)
		'Print "IN  >" & EGNP_INT_GETCMDDESC(TCMD) & "<___>" & TLen & "<___>" & Len(TData) & "<___>" & Len(.V_DataTCP) & "<"
		Select Case TCMD
			Case EGNP_CMD_ServerOffline, EGNP_CMD_ServerFull: MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do
			Case EGNP_CMD_Crypt1
				.V_PPKLen = 255
				.V_PPKPri = Space(.V_PPKLen)
				.V_PPKPub = Space(.V_PPKLen)
				.V_PPKSum = Space(.V_PPKLen)
				.V_PPKMix = Space(.V_PPKLen)
				For X as Integer = 0 to .V_PPKLen - 1
					.V_PPKPri[X] = Int(Rnd * 255)
					.V_PPKPub[X] = Int(Rnd * 255)
				Next
				T = ""
				T += EGNP_INT_BuildString(.V_PPKPub)

			Case EGNP_CMD_Crypt2
				For X as Integer = 0 to .V_PPKLen - 1
					.V_PPKSum[X] = .V_PPKPub[X] xor .V_PPKPri[X]
				Next
				T = ""
				T += EGNP_INT_BuildString(.V_PPKSum)

			Case EGNP_CMD_Crypt3
				For X as Integer = 0 to .V_PPKLen - 1
					.V_PPKSum[X] = .V_PPKSum[X] xor .V_PPKPri[X]
				Next

			Case EGNP_CMD_Ident
				If ((.V_State and EGNP_CSE_Ident) <> 0) or ((.V_State and EGNP_CSE_Ready) <> 0) Then
					EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_CommandDenied), 0)
					MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do
				End If
				RV = EGNP_INT_GetString(TData, TS(1)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
				RV = EGNP_INT_GetString(TData, TS(2)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
				If .V_Server->V_Password <> TS(2) Then
					MutexUnLock(EGNP_INT_Mux)
					EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_LoginDenied), 0)
					TSNE_Disconnect(V_TSNEID): Exit Do
				End If
				If Len(TS(1)) > &HFF Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_ParameterError), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
				T1 = LCase(TS(1))
				TCPtr = V_ClientPtr->V_Server->V_ClientF
				Do Until TCPtr = 0
					If TCPtr->V_NicknameL <> T1 Then TCPtr = TCPtr->V_Next: Continue Do
					MutexUnLock(EGNP_INT_Mux)
					EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_NickDenied), 0)
					TSNE_Disconnect(V_TSNEID): Exit Do
				Loop
				.V_Nickname = TS(1)
				.V_NicknameL = T1
				If .V_Server->V_UseAccounts = 0 Then
					TMyPtrFrom = .V_MyPtr
					MutexUnLock(EGNP_INT_Mux)
					If TCallbacks.V_Server_StateUser <> 0 Then TCallbacks.V_Server_StateUser(TServID, TCUID, EGNP_USE_Join, TMyPtrFrom, TCRV)
					If TCRV <> 0 Then
						EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_LoginDenied), 0)
						TSNE_Disconnect(V_TSNEID): Exit Do
					End If
					MutexLock(EGNP_INT_Mux)
					.V_MyPtr = TMyPtrFrom
					.V_State = EGNP_CSE_Connected or EGNP_CSE_Ident or EGNP_CSE_Ready
					If EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_CMD_Ready, EGNP_INT_BuildUInteger(TCUID)), 0) <> TSNE_Const_NoError Then MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do
					.V_Server->V_PublicUpdate = 1
					T = ""
					T += EGNP_INT_BuildUInteger(TCUID)
					T += EGNP_INT_BuildString(.V_Nickname)
					T += EGNP_INT_BuildUInteger(.V_UserFlags)
					EGNP_INT_AsyncSendToAll(.V_Server, EGNP_INT_BuildCMD(EGNP_CMD_UserJoin, T))
					T1 = ""
					TCPtr = V_ClientPtr->V_Server->V_ClientF
					Do Until TCPtr = 0
						If TCPtr = V_ClientPtr Then TCPtr = TCPtr->V_Next: Continue Do
						If (TCPtr->V_State and EGNP_CSE_Ready) = 0 Then TCPtr = TCPtr->V_Next: Continue Do
						T = ""
						T += EGNP_INT_BuildUInteger(Cast(UInteger, TCPtr))
						T += EGNP_INT_BuildString(TCPtr->V_Nickname)
						T += EGNP_INT_BuildUInteger(TCPtr->V_UserFlags)
						T1 += EGNP_INT_BuildCMD(EGNP_CMD_UserJoin, T)
						TCPtr = TCPtr->V_Next
					Loop
					If T1 <> "" Then If EGNP_INT_AsyncSendToOne(V_TSNEID, T1, 0) <> TSNE_Const_NoError Then MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do
				Else
					.V_State = EGNP_CSE_Connected or EGNP_CSE_Ident
					MutexUnLock(EGNP_INT_Mux)
					For X as Integer = 1 to 100
						'USleep 10000
						Sleep 10, 1
					Next
					MutexLock(EGNP_INT_Mux)
					If EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_CMD_AccLogin), 0) <> TSNE_Const_NoError Then MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do
				End If

			Case EGNP_CMD_AccLogin
				If ((.V_State and EGNP_CSE_Ident) = 0) or ((.V_State and EGNP_CSE_Ready) <> 0) Then
					EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_CommandDenied), 0)
					MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do
				End If
				RV = EGNP_INT_GetString(TData, TS(1)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
				RV = EGNP_INT_GetString(TData, TS(2)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
				If Len(TS(1)) < 8		Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_ParameterError), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
				If Len(TS(2)) < 16		Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_ParameterError), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
				If Len(TS(1)) > &HFF	Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_ParameterError), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
				If Len(TS(2)) > &HFFFF	Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_ParameterError), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
				TMyPtrFrom = .V_MyPtr
				MutexUnLock(EGNP_INT_Mux)
				TUFlags = 0
				If TCallbacks.V_Server_AccountAction <> 0 Then TCallbacks.V_Server_AccountAction(TServID, TCUID, EGNP_AAE_Login, TS(1), TUFlags, TMyPtrFrom, TCRV)
				If TCRV <> 0 Then
					EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_LoginDenied), 0)
					TSNE_Disconnect(V_TSNEID): Exit Do
				End If
				MutexLock(EGNP_INT_Mux)
				.V_MyPtr = TMyPtrFrom
				TS(1) = LCase(TS(1))
				TAPtr = .V_Server->V_AccountF
				Do Until TAPtr = 0
					If TAPtr->V_UsernameL = TS(1) Then
						If TAPtr->V_Password <> TS(2) Then
							EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_LoginDenied), 0)
							MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Sub
						End If
						.V_Username = TAPtr->V_Username
						.V_UserFlags = EGNP_APE_Registered or TAPtr->V_UserFlags or TUFlags
						TMyPtrFrom = .V_MyPtr
						MutexUnLock(EGNP_INT_Mux)
						If TCallbacks.V_Server_StateUser <> 0 Then TCallbacks.V_Server_StateUser(TServID, TCUID, EGNP_USE_Join, TMyPtrFrom, TCRV)
						If (.V_UserFlags and EGNP_APE_Banned) <> 0 Then TCRV = 1
						If TCRV <> 0 Then
							EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_LoginDenied), 0)
							TSNE_Disconnect(V_TSNEID): Exit Do
						End If
						MutexLock(EGNP_INT_Mux)
						.V_MyPtr = TMyPtrFrom
						.V_State or= EGNP_CSE_Login or EGNP_CSE_Ready
						If EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_CMD_Ready, EGNP_INT_BuildUInteger(TCUID)), 0) <> TSNE_Const_NoError Then MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do
						.V_Server->V_PublicUpdate = 1
						T = ""
						T += EGNP_INT_BuildUInteger(TCUID)
						T += EGNP_INT_BuildString(.V_Nickname)
						T += EGNP_INT_BuildUInteger(.V_UserFlags)
						EGNP_INT_AsyncSendToAll(.V_Server, EGNP_INT_BuildCMD(EGNP_CMD_UserJoin, T))
						T1 = ""
						TCPtr = V_ClientPtr->V_Server->V_ClientF
						Do Until TCPtr = 0
							If TCPtr = V_ClientPtr Then TCPtr = TCPtr->V_Next: Continue Do
							If (TCPtr->V_State and EGNP_CSE_Ready) = 0 Then TCPtr = TCPtr->V_Next: Continue Do
							T = ""
							T += EGNP_INT_BuildUInteger(Cast(UInteger, TCPtr))
							T += EGNP_INT_BuildString(TCPtr->V_Nickname)
							T += EGNP_INT_BuildUInteger(TCPtr->V_UserFlags)
							T1 += EGNP_INT_BuildCMD(EGNP_CMD_UserJoin, T)
							TCPtr = TCPtr->V_Next
						Loop
						If T1 <> "" Then If EGNP_INT_AsyncSendToOne(V_TSNEID, T1, 0) <> TSNE_Const_NoError Then MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do
						Exit Select
					End If
					TAPtr = TAPtr->V_Next
				Loop
				EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_LoginDenied), 0)
				TSNE_Disconnect(V_TSNEID): Exit Do

			Case EGNP_CMD_AccCreate
				T = ""
				TOK = 0
				If ((.V_State and EGNP_CSE_Ident) = 0) or ((.V_State and EGNP_CSE_Ready) <> 0) Then
					If .V_Server->V_UseAccounts = 0 Then
						EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_CommandDenied), 0)
						MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do
					End If
					If (.V_UserFlags and (EGNP_APE_SuperModerator or EGNP_APE_Administrator)) = 0 Then
						EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_CommandDenied), 0)
						MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do
					End If
					RV = EGNP_INT_GetDouble(TData, TSerial): If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
					T += EGNP_INT_BuildDouble(TSerial)
					TOK = 1
				End If
				RV = EGNP_INT_GetString(TData, TS(1)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
				RV = EGNP_INT_GetString(TData, TS(2)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
				RV = EGNP_INT_GetString(TData, TS(3)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
				If Len(TS(1)) > &HFF	Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_ParameterError), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
				If Len(TS(2)) > &HFFFF	Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_ParameterError), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
				If Len(TS(3)) > &HFF	Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_ParameterError), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
				TMyPtrFrom = .V_MyPtr
				MutexUnLock(EGNP_INT_Mux)
				If TCallbacks.V_Server_AccountAction <> 0 Then TCallbacks.V_Server_AccountAction(TServID, TCUID, EGNP_AAE_Create, TS(1), TUFlags, TMyPtrFrom, TCRV)
				If TCRV <> 0 Then
					EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_LoginDenied), 0)
					TSNE_Disconnect(V_TSNEID): Exit Do
				End If
				MutexLock(EGNP_INT_Mux)
				.V_MyPtr = TMyPtrFrom
				RV = EGNP_INT_Server_AccountAdd(.V_Server, TS(1), TS(2), TS(3))
				If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
				If TOK = 0 Then
					If EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_CMD_AccLogin), 0) <> TSNE_Const_NoError Then MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do
				Else: If EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_CMD_AccCreate, T), 0) <> TSNE_Const_NoError Then MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do
				End If

			Case Else
				If (.V_State and EGNP_CSE_Ready) = 0 Then
					EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_CommandDenied), 0)
					MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do
				End If
				Select Case TCMD
					Case EGNP_CMD_Pong
						.V_PingC = 0

					Case EGNP_CMD_UserMessage
						TData1 = EGNP_INT_BuildUInteger(TCUID) & TData
						RV = EGNP_INT_GetUInteger(TData, TUI(1)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
						RV = EGNP_INT_GetUInteger(TData, TUI(2)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
						RV = EGNP_INT_GetString(TData, TS(1)):		If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
						If Len(TS(1)) > &HFFF Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_ParameterError), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
						TCPtrS = EGNP_INT_Client_GetByID(.V_Server, TUI(1))
						If TCPtrS <> 0 Then TMyPtrTo = TCPtrS->V_MyPtr Else TMyPtrTo = 0
						TMyPtrFrom = .V_MyPtr
						MutexUnLock(EGNP_INT_Mux)
						If TCallbacks.V_Server_Message <> 0 Then TCallbacks.V_Server_Message(TServID, TCUID, TUI(1), TS(1), TUI(2), TMyPtrFrom, TMyPtrTo, TCRV): If TCRV <> 0 Then MutexLock(EGNP_INT_Mux): Continue Do
						MutexLock(EGNP_INT_Mux)
						.V_MyPtr = TMyPtrFrom
						If TCPtrS <> 0 Then TCPtrS->V_MyPtr = TMyPtrTo
						If TUI(1) <> 0 Then
							TCPtrS = Cast(EGNP_INT_ServerClient_Type Ptr, TUI(1))
							TCPtr = V_ClientPtr->V_Server->V_ClientF
							Do Until TCPtr = 0
								If TCPtr <> TCPtrS Then TCPtr = TCPtr->V_Next: Continue Do
								If (TCPtr->V_State and EGNP_CSE_Ready) = 0 Then TCPtr = TCPtr->V_Next: Continue Do
								EGNP_INT_AsyncSendToOne(TCPtr->V_TSNEID, EGNP_INT_BuildCMD(EGNP_CMD_UserMessage, TData1))
								Exit Do
							Loop
						Else: EGNP_INT_AsyncSendToAll(.V_Server, EGNP_INT_BuildCMD(EGNP_CMD_UserMessage, TData1))
						End If

					Case EGNP_CMD_UserData
						TData1 = EGNP_INT_BuildUInteger(TCUID) & TData
						RV = EGNP_INT_GetUInteger(TData, TUI(1)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
						RV = EGNP_INT_GetString(TData, TS(1)):		If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
						If Len(TS(1)) > &HFFFF Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_ParameterError), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
						TCPtrS = EGNP_INT_Client_GetByID(.V_Server, TUI(1))
						If TCPtrS <> 0 Then TMyPtrTo = TCPtrS->V_MyPtr Else TMyPtrTo = 0
						TMyPtrFrom = .V_MyPtr
						MutexUnLock(EGNP_INT_Mux)
						If TCallbacks.V_Server_Data <> 0 Then TCallbacks.V_Server_Data(TServID, TCUID, TUI(1), TS(1), TMyPtrFrom, TMyPtrTo, TCRV): If TCRV <> 0 Then MutexLock(EGNP_INT_Mux): Continue Do
						MutexLock(EGNP_INT_Mux)
						.V_MyPtr = TMyPtrFrom
						If TCPtrS <> 0 Then TCPtrS->V_MyPtr = TMyPtrTo
						If TUI(1) <> 0 Then
							TCPtrS = Cast(EGNP_INT_ServerClient_Type Ptr, TUI(1))
							TCPtr = V_ClientPtr->V_Server->V_ClientF
							Do Until TCPtr = 0
								If TCPtr <> TCPtrS Then TCPtr = TCPtr->V_Next: Continue Do
								If (TCPtr->V_State and EGNP_CSE_Ready) = 0 Then TCPtr = TCPtr->V_Next: Continue Do
								EGNP_INT_AsyncSendToOne(TCPtr->V_TSNEID, EGNP_INT_BuildCMD(EGNP_CMD_UserData, TData1))
								Exit Do
							Loop
						Else: EGNP_INT_AsyncSendToAll(.V_Server, EGNP_INT_BuildCMD(EGNP_CMD_UserData, TData1))
						End If

					Case EGNP_CMD_UserMoveDbl
						TData1 = EGNP_INT_BuildUInteger(TCUID) & TData
						RV = EGNP_INT_GetUInteger(TData, TUI(1)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
						RV = EGNP_INT_GetDouble(TData, TD(1)):		If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
						RV = EGNP_INT_GetDouble(TData, TD(2)):		If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
						RV = EGNP_INT_GetDouble(TData, TD(3)):		If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
						RV = EGNP_INT_GetUInteger(TData, TUI(5)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
						TCPtrS = EGNP_INT_Client_GetByID(.V_Server, TUI(1))
						If TCPtrS <> 0 Then TMyPtrTo = TCPtrS->V_MyPtr Else TMyPtrTo = 0
						TMyPtrFrom = .V_MyPtr
						MutexUnLock(EGNP_INT_Mux)
						If TCallbacks.V_Server_MoveDbl <> 0 Then TCallbacks.V_Server_MoveDbl(TServID, TCUID, TUI(1), TD(1), TD(2), TD(3), TUI(5), TMyPtrFrom, TMyPtrTo, TCRV): If TCRV <> 0 Then MutexLock(EGNP_INT_Mux): Continue Do
						MutexLock(EGNP_INT_Mux)
						.V_MyPtr = TMyPtrFrom
						If TCPtrS <> 0 Then TCPtrS->V_MyPtr = TMyPtrTo
						If TUI(1) <> 0 Then
							TCPtrS = Cast(EGNP_INT_ServerClient_Type Ptr, TUI(1))
							TCPtr = V_ClientPtr->V_Server->V_ClientF
							Do Until TCPtr = 0
								If TCPtr <> TCPtrS Then TCPtr = TCPtr->V_Next: Continue Do
								If (TCPtr->V_State and EGNP_CSE_Ready) = 0 Then TCPtr = TCPtr->V_Next: Continue Do
								EGNP_INT_AsyncSendToOne(TCPtr->V_TSNEID, EGNP_INT_BuildCMD(EGNP_CMD_UserData, TData1))
								Exit Do
							Loop
						Else: EGNP_INT_AsyncSendToAll(.V_Server, EGNP_INT_BuildCMD(EGNP_CMD_UserMoveDbl, TData1))
						End If

					Case EGNP_CMD_UserMoveInt
						TData1 = EGNP_INT_BuildUInteger(TCUID) & TData
						RV = EGNP_INT_GetUInteger(TData, TUI(1)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
						RV = EGNP_INT_GetUInteger(TData, TUI(2)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
						RV = EGNP_INT_GetUInteger(TData, TUI(3)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
						RV = EGNP_INT_GetUInteger(TData, TUI(4)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
						RV = EGNP_INT_GetUInteger(TData, TUI(5)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
						TCPtrS = EGNP_INT_Client_GetByID(.V_Server, TUI(1))
						If TCPtrS <> 0 Then TMyPtrTo = TCPtrS->V_MyPtr Else TMyPtrTo = 0
						TMyPtrFrom = .V_MyPtr
						MutexUnLock(EGNP_INT_Mux)
						If TCallbacks.V_Server_MoveInt <> 0 Then TCallbacks.V_Server_MoveInt(TServID, TCUID, TUI(1), TUI(2), TUI(3), TUI(4), TUI(5), TMyPtrFrom, TMyPtrTo, TCRV): If TCRV <> 0 Then MutexLock(EGNP_INT_Mux): Continue Do
						MutexLock(EGNP_INT_Mux)
						.V_MyPtr = TMyPtrFrom
						If TCPtrS <> 0 Then TCPtrS->V_MyPtr = TMyPtrTo
						If TUI(1) <> 0 Then
							TCPtrS = Cast(EGNP_INT_ServerClient_Type Ptr, TUI(1))
							TCPtr = V_ClientPtr->V_Server->V_ClientF
							Do Until TCPtr = 0
								If TCPtr <> TCPtrS Then TCPtr = TCPtr->V_Next: Continue Do
								If (TCPtr->V_State and EGNP_CSE_Ready) = 0 Then TCPtr = TCPtr->V_Next: Continue Do
								EGNP_INT_AsyncSendToOne(TCPtr->V_TSNEID, EGNP_INT_BuildCMD(EGNP_CMD_UserData, TData1))
								Exit Do
							Loop
						Else: EGNP_INT_AsyncSendToAll(.V_Server, EGNP_INT_BuildCMD(EGNP_CMD_UserMoveInt, TData1))
						End If

					Case EGNP_GURU_UnknownCMD

					Case Else
						If .V_Server->V_UseAccounts = 0 Then
							EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_CommandDenied), 0)
							MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do
						End If
						If (.V_UserFlags and EGNP_APE_Registered) = 0 Then
							EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_CommandDenied), 0)
							MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do
						End If
						RV = EGNP_INT_GetDouble(TData, TSerial): If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
						Select Case TCMD
							Case EGNP_CMD_AccList
								If (.V_UserFlags and (EGNP_APE_SuperModerator or EGNP_APE_Administrator)) = 0 Then
									EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_CommandDenied), 0)
									MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do
								End If
								RV = EGNP_INT_GetString(TData, TS(1)):		If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
								TS(1) = LCase(TS(1))
								T = ""
								T += EGNP_INT_BuildDouble(TSerial)
								TAPtr = .V_Server->V_AccountF
								Do Until TAPtr = 0
									If TS(1) <> "" Then If TS(1) <> TAPtr->V_UsernameL Then TAPtr = TAPtr->V_Next: Continue Do
									TCPtr = .V_Server->V_ClientF
									Do Until TCPtr = 0
										If TCPtr->V_Username = TAPtr->V_Username Then Exit Do
										TCPtr = TCPtr->V_Next
									Loop
									If TCPtr <> 0 Then
										T += EGNP_INT_BuildUInteger(Cast(UInteger, TCPtr))
									Else: T += EGNP_INT_BuildUInteger(TAPtr->V_UserFlags)
									End If
									T += EGNP_INT_BuildString(TAPtr->V_Username)
									T += EGNP_INT_BuildString(TAPtr->V_Nickname)
									T += EGNP_INT_BuildUInteger(TAPtr->V_UserFlags)
									TAPtr = TAPtr->V_Next
								Loop
								EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_CMD_AccList, T), 0)

							Case EGNP_CMD_AccDestroy
								RV = EGNP_INT_GetString(TData, TS(1)):		If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
								If Len(TS(1)) = 0 Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_ParameterError), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
								TS(1) = LCase(TS(1))
								If LCase(.V_Username) <> TS(1) Then
									If (.V_UserFlags and EGNP_APE_Administrator) = 0 Then
										EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_CommandDenied), 0)
										MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do
									End If
								End If
								TAPtr = .V_Server->V_AccountF
								Do Until TAPtr = 0
									If TS(1) = TAPtr->V_UsernameL Then Exit Do
									TAPtr = TAPtr->V_Next
								Loop
								If TAPtr = 0 Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_ParameterError), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
								If TAPtr->V_Next <> 0 Then TAPtr->V_Next->V_Prev = TAPtr->V_Prev
								If TAPtr->V_Prev <> 0 Then TAPtr->V_Prev->V_Next = TAPtr->V_Next
								If .V_Server->V_AccountF = TAPtr Then .V_Server->V_AccountF = TAPtr->V_Next
								If .V_Server->V_AccountL = TAPtr Then .V_Server->V_AccountL = TAPtr->V_Prev
								DeAllocate(TAPtr)
								RV = EGNP_INT_Server_AccountRestore(.V_Server)
								EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(TCMD, EGNP_INT_BuildDouble(TSerial) & EGNP_INT_BuildUInteger(RV)), 0)

							Case EGNP_CMD_AccSetFlags
								If (.V_UserFlags and (EGNP_APE_SuperModerator or EGNP_APE_Administrator)) = 0 Then
									EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_CommandDenied), 0)
									MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do
								End If
								RV = EGNP_INT_GetString(TData, TS(1)):		If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
								RV = EGNP_INT_GetUInteger(TData, TUI(1)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
								If Len(TS(1)) = 0 Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_ParameterError), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
								TS(1) = LCase(TS(1))
								TAPtr = .V_Server->V_AccountF
								Do Until TAPtr = 0
									If TS(1) = TAPtr->V_UsernameL Then Exit Do
									TAPtr = TAPtr->V_Next
								Loop
								If TAPtr = 0 Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_ParameterError), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
								TAPtr->V_UserFlags = EGNP_APE_Registered or TUI(1)
								RV = EGNP_INT_Server_AccountRestore(.V_Server)
								EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(TCMD, EGNP_INT_BuildDouble(TSerial) & EGNP_INT_BuildUInteger(RV)), 0)

							Case EGNP_CMD_AccSetNick
								If LCase(.V_Username) <> TS(1) Then
									If (.V_UserFlags and (EGNP_APE_SuperModerator or EGNP_APE_Administrator)) = 0 Then
										EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_CommandDenied), 0)
										MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do
									End If
								End If
								RV = EGNP_INT_GetString(TData, TS(1)):		If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
								RV = EGNP_INT_GetString(TData, TS(2)):		If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
								If Len(TS(1)) = 0 Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_ParameterError), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
								If Len(TS(2)) = 0 Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_ParameterError), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
								TS(1) = LCase(TS(1))
								TAPtr = .V_Server->V_AccountF
								Do Until TAPtr = 0
									If TS(1) = TAPtr->V_UsernameL Then Exit Do
									TAPtr = TAPtr->V_Next
								Loop
								If TAPtr = 0 Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_ParameterError), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
								TAPtr->V_Nickname = TS(2)
								RV = EGNP_INT_Server_AccountRestore(.V_Server)
								EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(TCMD, EGNP_INT_BuildDouble(TSerial) & EGNP_INT_BuildUInteger(RV)), 0)

							Case EGNP_CMD_AccSetPass
								If LCase(.V_Username) <> TS(1) Then
									If (.V_UserFlags and (EGNP_APE_SuperModerator or EGNP_APE_Administrator)) = 0 Then
										EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_CommandDenied), 0)
										MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do
									End If
								End If
								RV = EGNP_INT_GetString(TData, TS(1)):		If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
								RV = EGNP_INT_GetString(TData, TS(2)):		If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
								If Len(TS(1)) = 0 Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_ParameterError), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
								If Len(TS(2)) = 0 Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_ParameterError), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
								TS(1) = LCase(TS(1))
								TAPtr = .V_Server->V_AccountF
								Do Until TAPtr = 0
									If TS(1) = TAPtr->V_UsernameL Then Exit Do
									TAPtr = TAPtr->V_Next
								Loop
								If TAPtr = 0 Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_ParameterError), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
								TAPtr->V_Password = TS(2)
								RV = EGNP_INT_Server_AccountRestore(.V_Server)
								EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(TCMD, EGNP_INT_BuildDouble(TSerial) & EGNP_INT_BuildUInteger(RV)), 0)

							Case EGNP_CMD_UserKick
								If (.V_UserFlags and (EGNP_APE_Moderator or EGNP_APE_SuperModerator or EGNP_APE_Administrator)) = 0 Then
									EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_CommandDenied), 0)
									MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do
								End If
								RV = EGNP_INT_GetUInteger(TData, TUI(1)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
								TCPtr = EGNP_INT_Client_GetByID(.V_Server, TUI(1))
								If TCPtr = 0 Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_ParameterError), 0): TSNE_Disconnect(V_TSNEID): Exit Sub
								TSNE_Disconnect(TCPtr->V_TSNEID)
								EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(TCMD, EGNP_INT_BuildDouble(TSerial) & EGNP_INT_BuildUInteger(RV)), 0)

							Case Else: If EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_UnknownCMD), 0) <> TSNE_Const_NoError Then MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do
						End Select
				End Select
		End Select
	Loop
End With
MutexUnLock(EGNP_INT_Mux)
End Sub

'----------------------------------------------------------------------------------------------------------------------------------------------------
Sub EGNP_INT_Server_NewConnection(ByVal V_TSNEID as UInteger, ByVal V_RequestID as Socket, ByVal V_IPA as String)
Dim RV as Integer
Dim TTSNEID as UInteger
MutexLock(EGNP_INT_Mux)
Dim TSPtr as EGNP_INT_Server_Type Ptr = EGNP_INT_Server_F
Do Until TSPtr = 0
	If TSPtr->V_TSNEIDTCP = V_TSNEID Then Exit Do
	TSPtr = TSPtr->V_Next
Loop
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): TSNE_Create_Accept(V_RequestID, TTSNEID, "", 0, @EGNP_INT_Server_ConnectionDenied, 0, , , , Cast(Any Ptr, EGNP_GURU_InternalError)): Exit Sub
Dim TServID as UInteger = Cast(UInteger, TSPtr)
Dim TCRV as Integer
With *TSPtr
	If .V_Callbacks.V_Server_ConnectionRequest <> 0 Then .V_Callbacks.V_Server_ConnectionRequest(TServID, V_IPA, TCRV)
	If TCRV <> 0 Then MutexUnLock(EGNP_INT_Mux): TSNE_Create_Accept(V_RequestID, TTSNEID, "", 0, @EGNP_INT_Server_ConnectionDenied, 0, , , , Cast(Any Ptr, EGNP_CMD_ServerConnectionDenied)): Exit Sub
	If .V_Enabled = 0 Then MutexUnLock(EGNP_INT_Mux): TSNE_Create_Accept(V_RequestID, TTSNEID, "", 0, @EGNP_INT_Server_ConnectionDenied, 0, , , , Cast(Any Ptr, EGNP_CMD_ServerOffline)): Exit Sub
	If .V_ClientC >= .V_MaxPlayer Then MutexUnLock(EGNP_INT_Mux): TSNE_Create_Accept(V_RequestID, TTSNEID, "", 0, @EGNP_INT_Server_ConnectionDenied, 0, , , , Cast(Any Ptr, EGNP_CMD_ServerFull)): Exit Sub
	Dim TCPtr as EGNP_INT_ServerClient_Type Ptr = CAllocate(SizeOf(EGNP_INT_ServerClient_Type))
	Dim TIPA as String
	RV = TSNE_Create_Accept(V_RequestID, TTSNEID, TIPA, @EGNP_INT_Server_Disconnected, @EGNP_INT_Server_Connected, @EGNP_INT_Server_NewData, , , , TCPtr)
	If RV <> TSNE_Const_NoError Then DeAllocate(TCPtr): Exit Sub
	If .V_ClientL <> 0 Then
		.V_ClientL->V_Next = TCPtr
		.V_ClientL->V_Next->V_Prev = .V_ClientL
		.V_ClientL = .V_ClientL->V_Next
	Else
		.V_ClientL = TCPtr
		.V_ClientF = .V_ClientL
	End If
	.V_ClientC += 1
	With *.V_ClientL
		.V_Server			= TSPtr
		.V_TSNEID			= TTSNEID
		.V_TimeCon			= Now()
		.V_TimeOut			= Timer() + 60
		.V_TimePing			= Timer() + 10
		.V_IPA				= TIPA
		.V_State			= EGNP_CSE_Connecting
	End With
End With
MutexUnLock(EGNP_INT_Mux)
End Sub

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_INT_Server_GetPtrByID(V_ServerID as UInteger) as EGNP_INT_Server_Type Ptr
Dim TXPtr as EGNP_INT_Server_Type Ptr = Cast(EGNP_INT_Server_Type Ptr, V_ServerID)
Dim TSPtr as EGNP_INT_Server_Type Ptr = EGNP_INT_Server_F
Do Until TSPtr = 0
	If TSPtr = TXPtr Then Return TSPtr
	TSPtr = TSPtr->V_Next
Loop
Return 0
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Server_Create(ByRef R_ServerID as UInteger, V_Port as UShort, V_Name as String, V_Description as String, V_Password as String = "", V_MaxPlayer as UShort = 10, V_UDPPipePort as UShort = 0) as EGNP_GURU_Enum
If V_MaxPlayer < 1 Then Return EGNP_GURU_ParameterError
If V_Port < 1 Then Return EGNP_GURU_ParameterError
If V_Name = "" Then Return EGNP_GURU_ParameterError
If Len(V_Name) > &HFF Then Return EGNP_GURU_ParameterError
If V_Description = "" Then Return EGNP_GURU_ParameterError
If Len(V_Description) > &HFFF Then Return EGNP_GURU_ParameterError
Dim TTID(1 to 3) as UInteger
Dim RV as Integer
RV = TSNE_Create_Server(TTID(1), V_Port, 100, @EGNP_INT_Server_NewConnection)
If RV <> TSNE_Const_NoError Then Return RV
'RV = TSNE_Create_UDP_RX(TTID(2), V_UDPPipePort)
'If RV <> TSNE_Const_NoError Then TSNE_Disconnect(TTID(1)): Return RV
'RV = TSNE_Create_UDP_TX(TTID(3), V_UDPPipePort)
'If RV <> TSNE_Const_NoError Then TSNE_Disconnect(TTID(1)): TSNE_Disconnect(TTID(2)): Return RV
MutexLock(EGNP_INT_Mux)
If EGNP_INT_Server_L <> 0 Then
	EGNP_INT_Server_L->V_Next = CAllocate(SizeOf(EGNP_INT_Server_Type))
	EGNP_INT_Server_L->V_Next->V_Prev = EGNP_INT_Server_L
	EGNP_INT_Server_L = EGNP_INT_Server_L->V_Next
Else
	EGNP_INT_Server_L = CAllocate(SizeOf(EGNP_INT_Server_Type))
	EGNP_INT_Server_F = EGNP_INT_Server_L
End If
With *EGNP_INT_Server_L
	.V_CreateTime		= Now()
	.V_Name				= V_Name
	.V_Description		= V_Description
	.V_PortTCP			= V_Port
	.V_Password			= V_Password
	.V_MaxPlayer		= V_MaxPlayer
	.V_PortUDP			= V_UDPPipePort
	.V_Enabled			= 0
	.V_TSNEIDTCP		= TTID(1)
	.V_TSNEIDUDPRX		= TTID(2)
	.V_TSNEIDUDPTX		= TTID(3)
End With
R_ServerID = Cast(UInteger, EGNP_INT_Server_L)
MutexUnLock(EGNP_INT_Mux)
Return EGNP_GURU_NoError
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Server_Destroy(V_ServerID as UInteger) as EGNP_GURU_Enum
MutexLock(EGNP_INT_Mux)
Dim TSPtr as EGNP_INT_Server_Type Ptr = EGNP_INT_Server_GetPtrByID(V_ServerID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
Dim TTID(0 to 3) as UInteger
With *TSPtr
	If .V_TSNEIDTCP <> 0 Then TTID(1) = .V_TSNEIDTCP: .V_TSNEIDTCP = 0
	If .V_TSNEIDUDPRX <> 0 Then TTID(2) = .V_TSNEIDUDPRX: .V_TSNEIDUDPRX = 0
	If .V_TSNEIDUDPTX <> 0 Then TTID(3) = .V_TSNEIDUDPTX: .V_TSNEIDUDPTX = 0
End With
MutexUnLock(EGNP_INT_Mux)
TSNE_Disconnect(TTID(1))
TSNE_Disconnect(TTID(2))
TSNE_Disconnect(TTID(3))
TSNE_WaitClose(TTID(1))
TSNE_WaitClose(TTID(2))
TSNE_WaitClose(TTID(3))
MutexLock(EGNP_INT_Mux)
TSPtr = EGNP_INT_Server_GetPtrByID(V_ServerID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_InternalError
Dim TCPtr as EGNP_INT_ServerClient_Type Ptr
With *TSPtr
	TCPtr = .V_ClientF
	Do Until TCPtr = 0
		TSNE_Disconnect(TCPtr->V_TSNEID)
		TCPtr = TCPtr->V_Next
	Loop
End With
MutexUnLock(EGNP_INT_Mux)
Do
	MutexLock(EGNP_INT_Mux)
	TSPtr = EGNP_INT_Server_GetPtrByID(V_ServerID)
	If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_InternalError
	If TSPtr->V_ClientF = 0 Then MutexUnLock(EGNP_INT_Mux): Exit Do
	MutexUnLock(EGNP_INT_Mux)
	'USleep 10000
	Sleep 10, 1
Loop
MutexLock(EGNP_INT_Mux)
TSPtr = EGNP_INT_Server_GetPtrByID(V_ServerID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_InternalError
If TSPtr->V_Next <> 0 Then TSPtr->V_Next->V_Prev = TSPtr->V_Prev
If TSPtr->V_Prev <> 0 Then TSPtr->V_Prev->V_Next = TSPtr->V_Next
If EGNP_INT_Server_F = TSPtr Then EGNP_INT_Server_F = TSPtr->V_Next
If EGNP_INT_Server_L = TSPtr Then EGNP_INT_Server_L = TSPtr->V_Prev
DeAllocate(TSPtr)
MutexUnLock(EGNP_INT_Mux)
Return EGNP_GURU_NoError
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Server_SetCallbacks(V_ServerID as UInteger, V_Callbacks as EGNP_Callback_Type) as EGNP_GURU_Enum
MutexLock(EGNP_INT_Mux)
Dim TSPtr as EGNP_INT_Server_Type Ptr = EGNP_INT_Server_GetPtrByID(V_ServerID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
TSPtr->V_Callbacks = V_Callbacks
MutexUnLock(EGNP_INT_Mux)
Return EGNP_GURU_NoError
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Server_Enable(V_ServerID as UInteger) as EGNP_GURU_Enum
MutexLock(EGNP_INT_Mux)
Dim TSPtr as EGNP_INT_Server_Type Ptr = EGNP_INT_Server_GetPtrByID(V_ServerID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
TSPtr->V_Enabled = 1
MutexUnLock(EGNP_INT_Mux)
Return EGNP_GURU_NoError
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Server_Disable(V_ServerID as UInteger) as EGNP_GURU_Enum
MutexLock(EGNP_INT_Mux)
Dim TSPtr as EGNP_INT_Server_Type Ptr = EGNP_INT_Server_GetPtrByID(V_ServerID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
TSPtr->V_Enabled = 0
MutexUnLock(EGNP_INT_Mux)
Return EGNP_GURU_NoError
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Server_PublicRegister(V_ServerID as UInteger, V_GameName as String, V_GameVersion as UInteger, V_Username as String = "", V_Password as String = "") as EGNP_GURU_Enum
If V_Username <> "" Then If Len(V_Username) > &HFFF Then Return EGNP_GURU_ParameterError
If V_Password <> "" Then If Len(V_Password) > &HFFF Then Return EGNP_GURU_ParameterError
MutexLock(EGNP_INT_Mux)
Dim TSPtr as EGNP_INT_Server_Type Ptr = EGNP_INT_Server_GetPtrByID(V_ServerID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
With *TSPtr
	.V_Public		= 1
	.V_PublicUpdate	= 1
	.V_GameName		= V_GameName
	.V_GameVersion	= V_GameVersion
End With
MutexUnLock(EGNP_INT_Mux)
Return EGNP_GURU_NoError
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Sub EGNP_INT_Server_AccountClear(ByRef RV_AccF as EGNP_INT_Account_Type Ptr, ByRef RV_AccL as EGNP_INT_Account_Type Ptr)
Do Until RV_AccF = 0
	RV_AccL = RV_AccF->V_Next
	DeAllocate(RV_AccF)
	RV_AccF = RV_AccL
Loop
End Sub

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Server_AccountEnable(V_ServerID as UInteger, V_AccountFilePathName as String) as EGNP_GURU_Enum
MutexLock(EGNP_INT_Mux)
Dim TSPtr as EGNP_INT_Server_Type Ptr = EGNP_INT_Server_GetPtrByID(V_ServerID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
TSPtr->V_UseAccounts = 1
Dim TFN as Integer = FreeFile()
If Open(V_AccountFilePathName for Binary as #TFN) <> 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_CantOpenFile
Dim T as String
Dim TFLen as UInteger = Lof(TFN)
Dim TFPos as UInteger
Dim TLen as Integer
Dim RV as Integer
Dim TUser as String
Dim TPass as String
Dim TNick as String
Dim TFlag as EGNP_AccountPermissions_Enum
With *TSPtr
	.V_AccountFile	= V_AccountFilePathName
	EGNP_INT_Server_AccountClear(.V_AccountF, .V_AccountL)
	Do
		If (TFLen - TFPos) < 4 Then
			If (TFLen - TFPos) = 0 Then MutexUnLock(EGNP_INT_Mux): Close #TFN: Return EGNP_GURU_NoError
			EGNP_INT_Server_AccountClear(.V_AccountF, .V_AccountL): MutexUnLock(EGNP_INT_Mux): Close #TFN: Return EGNP_GURU_ParseLenError
		End If
		T = Space(4)
		Get #TFN, TFPos + 1, T: TFPos += Len(T)
		TLen = (T[0] shl 24) or (T[1] shl 16) or (T[2] shl 8) or T[3]
		If TLen > &HFFFFF Then EGNP_INT_Server_AccountClear(.V_AccountF, .V_AccountL): MutexUnLock(EGNP_INT_Mux): Close #TFN: Return EGNP_GURU_ParseLenError
		If (TFPos + TLen) > TFLen Then EGNP_INT_Server_AccountClear(.V_AccountF, .V_AccountL): MutexUnLock(EGNP_INT_Mux): Close #TFN: Return EGNP_GURU_ParseLenError
		T = Space(TLen)
		Get #TFN, TFPos + 1, T: TFPos += Len(T)
		RV = EGNP_INT_GetUInteger(T, TFlag):	If RV <> EGNP_GURU_NoError Then EGNP_INT_Server_AccountClear(.V_AccountF, .V_AccountL): MutexUnLock(EGNP_INT_Mux): Close #TFN: Return EGNP_GURU_ParseLenError
		RV = EGNP_INT_GetString(T, TUser):		If RV <> EGNP_GURU_NoError Then EGNP_INT_Server_AccountClear(.V_AccountF, .V_AccountL): MutexUnLock(EGNP_INT_Mux): Close #TFN: Return EGNP_GURU_ParseLenError
		RV = EGNP_INT_GetString(T, TPass):		If RV <> EGNP_GURU_NoError Then EGNP_INT_Server_AccountClear(.V_AccountF, .V_AccountL): MutexUnLock(EGNP_INT_Mux): Close #TFN: Return EGNP_GURU_ParseLenError
		RV = EGNP_INT_GetString(T, TNick):		If RV <> EGNP_GURU_NoError Then EGNP_INT_Server_AccountClear(.V_AccountF, .V_AccountL): MutexUnLock(EGNP_INT_Mux): Close #TFN: Return EGNP_GURU_ParseLenError
		If .V_AccountL <> 0 Then
			.V_AccountL->V_Next = CAllocate(SizeOf(EGNP_INT_Account_Type))
			.V_AccountL->V_Next->V_Prev = .V_AccountL
			.V_AccountL = .V_AccountL->V_Next
		Else
			.V_AccountL = CAllocate(SizeOf(EGNP_INT_Account_Type))
			.V_AccountF = .V_AccountL
		End If
		With *.V_AccountL
			.V_Username		= TUser
			.V_UsernameL	= LCase(.V_Username)
			.V_Password		= TPass
			.V_Nickname		= TNick
			.V_UserFlags	= TFlag
		End With
	Loop
End With
MutexUnLock(EGNP_INT_Mux)
Return EGNP_GURU_NoError
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Server_AccountAdd(V_ServerID as UInteger, V_Username as String, V_Password as String, V_Nickname as String, V_Flags as EGNP_AccountPermissions_Enum = EGNP_APE_Registered) as EGNP_GURU_Enum
MutexLock(EGNP_INT_Mux)
Dim TSPtr as EGNP_INT_Server_Type Ptr = EGNP_INT_Server_GetPtrByID(V_ServerID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
Dim RV as EGNP_GURU_Enum = EGNP_INT_Server_AccountAdd(TSPtr, V_Username, OSC_Crypt(V_Username, V_Password, "egnp", 4), V_Nickname, V_Flags)
MutexUnLock(EGNP_INT_Mux)
Return RV
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Server_SetClientFlag(V_ServerID as UInteger, V_UserID as UInteger, V_Flags as EGNP_AccountPermissions_Enum) as EGNP_GURU_Enum
MutexLock(EGNP_INT_Mux)
Dim TSPtr as EGNP_INT_Server_Type Ptr = EGNP_INT_Server_GetPtrByID(V_ServerID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
Dim TSCPtr as EGNP_INT_ServerClient_Type Ptr = EGNP_INT_Client_GetByID(TSPtr, V_UserID)
If TSCPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
TSCPtr->V_UserFlags = V_Flags
MutexUnLock(EGNP_INT_Mux)
Return EGNP_GURU_NoError
End Function







'####################################################################################################################################################
'####################################################################################################################################################
'####################################################################################################################################################







'####################################################################################################################################################
Sub EGNP_INT_Client_Disconnected(ByVal V_TSNEID as UInteger, ByVal V_ClientPtr as EGNP_INT_Client_Type Ptr)
If V_ClientPtr = 0 Then Exit Sub
MutexLock(EGNP_INT_Mux)
V_ClientPtr->V_State = EGNP_CSE_Disconnected
Dim TCallbacks as EGNP_Callback_Type = V_ClientPtr->V_Callbacks
MutexUnLock(EGNP_INT_Mux)
If TCallbacks.V_StateConnection <> 0 Then TCallbacks.V_StateConnection(Cast(UInteger, V_ClientPtr), EGNP_CSE_Disconnected)
End Sub

'----------------------------------------------------------------------------------------------------------------------------------------------------
Sub EGNP_INT_Client_Connected(ByVal V_TSNEID as UInteger, ByVal V_ClientPtr as EGNP_INT_Client_Type Ptr)
If V_ClientPtr = 0 Then TSNE_Disconnect(V_TSNEID): Exit Sub
MutexLock(EGNP_INT_Mux)
V_ClientPtr->V_State = EGNP_CSE_Connected
Dim TCallbacks as EGNP_Callback_Type = V_ClientPtr->V_Callbacks
MutexUnLock(EGNP_INT_Mux)
If TCallbacks.V_StateConnection <> 0 Then TCallbacks.V_StateConnection(Cast(UInteger, V_ClientPtr), EGNP_CSE_Connected)
End Sub

'----------------------------------------------------------------------------------------------------------------------------------------------------
Sub EGNP_INT_Client_NewData(ByVal V_TSNEID as UInteger, ByRef V_Data as String, ByVal V_ClientPtr as EGNP_INT_Client_Type Ptr)
'Print "CDAT:" & V_ClientPtr
If V_ClientPtr = 0 Then TSNE_Disconnect(V_TSNEID): Exit Sub
Dim TLen as UInteger
Dim TCMD as EGNP_INT_CMD_Enum
Dim TData as String
Dim T as String
Dim TS(1 to 4) as String
Dim TUS as UShort
Dim TUI(1 to 6) as UInteger
Dim TD(1 to 3) as Double
Dim RV as EGNP_GURU_Enum
Dim TMyPtrFrom as Any Ptr
Dim TMyPtrTo as Any Ptr
Dim TUPtr as EGNP_User_Type Ptr
Dim TUPtr2 as EGNP_User_Type Ptr
Dim TWPtr as EGNP_INT_ClientAnswer_Type Ptr
Dim TWPtrN as EGNP_INT_ClientAnswer_Type Ptr
Dim TSerial as Double
MutexLock(EGNP_INT_Mux)
With *V_ClientPtr
	Dim TCallbacks as EGNP_Callback_Type = .V_Callbacks
	Dim TID as UInteger = Cast(UInteger, V_ClientPtr)
	.V_DataTCP += V_Data
	Do
		If Len(.V_DataTCP) < 8 Then MutexUnLock(EGNP_INT_Mux): Exit Sub
		If Len(.V_DataTCP) > &HFFFFF Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_DATALenError)): Exit Sub
		TLen = (.V_DataTCP[0] shl 24) or (.V_DataTCP[1] shl 16) or (.V_DataTCP[2] shl 8) or .V_DataTCP[3]
		If TLen > &HFFFFFF Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_GURU_DATALenError)): Exit Sub
		If Len(.V_DataTCP) < TLen Then MutexUnLock(EGNP_INT_Mux): Exit Sub
		TCMD = (.V_DataTCP[4] shl 24) or (.V_DataTCP[5] shl 16) or (.V_DataTCP[6] shl 8) or .V_DataTCP[7]
		TData = Mid(.V_DataTCP, 9, TLen - 4)
		.V_DataTCP = Mid(.V_DataTCP, TLen + 5)
		If TCMD < 0 Then .V_LCMD = TCMD
		T = ""
		'Print #1, "IN  >" & EGNP_INT_GETCMDDESC(TCMD) & "<___>" & TLen & "<___>" & Len(TData) & "<"
		Select Case TCMD
			Case EGNP_CMD_ServerOffline
				MutexUnLock(EGNP_INT_Mux)
				TSNE_Disconnect(V_TSNEID)
				If TCallbacks.V_StateConnection <> 0 Then TCallbacks.V_StateConnection(TID, EGNP_CSE_DisconnectedUnavaible)
				Exit Do

			Case EGNP_CMD_ServerFull
				MutexUnLock(EGNP_INT_Mux)
				TSNE_Disconnect(V_TSNEID)
				If TCallbacks.V_StateConnection <> 0 Then TCallbacks.V_StateConnection(TID, EGNP_CSE_DisconnectedFull)
				Exit Do

			Case EGNP_CMD_ServerConnectionDenied
				MutexUnLock(EGNP_INT_Mux)
				TSNE_Disconnect(V_TSNEID)
				If TCallbacks.V_StateConnection <> 0 Then TCallbacks.V_StateConnection(TID, EGNP_CSE_DisconnectedConnectionDenied)
				Exit Do

			Case EGNP_CMD_Crypt1
			Case EGNP_CMD_Crypt2
			Case EGNP_CMD_Crypt3

			Case EGNP_CMD_Ident
				RV = EGNP_INT_GetString(TData, TS(1)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				RV = EGNP_INT_GetString(TData, TS(2)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				RV = EGNP_INT_GetUShort(TData, TUS):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				If Len(TData) < 3 Then					If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				.V_ServerName				= TS(1)
				.V_ServerDescription		= TS(2)
				.V_ServerMaxPlayer			= TUS
				.V_ServerPublic				= IIf(TData[0] = 1, 1, 0)
				.V_ServerUseAccount			= IIf(TData[1] = 1, 1, 0)
				.V_ServerUseServerPass		= IIf(TData[2] = 1, 1, 0)

				T = ""
				T += EGNP_INT_BuildString(.V_Nickname)
				If .V_ServerUseServerPass = 1 Then
					T += EGNP_INT_BuildString(.V_PasswordServer)
				Else: T += EGNP_INT_BuildString("")
				End If
				If EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_CMD_Ident, T)) <> TSNE_Const_NoError Then MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do

			Case EGNP_CMD_AccLogin
				T += EGNP_INT_BuildString(.V_Username)
				T += EGNP_INT_BuildString(.V_Password)
				T += EGNP_INT_BuildString(.V_Nickname)
				If EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(EGNP_CMD_AccLogin, T)) <> TSNE_Const_NoError Then MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do

			Case EGNP_CMD_Ready
				RV = EGNP_INT_GetUInteger(TData, TUI(1)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				.V_State	= EGNP_CSE_Ready
				.V_MyID		= TUI(1)
				MutexUnLock(EGNP_INT_Mux)
				If TCallbacks.V_StateConnection <> 0 Then TCallbacks.V_StateConnection(TID, EGNP_CSE_Ready)
				MutexLock(EGNP_INT_Mux)

			Case EGNP_CMD_UserJoin
				RV = EGNP_INT_GetUInteger(TData, TUI(1)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				RV = EGNP_INT_GetString(TData, TS(1)):		If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				RV = EGNP_INT_GetUInteger(TData, TUI(2)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				TUPtr = EGNP_INT_User_Add(V_ClientPtr, TUI(1), TS(1), TUI(2))
				If TUPtr = 0 Then Continue Do
				TMyPtrTo = TUPtr->V_MyPtr
				MutexUnLock(EGNP_INT_Mux)
				If TCallbacks.V_StateUser <> 0 Then TCallbacks.V_StateUser(TUI(1), EGNP_USE_Join, TMyPtrTo)
				MutexLock(EGNP_INT_Mux)
				TUPtr->V_MyPtr = TMyPtrTo

			Case EGNP_CMD_UserLeave
				RV = EGNP_INT_GetUInteger(TData, TUI(1)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				TUPtr = EGNP_INT_User_Get(V_ClientPtr, TUI(1))
				If TUPtr = 0 Then Continue Do
				TMyPtrTo = TUPtr->V_MyPtr
				EGNP_INT_User_Del(V_ClientPtr, TUI(1))
				MutexUnLock(EGNP_INT_Mux)
				If TCallbacks.V_StateUser <> 0 Then TCallbacks.V_StateUser(TUI(1), EGNP_USE_Leave, TMyPtrTo)
				MutexLock(EGNP_INT_Mux)

			Case EGNP_CMD_UserMessage
				If TCallbacks.V_Message = 0 Then Continue Do
				RV = EGNP_INT_GetUInteger(TData, TUI(1)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				RV = EGNP_INT_GetUInteger(TData, TUI(2)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				RV = EGNP_INT_GetUInteger(TData, TUI(3)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				RV = EGNP_INT_GetString(TData, TS(1)):		If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				TUPtr = EGNP_INT_User_Get(V_ClientPtr, TUI(1))
				If TUPtr <> 0 Then TMyPtrFrom = TUPtr->V_MyPtr Else TMyPtrFrom = 0
				TUPtr2 = EGNP_INT_User_Get(V_ClientPtr, TUI(2))
				If TUPtr2 <> 0 Then TMyPtrTo = TUPtr2->V_MyPtr Else TMyPtrTo = 0
				MutexUnLock(EGNP_INT_Mux)
				TCallbacks.V_Message(TUI(1), TUI(2), TS(1), TUI(3), TMyPtrTo, TMyPtrFrom)
				MutexLock(EGNP_INT_Mux)
				If TUPtr <> 0 Then TUPtr->V_MyPtr = TMyPtrFrom
				If TUPtr2 <> 0 Then TUPtr2->V_MyPtr = TMyPtrTo

			Case EGNP_CMD_UserData
				If TCallbacks.V_Data = 0 Then Continue Do
				RV = EGNP_INT_GetUInteger(TData, TUI(1)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				RV = EGNP_INT_GetUInteger(TData, TUI(2)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				RV = EGNP_INT_GetString(TData, TS(1)):		If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				TUPtr = EGNP_INT_User_Get(V_ClientPtr, TUI(1))
				If TUPtr <> 0 Then TMyPtrFrom = TUPtr->V_MyPtr Else TMyPtrFrom = 0
				TUPtr2 = EGNP_INT_User_Get(V_ClientPtr, TUI(2))
				If TUPtr2 <> 0 Then TMyPtrTo = TUPtr2->V_MyPtr Else TMyPtrTo = 0
				MutexUnLock(EGNP_INT_Mux)
				TCallbacks.V_Data(TUI(1), TUI(2), TS(1), TMyPtrTo, TMyPtrFrom)
				MutexLock(EGNP_INT_Mux)
				If TUPtr <> 0 Then TUPtr->V_MyPtr = TMyPtrFrom
				If TUPtr2 <> 0 Then TUPtr2->V_MyPtr = TMyPtrTo

			Case EGNP_CMD_UserMoveDbl
				If TCallbacks.V_MoveInt = 0 Then Continue Do
				RV = EGNP_INT_GetUInteger(TData, TUI(1)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				RV = EGNP_INT_GetUInteger(TData, TUI(2)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				RV = EGNP_INT_GetDouble(TData, TD(1)):		If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				RV = EGNP_INT_GetDouble(TData, TD(2)):		If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				RV = EGNP_INT_GetDouble(TData, TD(3)):		If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				RV = EGNP_INT_GetUInteger(TData, TUI(6)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				TUPtr = EGNP_INT_User_Get(V_ClientPtr, TUI(1))
				If TUPtr <> 0 Then TMyPtrFrom = TUPtr->V_MyPtr Else TMyPtrFrom = 0
				TUPtr2 = EGNP_INT_User_Get(V_ClientPtr, TUI(2))
				If TUPtr2 <> 0 Then TMyPtrTo = TUPtr2->V_MyPtr Else TMyPtrTo = 0
				MutexUnLock(EGNP_INT_Mux)
				TCallbacks.V_MoveDbl(TUI(1), TUI(2), TD(1), TD(2), TD(3), TUI(6), TMyPtrTo, TMyPtrFrom)
				MutexLock(EGNP_INT_Mux)
				If TUPtr <> 0 Then TUPtr->V_MyPtr = TMyPtrFrom
				If TUPtr2 <> 0 Then TUPtr2->V_MyPtr = TMyPtrTo

			Case EGNP_CMD_UserMoveInt
				If TCallbacks.V_MoveInt = 0 Then Continue Do
				RV = EGNP_INT_GetUInteger(TData, TUI(1)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				RV = EGNP_INT_GetUInteger(TData, TUI(2)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				RV = EGNP_INT_GetUInteger(TData, TUI(3)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				RV = EGNP_INT_GetUInteger(TData, TUI(4)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				RV = EGNP_INT_GetUInteger(TData, TUI(5)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				RV = EGNP_INT_GetUInteger(TData, TUI(6)):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				TUPtr = EGNP_INT_User_Get(V_ClientPtr, TUI(1))
				If TUPtr <> 0 Then TMyPtrFrom = TUPtr->V_MyPtr Else TMyPtrFrom = 0
				TUPtr2 = EGNP_INT_User_Get(V_ClientPtr, TUI(2))
				If TUPtr2 <> 0 Then TMyPtrTo = TUPtr2->V_MyPtr Else TMyPtrTo = 0
				MutexUnLock(EGNP_INT_Mux)
				TCallbacks.V_MoveInt(TUI(1), TUI(2), TUI(3), TUI(4), TUI(5), TUI(6), TMyPtrTo, TMyPtrFrom)
				MutexLock(EGNP_INT_Mux)
				If TUPtr <> 0 Then TUPtr->V_MyPtr = TMyPtrFrom
				If TUPtr2 <> 0 Then TUPtr2->V_MyPtr = TMyPtrTo

			Case EGNP_CMD_AccCreate, EGNP_CMD_AccList, EGNP_CMD_AccDestroy, EGNP_CMD_AccSetFlags, EGNP_CMD_AccSetNick, EGNP_CMD_AccSetPass
				RV = EGNP_INT_GetDouble(TData, TSerial):	If RV <> EGNP_GURU_NoError Then MutexUnLock(EGNP_INT_Mux): EGNP_INT_AsyncSendToOne(V_TSNEID, EGNP_INT_BuildCMD(RV)): TSNE_Disconnect(V_TSNEID): Exit Sub
				TWPtr = .V_AnswerF
				Do Until TWPtr = 0
					TWPtrN = TWPtr->V_Next
					If TWPtr->V_TimeOut < Timer() Then
						If TWPtr->V_Next <> 0 Then TWPtr->V_Next->V_Prev = TWPtr->V_Prev
						If TWPtr->V_Prev <> 0 Then TWPtr->V_Prev->V_Next = TWPtr->V_Next
						If .V_AnswerF = TWPtr Then .V_AnswerF = TWPtr->V_Next
						If .V_AnswerL = TWPtr Then .V_AnswerL = TWPtr->V_Prev
						DeAllocate(TWPtr)
					End If
					TWPtr = TWPtrN
				Loop
				If .V_AnswerL <> 0 Then
					.V_AnswerL->V_Next = CAllocate(SizeOf(EGNP_INT_ClientAnswer_Type))
					.V_AnswerL->V_Next->V_Prev = .V_AnswerL
					.V_AnswerL = .V_AnswerL->V_Next
				Else
					.V_AnswerL = CAllocate(SizeOf(EGNP_INT_ClientAnswer_Type))
					.V_AnswerF = .V_AnswerL
				End If
				With *.V_AnswerL
					.V_TimeOut	= Timer() + 10
					.V_Serial	= TSerial
					.V_CMD		= TCMD
					.V_Answer	= TData
				End With

			Case EGNP_GURU_UnknownCMD
			Case EGNP_GURU_LoginDenied
			Case EGNP_GURU_NickDenied
			Case EGNP_GURU_CommandDenied
			Case Else: MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(V_TSNEID): Exit Do
		End Select
	Loop
End With
MutexUnLock(EGNP_INT_Mux)
End Sub

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_INT_Client_GetPtrByID(V_ClientID as UInteger) as EGNP_INT_Client_Type Ptr
Dim TXPtr as EGNP_INT_Client_Type Ptr = Cast(EGNP_INT_Client_Type Ptr, V_ClientID)
Dim TCPtr as EGNP_INT_Client_Type Ptr = EGNP_INT_Client_F
Do Until TCPtr = 0
	If TCPtr = TXPtr Then Return TCPtr
	TCPtr = TCPtr->V_Next
Loop
Return 0
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Client_Destroy(V_ClientID as UInteger) as EGNP_GURU_Enum
MutexLock(EGNP_INT_Mux)
Dim TCPtr as EGNP_INT_Client_Type Ptr = EGNP_INT_Client_GetPtrByID(V_ClientID)
If TCPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
Dim TTSNESocket as TSNE_Socket Ptr
TTSNESocket = TSNE_INT_GetPtr(TCPtr->V_TSNEIDTCP): If TTSNESocket <> 0 Then TTSNESocket->V_Event.V_AnyPtr = 0
TTSNESocket = TSNE_INT_GetPtr(TCPtr->V_TSNEIDUDPTX): If TTSNESocket <> 0 Then TTSNESocket->V_Event.V_AnyPtr = 0
TTSNESocket = TSNE_INT_GetPtr(TCPtr->V_TSNEIDUDPRX): If TTSNESocket <> 0 Then TTSNESocket->V_Event.V_AnyPtr = 0
If TCPtr->V_Next <> 0 Then TCPtr->V_Next->V_Prev = TCPtr->V_Prev
If TCPtr->V_Prev <> 0 Then TCPtr->V_Prev->V_Next = TCPtr->V_Next
If EGNP_INT_Client_F = TCPtr Then EGNP_INT_Client_F = TCPtr->V_Next
If EGNP_INT_Client_L = TCPtr Then EGNP_INT_Client_L = TCPtr->V_Prev
DeAllocate(TCPtr)
MutexUnLock(EGNP_INT_Mux)
Return EGNP_GURU_NoError
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Client_Create(ByRef R_ClientID as UInteger, V_CallbackSet as EGNP_Callback_Type) as EGNP_GURU_Enum
MutexLock(EGNP_INT_Mux)
If EGNP_INT_Client_L <> 0 Then
	EGNP_INT_Client_L->V_Next = CAllocate(SizeOf(EGNP_INT_Client_Type))
	EGNP_INT_Client_L->V_Next->V_Prev = EGNP_INT_Client_L
	EGNP_INT_Client_L = EGNP_INT_Client_L->V_Next
Else
	EGNP_INT_Client_L = CAllocate(SizeOf(EGNP_INT_Client_Type))
	EGNP_INT_Client_F = EGNP_INT_Client_L
End If
With *EGNP_INT_Client_L
	.V_LCMD				= EGNP_CMD_ServerUnavaible
	.V_State			= EGNP_CSE_Connecting
	.V_Callbacks		= V_CallbackSet
End With
R_ClientID = Cast(UInteger, EGNP_INT_Client_L)
MutexUnLock(EGNP_INT_Mux)
Return EGNP_GURU_NoError
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Client_Disconnect(V_ClientID as UInteger) as EGNP_GURU_Enum
MutexLock(EGNP_INT_Mux)
Dim TCPtr as EGNP_INT_Client_Type Ptr = EGNP_INT_Client_GetPtrByID(V_ClientID)
If TCPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound

MutexUnLock(EGNP_INT_Mux)
Return EGNP_GURU_NoError
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Client_Connect(V_ClientID as UInteger, V_Host as String, V_Port as UShort, V_Nickname as String, V_PasswordServer as String = "", V_Username as String = "", V_Password as String = "", V_PortUDP as UShort = 0) as EGNP_GURU_Enum
If V_Host = "" Then Return EGNP_GURU_ParameterError
If V_Port < 1 Then Return EGNP_GURU_ParameterError
If V_Nickname = "" Then Return EGNP_GURU_ParameterError
If V_PasswordServer <> "" Then If Len(V_PasswordServer) > &HFFF Then Return EGNP_GURU_ParameterError
If V_Username <> "" Then
	If Len(V_Username) < 4 Then Return EGNP_GURU_ParameterError
	If Len(V_Username) > &HFFF Then Return EGNP_GURU_ParameterError
End If
If V_Password <> "" Then
	If Len(V_Password) < 8 Then Return EGNP_GURU_ParameterError
	If Len(V_Password) > &HFFF Then Return EGNP_GURU_ParameterError
End If
Dim TTID as UInteger
Dim RV as Integer
MutexLock(EGNP_INT_Mux)
Dim TCPtr as EGNP_INT_Client_Type Ptr = EGNP_INT_Client_GetPtrByID(V_ClientID)
If TCPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
Dim TCallbacks as EGNP_Callback_Type = TCPtr->V_Callbacks
MutexUnLock(EGNP_INT_Mux)
If TCallbacks.V_StateConnection <> 0 Then TCallbacks.V_StateConnection(Cast(UInteger, TCPtr), EGNP_CSE_Connecting)
MutexLock(EGNP_INT_Mux)
RV = TSNE_Create_Client(TTID, V_Host, V_Port, @EGNP_INT_Client_Disconnected, @EGNP_INT_Client_Connected, @EGNP_INT_Client_NewData, , , , Cast(EGNP_INT_Client_Type Ptr, V_ClientID))
If RV <> TSNE_Const_NoError Then
	MutexUnLock(EGNP_INT_Mux)
	If TCallbacks.V_StateConnection <> 0 Then TCallbacks.V_StateConnection(Cast(UInteger, TCPtr), EGNP_CSE_DisconnectedUnavaible)
	DeAllocate(TCPtr)
	Return RV
End If
TCPtr = EGNP_INT_Client_GetPtrByID(V_ClientID)
If TCPtr = 0 Then MutexUnLock(EGNP_INT_Mux): TSNE_Disconnect(TTID): Return EGNP_GURU_ExternalError
With *TCPtr
	.V_Host					= V_Host
	.V_PortTCP				= V_Port
	.V_PortUDP				= V_PortUDP
	.V_Nickname				= V_Nickname
	.V_PasswordServer		= V_PasswordServer
	.V_Username				= V_Username
	.V_Password				= OSC_Crypt(V_Username, V_Password, "egnp", 4)
	.V_TSNEIDTCP			= TTID
End With
MutexUnLock(EGNP_INT_Mux)
Return EGNP_GURU_NoError
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Client_WaitConnected(V_ClientID as UInteger) as EGNP_GURU_Enum
Dim TTot as Double = Timer() + 60
Dim TSPtr as EGNP_INT_Client_Type Ptr
Do
	MutexLock(EGNP_INT_Mux)
	Dim TSPtr as EGNP_INT_Client_Type Ptr = EGNP_INT_Client_GetPtrByID(V_ClientID)
	If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
	If (TSPtr->V_State and EGNP_CSE_Disconnected) <> 0 Then
		Dim TLCMD as EGNP_INT_CMD_Enum = TSPtr->V_LCMD
		MutexUnLock(EGNP_INT_Mux)
		Return TLCMD
	End If
	If TSPtr->V_State = EGNP_CSE_Ready Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_NoError
	If TTot < Timer() Then
		TSNE_Disconnect(TSPtr->V_TSNEIDTCP)
		MutexUnLock(EGNP_INT_Mux)
		Return EGNP_GURU_Timeout
	End If
	MutexUnLock(EGNP_INT_Mux)
	'USleep 10000
	Sleep 10, 1
Loop
Return EGNP_GURU_CantConnect
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Client_GetUserIDByNick(V_ClientID as UInteger, V_Nickname as String) as UInteger
If V_ClientID = 0 Then Return 0
If V_Nickname = "" Then Return 0
Dim S as String = LCase(V_Nickname)
MutexLock(EGNP_INT_Mux)
Dim TSPtr as EGNP_INT_Client_Type Ptr = EGNP_INT_Client_GetPtrByID(V_ClientID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return 0
Dim TID as UInteger
Dim TCPtr as EGNP_User_Type Ptr = TSPtr->V_UserF
Do Until TCPtr = 0
	If LCase(TCPtr->V_Nickname) = S Then
		TID = TCPtr->V_ClientID
		MutexUnLock(EGNP_INT_Mux)
		Return TID
	End If
	TCPtr = TCPtr->V_Next
Loop
Return 0
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Client_GetMyID(V_ClientID as UInteger) as UInteger
MutexLock(EGNP_INT_Mux)
Dim TSPtr as EGNP_INT_Client_Type Ptr = EGNP_INT_Client_GetPtrByID(V_ClientID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return 0
Function = TSPtr->V_MyID
MutexUnLock(EGNP_INT_Mux)
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Sub EGNP_Client_Lock()
MutexLock(EGNP_INT_Mux)
End Sub
'----------------------------------------------------------------------------------------------------------------------------------------------------
Sub EGNP_Client_UnLock()
MutexUnLock(EGNP_INT_Mux)
End Sub

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Client_GetUserTypeByID(V_ClientID as UInteger, V_UserID as UInteger) as EGNP_User_Type Ptr
Dim TCPtr as EGNP_INT_Client_Type Ptr = EGNP_INT_Client_GetPtrByID(V_ClientID)
If TCPtr = 0 Then Return 0
Return EGNP_INT_User_Get(TCPtr, V_UserID)
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Client_GetUserTypeFirst(V_ClientID as UInteger) as EGNP_User_Type Ptr
Dim TCPtr as EGNP_INT_Client_Type Ptr = EGNP_INT_Client_GetPtrByID(V_ClientID)
If TCPtr = 0 Then Return 0
Return TCPtr->V_UserF
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Client_SendMessage(V_ClientID as UInteger, V_ToUserID as UInteger, V_Message as String, V_MessageType as EGNP_MessageType_Enum = EGNP_MTE_Regular) as EGNP_GURU_Enum
If V_Message = "" Then Return EGNP_GURU_ParameterError
If Len(V_Message) > &HFFF Then Return EGNP_GURU_ParameterError
MutexLock(EGNP_INT_Mux)
Dim TSPtr as EGNP_INT_Client_Type Ptr = EGNP_INT_Client_GetPtrByID(V_ClientID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
Dim TTID as UInteger = TSPtr->V_TSNEIDTCP
MutexUnLock(EGNP_INT_Mux)
Dim T as String
T += EGNP_INT_BuildUInteger(V_ToUserID)
T += EGNP_INT_BuildUInteger(V_MessageType)
T += EGNP_INT_BuildString(V_Message)
If EGNP_INT_AsyncSendToOne(TTID, EGNP_INT_BuildCMD(EGNP_CMD_UserMessage, T)) <> TSNE_Const_NoError Then TSNE_Disconnect(TTID): Return EGNP_GURU_TransmissionError
Return EGNP_GURU_NoError
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Client_SendData(V_ClientID as UInteger, V_ToUserID as UInteger, V_Data as String) as EGNP_GURU_Enum
If Len(V_Data) > &HFFFF Then Return EGNP_GURU_ParameterError
MutexLock(EGNP_INT_Mux)
Dim TSPtr as EGNP_INT_Client_Type Ptr = EGNP_INT_Client_GetPtrByID(V_ClientID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
Dim TTID as UInteger = TSPtr->V_TSNEIDTCP
MutexUnLock(EGNP_INT_Mux)
Dim T as String
T += EGNP_INT_BuildUInteger(V_ToUserID)
T += EGNP_INT_BuildString(V_Data)
If EGNP_INT_AsyncSendToOne(TTID, EGNP_INT_BuildCMD(EGNP_CMD_UserData, T)) <> TSNE_Const_NoError Then TSNE_Disconnect(TTID): Return EGNP_GURU_TransmissionError
Return EGNP_GURU_NoError
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Client_SendMove Overload (V_ClientID as UInteger, V_ToUserID as UInteger, V_X as Integer, V_Y as Integer, V_Z as Integer, V_Int as Integer) as EGNP_GURU_Enum
MutexLock(EGNP_INT_Mux)
Dim TSPtr as EGNP_INT_Client_Type Ptr = EGNP_INT_Client_GetPtrByID(V_ClientID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
Dim TTID as UInteger = TSPtr->V_TSNEIDTCP
MutexUnLock(EGNP_INT_Mux)
Dim T as String
T += EGNP_INT_BuildUInteger(V_ToUserID)
T += EGNP_INT_BuildUInteger(V_X)
T += EGNP_INT_BuildUInteger(V_Y)
T += EGNP_INT_BuildUInteger(V_Z)
T += EGNP_INT_BuildUInteger(V_Int)
If EGNP_INT_AsyncSendToOne(TTID, EGNP_INT_BuildCMD(EGNP_CMD_UserMoveInt, T)) <> TSNE_Const_NoError Then TSNE_Disconnect(TTID): Return EGNP_GURU_TransmissionError
Return EGNP_GURU_NoError
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Client_SendMove Overload (V_ClientID as UInteger, V_ToUserID as UInteger, V_X as Double, V_Y as Double, V_Z as Double, V_Int as Integer) as EGNP_GURU_Enum
MutexLock(EGNP_INT_Mux)
Dim TSPtr as EGNP_INT_Client_Type Ptr = EGNP_INT_Client_GetPtrByID(V_ClientID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
Dim TTID as UInteger = TSPtr->V_TSNEIDTCP
MutexUnLock(EGNP_INT_Mux)
Dim T as String
T += EGNP_INT_BuildUInteger(V_ToUserID)
T += EGNP_INT_BuildDouble(V_X)
T += EGNP_INT_BuildDouble(V_Y)
T += EGNP_INT_BuildDouble(V_Z)
T += EGNP_INT_BuildUInteger(V_Int)
If EGNP_INT_AsyncSendToOne(TTID, EGNP_INT_BuildCMD(EGNP_CMD_UserMoveDbl, T)) <> TSNE_Const_NoError Then TSNE_Disconnect(TTID): Return EGNP_GURU_TransmissionError
Return EGNP_GURU_NoError
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_INT_WaitAnswer(V_ClientID as UInteger, V_CMD as EGNP_INT_CMD_Enum, V_Serial as Double, ByRef R_Answer as String) as EGNP_GURU_Enum
Dim TTot as Double = Timer() + 10
Dim TSPtr as EGNP_INT_Client_Type Ptr
Dim TWPtr as EGNP_INT_ClientAnswer_Type Ptr
Do
	If TTot < Timer() Then Return EGNP_GURU_Timeout
	MutexLock(EGNP_INT_Mux)
	TSPtr = EGNP_INT_Client_GetPtrByID(V_ClientID)
	If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
	If (TSPtr->V_State and EGNP_CSE_Disconnected) <> 0 Then
		Dim TLCMD as EGNP_INT_CMD_Enum = TSPtr->V_LCMD
		MutexUnLock(EGNP_INT_Mux)
		Return TLCMD
	End If
	With *TSPtr
		TWPtr = .V_AnswerF
		Do Until TWPtr = 0
			If (TWPtr->V_CMD <> V_CMD) or (TWPtr->V_Serial <> V_Serial) Then TWPtr = TWPtr->V_Next: Continue Do
			If TWPtr->V_Next <> 0 Then TWPtr->V_Next->V_Prev = TWPtr->V_Prev
			If TWPtr->V_Prev <> 0 Then TWPtr->V_Prev->V_Next = TWPtr->V_Next
			If .V_AnswerF = TWPtr Then .V_AnswerF = TWPtr->V_Next
			If .V_AnswerL = TWPtr Then .V_AnswerL = TWPtr->V_Prev
			R_Answer = TWPtr->V_Answer
			DeAllocate(TWPtr)
			MutexUnLock(EGNP_INT_Mux)
			Return EGNP_GURU_NoError
		Loop
	End With
	MutexUnLock(EGNP_INT_Mux)
	Sleep 10, 1
Loop
Return EGNP_GURU_InternalError
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Client_Account_List(V_ClientID as UInteger, V_UserSelect as String, R_ListD() as EGNP_Account_Type, ByRef R_ListC as UInteger) as EGNP_GURU_Enum
R_ListC = 0
MutexLock(EGNP_INT_Mux)
Dim TSPtr as EGNP_INT_Client_Type Ptr = EGNP_INT_Client_GetPtrByID(V_ClientID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
Dim TTID as UInteger = TSPtr->V_TSNEIDTCP
Dim T as String
Do
	If EGNP_INT_CMDSerial <> Timer() Then EGNP_INT_CMDSerial = Timer(): Exit Do
	Sleep 1, 1
Loop
Dim TSerial as Double = EGNP_INT_CMDSerial
MutexUnLock(EGNP_INT_Mux)
T += EGNP_INT_BuildDouble(TSerial)
T += EGNP_INT_BuildString(V_UserSelect)
If EGNP_INT_AsyncSendToOne(TTID, EGNP_INT_BuildCMD(EGNP_CMD_AccList, T), 0) <> TSNE_Const_NoError Then TSNE_Disconnect(TTID): Return EGNP_GURU_TransmissionError
Dim RV as EGNP_GURU_Enum = EGNP_INT_WaitAnswer(V_ClientID, EGNP_CMD_AccList, TSerial, T)
Dim TUser as String
Dim TNick as String
Dim TID as UInteger
Dim TFlag as EGNP_AccountPermissions_Enum
Do
	If T = "" Then Exit Do
	RV = EGNP_INT_GetUInteger(T, TID):		If RV <> EGNP_GURU_NoError Then R_ListC = 0: Return RV
	RV = EGNP_INT_GetString(T, TUser):		If RV <> EGNP_GURU_NoError Then R_ListC = 0: Return RV
	RV = EGNP_INT_GetString(T, TNick):		If RV <> EGNP_GURU_NoError Then R_ListC = 0: Return RV
	RV = EGNP_INT_GetUInteger(T, TFlag):	If RV <> EGNP_GURU_NoError Then R_ListC = 0: Return RV
	R_ListC += 1
	Redim Preserve R_ListD(R_ListC) as EGNP_Account_Type
	With R_ListD(R_ListC)
		.V_ClientID		= TID
		.V_Username 	= TUser
		.V_Nickname		= TNick
		.V_UserFlags	= TFlag
	End With
Loop
Return RV
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Client_Account_Create(V_ClientID as UInteger, V_Username as String, V_Password as String, V_Nickname as String) as EGNP_GURU_Enum
MutexLock(EGNP_INT_Mux)
Dim TSPtr as EGNP_INT_Client_Type Ptr = EGNP_INT_Client_GetPtrByID(V_ClientID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
Dim TTID as UInteger = TSPtr->V_TSNEIDTCP
Dim T as String
Do
	If EGNP_INT_CMDSerial <> Timer() Then EGNP_INT_CMDSerial = Timer(): Exit Do
	Sleep 1, 1
Loop
Dim TSerial as Double = EGNP_INT_CMDSerial
MutexUnLock(EGNP_INT_Mux)
T += EGNP_INT_BuildDouble(TSerial)
T += EGNP_INT_BuildString(V_Username)
T += EGNP_INT_BuildString(OSC_Crypt(V_Username, V_Password, "egnp", 4))
T += EGNP_INT_BuildString(V_Nickname)
If EGNP_INT_AsyncSendToOne(TTID, EGNP_INT_BuildCMD(EGNP_CMD_AccCreate, T), 0) <> TSNE_Const_NoError Then TSNE_Disconnect(TTID): Return EGNP_GURU_TransmissionError
Dim RV as EGNP_GURU_Enum = EGNP_INT_WaitAnswer(V_ClientID, EGNP_CMD_AccCreate, TSerial, T)
Return RV
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Client_Account_Destroy(V_ClientID as UInteger, V_Username as String, V_Password as String) as EGNP_GURU_Enum
MutexLock(EGNP_INT_Mux)
Dim TSPtr as EGNP_INT_Client_Type Ptr = EGNP_INT_Client_GetPtrByID(V_ClientID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
Dim TTID as UInteger = TSPtr->V_TSNEIDTCP
Dim T as String
Do
	If EGNP_INT_CMDSerial <> Timer() Then EGNP_INT_CMDSerial = Timer(): Exit Do
	Sleep 1, 1
Loop
Dim TSerial as Double = EGNP_INT_CMDSerial
MutexUnLock(EGNP_INT_Mux)
T += EGNP_INT_BuildDouble(TSerial)
T += EGNP_INT_BuildString(V_Username)
T += EGNP_INT_BuildString(OSC_Crypt(V_Username, V_Password, "egnp", 4))
If EGNP_INT_AsyncSendToOne(TTID, EGNP_INT_BuildCMD(EGNP_CMD_AccDestroy, T), 0) <> TSNE_Const_NoError Then TSNE_Disconnect(TTID): Return EGNP_GURU_TransmissionError
Dim RV as EGNP_GURU_Enum = EGNP_INT_WaitAnswer(V_ClientID, EGNP_CMD_AccDestroy, TSerial, T)
Return RV
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Client_Account_SetNickname(V_ClientID as UInteger, V_Username as String, V_Nickname as String) as EGNP_GURU_Enum
MutexLock(EGNP_INT_Mux)
Dim TSPtr as EGNP_INT_Client_Type Ptr = EGNP_INT_Client_GetPtrByID(V_ClientID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
Dim TTID as UInteger = TSPtr->V_TSNEIDTCP
Dim T as String
Do
	If EGNP_INT_CMDSerial <> Timer() Then EGNP_INT_CMDSerial = Timer(): Exit Do
	Sleep 1, 1
Loop
Dim TSerial as Double = EGNP_INT_CMDSerial
MutexUnLock(EGNP_INT_Mux)
T += EGNP_INT_BuildDouble(TSerial)
T += EGNP_INT_BuildString(V_Username)
T += EGNP_INT_BuildString(V_Nickname)
If EGNP_INT_AsyncSendToOne(TTID, EGNP_INT_BuildCMD(EGNP_CMD_AccSetNick, T), 0) <> TSNE_Const_NoError Then TSNE_Disconnect(TTID): Return EGNP_GURU_TransmissionError
Dim RV as EGNP_GURU_Enum = EGNP_INT_WaitAnswer(V_ClientID, EGNP_CMD_AccSetNick, TSerial, T)
Return RV
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Client_Account_SetPassword(V_ClientID as UInteger, V_Username as String, V_Password as String) as EGNP_GURU_Enum
MutexLock(EGNP_INT_Mux)
Dim TSPtr as EGNP_INT_Client_Type Ptr = EGNP_INT_Client_GetPtrByID(V_ClientID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
Dim TTID as UInteger = TSPtr->V_TSNEIDTCP
Dim T as String
Do
	If EGNP_INT_CMDSerial <> Timer() Then EGNP_INT_CMDSerial = Timer(): Exit Do
	Sleep 1, 1
Loop
Dim TSerial as Double = EGNP_INT_CMDSerial
MutexUnLock(EGNP_INT_Mux)
T += EGNP_INT_BuildDouble(TSerial)
T += EGNP_INT_BuildString(V_Username)
T += EGNP_INT_BuildString(OSC_Crypt(V_Username, V_Password, "egnp", 4))
If EGNP_INT_AsyncSendToOne(TTID, EGNP_INT_BuildCMD(EGNP_CMD_AccSetPass, T), 0) <> TSNE_Const_NoError Then TSNE_Disconnect(TTID): Return EGNP_GURU_TransmissionError
Dim RV as EGNP_GURU_Enum = EGNP_INT_WaitAnswer(V_ClientID, EGNP_CMD_AccSetPass, TSerial, T)
Return RV
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Client_Account_SetFlags(V_ClientID as UInteger, V_Username as String, V_Flags as EGNP_AccountPermissions_Enum) as EGNP_GURU_Enum
MutexLock(EGNP_INT_Mux)
Dim TSPtr as EGNP_INT_Client_Type Ptr = EGNP_INT_Client_GetPtrByID(V_ClientID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
Dim TTID as UInteger = TSPtr->V_TSNEIDTCP
Dim T as String
Do
	If EGNP_INT_CMDSerial <> Timer() Then EGNP_INT_CMDSerial = Timer(): Exit Do
	Sleep 1, 1
Loop
Dim TSerial as Double = EGNP_INT_CMDSerial
MutexUnLock(EGNP_INT_Mux)
T += EGNP_INT_BuildDouble(TSerial)
T += EGNP_INT_BuildString(V_Username)
T += EGNP_INT_BuildUInteger(V_Flags)
If EGNP_INT_AsyncSendToOne(TTID, EGNP_INT_BuildCMD(EGNP_CMD_AccSetFlags, T), 0) <> TSNE_Const_NoError Then TSNE_Disconnect(TTID): Return EGNP_GURU_TransmissionError
Dim RV as EGNP_GURU_Enum = EGNP_INT_WaitAnswer(V_ClientID, EGNP_CMD_AccSetFlags, TSerial, T)
Return RV
End Function

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Client_Kick(V_ClientID as UInteger, V_KickClientID as UInteger) as EGNP_GURU_Enum
MutexLock(EGNP_INT_Mux)
Dim TSPtr as EGNP_INT_Client_Type Ptr = EGNP_INT_Client_GetPtrByID(V_ClientID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
Dim TTID as UInteger = TSPtr->V_TSNEIDTCP
Dim T as String
Do
	If EGNP_INT_CMDSerial <> Timer() Then EGNP_INT_CMDSerial = Timer(): Exit Do
	Sleep 1, 1
Loop
Dim TSerial as Double = EGNP_INT_CMDSerial
MutexUnLock(EGNP_INT_Mux)
T += EGNP_INT_BuildDouble(TSerial)
T += EGNP_INT_BuildUInteger(V_KickClientID)
If EGNP_INT_AsyncSendToOne(TTID, EGNP_INT_BuildCMD(EGNP_CMD_UserKick, T), 0) <> TSNE_Const_NoError Then TSNE_Disconnect(TTID): Return EGNP_GURU_TransmissionError
Dim RV as EGNP_GURU_Enum = EGNP_INT_WaitAnswer(V_ClientID, EGNP_CMD_UserKick, TSerial, T)
Return RV
End Function







'####################################################################################################################################################
'####################################################################################################################################################
'####################################################################################################################################################







'####################################################################################################################################################
Sub EGNP_INT_Public_DrawSym(V_Img as Any Ptr, V_PosX as Integer, V_PosY as Integer, V_SymID as Integer)
Select Case V_SymID
	Case 0 'ServerPass
		Circle V_Img, (V_PosX + 5, V_PosY + 5), 4, &HFF440000, , , , F
		Circle V_Img, (V_PosX + 5, V_PosY + 5), 2, &HFFFFFFFF, , , , F
		Line V_Img, (V_PosX, V_PosY + 6)-(V_PosX + 10, V_PosY + 11), &HFF440000, BF

	Case 1 'Accounts
		Circle V_Img, (V_PosX + 5, V_PosY + 3), 2, &HFF000044, , , , F
		Circle V_Img, (V_PosX + 5, V_PosY + 8), 3, &HFF000044, , , , F
		Line V_Img, (V_PosX + 2, V_PosY + 8)-(V_PosX + 8, V_PosY + 11), &HFF000044, BF

End Select
End Sub

'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Public_ShowListAndGetServer(V_IOWidth as Integer, V_IOHeight as Integer, V_GameName as String, V_GameVersion as UInteger, ByRef RV_Host as String, ByRef RV_Port as UShort, ByRef RV_PassServer as String, ByRef RV_Nick as String, ByRef RV_User as String, ByRef RV_Pass as String, ByRef R_ServerFlags as EGNP_ServerFlags_Enum) as EGNP_GURU_Enum
R_ServerFlags = 0
If V_IOWidth < 400 Then Return EGNP_GURU_ParameterError
If V_IOHeight < 200 Then Return EGNP_GURU_ParameterError
Dim TImg as Any Ptr = ImageCreate(V_IOWidth, V_IOHeight, &HFFFFFFFF, 32)
Dim TScreenW as Integer
Dim TScreenH as Integer
Dim T as String
Dim TMR as Integer
Dim TMX as Integer
Dim TMY as Integer
Dim TMZ as Integer
Dim TMB as Integer
Dim TMZL as Integer
Dim TMBL as Integer
Dim TKey as String
Dim TKey0 as Integer
Dim TKey1 as Integer
Dim TState as Integer
Dim TTitle as String
Dim TTime as Double = EGNP_INT_ServerPubSLTime
Dim TSLPtr as EGNP_INT_PublicServer_Type Ptr
Screeninfo(TScreenW, TScreenH)
Dim TSPosX as Integer = TScreenW / 2 - V_IOWidth / 2
Dim TSPosY as Integer = TScreenH / 2 - V_IOHeight / 2
Dim TPosX as Integer
Dim TPosY as Integer
Dim TListC as Integer
Dim TListStart as Integer
Dim TListMax as Integer = Fix((V_IOHeight - 62 - 30) / 20)
Dim TListSel as Integer = 0
Dim TListSelFlags as EGNP_ServerFlags_Enum
Dim C as Integer
Dim TInput as String
Dim TInputSel as Integer
Dim THost as String
Dim TPort as UShort = 6006
Dim TPassServer as String
Dim TNick as String
Dim TUser as String
Dim TPass as String
Dim CX as Integer
Dim TCurPos(1 to 4) as Integer
Dim TCurStart(1 to 4) as Integer
Dim TCurSel as Integer
Dim TTMX as Integer
Dim TTMY as Integer
Dim TRegist as Integer
Dim TRV as EGNP_GURU_Enum = EGNP_GURU_NothingSelected
If RV_Host <> "" Then
	TListSel = 1
	TPort = RV_Port
	THost = RV_Host
	If TPort <> 6006 Then THost += ":" & Str(TPort)
	TPassServer = RV_PassServer
	TNick = RV_Nick
	TUser = RV_User
	TPass = RV_Pass
	TListSelFlags = EGNP_SFE_Serverpass or EGNP_SFE_Account
End If
Do
	TKey0 = 0
	TKey1 = 0
	TKey = InKey()
	If Len(TKey) > 0 Then TKey0 = TKey[0]
	If Len(TKey) > 1 Then TKey1 = TKey[1]
	TMR = GetMouse(TMX, TMY, TMZ, TMB)
	If TMR = 0 Then
		If TMZL <> TMZ Then
			TListStart -= TMZ - TMZL
			If TListStart >= (TListC - TListMax) Then TListStart = TListC - TListMax
			If TListStart < 0 Then TListStart = 0
			TMZL = TMZ
		End If
		If TMBL <> TMB Then
			TMBL = TMB
			If TMB = 1 Then
				TTMX = (TMX - TSPosX)
				TTMY = (TMY - TSPosY)
				TCurSel = 0
				If (TTMX >= 80) and (TTMY >= V_IOHeight - 67) and (TTMX <= V_IOWidth / 2 - 15) and (TTMY <= V_IOHeight - 51) Then
					TCurSel = 1
				ElseIf (TTMX >= V_IOWidth / 2 + 90) and (TTMY >= V_IOHeight - 67) and (TTMX <= V_IOWidth - 10) and (TTMY <= V_IOHeight - 51) Then
					TCurSel = 2
				ElseIf (TTMX >= 80) and (TTMY >= V_IOHeight - 47) and (TTMX <= V_IOWidth / 2 - 15) and (TTMY <= V_IOHeight - 31) Then
					TCurSel = 3
				ElseIf (TTMX >= V_IOWidth / 2 + 90) and (TTMY >= V_IOHeight - 47) and (TTMX <= V_IOWidth - 10) and (TTMY <= V_IOHeight - 31) Then
					TCurSel = 4
				ElseIf (TTMX >= 4) and (TTMY >= V_IOHeight - 20) and (TTMX <= 100) and (TTMY <= V_IOHeight - 5) Then
					Exit Do
				ElseIf (TTMX >= V_IOWidth - 104) and (TTMY >= V_IOHeight - 20) and (TTMX <= V_IOWidth - 5) and (TTMY <= V_IOHeight - 5) Then
					If THost <> "" Then
						C = InStrRev(THost, ":")
						If C > 0 Then If Left(THost, C - 1) = "" Then Continue Do
						RV_Host = ""
						RV_Port = 6006
						RV_PassServer = ""
						RV_User = ""
						RV_Pass = ""
						If C > 0 Then
							RV_Host = Left(THost, C - 1)
							RV_Port = CUShort(Mid(THost, C + 1))
						Else
							RV_Host = THost
							RV_Port = 6006
						End If
						RV_PassServer = TPassServer
						RV_User = TUser
						RV_Pass = TPass
						TRV = EGNP_GURU_NoError
						'EGNP_GURU_NoErrorCreateAccount
						Exit Do
					End If

				ElseIf TTMX < (V_IOWidth - 20) Then
					C = Fix((TTMY - 4) / 20)
					If (C >= 1) and (C <= TListMax) Then
						TListSel = C + TListStart
						If TListSel > 1 Then
							C = 0
							TSLPtr = EGNP_INT_ServerPubSLF
							Do Until TSLPtr = 0
								C += 1
								If C = TListSel Then
									With *TSLPtr
										TPort = .V_Port
										THost = .V_IPA
										If TPort <> 6006 Then THost += ":" & Str(TPort)
										TPassServer = ""
										TUser = ""
										TPass = ""
										TListSelFlags = .V_Flags
									End With
									Exit Do
								End If
								TSLPtr = TSLPtr->V_Next
							Loop
							For XX as Integer = 1 to 4
								TCurStart(XX) = 0
								TCurPos(XX) = 0
							Next
						Else
							TPort = RV_Port
							THost = RV_Host
							If TPort <> 6006 Then THost += ":" & Str(TPort)
							TPassServer = RV_PassServer
							TUser = RV_User
							TPass = RV_Pass
							TListSelFlags = EGNP_SFE_Serverpass or EGNP_SFE_Account
						End If
					End If
				End If
			End If
		End If
	End If
	If TKey0 <> 0 Then
		Select Case TCurSel
			Case 1: TInput = THost
			Case 2: TInput = TPassServer
			Case 3: TInput = TUser
			Case 4: TInput = TPass
		End Select
		Select Case TKey0
			Case 8 'bspace
				If TCurSel = 0 Then Exit Select
				If TCurPos(TCurSel) <= 0 Then Exit Select
				If (TListSel <> 1) and (TCurSel = 1) Then Exit Select
				If (TCurSel = 2) and ((TListSelFlags and EGNP_SFE_Serverpass) = 0) Then Exit Select
				If (TCurSel > 2) and ((TListSelFlags and EGNP_SFE_Account) = 0) Then Exit Select
				TInput = Left(TInput, TCurPos(TCurSel) - 1) & Mid(TInput, TCurPos(TCurSel) + 1)
				TCurPos(TCurSel) -= 1

			Case 9 'tab
				CX = TCurSel
				Do
					TCurSel += 1
					If TCurSel > 4 Then TCurSel = 1
					If TCurSel = CX Then Exit Do
					Select Case TCurSel
						Case 1		: Exit Do
						Case 2		: If (TListSelFlags and EGNP_SFE_Serverpass)	<> 0 Then Exit Do
						Case 3, 4	: If (TListSelFlags and EGNP_SFE_Account)		<> 0 Then Exit Do
					End Select
				Loop
				TKey0 = 0

			Case 13
				If THost <> "" Then
					C = InStrRev(THost, ":")
					If C > 0 Then If Left(THost, C - 1) = "" Then Continue Do
					RV_Host = ""
					RV_Port = 6006
					RV_PassServer = ""
					RV_User = ""
					RV_Pass = ""
					If C > 0 Then
						RV_Host = Left(THost, C - 1)
						RV_Port = CUShort(Mid(THost, C + 1))
					Else
						RV_Host = THost
						RV_Port = 6006
					End If
					RV_PassServer = TPassServer
					RV_User = TUser
					RV_Pass = TPass
					TRV = EGNP_GURU_NoError
					'EGNP_GURU_NoErrorCreateAccount
					Exit Do
				End If

			Case 27: Exit Do
			Case 48 to 57 '09
				If TCurSel = 0 Then Exit Select
				If (TListSel <> 1) and (TCurSel = 1) Then Exit Select
				If (TCurSel = 2) and ((TListSelFlags and EGNP_SFE_Serverpass) = 0) Then Exit Select
				If (TCurSel > 2) and ((TListSelFlags and EGNP_SFE_Account) = 0) Then Exit Select
				TInput = Left(TInput, TCurPos(TCurSel)) & Chr(TKey0) & Mid(TInput, TCurPos(TCurSel) + 1)
				TCurPos(TCurSel) += 1

			Case 65 to 90, 97 to 122 'AZaz
				If TCurSel = 0 Then Exit Select
				If (TListSel <> 1) and (TCurSel = 1) Then Exit Select
				If (TCurSel = 2) and ((TListSelFlags and EGNP_SFE_Serverpass) = 0) Then Exit Select
				If (TCurSel > 2) and ((TListSelFlags and EGNP_SFE_Account) = 0) Then Exit Select
				TInput = Left(TInput, TCurPos(TCurSel)) & Chr(TKey0) & Mid(TInput, TCurPos(TCurSel) + 1)
				TCurPos(TCurSel) += 1

			Case 32 to 47, 58 to 64, 123 to 126, 128 to 254 'sonderzeichen
				Select Case TCurSel
					Case 1: If (TKey0 <> 58) and (TKey0 <> 46) Then Continue Do
					Case 0, 3: Continue Do
				End Select
				If (TCurSel = 2) and ((TListSelFlags and EGNP_SFE_Serverpass) = 0) Then Exit Select
				If (TCurSel > 2) and ((TListSelFlags and EGNP_SFE_Account) = 0) Then Exit Select
				TInput = Left(TInput, TCurPos(TCurSel)) & Chr(TKey0) & Mid(TInput, TCurPos(TCurSel) + 1)
				TCurPos(TCurSel) += 1

			Case 255
				Select Case TKey1
					Case 63: TState = 0
					Case 71: TCurPos(TCurSel) = 0: TCurStart(TCurSel) = 0
					Case 72: If TListSel > 1 Then TListSel -= 1
					Case 75: If TCurPos(TCurSel) > 0 Then TCurPos(TCurSel) -= 1
					Case 77: If TCurPos(TCurSel) < Len(TInput) Then TCurPos(TCurSel) += 1
					Case 79: TCurPos(TCurSel) = Len(TInput): If TCurPos(TCurSel) > 10 Then TCurStart(TCurSel) = TCurPos(TCurSel) - 5
					Case 80: If TListSel < TListC Then TListSel += 1
					Case 83 'del
						If TCurSel = 0 Then Exit Select
						If (TListSel <> 1) and (TCurSel = 1) Then Exit Select
						If (TCurSel = 2) and ((TListSelFlags and EGNP_SFE_Serverpass) = 0) Then Exit Select
						If (TCurSel > 2) and ((TListSelFlags and EGNP_SFE_Account) = 0) Then Exit Select
						If TCurPos(TCurSel) < Len(TInput) Then
							TInput = Left(TInput, TCurPos(TCurSel)) & Mid(TInput, TCurPos(TCurSel) + 2)
						End If
					Case Else: Print #1, "KEY: " & TKey0 & " - " & TKey1
				End Select
			Case Else: Print #1, "KEY: " & TKey0 & " - " & TKey1
		End Select
		If TKey0 <> 0 Then
			Select Case TCurSel
				Case 1: THost = TInput
				Case 2: TPassServer = TInput
				Case 3: TUser = TInput
				Case 4: TPass = TInput
			End Select
		End If
	End If

	Line TImg, (0, 0)-(V_IOWidth - 1, V_IOHeight - 1), &HFFDDDDDD, BF
	Line TImg, (0, 0)-(V_IOWidth - 1, V_IOHeight - 1), &HFFAAAAAA, B
	Line TImg, (1, 1)-(V_IOWidth - 2, V_IOHeight - 2), &HFF888888, B
	Select Case TState
		Case 0, 1: TTitle = "Connecting to public server..."
		Case 2: TTitle = "Getting serverlist..."
		Case 10
			TTitle = "Please select a server to connect to."
			TPosY = 30
			Line TImg, (2, 23)-(V_IOWidth - 3, 23), &HFF888888
			C = 0
			TSLPtr = EGNP_INT_ServerPubSLF
			Do Until TSLPtr = 0
				If C >= TListStart Then Exit Do
				C += 1
				TSLPtr = TSLPtr->V_Next
			Loop
			CX = 0
			Do Until TSLPtr = 0
				If CX >= TListMax Then Exit Do
				C += 1
				CX += 1
				With *TSLPtr
					If TListSel = C Then
						Line TImg, (2, TPosY - 6)-(V_IOWidth - 3, TPosY + 14), &HFFAAAAEE, BF
					Else: Line TImg, (2, TPosY - 6)-(V_IOWidth - 3, TPosY + 14), &HFFFFFFFF, BF
					End If
					If (.V_Flags and EGNP_SFE_Serverpass)	<> 0 Then EGNP_INT_Public_DrawSym(TImg, 10, TPosY - 3, 0)
					If (.V_Flags and EGNP_SFE_Account)		<> 0 Then EGNP_INT_Public_DrawSym(TImg, 30, TPosY - 3, 1)
					T = ""
					If C > 1 Then T = "[" & Space(Len(Str(.V_PlayerMax)) - Len(Str(.V_PlayerCur))) & Str(.V_PlayerCur) & "/" & Str(.V_PlayerMax) & "]"
					Draw String TImg, (50, TPosY), T & Space(9 - Len(T)) & " " & .V_Name, &HFF000000
					Line TImg, (2, TPosY - 6)-(V_IOWidth - 3, TPosY + 14), &HFFCCCCCC, B
				End With
				TPosY += 20
				TSLPtr = TSLPtr->V_Next
			Loop
			Line TImg, (1, 25 + (TListMax * 20))-(V_IOWidth - 2, 25 + (TListMax * 20)), &HFF888888

			'scroll
			Line TImg, (V_IOWidth - 20, 23)-(V_IOWidth - 2, V_IOHeight - 75), &HFFCCCCCC, BF
			If TListC > TListMax Then
				Line TImg, (V_IOWidth - 20, 23 + ((V_IOHeight - 75) - 63) / (TListC - TListMax) * TListStart)-(V_IOWidth - 2, 63 + ((V_IOHeight - 75) - 63) / (TListC - TListMax) * TListStart), &HFFAAAAEE, BF
				Line TImg, (V_IOWidth - 20, 23 + ((V_IOHeight - 75) - 63) / (TListC - TListMax) * TListStart)-(V_IOWidth - 2, 63 + ((V_IOHeight - 75) - 63) / (TListC - TListMax) * TListStart), &HFF666666, B
			End If
			Line TImg, (V_IOWidth - 20, 23)-(V_IOWidth - 2, V_IOHeight - 75), &HFF666666, B

			'host
			Draw String TImg, (6, V_IOHeight - 62), "Host:", &HFF000000
			Line TImg, (80, V_IOHeight - 67)-(V_IOWidth / 2 - 15, V_IOHeight - 51), IIf(TListSel = 1, IIf(TCurSel = 1, &HFFFFFFAA, &HFFFFFFFF), &HFFAAAAAA), BF
			Draw String TImg, (83, V_IOHeight - 62), Mid(THost, TCurStart(1) + 1, Fix(((V_IOWidth / 2 - 15) - 86) / 8)), &HFF000000
			If TCurSel = 1 Then
				If (TCurPos(TCurSel) - TCurStart(TCurSel)) >= Fix(((V_IOWidth / 2 - 15) - (80)) / 8) Then TCurStart(TCurSel) += 5
				If (TCurPos(TCurSel) - TCurStart(TCurSel)) < 0 Then TCurStart(TCurSel) -= 5
				If TCurStart(TCurSel) < 0 Then TCurStart(TCurSel) = 0
				Line TImg, (81 + (TCurPos(TCurSel) - TCurStart(TCurSel)) * 8, V_IOHeight - 65)-(82 + (TCurPos(TCurSel) - TCurStart(TCurSel)) * 8, V_IOHeight - 53), &H000000, BF
			End If
			Line TImg, (80, V_IOHeight - 67)-(V_IOWidth / 2 - 15, V_IOHeight - 51), &HFF666666, B

			'serverpass
			If (TListSelFlags and EGNP_SFE_Serverpass) <> 0 Then
				Draw String TImg, (V_IOWidth / 2, V_IOHeight - 62), "Serverpass:", &HFF000000
				Line TImg, (V_IOWidth / 2 + 90, V_IOHeight - 67)-(V_IOWidth - 10, V_IOHeight - 51), IIf((TListSelFlags and EGNP_SFE_Serverpass) <> 0, IIf(TCurSel = 2, &HFFFFFFAA, &HFFFFFFFF), &HFFAAAAAA), BF
				Draw String TImg, (V_IOWidth / 2 + 93, V_IOHeight - 62), String(Len(Mid(TPassServer, TCurStart(2) + 1, Fix(((V_IOWidth / 2 - 15) - 86) / 8))), 42), &HFF000000
				If TCurSel = 2 Then
					If (TCurPos(TCurSel) - TCurStart(TCurSel)) >= Fix(((V_IOWidth - 10) - (V_IOWidth / 2 + 90)) / 8) Then TCurStart(TCurSel) += 5
					If (TCurPos(TCurSel) - TCurStart(TCurSel)) < 0 Then TCurStart(TCurSel) -= 5
					If TCurStart(TCurSel) < 0 Then TCurStart(TCurSel) = 0
					Line TImg, (V_IOWidth / 2 + 91 + (TCurPos(TCurSel) - TCurStart(TCurSel)) * 8, V_IOHeight - 65)-(V_IOWidth / 2 + 92 + (TCurPos(TCurSel) - TCurStart(TCurSel)) * 8, V_IOHeight - 53), &H000000, BF
				End If
				Line TImg, (V_IOWidth / 2 + 90, V_IOHeight - 67)-(V_IOWidth - 10, V_IOHeight - 51), &HFF666666, B
			End If

			If (TListSelFlags and EGNP_SFE_Account) <> 0 Then
				'username
				Draw String TImg, (6, V_IOHeight - 42), "Username:", &HFF000000
				Line TImg, (80, V_IOHeight - 47)-(V_IOWidth / 2 - 15, V_IOHeight - 31), IIf((TListSelFlags and EGNP_SFE_Account) <> 0, IIf(TCurSel = 3, &HFFFFFFAA, &HFFFFFFFF), &HFFAAAAAA), BF
				Draw String TImg, (83, V_IOHeight - 42), Mid(TUser, TCurStart(3) + 1, Fix(((V_IOWidth / 2 - 15) - 86) / 8)), &HFF000000
				If TCurSel = 3 Then
					If (TCurPos(TCurSel) - TCurStart(TCurSel)) >= Fix(((V_IOWidth / 2 - 15) - (80)) / 8) Then TCurStart(TCurSel) += 5
					If (TCurPos(TCurSel) - TCurStart(TCurSel)) < 0 Then TCurStart(TCurSel) -= 5
					If TCurStart(TCurSel) < 0 Then TCurStart(TCurSel) = 0
					Line TImg, (81 + (TCurPos(TCurSel) - TCurStart(TCurSel)) * 8, V_IOHeight - 45)-(82 + (TCurPos(TCurSel) - TCurStart(TCurSel)) * 8, V_IOHeight - 33), &H000000, BF
				End If
				Line TImg, (80, V_IOHeight - 47)-(V_IOWidth / 2 - 15, V_IOHeight - 31), &HFF666666, B

				'password
				Draw String TImg, (V_IOWidth / 2, V_IOHeight - 42), "Password:", &HFF000000
				Line TImg, (V_IOWidth / 2 + 90, V_IOHeight - 47)-(V_IOWidth - 10, V_IOHeight - 31), IIf((TListSelFlags and EGNP_SFE_Account) <> 0, IIf(TCurSel = 4, &HFFFFFFAA, &HFFFFFFFF), &HFFAAAAAA), BF
				Draw String TImg, (V_IOWidth / 2 + 93, V_IOHeight - 42), String(Len(Mid(TPass, TCurStart(4) + 1, Fix(((V_IOWidth / 2 - 15) - 86) / 8))), 42), &HFF000000
				If TCurSel = 4 Then
					If (TCurPos(TCurSel) - TCurStart(TCurSel)) >= Fix(((V_IOWidth - 10) - (V_IOWidth / 2 + 90)) / 8) Then TCurStart(TCurSel) += 5
					If (TCurPos(TCurSel) - TCurStart(TCurSel)) < 0 Then TCurStart(TCurSel) -= 5
					If TCurStart(TCurSel) < 0 Then TCurStart(TCurSel) = 0
					Line TImg, (V_IOWidth / 2 + 91 + (TCurPos(TCurSel) - TCurStart(TCurSel)) * 8, V_IOHeight - 45)-(V_IOWidth / 2 + 92 + (TCurPos(TCurSel) - TCurStart(TCurSel)) * 8, V_IOHeight - 33), &H000000, BF
				End If
				Line TImg, (V_IOWidth / 2 + 90, V_IOHeight - 47)-(V_IOWidth - 10, V_IOHeight - 31), &HFF666666, B
			End If

			'cancel
			Line TImg, (4, V_IOHeight - 20)-(100, V_IOHeight - 5), &HFFEE6666, BF
			Line TImg, (4, V_IOHeight - 20)-(100, V_IOHeight - 5), &HFF666666, B
			Draw String TImg, (30, V_IOHeight - 15), "Cancel", &HFF000000

			If TRegist = 0 Then
				'connect
				If (TListSel > 0) and (THost <> "") Then
					Line TImg, (V_IOWidth - 104, V_IOHeight - 20)-(V_IOWidth - 5, V_IOHeight - 5), &HFF66EE66, BF
				Else: Line TImg, (V_IOWidth - 104, V_IOHeight - 20)-(V_IOWidth - 5, V_IOHeight - 5), &HFF666666, BF
				End If
				Line TImg, (V_IOWidth - 104, V_IOHeight - 20)-(V_IOWidth - 5, V_IOHeight - 5), &HFF666666, B
				Draw String TImg, (V_IOWidth - 80, V_IOHeight - 15), "Connect", &HFF000000
			End If

	End Select
	Draw String TImg, (9, 9), TTitle, &HFF000000

	Circle TImg, (TMX - TSPosX, TMY - TSPosY), 3, &HFF666666
	ScreenLock()
	Put (TSPosX, TSPosY), TImg, PSet
	ScreenUnLock()
	Select Case TState
		Case 0
			If EGNP_INT_ServerPubTSNEID = 0 Then
				EGNP_INT_ServerPubData = ""
				TSNE_Create_Client(EGNP_INT_ServerPubTSNEID, EGNP_INT_PubServerHost, EGNP_INT_PubServerPort, @EGNP_INT_Public_Disconnected, 0, @EGNP_INT_Public_NewData)
			End If
			TState = 1

		Case 1
			If TSNE_WaitConnected(EGNP_INT_ServerPubTSNEID) <> TSNE_Const_NoError Then Exit Do
			TState = 2
			T = ""
			T += EGNP_INT_BuildString(.V_GameName)
			T += EGNP_INT_BuildUInteger(.V_GameVersion)
			EGNP_INT_AsyncSendToOne(EGNP_INT_ServerPubTSNEID, EGNP_INT_BuildCMD(EGNP_CMD_ServerList, T))

		Case 2
			If TSNE_IsClosed(EGNP_INT_ServerPubTSNEID) = 1 Then EGNP_INT_ServerPubTSNEID = 0: Exit Do
			If TTime <> EGNP_INT_ServerPubSLTime Then
				TTime = EGNP_INT_ServerPubSLTime
				TListC = 0
				TSLPtr = EGNP_INT_ServerPubSLF
				Do Until TSLPtr = 0
					TListC += 1
					TSLPtr = TSLPtr->V_Next
				Loop
				TState = 10
			End If

	End Select
	'USleep 10000
	Sleep 10, 1
Loop
Line TImg, (0, 0)-(V_IOWidth - 1, V_IOHeight - 1), &HFFDDDDDD, BF
Line TImg, (0, 0)-(V_IOWidth - 1, V_IOHeight - 1), &HFFBBBBBB, B
Draw String TImg, (5, 5), "Selection success!", &HFF000000
Put (TScreenW / 2 - V_IOWidth / 2, TScreenH / 2 - V_IOHeight / 2), TImg, PSet
ImageDestroy(TImg)
Return TRV
End Function



'----------------------------------------------------------------------------------------------------------------------------------------------------
Function EGNP_Server_SendData(V_ServerID as UInteger, V_ToUserID as UInteger, ByRef V_Data as String) as EGNP_GURU_Enum
MutexLock(EGNP_INT_Mux)
Dim TSPtr as EGNP_INT_Server_Type Ptr = EGNP_INT_Server_GetPtrByID(V_ServerID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
Dim TSCPtr as EGNP_INT_ServerClient_Type Ptr
Dim TData1 as String = EGNP_INT_BuildUInteger(0)
TData1 += EGNP_INT_BuildUInteger(V_ToUserID)
TData1 += EGNP_INT_BuildString(V_Data)
If V_ToUserID <> 0 Then
    TSCPtr = EGNP_INT_Client_GetByID(TSPtr, V_ToUserID)
    If TSCPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
    EGNP_INT_AsyncSendToOne(TSCPtr->V_TSNEID, EGNP_INT_BuildCMD(EGNP_CMD_UserData, TData1))
Else: EGNP_INT_AsyncSendToAll(TSPtr, EGNP_INT_BuildCMD(EGNP_CMD_UserData, TData1))
End If
MutexUnLock(EGNP_INT_Mux)
Return EGNP_GURU_NoError
End Function

Function EGNP_Server_SendMessage(V_ServerID as UInteger, V_ToUserID as UInteger, ByRef V_Message as String) as EGNP_GURU_Enum
MutexLock(EGNP_INT_Mux)
Dim TSPtr as EGNP_INT_Server_Type Ptr = EGNP_INT_Server_GetPtrByID(V_ServerID)
If TSPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
Dim TSCPtr as EGNP_INT_ServerClient_Type Ptr
Dim TData1 as String = EGNP_INT_BuildUInteger(0)
TData1 += EGNP_INT_BuildUInteger(V_ToUserID)
TData1 += EGNP_INT_BuildString(V_Message)
If V_ToUserID <> 0 Then
    TSCPtr = EGNP_INT_Client_GetByID(TSPtr, V_ToUserID)
    If TSCPtr = 0 Then MutexUnLock(EGNP_INT_Mux): Return EGNP_GURU_IDnotFound
    EGNP_INT_AsyncSendToOne(TSCPtr->V_TSNEID, EGNP_INT_BuildCMD(EGNP_CMD_UserData, TData1))
Else: EGNP_INT_AsyncSendToAll(TSPtr, EGNP_INT_BuildCMD(EGNP_CMD_UserData, TData1))
End If
MutexUnLock(EGNP_INT_Mux)
Return EGNP_GURU_NoError
End Function

'####################################################################################################################################################
#ENDIF