anchor.diff:          SetLength(aStartPolygons, Length(aStartPolygons)-1);
           break;
         end;
  +  Result := Length(aStartPolygons) > 0;
   end;
   
   
  
positive.code:   for I := 0 to Length(StartPolygons) - 1 do
    begin
      StartPolygon[0] := StartPolygons[I];
      if aClean AND (I = 0) then // First start polygon of first player
        InitQueue(0, StartPolygon)
      else
      begin
  
negative.code: var
    K,L: Integer;
  begin
    for K := Length(aStartPolygons)-1 downto 0 do
      for L := 0 to fAllDefLines.count-1 do
        if (aStartPolygons[K] = fAllDefLines.Lines[L].Polygon) then
  