add diamong gathering event

klanhaboru_main.au3

@@ -13,7 +13,7 @@
    Global $villageId = 					IniRead(@ScriptDir & "/config.ini", "Options", "villageId", 	"1")     	; get it from game url
    Global $scavengeMode = 				IniRead(@ScriptDir & "/config.ini", "Options", "scavengeMode", 	"2")  		; Mode 0-3 (0-Lusta gyûjtögetõk, 1-Szerény gyûjtögetõk, 2-Okos gyûjtögetõk, 3-Kiváló gyûjtögetõk)
    Global $traytip = 					IniRead(@ScriptDir & "/config.ini", "Options", "trayTip", 		true)
-   Global $debug = 						IniRead(@ScriptDir & "/config.ini", "Options", "debug", 		false)
+   Global $debug = 						IniRead(@ScriptDir & "/config.ini", "Options", "debug", 		true)
    Global $gyujtogetesEventTimer = 		eventStart(0)   ; delay task after bot started with seconds (default: 0)
    Global $trainUnitsEventTimer = 		eventStart(0)   ; delay task after bot started with seconds (default: 0)
    Global $trainLovassagEventTimer = 	eventStart(0) 	; delay task after bot started with seconds (default: 0)
@@ -21,6 +21,7 @@
    Global $epitesEventTimer = 			eventStart(0)   ; delay task after bot started with seconds (default: 0)
    Global $trainKnightEventTimer = 		eventStart(0)   ; delay task after bot started with seconds (default: 0)
    Global $sendAttackEventTimer = 		eventStart(0)   ; delay task after bot started with seconds (default: 0)
+   Global $diamondGatheringEventTimer = eventStart(0)   ; delay task after bot started with seconds (default: 0)
 
    Global $pageLoadTime = 				0 				; inMs  ; look at navigateToUrl last WinWaitActive
    Global $sleepTimesInEndOfTasks = 	3000			; inMs
@@ -52,6 +53,10 @@ While loopEnd()
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;  Send Attack
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;  $x, $y,	 $landzsas, $kardforgato, $bardos, $ijasz, 	$kem, $konnyulovas, $lovasijasz, $nehezlovas, 	$kos, $katapult, 	$lovag, $nemes, $eventTimer, $repeatTimer
    $sendAttackEventTimer = 		sendAttack(	490, 562,    0, 0, 0, 0,   		1, 0, 0, 0,    0, 0, 0, 0, 	3600,	$sendAttackEventTimer)  ; 10800 - 3h
+
+   ;;;;;;;;;;;;;;;;;;;;;;;;;;;  Diamon Gathering event
+   ;;;;;;;;;;;;;;;;;;;;;;;;;;;
+   $diamondGatheringEventTimer = diamondGatheringEvent(																	$diamondGatheringEventTimer)
 WEnd
 
 
@@ -62,6 +67,24 @@ Func loopEnd()
    return true
 EndFunc
 
+Func diamondGatheringEvent($eventTimer)
+   If (Not eventTriggered($eventTimer)) Then Return $eventTimer
+   TraytipGG("Diamong gathering started!" & @CRLF)
+   openNewTab()
+   navigateUrl(getGameUrl("event_mine"), false)
+   sendJsClickById("minecart_action_free")
+   Sleep(1000)
+
+   $seconds = parseTimeToSeconds(getDataWithJs("document.getElementById('next_round_countdown').children[0]"))
+   If ($seconds > 0) Then
+	  $eventTimer = eventStart($seconds)
+	  endTask("Diamong gathering done, next event: " & $eventTimer)
+	  Return $eventTimer
+   EndIf
+   endTask("Diamong gathering ERROR!", 3)
+   Return $eventTimer
+EndFunc
+
 Func gyujtogetes($sendAll, $mode, $landzsas, $kardforgato, $bardos, $ijasz, $konnyulovas, $lovasijasz, $nehezlovas, $lovag, $eventTimer)  ;Mode 0-3 (0-Lusta gyûjtögetõk, 1-Szerény gyûjtögetõk, 2-Okos gyûjtögetõk, 3-Kiváló gyûjtögetõk)
    If ($sendAll = false and $landzsas = 0 and $kardforgato = 0 and $bardos = 0 and $ijasz = 0 and $konnyulovas = 0 and $lovasijasz = 0 and $nehezlovas = 0 and $lovag = 0) Then Return $eventTimer
    If (Not eventTriggered($eventTimer)) Then Return $eventTimer