crazyidkdog
2012-05-10 23:30:54
this loots bones beside lumbridge and burys them, this script is basic and free xp.
Start beside a bone in the lumbridge chicken coop.
Start beside a bone in the lumbridge chicken coop.
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.