Question about minimap walking

[hahaz123123]

Ok, Here is my procedures:

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;

I would like to know why it is not walking north. and i would like to implement zephwalk too. DO I HAVE TO DECLARE X AND Y???? or no? and DO I HAVE TO DECLARE A COLOR INTEGER....???

Thanks in advance,
hahaz123123




P.S: PLEASE CUT ME SLACK I BELIEVE THIS IS MY FIRST TIME USING THIS FORUM OK????

[Daniel]

Don't use ZephWalk.