//  DevalVR + QuickTime + PTviewer + Flash  Javascript workaround
//	Author: fiero http://www.devalvr.com
//		
//	To embed a panorama just include these lines in your HTML file (change filenames):
//
//	<SCRIPT type="text/javascript" src="detectvr.js"></SCRIPT>
//	<SCRIPT type="text/javascript">writevrcode("testfileForQT.mov","testfileForJava.jpg","testfileForFlash.swf","100%","94%");</SCRIPT>


var minQTVersion = "5.0.0";			// minimal required version checked for QuickTime
var minDevalVRVersion = "0,3,3,0";  // minimal required version checked for DevalVR
var minFlashVersion = "8.0.0";		// minimal required version checked for Flash

var makeDevalVRdefault =1;			// Sets DevalVR as default when QT and DevalVR are installed and "Detect" mode is selected

var enableSizeLimits=0;				// 0: disable  1: enable		(size limits for QT and DevalVR)
var enableSizeLimitsJava=0;			// 0: disable  1: enable		(size limits for Java)
var enableSizeLimitsFlash=0;		// 0: disable  1: enable     (size limits for Flash)
var maxViewerWidth="1280";
var maxViewerHeight="1024";
var maxViewerWidthJava="900";
var maxViewerHeightJava="700";
var maxViewerWidthFlash="900";
var maxViewerHeightFlash="700";

var enableSizeRatio=0;				// 0: disable size ratio    1: enable size ratio
var sizeRatio=6/3;					// aspect ratio, horizontal/vertical proportions

var enableLineUnderPanorama=0;		//Enable an adviser line under panorama
var writeLineUnderQuickTime="";
var writeLineUnderDevalVR="";
var writeLineUnderJava=" Install the DevalVR plugin for an optimal viewing experience, <A href='http://www.devalvr.com/install/'>click here to install</A>, and <A href='javascript:reloadPage()'>click here after installing</A>";
var writeLineUnderFlash=" Install the DevalVR plugin for an optimal viewing experience, <A href='http://www.devalvr.com/install/'>click here to install</A>, and <A href='javascript:reloadPage()'>click here after installing</A>";

/////////////////////////////////////////////////////////////////////////////////////////////////

var isOpera=(navigator.userAgent.indexOf('Opera')!=-1);
var isIE=((navigator.appVersion.indexOf("MSIE") != -1) && !isOpera);
var isWindows=(navigator.platform.indexOf('Win')!=-1);
var isMac=(navigator.platform.indexOf('Mac')!=-1 || navigator.platform.indexOf('PowerPC')!=-1);
var isLinux=(navigator.platform.indexOf('Linux')!=-1);
var favoriteViewer=getCookie("panorama_viewer");
if(!favoriteViewer) favoriteViewer="DETECT";  //DEVALVR , QT, FLASH, JAVA, or DETECT
var adviselineunderpano="";
var orgsizepluginx,orgsizepluginy;
var sizepluginx;
var sizepluginy;
var pluginDevalVRInstalled = 0;
var pluginQTInstalled = 0;
var javaInstalled=0;
var pluginFlashInstalled = 0; 
var writeDevalVR=0;
var writeQT=0;
var writeJAVA=0;
var writeFlash=0;
var writeInstallDevalVR=0;
var writeInstallQT=0;
var writeInstallFlash=0;
var writeInstallJava=0;
var xmlfile;

function writevrcode(movfile,javafile,flashfile,sizex,sizey,xml,root)
{
	//old versions of writevrcode only was 4 parameters
	

	if(javafile && javafile.toString().indexOf(".")==-1)
	{
		javafile=null;
	}
	
	var flashVersion=minFlashVersion.split(".");
	pluginFlashInstalled = DetectFlashVer(parseInt(flashVersion[0]),parseInt(flashVersion[1]),parseInt(flashVersion[2])); 

	if(isWindows)
	{
		if (!isIE) 
		{
			if (isOpera || (navigator.mimeTypes && navigator.mimeTypes['application/x-java-applet'] && navigator.mimeTypes["application/x-java-applet"].enabledPlugin))
			{
				javaInstalled=navigator.javaEnabled();
			}
		
			if (navigator.mimeTypes && navigator.mimeTypes["application/x-devalvrx"] && navigator.mimeTypes["application/x-devalvrx"].enabledPlugin)
			{
				var words = navigator.plugins["DevalVR 3D Plugin"].description.split(" ");
				var version = words[3].split(",");
				var min = minDevalVRVersion.split(",");
				for (var i = 0; i < 4; i++)
				{
					if(parseInt(version[i])>parseInt(min[i])) 
					{
						pluginDevalVRInstalled=1;
						break;
					}
					else if(parseInt(version[i])<parseInt(min[i]))
					{
						break;
					}
					else if(parseInt(version[i])==parseInt(min[i]) && i==3)
						pluginDevalVRInstalled=1;
				}
			}	
		    if(navigator.mimeTypes && navigator.mimeTypes["video/quicktime"] && navigator.mimeTypes["video/quicktime"].enabledPlugin)
		    {
				var qtnumber=-1;
				for (var i = 0; i < navigator.plugins.length; i++)
				{
					if(navigator.plugins[i].name.indexOf("QuickTime Plug-in")!=-1)
					{
						qtnumber=i;
						break;
					}
				}
				if(qtnumber!=-1)
				{
					var words = navigator.plugins[qtnumber].name.split(" ");
					var version = words[2].split(".");
					var min = minQTVersion.split(".");
					for (var i = 0; i < 3; i++)
					{
						if(parseInt(version[i])>parseInt(min[i])) 
						{
							pluginQTInstalled=1;
							break;
						}
						else if(parseInt(version[i])<parseInt(min[i]))
						{
							break;
						}
						else if(parseInt(version[i])==parseInt(min[i]) && i==2)
							pluginQTInstalled=1;
					}
				}
			}
		}
		else 
		{
			if(detectableWithVB)
			{
				if(detectActiveXControl('JavaPlugin')) javaInstalled=navigator.javaEnabled();
				pluginDevalVRInstalled=detectActiveXControl('DevalVRXCtrl.DevalVRXCtrl.1');
				pluginQTInstalled=detectQuickTimeActiveXControl();
			}
		}
		
	}
	writeDevalVR=0;
	writeQT=0;
	writeJAVA=0;
	writeFlash=0;
	writeInstallDevalVR=0;
	writeInstallQT=0;
	writeInstallFlash=0;
	writeInstallJava=0;
	
	if(isWindows)
	{
		if(favoriteViewer=="DETECT" || (favoriteViewer=="JAVA" && !javafile) || (favoriteViewer=="FLASH" && !flashfile))
		{
			if(pluginDevalVRInstalled && pluginQTInstalled)
			{
				if(makeDevalVRdefault) writeDevalVR=1; 
				else writeQT=1;
			}
			else if(pluginDevalVRInstalled) writeDevalVR=1; 
			else if(pluginQTInstalled) writeQT=1;
			else if(pluginFlashInstalled && flashfile) writeFlash=1;
			else if(javaInstalled && javafile) writeJAVA=1;
			else writeInstallDevalVR=1;
		}
		else if(favoriteViewer=="DEVALVR")
		{
			if(pluginDevalVRInstalled) writeDevalVR=1;
			else writeInstallDevalVR=1;
		}
		else if(favoriteViewer=="QT")
		{
			if(pluginQTInstalled) writeQT=1;
			else writeInstallQT=1;
		}
		else if(favoriteViewer=="FLASH")
		{
			if(pluginFlashInstalled) writeFlash=1;
			else writeInstallFlash=1;
		}
		else if(favoriteViewer=="JAVA") 
		{
			if(javaInstalled) writeJAVA=1;
			else writeInstallJava=1;
		}
	}
	else if(isMac) 
	{
		if(favoriteViewer=="JAVA" && javafile) 
		{
			if(javaInstalled) writeJAVA=1;
			else writeInstallJava=1;
		}
		else if(favoriteViewer=="FLASH" && flashfile) 
		{
			if(pluginFlashInstalled) writeFlash=1;
			else writeInstallFlash=1;
		}
		else writeQT=1;	//Use QT in Mac computers
	}
	else if(isLinux)
	{
		
		if (isOpera || (navigator.mimeTypes && navigator.mimeTypes['application/x-java-applet'] && navigator.mimeTypes["application/x-java-applet"].enabledPlugin))
			{
				javaInstalled=navigator.javaEnabled();
			}
		
		if(javaInstalled) writeJAVA=1;  //Use Java always in Linux
		else writeInstallJava=1;

		
	}
	
	adviselineunderpano="";
	if(enableLineUnderPanorama)
	{
		if(writeDevalVR && writeLineUnderDevalVR!="") adviselineunderpano=writeLineUnderDevalVR;
		else if(writeQT && writeLineUnderQuickTime!="") adviselineunderpano=writeLineUnderQuickTime;
		else if(writeFlash && writeLineUnderFlash!="") adviselineunderpano=writeLineUnderFlash;
		else if(writeJAVA && writeLineUnderJava!="") adviselineunderpano=writeLineUnderJava;
	}

	if(!sizex) sizex="100%";
	if(!sizey) sizey="94%";

	if(writeJAVA) enableSizeLimits=enableSizeLimitsJava;
	else if(writeFlash) enableSizeLimits=enableSizeLimitsFlash;
	
	orgsizepluginx=sizex;
	orgsizepluginy=sizey;
	
	CalcLimits(sizex,sizey);
	sizex=sizepluginx;
	sizey=sizepluginy;
	xmlfile=xmlfile;
	
	if(writeDevalVR)
	{
		p2q_EmbedDevalVR(movfile,sizex,sizey,'filter','0');
	}
	else if(writeQT)
	{
		p2q_EmbedQuicktime(movfile,sizex,sizey,'scale','tofit','autostart','true','kioskmode','true','controller','true');
	}
	else if(writeJAVA)
	{
		p2q_EmbedPureplayerPro(javafile,sizex,sizey,xml);
	}
	else if(writeFlash)
	{
		p2q_EmbedFlash(javafile,sizex,sizey,xml,root);
	}
	else if(writeInstallDevalVR)
	{
		var str='<DIV align=center><table border="0" cellpadding="0" cellspacing="0" style="WIDTH: ' + sizex + '; HEIGHT: ' + sizey + '" width="'+sizex+'"  height="'+sizey+'"><tr><td align="center" valign="middle">';
		str+='<font color="white"><h1>DevalVR plugin is required to see this content</h1></font>';
		str+='<BR><BR><A href="http://www.devalvr.com/install/"><font color="white">Click here to install (250 KB, installation only takes a few seconds)</font></A>';
		str+='<BR><BR><A href="javascript:reloadPage()"><font color="white">Click here after installing to reload page</font></A>';
		str+='</td></tr></table></DIV>';
		document.writeln(str);
	}
	else if(writeInstallFlash)
	{
		var str='<DIV align=center><table border="0" cellpadding="0" cellspacing="0" style="WIDTH: ' + sizex + '; HEIGHT: ' + sizey + '" width="'+sizex+'"  height="'+sizey+'"><tr><td align="center" valign="middle">';
		str+='<font color="white"><h1>This content requires the Adobe Flash Player Version 8 or higher</h1></font>';
		str+='<BR><BR><A href="http://www.adobe.com/go/getflash/"><font color="white">Click here to install Flash Player</font></A>';
		str+='<BR><BR><A href="javascript:reloadPage()"><font color="white">Click here after installing to reload page</font></A>';
		str+='</td></tr></table></DIV>';
		document.writeln(str);
	}
	else if(writeInstallQT)
	{
		var str='<DIV align=center><table border="0" cellpadding="0" cellspacing="0" style="WIDTH: ' + sizex + '; HEIGHT: ' + sizey + '" width="'+sizex+'"  height="'+sizey+'"><tr><td align="center" valign="middle">';
		str+='<font color="white"><h1>This content requires QuickTime Player.</h1></font>';
		str+='<BR><BR><A href="http://www.apple.com/quicktime/download/"><font color="white">Click here to install QuickTime</font></A>';
		str+='<BR><BR><A href="javascript:reloadPage()"><font color="white">Click here after installing to reload page</font></A>';
		str+='</td></tr></table></DIV>';
		document.writeln(str);
	}
	else if(writeInstallJava)
	{
		var str='<DIV align=center><table border="0" cellpadding="0" cellspacing="0" style="WIDTH: ' + sizex + '; HEIGHT: ' + sizey + '" width="'+sizex+'"  height="'+sizey+'"><tr><td align="center" valign="middle">';
		str+='<font color="white"><h1>This content requires Java Software.</h1></font>';
		str+='<BR><BR><A href="http://java.com/en/download/"><font color="white">Click here to install Java</font></A>';
		str+='<BR><BR><A href="javascript:reloadPage()"><font color="white">Click here after installing to reload page</font></A>';
		str+='</td></tr></table></DIV>';
		document.writeln(str);
	}
	if(!writeInstallDevalVR && !writeInstallFlash && !writeInstallQT && !writeInstallJava) window.onresize=OnResizeWindow;
}

function OnResizeWindow()
{
	CalcLimits(orgsizepluginx,orgsizepluginy);

	if(isIE || isOpera)
	{
		document.PANORAMAID.style.width=sizepluginx;
		document.PANORAMAID.style.height=sizepluginy;
	}
	else
	{	
		document.PANORAMAID.width=sizepluginx;
		document.PANORAMAID.height=sizepluginy;
	}
	
	//if(writeJAVA) window.location.reload();		PTviewer does not resize its viewer window
}

function CalcLimits(sizex, sizey)
{
	var sizew,sizeh;
	
	if(enableSizeLimits || enableSizeRatio || adviselineunderpano!="")
	{
		sizex=sizex.toString();
		sizey=sizey.toString();
		pw=sizex.indexOf("px");
		if(pw!=-1) sizex=sizex.substring(0,pw);
		pw=sizey.indexOf("px");
		if(pw!=-1) sizey=sizey.substring(0,pw);
	
		sizew=getPageWidth();
		sizeh=getPageHeight();
	
		pw=sizex.indexOf("%");
		if(pw!=-1)
		{
			percent=sizex.substring(0,pw);
			sizex=(sizew*percent)/100;
		}
		pw=sizey.indexOf("%");
		if(pw!=-1)
		{
			percent=sizey.substring(0,pw);
			sizey=(sizeh*percent)/100;
		}
	
	}
	if(writeJAVA)
	{
		maxx=maxViewerWidthJava;
		maxy=maxViewerHeightJava;
	}
	else if(writeFlash)
	{
		maxx=maxViewerWidthFlash;
		maxy=maxViewerHeightFlash;
	}
	else
	{
		maxx=maxViewerWidth;
		maxy=maxViewerHeight;
	}
	if(enableSizeLimits)
	{
		if(sizex>maxx) sizex=maxx;
		if(sizey>maxy) sizey=maxy;
	}	
	if(enableSizeRatio)
	{
		x=sizey*sizeRatio;
		if(x<sizex)
		{
			sizex=x;
			if(enableSizeLimits && sizex>maxx) sizex=maxx;
		}
	}
	if(adviselineunderpano!="")
	{
		sizey-=16;
	}
	if(enableSizeLimits || enableSizeRatio || adviselineunderpano!="")
	{
		sizex=((sizex*100.0)/sizew);
		sizey=((sizey*100.0)/sizeh);
		if(sizex<1) sizex=1; 
		if(sizex>100) sizex=100; 
		if(sizey<1) sizey=1; 
		if(sizey>100) sizey=100;
		sizex=sizex+"%";
		sizey=sizey+"%";
	}
	sizepluginx=sizex;
	sizepluginy=sizey;
}

function reloadPage()
{
	if(!isIE) navigator.plugins.refresh(true);
	window.location.reload();
}

function getCookie(nombre)
{
	var dcookie=document.cookie;
	var cname=nombre+"=";
	var longitud=dcookie.length;
	var inicio=0;
	while(inicio<longitud)
	{
		var vbegin=inicio+cname.length;
		if(dcookie.substring(inicio,vbegin)==cname)
		{
			var vend=dcookie.indexOf(";",vbegin);
			if(vend==-1) vend=longitud;
			return unescape(dcookie.substring(vbegin,vend));
		}
		inicio=dcookie.indexOf(" ",inicio)+1;
		if(inicio==0) break;
	}
	return null;
}

function setCookie(name, value, expires)
{
	if(!expires)
	{ 
		expires=new Date();
		expires.setTime(expires.getTime()+(24*3600*1000*365));
	}
	document.cookie=name+"="+escape(value)+"; expires=" + expires.toGMTString()+ "; path=/default.htm";
}

function changeFavoriteViewer(favoriteviewer)
{
	setCookie("panorama_viewer",favoriteviewer);
}

function ShowViewerSelection(options)
{
	options.toLowerCase();
	var vertical=(options.indexOf("horizontal")==-1);
	var str='';
	
	viewer=getCookie("panorama_viewer");
	if(!viewer) viewer="DETECT";

	if(options.indexOf("devalvr")!=-1)
	{
		str+='Viewer: <INPUT type=radio name=radioViewer '+(viewer=="DEVALVR"?'checked':'')+' OnClick="javascript:changeFavoriteViewer(\'DEVALVR\'); javascript:reloadPage();">DevalVR ';
		if(vertical) str+='';
	}
	if(options.indexOf("qt")!=-1)
	{
		str+='<INPUT type=radio name=radioViewer '+(viewer=="QT"?'checked':'')+' OnClick="javascript:changeFavoriteViewer(\'QT\'); javascript:reloadPage();">QuickTime ';
		if(vertical) str+='';
	}
	if(options.indexOf("flash")!=-1)
	{
		str+='<INPUT type=radio name=radioViewer '+(viewer=="FLASH"?'checked':'')+' OnClick="javascript:changeFavoriteViewer(\'FLASH\'); javascript:reloadPage();">Flash ';
		if(vertical) str+='';
	}
	if(options.indexOf("java")!=-1)
	{
		str+='<INPUT type=radio name=radioViewer '+(viewer=="JAVA"?'checked':'')+' OnClick="javascript:changeFavoriteViewer(\'JAVA\'); javascript:reloadPage();">Java ';
		if(vertical) str+='</div>';
	}
	if(!vertical) str+='<BR>';
	
	document.write(str);
}

function getPageHeight()
{
	var ret;
	if(isIE) ret=document.body.clientHeight-document.body.topMargin-document.body.bottomMargin;
	else ret=window.innerHeight-16;
	
	return ret;
}

function getPageWidth()
{
	var ret;
	if(isIE) ret=document.body.clientWidth-document.body.leftMargin-document.body.rightMargin;
	else ret=window.innerWidth-16;
	
	return ret;
}

function IEGetSwfVer()
{
	flashVer=0;
			
	var objFlash=null;
	for(i=25;i>0 && flashVer==0;i--)
	{
		try{
			objFlash=new ActiveXObject('ShockwaveFlash.ShockwaveFlash.'+i);
			if(objFlash) 
			{
				flashVer=objFlash.GetVariable("$version");
				delete objFlash
			}
		}catch(e){}
	}
	return flashVer;
}

// JavaScript helper required to detect Flash Player PlugIn version information
function JSGetSwfVer()
{
	// NS/Opera version >= 3 check for Flash plugin in plugin array
	if (navigator.plugins != null && navigator.plugins.length > 0) {
		if (navigator.plugins["Shockwave Flash 2.0"] || navigator.plugins["Shockwave Flash"]) {
			var swVer2 = navigator.plugins["Shockwave Flash 2.0"] ? " 2.0" : "";
      		var flashDescription = navigator.plugins["Shockwave Flash" + swVer2].description;
			descArray = flashDescription.split(" ");
			tempArrayMajor = descArray[2].split(".");
			versionMajor = tempArrayMajor[0];
			versionMinor = tempArrayMajor[1];
			if ( descArray[3] != "" ) {
				tempArrayMinor = descArray[3].split("r");
			} else {
				tempArrayMinor = descArray[4].split("r");
			}
      		versionRevision = tempArrayMinor[1] > 0 ? tempArrayMinor[1] : 0;
            flashVer = versionMajor + "." + versionMinor + "." + versionRevision;
      	} else {
			flashVer = -1;
		}
	}
	// MSN/WebTV 2.6 supports Flash 4
	else if (navigator.userAgent.toLowerCase().indexOf("webtv/2.6") != -1) flashVer = 4;
	// WebTV 2.5 supports Flash 3
	else if (navigator.userAgent.toLowerCase().indexOf("webtv/2.5") != -1) flashVer = 3;
	// older WebTV supports Flash 2
	else if (navigator.userAgent.toLowerCase().indexOf("webtv") != -1) flashVer = 2;
	// Can't detect in all other cases
	else {
		
		flashVer = -1;
	}
	return flashVer;
}
 
// If called with no parameters this function returns a floating point value 
// which should be the version of the Flash Player or 0.0 
// ex: Flash Player 7r14 returns 7.14
// If called with reqMajorVer, reqMinorVer, reqRevision returns true if that version or greater is available
function DetectFlashVer(reqMajorVer, reqMinorVer, reqRevision) 
{
 	reqVer = parseFloat(reqMajorVer + "." + reqRevision);
  	if (isIE && isWindows && !isOpera) {
		versionStr = IEGetSwfVer();
	} else {
		versionStr = JSGetSwfVer();		
	}
	if (versionStr == -1 ) { 
		return false;
	} else if (versionStr != 0) {
		if(isIE && isWindows && !isOpera) {
			tempArray         = versionStr.split(" ");
			tempString        = tempArray[1];
			versionArray      = tempString .split(",");				
		} else {
			versionArray      = versionStr.split(".");
		}
		versionMajor      = versionArray[0];
		versionMinor      = versionArray[1];
		versionRevision   = versionArray[2];
			
		versionString     = versionMajor + "." + versionRevision;   // 7.0r24 == 7.24
		versionNum        = parseFloat(versionString);
    	// is the major.revision >= requested major.revision AND the minor version >= requested minor
		if ( (versionMajor > reqMajorVer) && (versionNum >= reqVer) ) {
			return true;
		} else {
			return ((versionNum >= reqVer && versionMinor >= reqMinorVer) ? true : false );	
		}
	}
	return (reqVer ? false : 0.0);
}

/*  
    IE + ActiveX + EOLAS - Javascript workaround

	Author: 
		Thomas Rauscher <rauscher@pano2qtvr.com> http://www.pano2qtvr.com
		Modified by Armando Saenz
		
	To embed a panorama just call one of these functions with 
	additional pairs for additional paramameters f.e:
	
	p2q_EmbedQuicktime('pano.mov','640','480','scale','tofit','background','#eeeeee');
	
	Use this file at your own risk
*/

window.p2q_Version	= 1.0;

function p2q_EmbedQuicktime(sFile,sWidth,sHeight) 
{
	document.writeln('<DIV align=center><object id="PANORAMAID" classid="clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B"');
	document.writeln(' codebase="http://www.apple.com/qtactivex/qtplugin.cab"');
	document.writeln('  style="WIDTH: ' + sWidth + '; HEIGHT: ' + sHeight + '" width="' + sWidth + '" height="' + sHeight + '" >');
	document.writeln('  <param name="src" value="' + sFile + '">');
	for(i=3;i<arguments.length;i+=2) {
		document.writeln('  <param name="' + arguments[i] + '" value="' + arguments[i+1] + '">');
	}
	document.writeln('  <param name="controller" value="False" >');
	document.writeln('  <param name="autoplay" value="true" >');
	document.writeln('  <param name="cache" value="true" >');
	document.writeln('<embed name="PANORAMAID" width="' + sWidth + '" height="' + sHeight + '"');
	document.writeln('	pluginspage="http://www.apple.com/quicktime/download/"');
	document.writeln('	type="video/quicktime"');
	document.writeln('	autoplay="true"');
	document.writeln('	controller="false"');
	document.writeln('	cache="true"');
	document.writeln('	src="' + sFile + '"');
	for(i=3;i<arguments.length;i+=2) {
		document.writeln('  ' + arguments[i] + '="' + arguments[i+1] + '"');
	}
	document.writeln('	/>');
	document.writeln('</object>');
	
	if(adviselineunderpano!="")
	{
		if(sWidth!="100%") document.writeln('<BR>');
		document.writeln(adviselineunderpano);
	}
	document.writeln('</DIV>');
}

function p2q_EmbedDevalVR(sFile,sWidth,sHeight) 
{
	document.writeln('<DIV align=center><object id="PANORAMAID" classid="clsid:5D2CF9D0-113A-476B-986F-288B54571614"');
	document.writeln(' codebase="http://www.devalvr.com/instalacion/plugin/devalocx.cab');
	document.writeln('#version='+minDevalVRVersion+'"');
	document.writeln('  style="WIDTH: ' + sWidth + '; HEIGHT: ' + sHeight + '" width="' + sWidth + '" height="' + sHeight + '" >');
	document.writeln('  <param name="src" value="' + sFile + '">');
	for(i=3;i<arguments.length;i+=2) {
		document.writeln('  <param name="' + arguments[i] + '" value="' + arguments[i+1] + '">');
	}
	document.writeln('  <param name="autoplay" value="2">');
	document.writeln('  <param name="filter" value="1">');
	document.writeln('  <param name="fullmode" value="4">');
	document.writeln('<embed name="PANORAMAID" width="' + sWidth + '" height="' + sHeight + '"');
	document.writeln('	pluginspage="http://www.devalvr.com/instalacion/plugin/install.html"');
	document.writeln('	type="application/x-devalvrx"');
	document.writeln('	autoplay="2"');
	document.writeln('	filter="1"');
	document.writeln('	fullmode="4"');
	document.writeln('	src="' + sFile + '"');
	for(i=3;i<arguments.length;i+=2) {
		document.writeln('  ' + arguments[i] + '="' + arguments[i+1] + '"');
	}
	document.writeln('	/>');
	document.writeln('</object>');
	
	if(adviselineunderpano!="")
	{
		if(sWidth!="100%") document.writeln('<BR>');
		document.writeln(adviselineunderpano);
	}
	document.writeln('</DIV>');
}

function p2q_EmbedFlash(sFile,sWidth,sHeight,xml,root) 
{
	var swURL='pano/default.htm'+xml+'_spiV.xml.htm';
	document.writeln('<DIV align=center ><object id="SPi-V_object" width="' + sWidth + '" height="' + sHeight + '" classid="clsid:166B1BCA-3F9C-11CF-8075-444553540000"');
	document.writeln(' codebase="http://download.macromedia.com/pub/shockwave/cabs/director/sw.cab#version=10,0,0,0">');
	document.writeln('  <param name="src" value="'+root+'dswmedia/SPi-V.dcr">');
	document.writeln('_param name=_swURL_ VALUE=_./pano/default.htm'+sFile+'">');
	document.writeln('  <param name="swStretchStyle" value="stage">');
	document.writeln('  <param name="progress" value="false">');
	document.writeln('  <param name="logo" value="false">');
	document.writeln('<embed name="SPi-V_object" width="' + sWidth + '" height="' + sHeight + '"');
	document.writeln('	pluginspage="http://www.macromedia.com/shockwave/download/"');
	document.writeln('	src="'+root+'dswmedia/SPi-V.dcr"');
	document.writeln('swURL=_./pano/default.htm'+sFile+'"');
	document.writeln('	swStretchStyle="stage"');
	document.writeln('	progress="FALSE"');
	document.writeln('	logo="FALSE"');
	document.writeln('	/>');
	document.writeln('</embed>');
	document.writeln('</object>');
	
	if(adviselineunderpano!="")
	{
		if(sWidth!="100%") document.writeln('<BR>');
		document.writeln(adviselineunderpano);
	}
	document.writeln('</DIV>');
}

function p2q_EmbedPureplayerPro(sFile,sWidth,sHeight,xml) 
{
	var swURL='pano/default.htm'+xml+'_pure.xml.htm';
	document.writeln('<DIV align=center><applet code="PurePlayerPro" archive="virtual/PurePlayerPro.jar"'); 
	document.writeln('  width="' + sWidth + '" height="' + sHeight + '" >');
	document.writeln('	<param name="gui" value="gui.xml.htm">');
	document.writeln('	<param name="panorama" value="panorama.xml.htm">');
	document.writeln('	<param name="optimizememory" value="true">');
	document.writeln('	<param name="antialiasing" value="everytime">');
	document.writeln('	<param name="mousespeed" value="100">');
	document.writeln('	<param name="cache" value="true">');
	document.writeln('</applet>');
	
	if(adviselineunderpano!="")
	{
		if(sWidth!="100%") document.writeln('<BR>');
		document.writeln(adviselineunderpano);
	}
	document.writeln('</DIV>');
	

}

function instruction()
{
	if(favoriteViewer=="DETECT")
	{
	
		document.writeln('Click and drag to navigate | Ctrl or Shift to zoom');
	
	}
	
	else if(favoriteViewer=="DEVALVR")
	{
		document.writeln('Click and drag to navigate | Scroll to zoom');
	}
		
	else if(favoriteViewer=="QT")
	{
		document.writeln('Click and drag to navigate | Ctrl or Shift to zoom');
	}
	
	else if(favoriteViewer=="FLASH")
	{
		document.writeln('Click and drag to navigate | Ctrl or Shift to zoom');
	}
			
	else if(favoriteViewer=="JAVA")
	{
		document.writeln('Click and drag to navigate | Scroll to zoom');
	}
	
}

// Here we write out the VBScript block for MSIE Windows
if (isWindows && isIE) 
{
    document.writeln('<script language="VBscript" type="text/vbscript">');

    document.writeln('\'do a one-time test for a version of VBScript that can handle this code');
    document.writeln('detectableWithVB = False');
    document.writeln('If ScriptEngineMajorVersion >= 2 then');
    document.writeln('  detectableWithVB = True');
    document.writeln('End If');

    document.writeln('\'this next function will detect most plugins');
    document.writeln('Function detectActiveXControl(activeXControlName)');
    document.writeln('  on error resume next');
    document.writeln('  detectActiveXControl = False');
    document.writeln('  If detectableWithVB Then');
    document.writeln('		set pControl = CreateObject(activeXControlName)');
    document.writeln('		If (IsObject(pControl)) then');
    document.writeln('			detectActiveXControl = True');
    document.writeln('		End If');
    document.writeln('  End If');
    document.writeln('End Function');

    document.writeln('\'and the following function handles QuickTime');
    document.writeln('Function detectQuickTimeActiveXControl()');
    document.writeln('  on error resume next');
    document.writeln('  detectQuickTimeActiveXControl = False');
    document.writeln('  If detectableWithVB Then');
    document.writeln('    detectQuickTimeActiveXControl = False');
    document.writeln('    hasQuickTimeChecker = false');
    document.writeln('    Set hasQuickTimeChecker = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1")');
    document.writeln('    If IsObject(hasQuickTimeChecker) Then');
    document.writeln('      If hasQuickTimeChecker.IsQuickTimeAvailable(0) Then ');
    document.writeln('        detectQuickTimeActiveXControl = True');
    document.writeln('      End If');
    document.writeln('    End If');
    document.writeln('  End If');
    document.writeln('End Function');

    document.writeln('\'Visual basic helper required to detect Flash Player ActiveX control version information');
    document.writeln('Function VBGetSwfVer(i)');
    document.writeln('  on error resume next');
    document.writeln('  Dim swControl, swVersion');
    document.writeln('  swVersion = 0');
    document.writeln('  If detectableWithVB Then');
    document.writeln('		set swControl = CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(i))');
    document.writeln('		If (IsObject(swControl)) then');
    document.writeln('			swVersion = swControl.GetVariable("$version")');
    document.writeln('		End If');
    document.writeln('  End If');
    document.writeln('  VBGetSwfVer = swVersion');
    document.writeln('End Function');

    document.writeln('</scr' + 'ipt>');
}