Вот и сам скрипт:

sub Train_Healing()
var i,j,tekstr
uo.Exec('terminate Reconnector')
wait(1000)
uo.Exec('exec Reconnector')
wait(1000)
uo.undress()
wait(100)
repeat
UO.FindType(0x0E21,"-1","my")
if UO.FindCount() then
tekstr=uo.str
wait(100)
cheklag()
uo.usetype(0x1530); Cursed Hat
uo.useskill ("Spirit Speak")
wait(2000)
j=0
repeat
wait(10)
j=j+1
until (uo.life <= tekstr-1) or (j>1000)
cheklag()
uo.undress()
wait(100)
cheklag()
uo.exec('bandageself')
Wait(2000)
uo.usetype('0x09EA') ; Тип того что кушаем !!!
wait(100)
uo.waittargettype(0x1008) # wash basin
uo.UseType(0x0E20) #bloody bandages
else
UO.FindType(0x0E20,"-1","my")
if UO.FindCount() then
cheklag()
uo.waittargettype(0x1008) # wash basin
uo.UseType(0x0E20) #bloody bandages
else
cheklag()
uo.print("You haven't bandages")
uo.exec("terminate Train_Healing")
Play_Sound(1)
endif
endif
until uo.dead()
end sub

sub cheklag()
uo.deletejournal()
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(70000) # WorldSave Protection
uo.Say('')
Wait(5000)
uo.Say('')
Wait(5000)
uo.Say('')
Wait(5000)
uo.LDblClick(357,164)
uo.LClick(616,459)
Wait(5000)
Wend
Wait(3000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
uo.TextOpen()
uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
uo.useobject('self')
wait(2000)
uo.useobject('backpack')
wait(2000)
uo.Exec('terminate Train_Healing')
wait(5000)
uo.Exec('exec Train_Healing')
wait(5000)
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