Тема: МАКРОСЫ
Показать сообщение отдельно
Re: МАКРОСЫ
Старый 09.03.2019, 20:40   #1061
Bocxoq
The Hero
 
Аватар для Bocxoq
 
Регистрация: 27.03.2010
Возраст: 37
Сообщений: 510
Репутация: -3 [+/-]
плохо соблюдает правила форума (от -5 до -15)
Bocxoq плохо соблюдает правила форума (от -5 до -15)
Чар: Bocxoq
По умолчанию Re: МАКРОСЫ

Для заседателей зоны или просто минеров, лесорубов. АНТИКАПЧА
[Только зарегистрированные пользователи могут видеть ссылки. Регистрация!]
качаем и разархивируем картинки чтобы путь к ним был "c:\ima\"

теперь запускаем 2а скрипта ставим межстрочную задержку 10 на оба

Первый, он у меня стоит 14ым во вкладке скриптов и не должен быть включен. Запустится он сам в случае необходимости:

set #startX 0
set #startY 0
set #endX 1200
set #endY 720
set $path "c:\ima\"
init_arr %image c1 c2 c3 c4 c5 c6 c7 c8

set #size size(%image)

set findoffsetx 13
set findoffsety 11
for #j 1 2
set #z 1
for #i 1 #size 1
set #a findimage (#startX #startY #endX #endY ($path%image[#i].bmp) %arr 2 100 -1 10)
if size(%arr) = 3
if #j = 1
init_arr %arr2 (#z) %arr [1 1] %arr [1 2] %arr [3 1] %arr [3 2]
set #z #z + 1
else
init_arr %arr2 (#z) %arr [2 1] %arr [2 2] %arr [3 1] %arr [3 2]
set #z #z + 1
end_if
else
if size(%arr) = 2
init_arr %arr2 (#z) %arr [1 1] %arr [1 2] %arr [2 1] %arr [2 2]
set #z #z + 1
end_if
end_if
end_for

if #z > 1
sort_array %arr2 1
kleft %arr2[1 1] %arr2[1 2]
wait 500
kleft %arr2[1 3] %arr2[1 4]
wait 500
else
hint (20 clRed 500 500 -1 -1)

end_if

set size(%arr2)
end_for
end_script


Второй, он ДОЛЖЕН быть запущен и в случае появления капчи он запускает её дишефратор

if (lastmsg targeting cancel) or (lastmsg unex) or (lastmsg you have inco) or (lastmsg world)
set #startX 0
set #startY 0
set #endX 1200
set #endY 720
set $path "c:\ima\"
init_arr %image c1 c2 c3 c4 c5 c6 c7 c8

set #size size(%image)

for #i 1 #size 1
set #a findimage (#startX #startY #endX #endY ($path%image[#i].bmp) %arr 2 100 -1 10)
if size(%arr) > 1
for #j 1 size(%arr)
kright %arr[#j 1] %arr[#j 2]
wait 500
end_for
end_if
end_for
wait 1000
send f1
start_script 14
wait 15000
end_if


ЗЫ. Капча может разгадаться не с первого и не со второго раза, но в итоге она будет разгадана довольно быстро. Окно УО не может быть перекрыто или свёрнуто. ВАЖНО!!!!! Использовать необходимо ТОЛЬКО "найт" версию УО пилота которую можно скачать с официально сайта УО пилота.

Добавлено через 16 минут
И небольшой бонус для охотников за ягодой
Пользуемся все той же " найт " версией пилота и используя всё те же картинки которые с испольщуются для антикапчи.
Ставим госта в "ягодном месте" и запускаем этот скрипт с межстрочной задержкой 10. При появлении ягоды пилот выдаёт алярм сигнал и указывает на неё мышкой, останется только быстро прилететь и собрать ягоду. Респ ягоды приблизительно проходит раз в 50 минут так что скрипт работает после запуска по циклу: Увидел ягоду подал сигнал ушёл в ожидание на 45 минут, после подал ещё один сигнал предупреждающий что до появления ягоды 5 минут. Чтобы скрипт работал окно с гостом должно быть развернуто то есть можно спокойно бегать, другим окном, но при предупреждающем сигнале стоит развернуть окно с гостом поверх всех остальных.

Последний раз редактировалось Bocxoq; 09.03.2019 в 20:57.. Причина: Добавлено сообщение
Bocxoq вне форума   Ответить с цитированием