MediaMonkey forum

The section looks fine, thanks. I found the problem and will update the install package shortly.

Ray

Nyn, found the problem - new version is available in post 1.

Ray

Betcha didn't think you would spend so much time developing this. BTW, the CopytoPlaylists is VERY handy when I am evaluating new tracks, makes it much easier to assign them to the appropriate playlist later. Thanks for both....

Nyn

raybeau528 wrote:Nyn, found the problem - new version is available in post 1.

Ray

Thanks, that fixed it.

Nyn

Nyn, glad you liked that little copytoplaylist feature. The few scripts I've written I've done so because they support how I like to use MM. Suggestions such as yours help make it better. And speaking of suggestions, I'm thinking of adding a couple small buttons to the mmstation panel and was looking for inputs - perhaps randomize the selected playlist or something else related to the theme of mmStations. Space is limited in the horizontal layout but I could probably squeeze two buttons in the space of a station button - these would be in addition to the ten station buttons. Any thoughts?

Ray

Ok:

I've had some time to think about it and I like the randomize option. Also, maybe an option that would take you to the last selected playlist but not sure how you would get that to work if you haven't selected a playlist within that session. I really cannot think of anything else in the theme of mmStations that would help. Of course as soon as I stop thinking about it, I'll probably have more ideas.

Nyn

Your 2.3 fix did it for me - everything is working very smoothly. Thanks so much!

raybeau528 wrote:Nyn,

Here's a quick a dirty script to copy the Now Playing.

Code: Select all

'
' MediaMonkey Script
'
' NAME:  SaveNowPlaying
'
'
' [SaveNowPlaying]
' FileName=SaveNowPlaying.vbs
' ProcName=SaveNowPlaying
' Order=210
' DisplayName=Save NowPlaying
' Description=Save NowPlaying List to a PlayList
' Language=VBScript
' ScriptType=0
'
'

Option Explicit

Sub OnStartup	'Create Save NowPlaying Menu Item

  Dim itm1

  Set itm1 = SDB.UI.AddMenuItem(SDB.UI.Menu_Pop_NP,0,0)
  itm1.Caption = "Save NowPlaying"
  itm1.OnClickFunc = "SaveNowPlaying"
  itm1.UseScript = Script.ScriptPath
  itm1.IconIndex = 18
  itm1.Visible = True

End Sub 'OnStartup


Sub SaveNowPlaying(arg)

	Dim tree 				: Set tree = SDB.MainTree
	Dim SelectedPlayList	: Set SelectedPlayList = sdb.playlistbytitle( SDB.MainTree.CurrentNode.caption )	
	Dim SelectedSongList 	: Set SelectedSongList = SDB.CurrentSongList
	Dim NewSongList			: Set NewSongList = SDB.NewSongList


	Dim TopPlayList	: Set TopPlaylist = SDB.PlaylistByTitle("")
	Dim NewPlayList
	Set NewPlayList = TopPlayList.CreateChildPlaylist("Copy of NowPlaying "&dtnum)
	If not (NewPlayList is Nothing) Then
		NewPlayList.Clear
	End If
			
	NewPlayList.AddTracks(SDB.Player.CurrentSongList)

End Sub

' Returns a 14 char string which changes every second - should be unique for this application
function dtNum()
	
	dim y,m,d,h,n,s
	
	y = Cstr(DatePart("YYYY",Date))
	m = zfill(Cstr(DatePart("m",Date)),2)
	d = zfill(Cstr(DatePart("d",Date)),2)
	h = zfill(Cstr(DatePart("h",now)),2)
	n = zfill(Cstr(DatePart("n",now)),2)
	s = zfill(Cstr(DatePart("s",Now)),2)
	
	dtNum = y & m & d & h & n & s
	
end function


' Left fills with zeros
function zfill(s,n)

	dim i,t
	t=s
	while len(t) < n
		t = "0" & t
	wend
	zfill = t

end function

Ray:

Is it possible to add some kind of timer to this or better yet a way for it to save the NP list either or startup or shutdown??

Nyn

Nice script. Any chance you can enhance to be able to add MegaDJ playlists?

Nyn,

By timer, do you mean automatically save the nowplaying list every x minutes/seconds ? I can look at saving at startup or shutdown as well.

Rogerr,
Let me look into it. I believe a MegaDJ playlist is quite different than the MM playlists but almost anything's possible.


Ray

raybeau528 wrote:Nyn,

By timer, do you mean automatically save the nowplaying list every x minutes/seconds ? I can look at saving at startup or shutdown as well.


Ray

I would be content with a startup or shutdown autosave but if you could get it to save every hour or so that would be fantastic.

Nyn

Nyn,

Your preference then would be to have it save the current playing song to the favorites playlist every hour? That should be doable.

Ray

Ray:

No, not that one, the script you created to save the now playling list to a particular saved list. I'm ok with the favorites being a manual process.

Nyn

Ah! That makes much more sense!

Ray

Nyn,

This will trigger a copy every 1 hour. If you want to change the frequency, change the 1000*60*60 in this line:
Where 1000 is for 1 second.