Autoit Forage 2

I had a personal request for my updated Auto Forager macro, so here it is..
This is much like my previous auto forager, please note that there are some major changes however,,
First, Instead of having to put Coordinates all through a macro I used Variables so coordinates only have to be put in at the top of the macro
making it easier to change, over and over,
Second,
I use a Forage pattern this time,
It essentially forages you Left (X) amount of times, moves up a tad, Forages Right (X) amount of times, moves up a tad,, Rinse Repeat
Thus instead of 1 forage line across a planet you can have, 2? 4? 8?
I have that as a variable also so you can choose how wide you want it to go,,
It still includes the auto delete of enzymes feature

Any questions, or requests, feel free to post or contact me directly

***UPDATE 11/9/07 ****
Changed Features> Does NOT X out of Examine Map window, Just move it to bottom left corner so its not visible,, it does NOT affect macro in any way, and allows us to speed it up by not doing that task.
-Also I moved around some of the delete/move features so that it is much more efficient,, allowing for more maps per Space/time
***********

Code:

Global $Paused HotKeySet("{PAUSE}", "TogglePause") HotKeySet("{ESC}", "Terminate") Opt("MouseClickDragDelay", 100) ;StarWarsGalaxies Forager Version 2 with Auto Delete ;Sleep("5000") Sleep("5000") ;Created a /forage macro and mapped it to N $i = 0 $var1 = "20"; How many times you want to forage Left/Right before going forward $var3 = "171" ;Imput X Coordinates for main space in inventory (where items shown up once foraged) $var4 = "442" ;Imput Y Coordinates for main space in inventory $var5 = "114" ;Imput X coordinates for backpack in inventory $var6 = "442" ;Imput Y Coordinates for backpack in inventory Do If WinActive( "Star Wars Galaxies", "" ) Then For $x = 1 to $var1 Send("{a down}") Sleep ("1300") Send("{a up}") ; Sleep("500") Send("{n down}") Send("{n up}") Sleep("100") MouseClick ( "right" , $var3, $var4, 1 ) Sleep("200") send("{2}") Sleep("200") MouseClickDrag ( "left" , $var3, $var4, $var5, $var6, 1) Sleep ("1200") Next send("{d down}") Send("{w down}") Sleep ("1200") Send("{w up}") Send("{d up}") Sleep ("50") For $x = 1 to $var1 Send("{d down}") Sleep ("1300") Send("{d up}") Sleep("500") Send("{n down}") Send("{n up}") Sleep("100") MouseClick ( "right" , $var3, $var4, 1 ) Sleep("200") send("{2}") Sleep("200") MouseClickDrag ( "left" , $var3, $var4, $var5, $var6, 1) Sleep ("1200") Next Send("{a down}") Send("{w down}") Sleep ("1200") Send("{w up}") Send("{a up}") Sleep ("50") EndIf Until $i = 1 Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script is "Paused"',0,0) WEnd ToolTip("") EndFunc Func Terminate() Exit 0 EndFunc

REFER to http://www.taultunleashed.com/phpbb2/post-306186.html#306186
For setup info and some Pictures, or if you want a copy of the original with auto delete
Last edited by collin8579 on 09 Nov 2007 21:57; edited 1 time in total