#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\icons\иконки устройств\1013.ico
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Date.au3>
Opt("TrayIconDebug", 1)
Opt("PixelCoordMode", 2) ;Отсчет координат пикселей от левого верхнего угла клиентской части окна
Opt("MouseCoordMode", 2) ;Отсчет координат мыши от левого верхнего угла клиентской части окна
Opt ("MouseClickDelay", 20);Задаем интенсивность нажатия мыши.
Opt ("SendKeyDownDelay", 100)
HotKeySet ("{`}","_exit");задаем горячую клавишу остановки скрипта
HotKeySet ("{\}","_pause")
HotKeySet ("{RIGHT}","BookmarkPlus");горячая клавиша изменения номера буки в процессе работы бота +
HotKeySet ("{LEFT}","BookmarkMinus");горячая клавиша изменения номера буки в процессе работы бота -
HotKeySet("{UP}","DroneUse");активировать,деактивировать работу дронов.
HotKeySet("{DOWN}","ConvoSwitch");выбрать реакцию на конво mp3 или выход из игры.
WinMove("EVE", "", -3, -27)
;+++ Шапка +++
Global $CharName="Char Name";здесь имя вашего чара в еве
Global $Status="#";это переменная текущего действия или процесса.
Global $NearDockWarp=0;после разгруза возле станции.ситуация - нет астеров-> белт+1,летим на белт.чтобы избежать этого информ.логику просто варпаться после разгруза.
Global $Dock=0;ситуация при прилете к станции-нет астероидов-->летим на белт.чтобы избежать этого информируем логику ждать дока,а не варпаться.
Global $MidCicleTime[4];средняя длительность цикла
Global $CicleWorked=0;длительность последнего цикла
Global $ConvoExe="mp3";ставим по умолчанию срабатывание mp3 при срабатывании проверки конво
Global $DroneUse=IniRead("D:\Eve.ini","Drone","Use","Да");использовать ли боту дронов в процессе.
Global $ProcChk;процесс
Global $RndStrp;рандомная длительность активности стрипа
Global $all;все в одной переменной.пока не используется
Global $FullEmptyCheck;проверка на наличие любого лута,если на станции
Global $SpaceChk;проверка на космос.
Global $WarpChk;проверка на варп
Global $Belt;состояние возможности майнить на белте.
Global $CargoChk;переменная заполненности трюма
Global $10kmChk;переменная проверки 10км
Global $AsterChk;переменная наличия астероидов на буке
Global $LockChk;переменная лока
Global $StripChk;переменная активности стрипов
Global $LootCount=0;счетчик количества сбросов лута за время работы бота.
Global $DrChk;счетчик для вычисления кликов мышью.если только прилетели на белт полный набор кликов для запуска дронов и активации майна ими.
Global $pause
Global $CicleTime;переменная длительности цикла
Global $timer = TimerInit();таймер общей работы скрипта
Dim $hour,$min,$sec
Global $y=133;координата Y в меню бук.
Global $x;Номер буки
;===================================
AdlibRegister("Status")
IniWrite("D:\eve.ini","Script", _NowCalc(),"Start,Бука №" & $x)
$CicleTime = TimerInit();засекаем длительность 1 цикла.
While 1
Mine()
Wend
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ЛОГИКА;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func Mine()
Local $StrpTimer;переменная таймера работы стрипа
While 1
AllChecks()
Select
Case $SpaceChk="Загрузка..." or $ProcChk="процесс..." or $WarpChk=1
Sleep(100)
Case $SpaceChk="Док"
If $FullEmptyCheck="Есть" Then
_Action("OreToHome")
Else
_Action("Undock")
EndIf
Case $CargoChk=1
If $Dock=1 Then
$Status="Жду док..."
Sleep(300)
Else
_Action("Dronecontrol")
_Action("Dock")
EndIf
Case $AsterChk=0;если белт не ботабельный,то летим дальше...
If $Dock=1 Then
$Status="Жду док..."
Sleep(300)
EndIf
If TimerDiff($CicleTime)<=30000 or $NearDockWarp=1 Then;если бот только запустился или андокнулся варпаемся на белт,не плюсуя буку
_Action("WarpToBelt")
Else
_Action("WarpToBelt","Бука+")
EndIf
Case $AsterChk=1;если белт ботабельный,то...
If $LockChk=0 Then;если нет лока,то...
_Action("StripChk","Off");проверка выключены ли стрипы - иногда дроны съедают астер и стрипы продолж.работать.выключаем если так.
_Check("Chk10km");проверка ближе или дальше 10км - так как для этого нужно кликнуть мышей - вывел из цикла проверок.
If $10kmChk="<10км" Then;если астероид ближе 10км
_Action("LockTarget");лочим
_Action("StartDrone");дроны атаке
EndIf
If $10kmChk=">10км" Then;если астеры ближе 10 км кончились.
Sleep(5000)
_Check("Chk10km");---- ЭТА ПОВТОРНАЯ ПРОВЕРКА НА ВСЯКИЙ СЛУЧАЙ.
If $10kmChk="<10км" Then;если астероид ближе 10км
IniWrite("D:\eve.ini","Error",_Nowtime(5), "Сработала повторная проверка" & " Бука №" & $x)
_Action("LockTarget");лочим
_Action("StartDrone");дроны атаке
;-----///-------
Else
_Action("WarpToBelt","Бука+");если не кончились буки - летим на следующую.
EndIf
EndIf
EndIf
If $LockChk=1 Then;если лок есть,то...
If $StripChk=1 Then;если стрипы пашут,проверяем прошло ли от 25-30 сек.если прошло - остановить стрипы.
_Action("StripChk","On")
$Status="Грызу метеор"
If TimerDiff($StrpTimer)>=$RndStrp Then
_Action("StripChk","On");проверка для всех стрипов,так как активность $StripChk проверяется по первому стрипу- иногда нужно выровнять.
$Status="Выключаю стрипы"
Send ("{f1}")
Send ("{f2}")
Send ("{f3}")
Sleep(2000)
EndIf
EndIf
If $StripChk=0 Then;если стрипы не работают...
$StrpTimer = TimerInit();активируем таймер,для проверки сколько работают стрипы.
$Status="Включаю стрипы"
Send ("{f1}")
Send ("{f2}")
Send ("{f3}");включаем стрипы
$RndStrp=Random(30000,35000)
MouseMove(774, 183);возвращаем мышку ближе к след.клику,чтобы потом не тратить на это время.
Sleep(2000);если уменьшить стрипы не успев включиться,могут выключиться.
EndIf
EndIf
Case Else
$Status="Неописанная ситуация!"
Sleep(100)
EndSelect
WEnd
EndFunc
;=================================================
Func Status();тултип - важная информация о боте в данный момент.обрабатывается adlib,поэтому всегда актуальна.
_Check("bookmark")
ToolTip("Белт №"&$x&"\Ср.длит.цикла="&$MidCicleTime[0]&"\Конво="&$ConvoExe&"\Использование дронов="&$DroneUse&@LF&"Статус = "&$Status,0,0)
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Действия;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func _Action($Do,$Do2="No")
Select
Case $Do="Dock"
;++++++++++ Полет домой
$Status="Докаюсь"
MouseClick ("left",62, 47,1,20);клик на треугольник
MouseMove (123, 56,20);аккуратно ведем мышь
MouseMove (123, 157,20);дом
MouseMove (223, 157,20);додвигаем до начала меню дом
Sleep(300)
PixelSearch(215, 250,356, 256,0x8F8F8F,10)
If Not @error Then
MouseClick ("left",223, 220,1,20);5й пункт 1й буки
sleep (4000)
_Check("CheckWarp")
If $WarpChk=1 Then
$dock=1
EndIf
Else
MouseClick ("left",223, 203,1,20);4й пункт 1й буки - если мы возле станции
If $NearDockWarp=1 Then
Sleep(20000)
EndIf
$dock=1
EndIf
;========================================
Case $Do="WarpToBelt"
;++++++++++ функция полета на белт
If $Do2="Бука+" Then
$y=$y+16
$Status="Меняю белт"
If $DroneUse="Да" Then
_Action("Dronecontrol");рекурсия - уж лучше с ней,чем 2 раза повторять кусок кода.
EndIf
If $y>454 Then
_exitgame()
_exit()
EndIf
EndIf
$Status="Варпаюсь на белт"
MouseClick ("left",62, 47,1,20);клик на треугольник
MouseMove(120, 52,20);плавно ведем мышь по меню
MouseMove(120, 133,20)
MouseMove(240, 133,20)
;доводим до списка бук белтов - эти первые 3 операции с мышью
;для всех бук одинаковы
MouseMove(240, $y,20);доводим до 1й буки в списке(разница в 16 пикселей)
MouseClick("left",340, $y,1,20);
;PixelSearch(839, 7,847, 15,0x868686,10)
;;If Not @error Then
; Send("{F11}")
;EndIf
Sleep(4000);ожидание Гипердрайв активен.
$DrChk=0
_Check("CheckWarp")
If $WarpChk=1 Then
$NearDockWarp=0
EndIf
;======================================
Case $Do="Undock"
;++++++++++ вылет со станции.
$Status="Андок"
MouseClick("left",17, 735);щелчок на андок
$Dock=0
$NearDockWarp=1
;=====================================
Case $Do="StripChk"
;++++++++++ контроль стрипов
Select
Case $Do2 = "On"
PixelSearch(611, 650,612, 650,0x000000);проверка активности 1го стрипа
If Not @error Then
$Status="стрип 1 не включился - активирую..."
IniWrite("D:\eve.ini","Error",_Nowtime(5), "противофаза - стрип 1 не включился" & " Бука №" & $x)
Send ("{f1}")
Sleep (500)
EndIf
PixelSearch(662, 650,663, 650,0x000000)
If Not @error Then
$Status="стрип 2 не включился - активирую...";проверка активности 2го стрип
IniWrite("D:\eve.ini","Error",_Nowtime(5), "противофаза - стрип 2 не включился" & " Бука №" & $x)
Send ("{f2}")
Sleep (500)
EndIf
PixelSearch(713, 650,714, 650,0x000000);проверка активности 3го стрипа
If Not @error Then
$Status="стрип 3 не включился - активирую..."
IniWrite("D:\eve.ini","Error",_Nowtime(5), "противофаза - стрип 3 не включился" & " Бука №" & $x)
Send ("{f3}")
Sleep (500)
EndIf
Case $Do2 = "Off"
PixelSearch(611, 650,612, 650,0x000000);проверка на выключение 1го стрипа
If @error Then
$Status="стрип 1 не выключился - выключаю..."
IniWrite("D:\eve.ini","Error",_Nowtime(5), "противофаза - стрип 1 не выключился" & " Бука №" & $x)
Send ("{f1}")
Sleep (500)
EndIf
PixelSearch(662, 650,663, 650,0x000000)
If @error Then
$Status="стрип 2 не выключился - выключаю...";проверка на выключение 2го стрипа
IniWrite("D:\eve.ini","Error",_Nowtime(5), "противофаза - стрип 2 не выключился" & " Бука №" & $x)
Send ("{f2}")
Sleep (500)
EndIf
PixelSearch(713, 650,714, 650,0x000000);проверка на выключение 3го стрипа
If @error Then
$Status="стрип 3 не выключился - выключаю..."
IniWrite("D:\eve.ini","Error",_Nowtime(5), "противофаза - стрип 3 не выключился" & " Бука №" & $x)
Send ("{f3}")
EndIf
EndSelect
;===============================
Case $Do="LockTarget"
;++++++++++ Лок + Активация дронов
$Status="Лочу цель"
MouseClick ("left",879, 76);жмем кнопку лока цели
If $DroneUse="Нет" Then
Sleep (2500);ждем лок
EndIf
;==============================
Case $Do="StartDrone"
;++++++++++ Старт дронов
If $DroneUse="Да" Then
$Status="Запускаю дронов"
If $DrChk=0 Then
MouseClick ("right",779, 628);меню дронов
sleep(200)
MouseClick ("left",806, 654);запустить дронов
Sleep (3000)
MouseClick ("right",779, 648);меню дронов
sleep(500)
MouseClick ("left",808, 695);непрерывно разрабатывать
sleep(100)
$DrChk=$DrChk+1
Else
MouseClick ("right",779, 648);меню дронов
sleep(2500)
MouseClick ("left",808, 695);непрерывно разрабатывать
sleep(100)
EndIf
EndIf
;==============================
Case $Do="OreToHome"
;++++++++++ кусок сброса лута
If $Status="процесс..." or TimerDiff($CicleTime)<=30000 Then
Sleep(100)
Else
Sleep (3500)
EndIf
$Status="Сбрасываю лут"
MouseClick("left",150, 597,1,20)
Send ("^a")
MouseClickDrag ("left",63, 665,83, 366,20)
Sleep (2000)
_Check("FullEmptyCheck")
If $FullEmptyCheck="Нет" Then;прописываем данные только тогда,когда пусто.
If TimerDiff($timer)>=60000 Then;для того,чтобы если вначале старта бота есть лут в карго - не считалось за сброс за цикл.
_TicksToTime(Int(TimerDiff($CicleTime)),$hour,$min,$sec);вычисление времени цикла
$CicleWorked=StringFormat("%02d:%02d:%02d", $hour,$min,$sec)
IniWrite("D:\eve.ini","Mined",_NowTime(5), "сброшен лут" & " Бука №" & $x & " Время цикла: "& $CicleWorked)
$LootCount=$LootCount+1;счетчик сброшенного лута
_TicksToTime((TimerDiff($timer)/$LootCount),$MidCicleTime[1],$MidCicleTime[2],$MidCicleTime[3])
If $LootCount=0 Then
$MidCicleTime[0]="-"
Else
$MidCicleTime[0]=StringFormat("%02d:%02d:%02d", $MidCicleTime[1],$MidCicleTime[2],$MidCicleTime[3])
EndIf
$CicleTime = TimerInit();засекаем длительность последующих циклов.
EndIf
EndIf
;================================
Case $Do="Dronecontrol"
;++++++++++ контроль возврата дронов
If TimerDiff($CicleTime)<=30000 or $DroneUse="Нет" Then
Return
Else
$Status="Забираю дронов"
Send ("!{2}")
;PixelSearch(1009, 644,1009, 644,0x010203,5);проверка открыто ли меню.когда не раскрыто - в этом пикселе точка черного цвета.
;If Not @error Then
MouseClick ("left",779, 648);раскрыть меню для анализа состояния
; sleep(100)
;EndIf
While 1
Sleep (1000)
PixelSearch(938, 666,959, 669,0x404040)
If @error Then
ExitLoop
EndIf
$Status="Ждем дрончегов!"
PixelSearch(844, 664,920, 671,0x00DC00,10)
;иногда после нажатия назначенной комбинации клавиш для возврата дронов,они просто прилетают к кораблю со статусом - не используется.проверяем.
If Not @error Then
$Status="сцуко дроны зависли,повторяю команду возврата"
Sleep(2000)
Send ("!{2}");если дроны висят,вместо того,чтобы возвратиться - послать команду еще раз.
IniWrite("D:\eve.ini","Error",_Nowtime(5), "Дроны зависли" & " Бука №" & $x)
EndIf
WEnd
$Status="Дроны вернулись!"
MouseClick ("left",779, 648);закрыть меню.можно раскомментить вначале функции проверку на раскрытость.проще просто закрыть.
Sleep (100)
Endif
;====================================
EndSelect
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Проверки;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func _Check($Object)
Select
Case $Object="bookmark"
;++++++++++ узнаем номер буки по текущей координате y
$x=($y-133)/16+1
;======================
Case $Object="Chk10km"
;++++++++++ Ближе или дальше 10км
MouseClick("left",774, 183,1,20)
Sleep(500)
PixelSearch (828, 40,830, 44,0x8F8F8F,10);проверка диапазона пикселей между 2х значным XX числом километров и слова км.на наличие серого оттенка цвета(цвет чисел).
If not @error Then;PixelSearch (836, 40,840, 44,0x8F8F8F,10) если появился нужный цвет в диапазоне,значит мы уже ближе 10км и представление цифр изменилось на XXXX м.
$10kmChk="<10км"
Else
PixelSearch (943, 74,951, 87,0x8E8E8E,10)
If @error Then
$10kmChk=">10км"
Else
PixelSearch (836, 40,840, 44,0x8F8F8F,10)
If @error Then
$10kmChk="<10км"
EndIf
EndIf
$10kmChk=">10км"
EndIf
;======================
Case $Object="StrpChk"
;++++++++++ Активность стрипов
PixelSearch(611, 650,612, 650,0x000000);проверяется по двум черным пикселям под 1ым модулем
If Not @error Then
$StripChk=0
Else
$StripChk=1
EndIf
;========================
Case $Object="AsterChk"
;++++++++++ проверка на наличие астероидов на белте
PixelSearch(926, 177,1005, 267,0xB1B1B1,10)
If Not @error Then
$AsterChk=1
Else
$AsterChk=0
EndIf
;========================
Case $Object="LockCheck"
;++++++++++ проверка цели на лок
PixelSearch(621, 80,636, 80,0x404040,10)
If not @error Then
$LockChk=1
Else
$LockChk=0
EndIf
;===============================
Case $Object="CargoCheck"
;++++++++++ проверка на заполненность трюма
PixelSearch (279, 617,279, 617,0x005067,10);проверка на наличие синего цвета.если есть,то заполнен.
If Not @error Then
$CargoChk=1
Else
$CargoChk=0
EndIf
;==================================
Case $Object="CheckWarp"
;++++++++++ функция проверки окончания варпа
PixelSearch (433, 527,433, 527,0xBFBFBF,10);проверяется левый верхний пиксель буквы Г в слове Гиперпрыжок :)пока он есть мы в гиперпрыжке.
If @error Then
$WarpChk=0
Else
$WarpChk=1
$Status="Варпаюсь"
EndIf
;=============================
Case $Object="CheckSpace"
;++++++++++ проверка на космос
PixelSearch(3, 713,29, 728,0xFFD342,10)
If Not @error Then;- мы находимся в доке.
$SpaceChk="Док"
Else
PixelSearch(737, 122,737, 122,0xCFCFCF,10);ищем треугольник овервью
if not @error Then ;- мы находимся в космосе.
$SpaceChk="Космос"
Else
$SpaceChk="Загрузка...";меню загрузки
$Status="Загрузка"
EndIf
EndIf
;======================================
Case $Object="CheckProcess"
;++++++++++ проверка на процесс(загрузка в док)
PixelSearch(377, 391, 646, 413, 0xB3B3B3, 10)
If Not @error Then
$ProcChk="процесс..."
$Status="процесс"
Else
$ProcChk="-"
EndIf
;======================================
Case $Object="FullEmptyCheck"
;++++++++++ проверка - сброшен лут или нет.
PixelSearch (186, 618,186, 618,0x041115,10)
If Not @error Then
$FullEmptyCheck="Нет"
Else
$FullEmptyCheck="Есть"
EndIf
;=================================
Case $Object="ConvoCheck"
;++++++++++ функции проверки конво
Local $ConvoChk[4]
;1я проверка
PixelSearch (303, 172,819, 581,0xFFA600,10)
If Not @error Then
IniWrite("D:\eve.ini","Convo",_NowCalc(), "Конво!!!сработала проверка 1")
$ConvoChk[1]=1
Else
$ConvoChk[1]=0
EndIf
;2я проверка
PixelSearch (303, 172,819, 581,0x6284AF,10)
If Not @error Then
IniWrite("D:\eve.ini","Convo",_NowCalc(), "Конво!!!сработала проверка 2")
$ConvoChk[2]=1
Else
$ConvoChk[2]=0
EndIf
;3я проверка
PixelSearch (303, 172,819, 581,0x0064C0,10)
If Not @error Then
IniWrite("D:\eve.ini","Convo",_NowCalc(), "Конво!!!сработала проверка 3")
$ConvoChk[3]=1
Else
$ConvoChk[3]=0
EndIf
If $ConvoChk[1]=1 Or $ConvoChk[2]=1 Or $ConvoChk[3]=1 Then ;если вдруг срабатывает любая- принтскрин и загрузка громкой мелодии :)
$Status="Сработала проверка конво -"&$ConvoExe&""
Send ("{PRINTSCREEN}")
If $ConvoExe="mp3" Then
ShellExecute ("D:\Autoit\proekts\1.mp3")
_pause()
Else
_exitgame()
_exit()
EndIf
EndIf
;======================================
EndSelect
EndFunc
;========================
;========================
;========================
;++++++++++ Проверки в одной функции - чтобы избежать рекурсии
Func AllChecks()
WinActivate("EVE - "&$CharName)
Sleep(100)
_Check("CheckProcess")
If $ProcChk="процесс..." Then
Sleep(100)
Return
EndIf
_Check("CheckSpace")
If $SpaceChk="Загрузка..." Then
Sleep(100)
Return
EndIf
If $SpaceChk="Док" Then
_Check("FullEmptyCheck")
Sleep(100)
Return
EndIf
_Check("CheckWarp")
If $WarpChk=1 Then
Sleep(100)
Return
EndIf
_Check("CargoCheck")
_Check("LockCheck")
_Check("StrpChk")
_Check("AsterChk")
_Check("ConvoCheck")
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ХОТКЕИ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;++++++++++ завершение работы скрипта + время работы скрипта
Func _exit()
_Action("Dronecontrol");на всякий - часто забываю завершив работу бота забрать дронов(привык все автоматически делается) :)
$Status="Завершение скрипта"
Sleep(200)
_TicksToTime((TimerDiff($timer)/$LootCount),$MidCicleTime[1],$MidCicleTime[2],$MidCicleTime[3])
If $LootCount=0 Then
$MidCicleTime[0]="-"
Else
$MidCicleTime[0]=StringFormat("%02d:%02d:%02d", $MidCicleTime[1],$MidCicleTime[2],$MidCicleTime[3])
EndIf
_TicksToTime(TimerDiff($timer),$hour,$min,$sec)
$ScriptWorked=StringFormat("%02d:%02d:%02d", $hour,$min,$sec)
IniWrite("D:\eve.ini","Script",_NowCalc(), "Stop,Бука №" & $x &" -- "& "Время работы: "& $ScriptWorked & ", лут сбросил: " & $LootCount&" раз."&" \Цикл в среднем="&$MidCicleTime[0])
Exit
EndFunc
;==============
;++++++++++ выход из игры - до этого забираем дронов если они использовались.
Func _exitgame()
_Action("Dronecontrol")
Send ("{esc}")
sleep (4000)
MouseClick ("left",851, 606,1,20)
IniWrite("D:\eve.ini","Game Exit",_NowCalc(),"Stop,Бука №" & $x)
Return
EndFunc
;======================================
;++++++++++ пауза
Func _pause()
$pause=$pause+1
while $pause=1
$Status="Пауза..."
WEnd
$Status="Снята пауза..."
Sleep(200)
$pause=0
EndFunc
;=======
;++++++++++ активация деактивация дронов
Func DroneUse()
Select
Case $DroneUse="Да"
$DroneUse="Нет"
$Status="Дроны деактивированы"
Sleep(200)
IniWrite("D:\Eve.ini","Drone","Use","Нет")
Case $DroneUse="Нет"
$DroneUse="Да"
$Status="Дроны активированы"
IniWrite("D:\Eve.ini","Drone","Use","Да")
Sleep(200)
EndSelect
EndFunc
;=======
;++++++++++ функция переключения реагирования на конво
Func ConvoSwitch()
Select
Case $ConvoExe="mp3"
$ConvoExe="Выход"
$Status="Реакция на конво = Выход"
Sleep(300)
Case $ConvoExe="Выход"
$ConvoExe="mp3"
$Status="Реакция на конво = MP3"
Sleep(300)
EndSelect
EndFunc
;========================
;++++++++++ функции горячего переключения Бук
Func BookmarkPlus()
$y=$y+16
$Status="+Бука"
EndFunc
Func BookmarkMinus()
$y=$y-16
$Status="-Бука"
If $y<133 Then
$y=133
$Status="Ниже некуда"
EndIf
EndFunc
;========================
;========================
;========================
.Я думал об этом.Это было бы круто,потому что потери еще сильнее бы снизились.Но это пока сложновато для меня,нужно делать проверки на каждый лок,на слежение за каждым стрипом на каждом локе и активность каждого,чтобы бот понимал какой из стрипов свободен,чтобы его активировать на свежий лок,определение в овервью - какой из астеров уже залочен,а какой нет+сколько стрипов в данный момент активно на конкретном локе,потому что могут возникнуть ситуации,когда возможно только 2 или 1 лок,соответственно придется иногда по 2 или 3 стрипа на один лок делать.Придется переделывать полностью логику для всего этого.Подумаю в этом направлении,может и не так сложно как я думаю - интерес покопаться есть.можно вообще и 4й сделать лок - для дронов.
