unit UIni;
interface
{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}
{$I switches.inc}
uses
Classes,
IniFiles,
ULog,
SysUtils;
type
PInputDeviceConfig = ^TInputDeviceConfig;
TInputDeviceConfig = record
Name: string;
Input: integer;
ChannelToPlayerMap: array of integer;
end;
type
TIni = class
private
function ExtractKeyIndex(const key, prefix, suffix: string): integer;
function GetMaxKeyIndex(keys: TStringList; const prefix, suffix: string): integer;
procedure LoadInputDeviceCfg(IniFile: TMemIniFile);
procedure SaveInputDeviceCfg(IniFile: TIniFile);
public
Name: array[0..11] of string;
// Templates for Names Mod
NameTeam: array[0..2] of string;
NameTemplate: array[0..11] of string;
//Filename of the opened iniFile
Filename: string;
// Game
Players: integer;
Difficulty: integer;
Language: integer;
Tabs: integer;
Tabs_at_startup:integer; //Tabs at Startup fix
Sorting: integer;
Debug: integer;
// Graphics
Screens: integer;
Resolution: integer;
Depth: integer;
FullScreen: integer;
TextureSize: integer;
SingWindow: integer;
Oscilloscope: integer;
Spectrum: integer;
Spectrograph: integer;
MovieSize: integer;
// Sound
MicBoost: integer;
ClickAssist: integer;
BeatClick: integer;
SavePlayback: integer;
ThresholdIndex: integer;
AudioOutputBufferSizeIndex: integer;
//Song Preview
PreviewVolume: integer;
PreviewFading: integer;
// Lyrics
LyricsFont: integer;
LyricsEffect: integer;
Solmization: integer;
NoteLines: integer;
// Themes
Theme: integer;
SkinNo: integer;
Color: integer;
// Record
InputDeviceConfig: array of TInputDeviceConfig;
// Advanced
LoadAnimation: integer;
EffectSing: integer;
ScreenFade: integer;
AskbeforeDel: integer;
OnSongClick: integer;
LineBonus: integer;
PartyPopup: integer;
// Controller
Joypad: integer;
// Soundcards
SoundCard: array[0..7, 1..2] of integer;
// Devices
LPT: integer;
procedure Load();
procedure Save();
procedure SaveNames;
procedure SaveLevel;
end;
var
Ini: TIni;
IResolution: array of string;
ILanguage: array of string;
ITheme: array of string;
ISkin: array of string;
const
IPlayers: array[0..4] of string = ('1', '2', '3', '4', '6');
IPlayersVals: array[0..4] of integer = ( 1 , 2 , 3 , 4 , 6 );
IDifficulty: array[0..2] of string = ('Easy', 'Medium', 'Hard');
ITabs: array[0..1] of string = ('Off', 'On');
ISorting: array[0..7] of string = ('Edition', 'Genre', 'Language', 'Folder', 'Title', 'Artist', 'Title2', 'Artist2');
sEdition = 0;
sGenre = 1;
sLanguage = 2;
sFolder = 3;
sTitle = 4;
sArtist = 5;
sTitle2 = 6;
sArtist2 = 7;
IDebug: array[0..1] of string = ('Off', 'On');
IScreens: array[0..1] of string = ('1', '2');
IFullScreen: array[0..1] of string = ('Off', 'On');
IDepth: array[0..1] of string = ('16 bit', '32 bit');
ITextureSize: array[0..2] of string = ('128', '256', '512');
ISingWindow: array[0..1] of string = ('Small', 'Big');
//SingBar Mod
IOscilloscope: array[0..2] of string = ('Off', 'Osci', 'Bar');
//IOscilloscope: array[0..1] of string = ('Off', 'On');
ISpectrum: array[0..1] of string = ('Off', 'On');
ISpectrograph: array[0..1] of string = ('Off', 'On');
IMovieSize: array[0..2] of string = ('Half', 'Full [Vid]', 'Full [BG+Vid]');
IClickAssist: array[0..1] of string = ('Off', 'On');
IBeatClick: array[0..1] of string = ('Off', 'On');
ISavePlayback: array[0..1] of string = ('Off', 'On');
IThreshold: array[0..3] of string = ('5%', '10%', '15%', '20%');
IThresholdVals: array[0..3] of single = (0.05, 0.10, 0.15, 0.20);
IAudioOutputBufferSize: array[0..9] of string = ('Auto', '256', '512', '1024', '2048', '4096', '8192', '16384', '32768', '65536');
IAudioOutputBufferSizeVals: array[0..9] of integer = ( 0, 256, 512 , 1024 , 2048 , 4096 , 8192 , 16384 , 32768 , 65536 );
IAudioInputBufferSize: array[0..9] of string = ('Auto', '256', '512', '1024', '2048', '4096', '8192', '16384', '32768', '65536');
IAudioInputBufferSizeVals: array[0..9] of integer = ( 0, 256, 512 , 1024 , 2048 , 4096 , 8192 , 16384 , 32768 , 65536 );
//Song Preview
IPreviewVolume: array[0..10] of string = ('Off', '10%', '20%', '30%', '40%', '50%', '60%', '70%', '80%', '90%', '100%');
IPreviewVolumeVals: array[0..10] of single = ( 0, 0.10, 0.20, 0.30, 0.40, 0.50, 0.60, 0.70, 0.80, 0.90, 1.00 );
IPreviewFading: array[0..5] of string = ('Off', '1 Sec', '2 Secs', '3 Secs', '4 Secs', '5 Secs');
IPreviewFadingVals: array[0..5] of integer = ( 0, 1, 2, 3, 4, 5 );
ILyricsFont: array[0..2] of string = ('Plain', 'OLine1', 'OLine2');
ILyricsEffect: array[0..4] of string = ('Simple', 'Zoom', 'Slide', 'Ball', 'Shift');
ISolmization: array[0..3] of string = ('Off', 'Euro', 'Jap', 'American');
INoteLines: array[0..1] of string = ('Off', 'On');
IColor: array[0..8] of string = ('Blue', 'Green', 'Pink', 'Red', 'Violet', 'Orange', 'Yellow', 'Brown', 'Black');
// Advanced
ILoadAnimation: array[0..1] of string = ('Off', 'On');
IEffectSing: array[0..1] of string = ('Off', 'On');
IScreenFade: array[0..1] of string =('Off', 'On');
IAskbeforeDel: array[0..1] of string = ('Off', 'On');
IOnSongClick: array[0..2] of string = ('Sing', 'Select Players', 'Open Menu');
ILineBonus: array[0..2] of string = ('Off', 'At Score', 'At Notes');
IPartyPopup: array[0..1] of string = ('Off', 'On');
IJoypad: array[0..1] of string = ('Off', 'On');
ILPT: array[0..2] of string = ('Off', 'LCD', 'Lights');
// Recording options
IChannelPlayer: array[0..6] of string = ('Off', '1', '2', '3', '4', '5', '6');
IMicBoost: array[0..3] of string = ('Off', '+6dB', '+12dB', '+18dB');
implementation
uses
StrUtils,
UMain,
SDL,
ULanguage,
UPlatform,
USkins,
URecord,
UCommandLine;
function TIni.ExtractKeyIndex(const key, prefix, suffix: string): integer;
var
value: string;
start: integer;
begin
Result := -1;
if Pos(prefix, key) > -1 then
begin
start := Pos(prefix, key) + Length(prefix);
// copy all between prefix and suffix
value := copy (key, start, Pos(suffix, key) - 1 - start);
Result := StrToIntDef(value, -1);
end;
end;
function TIni.GetMaxKeyIndex(keys: TstringList; const prefix, suffix: string): integer;
var
i: integer;
keyIndex: integer;
begin
Result := -1;
for i := 0 to keys.Count-1 do
begin
keyIndex := ExtractKeyIndex(keys[i], prefix, suffix);
if (keyIndex > Result) then
Result := keyIndex;
end;
end;
procedure TIni.LoadInputDeviceCfg(IniFile: TMemIniFile);
var
deviceCfg: PInputDeviceConfig;
deviceIniIndex: integer;
deviceIniStr: string;
channelCount: integer;
channelIndex: integer;
recordKeys: TstringList;
i: integer;
begin
recordKeys := TstringList.Create();
// read all record-keys for filtering
IniFile.ReadSection('Record', recordKeys);
SetLength(InputDeviceConfig, 0);
for i := 0 to recordKeys.Count-1 do
begin
// find next device-name
deviceIniIndex := ExtractKeyIndex(recordKeys[i], 'DeviceName[', ']');
if (deviceIniIndex >= 0) then
begin
deviceIniStr := IntToStr(deviceIniIndex);
if not IniFile.ValueExists('Record', 'DeviceName['+deviceIniStr+']') then
break;
// resize list
SetLength(InputDeviceConfig, Length(InputDeviceConfig)+1);
// read an input device's config.
// Note: All devices are appended to the list whether they exist or not.
// Otherwise an external device's config will be lost if it is not
// connected (e.g. singstar mics or USB-Audio devices).
deviceCfg := @InputDeviceConfig[High(InputDeviceConfig)];
deviceCfg.Name := IniFile.Readstring('Record', 'DeviceName['+deviceIniStr+']', '');
deviceCfg.Input := IniFile.Readinteger('Record', 'Input['+deviceIniStr+']', 0);
// find the largest channel-number of the current device in the ini-file
channelCount := GetMaxKeyIndex(recordKeys, 'Channel(', ')['+deviceIniStr+']');
if (channelCount < 0) then
channelCount := 0;
SetLength(deviceCfg.ChannelToPlayerMap, channelCount);
// read channel-to-player mapping for every channel of the current device
// or set non-configured channels to no player (=0).
for channelIndex := 0 to High(deviceCfg.ChannelToPlayerMap) do
begin
deviceCfg.ChannelToPlayerMap[channelIndex] :=
IniFile.Readinteger('Record', 'Channel('+IntToStr(channelIndex+1)+')['+deviceIniStr+']', 0);
end;
end;
end;
recordKeys.Free();
// MicBoost
//MicBoost := GetArrayIndex(IMicBoost, IniFile.Readstring('Record', 'MicBoost', 'Off'));
// Threshold
// ThresholdIndex := GetArrayIndex(IThreshold, IniFile.Readstring('Record', 'Threshold', IThreshold[1]));
end;
procedure TIni.SaveInputDeviceCfg(IniFile: TIniFile);
var
deviceIndex: integer;
deviceIndexStr: string;
channelIndex: integer;
begin
for deviceIndex := 0 to High(InputDeviceConfig) do
begin
deviceIndexStr := IntToStr(deviceIndex+1);
// DeviceName and DeviceInput
IniFile.Writestring('Record', 'DeviceName['+deviceIndexStr+']', InputDeviceConfig[deviceIndex].Name);
IniFile.Writestring('Record', 'Input['+deviceIndexStr+']', IntToStr(InputDeviceConfig[deviceIndex].Input));
// Channel-to-Player Mapping
for channelIndex := 0 to High(InputDeviceConfig[deviceIndex].ChannelToPlayerMap) do
begin
IniFile.Writestring('Record', 'Channel('+IntToStr(channelIndex+1)+')['+deviceIndexStr+']',
IntToStr(InputDeviceConfig[deviceIndex].ChannelToPlayerMap[channelIndex]));
end;
end;
// MicBoost
//IniFile.Writestring('Record', 'MicBoost', IMicBoost[MicBoost]);
// Threshold
//IniFile.Writestring('Record', 'Threshold', IThreshold[ThresholdIndex]);
end;
procedure TIni.Load();
var
IniFile: TMemIniFile;
ThemeIni: TMemIniFile;
ThemeName: string;
I: integer;
Modes: PPSDL_Rect;
searchResult: TSearchRec;
// returns name without fileextension
function GetFileName (S: string):string;
begin
//Result := copy (S,0,StrRScan (PChar(S),char('.'))+1);
Result := copy (S,0,Pos ('.ini',S)-1);
end;
// get index of value V in array a, returns -1 if value is not in array
function GetArrayIndex(const A: array of string; V: string; caseInsensitiv: Boolean = False): integer;
var
i: integer;
begin
Result := -1;
for i := 0 To High(A) do
if (A[i] = V) or (caseInsensitiv and (UpperCase(A[i]) = UpperCase(V))) then
begin
Result := i;
break;
end;
end;
// get index of IniSeaction:IniProperty in array SearchArray or return the default value
function ReadArrayIndex(const SearchArray: array of string; IniSection: string; IniProperty: string; Default: integer): integer;
var
StrValue: string;
begin
StrValue := IniFile.Readstring('Sound', 'AudioOutputBufferSize', SearchArray[Default]);
Result := GetArrayIndex(SearchArray, StrValue);
if (Result = -1) then
begin
Result := Default;
end;
end;
// swap two strings
procedure swap(var s1, s2: string);
var
s3: string;
begin
s3 := s1;
s1 := s2;
s2 := s3;
end;
begin
GamePath := Platform.GetGameUserPath;
Log.LogStatus( 'GamePath : ' +GamePath , '' );
if (Params.ConfigFile <> '') then
try
FileName := Params.ConfigFile;
except
FileName := GamePath + 'config.ini';
end
else
FileName := GamePath + 'config.ini';
Log.LogStatus( 'Using config : ' + FileName , 'Ini');
IniFile := TMemIniFile.Create( FileName );
// Name
for I := 0 to 11 do
Name[I] := IniFile.Readstring('Name', 'P'+IntToStr(I+1), 'Player'+IntToStr(I+1));
// Templates for Names Mod
for I := 0 to 2 do
NameTeam[I] := IniFile.Readstring('NameTeam', 'T'+IntToStr(I+1), 'Team'+IntToStr(I+1));
for I := 0 to 11 do
NameTemplate[I] := IniFile.Readstring('NameTemplate', 'Name'+IntToStr(I+1), 'Template'+IntToStr(I+1));
// Players
Players := GetArrayIndex(IPlayers, IniFile.Readstring('Game', 'Players', IPlayers[0]));
// Difficulty
Difficulty := GetArrayIndex(IDifficulty, IniFile.Readstring('Game', 'Difficulty', 'Easy'));
// Language
Language := GetArrayIndex(ILanguage, IniFile.Readstring('Game', 'Language', 'English'));
//Language.ChangeLanguage(ILanguage[Language]);
// Tabs
Tabs := GetArrayIndex(ITabs, IniFile.Readstring('Game', 'Tabs', ITabs[0]));
Tabs_at_startup := Tabs; //Tabs at Startup fix
// Song Sorting
Sorting := GetArrayIndex(ISorting, IniFile.Readstring('Game', 'Sorting', ISorting[0]));
// Debug
Debug := GetArrayIndex(IDebug, IniFile.Readstring('Game', 'Debug', IDebug[0]));
// Screens
Screens := GetArrayIndex(IScreens, IniFile.Readstring('Graphics', 'Screens', IScreens[0]));
// FullScreen
FullScreen := GetArrayIndex(IFullScreen, IniFile.Readstring('Graphics', 'FullScreen', 'On'));
// Resolution
SetLength(IResolution, 0);
// Check if there are any modes available
if IFullScreen[FullScreen] = 'On' then
Modes := SDL_ListModes(nil, SDL_OPENGL or SDL_FULLSCREEN or SDL_RESIZABLE)
else
Modes := SDL_ListModes(nil, SDL_OPENGL or SDL_RESIZABLE ) ;
if integer( Modes ) = 0 then
begin
Log.LogStatus( 'No resolutions Found' , 'Video');
end
else
begin
if integer( Modes ) = -1 then
begin
Log.LogStatus( 'ANY resolutions can be used - Fallback to some standard resolutions' , 'Video');
// Fallback to some standard resolutions
SetLength(IResolution, 10);
IResolution[0] := '640x480';
IResolution[1] := '800x600';
IResolution[2] := '1024x768';
IResolution[3] := '1152x864';
IResolution[4] := '1280x800';
IResolution[5] := '1280x960';
IResolution[6] := '1400x1050';
IResolution[7] := '1440x900';
IResolution[8] := '1600x1200';
IResolution[9] := '1680x1050';
Resolution := GetArrayIndex(IResolution, IniFile.Readstring('Graphics', 'Resolution', '800x600'));
if Resolution = -1 then
begin
SetLength(IResolution, Length(IResolution) + 1);
IResolution[High(IResolution)] := IniFile.Readstring('Graphics', 'Resolution', '800x600');
Resolution := High(IResolution);
end;
end
else
begin
while assigned( Modes^ ) do //this should solve the biggest wine problem | THANKS Linnex (11.11.07)
begin
Log.LogStatus( 'Found Video Mode : ' + IntToStr(Modes^.w) + 'x' + IntToStr(Modes^.h) , 'Video');
SetLength(IResolution, Length(IResolution) + 1);
IResolution[High(IResolution)] := IntToStr(Modes^.w) + 'x' + IntToStr(Modes^.h);
Inc(Modes);
end;
// reverse order
for I := 0 to (Length(IResolution) div 2) - 1 do
begin
swap(IResolution[I], IResolution[High(IResolution)-I]);
end;
Resolution := GetArrayIndex(IResolution, IniFile.Readstring('Graphics', 'Resolution', '800x600'));
if Resolution = -1 then
begin
Resolution := GetArrayIndex(IResolution, '800x600');
if Resolution = -1 then
Resolution := 0;
end;
end;
end;
// if no modes were set, then failback to 800x600
// as per http://sourceforge.net/forum/message.php?msg_id=4544965
// THANKS : linnex at users.sourceforge.net
if Length(IResolution) < 1 then
begin
Log.LogStatus( 'Found Video Mode : NONE !!! ( Defaulted to 800 x 600 )', 'Video');
SetLength(IResolution, 1);
IResolution[0] := '800x600';
Resolution := 0;
Log.LogStatus('SDL_ListModes Defaulted Res To : ' + IResolution[0] , 'Graphics - Resolutions');
// Default to fullscreen OFF, in this case !
FullScreen := 0;
end;
// Depth
Depth := GetArrayIndex(IDepth, IniFile.Readstring('Graphics', 'Depth', '32 bit'));
// TextureSize
TextureSize := GetArrayIndex(ITextureSize, IniFile.Readstring('Graphics', 'TextureSize', ITextureSize[1]));
// SingWindow
SingWindow := GetArrayIndex(ISingWindow, IniFile.Readstring('Graphics', 'SingWindow', 'Big'));
// Oscilloscope
Oscilloscope := GetArrayIndex(IOscilloscope, IniFile.Readstring('Graphics', 'Oscilloscope', 'Bar'));
// Spectrum
Spectrum := GetArrayIndex(ISpectrum, IniFile.Readstring('Graphics', 'Spectrum', 'Off'));
// Spectrograph
Spectrograph := GetArrayIndex(ISpectrograph, IniFile.Readstring('Graphics', 'Spectrograph', 'Off'));
// MovieSize
MovieSize := GetArrayIndex(IMovieSize, IniFile.Readstring('Graphics', 'MovieSize', IMovieSize[2]));
// ClickAssist
ClickAssist := GetArrayIndex(IClickAssist, IniFile.Readstring('Sound', 'ClickAssist', 'Off'));
// BeatClick
BeatClick := GetArrayIndex(IBeatClick, IniFile.Readstring('Sound', 'BeatClick', IBeatClick[0]));
// SavePlayback
SavePlayback := GetArrayIndex(ISavePlayback, IniFile.Readstring('Sound', 'SavePlayback', ISavePlayback[0]));
// AudioOutputBufferSize
AudioOutputBufferSizeIndex := ReadArrayIndex(IAudioOutputBufferSize, 'Sound', 'AudioOutputBufferSize', 0);
//Preview Volume
PreviewVolume := GetArrayIndex(IPreviewVolume, IniFile.Readstring('Sound', 'PreviewVolume', IPreviewVolume[7]));
//Preview Fading
PreviewFading := GetArrayIndex(IPreviewFading, IniFile.Readstring('Sound', 'PreviewFading', IPreviewFading[1]));
// Lyrics Font
LyricsFont := GetArrayIndex(ILyricsFont, IniFile.Readstring('Lyrics', 'LyricsFont', ILyricsFont[1]));
// Lyrics Effect
LyricsEffect := GetArrayIndex(ILyricsEffect, IniFile.Readstring('Lyrics', 'LyricsEffect', ILyricsEffect[1]));
// Solmization
Solmization := GetArrayIndex(ISolmization, IniFile.Readstring('Lyrics', 'Solmization', ISolmization[0]));
// NoteLines
NoteLines := GetArrayIndex(INoteLines, IniFile.Readstring('Lyrics', 'NoteLines', INoteLines[1]));
// Theme
SetLength(ITheme, 0);
Log.LogStatus('Searching for Theme : ' + ThemePath + '*.ini', 'Theme');
FindFirst(ThemePath + '*.ini',faAnyFile, searchResult);
Repeat
Log.LogStatus('Found Theme: ' + searchResult.Name, 'Theme');
//Read Themename from Theme
ThemeIni := TMemIniFile.Create(searchResult.Name);
ThemeName := UpperCase(ThemeIni.Readstring('Theme','Name', GetFileName(searchResult.Name)));
ThemeIni.Free;
//Search for Skins for this Theme
for I := Low(Skin.Skin) to High(Skin.Skin) do
begin
if UpperCase(Skin.Skin[I].Theme) = ThemeName then
begin
SetLength(ITheme, Length(ITheme)+1);
ITheme[High(ITheme)] := GetFileName(searchResult.Name);
break;
end;
end;
until FindNext(searchResult) <> 0;
FindClose(searchResult);
// No Theme Found
if (Length(ITheme) = 0) then
begin
Log.CriticalError('Could not find any valid Themes.');
end;
Theme := GetArrayIndex(ITheme, IniFile.Readstring('Themes', 'Theme', 'DELUXE'), true);
if (Theme = -1) then
Theme := 0;
// Skin
Skin.onThemeChange;
SkinNo := GetArrayIndex(ISkin, IniFile.Readstring('Themes', 'Skin', ISkin[0]));
// Color
Color := GetArrayIndex(IColor, IniFile.Readstring('Themes', 'Color', IColor[0]));
LoadInputDeviceCfg(IniFile);
// LoadAnimation
LoadAnimation := GetArrayIndex(ILoadAnimation, IniFile.Readstring('Advanced', 'LoadAnimation', 'On'));
// ScreenFade
ScreenFade := GetArrayIndex(IScreenFade, IniFile.Readstring('Advanced', 'ScreenFade', 'On'));
// EffectSing
EffectSing := GetArrayIndex(IEffectSing, IniFile.Readstring('Advanced', 'EffectSing', 'On'));
// AskbeforeDel
AskbeforeDel := GetArrayIndex(IAskbeforeDel, IniFile.Readstring('Advanced', 'AskbeforeDel', 'On'));
// OnSongClick
OnSongClick := GetArrayIndex(IOnSongClick, IniFile.Readstring('Advanced', 'OnSongClick', 'Sing'));
// Linebonus
LineBonus := GetArrayIndex(ILineBonus, IniFile.Readstring('Advanced', 'LineBonus', 'At Score'));
// PartyPopup
PartyPopup := GetArrayIndex(IPartyPopup, IniFile.Readstring('Advanced', 'PartyPopup', 'On'));
// Joypad
Joypad := GetArrayIndex(IJoypad, IniFile.Readstring('Controller', 'Joypad', IJoypad[0]));
// LCD
LPT := GetArrayIndex(ILPT, IniFile.Readstring('Devices', 'LPT', ILPT[0]));
// SongPath
if (Params.SongPath <> '') then
SongPath := IncludeTrailingPathDelimiter(Params.SongPath)
else
SongPath := IncludeTrailingPathDelimiter(IniFile.Readstring('Path', 'Songs', SongPath));
IniFile.Free;
end;
procedure TIni.Save;
var
IniFile: TIniFile;
begin
if not (FileExists(Filename) and FileIsReadOnly(Filename)) then
begin
IniFile := TIniFile.Create(Filename);
// Players
IniFile.Writestring('Game', 'Players', IPlayers[Players]);
// Difficulty
IniFile.Writestring('Game', 'Difficulty', IDifficulty[Difficulty]);
// Language
IniFile.Writestring('Game', 'Language', ILanguage[Language]);
// Tabs
IniFile.Writestring('Game', 'Tabs', ITabs[Tabs]);
// Sorting
IniFile.Writestring('Game', 'Sorting', ISorting[Sorting]);
// Debug
IniFile.Writestring('Game', 'Debug', IDebug[Debug]);
// Screens
IniFile.Writestring('Graphics', 'Screens', IScreens[Screens]);
// FullScreen
IniFile.Writestring('Graphics', 'FullScreen', IFullScreen[FullScreen]);
// Resolution
IniFile.Writestring('Graphics', 'Resolution', IResolution[Resolution]);
// Depth
IniFile.Writestring('Graphics', 'Depth', IDepth[Depth]);
// TextureSize
IniFile.Writestring('Graphics', 'TextureSize', ITextureSize[TextureSize]);
// Sing Window
IniFile.Writestring('Graphics', 'SingWindow', ISingWindow[SingWindow]);
// Oscilloscope
IniFile.Writestring('Graphics', 'Oscilloscope', IOscilloscope[Oscilloscope]);
// Spectrum
IniFile.Writestring('Graphics', 'Spectrum', ISpectrum[Spectrum]);
// Spectrograph
IniFile.Writestring('Graphics', 'Spectrograph', ISpectrograph[Spectrograph]);
// Movie Size
IniFile.Writestring('Graphics', 'MovieSize', IMovieSize[MovieSize]);
// ClickAssist
IniFile.Writestring('Sound', 'ClickAssist', IClickAssist[ClickAssist]);
// BeatClick
IniFile.Writestring('Sound', 'BeatClick', IBeatClick[BeatClick]);
// AudioOutputBufferSize
IniFile.Writestring('Sound', 'AudioOutputBufferSize', IAudioOutputBufferSize[AudioOutputBufferSizeIndex]);
// Song Preview
IniFile.Writestring('Sound', 'PreviewVolume', IPreviewVolume[PreviewVolume]);
// PreviewFading
IniFile.Writestring('Sound', 'PreviewFading', IPreviewFading[PreviewFading]);
// SavePlayback
IniFile.Writestring('Sound', 'SavePlayback', ISavePlayback[SavePlayback]);
// Lyrics Font
IniFile.Writestring('Lyrics', 'LyricsFont', ILyricsFont[LyricsFont]);
// Lyrics Effect
IniFile.Writestring('Lyrics', 'LyricsEffect', ILyricsEffect[LyricsEffect]);
// Solmization
IniFile.Writestring('Lyrics', 'Solmization', ISolmization[Solmization]);
// NoteLines
IniFile.Writestring('Lyrics', 'NoteLines', INoteLines[NoteLines]);
// Theme
IniFile.Writestring('Themes', 'Theme', ITheme[Theme]);
// Skin
IniFile.Writestring('Themes', 'Skin', ISkin[SkinNo]);
// Color
IniFile.Writestring('Themes', 'Color', IColor[Color]);
SaveInputDeviceCfg(IniFile);
//Log.LogError(InttoStr(Length(CardList)) + ' Cards Saved');
//LoadAnimation
IniFile.Writestring('Advanced', 'LoadAnimation', ILoadAnimation[LoadAnimation]);
//EffectSing
IniFile.Writestring('Advanced', 'EffectSing', IEffectSing[EffectSing]);
//ScreenFade
IniFile.Writestring('Advanced', 'ScreenFade', IScreenFade[ScreenFade]);
//AskbeforeDel
IniFile.Writestring('Advanced', 'AskbeforeDel', IAskbeforeDel[AskbeforeDel]);
//OnSongClick
IniFile.Writestring('Advanced', 'OnSongClick', IOnSongClick[OnSongClick]);
//Line Bonus
IniFile.Writestring('Advanced', 'LineBonus', ILineBonus[LineBonus]);
//Party Popup
IniFile.Writestring('Advanced', 'PartyPopup', IPartyPopup[PartyPopup]);
// Joypad
IniFile.Writestring('Controller', 'Joypad', IJoypad[Joypad]);
IniFile.Free;
end;
end;
procedure TIni.SaveNames;
var
IniFile: TIniFile;
I: integer;
begin
if not FileIsReadOnly(Filename) then
begin
IniFile := TIniFile.Create(Filename);
//Name Templates for Names Mod
for I := 1 to 12 do
IniFile.Writestring('Name', 'P' + IntToStr(I), Name[I-1]);
for I := 1 to 3 do
IniFile.Writestring('NameTeam', 'T' + IntToStr(I), NameTeam[I-1]);
for I := 1 to 12 do
IniFile.Writestring('NameTemplate', 'Name' + IntToStr(I), NameTemplate[I-1]);
IniFile.Free;
end;
end;
procedure TIni.SaveLevel;
var
IniFile: TIniFile;
begin
if not FileIsReadOnly(Filename) then
begin
IniFile := TIniFile.Create(Filename);
// Difficulty
IniFile.Writestring('Game', 'Difficulty', IDifficulty[Difficulty]);
IniFile.Free;
end;
end;
end.