ࡱ>  Root EntryC,J?@Info AliasesEvents Script1136 Play MP3 File http://www.gnu-linux.net/klient/Jeremy Janssensjeremyj@gnu-linux.net0.9Shows the MP3 file you want to play in Klient. The script is very simple, it needs MP3s to be registered to an application e.g. Winamp.IdentifiersPopups C,J?C,J?Channel Chat <$$ Play MP3 FileDim SelectorId Dim Filename Dim Title Dim InitialPath 'open the file selector dialog to the last directory the user had it in 'if this information hasn't been set yet or the directory doesn't exist, 'use "Default Script\" directory as the default InitialPath = RegReadMisc( "Select MP3 Song", Klient.Path & "Default Script\" ) if not FileMgr.DirectoryExists(InitialPath) then InitialPath = Klient.Path end if 'create a file selection box SelectorId = FileMgr.CreateFileSelector( "Select MP3 Song", InitialPath, "mp3", False ) 'select file to play FileName = FileMgr.SelectFile( SelectorId ) Title = FileMgr.ExtractFilename ( Filename ) 'play the file, remember the directory it was chosen from if Filename <> "" then Klient.Launch Filename Klient.CommandFrom WindowHandle, "say " & Chr(2) & "-=" & Chr(3) & "12" & "(MP3 Music)" & Chr(3) & "=- " + Title & Chr(2) & " {Klient 1.0 Beta 16}" RegWriteMisc "Select MP3 Song", FileMgr.FileSelectorDir( SelectorId ) end if CloseFileSelector( SelectorId )$$$$$Names List<Notify <Query  <Server<Global