Pre-Sear Macro : GW Submissions

#cs ----------------------------------------------------------------------------
   
   AutoIt Version: 3.2.2.0
   Author:  DLM_Bittersweet
   
   Script Function:   Pre-Sear basic Farming bot with Magic item detection

   Build: W/Mo
Slot 1= Sever Artery
Slot 2= Gash
Slot 3 = Healing Signet
Slots 5-7 = UNUSED
Slot 8 = Retribution
#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
#include <Array>

$health = 0
$Adren = 0
$coord = 0
$coord2 = 0
$apix1 = 0
$apix2 = 0
$a = 0
WinActivate( "Guild Wars")
Func Target()
   send("c")
   send( "{SPACE}" )
EndFunc

Func IsComboCharged()
   $apix1 = PixelGetColor( 441, 912 )
   $apix2 = PixelGetColor( 505, 917 )
   If Not ($apix1 = 16403207) & ($apix2 = 14898717) Then
      $Adren = 0
   Else
      $Adren = 1
   EndIf
EndFunc


Func Magic()
   $coord = PixelSearch(4,4,1270,985, 0x99EDFE, 2, 1)
   If Not @error Then
      MouseMove($coord[0],$coord[1],0)
      Sleep (500)
      MouseClick("left",$coord[0],$coord[1])
      Sleep (2000)
   EndIf
   $coord2 = PixelSearch(4,4,1270,985, 0xBA88ED, 2, 1)
   If Not @error Then
      MouseMove($coord2[0],$coord2[1],0)
      Sleep (500)
      MouseClick("left",$coord2[0],$coord2[1])
      Sleep (2000)
   EndIf
EndFunc

Func Combo()
   Call("IsComboCharged")
   If ($Adren = 1) Then
      send("1")
      Sleep(Random(1100, 1300))
      Send("2")
   ElseIf ($Adren = 0) Then
      Sleep(500)
   EndIf
EndFunc


Func Heal()
   $health = PixelGetColor( 561, 886 )
   If Not ($health = 11798279) Then
      Send("3")
   EndIf
EndFunc

Func All()
   Send("8")
   Sleep(Random(2100,2900))
   Do
      Call("Magic")
      Call("Heal")
      Call("target")
      Sleep(Random(3000,4000))
      Call("Combo")
      Call("Magic")
      Call("Heal")
      $a = $a + 1
   Until $a = 150
EndFunc

Call("All")