Changeset 666 for trunk/Start.pas

Timestamp:

Jul 9, 2025, 10:36:23 PM (14 hours ago)

Author:

chronos

Message:

• Added: Music volume option in game settings form.

File:

• trunk/Start.pas (modified) (7 diffs)

trunk/Start.pas

@@ -123 +123 @@
     LastGame: string;
     LastMap: string;
+    procedure UpdateMusic;
     procedure DrawAction(Y, IconIndex: Integer; HeaderItem, TextItem: string);
     procedure InitPopup(PlayerIndex: Integer);
@@ -337 +338 @@
 
 procedure TStartDlg.SmartInvalidate(x0, y0, x1, y1: Integer;
-  invalidateTab0: Boolean);
+  InvalidateTab0: Boolean);
 var
   I: Integer;
@@ -414 +415 @@
       else ScreenMode := 1;
     FullScreen := ScreenMode > 0;
+    if ValueExists('MusicEnabled') then MusicEnabled := ReadBool('MusicEnabled')
+      else MusicEnabled := True;
+    if ValueExists('MusicVolume') then MusicVolume := ReadFloat('MusicVolume')
+      else MusicVolume := 0.5;
     if ValueExists('TermLeft') then TermBounds.Left := ReadInteger('TermLeft')
       else TermBounds.Left := 0;
@@ -460 +465 @@
     if FullScreen then WriteInteger('ScreenMode', 1)
       else WriteInteger('ScreenMode', 0);
+    WriteBool('MusicEnabled', MusicEnabled);
+    WriteFloat('MusicVolume', MusicVolume);
     WriteInteger('TermWidth', TermBounds.Width);
     WriteInteger('TermHeight', TermBounds.Height);
@@ -537 +544 @@
     UpdateInterface;
     Background.UpdateInterface;
+    UpdateMusic;
   end;
   FreeAndNil(SettingsDlg);
@@ -943 +951 @@
   Background.Enabled := False;
 
-  MusicPlayer.LoadPlaylistFromDir(GetMusicDir + DirectorySeparator + 'Start');
-  MusicPlayer.RandomizePlaylist;
-  if MusicPlayer.Playlist.Count > 0 then MusicPlayer.Play;
+  UpdateMusic;
 end;
 
@@ -1961 +1967 @@
 end;
 
+procedure TStartDlg.UpdateMusic;
+begin
+  if MusicEnabled then begin
+    MusicPlayer.Volume := MusicVolume;
+    if not MusicPlayer.Playing then begin
+      MusicPlayer.LoadPlaylistFromDir(GetMusicDir + DirectorySeparator + 'Start');
+      MusicPlayer.RandomizePlaylist;
+      if MusicPlayer.Playlist.Count > 0 then MusicPlayer.Play;
+    end;
+  end else begin
+    if MusicPlayer.Playing then MusicPlayer.Stop;
+  end;
+end;
+
 end.