Server = network_create_server( network_socket_tcp , 63258 , 32 );//создаём сам сервер(тип советую использовать как тут, порт, максимум игроков)
Buffer = buffer_create( 1024 , buffer_fixed , 1 );//создание буфера(размер, размер не меняется, тут не знаю...)
SocketList = ds_list_create();//сюда будем заносить всех игроков
global.max_players=0//всего игроков было на сервер

                var type_event = ds_map_find_value( async_load , "type" );/*получаем тип пришедших данных, в данном случаи это network_type_connect и другие...*/              
                switch( type_event ) {
                   case network_type_connect://если игрок вошёл...
                      var socket = ds_map_find_value( async_load , "socket" );//получаем его сокет
                      ds_list_add( SocketList , socket );//заносим новый сокет в наш лист
                   break;
                   case network_type_disconnect://если игрок вышел...
                      var socket = ds_map_find_value( async_load , "socket" );
                      var findsocket = ds_list_find_index( SocketList , socket );//получаем индекс сокета из нашего списка который пришёл
                        
                      if ( findsocket >= 0 ) {//если есть...
                         ds_list_delete( SocketList , findsocket );//удаляем
                      }
                   break;
                   case network_type_data://если пришли данные...
                      var buffer = ds_map_find_value( async_load , "buffer" );//получаем буффер
                      var socket = ds_map_find_value( async_load , "id" );//получаем айди сокета
                      buffer_seek( buffer , buffer_seek_start , 0 );/*ставим курсор в начало буфера(буффер, отсчитывать с начала буффера, отступаем с начала 0 знаком)*/
                      ReceivedPacket( buffer , socket );//скрипт который принимает два аргумента, сейчас займёмся...
                   break;
                }

                var buffer = argument[ 0 ];//всё понятно
                var socket = argument[ 1 ];
                var msgid = buffer_read( buffer , buffer_u8 );//читаем из buffer байт, который может быть от 0 до 255
                switch( msgid ) {
                   case 1://если байт который мы прочитали равен 1, то...
                      global.max_players+=1//всего игроков было на сервере увеличиваем на один
                      buffer_seek( Buffer , buffer_seek_start , 0 );//уже писал выше
                      buffer_write( Buffer , buffer_u8 , 1 );/*записываем в Buffer значение 1(значение должно быть уникальным для разных данных, допустим что бы отправить координаты надо будет писать 2, а что бы получить ник игрока 3 и т.д) и указываем что оно от 0 до 255 (ниже приведу таблицу из справки GM:S)*/
                      buffer_write( Buffer , buffer_u16,  global.max_players);//записываем уникальный айди для клиента в будущем
                      network_send_packet( socket , Buffer , buffer_tell( Buffer ) );/*отправляем буффер клиенту который послал запрос на получение этих данных (собственно сам игрок, буффер, размер отправляемого буффера). Отправляет клиенту уникальный айди*/
                   break;
                }

                network_destroy( Server );//собственно выключить наш сервер
                buffer_delete( Buffer );//удалить буффер
                ds_list_destroy( SocketList );//удалить лист с пользователями

                draw_set_font(font_text);
                draw_set_color( c_white );
                draw_text( 16 , 16, "Сервер создан: " + string( Server >= 0 ) );
                draw_text( 16 , 32, "Сейчас на сервере игроков: " + string( ds_list_size( SocketList ) ) );
                draw_text( 16 , 48, "Всего было игроков на сервере: " + string( global.max_players) );

                ip=get_string("Айпи: ","127.0.0.1");
                Socket = network_create_socket( network_socket_tcp );//создаём наш сокет
                isConnected = network_connect( Socket , ip , 63258 );//подключаемся к серверу
                Buffer = buffer_create( 1024 , buffer_fixed , 1 );//уже проходили.:)
                global.myid=0//наш уникальный в будущем айди клиента
                alarm[0]=2//надо ставить, что бы работало.:)
                Result=0//проверка на подсоединение к серверу

                 buffer_seek( Buffer , buffer_seek_start , 0 );
                 buffer_write( Buffer , buffer_u8 , 1 );//записываем в буфер, тут уникальный айди(значение) тоже один, так как отсылаем уже серверу
                 Result = network_send_packet( Socket , Buffer , buffer_tell( Buffer ) );/*отсылаем информацию серверу, что бы он прислал нам наш уникальный айди.*/

var type_event = ds_map_find_value( async_load , "type" );
                switch( type_event ) {
                   case network_type_data:
                      var buffer = ds_map_find_value( async_load , "buffer" );
                      buffer_seek( buffer , buffer_seek_start , 0 );
                      ReceivedPacket( buffer );
                   break;
                }

//получаем и присваиваем наш уникальный айди
                var buffer = argument[ 0 ];
                var msgid = buffer_read( buffer , buffer_u8 );
                switch( msgid ) {
                   case 1:
                      global.myid = buffer_read( buffer , buffer_u16 );
                   break;
                }

                network_destroy( Socket );
                buffer_delete( Buffer );

               draw_set_font(font_text)
               draw_set_color(c_white);
               draw_text(16, 16, "Присоединён: " + string( Result >= 0 ) );
               draw_text(16, 32, "Мой айди: "+string(global.myid))