Что нового

[Бот]Для игры World Of Tanks,не работает часть кода.

Статус
Закрыто для дальнейших ответов.

F4nT0m

Новичок
Сообщения
54
Репутация
2
1.Исходник не мой,я только подправил кое-что.
Собственно столкнулся с проблемой,бот не делает ничего в игре,от есть все проверки работают,а ничего не происходит.Проверял вот этим исходником,собственно и его можно править:
Код:
; -30 ширина верхушки в окне эту велечину нужно отнимать по вертикали
Opt("PixelCoordMode", 2) ; Определяем пиксили от верхнего левого угла окна
Opt("MouseCoordMode",2) ; Определяем положение курсора от левого верхнего угла окна

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$WoT = GUICreate("WoTBoT v.0.6.5", 395, 265, 192, 124)
$Client = GUICtrlCreateGroup("", 8, 20, 185, 129)
$AutoRelog = GUICtrlCreateCheckbox("Авто вход в игру", 16, 34, 169, 17)
$ChangTank = GUICtrlCreateCheckbox("Поиск свободного танка", 16, 50, 169, 25)
$SortLabel = GUICtrlCreateLabel("В каком порядке выбирать танк", 16, 74, 169, 17)
$SortTank = GUICtrlCreateInput("", 16, 115, 169, 21)
$Label2 = GUICtrlCreateLabel("( 1,2,3 )", 75, 90, 100, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label8 = GUICtrlCreateLabel("= = Управление чатом = =", 220, 8, 153, 17)
GUICtrlSetColor(-1, 0xFF0000)
$Group2 = GUICtrlCreateGroup("", 200, 20, 185, 129)
$Checkbox3 = GUICtrlCreateCheckbox("Вкл/Выкл", 208, 34, 145, 17)
$Label3 = GUICtrlCreateLabel("Сообщение", 208, 54, 62, 17)
$Input = GUICtrlCreateInput("", 208, 74, 168, 63)
GUICtrlCreateGroup("", -99, -99, 1, 1)
;$SaveSet = GUICtrlCreateButton("Сохранить настройки", 208, 144, 129, 25, $WS_GROUP)
$StartBot = GUICtrlCreateButton("Запуск", 130, 164, 129, 25, $WS_GROUP)
$Label4 = GUICtrlCreateLabel(" Для работы бота вам необходимо запустить игру в оконом режиме", 15, 200, 353, 17)
$Label5 = GUICtrlCreateLabel("и выставить разрешение 1024х768", 105, 220, 182, 17)
$Label6 = GUICtrlCreateLabel("В противном случае бот не запустится!", 95, 240, 212, 17)
GUICtrlSetColor(-1, 0xFF0000)
$Label7 = GUICtrlCreateLabel("= = Управление клиентом = =", 25, 8, 153, 17)
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        ; попытка сохранять параметры в Ini
        ;Case $SaveSet
        ;    $ARState = GUICtrlRead($AutoRelog)
        ;    $CTState = GUICtrlRead($ChangTank)
        ;    $STState = GUICtrlRead($SortTank)
        ;    If $ARState = 1  Then
        ;        IniWrite("Bot.ini", "ClConfig", "AutoRelogin", 1)
        ;    Else
        ;        IniWrite("Bot.ini", "ClConfig", "AutoRelogin", 0)
        ;   EndIf
        ;    If $CTState = 1  Then
        ;        IniWrite("Bot.ini", "ClConfig", "ChangeTank", 1)
        ;    Else
        ;       IniWrite("Bot.ini", "ClConfig", "ChangeTank", 0)
        ;    EndIf
        ;    IniWrite("Bot.ini", "ClConfig", "SortTank", $STState)
        ; запуск бота
        Case $StartBot
            ; активируем окно игры
            WinActivate("[TITLE:W.o.T. Client]","")
            While 1
            Select            
                ; Проверяем активно ли окно игры
                Case WinActive("[TITLE:W.o.T. Client]","") = 0
                    MsgBox(0,"Сообщение","Окно игры не активно, бот остановлен")
                    ExitLoop
                ; Если окно активно,проверяем залогинен ли клиент
                Case PixelGetColor(1000,20) = 0x000000
                    ; Если логин не совершен, совершаем его
                    Sleep(3000)
                    MouseClick("",512,540,2)   
                ; Проверяем что мы в ангаре
                Case PixelGetColor(516,94) = 0x080000
                ; Начинаем выбор танка
                Case Not WinActive("[TITLE:W.o.T. Client]","") = 0
                ; Проверяем 1 слот
                If PixelGetColor(461,40) = 0xB02022 Then
                    Sleep(3000)
                    MouseClick("",180,657,5)
                    Sleep(3000)
                    MouseClick("",511,46,5)
                ; Проверяем 2 слот
                ElseIf PixelGetColor(461,40) = 0xB02022 Then
                    Sleep(3000)
                    MouseClick("",348,657,5)
                    Sleep(3000)
                    MouseClick("",511,46,5)
                ; Проверяем 3 слот
                ElseIf PixelGetColor(461,40) = 0xB02022 Then
                    Sleep(3000)
                    MouseClick("",511,657,5)
                    Sleep(3000)
                    MouseClick("",511,46,5)
                ; Проверяем 4 слот
                ElseIf PixelGetColor(461,40) = 0xB02022 Then
                    Sleep(3000)
                    MouseClick("",679,657,5)
                    Sleep(3000)
                    MouseClick("",511,46,5)
                EndIf
                ; Параметры боя

                Case Not WinActive("[TITLE:W.o.T. Client]","") = 0
                    PixelSearch(0,0,1013, 609,0x1B190D,100)
                    If @error=0 Then
						MsgBox(0,"1","")
                        Sleep(3000)
                        Send("{R 2}")
                    EndIf
                ; Если танк убит выходим из боя
                Case Not WinActive("[TITLE:W.o.T. Client]","") = 0
				PixelSearch(0,0,222, 628,0x0E0C07,100)
				If @error=0 Then
					MsgBox(0,"2","")
                        Sleep(1500)
						Send("{ESC}")
                       MouseClick("",715, 437,5)
					   Send("{LEFT}")
					   Send("{ENTER}")
                EndIf

            EndSelect          
            WEnd
    EndSwitch
WEnd
 

Belfigor

Модератор
Локальный модератор
Сообщения
3 596
Репутация
938
Re: [Бот]Для игры World Of Tanks.

Предупреждение За нарушение правил форума (пункт Б.5):
Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.


Данные правила могут пополняться локальными правилами раздела.
Как правильно называть темы

"[Бот]Для игры World Of Tanks. " - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, Модератор раздела.
 

Belfigor

Модератор
Локальный модератор
Сообщения
3 596
Репутация
938
Тема закрыта.
 
Статус
Закрыто для дальнейших ответов.
Верх