Stealth Client Forum

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