VAR reconnect=0 # 0 âûêëþ÷èòü ôèëüòðû è ðåêîííåêò, 1 - ðàáîòàåò
VAR Reg=200 ## êîëè÷åñòâî ðåàãåíòîâ, êîòîðûå ÷àð áåð¸ò
VAR BOT=100 ## áóòûëêè
VAR LastTimer,p
VAR LastTimer2
VAR box1='0x57200D3C' ## ÿùèê îòêóäà áåðåì
VAR box2='0x5D24C3FA' ## ïóñòûå êåãè

var n=0

sub alchemy()
uo.sayu(',exec bandcure')
uo.useobject('backpack')
Cheklag()
uo.useobject(box1)
Cheklag()
wait(1000)
p()
end sub

###################################################


###################################################
#if uo.count('0x1940','0x0000') < 1 then
# uo.FindType('0x1BFB','0x0000',box1)
# cheklag()
# uo.grab('1','finditem')
# wait(1000)
# cheklag()
#end if
###################################################
sub p()

if uo.count('0x1BFB','0x0000')<1 then
uo.FindType('0x1BFB','0x0000',box1)
cheklag()
uo.grab('1','finditem')
wait(1000)
cheklag()
end if

LastTimer2=UO.Timer()
LastTimer=UO.Timer()

uo.FindType('0x1BFB','0x0000','backpack')
uo.useskill('Poisoning')
uo.waittargetobject('0x6B10B9BF','finditem')
wait(6500)
endif

#if uo.injournal("is out") OR uo.injournal("a poison") then
#UO.SetReceivingContainer(box2)
#wait(200)
#uo.FindType('0x1940','0x0000','backpack')
#UO.Grab('0','finditem')
#wait(200)
#UO.UnSetReceivingContainer()
#else

keg()
end if
###################################################
sub keg()
UO.FindType(0x0F0E,0x0000,'backpack')
Var b = UO.GetSerial("finditem")
UO.FindType(0x1940,0x0000,'backpack')
Var c = UO.GetSerial("finditem")
UO.MoveItem(b, "0", c,str(uo.getx(c)),str(uo.gety(c)),"0")
Wait(2500)
keg2()
end sub

sub keg2()
UO.FindType(0x0F0A,0x0000,'backpack')
Var d = UO.GetSerial("finditem")
UO.FindType(0x1940,0x0000,'backpack')
Var e = UO.GetSerial("finditem")
UO.MoveItem(d, "0", e,str(uo.getx(e)),str(uo.gety(e)),"0")
Wait(2500)
p()
end sub

sub Terminate()
uo.Print('Script and all function terminated!')
uo.Exec('terminate keg')
wait(100)
uo.Exec('terminate keg2')
wait(100)
uo.Exec('terminate p')
wait(100)
uo.Exec('terminate alchemy')
wait(100)
drag()
end sub

###################################################

sub drag()
UO.Drag(642,494,1035,225)
p()
end sub



if uo.weight > 150 then
UO.SetReceivingContainer(box1)
wait(200)
uo.FindType('0x1BFB','0x0044','backpack')
UO.Grab('0','finditem')
wait(200)
UO.UnSetReceivingContainer()
end if

end sub


uo.deletejournal()
repeat
if uo.count('0x097B','0x0000')==0 then
return
end if
uo.usetype('0x097B','0x0000')
wait(1000)
until uo.injournal("You are stuffed!") or uo.injournal("You can't think of a way to use that item.")
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 çàùèòà
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.RClick(196,193)
wait(2000)
uo.RClick(196,193)
wait(2000)
uo.useobject('self')
wait(2000)
uo.useobject('backpack')
wait(2000)
uo.Exec('terminate alchemy')
wait(5000)
uo.Exec('exec alchemy')
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

Sub cheklag()
uo.click('backpack')
repeat
wait(10)
until uo.InJournal("backpack")
end sub

sub bint()
UO.waittargetself()
UO.usetype(0x0e21)
end sub

sub bandcure()
repeat
if uo.poisoned('self') and uo.count('bandage')>0 then
bint()
wait(12000)
end if
until uo.life<>100
end sub