anchor.diff:    FDialog.Free;
     FTiles.Free;
     FQuest.Free;
  +  Items_Close();
     inherited;
   end;
   
  
positive.code: end;
  
  function TIniFile.ReadMaterial(Section, Ident: string;
    DefaultValue: TItem.TMaterial): TItem.TMaterial;
  var
    S: string;
  begin
    S := LowerCase(Trim(ReadString(Section, Ident, TItem.MatStr[DefaultValue])));
    Result := TItem.GetMaterial(S);
  end;
  
  procedure TIniFile.WriteCategory(Section, Ident: string;
    Value: TItem.TCategory);
  begin
    if (Value = ctNone) then
      Exit;
    WriteString(Section, Ident, TItem.CatStr[Value]);
  end;
  
  procedure TIniFile.WriteChar(Section, Ident: string; Value: Char);
  
negative.code:   Result := FCreatures[I];
  end;
  
  function TWorld.GetMapItems(I: Byte): ForgottenSaga.Entities.TItems;
  begin
    Result := FItems[I];
  end;
  