anchor.diff:      begin
         FMaps[I] := TMap.Create;
         FCreatures[I] := TCreatures.Create;
  -      FItems[I] := TItems.Create;
  +      FItems[I] := ForgottenSaga.Entities.TItems.Create;
         FMaps[I].FileName := Sections[I];
         FMaps[I].Name := F.ReadString(Sections[I], 'Name', '');
         FMaps[I].Level := F.ReadInteger(Sections[I], 'Level', 0);
  
positive.code: end;
  
  procedure TIniFile.WriteMaterial(Section, Ident: string;
    Value: TItem.TMaterial);
  begin
    if (Value = mtNone) then
      Exit;
    WriteString(Section, Ident, TItem.MatStr[Value]);
  end;
  
  {$ENDREGION ' TIniFile '}
  
negative.code: end;
  
  function TIniFile.ReadMaterial(Section, Ident: string;
    DefaultValue: ForgottenSaga.Entities.TItem.TMaterial): ForgottenSaga.Entities.TItem.TMaterial;
  var
    S: string;
  begin
    S := LowerCase(Trim(ReadString(Section, Ident, ForgottenSaga.Entities.TItem.MatStr[DefaultValue])));
    Result := ForgottenSaga.Entities.TItem.GetMaterial(S);
  end;
  
  procedure TIniFile.WriteCategory(Section, Ident: string;
    Value: ForgottenSaga.Entities.TItem.TCategory);
  begin
    if (Value = ctNone) then
      Exit;
    WriteString(Section, Ident, ForgottenSaga.Entities.TItem.CatStr[Value]);
  end;
  
  procedure TIniFile.WriteChar(Section, Ident: string; Value: Char);
  