Ultima Online Antares

VAR Sunduk1 ='0x401A743D'; шкура
VAR Sunduk2 ='0x4050641A'; мясо
..........................
DIM Shkyra[1]
Shkyra[1] = '0x1067'

DIM Myso[3]
Myso[1] = '0x09F1' # мясо
Myso[2] = '0x09B9' # мясо птицы
Myso[3] = '0x1607' # мясо курицы

...................................

UO.Set('finddistance','2')

UO.FindType('0x0E41','-1','ground')
if UO.FindCount() > 0 then
   if uo.getserial('finditem') == Sunduk1 then
     uo.setreceivingcontainer(Sunduk1)
     for i=1 to 1
       while UO.Count( Shkyra[i] ) > 0
          uo.findtype(Shkyra[i],"-1",'backpack')
             if UO.FindCount()>0 then
               UO.Grab("0","finditem")  
               wait(100)
             end if
       wend
     next
  end if
end if


  UO.FindType('0x0E41','-1','ground')
   if UO.FindCount() > 0 then
   if uo.getserial('finditem') == Sunduk2 then
uo.setreceivingcontainer(Sunduk2)
for i=1 to 3
while UO.Count( Myso[i] ) > 0
uo.findtype(Myso[i],"-1",'backpack')
   if UO.FindCount()>0 then
   UO.Grab("0","finditem")  
   wait(700)
   end if
   wend
   next
end if
end if

.........................................

endsub

UO.FindType('0x0E41','-1','ground')