utility

require("curl")

--Variables



function alias_handler( input )
end

--THIS IS THE PROMPT, leaving this in until I decide I don't need it for any of these I guess
function prompt_handler()
	eq,bal = string.match(mb.line, "^H:%d+.*<([e-])([b-])")
end
mb.server_prompt = prompt_handler



function trigger_handler()
end
mb.server_line = trigger_handler


function alias_handler( input )
	if string.match(input, "^truehonors %w+$") then
		local buffer = {}
		local c = curl.easy_init()
		c:setopt(curl.OPT_URL,'http://www.ironrealms.com/game/honors/Imperian/'..string.sub(input,12))
		c:setopt(curl.OPT_CONNECTTIMEOUT,'5')
		c:setopt(curl.OPT_WRITEFUNCTION,
				function (s, len) table.insert(buffer,s) return len end)
		res = c:perform()
		local pat = "Information about %w+ from Imperian.*Pk level: %d+"
		local stuffIwant = ""
		for i,v in ipairs(buffer) do if(string.match(v,pat)) then stuffIwant = string.match(v,pat) end end
		stuffIwant = string.gsub(stuffIwant,"</h3>","")
		stuffIwant = string.gsub(stuffIwant,"<[/]?div>","")
		stuffIwant = string.gsub(stuffIwant,"Imperian","Imperian\n")
		stuffIwant = string.gsub(stuffIwant,"Full name","\nFull name")
		stuffIwant = string.gsub(stuffIwant,"City","\nCity")
		stuffIwant = string.gsub(stuffIwant,"Guild","\nGuild")
		stuffIwant = string.gsub(stuffIwant,"Towne","\nTowne")
		stuffIwant = string.gsub(stuffIwant,"Level","\nLevel")
		stuffIwant = string.gsub(stuffIwant,"Bashing","\nBashing")
		stuffIwant = string.gsub(stuffIwant,"Questing","\nQuesting")
		stuffIwant = string.gsub(stuffIwant,"Pk","\nPk")
		echo(stuffIwant)
		return(true)
	elseif string.match(input, "^deathlog$") then
		local input = ""
		local c = curl.easy_init()
		c:setopt(curl.OPT_URL,'http://old.imperian.com/players.php?search=deathlog&day=0')
		c:setopt(curl.OPT_CONNECTTIMEOUT,'5')
		c:setopt(curl.OPT_WRITEFUNCTION,
				function (s, len) input = input..s return len end)
		res = c:perform()
		local output = ""
		local pat = "Player Deaths for Today.*</p"
		output = string.match(input,pat)
		--for i,v in ipairs(buffer) do if(string.match(v,pat)) then output = string.match(v,pat) end end
		output = string.gsub(output,"><p> ","\n ")
		output = string.gsub(output,"</p","")
		output = string.gsub(output,"</p>","")
		output = string.gsub(output,"<a href='/players\.php%?lookup=%w+'>","")
		output = string.gsub(output,"<a href='/players\.php%?lookup=%w+ %w+'>","")
		output = string.gsub(output,"<a href='/players\.php%?lookup=%w+ %w+ %w+'>","")
		output = string.gsub(output,"</a>","")
		output = string.gsub(output,"<br />","\n")
		echo(output)
		--echo(input)
		return(true)
	elseif string.match(input,"^checkdesc %w+$") then
		local buffer = {}
		name = string.sub(input,11):gsub("^%l", string.upper)
		local c = curl.easy_init()
		c:setopt(curl.OPT_URL,'http://old.imperian.com/players.php?lookup='..name..'&extra=description')
		c:setopt(curl.OPT_CONNECTTIMEOUT,'5')
		c:setopt(curl.OPT_WRITEFUNCTION,
				function (s, len) input = input..s return len end)
		res = c:perform()
		local pat = name.."'s Description.+</p></td>"
		local output = ""
		output = string.match(input,pat)
		output = string.gsub(output,"\n.*","")
		output = string.gsub(output,name.."'s Description.*>","")
		echo(output)
		return(true)
	elseif string.match(input,"^checkstatpack %w+$") then
		local buffer = {}
		name = string.sub(input,15):gsub("^%l", string.upper)
		local c = curl.easy_init()
		c:setopt(curl.OPT_URL,'http://old.imperian.com/players.php?lookup='..name..'&extra=description')
		c:setopt(curl.OPT_CONNECTTIMEOUT,'5')
		c:setopt(curl.OPT_WRITEFUNCTION,
				function (s, len) input = input..s return len end)
		res = c:perform()
		local pat = "e is an? %w+ %w+\."
		output = string.match(input,pat)
		output = string.gsub(output,"e is an? ","")
		echo(output)
		return(true)
	elseif string.match(input,"^checkworn %w+$") then
		local buffer = {}
		name = string.sub(input,11):gsub("^%l", string.upper)
		local c = curl.easy_init()
		c:setopt(curl.OPT_URL,'http://old.imperian.com/players.php?lookup='..name..'&extra=description')
		c:setopt(curl.OPT_CONNECTTIMEOUT,'5')
		c:setopt(curl.OPT_WRITEFUNCTION,
				function (s, len) input = input..s return len end)
		res = c:perform()
		local pat = "e is wearing .+</p></td>"
		output = string.match(input,pat)
		output = string.gsub(output,"e is wearing ","")
		output = string.gsub(output,"\n.*","")
		echo(output)
		return(true)
	elseif string.match(input,"^truewho$") then
		local buffer = {}
		local c = curl.easy_init()
		c:setopt(curl.OPT_URL,'http://old.imperian.com/players.php?search=who')
		c:setopt(curl.OPT_CONNECTTIMEOUT,'5')
		c:setopt(curl.OPT_WRITEFUNCTION,
				function (s, len) input = input..s return len end)
		res = c:perform()
		local pat = "Current Players Online: .+</a></td></tr></table>"
		output = string.match(input,pat)
		output = string.gsub(output,"</a></td></tr></table>","")
		output = string.gsub(output,"</a></td>","")
		output = string.gsub(output,"<td width='20%%'>",", ")
		output = string.gsub(output,"</strong>.+their name below\.",", ")
		output = string.gsub(output,"<a href='/players\.php%?lookup=%w+'>","")
		output = string.gsub(output,"</tr>","")
		output = string.gsub(output,"<tr>","")
		output = string.gsub(output,", </p>","")
		output = string.gsub(output,"<table width='100%%'>, ","")
		echo(output)
		return(true)
	elseif string.match(input,"^truewho %w+$") then
		local buffer = {}
		local name = string.sub(input,9)
		local output = ""
		local c = curl.easy_init()
		c:setopt(curl.OPT_URL,'http://old.imperian.com/players.php?search=who')
		c:setopt(curl.OPT_CONNECTTIMEOUT,'5')
		c:setopt(curl.OPT_WRITEFUNCTION,
				function (s, len) output = output..s return len end)
		res = c:perform()
		if (string.match(output,name)) then
			echo("That person is online.")
		else
			echo("That person is not online.")
		end
		return(true)
	end
end
mb.client_aliases = alias_handler