function s_subsfall(t,f){
	var t2=s_pureword(t);
	return r2;
}
function s_pureword(t){
	var l=t.indexOf("#");
	if (l==-1)
		return t;
	else
		return t.substr(0,l);
}

function s_replacer(t){
	var t2=t;
	var po1,po2;
	var r,kat,ins;
	do{
		po1=t2.indexOf("[");
		if (po1==-1) return t2;
		po2=t2.substr(po1).indexOf("]");
		// noch kein Fehlerabfaenger, falls "[" ohne "]"
		r=rr();
		kat=t2.substr(po1,po2+1);
		
		ins=s_pureword(get_rawword(kat, r));
		t2=t2.substr(0,po1)+ins+t2.substr(po1+po2+1);
	}while(1==1);
	return t2;
}

function get_rawword(kind, r){ // Kind of Word, r in [0,1[
	var i,itrue=-1;
	var n,nr;
	for (i=0; i<wordlist.length; i++){
		if (kind==wordlist[i][0]) {
			itrue=i;
			break;
		}
	}

	if (itrue=="-1") return "";
	
	n=wordlist[itrue].length-1;
//		document.write (n);
	nr=1+Math.floor(r*n);
	return wordlist[itrue][nr];
}


function rr(){
	return Math.random();
}











var ok=1,mmj="";

var prep= new Array("  # ","-   -#-"," !#!","- !#!","-  -#-","- -#-"," .#."," ,#,"," :#:","ä#&auml;","ö#&ouml;","ü#&uuml;","Ä#&Auml;","Ö#&Ouml;","Ü#&Uuml;","ß#&szlig;","-,#-");

function Hohlphrasen_Generator()
{  var i,t,farbe;
  // var mmss=srand(mstr.length);
   mmj="[HOHL]";
  // document.write (mmj);
	mmj=s_replacer(mmj);
	mmj=opt(mmj);

  
   document.write ("<i>"+mmj.substr(0,1)+"</i>");
  
   t=mmj.length;
   document.write (mmj.substr(1)); 
   document.write ("");
}
function zufaelliges(a){
	var i=srand(a.length-1);
	return a[i+1];
}
function srand(n){
   return (Math.floor( Math.random()*(n)));
}
function opt(t){
   var n=prep.length;
   var z,ok,big;
   var x,y;
   var i;
   do{
		ok=1
		for (i=0; i<n; i++){
			z=prep[i].split("#")[0];
			x=t.indexOf(z);
			if (ok!=0 && x>=0){
				ok=0; y=z.length;
				t=t.substr(0,x)+prep[i].split("#")[1]+t.substr(x+y);
			}
		}
	}while (ok==0); 
	do{  
		ok=1;
		if (t.charAt(0)==" ") {t=t.substr(1); ok=0; }
	}while (ok==0);
	big=1;
	for (i=0; i<t.length; i++){
		x=t.charAt(i);
		if (big==1 && x!=" "){
			big=0;
			t=t.substr(0,i)+x.toUpperCase()+t.substr(i+1);
		}
		if (x=="." || x==":" || x=="?" || x=="!"){
			big=1;
		}
	}
	t=t.toLowerCase();
	
	return t;
}
function vnr(){
   document.write ("4 Beta 1.02");
}
function eupdt(){
   document.write ("16. Juni 2009");
}
function parsegTg2script(a,b,c){ //hahaha
}
// end of script

// -------------------------------------------------------------------------------------

function wr_em(t,s,kl){ // write email(adresse,subject,klasse)
	var kll="";
	if (kl) kll="class=\""+kl+"\" ";
	document.write ("<a "+kll+"href=\"mailto:"+t+"?subject="+s+"\">"+t+"</a>");
}
function decrypt(t,k){
  	t=unescape(t);
  	var y=0, i;
	var t2="";
  	for (i=0; i<t.length; i++){
	 	y=(y+1)%(k.length);
	 	z=(t.charCodeAt(i))^(k.charCodeAt(y));
		t2+=String.fromCharCode(z);		
	 } 
	
	 return escape(t2);
}


//Hohlphrasen_Generator();