Yoko

sub sort()
var pack='0x4025C67A'; контейнер, где лежат бутыли
var bag='0x405CB674'; контейнер, куда складываем бутыли
var bottle='0x1CED'; тип бутыли
var color='0x04AF'; цвет бутыли
#############
var x,y,z,i
#############
uo.useobject(pack)
uo.useobject(bag)

uo.Print('Тыкни на бутылку в мешке относительно которой будеем складывать')
UO.Exec ('addobject ukazatel')
while uo.targeting() 
  wait(100) 
wend

uo.getx('ukazatel')
x=uo.getx('ukazatel')
uo.Print(str(x))

uo.gety('ukazatel')
y=uo.gety('ukazatel')
uo.Print(str(y))

repeat
  x=x-10
   if x<34 then
    y=y+16
    x=150
   end if
  uo.findtype(bottle,color,pack)
   if UO.findcount()>0 then
    uo.moveitem('finditem','1',bag,x,y,'0')
   end if
  wait(500)
until UO.findcount()==0
end sub

sub sort() 
VAR Ttov 
 
var bottle= UO.GetGraphic( 'TTov' ) 
var color= UO.GetColor( 'TTov' )
############# 
############# 
var x,y,z,i 
############# 
UO.Print('Выбери ИСТОЧНИК') #  контейнер, где лежат бутыли 
UO.Exec('addobject pack') 
while UO.Targeting() 
wait(100) 
wend 
UO.UseObject('pack') 


UO.Print('Выбери ПРИЕМНИК') # контейнер, куда складываем бутыли 
UO.Exec('addobject bag') 
while UO.Targeting() 
wait(100) 
wend 
UO.UseObject('bag') 


UO.Print('Выбери ТОВАР') 
UO.Exec('addobject ttov') 
while UO.Targeting() 
wait(100) 
wend 
 

uo.Print('Тыкни на бутылку в мешке относительно которой будеем складывать') 
UO.Exec ('addobject ukazatel') 
while uo.targeting() 
  wait(100) 
wend 

uo.getx('ukazatel') 
x=uo.getx('ukazatel') 
uo.Print(str(x)) 

uo.gety('ukazatel') 
y=uo.gety('ukazatel') 
uo.Print(str(y)) 

repeat 
  x=x-10 
   if x<34 then 
    y=y+16 
    x=150 
   end if 
  uo.findtype(bottle,color,'pack') 
   if UO.findcount()>0 then 
    uo.moveitem('finditem','1','bag',x,y,'0') 
   end if 
  wait(500) 
until UO.findcount()==0 
end sub

sub Sorter()
   UO.IgnoreReset()
   AddObject('sorter','Выберите эталонный предмет')
   VAR ITEM=UO.GetSerial('lasttarget')
   VAR TYPE=UO.GetGraphic(ITEM)
   VAR COLOR=UO.GetColor(ITEM)
   VAR CONT=UO.ContainerOf(ITEM)
   UO.Print(ITEM+' '+TYPE+' '+COLOR)
   if TYPE=='0x0000' or TYPE=='0xFFFF' then
      UO.Print('ERROR!')
      return
   endif
   VAR X=UO.GetX(ITEM)
   VAR Y=UO.GetY(ITEM)
   UO.Ignore(ITEM)
   UO.FindType(TYPE,COLOR,CONT)
   while UO.FindCount()
      X=X+4
      Y=Y
      UO.MoveItem('finditem',-1,CONT,X,Y,0)
      wait(500)
      UO.Ignore('finditem')
      UO.FindType(TYPE,COLOR,CONT)
   wend
   UO.IgnoreReset()
endsub

Sub AddObject(obj,msg)
UO.Forget(obj)
UO.Print(msg)
UO.Set('quiet','1')
UO.CancelTarget()
UO.AddObject(obj)
while UO.Targeting()
 wait(50)
wend
UO.AddObject(obj,'lasttarget')
UO.Set('quiet','0')
UO.Print('Присвоен обьект: '+UO.GetSerial(obj))
endsub

      X=X+4
      Y=Y