// ireland_lighthouses.js
// Helps out ireland_lighthouses.php ( and suited to asynchronous call via ... <script type="text/javascript" src="ireland_lighthouses.js" async="async"></script> )
// RJM Programming
// July, 2015
// Thanks to Wikipedia at https://en.wikipedia.org/wiki/List_of_lighthouses_in_Ireland

var tables, divs, hones;
var mylighthouse = new Array();
var mylocality = new Array();
var mylatarray = new Array();
var mylongarray = new Array();

var tablelighthouse="<tbody><tr></tr></tbody>";
var tablelocality="<tbody><tr></tr></tbody>";
var tablelighthousereverse="<tbody><tr></tr></tbody>";
var tablelocalityreverse="<tbody><tr></tr></tbody>";
var tablelat="<tbody><tr></tr></tbody>";
var tablelong="<tbody><tr></tr></tbody>";
var tablelatreverse="<tbody><tr></tr></tbody>";
var tablelongreverse="<tbody><tr></tr></tbody>";
var tablenormal="";

var lastscp=0;
var lasthonex=0, lastiframex=0, lastdivw=0;

var opensel="<select size=9 id='ssort' onchange='swapto(this.value);'><option value='tablenormal'>Wikipedia Order</option><option value='tablelatreverse'>North to South</option><option value='tablelat'>South to North</option><option value='tablelongreverse'>East to West</option><option value='tablelong'>West to East</option><option value='tablelocality'>Locality A to Z</option><option value='tablelocalityreverse'>Locality Z to A</option><option value='tablelighthouse'>Lighthouse Name A to Z</option><option value='tablelighthousereverse'>Lighthouse Name Z to A</option></select>";

setTimeout(muchlater, 3000);

function swapto(which) {
  tables=document.getElementsByTagName('table');
  tables[0].innerHTML = eval(which);
}

function numericalsort(x, y) {
  if (eval(x) < eval(y)) return -1;
  if (eval(x) == eval(y)) return 0;
  return 1;
}

function muchlater() {
  hones=document.getElementsByTagName('h1');
  divs=document.getElementsByTagName('div');
  tables=document.getElementsByTagName('table');
  if (eval(tables.length) == 1) {
  tablenormal=tables[0].innerHTML;
  var tds=document.getElementsByTagName('td'), alocs, alats, anames, spare="", jj, bits;
  for (var ii=0; ii<tds.length; ii++) {
    spare=tds[ii].innerHTML.replace(":+","").replace("+"," ").replace('">','  ').replace("'>","  ");
    alocs=spare.split("loc:");
    if (alocs.length > 1) {
      alats=alocs[1].split(" ");
      mylatarray.push(alats[0] + "00000010" + eval(ii + 1));
      mylongarray.push(alats[1] + "00000010" + eval(ii + 1));
    }
    spare=tds[ii].innerHTML.replace('="','= ').replace("='","= ").replace('" ','  ').replace("' ","  ");
    alocs=spare.split(", ");
    if (alocs.length > 1) {
      anames=alocs[1].split(" target=");
      if (anames[0] != "") mylocality.push(anames[0] + "00000010" + eval(ii + 1));
      anames=alocs[0].split(" title= ");
      if (anames[eval(anames.length) - 1] != "") mylighthouse.push(anames[eval(anames.length) - 1] + "00000010" + eval(ii + 1));
    } else {
      anames=alocs[0].split(" title= ");
      if (anames[eval(anames.length) - 1] != "") mylighthouse.push(anames[eval(anames.length) - 1] + "00000010" + eval(ii + 1));
      if (anames[eval(anames.length) - 1] != "") mylocality.push(anames[eval(anames.length) - 1] + "00000010" + eval(ii + 1));
    }
  }
  mylatarray.sort(numericalsort);
  mylongarray.sort(numericalsort);
  mylocality.sort();
  mylighthouse.sort();
  for (jj=0; jj<mylatarray.length; jj++) {
    bits=mylatarray[jj].split("00000010");
    tablelat=tablelat.replace("</tr></tbody>", "<td>" + tds[eval(bits[1] - 1)].innerHTML + "</td></tr></tbody>");
  }
  for (jj=0; jj<mylongarray.length; jj++) {
    bits=mylongarray[jj].split("00000010");
    tablelong=tablelong.replace("</tr></tbody>", "<td>" + tds[eval(bits[1] - 1)].innerHTML + "</td></tr></tbody>");
  }
  for (jj=eval(mylatarray.length - 1); jj>=0; jj--) {
    bits=mylatarray[jj].split("00000010");
    tablelatreverse=tablelatreverse.replace("</tr></tbody>", "<td>" + tds[eval(bits[1] - 1)].innerHTML + "</td></tr></tbody>");
  }
  for (jj=eval(mylongarray.length - 1); jj>=0; jj--) {
    bits=mylongarray[jj].split("00000010");
    tablelongreverse=tablelongreverse.replace("</tr></tbody>", "<td>" + tds[eval(bits[1] - 1)].innerHTML + "</td></tr></tbody>");
  }
  for (jj=0; jj<mylocality.length; jj++) {
    bits=mylocality[jj].split("00000010");
    tablelocality=tablelocality.replace("</tr></tbody>", "<td>" + tds[eval(bits[1] - 1)].innerHTML + "</td></tr></tbody>");
  }
  for (jj=0; jj<mylighthouse.length; jj++) {
    bits=mylighthouse[jj].split("00000010");
    tablelighthouse=tablelighthouse.replace("</tr></tbody>", "<td>" + tds[eval(bits[1] - 1)].innerHTML + "</td></tr></tbody>");
  }
  for (jj=eval(mylocality.length - 1); jj>=0; jj--) {
    bits=mylocality[jj].split("00000010");
    tablelocalityreverse=tablelocalityreverse.replace("</tr></tbody>", "<td>" + tds[eval(bits[1] - 1)].innerHTML + "</td></tr></tbody>");
  }
  for (jj=eval(mylighthouse.length - 1); jj>=0; jj--) {
    bits=mylighthouse[jj].split("00000010");
    tablelighthousereverse=tablelighthousereverse.replace("</tr></tbody>", "<td>" + tds[eval(bits[1] - 1)].innerHTML + "</td></tr></tbody>");
  }
  //divs[eval(divs.length - 1)].innerHTML="<table><tr><td>" + "<select size=9 id='ssort' onchange='swapto(this.value);'><option value='tablenormal'>Wikipedia Order</option><option value='tablelatreverse'>North to South</option><option value='tablelat'>South to North</option><option value='tablelongreverse'>East to West</option><option value='tablelong'>West to East</option><option value='tablelocality'>Locality A to Z</option><option value='tablelocalityreverse'>Locality Z to A</option><option value='tablelighthouse'>Lighthouse Name A to Z</option><option value='tablelighthousereverse'>Lighthouse Name Z to A</option></select>" + "</td><td>" + divs[eval(divs.length - 1)].innerHTML + "</td></tr></table>";
  hones[0].innerHTML=hones[0].innerHTML + "&nbsp;" + opensel.replace("size=9 id='ssort'", " id='selsort'") + "&nbsp;<input type='button' onclick='window.scrollBy(100, 0);' value='More ... That a Way -&gt;'></input>";
  //document.body.innerHTML += "<br>" + opensel;
  }
}

function scrollchange() {
  //document.title=('' + document.body.scrollLeft);
  var huhsc=eval('' + ('' + document.body.scrollLeft).replace('px',''));
  if (huhsc != 0) { 
    if (lastscp != huhsc) { 
      lastscp=huhsc;
      //document.title='leftScrollPos=' + huhsc; 
      if (1 == 1) {
      document.getElementsByTagName('div')[0].align='left';
      document.getElementsByTagName('div')[eval(-1 + document.getElementsByTagName('div').length)].align='right';
      document.getElementsByTagName('div')[eval(-1 + document.getElementsByTagName('div').length)].style.width='' + eval(huhsc + eval(('' + lastdivw).split('.')[0])) + 'px';
      document.getElementsByTagName('h1')[0].style.marginLeft='' + huhsc + 'px';
      document.getElementsByTagName('iframe')[0].style.marginLeft='' + huhsc + 'px';
      } else {  
      document.getElementsByTagName('h1')[0].style.position='absolute';
      document.getElementsByTagName('h1')[0].style.left='' + eval(huhsc + eval(('' + lasthonex).split('.')[0])) + 'px';
      document.getElementsByTagName('h1')[0].style.top=('' + lasthonex).split('.')[1] + 'px';
      document.getElementsByTagName('iframe')[0].style.position='absolute';
      document.getElementsByTagName('iframe')[0].style.left='' + eval(huhsc + eval(('' + lastiframex).split('.')[0])) + 'px';
      document.getElementsByTagName('iframe')[0].style.top=('' + lastiframex).split('.')[1] + 'px';
      }
    }
  } else if (lastscp != huhsc) { 
    //document.title='leftScrollPos=' + huhsc;  
      if (1 == 1) {
      document.getElementsByTagName('div')[0].align='left';
      document.getElementsByTagName('div')[eval(-1 + document.getElementsByTagName('div').length)].align='right';
      document.getElementsByTagName('div')[eval(-1 + document.getElementsByTagName('div').length)].style.width='' + eval(huhsc + eval(('' + lastdivw).split('.')[0])) + 'px';
      document.getElementsByTagName('h1')[0].style.marginLeft='' + huhsc + 'px';
      document.getElementsByTagName('iframe')[0].style.marginLeft='' + huhsc + 'px';
      } else {  
    document.getElementsByTagName('h1')[0].style.position='absolute';
    document.getElementsByTagName('h1')[0].style.left='' + eval(huhsc + eval(('' + lasthonex).split('.')[0])) + 'px';
    document.getElementsByTagName('h1')[0].style.top=('' + lasthonex).split('.')[1] + 'px';
    document.getElementsByTagName('iframe')[0].style.position='absolute';
    document.getElementsByTagName('iframe')[0].style.left='' + eval(huhsc + eval(('' + lastiframex).split('.')[0])) + 'px';
    document.getElementsByTagName('iframe')[0].style.top=('' + lastiframex).split('.')[1] + 'px';
      }j
  } else if (lasthonex == 0 && lastiframex == 0) {
    var rectlis=document.getElementsByTagName('h1')[0].getBoundingClientRect();
    lasthonex=eval(('' + rectlis.left).split('.')[0] + '.' + ('' + ('' + rectlis.top).split('.')[0] + '.').replace('0.','1.').replace('.',''));
    rectlis=document.getElementsByTagName('iframe')[0].getBoundingClientRect();
    lastiframex=eval(('' + rectlis.left).split('.')[0] + '.' + ('' + ('' + rectlis.top).split('.')[0] + '.').replace('0.','1.').replace('.',''));
    rectlis=document.getElementsByTagName('div')[eval(-1 + document.getElementsByTagName('div').length)].getBoundingClientRect();
    lastdivw=eval('' + rectlis.width);
  }
}


setInterval(scrollchange, 1000);