﻿
//////////////////////////////////////////////////////
// Tabber with Sound in JAVASCRIPT Version 4.01 
// by Jim Cranwell  (cranwell@yahoo.com) 
// This program is Copyright 2003 by Jim Cranwell.
// You may not reprint or redistribute this code.
////////////////////////////////////////////////////

function newin(){
var wingenx=window.open("", "wingenx", "scrollbars=yes,toolbar=no,menubar=no,resizable=yes,top=5,left=5,width=650,height=450"); 
var genx=wingenx.document; 
genx.open("text/html", "replace");

if (titleit.length>0){genx.writeln("<html><head><title>" +titleit+ "</title>");}
else{genx.writeln("<html><head><title>Tab Generator</title>");}
genx.writeln("</head><body bgcolor='#ffffff' onload='self.focus()'>");
genx.writeln("<font size=+1>" +titleit+ "</font><br>");


genx.writeln("<pre>");
for (a=0;a<pr;a++){
genx.writeln(saver[a]) }
genx.writeln("</pre>");

genx.writeln("<hr noshade size=1>");
genx.writeln("| 'Right Click' then 'View Source' to add more lines or save page as .html / .txt");
genx.writeln("| tb vb ds kl enk jz no msg iwtfesbicnsi");
genx.writeln("| <a href=javascript:void('') onClick='window.print()'>Print</a> ");
genx.writeln("| <a href='javascript:close();'>Close</a> |")

genx.writeln("<br>| Page created ")
genx.writeln(" "+Date()+" ");
genx.writeln("using \"Tab Generator\" available at ");
genx.writeln(" <a href='http://www.gootar.com'>http://www.gootar.com</a> ");


genx.writeln("</body></html>");
genx.close();    }//newin

function selectCode(){
		if (document.dym.display.value.length>0){
		document.dym.display.focus(); document.dym.display.select();}
		else alert('Nothing for be selected!')	}

	function SetChecked() {instucts = document.dym.display.value;
		var xxx=(3*(x-1))+2;	
		var fn = new Array(4,9,2,7);
		 mmmb = new Array();
		 for(b=0;b<(x);b++){mmmb[x-b-1]=MMM[b]%12;}
		for (i=0;i<x;i++){document.forms.dym.tune[i].selectedIndex=mmmb[i];}
			};

function octivit(){
		if (document.forms.dym.octet.checked==1){zzzplus = new Array(12,12,24,24);}
		if (document.forms.dym.octet.checked==0){zzzplus = new Array(0,0,12,12);}
	tunit2();
		//for(d=0;d<(4);d++){zzz[d]= MMM[d] + zzzplus[d]; } //ford 
		//if (document.forms.dym.onmouse.checked == 1){modes3(0);}	
			} //


	//Math.floor((Math.random()*9)+2)

	//function SetCheckedbox(val) {document.forms.dym.zeero.selectedIndex=val;} //
		

function tunit(snd){//document.dym.result22.value=snd
 str1 += P[document.forms.dym.tune[3].selectedIndex % 12];MMM[3] = document.forms.dym.tune[0].selectedIndex;
 str2 += P[document.forms.dym.tune[2].selectedIndex % 12];MMM[2] = document.forms.dym.tune[1].selectedIndex;
 str3 += P[document.forms.dym.tune[1].selectedIndex % 12];MMM[1] = document.forms.dym.tune[2].selectedIndex;
 str4 += P[document.forms.dym.tune[0].selectedIndex % 12];MMM[0] = document.forms.dym.tune[3].selectedIndex; 

	blip(); 	
	for(d=0;d<(4);d++){zzz[d]= MMM[d] + zzzplus[d]; } //ford 
		 }//

function tunit2(){
	var tuner = document.forms.dym.tuning2.selectedIndex;
	var tutext = document.forms.dym.tuning2.options[tuner].text;
		toon = tutext;
	//RIGHT = document.forms.dym.hand.selectedIndex;
	
	if (tutext=="ping")  { MMM = new Array(31,12, 16, 21 )};
	if (tutext=="GCEA")  { MMM = new Array(7, 12, 16, 21 )};
	if (tutext=="ADF#B") { MMM = new Array(9, 14, 18, 23)};
	if (tutext=="DGBE")  { MMM = new Array(14,19, 23, 28 )};
	if (tutext=="GDAE")  { MMM = new Array(7, 14, 21, 28 )};
	if (tutext=="CGBD")  { MMM = new Array(0, 7, 11, 14 )};
	if (tutext=="DGBD")  { MMM = new Array(2, 7, 11, 14 )};
	if (tutext=="CGDA")  { MMM = new Array(0, 7, 14,  21 )};
        if (tutext=="CGCD")  { MMM = new Array(0, 7, 12,  14 )};
	if (tutext=="EADG")  { MMM = new Array(4, 9, 14,  19 )}; 

	if (tutext=="ADEA")  { MMM = new Array(9, 14, 16,  21)};
	if (tutext=="CFAD")  { MMM = new Array(0, 5, 9,  14 )};
	if (tutext=="GDAD")  { MMM = new Array(7, 14, 21,  26 )}; 

	for(d=0;d<(4);d++){
	document.forms.dym.tune[3-d].selectedIndex = MMM[d]%12;
		}//

	//if(RIGHT){MMM.reverse();}


	var twelve = 0;
	if (document.forms.dym.octet.checked==1){twelve = 12;}
	 setune=" "
		
	for(d=0;d<(4);d++){setune=setune+P[MMM[d]]; zzz[d]= MMM[d] + twelve; //zzzplus[d];
							}//
	//document.forms.primax.result8.value =setune;
	//GUITAR(); 
	}//




function number(z) {	FR = Math.floor(z%y); strng = 3 - Math.floor(z/y);
			//FR = Math.floor(z/4); strng = Math.floor(z%4);
	playitswf(zzz[strng]+FR+fe);	//playitswf(zzz[z%4]+FR+fe)	
	//notePlayer.playNote(1,sss[z%4],eee[z%4],zzz[z%4]+FR+fe,vvv,2000);
	if(document.forms.dym.zeero.selectedIndex == 5){return}
	fr(FR)
	if(document.forms.dym.zeero.selectedIndex == 0) {ddd="";   dddd=""}
	if(document.forms.dym.zeero.selectedIndex == 1) {ddd="";   dddd="-"}
	if(document.forms.dym.zeero.selectedIndex == 2) {ddd="-";  dddd="--"}
	if(document.forms.dym.zeero.selectedIndex == 3) {ddd="---"; dddd="----"}
	if(document.forms.dym.zeero.selectedIndex == 4) {ddd="-------";dddd="--------"}

	if (FR == (y-1) ){
	var spc =document.forms.dym.spcial.selectedIndex ;
	FR=document.forms.dym.spcial.options[spc].text;}

	if (FR>9){
	if(ddd=="-"){ddd=""};
	if(ddd=="--"){ddd="-"};
	if(ddd=="---"){ddd="--"} 
			}//ifFR
	
	if(strng==3){str4 += FR + ddd;} else {str4 += dddd;}
	if(strng==2){str3 += FR + ddd;} else {str3 += dddd;}
	if(strng==1){str2 += FR + ddd;} else {str2 += dddd;}
	if(strng==0){str1 += FR + ddd;} else {str1 += dddd;}
	blip();	  }//number


function zeerox(){
	if(document.forms.dym.zeero.selectedIndex == 0) {ddd="";   dddd=""}
	if(document.forms.dym.zeero.selectedIndex == 1) {ddd="";   dddd="-"}
	if(document.forms.dym.zeero.selectedIndex == 2) {ddd="-";  dddd="--"}
	if(document.forms.dym.zeero.selectedIndex == 3) {ddd="---"; dddd="----"}
	if(document.forms.dym.zeero.selectedIndex == 4) {ddd="-------";dddd="--------"}
			}//

function minusit(){

if(str4.length > 0){str4 = str4.substring(0, str4.length - 1 );}
if(str3.length > 0){str3 = str3.substring(0, str3.length - 1 );}
if(str2.length > 0){str2 = str2.substring(0, str2.length - 1 );}
if(str1.length > 0){str1 = str1.substring(0, str1.length - 1 );}				
 blip(); }


function fixit(){sl=str4.length;
slx = "---------------------------------------------------------------------------------------";

if(str4.length > sl){sl = str4.length;}
if(str3.length > sl){sl = str3.length;}
if(str2.length > sl){sl = str2.length;}
if(str1.length > sl){sl = str1.length;}


str4 += slx.substring(0, sl-str4.length );
str3 += slx.substring(0, sl-str3.length );
str2 += slx.substring(0, sl-str2.length );
str1 += slx.substring(0, sl-str1.length );
blip();			}//

function dupe(val){

str4 += str4.substring(str4.length-val,str4.length );
str3 += str3.substring(str3.length-val,str3.length );
str2 += str2.substring(str2.length-val,str2.length );
str1 += str1.substring(str1.length-val,str1.length );
blip();			}//

function adit(val){
if (val=="x"){
val=document.forms.dym.spcial.options[document.forms.dym.spcial.selectedIndex].text;}
  str4 += val; str3 += val; str2 += val; str1 += val;
	blip();	 }

function tester(){
   document.dym.display.value = str4.charAt(0)

				}//
function newit(){
saver = new Array();
vt = titleit = notes = ""
pr=0;ClearDisplay(); document.dym.result7.value = 'Ø'; }//newit

function ClearDisplay(){mmm =0
	 
	 if(str4.length > 1){str4x = str4;};
	 if(str3.length > 1){str3x = str3;};
	 if(str2.length > 1){str2x = str2;};
	 if(str1.length > 1){str1x = str1;};
	document.dym.display.value = "";
  str4 = " "; str3 = " "; str2 = " "; str1 = " ";
 ddd  = " "
			}//


	function xpnd(){insrt();fixit();ClearDisplay();
         str4 = ""; str3 = ""; str2 = ""; str1 = "";
	for(b=0;b<(str4x.length);b++){
		
		str4 += str4x.charAt(b) + "-" ;	
		str3 += str3x.charAt(b) + "-" ;	
		str2 += str2x.charAt(b) + "-" ;	
		str1 += str1x.charAt(b) + "-" ; }//for
		blip();	}//


function unClear(){
  str4 = str4x; str3 = str3x; str2 = str2x; str1 = str1x;
	blip();	}//

function savit(){prx=pr; 

saver[pr]=document.dym.display.value ;
pr = pr + 1;   //leave 7
document.dym.result7.value = pr 
			}//

function loadit(){document.dym.display.value=document.dym.result9.value; }

function saved(val){
	if(val==1){if(saver[prx-1]!=null){prx = prx - 1;}}
	if(val==2){if(saver[prx+1]!=null){prx = prx + 1;}}
 	document.dym.display.value = saver[prx]; document.dym.result7.value = prx+1;}

function instruct(){ document.dym.display.value = instucts}

function titler(){ titleit=window.prompt("name or title?",titleit);}

function blip(){ document.dym.display.value = ( str4 + aa + str3 + aa + str2 + aa + str1 + aa + aa);}
	
function insrtx(){ 
if(document.forms.dym.autoload.checked == 1){insrt();}//
				}//
function insrt(){ 
	chip = document.dym.display.value;
	if (chip.indexOf(aa)>0){
		
		str4 = chip.substring(0,chip.indexOf(aa)-1 );
		       chip = chip.substring(chip.indexOf(aa)+1,chip.length);	
		str3 = chip.substring(0,chip.indexOf(aa)-1 );
		       chip = chip.substring(chip.indexOf(aa)+1,chip.length);
		str2 = chip.substring(0,chip.indexOf(aa)-1 );
		       chip = chip.substring(chip.indexOf(aa)+1,chip.length);
		if (chip.indexOf(aa)>0){
		str1 = chip.substring(0,chip.indexOf(aa)-1 );}
		else{
		str1 = chip.substring(0,chip.length);}
		       //chip = chip.substring(chip.indexOf(aa)+1,chip.length);
		blip();
				}//if
				}//insert
//  **j¤øº°©®¦¡¡·


	function spd(dx) {//tm=dx
		if (dx==401){tm = eval(document.dym.result22.value) ; dx=0}
		if(tm<300){dx=dx/5}
		tm = tm + eval(dx);
		if(tm<10){tm=10}
		document.dym.result22.value = tm;	}//sdp

function fr(fff) {FRP=fff
		if (fff>7){ftf=36;ftt=35}else{ftf=54;ftt=53}}//fr

function tick() {
	 FR    = Math.floor(Math.random() * 2);
	www=1
	if(mmm%2!=0){www=0
		jump= Math.floor(Math.random() * 5);
	if (jump==4){	strng += (Math.floor(Math.random() * 3))-1;
			strng += (Math.floor(Math.random() * 3))-1; 
			strng += (Math.floor(Math.random() * 3))-1; }//jump
			strng += (Math.floor(Math.random() * 3))-1; }//
	
	if (strng < 0){strng =  Math.floor(Math.random() * 2)      ;} 
	//leave 6 or one less then string num
	if (strng > 3){strng = (Math.floor(Math.random() * 2)) + 1;} 
	if (strng==0){FR = FR*3}
	if (strng==1 || strng==2 || strng==3){FR = FR*2}
	 ddd=""; dddd="-";jjj=1
		
	if(mmm%2!=0){www=0}
	if(mmm%ftt==0){ddd=" "; dddd=" "; www=0
	if(document.forms.dym.autoblues.checked == 1){savit();ClearDisplay()}
				}//mmm53
	if(mmm%ftf==0 || mmm%18==0 || mmm==0){ddd="|"; dddd="|";www=0;}
	if(mmm%54==0){mmm=0 ;//savit()
					}//
	FR=FR+FRP
	 
	 if(strng==3 && www==1){str4 += FR + ddd;} else {str4 += dddd;}
	 if(strng==2 && www==1){str3 += FR + ddd;} else {str3 += dddd;}
	 if(strng==1 && www==1){str2 += FR + ddd;} else {str2 += dddd;}
	 if(strng==0 && www==1){str1 += FR + ddd;} else {str1 += dddd;}
		
	if (FR > 9 ){fixit(); jjj=2 }//ifFR
	
	if (str4.length>60){	
	
	str4 = str4.substring(jjj, str4.length );
 	str3 = str3.substring(jjj, str3.length );
 	str2 = str2.substring(jjj, str2.length );
 	str1 = str1.substring(jjj, str1.length );
			}//str6
			mmm = mmm + 1;
	// ^ moved blib from here to here >
	playit(0,0,1);			   blip();
 
tiid = setTimeout("tick()", tm);}//set

function tickx() {clearTimeout(tiid);	}//

	function quote(){
	if (document.forms.dym.strg.selectedIndex == 6){
	for(d=0;d<4;d++){eee[d]=eval(document.dym.result4.selectedIndex)}//for
					}//if
    else {eee[5-document.forms.dym.strg.selectedIndex]=eval(document.dym.result4.selectedIndex)}
				}//Q


	function quotex(){
	if (document.forms.dym.strg.selectedIndex == 6){
	for(d=0;d<6;d++){sss[d]=eval(document.dym.result5.selectedIndex)}//for
					}//if
    else {sss[5-document.forms.dym.strg.selectedIndex]=eval(document.dym.result5.selectedIndex)}
				}//Qx

	//function quotex(){if (document.forms.dym.strg.selectedIndex == 6){
	//sss=eval(document.dym.result5.selectedIndex) }//
	
	function durr(){z =document.forms.dym.dur.selectedIndex; 
	if (z==0){drr=3000};
	if (z==1){drr=2000};
	if (z==2){drr=1000};
	if (z==3){drr=500};
	if (z==4){drr=250};	}//	

function vool(){z =document.forms.dym.vol.selectedIndex; 
	if (z==0){vvv=127};
	if (z==1){vvv=86};
	if (z==2){vvv=43};
	if (z==3){vvv=0};	}//	

function trans(){z =document.forms.dym.tranx.selectedIndex; fe=eval(z) }//	

function playitx(){cc=0 ; jjj="";  if (str4.length<3){return false}; yy=1; fixit(); playit(9,0,1)}


var m5x = 0; var m4x = 0; var m3x = 0; var m2x = 0; var m1x = 0; var m0x = 0;
var m5 = -1; var m4 = -1; var m3 = -1; var m2 = -1; var m1 = -1; var m0 = -1;
var tiidm5 = 0; var tiidm4 = 0; var tiidm3 = 0; var tiidm2 = 0; var tiidm1 = 0;  var tiidm0 = 0;


function playit(xyz,cc,yy){  sl=str4.length;
if (sl.length<3){return false}
blip();
	// m3=-1; m2=-1; m1=-1; m0=-1

	var bgcl = "#99ccff"; 

if (alf.indexOf(str1.charAt(cc+1))>=0 && alf.indexOf(str1.charAt(cc))< 0 ){    
	clearTimeout(tiidm0);	(document.getElementById("row3"+m0x)).style.backgroundColor="#eeeeee";
	m0=eval(str1.substring(cc+1,cc+2)); 
	if (alf.indexOf(str1.charAt(cc+2))>=0){	   m0=eval(str1.substring(cc+1,cc+3)); }//
	if(m0 + zzz[0] !=-1 && m0 + zzz[0] < 80){   playitswf(m0 + zzz[0] +fe);  }	
		
	if (m0 >= y){m0 = y-1 }//

	if (m0 < y){(document.getElementById("row3"+m0)).style.backgroundColor=bgcl;		
	tiidm0 = setTimeout('(document.getElementById("row3"+m0x)).style.backgroundColor="#eeeeee"',500);
	m0x = m0;  }//
			}//

if (alf.indexOf(str2.charAt(cc+1))>=0 && alf.indexOf(str2.charAt(cc))< 0 ){    
	clearTimeout(tiidm1);	(document.getElementById("row2"+m1x)).style.backgroundColor="#ffffff";
	m1=eval(str2.substring(cc+1,cc+2)); 
	if (alf.indexOf(str2.charAt(cc+2))>=0){	   m1=eval(str2.substring(cc+1,cc+3)); }//
	if(m1 + zzz[1] !=-1 && m1 + zzz[1] < 80){   playitswf(m1 + zzz[1] +fe);  }	
		
	if (m1 >= y){m1 = y-1 }//

	if (m1 < y){(document.getElementById("row2"+m1)).style.backgroundColor=bgcl;		
	tiidm1 = setTimeout('(document.getElementById("row2"+m1x)).style.backgroundColor="#ffffff"',500);
	m1x = m1;  }//
			}//

if (alf.indexOf(str3.charAt(cc+1))>=0 && alf.indexOf(str3.charAt(cc))< 0 ){    
	clearTimeout(tiidm2);	(document.getElementById("row1"+m2x)).style.backgroundColor="#eeeeee";
	m2=eval(str3.substring(cc+1,cc+2)); 
	if (alf.indexOf(str3.charAt(cc+2))>=0){	   m2=eval(str3.substring(cc+1,cc+3)); }//
	if(m2 + zzz[2] !=-1 && m2 + zzz[2] < 80){   playitswf(m2 + zzz[2] +fe);  }	
		
	if (m2 >= y){m2 = y-1 }//

	if (m2 < y){(document.getElementById("row1"+m2)).style.backgroundColor=bgcl;		
	tiidm2 = setTimeout('(document.getElementById("row1"+m2x)).style.backgroundColor="#eeeeee"',500);
	m2x = m2;  }//
			}//

if (alf.indexOf(str4.charAt(cc+1))>=0 && alf.indexOf(str4.charAt(cc))< 0 ){    
	clearTimeout(tiidm3);	(document.getElementById("row0"+m3x)).style.backgroundColor="#ffffff";
	m3=eval(str4.substring(cc+1,cc+2)); 
	if (alf.indexOf(str4.charAt(cc+2))>=0){	   m3=eval(str4.substring(cc+1,cc+3)); }//
	if(m3 + zzz[3] !=-1 && m3 + zzz[3] < 80){   playitswf(m3 + zzz[3] +fe);  }	
		
	if (m3 >= y){m3 = y-1 }//

	if (m3 < y){(document.getElementById("row0"+m3)).style.backgroundColor=bgcl;		
	tiidm3 = setTimeout('(document.getElementById("row0"+m3x)).style.backgroundColor="#ffffff"',500);
	m3x = m3;  }//
			}//

/*
if (alf.indexOf(str1.charAt(cc+1))>=0 && alf.indexOf(str1.charAt(cc))< 0 )
{m0=zzz[0]+eval(str1.substring(cc+1,cc+2)); 
if (alf.indexOf(str1.charAt(cc+2))>=0)
{m0=zzz[0]+eval(str1.substring(cc+1,cc+3)); }//
if(m0 !=-1 && m0 < 80){playitswf(m0+fe);  }	}//

if (alf.indexOf(str2.charAt(cc+1))>=0 && alf.indexOf(str2.charAt(cc))< 0 )
{m1=zzz[1]+eval(str2.substring(cc+1,cc+2)); 
if (alf.indexOf(str2.charAt(cc+2))>=0)
{m1=zzz[1]+eval(str2.substring(cc+1,cc+3)); }//
if(m1 !=-1 && m1 < 80){playitswf(m1+fe)	}	}//

if (alf.indexOf(str3.charAt(cc+1))>=0 && alf.indexOf(str3.charAt(cc))< 0 )
{m2=zzz[2]+eval(str3.substring(cc+1,cc+2)); 
if (alf.indexOf(str3.charAt(cc+2))>=0)
{m2=zzz[2]+eval(str3.substring(cc+1,cc+3)); }//
if(m2 !=-1 && m2 < 80){playitswf(m2+fe)	}	}//

if (alf.indexOf(str4.charAt(cc+1))>=0 && alf.indexOf(str4.charAt(cc))< 0 )
{m3=zzz[3]+eval(str4.substring(cc+1,cc+2)); 
if (alf.indexOf(str4.charAt(cc+2))>=0)
{m3=zzz[3]+eval(str4.substring(cc+1,cc+3)); }//
if(m3 !=-1 && m3 < 80){playitswf(m3+fe)	}	}//


*/


//cc=cc+1; jjj=jjj+"|"
	 
	if (xyz){
	
	str4 = str4.substring(yy, str4.length) + str4.charAt(cc);
 	str3 = str3.substring(yy, str3.length) + str3.charAt(cc);
 	str2 = str2.substring(yy, str2.length) + str2.charAt(cc);
 	str1 = str1.substring(yy, str1.length) + str1.charAt(cc);

	tiidx = setTimeout("playit(9,0,1)", tm); }//xyz
		
		}//playit

function playx(){if (tiidx !=null){clearTimeout(tiidx)};if (tiid != null){clearTimeout(tiid)}}//


