sub Loot()
VAR WaitTime=2500
VAR Exit=0, i
DIM Loot[8]
Loot[0]=0x0EED ; gold coin
Loot[1]=0x0E75 ; sumka
Loot[2]=0x0F10 ; emeralds
Loot[3]=0x0F0F ; star sapphires
Loot[4]=0x0F13 ; rubies
Loot[5]=0x0F78 ; Batwings
Loot[6]=0x0F91 ; Wyrm's Hearts
Loot[7]=0x1726 ; Tinkering Materia

UO.UseObject('lastcorpse')
if UO.GetQuantity('lastcorpse') then
UO.WaitTargetObject('lastcorpse')
endif
UO.SetReceivingContainer('0x400C876F') ;
For i=0 to 8
if UO.GetQuantity('lastcorpse') then
UO.FindType( 'Loot[i]', '-1', 'lastcorpse')
if UO.GetQuantity('finditem') then
if Loot[i]==0x1078 then
UO.WaitTargetObject('finditem')
UO.UseType('0x0F9E')
else
UO.Grab(STR(0),'finditem')
endif
wait(WaitTime)
endif
endif
next

; UO.UnSetReceivingContainer()
end sub