 |
Пишем простого бота, который работает везде и практически невидим. - Боты, скрипты и прочий софт для Perfect World - Весь софт по Perfect World и все, что связано с ботоводством и скриптописанием в этом разделе. Вопросы запрещены! |
14.01.2024, 08:37
|
#16
|
|
|
|
Разведчик
|
 Регистрация: 06.06.2015
 Сообщений: 2
 Популярность: 10
 Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
|
Re: Пишем простого бота, который работает везде и практически невидим.
Крч побаловался я с кодом, пробовал на пв классик, всё работает. Я сча думаю как добавить функцию включения и выключения скрипта так как я раньше с этим языком не работал... а в принципе бот хороший для начала
Добавлено через 2 часа 59 минут
такой вопрос, как сделать что бы бот проверял выполняется ли функция лут (если выполняется то не выполнять функции DeadMob() Ataka(), я пытался прописать через флаг но оно криво работало через раз, попытался сделать отдельную функцию но она вообще не работала. скорее всего я где то тупанул со скриптом...
#include <WinAPIGdi.au3>
#include <Color.au3>
$hWnd = WinGetHandle("[CLASS:1F3MblFiUE7pGN7HkdraQl0]")
WinActivate($hWnd)
Opt("PixelCoordMode",0)
Sleep(1000)
$i = 0
While $i = 0
WinWaitActive($hWnd)
Sleep(300)
HeroHP()
Lut()
DeadMob()
Ataka()
HeroMANA()
WEnd
Func HeroHP()
$coord = PixelSearch(214, 56, 267, 65, 0xFF393E, 0, 1, $hWnd)
If @error = 1 then
ControlSend($hWnd, "", "", "{F6}")
endif
EndFunc
Func HeroMANA()
$coord = PixelSearch(218, 68, 269, 75, 0x055ABD, 0, 1, $hWnd)
If @error = 1 then
ControlSend($hWnd, "", "", "{F8}")
endif
EndFunc
Func DeadMob()
$coord = PixelSearch(460, 20, 700, 90, 0x8C0001, 0, 1, $hWnd)
If @error = 1 then
ControlSend($hWnd, "", "", "{TAB}")
endif
EndFunc
Func Ataka()
ControlSend($hWnd, "", "", "{F1}")
Sleep(Random(800, 1500))
EndFunc
Func Lut()
$coord = PixelSearch(320, 15, 500, 60, 0xC9050A, 0, 1, $hWnd)
; Если цвет найден, выполнять действия
If @error = 1 Then
For $i = 1 To 5
ControlSend($hWnd, "", "", "{F4}")
Sleep(Random(500, 1000))
Next
ControlSend($hWnd, "", "", "{F7}")
ControlSend($hWnd, "", "", "{F3}")
Else
; Если цвет не найден, установить переменную $hasColor в False
$hasColor = False
EndIf
EndFunc
Func IsLutInProgress()
; Возвращает True, если Lut() выполняется, иначе False
Return $hasColor
EndFunc
Последний раз редактировалось G1w28e4G6x5z; 14.01.2024 в 11:36.
Причина: Добавлено сообщение
|
|
|
Пользователь сказал cпасибо:
|
|
14.01.2024, 11:49
|
#17
|
|
|
|
Разведчик
|
 Регистрация: 25.08.2012
 Сообщений: 12
 Популярность: -424
 Сказал(а) спасибо: 32
Поблагодарили 15 раз(а) в 14 сообщениях
|
Re: Пишем простого бота, который работает везде и практически невидим.
Сможет кто то написать простенького бота для сбора ресов на 1.3.6? По цене договоримся,прошу в ЛС
________________
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
|
|
|
14.01.2024, 12:12
|
#18
|
|
|
|
Разведчик
|
 Регистрация: 06.06.2015
 Сообщений: 2
 Популярность: 10
 Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
|
Re: Пишем простого бота, который работает везде и практически невидим.
" это ""
|
|
|
12.03.2024, 22:09
|
#19
|
|
|
|
Разведчик
|
 Регистрация: 13.09.2021
 Сообщений: 1
 Популярность: 10
 Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Пишем простого бота, который работает везде и практически невидим.
Как по мне так уж лучше UoPilot так как он уже в обертке,только пиши настрой=запусти.Как пример скрипт для друида(написан за пару часов из исходников из интернета(да и с сайта)Работает на ура(если вы конечно не полный имбицил)если ставить правильные тайминги.Но не мне вас учить читать инструкции к программам
:main //Наземный с рандомом
send {Tab} 100
// Присаживаемся(медетируем), когда мало НР\MP на выбор-ИЛИ ставите банки на панель(на ваше усмотрение)
:Rest
if 115, 106 2502707 // HP\MP вашего персонажа
send F3 200 //скил \банка\медетация(как пожелаете)
wait 120s // Сидим 120сек(время задаем сами)ТАЙМИНГ-РЕДАКТИРУЙТЕ ПОД СВОИ НУЖДЫ!!!!!!!!!!
end_if
//Проверка XP пета для хила
:PETheal_check
if 1003, 125 0 //ставим точку и цвет показателя НР когда хилить
goto PETheal
end_if
// Хил Пета
:PETheal
while 1003, 125 0 // Хил Пета =вставить координаты из Проверка XP пета для хила
send F5 200 //Скил хила пета
end_while
//Проверяем состояние НР моба, если живой - атакуем
:check_target
if 892, 83 3224264 //ставим точку и цвет крайнего левого угла показателя НР моба
goto attack
end_if
goto main
// Цикл "Атака"
:attack
sendex @1 //нажимает alt+1(атака петом)Если клавиша не односимвольная (Tab, Enter, F5 и т.д.), то ее необходимо заключать в фигурные скобки: @{Tab}
wait random(1000) + 500 // рандомное время нажатия--(2000) + 500=от 2сек до 2.5сек(подбирайте тайминги под каст взависимости от спелла)
sendex @3 //2е умение петомца alt+3
send f6 200 //1е-умение (обычная аттака-ручная что бы подойти поближе как пример)
wait random(3000) + 500 // рандомное время нажатия--(2000) + 500=от 2сек до 2.5сек(подбирайте тайминги под каст взависимости от спелла)
send F1 200 // 2е-умение (дебаф допустим)
wait random(3000) + 500 // рандомное время нажатия--(2000) + 500=от 2сек до 2.5сек(подбирайте тайминги под каст взависимости от спелла)
send F7 200 //3е-умение (основное аттакующее)
wait random(500) + 500
goto kill
//Бьем-добиваем моба
:kill //Атака в цикле с проверкой НР моба
while 617, 84 2039744 // координаты из :check_target(можно и другие)
send F7 //умение которое задали до этого в Цикл "Атака"
wait random(300) + 500 // рандомное время нажатия--(2000) + 500=от 2сек до 2.5сек(подбирайте тайминги под каст взависимости от спелла)
end_while
goto PickUp
//Подбор дропа
:PickUp
send F2 200
wait random(700) + 500 //свои тайминги
send F2 200
wait random(700) + 500 //свои тайминги
send F2 200
wait random(700) + 500 //свои тайминги
send F2 200
wait random(700) + 500 //свои тайминги
send F2 200
wait random(700) + 500 //свои тайминги
goto main
Это только как пример.Может надо чего то дорабатывать(ну или переделывать под свои нужды).
Просто AutoIt для обычного обывателя темный лес,да и многие знатоки такие делают ошибки что скрипт зацикливается или раздувается так что загружает почти все ядра (и даже на очень мощных пк)
Ps:UoPilot как бы легче и понятные+уже в оболочке с редактором
Последний раз редактировалось Andemi; 13.03.2024 в 01:35.
|
|
|
17.08.2024, 23:05
|
#20
|
|
|
|
Разведчик
|
 Регистрация: 09.08.2018
 Сообщений: 3
 Популярность: 10
 Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Пишем простого бота, который работает везде и практически невидим.
а как реализовать это на сервере где нет таба?
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 19:44.
|
 |