// ==UserScript==
// @name           Insel Monarchie Spios
// @namespace      http://example.org/a1x/gmscripts/spio
// @description    Insel Monarchie Spio - Spio-Kampfrechner für IM
// @include        http://*.insel-monarchie.de/sid/*
// ==/UserScript==
/*
Copyright (C) 2007 a1x

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA
*/
window.addEventListener(
    'load', 
    function() {
var _page = document.location.href;
var tables = document.getElementsByTagName("table");

  if (_page.indexOf("post.php?position=show_igm")>0) {
     cell = tables[14].getElementsByTagName("td");
     text = cell[6].innerHTML;
		 var re = /spioniert/;
		 if (re.exec(text)) {
		 einh= new Array(11);
     err=0;
     var re = /Haupthaus -> (\d+)/;if(!re.exec(text)) err=1;einh[0]=RegExp.$1; 
     var re = /Steinmauer -> (\d+)/;if(!re.exec(text)) err=2;einh[1]=RegExp.$1; 
		 var re = /Soldaten -> (\d+)/;if(!re.exec(text)) err=3;einh[2]=RegExp.$1; 
		 var re = /Speertraeger -> (\d+)/;if(!re.exec(text)) err=4;einh[3]=RegExp.$1;
		 var re = /Bogenschuetzen -> (\d+)/;if(!re.exec(text)) err=5;einh[4]=RegExp.$1; 
		 var re = /Schwertkaempfer -> (\d+)/;if(!re.exec(text)) err=6;einh[5]=RegExp.$1; 
		 var re = /Kriegsschiffe \(klein\) -> (\d+)/;if(!re.exec(text)) err=7;einh[6]=RegExp.$1; 
		 var re = /Kriegsschiffe \(gross\) -> (\d+)/;if(!re.exec(text)) err=8;einh[7]=RegExp.$1; 
		 var re = /Kanonenschiffe -> (\d+)/;if(!re.exec(text)) err=9;einh[8]=RegExp.$1; 
		 var re = /Kanonenschiffe \(gross\) -> (\d+)/;if(!re.exec(text)) err=10;einh[9]=RegExp.$1; 
		 var re = /Auslieger -> (\d+)/;if(!re.exec(text)) err=11;einh[10]=RegExp.$1; 
     if (err==0) {
     svw = new Array(0.83,2.429,5.817,12.52,6.26);
     verx=0;
     for($i=0;$i<5;$i++) verx += einh[$i+6] * svw[$i];
		 info = "ca. " + Math.round(verx*1.05/svw[1]) + " gro&szlig;e Kriegsschiffe<br>";
     
		 verx = 0;
   	 svl = new Array(0.99865,2.736,2.631,2.996);
		 sal = new Array(0.364,1.79,2.465,2.444);
 		 for($i=0;$i<4;$i++) verx += einh[$i+2] * svl[$i];
		 verx += 54.428*Math.exp(einh[1]/5.1455);
		 verx += 13.3120*Math.exp(einh[0]/3.9484);
		 info += "ca. " + Math.round(verx*1.05/sal[1]) + " SP oder " + Math.round(verx*1.05/sal[2]) + " BS oder je " + Math.round(verx*1.05/(sal[1]+sal[2])) + " BS+SP";
		 cell[6].innerHTML = "<div style=\"background-color:yellow;border:1px solid black;\">" + info + "</div><br>" + cell[6].innerHTML; 
		 }
    }
  }

 },
    true);