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 "User:Nanolbaid"

From ATITD7
Jump to navigationJump to search
(Created page with "Just testing out")
 
Line 1: Line 1:
Just testing out
+
Autoit Gatherer
 +
 
 +
HotKeySet("!a", SetLoc)
 +
HotKeySet("!r", ToggleReady)
 +
 
 +
SetUp()
 +
 
 +
Func SetVars()
 +
Global $bRunning = False
 +
Global $aPos
 +
Global $cPos
 +
EndFunc
 +
 
 +
Func SetUp()
 +
SetVars()
 +
While $bRunning = False
 +
 
 +
WEnd
 +
Gather()
 +
EndFunc
 +
 
 +
Func Gather()
 +
While $bRunning = True
 +
If PixelGetColor($aPos[0], $aPos[1]) = $cPos Then
 +
Local $aTemp = MouseGetPos()
 +
MouseClick("left", $aPos[0], $aPos[1], 1, 0)
 +
MouseMove($aTemp[0], $aTemp[1], 0)
 +
Sleep(100)
 +
EndIf
 +
WEnd
 +
EndFunc
 +
 
 +
Func SetLoc()
 +
$aPos = MouseGetPos()
 +
$cPos = PixelGetColor($aPos[0], $aPos[1])
 +
EndFunc
 +
 
 +
Func ToggleReady()
 +
$bRunning = Not $bRunning
 +
EndFunc

Revision as of 23:24, 14 January 2016

Autoit Gatherer

HotKeySet("!a", SetLoc) HotKeySet("!r", ToggleReady)

SetUp()

Func SetVars() Global $bRunning = False Global $aPos Global $cPos EndFunc

Func SetUp() SetVars() While $bRunning = False

WEnd Gather() EndFunc

Func Gather() While $bRunning = True If PixelGetColor($aPos[0], $aPos[1]) = $cPos Then Local $aTemp = MouseGetPos() MouseClick("left", $aPos[0], $aPos[1], 1, 0) MouseMove($aTemp[0], $aTemp[1], 0) Sleep(100) EndIf WEnd EndFunc

Func SetLoc() $aPos = MouseGetPos() $cPos = PixelGetColor($aPos[0], $aPos[1]) EndFunc

Func ToggleReady() $bRunning = Not $bRunning EndFunc