anchor.diff:            if (U <> nil) AND not U.IsDeadOrDying then
             begin
               PolyIdx := fNavMesh.KMPoint2Polygon[ U.CurrPosition ];
  -            EvaluatePolygon(aAllianceIdx*5*fPolygons + 5*PolyIdx, Increment, G.GroupType);
  +            EvaluatePolygon(aAllianceIdx*5*fPolygons + 5*PolyIdx, Increment, GT);
               with fNavMesh.Polygons[PolyIdx] do
                 for M := 0 to NearbyCount - 1 do
  -                EvaluatePolygon(aAllianceIdx*5*fPolygons + 5*Nearby[M], Increment, G.GroupType);
  +                EvaluatePolygon(aAllianceIdx*5*fPolygons + 5*Nearby[M], Increment, GT);
             end;
             L := L + EACH_X_MEMBER_COEF;
           end;
  
positive.code:     procedure Paint(const aRect: TKMRect);
    end;
  
  
  implementation
  uses
  
negative.code:           if (U <> nil) AND not U.IsDeadOrDying then
            begin
              PolyIdx := fNavMesh.KMPoint2Polygon[ U.CurrPosition ];
              Inc(fPresence[aAllianceIdx*5*fPolygons + 5*PolyIdx + AVOID_TRAFFIC_IDX],Increment);
            end;
            L := L + EACH_X_MEMBER_COEF;
          end;
  