sub LootFromBones() 
var Bones=' type ' 
var dagger=' type ' 
var i , bonescontainer 
 DIM loot[2] 

  loot[0]='' 
  loot[1]='' 

  uo.WaitTargetObject('lastcorpse') 
  uo.UseType(dagger) 
  uo.FindType(Bones,'-1','ground') 
  if uo.FindCount() then 
    bonescontainer = uo.GetSerial('finditem') 
    uo.UseObject('bonescontainer') 
    for i = 0 to 1 
      uo.FindType(loot[i],'-1','bonescontainer') 
      if uo.FindCount() then 
        uo.moveitem('finditem','all') 
        wait(750) 
      end if 
    next 
    uo.Print(' There is nothing good in the corpse ') 
  else 
    uo.Print('You cant find any corpse around yourself') 
  end if 
end sub

'0x0ECA'
'0x0ECB'
'0x0ECC'
'0x0ECD'
'0x0ECE'
'0x0ECF'
'0x0ED0'
'0x0ED1'
'0x0ED2'

sub LootFromBones() 
var dagger=' type ' 
var i, j, bonescontainer, Exit
 DIM loot[2] 
 DIM Bones[8]

  Bones[0]='0x0ECA'
  Bones[1]='0x0ECB' 
  Bones[2]='0x0ECC' 
  Bones[3]='0x0ECE' 
  Bones[4]='0x0ECF' 
  Bones[5]='0x0ED0' 
  Bones[6]='0x0ED1' 
  Bones[7]='0x0ED2'

  loot[0]=
  loot[1]=


  uo.WaitTargetObject('lastcorpse') 
  uo.UseType(dagger) 

  Exit=0
  j=0
  While j<=7 OR Exit==1
    uo.FindType(Bones[j],'-1','ground') 
    wait(300)
    if uo.FindCount() then 
      bonescontainer = uo.GetSerial('finditem')
      Exit=1
      uo.UseObject('bonescontainer') 
    for i = 0 to 1 
      uo.FindType(loot[i],'-1','bonescontainer') 
      if uo.FindCount() then 
        uo.moveitem('finditem','all') 
        wait(750) 
      end if 
    next 
    uo.Print(' There is nothing good in the corpse ') 
    endif
    j=j+1
  Wend
end sub

 uo.FindType(loot[i],'-1','bonescontainer')

  loot[0]= 
  loot[1]=