SCAR Code:
//This is just an example
procedure FindEntAndAntiBan;
begin
SetAngle(False);
MakeCompass('N');
if (FindColor(x, y, EntsEye, MSX1, MSY1, MSX2, MSY2)) then
begin
WriteLn('Ent, Ent!');
RunAway('N', 1, 500);
Result := True;
Exit;
end;
MakeCompass('S');
if (FindColor(x, y, EntsEye, MSX1, MSY1, MSX2, MSY2)) then
begin
WriteLn('Ent, Ent!');
RunAway('N', 1, 500);
Result := True;
Exit;
end;
MakeCompass('E');
if (FindColor(x, y, EntsEye, MSX1, MSY1, MSX2, MSY2)) then
begin
WriteLn('Ent, Ent!');
RunAway('N', 1, 500);
Result := True;
Exit;
end;
MakeCompass('W');
if (FindColor(x, y, EntsEye, MSX1, MSY1, MSX2, MSY2)) then
begin
WriteLn('Ent, Ent!');
RunAway('N', 1, 500);
Result := True;
Exit;
end
else
begin
WriteLn('No ent');
Exit;
end;
Exit;
end;
SCAR Code:
function FindEntText(YellowText : Integer): Boolean;
var
x, y : Integer;
begin
if (FindColor(x, y, YellowText, {Coordinates around the Willow Text})) then
begin
WriteLn('Found Ent');
RunAway('N', 1, 500);
Result := True;
Exit;
end
else
Exit;
end;
procedure ChopWood;
begin
if (FindEntText({paste color of the yellow text})) then
Inc(EntsFound);
//ChopWood//
end;
SCAR Code:
procedure DeclarePlayers;
begin
SRLPlayerForm(True, [], [], [], []);
ActivateClient;
end;