Скрипт создания анимации

int col, xe, ye;
getdisplay(col, xe, ye);
int ox=xe/50;
int oy=ye/33;
int pa=ox*oy; // Количество очагов динамики
int x[pa];
int y[pa];
int de=pa/3; // 1/3 очагов динамики

//=======================================

activate(w);
a:
finddynamic(0, #x[0], #y[0], 0, 0, 0, 0, 0, 0, xe, ye, w);
savescreen("C:\savescreen\screen\screen"+format(n)+".bmp", 0, 0, 400, 300, w);
sleep(500);
key(DOWN);
sleep(500);
din=finddynamic(pa, #x[0], #y[0], 0, 0, 0, 0, 0, 0, xe, ye, w);
if (din>de)
{n++;goto a;}

int x[2145];
int y[2145];