Code: Select all
sub Healing()
var STR=169 #Your STR withour curse
var item='0x1F03' #Type of curse
var wash='0x40374AB7' #ID where to clean bandage
var bloody='0x0E20' #Type of bloody bandage
var food='0x097B' #Type of something to eat
var k, i
while uo.SkillVal('Healing',1) < 1000
if uo.life < STR then
goto BeginHeal
end if
uo.FindType(item,'-1','backpack')
if uo.FindCount() then
uo.UseObject('finditem')
repeat
wait(250)
CheckLag()
until uo.life <= STR -1
BeginHeal:
uo.UnDress()
repeat
k = 0
if uo.life <> STR then
uo.BandageSelf()
wait(3500)
end if
until uo.life == STR
uo.FindType(bloody,'-1','backpack')
if uo.FindCount() && uo.GetQuantity('finditem') >= 180 then
uo.WaitTargetObject(wash)
uo.UseObject('finditem')
CheckLag()
for i = 0 to 10
uo.UseType(food)
wait(1000)
next
end if
else
if not uo.FindCount() then
uo.CloseUo()
uo.exec('terminate all')
else
wait(500)
end if
end if
wend
end sub
sub CheckLag()
uo.DeleteJournal('backpack')
uo.Click('backpack')
repeat
wait(100)
until uo.InJournal('backpack')
end sub
