SWG Macros - Auto Forager V6 (Pattern) with Auto Delete : Star Wars Galaxies Bots | Hacks

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