Sithid: Created page with "Start the macro, hover over the slate icon and press F1. Works for grass and clay aswell.

 #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Outf..."

2015-09-20T21:45:50Z

Created page with "Start the macro, hover over the slate icon and press F1. Works for grass and clay aswell. <pre> #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Outf..."

New page

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

<pre>
#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
</pre>

User:Sithid/Macros/AutoIt/Slate - Revision history

Sithid: Created page with "Start the macro, hover over the slate icon and press F1. Works for grass and clay aswell.
#Region ; Directives created by AutoIt3Wrapper_GUI #AutoIt3Wrapper_Outf..."