Staric1982
Новичок
- Сообщения
- 3
- Репутация
- 0
Re: Майнер бот. Эволюция от примитивного (замкнутая вермишель) до умного.v2.41
Всем привет!
Это мой первый пост на этом форуме, поэтому вкратце о себе: задумался над облегчением задачи копки руды и решил сделать бота. После массы вариантов остановился на АутоИте. Слабал примитивнейший бот (маусклик, слееп). Потом наткнулся на ваш форум, почитал, прифигел от крутости бота топикстартера и начал переделывать свой бот. Добавлять датчики, делать более продвинутую логику...
Сейчас наткнулся на такую проблему. Делаю датчик, что шип в варпе. Сначала пытался ГетПикселКолор брать цвет скобочки, который появляется в слове (WARPING) в самом низу экрана, где скорость показывается. Не прокатило. Потом в скрипте yaodnako узрел, что лучше использовать ПикселСёрч и не скобку, а первую букву в слове Гиперпрыжок (у меня WARP DRIVE ACTIVE). Попробовал - срабатывает не понятно как и когда. Либо вообще не срабатывает. Кто может объяснить, что я сделал не так? Вот кусок моего кода (осторожно, индусский код детектед
):
Всем привет!
Это мой первый пост на этом форуме, поэтому вкратце о себе: задумался над облегчением задачи копки руды и решил сделать бота. После массы вариантов остановился на АутоИте. Слабал примитивнейший бот (маусклик, слееп). Потом наткнулся на ваш форум, почитал, прифигел от крутости бота топикстартера и начал переделывать свой бот. Добавлять датчики, делать более продвинутую логику...
Сейчас наткнулся на такую проблему. Делаю датчик, что шип в варпе. Сначала пытался ГетПикселКолор брать цвет скобочки, который появляется в слове (WARPING) в самом низу экрана, где скорость показывается. Не прокатило. Потом в скрипте yaodnako узрел, что лучше использовать ПикселСёрч и не скобку, а первую букву в слове Гиперпрыжок (у меня WARP DRIVE ACTIVE). Попробовал - срабатывает не понятно как и когда. Либо вообще не срабатывает. Кто может объяснить, что я сделал не так? Вот кусок моего кода (осторожно, индусский код детектед
):
Код:
Func WarpingOrNo($WhereWarp)
$i=0;счетчик попыток на случай зависания
WriteLog("Ждем начало варпа на " & $WhereWarp)
$f=0; флаг гиперпрыжка
While $f=0
PixelSearch (439, 529,439, 529,0xDEDEDE,10)
if @error then
$f=0
else
$f=1
EndIf
Sleep(2000)
WEnd
$i=0
WriteLog("Варп начался")
While $f=1
PixelSearch (439, 529,439, 529,0xDEDEDE,10)
if @error then
$f=0
else
$f=1
EndIf
Sleep(2000)
WEnd
WriteLog("Варп завершен")
Sleep(random(1000,3000))
EndFunc
. Хоть какая-то польза от патчей 
