var a1,a2,a3;
        a1=readshort();
        a2=readshort()
        a3=readbyte()
        instance_create(a1,a2,obj_bl_Stone)
        with obj_SendWorlder {instance_destroy()}

instance_activate_all();
clearbuffer(0);  
writebyte(alldata);  
writeushort(5)
with(obj_bl_Stone)  
{  
    writeshort(x);  
    writeshort(y);
    writebyte(index);  
}  

with(objPlayer){if(id = other.id){sendmessage(socketid); }}

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;
        }
       }
      }