anchor.diff:        ht_Bakery,ht_Butchers,ht_Mill,ht_Swine,ht_Stables,ht_Farm,ht_Wineyard: Color := COLOR_GREEN;
         else Color := COLOR_WHITE;
       end;
  +    Color := $80000000 OR Color;
       for I := 0 to fPlannedHouses[HT].Count - 1 do
       begin
  -      for K := 0 to Length(HMA[HT].Tiles)-1 do
  +      for K := 0 to Length(HMA[HT].Tiles) - 1 do
         begin
           Loc := KMPointAdd(fPlannedHouses[HT].Plans[I].Loc, HMA[HT].Tiles[K]);
           gRenderAux.Quad(Loc.X, Loc.Y, Color);
  
positive.code:   end;
  
  const
    DISTANCE_BETWEEN_TOWERS = 7;
  var
    I, K, DefCount: Integer;
    P1,P2: TKMPoint;
  
negative.code:       gRenderAux.Quad(Loc.X, Loc.Y, Color);
      end;
    end;
  end;
  
  
  