This commit is contained in:
admin_d committed
1 parent
89aa918954
commit
7fb9935770
2 files changed
+828
-1
No files matched your search
@@ -2,7 +2,8 @@
|
|||||||
"schema": "kam-source-resolution/1",
|
"schema": "kam-source-resolution/1",
|
||||||
"adaptations": [
|
"adaptations": [
|
||||||
"src/utils/io/KM_FileIO.pas",
|
"src/utils/io/KM_FileIO.pas",
|
||||||
"src/common/KM_CommonClasses.pas"
|
"src/common/KM_CommonClasses.pas",
|
||||||
|
"src/settings/KM_GameSettings.pas"
|
||||||
],
|
],
|
||||||
"source_paths": [
|
"source_paths": [
|
||||||
"code/resource"
|
"code/resource"
|
||||||
|
|||||||
@@ -0,0 +1,826 @@
|
|||||||
|
unit KM_GameSettings;
|
||||||
|
{$I KaM_Remake.inc}
|
||||||
|
interface
|
||||||
|
uses
|
||||||
|
Classes,
|
||||||
|
{$IF DEFINED(FPC) AND NOT DEFINED(ANDROID)}Forms,{$ENDIF} //Lazarus do not know UITypes
|
||||||
|
{$IFDEF WDC}UITypes,{$ENDIF} //We use settings in console modules
|
||||||
|
KM_WareDistribution, KM_MapTypes,
|
||||||
|
KM_Defaults, KM_CommonTypes,
|
||||||
|
KM_Lists,
|
||||||
|
KM_CommonClasses,
|
||||||
|
|
||||||
|
KM_IoXML, KM_InterfaceTypes,
|
||||||
|
KM_GameAppSettingsPart;
|
||||||
|
|
||||||
|
|
||||||
|
type
|
||||||
|
TKMSettingsGFX = record
|
||||||
|
private
|
||||||
|
fBrightness: Byte;
|
||||||
|
fInterpolatedAnimations: Boolean;
|
||||||
|
procedure SetBrightness(aValue: Byte);
|
||||||
|
function GetInterpolatedAnimations: Boolean;
|
||||||
|
public
|
||||||
|
AlphaShadows: Boolean;
|
||||||
|
LoadFullFonts: Boolean;
|
||||||
|
InterpolatedRender: Boolean;
|
||||||
|
AllowSnowHouses: Boolean;
|
||||||
|
property InterpolatedAnimations: Boolean read GetInterpolatedAnimations write fInterpolatedAnimations;
|
||||||
|
property Brightness: Byte read fBrightness write SetBrightness;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TKMSettingsSFX = record
|
||||||
|
private
|
||||||
|
fMusicVolume: Single;
|
||||||
|
fSoundFXVolume: Single;
|
||||||
|
procedure SetMusicVolume(aValue: Single);
|
||||||
|
procedure SetSoundFXVolume(aValue: Single);
|
||||||
|
public
|
||||||
|
MusicEnabled: Boolean;
|
||||||
|
ShuffleOn: Boolean;
|
||||||
|
property MusicVolume: Single read fMusicVolume write SetMusicVolume;
|
||||||
|
property SoundFXVolume: Single read fSoundFXVolume write SetSoundFXVolume;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TKMSettingsVideo = record
|
||||||
|
private
|
||||||
|
fVideoVolume: Single;
|
||||||
|
procedure SetVideoVolume(aValue: Single);
|
||||||
|
public
|
||||||
|
Enabled: Boolean;
|
||||||
|
VideoStretch: Boolean;
|
||||||
|
PlayOnStartup: Boolean;
|
||||||
|
property VideoVolume: Single read fVideoVolume write SetVideoVolume;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
// Gameplay settings, those that affect the game
|
||||||
|
TKMGameSettings = class(TKMGameAppSettingsPart)
|
||||||
|
private
|
||||||
|
//Game
|
||||||
|
fAutosave: Boolean;
|
||||||
|
fAutosaveAtGameEnd: Boolean;
|
||||||
|
fAutosaveFrequency: Integer;
|
||||||
|
fAutosaveCount: Integer;
|
||||||
|
fReplayAutopause: Boolean;
|
||||||
|
fReplayShowBeacons: Boolean; //Replay variable - show beacons during replay
|
||||||
|
fSpecShowBeacons: Boolean; //Spectator variable - show beacons while spectating
|
||||||
|
fShowGameTime: Boolean; //Show game time label (always)
|
||||||
|
fShowGameSpeed: Boolean; //Show game speed label and clock (always)
|
||||||
|
|
||||||
|
fSaveCheckpoints: Boolean; //Save game checkpoint for replay
|
||||||
|
fSaveCheckpointsFreq: Integer;
|
||||||
|
fSaveCheckpointsLimit: Integer;
|
||||||
|
|
||||||
|
fPlayersColorMode: TKMPlayerColorMode;
|
||||||
|
fPlayerColorSelf: Cardinal;
|
||||||
|
fPlayerColorAlly: Cardinal;
|
||||||
|
fPlayerColorEnemy: Cardinal;
|
||||||
|
|
||||||
|
fDefaultZoom: Single;
|
||||||
|
fZoomBehaviour: TKMZoomBehaviour;
|
||||||
|
fScrollSpeed: Single;
|
||||||
|
fLocale: AnsiString;
|
||||||
|
fSpeedPace: Word;
|
||||||
|
fSpeedMedium: Single;
|
||||||
|
fSpeedFast: Single;
|
||||||
|
fSpeedVeryFast: Single;
|
||||||
|
fWareDistribution: TKMWareDistribution;
|
||||||
|
fSaveWareDistribution: Boolean;
|
||||||
|
|
||||||
|
fDayGamesCount: Integer; //Number of games played today (used for saves namings)
|
||||||
|
fLastDayGamePlayed: TDateTime; //Last day game played
|
||||||
|
|
||||||
|
//Campaign
|
||||||
|
fCampaignLastDifficulty: TKMMissionDifficulty;
|
||||||
|
|
||||||
|
//Replay
|
||||||
|
fReplaySavepoint: Boolean;
|
||||||
|
fReplaySavepointFrequency: Integer;
|
||||||
|
|
||||||
|
//MapEd
|
||||||
|
fMapEdHistoryDepth: Integer;
|
||||||
|
fMapEdMaxTerrainHeight: Integer;
|
||||||
|
|
||||||
|
//Multiplayer
|
||||||
|
fMultiplayerName: AnsiString;
|
||||||
|
fLastIP: string;
|
||||||
|
fLastPort: string;
|
||||||
|
fLastRoom: string;
|
||||||
|
fLastPassword: string;
|
||||||
|
fFlashOnMessage: Boolean;
|
||||||
|
|
||||||
|
//Misc
|
||||||
|
fAsyncGameResLoader: Boolean;
|
||||||
|
|
||||||
|
//Menu
|
||||||
|
fMenu_FavouriteMapsStr: UnicodeString;
|
||||||
|
fMenu_MapSPType: Byte;
|
||||||
|
fMenu_ReplaysType: Byte;
|
||||||
|
fMenu_MapEdMapType: Byte;
|
||||||
|
fMenu_MapEdNewMapX: Word;
|
||||||
|
fMenu_MapEdNewMapY: Word;
|
||||||
|
fMenu_MapEdSPMapCRC: Cardinal;
|
||||||
|
fMenu_MapEdMPMapCRC: Cardinal;
|
||||||
|
fMenu_MapEdMPMapName: UnicodeString;
|
||||||
|
fMenu_MapEdDLMapCRC: Cardinal;
|
||||||
|
fMenu_CampaignName: UnicodeString;
|
||||||
|
fMenu_ReplaySPSaveName: UnicodeString;
|
||||||
|
fMenu_ReplayMPSaveName: UnicodeString;
|
||||||
|
fMenu_SPScenarioMapCRC: Cardinal;
|
||||||
|
fMenu_SPMissionMapCRC: Cardinal;
|
||||||
|
fMenu_SPTacticMapCRC: Cardinal;
|
||||||
|
fMenu_SPSpecialMapCRC: Cardinal;
|
||||||
|
fMenu_SPSaveFileName: UnicodeString;
|
||||||
|
fMenu_LobbyMapType: Byte;
|
||||||
|
|
||||||
|
fDebug_SaveRandomChecks: Boolean;
|
||||||
|
fDebug_SaveGameAsText: Boolean;
|
||||||
|
|
||||||
|
fFavouriteMaps: TKMMapsCRCList;
|
||||||
|
|
||||||
|
//Game
|
||||||
|
procedure SetAutosaveFrequency(aValue: Integer);
|
||||||
|
procedure SetAutosaveCount(aValue: Integer);
|
||||||
|
procedure SetLocale(const aLocale: AnsiString);
|
||||||
|
|
||||||
|
|
||||||
|
procedure SetSaveCheckpointsFreq(const aValue: Integer);
|
||||||
|
procedure SetSaveCheckpointsLimit(const aValue: Integer);
|
||||||
|
|
||||||
|
//Replay
|
||||||
|
procedure SetReplaySavepointFrequency(aValue: Integer);
|
||||||
|
|
||||||
|
//MapEd
|
||||||
|
procedure SetMapEdHistoryDepth(const aValue: Integer);
|
||||||
|
procedure SetMapEdMaxTerrainHeight(const aValue: Integer);
|
||||||
|
|
||||||
|
//Menu
|
||||||
|
procedure SetMenuFavouriteMapsStr(const aValue: UnicodeString);
|
||||||
|
|
||||||
|
procedure SetSpeedPace(const aValue: Word);
|
||||||
|
function GetFavouriteMaps: TKMMapsCRCList;
|
||||||
|
function GetAsyncGameResLoader: Boolean;
|
||||||
|
public
|
||||||
|
GFX: TKMSettingsGFX;
|
||||||
|
SFX: TKMSettingsSFX;
|
||||||
|
Video: TKMSettingsVideo;
|
||||||
|
|
||||||
|
constructor Create;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
procedure LoadFromXML; override;
|
||||||
|
procedure SaveToXML; override;
|
||||||
|
|
||||||
|
procedure LoadFavouriteMapsFromXML;
|
||||||
|
procedure SaveFavouriteMapsToXML;
|
||||||
|
|
||||||
|
// Game
|
||||||
|
property Autosave: Boolean read fAutosave write fAutosave;
|
||||||
|
property AutosaveAtGameEnd: Boolean read fAutosaveAtGameEnd write fAutosaveAtGameEnd;
|
||||||
|
property AutosaveFrequency: Integer read fAutosaveFrequency write SetAutosaveFrequency;
|
||||||
|
property AutosaveCount: Integer read fAutosaveCount write SetAutosaveCount;
|
||||||
|
property SpecShowBeacons: Boolean read fSpecShowBeacons write fSpecShowBeacons;
|
||||||
|
property ShowGameTime: Boolean read fShowGameTime write fShowGameTime;
|
||||||
|
property ShowGameSpeed: Boolean read fShowGameSpeed write fShowGameSpeed;
|
||||||
|
|
||||||
|
property SaveCheckpoints: Boolean read fSaveCheckpoints write fSaveCheckpoints;
|
||||||
|
property SaveCheckpointsFreq: Integer read fSaveCheckpointsFreq write SetSaveCheckpointsFreq;
|
||||||
|
property SaveCheckpointsLimit: Integer read fSaveCheckpointsLimit write SetSaveCheckpointsLimit;
|
||||||
|
|
||||||
|
property PlayersColorMode: TKMPlayerColorMode read fPlayersColorMode write fPlayersColorMode;
|
||||||
|
property PlayerColorSelf: Cardinal read fPlayerColorSelf write fPlayerColorSelf;
|
||||||
|
property PlayerColorAlly: Cardinal read fPlayerColorAlly write fPlayerColorAlly;
|
||||||
|
property PlayerColorEnemy: Cardinal read fPlayerColorEnemy write fPlayerColorEnemy;
|
||||||
|
|
||||||
|
property DefaultZoom: Single read fDefaultZoom;
|
||||||
|
property ZoomBehaviour: TKMZoomBehaviour read fZoomBehaviour write fZoomBehaviour;
|
||||||
|
property ScrollSpeed: Single read fScrollSpeed write fScrollSpeed;
|
||||||
|
property Locale: AnsiString read fLocale write SetLocale;
|
||||||
|
property SpeedPace: Word read fSpeedPace write SetSpeedPace;
|
||||||
|
property SpeedMedium: Single read fSpeedMedium;
|
||||||
|
property SpeedFast: Single read fSpeedFast;
|
||||||
|
property SpeedVeryFast: Single read fSpeedVeryFast;
|
||||||
|
property WareDistribution: TKMWareDistribution read fWareDistribution;
|
||||||
|
property SaveWareDistribution: Boolean read fSaveWareDistribution write fSaveWareDistribution;
|
||||||
|
|
||||||
|
property DayGamesCount: Integer read fDayGamesCount write fDayGamesCount;
|
||||||
|
property LastDayGamePlayed: TDateTime read fLastDayGamePlayed write fLastDayGamePlayed;
|
||||||
|
|
||||||
|
// Campaign
|
||||||
|
property CampaignLastDifficulty: TKMMissionDifficulty read fCampaignLastDifficulty write fCampaignLastDifficulty;
|
||||||
|
|
||||||
|
// Replay
|
||||||
|
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;
|
||||||
|
|
||||||
|
// MapEd
|
||||||
|
property MapEdHistoryDepth: Integer read fMapEdHistoryDepth write SetMapEdHistoryDepth;
|
||||||
|
property MapEdMaxTerrainHeight: Integer read fMapEdMaxTerrainHeight write SetMapEdMaxTerrainHeight;
|
||||||
|
|
||||||
|
//Multiplayer
|
||||||
|
property MultiplayerName: AnsiString read fMultiplayerName write fMultiplayerName;
|
||||||
|
property FlashOnMessage: Boolean read fFlashOnMessage write fFlashOnMessage;
|
||||||
|
property LastIP: string read fLastIP write fLastIP;
|
||||||
|
property LastPort: string read fLastPort write fLastPort;
|
||||||
|
property LastRoom: string read fLastRoom write fLastRoom;
|
||||||
|
property LastPassword: string read fLastPassword write fLastPassword;
|
||||||
|
|
||||||
|
//Misc
|
||||||
|
property AsyncGameResLoader: Boolean read GetAsyncGameResLoader;
|
||||||
|
|
||||||
|
// Menu
|
||||||
|
property MenuMapSPType: Byte read fMenu_MapSPType write fMenu_MapSPType;
|
||||||
|
property MenuReplaysType: Byte read fMenu_ReplaysType write fMenu_ReplaysType;
|
||||||
|
property MenuMapEdMapType: Byte read fMenu_MapEdMapType write fMenu_MapEdMapType;
|
||||||
|
property MenuMapEdNewMapX: Word read fMenu_MapEdNewMapX write fMenu_MapEdNewMapX;
|
||||||
|
property MenuMapEdNewMapY: Word read fMenu_MapEdNewMapY write fMenu_MapEdNewMapY;
|
||||||
|
property MenuMapEdSPMapCRC: Cardinal read fMenu_MapEdSPMapCRC write fMenu_MapEdSPMapCRC;
|
||||||
|
property MenuMapEdMPMapCRC: Cardinal read fMenu_MapEdMPMapCRC write fMenu_MapEdMPMapCRC;
|
||||||
|
property MenuMapEdMPMapName: UnicodeString read fMenu_MapEdMPMapName write fMenu_MapEdMPMapName;
|
||||||
|
property MenuMapEdDLMapCRC: Cardinal read fMenu_MapEdDLMapCRC write fMenu_MapEdDLMapCRC;
|
||||||
|
property MenuCampaignName: UnicodeString read fMenu_CampaignName write fMenu_CampaignName;
|
||||||
|
property MenuReplaySPSaveName: UnicodeString read fMenu_ReplaySPSaveName write fMenu_ReplaySPSaveName;
|
||||||
|
property MenuReplayMPSaveName: UnicodeString read fMenu_ReplayMPSaveName write fMenu_ReplayMPSaveName;
|
||||||
|
property MenuSPScenarioMapCRC: Cardinal read fMenu_SPScenarioMapCRC write fMenu_SPScenarioMapCRC;
|
||||||
|
property MenuSPMissionMapCRC: Cardinal read fMenu_SPMissionMapCRC write fMenu_SPMissionMapCRC;
|
||||||
|
property MenuSPTacticMapCRC: Cardinal read fMenu_SPTacticMapCRC write fMenu_SPTacticMapCRC;
|
||||||
|
property MenuSPSpecialMapCRC: Cardinal read fMenu_SPSpecialMapCRC write fMenu_SPSpecialMapCRC;
|
||||||
|
property MenuSPSaveFileName: UnicodeString read fMenu_SPSaveFileName write fMenu_SPSaveFileName;
|
||||||
|
property MenuLobbyMapType: Byte read fMenu_LobbyMapType write fMenu_LobbyMapType;
|
||||||
|
|
||||||
|
//Debug
|
||||||
|
property DebugSaveRandomChecks: Boolean read fDebug_SaveRandomChecks write fDebug_SaveRandomChecks;
|
||||||
|
property DebugSaveGameAsText: Boolean read fDebug_SaveGameAsText write fDebug_SaveGameAsText;
|
||||||
|
|
||||||
|
property FavouriteMaps: TKMMapsCRCList read GetFavouriteMaps;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
gGameSettings: TKMGameSettings;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
uses
|
||||||
|
SysUtils, INIfiles, Math,
|
||||||
|
KM_TerrainTypes;
|
||||||
|
|
||||||
|
|
||||||
|
{ TKMSettingsGFX }
|
||||||
|
function TKMSettingsGFX.GetInterpolatedAnimations: Boolean;
|
||||||
|
begin
|
||||||
|
Result := InterpolatedRender and fInterpolatedAnimations;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TKMSettingsGFX.SetBrightness(aValue: Byte);
|
||||||
|
begin
|
||||||
|
fBrightness := EnsureRange(aValue, 0, 20);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
{ TKMSettingsSFX }
|
||||||
|
procedure TKMSettingsSFX.SetSoundFXVolume(aValue: Single);
|
||||||
|
begin
|
||||||
|
fSoundFXVolume := EnsureRange(aValue, 0, 1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TKMSettingsSFX.SetMusicVolume(aValue: Single);
|
||||||
|
begin
|
||||||
|
fMusicVolume := EnsureRange(aValue, 0, 1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
{ TKMSettingsVideo }
|
||||||
|
procedure TKMSettingsVideo.SetVideoVolume(aValue: Single);
|
||||||
|
begin
|
||||||
|
fVideoVolume := EnsureRange(aValue, 0, 1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
{ TKMGameSettings }
|
||||||
|
constructor TKMGameSettings.Create;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
fWareDistribution := TKMWareDistribution.Create;
|
||||||
|
|
||||||
|
fFavouriteMaps := TKMMapsCRCList.Create;
|
||||||
|
fFavouriteMaps.OnMapsUpdate := SetMenuFavouriteMapsStr;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
destructor TKMGameSettings.Destroy;
|
||||||
|
begin
|
||||||
|
FreeAndNil(fWareDistribution);
|
||||||
|
FreeAndNil(fFavouriteMaps);
|
||||||
|
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
function TKMGameSettings.GetAsyncGameResLoader: Boolean;
|
||||||
|
begin
|
||||||
|
if Self = nil then Exit(False);
|
||||||
|
|
||||||
|
Result := fAsyncGameResLoader;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
function TKMGameSettings.GetFavouriteMaps: TKMMapsCRCList;
|
||||||
|
begin
|
||||||
|
if Self = nil then Exit(nil);
|
||||||
|
|
||||||
|
Result := fFavouriteMaps;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TKMGameSettings.LoadFavouriteMapsFromXML;
|
||||||
|
var
|
||||||
|
nGameSettings, nMenu: TKMXmlNode;
|
||||||
|
begin
|
||||||
|
if Self = nil then Exit;
|
||||||
|
|
||||||
|
nGameSettings := Root.AddOrFindChild('Game');
|
||||||
|
|
||||||
|
nMenu := nGameSettings.AddOrFindChild('Menu');
|
||||||
|
fMenu_FavouriteMapsStr := nMenu.Attributes['FavouriteMaps'].AsString('');
|
||||||
|
fFavouriteMaps.LoadFromString(fMenu_FavouriteMapsStr);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TKMGameSettings.SaveFavouriteMapsToXML;
|
||||||
|
var
|
||||||
|
nGameSettings, nMenu: TKMXmlNode;
|
||||||
|
begin
|
||||||
|
if Self = nil then Exit;
|
||||||
|
if BLOCK_FILE_WRITE then Exit;
|
||||||
|
|
||||||
|
nGameSettings := Root.AddOrFindChild('Game');
|
||||||
|
|
||||||
|
nMenu := nGameSettings.AddOrFindChild('Menu');
|
||||||
|
nMenu.Attributes['FavouriteMaps'] := fMenu_FavouriteMapsStr;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TKMGameSettings.LoadFromXML;
|
||||||
|
var
|
||||||
|
nGameSettings,
|
||||||
|
nGFX,
|
||||||
|
nSFX,
|
||||||
|
nMusic,
|
||||||
|
nVideo,
|
||||||
|
nGameCommon,
|
||||||
|
nGameAutosave,
|
||||||
|
nGameSavePoints,
|
||||||
|
nGamePlayersColor,
|
||||||
|
nUI,
|
||||||
|
nGameSpeed,
|
||||||
|
nGameWareDistribution,
|
||||||
|
nGameMisc,
|
||||||
|
nGameTweaks,
|
||||||
|
nCampaign,
|
||||||
|
nReplay,
|
||||||
|
nMapEd,
|
||||||
|
nMultiplayer,
|
||||||
|
nMenu,
|
||||||
|
nMenuSP,
|
||||||
|
nMenuReplay,
|
||||||
|
nMenuMapEd,
|
||||||
|
nMisc,
|
||||||
|
nDebug: TKMXmlNode;
|
||||||
|
tempCard: Int64;
|
||||||
|
begin
|
||||||
|
if Self = nil then Exit;
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
nGameSettings := Root.AddOrFindChild('Game');
|
||||||
|
|
||||||
|
// Game GFX
|
||||||
|
nGFX := nGameSettings.AddOrFindChild('GFX');
|
||||||
|
GFX.Brightness := nGFX.Attributes['Brightness'].AsInteger(1);
|
||||||
|
GFX.AlphaShadows := nGFX.Attributes['AlphaShadows'].AsBoolean(True);
|
||||||
|
GFX.LoadFullFonts := nGFX.Attributes['LoadFullFonts'].AsBoolean(False);
|
||||||
|
|
||||||
|
// SFX
|
||||||
|
nSFX := nGameSettings.AddOrFindChild('SFX');
|
||||||
|
SFX.SoundFXVolume := nSFX.Attributes['Volume'].AsFloat(0.5);
|
||||||
|
|
||||||
|
// Music
|
||||||
|
nMusic := nGameSettings.AddOrFindChild('Music');
|
||||||
|
SFX.MusicEnabled := nMusic.Attributes['Enabled'].AsBoolean(True);
|
||||||
|
SFX.MusicVolume := nMusic.Attributes['Volume'].AsFloat(0.5);
|
||||||
|
SFX.ShuffleOn := nMusic.Attributes['Shuffle'].AsBoolean(False);
|
||||||
|
|
||||||
|
// Video
|
||||||
|
nVideo := nGameSettings.AddOrFindChild('Video');
|
||||||
|
Video.Enabled := nVideo.Attributes['Enabled'].AsBoolean(False); //Disabled by default
|
||||||
|
Video.VideoStretch := nVideo.Attributes['Stretch'].AsBoolean(True);
|
||||||
|
Video.PlayOnStartup := nVideo.Attributes['Startup'].AsBoolean(True);
|
||||||
|
Video.VideoVolume := nVideo.Attributes['Volume'].AsFloat(1);
|
||||||
|
|
||||||
|
// GameCommon
|
||||||
|
nGameCommon := nGameSettings.AddOrFindChild('GameCommon');
|
||||||
|
fLocale := AnsiString(nGameCommon.Attributes['Locale'].AsString(UnicodeString(DEFAULT_LOCALE)));
|
||||||
|
// UI
|
||||||
|
nUI := nGameCommon.AddOrFindChild('UI');
|
||||||
|
fDefaultZoom := nUI.Attributes['DefaultZoom'].AsFloat(1);
|
||||||
|
fZoomBehaviour := TKMZoomBehaviour(nUI.Attributes['ZoomBehaviour'].AsInteger(Ord(zbFull))); // Default zoom value is zbFull
|
||||||
|
// Speed
|
||||||
|
nGameSpeed := nGameCommon.AddOrFindChild('Speed');
|
||||||
|
fSpeedMedium := nGameSpeed.Attributes['Medium'].AsFloat(3);
|
||||||
|
fSpeedFast := nGameSpeed.Attributes['Fast'].AsFloat(6);
|
||||||
|
fSpeedVeryFast := nGameSpeed.Attributes['VeryFast'].AsFloat(10);
|
||||||
|
SpeedPace := nGameSpeed.Attributes['Pace'].AsInteger(SPEED_PACE_DEFAULT); // Set SpeedPace via setter
|
||||||
|
fScrollSpeed := nGameSpeed.Attributes['ScrollSpeed'].AsFloat(5);
|
||||||
|
|
||||||
|
// Autosave
|
||||||
|
nGameAutosave := nGameCommon.AddOrFindChild('Autosave');
|
||||||
|
fAutosave := nGameAutosave.Attributes['Enabled'].AsBoolean(True);
|
||||||
|
fAutosaveAtGameEnd := nGameAutosave.Attributes['OnGameEnd'].AsBoolean(False);
|
||||||
|
AutosaveFrequency := nGameAutosave.Attributes['Frequency'].AsInteger(AUTOSAVE_FREQUENCY_DEFAULT); // With setter
|
||||||
|
AutosaveCount := nGameAutosave.Attributes['Count'].AsInteger(AUTOSAVE_COUNT_DEF); // With setter
|
||||||
|
|
||||||
|
// SavePoints
|
||||||
|
nGameSavePoints := nGameCommon.AddOrFindChild('SavePoints');
|
||||||
|
fSaveCheckpoints := nGameSavePoints.Attributes['Enabled'].AsBoolean(True);
|
||||||
|
SaveCheckpointsFreq := nGameSavePoints.Attributes['Frequency'].AsInteger(GAME_SAVE_CHECKPOINT_FREQ_DEF); // With setter
|
||||||
|
SaveCheckpointsLimit := nGameSavePoints.Attributes['Limit'].AsInteger(GAME_SAVE_CHECKPOINT_CNT_LIMIT_DEF); // With setter
|
||||||
|
|
||||||
|
// PlayersColor
|
||||||
|
nGamePlayersColor := nGameCommon.AddOrFindChild('PlayersColor');
|
||||||
|
fPlayersColorMode := TKMPlayerColorMode(nGamePlayersColor.Attributes['Mode'].AsInteger(Byte(pcmDefault))); //Show players colors by default
|
||||||
|
//Load minimap colors as hex strings 6-hex digits width
|
||||||
|
if TryStrToInt64('$' + nGamePlayersColor.Attributes['Self'].AsString(IntToHex(Integer(clPlayerSelf and $FFFFFF), 6)), tempCard) then
|
||||||
|
fPlayerColorSelf := $FF000000 or tempCard
|
||||||
|
else
|
||||||
|
fPlayerColorSelf := clPlayerSelf;
|
||||||
|
|
||||||
|
if TryStrToInt64('$' + nGamePlayersColor.Attributes['Ally'].AsString(IntToHex(Integer(clPlayerAlly and $FFFFFF), 6)), tempCard) then
|
||||||
|
fPlayerColorAlly := $FF000000 or tempCard
|
||||||
|
else
|
||||||
|
fPlayerColorAlly := clPlayerAlly;
|
||||||
|
|
||||||
|
if TryStrToInt64('$' + nGamePlayersColor.Attributes['Enemy'].AsString(IntToHex(Integer(clPlayerEnemy and $FFFFFF), 6)), tempCard) then
|
||||||
|
fPlayerColorEnemy := $FF000000 or tempCard
|
||||||
|
else
|
||||||
|
fPlayerColorEnemy := clPlayerEnemy;
|
||||||
|
|
||||||
|
// Ware distribution
|
||||||
|
nGameWareDistribution := nGameCommon.AddOrFindChild('WareDistribution');
|
||||||
|
fWareDistribution.LoadFromStr(nGameWareDistribution.Attributes['Value'].AsString(''));
|
||||||
|
fSaveWareDistribution := nGameWareDistribution.Attributes['SavedBetweenGames'].AsBoolean(False); // Disabled by default
|
||||||
|
|
||||||
|
// Misc
|
||||||
|
nGameMisc := nGameCommon.AddOrFindChild('Misc');
|
||||||
|
fSpecShowBeacons := nGameMisc.Attributes['SpecShowBeacons'].AsBoolean(False);
|
||||||
|
fShowGameTime := nGameMisc.Attributes['ShowGameTime'].AsBoolean(False);
|
||||||
|
fShowGameSpeed := nGameMisc.Attributes['ShowGameSpeed'].AsBoolean(False);
|
||||||
|
fDayGamesCount := nGameMisc.Attributes['DayGamesCount'].AsInteger(0);
|
||||||
|
if nGameMisc.HasAttribute('LastDayGamePlayed') then
|
||||||
|
fLastDayGamePlayed := nGameMisc.Attributes['LastDayGamePlayed'].AsDateTime
|
||||||
|
else
|
||||||
|
fLastDayGamePlayed := DATE_TIME_ZERO;
|
||||||
|
|
||||||
|
// Tweaks
|
||||||
|
nGameTweaks := nGameCommon.AddOrFindChild('Tweaks');
|
||||||
|
GFX.AllowSnowHouses := nGameTweaks.Attributes['AllowSnowHouses'].AsBoolean(True);
|
||||||
|
GFX.InterpolatedRender := nGameTweaks.Attributes['InterpolatedRender'].AsBoolean(False);
|
||||||
|
GFX.InterpolatedAnimations := nGameTweaks.Attributes['InterpolatedAnimations'].AsBoolean(False);
|
||||||
|
|
||||||
|
// Campaign
|
||||||
|
nCampaign := nGameSettings.AddOrFindChild('Campaign');
|
||||||
|
fCampaignLastDifficulty := TKMMissionDifficulty(nCampaign.Attributes['CampaignLastDifficulty'].AsInteger(Byte(mdNormal))); //Normal as default
|
||||||
|
|
||||||
|
// Replay
|
||||||
|
nReplay := nGameSettings.AddOrFindChild('Replay');
|
||||||
|
fReplayAutopause := nReplay.Attributes['Autopause'].AsBoolean(False);
|
||||||
|
fReplayShowBeacons := nReplay.Attributes['ShowBeacons'].AsBoolean(False);
|
||||||
|
fReplaySavepoint := nReplay.Attributes['Savepoint'].AsBoolean(True);
|
||||||
|
ReplaySavepointFrequency := nReplay.Attributes['SavepointFrequency'].AsInteger(REPLAY_SAVEPOINT_FREQUENCY_DEF); // With setter
|
||||||
|
|
||||||
|
// MapEd
|
||||||
|
nMapEd := nGameSettings.AddOrFindChild('MapEd');
|
||||||
|
MapEdHistoryDepth := nMapEd.Attributes['HistoryDepth'].AsInteger(MAPED_HISTORY_DEPTH_DEF); // With setter
|
||||||
|
MapEdMaxTerrainHeight := nMapEd.Attributes['MaxTerrainHeight'].AsInteger(HEIGHT_MAX); // With setter;
|
||||||
|
|
||||||
|
// Multiplayer
|
||||||
|
nMultiplayer := nGameSettings.AddOrFindChild('Multiplayer');
|
||||||
|
fMultiplayerName := AnsiString(nMultiplayer.Attributes['Name'].AsString('NoName'));
|
||||||
|
fLastIP := nMultiplayer.Attributes['LastIP'].AsString('127.0.0.1');
|
||||||
|
fLastPort := nMultiplayer.Attributes['LastPort'].AsString('56789');
|
||||||
|
fLastRoom := nMultiplayer.Attributes['LastRoom'].AsString('0');
|
||||||
|
fLastPassword := nMultiplayer.Attributes['LastPassword'].AsString('');
|
||||||
|
fFlashOnMessage := nMultiplayer.Attributes['FlashOnMessage'].AsBoolean(True);
|
||||||
|
|
||||||
|
// Misc
|
||||||
|
nMisc := nGameSettings.AddOrFindChild('Misc');
|
||||||
|
fAsyncGameResLoader := nMisc.Attributes['AsyncGameResLoader'].AsBoolean(True);
|
||||||
|
|
||||||
|
// Menu
|
||||||
|
nMenu := nGameSettings.AddOrFindChild('Menu');
|
||||||
|
fMenu_FavouriteMapsStr := nMenu.Attributes['FavouriteMaps'].AsString('');
|
||||||
|
fFavouriteMaps.LoadFromString(fMenu_FavouriteMapsStr);
|
||||||
|
fMenu_LobbyMapType := nMenu.Attributes['LobbyMapType'].AsInteger(0);
|
||||||
|
fMenu_CampaignName := nMenu.Attributes['CampaignName'].AsString('');
|
||||||
|
|
||||||
|
nMenuSP := nMenu.AddOrFindChild('Singleplayer');
|
||||||
|
fMenu_MapSPType := nMenuSP.Attributes['Type'].AsInteger(0);
|
||||||
|
fMenu_SPScenarioMapCRC := StrToInt64(nMenuSP.Attributes['ScenarioMapCRC'].AsString('0'));
|
||||||
|
fMenu_SPMissionMapCRC := StrToInt64(nMenuSP.Attributes['MissionMapCRC'].AsString('0'));
|
||||||
|
fMenu_SPTacticMapCRC := StrToInt64(nMenuSP.Attributes['TacticMapCRC'].AsString('0'));
|
||||||
|
fMenu_SPSpecialMapCRC := StrToInt64(nMenuSP.Attributes['SpecialMapCRC'].AsString('0'));
|
||||||
|
fMenu_SPSaveFileName := nMenuSP.Attributes['SaveFileName'].AsString('');
|
||||||
|
|
||||||
|
nMenuReplay := nMenu.AddOrFindChild('Replay');
|
||||||
|
fMenu_ReplaysType := nMenuReplay.Attributes['Type'].AsInteger(0);
|
||||||
|
fMenu_ReplaySPSaveName := nMenuReplay.Attributes['SPSaveName'].AsString('');
|
||||||
|
fMenu_ReplayMPSaveName := nMenuReplay.Attributes['MPSaveName'].AsString('');
|
||||||
|
|
||||||
|
nMenuMapEd := nMenu.AddOrFindChild('MapEd');
|
||||||
|
fMenu_MapEdMapType := nMenuMapEd.Attributes['MapType'].AsInteger(0);
|
||||||
|
fMenu_MapEdNewMapX := nMenuMapEd.Attributes['NewMapX'].AsInteger(128);
|
||||||
|
fMenu_MapEdNewMapY := nMenuMapEd.Attributes['NewMapY'].AsInteger(128);
|
||||||
|
fMenu_MapEdSPMapCRC := StrToInt64(nMenuMapEd.Attributes['SPMapCRC'].AsString('0'));
|
||||||
|
fMenu_MapEdMPMapCRC := StrToInt64(nMenuMapEd.Attributes['MPMapCRC'].AsString('0'));
|
||||||
|
fMenu_MapEdMPMapName := nMenuMapEd.Attributes['MPMapName'].AsString('');
|
||||||
|
fMenu_MapEdDLMapCRC := StrToInt64(nMenuMapEd.Attributes['DLMapCRC'].AsString('0'));
|
||||||
|
|
||||||
|
// Debug
|
||||||
|
nDebug := nGameSettings.AddOrFindChild('Debug');
|
||||||
|
if not DBG_DISALLOW_TO_SAVE_RANDOM_CHECKS then
|
||||||
|
fDebug_SaveRandomChecks := nDebug.Attributes['SaveRandomChecks'].AsBoolean(True);
|
||||||
|
|
||||||
|
if DBG_SAVE_GAME_AS_TEXT then
|
||||||
|
fDebug_SaveGameAsText := nDebug.Attributes['SaveGameAsText'].AsBoolean(False);
|
||||||
|
|
||||||
|
if INI_HITPOINT_RESTORE then
|
||||||
|
HITPOINT_RESTORE_PACE := nDebug.Attributes['HitPointRestorePace'].AsInteger(DEFAULT_HITPOINT_RESTORE)
|
||||||
|
else
|
||||||
|
HITPOINT_RESTORE_PACE := DEFAULT_HITPOINT_RESTORE;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
//Don't rewrite the file for each individual change, do it in one batch for simplicity
|
||||||
|
procedure TKMGameSettings.SaveToXML;
|
||||||
|
var
|
||||||
|
nGameSettings,
|
||||||
|
nGFX,
|
||||||
|
nSFX,
|
||||||
|
nMusic,
|
||||||
|
nVideo,
|
||||||
|
nGameCommon,
|
||||||
|
nGameAutosave,
|
||||||
|
nGameSavePoints,
|
||||||
|
nGamePlayersColor,
|
||||||
|
nUI,
|
||||||
|
nGameSpeed,
|
||||||
|
nGameWareDistribution,
|
||||||
|
nGameMisc,
|
||||||
|
nGameTweaks,
|
||||||
|
nCampaign,
|
||||||
|
nReplay,
|
||||||
|
nMapEd,
|
||||||
|
nMultiplayer,
|
||||||
|
nMenu,
|
||||||
|
nMenuSP,
|
||||||
|
nMenuReplay,
|
||||||
|
nMenuMapEd,
|
||||||
|
nMisc,
|
||||||
|
nDebug: TKMXmlNode;
|
||||||
|
begin
|
||||||
|
if Self = nil then Exit;
|
||||||
|
if BLOCK_FILE_WRITE then Exit;
|
||||||
|
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
nGameSettings := Root.AddOrFindChild('Game');
|
||||||
|
// Clear old data before filling in
|
||||||
|
{$IFDEF WDC}
|
||||||
|
//todo -cPractical: do proper check on FPC
|
||||||
|
nGameSettings.Clear;
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
// Game GFX
|
||||||
|
nGFX := nGameSettings.AddOrFindChild('GFX');
|
||||||
|
nGFX.Attributes['Brightness'] := GFX.Brightness;
|
||||||
|
nGFX.Attributes['AlphaShadows'] := GFX.AlphaShadows;
|
||||||
|
nGFX.Attributes['LoadFullFonts'] := GFX.LoadFullFonts;
|
||||||
|
|
||||||
|
// SFX
|
||||||
|
nSFX := nGameSettings.AddOrFindChild('SFX');
|
||||||
|
nSFX.Attributes['Volume'] := SFX.SoundFXVolume;
|
||||||
|
|
||||||
|
// Music
|
||||||
|
nMusic := nGameSettings.AddOrFindChild('Music');
|
||||||
|
nMusic.Attributes['Enabled'] := SFX.MusicEnabled; // Reversed value
|
||||||
|
nMusic.Attributes['Volume'] := SFX.MusicVolume;
|
||||||
|
nMusic.Attributes['Shuffle'] := SFX.ShuffleOn;
|
||||||
|
|
||||||
|
// Video
|
||||||
|
nVideo := nGameSettings.AddOrFindChild('Video');
|
||||||
|
nVideo.Attributes['Enabled'] := Video.Enabled;
|
||||||
|
nVideo.Attributes['Stretch'] := Video.VideoStretch;
|
||||||
|
nVideo.Attributes['Startup'] := Video.PlayOnStartup;
|
||||||
|
nVideo.Attributes['Volume'] := Video.VideoVolume;
|
||||||
|
|
||||||
|
// GameCommon
|
||||||
|
nGameCommon := nGameSettings.AddOrFindChild('GameCommon');
|
||||||
|
nGameCommon.Attributes['Locale'] := UnicodeString(fLocale);
|
||||||
|
// UI
|
||||||
|
nUI := nGameCommon.AddOrFindChild('UI');
|
||||||
|
nUI.Attributes['DefaultZoom'] := fDefaultZoom;
|
||||||
|
nUI.Attributes['ZoomBehaviour'] := Integer(fZoomBehaviour);
|
||||||
|
|
||||||
|
// Speed
|
||||||
|
nGameSpeed := nGameCommon.AddOrFindChild('Speed');
|
||||||
|
nGameSpeed.Attributes['Medium'] := fSpeedMedium;
|
||||||
|
nGameSpeed.Attributes['Fast'] := fSpeedFast;
|
||||||
|
nGameSpeed.Attributes['VeryFast'] := fSpeedVeryFast;
|
||||||
|
nGameSpeed.Attributes['Pace'] := fSpeedPace;
|
||||||
|
nGameSpeed.Attributes['ScrollSpeed'] := fScrollSpeed;
|
||||||
|
|
||||||
|
// Autosave
|
||||||
|
nGameAutosave := nGameCommon.AddOrFindChild('Autosave');
|
||||||
|
nGameAutosave.Attributes['Enabled'] := fAutosave;
|
||||||
|
nGameAutosave.Attributes['OnGameEnd'] := fAutosaveAtGameEnd;
|
||||||
|
nGameAutosave.Attributes['Frequency'] := fAutosaveFrequency;
|
||||||
|
nGameAutosave.Attributes['Count'] := fAutosaveCount;
|
||||||
|
|
||||||
|
// SavePoints
|
||||||
|
nGameSavePoints := nGameCommon.AddOrFindChild('SavePoints');
|
||||||
|
nGameSavePoints.Attributes['Enabled'] := fSaveCheckpoints;
|
||||||
|
nGameSavePoints.Attributes['Frequency'] := fSaveCheckpointsFreq;
|
||||||
|
nGameSavePoints.Attributes['Limit'] := fSaveCheckpointsLimit;
|
||||||
|
|
||||||
|
// PlayersColor
|
||||||
|
nGamePlayersColor := nGameCommon.AddOrFindChild('PlayersColor');
|
||||||
|
nGamePlayersColor.Attributes['Mode'] := Byte(fPlayersColorMode);
|
||||||
|
nGamePlayersColor.Attributes['Self'] := IntToHex(fPlayerColorSelf and $FFFFFF, 6);
|
||||||
|
nGamePlayersColor.Attributes['Ally'] := IntToHex(fPlayerColorAlly and $FFFFFF, 6);
|
||||||
|
nGamePlayersColor.Attributes['Enemy'] := IntToHex(fPlayerColorEnemy and $FFFFFF, 6);
|
||||||
|
|
||||||
|
// Ware distribution
|
||||||
|
nGameWareDistribution := nGameCommon.AddOrFindChild('WareDistribution');
|
||||||
|
nGameWareDistribution.Attributes['Value'] := fWareDistribution.PackToStr;
|
||||||
|
nGameWareDistribution.Attributes['SavedBetweenGames'] := fSaveWareDistribution;
|
||||||
|
|
||||||
|
// Misc
|
||||||
|
nGameMisc := nGameCommon.AddOrFindChild('Misc');
|
||||||
|
nGameMisc.Attributes['SpecShowBeacons'] := fSpecShowBeacons;
|
||||||
|
nGameMisc.Attributes['ShowGameTime'] := fShowGameTime;
|
||||||
|
nGameMisc.Attributes['ShowGameSpeed'] := fShowGameSpeed;
|
||||||
|
nGameMisc.Attributes['DayGamesCount'] := fDayGamesCount;
|
||||||
|
nGameMisc.Attributes['LastDayGamePlayed'] := fLastDayGamePlayed;
|
||||||
|
|
||||||
|
// Tweaks
|
||||||
|
nGameTweaks := nGameCommon.AddOrFindChild('Tweaks');
|
||||||
|
nGameTweaks.Attributes['AllowSnowHouses'] := GFX.AllowSnowHouses;
|
||||||
|
nGameTweaks.Attributes['InterpolatedRender'] := GFX.InterpolatedRender;
|
||||||
|
nGameTweaks.Attributes['InterpolatedAnimations'] := GFX.InterpolatedAnimations;
|
||||||
|
|
||||||
|
// Campaign
|
||||||
|
nCampaign := nGameSettings.AddOrFindChild('Campaign');
|
||||||
|
nCampaign.Attributes['CampaignLastDifficulty'] := Byte(fCampaignLastDifficulty);
|
||||||
|
|
||||||
|
// Replay
|
||||||
|
nReplay := nGameSettings.AddOrFindChild('Replay');
|
||||||
|
nReplay.Attributes['Autopause'] := fReplayAutopause;
|
||||||
|
nReplay.Attributes['ShowBeacons'] := fReplayShowBeacons;
|
||||||
|
nReplay.Attributes['Savepoint'] := fReplaySavepoint;
|
||||||
|
nReplay.Attributes['SavepointFrequency'] := fReplaySavepointFrequency;
|
||||||
|
|
||||||
|
// MapEd
|
||||||
|
nMapEd := nGameSettings.AddOrFindChild('MapEd');
|
||||||
|
nMapEd.Attributes['HistoryDepth'] := fMapEdHistoryDepth;
|
||||||
|
nMapEd.Attributes['MaxTerrainHeight'] := fMapEdMaxTerrainHeight;
|
||||||
|
|
||||||
|
// Multiplayer
|
||||||
|
nMultiplayer := nGameSettings.AddOrFindChild('Multiplayer');
|
||||||
|
nMultiplayer.Attributes['Name'] := UnicodeString(fMultiplayerName);
|
||||||
|
nMultiplayer.Attributes['LastIP'] := fLastIP;
|
||||||
|
nMultiplayer.Attributes['LastPort'] := fLastPort;
|
||||||
|
nMultiplayer.Attributes['LastRoom'] := fLastRoom;
|
||||||
|
nMultiplayer.Attributes['LastPassword'] := fLastPassword;
|
||||||
|
nMultiplayer.Attributes['FlashOnMessage'] := fFlashOnMessage;
|
||||||
|
|
||||||
|
// Misc
|
||||||
|
nMisc := nGameSettings.AddOrFindChild('Misc');
|
||||||
|
nMisc.Attributes['AsyncGameResLoader'] := fAsyncGameResLoader;
|
||||||
|
|
||||||
|
// Menu
|
||||||
|
nMenu := nGameSettings.AddOrFindChild('Menu');
|
||||||
|
nMenu.Attributes['FavouriteMaps'] := fMenu_FavouriteMapsStr;
|
||||||
|
nMenu.Attributes['CampaignName'] := fMenu_CampaignName;
|
||||||
|
nMenu.Attributes['LobbyMapType'] := fMenu_LobbyMapType;
|
||||||
|
|
||||||
|
nMenuSP := nMenu.AddOrFindChild('Singleplayer');
|
||||||
|
nMenuSP.Attributes['Type'] := fMenu_MapSPType;
|
||||||
|
nMenuSP.Attributes['ScenarioMapCRC'] := IntToStr(fMenu_SPScenarioMapCRC);
|
||||||
|
nMenuSP.Attributes['MissionMapCRC'] := IntToStr(fMenu_SPMissionMapCRC);
|
||||||
|
nMenuSP.Attributes['TacticMapCRC'] := IntToStr(fMenu_SPTacticMapCRC);
|
||||||
|
nMenuSP.Attributes['SpecialMapCRC'] := IntToStr(fMenu_SPSpecialMapCRC);
|
||||||
|
nMenuSP.Attributes['SaveFileName'] := fMenu_SPSaveFileName;
|
||||||
|
|
||||||
|
nMenuReplay := nMenu.AddOrFindChild('Replay');
|
||||||
|
nMenuReplay.Attributes['Type'] := fMenu_ReplaysType;
|
||||||
|
nMenuReplay.Attributes['SPSaveName'] := fMenu_ReplaySPSaveName;
|
||||||
|
nMenuReplay.Attributes['MPSaveName'] := fMenu_ReplayMPSaveName;
|
||||||
|
|
||||||
|
nMenuMapEd := nMenu.AddOrFindChild('MapEd');
|
||||||
|
nMenuMapEd.Attributes['MapType'] := fMenu_MapEdMapType;
|
||||||
|
nMenuMapEd.Attributes['NewMapX'] := fMenu_MapEdNewMapX;
|
||||||
|
nMenuMapEd.Attributes['NewMapY'] := fMenu_MapEdNewMapY;
|
||||||
|
nMenuMapEd.Attributes['SPMapCRC'] := IntToStr(fMenu_MapEdSPMapCRC);
|
||||||
|
nMenuMapEd.Attributes['MPMapCRC'] := IntToStr(fMenu_MapEdMPMapCRC);
|
||||||
|
nMenuMapEd.Attributes['MPMapName'] := fMenu_MapEdMPMapName;
|
||||||
|
nMenuMapEd.Attributes['DLMapCRC'] := IntToStr(fMenu_MapEdDLMapCRC);
|
||||||
|
|
||||||
|
// Debug
|
||||||
|
nDebug := nGameSettings.AddOrFindChild('Debug');
|
||||||
|
if not DBG_DISALLOW_TO_SAVE_RANDOM_CHECKS then
|
||||||
|
nDebug.Attributes['SaveRandomChecks'] := fDebug_SaveRandomChecks;
|
||||||
|
|
||||||
|
if DBG_SAVE_GAME_AS_TEXT then
|
||||||
|
nDebug.Attributes['SaveGameAsText'] := fDebug_SaveGameAsText;
|
||||||
|
|
||||||
|
if INI_HITPOINT_RESTORE then
|
||||||
|
nDebug.Attributes['HitPointRestorePace'] := HITPOINT_RESTORE_PACE;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TKMGameSettings.SetLocale(const aLocale: AnsiString);
|
||||||
|
begin
|
||||||
|
//We can get some unsupported LocaleCode, but that is fine, it will have Eng fallback anyway
|
||||||
|
fLocale := aLocale;
|
||||||
|
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);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TKMGameSettings.SetAutosaveFrequency(aValue: Integer);
|
||||||
|
begin
|
||||||
|
fAutosaveFrequency := EnsureRange(aValue, AUTOSAVE_FREQUENCY_MIN, AUTOSAVE_FREQUENCY_MAX);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TKMGameSettings.SetSpeedPace(const aValue: Word);
|
||||||
|
begin
|
||||||
|
// Allow to set speed pace only while in debug mode.
|
||||||
|
// Its possible to alter game speed now, so there is no need actual need for speed pace change
|
||||||
|
// And actual game speed is recorded in the game / replay, but speed pace is not.
|
||||||
|
// So its better to show on what actual speed some speedrunner made his crazy run
|
||||||
|
{$IFDEF DEBUG}
|
||||||
|
fSpeedPace := aValue;
|
||||||
|
{$ELSE}
|
||||||
|
fSpeedPace := SPEED_PACE_DEFAULT;
|
||||||
|
{$ENDIF}
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TKMGameSettings.SetSaveCheckpointsFreq(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
fSaveCheckpointsFreq := EnsureRange(aValue, GAME_SAVE_CHECKPOINT_FREQ_MIN, GAME_SAVE_CHECKPOINT_FREQ_MAX);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TKMGameSettings.SetSaveCheckpointsLimit(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
fSaveCheckpointsLimit := EnsureRange(aValue, GAME_SAVE_CHECKPOINT_CNT_LIMIT_MIN, GAME_SAVE_CHECKPOINT_CNT_LIMIT_MAX);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TKMGameSettings.SetReplaySavepointFrequency(aValue: Integer);
|
||||||
|
begin
|
||||||
|
fReplaySavepointFrequency := EnsureRange(aValue, REPLAY_SAVEPOINT_FREQUENCY_MIN, REPLAY_SAVEPOINT_FREQUENCY_MAX);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TKMGameSettings.SetMapEdHistoryDepth(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
fMapEdHistoryDepth := EnsureRange(aValue, MAPED_HISTORY_DEPTH_MIN, MAPED_HISTORY_DEPTH_MAX);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TKMGameSettings.SetMapEdMaxTerrainHeight(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
fMapEdMaxTerrainHeight := EnsureRange(aValue, 0, HEIGHT_MAX);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
end.
|
||||||
Reference in new issue
Block a user