Trying to work on walking right now, and with ACA its not detecting that the toads are similar to the ground, but when I run the script it searches the ground more than the toads. There's the script if it helps any,
Code:
program SwampToadCollector;
//{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
//==============================================================================
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := ''; // Player username
Pass := ''; // Player password
BoxRewards := ['XP', 'ostume', 'mote', 'oins', 'une', 'ssence'];
LampSkill := Skill_MINING;
Active := True;
end;
end;
//==============================================================================
function ToadColor: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.21, 1.24);
if not (FindColorsTolerance(arP, 1466934, MSX1, MSY1, MSX2, MSY2, 10)) then
begin
//Writeln('Failed to find the color, no result.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);
for i := 0 to arL do
begin
Result := arC[i];
//Writeln('AutoColor = ' + IntToStr(arC[i]));
Break;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
//Writeln('AutoColor failed in finding the color.');
end;
//==============================================================================
procedure PickUpToads;
Var
x, y, PlusOne: Integer;
begin
Repeat
PlusOne:= InvCount +1;
If FindObjCustom(x, y, ['Swamp', 'p toa', 'wam', 'oad'], [ToadColor], 0)Then
Mouse(x, y, 1, 1, True);
Flag;
Until (InvFull)
end;
//==============================================================================
begin
SetupSRL;
DeclarePLayers;
//Repeat
PickUpToads;
//Until(false);
end.