Voke Bot - Works With ACTool {Premium Please} : FFXI Submissions

Code: Select all

Global $x         =     0         ; X-coordinate for pixel
Global $y         =     0         ; Y-coordinate for pixel
Global $yellow    =     0    ; Normal, unclaimed color. Most important. (RGB Decimal value)
Global $red       =     0    ; Color when player has claimed. (RGB Decimal value)
Global $purple    =     0    ; Color when claimed by another. (RGB Decimal value)
Global $orange    =     0    ; Color when mob has been "called-for-help" on. (RGB Decimal value)
Global $provoke   =     "^8"        ; Provoke macro
Global $vokenum   =     20          ; Number of times to spam provoke macro
Global $up        =     "w"         ; The 'Up' or 'Forward' key
Global $wskill    =     "!4"        ; Weaponskill macro
Global $seconds   =     300         ; Number of seconds to spam weaponskill macro

WinWaitActive("FFXiApp")

While 1

   While 1

      FindTarget()

      Provoke()

      Engage()

      If CheckClaim() = 1 Then ExitLoop

   WEnd

   Approach()

   Screenshot()

   Wskill()

WEnd








Func FindTarget()
   AutoItSetOption("SendKeyDelay", 0)
   While 1
      Send("{TAB}")
      If PixelGetColor($x,$y) = $yellow Then ExitLoop
   WEnd
EndFunc


Func Provoke()
   Local $i = 0
   While $i <= $vokenum
      send($provoke)
   WEnd
EndFunc


Func Engage()
   AutoItSetOption("SendKeyDelay", 100)
   Sleep(1000)
   Send("/a <bt>{ENTER}")
EndFunc


Func CheckClaim()
   AutoItSetOption("SendKeyDelay", 60)
   While 1
      Send("{TAB}")
      Select
         Case PixelGetColor($x,$y) = $red
                Send("/dance{ENTER}/echo **** Target acquired at>>{ENTER}/clock{ENTER}/echo **** Terminating. . .{ENTER}")
                return (1)
         Case PixelGetColor($x,$y) = $purple
                Send("/angry motion{ENTER}/echo **** Target lost at>>{ENTER}/clock{ENTER}/echo **** Reseting. . .{ENTER}")
            return (0)
         Case PixelGetColor($x,$y) = $orange
                Send("/angry motion{ENTER}/echo **** Target called-for-help'd at>>{ENTER}/clock{ENTER}/echo **** Attempting to reclaim. . .{ENTER}")
            return (0)
         Case Else
                Send("/echo **** Error. Target Lost at>>{ENTER}/clock{ENTER}/echo **** Reseting. . .{ENTER}")
            return (0)
      EndSelect
   WEnd
EndFunc


Func Approach()
   Sleep(1000)
   Send("{" & $up & " down}")
   Sleep(5000)
   Send("{" & $up & " up}")
   Sleep(1000)
EndFunc


Func Screenshot()
   Send("]")
   Sleep(1000)
   Send("[")
   Sleep(4000)
   Send("]")
EndFunc


Func Wskill()
   Local $i = 0
   While $i <= $seconds
      Send($wskill)
      Sleep(1000)
      $i = $i + 1
   WEnd
EndFunc