Var TItem='0x1EFF'

Var TItem='0x1F03'

uo.automenu('Shirts','fancy dress')

uo.automenu('Shirts','robe')

Var Sunduk='0x41125C98'
Var TSKit='0x0F9D'
Var TCloth='0x175D'
Var Spools='0x0FA0'
Var TItem='0x1EFF'
Var RobBackPack= '0x41125C96'
Var Meshok1='0x405816EA'
Var Meshok2='0x40582051'
Var Meshok3='0x405826C6'
Var Meshok4='0x40592642'
Var Meshok5='0x40590D6A'
Var Meshok6='0x40598D75'
Var Meshok7='0x416430C0'
Var Meshok8='0x415948B1'
Var Meshok9='0x405DD293'
Var Meshok10='0x416CDAAA'
Var Meshok11='0x416C4EA4'
Var Meshok12='0x403FF99C'
Var Meshok13='0x40525411'
Var Meshok14='0x403D7B7D'
Var VSEmeshki='0x0E76'
sub toeat()
uo.findtype('0x103B',-1,Sunduk)
if uo.findcount() then
uo.moveitem('finditem','50','backpack')
wait(600)
uo.deletejournal()
repeat
uo.usetype('0x103B')
wait(400)
until uo.injournal('full to eat')
endif
uo.findtype('0x103B',-1,'backpack')
if uo.findcount() then
uo.moveitem('finditem',0,Sunduk)
wait(600)
endif
endsub
sub Tailoring()
var i=0
uo.cancelmenu()
uo.automenu('Cloth','Shirts')
uo.automenu('Shirts','fancy dress')
uo.useobject(Sunduk)
while (uo.skillval('Tailoring',1)<1000)
i=i+1
if i==150 then
i=0
toeat()
end if
uo.print(' i == '+str(i))
uo.print(' Кушаем когда i == 150 ')
UO.FindType(TCloth,-1,'backpack')
If UO.GetQuantity('finditem')<16 Then
If UO.GetQuantity('finditem')>0 Then
uo.moveitem('finditem',0,Sunduk)
cheklag()
wait(1000)
end if
UO.FindType(TCloth,-1,Sunduk)
If UO.GetQuantity('finditem')>=16 Then
uo.moveitem('finditem','720','backpack')
cheklag()
Wait(1000)
else
uo.closeuo()
end if
end if
UO.FindType(Spools,-1,'backpack')
If UO.GetQuantity('finditem')<16 Then
If UO.GetQuantity('finditem')>0 Then
uo.moveitem('finditem',0,Sunduk)
cheklag()
wait(1000)
end if
UO.FindType(Spools,-1,Sunduk)
If UO.GetQuantity('finditem')>=16 Then
uo.moveitem('finditem','60','backpack')
cheklag()
Wait(1000)
else
uo.closeuo()
end if
end if
cheklag()
uo.waittargettype(TCloth)
uo.usetype(TSKit)
uo.deletejournal()
waitforchange()
if uo.weight > 200 then
UO.SetReceivingContainer(Meshok1)
wait(200)
UO.FindType('0x1EFF')
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.UnSetReceivingContainer()
end if
if uo.weight > 200 then
UO.SetReceivingContainer(Meshok2)
wait(200)
UO.FindType('0x1EFF')
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.SetReceivingContainer(Meshok3)
wait(200)
UO.FindType('0x1EFF')
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.SetReceivingContainer(Meshok4)
wait(200)
UO.FindType('0x1EFF')
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.SetReceivingContainer(Meshok5)
wait(200)
UO.FindType('0x1EFF')
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.SetReceivingContainer(Meshok6)
wait(200)
UO.FindType('0x1EFF')
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.SetReceivingContainer(Meshok7)
wait(200)
UO.FindType('0x1EFF')
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.SetReceivingContainer(Meshok8)
wait(200)
UO.FindType('0x1EFF') # ??? ???????? ?????
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.SetReceivingContainer(Meshok9)
wait(200)
UO.FindType('0x1EFF') # ??? ???????? ?????
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.UnSetReceivingContainer()
end if
UO.SetReceivingContainer(Meshok10)
wait(200)
UO.FindType('0x1EFF') # ??? ???????? ?????
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.SetReceivingContainer(Meshok11)
wait(200)
UO.FindType('0x1EFF') # ??? ???????? ?????
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.SetReceivingContainer(Meshok12)
wait(200)
UO.FindType('0x1EFF') # ??? ???????? ?????
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.SetReceivingContainer(Meshok13)
wait(200)
UO.FindType('0x1EFF') # ??? ???????? ?????
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.SetReceivingContainer(Meshok14)
wait(200)
UO.FindType('0x1EFF') # ??? ???????? ?????
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
wend
uo.closeuo()
end sub
sub waitforchange()
var n
for n=1 to 100
if uo.InJournal('You put the') or uo.InJournal('Tailoring failed.') then
return
endif
wait(200)
next
endsub
sub cheklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(10)
until uo.InJournal("backpack")
end sub

впиши в конце скрипта

Sub PUT(item, cont); тип предмета, куда ложить
      while UO.Count( item ) > 0
        UO.FindType( item, -1, -1 )
         UO.MoveItem( 'finditem', 0, cont )
        checklag()
      wend
end sub

в скрипте просто пишешь

PUT(Тип робы, мешок)