Stop "after" current

Beta Testing for Windows Products and plugins

Moderator: Gurus

grontod

Stop "after" current

Post by grontod »

"Stop after current" should stop at the beginning of the "next" track in the playlist (if any) so that a subsequent click on "play" resumes where you left off.
Currently you are left at the beginning of the current track...
Dreadlau
Posts: 1967
Joined: Sun Nov 25, 2007 6:49 am

Re: Stop "after" current

Post by Dreadlau »

I agree.
Seven Ultimate X64 SP1 / Sansa Clip 2go (with RockBox)
nynaevelan
Posts: 5559
Joined: Wed Feb 07, 2007 11:07 pm
Location: New Jersey, USA
Contact:

Re: Stop "after" current

Post by nynaevelan »

So do I.

Nyn
3.2x - Win7 Ultimate (Zen Touch 2 16 GB/Zen 8GB)
Link to Favorite Scripts/Skins

Join Dropbox, the online site to share your files
grontod

Re: Stop "after" current

Post by grontod »

FWIW, here's an auto script I use for a button that does this nicely:

'======================================================================
' MediaMonkey\Scripts\Auto\PauseAfterCurrent.vbs
'
' Adds icon to the standard toolbar & systray menu to pause after
' the current song finishes (actually before the next song starts)
'
'======================================================================

Option Explicit

Dim PauseButton
Dim PauseMenItm

Sub OnStartUp()
Set PauseButton = SDB.UI.AddMenuItem(SDB.UI.Menu_TBStandard,0,0)
PauseButton.IconIndex = 2
PauseButton.Checked = False
PauseButton.Caption = SDB.Localize("Pause after")
Script.RegisterEvent PauseButton, "OnClick", "ButtonOnClick"

Set PauseMenItm = SDB.UI.AddMenuItem(SDB.UI.Menu_TrayIcon,0,-2)
PauseMenItm.IconIndex = 2
PauseMenItm.Checked = False
PauseMenItm.Caption = SDB.Localize("Pause after")
Script.RegisterEvent PauseMenItm, "OnClick", "ButtonOnClick"
SDB.UI.AddMenuItemSep SDB.UI.Menu_TrayIcon,0,-2

Script.RegisterEvent SDB, "OnPlay", "PlayerOnPlay"
End Sub

'======================================================================

Sub ButtonOnClick(Object)
PauseButton.Checked = not PauseButton.Checked
PauseMenItm.Checked = not PauseMenItm.Checked
If PauseMenItm.Checked Then
PauseMenItm.Caption = SDB.Localize("Cancel Pause after")
Else
PauseMenItm.Caption = SDB.Localize("Pause after")
End If
End Sub

Sub PlayerOnPlay()
if PauseButton.Checked then
if SDB.Player.CurrentSongIndex > 0 then
SDB.Player.Pause
end if
PauseButton.Checked = False
PauseMenItm.Checked = False
PauseMenItm.Caption = SDB.Localize("Pause after")
end if
End Sub
Teknojnky
Posts: 5537
Joined: Tue Sep 06, 2005 11:01 pm
Contact:

Re: Stop "after" current

Post by Teknojnky »

hmm, I didnt notice this was added to the play menu until I saw this.

anyway, I made a script a long time ago for this.

this will stop on the next track, however depending on what other scripts that run, there may be a slight delay before it stops (meaning the next song might play for a couple seconds).

http://www.mediamonkey.com/forum/viewto ... stop+after
Bex
Posts: 6316
Joined: Fri May 21, 2004 5:44 am
Location: Sweden

Re: Stop "after" current

Post by Bex »

Advanced Duplicate Find & Fix Find More From Same - Custom Search. | Transfer PlayStat & Copy-Paste Tags/AlbumArt between any tracks.
Tagging Inconsistencies Do you think you have your tags in order? Think again...
Play History & Stats Node Like having your Last-FM account stored locally, but more advanced.
Case & Leading Zero Fixer Works on filenames too!

All My Scripts
Post Reply