The Wiki for Tale 6 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"
From ATITD6
Jump to navigationJump to search| Line 1: | Line 1: | ||
==Brick Racks== | ==Brick Racks== | ||
| + | <pre> | ||
| + | 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 | ||
| + | </pre> | ||
Revision as of 20:57, 26 January 2012
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
