VAR Sunduk='0x4028A16B' ; ИД сундука где все логи
VAR TDagger='0x0F51' ; Тип даггера
VAR TLogs='0x1BDD' ; Тип логов
VAR TTorch='0x0F64' ; Тип торчей
VAR TShaft='0x1BD4' ; Тип шафтов

; В руке или паке даггер, в сундуке логи и запускаем !!!

sub BowCraft_shaft()
uo.useobject(Sunduk)
wait(200)
while 1==1
UO.FindType(TLogs,'0x0000','backpack')
While UO.GetQuantity('finditem')==0
UO.FindType(TLogs,'0x0000',Sunduk)
wait(200)
UO.Grab('1','finditem')
Wend
wait(200)
cheklag()

uo.WaittargetType(TLogs)
uo.Usetype(TDagger)
uo.WaitMenu('What do you want to carve the wood into?','shaft (1 log)')
wait (1000)
uo.DeleteJournal()
while not (uo.InJournal("You put") or uo.InJournal("You fail"))
wait(10)
wend

if uo.weight > 200 then
UO.SetReceivingContainer(Sunduk)
wait(200)
UO.FindType(TShaft)
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.UnSetReceivingContainer()
end if
wend
end sub

sub BowCraft_torch()
var teklog=1
dim ColLog[20]
ColLog[1]='0x047C' ; Oak Logs
ColLog[2]='0x0279' ; Red Tree Logs
ColLog[3]='0x096B' ; Dark Tree Logs
ColLog[4]='0x0237' ; Swamp Logs
ColLog[5]='0x0482' ; Silver Leaf Logs
ColLog[6]='0x010F' ; Keranit Logs
ColLog[7]='0x0014' ; Perit Logs
ColLog[8]='0x03C1' ; Petrified Logs
ColLog[9]='0x0085' ; Dragon Tree Logs
ColLog[10]='0x04C2' ; Vampire Tree Logs
ColLog[11]='0x0033' ; Eridan Logs
ColLog[12]='0x002B' ; Hellios Logs
ColLog[13]='0x0071' ; Illusions Tree Logs
ColLog[14]='0x09A4' ; Crystal Logs
ColLog[15]='0x0B82' ; Dead Tree Logs
ColLog[16]='0x00BE' ; Paradise Logs
ColLog[17]='0x0035' ; Titan Tree Logs
ColLog[18]='0x0BB6' ; Avalon Logs
ColLog[19]='0x0487' ; Elven Logs
ColLog[20]='0x0498' ; Asterxylon Logs
UO.Exec('terminate Reconnector')
wait(100)
UO.Exec('exec Reconnector')
uo.useobject(Sunduk)
wait(200)
while 1==1
UO.FindType(TLogs,ColLog[teklog],'backpack')
While UO.GetQuantity('finditem')==0
ff:
UO.FindType(TLogs,ColLog[teklog],Sunduk)
wait(50)
if uo.FindCount()==0 then

UO.SetReceivingContainer(Sunduk)
wait(100)
UO.FindType(TTorch)
wait(50)
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.UnSetReceivingContainer()

teklog=teklog+1
if teklog>20 then
return
endif
goto ff
end if
wait(100)
UO.Grab('1','finditem')
Wend
wait(200)
cheklag()

uo.WaittargetType(TLogs)
uo.Usetype(TDagger)
uo.WaitMenu('What do you want to carve the wood into?','Items','Items','torch')
wait (200)
uo.DeleteJournal()
while not (uo.InJournal("You put") or uo.InJournal("You fail"))
wait(10)
wend

if uo.weight > 100 then
UO.SetReceivingContainer(Sunduk)
wait(100)
UO.FindType(TTorch)
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.UnSetReceivingContainer()
end if
wend
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(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 BowCraft_torch')
wait(1000)
UO.Exec('exec BowCraft_torch')
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