#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=icon.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <File.au3>
#include <MsgBoxConstants.au3>
#include <Json.au3>
#include <Date.au3>
#include <String.au3>
#include <EzMySql.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiRichEdit.au3>
#include <MultiTask_v2.au3>

Global $oMyError = ObjEvent("AutoIt.Error", "_MyErrFunc")


#Region ### START Koda GUI section ### Form=Y:\__ AutoIt\BITBOT\GUI_BitBot\FRM_KrakenManager.kxf
$FRM_Main = GUICreate("Kraken Trend Manager", 475, 322, 592, 188)
GUISetBkColor(0x393939)
GUISetIcon(@ScriptDir & "\Resources\bitbot.ico", -1)
GUISetFont(10, 400, 0, "Calibri")
$Label1 = GUICtrlCreateLabel("KRAKEN Trend Manager", 165, 16, 144, 17)
_SetCtrlFontAndColor(-1, 10, 0xFFFFFF, 0, False, True) ; $Ctrl, $FontSize = 0, $Color = 0, $BkColor = 0, $Disable = False, $Bold = False
$Group1 = GUICtrlCreateGroup("Currency to monitor", 8, 40, 153, 241)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($Group1), "wstr", 0, "wstr", 0) ; <<<<<<<<<<<<<<<<<<<<<<<
_SetCtrlFontAndColor(-1, 10, 0xFFFFFF, 0, False, True) ; $Ctrl, $FontSize = 0, $Color = 0, $BkColor = 0, $Disable = False, $Bold = False
;~ GUICtrlSetColor(-1, 0xFFFFFF)
$CB_CHF = GUICtrlCreateCheckbox("CHF", 16, 64, 65, 17)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($CB_CHF), "wstr", 0, "wstr", 0) ; <<<<<<<<<<<<<<<<<<<<<<<
_SetCtrlFontAndColor(-1, 0, 0xFFFFFF)
$CB_DAI = GUICtrlCreateCheckbox("DAI", 16, 83, 65, 17)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($CB_DAI), "wstr", 0, "wstr", 0) ; <<<<<<<<<<<<<<<<<<<<<<<
_SetCtrlFontAndColor(-1, 0, 0xFFFFFF)
$CB_DOT = GUICtrlCreateCheckbox("DOT", 16, 102, 65, 17)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($CB_DOT), "wstr", 0, "wstr", 0) ; <<<<<<<<<<<<<<<<<<<<<<<
_SetCtrlFontAndColor(-1, 0, 0xFFFFFF)
$CB_USDC = GUICtrlCreateCheckbox("USDC", 16, 122, 65, 17)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($CB_USDC), "wstr", 0, "wstr", 0) ; <<<<<<<<<<<<<<<<<<<<<<<
_SetCtrlFontAndColor(-1, 0, 0xFFFFFF)
$CB_USDT = GUICtrlCreateCheckbox("USDT", 16, 141, 97, 17)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($CB_USDT), "wstr", 0, "wstr", 0) ; <<<<<<<<<<<<<<<<<<<<<<<
_SetCtrlFontAndColor(-1, 0, 0xFFFFFF)
$CB_XETH = GUICtrlCreateCheckbox("XETH", 16, 160, 97, 17)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($CB_XETH), "wstr", 0, "wstr", 0) ; <<<<<<<<<<<<<<<<<<<<<<<
_SetCtrlFontAndColor(-1, 0, 0xFFFFFF)
$CB_XXBT = GUICtrlCreateCheckbox("XXBT", 16, 179, 97, 17)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($CB_XXBT), "wstr", 0, "wstr", 0) ; <<<<<<<<<<<<<<<<<<<<<<<
_SetCtrlFontAndColor(-1, 0, 0xFFFFFF)
$CB_ZAUD = GUICtrlCreateCheckbox("ZAUD", 16, 198, 97, 17)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($CB_ZAUD), "wstr", 0, "wstr", 0) ; <<<<<<<<<<<<<<<<<<<<<<<
_SetCtrlFontAndColor(-1, 0, 0xFFFFFF)
$CB_ZCAD = GUICtrlCreateCheckbox("ZCAD", 16, 218, 97, 17)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($CB_ZCAD), "wstr", 0, "wstr", 0) ; <<<<<<<<<<<<<<<<<<<<<<<
_SetCtrlFontAndColor(-1, 0, 0xFFFFFF)
$CB_ZEUR = GUICtrlCreateCheckbox("ZEUR", 16, 237, 97, 17)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($CB_ZEUR), "wstr", 0, "wstr", 0) ; <<<<<<<<<<<<<<<<<<<<<<<
_SetCtrlFontAndColor(-1, 0, 0xFFFFFF)
$CB_ZGBP = GUICtrlCreateCheckbox("ZGBP", 16, 256, 97, 17)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($CB_ZGBP), "wstr", 0, "wstr", 0) ; <<<<<<<<<<<<<<<<<<<<<<<
_SetCtrlFontAndColor(-1, 0, 0xFFFFFF)
$CB_ZJPY = GUICtrlCreateCheckbox("ZJPY", 104, 65, 55, 17)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($CB_ZJPY), "wstr", 0, "wstr", 0) ; <<<<<<<<<<<<<<<<<<<<<<<
_SetCtrlFontAndColor(-1, 0, 0xFFFFFF)
$CB_ZUSD = GUICtrlCreateCheckbox("ZUSD", 104, 83, 55, 17)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($CB_ZUSD), "wstr", 0, "wstr", 0) ; <<<<<<<<<<<<<<<<<<<<<<<
_SetCtrlFontAndColor(-1, 0, 0xFFFFFF)
$CB_AED = GUICtrlCreateCheckbox("AED", 104, 101, 55, 17)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($CB_AED), "wstr", 0, "wstr", 0) ; <<<<<<<<<<<<<<<<<<<<<<<
_SetCtrlFontAndColor(-1, 0, 0xFFFFFF)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$B_All = GUICtrlCreateButton("Select All", 8, 288, 75, 25)
_SetCtrlFontAndColor(-1, 0, 0xFFFFFF, 0x5A5A5A) ; ($Ctrl, $FontSize = 0, $Color = 0, $BkColor = 0, $Disable = False, $Bold = False)
$B_Start = GUICtrlCreateButton("Start", 88, 288, 75, 25)
_SetCtrlFontAndColor(-1, 0, 0xFFFFFF, 0x5A5A5A) ; ($Ctrl, $FontSize = 0, $Color = 0, $BkColor = 0, $Disable = False, $Bold = False)
$B_Stop = GUICtrlCreateButton("Stop", 168, 288, 75, 25)
_SetCtrlFontAndColor(-1, 0, 0xFFFFFF, 0x5A5A5A) ; ($Ctrl, $FontSize = 0, $Color = 0, $BkColor = 0, $Disable = False, $Bold = False)
$edit = _GUICtrlRichEdit_Create($FRM_Main, "", 168, 48, 297, 233, BitOR($ES_MULTILINE, $WS_HSCROLL, $ES_AUTOHSCROLL, $WS_VSCROLL, $ES_AUTOVSCROLL, $ES_READONLY))
_GUICtrlRichEdit_SetBkColor($edit, 0x393939)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $giallo = "0xFFA500"
Global $giallochiaro = "0xFFFF33"
Global $verdechiaro = "0x84B984"
Global $rosso = "0xFF0000"
Global $bianco = "0xFFFFFF"
Global $grigio1 = "0xD4D0C8"
Global $grigio2 = "0xC8C8C8"
Global $azzurro = "0x43D2DD"
Global $verde = "0x00CC00"

Global $iDefaultExchange = "Kraken"

Global $sFilePathKraken = @ScriptDir & "\RetrieverIni\Kraken.json"
If DirGetSize(@ScriptDir & "\RetrieverIni") = -1 Then DirCreate(@ScriptDir & "\RetrieverIni")

Global $aPublicAssets[0]
Global $aSkippingAssets[0]
Global $aValues[0][14]
;~ 	0  	- Asset
;~ 1  	- Last Value
;~ 2-10 - Close Values
;~ 11	- Condition satisfied 3
;~ 12	- Condition satisfied 6
;~ 13	- Condition satisfied 9
Global $go = False
Global $TasksCHF = 0, $EndedTaskCHF = True, $RunsCHF = 1
Global $TasksDAI = 0, $EndedTaskDAI = True, $RunsDAI = 1
Global $TasksDOT = 0, $EndedTaskDOT = True, $RunsDOT = 1
Global $TasksUSDC = 0, $EndedTaskUSDC = True, $RunsUSDC = 1
Global $TasksUSDT = 0, $EndedTaskUSDT = True, $RunsUSDT = 1
Global $TasksXETH = 0, $EndedTaskXETH = True, $RunsXETH = 1
Global $TasksXXBT = 0, $EndedTaskXXBT = True, $RunsXXBT = 1
Global $TasksZAUD = 0, $EndedTaskZAUD = True, $RunsZAUD = 1
Global $TasksZCAD = 0, $EndedTaskZCAD = True, $RunsZCAD = 1
Global $TasksZEUR = 0, $EndedTaskZEUR = True, $RunsZEUR = 1
Global $TasksZGBP = 0, $EndedTaskZGBP = True, $RunsZGBP = 1
Global $TasksZJPY = 0, $EndedTaskZJPY = True, $RunsZJPY = 1
Global $TasksZUSD = 0, $EndedTaskZUSD = True, $RunsZUSD = 1
Global $TasksAED = 0, $EndedTaskAED = True, $RunsAED = 1
Global $All = 0

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $B_Start
			_start()
		Case $B_Stop
			_stop()
		Case $B_All
			_SelectAll($All)
	EndSwitch
WEnd

Func _SelectAll($ans)
	If $ans = 0 Then
		$All = 1
		GUICtrlSetState($CB_CHF, $GUI_CHECKED)
		GUICtrlSetState($CB_DAI, $GUI_CHECKED)
		GUICtrlSetState($CB_DOT, $GUI_CHECKED)
		GUICtrlSetState($CB_USDC, $GUI_CHECKED)
		GUICtrlSetState($CB_USDT, $GUI_CHECKED)
		GUICtrlSetState($CB_XETH, $GUI_CHECKED)
		GUICtrlSetState($CB_XXBT, $GUI_CHECKED)
		GUICtrlSetState($CB_ZAUD, $GUI_CHECKED)
		GUICtrlSetState($CB_ZCAD, $GUI_CHECKED)
		GUICtrlSetState($CB_ZEUR, $GUI_CHECKED)
		GUICtrlSetState($CB_ZGBP, $GUI_CHECKED)
		GUICtrlSetState($CB_ZJPY, $GUI_CHECKED)
		GUICtrlSetState($CB_ZUSD, $GUI_CHECKED)
		GUICtrlSetState($CB_AED, $GUI_CHECKED)
	ElseIf $ans = 1 Then
		$All = 0
		GUICtrlSetState($CB_CHF, $GUI_UNCHECKED)
		GUICtrlSetState($CB_DAI, $GUI_UNCHECKED)
		GUICtrlSetState($CB_DOT, $GUI_UNCHECKED)
		GUICtrlSetState($CB_USDC, $GUI_UNCHECKED)
		GUICtrlSetState($CB_USDT, $GUI_UNCHECKED)
		GUICtrlSetState($CB_XETH, $GUI_UNCHECKED)
		GUICtrlSetState($CB_XXBT, $GUI_UNCHECKED)
		GUICtrlSetState($CB_ZAUD, $GUI_UNCHECKED)
		GUICtrlSetState($CB_ZCAD, $GUI_UNCHECKED)
		GUICtrlSetState($CB_ZEUR, $GUI_UNCHECKED)
		GUICtrlSetState($CB_ZGBP, $GUI_UNCHECKED)
		GUICtrlSetState($CB_ZJPY, $GUI_UNCHECKED)
		GUICtrlSetState($CB_ZUSD, $GUI_UNCHECKED)
		GUICtrlSetState($CB_AED, $GUI_UNCHECKED)
	EndIf
EndFunc   ;==>_SelectAll

Func _start()
	$go = True
	_send('Remote analysis start in 5"', $verde)
	Sleep(5000)

	If GUICtrlRead($CB_CHF) = 1 Then
		_CHF()
		AdlibRegister("_CHF", 20000)
	EndIf
	If GUICtrlRead($CB_DAI) = 1 Then
		_DAI()
		AdlibRegister("_DAI", 20000)
	EndIf
	If GUICtrlRead($CB_DOT) = 1 Then
		_DOT()
		AdlibRegister("_DOT", 300000)
	EndIf
	If GUICtrlRead($CB_USDC) = 1 Then
		_USDC()
		AdlibRegister("_USDC", 300000)
	EndIf
	If GUICtrlRead($CB_USDT) = 1 Then
		_USDT()
		AdlibRegister("_USDT", 300000)
	EndIf
	If GUICtrlRead($CB_XETH) = 1 Then
		_XETH()
		AdlibRegister("_XETH", 300000)
	EndIf
	If GUICtrlRead($CB_XXBT) = 1 Then
		_XXBT()
		AdlibRegister("_XXBT", 300000)
	EndIf
	If GUICtrlRead($CB_ZAUD) = 1 Then
		_ZAUD()
		AdlibRegister("_ZAUD", 300000)
	EndIf
	If GUICtrlRead($CB_ZCAD) = 1 Then
		_ZCAD()
		AdlibRegister("_ZCAD", 300000)
	EndIf
	If GUICtrlRead($CB_ZEUR) = 1 Then
		_ZEUR()
		AdlibRegister("_ZEUR", 300000)
	EndIf
	If GUICtrlRead($CB_ZGBP) = 1 Then
		_ZGBP()
		AdlibRegister("_ZGBP", 300000)
	EndIf
	If GUICtrlRead($CB_ZJPY) = 1 Then
		_ZJPY()
		AdlibRegister("_ZJPY", 300000)
	EndIf
	If GUICtrlRead($CB_ZUSD) = 1 Then
		_ZUSD()
		AdlibRegister("_ZUSD", 300000)
	EndIf
	If GUICtrlRead($CB_AED) = 1 Then
		_AED()
		AdlibRegister("_AED", 300000)
	EndIf
EndFunc   ;==>_start

Func _CHF()
	If $go Then
		If @Compiled Then
			If $EndedTaskCHF Then
				_send("CHF Cycle N. " & $RunsCHF, $verdechiaro)
				_TaskRun("CHF", @ScriptDir & '\Kraken_ValueGatherer.exe CHF 10', "_ParserCHF")
				$EndedTaskCHF = False
			EndIf
		Else
			If $EndedTaskCHF Then
				_send("CHF Cycle N. " & $RunsCHF, $verdechiaro)
				_TaskRun("CHF", @AutoItExe & " /AutoIt3ExecuteScript " & 'Kraken_ValueGatherer.au3 CHF 10', "_ParserCHF")
				$EndedTaskCHF = False
			EndIf
		EndIf
	Else
		_send("Remote analysis stopped", $giallo)
	EndIf
	_TasksCheckStatus()
EndFunc   ;==>_CHF
Func _DAI()
	If $go Then
		If $EndedTaskDAI Then
			_send("DAI Cycle N. " & $RunsDAI, $verdechiaro)
			_TaskRun("DAI", @ScriptDir & '\Kraken_ValueGatherer.exe DAI 11', "_ParserDAI")
			$EndedTaskDAI = False
		EndIf
	Else
		_send("Remote analysis stopped", $giallo)
	EndIf
	_TasksCheckStatus()
EndFunc   ;==>_DAI
Func _DOT()
	If $go Then
		If $EndedTaskDOT Then
			_send("DOT Cycle N. " & $RunsDOT, $verdechiaro)
			_TaskRun("DOT", @ScriptDir & '\Kraken_ValueGatherer.exe DOT 12', "_ParserDOT")
			$EndedTaskDOT = False
		EndIf
	Else
		_send("Remote analysis stopped", $giallo)
	EndIf
	_TasksCheckStatus()
EndFunc   ;==>_DOT
Func _USDC()
	If $go Then
		If $EndedTaskUSDC Then
			_send("USDC Cycle N. " & $RunsUSDC, $verdechiaro)
			_TaskRun("USDC", @ScriptDir & '\Kraken_ValueGatherer.exe USDC 13', "_ParserUSDC")
			$EndedTaskUSDC = False
		EndIf
	Else
		_send("Remote analysis stopped", $giallo)
	EndIf
	_TasksCheckStatus()
EndFunc   ;==>_USDC
Func _USDT()
	If $go Then
		If $EndedTaskUSDT Then
			_send("USDT Cycle N. " & $RunsUSDT, $verdechiaro)
			_TaskRun("USDT", @ScriptDir & '\Kraken_ValueGatherer.exe USDT 14', "_ParserUSDT")
			$EndedTaskUSDT = False
		EndIf
	Else
		_send("Remote analysis stopped", $giallo)
	EndIf
	_TasksCheckStatus()
EndFunc   ;==>_USDT
Func _XETH()
	If $go Then
		If $EndedTaskXETH Then
			_send("XETH Cycle N. " & $RunsXETH, $verdechiaro)
			_TaskRun("XETH", @ScriptDir & '\Kraken_ValueGatherer.exe XETH', "_ParserXETH",15)
			$EndedTaskXETH = False
		EndIf
	Else
		_send("Remote analysis stopped", $giallo)
	EndIf
	_TasksCheckStatus()
EndFunc   ;==>_XETH
Func _XXBT()
	If $go Then
		If $EndedTaskXXBT Then
			_send("XXBT Cycle N. " & $RunsXXBT, $verdechiaro)
			_TaskRun("XXBT", @ScriptDir & '\Kraken_ValueGatherer.exe XXBT', "_ParserXXBT",16)
			$EndedTaskXXBT = False
		EndIf
	Else
		_send("Remote analysis stopped", $giallo)
	EndIf
	_TasksCheckStatus()
EndFunc   ;==>_XXBT
Func _ZAUD()
	If $go Then
		If $EndedTaskZAUD Then
			_send("ZAUD Cycle N. " & $RunsZAUD, $verdechiaro)
			_TaskRun("ZAUD", @ScriptDir & '\Kraken_ValueGatherer.exe ZAUD', "_ParserZAUD",17)
			$EndedTaskZAUD = False
		EndIf
	Else
		_send("Remote analysis stopped", $giallo)
	EndIf
	_TasksCheckStatus()
EndFunc   ;==>_ZAUD
Func _ZCAD()
	If $go Then
		If $EndedTaskZCAD Then
			_send("ZCAD Cycle N. " & $RunsZCAD, $verdechiaro)
			_TaskRun("ZCAD", @ScriptDir & '\Kraken_ValueGatherer.exe ZCAD', "_ParserZCAD",18)
			$EndedTaskZCAD = False
		EndIf
	Else
		_send("Remote analysis stopped", $giallo)
	EndIf
	_TasksCheckStatus()
EndFunc   ;==>_ZCAD
Func _ZEUR()
	If $go Then
		If $EndedTaskZEUR Then
			_send("ZEUR Cycle N. " & $RunsZEUR, $verdechiaro)
			_TaskRun("ZEUR", @ScriptDir & '\Kraken_ValueGatherer.exe ZEUR', "_ParserZEUR",19)
			$EndedTaskZEUR = False
		EndIf
	Else
		_send("Remote analysis stopped", $giallo)
	EndIf
	_TasksCheckStatus()
EndFunc   ;==>_ZEUR
Func _ZGBP()
	If $go Then
		If $EndedTaskZGBP Then
			_send("ZGBP Cycle N. " & $RunsZGBP, $verdechiaro)
			_TaskRun("ZGBP", @ScriptDir & '\Kraken_ValueGatherer.exe ZGBP', "_ParserZGBP",20)
			$EndedTaskZGBP = False
		EndIf
	Else
		_send("Remote analysis stopped", $giallo)
	EndIf
	_TasksCheckStatus()
EndFunc   ;==>_ZGBP
Func _ZJPY()
	If $go Then
		If $EndedTaskZJPY Then
			_send("ZJPY Cycle N. " & $RunsZJPY, $verdechiaro)
			_TaskRun("ZJPY", @ScriptDir & '\Kraken_ValueGatherer.exe ZJPY', "_ParserZJPY",21)
			$EndedTaskZJPY = False
		EndIf
	Else
		_send("Remote analysis stopped", $giallo)
	EndIf
	_TasksCheckStatus()
EndFunc   ;==>_ZJPY
Func _ZUSD()
	If $go Then
		If $EndedTaskZUSD Then
			_send("ZUSD Cycle N. " & $RunsZUSD, $verdechiaro)
			_TaskRun("ZUSD", @ScriptDir & '\Kraken_ValueGatherer.exe ZUSD', "_ParserZUSD",22)
			$EndedTaskZUSD = False
		EndIf
	Else
		_send("Remote analysis stopped", $giallo)
	EndIf
	_TasksCheckStatus()
EndFunc   ;==>_ZUSD

Func _AED()
	If $go Then
		If $EndedTaskAED Then
			_send("AED Cycle N. " & $RunsAED, $verdechiaro)
			_TaskRun("AED", @ScriptDir & '\Kraken_ValueGatherer.exe AED', "_ParserAED",23)
			$EndedTaskAED = False
		EndIf
	Else
		_send("Remote analysis stopped", $giallo)
	EndIf
	_TasksCheckStatus()
EndFunc   ;==>_ZUSD

Func _ParserCHF($aParameters)
	If $aParameters[2] <> "" Then ; an error occurred
		_send("Error: " & $aParameters[2], $rosso)
	EndIf
	_send($aParameters[0] & " analysis completed in " & $aParameters[1] & "''", $verdechiaro)
	$EndedTaskCHF = True
	$RunsCHF += 1
EndFunc   ;==>_ParserCHF
Func _ParserDAI($aParameters)
	If $aParameters[2] <> "" Then ; an error occurred
		_send("Error: " & $aParameters[2], $rosso)
	EndIf
	_send($aParameters[0] & " analysis completed in " & $aParameters[1] & "''", $verdechiaro)
	$EndedTaskDAI = True
	$RunsDAI += 1
EndFunc   ;==>_ParserDAI
Func _ParserDOT($aParameters)
	If $aParameters[2] <> "" Then ; an error occurred
		_send("Error: " & $aParameters[2], $rosso)
	EndIf
	_send($aParameters[0] & " analysis completed in " & $aParameters[1] & "''", $verdechiaro)
	$EndedTaskDOT = True
	$RunsDOT += 1
EndFunc   ;==>_ParserDOT
Func _ParserUSDC($aParameters)
	If $aParameters[2] <> "" Then ; an error occurred
		_send("Error: " & $aParameters[2], $rosso)
	EndIf
	_send($aParameters[0] & " analysis completed in " & $aParameters[1] & "''", $verdechiaro)
	$EndedTaskUSDC = True
	$RunsUSDC += 1
EndFunc   ;==>_ParserUSDC
Func _ParserUSDT($aParameters)
	If $aParameters[2] <> "" Then ; an error occurred
		_send("Error: " & $aParameters[2], $rosso)
	EndIf
	_send($aParameters[0] & " analysis completed in " & $aParameters[1] & "''", $verdechiaro)
	$EndedTaskUSDT = True
	$RunsUSDT += 1
EndFunc   ;==>_ParserUSDT
Func _ParserXETH($aParameters)
	If $aParameters[2] <> "" Then ; an error occurred
		_send("Error: " & $aParameters[2], $rosso)
	EndIf
	_send($aParameters[0] & " analysis completed in " & $aParameters[1] & "''", $verdechiaro)
	$EndedTaskXETH = True
	$RunsXETH += 1
EndFunc   ;==>_ParserXETH
Func _ParserXXBT($aParameters)
	If $aParameters[2] <> "" Then ; an error occurred
		_send("Error: " & $aParameters[2], $rosso)
	EndIf
	_send($aParameters[0] & " analysis completed in " & $aParameters[1] & "''", $verdechiaro)
	$EndedTaskXXBT = True
	$RunsXXBT += 1
EndFunc   ;==>_ParserXXBT
Func _ParserZAUD($aParameters)
	If $aParameters[2] <> "" Then ; an error occurred
		_send("Error: " & $aParameters[2], $rosso)
	EndIf
	_send($aParameters[0] & " analysis completed in " & $aParameters[1] & "''", $verdechiaro)
	$EndedTaskZAUD = True
	$RunsZAUD += 1
EndFunc   ;==>_ParserZAUD
Func _ParserZCAD($aParameters)
	If $aParameters[2] <> "" Then ; an error occurred
		_send("Error: " & $aParameters[2], $rosso)
	EndIf
	_send($aParameters[0] & " analysis completed in " & $aParameters[1] & "''", $verdechiaro)
	$EndedTaskZCAD = True
	$RunsZCAD += 1
EndFunc   ;==>_ParserZCAD
Func _ParserZEUR($aParameters)
	If $aParameters[2] <> "" Then ; an error occurred
		_send("Error: " & $aParameters[2], $rosso)
	EndIf
	_send($aParameters[0] & " analysis completed in " & $aParameters[1] & "''", $verdechiaro)
	$EndedTaskZEUR = True
	$RunsZEUR += 1
EndFunc   ;==>_ParserZEUR
Func _ParserZGBP($aParameters)
	If $aParameters[2] <> "" Then ; an error occurred
		_send("Error: " & $aParameters[2], $rosso)
	EndIf
	_send($aParameters[0] & " analysis completed in " & $aParameters[1] & "''", $verdechiaro)
	$EndedTaskZGBP = True
	$RunsZGBP += 1
EndFunc   ;==>_ParserZGBP
Func _ParserZJPY($aParameters)
	If $aParameters[2] <> "" Then ; an error occurred
		_send("Error: " & $aParameters[2], $rosso)
	EndIf
	_send($aParameters[0] & " analysis completed in " & $aParameters[1] & "''", $verdechiaro)
	$EndedTaskZJPY = True
	$RunsZJPY += 1
EndFunc   ;==>_ParserZJPY
Func _ParserZUSD($aParameters)
	If $aParameters[2] <> "" Then ; an error occurred
		_send("Error: " & $aParameters[2], $rosso)
	EndIf
	_send($aParameters[0] & " analysis completed in " & $aParameters[1] & "''", $verdechiaro)
	$EndedTaskZUSD = True
	$RunsZUSD += 1
EndFunc   ;==>_ParserZUSD
Func _ParserAED($aParameters)
	If $aParameters[2] <> "" Then ; an error occurred
		_send("Error: " & $aParameters[2], $rosso)
	EndIf
	_send($aParameters[0] & " analysis completed in " & $aParameters[1] & "''", $verdechiaro)
	$EndedTaskAED = True
	$RunsAED += 1
EndFunc   ;==>_ParserZUSD

Func _stop()
	_send("Completing last queue", $verde)
	$go = False
	AdlibUnRegister("_CHF")
	AdlibUnRegister("_DAI")
	AdlibUnRegister("_DOT")
	AdlibUnRegister("_USDC")
	AdlibUnRegister("_USDT")
	AdlibUnRegister("_XETH")
	AdlibUnRegister("_XXBT")
	AdlibUnRegister("_ZAUD")
	AdlibUnRegister("_ZCAD")
	AdlibUnRegister("_ZEUR")
	AdlibUnRegister("_ZGBP")
	AdlibUnRegister("_ZJPY")
	AdlibUnRegister("_ZUSD")
	AdlibUnRegister("_AED")
EndFunc   ;==>_stop

Func _SetCtrlFontAndColor($Ctrl, $FontSize = 0, $Color = 0, $BkColor = 0, $Disable = False, $Bold = False)
	If $FontSize <> 0 Then
		If $Bold Then
			GUICtrlSetFont($Ctrl, $FontSize, 800, 0, "Calibri")
		Else
			GUICtrlSetFont($Ctrl, $FontSize, 400, 0, "Calibri")
		EndIf
	EndIf
	If $Color <> 0 Then GUICtrlSetColor($Ctrl, $Color)
	If $BkColor <> 0 Then GUICtrlSetBkColor(-1, $BkColor)
	If $Disable Then GUICtrlSetState($Ctrl, $GUI_DISABLE)
EndFunc   ;==>_SetCtrlFontAndColor

Func _send($txt, $col = 0)
	If $col = 0 Then $col = $bianco
	_GUICtrlRichEdit_WriteLine($edit, "[" & @HOUR & ":" & @MIN & ":" & @SEC & "] " & $txt, 0, "", $col)
EndFunc   ;==>_send

Func _GUICtrlRichEdit_WriteLine($hWnd, $sText, $iIncrement = 0, $sAttrib = "", $iColor = -1)
	; Count the @CRLFs
	StringReplace(_GUICtrlRichEdit_GetText($hWnd, True), @CRLF, "")
	Local $iLines = @extended
	; Adjust the text char count to account for the @CRLFs
	Local $iEndPoint = _GUICtrlRichEdit_GetTextLength($hWnd, True, True) - $iLines
	; Add new text
	_GUICtrlRichEdit_AppendText($hWnd, $sText & @CRLF)
	; Select text between old and new end points
	_GUICtrlRichEdit_SetSel($hWnd, $iEndPoint, -1)
	; Convert colour from RGB to BGR
	$iColor = Hex($iColor, 6)
	$iColor = '0x' & StringMid($iColor, 5, 2) & StringMid($iColor, 3, 2) & StringMid($iColor, 1, 2)
	; Set colour
	If $iColor <> -1 Then _GUICtrlRichEdit_SetCharColor($hWnd, $iColor)
	; Set size
	If $iIncrement <> 0 Then _GUICtrlRichEdit_ChangeFontSize($hWnd, $iIncrement)
	; Set weight
	If $sAttrib <> "" Then _GUICtrlRichEdit_SetCharAttributes($hWnd, $sAttrib)
	; Clear selection
	_GUICtrlRichEdit_Deselect($hWnd)
EndFunc   ;==>_GUICtrlRichEdit_WriteLine

Func _NewData()
	Return StringRegExpReplace(_NowDate(), "\A(\d*)/(\d*)/(\d*)", "$3-$2-$1")
EndFunc   ;==>_NewData

Func _MyErrFunc()
	_send("COM Error: " & "[err.description]: " & $oMyError.description & " - [err.windescription]: " & $oMyError.windescription, $rosso)
EndFunc   ;==>_MyErrFunc