//
//
// RoidCalc (C) 1998-2004  by Dillett (dillett@hushmail.com)
// All rights reserved.
//
var tottotal = new Array(99);
var proplife=2;
var phenlife=3;
var isoclife=4;
var tdeclife=7;
var ndeclife=7;
var enanlife=5;
var cypilife=6;
var primolife=5;
var ganalife=7;
var mastlife=2;
var dbollife=4.5;
var winnylife=9;
var userlife=3;

var Numcat=8;
//alert(document.cookie+"    "+document.cookie.length);
var today = new Date();
var active=1;

showweeks=getCookie("showweeks");
//alert(showweeks);
if (showweeks.length==0||showweeks==null) showweeks=8;

function load() {
	document.calc.weeks.value=showweeks;
	DoActive(document.calc);
}

function Zero(form,inputname) {
	for (var i = 12; i<form.elements.length; i++) {
		if (form.elements[i].name==inputname) {
      		form.elements[i].value=0;
   	}
	}
}


function update(form,inputname){
	num=0;
	for (var i = 12; i<form.elements.length; i++) {
		if (form.elements[i].name==inputname) {
				num++;
      		form.elements[i].value=Math.round(tottotal[num]);
   	}
	}
}


function SubCalc(form,inputname,half,factor) {
	halflife=Math.LN2/parseInt(half);
	num=0;
	hour=0;
	var startvalue=0;
	var varde=0;
	for (var i = 0; i<form.elements.length; i++) {
		if (form.elements[i].name==inputname) {
   		num++;
   		hour++;
   		varde=parseInt(form.elements[i].value);
      	if (varde>0) {
      		startvalue=startvalue*Math.exp(-(halflife*((hour-1))))+(varde*factor);
      		hour=1;
      	} 
      	tottotal[num]+=startvalue*Math.exp(-(halflife*((hour-1))));
	   }
  
	}
}

function DoActive(form) {
	Zero(form,"injecttotal");
	if (form.active.checked==true) active=1;
	else active=0;
}

function SubCalcAll(form,factor) {
	num=0;
	var total=0;
	var day= new Array(Numcat);
	var startvalue=new Array(Numcat);
	for (i=0;i<day.length;i++) {
		day[i]=0;
		startvalue[i]=0;
	}
	
	var varde=0;
	for (var i = 12; i<form.elements.length; i++) {
  		varde=parseInt(form.elements[i].value);
  		if (form.elements[i].name=="sust") num++;
  		if (form.elements[i].name=="sust"&&(startvalue[0]>0||varde>0)) {
			//testosterone isocaproate      60mg       60mg=24 %	
			//testosterone decanoate        100mg     100mg=40 %
			//testosterone propionate    30 mg   	   30mg=12 %	
			//testosterone phenylpropionate 60mg       60mg=24 %
			halflife1=Math.LN2/(parseInt(document.days.isoclife.value)*24);
			halflife2=Math.LN2/(parseInt(document.days.tdeclife.value)*24);
			halflife3=Math.LN2/(parseInt(document.days.proplife.value)*24);
			halflife4=Math.LN2/(parseInt(document.days.phenlife.value)*24);
   		day[0]++;
      	if (varde>0) {
      		startvalue1=(startvalue[0]*0.24)*Math.exp(-(halflife1*(24*(day[0]-1))));
      		startvalue2=(startvalue[0]*0.40)*Math.exp(-(halflife2*(24*(day[0]-1))));
      		startvalue3=(startvalue[0]*0.12)*Math.exp(-(halflife3*(24*(day[0]-1))));
      		startvalue4=(startvalue[0]*0.24)*Math.exp(-(halflife4*(24*(day[0]-1))));
      		startvalue[0]=startvalue1+startvalue2+startvalue3+startvalue4+(varde*factor);
      		day[0]=1;
      	} 
      	if (active==0) {
      		total=(startvalue[0]*0.24)*Math.exp(-(halflife1*(24*(day[0]-1))));
      		total+=(startvalue[0]*0.40)*Math.exp(-(halflife2*(24*(day[0]-1))));
      		total+=(startvalue[0]*0.12)*Math.exp(-(halflife3*(24*(day[0]-1))));
      		total+=(startvalue[0]*0.24)*Math.exp(-(halflife4*(24*(day[0]-1))));
      	} else {
      		total=(startvalue[0]*0.24)*Math.exp(-(halflife1*(24*(day[0]-1))))-(startvalue[0]*0.24)*Math.exp(-(halflife1*(24*(day[0]))));
      		total+=(startvalue[0]*0.40)*Math.exp(-(halflife2*(24*(day[0]-1))))-(startvalue[0]*0.40)*Math.exp(-(halflife2*(24*(day[0]))));
      		total+=(startvalue[0]*0.12)*Math.exp(-(halflife3*(24*(day[0]-1))))-(startvalue[0]*0.12)*Math.exp(-(halflife3*(24*(day[0]))));
      		total+=(startvalue[0]*0.24)*Math.exp(-(halflife4*(24*(day[0]-1))))-(startvalue[0]*0.24)*Math.exp(-(halflife4*(24*(day[0]))));
      	}
		   tottotal[num]+=total;
	   }
		else if (form.elements[i].name=="sust100"&&(startvalue[1]>0||varde>0)) {
			//testosterone isocaproate      40mg       =40 %	
			//testosterone propionate    20 mg   	   =20 %	
			//testosterone phenylpropionate 40mg       =40 %
			halflife1=Math.LN2/(parseInt(document.days.isoclife.value)*24);
			halflife2=Math.LN2/(parseInt(document.days.proplife.value)*24);
			halflife3=Math.LN2/(parseInt(document.days.phenlife.value)*24);
   		day[1]++;
      	if (varde>0) {
      		startvalue1=(startvalue[1]*0.40)*Math.exp(-(halflife1*(24*(day[1]-1))));
      		startvalue2=(startvalue[1]*0.20)*Math.exp(-(halflife2*(24*(day[1]-1))));
      		startvalue3=(startvalue[1]*0.40)*Math.exp(-(halflife3*(24*(day[1]-1))));
      		startvalue[1]=startvalue1+startvalue2+startvalue3+(varde*factor);
      		day[1]=1;
      	} 
      	if (active==0) {
      		total=(startvalue[1]*0.40)*Math.exp(-(halflife1*(24*(day[1]-1))));
      		total+=(startvalue[1]*0.20)*Math.exp(-(halflife2*(24*(day[1]-1))));
      		total+=(startvalue[1]*0.40)*Math.exp(-(halflife3*(24*(day[1]-1))));
      	} else {
      		total=(startvalue[1]*0.40)*Math.exp(-(halflife1*(24*(day[1]-1))))-(startvalue[1]*0.40)*Math.exp(-(halflife1*(24*(day[1]))));
      		total+=(startvalue[1]*0.20)*Math.exp(-(halflife2*(24*(day[1]-1))))-(startvalue[1]*0.20)*Math.exp(-(halflife2*(24*(day[1]))));
      		total+=(startvalue[1]*0.40)*Math.exp(-(halflife3*(24*(day[1]-1))))-(startvalue[1]*0.40)*Math.exp(-(halflife3*(24*(day[1]))));
      	}
		   tottotal[num]+=total;
	   }
  		else if (form.elements[i].name=="deca"&&(startvalue[2]>0||varde>0)) {
			halflife=Math.LN2/(parseInt(document.days.ndeclife.value)*24);
   		day[2]++;
      	if (varde>0) {
      		startvalue[2]=startvalue[2]*Math.exp(-(halflife*(24*(day[2]-1))))+(varde*factor);
      		day[2]=1;
      	} 
      	if (active==0) tottotal[num]+=startvalue[2]*Math.exp(-(halflife*(24*(day[2]-1))));
     		else tottotal[num]+=startvalue[2]*Math.exp(-(halflife*(24*(day[2]-1))))-(startvalue[2]*Math.exp(-(halflife*(24*(day[2])))));
		}
  		else if (form.elements[i].name=="cypion"&&(startvalue[3]>0||varde>0)) {
			halflife=Math.LN2/(parseInt(document.days.cypilife.value)*24);
   		day[3]++;
      	if (varde>0) {
      		startvalue[3]=startvalue[3]*Math.exp(-(halflife*(24*(day[3]-1))))+(varde*factor);
      		day[3]=1;
      	} 
      	if (active==0) tottotal[num]+=startvalue[3]*Math.exp(-(halflife*(24*(day[3]-1))));
      	else tottotal[num]+=startvalue[3]*Math.exp(-(halflife*(24*(day[3]-1))))-(startvalue[3]*Math.exp(-(halflife*(24*(day[3])))));
  		}
  		else if (form.elements[i].name=="teston"&&(startvalue[4]>0||varde>0)) {
			halflife=Math.LN2/(parseInt(document.days.enanlife.value)*24);
   		day[4]++;
      	if (varde>0) {
      		startvalue[4]=startvalue[4]*Math.exp(-(halflife*(24*(day[4]-1))))+(varde*factor);
      		day[4]=1;
      	} 
      	if (active==0) tottotal[num]+=startvalue[4]*Math.exp(-(halflife*(24*(day[4]-1))));
      	else  tottotal[num]+=startvalue[4]*Math.exp(-(halflife*(24*(day[4]-1))))-(startvalue[4]*Math.exp(-(halflife*(24*(day[4])))));
  		}
  		else if (form.elements[i].name=="bolan"&&(startvalue[5]>0||varde>0)) {
			halflife=Math.LN2/(parseInt(document.days.primolife.value)*24);
   		day[5]++;
      	if (varde>0) {
      		 startvalue[5]=startvalue[5]*Math.exp(-(halflife*(24*(day[5]-1))))+(varde*factor);
      		 day[5]=1;
      	} 
      	if (active==0) tottotal[num]+=startvalue[5]*Math.exp(-(halflife*(24*(day[5]-1))));
      	else tottotal[num]+=startvalue[5]*Math.exp(-(halflife*(24*(day[5]-1))))-(startvalue[5]*Math.exp(-(halflife*(24*(day[5])))));
  		}
  		else if (form.elements[i].name=="masteron"&&(startvalue[6]>0||varde>0)) {
			halflife=Math.LN2/(parseInt(document.days.mastlife.value)*24);
   		day[6]++;
      	if (varde>0) {
      		startvalue[6]=startvalue[6]*Math.exp(-(halflife*(24*(day[6]-1))))+(varde*factor);
      		day[6]=1;
      	} 
      	if (active==0) tottotal[num]+=startvalue[6]*Math.exp(-(halflife*(24*(day[6]-1))));
      	else tottotal[num]+=startvalue[6]*Math.exp(-(halflife*(24*(day[6]-1))))-(startvalue[6]*Math.exp(-(halflife*(24*(day[6])))));
  		}
  		else if (form.elements[i].name=="ganabol"&&(startvalue[7]>0||varde>0)) {
			halflife=Math.LN2/(parseInt(document.days.ganalife.value)*24);
   		day[7]++;
      	if (varde>0) {
      		startvalue[7]=startvalue[7]*Math.exp(-(halflife*(24*(day[7]-1))))+(varde*factor);
      		day[7]=1;
      	} 
      	if (active==0) tottotal[num]+=startvalue[7]*Math.exp(-(halflife*(24*(day[7]-1))));
      	else tottotal[num]+=startvalue[7]*Math.exp(-(halflife*(24*(day[7]-1))))-(startvalue[7]*Math.exp(-(halflife*(24*(day[7])))));
  		}
	
	}
}


function Calcit (formen)
{
	for (n=0;n<tottotal.length;n++) tottotal[n]=0;
	Zero(formen,"injecttotal");
	SubCalcAll(formen,0.95);
	update(formen,"injecttotal");
//	tot=0;
	//for (n=0;n<tottotal.length;n++) tot+=tottotal[n];
	//alert(tot+ "     "+tottotal[0]);

}

function Calcit2 (formen)
{
	for (n=0;n<tottotal.length;n++) tottotal[n]=0;
	Zero(formen,"oraltotal");
	SubCalc(formen,"dbol",document.hours.dbollife.value,0.90);
	SubCalc(formen,"winny",document.hours.winnylife.value,0.90);
	SubCalc(formen,"user",document.hours.userlife.value,0.90);
	update(formen,"oraltotal");
}

function getCookie(name) { 
    		var re = new RegExp(name + "=([^;]+)");
    		var value = re.exec(document.cookie);
    		if (value==null) return "";
    		return unescape(value[1]);
}

function setCookie(domain, path, name, value, days, hours) { 
			var today = new Date();
			var expired=new Date(today.getTime() + days * hours * 60 * 60 * 1000);
			var cookieval=name + "=" + escape(value) + "; expires=" + expired.toGMTString();
	    	if (domain!=null&&domain.length>3) cookieval+="; domain="+domain;
	    	if (path!=null&&path.length>0) cookieval+="; path="+path;
	    	document.cookie=cookieval;
}

function deleteCookie(name) { 
	 var expired = new Date(today.getTime() - 1 * 24 * 60 * 60 * 1000);
    document.cookie=name + "=null; expires=" + expired.toGMTString(); 
}

function savecycle(form,name) {
	var strval= new Array(Numcat);
	for (i=0;i<Numcat;i++) strval[i]="";
	
	for (var i = 13; i<form.elements.length; i++) {
		varde=parseInt(form.elements[i].value);
		if (varde>0) {
			if (form.elements[i].name!="sust") {
				strval[0]+=""+i+"="+varde+"_";
   		} else if (form.elements[i].name!="sust100") {
				strval[1]+=""+i+"="+varde+"_";
   		} else if (form.elements[i].name!="deca") {
				strval[2]+=""+i+"="+varde+"_";
   		} else if (form.elements[i].name!="cypion") {
				strval[3]+=""+i+"="+varde+"_";
   		} else if (form.elements[i].name!="teston") {
				strval[4]+=""+i+"="+varde+"_";
   		} else if (form.elements[i].name!="bolan") {
				strval[5]+=""+i+"="+varde+"_";
   		} else if (form.elements[i].name!="masteron") {
				strval[6]+=""+i+"="+varde+"_";
   		} else if (form.elements[i].name!="ganabol") {
				strval[7]+=""+i+"="+varde+"_";
			}
   	}
	}
	for (i=0;i<Numcat;i++) {
		cookiename="rc"+i;
	   setCookie("powerboard.rockarfett.com","/",cookiename, strval[i],365,24);
	}
}

function deletecycle(form) {
	for (var i = 0; i<(Numcat+1); i++) {
   	setCookie("rc"+i, "", 0, 1);
	}
}

function loadcycle(form,name) {
	
	var strval="";
	var subval="";
	var   n=0,m=0,index=0;  
	var end;
	for (i=0;i<Numcat;i++) {
		cookiename="rc"+i;
	   strval=""+getCookie(cookiename);
	   end=0;n=0;
	   if (strval.length>0) {
			while (end!=-1) {    
				end = strval.indexOf("_", n);    
				if (end <= n) break;   
		   	subval=strval.substring(n, end);
				n=end+1;
		   	m=subval.indexOf("=", 0);    
		   	if (m!=-1) {
		   		index=parseInt(subval.substring(0,m));
		   		form.elements[index].value=parseInt(subval.substring(m+1,subval.length));
		   	}
			}  
		}
	}
}


function Diagram(form) {
	
	myWin = window.open("blank.html","RoidCalc","menubar=yes,scrollbars=yes,status=no,width=790,height=590");
	if (!myWin.opener) myWin.opener = self;
	var day=0;
	var injects="";
	myWin.document.open();
	myWin.document.write("<HTML><HEAD><TITLE>RoidCalc Diagram<\/TITLE><\/HEAD><link rel='stylesheet' href='style.css' type='text/css'><BODY bgcolor='white'>\n");
	if (active==0) myWin.document.write("<table><tr height=30><td colspan=3><font face='Verdana' size=4><B>RoidCalculator Diagram viewing total roids in blood</font></B></td></tr><tr><td><B>Injects</b></td><td width=50 align=center><b>Day</b></td><td><b>Total mg in blood/day</b></td></tr>");
	else myWin.document.write("<table><tr  height=30><td colspan=3><font face='Verdana' size=4><B>RoidCalculator Diagram viewing active roids in your blood</font></B></td></tr><tr><td><B>Injects</b></td><td width=50 align=center><b>Day</b></td><td><b>Total mg in blood/day</b></td></tr>");
		for (var i = 13; i<form.elements.length; i++) {
		varde=parseInt(form.elements[i].value);
		if (varde>0) {
			if (form.elements[i].name=="sust") {
				injects+=""+varde+"mg(1)&nbsp;&nbsp;";
			} else if (form.elements[i].name=="sust100") {
				injects+=""+varde+"mg(2)&nbsp;&nbsp;";
			} else if (form.elements[i].name=="deca") {
				injects+=""+varde+"mg(3)&nbsp;&nbsp;";
			} else if (form.elements[i].name=="cypion") {
				injects+=""+varde+"mg(4)&nbsp;&nbsp;";
			} else if (form.elements[i].name=="teston") {
				injects+=""+varde+"mg(5)&nbsp;&nbsp;";
			} else if (form.elements[i].name=="bolan") {
				injects+=""+varde+"mg(6)&nbsp;&nbsp;";
			} else if (form.elements[i].name=="masteron") {
				injects+=""+varde+"mg(7)&nbsp;&nbsp;";
			} else if (form.elements[i].name=="ganabol") {
				injects+=""+varde+"mg(8)";
			} else if (form.elements[i].name=="injecttotal") {
				if (active==0&&varde<10) i=form.elements.length;
				else if (active==1&&varde<1) i=form.elements.length;
				else {
						day++;
				   	if (active==0) myWin.document.write("<tr><td class='deftext4'>"+injects+"</td><td class='deftext4' align=center>"+day+"</td><td><img src='tabs.gif' height=10 width='"+parseInt(varde/5)+"'>&nbsp;&nbsp;<font size=1>"+varde+"&nbsp;mg</font></td></tr>\n");
				   	else myWin.document.write("<tr><td class='deftext4'>"+injects+"</td><td class='deftext4' align=center>"+day+"</td><td><img src='tabs.gif' height=10 width='"+parseInt(varde)+"'>&nbsp;&nbsp;<font size=1>"+varde+"&nbsp;mg</font></td></tr>\n");
				   	injects="";
				}
			} 
   	}
	}
   myWin.document.write("</table><br><table class='deftext4'>");
   myWin.document.write("<tr><td>(1)=Sustanon 250mg/ml/Omnadren/DuraTeston</td><td>/ User defined ______________________________________<BR></td></tr>\n");
   myWin.document.write("<tr><td>(2)=Sustanon 100mg/ml</td><td>/ User defined ______________________________________<BR></td></tr>\n");
   myWin.document.write("<tr><td>(3)=DecaDurbolin/Extraboline</td><td>/ User defined ______________________________________<BR></td></tr>\n");
   myWin.document.write("<tr><td>(4)=Testex-Prolang./DepoTest</td><td>/ User defined ______________________________________<BR></td></tr>\n");
   myWin.document.write("<tr><td>(5)=Testoviron/Primoteston/Testen</td><td>/ User defined ______________________________________<BR></td></tr>\n");
   myWin.document.write("<tr><td>(6)=Primobolan</td><td>/ User defined ______________________________________<BR></td></tr>\n");
   myWin.document.write("<tr><td>(7)=Virormone/Testovis/Testopin</td><td>/ User defined ______________________________________<BR></td></tr>\n");
   myWin.document.write("<tr><td>(8)=Equipoise/Ganabol/Boldenon</td><td>/ User defined ______________________________________<BR></td></tr>\n</table>");
   myWin.document.write("<form name='viewn'><input type='button' value='Close Window' onClick='self.close()'><\/form><\/BODY><\/HTML>");
   myWin.document.close();

}