[World of Tanks] Бот для игры by LTR

Opt("MouseCoordMode",2)
Opt("PixelCoordMode",2)
Opt ("TrayIconDebug",1)
WinActivate ("[TITLE:WoT Client]")
MouseClick("primary",643, 74) 
While WinActivate ("[TITLE:WoT Client]")
   If PixelGetColor(643, 74)==0xF82221 Then MouseClick ("primary",643, 74)
WEnd

#comments-start
Бот для игры Мир танков
Обязательное условие, игру необходимо запустить в
оконном режиме с разрешением 1024х768, иначе бот
будет работать не корректно!
Так же для данного бота необходим мод xvm-lite!
Бот предназначен под стандартные бои!
#comments-end

Opt("PixelCoordMode", 2) ; Отсчет координат пикселей от левого верхнего угла клиентской части окна
Opt("MouseCoordMode", 2) ; Отсчет координат мыши от левого верхнего угла клиентской части окна

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

; Пользовательские функции
#include <C:\AutoIT\DropBox\LangFunc.au3>		; Языковой файл
#include <C:\AutoIT\DropBox\HangarFunc.au3>		; Логин, элементы ангара
#include <C:\AutoIT\DropBox\BonusFunc.au3>		; Функции допю функционала
;#include <C:\AutoIT\DropBox\BattelFunc.au3>	; Стрельба и наведение
;#include <C:\AutoIT\DropBox\SocialFunc.au3>	; Чат
;#include <C:\AutoIT\DropBox\MoveFunc.au3>		; Передвижение по карте
;#include <C:\AutoIT\DropBox\HostFunc.au3>		; Соединение с сервером бота
;#include <C:\AutoIT\DropBox\StrategyFunc.au3>	; Стратигия боя
;#include <C:\AutoIT\DropBox\StatsFunc.au3>		; Статистика бота
;#include <C:\AutoIT\DropBox\GUI.au3>			; GUI

; Задаем горячую клавишу остановки скрипта
HotKeySet ("{`}","_exit")

; Данные переменные будут управляться черещ .ini файл, как результат работы GUI
$MainTanks=1	; Диапазон значений от 0 до 2
$TankNation=1	; Диапазон значений от 0 до 6
$TankType=1		; Диапазон значений от 0 до 5
$TankSelect=1	; Диапазон значений от 1 до 7
$GoToBattele=1	; Диапозон значений от 1 до 2

; Активируем окно игры
ToolTip($WinActivate_ln,0,0)
Sleep(2000)
WinActivate("[TITLE:WoT Client]","")
 
; Начинаем основной цикл, пока в нем не вернется лож
While 1
   Select
	  ; Если окно не игры не активно
	  Case WinActive("[TITLE:WoT Client]","") = 0
		 MsgBox(0,$ProgTitle_ln,$MsgWinNotActive_ln,5)
		 ExitLoop
	  ; Если окно игры активно
	  Case Not WinActivate("[TITLE:WoT Client]","") = 0
		 ToolTip($WinActive_ln,0,0)
		 Sleep(2000)
		 _Login()
		 sleep(2000)
	  ; Проверяем нужно ли выбрать основные танки или нет
	  Case Not WinActivate ("[TITLE:WoT Client]","") = 0
		 _MainTanks($MainTanks)
	  ; Проверяем нужно ли выбрать танки конкретной нации или нет
	  Case Not WinActivate ("[TITLE:WoT Client]","") = 0
		 _TankNation($TankNation)
	  ; Проверяем нужно ли выбирать класс техники
	  Case Not WinActivate ("[TITLE:WoT Client]","") = 0
		 _TankType($TankType)
	  ; Выбираем танк на котором пойдем в бой
	  Case Not WinActivate ("[TITLE:WoT Client]","") = 0
		 _TankSelect($TankSelect)
	  ; Уходим в бой
	  Case Not WinActivate ("[TITLE:WoT Client]","") = 0
		 _GoToBattele($GoToBattele)
EndSelect
WEnd