Регистрация Главная Сообщество
Сообщения за день Справка Регистрация
Навигация
Zhyk.org LIVE! Реклама на Zhyk.org Правила Форума Награды и достижения Доска "почета"

Пишем простого бота, который работает везде и практически невидим.

-

Боты, скрипты и прочий софт для Perfect World

- Весь софт по Perfect World и все, что связано с ботоводством и скриптописанием в этом разделе. Вопросы запрещены!

Ответ
 
Опции темы
Старый 14.01.2024, 07:37   #16
 Разведчик
Аватар для G1w28e4G6x5z
 
G1w28e4G6x5z никому не известный тип
Регистрация: 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 в 10:36. Причина: Добавлено сообщение
  Ответить с цитированием
Пользователь сказал cпасибо:
pliaxy (14.01.2024)
Старый 14.01.2024, 10:49   #17
 Разведчик
Аватар для pliaxy
 
pliaxy неизвестен в этих краяхpliaxy неизвестен в этих краяхpliaxy неизвестен в этих краяхpliaxy неизвестен в этих краяхpliaxy неизвестен в этих краях
Регистрация: 25.08.2012
Сообщений: 12
Популярность: -424
Сказал(а) спасибо: 32
Поблагодарили 15 раз(а) в 14 сообщениях
Отправить сообщение для pliaxy с помощью Skype™
 
По умолчанию Re: Пишем простого бота, который работает везде и практически невидим.

Сможет кто то написать простенького бота для сбора ресов на 1.3.6? По цене договоримся,прошу в ЛС
________________
Battlefield 4
  Ответить с цитированием
Старый 14.01.2024, 11:12   #18
 Разведчик
Аватар для G1w28e4G6x5z
 
G1w28e4G6x5z никому не известный тип
Регистрация: 06.06.2015
Сообщений: 2
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
 
По умолчанию Re: Пишем простого бота, который работает везде и практически невидим.

&quot это ""
  Ответить с цитированием
Старый 12.03.2024, 21:09   #19
 Разведчик
Аватар для Andemi
 
Andemi никому не известный тип
Регистрация: 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 в 00:35.
  Ответить с цитированием
Ответ


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Продам] Бот для ХФ5, работает практически везде. flepSt Lineage 2 0 27.11.2012 18:22
полет практически везде Polimer Баги и читы для Aion 11 31.10.2010 19:44

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 15:06.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net