Sithid:Macros:AutoIT

Brick Racks

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