git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 693 insertions, 0 deletions

diff --git a/Game/Code/Classes/UIni.pas b/Game/Code/Classes/UIni.pas
new file mode 100644
index 00000000..beadabb6
--- /dev/null
+++ b/Game/Code/Classes/UIni.pas
@@ -0,0 +1,693 @@
+unit UIni;

+

+interface

+uses IniFiles, ULog, SysUtils;

+

+type

+  TIni = class

+    Name:           array[0..5] of 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;

+    //LineBonus Mod

+    LineBonus: integer;

+    //GMA Fix

+    GMAFix: integer;

+

+

+    // Sound

+    MicBoost:       integer;

+    ClickAssist:    integer;

+    BeatClick:      integer;

+    SavePlayback:   integer;

+    Threshold:      integer;

+    //TwoPlayerMode:  integer;

+

+    // Lyrics

+    LyricsFont:     integer;

+    LyricsEffect:   integer;

+    Solmization:    integer;

+

+    // Themes

+    Theme:          integer;

+    SkinNo:           integer;

+    Color:          integer;

+

+    // Record

+    Card:           integer; // not saved in config.ini

+

+    CardList:       array of record

+      Name:           string;

+      Input:          integer;

+      ChannelL:       integer;

+      ChannelR:       integer;

+    end;

+

+    // 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;

+  ICard:          array of string;

+  IInput:         array of string;

+

+const

+  IPlayers:       array[0..4] of string = ('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');

+

+  //Line Bonus MOd

+  ILineBonus:  array[0..2] of string = ('Off', 'At Score', 'At Notes');

+  //GMA Fix

+  IGMAFix:  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..1] of string = ('Half', 'Full');

+

+  IMicBoost:      array[0..3] of string = ('Off', '+6dB', '+12dB', '+18dB');

+  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%');

+  //ITwoPlayerMode: array[0..2] of string = ('Stereo', '2 Cards', 'Advanced');

+

+  ILyricsFont:    array[0..2] of string = ('Plain', 'OLine1', 'OLine2');

+  ILyricsEffect:  array[0..3] of string = ('Simple', 'Zoom', 'Slide', 'Ball');

+  ISolmization:   array[0..3] of string = ('Off', 'Euro', 'Jap', 'American');

+

+  IColor:         array[0..8] of string = ('Blue', 'Green', 'Pink', 'Red', 'Violet', 'Orange', 'Yellow', 'Brown', 'Black');

+

+  IJoypad:        array[0..1] of string = ('Off', 'On');

+  ILPT:           array[0..2] of string = ('Off', 'LCD', 'Lights');

+

+  IChannel:       array[0..6] of string = ('0', '1', '2', '3', '4', '5', '6');

+

+implementation

+uses UPliki, SDL, ULanguage, USkins, URecord;

+

+procedure TIni.Load;

+var

+  IniFile:    TMemIniFile;

+  ThemeIni:   TMemIniFile;

+  Tekst:      string;

+  Pet:        integer;

+  B: boolean;

+  I, I2, I3:          integer;

+  S:          string;

+  Modes:      PPSDL_Rect;

+  SR: TSearchRec; //Skin List Patch

+

+function GetFileName (S: String):String;

+  begin

+  //Result := copy (S,0,StrRScan (PChar(S),char('.'))+1);

+  Result := copy (S,0,Pos ('.ini',S)-1);

+  end;

+

+begin

+  GamePath := ExtractFilePath(ParamStr(0));

+  IniFile := TMemIniFile.Create(GamePath + 'config.ini');

+

+  // Name

+  for I := 0 to 5 do

+    Ini.Name[I] := IniFile.ReadString('Name', 'P'+IntToStr(I+1), 'Player'+IntToStr(I+1));

+

+  // Players

+  Tekst := IniFile.ReadString('Game', 'Players', IPlayers[0]);

+  for Pet := 0 to High(IPlayers) do

+    if Tekst = IPlayers[Pet] then Ini.Players := Pet;

+

+  // Difficulty

+  Tekst := IniFile.ReadString('Game', 'Difficulty', 'Easy');

+  for Pet := 0 to High(IDifficulty) do

+    if Tekst = IDifficulty[Pet] then Ini.Difficulty := Pet;

+

+  // Language

+  Tekst := IniFile.ReadString('Game', 'Language', 'English');

+  for Pet := 0 to High(ILanguage) do

+    if Tekst = ILanguage[Pet] then Ini.Language := Pet;

+

+//  Language.ChangeLanguage(ILanguage[Ini.Language]);

+

+  // Tabs

+  Tekst := IniFile.ReadString('Game', 'Tabs', ITabs[0]);

+  for Pet := 0 to High(ITabs) do

+    if Tekst = ITabs[Pet] then Ini.Tabs := Pet;

+

+  //Tabs at Startup fix

+  Ini.Tabs_at_startup := Ini.Tabs;

+

+  // Sorting

+  Tekst := IniFile.ReadString('Game', 'Sorting', ISorting[0]);

+  for Pet := 0 to High(ISorting) do

+    if Tekst = ISorting[Pet] then Ini.Sorting := Pet;

+

+  // Debug

+  Tekst := IniFile.ReadString('Game', 'Debug', IDebug[0]);

+  for Pet := 0 to High(IDebug) do

+    if Tekst = IDebug[Pet] then Ini.Debug := Pet;

+

+  //if Ini.Debug = 1 then SongPath := 'E:\UltraStar 03\Songs\';

+

+  // Screens

+  Tekst := IniFile.ReadString('Graphics', 'Screens', IScreens[0]);

+  for Pet := 0 to High(IScreens) do

+    if Tekst = IScreens[Pet] then Ini.Screens := Pet;

+

+  // Resolution

+  SetLength(IResolution, 0);

+  Modes := SDL_ListModes(nil, SDL_OPENGL or SDL_FULLSCREEN); // Check if there are any modes available

+  repeat

+//    Log.LogError(Format( ' %d x %d', [ modes^.w, modes^.h ] ) );

+    SetLength(IResolution, Length(IResolution) + 1);

+    IResolution[High(IResolution)] := IntToStr(Modes^.w) + 'x' + IntToStr(Modes^.h);

+    Inc(Modes);

+  until Modes^ = nil;

+

+  // reverse order

+  for I := 0 to (Length(IResolution) div 2) - 1 do begin

+    S := IResolution[I];

+    IResolution[I] := IResolution[High(IResolution)-I];

+    IResolution[High(IResolution)-I] := S;

+  end;

+

+  Tekst := IniFile.ReadString('Graphics', 'Resolution', '800x600');

+  for Pet := 0 to High(IResolution) do

+    if Tekst = IResolution[Pet] then Ini.Resolution := Pet;

+

+  // FullScreen

+  Tekst := IniFile.ReadString('Graphics', 'FullScreen', 'On');

+  for Pet := 0 to High(IFullScreen) do

+    if Tekst = IFullScreen[Pet] then Ini.FullScreen := Pet;

+

+  // Resolution

+  Tekst := IniFile.ReadString('Graphics', 'Depth', '32 bit');

+  for Pet := 0 to High(IDepth) do

+    if Tekst = IDepth[Pet] then Ini.Depth := Pet;

+

+  // Texture Size

+  Tekst := IniFile.ReadString('Graphics', 'TextureSize', ITextureSize[1]);

+  for Pet := 0 to High(ITextureSize) do

+    if Tekst = ITextureSize[Pet] then Ini.TextureSize := Pet;

+

+  // SingWindow

+  Tekst := IniFile.ReadString('Graphics', 'SingWindow', 'Big');

+  for Pet := 0 to High(ISingWindow) do

+    if Tekst = ISingWindow[Pet] then Ini.SingWindow := Pet;

+

+  // Oscilloscope

+  Tekst := IniFile.ReadString('Graphics', 'Oscilloscope', 'Off');

+  for Pet := 0 to High(IOscilloscope) do

+    if Tekst = IOscilloscope[Pet] then Ini.Oscilloscope := Pet;

+

+  // Line Bonus

+  Tekst := IniFile.ReadString('Graphics', 'LineBonus', 'At Score');

+  for Pet := 0 to High(ILineBonus) do

+    if Tekst = ILineBonus[Pet] then Ini.LineBonus := Pet;

+

+  //GMA Fix

+  Tekst := IniFile.ReadString('Graphics', 'GMAFix', 'Off');

+  for Pet := 0 to High(IGMAFix) do

+    if Tekst = IGMAFix[Pet] then Ini.GMAFix := Pet;

+

+  // Spectrum

+  Tekst := IniFile.ReadString('Graphics', 'Spectrum', 'Off');

+  for Pet := 0 to High(ISpectrum) do

+    if Tekst = ISpectrum[Pet] then Ini.Spectrum := Pet;

+

+  // Spectrograph

+  Tekst := IniFile.ReadString('Graphics', 'Spectrograph', 'Off');

+  for Pet := 0 to High(ISpectrograph) do

+    if Tekst = ISpectrograph[Pet] then Ini.Spectrograph := Pet;

+

+  // MovieSize

+  Tekst := IniFile.ReadString('Graphics', 'MovieSize', IMovieSize[0]);

+  for Pet := 0 to High(IMovieSize) do

+    if Tekst = IMovieSize[Pet] then Ini.MovieSize := Pet;

+

+  // MicBoost

+  Tekst := IniFile.ReadString('Sound',    'MicBoost',    'Off');

+  for Pet := 0 to High(IMicBoost) do

+    if Tekst = IMicBoost[Pet] then Ini.MicBoost := Pet;

+

+  // ClickAssist

+  Tekst := IniFile.ReadString('Sound',    'ClickAssist', 'Off');

+  for Pet := 0 to High(IClickAssist) do

+    if Tekst = IClickAssist[Pet] then Ini.ClickAssist := Pet;

+

+  // BeatClick

+  Tekst := IniFile.ReadString('Sound',    'BeatClick', IBeatClick[0]);

+  for Pet := 0 to High(IBeatClick) do

+    if Tekst = IBeatClick[Pet] then Ini.BeatClick := Pet;

+

+  // SavePlayback

+  Tekst := IniFile.ReadString('Sound',    'SavePlayback', ISavePlayback[0]);

+  for Pet := 0 to High(ISavePlayback) do

+    if Tekst = ISavePlayback[Pet] then Ini.SavePlayback := Pet;

+

+  // Threshold

+  Tekst := IniFile.ReadString('Sound', 'Threshold', IThreshold[2]);

+  for Pet := 0 to High(IThreshold) do

+    if Tekst = IThreshold[Pet] then Ini.Threshold := Pet;

+

+  {// Two Player Mode

+  for I := 0 to 7 do begin

+    Ini.SoundCard[I, 1] := 2*I + 1;

+    Ini.SoundCard[I, 2] := 2*I + 2;

+  end;

+

+  Tekst := IniFile.ReadString('Sound', 'TwoPlayerMode', ITwoPlayerMode[0]);

+  for Pet := 0 to High(ITwoPlayerMode) do

+    if Tekst = ITwoPlayerMode[Pet] then Ini.TwoPlayerMode := Pet;

+

+  if Ini.TwoPlayerMode = 1 then begin

+    Ini.SoundCard[0, 1] := 1;

+    Ini.SoundCard[0, 2] := 3;

+    Ini.SoundCard[1, 1] := 2;

+  end;}

+

+  // Lyrics Font

+  Tekst := IniFile.ReadString('Lyrics',    'LyricsFont',   ILyricsFont[1]);

+  for Pet := 0 to High(ILyricsFont) do

+    if Tekst = ILyricsFont[Pet] then Ini.LyricsFont := Pet;

+

+  // Lyrics Effect

+  Tekst := IniFile.ReadString('Lyrics',    'LyricsEffect',   ILyricsEffect[1]);

+  for Pet := 0 to High(ILyricsEffect) do

+    if Tekst = ILyricsEffect[Pet] then Ini.LyricsEffect := Pet;

+

+  // Solmization

+  Tekst := IniFile.ReadString('Lyrics',    'Solmization',   ISolmization[0]);

+  for Pet := 0 to High(ISolmization) do

+    if Tekst = ISolmization[Pet] then Ini.Solmization := Pet;

+

+  // Theme

+  {SetLength(ITheme, 0);

+  if FileExists('Themes\Singstar.ini') then begin

+    SetLength(ITheme, Length(ITheme)+1);

+    ITheme[High(ITheme)] := 'Singstar';

+  end; {

+  if FileExists('Themes\Karin.ini') then begin

+    SetLength(ITheme, Length(ITheme)+1);

+    ITheme[High(ITheme)] := 'Karin';

+  end;}

+

+  //Theme List Patch

+    SetLength(ITheme, 0);

+    FindFirst('Themes\*.ini',faAnyFile,SR);

+    Repeat

+      ThemeIni := TMemIniFile.Create(SR.Name);

+      Tekst := UpperCase(ThemeIni.ReadString('Theme','Name',GetFileName(SR.Name)));

+      ThemeIni.Free;

+      for Pet := low(Skin.Skin) to high(Skin.Skin) do

+      begin

+        if UpperCase(Skin.Skin[Pet].Theme) = Tekst then

+        begin

+          SetLength(ITheme, Length(ITheme)+1);

+          ITheme[High(ITheme)] := GetFileName(SR.Name);

+          break;

+        end;

+      end;

+    Until FindNext(SR) <> 0;

+    FindClose(SR);

+  //Theme List Patch End }

+

+  //No Theme Found

+  if (Length(ITheme)=0) then

+  begin

+    Log.LogError('Could not find any valid Themes.');

+    Halt;

+  end;

+

+

+  Tekst := IniFile.ReadString('Themes',    'Theme',   ITheme[0]);

+  Ini.Theme := 0;

+  for Pet := 0 to High(ITheme) do

+    if Uppercase(Tekst) = Uppercase(ITheme[Pet]) then Ini.Theme := Pet;

+

+  // Skin

+  Skin.onThemeChange;

+  Ini.SkinNo := 0;

+

+  Tekst := IniFile.ReadString('Themes',    'Skin',   ISkin[0]);

+  for Pet := 0 to High(ISkin) do

+    if Tekst = ISkin[Pet] then Ini.SkinNo := Pet;

+

+  // Color

+  Tekst := IniFile.ReadString('Themes',    'Color',   IColor[0]);

+  for Pet := 0 to High(IColor) do

+    if Tekst = IColor[Pet] then Ini.Color := Pet;

+

+  // Record - load ini list

+  SetLength(CardList, 0);

+  I := 1;

+  while (IniFile.ValueExists('Record', 'DeviceName' + IntToStr(I)) = true) do begin

+    //Automatically Delete not Existing Sound Cards

+    S := IniFile.ReadString('Record', 'DeviceName' + IntToStr(I), '');

+    //{

+    B := False;

+    //Look for Soundcard

+    for I2 := 0 to High(Recording.SoundCard) do

+    begin

+      if (S = Trim(Recording.SoundCard[I2].Description)) then

+      begin

+      B := True;

+      Break;

+      end;

+    end;

+

+    if B then

+    begin //}

+      I3 := Length(CardList);

+      SetLength(CardList, I3+1);

+      Ini.CardList[I3].Name := S;

+      Ini.CardList[I3].Input := IniFile.ReadInteger('Record', 'Input' + IntToStr(I), 0);

+      Ini.CardList[I3].ChannelL := IniFile.ReadInteger('Record', 'ChannelL' + IntToStr(I), 0);

+      Ini.CardList[I3].ChannelR := IniFile.ReadInteger('Record', 'ChannelR' + IntToStr(I), 0);

+    end;

+    Inc(I);

+  end;

+

+  Log.LogError(InttoStr(Length(CardList)) + ' Cards Loaded');

+

+  // Record - append detected soundcards

+  for I := 0 to High(Recording.SoundCard) do

+  begin

+    B := False;

+    For I2 := 0 to High(CardList) do

+    begin //Search for Card in List

+      if (CardList[I2].Name = Trim(Recording.SoundCard[I].Description)) then

+      begin

+        B := True;

+        Break;

+      end;

+    end;

+

+    //If not in List -> Add

+    If not B then

+    begin

+      I3 := Length(CardList);

+      SetLength(CardList, I3+1);

+      CardList[I3].Name := Trim(Recording.SoundCard[I].Description);

+      CardList[I3].Input := 0;

+      CardList[I3].ChannelL := 0;

+      CardList[I3].ChannelR := 0;

+      // default for new users

+      if (Length(CardList) = 1) then

+        CardList[I].ChannelL := 1;

+    end;

+  end;

+

+  {for I := 0 to High(Recording.SoundCard) do begin

+

+    B := false;

+    I2 := 0;

+    while ((B = false) and (I2 <= High(CardList))) do

+      if CardList[I2].Name = Recording.SoundCard[I].Description then B := true

+      else Inc(I2);

+

+    // if the card wasn't detected in ini file, append it to the ini list

+    if B = false then begin

+      I3 := Length(CardList);

+      SetLength(CardList, I3+1);

+      CardList[I3].Name := Recording.SoundCard[I].Description;

+      CardList[I3].Input := 0;

+      CardList[I3].ChannelL := 0;

+      CardList[I3].ChannelR := 0;

+      if Length(CardList) = 1 then CardList[I].ChannelL := 1; // default for new users

+      //CardList[I].Input := 2;

+    end;

+  end; }

+

+  Log.LogError(InttoStr(Length(CardList)) + ' Cards Detected');

+

+  // Joypad

+  Tekst := IniFile.ReadString('Controller',    'Joypad',   IJoypad[0]);

+  for Pet := 0 to High(IJoypad) do

+    if Tekst = IJoypad[Pet] then Ini.Joypad := Pet;

+

+  // SoundCard

+  for I := 0 to 7 do begin

+    Ini.SoundCard[I, 1] := IniFile.ReadInteger('SoundCards', 'SoundCard'+IntToStr(I+1)+'L', Ini.SoundCard[I, 1]);

+    Ini.SoundCard[I, 2] := IniFile.ReadInteger('SoundCards', 'SoundCard'+IntToStr(I+1)+'R', Ini.SoundCard[I, 2]);

+  end;

+

+  // LCD

+  Tekst := IniFile.ReadString('Devices',    'LPT',   ILPT[0]);

+  for Pet := 0 to High(ILPT) do

+    if Tekst = ILPT[Pet] then Ini.LPT := Pet;

+

+

+  // SongPath

+  SongPath := IncludeTrailingPathDelimiter(IniFile.ReadString('Path', 'Songs', SongPath));

+

+

+  IniFile.Free;

+end;

+

+procedure TIni.Save;

+var

+  IniFile:    TIniFile;

+  Tekst:      string;

+  I: Integer;

+  S: String;

+begin

+  if not (FileExists(GamePath + 'config.ini') and FileIsReadOnly(GamePath + 'config.ini')) then begin

+    IniFile := TIniFile.Create(GamePath + 'config.ini');

+

+  // Players

+  Tekst := IPlayers[Ini.Players];

+  IniFile.WriteString('Game',     'Players',   Tekst);

+

+  // Difficulty

+  Tekst := IDifficulty[Ini.Difficulty];

+  IniFile.WriteString('Game',     'Difficulty',   Tekst);

+

+  // Language

+  Tekst := ILanguage[Ini.Language];

+  IniFile.WriteString('Game',     'Language',   Tekst);

+

+  // Tabs

+  Tekst := ITabs[Ini.Tabs];

+  IniFile.WriteString('Game',     'Tabs',   Tekst);

+

+  // Sorting

+  Tekst := ISorting[Ini.Sorting];

+  IniFile.WriteString('Game',     'Sorting',   Tekst);

+

+  // Debug

+  Tekst := IDebug[Ini.Debug];

+  IniFile.WriteString('Game',     'Debug',   Tekst);

+

+  // Screens

+  Tekst := IScreens[Ini.Screens];

+  IniFile.WriteString('Graphics', 'Screens', Tekst);

+

+  // FullScreen

+  Tekst := IFullScreen[Ini.FullScreen];

+  IniFile.WriteString('Graphics', 'FullScreen', Tekst);

+

+  // Resolution

+  Tekst := IResolution[Ini.Resolution];

+  IniFile.WriteString('Graphics', 'Resolution', Tekst);

+

+  // Depth

+  Tekst := IDepth[Ini.Depth];

+  IniFile.WriteString('Graphics', 'Depth', Tekst);

+

+  // Resolution

+  Tekst := ITextureSize[Ini.TextureSize];

+  IniFile.WriteString('Graphics', 'TextureSize', Tekst);

+

+  // Sing Window

+  Tekst := ISingWindow[Ini.SingWindow];

+  IniFile.WriteString('Graphics', 'SingWindow', Tekst);

+

+  // Oscilloscope

+  Tekst := IOscilloscope[Ini.Oscilloscope];

+  IniFile.WriteString('Graphics', 'Oscilloscope', Tekst);

+

+  //Line Bonus

+  Tekst := ILineBonus[Ini.LineBonus];

+  IniFile.WriteString('Graphics', 'LineBonus', Tekst);

+

+  //GMA Fix

+  Tekst := IGMAFix[Ini.GMAFix];

+  IniFile.WriteString('Graphics', 'GMAFix', Tekst);

+

+  // Spectrum

+  Tekst := ISpectrum[Ini.Spectrum];

+  IniFile.WriteString('Graphics', 'Spectrum', Tekst);

+

+  // Spectrograph

+  Tekst := ISpectrograph[Ini.Spectrograph];

+  IniFile.WriteString('Graphics', 'Spectrograph', Tekst);

+

+  // Movie Size

+  Tekst := IMovieSize[Ini.MovieSize];

+  IniFile.WriteString('Graphics', 'MovieSize', Tekst);

+

+  // MicBoost

+  Tekst := IMicBoost[Ini.MicBoost];

+  IniFile.WriteString('Sound',    'MicBoost',    Tekst);

+

+  // ClickAssist

+  Tekst := IClickAssist[Ini.ClickAssist];

+  IniFile.WriteString('Sound',    'ClickAssist',    Tekst);

+

+  // BeatClick

+  Tekst := IBeatClick[Ini.BeatClick];

+  IniFile.WriteString('Sound',    'BeatClick',    Tekst);

+

+  // Threshold

+  Tekst := IThreshold[Ini.Threshold];

+  IniFile.WriteString('Sound',    'Threshold',    Tekst);

+

+  // SavePlayback

+  Tekst := ISavePlayback[Ini.SavePlayback];

+  IniFile.WriteString('Sound',    'SavePlayback',    Tekst);

+

+  {// Two Player Mode

+  Tekst := ITwoPlayerMode[Ini.TwoPlayerMode];

+  IniFile.WriteString('Sound',    'TwoPlayerMode',    Tekst); }

+

+  // Lyrics Font

+  Tekst := ILyricsFont[Ini.LyricsFont];

+  IniFile.WriteString('Lyrics',    'LyricsFont',    Tekst);

+

+  // Lyrics Effect

+  Tekst := ILyricsEffect[Ini.LyricsEffect];

+  IniFile.WriteString('Lyrics',    'LyricsEffect',    Tekst);

+

+  // Solmization

+  Tekst := ISolmization[Ini.Solmization];

+  IniFile.WriteString('Lyrics',    'Solmization',    Tekst);

+

+  // Theme

+  Tekst := ITheme[Ini.Theme];

+  IniFile.WriteString('Themes',    'Theme',    Tekst);

+

+  // Skin

+  Tekst := ISkin[Ini.SkinNo];

+  IniFile.WriteString('Themes',    'Skin',    Tekst);

+

+  // Color

+  Tekst := IColor[Ini.Color];

+  IniFile.WriteString('Themes',    'Color',    Tekst);

+

+  // Record

+    for I := 0 to High(CardList) do begin

+      S := IntToStr(I+1);

+

+      Tekst := CardList[I].Name;

+      IniFile.WriteString('Record', 'DeviceName' + S, Tekst);

+

+      Tekst := IntToStr(CardList[I].Input);

+      IniFile.WriteString('Record', 'Input' + S, Tekst);

+

+      Tekst := IntToStr(CardList[I].ChannelL);

+      IniFile.WriteString('Record', 'ChannelL' + S, Tekst);

+

+      Tekst := IntToStr(CardList[I].ChannelR);

+      IniFile.WriteString('Record', 'ChannelR' + S, Tekst);

+    end;

+

+    Log.LogError(InttoStr(Length(CardList)) + ' Cards Saved');

+

+  // Joypad

+  Tekst := IJoypad[Ini.Joypad];

+  IniFile.WriteString('Controller',    'Joypad',    Tekst);

+

+    IniFile.Free;

+  end;

+end;

+

+procedure TIni.SaveNames;

+var

+  IniFile:    TIniFile;

+  I:          integer;

+begin

+  if not FileIsReadOnly(GamePath + 'config.ini') then begin

+    IniFile := TIniFile.Create(GamePath + 'config.ini');

+

+    //Name

+    for I := 1 to 6 do

+      IniFile.WriteString('Name', 'P' + IntToStr(I), Ini.Name[I-1]);

+

+    IniFile.Free;

+  end;

+end;

+

+procedure TIni.SaveLevel;

+var

+  IniFile:    TIniFile;

+  I:          integer;

+begin

+  if not FileIsReadOnly(GamePath + 'config.ini') then begin

+    IniFile := TIniFile.Create(GamePath + 'config.ini');

+

+    // Difficulty

+    IniFile.WriteString('Game', 'Difficulty', IDifficulty[Ini.Difficulty]);

+

+    IniFile.Free;

+  end;

+end;

+

+end.
\ No newline at end of file