//==================================================================
//
//		RDFA JavaScript
//
//		'03/08/30~
//		'03/11/02~	Big Change (Coment Operations)


//		'06/07/08~11	group
//		2007/02/20~03/19

//		2008/07/15	parameter 1st system
//		2008/08/02	parameter 2nd system
//
//==================================================================

/*
*/


//============================
//	global
//============================



	FigNum=0;	// Applet number

	MainPath = 'http://works28.renju.info/';

	CodeBase = MainPath + 'JavaApplet/RDFAnew/';
	CodeBase = MainPath + 'JavaApplet/RDFA02/';



//	MessengerWidth = 200;

	AutoStepSec = 1000;

	Language = null;

	var RDFA_GEM_DIMENSION = 3;


	var RDFA_COMMENTs = {};
	var RDFA_GROUP = {};

	var CURRENT_OPUS = {};		// RDFAnumber : { data object }

	//--------------------- BackBroundColor

/*
	BGCofBoard	="eeee00";
	BGCofFrame	="dddddd";
	BGCofOrder	="ffddff";
*/

	BGCofBoard	="eeee00";
	BGCofFrame	="99ff99";
	BGCofOrder	="33cc66";

	BGCofBoard	="dddd66";
	BGCofFrame	="ccccff";

	//--------------------- for ScoreCaster
	var SCORE_CASTER_SEND = false;

//======================================================================================================
	var Hname	="";
	var Folder	="";
	var Genre	="";
//======================================================================================================

//=========================================================
//	Window Resize
//	When resize, redraw applets
//=========================================================
function reloadRDFA(){

//if( !document.all ){ return; }


	for(var f=0;f<FigNum && document.getElementById("RDFA"+f);f++){
		document.getElementById("RDFA"+f).resizeGem();


/*
		if(document.getElementById("Messenger"+f))
			document.getElementById("Messenger"+f).repaint();
		if(document.getElementById("Order"+f))
			document.getElementById("Order"+f).repaint();
*/


	}
}
window.onresize=reloadRDFA;



/*================================================================================
	draw RDFA board (single)
	------------ common parameter
	Mode		D:read & write
			H:read only(extra OK)
			h:read only(no extra)
			A:next All moves
			O:next One move
			F:VCF
			M:Making
			E:edit(for SBBS & plain board)

			P:Playing @ WtPBS(extra OK)
			p:Playing @ RtPBS(one move and stop)

			* if Mode.charAt(1)=='a', auto show moves.

	Span		span of cells

	------------ parameter
	Qtext		Question text
	Hint		hint(* now, void)
	Atext		Answer text
	AnsPos		Answer point XY list

	GemLine		RDFA Gem line data

	------------ status of each mode
	Mode=D,H,h		Mode,Span,Atext(=coment),GemLine
	Mode=A			Mode,Span,Qtext,Atext,AnsPos,GemLine
	Mode=O,o		Mode,Span,Turn,Qtext,Atext,AnsPos,GemLine
	Mode=F,f		Mode,Span,Turn,Qtext,Atext,GemLine
================================================================================*/

function putRDFA ( Mode, Span, dataList ){
	var gemLineSet = dataList[ 0 ];
	drawRDFA ( Mode, Span, gemLineSet[ gemLineSet.length-1 ], [] );
}


/*================================================================================
	draw RDFA board (single)
	------------ common parameter
	Mode		D:read & write
			H:read only(extra OK)
			h:read only(no extra)
			A:next All moves
			O:next One move
			F:VCF
			M:Making
			E:edit(for SBBS & plain board)

			P:Playing @ WtPBS(extra OK)
			p:Playing @ RtPBS(one move and stop)

			* if Mode.charAt(1)=='a', auto show moves.

	Span		span of cells

	------------ parameter
	Qtext		Question text
	Hint		hint(* now, void)
	Atext		Answer text
	AnsPos		Answer point XY list

	GemLine		RDFA Gem line data

	------------ status of each mode
	Mode=D,H,h		Mode,Span,Atext(=coment),GemLine
	Mode=A			Mode,Span,Qtext,Atext,AnsPos,GemLine
	Mode=O,o		Mode,Span,Turn,Qtext,Atext,AnsPos,GemLine
	Mode=F,f		Mode,Span,Turn,Qtext,Atext,GemLine
================================================================================*/
function drawRDFA ( Mode, Span, GemLine, CommentList ){

	document.write( makeTagRDFA ( Mode, Span, GemLine, CommentList, false ) );

	return;

}

//==============================
//	draw <param>
//==============================
/*
function putPara(name,value){
	document.write('<param name="',name,'" value="',value,'">');
}
*/

//==============================
//	draw <param>
//==============================
function makePara( name, value ){
	return( "<param name='"+name+"' value='"+value+"'>" );
}


function putGroup( Mode, Span, DataSet ){
	drawGroupRDFA( Mode, Span, DataSet );
}

function drawGroupRDFA ( Mode, Span, DataSet ){
	document.write( makeTagGroupRDFA ( Mode, Span, DataSet ) );
}

//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@


/*================================================================================
	draw RDFA board (single)
	------------ common parameter
	Mode		D:read & write
			H:read only(extra OK)
			h:read only(no extra)
			A:next All moves
			O:next One move
			F:VCF
			M:Making
			E:edit(for SBBS & plain board)

			P:Playing @ WtPBS(extra OK)
			p:Playing @ RtPBS(one move and stop)

			* if Mode.charAt(1)=='a', auto show moves.

	Span		span of cells

	------------ parameter
	Qtext		Question text
	Hint		hint(* now, void)
	Atext		Answer text
	AnsPos		Answer point XY list

	GemLine		RDFA Gem line data

	------------ status of each mode
	Mode=D,H,h		Mode,Span,Atext(=coment),GemLine
	Mode=A			Mode,Span,Qtext,Atext,AnsPos,GemLine
	Mode=O,o		Mode,Span,Turn,Qtext,Atext,AnsPos,GemLine
	Mode=F,f		Mode,Span,Turn,Qtext,Atext,GemLine
================================================================================*/
function makeTagRDFA ( Mode, Span, GemLine, CommentList ){
	var FN = FigNum++;



	//====================================================== Admin Button applet
	var currentAppletsNumber = document.applets.length;


	//-------------- read arguments
	var HAS_GROUP = typeof GemLine == 'object';


	var GROUP_SET = {};
	var firstThread = 0;

	var openSet = null;
	if( HAS_GROUP ){
		GROUP_SET = GemLine;
		RDFA_GROUP[ currentAppletsNumber ] = {};

		for( var GEkey in GROUP_SET ){
			for( var THnum in GROUP_SET[ GEkey ] ){
				RDFA_GROUP[ currentAppletsNumber ][ THnum ] = GROUP_SET[ GEkey ][ THnum ];

				if( openSet == null ){
					openSet = GROUP_SET[ GEkey ][ THnum ];
				}
			}

		}

		if( openSet != null ){
			with( openSet ){
				GemLine = GEM_LINE;
				CommentList = COMMENT;
			}
		}
	}


	var HAS_COMMENT = HAS_GROUP || ( CommentList!=null && CommentList.length );



	RDFA_COMMENTs[ currentAppletsNumber ] = ( typeof CommentList == "string" ) ? [ CommentList ] : CommentList;


	//------------------------ option read

	var targetGemLine = ( HAS_GROUP && openSet != null ) ? openSet.GEM_LINE : GemLine;














	//---------------------- get modes
	var isVCF = Mode.match( /F/i );
	var isALL = targetGemLine.indexOf( "?A" ) != -1;

	var hasButton = isAllCheck || isVCF;

	var Auto = Mode.match( /a/ );		// auto replay
	var showNumber = Mode.match( /n/ ) ? true : false ;
	var showLast = Mode.match( /l/ ) ? true : false ;


	var Mode = Mode.charAt( 0 );	// get mode




	var isAllCheck = false;
	if( HAS_COMMENT ){
		for( var Cnum in CommentList ){
			if( typeof CommentList[ Cnum ] == "object" ){
				isAllCheck = true;
				break;
			}
		}
	}


	//============================================ 	draw RDFA

	//===================================
	//	get applet size
	//===================================
	//-------------------------- get applet size from first gemline data of group
	with( getAppletSize( targetGemLine ) ){
		var cols = R - L + 1;
		var rows = B - T + 1;
		var Lp = L;
		var Tp = T;
		var Rp = R;
		var Bp = B;
	}

	//-------------------------------------
	//	option for RDFA
	//-------------------------------------
	var hasAxis = Span < 0 ? 1 : 0;


	var Opt = "";
	//--------------------------------- use messanger
	if( HAS_COMMENT ){
		Opt += "coment,";
	}
	//--------------------------------- auto replay
	if( Auto ){
		Opt += "auto,";
	}
	//--------------------------------- request Axis
	if( hasAxis ){
		Opt += "axis,";
		Span = Math.abs( Span );
	}
	if( Span == 1 ){
		Span = 0;
	}


	//--------------------- applet size
	// size = 0 : 100% order
	var wid,hei;


	if( Span ){
		wid = Span * ( cols + 2 * hasAxis );
		hei = Span * ( rows + 2 * hasAxis );
	}else{
		wid = Messe ? "60%" : "100%";
		hei = "100%";
	}



	var tagString = "";


	if( HAS_COMMENT ){
		tagString += "<div style='width:100%;'><table cellspacing='0' class='backWhite' style='border-style:solid;border-color:black;width:100%;'>";



		if( HAS_GROUP ){
			tagString += "<tr><td id='RDFA_TITLE" + currentAppletsNumber + "' colspan='2' class='backGray' style='font-size:1.2em;font-weight:bolder;padding:0.5ex 1em;'>";
				tagString += openSet.TITLE;
			tagString += "</td></tr>";
		}


		tagString += "<tr><td style='width:1%;'>";

	}


	//--------------------------------------
	//	RDFA board
	//--------------------------------------
	// FN= applet number
	var Bname = "RDFA" + FN;

	tagString += "<applet codebase='" + CodeBase + "' code='RDFA.class' archive='RDFA.jar'" +
				" width=" + ( Span ? ( "" + wid ) : "100%" ) + " height=" + hei + " name='" + Bname + "' id='" + Bname + "'"+

			( Mode == 'E'
				? " onmouseover='if( clipboardData != null && clipboardData.getData(\"Text\") != null ){ this.$clipGemLine = clipboardData.getData(\"Text\").replace( /^:RDFA8128:/, \"RDFA8128\" ); }'"
				: ""
			) +
			" onmouseout='if( this.$clipCatch ){ this.$clipCatch = false;clipboardData.setData(\"Text\",\":RDFA8128:\" + this.getGemLine() ); }'" +
		">";
	//--------- Common parameter for RDFA (no need Data Number)
	tagString += makePara( "pass", document.URL );		// password

	tagString += makePara( "mode", Mode + ( showNumber ? "n" : "" ) + ( showLast ? "l" : "" ) );			// mode
	tagString += makePara( "option", Opt );			// draw option
	tagString += makePara( "BackGroundColor", BGCofFrame );	// back ground color
	tagString += makePara( "BoardColor", BGCofBoard );	// board color

	tagString += makePara( "GemDimension", RDFA_GEM_DIMENSION );	// gem dimension


//	if( Auto ){	// 2008/07/08
		tagString += makePara( "AutoStep", "" + AutoStepSec );	// Auto replay interval
//	}
	//--------------------------------------------- gem line (with data number)
	tagString += makePara( "moveline0", GemLine );
	tagString += "</applet>";

	//========================================================================================
	//	Messenger
	// <td>'s 40% case:	When size is fixed, hope that width is (screen size - board size)
	//========================================================================================
	if( HAS_COMMENT ){

		tagString +=  "</td>";

//*********************************************************************************************

		//----------------------------- message box

		tagString += "<td style='width:90%;height:100%;'>";
		tagString += "<table cellspacing='0' style='width:100%;height:" + ( !document.all ? hei + "px" : "100%" ) + ";'>";

		if( HAS_GROUP ){
			tagString += "<tr><td style='height:5%;'>" + makeTagRDFAselecter( currentAppletsNumber, GROUP_SET ) + "</td></tr>";
		}


		tagString += "<tr><td style='height:" + ( !document.all ? ( Span * 8 ) + "px" : "80%" ) + ";border-style:inset;border-width:6px;'>";
		tagString += "<div class='scroll' id='RDFA_MESSAGE_BOX"+currentAppletsNumber+"' " +
					"style='border-style:none;font-size:90%;'>" +
				RDFA_COMMENTs[ currentAppletsNumber ][ 0 ].replace( /&#39;/g, "'" ) +
			"</div>";
		tagString += "</td></tr>";


		if( hasButton ){
			tagString += "<tr><td class='backGray' style='height:1%;text-align:center;'>";

			//---------------------------------------------
			//	VCF
			//---------------------------------------------
			if( isVCF ){
				tagString += "<button id='VCF_CHECK' type='button' onclick='VCFcheck( "+currentAppletsNumber+" );'" +
							" style='font-size:1.5em;padding:0.5ex 0px;'" +
						">正答判定</button>";

			//---------------------------------------------
			//	next all
			//---------------------------------------------
			}else if( isAllCheck ){
				tagString += "<button type='button' style='width:100%;padding:1ex 2em;'"+
					" onclick='nextAllCheck("+currentAppletsNumber+", \""+CommentList[1]+"\", \""+CommentList[2]+"\" );'"+
					">";

				tagString += 'answer check';

				tagString += "</button>";
			}
			tagString += "</td></tr>";
		}
		tagString += "</table>";
//*********************************************************************************************


		if( typeof CommentList != "string" ){
			setInterval( "setMessage(" + currentAppletsNumber + ")", 300 );
		}

		tagString += "</td></tr></table></div>";
	}

	return tagString;

}











//===========================================================================================================
//	make tag RDFA group selecter
//===========================================================================================================
function makeTagRDFAselecter( currentAppletsNumber, DataSet ){


	//-------------------------------------------
	//	make selecter tag
	//-------------------------------------------
	var selectString = "";


	selectString += "<select size='10' name='RDFA_SELECT"+currentAppletsNumber+"' id='RDFA_SELECT"+currentAppletsNumber+"' " +
				"RDFA_NUMBER='" + currentAppletsNumber + "' " +

				"style='font-size:90%;width:100%;' "+
				"onclick='this.onchange(); '"+
				"onchange='setRDFA( this );' " +
			">";


	var firstFlag = true;

	for( var GEname in DataSet ){
		var Gset = DataSet[ GEname ];


		if( GEname ){
			selectString += "<optgroup label='" + GEname + "'>";
		}

		for( var OPnum in Gset ){
			var getOpus = Gset[ OPnum ];

// ** When there are some GROUP-RDFA at one page, STAMP_SERIAL & STAMP_GENRE must set each applets-object (2006/07/11)
			selectString += "<option value='" + OPnum + "' " +

					"RDFA_GEM_LINE='" + getOpus.GEM_LINE + "' " +
					"RDFA_COMMENT='" + makeRDFA_CommentListString( getOpus.COMMENT ) + "' " +
					" style='background-color:" + ( getOpus.CLEAR ? "lightgreen" : "transparent" ) + ";'" +

					( firstFlag ? " selected" : "" ) +
				">" + getOpus.TITLE + "</option>";


			firstFlag = false;
		}
		if( GEname ){
			selectString += "</optgroup>";
		}
	}

	selectString += "</select>";

	return selectString;

}



//===========================================================================================================
//	put group by JS type
//	group mode is common system. Therefore, 'o' & 'f' (the small letter's mode) is nothing.

//	Group button applets is always written by "width=100%" without condition of Span
//	If want to be narrow size, hold all RDFA body by <div>

//	When group name is null, don't use Title of group and write "Group Serial number" as group name.


/*


	var VCF_LIST = {
		'GENRE_TITLE' : {
			THREAD_SERIAL : {
				TITLE : 'オリオン座',
				GEM_LINE : '',
				COMMENT : ''
			},
			THREAD_SERIAL : {
				TITLE : 'オリオン座',
				GEM_LINE : '',
				COMMENT : ''
			}
		}
	};

*/
//===========================================================================================================
function makeTagGroupRDFA( Mode, Span, DataSet ){
	return makeTagRDFA( Mode, Span, DataSet );
}


//=================================
//	set RDFA
//=================================
function setRDFA( SLobj ){

	with( SLobj ){
		var RDFAnum = getAttribute( "RDFA_NUMBER" );

		with( options[ selectedIndex ] ){
			eval( "RDFA_COMMENTs[ " + RDFAnum + " ] = " + getAttribute( "RDFA_COMMENT" ) );

			with( document ){
				getElementById( 'RDFA_TITLE' + RDFAnum ).innerHTML = options[ selectedIndex ].innerHTML;
			//	getElementById( 'RDFA_MESSAGE_BOX' + RDFAnum ).innerHTML = RDFA_COMMENTs[ RDFAnum ][ 0 ];
				applets[ RDFAnum ].setGemLineString( getAttribute( "RDFA_GEM_LINE" ) );
				RDFA_COM_NUM[ RDFAnum ] = -1;
				setMessage( RDFAnum );
			}
		}
	}
}

var RDFA_COM_NUM = [];
function setMessage ( RDFAnum ){





	try{

		var messageList = RDFA_COMMENTs[ RDFAnum ];

		var commentNumber = document.applets[ RDFAnum ].$commentNumber;

		var getMessage = "";

		if( commentNumber < 0 ){
			getMessage = "?";
		}else{
			getMessage = messageList[ commentNumber ];

			if( typeof getMessage == "number" ){
				getMessage = messageList[ getMessage ];
				if( typeof getMessage != "string" ){
					getMessage = getMessage[ 0 ];
				}
			}
		}

		if( RDFA_COM_NUM == null ){
			RDFA_COM_NUM = [];
		}
		if( RDFA_COM_NUM[ RDFAnum ] != commentNumber ){
			document.getElementById( 'RDFA_MESSAGE_BOX'+RDFAnum ).innerHTML = getMessage.replace( /&#39;/g, "'" );	// 2008/07/15
		}
		RDFA_COM_NUM[ RDFAnum ] = commentNumber;
	}catch( errorMSG ){
		status = "RDFA comment error [" + errorMSG + "]";
	}

}






//=================================
//	make list string
//=================================
function makeRDFA_CommentListString ( callList ) {

	if( typeof callList == "string" ){
		return( "[\""+callList+"\"]" );
	}
	if( callList.length == 0 ){
		return( "[]" );
	}

	var outputString = "";
	for( var Cnum in callList ){
		if( typeof callList[Cnum] == "number" ){
			outputString += ","+callList[Cnum];
		}else if( typeof callList[Cnum] == "string" ){
		//	outputString += ",\""+callList[Cnum]+"\"";
			outputString += ",\"" + callList[Cnum].replace( /'/g, "&#39;" ) + "\"";	// 2008/07/15
//		}else{
//			outputString += ","+makeListString( callList[Cnum] );
		}
	}

	return( "["+outputString .substring(1)+"]" );
}



//=================================
//	make list string
//=================================
function setCleared2RDFAselecter( RDFAnum ) {
	with( document.getElementById( "RDFA_SELECT" + RDFAnum ) ){
		options[ selectedIndex ].style.backgroundColor = "#fcc";
	}
}













































//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

//=================================
//	get applets size
//=================================
function getAppletSize( GLset ){
	//-------------------------- get applet size
	var Lp = 15, Rp = -1;
	var Tp = 15, Bp = -1;

	var Xadd = 0;
	var Yadd = 0;

	var GL = GLset.toUpperCase();
	for(var c=0; c<GL.length; c+=4 ){
		if( GL.charAt( c ) == '+' ){
			Xadd = GL.charAt( c + 2 ).charCodeAt() - 65 + 1;
			Yadd = GL.charAt( c + 3 ).charCodeAt() - 65 + 1;
		}else if( GL.charAt( c ) != '!' && GL.charAt( c ) != '*' && GL.charAt( c ) != '?' && GL.charAt( c ) != '>' ){
			var xc = GL.charAt( c + 2 ).charCodeAt() - 65;
			var yc = GL.charAt( c + 3 ).charCodeAt() - 65;
			if( xc < Lp ) Lp = xc;
			if( yc < Tp ) Tp = yc;
			if( xc != 15 && Rp < xc ) Rp = xc;	// xc=15 : pass move
			if( yc != 15 && Bp < yc ) Bp = yc;
		}

	}


	if( Rp < Lp ){
		Lp = Tp = 0;
		Rp = Bp = 14;
	}

	if( Xadd ){
		Lp = Math.max( 0, Lp - Xadd );
		Rp = Math.min( 14, Rp + Xadd );
	}

	if( Yadd ){
		Tp = Math.max( 0, Tp - Yadd );
		Bp = Math.min( 14, Bp + Yadd );
	}

	return {
		L : Lp,
		R : Rp,
		T : Tp,
		B : Bp
	};


}


//=================================
//	auto make applet number
//=================================
var FigureNumber=0;
function drawFigureNumber(){
	document.write("[SCORE: ",++FigureNumber,"]<br>");
}



//=================================
//	make list string
//=================================
function makeListString ( callList ) {

	if( typeof callList == "string" ){
		return( "\""+callList+"\"" );
	}
	if( callList.length==0 ){
		return( "[]" );
	}

	var outputString = "";
	for( var Cnum in callList ){
		if( typeof callList[Cnum] == "number" ){
			outputString += ","+callList[Cnum];
		}else if( typeof callList[Cnum] == "string" ){
			outputString += ",\""+callList[Cnum]+"\"";
		}else{
			outputString += ","+makeListString( callList[Cnum] );
		}
	}

	return( "["+outputString .substring(1)+"]" );
}

//============================================
//	help of operation
//	type:0/1/2=nextOne/nextAll
//============================================
function DrillManual (type){
//	if(Language){


		Mset=[
			['Please Click on the void point. And then the message apear in right message box.'],
			['Click all quested points. <span class=strong>Red mark</span>  apear at clicked points.','You can remove <span class=strong>Red mark</span> by right click.<br>(* you can remove all <span class=strong>Red marks</span> at once by <span style="color:blue;">Clear</span> button)','Push the <span style="color:blue;">Check</span> button after you click all quested points. And then message of OK / NG apears in message box.<br>(* if your answer is over or less, it is NG.)','If your answer is right, explain about all points.']
		];


//	}

	document.write('<div class=standardBox>',
		'<span style="font-size:large">',
		'[ Operation ]',
		'</span>',
		'<ol style="line-height:150%">'
	);

	var p=0;
	while(Mset[type][p])
		document.write('<li>',Mset[type][p++],'</li>');

	document.write('</ol><br><center>');
	if(!Language)
		drawHelpOfRDFA();
	document.write('</center></div>');
}


function drawHelpOfRDFA (){
	document.write('<input type="button" value="','RDFA Quick Help','"',
		' style="padding:5px 10px;"',
		' onClick="window.open(\'',MainPath,'PageVisitor/',
		(Language?'HelpOfRDFAinEnglish':'HelpOfRDFA'),
		'.html\',\'_blank\',',
		'\'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=500,height=300\');">'
	);
}


//===============================
//	Make NextOne String
/*
	arguments
	0:	Base set
	1:	Qtext
	2~:	Branch Set
		[[Acoment1,Acoment2,...],GemLineA],		// about this add GemLine, comment number is from *000
		[[Bcoment1,Bcoment2,...],GemLineB],
		makeNextOne(0,1,2,...),
		[[Ccoment1,Ccoment2,...],GemLineC]
	...
*/
//===============================


function makeNextOne (BaseSet,AddSet,TurnNumber,ShortSet){

if(ShortSet){
	AddSet = AddSet.concat(makeNextOneAnswerSet(TurnNumber,ShortSet));
}
	var ComentSet = BaseSet[0];
	var NewGemLine = BaseSet[2]+"?0"+comentSerialNum2Str(ComentSet.length)+(BaseSet[1]?"!---":"");		// last coment is Qtext
	for(var Anum in AddSet){

		var Gline = AddSet[Anum][1];

		for(var Gnum=0;Gnum<Gline.length;Gnum+=4){
			var cutGem = Gline.substr(Gnum,4);
			if(cutGem.charAt(0)=='?' || cutGem.charAt(0)=='*'){
				NewGemLine += cutGem.substr(0,2)+comentSerialNum2Str(comentSerialStr2Num(cutGem.substr(2,2))+ComentSet.length);
			}else{
				NewGemLine += cutGem;
			}
		}

		ComentSet = ComentSet.concat(AddSet[Anum][0]);
	}

	return([ComentSet,NewGemLine]);
}

function makeNextOneAnswerSet(GemNum,Aset){
	var Rset = [];
	for(var Anum in Aset){
		Rset = Rset.concat([
					[
						[Aset[Anum][0]],
						GemNum+
						(typeof Aset[Anum][1]=="string"?Aset[Anum][1]:Aset[Anum][1].join("*001"+GemNum))+
						"*001"
					]
				]);
	}

	return(Rset);
}


var TransSerialString = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";

function comentSerialStr2Num(str){
	return(TransSerialString.indexOf(str.charAt(0))*62 + TransSerialString.indexOf(str.charAt(1)));
}

function comentSerialNum2Str(num){
	return(TransSerialString.charAt(Math.floor(num/62))+TransSerialString.charAt(num%62));
}


//====================================================
//	save score
//====================================================
function saveRDFA2PC ( GemLine ){
	if( !GemLine || GemLine == "" || GemLine == "!---"){
		alert( "盤が空なので、保存しませんでした。");
		return;
	}


	var FileName = "RDFA";

	with(new Date()){
		var getY = getFullYear();
		var getM = getMonth()+1;
		var getD = getDate();
		var getT = getHours()*3600+getMinutes()*60+getSeconds();
	}
	FileName += "-"+getY+"-"+getM+"-"+getD+"-"+getT;
	window.open("http://works28.renju.info/ScorePlayer/RDFAsave.cgi?GEM_LINE=" + GemLine.replace( /=/g, "%3D" ) + "&FILE="+FileName,"RDFAsave","width=100,height=28,dependent=yes,directories=no,personalbar=no,location=no,menubar=no,toolbar=no,status=no,resizable=yes");

}



//====================================================
//	Next All check
//====================================================
function nextAllCheck ( RDFAnum, answerMessage, answerString ){

	var RDFAobj = document.applets[ RDFAnum ];

	if( !RDFAobj ){
		alert( "not found RDFA" );
		return;
	}

	var getCommentNumber = RDFAobj.$commentNumber;
	var getCommentList = RDFAobj.currentCommentList;


//alert( makeListString( getCommentList ) );
	var answerMessage = "";
	var answerString = "";

	var alertMessage = "";
	if( getCommentList==null ){
		alertMessage = "no comment list";
	}else if( getCommentList[ getCommentNumber ]==null ){
//alert( getCommentNumber+"\n"+typeof getCommentList[1] );
		alertMessage = "no registered this question";
	}else{

		answerMessage = getCommentList[ getCommentNumber ][1];
		answerString = getCommentList[ getCommentNumber ][2];

		if( answerString==null ){
			alertMessage = "no answer position";
		}else if( answerMessage==null ){
			alertMessage = "no answer message";
		}
	}

	if( alertMessage ){
		alert( "can not check\n[ " + alertMessage + " ]" );
		return;
	}

	var answerList = [];
	while( 1<answerString.length ){
		answerList = answerList.concat( [ answerString.substr( 0, 2 ) ] );
		answerString = answerString.substring( 2 );
	}

	answerList.sort();

	var rightAnswer = false;
	if( RDFAobj ){
		rightAnswer = RDFAobj.getRedPoints() == answerList.join("");
	}else{
		alert( "not fount RDFA" );
		return;
	}

	var showMessage = "";
	if( rightAnswer ){
		var getTitleString = RDFAobj.autoReportGroup+"/"+document.getElementById( 'RDFA_TITLE'+RDFAnum ).innerText;
		var searchString = "MODE=register&GENRE="+COMMON_GENRE+"&AREA="+COMMON_AREA+"&OPUS="+getTitleString;


		showMessage = answerMessage;
		var sendCGIapplet = document.getElementById( "callCGI" );
		if( sendCGIapplet ){
			if( confirm( answerMessage.replace( /\\n/g, "\n" )+"\n--------\n"+"report ?\n"+searchString ) ){
				sendCGIapplet.sendCGI( searchString );
			}
		}
	}else{
		showMessage = RDFAobj.getRedPoints() == "" ? "check please" : "not correct";
		alert( showMessage );
	}

	document.getElementById( 'RDFA_MESSAGE_BOX'+RDFAnum ).innerHTML = showMessage.replace( /\\n/g, "<br>" );

}