[Name]=Discogs_ALL_mod_ID
[BasedOn]=http://www.discogs.com
[IndexUrl]=http://www.discogs.com/release/%s?f=xml&api_key=e23cf6161b
[AlbumUrl]=http://www.discogs.com/release/
[WordSeperator]=
[IndexFormat]=%_url%|%_preview%
[SearchBy]=%discogsid%
[Encoding]=UTF-8


[ParserScriptIndex]=...
# ###################################################################
#					I  N  D  E  X
# ###################################################################


# Join Lines
JoinUntil "</resp>"


# URL
findinline "<release id=\""
sayuntil "\" status"
say "?f=xml&api_key=e23cf6161b"
say "|"
gotochar 1

#URL-Preview
findinline "<release id=\"" 
say "http://www.discogs.com/release/"
sayuntil "\" status"
saynewline


[ParserScriptAlbum]=...
# ###################################################################
#					A  L  B  U  M
# ###################################################################
debug "on" "d:\\debug_discogs_all.html"

joinuntil "</resp>"
replace "|" ":vrln:"

#fixes ARTIST

RegexpReplace "<name>([^<]*?), ([Tt][Hh][Ee])</name>" "<name>\2 \1</name>"
RegexpReplace "<name>([^<]*?) \(\d+\)</name>" "<name>\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 "\""


# Coverurl
outputto "coverurl"
findinline "\">"
if "<images>"
    findinline "uri=\""
    sayuntil "\" uri"
	findinline "</images>"
endif


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


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


# 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
#outputto "Label"
#sayoutput "Publisher"


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


# NOTES
#regexpreplace "<notes>(.*?)<a [^>]*?>(.*?))</a>(.*?)</notes>" "\1\2\3"
gotochar 1
findinline "</released>"
if "<notes>"
    outputto "NOTE"
    gotochar 1
    findinline "<notes>"
    sayuntil "</notes>"
    RegexpReplace "<anv>[^<]*?</anv>" ""
endif
gotochar 1


# TOTALTRACKS
findinline "<format name=\""
if "CD"
    findinline "qty=\""
    if "1"
        outputto "TOTALTRACKS"
        findinline "</tracklist>"
        findinline "<position>" -1
        findinline "<position>"
        sayuntil "</position>"
    else
        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"
            else
                sayoutput "TMP2"
            endif
            say "|"
            findinline "</track>"
        while "<track>"
    endif
else
    if "DVD"
    findinline "qty=\""
        if "1"
            findinline "</tracklist>"
            findinline "<position>" -1
            findinline "<position>"
            sayuntil "</position>"
        else
            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"
                else
                    sayoutput "TMP2"
                endif
                say "|"
                killtag "TMP1"
                killtag "TMP2"
                findinline "</track>"
            while "<track>"
      endif
    endif
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


# GENRE
outputto "GENRE"
replace "</genre><genre>" ", "
findinline "<genre>"
sayuntil "</genre>"


# STYLE 
findinline "</genres>" 
if "<styles>"
outputto "Style" 
replace "</style><style>" ", "
	findinline "<style>"
	sayuntil "</style>"
endif
	

# COUNTRY
outputto "COUNTRY"
findinline "<country>"
sayuntil "</country>"


# RELEASEDATE
# Outputs: Year, Date, ORIGYEAR
findinline "</country>"
	if "<released>"
		# Year 
		outputto "Year"
		sayregexp "(\d{4})" ", " "</released>"
	# Date
	# Output to: YYYY-MM-DD
	outputto "Date"
	findinline "<released>"
	sayuntil "</released>"
		ifnot "-00"
			outputto "Release Date"
			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

	
# Remove CD name
regexpreplace "<track><position/><title>[^<]*?</title><duration/></track>" ""


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


# TRACK
gotochar 1
findinline "<format name=\""
if "Vinyl"
	outputto "Vinyl track"
	findinline "<tracklist>"
	do
	    findinline "<position>"
	    sayuntil "</position>"
	    say "|"
	    findinline "</track>"
	while "<track>"
		gotochar 1
		outputto "tracks"
		findinline "<tracklist>"
	do		
		findinline "<track>"
			sayregexp "(?<=<title>)[^<]+(?=</title>)" ", " "</track>"
			say "|"
			findinline "</track>"
	while "<track>"
else
	outputto "TRACK"
	findinline "<tracklist>"
	do
	    findinline "<position>"
	    sayuntil "</position>"
	    say "|"
	    findinline "</track>"
	while "<track>"

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


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

# CREDITS
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
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
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
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
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
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

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

# VOCALS
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
endif

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


#DISCOGS URL
outputto "DISCOGS URL"
findinline "<release id=\"" 
say "http://www.discogs.com/release/"
sayuntil "\" status"
saynewline