clearbuffer();
writebyte(playerlocation);
writeshort(x);
writeshort(y);
sendmessage(objControl.socket);
alarm[0] = 2;

writeshort(image_angle);

dllinit(0, true, true); //Снова подключаем 39dll =)
listen = tcplisten(14804, 30, true); //Включаем порт 14804 (вы ведь не забыли? В клиенте мы писали 14804!)
if(!listen) //Если не получилось включить порт (возможно занят)
{
        error_message("Unable to create listen socket"); //Показываем ошибку
        exit; //И выходим =)
}
//Добавляем в playerlist       
for(i = 0; i < 256; i += 1)
{
        players[i] = -1;
}

player = tcpaccept(listen, 1); //Принимаем нового игрока
if(player) //Иесли игрок зашел
{
        playerid = newplayerid(); //Генерируем ему id
        if(playerid < 0)exit;     //Если слишком много игроков, выходим
        i = instance_create(0, 0, objPlayer);  //Создаем обьект игрока
        i.socketid = player;      //Установливаем разъем ID для игрока в сокет, которого только что приняли
        i.playerid = playerid;
        players[playerid] = i;
        setnagle(player, false);  //Выключить алгоритм Нагла для сокета
              
        //Говорим всем, что зашел нвоый игрок       
        clearbuffer();
        writebyte(newplayer);
        writebyte(playerid);       
        writeshort(0);
        writeshort(0);
        writestring("", true);
        //Отправляем другим игрокам
        with(objPlayer)
        {
          if(id != other.i)
          {
            sendmessage(socketid);
          }
        }
        with(objPlayer)
        {
          if(id != other.i)
          {
            clearbuffer();
            writebyte(newplayer);
            writebyte(playerid);
            writeshort(x);
            writeshort(y);
            writestring(nick, true);
            sendmessage(other.player);    //Отправляем
          }
        }
}

closesocket(listen); //Зыкрываем порт
dllfree();//Выключаем 39dll =(

x = 32; //Координаты нового игрока
y = 32;  //Координаты нового игрока
nick = ""; //Ник
alarm[0]= 1; //Включаем будильник (Раньше о них говорил)

timeout = 0;
deltatime = current_time;

clearbuffer(); //Чистим буффер
writebyte(exitgame);  //Пишем сообщение, что вышли
writebyte(playerid);  //Пишем id
//Отправляем всем игрокам
with(objPlayer)
{
        if(id != other.id)
        {
          sendmessage(socketid); //Сама отправка
        }
}
closesocket(socketid); //закрываем сокет (не наш)
server.players[playerid] = -1; //В случае, если вышли, сносим нас с Playerlist

while(1)                           //Бесконечный цикл
{
        size = receivemessage(socketid);       
        if(size < 0)break;                     
        if(size == 0)                          
        {
          instance_destroy();
          break;
        }
        timeout = 0;
        mid = readbyte();   //Читаем сообщение id
        switch(mid)               
        {
          case playerlocation:   //players location
            x = readshort();    //Читаем х
            y = readshort();    //Читаем у
          break;          
                
          case playernick:          //Новый никнейм
            nick = readstring();    //Читаем никнейм
            clearbuffer();          //Чистим буффер
            writebyte(playernick);  //Пишем messageid
            writebyte(playerid);    //Пишем мой id
            writestring(nick, true); //пишем nick
            //Отправляем игрокам
            with(objPlayer)
            {
              if(id != other.id)
              {
                sendmessage(socketid);       
              }
            }
          break;
                
          case exitgame:              //Если игрок вышел
            instance_destroy();       //Уничтожаем
          break;
        }
}
timeout += current_time - deltatime;
deltatime = current_time;
if(timeout > 8000)instance_destroy();   //if havnt received a message in 8 seconds then destroy