//set #a findcolor ( 644 109 1137 375 1 1 (6047841) %close 2 ) // поиск в рабочем окне
//set workwindow 5780
set hotkeystart {F1}
set #f 0
set #a 0
set #b 0
while 0 < 1
set #d findcolor (482, 95 1353, 479 1 1 (16744287) %arr 2 1 5)
log #d
log #f
set #m %arr [1 2]
log #m
//end_while
if #d > 0
if #b = 0
   set #f %arr [1 2]
 set #b 1
    end_if
    set #g #f + 4
if  #g < #m
set #a 2

 end_if
        // если найден нужный цвет, то делаем двойной левый клик мышкой в первой найденной точке
// move %arr [1 1], %arr [1 2]
// msg Цвет уже найден!
        log #a
if #a > 1
//else
log Цвет найден
move %arr [1 1], %arr [1 2]
wait random(1000)
left %arr [1 1] %arr [1 2]
wait random(1000)
move random(1000), random (100)
wait random(3000)

 set #a 0
 set #f 0
 set #b 0
send217 {1}
wait random(3000)
 // msg Цвет не найден!
 // log #d
 set #a 0
 set #f 0
 set #b 0
 end_if
 else
 send217 {1}
 wait random(3000)
end_if
end_while

set #a 1000
while #a > 10         // пока найдено больше 10 пикселей (подобрать нужное значение)
     set #a findcolor (...)      // искать цвет
     hint #a
     wait 1
end_while

set #raznica 0

set #a findcolor (...)      // первый поиск
log #a                      // нашлось пикселей

while #raznica < 30         // пока разница между первым и последующими поисками меньше 30
     set #b findcolor (...)      // искать цвет
     set #raznica #a - #b        // разница между первым поиском и следующим
     set #raznica abs(#raznica)   // модуль разницы
     hint #raznica
     wait 10
end_while
log  !!!!!!!!!!!!

set #tmp #g + 4
set #tmp2 #m / 2
if #tmp < #tmp2

set #r #d * 2 / 3     // тоже самое что set #r #d/1.5 

set hotkeystart {F1}
set #a findcolor (482, 95 1353, 479 1 1 (7496830) %arr 2 -1 6)      // первый поиск
log #a                      // нашлось пикселей
set #raznica 0
set #b 0
while #raznica < 20       // пока разница между первым и последующими поисками меньше 30
set #b findcolor (482, 95 1353, 479 1 1 (7496830) %arr 2 -1 6)      // искать цвет
     log #b
     set #raznica #a - #b        // разница между первым поиском и следующим
     set #raznica abs(#raznica)   // модуль разницы
     log #raznica
     wait 10
end_while
set #g findcolor (482, 95 1353, 479 1 1 (2702286) %tarr 2 -1 10)
if  #b < 1 and #g <1 //проверка на наличие поплавка вообще и закидываеие если нет
send217 {1}
wait random(3000)
else

move %arr [1 1], %arr [1 2] //тут двигаем курсор на поплавок и дергаем удочку на себя:)
wait random(1000)
left %arr [1 1] %arr [1 2]
wait 1000
move random (1000), random (100)
send217 {1}
wait 3000
end_if