Лутает только те типы что прописаны в последовательности цветов - т.е сначала рары патом шлак.
Code: 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
|