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('DTM not found...');
end;
begin
LoadColor;
SetAngle(SRL_ANGLE_HIGH);
MouseSpeed:= 20;
MakeCompass('n');
CrossLogBalance;
end.