sub BowCraft()
repeat
uo.FindType('0x1bd4','0x0000','backpack')
put:
if uo.GetQuantity('finditem')<1 then
uo.FindType('0x1bd4','0x0000','0x40001988') ;Сериал сундука
uo.Grab('1','finditem')
wait(400)
end if
uo.FindType('0x1bd4','0x0000','backpack')
if uo.GetQuantity('finditem')<1 then
goto put
end if
uo.Usetype('0x1bd4')
uo.CancelMenu()
uo.WaitMenu('Select arrow type','bolt')
wait (1000)
uo.DeleteJournal()
while not (uo.InJournal("You put") or uo.InJournal("You fail"))
wait(300)
wend
uo.UnSetReceivingContainer()
wait(200)
until uo.Dead()
end sub