afk Crafting [ENG]

[Lowfyr]

;This code needs to be run with the AUTOIT V3 'run script' program 

; 
; User needs to update these values accordingly 
; 
$eq = "EverQuest II (Nov 22 2004 16:37:19) USER OPTIMIZED: SOEBuild=1526T" 
$mX = 1038&#59; Mouse X coordinate for the Begin/Repeat button 
$mY = 626&#59; Mouse Y coordinate for the Begin/Repeat button 
$stacks = 100&#59; Number of complete products you have the ingredients for 

$mX2 = 470&#59; This is the location of the "Item" window BLACK BACKGROUND on item creation. 
$mY2 = 215 
$mX3 = 563&#59; This is the location of the 'x' to close Item window 
$mY3 = 140 
; 
; Make EQ2 Window Active 
; 
WinActivate($eq) 

; 
; Loop x times based on number of stacks of ingredients 
; 
For $count = 1 to $stacks 
MouseClick("left", $mX3, $mY3) 
Sleep(500 + Random (100)) 
MouseClick("left", $mX, $mY)&#59; Click begin 
Sleep(500 + Random(100)) 
For $count2 = 1 to 25 
Send("1") 
Sleep(300 + Random(50)) 
Send("2") 
Sleep(300 + Random(50)) 
Send("3")&#59; Edit these for the ammount of skills you use! 
Sleep(300 + Random(50)) 
Send("4") 
Sleep(300 + Random(50)) 
If (Call("crafted") = 1) Then ExitLoop 1 
Sleep(260 + Random(100)) 
Next 
MouseClick("left", $mX, $mY)&#59; Click repeat 
Sleep(500 + Random(25)) 
Next 
MsgBox(0, "Done!", "Time to make the doughnuts....") 

; 
; Let's try and be smarter about this and see if we finished the product 
; and let's add some flare by doing some random acts every now and then 
; 
Func crafted() 
$done = 0 
$color1 = PixelGetColor($mX2, $mY2) 
If ($color1 = 0) Then $done = 1 
Return $done 
EndFunc