Simba Code:
program new;
//{.include srl/srl.scar}
{$I SRL/SRL.Simba}
var
LogBalance1, LogBalance2, LogBalance3, LogBalance4, LogBalance5, LogBalance6, LogBalance7, LogBalance8 : integer;
Procedure LoadColor;
begin
LogBalance1 := 605282;
LogBalance2 := 604509;
LogBalance3 := 605798;
LogBalance4 := 602190;
LogBalance5 := 606571;
LogBalance6 := 603480;
LogBalance7 := 603219;
LogBalance8 := 601162;
end;
procedure CrossLogBalance;
var
x, y : integer;
aFound : extended;
begin
if FindColorSpiralTolerance( x, y, LogBalance1, 180, 160, 327, 226, 1) or
FindColorSpiralTolerance( x, y, LogBalance2, 180, 160, 327, 226, 1) or
FindColorSpiralTolerance( x, y, LogBalance3, 180, 160, 327, 226, 1) or
FindColorSpiralTolerance( x, y, LogBalance4, 180, 160, 327, 226, 1) or
FindColorSpiralTolerance( x, y, LogBalance5, 180, 160, 327, 226, 1) or
FindColorSpiralTolerance( x, y, LogBalance6, 180, 160, 327, 226, 1) or
FindColorSpiralTolerance( x, y, LogBalance7, 180, 160, 327, 226, 1) or
FindColorSpiralTolerance( x, y, LogBalance8, 180, 160, 327, 226, 1) then
begin
writeln('Found Log Balance');
Mouse( x, y, 1, 1, True);
end else
Writeln('Log Balance NOT found... Attempting to retry...');
Wait(1000);
CrossLogBalance;
end;
begin
LoadColor;
SetAngle(SRL_ANGLE_HIGH);
MouseSpeed:= 20;
MakeCompass('n');
CrossLogBalance;
end.