SWG Macros - Updated AutoIt Forage Macro, with Combat : Star Wars Galaxies Bots | Hacks

/ui action toolbarSlot00;
/pause 1;
/ui action toolbarSlot01;
/pause 1;
/ui action toolbarSlot02;
/pause 1;

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
Opt("MouseClickDragDelay", 100)
#Include <Misc>

;StarWarsGalaxies Forager Version 2 with Auto Delete
Sleep("5000")
;Created a /forage macro and mapped it to N
$i = 0
$var1 = "5"; How many times you want to forage Left/Right before going forward

SplashTextOn ( "Setup", "Leftclick on the Main Spot (where foraged item will be)", 400, 100, -1, -1, 1, "Ariel", 14 )
   While 1
      Sleep ( 100 )
      If _IsPressed ( "01" ) Then
         $pos = MouseGetPos()
      ExitLoop
      EndIf
   WEnd

   SplashOff()
   $var3 = $pos[0]
   $var4 = $pos[1]
   Sleep (1000)

SplashTextOn ( "Setup", "Leftclick on the Backpack", 400, 100, -1, -1, 1, "Ariel", 14 )
   While 1
      Sleep ( 100 )
      If _IsPressed ( "01" ) Then
         $pos = MouseGetPos()
      ExitLoop
      EndIf
   WEnd

   SplashOff()
   $var5 = $pos[0]
   $var6 = $pos[1]
   Sleep (1000)

   ;Sets our coords for PixelChecksum to use as a template - also sets us up to check it in the future
   $portraitx = 600
   $portraity = 694
 
   $CombatCheck = PixelGetColor(($portraitx), ($portraity))

   ;Start our loop
   Do

      For $x = 1 to $var1
      CheckCombatState()
         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
      CheckCombatState()
       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")

Until $i = 1

;Pause Script
Func CheckCombatState()
   If PixelGetColor(($portraitx), ($portraity)) = $CombatCheck Then
   return
   Else
   Do
   ;Combat Routine
      send("{TAB}") ;Change this to your hotkey to cycle target outward
      send("~") ;Change this to your hotkey to Autoattack
      send(",") ;Change this to your Kill macro
      Sleep ("1000") ;Change this accordingly to make sure your abilities cycle
   Until PixelGetColor(($portraitx), ($portraity)) = $CombatCheck
    EndIf
    return
EndFunc

;Pause Script
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script Paused',0,0)
WEnd
ToolTip("")
EndFunc

;Terminate Script
Func Terminate()
Exit 0
EndFunc