#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.8.1
Author: B. Roman
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
#include <GUIConstants.au3>
#include <Array.au3>
#include <file.au3>
Opt("MouseCoordMode", 0)
Opt("PixelCoordMode", 0)
Opt("MouseClickDelay", 100)
Opt("MouseClickDownDelay", 100)
HotKeySet("{END}","Quit")
Global $path, $appwait
$path="C:\Documents and Settings\BotUser\Рабочий стол\Tales of Pirates II\start.bat" ;Путь к батнику
$appwait=35000 ;Время загрузки окон
Dim $logins
_FileReadToArray(@ScriptDir & '\logins.txt', $logins) ;Логины с паролями
$directory = StringTrimRight( $path, 9 ) ;Обрезка start.bat
For $i = 1 To $logins[0] ;Запуск окон
Run($path, $directory)
Next
Sleep($appwait)
$list = WinList('Tales of Pirates II') ;Получение HWND окон
For $i = 1 To $logins[0] ;Вход в игру
$login = StringRegExp($logins[$i], "^([0-9A-Za-z]+?):", 3)
$password = StringRegExp($logins[$i], ":([0-9A-Za-z]+?):", 3)
$character = StringRegExp($logins[$i], ":([0-3]);" , 3)
WinActivate($List[$i][1])
sleep(10000)
MouseClick("primary", 515, 313, 1, 1)
Send($login[0])
Sleep(3000)
Send("{TAB}")
Send($password[0])
Sleep(3000)
Send("{ENTER}")
Sleep(10000)
Do ;Проверка на выбор персонажа
Select ;Номер персонажа в окне выбора
Case $character[0] = 1
MouseClick("primary", 204, 450, 2, 1)
Case $character[0] = 2
MouseClick("primary", 431, 393, 2, 1)
Case $character[0] = 3
MouseClick("primary", 617, 439, 2, 1)
EndSelect
Sleep(7000)
Until PixelGetColor(702,219) = 0x636D6C
MouseClick("primary", 401, 359, 1, 1)
Sleep(3000)
Send('{altDOWN}')
send('у')
Send('{altup}')
sleep(3000)
Next ;Конец запуска
sleep(10000)
While 1
For $i = 1 To $logins[0]
Do
WinActivate($List[$i][1])
MouseClick("primary", 322, 416, 2, 1)
sleep(3000)
MouseClick("primary", 283, 411, 1, 1)
Sleep(3000)
Until PixelGetColor(164,86) = 0xD55966
Next
Sleep(6000000)
WEnd
Func Quit()
Exit
EndFunc
