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

sub Sorter() 
UO.IgnoreReset() 
AddObject('sorter','Выберите эталонный предмет') 
VAR ITEM=UO.GetSerial('lasttarget') 
VAR TYPE=UO.GetGraphic(ITEM) 
VAR CONT=UO.ContainerOf(ITEM) 
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,-1,CONT) 
VAR k=0
while UO.FindCount() 
   k=k+1
   X=X+5 
   Y=Y 
   UO.MoveItem('finditem',-1,CONT,X,Y,0) 
   wait(500) 
   UO.Ignore('finditem') 
   UO.FindType(TYPE,-1,CONT) 
   if k==15 then
      Y=Y+5
      X=(UO.GetX(ITEM)-5)
   else
      if k==30 then
         Y=Y+10
         X=(UO.GetX(ITEM)-5)
      else
         wait(50) 
      endif
   endif
wend 
UO.IgnoreReset() 
endsub