I agree! the only reason I will not upgrade to MM$ is because I am affraid to lose this script. Anybody want to take it over. Unfortunately I have no talent.

Why is this script unavaiable now? I nderstand if you don't want to keep it updated anymore, but why take it away? I love this script (I am using version 2.2.3) and the only reason I will mot upgrade to MM$ is because I am afraid of losing the functionality. Can I find the latest version of this script anywhere?

I'd prefer not to use the tags of a song, however Custom Properties Panel seems to be working in MM4.

[quote="djmt99"]I was really hoping to see something like this script continued on. It was working fine with MM3 and need to dig up the last known mmip that I have to try on MM4.

Is there anything like this (or Playlist Sandbox, even)? I see http://www.mediamonkey.com/forum/viewtopic.php?f=2&t=39589, but that doesn't really do it for me.[/quote]
Maybe CustomFieldsTagger v1.0.3 [MM3+4] ? http://www.mediamonkey.com/forum/viewtopic.php?f=2&t=58583

:~)

I was really hoping to see something like this script continued on. It was working fine with MM3 and need to dig up the last known mmip that I have to try on MM4.

Is there anything like this (or Playlist Sandbox, even)? I see http://www.mediamonkey.com/forum/viewtopic.php?f=2&t=39589, but that doesn't really do it for me.

Hey Mo,
I know you dont have this script available anymore, just wondering if you will be updating it in the future, It wont work for me with 3.1.

Thanks Mo, I will try this now

        If xCounter = 0 Then
          ThisData = "AlbumArt\" & ThisFilename
        Else
          ThisData = ThisData & "|||" & "AlbumArt\" & ThisFileName
        End If

      For xCounter = 0 to objSongData.AlbumArt.Count-1
        If objSongData.AlbumArt.Item(xCounter).ItemStorage = 1 Then
          ExtFilename = objSongData.AlbumArt.Item(xCounter).PicturePath
          pos = InStrRev(ExtFilename,".")
          ThisArtExt = Right(ExtFileName,RightNbr)
          ThisFilePath = ArtFolder & objSongData.AlbumArt.Item(xCounter).ItemType & "_" & xCounter & "." & ThisArtExt
          ThisFileName = objSongData.AlbumArt.Item(xCounter).ItemType & "_" & xCounter & "." & ThisArtExt
          If NOT FSO.FileExists(ExtFilename) Then
            ThisFileName = "File Not Accessible " & ExtFilename
          Else
            FSO.CopyFile ExtFilename,ThisFilePath,True
          End If
        Else
          If FSO.FileExists(objSongData.Path) Then
            ThisArtExt = Replace(objSongData.AlbumArt.Item(xCounter).Image.ImageFormat,"image/","")
            ThisArtExt = Replace(ThisArtExt,"x-","")
            ThisFilePath = ArtFolder & objSongData.AlbumArt.Item(xCounter).ItemType & "_" & xCounter & "." & ThisArtExt
            ThisFileName = objSongData.AlbumArt.Item(xCounter).ItemType & "_" & xCounter & "." & ThisArtExt
            Set CoverFile = TFS.CreateTextFile(ThisFilePath, True) 
            CoverFile.WriteData objSongData.AlbumArt.Item(xCounter).Image.ImageData, objSongData.AlbumArt.Item(xCounter).Image.ImageDataLen 
            CoverFile.Close
          Else
            ThisFileName = "File Not Accessible " & objSongData.Path
          End If
        End If
        If xCounter = 0 Then
          ThisData = "AlbumArt\" & ThisFilename
        Else
          ThisData = ThisData & "|||" & "AlbumArt\" & ThisFileName
        End If
      Next

Lines 1635 to 1665
Either just show the first cover xCounter = 0
or
Add a check for objSongData.AlbumArt.Item(xCounter).ItemType = Cover (Front) 3?
and exit the loop. Need to make sure it only does the then part of
[code]
If xCounter = 0 Then
ThisData = "AlbumArt\" & ThisFilename
Else
ThisData = ThisData & "|||" & "AlbumArt\" & ThisFileName
End If
[/code]
[code]
For xCounter = 0 to objSongData.AlbumArt.Count-1
If objSongData.AlbumArt.Item(xCounter).ItemStorage = 1 Then
ExtFilename = objSongData.AlbumArt.Item(xCounter).PicturePath
pos = InStrRev(ExtFilename,".")
ThisArtExt = Right(ExtFileName,RightNbr)
ThisFilePath = ArtFolder & objSongData.AlbumArt.Item(xCounter).ItemType & "_" & xCounter & "." & ThisArtExt
ThisFileName = objSongData.AlbumArt.Item(xCounter).ItemType & "_" & xCounter & "." & ThisArtExt
If NOT FSO.FileExists(ExtFilename) Then
ThisFileName = "File Not Accessible " & ExtFilename
Else
FSO.CopyFile ExtFilename,ThisFilePath,True
End If
Else
If FSO.FileExists(objSongData.Path) Then
ThisArtExt = Replace(objSongData.AlbumArt.Item(xCounter).Image.ImageFormat,"image/","")
ThisArtExt = Replace(ThisArtExt,"x-","")
ThisFilePath = ArtFolder & objSongData.AlbumArt.Item(xCounter).ItemType & "_" & xCounter & "." & ThisArtExt
ThisFileName = objSongData.AlbumArt.Item(xCounter).ItemType & "_" & xCounter & "." & ThisArtExt
Set CoverFile = TFS.CreateTextFile(ThisFilePath, True)
CoverFile.WriteData objSongData.AlbumArt.Item(xCounter).Image.ImageData, objSongData.AlbumArt.Item(xCounter).Image.ImageDataLen
CoverFile.Close
Else
ThisFileName = "File Not Accessible " & objSongData.Path
End If
End If
If xCounter = 0 Then
ThisData = "AlbumArt\" & ThisFilename
Else
ThisData = ThisData & "|||" & "AlbumArt\" & ThisFileName
End If
Next
[/code]

Looking for a lottle help with this script. I have it and like it alot, but am looking for a way to show only 1 album art instead of all. I looked through the script and really couldnt reconize where this setting was. Any help would be appreciated

Thanks

if you're looking for a way to find out easily which tracks are on a playlist, you should reply to this threat in the wishlist forum to show the developers that there is user interest for this:

http://www.mediamonkey.com/forum/viewtopic.php?f=4&t=35577

(a request to add an optional "playlists" column to the standard library view that shows on what playlists the track appears)

Understood. In that case, is there any other script around that does something similar, i.e., will allow you to see at a glance if a track is in a playlist without having to go to the Classification tab?

when a script link doesn't work its more likely been removed from the server and they did not remember to or could not find the post they had it in here. to remove it from the post, 8)

Ive noticed a lot of these scripts are no longer available, anyone know why?

Is this script still available anywhere? The most recent link I could see doesn't seem to be working.

Hmm I think there is an issue with explaining how to set up a custom panel, some users maybe doing something to create the error.

If you list the properties you wish to see in the panel, I will set it up and post the resulting Scripts\PropertiesPanel\PropertiesPanel.ini

This hopefully will get past the initial error and you can play with it from there?

PS I haven't tested it with 3.1 but I'm sure it should still work.