VAR LastTimer
     var food= '0x097B'
     var Timer=UO.Timer()
sub MR()
  UO.Exec('terminate Reconnector')
  UO.Exec('exec Reconnector')
 while 1
 if UO.Life>1 then 
 while not UO.Dead()
  Repeat
      UO.UseType(Food)
      UO.Usetype("0x0E21")
      UO.Exec("waittargetobject 0x0031F2BC")
      wait(4000)
      if UO.Count('0x0E21')>1 then
  UO.FindType('0x0E20','0x0000','backpack') 
 UO.WaitTargetType('0x1008') 
  UO.UseObject('finditem') 
  wait(500)
      else
       wait(10)
       end if
  Until (UO.InJournal("need healing"))
 wend
 else
   while not UO.InJournal('You apply')
    UO.DeleteJournal()
    UO.UseObject('0x40385B44')
    wait(2000)
    UO.Usetype("0x0E21")
    UO.Exec("waittargetobject 0x0031F2BC")  
    wait(3500)
   wend
end if  
wend
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 MR') 
               UO.Exec('exec MR') 
               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

var DisturbingSound=('C:\WINDOWS\Media\ding.wav')

sub strelka()  
VAR NS='0x0F88' ; Тип Nighshade.
VAR BP='0x0F7A' ; Тип Black Pearls.
VAR Sunduk='0x403686A9' ; Сериал(ID) Сундука.
VAR Kolvo=200
while not uo.dead()
If UO.NS == 0 Then 
   wait(1000)
   UO.FindType(NS, '-1', Sunduk) 
   UO.Grab(str(Kolvo), 'finditem') 
   repeat 
   wait(100) 
   until UO.NS>0 
Endif
 
If UO.BP == 0 Then
   wait(1000)
   UO.FindType(BP, '-1', Sunduk) 
   UO.Grab(str(Kolvo), 'finditem') 
   repeat 
   wait(100) 
   until UO.BP>0 
Endif

if uo.mana>10 then
;uo.cast('Magic Arrow','laststatus');
;uo.cast('Fireball','laststatus')
uo.waittargetobject('0x000FF2CC') #ID игрока, на которого будем 
;wait(100) 
UO.Exec("cast 'Magic Arrow'")
wait(2000)
else
;UO.UseSkill("Spirit Speak")
;wait(3000)
         While UO.Mana<UO.Int 
            UO.DeleteJournal() 
            wait(1000) 
            UO.Useskill('Meditation') 
            Repeat 
               wait(100) 
            until UO.InJournal("You are") OR UO.InJournal("You lose") 
         Wend 

wait(1000)
endif
wend
end sub



sub resist() 
while 1==1 
wait(5000)
if UO.Life<145 then
uo.exec('bandageself') 
wait(3000) ;; если что, тут задержку на лечение менять
endif 
wait(50) 
wend 
endsub 


sub ControlOfDanger() 
while 1==1 
wait(2000)
if UO.Life<150 then
uo.Exec('exec RecallRune')
wend
wait(50)
endif 
wait(50) 
wend 

endsub 

Sub cheklag() 
uo.deletejournal() 
uo.click('backpack') 
Repeat 
wait(100) 
Until UO.InJournal("backpack") 
end sub 



sub Alarm() 

   VAR CharHP=150 
   while 1==1 
      wait(5000) 
      if UO.Life<150 then 
uo.PlayWav(DisturbingSound)
wait(3000)
      endif       
   wend 
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 
Wait(3000)
;UO.Exec('terminate resist')
UO.Exec('terminate strelka')
Wait(3000)
;UO.Exec('exec resist')
UO.Exec('exec strelka')
Wait(3000)
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 




sub RecallRune() 

var mX,mY 
Terminate()
uo.PlayWav(DisturbingSound)
uo.UseType('0x0F0E','0x09BB') 
wait(100)  
repeat
uo.DeleteJournal() 
if uo.Waiting() then 
uo.CancelTarget() 
end if 
mX=uo.getX("self") 
mY=uo.getY("self") 
uo.DeleteJournal() 
uo.warmode(0)
uo.FindType('0x1F14',-1,'mY') 
uo.Cast('Recall','finditem') 
uo.Print('Атака! Реколимся!') 
wait(4000) 
until uo.getX("self")<>mX and not uo.getY("self")<>mY
ExitUO()
end if 



sub Terminate() 
uo.Exec('terminate strelka')
wait(200)
uo.Exec('terminate resist')
wait(200)
uo.Exec('terminate ControlOfDanger')
wait(200)
uo.Exec('terminate Reconnector')
end sub



sub ExitUO() 
wait(3000) 
uo.CloseUO() 
end sub