Кибор » Кибор - Интегрированная среда разработки ботов » Вопросы и решение проблем » Посогите изменить скрипт Kibor

Страниц (1): [1]
 

1. hit61russ - 01 Января, 2023 - 11:54:30 - перейти к сообщению
win w1, w2, w3, w4;
int x, y;

textout( 0, 10, 10, "Нажми ё над первым окном", 1);
while(getkeystate(192)==0) sleep(20);
while(getkeystate(192)==1) sleep(20);
beep(600, 300);
getmouse(x, y);
w1=getwindow(1, x, y);

textout( 0, 10, 10, "Нажми ё над вторым окном", 1);
while(getkeystate(192)==0) sleep(20);
while(getkeystate(192)==1) sleep(20);
beep(500, 300);
getmouse(x, y);
w2=getwindow(1, x, y);

textout( 0, 10, 10, "Нажми ё над третьем окном", 1);
while(getkeystate(192)==0) sleep(20);
while(getkeystate(192)==1) sleep(20);
beep(400, 300);
getmouse(x, y);
w3=getwindow(1, x, y);

textout( 0, 10, 10, "Нажми ё над четвертым окном", 1);
while(getkeystate(192)==0) sleep(20);
while(getkeystate(192)==1) sleep(20);
beep(300, 300);
getmouse(x, y);
w4=getwindow(1, x, y);
textout( 0, -190, -110, "Нажми ё над четвертым окном", 1);

loop() {

if(getkeystate(1)==1) {
getmouse(x, y, w1); sleep(50);
sendmouse(LEFT, x, y, w2);
sendmouse(LEFT, x, y, w3);
sendmouse(LEFT, x, y, w4);}
}
2. Dantes3000 - 02 Января, 2023 - 14:16:18 - перейти к сообщению
CODE:
win w[10];

int win_amount=4;
int x,y;

for(int k=0; k<win_amount; k++)
{
textout(0, 10, 10, "Нажмите ё над окном номер "+format(k+1), 1);
while(getkeystate(192)==0) sleep(20);
while(getkeystate(192)==1) sleep(20);
beep(600, 300);
getmouse(x, y);
w[k]=getwindow(1, x, y);
}
textout( 0, -190, -110, "", 2);


loop()
{

if(getkeystate(1)==1)
{
while(getkeystate(1)==1) sleep(100);
getmouse(x, y, w[0]); sleep(50);
for(k=1; k<win_amount; k++) sendmouse(LEFT, x, y, w[k]);
}
}

Powered by ExBB FM 1.0 Final