SRL Archive - Help and Support

I have attempted to make a bone burier. I have tried it, but it didn't work that well for me. So I need help. I need to find out how to make a bury procedure and a good report. I have been working on this for more than 10 hours, and would appreciate any help given.

Thanks,
Leader

This should work for burying the bones.

Procedure Bury;
 Var
  I : Integer;
  Co : TPoint;
 Begin
   For I:=0 To 28 Do
    Begin
      Co := ItemCoords(i);
      Mouse(Co.x, Co.y, 4, 4, False);
      Wait(700+Random(500));
      ClickOption('Bury', 1);
    End;
 End;

Look at my CowKiller/BoneBurrier. You may ofcourse copy my code, as long as you credit properly :D

Thanks guys.