#pragma compile(Out, EVE - Venture.exe)
#pragma compile(Icon, ..\Pic\EVE.ico)
#pragma compile(FileVersion, 19.06.24.0)
#include <GuiConstants.au3>
#include <ComboConstants.au3>
#include <TabConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ScreenCapture.au3>
#include <Misc.au3>
#include <Array.au3>
#include <File.au3>
HotKeySet('{insert}','zabort')
HotKeySet('^{home}','_Obu4Glubok')
HotKeySet('{home}','_Obu4Bistroe')
HotKeySet('^+{home}','_Obu4Param')
HotKeySet('{space}','pausa')
HotKeySet('{End}','eksit')
HotKeySet('{tab}','podskaz')
HotKeySet('^{tab}','_LogPokaz')
Opt('PixelCoordMode', 2)
Opt('MouseCoordMode', 2)
Opt('MouseClickDelay', 200)
Opt('SendKeyDelay', 150)
Opt('MouseClickDownDelay', 150)
Opt('SendKeyDownDelay',200)
Global $ps,$pd,$ob,$zab,$i,$j,$a,$n=0,$IzV, $M1,$M2
Global $GUIobu4,$GUIobVektori,$GUIobu4Scrn,$massivi,$VektoriObu4[1],$knp_pos=18
Global $dstvstr,$vector,$num,$4t_str,$nn,$var_string,$var_star,$Arr_Del[1]
Global $nOb,$Y
Global $tM1,$tM2,$timer,$tMining
Global $Main[5]= ['',1080,1131,957,0x888985]
Global $Cel[5]= ['',1780,78,0xFF1212,0xDBDBDB]
Global $HP[7]= ['',1000,926,0xF6F6F6, 913, 929,0xE1E5DD]
Global $Dok[7]= ['',1769, 235,0xBABA03, 1869,132,0xE5E500]
Global $Gruz[5]= ['',1760,795,0x004F66,0x00A7A7]
Global $Orbit[4]=['',1730,78,0xFFFFFF]
Global $Varp[4]= ['',899,792,0xBFBFBF]
Global $Ulica[4]=['',884,891,0x10CE10]
Global $Dist[4]= ['',1811,50,0xB5B5B5]
Global $Aster[4]=['',1679,209,0x9F9F9E]
Global $ArrLog[1]
Global $AsterPos[7]=['',308,288,268,248,228,210]
Global $Dn[15]=['','Майн1','Майн2','НаСтанц','ВыделГруз','ГрузНаСклад','ЗаБорт','ИзДока','Кастерам','ВыклМ','КлацАстерМышью','ПоОрбите','ПодкачЩит','НИЧЕГО','Пищать']
Global $knop[15]=['','1','2','3','4','5','6','7','8','9','0','.','+','*','/']
Global $spdMos=7
Global $path=StringSplit(@ScriptDir,'\')
Global $srptpic=_ArrayToString($path, "\",1, UBound($path)-2)&'\Pic\'
$GuiOkno=GUICreate('БТ', 200, 200, @DesktopWidth-200, 539, $WS_POPUP ,$WS_EX_TOPMOST)
$_Deistv=GUICtrlCreateInput('',0,0,200,18)
$Fon = GUICtrlCreatePic($srptpic&'Фон.jpg', 0, 15, 200, 200)
$PicZabort=GUICtrlCreatePic('', 1, 41, 29, 20)
$PicAster=GUICtrlCreatePic('', 1, 62, 29, 20)
$PicGruzOkno=GUICtrlCreatePic('', 1, 83, 36, 35)
$PicPausa=GUICtrlCreatePic('', 1, 119, 31, 35)
$PicTarg=GUICtrlCreatePic($srptpic&'Цели нет.jpg', 96, 17, 82, 19)
$PicMiner1=GUICtrlCreatePic($srptpic&'Майнер выкл.jpg', 82, 36, 53, 55)
$PicMiner2=GUICtrlCreatePic($srptpic&'Майнер выкл.jpg', 140, 36, 53, 55)
$PicHP=GUICtrlCreatePic($srptpic&'ХП есть.jpg', 58, 91, 142, 46)
$PicGruz=GUICtrlCreatePic($srptpic&'Груз есть.jpg', 58, 137, 142, 16)
$PicDOK=GUICtrlCreatePic('', 67, 153, 64, 37)
$PicVarp=GUICtrlCreatePic('', 82, 153, 97, 40)
$PicTimer=GUICtrlCreatePic('', 60, 46, 22, 26)
$picDist=GUICtrlCreatePic('', 180, 17, 16, 13)
$picVopros=GUICtrlCreatePic('', 1, 153, 16, 13)
$PicTudaOTtuda=GUICtrlCreatePic('', 1, 15, 44, 44)
GUISetState(@SW_SHOW,'БТ')
$File=FileOpen('МайнингМассивы.txt')
Global $DT[1][2]
For $i = 1 To _FileCountLines($File)
_ArrayAdd($DT,FileReadLine($File,$i),0,',')
Next
FileClose($File)
Global $ArrScrn[1]
$ArrScrn=_FileListToArray(@ScriptDir&"\Scrn")
If @error=4 Then MsgBox(0,"","Файлы в Scrn не найдены.")
Global $n=0
For $i = 1 To UBound($ArrScrn)-1
_ArraySearch($DT,StringTrimRight($ArrScrn[$i],4),1)
If @error Then
$n+=1
_ArrayAdd($DT,StringTrimRight($ArrScrn[$i],4))
EndIf
Next
If $n>0 Then MsgBox(0,'','Добавлено новых векторов из картинок='&$n)
WinActivate('EVE - ')
While 1
Dat4()
If $ps=1 Then
If TimerDiff($timer)>20*60000 Then Beep(500,500)
deistv()
If WinExists('Спонсируемый сеанс') Then ControlClick('Спонсируемый сеанс','OK',342)
EndIf
WEnd
Func _Logirovanie($lg)
Switch $lg
Case 1
_ArrayAdd($ArrLog,@HOUR&':'&@MIN&' '&$DT[$num][1]&' '&$var_string)
Case 2
_ArrayAdd($ArrLog,' =============== Время цикла '&TimerDiff($timer)/1000/60&' Минут')
EndSwitch
If UBound($ArrLog)>500 Then _LogSbros()
EndFunc
Func _LogSbros()
$File=FileOpen('Log.txt',1)
FileWrite($File,@CRLF&_ArrayToString($ArrLog,@CRLF,1))
FileClose($File)
ReDim $ArrLog[1]
EndFunc
Func _LogPokaz()
_LogSbros()
ShellExecute('Log.txt')
EndFunc
Func _GuiCreateObu4($n)
Switch $n
Case 1
$GUIobu4=GUICreate('Обучение', 200, 300, @DesktopWidth-200, 239, $WS_POPUP ,$WS_EX_TOPMOST)
$massivi=GUICtrlCreateEdit('',1,20,200,400)
Global $ComboDeistv = GUICtrlCreateCombo("", 1, 1, 200, 25)
GUICtrlSetData(-1, _ArrayToString($Dn,'|',1))
GUISetState()
Case 2
$GUIobu4Scrn=GUICreate('Скрины', 1587, 893, 0, 0, $WS_POPUP ,$WS_EX_TOPMOST)
Global $FonScrn = GUICtrlCreatePic('', 0, 0, 1587, 893)
GUISetState()
Case 3
Local $toolOb[17]
For $i = 1 To UBound($Dn)-1
$toolOb[$i]=$knop[$i]&' '&$Dn[$i]
Next
ToolTip(_ArrayToString($toolOb,@CRLF,1),@DesktopWidth-332,540)
Case 'параметры'
Global $GUIobu4Param=GUICreate('Обучение параметры',200,300,@DesktopWidth-200,239,$WS_POPUP,$WS_EX_TOPMOST)
Global $ComboDeistv = GUICtrlCreateCombo("", 1, 1, 200, 25)
GUICtrlSetData(-1, _ArrayToString($Dn,'|',1))
Global $Ch0[14],$Ch1[14],$Ch2[14],$Ch3[14],$labl[14], $ChPos=50
Global $labl[14]=[0,'1-Док','2-Цель','3-ХП','4-Груз','5-ГрузВесь','6-Майнер1','7-Майнер2','8-Астеройд','9-Улица','10-ЗаБорт','11-Дистанция','12-Таймер','13-НаСтанц/СоСтанц']
$n=4
For $i = 0 To 3
GUICtrlCreateLabel($i,$n,35)
$n+=14
Next
For $i = 1 To 13
$Ch0[$i]=GUICtrlCreateCheckbox('',1,$ChPos,12,12)
$Ch1[$i]=GUICtrlCreateCheckbox('',15,$ChPos,12,12)
GUICtrlCreateLabel($labl[$i],65,$ChPos)
$ChPos+=17
Next
$Ch2[2]=GUICtrlCreateCheckbox('',30,67,12,12)
$Ch3[2]=GUICtrlCreateCheckbox('',45,67,12,12)
$Ch2[3]=GUICtrlCreateCheckbox('',30,84,12,12)
GUISetState()
Case 4
GUIDelete($GUIobu4)
Case 5
GUIDelete($GUIobu4Scrn)
Case 6
ToolTip('')
Case 7
GUIDelete($GUIobu4Param)
EndSwitch
EndFunc
Func Dat4()
Local $var[14]=[0,0,0,0,0,0,0,0,0,0,0,0,0,0]
PixelSearch($Varp[1],$Varp[2],$Varp[1],$Varp[2],$Varp[3],30)
if @error Then
GUICtrlSetImage($PicVarp, '')
PixelSearch($Dok[4]-2,$Dok[5]-2,$Dok[4]+2,$Dok[5]+2,$Dok[6],20)
If Not @error Then $var[1]=1
PixelSearch($Dok[1]-2,$Dok[2]-2,$Dok[1]+2,$Dok[2]+2,$Dok[3],20)
If Not @error Then $var[1]=1
PixelSearch($Gruz[1]-2,$Gruz[2]-2,$Gruz[1]+2,$Gruz[2]+2,$Gruz[3],20)
If Not @error Then $var[4]=1
PixelSearch($Gruz[1]-2,$Gruz[2]-2,$Gruz[1]+2,$Gruz[2]+2,$Gruz[4],20)
If Not @error Then $var[5]=1
PixelSearch($Aster[1]-8, $Aster[2]-8, $Aster[1]+8, $Aster[2]+8, $Aster[3],50)
If not @error Then $var[8]=1
PixelSearch($Ulica[1],$Ulica[2],$Ulica[1],$Ulica[2],$Ulica[3],40)
If not @error Then $var[9]=1
PixelSearch($Dist[1]-2,$Dist[2]-2,$Dist[1]+2,$Dist[2]+2,$Dist[3],40)
If not @error Then $var[11]=1
If TimerDiff($tMining)<60000 Then $var[12]=1
If $zab=1 Then $var[10]=1
If $IzV=1 Then $var[13]=1
PixelSearch($Cel[1]-2,$Cel[2]-2,$Cel[1]+2,$Cel[2]+2,$Cel[3],40)
If Not @error Then
$var[2]=3
Else
PixelSearch($Cel[1]-2,$Cel[2]-2,$Cel[1]+2,$Cel[2]+2,$Cel[4],40)
If Not @error Then
$var[2]=2
Else
PixelSearch($Orbit[1],$Orbit[2],$Orbit[1],$Orbit[2],$Orbit[3],40)
if not @error Then
$var[2]=1
EndIf
EndIf
EndIf
PixelSearch($HP[1],$HP[2],$HP[1],$HP[2],$HP[3],50)
If Not @error Then
$var[3]=2
Else
PixelSearch($HP[4], $HP[5], $HP[4], $HP[5], $HP[6],50)
If Not @error Then
$var[3]=1
EndIf
EndIf
PixelSearch($Main[1],$Main[3],$Main[1],$Main[3],$Main[4],40)
If not @error Then
$tM1=TimerInit()
$var[6]=1
ElseIf @error And TimerDiff($tM1)<1500 Then
$var[6]=1
EndIf
PixelSearch($Main[2],$Main[3],$Main[2],$Main[3],$Main[4],40)
If not @error Then
$tM2=TimerInit()
$var[7]=1
ElseIf @error And TimerDiff($tM2)<1500 Then
$var[7]=1
EndIf
Else
GUICtrlSetImage($PicVarp, $srptpic&'Варп.jpg')
Local $var[14]=[0,1,1,1,1,1,1,1,1,1,1,1,1,1]
EndIf
$var_string=_ArrayToString($var,'',1)
$num=_ArraySearch($DT, $var_string, 0, 0, 0, 1)
If @error Then
_ArrayAdd($DT,$var_string)
$num=0
ElseIf $var_star<>$var_string Then
_4tenie($var)
_Logirovanie(1)
$var_star=$var_string
If Not FileExists(@ScriptDir&'\Scrn\'&$var_string&".jpg") Then _ScreenCapture_Capture(@ScriptDir&'\Scrn\'&$var_string&".jpg")
EndIf
EndFunc
Func Dat4Obu4()
Local $var[14]=[0,0,0,0,0,0,0,0,0,0,0,0,0,0]
If GUICtrlRead($Ch1[1])=1 Then $var[1]=1
If GUICtrlRead($Ch3[2])=1 Then $var[2]=3
If GUICtrlRead($Ch2[2])=1 Then $var[2]=2
If GUICtrlRead($Ch1[2])=1 Then $var[2]=1
If GUICtrlRead($Ch2[3])=1 Then $var[3]=2
If GUICtrlRead($Ch1[3])=1 Then $var[3]=1
If GUICtrlRead($Ch1[4])=1 Then $var[4]=1
If GUICtrlRead($Ch1[5])=1 Then $var[5]=1
If GUICtrlRead($Ch1[6])=1 Then $var[6]=1
If GUICtrlRead($Ch1[7])=1 Then $var[7]=1
If GUICtrlRead($Ch1[8])=1 Then $var[8]=1
If GUICtrlRead($Ch1[9])=1 Then $var[9]=1
If GUICtrlRead($Ch1[11])=1 Then $var[11]=1
If GUICtrlRead($Ch1[12])=1 Then $var[12]=1
If GUICtrlRead($Ch1[10])=1 Then $var[10]=1
If GUICtrlRead($Ch1[13])=1 Then $var[13]=1
$var_string=_ArrayToString($var,'',1)
If $var_star<>$var_string Then
_4tenie($var)
$var_star=$var_string
EndIf
EndFunc
Func _4tenie($str)
GUICtrlSetData($_Deistv,$DT[$num][1]&' '&$DT[$num][0])
If $str[1]=1 Then
GUICtrlSetImage($PicDOK, $srptpic&'ДОК.jpg')
Else
GUICtrlSetImage($PicDOK, '')
EndIf
If $str[2]=3 Then
GUICtrlSetImage($PicTarg, $srptpic&'Цель захвачена.jpg')
ElseIf $str[2]=2 Then
GUICtrlSetImage($PicTarg, $srptpic&'Цель есть.jpg')
ElseIf $str[2]=1 Then
GUICtrlSetImage($PicTarg, $srptpic&'Орбита есть.jpg')
Else
GUICtrlSetImage($PicTarg, $srptpic&'Цели нет.jpg')
EndIf
If $str[3]=2 Then
GUICtrlSetImage($PicHP, $srptpic&'ХП есть.jpg')
ElseIf $str[3]=1 Then
GUICtrlSetImage($PicHP, $srptpic&'ХП нет.jpg')
Else
GUICtrlSetImage($PicHP, $srptpic&'ХП нет совсем.jpg')
EndIf
If $str[4]=1 Then
GUICtrlSetImage($PicGruz, $srptpic&'Груз есть.jpg')
Else
GUICtrlSetImage($PicGruz, $srptpic&'Груз нет.jpg')
EndIf
If $str[5]=1 Then
GUICtrlSetImage($PicGruz, $srptpic&'Груз весь.jpg')
EndIf
if $str[6]=1 Then
GUICtrlSetImage($PicMiner1, $srptpic&'Майнер вкл.jpg')
Else
GUICtrlSetImage($PicMiner1, $srptpic&'Майнер выкл.jpg')
EndIf
if $str[7]=1 Then
GUICtrlSetImage($PicMiner2, $srptpic&'Майнер вкл.jpg')
Else
GUICtrlSetImage($PicMiner2, $srptpic&'Майнер выкл.jpg')
EndIf
if $str[8]=1 Then
GUICtrlSetImage($PicAster, $srptpic&'Астеройд есть.jpg')
Else
GUICtrlSetImage($PicAster, '')
EndIf
if $str[9]=1 Then
GUICtrlSetImage($PicGruzOkno, $srptpic&'Улица.jpg')
Else
GUICtrlSetImage($PicGruzOkno, '')
EndIf
if $str[10]=1 Then
GUICtrlSetImage($PicZabort, $srptpic&'За борт.jpg')
Else
GUICtrlSetImage($PicZabort, '')
EndIf
if $str[11]=1 Then
GUICtrlSetImage($picDist, $srptpic&'Дистанц.jpg')
Else
GUICtrlSetImage($picDist, '')
EndIf
if $str[12]=1 Then
GUICtrlSetImage($PicTimer, $srptpic&'Таймер.jpg')
Else
GUICtrlSetImage($PicTimer, '')
EndIf
if $str[13]=1 Then
GUICtrlSetImage($PicTudaOTtuda, $srptpic&'ИндикГрузОкна.jpg')
Else
GUICtrlSetImage($PicTudaOTtuda, '')
EndIf
EndFunc
Func deistv()
Switch $DT[$num][1]
Case ''
Case 'ПодкачЩит'
Send('{f3}')
Sleep(500)
Case 'ВыклМ'
Send('^{space}')
$tMining=TimerInit()
$tM1=TimerInit()
$tM2=TimerInit()
Send('{f8}')
Send('{f9}')
_Videlenie(2,4)
Case 'Майн1'
Send('{right}')
Send('{f1}')
$tM1=TimerInit()
$tMining=TimerInit()
Case 'Майн2'
Send('{right}')
Send('{f2}')
$tM2=TimerInit()
$tMining=TimerInit()
Case 'Кастерам'
MouseClick('right',120,877,1,$spdMos)
MouseClick('',157,887,1,$spdMos)
Sleep(5000)
Case 'КлацАстерМышью'
Send('{f8}')
_Videlenie(5,6)
Sleep(1000)
Case 'ПоОрбите'
MouseClick('',1729, 79,1,$spdMos)
Case 'НаСтанц'
Send('{f7}')
Send('^{backspace}')
Sleep(500)
Send('{enter}')
Sleep(500)
MouseClick('right',142, 859,1,$spdMos)
MouseClick('',189, 900,1,$spdMos)
$IzV=1
Send('{f1}')
Send('{f2}')
Sleep(5000)
Case 'ВыделГруз'
MouseClickDrag('',1493, 1033,1894, 832)
MouseMove(1654, 1026)
Case 'ГрузНаСклад'
_Logirovanie(2)
$var_star=$var_string
$timer = TimerInit()
MouseClickDrag('',1529,833,@DesktopWidth/2,@DesktopHeight/2)
Sleep(2000)
Case 'ИзДока'
MouseClick('',1417, 838,1,$spdMos)
Send("!q")
Send("!й")
$IzV=0
Case 'ЗаБорт'
$timer = TimerInit()
MouseClick('right',1470, 832,1,$spdMos)
PixelSearch(1457,842,1477,862,0xB9B9B9,40)
If Not @error Then
MouseClick('',1504, 873,1,$spdMos)
Else
MouseClick('',1504, 924,1,$spdMos)
EndIf
Sleep(1500)
$IzV=0
Case 'Пищать'
Beep(500,500)
EndSwitch
EndFunc
Func _Videlenie($i,$j)
Send('{CTRLDOWN}')
For $ii = $i To $j
MouseClick('',1679, $AsterPos[$ii],1,$spdMos)
Next
Send('{CTRLUP}')
Sleep(100)
MouseClick('',1679, $AsterPos[6],1,$spdMos)
EndFunc
Func _Obu4Glubok()
_HotkeyObu4(1)
_GuiCreateObu4(1)
_GuiCreateObu4(3)
GUICtrlSetData($_Deistv,'')
Do
Until _IsPressed('0D')
_GuiCreateObu4(2)
For $i=1 To UBound($DT)-1
If $DT[$i][1]=GUICtrlRead($ComboDeistv) Then _ArrayAdd($VektoriObu4,$DT[$i][0])
Next
_ArrObu4Pokaz()
Do
Until _IsPressed('23') Or _IsPressed('24') Or UBound($VektoriObu4)=1
_GuiCreateObu4(4)
_GuiCreateObu4(5)
_GuiCreateObu4(6)
_HotkeyObu4(3)
_LogSbros()
ArryZap()
EndFunc
Func _Obu4Bistroe()
If $a=0 Then
_GuiCreateObu4(3)
_HotkeyObu4(2)
$a=1
ElseIf $a=1 Then
_GuiCreateObu4(6)
_HotkeyObu4(3)
_LogSbros()
ArryZap()
$a=0
EndIf
EndFunc
Func _Obu4Param()
Local $CHarr2D[1][2],$arrDoblKzamene[1],$Zamen=0
_GuiCreateObu4('параметры')
Do
Dat4Obu4()
Until _IsPressed('0D')
Global $CHarr[14]
For $i = 1 To UBound($Ch1)-1
If GUICtrlRead($Ch0[$i])=1 Then $CHarr[$i]='0'
If GUICtrlRead($Ch1[$i])=1 Then $CHarr[$i]=1
If GUICtrlRead($Ch2[$i])=1 Then $CHarr[$i]=2
If GUICtrlRead($Ch3[$i])=1 Then $CHarr[$i]=3
Next
For $i = 1 To UBound($CHarr)-1
If $CHarr[$i]<>'' Then _ArrayAdd($CHarr2D,$i&'|'&$CHarr[$i],0)
Next
For $i = 1 To UBound($DT)-1
$ArrSravn=StringSplit($DT[$i][0],'')
For $ii=1 To UBound($CHarr2D)-1
If $ArrSravn[$CHarr2D[$ii][0]] = $CHarr2D[$ii][1] And $ii= UBound($CHarr2D)-1 Then
$DT[$i][1]=GUICtrlRead($ComboDeistv)
$Zamen+=1
ElseIf $ArrSravn[$CHarr2D[$ii][0]] <> $CHarr2D[$ii][1] Then
ExitLoop
EndIf
Next
Next
MsgBox(0, 'Количество замен', 'Замены='&$Zamen)
_GuiCreateObu4(7)
ArryZap()
EndFunc
Func _ArrObu4Pokaz()
If UBound($VektoriObu4)>1 Then
_4tenie(StringSplit($VektoriObu4[1],''))
GUICtrlSetData($massivi,_ArrayToString($VektoriObu4,@CRLF,1))
GUICtrlSetData($_Deistv,$VektoriObu4[1])
$num=_ArraySearch($DT,$VektoriObu4[1],1)
If FileExists(@ScriptDir&'\Scrn\'&$DT[$num][0]&".jpg") Then
GUICtrlSetImage($FonScrn, @ScriptDir&'\Scrn\'&$DT[$num][0]&'.jpg')
Else
GUICtrlSetImage($FonScrn, 'Пусто.jpg')
EndIf
Else
_GuiCreateObu4(4)
EndIf
EndFunc
Func _HotkeyObu4($n)
Switch $n
Case 1
HotKeySet('{numpad1}','_KnopGlubok')
HotKeySet('{numpad2}','_KnopGlubok')
HotKeySet('{numpad3}','_KnopGlubok')
HotKeySet('{numpad4}','_KnopGlubok')
HotKeySet('{numpad5}','_KnopGlubok')
HotKeySet('{numpad6}','_KnopGlubok')
HotKeySet('{numpad7}','_KnopGlubok')
HotKeySet('{numpad8}','_KnopGlubok')
HotKeySet('{numpad9}','_KnopGlubok')
HotKeySet('{numpad0}','_KnopGlubok')
HotKeySet('{numpaddot}','_KnopGlubok')
HotKeySet('{numpadmult}','_KnopGlubok')
HotKeySet('{numpaddiv}','_KnopGlubok')
HotKeySet('{NUMPADADD}','_KnopGlubok')
HotKeySet('{up}','_KnopGlubok')
HotKeySet('{end}')
HotKeySet('{del}','_del')
GUICtrlSetImage($PicVopros, $srptpic&'Вопрос.jpg')
Case 2
HotKeySet('{numpad1}','_KnopBistroe')
HotKeySet('{numpad2}','_KnopBistroe')
HotKeySet('{numpad3}','_KnopBistroe')
HotKeySet('{numpad4}','_KnopBistroe')
HotKeySet('{numpad5}','_KnopBistroe')
HotKeySet('{numpad6}','_KnopBistroe')
HotKeySet('{numpad7}','_KnopBistroe')
HotKeySet('{numpad8}','_KnopBistroe')
HotKeySet('{numpad9}','_KnopBistroe')
HotKeySet('{numpad0}','_KnopBistroe')
HotKeySet('{numpaddot}','_KnopBistroe')
HotKeySet('{numpadmult}','_KnopBistroe')
HotKeySet('{NUMPADADD}','_KnopBistroe')
HotKeySet('{numpaddiv}','_KnopBistroe')
HotKeySet('{end}')
GUICtrlSetImage($PicVopros, $srptpic&'Вопрос.jpg')
Case 3
HotKeySet('{numpad1}')
HotKeySet('{numpad2}')
HotKeySet('{numpad3}')
HotKeySet('{numpad4}')
HotKeySet('{numpad5}')
HotKeySet('{numpad6}')
HotKeySet('{numpad7}')
HotKeySet('{numpad8}')
HotKeySet('{numpad9}')
HotKeySet('{numpad0}')
HotKeySet('{numpaddot}')
HotKeySet('{numpadmult}')
HotKeySet('{numpaddiv}')
HotKeySet('{NUMPADADD}')
HotKeySet('{up}')
HotKeySet('{del}')
HotKeySet('{end}','eksit')
GUICtrlSetImage($PicVopros, '')
EndSwitch
EndFunc
Func _del()
If FileExists(@ScriptDir&'\Scrn\'&$DT[$num][0]&".jpg") Then FileDelete(@ScriptDir&'\Scrn\'&$DT[$num][0]&'.jpg')
_ArrayDelete($DT,$num)
_ArrayDelete($VektoriObu4,1)
_ArrObu4Pokaz()
EndFunc
Func _KnopGlubok()
If _IsPressed('61') Then $DT[$num][1]=$Dn[1]
If _IsPressed('62') Then $DT[$num][1]=$Dn[2]
If _IsPressed('63') Then $DT[$num][1]=$Dn[3]
If _IsPressed('64') Then $DT[$num][1]=$Dn[4]
If _IsPressed('65') Then $DT[$num][1]=$Dn[5]
If _IsPressed('66') Then $DT[$num][1]=$Dn[6]
If _IsPressed('67') Then $DT[$num][1]=$Dn[7]
If _IsPressed('68') Then $DT[$num][1]=$Dn[8]
If _IsPressed('69') Then $DT[$num][1]=$Dn[9]
If _IsPressed('60') Then $DT[$num][1]=$Dn[10]
If _IsPressed('6E') Then $DT[$num][1]=$Dn[11]
If _IsPressed('6B') Then $DT[$num][1]=$Dn[12]
If _IsPressed('6A') Then $DT[$num][1]=$Dn[13]
If _IsPressed('6C') Then $DT[$num][1]=$Dn[14]
_ArrayDelete($VektoriObu4,1)
_ArrObu4Pokaz()
EndFunc
Func _KnopBistroe()
If _IsPressed('61') Then $DT[$num][1]=$Dn[1]
If _IsPressed('62') Then $DT[$num][1]=$Dn[2]
If _IsPressed('63') Then $DT[$num][1]=$Dn[3]
If _IsPressed('64') Then $DT[$num][1]=$Dn[4]
If _IsPressed('65') Then $DT[$num][1]=$Dn[5]
If _IsPressed('66') Then $DT[$num][1]=$Dn[6]
If _IsPressed('67') Then $DT[$num][1]=$Dn[7]
If _IsPressed('68') Then $DT[$num][1]=$Dn[8]
If _IsPressed('69') Then $DT[$num][1]=$Dn[9]
If _IsPressed('60') Then $DT[$num][1]=$Dn[10]
If _IsPressed('6E') Then $DT[$num][1]=$Dn[11]
If _IsPressed('6B') Then $DT[$num][1]=$Dn[12]
If _IsPressed('6A') Then $DT[$num][1]=$Dn[13]
If _IsPressed('6C') Then $DT[$num][1]=$Dn[14]
EndFunc
Func zabort()
$zab+=1
If $zab=1 Then
GUICtrlSetImage($PicZabort, $srptpic&'За борт.jpg')
$Gruz[1]-=20
ElseIf $zab<>1 Then
GUICtrlSetImage($PicZabort, '')
$Gruz[1]+=20
$zab=0
EndIf
EndFunc
Func pausa()
$ps+=1
If $ps=1 Then
$timer = TimerInit()
GUICtrlSetImage($PicPausa, $srptpic&'Работа.jpg')
ElseIf $ps<>1 Then
GUICtrlSetImage($PicPausa, '')
$ps=0
EndIf
EndFunc
Func podskaz()
$pd+=1
If $pd=1 Then
ToolTip('-TAB- Запуск бота'&@CRLF&'-TAB- Справка'&@CRLF&'-ctrl+home- Обучение бота'&@CRLF&'-home- Быстрое обучение бота'&@CRLF&'-insert- Груз за борт'&@CRLF&'-Ctrl+TAB- ЛогФайл'&@CRLF&'-End- Выход' ,800 ,200 )
ElseIf $pd<>1 Then
ToolTip('')
$pd=0
EndIf
EndFunc
Func ArryZap()
$File=FileOpen('МайнингМассивы.txt',2)
_ArraySort($DT, 0, 1, 0, 1)
FileWrite($File,_ArrayToString($DT,',',1) )
FileClose($File)
EndFunc
Func eksit()
_LogSbros()
ArryZap()
Exit
EndFunc
