anchor.diff:      procedure InitQueue(const aMaxIdx: Word; aInitIdxArray: TKMWordArray); virtual;
       procedure Flood(); virtual;
     public
  -    constructor Create(aSorted: Boolean = False);
  +    constructor Create(aSorted: Boolean = False); virtual;
       destructor Destroy(); override;
   
       function FillPolygons(const aMaxIdx: Word; aInitIdxArray: TKMWordArray): Boolean; virtual;
  
positive.code: end;
  
  
  function TNavMeshFloodFill.CanBeVisited(const aIdx: Word): Boolean;
  begin
    Result := True;
  end;
  
negative.code:   PolyArr := gAIFields.NavMesh.Polygons;
  
    while RemoveFromQueue(Idx) do
      if CanBeExpanded(Idx) then
        for I := 0 to PolyArr[Idx].NearbyCount-1 do
        begin
          NearbyIdx := PolyArr[Idx].Nearby[I];
  