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 "Sithid:Macros/AutoIt/Jugs"

From ATITD7
Jump to navigationJump to search
Line 3: Line 3:
 
<pre>
 
<pre>
 
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
 
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=icon_clicker.exe
+
#AutoIt3Wrapper_Outfile=jugs.exe
#AutoIt3Wrapper_Outfile_x64=icon_clickerx64.exe
+
#AutoIt3Wrapper_Outfile_x64=jugs.exex64.exe
 
#AutoIt3Wrapper_Compile_Both=y
 
#AutoIt3Wrapper_Compile_Both=y
 
#AutoIt3Wrapper_UseX64=y
 
#AutoIt3Wrapper_UseX64=y
Line 10: Line 10:
 
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
 
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
 
Opt( "MustDeclareVars", 1 )
 
Opt( "MustDeclareVars", 1 )
 
Global $Paused = False
 
  
 
HotKeySet( "!{ESC}", "Terminate" )
 
HotKeySet( "!{ESC}", "Terminate" )
Line 19: Line 17:
 
WinWaitActive( "eGenesis Client" )
 
WinWaitActive( "eGenesis Client" )
  
 +
Global $Paused = False;
 
Global $StartLocation[2]
 
Global $StartLocation[2]
 
Global $StartLocationSet = False
 
Global $StartLocationSet = False
Global $SlateColor = 0x292929
+
Global $Delay = 70000
Global $Delay = 50
+
 
 
Main()
 
Main()
  
Line 37: Line 36:
 
EndIf
 
EndIf
  
If PixelGetColor( $StartLocation[0], $StartLocation[1] ) ==  $SlateColor Then
+
For $x = 0 To 2 Step 1
MouseClick( "Left", $StartLocation[0], $StartLocation[1], 1, 0 )
+
For $y = 0 to 3 Step 1
EndIf
+
MouseMove( $StartLocation[0] + ($x * 200 ), $StartLocation[1] + ( $y * 200 ) )
 +
Send( "j" );
 +
Next
 +
Next
  
Sleep( $Delay );
+
Sleep( $Delay )
 
Until 1 == 2
 
Until 1 == 2
 
EndFunc
 
EndFunc
  
 
Func SetStartLocation()
 
Func SetStartLocation()
If $Paused Then
 
Return
 
EndIf
 
 
 
$StartLocation = MouseGetPos()
 
$StartLocation = MouseGetPos()
$SlateColor = PixelGetColor( $StartLocation[0], $StartLocation[1] )
 
 
$StartLocationSet = True
 
$StartLocationSet = True
 
EndFunc
 
EndFunc

Revision as of 00:56, 20 September 2015

Double F8, zoom all the way in. Adjust x and y for rows( across ) and columns( down ). Start script and press F1 at the very center of the top left wheel.

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

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

WinWaitActive( "eGenesis Client" )

Global $Paused = False;
Global $StartLocation[2]
Global $StartLocationSet = False
Global $Delay = 70000

Main()

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

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

		For $x = 0 To 2 Step 1
			For $y = 0 to 3 Step 1
				MouseMove( $StartLocation[0] + ($x * 200 ), $StartLocation[1] + ( $y * 200 ) )
				Send( "j" );
			Next
		Next

		Sleep( $Delay )
	Until 1 == 2
EndFunc

Func SetStartLocation()
	$StartLocation = MouseGetPos()
	$StartLocationSet = True
EndFunc

Func TogglePause()
	$Paused = Not $Paused
EndFunc

Func Terminate()
	Exit
EndFunc