// ==UserScript==
// @version 0.1
// @author alex_kocharin
// @collaborator alex_kocharin
// @license free
// @copyright 2014, alex_kocharin (http://www.heroeswm.ru/pl_info.php?id=78601)
// @description	Светофоры в личных рекордах ГО игроков
// @icon http://www.heroeswm.ru/hwmicon.ico
// @name HWM.PlayerSemaphores
// @updateURL https://openuserjs.org/scripts/dailyhwm/HWM.PlayerSemaphores
// @homepageURL https://openuserjs.org/scripts/dailyhwm/HWM.PlayerSemaphores
//
// @include        http://www.heroeswm.ru/pl_hunter_stat.php*
// @include        http://www.heroeswm.com/pl_hunter_stat.php*
// @include        http://rus.heroeswm.com/pl_hunter_stat.php*
// @include        http://www.lordswm.com/pl_hunter_stat.php*
// ==/UserScript==
	// set this to "true" for inserting my line after results table
var insertafter = false;
	//var insertafter = true;
var serv = 'ru';
if (location.href.match(/heroeswm.ru/)) {
    serv = 'ru';
} else if (location.href.match(/lordswm.com/)) {
    serv = 'com';
} else if (location.href.match(/rus.heroeswm.com/)) {
    serv = 'ru';
} else if (location.href.match(/heroeswm.com/)) {
    serv = 'com';
}
var text_setting, text_record, text_loaded, text_err, text_parsrec, 
	text_loadrec, text_parspl, text_loadpl, text_sleeping, text_loadsem;
if (serv == 'com') {
	text_setting = 'Setting semaphores...';
	text_record = 'Record';
	text_loaded = 'Semaphores loaded successfully';
	text_err = 'Error';
	text_parsrec = 'Parsing records information...';
	text_loadrec = 'Loading records information...';
	text_parspl = 'Parsing player information...';
	text_loadpl = 'Loading player information...';
	text_sleeping = 'Sleeping 2 sec... please wait';
	text_loadsem = 'Load semaphores';
} else {
	text_setting = '\u0423\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0430 \u0441\u0432\u0435\u0442\u043e\u0444\u043e\u0440\u043e\u0432...';
	text_record = '\u0420\u0435\u043a\u043e\u0440\u0434';
	text_loaded = '\u0421\u0432\u0435\u0442\u043e\u0444\u043e\u0440\u044b \u0437\u0430\u0433\u0440\u0443\u0436\u0435\u043d\u044b \u0443\u0441\u043f\u0435\u0448\u043d\u043e';
	text_err = '\u041e\u0448\u0438\u0431\u043a\u0430';
	text_parsrec = '\u0421\u0447\u0438\u0442\u044b\u0432\u0430\u043d\u0438\u0435 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u0438 \u043e \u0440\u0435\u043a\u043e\u0440\u0434\u0430\u0445...';
	text_loadrec = '\u0417\u0430\u0433\u0440\u0443\u0437\u043a\u0430 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u0438 \u043e \u0440\u0435\u043a\u043e\u0440\u0434\u0430\u0445...';
	text_parspl = '\u0421\u0447\u0438\u0442\u044b\u0432\u0430\u043d\u0438\u0435 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u0438 \u043e\u0431 \u0438\u0433\u0440\u043e\u043a\u0435...';
	text_loadpl = '\u0417\u0430\u0433\u0440\u0443\u0437\u043a\u0430 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u0438 \u043e\u0431 \u0438\u0433\u0440\u043e\u043a\u0435...';
	text_sleeping = '\u0417\u0430\u0434\u0435\u0440\u0436\u043a\u0430, 2 \u0441\u0435\u043a... \u043f\u043e\u0436\u0430\u043b\u0443\u0439\u0441\u0442\u0430, \u043f\u043e\u0434\u043e\u0436\u0434\u0438\u0442\u0435';
	text_loadsem = '\u0417\u0430\u0433\u0440\u0443\u0437\u0438\u0442\u044c \u0441\u0432\u0435\u0442\u043e\u0444\u043e\u0440\u044b';
}
text_loaded = '';
function loadsem(log, where)
{
	function setsem(hash, hash2)
	{
		log.innerHTML = text_setting;
		for(var i=0; i<where.childNodes.length; i++) {
			var newtd = document.createElement('td');
			if (i == 0) {
				newtd.innerHTML = '&nbsp;';
			} else {
				var trec = 0;
				var trec2 = 0;
				var prec = 0;
				var dd = 0.6;
				var m;
				var armyx = '';
				if (m = where.childNodes[i].innerHTML.match(/army_info\.php\?name=(\S+)"/)) {
					armyx = m[1];
					if (hash[m[1]]) {
						trec = hash[m[1]];
					}
					if (hash2[m[1]]) {
						trec2 = hash2[m[1]];
					}
				}
				if (m = where.childNodes[i].innerHTML.match(/warlog\.php\?warid=\d+">(\d+)</)) {
					prec = m[1];
				}
				if (trec > 0 && prec > 0) {
					dd = prec * 1.3 / trec;
				}
				var color = 0;
				if (dd <= 0.3) { color = 1;
				} else if (dd <= 0.5) { color = 2;
				} else if (dd <= 0.7) { color = 3;
				} else if (dd <= 1) { color = 4;
				} else { color = 5;
				}
				var record = String(trec);
				if (trec != trec2) record += ' - '+String(trec2);
				if (trec > 0 && prec > 0) {
newtd.innerHTML = '<a href="'+url+'&mid='+armyx+'#'+armyx+'"><img src="i/map/nl'+String(color)+'.gif" border="0" alt="'+text_record+': '+record+'" title="'+text_record+': '+record+'" width="12" height="12"></a>';
				} else {
		newtd.innerHTML = '&nbsp;';}}
			newtd.setAttribute('class', 'wblight');
			where.childNodes[i].insertBefore(newtd, where.childNodes[i].childNodes[0]);}
		log.innerHTML = text_loaded;}
	function parserecs()
	{if (xmlhttp.readyState == 4) {
        if (xmlhttp.status == 200) {
		log.innerHTML = text_parsrec;
var pos1 = xmlhttp.responseText.indexOf('class=wblight');
var pos2 = xmlhttp.responseText.indexOf('<tr><td', pos1+10);
var pos3 = xmlhttp.responseText.indexOf('</table>', pos2+5);
if (pos1 == -1 || pos2 == -1 || pos3 == -1) {
		log.innerHTML = text_err+': parse2 1st err'; return;}
var text = xmlhttp.responseText.substr(pos2, pos3-pos2) + '<tr>';
			pos1 = 0;
			pos2 = text.indexOf('<tr>', pos1+1);
var m, name, value, hash = {}, hash2 = {};
			while(pos2 != -1) {
				var textt = text.substr(pos1, pos2-pos1);
				if (textt.indexOf('rowspan=') > 0) {
					if (m = textt.match(/'army_info\.php\?name=(\S+)'/)) {
						name = m[1];}}
				if (m = textt.match(/'warlog\.php\?warid=\d+'>(\d+)</)) {
					value = m[1];}
				hash[name] = value;
				if (textt.indexOf('rowspan=') > 0) {
					hash2[name] = value;}
				pos1 = pos2;
				pos2 = text.indexOf('<tr>', pos1+1);}
			setsem(hash, hash2);}
else {log.innerHTML = text_err+': http code is '+String(xmlhttp.status);}}}
	function getrecs()
	{log.innerHTML = text_loadrec;
		xmlhttp.open('GET', url, true);
		xmlhttp.onreadystatechange = parserecs;
		xmlhttp.send(null);}
	function parseplayer()
	{if (xmlhttp.readyState == 4) {
        if (xmlhttp.status == 200) {
		log.innerHTML = text_parspl;
			var pos1 = xmlhttp.responseText.indexOf('class=wblight');
			var pos2 = xmlhttp.responseText.indexOf('male.gif');
			if (pos1 == -1 || pos2 == -1 || pos1 > pos2) {
		log.innerHTML = text_err+': parse 1st err';
				return;}
			var text = xmlhttp.responseText.substr(pos1, pos2-pos1);
			var m;
			if (m = text.match(/\[(\d+)\]&nbsp;<img src='i\/r(\d+).gif'/)) {
				url = '/plstats_hunters.php?level='+String(m[1])+'&race='+String(m[2]);
		log.innerHTML = text_sleeping;
				setTimeout(getrecs, 2000);}
	else {log.innerHTML = text_err+': parse 2nd err'; return;}}
	else {log.innerHTML = text_err+': http code is '+String(xmlhttp.status);}}}
	var xmlhttp = new XMLHttpRequest();
	if (!xmlhttp) {
		log.innerHTML = text_err+': xmlhttp create';
		return;}
	var alla = where.childNodes[1].getElementsByTagName('a');
	var url = false;
	for(var i=0; i<alla.length; i++) {
		if (alla[i].href.indexOf('pl_info.php?') > 0) {
			url = alla[i].href;
			break;}}
	if (url == false) {
		log.innerHTML = text_err+': error 1';
		return;}
	log.innerHTML = text_loadpl;
	xmlhttp.open('GET', url, true);
	xmlhttp.onreadystatechange = parseplayer;
	xmlhttp.send(null);}
var newtr = document.createElement('tr');
var newtd = document.createElement('td');
var newa = document.createElement('a');
newtd.setAttribute('align', 'center');
newa.innerHTML = text_loadsem;
newa.href = '#';
newtd.appendChild(newa);
newtr.appendChild(newtd);
var alltbl = document.getElementsByTagName('table');
var ctbl = false;
var wb = false;
for(var i=0;i<alltbl.length;i++) {
	if (alltbl[i].getAttribute('class') == 'wbwhite') {
ctbl = alltbl[i];
newa.addEventListener('click', function(e) {
e.preventDefault();
loadsem(newtd, wb.childNodes[0]);}, false);
var n = ctbl.childNodes[0];
n.insertBefore(newtr, n.childNodes[insertafter ? 2 : 1]);}
else if (alltbl[i].getAttribute('class') == 'wb') {
wb = alltbl[i];}}