Наблюдатель
Покинул форум
Сообщений всего: 28
Дата рег-ции: Июнь 2020
Репутация: 0
|
Ilya001 пишет: Скиньте кусок кода, или скрин с виз.редактора
Вот именно это функция. Весь код не кинуть, он очень болшой.
function ДесятьМинут()
{
pause(rand(1000, 3000));
if (getcontrol(CHECK_7) == 1)goto af;
if (getcontrol(CHECK_7) == 0)goto ag;
goto KIB_Exit;
af:;
goto KIB_187;
KIB_435: Mouse(2, #W_Kib, W_Kib.leftclient, W_Kib.topclient, 500, 553, 330, "Левую клик", 500);
goto KIB_192;
KIB_433: ReadText(2, #Screen[0][0], #W_Kib, W_Kib.leftclient, W_Kib.topclient, 500, "E:\Screen\База.sib", #Text_S, #K_S, #X_S[0], #Y_S[0], #sX_S[0], #sY_S[0], #Cor_S[0], #Type_S[0], #K_Str, #Text_Str[0], #X_Str[0], #Y_Str[0], 1, 0, 0, 0, 12, 2, -1, -1, -1, 0, #Col_T0[0], 0, 0, #Kol_F0[0], 0, 5, 50, 328, 112, 414, 138, -1, 0);
if(Text_S=="УДАЛОСЬ" ) goto KIB_435;
goto KIB_190;
ag:;
KIB_190:;
goto KIB_Exit;
KIB_281:;
int F;
F=formatsn(getcontrol(EDIT_5));
pause(F*60*1000);
Mouse(2, #W_Kib, W_Kib.leftclient, W_Kib.topclient, 1000, 481, 329, "Левую клик", 1000);
goto KIB_192;
KIB_194:;
KIB_192: ReadText(2, #Screen[0][0], #W_Kib, W_Kib.leftclient, W_Kib.topclient, 1500, "E:\Screen\База.sib", #Text_S, #K_S, #X_S[0], #Y_S[0], #sX_S[0], #sY_S[0], #Cor_S[0], #Type_S[0], #K_Str, #Text_Str[0], #X_Str[0], #Y_Str[0], 1, 0, 0, 0, 8, 1, -1, -1, -1, 0, #Col_T0[0], 0, 0, #Kol_F0[0], 0, -1, 50, 639, 558, 670, 568, -1, 0);
if(Text_S=="Юнит" ) goto KIB_190;
goto KIB_194;
KIB_187: ReadText(2, #Screen[0][0], #W_Kib, W_Kib.leftclient, W_Kib.topclient, 500, "E:\Screen\База.sib", #Text_S, #K_S, #X_S[0], #Y_S[0], #sX_S[0], #sY_S[0], #Cor_S[0], #Type_S[0], #K_Str, #Text_Str[0], #X_Str[0], #Y_Str[0], 1, 0, 0, 0, 8, 1, -1, -1, -1, 0, #Col_T0[0], 0, 0, #Kol_F0[0], 0, -1, -1, 451, 114, 513, 135, -1, 0);
if(Text_S=="СОВЕТ" ) goto KIB_281;
goto KIB_433;
KIB_Exit:;
} |