anchor.diff:  end;
   
   
  -procedure TKMGameSettings.SetShowGameTime(aValue: Boolean);
  -begin
  -  fShowGameTime := aValue;
  -end;
  -
  -
  -procedure TKMGameSettings.SetShowGameSpeed(aValue: Boolean);
  -begin
  -  fShowGameSpeed := aValue;
  -end;
  -
  -
  -procedure TKMGameSettings.SetSaveCheckpoints(const aValue: Boolean);
  -begin
  -  fSaveCheckpoints := aValue;
  -end;
  -
  -
   procedure TKMGameSettings.SetSaveCheckpointsFreq(const aValue: Integer);
   begin
     fSaveCheckpointsFreq := EnsureRange(aValue, GAME_SAVE_CHECKPOINT_FREQ_MIN, GAME_SAVE_CHECKPOINT_FREQ_MAX);
  
positive.code: end;
  
  
  procedure TKMGameSettings.SetPlayersColorMode(aValue: TKMPlayerColorMode);
  begin
    fPlayersColorMode := aValue;
  end;
  
  
  procedure TKMGameSettings.SetPlayerColorSelf(aValue: Cardinal);
  begin
    fPlayerColorSelf := aValue;
  end;
  
  
  procedure TKMGameSettings.SetPlayerColorAlly(aValue: Cardinal);
  begin
    fPlayerColorAlly := aValue;
  end;
  
  
  procedure TKMGameSettings.SetPlayerColorEnemy(aValue: Cardinal);
  begin
    fPlayerColorEnemy := aValue;
  end;
  
  
  procedure TKMGameSettings.SetDayGamesCount(aValue: Integer);
  begin
    fDayGamesCount := aValue;
  end;
  
  
  procedure TKMGameSettings.SetLastDayGamePlayed(aValue: TDateTime);
  begin
    fLastDayGamePlayed := aValue;
  end;
  
  
  procedure TKMGameSettings.SetAllowSnowHouses(aValue: Boolean);
  begin
    fGameTweaks_AllowSnowHouses := aValue;
  end;
  
  procedure TKMGameSettings.SetInterpolatedAnimations(const aValue: Boolean);
  begin
    fGameTweaks_InterpolatedAnimations := aValue;
  end;
  
  
  procedure TKMGameSettings.SetInterpolatedRender(aValue: Boolean);
  begin
    fGameTweaks_InterpolatedRender := aValue;
  end;
  
  
  procedure TKMGameSettings.SetCampaignLastDifficulty(aValue: TKMMissionDifficulty);
  begin
    fCampaignLastDifficulty := aValue;
  end;
  
  
  procedure TKMGameSettings.SetReplayAutopause(aValue: Boolean);
  begin
    fReplayAutopause := aValue;
  end;
  
  
  procedure TKMGameSettings.SetReplayShowBeacons(aValue: Boolean);
  begin
    fReplayShowBeacons := aValue;
  end;
  
  
  procedure TKMGameSettings.SetReplaySavepoint(aValue: Boolean);
  begin
    fReplaySavepoint := aValue;
  end;
  
  
  procedure TKMGameSettings.SetReplaySavepointFrequency(aValue: Integer);
  begin
    fReplaySavepointFrequency := EnsureRange(aValue, REPLAY_SAVEPOINT_FREQUENCY_MIN, REPLAY_SAVEPOINT_FREQUENCY_MAX);
  end;
  
  
  procedure TKMGameSettings.SetAlphaShadows(aValue: Boolean);
  begin
    fAlphaShadows := aValue;
  end;
  
  
  procedure TKMGameSettings.SetLoadFullFonts(aValue: Boolean);
  begin
    fLoadFullFonts := aValue;
  end;
  
  
  procedure TKMGameSettings.SetSoundFXVolume(aValue: Single);
  begin
    fSoundFXVolume := EnsureRange(aValue, 0, 1);
  end;
  
  
  procedure TKMGameSettings.SetMultiplayerName(const aValue: AnsiString);
  begin
    fMultiplayerName := aValue;
  end;
  
  
  procedure TKMGameSettings.SetLastIP(const aValue: string);
  begin
    fLastIP := aValue;
  end;
  
  
  procedure TKMGameSettings.SetLastPort(const aValue: string);
  begin
    fLastPort := aValue;
  end;
  
  
  procedure TKMGameSettings.SetLastRoom(const aValue: string);
  begin
    fLastRoom := aValue;
  end;
  
  
  procedure TKMGameSettings.SetLastPassword(const aValue: string);
  begin
    fLastPassword := aValue;
  end;
  
  
  procedure TKMGameSettings.SetMusicVolume(aValue: Single);
  begin
    fMusicVolume := EnsureRange(aValue, 0, 1);
  end;
  
  
  procedure TKMGameSettings.SetMusicOff(aValue: Boolean);
  begin
    fMusicOff := aValue;
  end;
  
  
  procedure TKMGameSettings.SetShuffleOn(aValue: Boolean);
  begin
    fShuffleOn := aValue;
  end;
  
  
  procedure TKMGameSettings.SetVideoOn(aValue: Boolean);
  begin
    fVideoOn := aValue;
  end;
  
  
  procedure TKMGameSettings.SetVideoStretch(aValue: Boolean);
  begin
    fVideoStretch := aValue;
  end;
  
  
  procedure TKMGameSettings.SetVideoStartup(aValue: Boolean);
  begin
    fVideoStartup := aValue;
  end;
  
  
  procedure TKMGameSettings.SetVideoVolume(aValue: Single);
  begin
    fVideoVolume := EnsureRange(aValue, 0, 1);
  
negative.code: end;
  
  
  procedure TKMGameSettings.SetMenuFavouriteMapsStr(const aValue: UnicodeString);
  begin
    // This proc is used by an event
    fMenu_FavouriteMapsStr := aValue;
  end;
  
  
  procedure TKMGameSettings.SetAutosaveCount(aValue: Integer);
  begin
    fAutosaveCount := EnsureRange(aValue, AUTOSAVE_COUNT_MIN, AUTOSAVE_COUNT_MAX);
  