The_Settlers_7.ahk

#SingleInstance force
#Persistent  ; Keep this script running until the user explicitly exits it.
;#Warn  ; Enable warnings to assist with detecting common errors.
Layer := 1
Logistique := 0
SetCapsLockState, AlwaysOff
SetScrollLockState, AlwaysOff
Process, Priority, , A
SetTitleMatchMode, 2
;#InstallKeybdHook
;#InstallMouseHook


{ ; Monitoring Windows
	BlockInput, On
	KeyHistory
	WinGetActiveTitle, Title
	WinWait, %Title%
	SetKeyDelay 0, 32
	Send {Lwin down}{Right}{Right}{Right}{Right}{Lwin up}{LControl down}{k}{LControl Up}
	
	#IfWinExist Event Tester
		WinClose Event Tester
	
	Run, C:\Program Files (x86)\Thrustmaster\TARGET\Tools\EventTester.exe
	WinWait, Event Tester
	SetKeyDelay 0, 32
	Send {Lwin down}{Right}{Right}{Lwin up}{esc}{esc}{esc}{esc}
	MouseClick, left, 36, 40
	MouseClick, left, 104, 62
	BlockInput, Off	
	return
	#IfWinExist
}

{ ; AutoHotKey Script option.
	#F1::Suspend, Toggle
	#F4::ExitApp
	;^SPACE::  Winset, Alwaysontop, , A ; Toggle Active Windows Always on Top.	
	^!f:: ; FullScreen Window. Control+Alt+F
	{
		WinGetTitle, currentWindow, A
		IfWinExist %currentWindow%
		{
			WinSet, Style, ^0xC00000 ; toggle title bar
			WinMove, , , 0, 0, 1920, 1080
		}
		return
	}
	F19:: ; Run, C:\Windows\System32\mmsys.cpl ; Run, C:\Users\vieil\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Equalizer APO 1.2.1\Configuration Editor
	{
		KeyWait F19, t0.100
		t:= A_TimeSinceThisHotkey
		If ErrorLevel
		{
			Run, C:\Windows\System32\mmsys.cpl
			KeyWait, F19
		}
		Else
		{
			Run, C:\Users\vieil\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Equalizer APO 1.2.1\Configuration Editor
			KeyWait, F19
		}
		Return
	}
} ; AutoHotKey Script option.

/* ; Get exit cross color
	#z::	
	PixelGetColor, color, 1889, 95
	MsgBox The color at X1889 Y95 is %color%.
	Clipboard = %color%
	return
*/

{ ;Testing	
	/*; Pixel color as as condition
		{ ; Pixel color as as condition
			!#z::	
			PixelGetColor, color, 1889, 95
			MsgBox The color at X1889 Y95 is %color%.
			Clipboard = %color%
			return
			
			{ ; Numpad1
				Numpad9::
				PixelGetColor, color, 1889, 95
				if color = 0x213A70
					
				{
					MouseGetPos, xpos, ypos 
					BlockInput, On
					MouseClick, left, 1732, 171
					MouseMove, xpos, ypos 
					BlockInput, Off
					return
				}
				Else
				{
					MouseGetPos, xpos, ypos 
					BlockInput, On
					SetKeyDelay 32, 32
					Send {NumpadEnter}
					MouseClick, left, 1732, 171
					MouseMove, xpos, ypos 
					BlockInput, Off
				}
				Return
			}
		}
	*/
}

{ ; Layer modifier. Press and hold to get into Layer 2, double press and hold to get into Layer 3. Release to come back to Layer 1.
	CapsLock:: ;Key disabled by "SetCapsLockState, AlwaysOff".
	Layer := 2
	if (A_ThisHotkey = A_PriorHotkey && A_TimeSincePriorHotkey < 200)
		Layer := 3
	KeyWait, CapsLock
	Layer := 1
	Return	
}

XButton2::
{
	If (Layer=1) and WinActive(Settlers 7 Window)
	{
		KeyWait XButton2, t0.200
		t:= A_TimeSinceThisHotkey
		If ErrorLevel
		{ ; Routes commerciales
			If GetKeyState("MButton", "P")=1
			{
				SetKeyDelay 10, 32
				Send {MButton Up}{LControl Down}{SC006}{LControl Up}
				KeyWait XButton2
				Return
			}
			Else
			{
				Send, ^(
				KeyWait XButton2
				Return
			}
		}
		Else
		{ ; Logistique
			If GetKeyState("MButton", "P")=1
			{
				SetKeyDelay 10, 32
				Send {MButton Up}{LControl Down}{SC005}{LControl Up}
				Logistique := 1
				KeyWait XButton2
				Return
			}
			Else
			{
				Send, ^'
				Logistique := 1
				KeyWait XButton2
				Return
			}
		}
		Return
	}
	Else If (Layer=1) and WinActive("Discord")
	{ ; Naviguer entre les salons non lus vers le haut
		KeyWait XButton2, t0.200
		t:= A_TimeSinceThisHotkey
		If ErrorLevel
		{
			SetKeyDelay 10, 32
			Send, {LShift Down}{LAlt Down}{Up}{LShift Up}{LAlt Up}
			KeyWait, XButton2
		}
		Return
	}
	Else
	{
		Send {XButton2 Down}
		KeyWait XButton2
		Send {XButton2 Up}
	}
	Return
}

XButton1::
{
	If (Layer=1) and WinActive(Settlers 7 Window)
	{
		KeyWait XButton1, t0.200
		t:= A_TimeSinceThisHotkey
		If ErrorLevel
		{ ; Technologie
			If GetKeyState("MButton", "P")=1
			{
				SetKeyDelay 10, 32
				Send {MButton Up}{LControl Down}{SC008}{LControl Up}
				KeyWait XButton1
				Return
			}
			Else
			{
				Send, ^è
				KeyWait XButton1
				Return
			}
		}
		Else
		{ ; Economie
			If GetKeyState("MButton", "P")=1
			{
				SetKeyDelay 10, 32
				Send {MButton Up}{LControl Down}{SC004}{LControl Up}
				KeyWait XButton1
				Return
			}
			Else
			{
				Send, ^"
				KeyWait XButton1
				Return
			}
		}
		Return
	}
	Else If (Layer=1) and WinActive("Discord")
	{ ; Naviguer entre les salons non lus vers le bas
		KeyWait XButton1, t0.200
		t:= A_TimeSinceThisHotkey
		If ErrorLevel
		{
			SetKeyDelay 10, 32
			Send, {LShift Down}{LAlt Down}{Down}{LShift Up}{LAlt Up}
			KeyWait, XButton1
		}
		Return
	}
	Else
	{
		Send {XButton1 Down}
		KeyWait XButton1
		Send {XButton1 Up}
	}
	Return
}

~RButton::
{
	If Logistique = 1
	{
		Send {Escape}
		Logistique := 0
	}
	Else if Logistique = 0
	{
		Return
	}
	Return
}

WheelUp::
{
	If (Layer=1) and WinActive("Discord") and GetKeyState("MButton")
	{
		SetkeyDelay, 0, 32
		Send {Home}
		Return
	}
	Else if (Layer=2)
	{
		SetkeyDelay, 0, 32
		Send {PgDn}
		Return
	}
	Else
	{
		Send {WheelUp}
		Return
	}
	Return
}

WheelDown::
{
	If (Layer=1) and WinActive("Discord") and GetKeyState("MButton")
	{
		SetkeyDelay, 0, 32
		Send {End}
		Return
	}
	Else if (Layer=2)
	{
		SetkeyDelay, 0, 32
		Send {PGUP}
		Return
	}
	Else
	{
		Send {WheelDown}
		Return
	}
	Return
}

$SC029::
{
	If (Layer=2)
	{
		Send {esc Down}
		KeyWait, SC029
		Send {esc Up}
	}
	Else
	{
		Send {p Down}
		KeyWait, SC029
		Send {p Up}
	}
	Return
}

$q::
{
	If (Layer=1) and WinActive(Settlers 7 Window)
	{ ; Sélectionner le Général 1
		Send {& Down}
		KeyWait, q
		Send {& Up}
	}
	Else if (Layer=2) and WinActive(Settlers 7 Window)
	{ ; Sélectionner le Général 1
		Send {& Down}
		KeyWait, q
		Send {& Up}
	}
	Else
	{
		Send {q Down}
		KeyWait, q
		Send {q Up}
	}
	Return
}

$e::
{
	If (Layer=1) and WinActive(Settlers 7 Window)
	{ ; Sélectionner le Général 3
		Send {SC004 Down}
		KeyWait, e
		Send {SC004 Up}
	}
	Else if (Layer=2) and WinActive(Settlers 7 Window)
	{ ; Sélectionner le Général 3
		Send {SC004 Down}
		KeyWait, e
		Send {SC004 Up}
	}
	Else
	{
		Send {e Down}
		KeyWait, e
		Send {e Up}
	}
	Return
}

$w::
{
	If (Layer=2) and WinActive(Settlers 7 Window)
	{ ; Sélectionner le Général 2
		Send {é Down}
		KeyWait, w
		Send {é Up}
	}
	Else
	{
		Send {w Down}
		KeyWait, w
		Send {w Up}
	}
	Return
}

$Tab::
{
	If (Layer=1) and WinActive(Settlers 7 Window)
	{ ; Points de victoire
		Send ^é
		KeyWait, Tab
	}
	Else if (Layer=2)
	{ ; Escape
		Send {esc Down}
		KeyWait, Tab
		Send {esc Up}
	}
	Else
	{
		Send {Tab Down}
		KeyWait, Tab
		Send {Tab Up}
	}
	Return
}

$z::
{
	If (Layer=1) and WinActive(Settlers 7 Window)
	{
		KeyWait z, t0.100
		t:= A_TimeSinceThisHotkey
		If ErrorLevel
		{
			If GetKeyState("LButton", "P")=1
			{
				SetKeyDelay 10, 32
				Send {LButton Up}{z}
				If GetKeyState("LButton", "P")=1
				{
					Send {LButton Down}
				}
				KeyWait z
				Return
			}
			Else
			{
				Send z
				KeyWait z
				Return
			}
		}
		Else
		{
			If GetKeyState("LButton", "P")=1
			{
				SetKeyDelay 10, 32
				Send {LButton Up}{b}
				If GetKeyState("LButton", "P")=1
				{
					Send {LButton Down}
				}
				KeyWait z
				Return
			}
			Else
			{
				Send b
				KeyWait z
				Return
			}	
		}
		Return
	}
	Else
	{
		Send {z Down}
		KeyWait, z
		Send {z Up}
		Return
	}
	Return
}

$x::
{
	If (Layer=1) and WinActive(Settlers 7 Window)
	{
		KeyWait x, t0.100
		t:= A_TimeSinceThisHotkey
		If ErrorLevel ; Pavillong
		{
			If GetKeyState("LButton", "P")=1
			{
				SetKeyDelay 10, 32
				Send {LButton Up}{n}
				If GetKeyState("LButton", "P")=1
				{
					Send {LButton Down}
				}
				KeyWait x
				Return
			}
			Else ; Noble Demeure
			{
				Send n
				KeyWait x
				Return
			}
		}
		Else
		{
			If GetKeyState("LButton", "P")=1
			{
				SetKeyDelay 10, 32
				Send {LButton Up}{x}
				If GetKeyState("LButton", "P")=1
				{
					Send {LButton Down}
				}
				KeyWait z
				Return
			}
			Else
			{
				Send x
				KeyWait z
				Return
			}	
		}
		Return
	}
	Else
	{
		Send {x Down}
		KeyWait, x
		Send {x Up}
		Return
	}
	Return
}

$c::
{
	If (Layer=1) and WinActive(Settlers 7 Window)
	{ ; Entrepôt
		If GetKeyState("LButton", "P")=1
		{
			SetKeyDelay 10, 32
			Send {LButton Up}{c}
			If GetKeyState("LButton", "P")=1
			{
				Send {LButton Down}
			}
			KeyWait c
			Return
		}
		Else
		{
			Send c
			KeyWait c
			Return
		}
	}
	Else if (Layer=2) and WinActive(Settlers 7 Window)
	{ ; Nourriture
		PixelGetColor, color, 1889, 95
		If color = 0x20396f ;0x20396F 
		{
			MouseGetPos, xpos, ypos 
			BlockInput, On
			Send, {PGUP Down}
			MouseClick, left, 1732, 208
			MouseMove, xpos, ypos 
			Send, {PGUP Up}
			BlockInput, Off
			KeyWait, c
		}
		Else
		{
			MouseGetPos, xpos, ypos 
			BlockInput, On
			Send, {PGUP Down}
			SetKeyDelay 32, 32
			Send {NumpadEnter}
			MouseClick, left, 1732, 208
			MouseMove, xpos, ypos 
			Send, {PGUP Up}
			BlockInput, Off
			KeyWait, c
		}
		Return
	}
	Else
	{
		Send {c Down}
		KeyWait, c
		Send {c Up}
		Return
	}
	Return
}

$v::
{
	If (Layer=1) and WinActive(Settlers 7 Window)
	{ ; Ferme
		If GetKeyState("LButton", "P")=1
		{
			SetKeyDelay 10, 32
			Send {LButton Up}{v}
			If GetKeyState("LButton", "P")=1
			{
				Send {LButton Down}
			}
			KeyWait v
			Return
		}
		Else
		{
			Send v
			KeyWait v
			Return
		}
	}	
	Else If (Layer=2) and WinActive(Settlers 7 Window)
	{ ; Géologue
		PixelGetColor, color, 1889, 95
		if color = 0x20396f ;0x20396F 
		{
			MouseGetPos, xpos, ypos 
			BlockInput, On
			Send, {PGUP Down}
			MouseClick, left, 1732, 242
			MouseMove, xpos, ypos 
			Send, {PGUP Up}
			BlockInput, Off
			KeyWait, v
		}
		Else
		{
			MouseGetPos, xpos, ypos 
			BlockInput, On
			Send, {PGUP Down}
			SetKeyDelay 32, 32
			Send {NumpadEnter}
			MouseClick, left, 1732, 242
			MouseMove, xpos, ypos 
			Send, {PGUP Up}
			BlockInput, Off
			KeyWait, v
		}
		Return
	}
	Else
	{
		Send {v Down}
		KeyWait, v
		Send {v Up}
		Return
	}
	Return
}

$f::
{
	If (Layer=1) and WinActive(Settlers 7 Window)
	{
		KeyWait f, t0.100
		t:= A_TimeSinceThisHotkey
		If ErrorLevel 
		{ ; Eglise
			If GetKeyState("LButton", "P")=1
			{
				SetKeyDelay 10, 32
				Send {LButton Up}{g}
				If GetKeyState("LButton", "P")=1
				{
					Send {LButton Down}
				}
				KeyWait f
				Return
			}
			Else
			{
				Send g
				KeyWait f
				Return
			}
		}
		Else
		{ ; Caserne
			If GetKeyState("LButton", "P")=1
			{
				SetKeyDelay 10, 32
				Send {LButton Up}{f}
				If GetKeyState("LButton", "P")=1
				{
					Send {LButton Down}
				}
				KeyWait f
				Return
			}
			Else
			{
				Send f
				KeyWait f
				Return
			}
		}
		Return
	}
	If (Layer=2) and WinActive(Settlers 7 Window)
	{ ; Guilde des commerçants
		If GetKeyState("LButton", "P")=1
		{
			SetKeyDelay 10, 32
			Send {LButton Up}{h}
			If GetKeyState("LButton", "P")=1
			{
				Send {LButton Down}
			}
			KeyWait f
			Return
		}
		Else
		{
			Send h
			KeyWait f
			Return
		}
	}
	Else
	{
		Send {f Down}
		KeyWait, f
		Send {f Up}
		Return
	}
}

$r::
{
	If (Layer=1) and WinActive(Settlers 7 Window)
	{
		KeyWait r, t0.100
		t:= A_TimeSinceThisHotkey
		If ErrorLevel
		{ ; Baraque de chantier
			If GetKeyState("LButton", "P")=1
			{
				SetKeyDelay 10, 32
				Send {LButton Up}{t}
				If GetKeyState("LButton", "P")=1
				{
					Send {LButton Down}
				}
				KeyWait r
				Return
			}
			Else
			{
				Send t
				KeyWait r
				Return
			}
		}
		Else
		{ ; Demeure
			If GetKeyState("LButton", "P")=1
			{
				SetKeyDelay 10, 32
				Send {LButton Up}{y}
				If GetKeyState("LButton", "P")=1
				{
					Send {LButton Down}
				}
				KeyWait r
				Return
			}
			Else
			{
				Send y
				KeyWait r
				Return
			}
		}
		Return
	}
	Else
	{
		Send {r Down}
		KeyWait, r
		Send {r Up}
		Return
	}
}

#IfWinActive Settlers 7 Window
	
LAlt:: ; Art de la guerre
{
	PixelGetColor, color, 1889, 95
	if color = 0x20396f ;0x20396F 
	{
		MouseGetPos, xpos, ypos 
		BlockInput, On
		Send, {PGUP Down}
		MouseClick, left, 1732, 135
		MouseMove, xpos, ypos 
		Send, {PGUP Up}
		BlockInput, Off
		KeyWait LAlt
	}
	else
	{
		MouseGetPos, xpos, ypos 
		BlockInput, On
		SetKeyDelay 32, 32
		Send, {PGUP Down}
		MouseClick, left, 1732, 135
		MouseMove, xpos, ypos 
		Send, {PGUP Up}
		BlockInput, Off
		KeyWait LAlt
	}
	Return
}

F13:: ; Lieux de travail
{
	PixelGetColor, color, 1889, 95
	if color = 0x20396f ;0x20396F
	{
		MouseGetPos, xpos, ypos 
		BlockInput, On
		Send, {PGUP Down}
		MouseClick, left, 1732, 171
		MouseMove, xpos, ypos 
		Send, {PGUP Up}
		BlockInput, Off
		KeyWait F13
	}
	Else
	{
		MouseGetPos, xpos, ypos 
		BlockInput, On
		Send, {PGUP Down}
		SetKeyDelay 32, 32
		Send {NumpadEnter}
		MouseClick, left, 1732, 171
		MouseMove, xpos, ypos
		Send, {PGUP Up}
		BlockInput, Off
		KeyWait F13
	}
	Return
}

F14:: ; Construction
{	
	PixelGetColor, color, 1889, 95
	if color = 0x20396f ;0x20396F 
	{
		MouseGetPos, xpos, ypos 
		BlockInput, On
		Send, {PGUP Down}
		MouseClick, left, 1732, 279
		MouseMove, xpos, ypos 
		Send, {PGUP Up}
		BlockInput, Off
		KeyWait F14
	}
	Else
	{
		MouseGetPos, xpos, ypos 
		BlockInput, On
		Send, {PGUP Down}
		SetKeyDelay 32, 32
		Send {NumpadEnter}
		MouseClick, left, 1732, 279
		MouseMove, xpos, ypos 
		Send, {PGUP Up}
		BlockInput, Off
		KeyWait F14
	}
	Return
}

F15:: ; Géologue
{
	PixelGetColor, color, 1889, 95
	if color = 0x20396f ;0x20396F 
	{
		MouseGetPos, xpos, ypos 
		BlockInput, On
		Send, {PGUP Down}
		MouseClick, left, 1732, 242
		MouseMove, xpos, ypos 
		Send, {PGUP Up}
		BlockInput, Off
		KeyWait, F15
	}
	else
	{
		MouseGetPos, xpos, ypos 
		BlockInput, On
		Send, {PGUP Down}
		SetKeyDelay 32, 32
		Send {NumpadEnter}
		MouseClick, left, 1732, 242
		MouseMove, xpos, ypos 
		Send, {PGUP Up}
		BlockInput, Off
		KeyWait, F15
	}
	Return
}

#IfWinActive