Code:
;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; Mouse X coordinate for the Begin/Repeat button $mY = 626; Mouse Y coordinate for the Begin/Repeat button $stacks = 100; Number of complete products you have the ingredients for $mX2 = 470; This is the location of the "Item" window BLACK BACKGROUND on item creation. $mY2 = 215 $mX3 = 563; 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); 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"); 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); 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