sub Loot() 
var i,n 
Dim A[38] 
A[1] = 0x0f7b ;BloodMoss 
A[2] = 0x0f09 ;Invisibility 
A[3] = 0x0f09 ;ManaRefresh 
A[4] = 0x0f0b ;Refresh 
A[5] = 0x13B9 ;VikingSword 
A[6] = 0x0f0c ;Heal 
A[7] = 0x143E ;Halberd 
A[8] = 0x1ce1 ;haed 
A[9] = 0x1f14 ;Runa 
A[10] = 0x204e ;RobeOfDarkMage 
A[11] = 0x0f51 ;Dagger 
A[12] = 0x0f7a ;BlackPearl 
A[13] = 0x1404 ;WarFork 
A[14] = 0x0f84 ;Garlic 
A[15] = 0x0f85 ;Ginseng 
A[16] = 0x1B76 ;Heater 
A[17] = 0x1411 ;PlatemailLegs 
A[18] = 0x1415 ;Platemail 
A[19] = 0x1410 ;PlatemailArms 
A[20] = 0x1414 ;PlatemailGauntlets 
A[21] = 0x1412 ;PlatemailHelm 
A[22] = 0x1413 ;PlatemailHelm 
A[23] = 0x1F40 ;Poison 
A[24] = 0x1F4A ;Light 
A[25] = 0x0f86 ;MandrakeRoot 
A[26] = 0x0f88 ;Nightshade 
A[27] = 0x0E76 ;Bag 
A[28] = 0x09B0 ;BeltPouch 
A[29] = 0x0E75 ;Backpack 
A[30] = 0x0E21 ;bandage 
A[31] = 0x1F5F ;FS 
A[32] = 0x1F49 ;GH 
A[33] = 0x1F4C ;Recall 
A[34] = 0x0f8c ;SulphorousAsh 
A[35] = 0x0f8d ;SpidersSilk 
A[36] = 0x0EED ;Gold 
A[37] = 0x1BD1; Feathers 
A[38] = 0x09F1; myaso ptichek 

UO.WaitTargetObject("lastcorpse") 
UO.useobject (0x4013EE14); ID того,чем будешь резать 
wait(1000) 

i = 1200 
FOR n=1 TO 38 
uo.findtype(A[n],"-1","lastcorpse") 
if uo.findcount() > 0 then 
UO.grab(1, "finditem") 
uo.print("Found "+str(uo.findcount())) 
Wait(i) 
END if 
next 
end sub

uo.findtype(A[n],"-1","lastcorpse") 
if uo.findcount() > 0 then 
UO.grab(1, "finditem") 
uo.print("Found "+str(uo.findcount())) 
Wait(i) 
END if 

uo.findtype(A[n],'-1','lastcorpse') 
     if uo.findcount()>0 then 
      uo.waittargetObject('finditem') 
      uo.grab() 
      uo.print("Found "+str(uo.findcount())) 
      wait(i) 
     endif