sub Healing()
  var STR=180 #Реальная сила чара
  var item='0x13F6' #Тип курсы
  var wash='0x401DE8CA' #Айди тазика с водой
  var bloody='0x0E20' #Тип грязных бинтов
  var food='0x09EC' #Тып еды которую будет хавать
  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') >= 30 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 

sub Reconnector()
var ReconnectTime, RFlag
ReconnectTime = '0'
RFlag = 1
Repeat
While (UO.ObjAtLayer('Bpack') == '')
if RFlag Then
ReconnectTime = MakeTime()
RFlag = 0
endif
Wait(20000) # WorldSave Protection
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.LDblClick(357,164)
UO.LClick(616,459)
Wait(3000)
WEnd
Wait(3000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
UO.Exec('terminate main')
wait(1000)
UO.Exec('exec main')
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
RFlag = 1
ReconnectTime = '0'
endif
Until false
end sub

sub MakeTime()
VAR D, T, Ret, i
Ret = STR(UO.Time())
T = ""
For i = 0 To Len(Ret)
T = Ret[Len(Ret)-i] + T
If (I == 2) OR (I == 4) Then
T = ":" + T
EndIf
Next
Ret = STR(UO.Date())
D = ""
For i = 0 To Len(Ret)
D = Ret[Len(Ret)-i] + D
If (I == 2) OR (I == 4) Then
D = "." + D
EndIf
Next
Ret = T + " @ " + D
RETURN Ret
end sub