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.

User:Sithid/Macros/AutoIt/Jugs

From ATITD7
< User:Sithid‎ | Macros‎ | AutoIt
Revision as of 21:04, 20 September 2015 by Sithid (talk | contribs) (Created page with "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. <pre> #Region ;**** ...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigationJump to search

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