Fuego
Grandmaster
Your vet script doesn't cure higher poisons, level 3 and up maybe 2, just starts reapplying w/o finishing cure.
Code:
//Experience
//Heals 2 pets.
//Included health/weight check on self
@cleartargetqueue
@clearjournal
if dead 'self'
stop
endif
if not timerexists 'VetBandage'
createtimer 'VetBandage'
settimer 'VetBandage' 0
endif
while weight > maxweight
cast 'bless' 'self'
pause 2500
endwhile
//Setup
if hits < 90
or poisoned 'self'
miniheal 'self'
pause 3000
@canceltarget
endif
if not findalias 'pet1'
headmsg 'Select first pet'
promptalias 'pet1'
endif
if not findalias 'pet2'
headmsg 'Select second pet'
promptalias 'pet2'
endif
//Heal them to full
while hits 'pet1' == maxhits 'pet1' and hits 'pet2' == maxhits 'pet2'
pause 300
if hits < maxhits
or poisoned 'self'
miniheal 'self'
pause 3000
endif
endwhile
if diffhits 'pet1' > diffhits 'pet2'
while not @inrange 'pet1' 1
if @x 'pet1' > x 'self' and @y 'pet1' > y 'self'
run 'Southeast'
elseif @x 'pet1' < x 'self' and @y 'pet1' > y 'self'
run 'Southwest'
elseif @x 'pet1' > x 'self' and @y 'pet1' < y 'self'
run 'Northeast'
elseif @x 'pet1' < x 'self' and @y 'pet1' < y 'self'
run 'Northwest'
elseif @x 'pet1' > x 'self' and @y 'pet1' == y 'self'
run 'East'
elseif @x 'pet1' < x 'self' and @y 'pet1' == y 'self'
run 'West'
elseif @x 'pet1' == x 'self' and @y 'pet1' > y 'self'
run 'South'
elseif @x 'pet1' == x 'self' and @y 'pet1' < y 'self'
run 'North'
endif
pause 500
endwhile
if @inrange 'pet1' 1 and timer 'VetBandage' >= '6300'
if hits 'pet1' < maxhits 'pet1'
bandage
autotargetobject! 'pet1'
settimer 'VetBandage' 0
@cleartargetqueue
endif
endif
endif
if diffhits 'pet2' > diffhits 'pet1'
while not @inrange 'pet2' 1
if @x 'pet2' > x 'self' and @y 'pet2' > y 'self'
run 'Southeast'
elseif @x 'pet2' < x 'self' and @y 'pet2' > y 'self'
run 'Southwest'
elseif @x 'pet2' > x 'self' and @y 'pet2' < y 'self'
run 'Northeast'
elseif @x 'pet2' < x 'self' and @y 'pet2' < y 'self'
run 'Northwest'
elseif @x 'pet2' > x 'self' and @y 'pet2' == y 'self'
run 'East'
elseif @x 'pet2' < x 'self' and @y 'pet2' == y 'self'
run 'West'
elseif @x 'pet2' == x 'self' and @y 'pet2' > y 'self'
run 'South'
elseif @x 'pet2' == x 'self' and @y 'pet2' < y 'self'
run 'North'
endif
pause 500
endwhile
if @inrange 'pet2' 1 and timer 'VetBandage' >= '6300'
if hits 'pet2' < maxhits 'pet2'
bandage
autotargetobject! 'pet2'
settimer 'VetBandage' 0
@cleartargetqueue
endif
endif
endif
@clearjournal