Yoko

sub Heal_Medit()
  var mana=uo.mana ,life=uo.life ,k, i
  var item='0x153E' #Type of curse
  var wash='0x402D878C' 
  var bloody='0x0E20' #Type of a bloody bandage
  var food='0x097B' #Type something to eat
  while not uo.Dead() && uo.SkillVal('Meditation',2) <= 1010 && uo.SkillVal('Healing',2) <= 1010
    uo.FindType(item,'-1','backpack')
    if uo.FindCount() then
      uo.UseObject('finditem')
      repeat
        wait(250)
        CheckLag()
      until uo.life <= life -1 && uo.mana <= mana-1
      uo.UnDress()
      repeat
        k = 0
        if uo.life <> life && uo.mana <> mana then
          uo.CancelTarget()
          uo.BandageSelf()
        else
          if uo.life <> life && uo.mana == mana then
            uo.BandageSelf()
            wait(3500)
          end if
        end if
        CheckLag()
        if uo.mana <> mana then
          uo.UseSkill('Meditation')
          uo.DeleteJournal()
          repeat
            wait(100)
            k = k + 1
          until uo.InJournal('You are') || uo.InJournal('you lose') || (k>50)
        end if
      until uo.life == life && uo.mana == mana   
      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()
      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

sub Heal_Medit()
   var p = 1 ; поправка к статам, чтобы было что лечить и медитировать
   var curse = '0x153E' ; Type of curse

   repeat
      UO.UseObject('_' + curse)
      ; Почему тут нет CheckLag?
      ; По тому что поиск ведет инжа у себя в памяти
      ; При любых лагах все проидет зачепятельно
      if not UO.FindCount() then
         ; выход по фатальной ошибке
         UO.Print("ERROR: !!! curse !!!")
         return 1
      endif
      ; разрушаем свой организьм
      repeat
         ; пока ждем можно пожрать, постирать или просто вайт
         util()
      until UO.HP < UO.MaxHP - p && UO.MANA < UO.INT - p
      UO.UnDress()

      while heal() && meditation()
         wait(200)
      wend

   ; Поправил, у автора там хз что
   until UO.Dead() || (UO.SkillVal('Meditation',1) == 1000 && UO.SkillVal('Healing',1) == 1000)
end sub

sub util()
   ; тут код
end sub

sub heal()
   ; тут код
   return 0
end sub

sub meditation
   ; тут код
   return 0
end sub

   ; ПОЧЕМУ ТУТ НЕ ТИП?
   var wash='0x402D878C';
   ; разьве есть шарды где тип иной?
   var bloody='0x0E20' #Type of a bloody bandage
   ; это едят все, в крайнем случае все стоя на скриптах
   var food='0x097B' #Type something to eat
   ; нафиг тогда переменные?

sub Heal_Medit()
# Edited:
# 1.mana and life -had been changed to STR and INT for more safety.
#
  var STR=195 # You STR withour curse
  var INT=60 # You INT without curse
  var item='0x153E' #Type of curse
  var wash='0x402D878C' #ID where to clean bandage
  var bloody='0x0E20' #Type of bloody bandage
  var food='0x097B' # Type of anything to eat
  var k, i
  while not uo.Dead() && uo.SkillVal('Meditation',1) < 1000 && uo.SkillVal('Healing',1) < 1000
    if uo.life < STR && uo.mana < INT then
      goto Begin
    end if
    uo.FindType(item,'-1','backpack')
    if uo.FindCount() then
      uo.UseObject('finditem')
      repeat
        wait(250)
        CheckLag()
      until uo.life <= STR -1 && uo.mana <= INT-1
      Begin: 
      uo.UnDress()
      repeat
        k = 0
        if uo.life <> STR && uo.mana <> INT then
          uo.CancelTarget()
          uo.BandageSelf()
        else
          if uo.life <> STR && uo.mana == INT then
            uo.BandageSelf()
            wait(3500)
          end if
        end if
        CheckLag()
        if uo.mana <> INT then
          uo.UseSkill('Meditation')
          uo.DeleteJournal()
          wait(150)
          repeat
            wait(100)
            k = k + 1
          until uo.InJournal('You are') || uo.InJournal('you lose') || (k>50)
        end if
      until uo.life == STR && uo.mana == INT   
      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 MeditationTrain()
  var INT=60 #Your INT withour curse
  var item='0x153E' #Type of curse
  var food='0x097B' #Type of something to eat
  var k, i, l
  l=0
  while not uo.Dead() && uo.SkillVal('Meditation',1) < 1000
    if uo.mana < INT then
      goto BeginMedit
    end if
    uo.FindType(item,'-1','backpack')
    if uo.FindCount() then
      uo.UseObject('finditem')
      repeat
        wait(150)
        CheckLag()
      until uo.mana <= INT-1
      BeginMedit: 
      uo.UnDress()
      repeat
        k = 0
        CheckLag()
        if uo.mana <> INT then
          uo.UseSkill('Meditation')
          uo.DeleteJournal()
          wait(150)
          repeat
            wait(100)
            k = k + 1
          until uo.InJournal('You are') || uo.InJournal('you lose') || (k>50)
        end if
      until uo.mana == INT  
      l=l+1
      if l>100 then
        for i=0 to 10
          uo.UseType(food)
          wait(1000)
        next
        l=0
      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 Healing()
  var STR=195 #Your STR withour curse
  var item='0x153E' #Type of curse
  var wash='0x402D878C' #ID where to clean bandage
  var bloody='0x0E20' #Type of bloody bandage
  var food='0x097B' #Type of something to eat
  var k, i  
  while not uo.Dead() && 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

while not uo.Dead() && uo.SkillVal('Meditation',2) <= 1010 && uo.SkillVal('Healing',2) <= 1010 

while not uo.Dead() -цикл выполняется
while uo.SkillVal('Meditation',1) < 1000 -цикл не выполняется
while not uo.Dead() && uo.SkillVal('Meditation',1) < 1000 -цикл не выполняется
while not uo.Dead() && uo.SkillVal('Meditation',1) < 1001 -цикл выполняется