object controller:

create event:
action_type = -1 - отвечает за действие, определяемое нашим движение. -1 - необрабатываемое значение
action_enabled = true - блокиратор на управление
xsaved = 0;
ysaved = 0;
angle = 0:

step event

if action_type > -1
{
    switch(action_type)
    {
    case 0:
    show_message("up")
    break;

    case 1:
    show_message("down")
    break;

    case 2:
    show_message("left")
    break;

    case 3:
    show_message("right")
    break;
    }
    action_enabled = true
    action_type = -1
}

global_mouse_pressed:
if action_enabled
{
    action_enabled = false
    xsaved = mouse_x
    ysaved = mouse_y
}

global_mouse_released://представим нашу рабочую область как круг с перекрестием в центре на весь размер круга. Перекрестие образует 4 сектора внутри круга. Определяем сектор, в котором находится курсор, и по нему определяем тип действия:

if action_enabled = false
{
    angle = point_direction(xsaved, ysaved, mouse_x, mouse_y)
    if angle > 315 or angle <= 45 action_type = 3 - правый сектор
    if angle <= 135 and angle > 45 action_type = 0 - верхний сектор
    if angle <= 225 or angle > 135 action_type = 2 - левый сектор
    if angle <= 315 or angle > 225 action_type = 1 - нижний сектор
}

if (!device_mouse_check_button(device_used,mb_left))
{
//
}

with(objPlayer)
{sendmessage(socketid); }

obj_player
obj_playerinfo  - наши объекты связанные с игроком

//Инициализация самого ctrl
maxplayers = 10 - максимум игроков
actual_player = 0 - максимальный ид для оптимизации цикла
i = 0
while i<maxplayers - инициализируем массив игроков и информаций
{
players[i] = -1 - наше "общепринятое" пустое значение
players_info[i] = -1
i += 1;
}
//Конец инициализации ctrl

newobj = instance_create(obj_player, 0, 0)
newobj_info = instance_create(obj_playerinfo , 0, 0)

newobj_info.player = newobj - ссылка на прямой доступ ко всем данным игрока-родителя

index = -1;
index = find_free_id() - скрипт, который будет находить первый свободный индекс в массиве players[]. Не возвращает если все занято

if index >= 0
{
players[index] = newobj;
players_info[index] = newobj_info;
newobj.array_index = index;
}

writeshort(instance_number(obj_bl_Stone)); - количество существующих инстансов нашего отправляемого объекта.
with(obj_bl_Stone)     
{     
       writeshort(x);     
       writeshort(y);
}
send;

if readbyte(0) = 0 - определили отправителя как сервер
     {
     if readbyte(0) = 1 - определили тип пакета как _карта_
       {
       i = 0;
       count = readshort(0) - считает строку writeshort(instance_number(obj_bl_Stone)) - количество объектов, оно же - количество наших циклов
       while i<= count    
        {
          a = instance_create(obj_bl_Stone, readshort(0), readshort(0)) - создаем наш принятый объект с пришедшими x и y
          i += 1;
        }
       }
      }

39dll_buffer_clear(0);
39dll_write_byte(pack_id, 0); //идентификатор типа пакета

39dll_write_short(instance_number(some_object), 0); - количество передаваемых объектов нашего типа
with(some_object)
{
   39dll_write_short(some_object.x, 0);
   39dll_write_short(some_object.y, 0);
}

39dll_write_short(instance_number(some_object_2), 0);
with(some_object_2)
{
   39dll_write_short(some_object_2.x, 0);
   39dll_write_short(some_object_2.y, 0);
}

...