I just made this since i have been asked about it. You can implement it into your script if you want to, but you have to give 100% credit to me on this function ok! 
All it is is it goes through the inv without having object dtm's so it will bury any bones without dtms and with other things spread out through out the inventory!
I might put this one in my caff kill script since this is better than the one in there!
Simba Code:
program Bury;
{$DEFINE SMART}
{$i SRL\SRL.simba}
Procedure Bury;
var
I: Integer;
begin
for i := 1 to 28 do
begin
InvMouse(I, 3);
if IsUpText('Bury') then
begin
ClickMouse2(True);
Wait(RandomRange(950, 975));
end;
end;
exit;
end;
procedure SetupChar;
begin
SetupSRL();
SetAngle(0);
ClickNorth(0);
end;
procedure Startup;
begin
Smart_Server := 69;
Smart_Members:= true;
Smart_Signed := true;
Smart_SuperDetail := false;
SetupSRL;
MouseSpeed := 10;
wait(100+random(100));
end;
Begin
Startup;
SetupChar;
Repeat
Bury;
Until Not(loggedin);
end.