anchor.diff:      property WareDistribution: TKMWareDistribution read fWareDistribution;
       property SaveWareDistribution: Boolean read fSaveWareDistribution;
   
  -    property DayGamesCount: Integer read fDayGamesCount write SetDayGamesCount;
  -    property LastDayGamePlayed: TDateTime read fLastDayGamePlayed write SetLastDayGamePlayed;
  +    property DayGamesCount: Integer read fDayGamesCount write fDayGamesCount;
  +    property LastDayGamePlayed: TDateTime read fLastDayGamePlayed write fLastDayGamePlayed;
   
       //GameTweaks
  -    property AllowSnowHouses: Boolean read fGameTweaks_AllowSnowHouses write SetAllowSnowHouses;
  -    property InterpolatedRender: Boolean read fGameTweaks_InterpolatedRender write SetInterpolatedRender;
  -    property InterpolatedAnimations: Boolean read fGameTweaks_InterpolatedAnimations write SetInterpolatedAnimations;
  +    property AllowSnowHouses: Boolean read fGameTweaks_AllowSnowHouses write fGameTweaks_AllowSnowHouses;
  +    property InterpolatedRender: Boolean read fGameTweaks_InterpolatedRender write fGameTweaks_InterpolatedRender;
  +    property InterpolatedAnimations: Boolean read fGameTweaks_InterpolatedAnimations write fGameTweaks_InterpolatedAnimations;
   
       //Campaign
  -    property CampaignLastDifficulty: TKMMissionDifficulty read fCampaignLastDifficulty write SetCampaignLastDifficulty;
  +    property CampaignLastDifficulty: TKMMissionDifficulty read fCampaignLastDifficulty write fCampaignLastDifficulty;
   
       //Replay
  -    property ReplayAutopause: Boolean read fReplayAutopause write SetReplayAutopause;
  -    property ReplayShowBeacons: Boolean read fReplayShowBeacons write SetReplayShowBeacons;
  -    property ReplaySavepoint: Boolean read fReplaySavepoint write SetReplaySavepoint;
  +    property ReplayAutopause: Boolean read fReplayAutopause write fReplayAutopause;
  +    property ReplayShowBeacons: Boolean read fReplayShowBeacons write fReplayShowBeacons;
  +    property ReplaySavepoint: Boolean read fReplaySavepoint write fReplaySavepoint;
       property ReplaySavepointFrequency: Integer read fReplaySavepointFrequency write SetReplaySavepointFrequency;
   
       //SFX
  -    property MusicOff: Boolean read fMusicOff write SetMusicOff;
  -    property ShuffleOn: Boolean read fShuffleOn write SetShuffleOn;
  +    property MusicOff: Boolean read fMusicOff write fMusicOff;
  +    property ShuffleOn: Boolean read fShuffleOn write fShuffleOn;
       property MusicVolume: Single read fMusicVolume write SetMusicVolume;
       property SoundFXVolume: Single read fSoundFXVolume write SetSoundFXVolume;
   
       //Video
  -    property VideoOn: Boolean read fVideoOn write SetVideoOn;
  -    property VideoStretch: Boolean read fVideoStretch write SetVideoStretch;
  -    property VideoStartup: Boolean read fVideoStartup write SetVideoStartup;
  +    property VideoOn: Boolean read fVideoOn write fVideoOn;
  +    property VideoStretch: Boolean read fVideoStretch write fVideoStretch;
  +    property VideoStartup: Boolean read fVideoStartup write fVideoStartup;
       property VideoVolume: Single read fVideoVolume write SetVideoVolume;
   
       //MapEd
  
positive.code: end;
  
  
  procedure TKMGameSettings.SetFlashOnMessage(aValue: Boolean);
  begin
    fFlashOnMessage := aValue;
  end;
  
  
  procedure TKMGameSettings.SetMenuFavouriteMapsStr(const aValue: UnicodeString);
  begin
    fMenu_FavouriteMapsStr := aValue;
  end;
  
  
  procedure TKMGameSettings.SetMenuMapSPType(aValue: Byte);
  begin
    fMenu_MapSPType := aValue;
  end;
  
  
  procedure TKMGameSettings.SetMenuReplaysType(aValue: Byte);
  begin
    fMenu_ReplaysType := aValue;
  end;
  
  
  procedure TKMGameSettings.SetMenuMapEdMapType(aValue: Byte);
  begin
    fMenu_MapEdMapType := aValue;
  end;
  
  
  procedure TKMGameSettings.SetMenuMapEdNewMapX(aValue: Word);
  begin
    fMenu_MapEdNewMapX := aValue;
  end;
  
  
  procedure TKMGameSettings.SetMenuMapEdNewMapY(aValue: Word);
  begin
    fMenu_MapEdNewMapY := aValue;
  end;
  
  
  procedure TKMGameSettings.SetMenuMapEdSPMapCRC(aValue: Cardinal);
  begin
    fMenu_MapEdSPMapCRC := aValue;
  end;
  
  
  procedure TKMGameSettings.SetMenuMapEdMPMapCRC(aValue: Cardinal);
  begin
    fMenu_MapEdMPMapCRC := aValue;
  end;
  
  
  procedure TKMGameSettings.SetMenuMapEdMPMapName(const aValue: UnicodeString);
  begin
    fMenu_MapEdMPMapName := aValue;
  end;
  
  
  procedure TKMGameSettings.SetMenuMapEdDLMapCRC(aValue: Cardinal);
  begin
    fMenu_MapEdDLMapCRC := aValue;
  end;
  
  
  procedure TKMGameSettings.SetMenuCampaignName(const aValue: UnicodeString);
  begin
    fMenu_CampaignName := aValue;
  end;
  
  
  procedure TKMGameSettings.SetMenuReplaySPSaveName(const aValue: UnicodeString);
  begin
    fMenu_ReplaySPSaveName := aValue;
  end;
  
  
  procedure TKMGameSettings.SetMenuReplayMPSaveName(const aValue: UnicodeString);
  begin
    fMenu_ReplayMPSaveName := aValue;
  end;
  
  
  procedure TKMGameSettings.SetMenuSPScenarioMapCRC(aValue: Cardinal);
  begin
    fMenu_SPScenarioMapCRC := aValue;
  end;
  
  
  procedure TKMGameSettings.SetMenuSPMissionMapCRC(aValue: Cardinal);
  begin
    fMenu_SPMissionMapCRC := aValue;
  end;
  
  
  procedure TKMGameSettings.SetMenuSPTacticMapCRC(aValue: Cardinal);
  begin
    fMenu_SPTacticMapCRC := aValue;
  end;
  
  
  procedure TKMGameSettings.SetMenuSPSpecialMapCRC(aValue: Cardinal);
  begin
    fMenu_SPSpecialMapCRC := aValue;
  end;
  
  
  procedure TKMGameSettings.SetMenuSPSaveFileName(const aValue: UnicodeString);
  begin
    fMenu_SPSaveFileName := aValue;
  end;
  
  
  procedure TKMGameSettings.SetMenuLobbyMapType(aValue: Byte);
  begin
    fMenu_LobbyMapType := aValue;
  end;
  
  
  procedure TKMGameSettings.SetDebugSaveRandomChecks(aValue: Boolean);
  begin
    fDebug_SaveRandomChecks := aValue;
  end;
  
  
  procedure TKMGameSettings.SetDebugSaveGameAsText(aValue: Boolean);
  begin
    fDebug_SaveGameAsText := aValue;
  end;
  
  
  procedure TKMGameSettings.SetAutosave(aValue: Boolean);
  begin
    fAutosave := aValue;
  end;
  
  
  procedure TKMGameSettings.SetAutosaveAtGameEnd(aValue: Boolean);
  begin
    fAutosaveAtGameEnd := aValue;
  end;
  
  
  procedure TKMGameSettings.SetAutosaveCount(aValue: Integer);
  begin
    fAutosaveCount := EnsureRange(aValue, AUTOSAVE_COUNT_MIN, AUTOSAVE_COUNT_MAX);
  
negative.code: end;
  
  
  procedure TKMGameSettings.SetSaveCheckpointsFreq(const aValue: Integer);
  begin
    fSaveCheckpointsFreq := EnsureRange(aValue, GAME_SAVE_CHECKPOINT_FREQ_MIN, GAME_SAVE_CHECKPOINT_FREQ_MAX);
  