//=============================================================
//
//	VCF check
//	2004/09/15~12/29
//	2005/06/23~
//	2006/07/09~
//	2007/01/13
//	2007/03/18~04/23
//
//	2008/02/24~	add [@X ^X]
//=============================================================
/*


*/


	var HAS_LOGIN = false;



	var STAMP_SERIAL = 0;

/*======================================
	check
======================================*/
function VCFcheck( RDFAnum ){

	var GemLine = "" + document.applets[ RDFAnum ].getGemLine();

	//------------------- Problem's Gem
	var QuestionGemLine = '';
	var FirstTurn = !GemLine.match( />>a1/ );


	for( var Gnum=0; Gnum<GemLine.length; Gnum+=4 ){
		var Cp = GemLine.charAt( Gnum );
		if( Cp.toUpperCase() == 'A' ){
			if( GemLine.charAt( Gnum+1 ) == '0' ){
				QuestionGemLine += GemLine.substr( Gnum, 4 );
			}else if( GemLine.charAt( Gnum+1 ) == '1' ){
				FirstTurn = ( 'A'<=Cp && Cp<='Z' );		// W:B
			}
//		}
//---------------- 2008/02/24
		}else if( Cp == '@' || Cp == '^' ){
			QuestionGemLine += GemLine.substr( Gnum, 4 );
		}
//---------------- 2008/02/24
	}

	//------------------- get Answer Axis
	var AnswerSet = [];
	var bxp,byp,wxp,wyp;
	var Agem,Bgem;
	for( var Gnum=0; Gnum<GemLine.length; Gnum+=4 ){
		var Cp = GemLine.charAt( Gnum ).toUpperCase();
		if( GemLine.charAt( Gnum+1 )!='0' && 'A'<=Cp && Cp<='Z' ){
			bxp = GemLine.charCodeAt( Gnum+2 )-65;
			byp = GemLine.charCodeAt( Gnum+3 )-65;
			Agem = GemLine.substr( Gnum,4 );

			Gnum+=4
			Cp = GemLine.charAt( Gnum ).toUpperCase();
			if( Gnum<GemLine.length && 'A'<=Cp && Cp<='Z' ){
				wxp = GemLine.charCodeAt( Gnum+2 )-65;
				wyp = GemLine.charCodeAt( Gnum+3 )-65;
				Bgem = GemLine.substr( Gnum,4 );
			}else{
				wxp = wyp = -1;
				Bgem = "";
			}
			AnswerSet = AnswerSet.concat( [[bxp,byp,Agem,wxp,wyp,Bgem]] );
		}
	}

	//------------------- problem's gem to memory
	setPiles( QuestionGemLine );

	//------------------- exists forcePos
	var forcePos = [];
	for( var Gnum=0; Gnum<QuestionGemLine.length; Gnum+=4 ){
		var Cp = QuestionGemLine.charAt( Gnum );
		var xp = QuestionGemLine.charCodeAt( Gnum+2 )-65;
		var yp = QuestionGemLine.charCodeAt( Gnum+3 )-65;
		putGem( ( 'A'<=Cp && Cp<='Z' ) || Cp == '@', xp, yp );

		if( FirstTurn ? ( 'a'<=Cp && Cp<='z' ) || Cp == '^' : ( 'A'<=Cp && Cp<='Z' ) || Cp == '@' ){
			for( var Anum=0; Anum<4; Anum++ ){
				var pos = pileAxis2Pos( Anum, xp, yp );
				var rp = pos[0];
				var cp = pos[1];
				var get4 = is4( PileMemo[Anum][rp], cp, !FirstTurn );
				if( get4!=-1 ){
					forcePos = pilePos2Axis( Anum,[rp,get4%100] );
				}
			}
		}
	}

	/*===========================================================================

		repeat to check all moves
		-1:	next attack move limited by FOUR?
		0:	attack move don't put at limited point --> X
		1:	attack move is FIVE?
		2:	FIVE --> O
		3:	attack move is foul?
		4:	foul --> X
		3:	attack move is FOURxFOUR or OPEN-FOUR?
		4:	FOURxFOUR or OPEN-FOUR --> O
		5:	attack move is FOUR?
		6:	not FOUR --> X
		7:	If it is FOUR, get stop point from the FOUR.
		8:	stop point is foul?
		9:	If it is foul --> O
		10:	deffense move stop the FOUR?
		11:	not stop --> X
		12:	deffense move is foul?
		13:	foul --> O
		14:	deffense move is FOURxFOUR or OPEN-FOUR?
		15:	FOURxFOUR --> X
		16:	deffense move is FOUR?
		17:	If it is FOUR, next attack move will be limited.
		18:	go ot -1.

	===========================================================================*/
	var ShowGemLine = QuestionGemLine;

	var ShowMessage = 'ここまでの珠順は、四追いとして正しく打たれています。<br> (※ただし、枝道かどうかは不明) ';


//	var RightAnswer = false;
	var RightAnswer = 0;

	var ASnum = '-1';
	var Anum;
	for( ASnum in AnswerSet ){
		var Axp = AnswerSet[ASnum][0];		// Attack xp
		var Ayp = AnswerSet[ASnum][1];
		var Bxp = AnswerSet[ASnum][3];		// Break xp
		var Byp = AnswerSet[ASnum][4];

		var AttackGem = AnswerSet[ASnum][2];
		var BreakGem = AnswerSet[ASnum][5];

		//-------------- put Attack Gem
		putGem( FirstTurn,Axp,Ayp );

		ShowGemLine += AttackGem;

		//-------------- strike back
		if( forcePos.length ){
			if( forcePos[0]!=Axp || forcePos[1]!=Ayp ){	// strick back
				ShowMessage = 'ノリ返していません';
				break;
			}else{
				forcePos = [];
			}
		}
		//-------------- FIVE
		for( Anum=0; Anum<4; Anum++ ){
			var pos = pileAxis2Pos( Anum, Axp, Ayp );
			if( is5( PileMemo[Anum][pos[0]],pos[1], FirstTurn ) ){
				RightAnswer = 1;
				break;
			}
		}
		if( RightAnswer ){
			ShowMessage = '五連です';
			break;
		}

		//-------------- Black FOUL
		if( FirstTurn && isFoul( Axp,Ayp ) ){
			ShowMessage = '黒が禁手を打ってます。';

			break;
		}

		//-------------- OPEN FOUR or 4x4
		var BreakForce = [];

		if( FirstTurn ){		// black
			for( Anum=0; Anum<4; Anum++ ){
				var pos = pileAxis2Pos( Anum, Axp, Ayp );
				var get4 = is4( PileMemo[Anum][pos[0]],pos[1], FirstTurn );
				if( 100<get4 ){
					RightAnswer = 1;
					break;
				}else if( get4!=-1 ){
					BreakForce = pilePos2Axis( Anum, [pos[0],get4] );
				}
			}
		}else{			// white
			var pile4 = false;
			for( Anum=0; Anum<4; Anum++ ){
				var pos = pileAxis2Pos( Anum, Axp, Ayp );
				var get4 = is4( PileMemo[Anum][pos[0]], pos[1], FirstTurn );
				if( 100<get4 ){
					RightAnswer = Math.abs( Math.floor( get4 / 100 ) - get4 % 100 ) == 5 ? 1 : 2;	// 2008/04/10
					break;
				}else if( get4!=-1 ){
					if( pile4 ){
						RightAnswer = 2;
						break;
					}else{
						BreakForce = pilePos2Axis( Anum, [pos[0],get4] );
						pile4 = true;
					}
				}
			}
		}
		if( RightAnswer ){
			ShowMessage = '勝ち形を打ちました。正解です 8^-^8';

			break;
		}

		//-------------- not FOUR
		if( BreakForce.length==0 ){
			ShowMessage = '四を打っていません。';
			break;
		}

/*--------------------------------------------

		7:	If it is FOUR, get stop point from the FOUR.
		10:	deffense move stop the FOUR?
		11:	not stop --> X
		12:	deffense move is foul?
		13:	foul --> O
		14:	deffense move is FOURxFOUR or OPEN-FOUR?
		15:	FOURxFOUR --> X
		16:	deffense move is FOUR?
		17:	If it is FOUR, next attack move will be limited.
		18:	go ot -1.

*/

		//-------------- for White
		if( !FirstTurn ){
			putGem( true, BreakForce[0], BreakForce[1] );
			if( isFoul( BreakForce[0], BreakForce[1] ) ){
				ShowMessage = '極め手の勝ち。正解です 8^-^8';

				RightAnswer = 3;
				break;
			}
			cutGem( BreakForce[0], BreakForce[1] );
		}

		//-------------- rigal cut FOUR
		if( BreakForce.length ){
			if( BreakForce[0]!=Bxp || BreakForce[1]!=Byp ){
				ShowMessage = '防ぎ側が四を止めていません';
				break;
			}
		}

		//-------------- put Breaker's gem
		putGem( !FirstTurn, Bxp, Byp );
		ShowGemLine += BreakGem;

		//-------------- Breaker's FOUR
		var getOut = 0;
		if( FirstTurn ){		// black
			var pile4 = false;
			for( Anum=0; Anum<4; Anum++ ){
				var pos = pileAxis2Pos( Anum, Bxp, Byp );
				var get4 = is4( PileMemo[Anum][pos[0]], pos[1], !FirstTurn );
				if( 100<get4 ){
					getOut = true;
					break;
				}else if( get4!=-1 ){
					if( pile4 ){
						getOut = true;
						break;
					}else{
						forcePos = pilePos2Axis( Anum, [ pos[0], get4 ] );
						pile4 = true;
					}
				}
			}
		}else{			// white
			for( Anum=0; Anum<4; Anum++ ){
				var pos = pileAxis2Pos( Anum, Bxp, Byp );
				var get4 = is4( PileMemo[Anum][pos[0]], pos[1], !FirstTurn );
				if( 100<get4 ){
					getOut = true;
					break;
				}else if( get4!=-1 ){
					forcePos = pilePos2Axis( Anum, [ pos[0], get4 ] );
				}
			}
		}
		if( getOut ){
			ShowMessage = 'ノリ返せません。';


			break;
		}

	}

	var moveNumber = parseInt( ASnum )+1;

	setVCFcheckMessage( RDFAnum, "<div style='padding:1ex;'>" +
		( moveNumber
			? ('['+moveNumber+']<br>'+ShowMessage)
			: "四追いを打ってから押して下さい。"
		) + "</div>"
	);

	document.applets[ RDFAnum ].setGemLineString( (FirstTurn?"":">>a1")+ShowGemLine );

	if( RightAnswer ){
		getRightAnswer( RDFAnum, RightAnswer );
	}
}

//================================================
//	show check message
//================================================
function setVCFcheckMessage( RDFAnum, message ){
	document.getElementById( 'RDFA_MESSAGE_BOX' + RDFAnum ).innerHTML = message;
}

//================================================
//	show right answer
//================================================
function getRightAnswer ( RDFAnum, answer ){
	alert( {
			1 : "棒四の勝ち",
			2 : "四々の勝ち",
			3 : "極め手の勝ち"
		}[ answer ] + "\n正解でやんす☆" );

	setCleared2RDFAselecter( RDFAnum );
}