// Advanced Random Images Start
// Copyright 2001-2002 All rights reserved, by Paul Davis - www.kaosweaver.com
// Modifed to support swf files by Paltera Inc
// Usage:
// <script>
//   var KW_ARI= new Array()
//   KW_ARI[KW_ARI.length]='johnson_adventure_07?&width=500&height=100&bgcolor=#f0f0f0';
//   KW_ARI[KW_ARI.length]='johnson_canoe_07?&width=468&height=60&align=left&quality=high&allowScriptAccess=sameDomain';
//   KW_ARI[KW_ARI.length]='map_eco?&width=325&height=300';
//   swf_rotator(KW_ARI);
// </script>
// Note that width and height attributes are manditory. align, quality, and allowScriptAccess are optional and have \
// defaults defined below. 
function swf_rotator(KW_ARI)
{
  var debug_flag=false;
  var j,d="",m="",p="",q="",z="", bc="#ffffff", qa="high", a="middle", asa="sameDomain";

  j=parseInt(Math.random()*KW_ARI.length);
  j=(isNaN(j))?0:j;
  if (KW_ARI[j].indexOf('?')==-1) {
    document.write("<img src='"+KW_ARI[j]+"'>");
  }
  else {
    nvp=KW_ARI[j].substring(KW_ARI[j].indexOf('?')+2).split('&');
    for(var i=0;i<nvp.length;i++) {
      sub=nvp[i].split('=');
   	  switch(sub[0]) {
		case 'bgcolor':
		  bc=unescape(sub[1]);
		  break;
		case 'quality':
		  qa=unescape(sub[1]);
		  break;
		case 'align':
		  a=unescape(sub[1]);
		  break;
		case 'allowScriptAccess':
		  asa=unescape(sub[1]);
		  break;
  	    default:
          m+=" "+sub[0]+"='"+unescape(sub[1])+"'";
  		  break;
      }
    }
	var fname=KW_ARI[j].substring(0,KW_ARI[j].indexOf('?'));
	var fnamef=fname+".swf";
	z="<object classid='clsid:d27cdb6e-ae6d-11cf-96b8-444553540000' codebase='http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,0,0' ";
	z+= "id='"+fname+"'"+m+" align='"+a+"'>";
	z+= '<param name="allowScriptAccess" value="'+asa+'" />';
	z+= '<param name="movie" value="'+fnamef+'" />';
	z+= '<param name="quality" value="'+qa+'" />';
	z+= '<param name="bgcolor" value="'+bc+'" />';
	z+= '<embed src="'+fnamef+'" quality="'+qa+'" bgcolor="'+bc+'" '+m+' name="'+fname+'" align="'+a+'" allowScriptAccess="'+asa+'" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />';
	z+= "</object>";
	if(debug_flag){z+="<p>file is "+fname+"<p>";alert(z);}
	document.write(z);
  }
}
// Advanced Random Images End