Guest User

Untitled

a guest
Oct 15th, 2017
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 0.52 KB | None | 0 0
  1. Update("Fighting " & $s & "!")
  2.  
  3.     Dim $target[1] = [0]
  4.     Dim $castingEnemies[1] = [0]
  5.     Dim $hexedEnemy = 0
  6.  
  7.     $cbType = "int"
  8.     $currentEnemyID = CmdCB($CA_GetNextAliveFoe, 0)
  9.     Sleep(50)
  10.  
  11.     Do
  12.  
  13.         $cbType = "float"
  14.         CmdCB($CA_GETMYDISTANCETOAGENT, $currentEnemyID[0])
  15.         Sleep(50)
  16.  
  17.         If $cbVar[0] < 1500 Then
  18.             $target[0] += 1
  19.             ReDim $target[$target[0] + 1]
  20.  
  21.             $target[$target[0]] = $currentEnemyID[0]
  22.         EndIf
  23.  
  24.         $cbType = "int"
  25.         $currentEnemyID = CmdCB($CA_GETNEXTALIVEFOE, $currentEnemyID[0])
  26.         Sleep(50)
  27.  
  28.     Until Not $currentEnemyID[0]
Add Comment
Please, Sign In to add comment