CGB Bot.au3

; #FUNCTION# ====================================================================================================================
; Name ..........: CGB Bot
; Description ...: This file contens the Sequence that runs all CGB Bot
; Author ........:  (2014)
; Modified ......:
; Remarks .......: This file is part of ClashGameBot. Copyright 2015
;                  ClashGameBot is distributed under the terms of the GNU GPL
; Related .......:
; Link ..........:
; Example .......: No
; ===============================================================================================================================

#RequireAdmin
#AutoIt3Wrapper_UseX64=n
#include <WindowsConstants.au3>
#include <WinAPI.au3>

#pragma compile(Icon, "Icons\cocbot.ico")
#pragma compile(FileDescription, Clash of Clans Bot - A Free Clash of Clans bot - https://gamebot.org)
#pragma compile(ProductName, Clash Game Bot)

#pragma compile(ProductVersion, 3.0)

#pragma compile(FileVersion, 3.0.4)
#pragma compile(LegalCopyright, © http://gamebot.org)

$sBotVersion = "v3.0.4"

$sBotTitle = "Clash Game Bot " & $sBotVersion
Global $sBotDll = @ScriptDir & "\CGBPlugin.dll"

If _Singleton($sBotTitle, 1) = 0 Then
	MsgBox(0, "", "Bot is already running.")
	Exit
 EndIf

If @AutoItX64 = 1 Then
	MsgBox(0, "", "Don't Run/Compile the Script as (x64)! try to Run/Compile the Script as (x86) to get the bot to work." & @CRLF & _
				  "If this message still appears, try to re-install AutoIt.")
	Exit
EndIf

If Not FileExists(@ScriptDir & "\License.txt") Then
	$license = InetGet("http://www.gnu.org/licenses/gpl-3.0.txt", @ScriptDir & "\License.txt")
	InetClose($license)
EndIf

#include "COCBot\CGB Global Variables.au3"
#include "COCBot\CGB GUI Design.au3"
#include "COCBot\CGB GUI Control.au3"
#include "COCBot\CGB Functions.au3"

DirCreate($dirLogs)
DirCreate($dirLoots)
FileChangeDir ( $LibDir )

While 1
	Switch TrayGetMsg()
        Case $tiAbout
			MsgBox(64 + $MB_APPLMODAL + $MB_TOPMOST, $sBotTitle, "Clash of Clans Bot" & @CRLF & @CRLF & _
				"Version: " & $sBotVersion & @CRLF & _
				"Released under the GNU GPLv3 license.", 0, $frmBot)
		Case $tiExit
			ExitLoop
	EndSwitch
WEnd

Func runBot() ;Bot that runs everything in order
	While 1
		$Restart = False
		$fullArmy = False
		$CommandStop = -1
		If _Sleep(1000) Then Return
		checkMainScreen()
		If $Is_ClientSyncError = False Then
				If _Sleep(1000) Then Return

				If $Restart = True Then ContinueLoop
			If BotCommand() Then btnStop()
				If _Sleep(1000) Then Return

				If $Restart = True Then ContinueLoop
;			BotDetectFirstTime()
;				If _Sleep(1000) Then Return
;
;				If $Restart = True Then ContinueLoop
			Collect()
				If _Sleep(1000) Then Return

				If $Restart = True Then ContinueLoop
			ReArm()
				If _Sleep(1000) Then Return

				If $Restart = True Then ContinueLoop
			VillageReport()
		     	If _Sleep(1000) Then Return

				If $Restart = True Then ContinueLoop
			ReportPushBullet()
				If _Sleep(1000) Then Return

				If $Restart = True Then ContinueLoop
			DonateCC()
				If _Sleep(1000) Then Return

				If $Restart = True Then ContinueLoop
			Train()
				If _Sleep(1000) Then Return

				If $Restart = True Then ContinueLoop
			BoostBarracks()
				If _Sleep(1000) Then Return

				If $Restart = True Then ContinueLoop
			BoostSpellFactory()
			    If _Sleep(1000) Then Return

				If $Restart = True Then ContinueLoop
			RequestCC()
				If _Sleep(1000) Then Return

				If $Restart = True Then ContinueLoop
			UpgradeWall()
				If _Sleep(1000) Then Return

				If $Restart = True Then ContinueLoop
			UpgradeBuilding()
				If _Sleep(1000) Then Return

				If $Restart = True Then ContinueLoop
			Idle()
				If _Sleep(1000) Then Return
				If $Restart = True Then ContinueLoop
			If $CommandStop <> 0 And $CommandStop <> 3 Then
				AttackMain()
					If _Sleep(1000) Then Return

					If $Restart = True Then ContinueLoop
			EndIf
				;
				;If $Restart = True Then ContinueLoop

		Else ;When error occours directly goes to attack
			SetLog("Restarted after Out of Sync Error: Attack Now", $COLOR_RED)
			AttackMain()
				If _Sleep(1000) Then Return

				If $Restart = True Then ContinueLoop
		EndIf
	WEnd
EndFunc   ;==>runBot

Func Idle() ;Sequence that runs until Full Army
	Local $TimeIdle = 0 ;In Seconds

	While $fullArmy = False
		If $CommandStop = -1 Then SetLog("====== Waiting for full army ======", $COLOR_GREEN)
		Local $hTimer = TimerInit()
		Local $iReHere = 0
		While $iReHere < 10
			$iReHere += 1
			DonateCC(true)
			If _Sleep(3000) Then ExitLoop
		    If $Restart = True Then ExitLoop
		WEnd
		If _Sleep(1500) Then ExitLoop

		If _Sleep(1000) Then ExitLoop
		If $iCollectCounter > $COLLECTATCOUNT Then ; This is prevent from collecting all the time which isn't needed anyway
			Collect()
			If _Sleep(1000) Or $RunState = False Then ExitLoop

			$iCollectCounter = 0
		EndIf
		$iCollectCounter = $iCollectCounter + 1
		If $CommandStop <> 3 Then
			Train()
			If _Sleep(1000) Then ExitLoop

		EndIf
		If $CommandStop = 0 And $fullArmy Then
			SetLog("Army Camp and Barracks are full, stop Training...", $COLOR_ORANGE)
			$CommandStop = 3
			$fullArmy = False
		EndIf
		If $CommandStop = -1 Then
			   DropTrophy()
			If $fullArmy Then ExitLoop
			If _Sleep(1000) Then ExitLoop

		EndIf

		$TimeIdle += Round(TimerDiff($hTimer) / 1000, 2) ;In Seconds
		SetLog("Time Idle: " & StringFormat("%02i", Floor(Floor($TimeIdle / 60) / 60)) & ":" & StringFormat("%02i", Floor(Mod(Floor($TimeIdle / 60), 60))) & ":" & StringFormat("%02i", Floor(Mod($TimeIdle, 60))), $COLOR_GREEN)
	WEnd
EndFunc   ;==>Idle

Func AttackMain() ;Main control for attack functions

	PrepareSearch()
		If _Sleep(1500) Then Return
	VillageSearch()
		If _Sleep(1500) Or $Restart = True Then Return
	PrepareAttack()
		If _Sleep(1500) Then Return
	;checkDarkElix()
	DEAttack()
	    If _Sleep(4000) Then Return
	Attack()
	ReturnHome($TakeLootSnapShot)
		If _Sleep(1500) Then Return
EndFunc   ;==>AttackMain

Func Attack() ;Selects which algorithm
	SetLog(" ====== Start Attack ====== ", $COLOR_GREEN)
	algorithm_AllTroops()
EndFunc   ;==>Attack