int p=90;
int r=25;

int S[17][16];
int Rot[24][7];
int Glaza[25][6];
int glaz_X, glaz_Y;
int rot_X, rot_Y;
int x, y;
int x1, y1, x2, y2;
int xe, ye, col;
getdisplay(col, xe, ye);

if (load()==-1){messagebox ("нет рис."); goto error;}

if (poisk_st()==1)
{

if (findimage(1, #Rot[0][0], 255, #x, #y, x1, y1, x2, y2, r, r, r, r, r, r, p, 1, -1)==1)
{
mousetransfer(LEFT, x+x1, y+y1, glaz_X, glaz_Y, 0.02);
pause(2000);
}

if (findimage(1, #Glaza[0][0], 255, #x, #y, x1, y1, x2, y2, r, r, r, r, r, r, p, 1, -1)==1)
{
mousetransfer(LEFT, x+x1, y+y1, rot_X, rot_Y, 0.02);
}

}
else {messagebox ("не нашли старт.");}

error :;

function poisk_st()
{
if (findimage(1, #S[0][0], 0, #x, #y, 0, 0, xe, ye, r, r, r, r, r, r, p, 1, -1)==1)
{
x1=x-15; y1=y-15; x2=x1+360; y2=y1+160;
glaz_X=x+275; glaz_Y=y+22;
rot_X=x+275; rot_Y=y+85;

return 1;
}
return 0;
}


function load()
{
if (loadimage (#S[0][0], "C:\playthru\S.bmp")<0)return -1;
if (loadimage (#Rot[0][0], "C:\playthru\Rot.bmp")<0)return -1;
if (loadimage (#Glaza[0][0], "C:\playthru\Glaza.bmp")<0)return -1;
return 1;
}