if keyboard_chek_released(vk_enter)
{var a; a=0;
while(a<=360)
{
a+=1;
image_angle+=1;
sleep(random_range(0.18,0.37) )
}
}

dllinit(0,1,1)
listen=tcplisten(port,stack_listen,2)
if (listen<0) {show_error("error listen sock",1)}
list_sock=ds_list_create()

var newsock;
globalvar action;
newsock=tcpaccept(listen,1)
if (newsock>0)
{
ds_list_add(list_sock)
}
receive_server();

var c_sock,msize;
for(a=0;a<ds_list_size(list_sock);a+=1)
{
c_sock=ds_list_find_value(list_sock,a)
msize=receivemessage(c_sock)
if (msize>0)
{
action=readbyte()
switch(action)
{
case SOCKET_CLOSE:
closesocket(c_sock)
ds_list_delete(list_sock,ds_list_find_index(list_sock,c_sock))
break;
}
}
}

closesocket(listen)
dllfree()

draw_text(5,5,"sockets:"+string(ds_list_size(list_sock)))

grid_width=10; grid_height=10;
stepx=32; stepy=32;

gridWorld=ds_grid_create(grid_width,grid_height);

//Инициализация
var rand,obj,rand_image;
for(W=0;W!=grid_width;W+=1)
{
       for(H=0;H!=grid_height;H+=1)
       {
           rand=irandom(10)
           if (rand mod 10 ==0)
           {
               rand_image=irandom(Cell.image_number)
               ds_grid_set_region(gridWorld,W,H,W+3,H+3,rand_image)
               W=W+3; H=H+3;
           }
           else
           {    
               rand_image=irandom(Cell.image_number)
               ds_grid_set(gridWorld,25+W*stepx,25+H*stepy,rand_image)
           }
       }
}

//Создание
var current_cell;
for(W=0;W!=grid_width;W+=1)
for(H=0;H!=grid_height;H+=1)
{
       current_cell=ds_grid_get(gridWorld,W,H)
       obj=instance_create(25+W*stepx,25+H*stepy,Cell)
       obj.image_index=current_cell;
}       

for(a=0;a!=map_width;a+=1)
for(s=0;s!=map_height;s+=1)
{
           instance_create(a*stepx,s*stepy,CELL)
}

image_speed=0;
image_index=irandom(image_number)

with(self)
{
image_speed=0;
image_index=irandom(image_number)
}