Yoko

uo.FindType(gold,'-1','lastcorpse')
if uo.FindCount() then
  uo.moveitem('finditem','all')
  wait(750)
end if

sub gold()
uo.FindType('0x0123','-1','lastcorpse')
if uo.FindCount() then
  uo.moveitem('finditem')
end if
end sub

sub gold()
UO.FindType('0x0EED',"-1",'lastcorpse')
If UO.FindCount() > 0 then
repeat
UO.Grab(0, "finditem")
UO.FindType('0x0EED',"-1",'lastcorpse')
until UO.FindCount() == 0
wait(500)
UO.Print(' You have ' + Str( UO.Count('0x0EED','0x0000') ) + ' Gold' )
EndIf
end sub

sub fast.loot()
var noz=0
uo.set("finddistance","3")
var n,f
uo.findtype("0x2006",-1,"ground")
if uo.findcount()==0 then
 return
 else
 uo.addobject("trup","finditem")
 if noz==1 then
 uo.waittargetobject("finditem")
 uo.useobject(uo.objatlayer("Rhand"))
 wait(600)
 end if
 uo.findtype("0x0ED2",-1,"ground")
 if uo.findcount()>0 then
  uo.addobject("trup","finditem")
  else
  uo.findtype("0x0ECA",-1,"ground")
  if uo.findcount()>0 then
   uo.addobject("trup","finditem")
  end if
 end if
end if
Dim A[100],color[5]
color[0]="0x0BAB" ;Азур
color[1]="0x0BAC" ;Меф
color[2]="0x0B2E" ;Аблаз
color[3]="0x19B9" ;Анц
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 ;Щит
A[22]= 0x0EED ;GOLD
A[23]= 0x1365 ;GOLD
A[24]= 0x1366 ;GOLD
A[25]= 0x1367 ;GOLD
A[26]= 0x1368 ;GOLD
A[27]= 0x1369 ;GOLD
A[28]= 0x136B ;GOLD
A[29]= 0x1361 ;GOLD
A[30]= 0x1362 ;GOLD
A[31]= 0x1364 ;GOLD

FOR n=1 TO 31
    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
    next
next
end sub