dllinit(0, true, true); //Подключаем 39dll (библиотека должна быть в папке с игрой (проектом)!!!)
ip = get_string("Enter address to connect to", "127.0.0.1");  //Присваиваем переменной ip адрес сервера, на котором будем играть (через get_string)
port = get_integer("Enter port to connect to", 14804);  //По какому порту играем (если на сервере будет 14804 - оставляем)
nick = get_string("Введите свой ник", "newPlayer"); //Присваиваем себе ник
socket = tcpconnect(ip, port, 1);   //По переменным (смотрите выше) ip, port пытаемся подключиться к серверу
if(!socket)   //Если не удалось
{
        error_message("Unable to connect to server"); //Показываем ошибку
        exit; //И выходим
}
setnagle(socket, false);  //Без коментариев, для меня это - темный лес
//Отправляем свой ник
clearbuffer(); //Чистим буффер (чтобы не глючило, поменьше мусора)
writebyte(playernick);       
writestring(nick, true);
sendmessage(socket);

//Добавляем в Playerlist
for(i = 0; i < 256; i += 1)
        players[i] = -1;
              
i = instance_create(32, 32, objPlayer);

while(1)                           //Начинается бесконечный цикл http://ru.wikipedia.org/wiki/Бесконечный_цикл
{
        size = receivemessage(socket);    //Получить следующее сообщение в очереди
        if(size < 0)break;               //Если не получили сообщение, то выходим из цикла
        if(size == 0)                    //Если отключились от сокета - выходим
        {
          instance_destroy(); //уничтажаем обьект (а при уничтожении рассмотрим код ниже)
          break;
        }
        mid = readbyte();     //Прочитать сообщение (readbyte() читает данные)
              
        switch(mid)
        {
          case newplayer:
            pid = readbyte();       //Читаем данные, которые отправил нам сервер (у нас это - playerid)
            player = instance_create(0, 0, objRemote); //Создаем objRemote (remote player)
            player.x = readshort(); //Читаем координаты х
            player.y = readshort(); //Читаем координаты у
            player.nick = readstring(); //Читаем ник (переменную)
            players[pid] = player;  //Добавляем в playerlist
          break; //Если не ошибаюсь, то разрыв соединения
                
          case playerlocation:
            player = players[readbyte()];   //Смотрим айди персонажа в playerlist
            player.x = readshort();         //set x
            player.y = readshort();         //set y
          break;
                
          case exitgame:
            player = players[readbyte()];   //получить идентификатор игрока из playerlist
            with(player)instance_destroy(); //Уничтожаем
          break;
                
          case playernick:
            player = players[readbyte()];   //Получить идентификатор игрока из playerlist
            player.nick = readstring();     //Смотрим никнейм
          break;
        }
}

clearbuffer();
writebyte(exitgame);
sendmessage(socket);
sleep(100);
closesocket(socket);
dllfree();

event_user(0);

event_user(0);