'[LinkedAA2Embedded]
'FileName=LinkedAA2Embedded.vbs
'ProcName=LinkedAA2Embedded
'Order=50
'DisplayName=&Converts Linked Album Art to an Embedded
'Description=Converts Linked Album Art to an Embedded
'Language=VBScript
'ScriptType=0

Sub LinkedAA2Embedded
  ' Define variables
  Dim list, itm, i, j, AAList, AAItem

  ' Get list of selected tracks from MediaMonkey
  Set list = SDB.CurrentSongList 

  ' Process all selected tracks
  For i=0 To list.count-1
    Set itm = list.Item(i)
    Set AAList = itm.AlbumArt
    For j=0 To AAList.count-1
      Set AAItem = AAList.Item(j)
      AAItem.ItemStorage = 0 'change the item storage
    Next
    AAList.UpdateDB
  Next

  ' Write all back to DB and update tags
  list.UpdateAll
End Sub