VAR Sunduk='0x406C1757' 
VAR Sunduk2='0x40048E2F' 
VAR LastTimer 

sub keg() 
var i=0 
uo.useobject('backpack') 

uo.useobject(Sunduk) 
wait(1000) 
uo.useobject(Sunduk2)
wait(1000)
while 1==1 

i=i+1 
if i==50 then 
uo.usetype('0x097B') 
wait(1000) 
i=0 
if uo.skillval("Spirit Speak",1)<1000 then 
cheklag() 
uo.print("Spirit Speak...") 
LastTimer=UO.Timer() 
uo.useskill ("Spirit Speak") 
uo.deletejournal() 
repeat 
wait(10) 
until UO.InJournal("You establish a connection to the netherworld.") or UO.InJournal("You fail your attempt at contacting the netherworld.") OR (UO.Timer()>LastTimer+200) 
end if 
end if 

UO.FindType('0x1940','0x0000','backpack') 
While UO.GetQuantity('finditem')<=0
UO.FindType('0x1940','0x0000',Sunduk) 
wait(700) 
UO.Grab('1','finditem') 
wait(700) 
Wend 

UO.FindType('0x0F0A','0x0000','backpack') 
While UO.GetQuantity('finditem')<1
UO.FindType('0x0F0A','0x0000',Sunduk) 
wait(700) 
UO.Grab('1','finditem') 
wait(700) 
Wend



uo.deletejournal() 
LastTimer=UO.Timer() 

 
uo.waittargettype('0x0F0A','0x0000') 
uo.usetype('0x1940','0x0000')
repeat
wait(10) 


if UO.Weight>100 then    ;òóò óêàçûâàåòå âåñ ïðè êîòîðîì íà÷íåòñÿ ïåðåêëàäûâàíèå 
uo.findtype('0x0F0E',-1,'backpack') 
uo.moveitem('finditem',0,Sunduk) 
wait(2000) 
end if 
wend 

wend 
end sub 


if uo.weight > 300 then 
UO.SetReceivingContainer(Sunduk) 
wait(200) 
UO.Grab('0','finditem') 
wait(200) 
UO.UnSetReceivingContainer() 
end if 
end if 
end if 



wend 
end sub 

sub cheklag() 
uo.deletejournal() 
uo.click('backpack') 
repeat 
wait(10) 
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 Alchemy') 
wait(1000) 
UO.Exec('exec Alchemy') 
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