Try this one
Code:
sub LooterNew()
VAR i, n
VAR w = 500 ; the delay after a move
VAR razmer = 9 ; the size of the DIM
DIM Loot[9]
Loot[1] = '0x0EED'
Loot[2] = '0x1BD1'
Loot[3] = '0x0F87'
Loot[4] = '0x14ED'
Loot[5] = '0x0EED'
Loot[6] = '0x1031'
Loot[7] = '0x0F51'
Loot[8] = '0x0F51'
Loot[9] = '0x0F06'
if uo.getdistance( 'lastcorpse' ) < 3 then
uo.deletejournal()
repeat
uo.findtype( '-1', '-1', 'lastcorpse' )
n = 0
for i = 1 to razmer
if uo.getgraphic( 'finditem' ) == Loot[i] then
uo.moveitem( 'finditem', 'all', 'my' )
wait(w)
if uo.injournal( 'UNSP' ) then
wait(w*2)
uo.deletejournal()
endif
n = 1
goto nextitem
endif
next
if n == 0 then
uo.ignore( 'finditem' )
endif
nextitem:
until uo.findcount() == 0
else
uo.print( 'The Corpse is too far' )
endif
endsub