Top.Mail.Ru
Ответы
Аватар пользователя
Аватар пользователя
Аватар пользователя
Аватар пользователя
Программирование
+2

Программисты помогите Автокликер perfect click

Я хотел написать код для автокликера perfect click для автоматизации фарма в игре
Но сам программирования не знаю и попросил чат гпт
После часа мучений добился от него более менее адекватного кода который не выдаёт ошибки в автокликере
Но он всё равно не работает

Помогите пожалуйста найти ошибку или написать рабочий код

Запрос:Напиши код для автокликера
На языке Autolt.

Клик 1 начинает игру координаты(1483,272)
Только если цвет(13899008)
Через 51 секунду
Клик 2 выбирает персонажа
Координаты (1180,1105)
Через 1 секунду
Клик 3 координаты(1561,767 )
Через 300 миллисекунд
Клик 4 координаты (1561,767)
Ставит персонажа
Через 1 секунду
Клик 5 координаты (1561,767)
Открывает меню улучшения
Клик 6 каждый раз в случае если в координатах ( 480,789) цвет (14721486)
Улучшает персонажа
Если в координатах (1483,272)
Цвет (13899008)
Цикл повторяется
Код:
#include < MsgBoxConstants.au 3>

; Координаты и цвета
Local $startButtonX = 1483
Local $startButtonY = 272
Local $startButtonColorDec = HexToDec("14721486") ; Преобразование в десятичное

Local $characterSelectX = 1180
Local $characterSelectY = 1105

Local $placeCharacterX = 1561
Local $placeCharacterY = 767

Local $upgradeMenuX = 1561
Local $upgradeMenuY = 767

Local $upgradeButtonX = 480
Local $upgradeButtonY = 789
Local $upgradeButtonColorDec = HexToDec("14721486") ; Преобразование в десятичное

; Задержки (в миллисекундах)
Local $delayStart = 51000
Local $delayCharacterSelect = 1000
Local $delayPlaceCharacter = 300
Local $delayUpgradeMenu = 1000
Local $delayCheckUpgrade = 500 ;Проверка цвета кнопки улучшения

; Функция для преобразования шестнадцатеричного цвета в десятичный
Func HexToDec($hex)
Return Number(StringReplace($hex, "0x", "")) ;Удаление "0x" перед преобразованием
EndFunc

While 1
; Проверка цвета кнопки старта
If PixelGetColor($startButtonX, $startButtonY) = $startButtonColorDec Then
ConsoleWrite("Кнопка старта найдена. Начинаем игру..." & @CRLF)
MouseClick(1, $startButtonX, $startButtonY)

Sleep($delayStart)

ConsoleWrite("Выбираем персонажа..." & @CRLF)
MouseClick(1, $characterSelectX, $characterSelectY)

Sleep($delayCharacterSelect)

ConsoleWrite("Размещаем персонажа..." & @CRLF)
MouseClick(1, $placeCharacterX, $placeCharacterY)
Sleep($delayPlaceCharacter)
MouseClick(1, $placeCharacterX, $placeCharacterY)

Sleep($delayUpgradeMenu)

ConsoleWrite("Открываем меню улучшений..." & @CRLF)
MouseClick(1, $upgradeMenuX, $upgradeMenuY)

; Цикл улучшения
While PixelGetColor($upgradeButtonX, $upgradeButtonY) = $upgradeButtonColorDec
ConsoleWrite("Кнопка улучшения найдена. Улучшаем персонажа..." & @CRLF)
MouseClick(1, $upgradeButtonX, $upgradeButtonY)
Sleep($delayCheckUpgrade)
WEnd

ConsoleWrite("Цикл улучшений завершен." & @CRLF)

Else
ConsoleWrite("Кнопка старта не найдена. Ожидание..." & @CRLF)
Sleep(2000)
EndIf
WEnd

По дате
По рейтингу
Аватар пользователя
Новичок
6мес

цвет надо наоборот декТоХекс.
Ну и попрови гпт написать для автохоткея, у них язык вроде один.