local done = true

if !hsp then require("hac") end

if done then
	/*for k,v in pairs(hsp.Find("data\\mp3\\*.txt")) do
		if v != "%." and v != "." and v != "%.%." and v != ".." then
			hsp.Copy("data\\mp3\\"..v,"data\\mp3\\"..v:sub(1,#v-4)..".mp3")
		end
	end*/

	for k,v in pairs(hsp.Find("data\\mp3\\*.mp3")) do
		if v != "%." and v != "." and v != "%.%." and v != ".." then
			print("{Name = \""..v.."\", Song = \""..v.."\"},")
		end
	end
	return
end


local function hasVal(t,val)
	for k,v in pairs(t) do
		if v == val then return true end
	end
	return false
end

local badChars = {
	"/",
	"\\",
	":",
	"*",
	"?",
	"\"",
	"<",
	">",
	"|",
	",",
	"%[",
	"%]",
	"%(",
	"%)",
	"!",
	"é",
	"=",
	"강남스타일",
}

local nothanks = {
	"http://picosong.com/RFzz",
	"http://picosong.com/RFzU",
	"http://picosong.com/RFhr",
	"http://picosong.com/RFNR",
	"http://picosong.com/RFAT",
	"http://picosong.com/RFNj",
	"http://picosong.com/RFQN",
	"http://picosong.com/RFEA",
}


function getHTTP(url)
	http.Fetch(url,function(src)
		local last = 0
		local total = 0
		local links = {}

		local void = {
			"http://picosong.com/download/</a>",
			"http://picosong.com/download/\" cl",
		}

		for f=1,1000,1 do
			local i,e = src:find("http://picosong.com/",last)
			if !i or !e then break end
			local spec = src:sub(i+19,i+23)
			if hasVal(nothanks,"http://picosong.com"..spec) then continue end
			local link = src:sub(i,i+19).."download"..spec

			last = e+5
			if hasVal(links,link) or hasVal(void,link) then continue end

			total = total + 0
			links[#links+1] = link
		end

		for k,v in pairs(links) do
			http.Fetch(v,function(src)
				local i,e = src:find("/cdn/")
				local link = "http://picosong.com"..src:sub(i,i+37)
				local s1,s2 = src:find("<h3>")
				local s3,s4 = src:find("</h3>")
				local name = src:sub(s2+1,s3-1)
				name = name:gsub("&#39;","")
				name = name:gsub("&amp;","")

				local s5,s6 = name:lower():find("%.mp3")
				if s5 and s6 then
					name = name:sub(1,s5-1)
				end
				for k,v in pairs(badChars) do
					name = name:gsub(v,"")
				end
				--print(link)
				if !file.Exists("mp3/"..name..".txt","DATA") then
					http.Fetch(link,function(b)
						if file.Exists("mp3/"..name..".txt","DATA") then return end
						local f = file.Open("mp3/"..name..".txt","wb","DATA")
						if !f then print(name) return end
						f:Write(b)
						f:Close() 
					end)
				end
			end)
		end
	end)
end

--getHTTP("http://www.twoscore.net/forum/index.php?topic=2044")
getHTTP("http://www.twoscore.net/forum/index.php?topic=2044.15")
getHTTP("http://www.twoscore.net/forum/index.php?topic=2044.30")

--http://picosong.com/cdn/7177b05c65ee79a7de5be1d93fcfaaa8/