Simba Code:
procedure WalkToDitch;
var
RoadColour, x, y : Integer;
begin
Writeln('Checking random crap');
//MMouse(574, 35, 6, 9);
wait(600);
Writeln('Setting North');
ClickNorth(0);
sleep(600);
//StoreToRoadColorArray;
RoadColorChecker;
RoadColour := 4940137;
Writeln('Looking for color to walk!');
wait(900);
if (FindColor(x, y, RoadColour, MMX1, MMY1, MMX2, MMY2)) then
begin
Mouse(x, y, 5, 5, True);
Wait(2000); //Waits 2 seconds for the flag to appear on screen
FFlag(10);
end;
end;
procedure ZephFlag(Dist: Integer);
var
Dx, Dy, m, T: Integer;
begin
MarkTime(T);
repeat
if (FindColor(Dx, Dy, 255, MMX1, MMY1, MMX2, MMY2)) then
begin
m := GetColor(317, 172);
if (Distance(Dx, Dy + 14, MMCX, MMCY) >= Dist) then
begin
Wait(100);
if (TimeFromMark(T) > 15000) then
begin
if (GetColor(317, 172) = m) then
begin
if (FindColor(Dx, Dy, 255, MMX1, MMY1, MMX2, MMY2)) then
Mouse(Dx, Dy + 14, 1, 1, True)
else
Mouse(MMCX, MMCY, 0, 0, True);
Break;
end;
end else
if (TimeFromMark(T) > 30000) then Break;
end else Break;
end;
until(not(FindColor(Dx, Dy, 255, MMX1, MMY1, MMX2, MMY2)));
end;