//Примечание: 39dll в виде библиотеки .dll (не gex)
//Инициализация библиотеки
dllinit(0,1,0);
//Получаем порт
port = get_integer("Введите порт:",12564);
//Прослушиваем порт
servertcp = tcplisten(port,10,1);
//Если порт занят или произошла ошибка
if !(servertcp)
     closesocket(servertcp);
     show_message("Error");
     game_end();
     exit;
}

var socket;
//Создаем соединение
socket = tcpaccept(servertcp,true);
//Если не сообщений, то выходим
if (socket <=0) exit;
setsync(clientsocket,0);
//Принимаем сообщения
receivemessage(clientsocket);
step = 0; //Допуск
type = readbyte();
name = readstring();
pass = readstring();
//Регистрация
if type = 0
{
if !(file_exists("players\"+name+".ini"))
{
ini_open("players\"+name+".ini");
ini_write_string("Data","password",pass)  
ini_close();
clearbuffer();
writebyte(1);
writebyte(1);
sendmessage(socket);
step = 1;
}
else
{
clearbuffer();
writebyte(1);
writebyte(0);
sendmessage(socket);
exit;
}
}
//Логин
if type = 1
{
if (file_exists("players\"+name+".ini"))
{
ini_open("players\"+name+".ini");
password = ini_read_string("Data","password","");
ini_close();
if (pass = password)
{
clearbuffer();
writebyte(1);
writebyte(3);
sendmessage(socket);
step = 1;
}
else
{
clearbuffer();
writebyte(1);
writebyte(4);
sendmessage(socket);
exit;
}
}
else
{
clearbuffer();
writebyte(1);
writebyte(2);
sendmessage(socket);
exit;
}
}
if (step)
{
//Здесь уже стандартное создание игрока в сети, добавление его в список игроков и т.п.
}

//Инициализируем библиотеку
dllinit(0,1,0);
global.serverip = get_string("IP сервера:","127.0.0.1");
global.serverport = get_integer("Порт сервера:",12564);
type = get_integer("Регистрация(0) или Логин(1):",0);
name = get_string("Введите ваше имя:","Test");
password = get_string("Введите пароль:","1111");
//Соединяемся
global.clienttcp = tcpconnect(global.serverip,global.serverport,1);
//Если не удалось
if (!tcpconnected(global.clienttcp))
{
//...закрываем сокет, и уходим из игры.
closesocket(global.clienttcp);
show_message("Error");
game_end();
exit;
}
else
{
//Если подключение удалось
setnagle(global.clienttcp,1);
//Потом отправляем свои данные...
clearbuffer();
writebyte(type);
writestring(name,false);
writestring(password,false);
sendmessage(global.clienttcp);
}

//Переменные
var messagesize, messageid;
while(1)
{
//Принимаем сообщения
messagesize = receivemessage(global.clienttcp);
//Если их нет
if (messagesize <= 0) break;
//Иначе, получаем айди сообщения
messageid = readbyte();
//Сортируем
switch(messageid)
{
case 1:
answer = readbyte();
//Имя занято
if (answer = 0)
{
show_message("Имя занято");
game_restart();
exit;
}
//Регистрация прошла успешно
if (answer = 1)
{
show_message("Вы зарегистрированы");
}
//Пользователь не существует
if (answer = 2)
{
show_message("Пользователь не существует");
game_restart();
exit;
}
//Вход произведен
if (answer = 3)
{
show_message("Приветствуем вас!");
}
//Пароль введен неверно
if (answer = 4)
{
show_message("Пароль не верен!!!");
game_restart();
exit;
}
break;
}