anchor.diff:  implementation
   
   uses
  +  Math,
     SysUtils,
     Trollhunter.Utils,
     uZip,
  
positive.code:       P[3].Append(IntToStr(Level));
        P[4].Append(IntToStr(Dungeon));
        P[5].Append(IntToStr(Turns));
        Line := P[0].Count - 1;
        Save;
        Exit;
      end;
    except
      on E: Exception do
        Error.Add('Scors.Add', E.Message);
    end;
  end;
  
  
negative.code: begin
    A := TStringList.Create;
    try
      C := EnsureRange(Count - 1, 0, MaxCount - 1);
      for I := 0 to C do
        try
          S := '';
  