ClimbDownLedge: Boolean;

function ClimbDownLedge: Boolean;
var
  CTS, I, WalkDTM, X, Y: Integer;
  Walked: Boolean;
  TestBox: TBox;
  ColorsTPA: TPointArray;
  ColorsATPA: T2DPointArray;
begin
  Result := False;
  Walked := False;

  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(4.77, 0.38);

  MakeCompass(0);
  SetAngle(True);

  case FindColorsTolerance(ColorsTPA, 5527892, MMX1, MMY1, MMX2, MMY2, 7) of

  True:
    begin

      if not Length(ColorsTPA) > 2000 then
        Exit;

      ColorsATPA := SplitTPA(ColorsTPA, 1);
      SortATPAFrom(ColorsATPA, IntToPoint(MMCX, MMCY));

      for I := 0 to High(ColorsATPA) do
      begin

        TestBox := GetTPABounds(ColorsATPA[i]);

        if PointInBox(IntToPoint(MMCX, MMCY), TestBox) then
        begin

          Mouse(TestBox.x1 - 16, TestBox.y1 - 2, 3, 3, True);
          MakeCompass('s');
          Flag;
          Wait(1000 + Random(100));
          Walked := True;
          Break;
        end;
      end;
    end;

  False:
    begin

      WalkDTM := DTMFromString('mlwAAAHicY2dgYHjAysBwC4jvs0LYz4D4KRBfBWJ7RgYG' +
       'RyD2AGJjILYAYl8gdgHRgQEMrOyscPz63Xs4lgOaiwsz48FQAADl1RJv');

      if FindDTM(WalkDTM, X, Y, MMX1, MMY1, MMX2, MMY2) then
      begin

        FreeDTM(WalkDTM);
        Mouse(X - 16, Y - 2, 3, 3,  True);

        MakeCompass('s');
        Flag;
        Wait(1000 + Random(100));
        Walked := True;
      end else
      begin

        SetColorSpeed2Modifiers(0.2, 0.2);
        ColorToleranceSpeed(CTS);
        FreeDTM(WalkDTM);
        Exit;
      end;
    end;
  end;

  if not Walked then
  begin
    SetColorSpeed2Modifiers(0.2, 0.2);
    ColorToleranceSpeed(CTS);
    Exit;
  end;

  SetColorSpeed2Modifiers(0.14, 0.60);
  if FindColorsTolerance(ColorsTPA, 13616579, MSX1, MSY1, MSX2, MSY2, 10) then
  begin

    RAaSTPA(ColorsTPA, 1);
    SortTPAFrom(ColorsTPA, IntToPoint(266, 214));

    for I := 0 to High(ColorsTPA) do
    begin
      MMouse(ColorsTPA[i].x, ColorsTPA[i].y, 5, 5);

      if WaitUpTextMulti(['Jump-down', 'ump', 'own', 'Broken-stairs', 'roken',
       'air'], 500) then
      begin

        GetMousePos(X, Y);
        Mouse(X, Y, 0, 0, True);
        Break;
      end;
    end;
  end else
  begin

    MMouse(266, 214, 5, 5);

    if WaitUpTextMulti(['Jump-down', 'ump', 'own', 'Broken-stairs', 'roken',
     'air'], 500) then
    begin

      GetMousePos(X, Y);
      Mouse(X, Y, 0, 0, True);
    end else
    begin

      SetColorSpeed2Modifiers(0.2, 0.2);
      ColorToleranceSpeed(CTS);
      Exit;
    end;
  end;

  SetColorSpeed2Modifiers(0.2, 0.2);
  ColorToleranceSpeed(CTS);
  I := 0;

  while I < 40 do
  begin
    if FindSymbolsMulti(ColorsTPA, ['bank', 'guide']) then
    begin

      Result := True;
      Break;
    end else
      Inc(I);

    Wait(100);
  end;
end;