the henhead
2013-01-29 16:30:02
I've tried to get help but it wasn't successful, here's what I tried, it just goes to the colour points but doesn't click. This is for the Private server soulsplit.
program chopper;
{$I SRL/SRL.SIMBA}
procedure ChopTree;
var
x, y: integer;
begin
if FindObjCustom(x, y, ['Maple'], [3171206, 3105155], 10) then
repeat
Mouse(x,y,0,0,false);//right click
Waitoption('Chop down', 200);
wait(1500+random(1000));
until (InvFull);
end;
begin
SetupSRL;
MouseSpeed := 10;
repeat
ChopTree
until(false);
end.
program chopper;
{$I SRL/SRL.SIMBA}
procedure ChopTree;
var
x, y: integer;
begin
if FindObjCustom(x, y, ['Maple'], [3171206, 3105155], 10) then
repeat
Mouse(x,y,0,0, false);
ChooseOption('chop');
wait(1500+random(1000));
until (InvFull);
end;
begin
SetupSRL;
MouseSpeed := 10;
repeat
ChopTree
until(false);
end. I can't make it click the tree