Yoko

if
if
if
if
...
endif
endif
endif

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 
endif
next 

; UO.UnSetReceivingContainer() 
end sub