win W_Kib;
int Screen[3000][3000];
int SUM_Color;
int x;
int y;

int eCol_Kib, eX_Kib, eY_Kib;
getdisplay(eCol_Kib, eX_Kib, eY_Kib);

//6 на 4
int X[6]={980, 1100, 1220, 1340, 1460, 1580}
int Y[4]={371, 491, 611, 731}

loop()
{
for(x=0; x<6; x++)
{
for(y=0; y<4; y++)
{
goto KIB_1;
KIB_6: TextOut(0, "Занят", 2, X[x], Y[y], 0, 16777215);
goto KIB_C3;
KIB_5: TextOut(0, "Свободно", 2, X[x], Y[y], 0, 16777215);
goto KIB_C3;
KIB_1: SumColor(-1, 0, #Screen[0][0], #W_Kib, W_Kib.leftclient, W_Kib.topclient, 500, 0, #SUM_Color, X[x], Y[y], X[x]+40, Y[y]+40, 4602425, 65);
if(SUM_Color==1600) goto KIB_5;
goto KIB_6;
KIB_C3:
}
}
}

function SumColor(int kol, int ew, int #Scr, win #w, int v_x, int v_y, int p1, int t, int #sum_color, int sx, int sy, int fx, int fy, int col, int r)
{
pause (p1);
if (t==0)t=1;
looptime(t)
{
if (ew==0) sum_color=sumcolor(kol, sx, sy, fx, fy, col, r, r, r, r, r, r, -1);
if (ew==1) sum_color=sumcolor(kol, sx, sy, fx, fy, col, r, r, r, r, r, r, -1);
if (ew==2) sum_color=sumcolor(kol, sx, sy, fx, fy, col, r, r, r, r, r, r, w);
if (ew==3 || ew==4) sum_color=sumcolor(kol, sx, sy, fx, fy, col, r, r, r, r, r, r, #Scr[0][0]);
if (sum_color>0) return sum_color;
sleep(5);
}
return 0;
}

function TextOut(int n, string text, int o, int x, int y, int colt, int colf)
{
textbkcolor (colt,colf);
textout(n, x, y, text, o);
}