Простой скрипт реализующий запись и воспроизведение кликов левой кнопки мыши

//Реализация простого записывающего автокликера левой кнопки мыши.
//Простой скрипт записывающий и воспоизводящий нажатия левой кнопки мыши в реальном времени.
//для старта записи нажать ~. Этой же кнопкой можно поставить запись на паузу и снять с паузы.
//Для воспроизведения жать Esc


int x[5000], y[5000];
int TM[5000];
int a, k=0;
int time, time1;
int f=0, naj=0;
int fbt=0;
lop: if (getkeystate(192)==1)//если нажат ~
{
if (naj==0)//если это момент нажатия
{
naj=1;// установть этот флаг в 1 что бы не учитывать удержание кнопки
if (f==0)
{
f=1;
time=gettime();
time1=time;
}
else f=0;
}
}
else naj=0;//если не нажат (отпущен) ~ обнуляем флаг
if (getkeystate(27)==1) goto vs;//если нажат Esc воспроизводить
///////////////////////////////////////////////////////////////////////////////
if (f==1)//Если идет запись
{
if (getkeystate(LBUTTON)==1)
{
if (fbt==0)//Для того что бы учитывать только момент нажатия
{
fbt=1;
getmouse(x[k], y[k]);
time=gettime();
TM[k]=time-time1;//Записываем разницу времени между кликами
time1=time;
k++;
}
}
else fbt=0;

}
///////////////////////////////////////////////////////////////////////////////
sleep(10);//пауза. можно уменьшить если надо.
goto lop;

vs:;
time=gettime();
time1=time;
a=0;
pt: if (a<k)
{
h: time=gettime();
if (time-time1<TM[a])goto h;//Крутим пока не прошло время
time1=time;
mouse(LEFT, x[a], y[a]);
a++;
goto pt;
}