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

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

-

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

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

Ответ
 
Опции темы
Старый 14.01.2024, 08: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 в 11:36. Причина: Добавлено сообщение
  Ответить с цитированием
Пользователь сказал cпасибо:
pliaxy (14.01.2024)
Старый 14.01.2024, 11: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, 12:12   #18
 Разведчик
Аватар для G1w28e4G6x5z
 
G1w28e4G6x5z никому не известный тип
Регистрация: 06.06.2015
Сообщений: 2
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
 
По умолчанию Re: Пишем простого бота, который работает везде и практически невидим.

&quot это ""
  Ответить с цитированием
Ответ

Опции темы

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

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

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

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

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

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

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