Need help I need there to be a find ent and avoid ent
Anyone plz help
SCAR Code:
program PowahChopah;
{.include SRL/SRL.scar}
const
treecolor1= 3044197;//set the color of the rock
treecolor2= 2978147;//set color of rock (these aren't the real colors)
var x,y: integer;
Procedure ChopWillow;
begin
if not LoggedIn then
Exit;
repeat
if FindObjCustom(x, y, ['Wil', 'low'], [treecolor1, treecolor2], 7) then
begin
MoveMouseSmoothEx(x,y, 20,40,45,25,20);
Wait(1);
clickmouse(x,y,false);
Wait(500+(random(150)));
ChooseOption('hop')
writeln('found tree');
wait(8000 + random (500));
end else
writeln('couldnt find rock');
until( InvFull )
end;
Procedure Droplogs;
var
X, Y: Integer;
I : Byte;
begin
if InvFull then
for i := 2 to 28 do
if ExistsItem(I) then
begin
MMouseItem(I);
Wait(10 + random(7));
if Pos('log', RS_GetUpText) <> 0 then
begin
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
ChooseOption('rop');
Wait(10 + random(7));
end;
end;
end;
begin
SetupSRL;
repeat
ChopWillow;
droplogs;
until(false);
end.
Thanks