###################################  
# Скрипт для Крафтов #  
# (В данном случае для Tailoring) #  
###################################  

;|---------------------------|  
;| Описание переменных Items |  
;|---------------------------|  

var EQ,RQ1,RQ2,QB  
var Eat='0x097B' ; Type Еда (Рыба)  
var Res1='0x175D' ; Type Ресурс 1 (Ткань)  
var Res2='0x0FA0' ; Type Ресурс 2 (Нитки)  
var Kit='0x0F9D' ; Type Инструмента крафта (Sewing Kit)  
var Items='0x1F03' ; Type Выходного материала  
EQ=50 ; Количество еды  
RQ1=150 ; Количество ресурса 1  
RQ2=20 ; Количество ресурса 2  

;|---------------------------------|  
;| Описание переменных контейнеров |  
;|---------------------------------|  

var ContainerRes='0x40445312' ; Object Контейнер с ресурсами  
var ContainerBag='0x40445312' ; Object Контейнер с сумками  
var BagCount='0x0E76' ; Type сумок в контейнере ContainerBag  

sub Main()  
uo.Set('quiet','1')  
uo.Exec('exec Craft')  
uo.IgnoreReset()  
end sub  

sub OpenBag()  
var i,BagID  
uo.UseObject(ContainerBag)  
uo.UseObject(ContainerRes)  
uo.IgnoreReset()  
repeat  
uo.DeleteJournal()  
wait(1000)  
uo.FindType(BagCount,'-1',ContainerBag)  
if uo.FindCount('finditem') > 1 then  
i=(uo.FindCount('finditem') +1)  
uo.Click('finditem')  
if uo.InJournal("a bag") Then  
BagID=uo.JournalSerial(uo.InJournal("a bag")-1)  
uo.SetJournalLine(uo.InJournal("a bag")-1,"")  
uo.FindType(Items,'-1',BagID)  
uo.UseObject(BagID)  
wait(2000)  
uo.Hide(BagID)  
uo.Ignore(BagID,'on')  
end if  
end if  
i=(i-1)  
until i==0  
uo.Hide(ContainerBag)  
uo.Hide(ContainerRes)  
uo.Resend()  
wait(3000)  
uo.IgnoreReset()  
end sub  

sub Craft()  
var Last=0,LastTimer  
OpenBag()  
While not uo.Dead()  

;|-----------------------------------|  
;| Search of resources and Take them |  
;|-----------------------------------|  

uo.FindType(Eat,'-1','me')  
if uo.GetQuantity('finditem')<1 then  
uo.FindType(Eat,'-1',ContainerRes)  
if uo.GetQuantity('finditem')>1 then  
ToTake(3)  
else  
uo.Exec('Terminate Craft')  
end if  
else  
ToEat()  
end if  
uo.FindType(Res1,'-1','me')  
if uo.GetQuantity('finditem')<16 then  
uo.FindType(Res1,'-1',ContainerRes)  
if uo.GetQuantity('finditem')>1 then  
ToTake(1)  
else  
uo.Exec('Terminate Craft')  
end if  
end if  
uo.FindType(Res2,'-1','me')  
if uo.GetQuantity('finditem')<1 then  
uo.FindType(Res2,'-1',ContainerRes)  
if uo.GetQuantity('finditem')>1 then  
ToTake(2)  
else  
uo.Exec('Terminate Craft')  
end if  
end if  

;|-------------|  
;| Craft Items |  
;|-------------|  

uo.DeleteJournal()  
uo.WaitTargetType(Res1)  
uo.UseType(Kit)  
uo.WaitMenu ('Cloth','Shirts','Shirts','robe') ; Название КрафтМеню1(Cloth),ПодМеню2(Shirts) -> КрафтМеню2(Shirts),ПодМеню2(Robe)  
LastTimer=UO.Timer()  
repeat  
wait(100)  
until uo.InJournal("You put") or uo.InJournal("Tailoring") or LastTimer+150<uo.Timer()  
UnLoadItem()  
wend  
end sub  

sub ToTake(i)  
var G,F  
if i==1 then  
G=RQ1  
F=Res1  
end if  
if i==2 then  
G=RQ2  
F=Res2  
end if  
if i==3 then  
G=EQ  
F=Eat  
end if  
uo.FindType(F,'-1',ContainerRes)  
if uo.GetQuantity('finditem')>1 then  
uo.Grab(''+str(G)+'','finditem')  
uo.DeleteJournal()  
repeat  
uo.FindType(F,'-1','me')  
wait(1500)  
until uo.InJournal("That is too") or uo.GetQuantity('finditem') > 1  
end if  
end sub  

sub ToEat()  
uo.UseType(Eat)  
end sub  

sub UnLoadItem()  
var BagID  
var i=0  
var m=0  
repeat  
uo.DeleteJournal()  
uo.FindType(BagCount,'-1',ContainerBag)  
uo.Click('finditem')  
m=0  
repeat  
wait(1000)  
until uo.InJournal("a bag")  
if uo.InJournal("a bag") Then  
BagID=uo.JournalSerial(uo.InJournal("a bag")-1)  
uo.SetJournalLine(uo.InJournal("a bag")-1,"")  
uo.FindType('-1','-1',BagID)  
if uo.FindCount('finditem')<220 then  
m=uo.FindCount('finditem')  
uo.SetReceivingContainer(BagID)  
uo.FindType(Items,'-1','me')  
uo.Grab('0','finditem')  
uo.ConColor('0x0021')  
uo.Set('quiet','0')  
uo.Print(uo.Print('In BagPack#'+Str(i+1)+' items '+Str(m)+''))  
uo.Set('quiet','1')  
uo.ConColor('0x0035')  
wait(1000)  
uo.UnSetReceivingContainer()  
else  
i=i+1  
uo.Ignore(BagID, 'on')  
end if  
end if  
if i==QB then  
uo.IgnoreReset()  
i=0  
end if  
uo.FindType(Items,'-1','me')  
until uo.FindCount('finditem') < 1  
end sub