SRL Archive - Help and Support

Cannot Find Road Color

Torrent of Flame

2008-12-19 10:00:06

So I'm getting into the flow of things again, but my SCAR willnot find the Road Color when I run this procedure;

program New;
{.include SRL/srl.scar}

var x, y: integer;

function WalkToMineDDTM(WalkNumber: Integer): Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array[0..5] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  case WalkNumber of
    1: begin
         dtmMainPoint.x := 755;
         dtmMainPoint.y := 198;
         dtmMainPoint.AreaSize := 0;
         dtmMainPoint.AreaShape := 0;
         dtmMainPoint.Color := 237;
         dtmMainPoint.Tolerance := 0;

         dtmSubPoints[0].x := 755;
         dtmSubPoints[0].y := 198;
         dtmSubPoints[0].AreaSize := 0;
         dtmSubPoints[0].AreaShape := 0;
         dtmSubPoints[0].Color := 237;
         dtmSubPoints[0].Tolerance := 0;

         dtmSubPoints[1].x := 752;
         dtmSubPoints[1].y := 182;
         dtmSubPoints[1].AreaSize := 0;
         dtmSubPoints[1].AreaShape := 0;
         dtmSubPoints[1].Color := FindRoadColor;
         dtmSubPoints[1].Tolerance := 0;

         dtmSubPoints[2].x := 750;
         dtmSubPoints[2].y := 189;
         dtmSubPoints[2].AreaSize := 0;
         dtmSubPoints[2].AreaShape := 0;
         dtmSubPoints[2].Color := FindRoadColor;
         dtmSubPoints[2].Tolerance := 0;

         dtmSubPoints[3].x := 749;
         dtmSubPoints[3].y := 195;
         dtmSubPoints[3].AreaSize := 0;
         dtmSubPoints[3].AreaShape := 0;
         dtmSubPoints[3].Color := FindRoadColor;
         dtmSubPoints[3].Tolerance := 0;

         dtmSubPoints[4].x := 748;
         dtmSubPoints[4].y := 200;
         dtmSubPoints[4].AreaSize := 0;
         dtmSubPoints[4].AreaShape := 0;
         dtmSubPoints[4].Color := FindRoadColor;
         dtmSubPoints[4].Tolerance := 0;

         dtmSubPoints[5].x := 745;
         dtmSubPoints[5].y := 204;
         dtmSubPoints[5].AreaSize := 0;
         dtmSubPoints[5].AreaShape := 0;
         dtmSubPoints[5].Color := FindRoadColor;
         dtmSubPoints[5].Tolerance := 0;

         TempTDTM.MainPoint := dtmMainPoint;
         TempTDTM.SubPoints := dtmSubPoints;
         Result := AddDTM(TempTDTM);
       end;

    2: begin
         dtmMainPoint.x := 762;
         dtmMainPoint.y := 223;
         dtmMainPoint.AreaSize := 0;
         dtmMainPoint.AreaShape := 0;
         dtmMainPoint.Color := 15491905;
         dtmMainPoint.Tolerance := 0;

         dtmSubPoints[0].x := 762;
         dtmSubPoints[0].y := 223;
         dtmSubPoints[0].AreaSize := 0;
         dtmSubPoints[0].AreaShape := 0;
         dtmSubPoints[0].Color := 15491905;
         dtmSubPoints[0].Tolerance := 0;

         dtmSubPoints[1].x := 749;
         dtmSubPoints[1].y := 190;
         dtmSubPoints[1].AreaSize := 0;
         dtmSubPoints[1].AreaShape := 0;
         dtmSubPoints[1].Color := FindRoadColor;
         dtmSubPoints[1].Tolerance := 0;

         dtmSubPoints[2].x := 738;
         dtmSubPoints[2].y := 193;
         dtmSubPoints[2].AreaSize := 0;
         dtmSubPoints[2].AreaShape := 0;
         dtmSubPoints[2].Color := FindRoadColor;
         dtmSubPoints[2].Tolerance := 0;

         dtmSubPoints[3].x := 738;
         dtmSubPoints[3].y := 220;
         dtmSubPoints[3].AreaSize := 0;
         dtmSubPoints[3].AreaShape := 0;
         dtmSubPoints[3].Color := FindRoadColor;
         dtmSubPoints[3].Tolerance := 0;

         dtmSubPoints[4].x := 761;
         dtmSubPoints[4].y := 203;
         dtmSubPoints[4].AreaSize := 0;
         dtmSubPoints[4].AreaShape := 0;
         dtmSubPoints[4].Color := FindRoadColor;
         dtmSubPoints[4].Tolerance := 0;

         dtmSubPoints[5].x := 745;
         dtmSubPoints[5].y := 184;
         dtmSubPoints[5].AreaSize := 0;
         dtmSubPoints[5].AreaShape := 0;
         dtmSubPoints[5].Color := FindRoadColor;
         dtmSubPoints[5].Tolerance := 0;

         TempTDTM.MainPoint := dtmMainPoint;
         TempTDTM.SubPoints := dtmSubPoints;
         Result := AddDTM(TempTDTM);
      end;
   end;
end;

function WalkToTheMine1: Boolean;
var
  WalkDTM: integer;

begin
  WalkDTM := WalkToMineDDTM(1);
  if FindDTM(WalkDTM, x, y, MMX1,MMY1,MMX2,MMY2) then
  begin
    Mouse(x, y, 5, 5, True);
    FFlag(1);
    Result := True;
  end else
    if RadialWalk(FindRoadColor, 30, 115, 60, 1, 1) then
    begin
      Result := True;
    end else
    begin
      Result := False;
      Writeln(' Walking Phase 1 Failed. Logging Out. ')
      FreeDTM(WalkDTM);
      if not (Result) then
      begin
        Logout;
      end;
    end;
end;

function WalkToTheMine2: Boolean;
var
  WalkDTM: integer;
begin
  WalkDTM := WalkToMineDDTM(2);
  if FindDTM(WalkDTM, X, Y, MMX1,MMY1,MMX2,MMY2) then
  begin
    Mouse(x, y, 5, 5, True);
    FFlag(1);
    Result := True;
  end else
    if RadialWalk(FindRoadColor, 0, 135, 60, 1, 1) then
    begin
      Result := True;
    end else
    begin
      Result := False;
      Writeln(' Walking Phase 1 Failed. Logging Out. ')
      FreeDTM(WalkDTM);
      if not (Result) then
      begin
        Logout;
      end;
    end;
end;

begin;
  ClearDebug;
  MakeCompass('E');
  WalkToTheMine1;
  WalkToTheMine2;
  Logout;
end.

Debug says;

Could not find Road Color!
Could not find Road Color!
Could not find Road Color!
Could not find Road Color!
Could not find Road Color!
Could not find Road Color!
 Walking Phase 1 Failed. Logging Out.

Although it never actually Logs out, although I call it to.

Help appreciated! :)

Kyle Undefined

2008-12-19 10:40:13

I don't know if this is needed but shouldn't the main loop have SetupSRL;?

begin;
  SetupSRL;
  ClearDebug;
  MakeCompass('E');
  WalkToTheMine1;
  WalkToTheMine2;
  Logout;
end.

Besides that your walking should work. Looks good to be rusty :p If that doesn't work, then try adding a tolerance to the first two colors as well as some size. Hope this helps ;)

~Camo

Torrent of Flame

2008-12-19 10:45:02

Hmm.. Maybe SetupSRL; is what I was missing :o

I'll give it a shot :)

If it doesn't work then Ill try adding tolerance

Torrent of Flame

2008-12-19 10:50:11

Could not find Road Color!
Could not find Road Color!
Could not find Road Color!
Could not find Road Color!
Could not find Road Color!
Could not find Road Color!
Walking Phase 1 Failed. Logging Out.
Could not find Road Color!
Could not find Road Color!
Could not find Road Color!
Could not find Road Color!
Could not find Road Color!
Could not find Road Color!
Walking Phase 1 Failed. Logging Out.
Successfully executed

*Sigh*

Cazax

2008-12-19 10:56:46

For what road color are you searching? Make sure that FindRoadColor works there.

Naum

2008-12-19 11:12:50

Check AutoColor.scar, the Dev's have added new procs :)

Torrent of Flame

2008-12-19 11:12:52

Falador RoadColor = 5464940
Falador RoadColor = 5464940
Falador RoadColor = 5464940
Falador RoadColor = 5464940
Falador RoadColor = 5464940
Falador RoadColor = 5464940
Falador RoadColor = 5464940
Canneh find DDTM
Falador RoadColor = 5464940
Falador RoadColor = 5464940
Falador RoadColor = 5464940
Falador RoadColor = 5464940
Falador RoadColor = 5464940
Falador RoadColor = 5464940
Falador RoadColor = 5464940
Falador RoadColor = 5464940
Canneh find DDTM
Falador RoadColor = 5464940
Canneh find DDTM
Falador RoadColor = 5464940
Successfully executed

It walks now, but it never finds the DDTM, always switches to RadialWalk.

program New;
{.include SRL/srl.scar}

var x, y: integer;

function WalkToMineDDTM(WalkNumber: Integer): Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array[0..6] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  case WalkNumber of
    1: begin
  dtmMainPoint.x := 748;
  dtmMainPoint.y := 204;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 244;
  dtmMainPoint.Tolerance := 0;

  dtmSubPoints[0].x := 748;
  dtmSubPoints[0].y := 204;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := FindFallyRoadColor;
  dtmSubPoints[0].Tolerance := 0;

  dtmSubPoints[1].x := 745;
  dtmSubPoints[1].y := 185;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := FindFallyRoadColor;
  dtmSubPoints[1].Tolerance := 0;

  dtmSubPoints[2].x := 743;
  dtmSubPoints[2].y := 193;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := FindFallyRoadColor;
  dtmSubPoints[2].Tolerance := 0;

  dtmSubPoints[3].x := 742;
  dtmSubPoints[3].y := 200;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := FindFallyRoadColor;
  dtmSubPoints[3].Tolerance := 0;

  dtmSubPoints[4].x := 739;
  dtmSubPoints[4].y := 205;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := FindFallyRoadColor;
  dtmSubPoints[4].Tolerance := 0;

  dtmSubPoints[5].x := 750;
  dtmSubPoints[5].y := 182;
  dtmSubPoints[5].AreaSize := 0;
  dtmSubPoints[5].AreaShape := 0;
  dtmSubPoints[5].Color := FindFallyRoadColor;
  dtmSubPoints[5].Tolerance := 0;

  dtmSubPoints[6].x := 742;
  dtmSubPoints[6].y := 181;
  dtmSubPoints[6].AreaSize := 0;
  dtmSubPoints[6].AreaShape := 0;
  dtmSubPoints[6].Color := FindFallyRoadColor;
  dtmSubPoints[6].Tolerance := 0;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
       end;

    2: begin
  dtmMainPoint.x := 737;
  dtmMainPoint.y := 191;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 235;
  dtmMainPoint.Tolerance := 0;

  dtmSubPoints[0].x := 737;
  dtmSubPoints[0].y := 191;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := FindFallyRoadColor;
  dtmSubPoints[0].Tolerance := 0;

  dtmSubPoints[1].x := 751;
  dtmSubPoints[1].y := 186;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := FindFallyRoadColor;
  dtmSubPoints[1].Tolerance := 0;

  dtmSubPoints[2].x := 753;
  dtmSubPoints[2].y := 194;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := FindFallyRoadColor;
  dtmSubPoints[2].Tolerance := 0;

  dtmSubPoints[3].x := 734;
  dtmSubPoints[3].y := 201;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := FindFallyRoadColor;
  dtmSubPoints[3].Tolerance := 0;

  dtmSubPoints[4].x := 709;
  dtmSubPoints[4].y := 200;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := FindFallyRoadColor;
  dtmSubPoints[4].Tolerance := 0;

  dtmSubPoints[5].x := 704;
  dtmSubPoints[5].y := 198;
  dtmSubPoints[5].AreaSize := 0;
  dtmSubPoints[5].AreaShape := 0;
  dtmSubPoints[5].Color := FindFallyRoadColor;
  dtmSubPoints[5].Tolerance := 0;

  dtmSubPoints[6].x := 745;
  dtmSubPoints[6].y := 200;
  dtmSubPoints[6].AreaSize := 0;
  dtmSubPoints[6].AreaShape := 0;
  dtmSubPoints[6].Color := FindFallyRoadColor;
  dtmSubPoints[6].Tolerance := 0;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

3: begin
  dtmMainPoint.x := 737;
  dtmMainPoint.y := 191;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 235;
  dtmMainPoint.Tolerance := 0;

  dtmSubPoints[0].x := 737;
  dtmSubPoints[0].y := 191;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 235;
  dtmSubPoints[0].Tolerance := 0;

  dtmSubPoints[1].x := 751;
  dtmSubPoints[1].y := 186;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 5464940;
  dtmSubPoints[1].Tolerance := 0;

  dtmSubPoints[2].x := 753;
  dtmSubPoints[2].y := 194;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 5464940;
  dtmSubPoints[2].Tolerance := 0;

  dtmSubPoints[3].x := 734;
  dtmSubPoints[3].y := 201;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 5464940;
  dtmSubPoints[3].Tolerance := 0;

  dtmSubPoints[4].x := 709;
  dtmSubPoints[4].y := 200;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 5464940;
  dtmSubPoints[4].Tolerance := 0;

  dtmSubPoints[5].x := 704;
  dtmSubPoints[5].y := 198;
  dtmSubPoints[5].AreaSize := 0;
  dtmSubPoints[5].AreaShape := 0;
  dtmSubPoints[5].Color := 5464940;
  dtmSubPoints[5].Tolerance := 0;

  dtmSubPoints[6].x := 745;
  dtmSubPoints[6].y := 200;
  dtmSubPoints[6].AreaSize := 0;
  dtmSubPoints[6].AreaShape := 0;
  dtmSubPoints[6].Color := 5464940;
  dtmSubPoints[6].Tolerance := 0;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;
   end;
end;

function WalkToTheMine1: Boolean;
var
  WalkDTM: integer;

begin
  WalkDTM := WalkToMineDDTM(1);
  if FindDTM(WalkDTM, x, y, MMX1,MMY1,MMX2,MMY2) then
  begin
    Mouse(x, y, 5, 5, True);
    FFlag(0);
    Result := True;

  end else
    Writeln('Canneh find DDTM');
    if RadialWalk(FindFallyRoadColor, 350, 20, 60, 1, 1) then
    begin
      Result := True;
    end else
    begin
      Result := False;
      Writeln(' Walking Phase 1 Failed. Logging Out. ')
      FreeDTM(WalkDTM);
      if not (Result) then
      begin
        Logout;
      end;
    end;
end;

function WalkToTheMine2: Boolean;
var
  WalkDTM: integer;
begin
  WalkDTM := WalkToMineDDTM(2);
  if FindDTM(WalkDTM, X, Y, MMX1,MMY1,MMX2,MMY2) then
  begin
    Mouse(x, y, 5, 5, True);
    FFlag(0);
    Result := True;
  end else
    Writeln('Canneh find DDTM');
    if RadialWalk(FindFallyRoadColor, 8, 30, 35, 1, 1) then
    begin
      Result := True;
    end else
    begin
      Result := False;
      Writeln(' Walking Phase 2 Failed. Logging Out. ')
      FreeDTM(WalkDTM);
      if not (Result) then
      begin
      end;
    end;
end;

function WalkToTheMine3: Boolean;
var
  WalkDTM: integer;
begin
  WalkDTM := WalkToMineDDTM(3);
  if FindDTM(WalkDTM, X, Y, MMX1,MMY1,MMX2,MMY2) then
  begin
    Mouse(x, y, 5, 5, True);
    FFlag(0);
    Result := True;
  end else
    Writeln('Canneh find DDTM');
    if RadialWalk(FindFallyRoadColor, 8, 30, 35, 1, 1) then
    begin
      Result := True;
    end else
    begin
      Result := False;
      Writeln(' Walking Phase 3 Failed. Logging Out. ')
      FreeDTM(WalkDTM);
      if not (Result) then
      begin
      end;
    end;
end;

begin;
  SetupSRL;
  ClearDebug;
  MakeCompass('E');
  WalkToTheMine1;
  WalkToTheMine2;
  WalkToTheMine3;
  Logout;
end.

Naum

2008-12-19 11:18:05

Check Main Point tolerance ;)

Torrent of Flame

2008-12-19 12:23:04

Will do.

NiCbaZ

2008-12-19 16:14:43

DDTM's are a pain to get right imho, i put main point tol 225..

[-jesus-]

2008-12-19 19:27:31

From: NiCbaZ
DDTM's are a pain to get right imho, i put main point tol 225..

You mean 255?

Torrent of Flame

2008-12-20 06:51:37

program New;
{.include SRL/srl.scar}

var x, y: integer;

function WalkToMineDDTM(WalkNumber: Integer): Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array[0..6] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  case WalkNumber of
  1: begin
  dtmMainPoint.x := 740;
  dtmMainPoint.y := 193;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 231;
  dtmMainPoint.Tolerance := 0;

  dtmSubPoints[0].x := 740;
  dtmSubPoints[0].y := 193;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 231;
  dtmSubPoints[0].Tolerance := 25;

  dtmSubPoints[1].x := 734;
  dtmSubPoints[1].y := 183;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := FindFallyRoadColor;
  dtmSubPoints[1].Tolerance := 0;

  dtmSubPoints[2].x := 732;
  dtmSubPoints[2].y := 185;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := FindFallyRoadColor;
  dtmSubPoints[2].Tolerance := 0;

  dtmSubPoints[3].x := 730;
  dtmSubPoints[3].y := 188;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := FindFallyRoadColor;
  dtmSubPoints[3].Tolerance := 0;

  dtmSubPoints[4].x := 731;
  dtmSubPoints[4].y := 182;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := FindFallyRoadColor;
  dtmSubPoints[4].Tolerance := 0;

  dtmSubPoints[5].x := 736;
  dtmSubPoints[5].y := 181;
  dtmSubPoints[5].AreaSize := 0;
  dtmSubPoints[5].AreaShape := 0;
  dtmSubPoints[5].Color := FindFallyRoadColor;
  dtmSubPoints[5].Tolerance := 0;

  dtmSubPoints[6].x := 728;
  dtmSubPoints[6].y := 188;
  dtmSubPoints[6].AreaSize := 0;
  dtmSubPoints[6].AreaShape := 0;
  dtmSubPoints[6].Color := FindFallyRoadColor;
  dtmSubPoints[6].Tolerance := 0;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
   end;

2: begin
  dtmMainPoint.x := 726;
  dtmMainPoint.y := 187;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 231;
  dtmMainPoint.Tolerance := 255;

  dtmSubPoints[0].x := 726;
  dtmSubPoints[0].y := 187;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := FindFallyRoadColor;
  dtmSubPoints[0].Tolerance := 0;

  dtmSubPoints[1].x := 698;
  dtmSubPoints[1].y := 203;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := FindFallyRoadColor;
  dtmSubPoints[1].Tolerance := 0;

  dtmSubPoints[2].x := 703;
  dtmSubPoints[2].y := 204;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := FindFallyRoadColor;
  dtmSubPoints[2].Tolerance := 0;

  dtmSubPoints[3].x := 694;
  dtmSubPoints[3].y := 204;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := FindFallyRoadColor;
  dtmSubPoints[3].Tolerance := 0;

  dtmSubPoints[4].x := 712;
  dtmSubPoints[4].y := 202;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := FindFallyRoadColor;
  dtmSubPoints[4].Tolerance := 0;

  dtmSubPoints[5].x := 696;
  dtmSubPoints[5].y := 204;
  dtmSubPoints[5].AreaSize := 0;
  dtmSubPoints[5].AreaShape := 0;
  dtmSubPoints[5].Color := FindFallyRoadColor;
  dtmSubPoints[5].Tolerance := 0;

  dtmSubPoints[6].x := 711;
  dtmSubPoints[6].y := 204;
  dtmSubPoints[6].AreaSize := 0;
  dtmSubPoints[6].AreaShape := 0;
  dtmSubPoints[6].Color := FindFallyRoadColor;
  dtmSubPoints[6].Tolerance := 0;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
   end;
end;
    
function WalkToTheMine1: Boolean;
var
  WalkDTM: integer;
begin
  WalkDTM := WalkToMineDDTM(1);
  if FindDTM(WalkDTM, x, y, MMX1,MMY1,MMX2,MMY2) then
  begin
    Mouse(x, y, 5, 5, True);
    FFlag(0);
    Result := True;
  end else
    Writeln('Canneh find DDTM');
    if RadialWalk(FindFallyRoadColor, 350, 20, 60, 1, 1) then
    begin
      Result := True;
    end else
    begin
      Result := False;
      Writeln(' Walking Phase 1 Failed. Logging Out. ')
      FreeDTM(WalkDTM);
      if not (Result) then
      begin
        Logout;
      end;
    end;
end;

function WalkToTheMine2: Boolean;
var
  WalkDTM: integer;
begin
  WalkDTM := WalkToMineDDTM(2);
  if FindDTM(WalkDTM, X, Y, MMX1,MMY1,MMX2,MMY2) then
  begin
    Mouse(x, y, 5, 5, True);
    FFlag(0);
    Result := True;
  end else
    Writeln('Canneh find DDTM');
    if RadialWalk(FindFallyRoadColor, 8, 30, 35, 1, 1) then
    begin
      Result := True;
    end else
    begin
      Result := False;
      Writeln(' Walking Phase 2 Failed. Logging Out. ')
      FreeDTM(WalkDTM);
      if not (Result) then
      begin
      end;
    end;
end;

{function WalkToTheMine3: Boolean;
var
  WalkDTM: integer;
begin
  WalkDTM := WalkToMineDDTM(3);
  if FindDTM(WalkDTM, X, Y, MMX1,MMY1,MMX2,MMY2) then
  begin
    Mouse(x, y, 5, 5, True);
    FFlag(0);
    Result := True;
  end else
    Writeln('Canneh find DDTM');
    if RadialWalk(FindFallyRoadColor, 8, 30, 35, 1, 1) then
    begin
      Result := True;
    end else
    begin
      Result := False;
      Writeln(' Walking Phase 3 Failed. Logging Out. ')
      FreeDTM(WalkDTM);
      if not (Result) then
      begin
      end;
    end;
end;            }

begin;
  SetupSRL;
  ClearDebug;
  MakeCompass('E');
  WalkToTheMine1;
  WalkToTheMine2;
{ WalkToTheMine3; }
  Logout;
end.

Now I get identifier expected? Grr.

EDIT: Got it, didnt end the case… duuuh! :o
EDIT2: I give up, it fails. For real, the DDTM never works.