Sithid:Macros:AutoIT

Brick Racks

Start the macro, switch to ATITD and get your camera setup for double F8 and then zoom in as far as you can and still see all your racks. Hover the mouse in the very middle of the top left most rack and hit F1.

You may have to do your own edits to the distance between racks based on your resolution etc.

Opt( "MustDeclareVars", 1 )

Global $Paused = False

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

WinWaitActive( "eGenesis Client" )

Global $StartLocation[2]
Global $ShopsVer = 4
Global $ShopsHor = 5
Global $Delay = 30000
Global $BrickType = "b"
Global $StartLocationSet = False
Main()

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

	Do

		For $x = 0 To $ShopsHor - 1 Step 1
			For $y = 0 To $ShopsVer - 1 Step 1
				Local $xloc = 100 * $x
				Local $yloc = 100 * $y

				MouseMove( $StartLocation[0] + $xloc, $StartLocation[1] + $yloc, 1 )
				Send( "t" );
				Send( $BrickType );
			Next
		Next

		Sleep( $Delay );

	Until $Paused
EndFunc

Func SetStartLocation()
	If $Paused Then
		Return
	EndIf

	$StartLocation = MouseGetPos()
	$StartLocationSet = True
EndFunc

Func TogglePause()
	$Paused = Not $Paused
EndFunc

Func Terminate()
		Exit
EndFunc