Goofin with healer script : EverQuest 2 Premium Discussions

Code: Register to unlock hidden link

WinActivate ("EverQuest II")

AutoItSetOption ( "MouseCoordMode", 0 )
AutoItSetOption ( "PixelCoordMode", 0 )
AutoItSetOption ( "SendKeyDelay", 1 )

Dim $player_health
Dim $player_position[1] [6]
Dim $healtype
Dim $loopcount
Dim $groupsize=2

;Set player health pixel location in the array
$player_position[0] [0]=26
$player_position[0] [1]=166
$player_position[0] [2]=306
$player_position[0] [3]=446
$player_position[0] [4]=586
$player_position[0] [5]=726

$loopcount=0

Do
CheckHealth()
sleep(1000)
until $loopcount=1


Func CheckHealth()

for $tempvar = 0 to $groupsize-1
$tempvar2=$player_position[0] [$tempvar]
$i = PixelGetColor ($tempvar2, 47)

if $i = 14212096 then ;Health Is Yellow
	$healtype=1
elseif $i = 14183936 then ;Health Is Orange
	$healtype=2
elseif $i = 14155776 then ;Health Is RED
	$healtype=1
else
	$healtype=0
endif

if $healtype=1 then
	send("1")
	sleep(3000)
elseif $healtype=2 then
	send("2")
	sleep(5000)
endif
next

EndFunc