anchor.diff:  implementation
   
   uses
  +  Math,
     SysUtils,
     Trollhunter.Utils,
     uZip,
  
positive.code: type
    TScores = class(TObject)
    private
      P: array [0 .. 6] of TStringList;
      FLine: Integer;
      FMaxCount: Integer;
      procedure SetMaxCount(const Value: Integer);
  
negative.code:       P[3].Append(IntToStr(Level));
        P[4].Append(IntToStr(Dungeon));
        P[5].Append(IntToStr(Turns));
        Line := Count - 1;
        Save;
        Exit;
      end;
    except
      on E: Exception do
        Error.Add('Scores.Add', E.Message);
    end;
  end;
  
  