#Region
#AutoIt3Wrapper_icon=..\icons\иконки устройств\1013.ico
#AutoIt3Wrapper_UseX64=n
#EndRegion
#include <Date.au3>
Opt("TrayIconDebug", 1)
Opt("PixelCoordMode", 2)
Opt("MouseCoordMode", 2)
Opt ("MouseClickDelay", 20)
Opt ("SendKeyDownDelay", 100)
HotKeySet ("{`}","_exit")
HotKeySet ("{\}","_pause")
WinMove("EVE", "", -3, -25)
Global $LootCount=0
Global $DrChk
Global $pause
Global $timer = TimerInit()
Dim $hour,$min,$sec
Global $y=133
Global $x
checkbeltnum()
IniWrite("D:\eve.ini","Script", _NowCalc(),"Start,Belt №" & $x)
IniWrite("D:\eve.ini","Mined",_NowCalc(),"начало работы")
IniWrite("D:\eve.ini","Status",_NowCalc(),"начало работы")
IniWrite("D:\eve.ini","Error",_NowCalc(), "начало работы")
Distforbelt()
MouseClick ("left",880, 74)
ToolTip("Лочу цель",0,0)
If $DrChk=0 Then
MouseClick ("right",779, 628)
sleep(500)
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
EndFunc
Func LockCheck()
PixelSearch(621, 80,636, 80,0x404040,10)
If not @error Then
Return 1
Else
ToolTip("Сбился лок - начинаю поиск ближайшего метеора",0,0)
Sleep (600)
Minestage1()
return 0
EndIf
EndFunc
Func CargoCheck()
Sleep (200)
PixelSearch (279, 617,279, 617,0x005067,10)
If Not @error Then
ToolTip("Трюм наполнился",0,0)
Sleep(200)
Return 1
Else
Return 0
EndIf
EndFunc
Func OreToHome()
sleep (3000)
Do
ToolTip("Cбрасываю добычу",0,0)
Sleep(200)
MouseClick("left",150, 597,1,20)
Send ("^a")
MouseClickDrag ("left",63, 665,83, 366,20)
Sleep (2000)
Until FullEmptyCheck()=1
IniWrite("D:\eve.ini","Mined",_NowTime(5), "сброшен лут" & " Бука №" & $x)
$LootCount=$LootCount+1
IniWrite("D:\eve.ini","Loot","Count",$LootCount)
EndFunc
Func FullEmptyCheck()
PixelSearch (186, 618,186, 618,0x041115,10)
If @error Then
ToolTip ("лут еще есть!",0,0)
Sleep(200)
Else
ToolTip ("лут сброшен...",0,0)
Sleep(200)
return 1
EndIf
EndFunc
Func Distforbelt()
WinActivate("EVE")
WinWaitActive("EVE")
MouseClick("left",774, 183,1,20)
Sleep (1200)
PixelSearch (828, 40,830, 44,0x8F8F8F,10)
If not @error Then
ToolTip("Ближе 10км есть астероиды - майню на Белте " & $x & " дальше.",0,0)
Sleep (600)
Return
Else
PixelSearch (943, 74,951, 87,0x8E8E8E,10)
If @error Then
ToolTip("Белт пустой!Летим дальше.",0,0)
Sleep (500)
Else
PixelSearch (836, 40,840, 44,0x8F8F8F,10)
If @error Then
ToolTip("Ближе 10км есть астероиды - майню на Белте " & $x & " дальше.",0,0)
Sleep (600)
Return
EndIf
EndIf
$y=$y+16
ToolTip("нет астероидов ближе 10км - меняю белт № " & $x & " на белт №" & ($x+1),0,0)
Sleep(600)
Dronecontrol()
If $y>454 Then
_exitgame()
_exit()
EndIf
WarpToBelt()
checkbeltnum()
IniWrite("D:\eve.ini","Status",_NowTime(5), "Warp to belt №" & $x)
Distforbelt()
Return
EndIf
EndFunc
Func checkbeltnum()
Select
Case $y=133
$x=1
Case $y=149
$x=2
Case $y=165
$x=3
Case $y=181
$x=4
Case $y=197
$x=5
Case $y=213
$x=6
Case $y=229
$x=7
Case $y=245
$x=8
Case $y=261
$x=9
Case $y=277
$x=10
Case $y=293
$x=11
Case $y=309
$x=12
Case $y=325
$x=13
Case $y=341
$x=14
Case $y=357
$x=15
Case $y=373
$x=16
Case $y=389
$x=17
Case $y=405
$x=18
Case $y=421
$x=19
Case $y=437
$x=20
Case $y=453
$x=21
EndSelect
EndFunc
Func ConvoCheck()
If Check1()=1 Or Check2()=1 Or Check3()=1 Then
ShellExecute ("D:\Autoit\proekts\1.mp3")
EndIf
EndFunc
Func Check1()
PixelSearch (303, 172,819, 581,0xFFA600,10)
If Not @error Then
IniWrite("D:\eve.ini","Convo",_NowCalc(), "АААА конво был бляяяя!!!сработала проверка 1")
Send ("{PRINTSCREEN}")
Return 1
Else
Return 0
EndIf
EndFunc
Func Check2()
PixelSearch (303, 172,819, 581,0x6284AF,10)
If Not @error Then
IniWrite("D:\eve.ini","Convo",_NowCalc(), "АААА конво был бляяяя!!!сработала проверка 2")
Send ("{PRINTSCREEN}")
Return 1
Else
Return 0
EndIf
EndFunc
Func Check3()
PixelSearch (303, 172,819, 581,0x0064C0,10)
If Not @error Then
IniWrite("D:\eve.ini","Convo",_NowCalc(), "АААА конво был бляяяя!!!сработала проверка 3")
Send ("{PRINTSCREEN}")
Return 1
Else
Return 0
EndIf
EndFunc
Func Dronecontrol()
Send ("!{2}")
MouseClick ("left",779, 648)
While 1
Sleep (1000)
PixelSearch(938, 666,959, 669,0x404040)
If @error Then
ExitLoop
EndIf
ToolTip("Ждем дрончегов!",0,0)
PixelSearch(844, 664,920, 671,0x00DC00,10)
If Not @error Then
ToolTip("сцуко зависли!",0,0)
Sleep(2000)
Send ("!{2}")
EndIf
WEnd
ToolTip("Дроны вернулись!",0,0)
MouseClick ("left",779, 648)
Sleep (600)
EndFunc
Func StripChk($StrStatus)
Select
Case $StrStatus = "On"
PixelSearch(612, 650,612, 650,0x000000)
If Not @error Then
ToolTip ("стрип 1 не включился - активирую...",0,0)
IniWrite("D:\eve.ini","Error",_Nowtime(5), "противофаза - стрип 1 не включился" & " Бука №" & $x)
Send ("{f1}")
Sleep (500)
EndIf
PixelSearch(664, 650,664, 650,0x000000)
If Not @error Then
ToolTip ("стрип 2 не включился - активирую...",0,0)
IniWrite("D:\eve.ini","Error",_Nowtime(5), "противофаза - стрип 2 не включился" & " Бука №" & $x)
Send ("{f2}")
Sleep (500)
EndIf
PixelSearch(714, 650,714, 650,0x000000)
If Not @error Then
ToolTip ("стрип 3 не включился - активирую...",0,0)
IniWrite("D:\eve.ini","Error",_Nowtime(5), "противофаза - стрип 3 не включился" & " Бука №" & $x)
Send ("{f3}")
Sleep (500)
EndIf
Case $StrStatus = "Off"
PixelSearch(612, 650,612, 650,0x000000)
If @error Then
ToolTip ("стрип 1 не выключился - выключаю...",0,0)
IniWrite("D:\eve.ini","Error",_Nowtime(5), "противофаза - стрип 1 не выключился" & " Бука №" & $x)
Send ("{f1}")
Sleep (500)
EndIf
PixelSearch(664, 650,664, 650,0x000000)
If @error Then
ToolTip ("стрип 2 не выключился - выключаю...",0,0)
IniWrite("D:\eve.ini","Error",_Nowtime(5), "противофаза - стрип 2 не выключился" & " Бука №" & $x)
Send ("{f2}")
Sleep (500)
EndIf
PixelSearch(714, 650,714, 650,0x000000)
If @error Then
ToolTip ("стрип 3 не выключился - выключаю...",0,0)
IniWrite("D:\eve.ini","Error",_Nowtime(5), "противофаза - стрип 3 не выключился" & " Бука №" & $x)
Send ("{f3}")
Sleep (500)
EndIf
EndSelect
EndFunc