Hi guys ! I just started learning to script and i've done some scripts... i've done chop/fletch/drop, M1D1 and now a loot and bury(in lumby chickens)... All very basic only with the materials i know :$ plz, all feedback is welcome... 
Simba Code:
program New;
{$i SRL\SRL.simba}
var
x, y, Bones: Integer;
procedure FindBones;
var
x, y: Integer;
begin
if FindObj(x, y, 'Take', 10002613, 5)then
Mouse(x, y, 2, 0, False);
ChooseOption('ones');
end;
procedure BuryThem;
var
Bones, x,y: Integer;
begin
Bones:= DTMFromString('mggAAAHicY2NgYJjGxMAwE4gnA3EvEE8C4nlA/Bgodx+I70Hpl0D8FIg3rFjBsHjObIZpEyYAeUwM65YvY1gydy4DLsCIA0MAAAGqElA=');
if FindDTM(Bones, x, y, MIX1, MIY1, MIX2, MIY2) then
Mouse(x, y, 0, 0, True);
end;
begin
SetupSRL;
repeat
repeat
FindBones;
until InvCount > 5;
Wait(500);
WriteLn('We have some bones!');
repeat
BuryThem;
until InvCount < 3;
WriteLn('Bones Buried');
until(False);
FreeDTM(Bones);
end.