/* (C)Shinkousoku Printing Inc. http://www.sksp.co.jp/ */

function writeFlash(indent, src, attr, param) {
	
	var getIndent = function(indent) {
		var tabs = '\n';
		for (var i = 0; i < indent; i++) tabs += '\t';
		return tabs;
	};
	
	var getFlashPlayerMajorVersion = function() {
		if (navigator.plugins && navigator.mimeTypes.length) {
			return navigator.plugins['Shockwave Flash'].description.match(/([0-9]+)/)[0];
		}
		else {
			return new ActiveXObject('ShockwaveFlash.ShockwaveFlash').GetVariable('$version').match(/([0-9]+)/)[0];
		}
	};
	
	document.write(getIndent(indent) + '<object');
	if (navigator.userAgent.toLowerCase().match(/MSIE|msie/)) document.write(' classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"');
	if (attr) for (var key in attr) document.write(' ' + key + '="' + attr[key] + '"');
	document.write(' data="' + src + '" type="application/x-shockwave-flash">');
	
	document.write(getIndent(indent+1) + '<param name="movie" value="' + src + '" />');
	if (param) {
		for (var key in param) {
			if (key != 'wmode') {
				document.write(getIndent(indent+1) + '<param name="' + key + '" value="' + param[key] + '" />');
			}
			else if (param[key] == 'transparent' || getFlashPlayerMajorVersion() < 10) {
				document.write(getIndent(indent+1) + '<param name="wmode" value="' + param[key] + '" />');
			}
		}
	}
	else if (getFlashPlayerMajorVersion() < 10) {
		document.write(getIndent(indent+1) + '<param name="wmode" value="opaque" />');
	}
	
	document.write(getIndent(indent) + '</object>');
	
}