User:Sithid/Macros/AutoIt/Slate

Start the macro, hover over the slate icon and press F1. Works for grass and clay aswell.

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=icon_clicker.exe
#AutoIt3Wrapper_Outfile_x64=icon_clickerx64.exe
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_UseX64=y
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Opt( "MustDeclareVars", 1 )

Global $Paused = False

HotKeySet( "!{ESC}", "Terminate" )
HotKeySet( "{PAUSE}", "TogglePause" )
HotKeySet( "{F1}", "SetStartLocation" )

WinWaitActive( "eGenesis Client" )

Global $StartLocation[2]
Global $StartLocationSet = False
Global $SlateColor = 0x292929
Global $Delay = 50
Main()

Func Main()
	Do
		Sleep( 100 )
	Until $StartLocationSet

	Do
		If $Paused Then
			Do
				Sleep( 100 )
			Until Not $Paused
		EndIf

		If PixelGetColor( $StartLocation[0], $StartLocation[1] ) ==  $SlateColor Then
			MouseClick( "Left", $StartLocation[0], $StartLocation[1], 1, 0 )
		EndIf

		Sleep( $Delay );
	Until 1 == 2
EndFunc

Func SetStartLocation()
	If $Paused Then
		Return
	EndIf

	$StartLocation = MouseGetPos()
	$SlateColor = PixelGetColor( $StartLocation[0], $StartLocation[1] )
	$StartLocationSet = True
EndFunc

Func TogglePause()
	$Paused = Not $Paused
EndFunc

Func Terminate()
	Exit
EndFunc