; Return from Rogue Camp WP to Harrogath Start
; v 0.61 by WildRob

#include "Includes.TownMove.au3"
#include "Includes.Init.au3"
#include "Includes.Click.au3"
opt ("PixelCoordMode", 2) 
opt ("MouseCoordMode", 2) 
opt ("ColorMode", 1) 

$CurrentDir = StringSplit(@ScriptDir, "\") 
_ArrayPop($CurrentDir) 
$BotDir = $CurrentDir[1] 
For $Rebuild = 2 to ($CurrentDir[0] - 1) 
   $BotDir = $BotDir & "\" & $CurrentDir[$Rebuild] 
Next 

; check if in act 1
$Act_PCS = PixelChecksum(242,132, 246,136)
If $Act_PCS <> 1115492022 Then 
        ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        $file = FileOpen($BotDir & "\Logs\Act1_Town.txt" , 1)
        If $file = -1 Then
           MsgBox(0, "Error", "Unable to open file.")
           Exit
        EndIf
        FileWriteLine($file, _NowDate() & "  " &_NowTime() & " We are not in Act 1!  Act PCS = " & $Act_PCS)
		FileWriteLine($file, " ")
        FileClose($file)
        ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
	Exit 1
EndIf

$PCS_Act1_Start = PixelChecksum(242,132, 246,136)
        ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        $file = FileOpen($BotDir & "\Logs\Act1_Town.txt" , 1)
        If $file = -1 Then
           MsgBox(0, "Error", "Unable to open file.")
           Exit
        EndIf
        FileWriteLine($file, _NowDate() & "  " &_NowTime() & " Barrel PCS = " & $PCS_Act1_Start)
        FileClose($file)
        ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

; read variables
$Char_CheckMoveDelay = IniRead($BotDir & "\Config\mm.BOT.ini", "Advanced Settings", "Char_CheckMoveDelay", "")
$D2_SendKeyDownDelay = IniRead($BotDir & "\Config\mm.BOT.ini", "Advanced Settings", "D2_SendKeyDownDelay", "")
$Walk_Delay = IniRead($BotDir & "\Config\mm.BOT.sequences.ini", "Vars", "@Walk_Delay", "")

; check location of WP
$GreenBlock = 65304
$MidBlock = PixelSearch( 640, 280, 760, 330, $GreenBlock)
If Not @error Then
    $WpLoc = "down"
Else 
	$WpLoc = "up"
EndIf
        ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        $file = FileOpen($BotDir & "\Logs\Act1_Town.txt" , 1)
        If $file = -1 Then
           MsgBox(0, "Error", "Unable to open file.")
           Exit
        EndIf
        FileWriteLine($file, _NowDate() & "  " &_NowTime() & " WP location is " & $WPLoc)
        FileClose($file)
        ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

; Go near WP 
Opt("MouseClickDownDelay", 100)
If $WpLoc = "down" Then
	MouseClick("left", 792, 370, 1, 1)
	CheckMove($Char_CheckMoveDelay)
	Sleep($Walk_Delay)
	MouseClick("left", 654, 335, 1, 1) ; 654, 305, 1, 1
	CheckMove($Char_CheckMoveDelay)
	Sleep($Walk_Delay)
ElseIf $WpLoc = "up" Then
	MouseClick("left", 610, 103, 1, 1) ; 620
	CheckMove($Char_CheckMoveDelay)
	Sleep($Walk_Delay)
EndIf

; Open WP menu
If NOT IsWaypointOpen() Then
	$X_PS = 5
	$X_PS_max = 650
	$begin = TimerInit()
	Do
		$pixel = PixelSearch($X_PS, 5, $X_PS_max, 457, 15176291, 0, 1)
		If NOT @error Then
			Feedback("Clicking on Harrogath WP.", 8)
			;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
			$file = FileOpen($BotDir & "\Logs\Act1_Town.txt" , 1)
			If $file = -1 Then
				MsgBox(0, "Error", "Unable to open file.")
				Exit
			EndIf
			FileWriteLine($file, _NowDate() & "  " &_NowTime() & " PixelSearch for Act 1 WP successful at: " & $pixel[0] & ", " & $pixel[1])
			FileClose($file)
			;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
			MouseClick("left", $pixel[0], $pixel[1], 1, 1)
			Sleep(1500)
		EndIf
		If ValidateWP() Then ExitLoop
		If IsArray($pixel) Then 
			$X_PS = $pixel[0]
			If $X_PS > $X_PS_max Then $X_PS = 5
		EndIf		
		$dif = TimerDiff($begin)
	Until $dif >= 10000	
EndIf
Opt("MouseClickDownDelay", $D2_SendKeyDownDelay)

; Error check
If NOT ValidateWP() Then
	Feedback("Error opening Act1 WP : ABORTING !", 4)
    ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    $file = FileOpen($BotDir & "\Logs\Act1_Town.txt" , 1)
    If $file = -1 Then
        MsgBox(0, "Error", "Unable to open file.")
        Exit
    EndIf
    FileWriteLine($file, _NowDate() & "  " &_NowTime() & " Error opening Act 1 WP : ABORTING !")
	FileWriteLine($file, " ")
	FileClose($file)
	;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
	Exit 0
Endif

If NOT UseWP(5, 1, 10000) Then
	Feedback("Timeout using WP : ABORTING !", 4)
	;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
	$file = FileOpen($BotDir & "\Logs\Act1_Town.txt" , 1)
	If $file = -1 Then
		MsgBox(0, "Error", "Unable to open file.")
		Exit
	EndIf
	FileWriteLine($file, _NowDate() & "  " &_NowTime() & " Timeout using WP : ABORTING !")
	FileWriteLine($file, " ")
	FileClose($file)
	;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
   Exit 0
Endif

;If we got to here assume everything worked.
$PCS_Act5_WP = PixelChecksum(700, 60, 704, 64)
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
$file = FileOpen($BotDir & "\Logs\Act1_Town.txt" , 1)
If $file = -1 Then
	MsgBox(0, "Error", "Unable to open file.")
	Exit
EndIf
FileWriteLine($file, _NowDate() & "  " &_NowTime() & " Act 5 WP entered. PCS = " & $PCS_Act5_WP)
FileClose($file)
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<


;A5 WP To Start
Sleep(1000)
MouseClick("left", 479, 189, 1, 1)
CheckMove($Char_CheckMoveDelay)
Sleep($Walk_Delay)
SetupActContext(5)
If FromBlockClickTo(100, 250, 350, 500, 393, -276, 2, 0) == 0 Then Return 0
CheckMove($Char_CheckMoveDelay)
Sleep($Walk_Delay)
If FromBlockClickTo(400, 400, 650, 570, -10, -210, 2, 0) == 0 Then Return 0
CheckMove($Char_CheckMoveDelay)
Sleep($Walk_Delay)
If FromBlockClickTo(300, 450, 550, 570, 147, -390, 2, -1) == 0 Then Return 0
CheckMove($Char_CheckMoveDelay)
Sleep($Walk_Delay)
$PCS_Start_Act5 = PixelChecksum(70, 70, 74, 74)
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
$file = FileOpen($BotDir & "\Logs\Act1_Town.txt" , 1)
If $file = -1 Then
	MsgBox(0, "Error", "Unable to open file.")
	Exit
EndIf
FileWriteLine($file, _NowDate() & "  " &_NowTime() & " Reached Start position Act 5.  PCS = " & $PCS_Start_Act5)
FileWriteLine($file, " ")		
FileClose($file)
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Exit