I have the same problem, even with ClearNowPlayingButton extension

[url=https://postimg.org/image/5qt2xphat/][img]https://s2.postimg.org/6gbva2huh/Img_28_03_2017_13_21_56.jpg[/img][/url]

Hi again, I had a look at the other script, and could see an 'install' function, adding entries to scripts.ini.

I added the following manually, enabling me to configure a hotkey via MM Options


[ClearAndQueue]
Filename=Auto\ClearAndQueue.vbs
Procname=ClearAndQueue
Order=51
DisplayName=Clear and Queue
Description=Clears now playing and enqueues selected
Language=VBScript
ScriptType=99

The existing functionality still works (via context>Clear and Queue), but when using the shortcut I've setup, I get an error:

[img]http://i.imgur.com/idTmQBD.png[/img]
after this, the script stops working at all until MM is restarted...

Does anyone know how to successfully modify + enable hotkeys? ScriptType maybe?

Hi,

I'm trying to manage my context (and hopefully/eventually my shortcut keys) for Play options.

I wanted [b]play last[/b] as my default, with the option to 'play now' / 'play next' available (in MM) via hotkeys.

I have a script ([url=http://www.mediamonkey.com/forum/viewtopic.php?f=2&t=39582#p204483]PlayAlbum[/url] I think) that adds entries to the hotkeys, enabling it to be configured like so

[img]http://i.imgur.com/2XUMKaQ.png[/img]

[img]http://i.imgur.com/isvTCY3.png[/img]

Can [i]Clear and Queue[/i] be modified to enable this level of configuration (call via hotkey)?

Thanks!

Sub ClearAndQueue(obj)

  Dim Selected
  
  Set Selected = SDB.CurrentSongList

  If Selected.Count > 0 Then
    Dim Randomized : Set Randomized = RandomizedSongList(Selected)
    SDB.Player.PlaylistClear
'     SDB.Player.PlaylistAddTrack(SDB.Player.CurrentSong)    
    SDB.Player.PlaylistAddTracks(Randomized)
    SDB.Player.isRepeat = True
    If SDB.Player.isPlaying = False Then SDB.Player.Play
  End If

End Sub

Function RandomizedSongList(f)
  Dim RndList : RndList = RandomList(f.Count)
  Dim t : Set t = SDB.NewSongList
  Dim i
  For i = 0 To f.Count - 1
	t.Add( f.Item( RndList(i) ) )
  Next
  Set RandomizedSongList = t
End Function

Function RandomList(size)
  Randomize
  ReDim list(size)
  Dim i
  For i = 0 To size - 1
    list(i) = i
  Next
  For i = 0 To size - 1
    Dim j : j = Int( (size - i + 1) * Rnd + i )
    Dim tmp : tmp = list(i)
    list(i) = list(j)
    list(j) = tmp
  Next
  RandomList = list
End Function

Thought I'd share a customization. This adds the current song list in random order (and does that quickly), and enables continuous playback. Someone could add switches to enable/disable these things. I'll do that myself if I ever find a need for disabling them.

[code]
Sub ClearAndQueue(obj)

Dim Selected

Set Selected = SDB.CurrentSongList

If Selected.Count > 0 Then
Dim Randomized : Set Randomized = RandomizedSongList(Selected)
SDB.Player.PlaylistClear
' SDB.Player.PlaylistAddTrack(SDB.Player.CurrentSong)
SDB.Player.PlaylistAddTracks(Randomized)
SDB.Player.isRepeat = True
If SDB.Player.isPlaying = False Then SDB.Player.Play
End If

End Sub

Function RandomizedSongList(f)
Dim RndList : RndList = RandomList(f.Count)
Dim t : Set t = SDB.NewSongList
Dim i
For i = 0 To f.Count - 1
t.Add( f.Item( RndList(i) ) )
Next
Set RandomizedSongList = t
End Function

Function RandomList(size)
Randomize
ReDim list(size)
Dim i
For i = 0 To size - 1
list(i) = i
Next
For i = 0 To size - 1
Dim j : j = Int( (size - i + 1) * Rnd + i )
Dim tmp : tmp = list(i)
list(i) = list(j)
list(j) = tmp
Next
RandomList = list
End Function
[/code]

Thanks, Nyn.

[quote="MM3 monkey"]

Also In Nyn's signature is a script "Copy 2 Playlist". A google of [[ site:mediamonkey.com/forum intitle:copy intitle:playlist ]] didn't find it. I wonder what it is?[/quote]

MM3:

This is a little one that Raybeau made for me in order to copy the now playing song to a particular playlist. You can find it by scrolling in the Stations topic, I think it is on page 2 or 3. I also use Onenonymous's Right Click for Scripts script in order to add a toolbar icon for it onto the Now Playing Main window, which makes it more accessible. THis script is quite handy because it allows me to save songs that I eventually want to add to a particular playlist but at the time I am too busy to work on it.

There is also another one he created in the same forum, this one will copy the entire now playing list to a particular playlist, there is one that is manual and one that can be setup to run automatically at a certain time. I use the manual one because I was getting too many with the automated one.

Nyn

Sub ClearBeforeNP(o)
	dim iSongItem, i
	iSongItem = CInt(SDB.Player.CurrentSongIndex)
	For i = 0 To iSongItem - 1
		SDB.Player.PlaylistDelete(0)
	Next
End Sub

Sub ClearAfterNP(o)
	dim iSongItem, i
	iSongItem = CInt(SDB.Player.CurrentSongIndex) + 1
	For i = iSongItem to SDB.Player.PlaylistCount 
		SDB.Player.PlaylistDelete(iSongItem)
	Next
End Sub

Sub ClearBeforeAfterNP(o)
	Call ClearBeforeNP(o)
	Call ClearAfterNP(o)
End Sub

I use the code below in my ClearNowPlayingButton.vbs script. It does slow down if there are lots of files in Now Playing- but it does do the trick to remove before and after the currently playing song without removing it. Just call ClearBeforeAfterNP(o) rather than SDB.Player.PlaylistClear.

[code]
Sub ClearBeforeNP(o)
dim iSongItem, i
iSongItem = CInt(SDB.Player.CurrentSongIndex)
For i = 0 To iSongItem - 1
SDB.Player.PlaylistDelete(0)
Next
End Sub

Sub ClearAfterNP(o)
dim iSongItem, i
iSongItem = CInt(SDB.Player.CurrentSongIndex) + 1
For i = iSongItem to SDB.Player.PlaylistCount
SDB.Player.PlaylistDelete(iSongItem)
Next
End Sub

Sub ClearBeforeAfterNP(o)
Call ClearBeforeNP(o)
Call ClearAfterNP(o)
End Sub[/code]

Thanks, Teknojnky. I'm just about to install it for the first time. Thanks, Nyn for putting it in your sig.

Also In Nyn's signature is a script "Copy 2 Playlist". A google of [[ site:mediamonkey.com/forum intitle:copy intitle:playlist ]] didn't find it. I wonder what it is?

I think I must have been using the 6/21 version because once I updated I now have the script in the menu. Thank you for your help and the script, I am really starting to enjoy the convenience of it. :P

Nyn

do you have the 6/21 or 6/22 version?

the version linked and posted above should have the tree menu added (wasn't in the initial)

It's not working for me, am I missing sometihing??

[img]http://mjt3gm5472.home.net2go.com:8008/fileopen/%7B7C25F94D-F9A5-4C2D-A9FC-2F375230C0B9%7D/**GM5472*OtherPhotos/Clear%20and%20Queue.jpg[/img]

Nyn

[quote="nynaevelan"]Tekno:

It's not a requirement, but is it possible for the script to be run when a playlist is selected without having to select all the tracks in the playlist?

Nyn[/quote]

it should work (does for me) by simply right clicking the playlist in the tree, you don't need to have the individual files selected when using the tree context menu, all files will be added.

Tekno:

It's not a requirement, but is it possible for the script to be run when a playlist is selected without having to select all the tracks in the playlist?

Nyn

[quote="Teknojnky"]
Also, you do know you can right click the player and go to properties to access the track properties that is playing? Perhaps not as easy as using the detail grids, but...
[/quote]

This method would be fine with me, as long as I still have the "easy" access to get to the file I am content. I know there are some that would suggest the keyboard shortcuts but I don't use them and it is difficult to remember what all the different options are, I have to write down the three that I do use. I am a right-clicking kind of girl. :wink:


Nyn

  If Selected.Count > 0 Then
    SDB.Player.PlaylistClear
    SDB.Player.PlaylistAddTrack(SDB.Player.CurrentSong)
    SDB.Player.PlaylistAddTracks(Selected)
    If SDB.Player.isPlaying = False Then SDB.Player.Play
  End If

@ squishy, I have added the tree menu's, I missed those the first time.

@ nyn, I tried the below but it did not work as expected so I had removed it from the initial release. What happens is that current song is essentially removed from the list and then added back which ends up causing it to play twice.

[code] If Selected.Count > 0 Then
SDB.Player.PlaylistClear
SDB.Player.PlaylistAddTrack(SDB.Player.CurrentSong)
SDB.Player.PlaylistAddTracks(Selected)
If SDB.Player.isPlaying = False Then SDB.Player.Play
End If
[/code]

Now I suppose I could loop thru the entire now playing list and remove each track individually instead of using player.playlistclear, but I figured that it would be very in-efficient and slow (especially on large now playing lists) so I didnt bother with it.

Not to mention a bit more complex due to having to account for deleting an unknown number of songs before and after the current track without deleting the current track.

Also, you do know you can right click the player and go to properties to access the track properties that is playing? Perhaps not as easy as using the detail grids, but...

I don't think I will make it part of the script, but if you really wanted to loop thru, I would guess it could work something like the below pseudocode (untested of course)

x=0
do while playlistcount > 1
if x <> currentsongindex then playlistdelete(x)
x=x+1
loop

or something along those lines.

if someone wants to figure it out, test it and post it, others could use it if they desire.

edit: actually I don't think the above will work, because x would be increasing but the index# and count would be changing as songs were removed.

edit2: perhaps something like this instead
do while playlistcount > 1
if currentsongindex <> 0 then
playlistdelete(0)
else
playlistdelete(1)
end if
loop

that might work