
//settings:
var speed = 5000;
var rCrossFadeDuration = 1;

// do not change
var rand = true;
var rPic = new Array()
var rRandom = new Array();
var rImages = new Array();
var rPreLoad = new Array();
var rNum, rT, rJ = 0;
var i,y,z;
var duplicate=false;
var cat = "";

function init(category) {
	init(category, false);
}

function init(category, luck) {
	rand = luck;
	cat = category;
	switch (category) {
		case 'main':		rPic[0]='5.jpg'; rPic[1]='4.jpg'; rPic[2]='1.jpg'; rPic[3]='7.jpg'; rPic[4]='17.jpg'; rPic[5]='21.jpg'; rPic[6]='12.jpg'; rPic[7]='13.jpg'; rPic[8]='14.jpg'; rPic[9]='15.jpg'; rPic[10]='30.jpg'; rPic[11]='35.jpg'; rPic[12]='27.jpg'; rPic[13]='36.jpg'; rPic[14]='32.jpg';rPic[15]='33.jpg'; rPic[16]='34.jpg'; rPic[17]='28.jpg'; rPic[18]='31.jpg'; rPic[19]='37.jpg'; rPic[20]='38.jpg'; rPic[21]='39.jpg'; rPic[22]='40.jpg'; rPic[23]='41.jpg'; rPic[24]='42.jpg'; rPic[25]='43.jpg'; rPic[26]='43.jpg'; rPic[27]='6.jpg'; rPic[28]='2.jpg'; rPic[29]='3.jpg'; rPic[30]='8.jpg'; rPic[31]='9.jpg'; rPic[32]='10.jpg'; rPic[33]='11.jpg'; rPic[34]='18.jpg'; rPic[35]='19.jpg'; rPic[36]='20.jpg'; rPic[37]='22.jpg';rPic[38]='23.jpg';rPic[39]='24.jpg';rPic[40]='25.jpg';rPic[41]='26.jpg';break;
 		
	}
	rNum = rPic.length;
	randomize();
	for (i = 0; i < rImages.length; i++){
	   rPreLoad[i] = new Image()
	   rPreLoad[i].src = rImages[i]
	}
	document.write("<img src='" + rImages[0] + "' width='667' height='500' name='rSlide'>");
}

function randomize(){
	z=0;
	while (z!=(rNum)){
		y=Math.floor(Math.random()*(rNum));
		for(i=0;i<rRandom.length;i++){	if (y==rRandom[i]){	duplicate=true;	}
	}
	if (duplicate==true){ duplicate=false;	continue; }
	else
		if (duplicate==false){	rRandom[z] = y;	z+=1;	}
	}
	if(rand) { 
		for(i=0; i<rRandom.length; i++) { rImages[i] = "http://www.untersberghof.at/images/slide/" + cat + "/"  + rPic[rRandom[i]]; }	//hier korrekten pfad zu unterverzeichnis der slideshow eintragen
	}
	else {
		for(i=0; i<rPic.length; i++) { rImages[i] = "http://www.untersberghof.at/images/slide/" + cat + "/"  + rPic[i]; }	//hier	
	}
}

function runRandomSlideShow(){
   if (document.all){
      document.images.rSlide.style.filter='blendTrans(duration='+rCrossFadeDuration+')'
      document.images.rSlide.filters.blendTrans.Apply()      
   }
   document.images.rSlide.src = rPreLoad[rJ].src
   if (document.all){
      document.images.rSlide.filters.blendTrans.Play()
   }
   rJ = rJ + 1
   if (rJ > (rImages.length-1)) rJ=0
   rT = setTimeout('runRandomSlideShow()', speed)
}

