//==================================================
//	Web-time Playing Board System for Renju
//
//	JS function for PLAY-GAMEs only
//	2007/03/02~03/08
//==================================================

/*
*/

var UNDO_LINE = "";

//=================================
//	make caption
//=================================
function makeCaption ( getGame ){


	with( getGame ){
		var Black =  BLACK != MASK_NAME ? BLACK : "黒";
		var White = White != MASK_NAME ? WHITE : "白";
	}






	with( getGame ){
		var onGoing = STATUS;
	}

	if( onGoing != 'P' ){
		if( onGoing.match( /[BbwW]/ ) ){
			return "<div>「@」の勝ち</div>".replace( /@/, getShowName( onGoing.match( /[Bb]/ ) ? Black : White ) ) +

			"<div>&spades; 勝った人は、局後検討の後でこの譜をOVER-GAMEsへ納譜して下さい。</div>";

		}else{
			return "<div>満局です</div>";
		}

	}






	//------------------------- each turn
	with( getGame ){
		var GemLine = GEM_LINE;
		var request = REQUEST;
		var grade = FLAGs.match( /L/ ) ? ( Math.floor( GRADE / 10 ) - GRADE % 10 ) : 0;
	}

	var lastMove = getLastMove( GemLine );
	var lastestMove = getLastMove( GemLine.replace( /!\-\-\-/, "" ) );


	var modeUndo = GemLine.match( /@\-/ );
	var modeExtra = GemLine.match( /@\+/ );
	var modeSwap = GemLine.match( /\$[X|=]/ );

	var captionString = "";

	captionString = "<div style='font-family:monospace;font-size:smaller;margin-bottom:1ex;'>" +
			"「@」の手番です。".replace( /@/, getShowName( ( lastestMove & 1 ) ? getGame.WHITE : getGame.BLACK ) ) +
			"</div>";









	if( lastestMove < 4 && !modeSwap && grade ){
		captionString += "<div>&spades; この局は梯子打ちです。@には、+PLUSのハンデが題数に加算されます。</div>".replace( /@/g, getShowName( grade < 0 ? White : Black ) ).replace( /PLUS/, Math.abs( grade ) );
	}

	if( modeUndo ){
		captionString += "<div>&spades; @が「待った」を申請しています<br>* 受諾…「着珠ボタン」を押す<br>* 拒否…盤をクリックしてからキーボードの「↑キー」を押し、それから「着珠ボタン」を押す</div>".replace( /@/, getShowName( ( lastMove & 1 ) ? White : Black ) );
	}
	if( modeExtra ){
		captionString += "<div>&spades; @が「代打ち」しています<br>* 拒否…「着珠ボタン」を押す<br>* 受諾…盤をクリックしてからキーボードの「↑キー」を押し、それから「着珠ボタン」を押す</div>".replace( /@/, getShowName( ( lastMove & 1 ) ? Black : White ) );
	}

	if( modeUndo || modeExtra ){
		return captionString;
	}


			if( getGame.REQUEST.match( /[Dd]/ ) ){
				captionString += "<div>&spades; 「@」が引き分けを提案しています</div>".replace( /@/, getShowName( getGame.REQUEST == 'D' ? Black : White ) );
			}
			if( getGame.REQUEST.match( /[Cc]/ ) ){
				captionString += "<div>&spades; 「@」が破棄を提案しています</div>".replace( /@/, getShowName( getGame.REQUEST == 'C' ? Black : White ) );
			}

	switch( lastMove ){
		case 0:
			captionString += "<div>&spades; 珠型と題数分のベタ珠を打って「着珠ボタン」を押して下さい</div>";
			break;

		case 1: case 2:
			break;

		case 3:
			if( modeSwap ){ break; }
			captionString += "<div>&spades; 黒番か白番かを選んで下さい" + "<br>* 黒選択…「着珠ボタン」を押す" + "<br>* 白選択…白4を打ってから「着珠ボタン」を押す</div>";
			break;
		case 4:
			captionString += "<div>&spades; 五珠をベタ珠の題数分打って「着珠ボタン」を押して下さい</div>";
			break;
		default:



	}

	return( captionString );
}





//=======================================
//	submit play-games
//=======================================
function submitPLAY_GAMEs( callMode ){

	var Fobj = document.getElementById( 'FORM_PLAY' );

	//----------------------------- waiting
	if( Fobj.getAttribute( 'WAITing' ) ){
		alert( WAIT_MESSAGE );
		return;
	}

	var mineID = getCookie( 'ID' );
	//-------------------------- has right
	if( !mineID ){
		alert( "この部屋を使う権利がありません" );
		return;
	}


	//-------------------------- no game
	if( GAME_SERIAL == 0 || !GAME_LIST.PLAY[ GAME_SERIAL ] ){
		alert( "対局が指定されていません。" );
		return;
	}

	if( callMode == 'message' ){
		if( !Fobj.MESSAGE.value.match( /[^\s　\n]/ ) ){
			alert( "メッセージが空です。" );
			return;
		}
	}else{

		var thisGame = GAME_LIST.PLAY[ GAME_SERIAL ];
		var ImBlack = thisGame.BLACK == mineID;
		var ImWhite = thisGame.WHITE == mineID;

		//------------------------- I am player
		if( !ImBlack && !ImWhite ){
			alert( "対局権がありません。" );
			return;
		}

		if( thisGame.STATUS.match( /[BbDwW]/ ) ){
			if( callMode.match( /move|draw|resign|won|time|cancel/ ) ){
				alert( "終局しています。" );
				return;
			//----------------------- save
			}else if( callMode == 'save' ){
				if( thisGame.STATUS.match( ImBlack ? /[Ww]/ : /[Bb]/ )
					&& ( new Date() ).getTime() < ( ( thisGame.DATE_LAST + 3600 * 24 * 7 ) * 1000 )
				){
					alert( "納譜権利がありません。\n終局から7日経過すると、権利が発生します。"
/*
 + "\n" +
						( new Date( thisGame.DATE_LAST + 3600 * 24 * 1 ) * 1000 ).toLocaleString() + "\n" + ( new Date() ).toLocaleString()
*/
					);
					return;
				}

				if( !confirm( "この局をOVER-GAMEsへ「納譜」しますか?" ) ){
					return;
				}

			}
		}else if( thisGame.STATUS == 'P' ){
			//----------------------- limit time
			var getLimit = thisGame.LIMIT * 3600 * 24;

	//		if( getLimit && getLimit <= thisGame[ ImBlack ? "TIME_BLACK" : "TIME_WHITE" ] ){
			if( getLimit &&
				getLimit <= ( thisGame[ ImBlack ? "TIME_BLACK" : "TIME_WHITE" ] +
					( ( getNextTurn( thisGame.GEM_LINE ) ? ImBlack : ImWhite )
						? getAddTime( thisGame.DATE_LAST )
						: 0
					)
				)
			){
				alert( "タイムオーバーなので打てません。" );
				return;
			}
			if( callMode == 'save' ){
				alert( "対局中です" );
				return;
			}else if( callMode == 'move' ){
				callMode = checkGamePlayMove();		// 'move'/'swap'/false
				if( !callMode ){
					document.applets[ 0 ].setGemLineString( thisGame.GEM_LINE );
					return;
				}
			}else{
				if( !checkGamePlayMode( callMode ) ){
					return;
				}
				if( callMode == 'won' && !wonGame( thisGame.GEM_LINE, ImBlack ) ){
					if( ( getLastMove( thisGame.GEM_LINE ) & 1 ) == ( ImBlack ? 1 : 0 ) ){
						alert( "五連が並んだときか、相手が禁手を打ったときに押して下さい" );
						return;
					}else{
						callMode = 'pass';
					}
				}
			}

		}else{
			alert( "未知のコマンドです" );
			return;
		}
	}


	//------------------ call WtPBS by iframe
	callWtPBS( callMode, GAME_SERIAL );
//alert( callMode + "\n" + GAME_SERIAL );

	//------------------ team match member's name check
	Fobj.setAttribute( 'WAITing', true );

}



//=======================================
//	input check [game play]
//=======================================
function checkGamePlayMode( callMode ){

	var mineID = getCookie( 'ID' );

	var thisGame = GAME_LIST.PLAY[ GAME_SERIAL ];
	var ImBlack = thisGame.BLACK == mineID;
	var ImWhite = thisGame.WHITE == mineID;


	var getLimit = thisGame.LIMIT * 3600 * 24;


	var UrTimeOver = ( getLimit &&
			getLimit <= ( thisGame[ ImBlack ? "TIME_WHITE" : "TIME_BLACK" ] +
					( ( getNextTurn( thisGame.GEM_LINE ) ? ImWhite : ImBlack )
						? getAddTime( thisGame.DATE_LAST )
						: 0
					)
				)
		);

	//----------------------- reset time
	if( callMode == 'time' ){
		if( UrTimeOver ){
			return( confirm( "相手に時間を与えますか?" ) );
		}else{
			alert( "相手はタイムオーバーではありません" );
			return false;
		}
	}

	//----------------------- reset time
	if( callMode == 'cancel' ){
		if( UrTimeOver ){
			return( confirm( "相手がタイムオーバーになってます。\nあなたは、直ちにこの局を破棄する権利を持っています。\nこの局を「破棄」しますか?" ) );
		}

		if( thisGame.REQUEST == ( ImBlack ? "C" : "c" ) ){
			return confirm( "この局の「破棄」提案を取り消しますか?" );
		}else if( thisGame.REQUEST == ( ImBlack ? "c" : "C" ) ){
			return confirm( "この局の「破棄」に同意しますか?" );
		}else{
			return confirm( "この局の「破棄」を提案しますか?" );
		}
	}


	//----------------------- game over [ resign/draw/won ]
	var thisLastMove = getLastMove( thisGame.GEM_LINE );

	if( callMode == 'resign' || callMode == 'draw' || callMode == 'won' ){
		if( thisLastMove < 10 ){
			alert( "10珠以内では「投了」と「満局提案」と「勝局」を使えません" );
			return false;
		}
	}

	if( callMode == 'resign' ){
		return confirm( "投了しますか?" );
	}

	if( callMode == 'draw' ){
		if( thisGame.REQUEST == ( ImBlack ? "D" : "d" ) ){
			return confirm( "この局の「満局」提案を取り消しますか?" );
		}else if( thisGame.REQUEST == ( ImBlack ? "d" : "D" ) ){
			return confirm( "この局の「満局」に合意しますか?" );
		}else{
			return confirm( "満局提案しますか?" );
		}
	}

	if( callMode == 'won' ){

		var getGemLine = thisGame.GEM_LINE;

		if( getGemLine.match( /@[\+\-]/ ) ){
			alert( "「待った」と「代打ち」があるときは、勝局ボタンを押せません。" );
			return false;
		}

		if( ImBlack ){
			if( ( getLastMove( getGemLine ) & 1 ) == 1 ){
				return true;
			}
			alert( "最後の珠があなたの手ではありません" );
			return false;
		}else{
			return(
				( getLastMove( getGemLine ) & 1 ) == 0 ||
				confirm( "黒の最後の珠が禁手でない場合、白の手番をパスしたことになります" )
			);
		}


	}

	alert( "error mode [" + callMode + "]" );
	return false;


}




//=======================================
//	input check [game play]
//=======================================
function checkGamePlayMove(){


	var thisGame = GAME_LIST.PLAY[ GAME_SERIAL ];


	var gemLineOld = thisGame.GEM_LINE;
	var gemLineNew = "" + document.applets[ 0 ].getGemLine();

	var cutGemLineOld = gemLineOld.replace( /!---/, "" );
	var cutGemLineNew = gemLineNew.replace( /!---/, "" );


	//-------------------------------------------- Illegal change [ old --> new ]
	if( cutGemLineOld != "" &&
		cutGemLineOld.indexOf( cutGemLineNew ) == -1 &&
		cutGemLineNew.indexOf( cutGemLineOld ) == -1
	){
		alert( "譜が改竄されました。\\n送信を中止します。" );
		return false;
	}


	var mineID = getCookie( 'ID' );

	var ImBlack = mineID == thisGame.BLACK;
	var ImWhite = mineID == thisGame.WHITE;




	var pointerMoveOld = getLastMove( gemLineOld.replace( /!---.*$/, "" ) );
	var pointerMoveNew = getLastMove( gemLineNew.replace( /!---.*$/, "" ) );

	var lastestMoveOld = getLastMove( cutGemLineOld );
	var lastestMoveNew = getLastMove( cutGemLineNew );

	//-------------------------------------------- move mode check [ Undo/Extra/Accept ]
	var hasUndo = gemLineOld.match( /@\-/ );
	var hasExtra = gemLineOld.match( /@\+/ );




	//=====================================================================
	//	undo check [ has no new moves ]
	//=====================================================================
	if( lastestMoveOld == lastestMoveNew && pointerMoveNew < pointerMoveOld ){
		if( !thisGame.FLAGs.match( /U/ ) ){
			alert( "この局には「待った」が設定されていません" );
			return false;
		}
		//-------------------------------------------------------------------
		//	back to opponent [ request undo or accept part extra ]
		//-------------------------------------------------------------------
		if( ( pointerMoveNew & 1 ) == ( ImBlack ? 1 : 0 ) ){
			alert( "待ったミス\n最後を相手の珠にして下さい。" );
			return false;
		}

		if( pointerMoveNew < 3 ){
			alert( "珠型までしか戻せません" );
			return false;
		}


		document.applets[ 0 ].setGemLineString( setUndo( gemLineNew.replace( /@\+.+.*$/, "" ) ) );

		return "move";
	}


	//========================================================================
	//	accept part extra / accept part Undo [ has no new moves ]
	//========================================================================
	if( lastestMoveOld == lastestMoveNew && pointerMoveOld < Math.max( pointerMoveNew, lastestMoveOld ) ){

		//-------------------- old pointer <> new pointer
		if( ( pointerMoveOld & 1 ) != ( pointerMoveNew & 1 ) && pointerMoveNew < lastestMoveNew ){

			if( hasUndo ){
				alert( "待った同意ミス\n最後を相手の珠にして下さい" );
			}else{
				alert( "代打ち移動ミス\n最後を自分の珠にして下さい" );
			}
			return false;
/*
			if( hasUndo && pointerMoveNew < lastestMoveNew ){
				alert( "待った同意ミス\n最後を相手の珠にして下さい" );
				return false;
			}

			alert( "代打ち移動ミス\n最後を自分の珠にして下さい" );
			return false;
*/
		}

		//-------------------- old new pointer = mine
		if( ( pointerMoveOld & 1 ) == ( ImBlack ? 1 : 0 ) ){
			if( hasExtra ){
				if( pointerMoveNew == lastestMoveNew ){
					alert( "代打ち移動してません" );
					return false;
				}

				if( gemLineNew.match( /@\+..(.*)!\-\-\-/ ) ){
					var cutExtraGems = RegExp.$1;	
					document.applets[ 0 ].setGemLineString(
						gemLineOld.replace( /!\-\-\-.*$/, "!---" + cutExtraGems ).replace( /@\+..!\-\-\-$/, "" )
					);
				}else{
					document.applets[ 0 ].setGemLineString(
						gemLineOld
					);
				}
				return "trim";
			}

			if( hasUndo ){
				document.applets[ 0 ].setGemLineString(
					trimGemLine(
						gemLineNew.replace( /@\-../, "" ),
						thisGame.FLAGs.match( /L/ ) ? thisGame.GRADE : 0
					)
				//	gemLineNew.replace( /@\-../, "" ).replace( /!\-\-\-.*$/, "" )
				);

				if( pointerMoveNew < lastestMoveNew ){

if( gemLineNew.match( /!---(.*)$/ ) ){
	UNDO_LINE = RegExp.$1;
	status = UNDO_LINE;
}

					return confirm( "待ったを受諾しますか?" ) ? "trim" : false;
				}else{
					return "trim";
				}
			}

		}else if( hasUndo ){
			if( pointerMoveOld < pointerMoveNew ){
				document.applets[ 0 ].setGemLineString( setUndo( gemLineNew ) );
				return 'trim';
			}else{
				alert( "待った移動してません" );
				return false;
			}

		}else if( hasExtra ){
			document.applets[ 0 ].setGemLineString( gemLineNew.replace( /@\+../, "" ).replace( /!\-\-\-.*$/, "" ) );
			return 'trim';
		}

	}

	// hereafter, proof [ pointerMove = lastestMove ]


	//-----------------------------------------------------------------
	//	my turn @ opening 5th ?
	//-----------------------------------------------------------------
	var isNotMyTurn = false;


	if( lastestMoveOld == 5 ){
		if( ImBlack ){
			if( gemLineNew.match( /@_../ ) && !gemLineNew.match( /A5../ ) ){
				document.applets[ 0 ].setGemLineString( trimGemLine( gemLineNew, thisGame.FLAGs.match( /L/ ) ? thisGame.GRADE : 0 ) );
				return 'move';
			}
			isNotMyTurn = true;
		}
	}else if( lastestMoveOld < 5 ){
		if( ( lastestMoveOld & 1 ) == ( ImBlack ? 1 : 0 ) ){
			isNotMyTurn = true;
		}
	}else if( lastestMoveOld + 1 == lastestMoveNew ){
		if( ( lastestMoveOld & 1 ) == ( ImBlack ? 1 : 0 ) ){
			isNotMyTurn = true;
		}
	}else if( gemLineOld == gemLineNew && !hasUndo && !hasExtra ){
		alert( "次の珠を打って下さい。" );
		return false;
	}

	if( isNotMyTurn ){
		alert( "あなたの手番ではありません" );
		return false;
	}

	//-----------------------------------------------------------------
	//	right move ?
	//-----------------------------------------------------------------
	switch( lastestMoveOld ){
		case 1:
		case 2:
			alert( "データが壊れています。\n管理人に報告して下さい" );
			return false;
		case 0:

			if( ImBlack ){
				var errorOpening = isRightOpening( gemLineNew );
				if( errorOpening ){
					alert( errorOpening );			//XXXXXXXXXXXXXXXXXXXX
					return false;
				}
			}

			return "move";
		case 3:
			if( pointerMoveNew == 3 && !gemLineOld.match( /\$=/ ) ){
				return 'swap';
			}
			if( pointerMoveNew != 4 ){
				alert( "4珠目を打って下さい。" );			//XXXXXXXXXXXXXXXXXXXX
				return false;
			}

			return "move";
		case 4:
			if( isSymmetrical5th( gemLineNew ) == 1 ){
				alert( "同じ形になる五珠は、同時に打てません" );			//XXXXXXXXXXXXXXXXXXXX
				return false;
			}

			var matching5thMessage = isLegal5th( gemLineNew );
			if( matching5thMessage ){
				alert( matching5thMessage );
				return false;
			}

			return "move";
		case 5:
			if( !gemLineNew.match( /a6/ ) ){
				alert( gemLineNew.match( /A5/ )
					? "六珠目を打って下さい"
					: "五珠目を指定して下さい"
				);
				return false;
			}else if( ( lastestMoveOld & 1 ) == ( ImBlack ? 1 : 0 ) ){ 
				alert( "五手目では、代打ちの追加はできません" );
				return false;
			}

			break;
		default:
			break;

	}

	if( ( lastestMoveNew & 1 ) == ( ImBlack ? 0 : 1 ) ){
		alert( "最後の珠が自分の珠じゃない" );
		return false;
	}

	//-----------------------------------------------------------------
	//	with EXTRA moves ?
	//-----------------------------------------------------------------
	if( lastestMoveOld + 1 < lastestMoveNew ){

		if( !thisGame.FLAGs.match( /E/ ) ){
			alert( "この局には「代打ち」が設定されていません" );
			return false;
		}

		var getNewGem = cutGemLineNew.substring( cutGemLineOld.length );

		var extraGemLine;
		//--------------------------- not my turn
		if( ( lastestMoveOld & 1 ) == ( ImBlack ? 1 : 0 ) ){


			extraGemLine = ( hasExtra ? gemLineOld : ( cutGemLineOld + "@+hh!---" ) ) + getNewGem;

		//--------------------------- my turn
		}else{
			var cutMove = ( lastestMoveOld == 5 && gemLineOld.match( /@_/ ) ) ? 8 : 4;
			extraGemLine = cutGemLineOld.replace( /@[\+\-]../, "" ) + getNewGem.substr( 0, cutMove ) + "@+hh!---" + getNewGem.substring( cutMove );
		}

		document.applets[ 0 ].setGemLineString( transGemLine4send( extraGemLine ).replace( /@\-../, "" ) );
		return "move";

	}else{
		document.applets[ 0 ].setGemLineString( cutGemLineNew.replace( /@[\+\-]../, "" ) );
	}


	return 'move';

}



//===============================================================================================
//	set undo
/*

//----------------------------- 2008/01/29
		document.applets[ 0 ].setGemLineString( setUndo( gemLineNew.replace( /@\+(.+.*)$/, "" ) ) );
		UNDO_LINE = RegExp.$1;
*/
//===============================================================================================
function setUndo ( gemLine ){
	var gotoMove = getLastMove( gemLine );
	switch( gotoMove ){
		case 0:
		case 1:
		case 2:
		case 3:
		case 4:
		case 5:
		//	alert( gotoMove );
		//	return gemLine;
		//	break;

		default:
			gemLine = gemLine.replace( /(@[\+\-]..)/, "" ).replace( /!---/, "@-hh!---" );
			return gemLine.replace( /@\-hh!---$/, "!---" );
	}
	return gemLine;
}

//===============================================================================================
//	trim undo/extra

//	switch by pointer move
//===============================================================================================
function trimGemLine ( gemLine, thisGrade ){
	var gotoMove = getLastMove( gemLine );

	var gradePlus = Math.max( 0, Math.floor( thisGrade / 10 ) - thisGrade % 10 );



	//--------------------------------------- back to before 5th
	switch( gotoMove ){
		case 5:
			var count5th = 0;

			for( var pos=0; pos<gemLine.length; pos+=4 ){
				var cutGem = gemLine.substr( pos, 2 );
				if( cutGem == "A5" || cutGem == "@_" ){
					count5th++;
				}
			}

			//------------------------------------- undo 5th
			if( gemLine.match( /@_/ ) ){
				gemLine = ( gemLine
						.replace( /@_../g, "" )
						.replace( /!---.*$/,
							( "A0nOA0nNA0nMA0nL".substr( 0, gradePlus * 4 ) +
							"A0oOA0oNA0oMA0oLA0oKA0oJA0oIA0oHA0oGA0oFA0oEA0oDA0oCA0oBA0oA" ).substr( 0, 4*count5th ) + "!---"
						)
					);

			//------------------------------------- A5 --> @_
			}else if( 1 < count5th ){
		//	}else if( 1 < count5th && !gemLine.match( /a6[A-P]{2}/ ) ){
				gemLine = gemLine.replace( /a6[A-P]{2}.*$/, "" );
				while( gemLine.match( /(A5..)/ ) ){
					var A5XY = RegExp.$1.substr( 2, 2 ).toLowerCase();
					gemLine = gemLine.replace( new RegExp( RegExp.$1 ), "@_" + RegExp.$1.substr( 2, 2 ).toLowerCase() );
				}


			}

			break;
		case 4:
		case 3:
			var count5th = 0;

			for( var pos=0; pos<gemLine.length; pos+=4 ){
				var cutGem = gemLine.substr( pos, 2 );
				if( cutGem == "A5" || cutGem == "@_" ){
					count5th++;
				}
			}

			//------------------------------------- undo 5th
			if( gemLine.match( /@_/ ) ){
				gemLine = ( gemLine
						.replace( /@_../g, "" )
						.replace( /!---.*$/,
							( "A0nOA0nNA0nMA0nL".substr( 0, gradePlus * 4 ) + 
							"A0oOA0oNA0oMA0oLA0oKA0oJA0oIA0oHA0oGA0oFA0oEA0oDA0oCA0oBA0oA" ).substr( 0, 4*count5th ) + "!---"
						)
					);

			//------------------------------------- A5 --> @_
	//		}else if( 1 < count5th ){
			}else if( 0 < count5th ){
				gemLine = ( gemLine
						.replace( /(@-..)|(A5..)/g, "" )
						.replace( /!---.*$/,
							( "A0nOA0nNA0nMA0nL".substr( 0, gradePlus * 4 ) + 
							"A0oOA0oNA0oMA0oLA0oKA0oJA0oIA0oHA0oGA0oFA0oEA0oDA0oCA0oBA0oA" ).substr( 0, 4*count5th ) + "!---"
						)
					);

			}

			break;

	}


	//--------------------------------------- cut after pointer
	gemLine = gemLine.replace( /(@[\+\-]..)*!---.*$/, "" );

	if( gemLine.match( /(@[\+\-]..)/ ) ){
		return gemLine.replace( /@[\+\-]../, RegExp.$1 + "!---" );
	}else{
		return gemLine;
	}
}

/*
function gem2num (gem){
	if(isNaN(parseInt(gem,36))){
		return(-1);
	}
	return((parseInt(gem.substr(0,1),36)-10)*10+parseInt(gem.substr(1,1)));
}
*/

//================================================
//	equal 5th = suggested
//================================================
function isLegal5th ( GemLine ){
	var countGem = [];
	countGem.A0 = 0;
	countGem.A5 = 0;

	for( var pos=0; pos<GemLine.length ;pos+=4 ){
		if( GemLine.substr( pos, 2 ).match( /(A[05])/ ) ){
			countGem[ RegExp.$1 ] ++;
		}
	}


	return ( countGem.A0 == countGem.A5
		? false
		: ( countGem.A5
			? "五珠が足りません [ " + ( countGem.A5 - countGem.A0 ) + " ]"
			: "五珠を打って下さい"
		)
	);

}




//================================================
//	symmetrical 5th
//	-1:	GemLine is not correct
//	0:	not symmetrical
//	1:	symmetrical
//================================================
function isSymmetrical5th (GemLine){
	var GemPos = [];
	var gem5thSet = [];
	var pos = 0;
	var xp,yp;

	GemLine = GemLine.toUpperCase();
	for(pos=0;pos<GemLine.length;pos+=4){
		if(GemLine.charAt(pos)!='A'){
			continue;
		}
		var Gnum = GemLine.charAt(pos+1);
		if(Gnum<'1' || '5'<Gnum){
			continue;
		}
		xp = GemLine.charCodeAt(pos+2)-'A'.charCodeAt(0);
		yp = GemLine.charCodeAt(pos+3)-'A'.charCodeAt(0);

		if(Gnum=='5'){
			gem5thSet = gem5thSet.concat([[xp,yp]]);
		}else{
			GemPos[Gnum] = [xp,yp];
		}
	}

	var minX = Math.min(GemPos[1][0],GemPos[2][0],GemPos[3][0],GemPos[4][0]);
	var minY = Math.min(GemPos[1][1],GemPos[2][1],GemPos[3][1],GemPos[4][1]);
	var maxX = Math.max(GemPos[1][0],GemPos[2][0],GemPos[3][0],GemPos[4][0]);
	var maxY = Math.max(GemPos[1][1],GemPos[2][1],GemPos[3][1],GemPos[4][1]);

	var disSet = [[minX,minY],[minX,maxY],[maxX,minY],[maxX,maxY]];
	var disFromCorners = [];
	for(pos=0;pos<4;pos++){
		var corners = disSet[pos];
		var DisList = [];
		for(var Dnum=1;Dnum<=4;Dnum++){
			DisList[Dnum-1] = (Math.pow(GemPos[Dnum][0]-corners[0],2)+Math.pow(GemPos[Dnum][1]-corners[1],2)) * ((Dnum&1)?1:-1);
		}
		disFromCorners[pos] = DisList.sort(new Function("return(arguments[0]-arguments[1]);")).toString();
	}

	if(disFromCorners[0]!=disFromCorners[1] && disFromCorners[0]!=disFromCorners[2] && disFromCorners[0]!=disFromCorners[3] && disFromCorners[1]!=disFromCorners[2]){
		return(0);
	}

	//-------------------- check each 5th
	var checkSet = [];
	for(var A5num in gem5thSet){
		var x5 = gem5thSet[A5num][0];
		var y5 = gem5thSet[A5num][1];
		checkSet[A5num] = [];
		for(var Pnum in GemPos){
			xp = GemPos[Pnum][0];
			yp = GemPos[Pnum][1];

			checkSet[A5num] = checkSet[A5num].concat([Math.pow(xp-x5,2)+Math.pow(yp-y5,2)]);
		}
	}

	for(var Cnum in checkSet){
		var d1 = checkSet[Cnum][0];
		var d2 = checkSet[Cnum][1];
		var d3 = checkSet[Cnum][2];
		var d4 = checkSet[Cnum][3];

		for(var Tnum in checkSet){
			//-------------- same position
			if(gem5thSet[Cnum][0]==gem5thSet[Tnum][0] && gem5thSet[Cnum][1]==gem5thSet[Tnum][1]){
				continue;
			}

			if(d1==checkSet[Tnum][0] && d2==checkSet[Tnum][1] && d3==checkSet[Tnum][2] && d4==checkSet[Tnum][3]){
				return(1);
			}
			if(d1==checkSet[Tnum][2] && d2==checkSet[Tnum][3] && d3==checkSet[Tnum][0] && d4==checkSet[Tnum][1]){
				return(1);
			}
			if(d1==checkSet[Tnum][2] && d2==checkSet[Tnum][1] && d3==checkSet[Tnum][0] && d4==checkSet[Tnum][3]){
				return(1);
			}
			if(d1==checkSet[Tnum][0] && d2==checkSet[Tnum][3] && d3==checkSet[Tnum][2] && d4==checkSet[Tnum][1]){
				return(1);
			}
		}
	}

	return(0);

}


//==============================================
//	trans gem line for send
//==============================================
function transGemLine4send ( GemLine ){



	var pos;

	//---------------------------------- A0 must be top of string for "getLastMove()"
	var newGemLine = replaceNumberlessGems( GemLine );

	//---------------------------------- each moves
	var lastMove = getLastMove( GemLine );

	switch( lastMove ){
		case 0: break;		// none
		case 1:	break;		// Free 1st for Black turn
		case 2: break;		// Free 2nd


		case 3:
			if( GemLine == newGemLine ){
				newGemLine.match( /(A3..)/ );
				newGemLine = newGemLine.replace( /A3..($=ff)*/, RegExp.$1 + "$=ff" );
			}
			break;
		case 5:
			//----------------------------- put suggested 5th moves
			if( !newGemLine.match( /@_/ ) && !newGemLine.match( /a6[A-P]{2}/ ) ){
				newGemLine.match( /A5([A-O]{2})/ );
				newGemLine = newGemLine.replace( /A5[A-O]{2}/g, "A5" + RegExp.$1.toLowerCase() );


				newGemLine = newGemLine.replace( /A5/g, "@_" );
				newGemLine = newGemLine.replace( /A0../g, "" );
				//----------------------------- only one 5th
				if( !newGemLine.match( /@_..@_/ ) && newGemLine.match( /@_(..)/ ) ){
					newGemLine = newGemLine.replace( /@_../, "A5" + RegExp.$1.toUpperCase() );
				}
			}

			break;
		case 4:
			break;
		default:

			if( newGemLine.match( /(@_..)/ ) ){
				newGemLine.match( /(A5..)/ );
				var gem5th = RegExp.$1;
				newGemLine = newGemLine.replace( new RegExp( "@_" + gem5th.substring( 2 ).toLowerCase() ), "" );

				var other5th = "";
				while( newGemLine.match( /@_(..)/ ) ){
					var getGemXY = RegExp.$1;
					other5th += "A5" + getGemXY;
					newGemLine = newGemLine.replace( new RegExp( "@_" + getGemXY ), "" );
				}

				newGemLine = newGemLine.replace( new RegExp( gem5th ), gem5th + other5th );
			}
			break;
	}



/*

	//----------------------------------- ladder grade
	var swap = newGemLine.match( /\$[X=]/ ) ? 1 : 0;

	if( ( lastMove==4 || ( lastMove==3 && swap ) ) && document.getElementById( 'STATUS_LADDER' ).checked ){

		var IDblack = MEMO_GAME_LIST[ swap ? 'RETURNER' : 'OPENER' ];
		var IDwhite = MEMO_GAME_LIST[ swap ? 'OPENER' : 'RETURNER' ];

		var GradeBlack = -1;
		var GradeWhite = -1;


		if( IDblack != '*' && WHEREABOUTS_LIST[ IDblack ] != null ){
			GradeBlack = WHEREABOUTS_LIST[ IDblack ][ 2 ];
		}
		if( IDwhite != '*' && WHEREABOUTS_LIST[ IDwhite ] != null ){
			GradeWhite = WHEREABOUTS_LIST[ IDwhite ][ 2 ];
		}

		if( 0<=GradeBlack && 0<=GradeWhite ){
			var ladder5th = GradeBlack - GradeWhite;
			if( 0 < ladder5th && newGemLine.match( /A0oO/ ) ){
				newGemLine = newGemLine.replace( /A0n./g, "" ).replace( /A0oO/, "A0nOA0nNA0nMA0nL".substr( 0, 4*ladder5th )+"A0oO" );
			}
		}

	}

*/


	return newGemLine;
}