// ==UserScript==
// @name          Shoutbox CC
// @namespace     http://blog.thedt.net
// @description	  shoutbox Custom Commands
// @include       *msghelp.net/shoutbox.php*
// ==/UserScript==
//made by -dt- , darktempler@gmail.com
//Command list mod by Plik, thatspollacks.net
/*IF YOU ALREADY HAVE SHOUTBOX CUSTOM COMMANDS INSTALLED THEN SAVE YOUR COMMANDS BEFORE YOU INSTALL THIS SCRIPT,
THEN REPLACE THE COMMANDS IN THIS SCRIPT WITH YOUR COMMANDS
DON'T DO A JA :P
*/



var commands = new Array();
var gC = new Array();

//now commands are simpleish to set up
// all you have to do is create a new array element with what function to call eg
//commands['moo'] = function(){post('moo');}
//makes a function which when you type /moo sends moo to the server as the shout, you can also use post in downloadSite function as used in /np command below
//and i also pass anything recived after the command eg /moo mahahaha would be passed in the function eg to handle it you could use
//commands['moo'] = function(text){post('mooo '+ text);}

//for the now playing script you dont have to edit this just do.... /set npsite locationoffile     .... in the shoutbox


commands['np'] = function(){ var site = GM_getValue('npsite') || 'http://random.thedt.net/scripts/test.txt';downloadSite(site, function(details){var format = GM_getValue('npstyle') || '[b]%song%[/b]';var song = format.replace('%song%',details.responseText); post(song)} )}
//poor mans np
//commands['np'] = function(){ downloadSite('http://www.leejeffery.co.uk/web2msn.php?username=madman',function(details){post('Now Playing: ' + details.responseText.substr(details.responseText.indexOf("PSM = ") + 6))});}
commands['psm'] = function(uname){uname = uname.replace(' ', ''); downloadSite("http://www.web2messenger.com/status/" + uname + ".xml",function(details){
var xxx = new XML(details.responseText.replace('<?xml version="1.0" encoding="UTF-8"?>',''));if(xxx.name().localName == "error"){post("[b]Error[/b]: " + uname + " doesnt have a Web2MSN account");return;}post(uname + "'s psm: " + xxx.psm);
});}
commands['dt'] = function(){ post('/me < dt'); }
commands['setcc'] = set;
commands['moo'] = function(){post("/me randomly starts mooing at the peoples in the box...")}
commands['kill'] = function(person){post("/me kills " + person);}
commands['dns'] = function(site){x = site;downloadSite('http://thedt.net/cc/dns.php?host='+site,function(details){post('/me dns resolved '+x +' to ' +details.responseText)});}
commands['objslap'] = function(blah){arr = blah.split(' '); var person = arr[0]; arr[0] = ""; var item = arr.join(' '); post('/me slaps '+ person +' around a bit with '+ item);}
commands['wave'] = function(ipt){post("/me :wave:'s at " + ipt);}
commands['total'] = get_total_time_spent;
commands['web2msn'] = function(uname){

	uname = uname.replace(' ', '');
	downloadSite("http://www.web2messenger.com/status/" + uname + ".xml" ,function(details){
	
	
	var xxx = new XML(details.responseText.replace('<?xml version="1.0" encoding="UTF-8"?>',''));

	if(xxx.name().localName == "error"){
		post("[b]Web2MSN[/b]: " + xxx);
		return;
	}

	var status = String(xxx.status);
	var name = String(xxx.displayname);
	var customStatus = String(xxx.displayname).match(/\{(.*)\}$/);
	if(customStatus){
		name = name.replace(/\{(.*)\}$/,"");
		status = customStatus[1];
	}
	
	//the dot thing
	var sp = String.fromCharCode(183);
	
	
	var plus_colors = new Array(
	"FFFFFF","000000","00007F","009300","FF0000","7F0000","9C009C","FC7F00","FFFF00","00FC00","009393","00FFFF","0000FF","FF00FF","7F7F7F","D2D2D2","E7E6E4","CFCDD0","FFDEA4","FFAEB9","FFA8FF","B4B4FC","BAFBE5","C1FFA3","FAFDA2","B6B4B7","A2A0A1","F9C152","FF6D66","FF62FF","6C6CFF","68FFC3","8EFF67","F9FF57","858482","6E6D7B","FFA01E","F92611","FF20FF","202BFF","1EFFA5","60F913","FFF813","5E6464","4B494C","D98812","EB0505","DE00DE","0000D3","03CC88","59D80D","D4C804","333335","18171C","944E00","9B0008","980299","01038C","01885F","389600","9A9E15","473400","4D0000","5F0162","000047","06502F","1C5300","544D05");
	
		var usesNewColor = name.match(/\[c=[0-9]{1,2}\](.*?)\[\/c\]/g);
		if(usesNewColor){
			var color;
			for(var i=0;i<usesNewColor.length;i++){
				color = usesNewColor[i].match(/\[c=([0-9]{1,2})\](.*?)\[\/c\]/);
				name = name.replace(usesNewColor[i], "[color=#" + plus_colors[color[1]]+ "]"+ color[2] +"[/color]");
			}
		}
		name = name.replace(/\[c=\#([0-9a-zA-Z]+)\](.*?)\[\/c\]/g, "[color=#$1]$2[/color]");

	
	var format = "[b]Web2MSN for[/b]: " + xxx.@username + 
				" [b]Display Name[/b]: " + name +
				" [b]Status[/b]: " + status + 
				" [b]PSM[/b]: " + (xxx.psm.@mediatype == "Music" ? "(8) [color=blue]" + xxx.psm + "[/color] (8)" : xxx.psm) + 
				(xxx.dpurl.toString() != "" ? "[GM:IMG]" + xxx.dpurl + "[/GM:IMG]" : "");
	
	post(format);
	
	});



}

commands['rand'] = function(str){ 
	if(typeof(str) == "undefined")var str = "WDZ";
	downloadSite("http://www.thesurrealist.co.uk/slogan.cgi?word=" + escape(str), function(details){
		var match = details.responseText.match(/>(.*?)<\/h1>/m);
		if(match){
			post("[b]Slogan[/b]: " + parseToBbcode(match[1]));
		}else{
			alert("parsing failed");
		}
	});
}

commands['rev'] = function(str){var os = ''; for(var i=1;i<=str.length;i++){ os = os + str.charAt(str.length - i); } post(os);}
commands['time'] = function(str){post(timeFunc(str));}//usage: /time <format>; Format is optional, and uses the php time format.
commands['noparse'] = function(text){noparsePost(text);}
commands['exit'] = function(text){window.close();}
commands['mimic'] = mimic





//example of a global command (excucutes on all non functions)
gC[gC.length] = function(text){return text.replace(':\\',':-/');}
gC[gC.length] = function(text){var time = timeFunc(); return text.replace(/\(!T\)/g,time);}
gC[gC.length] = function(text){var date = dateFunc(); return text.replace(/\(!D\)/g,date);}

//auto convert * to /me if its at the start
gC[gC.length] = function(text){return text.replace(/^\*/,'/me ');}
//(!PEOPLE)
gC[gC.length] = function(text){return text.replace(/\(!PEOPLE\)/i,getOnlinePeople())}

gC[gC.length] = function(text){return text.replace(/^\/q /i,"/quote ")}

//find our textbox with a good ole xpath.
var textbox = document.evaluate('//input[@type="text"]',document, null, XPathResult.FIRST_ORDERED_NODE_TYPE, null).singleNodeValue;
var form = document.evaluate('//form[@name="msgform"]',document, null, XPathResult.FIRST_ORDERED_NODE_TYPE, null).singleNodeValue;





//ah replace the checkName function with our own little one :P
hookSubmit();
textbox.addEventListener("keypress", keyUp, false);
textbox.addEventListener("blur", function (e){ hideCommandWind(); }, true);
var cwContainer;
var suggestCmd = false;
var contShown = false;
//This array is used for the list
var cmds = new Array();
cmds[cmds.length] = "me";
cmds[cmds.length] = "quote";
cmds[cmds.length] = "slap";
cmds[cmds.length] = "theme";
cmds[cmds.length] = "shout";
cmds[cmds.length] = "ls";
cmds[cmds.length] = "setppp";
cmds[cmds.length] = "text";
cmds[cmds.length] = "set";
for(x in commands){
	cmds[cmds.length] = x;
}
cmds = cmds.sort();
makeCommandWind();


//start functions here...


function parseToBbcode(str){
	str = str.replace(/<b>(.+?)<\/b>/,"[b]$1[/b]");
	str = str.replace(/<i>(.+?)<\/i>/,"[i]$1[/i]");
	str = str.replace(/<u>(.+?)<\/u>/,"[u]$1[/u]");
	str = str.replace(/<strike>(.+?)<\/strike>/,"[s]$1[/s]");
	str = str.replace(/<img src="(.+?)" (.*?)title="External Image: (.*?)>/,"[gm:img]$1[/gm:img]");
	str = str.replace(/<img src="(.+?)" (.*?)>/,"[img]$1[/img]");
	str = str.replace(/\[img\]images\/smilies\/(.+?)\[\/img\]/,"[img]$1[/img]");
	str = str.replace(/<span style="color: (.+?);">(.+?)<\/span>/,"[color=$1]$2[/color]");
return str;
}

function mimic(text){
	var lastbox = document.evaluate('//body/table[1]/tbody/tr/td/table/tbody/tr[last()]/td',document, null, XPathResult.FIRST_ORDERED_NODE_TYPE, null).singleNodeValue.innerHTML
	
	//split the first part then replace it :P if only javascript replace accepted limits.
	var me = lastbox.match(/<b>\* <a (.+?)>(.+?)<\/a><\/b>(.+)/i);
	
	if(me){
		lastbox = "/me " + parseToBbcode(me[3]);
	}else{
		lrep = lastbox.split('&gt;</b>',1) + '&gt;</b>';
		lastbox = lastbox.replace(lrep,'');
		
		//if they own the post remove the edit.
		lastbox = lastbox.replace(/<a href="shoutbox.php\?action=edit[^"]*"><span class="editlink">\[edit\]<\/span><\/a>/,'');
		lastbox = parseToBbcode(lastbox);
	}
	
	post(lastbox);
}


function dateFunc(){
	var time = new Date();
	dateString = time.getDay() + '/' + time.getMonth() + '/' + time.getFullYear();
	return dateString;
}


function timeFunc(fmat){
	if(!fmat) fmat = GM_getValue("timeformat", "H:i:s");
	if(fmat == "") fmat = GM_getValue("timeformat", "H:i:s");
	if(fmat == " ") fmat = GM_getValue("timeformat", "H:i:s");
	var time = new Date();
	var a, A, H, h, g;
	var G = time.getHours();
	var i = time.getMinutes();
	var s = time.getSeconds();
	if(G >= 12) {
		g = G - 12;
		a = "pm";
	} else {
		g = G;
		a = "am";
	}
	if(g == 0) g = 12;
	if(G < 10) H = "0" + G;
	else H = G;
	if(g < 10) h = "0" + g;
	else h = g;
	if(i < 10) i = "0" + i;
	if(s < 10) s = "0" + s;
	A = a.toUpperCase();
	var opstr = fmat.replace(/([^\\]|)a/g, "$1"+a);
	opstr = opstr.replace(/([^\\]|)A/g, "$1"+A);
	opstr = opstr.replace(/([^\\]|)H/g, "$1"+H);
	opstr = opstr.replace(/([^\\]|)h/g, "$1"+h);
	opstr = opstr.replace(/([^\\]|)G/g, "$1"+G);
	opstr = opstr.replace(/([^\\]|)g/g, "$1"+g);
	opstr = opstr.replace(/([^\\]|)i/g, "$1"+i);
	opstr = opstr.replace(/([^\\]|)s/g, "$1"+s);
	opstr = opstr.replace(/\\a/g, "a");
	opstr = opstr.replace(/\\A/g, "A");
	opstr = opstr.replace(/\\H/g, "H");
	opstr = opstr.replace(/\\h/g, "h");
	opstr = opstr.replace(/\\G/g, "G");
	opstr = opstr.replace(/\\g/g, "g");
	opstr = opstr.replace(/\\i/g, "i");
	opstr = opstr.replace(/\\s/g, "s");
	return opstr;
}






function set(e){
	if(e=='')return;
	try{
		var command = e.split(' ');
		var name = command[0];
		command[0] = '';
		
		var all = command.join(' ');
		
		GM_setValue(name,all);
		
		
		alert('Setting '+name + ' updated with ' + all);
		textbox.value = '';
	}catch(e){
		GM_log(e);
	}
}


function hookSubmit(){
	unsafeWindow.checkName = function(){return start();}
}

function unhookSubmit(){
	unsafeWindow.checkName = function(){return true;}
}




function start(){
var command = textbox.value;

if(!command.match(/^\//)){
post(command);
return false;
}

if(contShown){
	hideCommandWind();
}

/* dodgy plik =p this thing is mega annoying.. and should be an addeventlistener thing ... 
if(contShown){
	if(suggestCmd) {
		textbox.value = "/" + suggestCmd + " ";
		return false;
	}
}
*/
for(x in commands){
if(command == "/"+x){
commands[x]();
return false;
}
else if(command == "//"+x){
post(command.substr(1));
return false;
}
var regexp = new RegExp('^\/'+x+' (.+|)$','i');
var regexptwo = new RegExp('^\/\/'+x+' (.+|)$','i');
var m = command.match(regexp);

if(m){
commands[x](m[1]);
return false;
}
else if(command.match(regexptwo)){
post(command.substr(1));
return false;
}
}

post(command);
return false;
}


function globalParser(text){
if(gC.length !=0){
for(var i=0;i<gC.length;i++)text = gC[i](text);
}
return text;
}


function post(text){
unhookSubmit();
var command, params, isCmd;
params = text;
for(x in cmds){
	var regexp = new RegExp('^\/'+x+'( .+|)$','i');
	var m = text.match(regexp);
	if(m){
		command = "/"+x;
		params = m[1].substr(1);
		isCmd = true;
		}
}
if(isCmd) text = command+" "+globalParser(params);
else text = globalParser(text);
textbox.value = text;
form.submit();
}

function noparsePost(text){
	unhookSubmit();
	textbox.value = text;
	form.submit();
}



function postXmlhttp(site,postString,func){
	GM_xmlhttpRequest({
  method:"POST",
  url:site,
  headers : {'Content-type':'application/x-www-form-urlencoded'},
  data: postString,
  onload:func
});


}

//site to download , function to call when done.
function downloadSite(site,func){
	GM_xmlhttpRequest({
  method:"GET",
  url:site,
  onload:func
});
}

function keyUp(e){
if(closeWind()){
	hideCommandWind();
}
else if(textbox.value.match(/^\//)){
		if(!contShown){
			var showit = false;
			if(textbox.value == "") showit = true;
			if(textbox.value.match(/^\/\//)) showit = true;
			if(textbox.value.match(/^\/\w+\s/)) showit = true;
			for(var i=0;i<cmds.length;i++){
				if(textbox.value == "/" + cmds[i]) showit = true;
			}
			if(!showit) showCommandWind();
		} else {
			suggestCommand(textbox.value);
		}
}
}

function makeCommandWind(){
	cwContainer = document.createElement("div");
	cwContainer.style.display = "none";
	
	var commandList = document.createElement("ul");
	var colourAlt = "white";
	
	for(var i=0;i<cmds.length;i++){
			var li = document.createElement("li");
			var tn = document.createTextNode(cmds[i]);
			li.appendChild(tn);
			li.className = colourAlt;
			if(colourAlt == "white") colourAlt = "grey";
			else colourAlt = "white";
			commandList.appendChild(li);
	}
	cwContainer.setAttribute("id", "commandwnd");
	
	commandList.setAttribute("id", "commandlist");
	var xy = topLeftOffset(textbox);
	var top = xy[1] - 203;
	var left = xy[0] + 1;
	var clen = cmds.length;

		cwContainer.style.left = left + "px";
		cwContainer.style.top = top + "px";
	
		var styles = <a><![CDATA[
		div#commandwnd{
			position: absolute;
			height: 200px;
			overflow: auto;
			width: 7em;
			background: #fff;
			border: 1px solid #000;
			-moz-opacity: 0.9;
			padding: 0;
			font: 1.5em Consolas,Tahoma,sans-serif;
		}
			
		ul#commandlist{
			list-style-type: none;
			padding: 0;
			margin: 0;
		}
		ul#commandlist li{
			margin: 0;
			padding: 2px;
			cursor: pointer;
		}
		ul#commandlist li.white{
			background: #fff
		}
		ul#commandlist li.grey{
			background: #f5f5f5
		}
		ul#commandlist li:hover{
			background: #e0e0e0;
		}
		ul#commandlist li#suggested{
			background: #3c3c3c;
			color: #fff;
		}
		p#commandheader{
			width: 100%;
			background: #2A2A2A;
			color: #fff;
			margin: 0;
		}]]></a>.toString();
		


	var styleElement = document.createElement("style");
	styleElement.innerHTML = styles;
	
	var titlep = document.createElement("p");
	titlep.setAttribute("id", "commandheader");
	titlep.appendChild(document.createTextNode("Commands"));
	commandList.addEventListener("mousedown", commandClicked, true);
	cwContainer.appendChild(titlep);
	cwContainer.appendChild(commandList);
	var body = document.getElementsByTagName("body")[0];
	body.appendChild(cwContainer);
	body.appendChild(styleElement);

}

function showCommandWind(){
	cwContainer.style.display = "block";
	suggestCommand(textbox.value)
	contShown = true;
}

function hideCommandWind(){
	cwContainer.style.display = "none";
	suggestCmd = false;
	var oldsug = document.getElementById("suggested");
	if(oldsug) oldsug.removeAttribute("id");
	contShown = false;
}

function commandClicked(e){
	textbox.value = "/" + e.target.firstChild.data + " ";
	hideCommandWind();
	textbox.focus();
}

function closeWind(){
if(contShown){
	if(textbox.value == "") return true;
	if(textbox.value.match(/^\/\//)) return true;
	if(textbox.value.match(/^\/\w+\s/)) return true;
	for(var i=0;i<cmds.length;i++){
		if(textbox.value == "/" + cmds[i]) return true;
	}
}
return false;
}

function suggestCommand(text){
	var ncmds = new Array();
	text = text.replace("/", "");
	ncmds[0] = text;
	ncmds = ncmds.concat(cmds);
	ncmds = ncmds.sort();
	var suggest;
	for(var i=0;i<ncmds.length;i++) {
		if(text == ncmds[i]){
			suggest = i;
			i = ncmds.length;
		}
	}
	var oldsug = document.getElementById("suggested");
	if(oldsug) oldsug.removeAttribute("id");
	var lis = cwContainer.getElementsByTagName("li");
	lis[suggest].setAttribute("id", "suggested");
	suggestCmd = cmds[suggest];
	textbox.focus();
	if(suggest > 9){
		var offset = suggest - 9;
		cwContainer.scrollTop = offset * 28;
	}
	else {
		cwContainer.scrollTop = 0;
	}
}


function topLeftOffset(element) {
		var offsetX = element.offsetLeft;
		var offsetY = element.offsetTop;
		var parent = element.offsetParent
		while (parent) {
			var x = isNaN( parent.offsetLeft) ? 0 :  parent.offsetLeft;
			var y = isNaN(parent.offsetTop) ? 0 : parent.offsetTop;
			offsetX = offsetX + x;
			offsetY = offsetY + y;
			parent = parent.offsetParent
		}
		return Array(offsetX,offsetY);
	}
	
	
	
	/* tab auto completer */
	
textbox.addEventListener("keypress",tabcompleter,false);

var num = 0;
var doubleTab = false;

function tabcompleter(e){
	var tab = 9;
	if(e.keyCode == tab){
		//stop tab swapping elements...
		e.preventDefault();
		
		if(!doubleTab){
			oP = getOnlinePeople();
			lW = getLastWord(textbox);
		}
		
		if(lW && oP){
			if(!doubleTab){
				pe = workOutPerson(lW.word,oP);
				if(pe.length==0)return false;
			}else{
				if((num + 1) < pe.length){
					num++;
				}else{
					num=0;
				}
			}
			
			textbox.value = textbox.value.substring(0,lW.pos - lW.word.length) + pe[num] + textbox.value.substring(lW.pos,textbox.value.length);

		//enable doubleTab and set some values.
		lW.pos = lW.pos - lW.word.length + pe[num].length;
		lW.word = pe[num];
		doubleTab = true;
		}
		
	}else{
		num = 0;
		doubleTab = false;
	}


}

function workOutPerson(str,people){
	var order = Array();
	for(var i=0;i<people.length;i++){
		if(people[i].match(new RegExp('^'+reEscape(str),'i'))){
			order[order.length] = people[i];
		}
	}
	return order;
}

function getOnlinePeople(){
	var string =  document.evaluate('//table[2]/tbody/tr/td/table/tbody/tr/td[2]',document,null , XPathResult.FIRST_ORDERED_NODE_TYPE,null).singleNodeValue.textContent;
	var matches = string.match(/Users Online: (.*?)(, and [0-9]+ guest|)$/i);
	if(matches && matches.length >= 1){
		var people = matches[1].split(',');
		for(var i=0;i<people.length;i++)people[i] = trim(people[i]);
		return people;
	}else{
		
		return false;
	}

}


function reEscape(str) {
    //makes the string safe to use in regular expression search
    str = str.replace(/([\[\]\|\)\(\*\?\+\.])/g, '\\$1');
    return str;
}
  
function trim(s){
	s = s.replace(/^([ ]+)/,'');
	s = s.replace(/([ ]+)$/,'');
	return s;
}

function getLastWord(textbox){
	if(textbox.selectionStart || textbox.selectionStart == 0){
		var start = textbox.selectionStart;
		var end = textbox.selectionEnd;
		var splitme = textbox.value.substring(0,start);
		if(splitme.match(' ')){
			var words = splitme.split(' ');
			return {'word' : words[words.length-1] , 'end' : end,'pos' : start};
		}else{
			if(splitme.length > 0){
				return {'word' : splitme , 'pos' : start};
			}else{
				return false;
			}
		}
	}

	return false;
}


start_timer();
window.addEventListener("unload", end_timer, false);


function start_timer(){
	var date = new Date();
	GM_setValue("session_start", String(date.getTime()));
	if(GM_getValue("session_total") == undefined){GM_setValue("session_total",0);}
}
	
function end_timer(){
	GM_setValue("session_total", String(parseInt(GM_getValue("session_total")) + timer_getNow()));
}


function timer_getNow(){
	var start = parseInt(GM_getValue("session_start"));
	var now = new Date();
	var end = now.getTime();
	return end - start;
}

function get_total_time_spent(){
	var time = (timer_getNow() + parseInt(GM_getValue("session_total"))) / 1000;
	post("[b]Total time spent on the shoutbox[/b]: " + time_to_string(time));
}


function time_to_string(time){
	var secs = Math.round(time);

	var st = '';
	var days = removeDec(secs / 86400);
	
	if(days >= 1){
		
		if(days == 1){
			st += days + ' day ';
		}else{
			st += days + ' days ';
		}
		
		secs = secs - (days * 86400);
	}
	
	var hours = removeDec(secs / 3600);

	if(hours >= 1){
		if(hours == 1){
			st += hours + ' hour ';
		}else{
			st += hours + ' hours ';
		}
		
		secs = secs - (hours * 3600)
	}
	
	var mins = removeDec(secs / 60);
	
	if(mins >= 1){
		if(mins == 1){
			st += mins + ' minute ';
		}else{ 
			st += mins + ' minutes ';
		}
	
		secs = secs - (mins * 60);
	}

	st += 'and ' + secs + ' seconds'

	return st;
}

function removeDec(num){
	return String(num).split('.')[0];
}