[Name]=Discogs XML
[BasedOn]=http://www.discogs.com
[AlbumUrl]=http://www.discogs.com/release/%s?f=xml&api_key=1e48c7f4e4
[SearchBy]=%discogsid%
[Encoding]=utf-8

[ParserScriptAlbum]=...
# ###################################################################
#					A  L  B  U  M
# ###################################################################

#debug "on" "C:\Documents and Settings\Administrator\Application Data\Mp3tag\data\sources\debug.txt" 100

replace "|" ":vrln:"
replace "&" "&"
replace "'" "'"

#fixes missing fields
findinline "</genres>"
ifnot "<styles>"
    gotochar 1
    RegexpReplace "</genres>" "</genres><styles></styles>"
endif

findinline "</styles>"
ifnot "<country>"
    gotochar 1
    RegexpReplace "</styles>" "</styles><country></country>"
endif

findinline "</country>"
ifnot "<released>"
    gotochar 1
    RegexpReplace "</country>" "</country><released></released>"
endif

# NOTES
outputto "NOTES"
gotochar 1
findinline "</released>"
if "<notes>"
    gotochar 1
    findinline "<notes>"
    sayuntilml "</notes>"
endif
gotoline 1

joinuntil "</resp>"

#fixes ARTIST
RegexpReplace "<name>([^<]*?) \(\d+\)</name>" "<name>\1</name>"
RegexpReplace "<name>([^<]*?), ([Tt][Hh][Ee])</name>" "<name>\2 \1</name>"
RegexpReplace "<label catno=\"([^\"]*?)\" name=\"([^\"]*?) \(\d+\)\" />" "<label catno=\"\1\" name=\"\2\" />"
RegexpReplace "<anv>[^<]*?</anv>" ""
Replace "</name><join>" " "
Replace "</join></artist><artist><name>" " "

RegexpReplace "<artist><name>[^<]*?</name><join>presents</join></artist>" ""

#fixes TRACK CD separator
regexpreplace "<position>(\d+?)[-.:](\d+?)</position>" "<position>\1-\2</position>"

#fixes LABEL
regexpreplace "<label catno=\"([^\"]*?) (\d[ \"])" "<label catno=\"\100\2"
regexpreplace "<label catno=\"([^\"]*?) (\d\d[ \"])" "<label catno=\"\10\2"
findinline "<label catno=\""
findinline " "
ifnot "name=\""
    gotochar 1
    do
        RegexpReplace "<label catno=\"([^ \"]*?) " "<label catno=\"\1"
        findinline "<label catno=\""
        findinline " "
        ifnot "name=\""
            gotochar 1
        endif
    while "<resp"
endif
gotochar 1

# DISCOGSID
outputto "DISCOGSID"
findinline "id=\""
sayuntil "\""

# COVER
findinline "<artists>"
movechar -18
if "</images>"
    outputto "COVERURL"
    gotochar 1
    findinline  "uri=\""
    sayuntil "\""
    gotochar 1
    do
        findinline "type=\""
        if "primary"
            set "COVERURL" ""
            findinline  "uri=\""
            sayuntil "\""
            findinline "</images>"
            movechar -12
        endif
    findinline "/>"
    while "<image "
endif

# BAND
outputto "BAND"
findinline "<artist><name>"
sayuntil "</name>"

# ALBUM
outputto "ALBUM"
findinline "<title>"
sayuntil "</title>"

# CATALOG
outputto "CATALOG"
findinline "<labels>"
findinline "catno=\""
sayuntil "\""
findinline "/>"
ifnot "</labels>"
    do
        say ", "
        findinline "catno=\""
        sayuntil "\""
        findinline "/>"
    while "<label "
endif
gotochar 1

# LABEL
outputto "PUBLISHER"
findinline "<labels>"
findinline "name=\""
sayuntil "\""
findinline "/>"
ifnot "</labels>"
    do
        say ", "
        findinline "name=\""
        sayuntil "\""
        findinline "/>"
    while "<label "
endif

# DISCNAME
findinline "<tracklist>"
do
    findinline "<track>"
    if "<position />"
        set "TMPDISCNAME" ""
        outputto "TMPDISCNAME"
        findinline "<title>"
        sayuntil "</title>"
    else
        outputto "DISCNAME"
        sayoutput "TMPDISCNAME"
        say "|"
    endif
        findinline "</track>"
while "<track>"
set "TMPDISCNAME" ""
gotochar 1
RegexpReplace "<track><position /><title>[^<]*?</title><duration /></track>" ""

# TOTALDISCS
findinline "<format name=\""
outputto "TOTALDISCS"
if "CD"
    findinline "qty=\""
    sayuntil "\""
else
    if "DVD"
        findinline "qty=\""
        sayuntil "\""
    endif
endif
gotochar 1

# TOTALVINYLS
outputto "TOTALVINYLS"
findinline "<format name=\""
if "Vinyl"
    findinline "qty=\""
    sayuntil "\""
endif
gotochar 1

# TOTALTRACKS
regexpreplace "<format name=\"Box Set\"[^<]*?>" ""
replace "<position>CD" "<position>"
replace "<position>DVD" "<position>"
findinline "<format name=\""
ifnot "Vinyl"
gotochar 1

# TOTALTRACKS 1CD
findinline "<format name=\""
findinline "qty=\""
if "1"
    outputto "TOTALTRACKS"
    findinline "</tracklist>"
    findinline "<position>" -1
    findinline "<position>"
    sayuntil "</position>"
endif
gotochar 1

# TOTALTRACKS 2CD
findinline "<format name=\""
findinline "qty=\""
if "2"
    outputto "TMP1"
    findinline "<position>2"
    findinline "<position>1" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP2"
    findinline "</tracklist>"
    findinline "<position>2" -1
    findinline "-"
    sayuntil "</position>"

    gotochar 1
    outputto "TOTALTRACKS"
    findinline "<tracklist>"
    do
        findinline "<position>"
        if "1"
            sayoutput "TMP1"
        endif
        if "2"
            sayoutput "TMP2"
        endif
        say "|"
        findinline "</track>"
    while "<track>"
set "TMP1" ""
set "TMP2" ""
endif
gotochar 1

# TOTALTRACKS 3CD
findinline "<format name=\""
findinline "qty=\""
if "3"
    outputto "TMP1"
    findinline "<position>2"
    findinline "<position>1" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP2"
    findinline "<position>3"
    findinline "<position>2" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP3"
    findinline "</tracklist>"
    findinline "<position>3" -1
    findinline "-"
    sayuntil "</position>"

    gotochar 1
    outputto "TOTALTRACKS"
    findinline "<tracklist>"
    do
        findinline "<position>"
        if "1"
            sayoutput "TMP1"
        endif
        if "2"
            sayoutput "TMP2"
        endif
        if "3"
            sayoutput "TMP3"
        endif
        say "|"
        findinline "</track>"
    while "<track>"
set "TMP1" ""
set "TMP2" ""
set "TMP3" ""
endif
gotochar 1

# TOTALTRACKS 4CD
findinline "<format name=\""
findinline "qty=\""
if "4"
    outputto "TMP1"
    findinline "<position>2"
    findinline "<position>1" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP2"
    findinline "<position>3"
    findinline "<position>2" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP3"
    findinline "<position>4"
    findinline "<position>3" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP4"
    findinline "</tracklist>"
    findinline "<position>4" -1
    findinline "-"
    sayuntil "</position>"

    gotochar 1
    outputto "TOTALTRACKS"
    findinline "<tracklist>"
    do
        findinline "<position>"
        if "1"
            sayoutput "TMP1"
        endif
        if "2"
            sayoutput "TMP2"
        endif
        if "3"
            sayoutput "TMP3"
        endif
        if "4"
            sayoutput "TMP4"
        endif
        say "|"
        findinline "</track>"
    while "<track>"
set "TMP1" ""
set "TMP2" ""
set "TMP3" ""
set "TMP4" ""
endif
gotochar 1

# TOTALTRACKS 5CD
findinline "<format name=\""
findinline "qty=\""
if "5"
    outputto "TMP1"
    findinline "<position>2"
    findinline "<position>1" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP2"
    findinline "<position>3"
    findinline "<position>2" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP3"
    findinline "<position>4"
    findinline "<position>3" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP4"
    findinline "<position>5"
    findinline "<position>4" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP5"
    findinline "</tracklist>"
    findinline "<position>5" -1
    findinline "-"
    sayuntil "</position>"

    gotochar 1
    outputto "TOTALTRACKS"
    findinline "<tracklist>"
    do
        findinline "<position>"
        if "1"
            sayoutput "TMP1"
        endif
        if "2"
            sayoutput "TMP2"
        endif
        if "3"
            sayoutput "TMP3"
        endif
        if "4"
            sayoutput "TMP4"
        endif
        if "5"
            sayoutput "TMP5"
        endif
        say "|"
        findinline "</track>"
    while "<track>"
set "TMP1" ""
set "TMP2" ""
set "TMP3" ""
set "TMP4" ""
set "TMP5" ""
endif
gotochar 1

# TOTALTRACKS 6CD
findinline "<format name=\""
findinline "qty=\""
if "6"
    outputto "TMP1"
    findinline "<position>2"
    findinline "<position>1" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP2"
    findinline "<position>3"
    findinline "<position>2" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP3"
    findinline "<position>4"
    findinline "<position>3" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP4"
    findinline "<position>5"
    findinline "<position>4" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP5"
    findinline "<position>6"
    findinline "<position>5" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP6"
    findinline "</tracklist>"
    findinline "<position>6" -1
    findinline "-"
    sayuntil "</position>"

    gotochar 1
    outputto "TOTALTRACKS"
    findinline "<tracklist>"
    do
        findinline "<position>"
        if "1"
            sayoutput "TMP1"
        endif
        if "2"
            sayoutput "TMP2"
        endif
        if "3"
            sayoutput "TMP3"
        endif
        if "4"
            sayoutput "TMP4"
        endif
        if "5"
            sayoutput "TMP5"
        endif
        if "6"
            sayoutput "TMP6"
        endif
        say "|"
        findinline "</track>"
    while "<track>"
set "TMP1" ""
set "TMP2" ""
set "TMP3" ""
set "TMP4" ""
set "TMP5" ""
set "TMP6" ""
endif
gotochar 1

# TOTALTRACKS 7CD
findinline "<format name=\""
findinline "qty=\""
if "7"
    outputto "TMP1"
    findinline "<position>2"
    findinline "<position>1" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP2"
    findinline "<position>3"
    findinline "<position>2" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP3"
    findinline "<position>4"
    findinline "<position>3" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP4"
    findinline "<position>5"
    findinline "<position>4" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP5"
    findinline "<position>6"
    findinline "<position>5" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP6"
    findinline "<position>7"
    findinline "<position>6" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP7"
    findinline "</tracklist>"
    findinline "<position>7" -1
    findinline "-"
    sayuntil "</position>"

    gotochar 1
    outputto "TOTALTRACKS"
    findinline "<tracklist>"
    do
        findinline "<position>"
        if "1"
            sayoutput "TMP1"
        endif
        if "2"
            sayoutput "TMP2"
        endif
        if "3"
            sayoutput "TMP3"
        endif
        if "4"
            sayoutput "TMP4"
        endif
        if "5"
            sayoutput "TMP5"
        endif
        if "6"
            sayoutput "TMP6"
        endif
        if "7"
            sayoutput "TMP7"
        endif
        say "|"
        findinline "</track>"
    while "<track>"
set "TMP1" ""
set "TMP2" ""
set "TMP3" ""
set "TMP4" ""
set "TMP5" ""
set "TMP6" ""
set "TMP7" ""
endif
gotochar 1

# TOTALTRACKS 8CD
findinline "<format name=\""
findinline "qty=\""
if "8"
    outputto "TMP1"
    findinline "<position>2"
    findinline "<position>1" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP2"
    findinline "<position>3"
    findinline "<position>2" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP3"
    findinline "<position>4"
    findinline "<position>3" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP4"
    findinline "<position>5"
    findinline "<position>4" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP5"
    findinline "<position>6"
    findinline "<position>5" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP6"
    findinline "<position>7"
    findinline "<position>6" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP7"
    findinline "<position>8"
    findinline "<position>7" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP8"
    findinline "</tracklist>"
    findinline "<position>8" -1
    findinline "-"
    sayuntil "</position>"

    gotochar 1
    outputto "TOTALTRACKS"
    findinline "<tracklist>"
    do
        findinline "<position>"
        if "1"
            sayoutput "TMP1"
        endif
        if "2"
            sayoutput "TMP2"
        endif
        if "3"
            sayoutput "TMP3"
        endif
        if "4"
            sayoutput "TMP4"
        endif
        if "5"
            sayoutput "TMP5"
        endif
        if "6"
            sayoutput "TMP6"
        endif
        if "7"
            sayoutput "TMP7"
        endif
        if "8"
            sayoutput "TMP8"
        endif
        say "|"
        findinline "</track>"
    while "<track>"
set "TMP1" ""
set "TMP2" ""
set "TMP3" ""
set "TMP4" ""
set "TMP5" ""
set "TMP6" ""
set "TMP7" ""
set "TMP8" ""
endif
gotochar 1

# TOTALTRACKS 9CD
findinline "<format name=\""
findinline "qty=\""
if "9"
    outputto "TMP1"
    findinline "<position>2"
    findinline "<position>1" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP2"
    findinline "<position>3"
    findinline "<position>2" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP3"
    findinline "<position>4"
    findinline "<position>3" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP4"
    findinline "<position>5"
    findinline "<position>4" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP5"
    findinline "<position>6"
    findinline "<position>5" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP6"
    findinline "<position>7"
    findinline "<position>6" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP7"
    findinline "<position>8"
    findinline "<position>7" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP8"
    findinline "<position>9"
    findinline "<position>8" -1
    findinline "-"
    sayuntil "</position>"

    outputto "TMP9"
    findinline "</tracklist>"
    findinline "<position>9" -1
    findinline "-"
    sayuntil "</position>"

    gotochar 1
    outputto "TOTALTRACKS"
    findinline "<tracklist>"
    do
        findinline "<position>"
        if "1"
            sayoutput "TMP1"
        endif
        if "2"
            sayoutput "TMP2"
        endif
        if "3"
            sayoutput "TMP3"
        endif
        if "4"
            sayoutput "TMP4"
        endif
        if "5"
            sayoutput "TMP5"
        endif
        if "6"
            sayoutput "TMP6"
        endif
        if "7"
            sayoutput "TMP7"
        endif
        if "8"
            sayoutput "TMP8"
        endif
        if "9"
            sayoutput "TMP9"
        endif
        say "|"
        findinline "</track>"
    while "<track>"
set "TMP1" ""
set "TMP2" ""
set "TMP3" ""
set "TMP4" ""
set "TMP5" ""
set "TMP6" ""
set "TMP7" ""
set "TMP8" ""
set "TMP9" ""
endif

endif
gotochar 1

# MEDIATYPE
outputto "MEDIATYPE"
regexpreplace "<format name=([^/]*?)/>" "<format name=\1></format>"
replace " qty=\"1\"" ""
findinline "<format name=\""
sayuntil "\""
findinline "</format>"
ifnot "</formats>"
    do
        say " / "
        findinline "<format name=\""
        sayuntil "\""
        findinline "</format>"
    while "<format "
endif
gotochar 1

# RELEASETYPE
findinline "<format name"
findinline ">"
if "<descriptions>"
    gotochar 1
    outputto "RELEASETYPE"
    replace "</description><description>" ", "
    findinline "<description>"
    sayuntil "</description>"
    findinline "</format>"
    ifnot "</formats>"
        do
            say " / "
            findinline "<description>"
            sayuntil "</description>"
            findinline "</format>"
        while "<format "
    endif
endif

# GENRES
outputto "GENRE"
findinline "<genre>"
sayuntil "</genre>"

# STYLES
outputto "STYLE"
say " "
replace "</style><style>" ", "
findinline "<style>"
ifnot "</style>"
    sayuntil "</style>"
endif

# COUNTRY
outputto "COUNTRY"
say " "
replace "<country>US</country>" "<country>United States</country>"
replace "<country>UK</country>" "<country>United Kingdom</country>"
findinline "<country>"
ifnot "</country>"
    sayuntil "</country>"
endif

# YEAR
outputto "YEAR"
findinline "<released>"
ifnot "</released>"
    saynchars 4


# RELEASEDATE
ifnot "-00"
    ifnot "</released>"
        outputto "RELEASEDATE"
        gotochar 1
        regexpreplace "<released>(\d{4,})-(\d\d)-(\d\d)</released>" "<released>\2 \3, \1</released>"
        regexpreplace "<released>(\d\d) 00, " "<released>\1, "
        regexpreplace "<released>(\d\d) 0(\d), " "<released>\1 \2, "
        replace "<released>01" "<released>January"
        replace "<released>02" "<released>February"
        replace "<released>03" "<released>March"
        replace "<released>04" "<released>April"
        replace "<released>05" "<released>May"
        replace "<released>06" "<released>June"
        replace "<released>07" "<released>July"
        replace "<released>08" "<released>August"
        replace "<released>09" "<released>September"
        replace "<released>10" "<released>October"
        replace "<released>11" "<released>November"
        replace "<released>12" "<released>December"
        findinline "<released>"
        sayuntil "</released>"
    endif
endif

endif

# DISCNUMBER
regexpreplace "<position>(\d+?)-(\d+?)</position>" "<position>-\1-\2</position>"
outputto "DISCNUMBER"
findinline "<position>"
if "-"
    gotochar 1
    do
        findinline "<position>-"
        sayuntil "-"
        say "|"
        findinline "</track>"
     while "<track>"
else
    regexpreplace "<position>(\d+?)</position>" "<position>-\1</position>"
    findinline "<position>"
    if "-"
        say "1"
    endif
endif
replace "<position>-" "<position>"
regexpreplace "<position>(\d+?)-(\d+?)</position>" "<position>\2</position>"
gotochar 1

# TRACK fix
regexpreplace "<position>0(\d+?)</position>" "<position>\1</position>"
regexpreplace "<position>AA(\d*?)</position>" "<position>B\1</position>"
regexpreplace "<position>AAA(\d*?)</position>" "<position>C\1</position>"
regexpreplace "<position>AAAA(\d*?)</position>" "<position>D\1</position>"
regexpreplace "<position>X(\d*?)</position>" "<position>A\1</position>"
regexpreplace "<position>Y(\d*?)</position>" "<position>B\1</position>"
regexpreplace "<position>([ABCDEFGH])1</position>(.*?)<position>\12</position>" "<position>-\11</position>\2<position>\12</position>"
regexpreplace "<position>([ABCDEFGH])1</position>" "<position>\1</position>"
replace "<position>-" "<position>"

# VINYLTRACK
outputto "VINYLTRACK"
findinline "<tracklist>"
do
    findinline "<position>"
    sayuntil "</position>"
    say "|"
    findinline "</track>"
while "<track>"
gotochar 1

# ARTIST
findinline "<tracklist>"
do
    findinline "</position>"
    if "<artists>"
        outputto "ARTIST"
        findinline "<name>"
        sayuntil "</name>"
        outputto "COMPILATION"
        set "COMPILATION" ""
        say "Yes"
        outputto "ARTIST"
    else
        outputto "ARTIST"
        sayoutput "BAND"
    endif
    say "|"
    findinline "</track>"
while "<track>"
gotochar 1

# TITLE
outputto "TRACKS"
findinline "<tracklist>"
do
    findinline "<title>"
    sayuntil "</title>"
    say "|"
    findinline "</track>"
while "<track>"
gotochar 1

# CREDITS
regexpreplace "(<role>[^<]*?</role>)(<tracks>[^<]*?</tracks>)" "\2\1"
regexpreplace "<name>([^<]*?)</name><tracks>([^<]*?)</tracks>" "<name>\1 (Tracks: \2)</name>"
regexpreplace "<tracks>[^<]*?</tracks>" ""
regexpreplace "<name>([^<]*)</name><role>([^<]*)</role>" "<role>\2</role><name>\1</name>"
regexpreplace "<style>[^<]*</style>" ""
regexpreplace "<released>[^<]*</released>" ""
regexpreplace "<labels>.*</labels>" ""
regexpreplace "<duration>[^<]*</duration>" ""
replace "<duration />" ""
replace ", " "</role><role>"
regexpreplace "Written[ -][Bb]y" "Written By"

replace "<artist>" ""
replace "</artist>" ""
replace "<extraartists>" ""
replace "</extraartists>" ""

findinline "</title>"
if "<role>"

# DJMIX
regexpreplace "<role>[^>]*?DJ Mix[^<]*?</role>" "<role>DJ Mix</role>"
outputto "DJMIX"
say " "
do
    findinline "<role>"
    if "DJ Mix"
        outputto "DJMIX"
        findinline "<name>"
        sayuntil "</name>"
        findinline "</name>"
        say ", "
        outputto "TMP"
    else
        findinline "</role>"
        if "<name>"
            findinline "</name>"
        endif
    endif
while "<role>"
gotochar 1

# COMPILED
outputto "COMPILED"
regexpreplace "<role>[^>]*?Compiled By[^<]*?</role>" "<role>Compiled By</role>"
say " "
do
    findinline "<role>"
    if "Compiled By"
        outputto "COMPILED"
        findinline "<name>"
        sayuntil "</name>"
        findinline "</name>"
        say ", "
        outputto "TMP"
    else
        findinline "</role>"
        if "<name>"
            findinline "</name>"
        endif
    endif
while "<role>"
gotochar 1

# AUTHOR
outputto "AUTHOR"
regexpreplace "<role>[^>]*?Written By[^<]*?</role>" "<role>Written By</role>"
say " "
do
    findinline "<role>"
    if "Written By"
        outputto "AUTHOR"
        findinline "<name>"
        sayuntil "</name>"
        findinline "</name>"
        say ", "
        outputto "TMP"
    else
        findinline "</role>"
        if "<name>"
            findinline "</name>"
        endif
    endif
while "<role>"
gotochar 1

# PRODUCER
regexpreplace "<role>[^>]*?Producer[^<]*?</role>" "<role>Producer</role>"
outputto "PRODUCER"
say " "
do
    findinline "<role>"
    if "Producer"
        outputto "PRODUCER"
        findinline "<name>"
        sayuntil "</name>"
        findinline "</name>"
        say ", "
        outputto "TMP"
    else
        findinline "</role>"
        if "<name>"
            findinline "</name>"
        endif
    endif
while "<role>"
gotochar 1

# COPRODUCER
regexpreplace "<role>[^>]*?Co-producer[^<]*?</role>" "<role>Co-producer</role>"
outputto "COPRODUCER"
say " "
do
    findinline "<role>"
    if "Co-producer"
        outputto "COPRODUCER"
        findinline "<name>"
        sayuntil "</name>"
        findinline "</name>"
        say ", "
        outputto "TMP"
    else
        findinline "</role>"
        if "<name>"
            findinline "</name>"
        endif
    endif
while "<role>"
gotochar 1

# VOCALS
regexpreplace "<role>[^>]*?Vocals[^<]*?</role>" "<role>Vocals</role>"
outputto "VOCALS"
say " "
do
    findinline "<role>"
    if "Vocals"
        outputto "VOCALS"
        findinline "<name>"
        sayuntil "</name>"
        findinline "</name>"
        say ", "
        outputto "TMP"
    else
        findinline "</role>"
        if "<name>"
            findinline "</name>"
        endif
    endif
while "<role>"
gotochar 1

# COMPOSER
regexpreplace "<role>[^>]*?Composed By[^<]*?</role>" "<role>Composed By</role>"
outputto "COMPOSER"
say " "
do
    findinline "<role>"
    if "Composed By"
        outputto "COMPOSER"
        findinline "<name>"
        sayuntil "</name>"
        findinline "</name>"
        say ", "
        outputto "TMP"
    else
        findinline "</role>"
        if "<name>"
            findinline "</name>"
        endif
    endif
while "<role>"
gotochar 1

# FEATURING
regexpreplace "<role>[^>]*?Featuring[^<]*?</role>" "<role>Featuring</role>"
outputto "FEATURING"
say " "
do
    findinline "<role>"
    if "Featuring"
        outputto "FEATURING"
        findinline "<name>"
        sayuntil "</name>"
        findinline "</name>"
        say ", "
        outputto "TMP"
    else
        findinline "</role>"
        if "<name>"
            findinline "</name>"
        endif
    endif
while "<role>"
gotochar 1

# PRESENTER
regexpreplace "<role>[^>]*?Presenter[^<]*?</role>" "<role>Presenter</role>"
outputto "PRESENTER"
say " "
do
    findinline "<role>"
    if "Presenter"
        outputto "PRESENTER"
        findinline "<name>"
        sayuntil "</name>"
        findinline "</name>"
        say ", "
        outputto "TMP"
    else
        findinline "</role>"
        if "<name>"
            findinline "</name>"
        endif
    endif
while "<role>"
gotochar 1

# MASTERED
regexpreplace "<role>[^>]*?Mastered By[^<]*?</role>" "<role>Mastered By</role>"
outputto "MASTERED"
say " "
do
    findinline "<role>"
    if "Mastered By"
        outputto "MASTERED"
        findinline "<name>"
        sayuntil "</name>"
        findinline "</name>"
        say ", "
        outputto "TMP"
    else
        findinline "</role>"
        if "<name>"
            findinline "</name>"
        endif
    endif
while "<role>"
gotochar 1

# MIX
regexpreplace "<role>[^>]*?Mixed By[^<]*?</role>" "<role>Mixed By</role>"
outputto "MIX"
say " "
do
    findinline "<role>"
    if "Mixed By"
        outputto "MIX"
        findinline "<name>"
        sayuntil "</name>"
        findinline "</name>"
        say ", "
        outputto "TMP"
    else
        findinline "</role>"
        if "<name>"
            findinline "</name>"
        endif
    endif
while "<role>"
gotochar 1

# EDIT
regexpreplace "<role>[^>]*?Edited By[^<]*?</role>" "<role>Edited By</role>"
outputto "EDIT"
say " "
do
    findinline "<role>"
    if "Edited By"
        outputto "EDIT"
        findinline "<name>"
        sayuntil "</name>"
        findinline "</name>"
        say ", "
        outputto "TMP"
    else
        findinline "</role>"
        if "<name>"
            findinline "</name>"
        endif
    endif
while "<role>"
gotochar 1

# ARRANGED
regexpreplace "<role>[^>]*?Arranged By[^<]*?</role>" "<role>Arranged By</role>"
outputto "ARRANGED"
say " "
do
    findinline "<role>"
    if "Arranged By"
        outputto "ARRANGED"
        findinline "<name>"
        sayuntil "</name>"
        findinline "</name>"
        say ", "
        outputto "TMP"
    else
        findinline "</role>"
        if "<name>"
            findinline "</name>"
        endif
    endif
while "<role>"
gotochar 1

# LYRICS
regexpreplace "<role>[^>]*?Lyrics By[^<]*?</role>" "<role>Lyrics By</role>"
outputto "LYRICS"
say " "
do
    findinline "<role>"
    if "Lyrics By"
        outputto "LYRICS"
        findinline "<name>"
        sayuntil "</name>"
        findinline "</name>"
        say ", "
        outputto "TMP"
    else
        findinline "</role>"
        if "<name>"
            findinline "</name>"
        endif
    endif
while "<role>"
gotochar 1

# PREFORMER
regexpreplace "<role>[^>]*?Performer[^<]*?</role>" "<role>Performer</role>"
outputto "PREFORMER"
say " "
do
    findinline "<role>"
    if "Performer"
        outputto "PREFORMER"
        findinline "<name>"
        sayuntil "</name>"
        findinline "</name>"
        say ", "
        outputto "TMP"
    else
        findinline "</role>"
        if "<name>"
            findinline "</name>"
        endif
    endif
while "<role>"
gotochar 1

# CONDUCTOR
regexpreplace "<role>[^>]*?Conductor[^<]*?</role>" "<role>Conductor</role>"
outputto "CONDUCTOR"
say " "
do
    findinline "<role>"
    if "Conductor"
        outputto "CONDUCTOR"
        findinline "<name>"
        sayuntil "</name>"
        findinline "</name>"
        say ", "
        outputto "TMP"
    else
        findinline "</role>"
        if "<name>"
            findinline "</name>"
        endif
    endif
while "<role>"
gotochar 1

# ENGINEER
regexpreplace "<role>[^>]*?Engineer[^<]*?</role>" "<role>Engineer</role>"
outputto "ENGINEER"
say " "
do
    findinline "<role>"
    if "Engineer"
        outputto "ENGINEER"
        findinline "<name>"
        sayuntil "</name>"
        findinline "</name>"
        say ", "
        outputto "TMP"
    else
        findinline "</role>"
        if "<name>"
            findinline "</name>"
        endif
    endif
while "<role>"
gotochar 1

# PROGRAMMED
regexpreplace "<role>[^>]*?Programmed By[^<]*?</role>" "<role>Programmed By</role>"
outputto "PROGRAMMED"
say " "
do
    findinline "<role>"
    if "Programmed By"
        outputto "PROGRAMMED"
        findinline "<name>"
        sayuntil "</name>"
        findinline "</name>"
        say ", "
        outputto "TMP"
    else
        findinline "</role>"
        if "<name>"
            findinline "</name>"
        endif
    endif
while "<role>"
gotochar 1

# RECORDED
regexpreplace "<role>[^>]*?Recorded By[^<]*?</role>" "<role>Recorded By</role>"
outputto "RECORDED"
say " "
do
    findinline "<role>"
    if "Recorded By"
        outputto "RECORDED"
        findinline "<name>"
        sayuntil "</name>"
        findinline "</name>"
        say ", "
        outputto "TMP"
    else
        findinline "</role>"
        if "<name>"
            findinline "</name>"
        endif
    endif
while "<role>"
gotochar 1

# REMIX
regexpreplace "<role>[^>]*?Remix[^<]*?</role>" "<role>Remix</role>"
outputto "REMIX"
say " "
do
    findinline "<role>"
    if "Remix"
        outputto "REMIX"
        findinline "<name>"
        sayuntil "</name>"
        findinline "</name>"
        say ", "
        outputto "TMP"
    else
        findinline "</role>"
        if "<name>"
            findinline "</name>"
        endif
    endif
while "<role>"
gotochar 1

# ARTWORK
outputto "ARTWORK"
say " "
do
    findinline "<role>"
    if "Art"
        outputto "ARTWORK"
        findinline "<name>"
        sayuntil "</name>"
        findinline "</name>"
        say ", "
        outputto "TMP"
    else
        findinline "</role>"
        if "<name>"
            findinline "</name>"
        endif
    endif
while "<role>"
gotochar 1

# PHOTOGRAPHY
outputto "PHOTOGRAPHY"
say " "
do
    findinline "<role>"
    if "Photo"
        outputto "PHOTOGRAPHY"
        findinline "<name>"
        sayuntil "</name>"
        findinline "</name>"
        say ", "
        outputto "TMP"
    else
        findinline "</role>"
        if "<name>"
            findinline "</name>"
        endif
    endif
while "<role>"
gotochar 1

# KEYBOARDS
regexpreplace "<role>[^>]*?Keyboards[^<]*?</role>" "<role>Keyboards</role>"
outputto "KEYBOARDS"
say " "
do
    findinline "<role>"
    if "Keyboards"
        outputto "KEYBOARDS"
        findinline "<name>"
        sayuntil "</name>"
        findinline "</name>"
        say ", "
        outputto "TMP"
    else
        findinline "</role>"
        if "<name>"
            findinline "</name>"
        endif
    endif
while "<role>"
gotochar 1

endif

# CREDITS per track
outputto "TMPCR"
findinline "<tracklist>"
do
    findinline "</title>"
    if "<role>"
        sayuntil "</track>"
    endif
    say "|"
    movechar -1
    findinline "</track>"
while "<track>"
gotochar 1