The Wiki for Tale 7 is in read-only mode and is available for archival and reference purposes only. Please visit the current Tale 11 Wiki in the meantime.
If you have any issues with this Wiki, please post in #wiki-editing on Discord or contact Brad in-game.
Difference between revisions of "User:Sithid/Macros/AutoIt/Slate"
From ATITD7
< User:Sithid | Macros | AutoIt
Jump to navigationJump to search (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...") |
(No difference)
|
Latest revision as of 21:45, 20 September 2015
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
