CODE:

/*
Учебный пример скрипта бота для игры в пасьянс Косынка в Windows 7
Настройки игры:
Колода - класическая, поле - природа, раскладка - по одной карте, анимация - выключена.
Настройки экрана:
Разрешение - не важно, глубина цвета - 32
*/

win w;//Указатель на окно игры
int x_game, y_game;//Размеры окна

///// Изображения
//Изобажения ячеек игрового поля под картами для проверки пустой ячейки
int pyst_pol1[24][25], pyst_pol2[56][50], pyst_pol3[49][47], pyst_pol4[40][49], pyst_pol5[224][145], pyst_pol6[335][138], pyst_pol7[443][143];
int pyst_mag[88][16];//Изображение пустого магазина с колодой
//Изображения карт
int 2_b[61][90], 3_b[64][89], 4_b[61][87], 5_b[61][89], 6_b[61][89], 7_b[61][89], 8_b[61][88], 9_b[63][88], 10_b[63][89], v_b[61][89], d_b[63][89], k_b[61][91], t_b[62][87];
int 2_c[61][89], 3_c[61][91], 4_c[61][89], 5_c[63][89], 6_c[64][90], 7_c[62][91], 8_c[62][89], 9_c[62][90], 10_c[63][88], v_c[62][90], d_c[63][90], k_c[60][90], t_c[63][88];
int 2_p[61][89], 3_p[61][89], 4_p[62][88], 5_p[63][90], 6_p[60][89], 7_p[64][89], 8_p[60][91], 9_p[62][89], 10_p[63][90], v_p[62][91], d_p[62][89], k_p[61][90], t_p[63][89];
int 2_t[62][89], 3_t[62][90], 4_t[61][87], 5_t[61][90], 6_t[63][89], 7_t[62][89], 8_t[61][89], 9_t[62][87], 10_t[64][90], v_t[62][91], d_t[63][91], k_t[62][89], t_t[63][87];
//Изображения верхних частей карт для индификации перекрытых карт
int 2_b1[4][17], 3_b1[4][17], 4_b1[4][17], 5_b1[4][17], 6_b1[4][17], 7_b1[4][17], 8_b1[4][17], 9_b1[4][17], 10_b1[4][17], v_b1[4][17], d_b1[4][17], k_b1[4][17], t_b1[4][17];
int 2_p1[4][17], 3_p1[4][17], 4_p1[4][17], 5_p1[4][17], 6_p1[4][17], 7_p1[4][17], 8_p1[4][17], 9_p1[4][17], 10_p1[4][17], v_p1[4][17], d_p1[4][17], k_p1[4][17], t_p1[4][17];
int 2_t1[4][17], 3_t1[4][17], 4_t1[4][17], 5_t1[4][17], 6_t1[4][17], 7_t1[4][17], 8_t1[4][17], 9_t1[4][17], 10_t1[4][17], v_t1[4][17], d_t1[4][17], k_t1[4][17], t_t1[4][17];
int 2_c1[4][17], 3_c1[4][17], 4_c1[4][17], 5_c1[4][17], 6_c1[4][17], 7_c1[4][17], 8_c1[4][17], 9_c1[4][17], 10_c1[4][17], v_c1[4][17], d_c1[4][17], k_c1[4][17], t_c1[4][17];

///// Смещения относительно левого верхнего угла изображений для поиска середины
//Изображения под картами
int T_pyst_pol1[2], T_pyst_pol2[2], T_pyst_pol3[2], T_pyst_pol4[2], T_pyst_pol5[2], T_pyst_pol6[2], T_pyst_pol7[2];
//Карты
int T_2_b[2], T_3_b[2], T_4_b[2], T_5_b[2], T_6_b[2], T_7_b[2], T_8_b[2], T_9_b[2], T_10_b[2], T_v_b[2], T_d_b[2], T_k_b[2], T_t_b[2];
int T_2_c[2], T_3_c[2], T_4_c[2], T_5_c[2], T_6_c[2], T_7_c[2], T_8_c[2], T_9_c[2], T_10_c[2], T_v_c[2], T_d_c[2], T_k_c[2], T_t_c[2];
int T_2_p[2], T_3_p[2], T_4_p[2], T_5_p[2], T_6_p[2], T_7_p[2], T_8_p[2], T_9_p[2], T_10_p[2], T_v_p[2], T_d_p[2], T_k_p[2], T_t_p[2];
int T_2_t[2], T_3_t[2], T_4_t[2], T_5_t[2], T_6_t[2], T_7_t[2], T_8_t[2], T_9_t[2], T_10_t[2], T_v_t[2], T_d_t[2], T_k_t[2], T_t_t[2];
//Верхние части карт
int T_2_b1[2], T_3_b1[2], T_4_b1[2], T_5_b1[2], T_6_b1[2], T_7_b1[2], T_8_b1[2], T_9_b1[2], T_10_b1[2], T_v_b1[2], T_d_b1[2], T_k_b1[2], T_t1_b1[2];
int T_2_c1[2], T_3_c1[2], T_4_c1[2], T_5_c1[2], T_6_c1[2], T_7_c1[2], T_8_c1[2], T_9_c1[2], T_10_c1[2], T_v_c1[2], T_d_c1[2], T_k_c1[2], T_t1_c1[2];
int T_2_p1[2], T_3_p1[2], T_4_p1[2], T_5_p1[2], T_6_p1[2], T_7_p1[2], T_8_p1[2], T_9_p1[2], T_10_p1[2], T_v_p1[2], T_d_p1[2], T_k_p1[2], T_t1_p1[2];
int T_2_t1[2], T_3_t1[2], T_4_t1[2], T_5_t1[2], T_6_t1[2], T_7_t1[2], T_8_t1[2], T_9_t1[2], T_10_t1[2], T_v_t1[2], T_d_t1[2], T_k_t1[2], T_t1_t1[2];

//Переменные для индификации карт которые сделали ход при перемещение
int 2_b_per, 3_b_per, 4_b_per, 5_b_per, 6_b_per, 7_b_per, 8_b_per, 9_b_per, 10_b_per, v_b_per, d_b_per, k_b_per, t_b_per;
int 2_p_per, 3_p_per, 4_p_per, 5_p_per, 6_p_per, 7_p_per, 8_p_per, 9_p_per, 10_p_per, v_p_per, d_p_per, k_p_per, t_p_per;
int 2_t_per, 3_t_per, 4_t_per, 5_t_per, 6_t_per, 7_t_per, 8_t_per, 9_t_per, 10_t_per, v_t_per, d_t_per, k_t_per, t_t_per;
int 2_c_per, 3_c_per, 4_c_per, 5_c_per, 6_c_per, 7_c_per, 8_c_per, 9_c_per, 10_c_per, v_c_per, d_c_per, k_c_per, t_c_per;

double skor=0.02;//Скорость перетаскивания мышкой

//Переменные для приема координать вернего левого угла найденого изображения
int x[1], y[1];
int x1[1], y1[1];

int sht=0;//Счетчик для обнуления походивших карт
int ffv=1;//Переменная для индификации ненайденого хода
int all=0;//Счетчик открытых карт с магазина
int pole_kolod=0;//Переменная для индификации пустого магазина

/////////////////////// Начало программы ///////////////////////////////////////////////////////////////////
if (move_game()==-1)goto exit;//установка необходимого размера окна и глубины цвета экрана
zagr_cart();//Загрузка карт
image_verxn();//создать верхие часть рисунков копировав верхние части полных
centr_image();//Узнать половинные размеры изображений для указания смещений относительно верхнего левого угла
obn_kart();//Обнулить ходы карт
activate(w);sleep(200);//Активировать окно игры если оно не активно

R:;
//Если не найдено ни одного хода 5 кругов обнулить ходы карт
if (ffv==0)
{
sht++;
if (sht>5)
{
sht=0;
obn_kart();
}
}
else sht=0;

//Вызов функций для проврки возможного хода
ffv=0;//Обнулить переменную проверки ненайденого хода
ffv=ffv+tyz_klik();//поиск и клик по тузу на поле
ffv=ffv+klik_niz();//поиск и клик по подходящей карте на поле
ffv=ffv+peren_niz();//поиск и перенос карты на поле в другую колоду
ffv=ffv+peren_king_niz();//поиск и перенес короля на поле на пустую ячейку

if (pole_kolod==0)//Если в магазине еще есть карты
{
ffv=ffv+peren_king_lev();//поиск и перенос окрытого с магазина короля на пустую ячейку
ffv=ffv+tyz_klik_lev();//поиск и клик по открытому тузу с магазина
ffv=ffv+klik_lev();//поиск и клик по подходящей открытой с магазина карте
ffv=ffv+peren_lev();//поиск и перенос подходящих карт на поле в другую колоду
}

pole_kolod=findimage(1, #pyst_mag[0][0], 16777215, #x[0], #y[0], 0, 0, 220, 130, w);//Проверка пустого магазина
if (pole_kolod==0)//Если в магазине еще есть карты
{
if (all<31)all++;//Счетчик кликов на магазине
mouse(LEFT, 80, 74, 1, w);//магазин не пуст кликнуть по нему и открыть карту
}
//sleep(100);//Если включена анимация установить паузу в работе скрипта

if (window ("Ходов не осталось", "#32770", -1)!=0)//Появилось окно о проигрыше
{
messagebox("Бот проиграл.");
goto exit;
}
if (window ("Игра выиграна", "#32770", -1)!=0)//Появилось окно о выигрыше
{
messagebox("Бот выиграл.");
goto exit;
}
goto R;
exit:;

// Функции
//############################################################################################
function tyz_klik()//поиск и клик по тузу на поле
{
if (tyz_klik1(#t_b[0][0], #T_t_b[0])==1) return 1;
if (tyz_klik1(#t_c[0][0], #T_t_c[0])==1) return 1;
if (tyz_klik1(#t_p[0][0], #T_t_p[0])==1) return 1;
if (tyz_klik1(#t_t[0][0], #T_t_t[0])==1) return 1;
return 0;
}
//!!!!!!!
function tyz_klik1(int #image_par, int #T_t_par)
{
if (findimage(1, #image_par[0][0], 16777215, #x[0], #y[0], 0, 140, x_game, y_game, w)==1)
{
mousedbl(LEFT, x[0]+T_t_par[0], y[0]+T_t_par[1]+140, 1, w);
return 1;
}
return 0;
}

//############################################################################################
function tyz_klik_lev()//поиск и клик по открытому тузу с магазина
{
if (tyz_klik_lev1(#t_b[0][0], #T_t_b[0])==1) return 1;
if (tyz_klik_lev1(#t_c[0][0], #T_t_c[0])==1) return 1;
if (tyz_klik_lev1(#t_p[0][0], #T_t_p[0])==1) return 1;
if (tyz_klik_lev1(#t_t[0][0], #T_t_t[0])==1) return 1;
return 0;
}
//!!!!!!!
function tyz_klik_lev1(int #image_par, int #T_t_par)
{
if (findimage(1, #image_par[0][0], 16777215, #x[0], #y[0], 0, 0, 220, 130, w)==1)
{
mousedbl(LEFT, x[0]+T_t_par[0], y[0]+T_t_par[1], 1, w);
return 1;
}
return 0;
}

//############################################################################################
function klik_lev()//поиск и клик по подходящей открытой с магазина карте
{
if (klik_lev1(#t_b[0][0], #2_b[0][0], #T_2_b[0])==1) return 1;
if (klik_lev1(#2_b[0][0], #3_b[0][0], #T_3_b[0])==1) return 1;
if (klik_lev1(#3_b[0][0], #4_b[0][0], #T_4_b[0])==1) return 1;
if (klik_lev1(#4_b[0][0], #5_b[0][0], #T_5_b[0])==1) return 1;
if (klik_lev1(#5_b[0][0], #6_b[0][0], #T_6_b[0])==1) return 1;
if (klik_lev1(#6_b[0][0], #7_b[0][0], #T_7_b[0])==1) return 1;
if (klik_lev1(#7_b[0][0], #8_b[0][0], #T_8_b[0])==1) return 1;
if (klik_lev1(#8_b[0][0], #9_b[0][0], #T_9_b[0])==1) return 1;
if (klik_lev1(#9_b[0][0], #10_b[0][0], #T_10_b[0])==1) return 1;
if (klik_lev1(#10_b[0][0], #v_b[0][0], #T_v_b[0])==1) return 1;
if (klik_lev1(#v_b[0][0], #5_d[0][0], #T_d_b[0])==1) return 1;
if (klik_lev1(#d_b[0][0], #k_b[0][0], #T_k_b[0])==1) return 1;

if (klik_lev1(#t_c[0][0], #2_c[0][0], #T_2_c[0])==1) return 1;
if (klik_lev1(#2_c[0][0], #3_c[0][0], #T_3_c[0])==1) return 1;
if (klik_lev1(#3_c[0][0], #4_c[0][0], #T_4_c[0])==1) return 1;
if (klik_lev1(#4_c[0][0], #5_c[0][0], #T_5_c[0])==1) return 1;
if (klik_lev1(#5_c[0][0], #6_c[0][0], #T_6_c[0])==1) return 1;
if (klik_lev1(#6_c[0][0], #7_c[0][0], #T_7_c[0])==1) return 1;
if (klik_lev1(#7_c[0][0], #8_c[0][0], #T_8_c[0])==1) return 1;
if (klik_lev1(#8_c[0][0], #9_c[0][0], #T_9_c[0])==1) return 1;
if (klik_lev1(#9_c[0][0], #10_c[0][0], #T_10_c[0])==1) return 1;
if (klik_lev1(#10_c[0][0], #v_c[0][0], #T_v_c[0])==1) return 1;
if (klik_lev1(#v_c[0][0], #5_d[0][0], #T_d_c[0])==1) return 1;
if (klik_lev1(#d_c[0][0], #k_c[0][0], #T_k_c[0])==1) return 1;

if (klik_lev1(#t_p[0][0], #2_p[0][0], #T_2_p[0])==1) return 1;
if (klik_lev1(#2_p[0][0], #3_p[0][0], #T_3_p[0])==1) return 1;
if (klik_lev1(#3_p[0][0], #4_p[0][0], #T_4_p[0])==1) return 1;
if (klik_lev1(#4_p[0][0], #5_p[0][0], #T_5_p[0])==1) return 1;
if (klik_lev1(#5_p[0][0], #6_p[0][0], #T_6_p[0])==1) return 1;
if (klik_lev1(#6_p[0][0], #7_p[0][0], #T_7_p[0])==1) return 1;
if (klik_lev1(#7_p[0][0], #8_p[0][0], #T_8_p[0])==1) return 1;
if (klik_lev1(#8_p[0][0], #9_p[0][0], #T_9_p[0])==1) return 1;
if (klik_lev1(#9_p[0][0], #10_p[0][0], #T_10_p[0])==1) return 1;
if (klik_lev1(#10_p[0][0], #v_p[0][0], #T_v_p[0])==1) return 1;
if (klik_lev1(#v_p[0][0], #5_d[0][0], #T_d_p[0])==1) return 1;
if (klik_lev1(#d_p[0][0], #k_p[0][0], #T_k_p[0])==1) return 1;

if (klik_lev1(#t_t[0][0], #2_t[0][0], #T_2_t[0])==1) return 1;
if (klik_lev1(#2_t[0][0], #3_t[0][0], #T_3_t[0])==1) return 1;
if (klik_lev1(#3_t[0][0], #4_t[0][0], #T_4_t[0])==1) return 1;
if (klik_lev1(#4_t[0][0], #5_t[0][0], #T_5_t[0])==1) return 1;
if (klik_lev1(#5_t[0][0], #6_t[0][0], #T_6_t[0])==1) return 1;
if (klik_lev1(#6_t[0][0], #7_t[0][0], #T_7_t[0])==1) return 1;
if (klik_lev1(#7_t[0][0], #8_t[0][0], #T_8_t[0])==1) return 1;
if (klik_lev1(#8_t[0][0], #9_t[0][0], #T_9_t[0])==1) return 1;
if (klik_lev1(#9_t[0][0], #10_t[0][0], #T_10_t[0])==1) return 1;
if (klik_lev1(#10_t[0][0], #v_t[0][0], #T_v_t[0])==1) return 1;
if (klik_lev1(#v_t[0][0], #5_d[0][0], #T_d_t[0])==1) return 1;
if (klik_lev1(#d_t[0][0], #k_t[0][0], #T_k_t[0])==1) return 1;
return 0;
}

//!!!!!!!
function klik_lev1(int #image_par, int #image_par1, int #T_t_par)
{
if (findimage(1, #image_par[0][0], 16777215, #x[0], #y[0], 350, 0, x_game, 130, w)==1)
{
if (findimage(1, #image_par1[0][0], 16777215, #x[0], #y[0], 0, 0, 220, 130, w)==1)
{
mousedbl(LEFT, x[0]+T_t_par[0], y[0]+T_t_par[1], 1, w);
return 1;
}
}
return 0;
}

//############################################################################################
function klik_niz()//поиск и клик по подходящей карте на поле
{
if (klik_niz1(#t_b[0][0], #2_b[0][0], #T_2_b[0])==1) return 1;
if (klik_niz1(#2_b[0][0], #3_b[0][0], #T_3_b[0])==1) return 1;
if (klik_niz1(#3_b[0][0], #4_b[0][0], #T_4_b[0])==1) return 1;
if (klik_niz1(#4_b[0][0], #5_b[0][0], #T_5_b[0])==1) return 1;
if (klik_niz1(#5_b[0][0], #6_b[0][0], #T_6_b[0])==1) return 1;
if (klik_niz1(#6_b[0][0], #7_b[0][0], #T_7_b[0])==1) return 1;
if (klik_niz1(#7_b[0][0], #8_b[0][0], #T_8_b[0])==1) return 1;
if (klik_niz1(#8_b[0][0], #9_b[0][0], #T_9_b[0])==1) return 1;
if (klik_niz1(#9_b[0][0], #10_b[0][0], #T_10_b[0])==1) return 1;
if (klik_niz1(#10_b[0][0], #v_b[0][0], #T_v_b[0])==1) return 1;
if (klik_niz1(#v_b[0][0], #d_b[0][0], #T_d_b[0])==1) return 1;
if (klik_niz1(#d_b[0][0], #k_b[0][0], #T_k_b[0])==1) return 1;

if (klik_niz1(#t_c[0][0], #2_c[0][0], #T_2_c[0])==1) return 1;
if (klik_niz1(#2_c[0][0], #3_c[0][0], #T_3_c[0])==1) return 1;
if (klik_niz1(#3_c[0][0], #4_c[0][0], #T_4_c[0])==1) return 1;
if (klik_niz1(#4_c[0][0], #5_c[0][0], #T_5_c[0])==1) return 1;
if (klik_niz1(#5_c[0][0], #6_c[0][0], #T_6_c[0])==1) return 1;
if (klik_niz1(#6_c[0][0], #7_c[0][0], #T_7_c[0])==1) return 1;
if (klik_niz1(#7_c[0][0], #8_c[0][0], #T_8_c[0])==1) return 1;
if (klik_niz1(#8_c[0][0], #9_c[0][0], #T_9_c[0])==1) return 1;
if (klik_niz1(#9_c[0][0], #10_c[0][0], #T_10_c[0])==1) return 1;
if (klik_niz1(#10_c[0][0], #v_c[0][0], #T_v_c[0])==1) return 1;
if (klik_niz1(#v_c[0][0], #d_c[0][0], #T_d_c[0])==1) return 1;
if (klik_niz1(#d_c[0][0], #k_c[0][0], #T_k_c[0])==1) return 1;

if (klik_niz1(#t_p[0][0], #2_p[0][0], #T_2_p[0])==1) return 1;
if (klik_niz1(#2_p[0][0], #3_p[0][0], #T_3_p[0])==1) return 1;
if (klik_niz1(#3_p[0][0], #4_p[0][0], #T_4_p[0])==1) return 1;
if (klik_niz1(#4_p[0][0], #5_p[0][0], #T_5_p[0])==1) return 1;
if (klik_niz1(#5_p[0][0], #6_p[0][0], #T_6_p[0])==1) return 1;
if (klik_niz1(#6_p[0][0], #7_p[0][0], #T_7_p[0])==1) return 1;
if (klik_niz1(#7_p[0][0], #8_p[0][0], #T_8_p[0])==1) return 1;
if (klik_niz1(#8_p[0][0], #9_p[0][0], #T_9_p[0])==1) return 1;
if (klik_niz1(#9_p[0][0], #10_p[0][0], #T_10_p[0])==1) return 1;
if (klik_niz1(#10_p[0][0], #v_p[0][0], #T_v_p[0])==1) return 1;
if (klik_niz1(#v_p[0][0], #d_p[0][0], #T_d_p[0])==1) return 1;
if (klik_niz1(#d_p[0][0], #k_p[0][0], #T_k_p[0])==1) return 1;

if (klik_niz1(#t_t[0][0], #2_t[0][0], #T_2_t[0])==1) return 1;
if (klik_niz1(#2_t[0][0], #3_t[0][0], #T_3_t[0])==1) return 1;
if (klik_niz1(#3_t[0][0], #4_t[0][0], #T_4_t[0])==1) return 1;
if (klik_niz1(#4_t[0][0], #5_t[0][0], #T_5_t[0])==1) return 1;
if (klik_niz1(#5_t[0][0], #6_t[0][0], #T_6_t[0])==1) return 1;
if (klik_niz1(#6_t[0][0], #7_t[0][0], #T_7_t[0])==1) return 1;
if (klik_niz1(#7_t[0][0], #8_t[0][0], #T_8_t[0])==1) return 1;
if (klik_niz1(#8_t[0][0], #9_t[0][0], #T_9_t[0])==1) return 1;
if (klik_niz1(#9_t[0][0], #10_t[0][0], #T_10_t[0])==1) return 1;
if (klik_niz1(#10_t[0][0], #v_t[0][0], #T_v_t[0])==1) return 1;
if (klik_niz1(#v_t[0][0], #d_t[0][0], #T_d_t[0])==1) return 1;
if (klik_niz1(#d_t[0][0], #k_t[0][0], #T_k_t[0])==1) return 1;
return 0;
}
//!!!!!!!
function klik_niz1(int #image_par, int #image_par1, int #T_t_par)
{
if (findimage(1, #image_par[0][0], 16777215, #x[0], #y[0], 350, 0, x_game, 130, w)==1)
{
if (findimage(1, #image_par1[0][0], 16777215, #x[0], #y[0], 0, 140, x_game, y_game, w)==1)
{
mousedbl(LEFT, x[0]+T_t_par[0], y[0]+T_t_par[1]+140, 1, w);
return 1;
}
}
return 0;
}

//############################################################################################
function peren_lev()//поиск и перенос подходящих карт на поле в другую колоду
{
if (all==31)//Если пройден первый круг магазина перносить младшие карты тоже
{
if (peren_lev1(#2_p1[0][0], #3_b[0][0], #3_c[0][0], #T_2_p1[0], #T_3_b[0], #T_3_c[0], #2_p_per)==1) return 1;
if (peren_lev1(#3_p1[0][0], #4_b[0][0], #4_c[0][0], #T_3_p1[0], #T_4_b[0], #T_4_c[0], #3_p_per)==1) return 1;
if (peren_lev1(#4_p1[0][0], #5_b[0][0], #5_c[0][0], #T_4_p1[0], #T_5_b[0], #T_5_c[0], #4_p_per)==1) return 1;
}
if (peren_lev1(#5_p1[0][0], #6_b[0][0], #6_c[0][0], #T_5_p1[0], #T_6_b[0], #T_6_c[0], #5_p_per)==1) return 1;
if (peren_lev1(#6_p1[0][0], #7_b[0][0], #7_c[0][0], #T_6_p1[0], #T_7_b[0], #T_7_c[0], #6_p_per)==1) return 1;
if (peren_lev1(#7_p1[0][0], #8_b[0][0], #8_c[0][0], #T_7_p1[0], #T_8_b[0], #T_8_c[0], #7_p_per)==1) return 1;
if (peren_lev1(#8_p1[0][0], #9_b[0][0], #9_c[0][0], #T_8_p1[0], #T_9_b[0], #T_9_c[0], #8_p_per)==1) return 1;
if (peren_lev1(#9_p1[0][0], #10_b[0][0], #10_c[0][0], #T_9_p1[0], #T_10_b[0], #T_10_c[0], #9_p_per)==1) return 1;
if (peren_lev1(#10_p1[0][0], #v_b[0][0], #v_c[0][0], #T_10_p1[0], #T_v_b[0], #T_v_c[0], #10_p_per)==1) return 1;
if (peren_lev1(#v_p1[0][0], #d_b[0][0], #d_c[0][0], #T_v_p1[0], #T_d_b[0], #T_d_c[0], #v_p_per)==1) return 1;
if (peren_lev1(#d_p1[0][0], #k_b[0][0], #k_c[0][0], #T_d_p1[0], #T_k_b[0], #T_k_c[0], #d_p_per)==1) return 1;

if (all==31)
{
if (peren_lev1(#2_t1[0][0], #3_b[0][0], #3_c[0][0], #T_2_t1[0], #T_3_b[0], #T_3_c[0], #2_t_per)==1) return 1;
if (peren_lev1(#3_t1[0][0], #4_b[0][0], #4_c[0][0], #T_3_t1[0], #T_4_b[0], #T_4_c[0], #3_t_per)==1) return 1;
if (peren_lev1(#4_t1[0][0], #5_b[0][0], #5_c[0][0], #T_4_t1[0], #T_5_b[0], #T_5_c[0], #4_t_per)==1) return 1;
}
if (peren_lev1(#5_t1[0][0], #6_b[0][0], #6_c[0][0], #T_5_t1[0], #T_6_b[0], #T_6_c[0], #5_t_per)==1) return 1;
if (peren_lev1(#6_t1[0][0], #7_b[0][0], #7_c[0][0], #T_6_t1[0], #T_7_b[0], #T_7_c[0], #6_t_per)==1) return 1;
if (peren_lev1(#7_t1[0][0], #8_b[0][0], #8_c[0][0], #T_7_t1[0], #T_8_b[0], #T_8_c[0], #7_t_per)==1) return 1;
if (peren_lev1(#8_t1[0][0], #9_b[0][0], #9_c[0][0], #T_8_t1[0], #T_9_b[0], #T_9_c[0], #8_t_per)==1) return 1;
if (peren_lev1(#9_t1[0][0], #10_b[0][0], #10_c[0][0], #T_9_t1[0], #T_10_b[0], #T_10_c[0], #9_t_per)==1) return 1;
if (peren_lev1(#10_t1[0][0], #v_b[0][0], #v_c[0][0], #T_10_t1[0], #T_v_b[0], #T_v_c[0], #10_t_per)==1) return 1;
if (peren_lev1(#v_t1[0][0], #d_b[0][0], #d_c[0][0], #T_v_t1[0], #T_d_b[0], #T_d_c[0], #v_t_per)==1) return 1;
if (peren_lev1(#d_t1[0][0], #k_b[0][0], #k_c[0][0], #T_d_t1[0], #T_k_b[0], #T_k_c[0], #d_t_per)==1) return 1;

if (all==31)
{
if (peren_lev1(#2_c1[0][0], #3_p[0][0], #3_t[0][0], #T_2_c1[0], #T_3_p[0], #T_3_t[0], #2_c_per)==1) return 1;
if (peren_lev1(#3_c1[0][0], #4_p[0][0], #4_t[0][0], #T_3_c1[0], #T_4_p[0], #T_4_t[0], #3_c_per)==1) return 1;
if (peren_lev1(#4_c1[0][0], #5_p[0][0], #5_t[0][0], #T_4_c1[0], #T_5_p[0], #T_5_t[0], #4_c_per)==1) return 1;
}
if (peren_lev1(#5_c1[0][0], #6_p[0][0], #6_t[0][0], #T_5_c1[0], #T_6_p[0], #T_6_t[0], #5_c_per)==1) return 1;
if (peren_lev1(#6_c1[0][0], #7_p[0][0], #7_t[0][0], #T_6_c1[0], #T_7_p[0], #T_7_t[0], #6_c_per)==1) return 1;
if (peren_lev1(#7_c1[0][0], #8_p[0][0], #8_t[0][0], #T_7_c1[0], #T_8_p[0], #T_8_t[0], #7_c_per)==1) return 1;
if (peren_lev1(#8_c1[0][0], #9_p[0][0], #9_t[0][0], #T_8_c1[0], #T_9_p[0], #T_9_t[0], #8_c_per)==1) return 1;
if (peren_lev1(#9_c1[0][0], #10_p[0][0], #10_t[0][0], #T_9_c1[0], #T_10_p[0], #T_10_t[0], #9_c_per)==1) return 1;
if (peren_lev1(#10_c1[0][0], #v_p[0][0], #v_t[0][0], #T_10_c1[0], #T_v_p[0], #T_v_t[0], #10_c_per)==1) return 1;
if (peren_lev1(#v_c1[0][0], #d_p[0][0], #d_t[0][0], #T_v_c1[0], #T_d_p[0], #T_d_t[0], #v_c_per)==1) return 1;
if (peren_lev1(#d_c1[0][0], #k_p[0][0], #k_t[0][0], #T_d_c1[0], #T_k_p[0], #T_k_t[0], #d_c_per)==1) return 1;

if (all==31)
{
if (peren_lev1(#2_b1[0][0], #3_p[0][0], #3_t[0][0], #T_2_b1[0], #T_3_p[0], #T_3_t[0], #2_b_per)==1) return 1;
if (peren_lev1(#3_b1[0][0], #4_p[0][0], #4_t[0][0], #T_3_b1[0], #T_4_p[0], #T_4_t[0], #3_b_per)==1) return 1;
if (peren_lev1(#4_b1[0][0], #5_p[0][0], #5_t[0][0], #T_4_b1[0], #T_5_p[0], #T_5_t[0], #4_b_per)==1) return 1;
}
if (peren_lev1(#5_b1[0][0], #6_p[0][0], #6_t[0][0], #T_5_b1[0], #T_6_p[0], #T_6_t[0], #5_b_per)==1) return 1;
if (peren_lev1(#6_b1[0][0], #7_p[0][0], #7_t[0][0], #T_6_b1[0], #T_7_p[0], #T_7_t[0], #6_b_per)==1) return 1;
if (peren_lev1(#7_b1[0][0], #8_p[0][0], #8_t[0][0], #T_7_b1[0], #T_8_p[0], #T_8_t[0], #7_b_per)==1) return 1;
if (peren_lev1(#8_b1[0][0], #9_p[0][0], #9_t[0][0], #T_8_b1[0], #T_9_p[0], #T_9_t[0], #8_b_per)==1) return 1;
if (peren_lev1(#9_b1[0][0], #10_p[0][0], #10_t[0][0], #T_9_b1[0], #T_10_p[0], #T_10_t[0], #9_b_per)==1) return 1;
if (peren_lev1(#10_b1[0][0], #v_p[0][0], #v_t[0][0], #T_10_b1[0], #T_v_p[0], #T_v_t[0], #10_b_per)==1) return 1;
if (peren_lev1(#v_b1[0][0], #d_p[0][0], #d_t[0][0], #T_v_b1[0], #T_d_p[0], #T_d_t[0], #v_b_per)==1) return 1;
if (peren_lev1(#d_b1[0][0], #k_p[0][0], #k_t[0][0], #T_d_b1[0], #T_k_p[0], #T_k_t[0], #d_b_per)==1) return 1;
return 0;

}
//!!!!!!!
function peren_lev1(int #image_par, int #image_par1, int #image_par2, int #T_t_par, int #T_t_par1, int #T_t_par2, int #p_per_par);
{
if (p_per_par==0)
{
if (findimage(1, #image_par[0][0], 16777215, #x1[0], #y1[0], 0, 0, 220, 130, w)==1)
{
if (findimage(1, #image_par1[0][0], 16777215, #x[0], #y[0], 0, 140, x_game, y_game, w)==1)
{
mousetransfer(LEFT, x1[0]+T_t_par[0], y1[0]+T_t_par[1], x[0]+T_t_par1[0], y[0]+T_t_par1[1]+140, skor, 1, w);
p_per_par=1;
return 1;
}
if (findimage(1, #image_par2[0][0], 16777215, #x[0], #y[0], 0, 140, x_game, y_game, w)==1)
{
mousetransfer(LEFT, x1[0]+T_t_par[0], y1[0]+T_t_par[1], x[0]+T_t_par2[0], y[0]+T_t_par2[1]+140, skor, 1, w);
p_per_par=1;
return 1;
}
}
}
return 0;
}

//############################################################################################
function peren_niz()//поиск и перенос карты на поле в другую колоду
{
if (all==31)//Если пройден первый круг магазина перносить младшие карты тоже
{
if (peren_niz1(#2_p1[0][0], #3_b[0][0], #3_c[0][0], #T_2_p1[0], #T_3_b[0], #T_3_c[0], #2_p_per)==1) return 1;
if (peren_niz1(#3_p1[0][0], #4_b[0][0], #4_c[0][0], #T_3_p1[0], #T_4_b[0], #T_4_c[0], #3_p_per)==1) return 1;
if (peren_niz1(#4_p1[0][0], #5_b[0][0], #5_c[0][0], #T_4_p1[0], #T_5_b[0], #T_5_c[0], #4_p_per)==1) return 1;
}
if (peren_niz1(#5_p1[0][0], #6_b[0][0], #6_c[0][0], #T_5_p1[0], #T_6_b[0], #T_6_c[0], #5_p_per)==1) return 1;
if (peren_niz1(#6_p1[0][0], #7_b[0][0], #7_c[0][0], #T_6_p1[0], #T_7_b[0], #T_7_c[0], #6_p_per)==1) return 1;
if (peren_niz1(#7_p1[0][0], #8_b[0][0], #8_c[0][0], #T_7_p1[0], #T_8_b[0], #T_8_c[0], #7_p_per)==1) return 1;
if (peren_niz1(#8_p1[0][0], #9_b[0][0], #9_c[0][0], #T_8_p1[0], #T_9_b[0], #T_9_c[0], #8_p_per)==1) return 1;
if (peren_niz1(#9_p1[0][0], #10_b[0][0], #10_c[0][0], #T_9_p1[0], #T_10_b[0], #T_10_c[0], #9_p_per)==1) return 1;
if (peren_niz1(#10_p1[0][0], #v_b[0][0], #v_c[0][0], #T_10_p1[0], #T_v_b[0], #T_v_c[0], #10_p_per)==1) return 1;
if (peren_niz1(#v_p1[0][0], #d_b[0][0], #d_c[0][0], #T_v_p1[0], #T_d_b[0], #T_d_c[0], #v_p_per)==1) return 1;
if (peren_niz1(#d_p1[0][0], #k_b[0][0], #k_c[0][0], #T_d_p1[0], #T_k_b[0], #T_k_c[0], #d_p_per)==1) return 1;

if (all==31)
{
if (peren_niz1(#2_t1[0][0], #3_b[0][0], #3_c[0][0], #T_2_t1[0], #T_3_b[0], #T_3_c[0], #2_t_per)==1) return 1;
if (peren_niz1(#3_t1[0][0], #4_b[0][0], #4_c[0][0], #T_3_t1[0], #T_4_b[0], #T_4_c[0], #3_t_per)==1) return 1;
if (peren_niz1(#4_t1[0][0], #5_b[0][0], #5_c[0][0], #T_4_t1[0], #T_5_b[0], #T_5_c[0], #4_t_per)==1) return 1;
}
if (peren_niz1(#5_t1[0][0], #6_b[0][0], #6_c[0][0], #T_5_t1[0], #T_6_b[0], #T_6_c[0], #5_t_per)==1) return 1;
if (peren_niz1(#6_t1[0][0], #7_b[0][0], #7_c[0][0], #T_6_t1[0], #T_7_b[0], #T_7_c[0], #6_t_per)==1) return 1;
if (peren_niz1(#7_t1[0][0], #8_b[0][0], #8_c[0][0], #T_7_t1[0], #T_8_b[0], #T_8_c[0], #7_t_per)==1) return 1;
if (peren_niz1(#8_t1[0][0], #9_b[0][0], #9_c[0][0], #T_8_t1[0], #T_9_b[0], #T_9_c[0], #8_t_per)==1) return 1;
if (peren_niz1(#9_t1[0][0], #10_b[0][0], #10_c[0][0], #T_9_t1[0], #T_10_b[0], #T_10_c[0], #9_t_per)==1) return 1;
if (peren_niz1(#10_t1[0][0], #v_b[0][0], #v_c[0][0], #T_10_t1[0], #T_v_b[0], #T_v_c[0], #10_t_per)==1) return 1;
if (peren_niz1(#v_t1[0][0], #d_b[0][0], #d_c[0][0], #T_v_t1[0], #T_d_b[0], #T_d_c[0], #v_t_per)==1) return 1;
if (peren_niz1(#d_t1[0][0], #k_b[0][0], #k_c[0][0], #T_d_t1[0], #T_k_b[0], #T_k_c[0], #d_t_per)==1) return 1;

if (all==31)
{
if (peren_niz1(#2_c1[0][0], #3_p[0][0], #3_t[0][0], #T_2_c1[0], #T_3_p[0], #T_3_t[0], #2_c_per)==1) return 1;
if (peren_niz1(#3_c1[0][0], #4_p[0][0], #4_t[0][0], #T_3_c1[0], #T_4_p[0], #T_4_t[0], #3_c_per)==1) return 1;
if (peren_niz1(#4_c1[0][0], #5_p[0][0], #5_t[0][0], #T_4_c1[0], #T_5_p[0], #T_5_t[0], #4_c_per)==1) return 1;
}
if (peren_niz1(#5_c1[0][0], #6_p[0][0], #6_t[0][0], #T_5_c1[0], #T_6_p[0], #T_6_t[0], #5_c_per)==1) return 1;
if (peren_niz1(#6_c1[0][0], #7_p[0][0], #7_t[0][0], #T_6_c1[0], #T_7_p[0], #T_7_t[0], #6_c_per)==1) return 1;
if (peren_niz1(#7_c1[0][0], #8_p[0][0], #8_t[0][0], #T_7_c1[0], #T_8_p[0], #T_8_t[0], #7_c_per)==1) return 1;
if (peren_niz1(#8_c1[0][0], #9_p[0][0], #9_t[0][0], #T_8_c1[0], #T_9_p[0], #T_9_t[0], #8_c_per)==1) return 1;
if (peren_niz1(#9_c1[0][0], #10_p[0][0], #10_t[0][0], #T_9_c1[0], #T_10_p[0], #T_10_t[0], #9_c_per)==1) return 1;
if (peren_niz1(#10_c1[0][0], #v_p[0][0], #v_t[0][0], #T_10_c1[0], #T_v_p[0], #T_v_t[0], #10_c_per)==1) return 1;
if (peren_niz1(#v_c1[0][0], #d_p[0][0], #d_t[0][0], #T_v_c1[0], #T_d_p[0], #T_d_t[0], #v_c_per)==1) return 1;
if (peren_niz1(#d_c1[0][0], #k_p[0][0], #k_t[0][0], #T_d_c1[0], #T_k_p[0], #T_k_t[0], #d_c_per)==1) return 1;

if (all==31)
{
if (peren_niz1(#2_b1[0][0], #3_p[0][0], #3_t[0][0], #T_2_b1[0], #T_3_p[0], #T_3_t[0], #2_b_per)==1) return 1;
if (peren_niz1(#3_b1[0][0], #4_p[0][0], #4_t[0][0], #T_3_b1[0], #T_4_p[0], #T_4_t[0], #3_b_per)==1) return 1;
if (peren_niz1(#4_b1[0][0], #5_p[0][0], #5_t[0][0], #T_4_b1[0], #T_5_p[0], #T_5_t[0], #4_b_per)==1) return 1;
}
if (peren_niz1(#5_b1[0][0], #6_p[0][0], #6_t[0][0], #T_5_b1[0], #T_6_p[0], #T_6_t[0], #5_b_per)==1) return 1;
if (peren_niz1(#6_b1[0][0], #7_p[0][0], #7_t[0][0], #T_6_b1[0], #T_7_p[0], #T_7_t[0], #6_b_per)==1) return 1;
if (peren_niz1(#7_b1[0][0], #8_p[0][0], #8_t[0][0], #T_7_b1[0], #T_8_p[0], #T_8_t[0], #7_b_per)==1) return 1;
if (peren_niz1(#8_b1[0][0], #9_p[0][0], #9_t[0][0], #T_8_b1[0], #T_9_p[0], #T_9_t[0], #8_b_per)==1) return 1;
if (peren_niz1(#9_b1[0][0], #10_p[0][0], #10_t[0][0], #T_9_b1[0], #T_10_p[0], #T_10_t[0], #9_b_per)==1) return 1;
if (peren_niz1(#10_b1[0][0], #v_p[0][0], #v_t[0][0], #T_10_b1[0], #T_v_p[0], #T_v_t[0], #10_b_per)==1) return 1;
if (peren_niz1(#v_b1[0][0], #d_p[0][0], #d_t[0][0], #T_v_b1[0], #T_d_p[0], #T_d_t[0], #v_b_per)==1) return 1;
if (peren_niz1(#d_b1[0][0], #k_p[0][0], #k_t[0][0], #T_d_b1[0], #T_k_p[0], #T_k_t[0], #d_b_per)==1) return 1;
return 0;
}
//!!!!!!!
function peren_niz1(int #image_par, int #image_par1, int #image_par2, int #T_t_par, int #T_t_par1, int #T_t_par2, int #p_per_par);
{
if (p_per_par==0)
{
if (findimage(1, #image_par[0][0], 16777215, #x1[0], #y1[0], 0, 140, x_game, y_game, w)==1)
{
if (findimage(1, #image_par1[0][0], 16777215, #x[0], #y[0], 0, 140, x_game, y_game, w)==1)
{
mousetransfer(LEFT, x1[0]+T_t_par[0], y1[0]+T_t_par[1]+140, x[0]+T_t_par1[0], y[0]+T_t_par1[1]+140, skor, 1, w);
p_per_par=1;
return 1;
}
if (findimage(1, #image_par2[0][0], 16777215, #x[0], #y[0], 0, 140, x_game, y_game, w)==1)
{
mousetransfer(LEFT, x1[0]+T_t_par[0], y1[0]+T_t_par[1]+140, x[0]+T_t_par2[0], y[0]+T_t_par2[1]+140, skor, 1, w);
p_per_par=1;
return 1;
}
}
}

return 0;
}

//############################################################################################
function peren_king_niz()//поиск и перенес короля на поле на пустую ячейку
{
if (peren_king_niz1(#k_p1[0][0], #pyst_pol1[0][0], #pyst_pol2[0][0], #pyst_pol3[0][0], #pyst_pol4[0][0], #pyst_pol5[0][0], #pyst_pol6[0][0], #pyst_pol7[0][0],
#T_k_p1[0], #T_pyst_pol1[0], #T_pyst_pol2[0], #T_pyst_pol3[0], #T_pyst_pol4[0], #T_pyst_pol5[0], #T_pyst_pol6[0], #T_pyst_pol7[0], #k_p_per)==1) return 1;
if (peren_king_niz1(#k_t1[0][0], #pyst_pol1[0][0], #pyst_pol2[0][0], #pyst_pol3[0][0], #pyst_pol4[0][0], #pyst_pol5[0][0], #pyst_pol6[0][0], #pyst_pol7[0][0],
#T_k_t1[0], #T_pyst_pol1[0], #T_pyst_pol2[0], #T_pyst_pol3[0], #T_pyst_pol4[0], #T_pyst_pol5[0], #T_pyst_pol6[0], #T_pyst_pol7[0], #k_t_per)==1) return 1;
if (peren_king_niz1(#k_c1[0][0], #pyst_pol1[0][0], #pyst_pol2[0][0], #pyst_pol3[0][0], #pyst_pol4[0][0], #pyst_pol5[0][0], #pyst_pol6[0][0], #pyst_pol7[0][0],
#T_k_c1[0], #T_pyst_pol1[0], #T_pyst_pol2[0], #T_pyst_pol3[0], #T_pyst_pol4[0], #T_pyst_pol5[0], #T_pyst_pol6[0], #T_pyst_pol7[0], #k_c_per)==1) return 1;
if (peren_king_niz1(#k_b1[0][0], #pyst_pol1[0][0], #pyst_pol2[0][0], #pyst_pol3[0][0], #pyst_pol4[0][0], #pyst_pol5[0][0], #pyst_pol6[0][0], #pyst_pol7[0][0],
#T_k_b1[0], #T_pyst_pol1[0], #T_pyst_pol2[0], #T_pyst_pol3[0], #T_pyst_pol4[0], #T_pyst_pol5[0], #T_pyst_pol6[0], #T_pyst_pol7[0], #k_b_per)==1) return 1;
return 0;
}
//!!!!!!!
function peren_king_niz1(int #image_par, int #image_par1, int #image_par2, int #image_par3, int #image_par4, int #image_par5, int #image_par6,
int #image_par7, int #T_t_par, int #T_t_par1, int #T_t_par2, int #T_t_par3, int #T_t_par4, int #T_t_par5, int #T_t_par6, int #T_t_par7, int #p_per_par)
{
if (p_per_par==0)
{
if (findimage(1, #image_par[0][0], 16777215, #x1[0], #y1[0], 0, 140, x_game, 260, w)==1)
{
if (findimage(1, #image_par1[0][0], 16777215, #x[0], #y[0], 0, 140, x_game, y_game, w)==1)
{
mousetransfer(LEFT, x1[0]+T_t_par[0], y1[0]+T_t_par[1]+140, x[0]+T_t_par1[0], y[0]+T_t_par1[1]+140, skor, 1, w);
p_per_par=1;
return 1;
}
if (findimage(1, #image_par2[0][0], 16777215, #x[0], #y[0], 0, 140, x_game, 260, w)==1)
{
mousetransfer(LEFT, x1[0]+T_t_par[0], y1[0]+T_t_par[1]+140, x[0]+T_t_par2[0], y[0]+T_t_par2[1]+140, skor, 1, w);
p_per_par=1;
return 1;
}
if (findimage(1, #image_par3[0][0], 16777215, #x[0], #y[0], 0, 140, x_game, 260, w)==1)
{
mousetransfer(LEFT, x1[0]+T_t_par[0], y1[0]+T_t_par[1]+140, x[0]+T_t_par3[0], y[0]+T_t_par3[1]+140, skor, 1, w);
p_per_par=1;
return 1;
}
if (findimage(1, #image_par4[0][0], 16777215, #x[0], #y[0], 0, 140, x_game, 260, w)==1)
{
mousetransfer(LEFT, x1[0]+T_t_par[0], y1[0]+T_t_par[1]+140, x[0]+T_t_par4[0], y[0]+T_t_par4[1]+140, skor, 1, w);
p_per_par=1;
return 1;
}
if (findimage(1, #image_par5[0][0], 16777215, #x[0], #y[0], 0, 0, x_game, 260, w)==1)
{
mousetransfer(LEFT, x1[0]+T_t_par[0], y1[0]+T_t_par[1]+140, x[0]+T_t_par5[0], y[0]+T_t_par5[1], skor, 1, w);
p_per_par=1;
return 1;
}
if (findimage(1, #image_par6[0][0], 16777215, #x[0], #y[0], 0, 0, x_game, 260, w)==1)
{
mousetransfer(LEFT, x1[0]+T_t_par[0], y1[0]+T_t_par[1]+140, x[0]+T_t_par6[0], y[0]+T_t_par6[1], skor, 1, w);
p_per_par=1;
return 1;
}
if (findimage(1, #image_par7[0][0], 16777215, #x[0], #y[0], 0, 0, x_game, 260, w)==1)
{
mousetransfer(LEFT, x1[0]+T_t_par[0], y1[0]+T_t_par[1]+140, x[0]+T_t_par7[0], y[0]+T_t_par7[1], skor, 1, w);
p_per_par=1;
return 1;
}
}
}

return 0;
}

//############################################################################################
function peren_king_lev()//поиск и перенос окрытого с магазина короля на пустую ячейку
{
if (peren_king_lev1(#k_p1[0][0], #pyst_pol1[0][0], #pyst_pol2[0][0], #pyst_pol3[0][0], #pyst_pol4[0][0], #pyst_pol5[0][0], #pyst_pol6[0][0], #pyst_pol7[0][0],
#T_k_p1[0], #T_pyst_pol1[0], #T_pyst_pol2[0], #T_pyst_pol3[0], #T_pyst_pol4[0], #T_pyst_pol5[0], #T_pyst_pol6[0], #T_pyst_pol7[0], #k_p_per)==1) return 1;
if (peren_king_lev1(#k_t1[0][0], #pyst_pol1[0][0], #pyst_pol2[0][0], #pyst_pol3[0][0], #pyst_pol4[0][0], #pyst_pol5[0][0], #pyst_pol6[0][0], #pyst_pol7[0][0],
#T_k_t1[0], #T_pyst_pol1[0], #T_pyst_pol2[0], #T_pyst_pol3[0], #T_pyst_pol4[0], #T_pyst_pol5[0], #T_pyst_pol6[0], #T_pyst_pol7[0], #k_t_per)==1) return 1;
if (peren_king_lev1(#k_c1[0][0], #pyst_pol1[0][0], #pyst_pol2[0][0], #pyst_pol3[0][0], #pyst_pol4[0][0], #pyst_pol5[0][0], #pyst_pol6[0][0], #pyst_pol7[0][0],
#T_k_c1[0], #T_pyst_pol1[0], #T_pyst_pol2[0], #T_pyst_pol3[0], #T_pyst_pol4[0], #T_pyst_pol5[0], #T_pyst_pol6[0], #T_pyst_pol7[0], #k_c_per)==1) return 1;
if (peren_king_lev1(#k_b1[0][0], #pyst_pol1[0][0], #pyst_pol2[0][0], #pyst_pol3[0][0], #pyst_pol4[0][0], #pyst_pol5[0][0], #pyst_pol6[0][0], #pyst_pol7[0][0],
#T_k_b1[0], #T_pyst_pol1[0], #T_pyst_pol2[0], #T_pyst_pol3[0], #T_pyst_pol4[0], #T_pyst_pol5[0], #T_pyst_pol6[0], #T_pyst_pol7[0], #k_b_per)==1) return 1;
return 0;
}
//!!!!!!!
function peren_king_lev1(int #image_par, int #image_par1, int #image_par2, int #image_par3, int #image_par4, int #image_par5, int #image_par6,
int #image_par7, int #T_t_par, int #T_t_par1, int #T_t_par2, int #T_t_par3, int #T_t_par4, int #T_t_par5, int #T_t_par6, int #T_t_par7, int #p_per_par);
{
if (p_per_par==0)
{
if (findimage(1, #image_par[0][0], 16777215, #x1[0], #y1[0], 0, 0, 220, 130, w)==1)
{
if (findimage(1, #image_par1[0][0], 16777215, #x[0], #y[0], 0, 140, x_game, 260, w)==1)
{
mousetransfer(LEFT, x1[0]+T_t_par[0], y1[0]+T_t_par[1], x[0]+T_t_par1[0], y[0]+T_t_par1[1]+140, skor, 1, w);
p_per_par=1;
return 1;
}
if (findimage(1, #image_par2[0][0], 16777215, #x[0], #y[0], 0, 140, x_game, 260, w)==1)
{
mousetransfer(LEFT, x1[0]+T_t_par[0], y1[0]+T_t_par[1], x[0]+T_t_par2[0], y[0]+T_t_par2[1]+140, skor, 1, w);
p_per_par=1;
return 1;
}
if (findimage(1, #image_par3[0][0], 16777215, #x[0], #y[0], 0, 140, x_game, 260, w)==1)
{
mousetransfer(LEFT, x1[0]+T_t_par[0], y1[0]+T_t_par[1], x[0]+T_t_par3[0], y[0]+T_t_par3[1]+140, skor, 1, w);
p_per_par=1;
return 1;
}
if (findimage(1, #image_par4[0][0], 16777215, #x[0], #y[0], 0, 140, x_game, 260, w)==1)
{
mousetransfer(LEFT, x1[0]+T_t_par[0], y1[0]+T_t_par[1], x[0]+T_t_par4[0], y[0]+T_t_par4[1]+140, skor, 1, w);
p_per_par=1;
return 1;
}
if (findimage(1, #image_par5[0][0], 16777215, #x[0], #y[0], 0, 0, x_game, 260, w)==1)
{
mousetransfer(LEFT, x1[0]+T_t_par[0], y1[0]+T_t_par[1], x[0]+T_t_par5[0], y[0]+T_t_par5[1], skor, 1, w);
p_per_par=1;
return 1;
}
if (findimage(1, #image_par6[0][0], 16777215, #x[0], #y[0], 0, 0, x_game, 260, w)==1)
{
mousetransfer(LEFT, x1[0]+T_t_par[0], y1[0]+T_t_par[1], x[0]+T_t_par6[0], y[0]+T_t_par6[1], skor, 1, w);
p_per_par=1;
return 1;
}
if (findimage(1, #image_par7[0][0], 16777215, #x[0], #y[0], 0, 0, x_game, 260, w)==1)
{
mousetransfer(LEFT, x1[0]+T_t_par[0], y1[0]+T_t_par[1], x[0]+T_t_par7[0], y[0]+T_t_par7[1], skor, 1, w);
p_per_par=1;
return 1;
}
}
}

return 0;
}
//############################################################################################

function obn_kart()//Обнулить ходы карт
{
2_b_per=0; 3_b_per=0; 4_b_per=0; 5_b_per=0; 6_b_per=0; 7_b_per=0; 8_b_per=0; 9_b_per=0; 10_b_per=0; v_b_per=0; d_b_per=0; k_b_per=0; t_b_per=0;
2_p_per=0; 3_p_per=0; 4_p_per=0; 5_p_per=0; 6_p_per=0; 7_p_per=0; 8_p_per=0; 9_p_per=0; 10_p_per=0; v_p_per=0; d_p_per=0; k_p_per=0; t_p_per=0;
2_t_per=0; 3_t_per=0; 4_t_per=0; 5_t_per=0; 6_t_per=0; 7_t_per=0; 8_t_per=0; 9_t_per=0; 10_t_per=0; v_t_per=0; d_t_per=0; k_t_per=0; t_t_per=0;
2_c_per=0; 3_c_per=0; 4_c_per=0; 5_c_per=0; 6_c_per=0; 7_c_per=0; 8_c_per=0; 9_c_per=0; 10_c_per=0; v_c_per=0; d_c_per=0; k_c_per=0; t_c_per=0;
}

//############################################################################################
function move_game()//установка необходимого размера окна
{
w=window (-1, "Solitaire", -1);
if (w==0)
{
messagebox ("Запустите косынку.");
return -1;
}
x_game=800; y_game=519;
w.widthclient=x_game;w.heightclient=y_game;w.leftclient=16;w.topclient=59;w.name="Косынка - Игру ведет Кибор";

int color, xe, ye;
getdisplay(color, xe, ye);//Узнать глубину цвета и разрешение экрана
//messagebox (color);
if (color!=32)
{
if (senddisplay(32, xe, ye)==0)//Установить 32 бита цвет экрана
{
messagebox ("Не могу установить глубину цвета экрана 32 бита.");
return -1;
}
sleep(1000);
messagebox ("Глубина цвета экрана установлена в 32 бита."+" Перезапустите программу пасьянс.");
return -1;
}

moveclient(w);
int n=0;
naz: w=window (-1, "Solitaire", -1);
if (w.name !="Косынка - Игру ведет Кибор" || w.widthclient!=x_game || w.heightclient!=y_game)
{
moveclient(w);
sleep(50);
n++;
if (n>200)
{
messagebox ("Не могу установить заголовок и размеры окна.");
return -1;
}
goto naz;
}
return 1;
}

//############################################################################################
function image_verxn()//создать верхие часть рисунков копировав верхние части изображений карт
{
int x1, y1;

x1=0;
xs: if (x1<4){y1=0;
ys: if (y1<17){
2_b1[x1][y1]=2_b[x1][y1];
2_c1[x1][y1]=2_c[x1][y1];
2_p1[x1][y1]=2_p[x1][y1];
2_t1[x1][y1]=2_t[x1][y1];

3_b1[x1][y1]=3_b[x1][y1];
3_c1[x1][y1]=3_c[x1][y1];
3_p1[x1][y1]=3_p[x1][y1];
3_t1[x1][y1]=3_t[x1][y1];

4_b1[x1][y1]=4_b[x1][y1];
4_c1[x1][y1]=4_c[x1][y1];
4_p1[x1][y1]=4_p[x1][y1];
4_t1[x1][y1]=4_t[x1][y1];

5_b1[x1][y1]=5_b[x1][y1];
5_c1[x1][y1]=5_c[x1][y1];
5_p1[x1][y1]=5_p[x1][y1];
5_t1[x1][y1]=5_t[x1][y1];

6_b1[x1][y1]=6_b[x1][y1];
6_c1[x1][y1]=6_c[x1][y1];
6_p1[x1][y1]=6_p[x1][y1];
6_t1[x1][y1]=6_t[x1][y1];

7_b1[x1][y1]=7_b[x1][y1];
7_c1[x1][y1]=7_c[x1][y1];
7_p1[x1][y1]=7_p[x1][y1];
7_t1[x1][y1]=7_t[x1][y1];

8_b1[x1][y1]=8_b[x1][y1];
8_c1[x1][y1]=8_c[x1][y1];
8_p1[x1][y1]=8_p[x1][y1];
8_t1[x1][y1]=8_t[x1][y1];

9_b1[x1][y1]=9_b[x1][y1];
9_c1[x1][y1]=9_c[x1][y1];
9_p1[x1][y1]=9_p[x1][y1];
9_t1[x1][y1]=9_t[x1][y1];

10_b1[x1][y1]=10_b[x1][y1];
10_c1[x1][y1]=10_c[x1][y1];
10_p1[x1][y1]=10_p[x1][y1];
10_t1[x1][y1]=10_t[x1][y1];

v_b1[x1][y1]=v_b[x1][y1];
v_c1[x1][y1]=v_c[x1][y1];
v_p1[x1][y1]=v_p[x1][y1];
v_t1[x1][y1]=v_t[x1][y1];

d_b1[x1][y1]=d_b[x1][y1];
d_c1[x1][y1]=d_c[x1][y1];
d_p1[x1][y1]=d_p[x1][y1];
d_t1[x1][y1]=d_t[x1][y1];

k_b1[x1][y1]=k_b[x1][y1];
k_c1[x1][y1]=k_c[x1][y1];
k_p1[x1][y1]=k_p[x1][y1];
k_t1[x1][y1]=k_t[x1][y1];

t_b1[x1][y1]=t_b[x1][y1];
t_c1[x1][y1]=t_c[x1][y1];
t_p1[x1][y1]=t_p[x1][y1];
t_t1[x1][y1]=t_t[x1][y1];
y1++;goto ys;}x1++;goto xs;}
}

//############################################################################################
function zagr_cart()//Загрузка карт
{
loadimage (#pyst_pol1[0][0], "C:\image_win7\pyst_pol1.bmp");
loadimage (#pyst_pol2[0][0], "C:\image_win7\pyst_pol2.bmp");
loadimage (#pyst_pol3[0][0], "C:\image_win7\pyst_pol3.bmp");
loadimage (#pyst_pol4[0][0], "C:\image_win7\pyst_pol4.bmp");
loadimage (#pyst_pol5[0][0], "C:\image_win7\pyst_pol5.bmp");
loadimage (#pyst_pol6[0][0], "C:\image_win7\pyst_pol6.bmp");
loadimage (#pyst_pol7[0][0], "C:\image_win7\pyst_pol7.bmp");

loadimage (#pyst_mag[0][0], "C:\image_win7\pyst_mag.bmp");

loadimage (#2_b[0][0], "C:\image_win7\2_b.bmp");
loadimage (#3_b[0][0], "C:\image_win7\3_b.bmp");
loadimage (#4_b[0][0], "C:\image_win7\4_b.bmp");
loadimage (#5_b[0][0], "C:\image_win7\5_b.bmp");
loadimage (#6_b[0][0], "C:\image_win7\6_b.bmp");
loadimage (#7_b[0][0], "C:\image_win7\7_b.bmp");
loadimage (#8_b[0][0], "C:\image_win7\8_b.bmp");
loadimage (#9_b[0][0], "C:\image_win7\9_b.bmp");
loadimage (#10_b[0][0], "C:\image_win7\10_b.bmp");
loadimage (#v_b[0][0], "C:\image_win7\v_b.bmp");
loadimage (#d_b[0][0], "C:\image_win7\d_b.bmp");
loadimage (#k_b[0][0], "C:\image_win7\k_b.bmp");
loadimage (#t_b[0][0], "C:\image_win7\t_b.bmp");

loadimage (#2_c[0][0], "C:\image_win7\2_c.bmp");
loadimage (#3_c[0][0], "C:\image_win7\3_c.bmp");
loadimage (#4_c[0][0], "C:\image_win7\4_c.bmp");
loadimage (#5_c[0][0], "C:\image_win7\5_c.bmp");
loadimage (#6_c[0][0], "C:\image_win7\6_c.bmp");
loadimage (#7_c[0][0], "C:\image_win7\7_c.bmp");
loadimage (#8_c[0][0], "C:\image_win7\8_c.bmp");
loadimage (#9_c[0][0], "C:\image_win7\9_c.bmp");
loadimage (#10_c[0][0], "C:\image_win7\10_c.bmp");
loadimage (#v_c[0][0], "C:\image_win7\v_c.bmp");
loadimage (#d_c[0][0], "C:\image_win7\d_c.bmp");
loadimage (#k_c[0][0], "C:\image_win7\k_c.bmp");
loadimage (#t_c[0][0], "C:\image_win7\t_c.bmp");

loadimage (#2_p[0][0], "C:\image_win7\2_p.bmp");
loadimage (#3_p[0][0], "C:\image_win7\3_p.bmp");
loadimage (#4_p[0][0], "C:\image_win7\4_p.bmp");
loadimage (#5_p[0][0], "C:\image_win7\5_p.bmp");
loadimage (#6_p[0][0], "C:\image_win7\6_p.bmp");
loadimage (#7_p[0][0], "C:\image_win7\7_p.bmp");
loadimage (#8_p[0][0], "C:\image_win7\8_p.bmp");
loadimage (#9_p[0][0], "C:\image_win7\9_p.bmp");
loadimage (#10_p[0][0], "C:\image_win7\10_p.bmp");
loadimage (#v_p[0][0], "C:\image_win7\v_p.bmp");
loadimage (#d_p[0][0], "C:\image_win7\d_p.bmp");
loadimage (#k_p[0][0], "C:\image_win7\k_p.bmp");
loadimage (#t_p[0][0], "C:\image_win7\t_p.bmp");

loadimage (#2_t[0][0], "C:\image_win7\2_t.bmp");
loadimage (#3_t[0][0], "C:\image_win7\3_t.bmp");
loadimage (#4_t[0][0], "C:\image_win7\4_t.bmp");
loadimage (#5_t[0][0], "C:\image_win7\5_t.bmp");
loadimage (#6_t[0][0], "C:\image_win7\6_t.bmp");
loadimage (#7_t[0][0], "C:\image_win7\7_t.bmp");
loadimage (#8_t[0][0], "C:\image_win7\8_t.bmp");
loadimage (#9_t[0][0], "C:\image_win7\9_t.bmp");
loadimage (#10_t[0][0], "C:\image_win7\10_t.bmp");
loadimage (#v_t[0][0], "C:\image_win7\v_t.bmp");
loadimage (#d_t[0][0], "C:\image_win7\d_t.bmp");
loadimage (#k_t[0][0], "C:\image_win7\k_t.bmp");
loadimage (#t_t[0][0], "C:\image_win7\t_t.bmp");
}

//############################################################################################
function centr_image()//Узнать половинные размеры изображений для указания смещений относительно верхнего левого угла
{
T_pyst_pol1[0]=imagewidth(#pyst_pol1[0][0])/2; T_pyst_pol1[1]=imageheight(#pyst_pol1[0][0])/2;
T_pyst_pol2[0]=imagewidth(#pyst_pol2[0][0])/2; T_pyst_pol2[1]=imageheight(#pyst_pol2[0][0])/2;
T_pyst_pol3[0]=imagewidth(#pyst_pol3[0][0])/2; T_pyst_pol3[1]=imageheight(#pyst_pol3[0][0])/2;
T_pyst_pol4[0]=imagewidth(#pyst_pol4[0][0])/2; T_pyst_pol4[1]=imageheight(#pyst_pol4[0][0])/2;
T_pyst_pol5[0]=imagewidth(#pyst_pol5[0][0]); T_pyst_pol5[1]=imageheight(#pyst_pol5[0][0]);
T_pyst_pol6[0]=imagewidth(#pyst_pol6[0][0]); T_pyst_pol6[1]=imageheight(#pyst_pol6[0][0]);
T_pyst_pol7[0]=imagewidth(#pyst_pol7[0][0]); T_pyst_pol7[1]=imageheight(#pyst_pol7[0][0]);

T_2_b[0]=imagewidth(#2_b[0][0])/2; T_2_b[1]=imageheight(#2_b[0][0])/2;
T_3_b[0]=imagewidth(#3_b[0][0])/2; T_3_b[1]=imageheight(#3_b[0][0])/2;
T_4_b[0]=imagewidth(#4_b[0][0])/2; T_4_b[1]=imageheight(#4_b[0][0])/2;
T_5_b[0]=imagewidth(#5_b[0][0])/2; T_5_b[1]=imageheight(#5_b[0][0])/2;
T_6_b[0]=imagewidth(#6_b[0][0])/2; T_6_b[1]=imageheight(#6_b[0][0])/2;
T_7_b[0]=imagewidth(#7_b[0][0])/2; T_7_b[1]=imageheight(#7_b[0][0])/2;
T_8_b[0]=imagewidth(#8_b[0][0])/2; T_8_b[1]=imageheight(#8_b[0][0])/2;
T_9_b[0]=imagewidth(#9_b[0][0])/2; T_9_b[1]=imageheight(#9_b[0][0])/2;
T_10_b[0]=imagewidth(#10_b[0][0])/2; T_10_b[1]=imageheight(#10_b[0][0])/2;
T_v_b[0]=imagewidth(#v_b[0][0])/2; T_v_b[1]=imageheight(#v_b[0][0])/2;
T_d_b[0]=imagewidth(#d_b[0][0])/2; T_d_b[1]=imageheight(#d_b[0][0])/2;
T_k_b[0]=imagewidth(#k_b[0][0])/2; T_k_b[1]=imageheight(#k_b[0][0])/2;
T_t_b[0]=imagewidth(#t_b[0][0])/2; T_t_b[1]=imageheight(#t_b[0][0])/2;

T_2_c[0]=imagewidth(#2_c[0][0])/2; T_2_c[1]=imageheight(#2_c[0][0])/2;
T_3_c[0]=imagewidth(#3_c[0][0])/2; T_3_c[1]=imageheight(#3_c[0][0])/2;
T_4_c[0]=imagewidth(#4_c[0][0])/2; T_4_c[1]=imageheight(#4_c[0][0])/2;
T_5_c[0]=imagewidth(#5_c[0][0])/2; T_5_c[1]=imageheight(#5_c[0][0])/2;
T_6_c[0]=imagewidth(#6_c[0][0])/2; T_6_c[1]=imageheight(#6_c[0][0])/2;
T_7_c[0]=imagewidth(#7_c[0][0])/2; T_7_c[1]=imageheight(#7_c[0][0])/2;
T_8_c[0]=imagewidth(#8_c[0][0])/2; T_8_c[1]=imageheight(#8_c[0][0])/2;
T_9_c[0]=imagewidth(#9_c[0][0])/2; T_9_c[1]=imageheight(#9_c[0][0])/2;
T_10_c[0]=imagewidth(#10_c[0][0])/2; T_10_c[1]=imageheight(#10_c[0][0])/2;
T_v_c[0]=imagewidth(#v_c[0][0])/2; T_v_c[1]=imageheight(#v_c[0][0])/2;
T_d_c[0]=imagewidth(#d_c[0][0])/2; T_d_c[1]=imageheight(#d_c[0][0])/2;
T_k_c[0]=imagewidth(#k_c[0][0])/2; T_k_c[1]=imageheight(#k_c[0][0])/2;
T_t_c[0]=imagewidth(#t_c[0][0])/2; T_t_c[1]=imageheight(#t_c[0][0])/2;

T_2_t[0]=imagewidth(#2_t[0][0])/2; T_2_t[1]=imageheight(#2_t[0][0])/2;
T_3_t[0]=imagewidth(#3_t[0][0])/2; T_3_t[1]=imageheight(#3_t[0][0])/2;
T_4_t[0]=imagewidth(#4_t[0][0])/2; T_4_t[1]=imageheight(#4_t[0][0])/2;
T_5_t[0]=imagewidth(#5_t[0][0])/2; T_5_t[1]=imageheight(#5_t[0][0])/2;
T_6_t[0]=imagewidth(#6_t[0][0])/2; T_6_t[1]=imageheight(#6_t[0][0])/2;
T_7_t[0]=imagewidth(#7_t[0][0])/2; T_7_t[1]=imageheight(#7_t[0][0])/2;
T_8_t[0]=imagewidth(#8_t[0][0])/2; T_8_t[1]=imageheight(#8_t[0][0])/2;
T_9_t[0]=imagewidth(#9_t[0][0])/2; T_9_t[1]=imageheight(#9_t[0][0])/2;
T_10_t[0]=imagewidth(#10_t[0][0])/2; T_10_t[1]=imageheight(#10_t[0][0])/2;
T_v_t[0]=imagewidth(#v_t[0][0])/2; T_v_t[1]=imageheight(#v_t[0][0])/2;
T_d_t[0]=imagewidth(#d_t[0][0])/2; T_d_t[1]=imageheight(#d_t[0][0])/2;
T_k_t[0]=imagewidth(#k_t[0][0])/2; T_k_t[1]=imageheight(#k_t[0][0])/2;
T_t_t[0]=imagewidth(#t_t[0][0])/2; T_t_t[1]=imageheight(#t_t[0][0])/2;

T_2_p[0]=imagewidth(#2_p[0][0])/2; T_2_p[1]=imageheight(#2_p[0][0])/2;
T_3_p[0]=imagewidth(#3_p[0][0])/2; T_3_p[1]=imageheight(#3_p[0][0])/2;
T_4_p[0]=imagewidth(#4_p[0][0])/2; T_4_p[1]=imageheight(#4_p[0][0])/2;
T_5_p[0]=imagewidth(#5_p[0][0])/2; T_5_p[1]=imageheight(#5_p[0][0])/2;
T_6_p[0]=imagewidth(#6_p[0][0])/2; T_6_p[1]=imageheight(#6_p[0][0])/2;
T_7_p[0]=imagewidth(#7_p[0][0])/2; T_7_p[1]=imageheight(#7_p[0][0])/2;
T_8_p[0]=imagewidth(#8_p[0][0])/2; T_8_p[1]=imageheight(#8_p[0][0])/2;
T_9_p[0]=imagewidth(#9_p[0][0])/2; T_9_p[1]=imageheight(#9_p[0][0])/2;
T_10_p[0]=imagewidth(#10_p[0][0])/2; T_10_p[1]=imageheight(#10_p[0][0])/2;
T_v_p[0]=imagewidth(#v_p[0][0])/2; T_v_p[1]=imageheight(#v_p[0][0])/2;
T_d_p[0]=imagewidth(#d_p[0][0])/2; T_d_p[1]=imageheight(#d_p[0][0])/2;
T_k_p[0]=imagewidth(#k_p[0][0])/2; T_k_p[1]=imageheight(#k_p[0][0])/2;
T_t_p[0]=imagewidth(#t_p[0][0])/2; T_t_p[1]=imageheight(#t_p[0][0])/2;

///////////////////

T_2_b1[0]=imagewidth(#2_b1[0][0])/2; T_2_b1[1]=imageheight(#2_b1[0][0])/2;
T_3_b1[0]=imagewidth(#3_b1[0][0])/2; T_3_b1[1]=imageheight(#3_b1[0][0])/2;
T_4_b1[0]=imagewidth(#4_b1[0][0])/2; T_4_b1[1]=imageheight(#4_b1[0][0])/2;
T_5_b1[0]=imagewidth(#5_b1[0][0])/2; T_5_b1[1]=imageheight(#5_b1[0][0])/2;
T_6_b1[0]=imagewidth(#6_b1[0][0])/2; T_6_b1[1]=imageheight(#6_b1[0][0])/2;
T_7_b1[0]=imagewidth(#7_b1[0][0])/2; T_7_b1[1]=imageheight(#7_b1[0][0])/2;
T_8_b1[0]=imagewidth(#8_b1[0][0])/2; T_8_b1[1]=imageheight(#8_b1[0][0])/2;
T_9_b1[0]=imagewidth(#9_b1[0][0])/2; T_9_b1[1]=imageheight(#9_b1[0][0])/2;
T_10_b1[0]=imagewidth(#10_b1[0][0])/2; T_10_b1[1]=imageheight(#10_b1[0][0])/2;
T_v_b1[0]=imagewidth(#v_b1[0][0])/2; T_v_b1[1]=imageheight(#v_b1[0][0])/2;
T_d_b1[0]=imagewidth(#d_b1[0][0])/2; T_d_b1[1]=imageheight(#d_b1[0][0])/2;
T_k_b1[0]=imagewidth(#k_b1[0][0])/2; T_k_b1[1]=imageheight(#k_b1[0][0])/2;
T_t_b1[0]=imagewidth(#t_b1[0][0])/2; T_t_b1[1]=imageheight(#t_b1[0][0])/2;

T_2_c1[0]=imagewidth(#2_c1[0][0])/2; T_2_c1[1]=imageheight(#2_c1[0][0])/2;
T_3_c1[0]=imagewidth(#3_c1[0][0])/2; T_3_c1[1]=imageheight(#3_c1[0][0])/2;
T_4_c1[0]=imagewidth(#4_c1[0][0])/2; T_4_c1[1]=imageheight(#4_c1[0][0])/2;
T_5_c1[0]=imagewidth(#5_c1[0][0])/2; T_5_c1[1]=imageheight(#5_c1[0][0])/2;
T_6_c1[0]=imagewidth(#6_c1[0][0])/2; T_6_c1[1]=imageheight(#6_c1[0][0])/2;
T_7_c1[0]=imagewidth(#7_c1[0][0])/2; T_7_c1[1]=imageheight(#7_c1[0][0])/2;
T_8_c1[0]=imagewidth(#8_c1[0][0])/2; T_8_c1[1]=imageheight(#8_c1[0][0])/2;
T_9_c1[0]=imagewidth(#9_c1[0][0])/2; T_9_c1[1]=imageheight(#9_c1[0][0])/2;
T_10_c1[0]=imagewidth(#10_c1[0][0])/2; T_10_c1[1]=imageheight(#10_c1[0][0])/2;
T_v_c1[0]=imagewidth(#v_c1[0][0])/2; T_v_c1[1]=imageheight(#v_c1[0][0])/2;
T_d_c1[0]=imagewidth(#d_c1[0][0])/2; T_d_c1[1]=imageheight(#d_c1[0][0])/2;
T_k_c1[0]=imagewidth(#k_c1[0][0])/2; T_k_c1[1]=imageheight(#k_c1[0][0])/2;
T_t_c1[0]=imagewidth(#t_c1[0][0])/2; T_t_c1[1]=imageheight(#t_c1[0][0])/2;

T_2_t1[0]=imagewidth(#2_t1[0][0])/2; T_2_t1[1]=imageheight(#2_t1[0][0])/2;
T_3_t1[0]=imagewidth(#3_t1[0][0])/2; T_3_t1[1]=imageheight(#3_t1[0][0])/2;
T_4_t1[0]=imagewidth(#4_t1[0][0])/2; T_4_t1[1]=imageheight(#4_t1[0][0])/2;
T_5_t1[0]=imagewidth(#5_t1[0][0])/2; T_5_t1[1]=imageheight(#5_t1[0][0])/2;
T_6_t1[0]=imagewidth(#6_t1[0][0])/2; T_6_t1[1]=imageheight(#6_t1[0][0])/2;
T_7_t1[0]=imagewidth(#7_t1[0][0])/2; T_7_t1[1]=imageheight(#7_t1[0][0])/2;
T_8_t1[0]=imagewidth(#8_t1[0][0])/2; T_8_t1[1]=imageheight(#8_t1[0][0])/2;
T_9_t1[0]=imagewidth(#9_t1[0][0])/2; T_9_t1[1]=imageheight(#9_t1[0][0])/2;
T_10_t1[0]=imagewidth(#10_t1[0][0])/2; T_10_t1[1]=imageheight(#10_t1[0][0])/2;
T_v_t1[0]=imagewidth(#v_t1[0][0])/2; T_v_t1[1]=imageheight(#v_t1[0][0])/2;
T_d_t1[0]=imagewidth(#d_t1[0][0])/2; T_d_t1[1]=imageheight(#d_t1[0][0])/2;
T_k_t1[0]=imagewidth(#k_t1[0][0])/2; T_k_t1[1]=imageheight(#k_t1[0][0])/2;
T_t_t1[0]=imagewidth(#t_t1[0][0])/2; T_t_t1[1]=imageheight(#t_t1[0][0])/2;

T_2_p1[0]=imagewidth(#2_p1[0][0])/2; T_2_p1[1]=imageheight(#2_p1[0][0])/2;
T_3_p1[0]=imagewidth(#3_p1[0][0])/2; T_3_p1[1]=imageheight(#3_p1[0][0])/2;
T_4_p1[0]=imagewidth(#4_p1[0][0])/2; T_4_p1[1]=imageheight(#4_p1[0][0])/2;
T_5_p1[0]=imagewidth(#5_p1[0][0])/2; T_5_p1[1]=imageheight(#5_p1[0][0])/2;
T_6_p1[0]=imagewidth(#6_p1[0][0])/2; T_6_p1[1]=imageheight(#6_p1[0][0])/2;
T_7_p1[0]=imagewidth(#7_p1[0][0])/2; T_7_p1[1]=imageheight(#7_p1[0][0])/2;
T_8_p1[0]=imagewidth(#8_p1[0][0])/2; T_8_p1[1]=imageheight(#8_p1[0][0])/2;
T_9_p1[0]=imagewidth(#9_p1[0][0])/2; T_9_p1[1]=imageheight(#9_p1[0][0])/2;
T_10_p1[0]=imagewidth(#10_p1[0][0])/2; T_10_p1[1]=imageheight(#10_p1[0][0])/2;
T_v_p1[0]=imagewidth(#v_p1[0][0])/2; T_v_p1[1]=imageheight(#v_p1[0][0])/2;
T_d_p1[0]=imagewidth(#d_p1[0][0])/2; T_d_p1[1]=imageheight(#d_p1[0][0])/2;
T_k_p1[0]=imagewidth(#k_p1[0][0])/2; T_k_p1[1]=imageheight(#k_p1[0][0])/2;
T_t_p1[0]=imagewidth(#t_p1[0][0])/2; T_t_p1[1]=imageheight(#t_p1[0][0])/2;
}

Скрипт бота для игры в пасьянс Косынка в Windows 7