Прохожий
Покинул форум
Сообщений всего: 2
Дата рег-ции: Окт. 2015
Репутация: 0
|
Kibor , u menea toje esti vapros po darkorbit ea sozdal programu i precrasno rabotae v aktivnom akne, sobiraet Karobki mne bolishe ne nado paka,
NO haciu shtob ana rabotala v neaktivnom akne shtob komp bil svabodnii. izucil i ponel vseo uje shto zdelal, no ne ponimaiu kak mojno soidinitsea i rabotati s neactivnim aknom.
KOD: kod katorii ea ispolizuiu (v aktivnom rejime)
Rabotaet preKrasno spsiba za uroki, oni toje oceni pamogli
int col_KIB, ex_KIB, ey_KIB, x_KIB, y_KIB, tim_KIB;
int Image_0_KIB[20][25];
int Image_1_KIB[15][19];
int Image_2_KIB[11][12];
start_();
m3: findimage_(#Image_0_KIB[0][0], 0, 0, 0, 1, 0, 0, rand(2300,2800), -1, 0, 100, 1);
if (findimage_(#Image_1_KIB[0][0], 0, 0, 0, 1, 0, 0, rand(2300,2800), -1, 0, 100, 1)==1) goto m3;
else goto m1;
m1: if (findimage_(#Image_0_KIB[0][0], 0, 0, 0, 1, 0, 0, rand(2300,2800), -1, 0, 100, 1)==1) goto m3;
else goto m5;
m4: mouse_(rand(250,750), 1, rand(1330,1480), rand(705,785), 1000); goto m3;
m5: if (findimage_(#Image_2_KIB[0][0], 0, 0, 200, 0, 0, 0, 0, -1, 0, 100, 1)==1) goto m3;
else goto m4;
function start_()
{
getdisplay(col_KIB, ex_KIB, ey_KIB);
load_image();
}
function mouse_(int p1, int m, int xm, int ym, int p2)
{
pause(p1);
if (m==1) mouse(LEFT, xm, ym);
pause(p2);
}
function load_image()
{
loadimage (#Image_0_KIB[0][0], "D:\foto1234456\Image_5.bmp"
loadimage (#Image_1_KIB[0][0], "D:\foto1234456\Image_6.bmp"
loadimage (#Image_2_KIB[0][0], "D:\foto1234456\Image_7.bmp"
}
function findimage_(int #Image, int t, int p1, int p2, int m, int xm, int ym, int p3, int fon, int r, int p, int k)
{
pause(p1);
if (t!=1) tim_KIB=gettime();
a: if (r==0 && p==100){if (findimage(1, #Image[0][0], fon, #x_KIB, #y_KIB, 0, 0, ex_KIB, ey_KIB, -1)==1) goto e;}
else {if (findimage(1, #Image[0][0], fon, #x_KIB, #y_KIB, 0, 0, ex_KIB, ey_KIB, r, r, r, r, r, r, p, 1, -1)==1) goto e;}
if (t==0) return -1;
if (gettime()-tim_KIB<t){sleep(20); goto a;}
return -1;
e: pause(p2);
if (m==1){mouse(LEFT, x_KIB+xm, y_KIB+ym); pause(p3);
sleep(rand(350,500));}
if (m==2){mouse(LEFT, x_KIB+xm, y_KIB+ym); pause(p3);
sleep(rand(350,500));}
if (m==3){mouse(LEFT, x_KIB+xm, y_KIB+ym); pause(p3);}
return 1;
}
esli mojno napishi pervuiu ciasti kak deloti soideninie i razesnenie
ZARANEE SPASIBA |