Бот для Зомби фермы

[aden]

можно использовать dialogbox

[Oraven]

Думаю подходит

Code: (clickermann) [Select]

BREAK("ПАУЗА")Выполнение застопорится, если нажать Yes то кликер встанет на паузу, а если No то выполнение продолжится.

Или DIALOGBOX

Code: (clickermann) [Select]

$dialog = DIALOGBOX("Продолжить действие", 1, 2)

[Fliper]

День добрый а не кто не писал сценарий на посадку деревьев, а то очень актуальная проблемы для тех у кого много фейков
Заранее спасибо

[Vint]

День добрый а не кто не писал сценарий на посадку деревьев, а то очень актуальная проблемы для тех у кого много фейков
Заранее спасибо

Писал только полуфабрикат. Кликает по сетке с шагом деревьев. Масштаб игры 100%. Можно Fullscreen.
На рисунке изображена схема кликов. Красным помечена точка старта (под курсором).
Пирамида имеет справа и слева по доп. полосе. Сделал потому, что часто угловое дерево нельзя поставить. Поэтому первым ставим любое из двух возможных крайних.
Скрипт можно использовать сажая кусками. Хотел ещё сделать вариант посадки по всей доступной прямоугольной области, но не понадобилось пока.
v0.1.1 делалась только под FullScreen без определения окна игры. Учтены только отступы от краёв.

[Fliper]

Спасибо большое сейчас буду пробывать

[Крис Тинка]

Вот у меня еще такой вариант есть. Перед запуском скрипта, нужно купить дерево, навести мышкой на место посадки и запустить скрипт. Сажается один ряд деревьев.

Code: [Select]

//
// Посадка деревьев
// Яблоня, вишня, мандарин, лимон
//
$re=30 // число деревьев в ряду.
// Пример работы скрипта на видео  http://www.odnoklassniki.ru/video/5657922186
$x1=$_xmouse
$y1=$_ymouse
$check=0
WHILE($check<$re)
   $check=$check+1
   MOVE($x1-32,$y1+16)
   WAITMS(50)
   LDOWN($x1-32,$y1+16)
   WAITMS(50)
   MOVE($x1,$y1)
   WAITMS(50)
   LUP($x1,$y1)
   WAITMS(50)
END_CYC
HALT
Второй вариант для широких деревьев

Code: [Select]

//
// Посадка деревьев 2
//Зимняя вишня, черепуша, глазное яблоко
//
$re=30 // число деревьев в ряду.
// Пример работы скрипта на видео  http://www.odnoklassniki.ru/video/5657922186
$x1=$_xmouse
$y1=$_ymouse
$check=0
WHILE($check<$re)
   $check=$check+1
   MOVE($x1-48,$y1+24)
   WAITMS(50)
   LDOWN($x1-48,$y1+24)
   WAITMS(50)
   MOVE($x1,$y1)
   WAITMS(50)
   LUP($x1,$y1)
   WAITMS(50)
END_CYC
HALT


[aden]

кристинка, посмотрел видео и мои уши стали кровоточить, жестокий вы человек. 

[Oraven]

  что за музон такой?!!!!

За место $check=$check+1 лучше писать

Code: (clickermann) [Select]

INC($check,1)

[Крис Тинка]

что за музон такой?!!!!

Песня Красной шапочки, несущей радиатор. Играла в Уральских пельменях)))
P.S. А вместо
 

Code: [Select]

$re = 30
$check = 0
WHILE($check<$re)
   inc($check)
   //тело
END_CYCможно использовать?

Code: [Select]

for($re, $re < 30)
 //тело
end_cyc



[Крис Тинка]

Aden, в чем жестокость?))))

[Oraven]

что за музон такой?!!!!

Песня Красной шапочки, несущей радиатор. Играла в Уральских пельменях)))
P.S. А вместо
 

Code: [Select]

$re = 30
$check = 0
WHILE($check<$re)
   inc($check)
   //тело
END_CYCможно использовать?

Code: [Select]

for($re, $re < 30)
 //тело
end_cyc



Да это уместнее.
Вот что получилось

Code: (clickermann) [Select]

//
// Посадка деревьев
// Яблоня, вишня, мандарин, лимон
//
$re=19 // число деревьев в ряду.
$x1=$_xmouse
$y1=$_ymouse
WAITMS(500)
FOR($a,$a<$re)
   LDOWN($x1-32,$y1+16)
   WAITMS(50)
   MOVE($x1,$y1)
   WAITMS(50)
   LUP($x1,$y1)
   WAITMS(50)
END_CYC
HALT

[Крис Тинка]

Не могу понять в чем ошибка... Проверяла, все текстуры определяются быстро. Текстура "zagr.bmp" появляется раньше, чем начинается  начинается цикл WHILE. Но скрипт заканчивается через 5 секунд, как кликнет по текстуре "sboi.bmp" со смещением 

Code: (clickermann) [Select]

getscreen
IF_PICTURE_IN (10,10, $_xmax, $_ymax, "textures\sboi.bmp")
   MOVE($_return1+115, $_return2+160)
   WAITMS(1000)
   lclick($_return1+115, $_return2+160)
   WAIT(5)
   $check = 0
   $time = $_time_t + 180 // таймер на 3 мин
   WHILE(($check = 0) & ($time > $_time_t))
      getscreen
      IF_PICTURE_IN (10,10, $_xmax, $_ymax, "textures\zagr.bmp") //Нужно, чтобы скрипт остановился, когда исчезнет текстура, но останавливается раньше.
         WAIT(5)
      else
         $check = 1
      end_if
   end_cyc
end_if
getscreen
IF_PICTURE_IN (1,1, $_xmax, $_ymax, "textures\podarok.bmp")
   move($_return1+70, $_return2+89)
   WAITMS(1000)
   lclick($_return1+70, $_return2+89)
   WAITMS(500)
   move($_return1+12, $_return2+135)
   WAITMS(1000)
   lclick($_return1+12, $_return2+135)
   WAIT(3)
end_if
if( $check = 1)
   halt
end_if

[Vint]

Не могу понять в чем ошибка... Проверяла, все текстуры определяются быстро. Текстура "zagr.bmp" появляется раньше, чем начинается  начинается цикл WHILE. Но скрипт заканчивается через 5 секунд, как кликнет по текстуре "sboi.bmp" со смещением 

Code: (clickermann) [Select]

getscreen
IF_PICTURE_IN (10,10, $_xmax, $_ymax, "textures\sboi.bmp")
   MOVE($_return1+115, $_return2+160)
   WAITMS(1000)
   lclick($_return1+115, $_return2+160)
   WAIT(5)
   $check = 0
   $time = $_time_t + 180 // таймер на 3 мин
   WHILE(($check = 0) & ($time > $_time_t))
      getscreen
      IF_PICTURE_IN (10,10, $_xmax, $_ymax, "textures\zagr.bmp") //Нужно, чтобы скрипт остановился, когда исчезнет текстура, но останавливается раньше.
         WAIT(5)
      else
         $check = 1
      end_if
   end_cyc
end_if
getscreen
IF_PICTURE_IN (1,1, $_xmax, $_ymax, "textures\podarok.bmp")
   move($_return1+70, $_return2+89)
   WAITMS(1000)
   lclick($_return1+70, $_return2+89)
   WAITMS(500)
   move($_return1+12, $_return2+135)
   WAITMS(1000)
   lclick($_return1+12, $_return2+135)
   WAIT(3)
end_if
if( $check = 1)
   halt
end_if

Значит всё таки не находит zagr.bmp...  Попробуй добавить ей процент совпадения 80-85
Я почти уверен, что zagr.bmp это часть слова "загрузка". Если это так, советую не использовать картинки в которые попадают слова. Могу на примерах показать почему.

[Крис Тинка]

Может показаться странным, но добавила лог и все заработало)))

Code: [Select]

WHILE(($check = 0) & ($time > $_time_t))
      getscreen
      IF_PICTURE_IN (10,10, $_xmax, $_ymax, "textures\zagr.bmp") //идет загрузка
         print("текстура найдена")
         WAIT(5)
      else
         print("текстура не найдена")
         $check = 1
      end_if
   end_cyc

[Vint]

Ничего странного. Моё предположение правильное?

Подготовилл скринов для фермы 2 десятка, не меньше. Просто слова в окнах (иногда и оформление) рендерятся часто чуть иначе. Различия минимальны., только несколько крайних "сглаженных" пикселов.
Это происходит не всегда. Можно сделать 10 скринов одного окна и различий не будет, а потом при очередном будет.
У меня в отлаженных рабочих  скриптах переставало находиться. Долго искал.
Дело в том что там вариантов различий не много 2-5 скринов, чаще 2-3. Поэтому отловить отличающийся не так просто. Но потом всё равно на него напоришься.