Goofin with healer script : EverQuest 2 Premium Discussions

Posted: December 5th, 2004, 11:50 am

tault_caewen
tault_caewen's Reps:

ok, i was goffin around, and this is what i came up with for an auto healer that doesn't do much (anything actually) else. I know that the pixel colors will be different on everyone's systems, but it is a general testing thing.

(!empty($user->lang['CODE'])) ? $user->lang['CODE'] : ucwords(strtolower(str_replace('_', ' ', 'CODE'))):

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

EDIT: Forgot to say, this was done in AutoIT with screen resolution of 1024x768. Like I said earlier, this prolly won't work straight out of the box for anyone else.