Changeset 664 for trunk/Direct.pas

Timestamp:

Jul 8, 2025, 9:52:53 PM (12 hours ago)

Author:

chronos

Message:

• Added: Ability to play music in background in start screen and in-game. Used uos as audio library.

File:

• trunk/Direct.pas (modified) (2 diffs)

trunk/Direct.pas

@@ -46 +46 @@
 uses
   ScreenTools, Protocol, Start, LocalPlayer, NoTerm, Back, Global, NetworkServer,
-  NetworkClient;
+  NetworkClient, Music, Directories;
 
 {$R *.lfm}
@@ -130 +130 @@
     *)
       end;
-    ntStartDone:
+    ntStartDone: begin
       if not Quick then begin
         StartDlg.Hide;
         Background.Update;
       end;
+      MusicPlayer.LoadPlaylistFromDir(GetMusicDir);
+      MusicPlayer.RandomizePlaylist;
+      if MusicPlayer.Playlist.Count > 0 then MusicPlayer.Play;
+    end;
     ntStartGo, ntStartGoRefresh, ntStartGoRefreshMaps:
       if Quick then Close