Yoko

Лутает только те типы что прописаны в последовательности цветов - т.е сначала рары патом шлак.

sub fast.loot()
var n,f
uo.set("finddistance","3")
uo.findtype("0x2006",-1,"ground")
if uo.findcount()==0 then
 return
 else
 uo.addobject("trup","finditem")
 uo.useobject("trup")
 wait(500)
end if
Dim A[100],color[5]
color[0]="0x0BAB" ;Азур
color[1]="0x0BAC" ;Меф
color[2]="0x0B2E" ;Аблаз
color[3]="0x0BAE" ;Анц
color[4]="0x0BAF" ;Стар
color[5]="-1" ;Любой
A[1] = 0x2684 ;шруда 
A[2] = 0x1515 ;клока 
A[3] = 0x0F5C ;мейс
A[4] = 0x13B6 ;ским 
A[5] = 0x13B0 ;клюха
A[6] = 0x1441 ;кутлас
A[7] = 0x13FF ;катана
A[8] = 0x1401 ;крис
A[9] = 0x1086 ;брас хила 
A[10]= 0x1007 ;пыль
A[11]= 0x1415 ;пузо
A[12]= 0x1411 ;ноги
A[13]= 0x1410 ;руки
A[14]= 0x1414 ;перчи
A[15]= 0x1412 ;шлем
A[16]= 0x1413 ;горжа
A[17]= 0x1ced ;сердце
A[18]= 0x1F14 ;руна
A[19]= 0x0e2e ;сфера
A[20]= 0x13f8 ;палки
A[21]= 0x1B74 ;Щит

FOR n=1 TO 21
    for f=0 to 5
     uo.findtype(A[n],color[f],"trup")
     while uo.findcount()>0 and Uo.Weight<Uo.STR*3.5 and uo.getdistance("trup")<3
        uo.moveitem("finditem",0,"my")
          wait(500)
        uo.findtype(A[n],color[f],"trup")
    wend
     uo.forget('finditem')
    next
next
end sub