uo.set('distance','2')
DIM Loot[25]
Loot[0] = 0x0F79; # Blackmoors
Loot[1] = 0x0F7C; # Blood's Spawns
Loot[2] = 0x0F7D; # Vial's Of Bloods 
Loot[3] = 0x0F7E; # Bones
Loot[4] = 0x0F7F; # Brimstones
Loot[5] = 0x0F80; # Daemon's Bones
Loot[6] = 0x0F82; # Dragon's Bloods
Loot[7] = 0x0F83; # Executioners Caps
Loot[8] = 0x0F90; # Dead's woods
Loot[9] = 0x0F7B; # Serpents Scales
Loot[10] = 0x0F81; # Fertile's Dirts
Loot[11] = 0x0F8F; # Volcanic's Ashs
Loot[12] = 0x0F78; # Bat's wings
Loot[13] = 0x0F88; 
Loot[14] = 0x0F8D;
Loot[15] = 0x0F86;
Loot[16] = 0x0F8C;
Loot[17] = 0x0F7A;
Loot[18] = 0x0F7B;
Loot[19] = 0x0F85;
Loot[20] = 0x0F84;
Loot[21] = 0x0EED;
Loot[22] = 0x1078;
Loot[23] = 0x1078;
Loot[24] = 0x1078;
Loot[25] = 0x0F87;

DIM Text[25]
Text[0] = 'Arrows'
Text[1] = 'Diamons'
Text[2] = 'Arrows'
Text[3] = 'Diamons'
Text[4] = 'Arrows'
Text[5] = 'Diamons'
Text[6] = 'Arrows'
Text[7] = 'Diamons'
Text[8] = 'Arrows'
Text[9] = 'Diamons'
Text[10] = 'Arrows'
Text[11] = 'Diamons'
Text[12] = 'Arrows'
Text[13] = 'Diamons'
Text[14] = 'Arrows'
Text[15] = 'Diamons'
Text[16] = 'Arrows'
Text[17] = 'Diamons'
Text[18] = 'Arrows'
Text[19] = 'Diamons'
Text[20] = 'Arrows'
Text[21] = 'Diamons'
Text[22] = 'Arrows'
Text[23] = 'Diamons'
Text[24] = 'Arrows'


DIM Vars[25]
Vars[0] = uo.ar
Vars[1] = uo.count('0x0F26')
Vars[2] = uo.ar
Vars[3] = uo.count('0x0F26')
Vars[4] = uo.ar
Vars[5] = uo.count('0x0F26')
Vars[6] = uo.ar
Vars[7] = uo.count('0x0F26')
Vars[8] = uo.ar
Vars[9] = uo.count('0x0F26')
Vars[10] = uo.ar
Vars[11] = uo.count('0x0F26')
Vars[12] = uo.ar
Vars[13] = uo.count('0x0F26')
Vars[14] = uo.ar
Vars[15] = uo.count('0x0F26')
Vars[16] = uo.ar
Vars[17] = uo.count('0x0F26')
Vars[18] = uo.ar
Vars[19] = uo.count('0x0F26')
Vars[20] = uo.ar
Vars[21] = uo.count('0x0F26')
Vars[22] = uo.ar
Vars[23] = uo.count('0x0F26')
Vars[24] = uo.ar



while true
while uo.countonground('0x2006') > 0
if UO.Weight > 40000 then
uo.print("Too much weight! There're "+STR(UO.Gold)+" gold coins in backpack!")
uo.waittargettype('0x0EED')
wait(1000)
uo.useobject('0x40157FBF')
wait(1000)
goto end
end if
uo.findtype('0x2006','-1','ground')
if uo.findcount() > 0 then
corpse=uo.getserial('finditem')
uo.print("Found "+str(uo.findcount())+" corpse(s)!")
for i=0 to 24
j=0
repeat
UO.FindType(Loot[i],-1,corpse)
if UO.GetQuantity('finditem') then
UO.MoveItem('finditem','0','backpack')
uo.print("Looted: "+STR(UO.GetQuantity('finditem'))+" "+Text[i]+"! In All:
"+STR(vars[i]+UO.GetQuantity('finditem')))
wait(800)
end if
j = j + 1
if j > 15 then
goto stuck
end if
until uo.findcount()==0
next
stuck:
uo.ignore(corpse)
Else
uo.print("No Corpses Beside!!!")
end if
end:
wend
wait(600)
wend