АХК бот на шахту и стройку GTA5RP

AHK_bots

Новичок
Автор темы
10
2
Бот для начальных работ шахты и стройки, сам нажимает клавиши, отображает кол-во собраных точек и воспроизводит звуковой сигнал после 25 подходов (собрана бипишка)
Функция подсчета и вывода взята из темы. Запуск F5 выключение F7, тестировалось на монитор 1920х1080, режим окно без рамок, без редуксов,решейдов,заменёнок и тд. По вопросам в лс.

AutoHotKey:
UrlDownloadToFile, https://raw.githubusercontent.com/KituhasWHCS/wh/main/2.jpg, %a_temp%\2.png
UrlDownloadToFile, https://raw.githubusercontent.com/KituhasWHCS/wh/main/3.png, %a_temp%\3.png
UrlDownloadToFile, https://raw.githubusercontent.com/KituhasWHCS/wh/main/4.png, %a_temp%\4.png
UrlDownloadToFile, https://raw.githubusercontent.com/KituhasWHCS/wh/main/123321123321.png, %a_temp%\123321.png

F5::
FilePath := A_MyDocuments . "\scr.ini"
IniRead, total_vb, %FilePath%, scr, total_vb
Gui, +AlwaysOnTop +ToolWindow -Caption
Gui, Add, Text, vBoxCountText w200, Точек собрано: %total_vb%
Gui, Show, x0 y0

FindKey:
ImageSearch, xp, yp, 940, 628, 980, 672, *50 %a_temp%\123321.png
If !ErrorLevel
{
Key = E1
Goto UseKey
}
ImageSearch, xp, yp, 900, 500, 1000, 600, *50 %a_temp%\2.png
If !ErrorLevel
{
Key = E
Goto UseKey
}
ImageSearch, xp, yp, 900, 500, 1000, 600, *50 %a_temp%\3.png
If !ErrorLevel
{
Key = Y
Goto UseKey
}
ImageSearch, xp, yp, 900, 500, 1000, 600, *50 %a_temp%\4.png
If !ErrorLevel
{
Key = F
Goto UseKey
}
Goto FindKey
UseKey:
if ( Key = "E" || Key = "F" || Key = "Y"){
Send {%Key%}
Sleep, 75
ImageSearch, xp, yp, 900, 500, 1000, 600, *50 %a_temp%\2.png
If !ErrorLevel
{
Key = E
Goto UseKey
}
ImageSearch, xp, yp, 900, 500, 1000, 600, *50 %a_temp%\3.png
If !ErrorLevel
{
Key = Y
Goto UseKey
}
ImageSearch, xp, yp, 900, 500, 1000, 600, *50 %a_temp%\4.png
If !ErrorLevel
{
Key = F
Goto UseKey
}
else{
total_vb += 1
IniWrite, %total_vb%, %FilePath%, scr, total_vb
GuiControl,, BoxCountText, Точек собрано: %total_vb%
if(total_vb = 25){
SoundBeep 700,200
total_vb = 25.1
}
Goto FindKey
}
}
if ( Key = "E1"){
1:
Send E
Sleep, 115
ImageSearch, xp, yp, 940, 628, 980, 672, *50 %a_temp%\123321.png
If !ErrorLevel{
goto 1
}
else{
total_vb += 1
IniWrite, %total_vb%, %FilePath%, scr, total_vb
GuiControl,, BoxCountText, Точек собрано: %total_vb%
if(total_vb = 25){
SoundBeep 700,200
total_vb = 25.1
}
Goto FindKey
}
}
F7::
total_vb := 0
IniWrite, %total_vb%, %FilePath%, scr, total_vb
ExitApp
 
  • Нравится
Реакции: Tonys[15] и xtr