//
//
// RoidCalc (C) 1998-2005  by Dille 
// 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 steroids 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 steroids 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();

}