Changeset 664 for trunk/Start.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/Start.pas (modified) (2 diffs)

trunk/Start.pas

@@ -155 +155 @@
 uses
   Global, Directories, Direct, ScreenTools, Inp, Back, Settings, KeyBindings,
-  Languages;
+  Languages, Music;
 
 {$R *.lfm}
@@ -942 +942 @@
   ChangeTab(ShowTab);
   Background.Enabled := False;
+
+  MusicPlayer.LoadPlaylistFromDir(GetMusicDir + DirectorySeparator + 'Start');
+  MusicPlayer.RandomizePlaylist;
+  if MusicPlayer.Playlist.Count > 0 then MusicPlayer.Play;
 end;