//==================================================
//	Web-time Playing Board System for Renju
//	2004/09/30~
//	2005/04/08~
//	2005/12/30~2006/12/02
//	2007/03/01~03/09
//	2007/03/23	Korean opening names
//==================================================

/*

*/


	var CURRENT_CALL = getCookie( "ID" );
	var CALL_PLAYer = [ getCookie( "ID" ), "" ];

	var HEAD_PLAYER = [ -1, -1 ];
	var SORT_PLAYER = 'ID';
	var ID_SPAN = 28;

	var TOTALs = 0;
	var FIND_COUNT = 0;

	var HAS_OPENed = false;
	var OTHER_AREA = [];


	var ACCESS_MESSAGE = "";


//	var isNN = navigator.appName.indexOf( "Netscape" )!=-1;

	var RDFA_SPAN = 29;

	if( screen.height < 700 ){
		RDFA_SPAN = 21;
	}else if( screen.height < 900 ){
		RDFA_SPAN = 25;
	}

	RDFA_SPAN = 27;

	var MASK_NAME = "???";

	var OPENing_FLAGs = {};

	var ID_LIST = {};
	var MINE_LIST = {};

	var HEAD_HASH = [ {}, {} ];


	var GAME_SERIAL = 0;
	var VIEW_SERIAL = 0;

	var FIND_COUNT = 0;

	var UNDO_LINE = "";


	var CANNOT_SAME_OPENINGS = true;



	var WAIT_MESSAGE = "送信中です。\nしばらくお待ち下さい。";


	var SERVER_CLOCK = 1745260619 - Math.floor( ( new Date() ).getTime() / 1000 );


	var MY_OPENINGS = [];


	var GAME_LIST = {
		OPEN : {},
		PLAY : {},
		OVER : {}
	};

	var GAME_HASH = [];


	var OPENing_FLAGs = {
		OPEN : {
			DIRECT : [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],
			INDIRECT : [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]
		},
		RETURN : {
			DIRECT : [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],
			INDIRECT : [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]
		}
	};








	var PLAYer_LIST = [];

	var HEAD = 0;
	var GAME_COUNT = 0;
	var OFFSET_HEAD = 0;
	var OFFSET_TAIL = 0;
	var GROUP_COUNT = 6;

	var CALL_GAME = [];



//==================================
//	make object
//==================================
function player( nickName, ladderGrade, fromRegion ){
	this.NICK = nickName;
	this.GRADE = ladderGrade;
	this.FROM = fromRegion;
}

//==================================
//	make tag command message
//==================================
function makeTagCommandMessage (){
	return "<a name='MESSAGE'></a><br>" +
		"<table align='center' style='width:100%;'><tr><td>" +
			"<div id='COMMAND_MESSAGE' nowrap style='height:5em;background-color:lightgreen;padding:1ex 5em;border-style:double;display:none;'>COMMAND_MESSAGE</div>" +
		"</td></tr></table>";
}

//==================================
//	command message
//==================================
function setCommandMessage( message, useButton ){

	//--------------------------------- move command message box
/*	try{
		with( isNN ? CATCH_AXIS : event ){
			callFloatBox( 'COMMAND_MESSAGE',
				document.body.scrollLeft + x -20,
				document.body.scrollTop + y -20
			);
		}
	}catch( errorMSG ){
	}
*/

	with( document.getElementById( 'COMMAND_MESSAGE' ) ){
		innerHTML = "<p>&spades; " + message + "</p>" +
			( useButton ? "<button type='button' onclick='shutCommandMessage();'>OK</button>" : "" );
		style.display = 'block';
		var boxWidth = clientWidth;
	}

	var Bobj = document.getElementById( 'COMMAND_MESSAGE' ).parentNode;	// parent = <td>
	FLOAT_HOME.COMMAND_MESSAGE = {		// parent = <tr><tbody><table>
		X : Bobj.parentNode.parentNode.parentNode.offsetLeft + Bobj.offsetLeft,
		Y : Bobj.parentNode.parentNode.parentNode.offsetTop + Bobj.offsetTop
	};

	FLOAT_HOME.COMMAND_MESSAGE.X += ( Bobj.clientWidth - boxWidth ) / 2;

	//--------------- standard function for FloatBox
	homeFloatBox( 'COMMAND_MESSAGE' );



	location.hash = "#OPEN_LIST";
//	document.getElementById( 'COMMAND_MESSAGE' ).style.display = 'block';


//	location.hash = "#MESSAGE";


}

function shutCommandMessage(){
	document.getElementById( "COMMAND_MESSAGE" ).style.display = 'none';
}

//==================================
//	submit by Ajax
//==================================
function submitWtPBS( searchString ){
	setCommandMessage( sendingMessage( searchString.MODE ), false );

	sendRequest( showRoom,
		searchString,
		"POST", "./WtPBSaccess.php", true, true
	);
}

//==================================
//	show list
//==================================
function showRoom ( XRobj ){
	try{
		eval( XRobj.responseText );
	}catch( errorMSG ){
	}

	//----------------------------- nominated
	var hasOpenedBox = document.getElementById( 'HAS_OPENed' );
	if( hasOpenedBox ){
		hasOpenedBox.innerHTML = HAS_OPENed ? "<div style='text-align:center;margin-top:1ex;'><button type='button' onclick='location.href=\"./OPEN-GAMEs.php?AREA=FengChu004&LNG=JPN\";'>OPEN-GAMEsで指名されました</button>" : "";
	}

	//----------------------------- other area
	var hasOtherAreaBox = document.getElementById( 'OTHER_AREA' );
	if( hasOtherAreaBox ){
		var tagString = "";
		for( var AREAkey in OTHER_AREA ){
			if( OTHER_AREA[ AREAkey ] ){
				tagString += "<a href='./PLAY-GAMEs.php?AREA=" + AREAkey + "&LNG=JPN' target='_self' style='margin:0 0.5ex;'>";
				tagString += "<img src='http://works28.renju.info/Marks/icon/" + AREAkey + "small.gif' border='0'>";
				tagString += "</a>";
			}
		}


		hasOtherAreaBox.innerHTML = "<div style='text-align:center;'>" + tagString + "</div>";
	}

	document.getElementById( 'PLAYer_BOX1' ).innerHTML = makeTagPlayersSelecter( 0, 'PLAYER1' );


	//----------------------------------
	//	set openings
	//----------------------------------
	if( CANNOT_SAME_OPENINGS ){
		setOpeningList();
	}





/*
	if( document.getElementById( 'PLAYER_NICK_BOX' ) ){
		document.getElementById( 'PLAYER_SHOW_BOX' ).innerHTML = makeSelectPlayersTag( 'PLAY', 'PLAYER1', 'NICK', CALL_PLAYer[ 0 ] );
	}

	if( document.getElementById( 'PLAYER_ID_BOX' ) ){
		document.getElementById( 'PLAYER_ID_BOX' ).innerHTML = makeSelectPlayersTag( 'PLAY', 'PLAYER1', 'ID', CALL_PLAYer[ 0 ] );
	}


	if( document.getElementById( 'PLAYER2_NICK_BOX' ) ){
		document.getElementById( 'PLAYER2_SHOW_BOX' ).innerHTML = makeSelectPlayersTag( 'PLAY', 'PLAYER2', 'NICK', CALL_PLAYer[ 1 ] );
	}

	if( document.getElementById( 'PLAYER2_ID_BOX' ) ){
		document.getElementById( 'PLAYER2_ID_BOX' ).innerHTML = makeSelectPlayersTag( 'PLAY', 'PLAYER2', 'ID', CALL_PLAYer[ 1 ] );
	}
*/


	if( document.getElementById( 'TOTAL_GAMEs' ) ){
		document.getElementById( 'TOTAL_GAMEs' ).innerHTML = TOTALs;
	}

	if( document.getElementById( 'SEARCH_GAMEs' ) ){
		document.getElementById( 'SEARCH_GAMEs' ).innerHTML = FIND_COUNT;
	}

	try{
		with( document.getElementById( 'FORM_PLAY' ) ){
			setAttribute( 'WAITing', null );
	//		WAITing = false;
			MESSAGE.value = "";
		}
	}catch( errorMSG ){
		alert( errorMSG );
	}



	GAME_HASH = [];

	for( var GMnum in GAME_LIST.PLAY ){
		GAME_HASH = GAME_HASH.concat( [ parseInt( GMnum ) ] );
	}
	var mineID = getCookie( 'ID' );
	GAME_HASH.sort( function( Anum, Bnum ){
				var Alist = GAME_LIST.PLAY[ Anum ];
				var Blist = GAME_LIST.PLAY[ Bnum ];

				var Aget = 0;
				var Bget = 0;

				with( Alist ){
					Aget += ( getNextTurn( GEM_LINE ) ? BLACK : WHITE ) == mineID ? (STATUS == 'P' ? 100 : 50) : 0;
					Aget += GEM_LINE.match( /@\-/ ) ? 10 : 0;
					Aget += STATUS == 'P' ? 0 : 1;
				}

				with( Blist ){
					Bget += ( getNextTurn( GEM_LINE ) ? BLACK : WHITE ) == mineID ? (STATUS == 'P' ? 100 : 50) : 0;
					Bget += GEM_LINE.match( /@\-/ ) ? 10 : 0;
					Bget += STATUS == 'P' ? 0 : 1;
				}

				if( Aget != Bget ){
					return Aget < Bget ? 1 : -1;
				}

				return 0;
			} );

	viewGame( 'PLAY', VIEW_SERIAL ? VIEW_SERIAL : GAME_HASH.length ? GAME_HASH[ 0 ] : 0 );

	document.getElementById( 'GAME_TABLE' ).innerHTML = makeGameTable();

	if( document.getElementById( 'GAME_SELECTER_BOX' ) ){
		document.getElementById( 'GAME_SELECTER_BOX' ).innerHTML = makeTagGameSelecterTag( 'PLAY', 'GAMEs', 'NICK' );
	}




	if( ACCESS_MESSAGE ){
		setCommandMessage( ( ACCESS_MESSAGE
				? accessMessage( ACCESS_MESSAGE )
				: "You got it !"
			), true
		);
	}else{
		if( WtPBS_COMMAND == 'view' ){
			shutCommandMessage();
		}else{
			setCommandMessage( WtPBS_COMMAND, true );
		}
		setTimeout( shutCommandMessage, 5000 );
	}
}

//==================================
//	call by iframe
//
//	mode: OPEN, JOIN, ....
//==================================
function callWtPBS( mode, gameSerial ){

	VIEW_SERIAL = gameSerial;

	try{
		var getGemLine = "" + document.applets[0].getGemLine();

	}catch( errorMSG ){
		status = "read applets error";
	}

var memo = 0;

	var searchObj = {
		AREA : "FengChu004",
		ROOM : "PLAY",


		PLAYER1 : CALL_PLAYer[ 0 ],
		PLAYER2 : CALL_PLAYer[ 1 ],

		HEAD_PLAYER_1 : HEAD_PLAYER[ 0 ],
		HEAD_PLAYER_2 : HEAD_PLAYER[ 1 ]

	};

	try{
		var FOobj = document.getElementById( 'FORM_OPEN' );
		var FPobj = document.getElementById( 'FORM_PLAY' );
		var FVobj = document.getElementById( 'FORM_OVER' );
		var FGobj = document.getElementById( 'FORM_GTB' );

		if( GAME_LIST.PLAY && GAME_LIST.PLAY[ gameSerial ] ){
			searchObj.GEM_LINE = GAME_LIST.PLAY[ gameSerial ].GEM_LINE;
		}else{
			searchObj.GEM_LINE = "";
		}

		if( mode == 'view' ){
			searchObj.MODE = 'view';
			searchObj.SERIAL = 0;



			if( document.getElementById( 'VIEW_NAME_NICK' ).checked ){
				searchObj.SORT_PLAYER = "NICK";
			}else{
				searchObj.SORT_PLAYER = "ID";
			}







			submitWtPBS( searchObj );
		}

		//--------------------------------------- open new game
		if( mode == 'open' ){

			searchObj.MODE = 'new';

			with( FOobj ){
				searchObj.FLAGs = "";

				if( STATUS_UNDO.checked ){ searchObj.FLAGs += "U"; }
				if( STATUS_EXTRA.checked ){ searchObj.FLAGs += "E"; }
				if( STATUS_VIEW.checked ){ searchObj.FLAGs += "V"; }
				for( var Onum=0; Onum<STATUS_MODE.length; Onum++ ){
					if( STATUS_MODE[ Onum ].checked ){ searchObj.FLAGs += STATUS_MODE[ Onum ].value; }
				}

				searchObj.MESSAGE = MESSAGE.value;
				searchObj.PLAYER1 = PLAYER1.value;
				searchObj.LIMIT = LIMIT.value;

			}


			searchObj.GEM_LINE = replaceNumberlessGems( getGemLine );

			searchObj.OPENing = getOpeningNumber( getGemLine );

			searchObj.GRADE = MINE_LIST.GRADE;

			submitWtPBS( searchObj );
		}
		if( mode == 'cancel' ){
			searchObj.MODE = 'cancel';
			searchObj.SERIAL = gameSerial;

			searchObj.OPENing = getOpeningNumber( searchObj.GEM_LINE );

			submitWtPBS( searchObj );
		}
		if( mode == 'join' || mode == 'call' ){
			searchObj.MODE = 'join';
			searchObj.SERIAL = gameSerial;
			searchObj.GRADE = MINE_LIST.GRADE;

			submitWtPBS( searchObj );
		}
		if( mode == 'message' ){
			searchObj.MODE = 'message';
			searchObj.SERIAL = gameSerial;
			searchObj.MESSAGE = FPobj.MESSAGE.value;
			searchObj.GEM_LINE = GAME_LIST.PLAY[ gameSerial ].GEM_LINE;

			submitWtPBS( searchObj );
		}
		if( mode == 'time' ){
			searchObj.MODE = 'time';
			searchObj.SERIAL = gameSerial;
			searchObj.MESSAGE = FPobj.MESSAGE.value;

			submitWtPBS( searchObj );
		}
		if( mode == 'draw' ){
			searchObj.MODE = 'draw';
			searchObj.SERIAL = gameSerial;
			searchObj.MESSAGE = FPobj.MESSAGE.value;
			searchObj.GEM_LINE = GAME_LIST.PLAY[ gameSerial ].GEM_LINE;

			submitWtPBS( searchObj );
		}
		if( mode == 'resign' ){
			searchObj.MODE = 'lost';
			searchObj.SERIAL = gameSerial;
			searchObj.MESSAGE = FPobj.MESSAGE.value;
			searchObj.GEM_LINE = GAME_LIST.PLAY[ gameSerial ].GEM_LINE;

			submitWtPBS( searchObj );
		}
		if( mode == 'won' ){
			searchObj.MODE = 'won';
			searchObj.SERIAL = gameSerial;
			searchObj.MESSAGE = FPobj.MESSAGE.value;
if( confirm( searchObj.MODE + ' OK?' ) ){

			submitWtPBS( searchObj );
}
		}
		if( mode == 'save' ){
			searchObj.MODE = 'save';
			searchObj.SERIAL = gameSerial;
			searchObj.MESSAGE = FPobj.MESSAGE.value;

			submitWtPBS( searchObj );
		}

			
		if( mode == 'move' || mode == 'swap' || mode == 'trim' || mode =='pass' ){
			searchObj.MODE = mode == 'swap' ? 'swap' : 'move';
			searchObj.SERIAL = gameSerial;
			searchObj.MESSAGE = FPobj.MESSAGE.value;

			if( mode == 'pass' ){
				searchObj.GEM_LINE = getGemLine.replace( /!---/, num2gem( getLastMove( getGemLine ) + 1 ) + "PP" + "!---" );
			}else if( mode == 'trim' ){
				searchObj.GEM_LINE = getGemLine;
			}else{
				searchObj.GEM_LINE = transGemLine4send( getGemLine );
			}
//------ 2008/01/29
searchObj.UNDO = UNDO_LINE;
UNDO_LINE = "";

			searchObj.OPENing = ( getOpeningNumber( GAME_LIST.PLAY[ gameSerial ].GEM_LINE )
				? 0
				: getOpeningNumber( getGemLine )
			);

			searchObj.DATE_LAST = GAME_LIST.PLAY[ gameSerial ].DATE_LAST;

			submitWtPBS( searchObj );
		}
		if( mode == 'over' ){
			searchObj.MODE = 'over';
			searchObj.HEAD = gameSerial;

			for( var pos=0; pos < FVobj.SORT.length; pos++ ){
				if( FVobj.SORT[ pos ].checked ){
					var sortKey = FVobj.SORT[ pos ].value;
					if( FVobj.DIRECTION.checked ){
						sortKey = sortKey.toLowerCase();
					}
					searchObj.SORT = sortKey;
					break;
				}
			}
			if( !searchObj.SORT ){
				searchObj.SORT = "DATE";
			}


			searchObj.FLAGs = "";
			if( FVobj.FLAG_NORMAL.checked ){ searchObj.FLAGs += "N"; }
			if( FVobj.FLAG_LADDER.checked ){ searchObj.FLAGs += "L"; }
			if( FVobj.FLAG_MASK.checked ){ searchObj.FLAGs += "M"; }
			if( !searchObj.FLAGs ){ searchObj.FLAGs = "N"; }

			searchObj.TURN = "";
			if( FVobj.TURN_BLACK.checked ){ searchObj.TURN += "B"; }
			if( FVobj.TURN_WHITE.checked ){ searchObj.TURN += "W"; }
			if( !searchObj.TURN ){ searchObj.TURN = "BW"; }

			searchObj.PLAYER1 = FVobj.PLAYER1.value;
			searchObj.PLAYER2 = FVobj.PLAYER2.value;

			searchObj.GEM_LINE = FVobj.MY_OPENINGs.value;

			searchObj.OPENing = FVobj.MY_OPENINGs.value;
	//			OPENing.value = getOpeningNumber( FVobj.MY_OPENINGs.value );


			var readSerial = parseInt( FVobj.SERIAL.value );
			if( isNaN( readSerial ) ){
				FVobj.SERIAL.vaule = '0';
				readSerial = 0;
			}

			searchObj.SERIAL = readSerial;

clearBoard ();


			submitWtPBS( searchObj );
		}
		if( mode == 'GTB' ){
			searchObj.MODE = 'GTB';

			searchObj.TURN = "";
			if( FGobj.TURN_BLACK.checked ){ searchObj.TURN += "B"; }
			if( FGobj.TURN_WHITE.checked ){ searchObj.TURN += "W"; }
			if( !searchObj.TURN ){ searchObj.TURN = "BW"; }

			searchObj.PLAYER1 = FGobj.PLAYER1.value;
			searchObj.PLAYER2 = FGobj.PLAYER2.value;


			searchObj.FLAGs = FGobj.SYMMETRICAL.checked ? "S" : "";

			searchObj.GEM_LINE = trimGemLineForSearch( getGemLine );


			submitWtPBS( searchObj );
		}
	}catch( errorMSG ){
		alert( "callWtPBS [ " + mode + " ]\n" + memo + errorMSG );
		status = "callWtPBS [ " + mode + " ]" + memo + "/" + errorMSG;
	}


/*
AREA='arbor28';
TOTALs=2438;
FIND_COUNT=405;
OPENing_FLAGs={OPEN:{DIRECT:[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],INDIRECT:[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1]},RETURN:{DIRECT:[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],INDIRECT:[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]}};
GAME_LIST={};
HEAD_LIST={};
//GTB_LIST=[{SERIAL:0,BLACK:'',WHITE:'',RESULT:190,GEM_LINE:'A1HHa2IG'},{SERIAL:0,BLACK:'',WHITE:'',RESULT:215,GEM_LINE:'A1HHa2HG'}];
SEARCH_LINE='';
HEAD=0;
OFFSET_HEAD=0;
OFFSET_TAIL=12;

PLAYer_LIST={LLIO:405,jun:99,tiku:430,furuta:156,pikatama:54,Michael:529,kogetu:326,aochan:280,shinchan:132,sitirin:223,chierin:31,yuzu:52,yudoufu:135,FreeAngel:69,EO7:29,HPO:116,Canae:295,Ragwat:9,kirie:79,rin1117:66,tatsuya7:559,mikkoi:17,mark2005:78,ennenn:45,katibosi:19,mariapa:1,koichi518:6,chikara:323,win_ufo:58,tetubin:18,Tross:39,OITI:2,mami:1,ayako:10,iinioi:15,zalgo13:12,zuibunhidoi:90,fumika:66,yayaya2:2};
MESSAGE_LIST={};
ACCESS_MESSAGE='';
CALL_GAME={SERIAL:0,OWNer:'',BLACK:'',WHITE:''};
CALL_PLAYer=['LLIO','*'];
*/

}

//===========================================
//	won game
//===========================================
function wonGame ( getGL, myTurn ){

	var Gpos = getGL.indexOf( "!---" );
	var getX = getGL.charCodeAt( Gpos - 2 ) - 65;
	var getY = getGL.charCodeAt( Gpos - 1 ) - 65;
	if( getX<0 || 14<getX || getY<0 || 14<getY ){
		return false;
	}

	setPiles( getGL );

	if( myTurn ){
		return( isWon( getX, getY, true ) );
	}else{
		return( isWon( getX, getY, false ) || isFoul( getX, getY ) );
	}

}

//========================================
//	trans number to RDFA gem string
//========================================
function num2gem ( num ){
	if( 225<num ){
		return( "" );
	}

	var c1 = Math.floor( num/10 );
	var c2 = num%10;

	return( String.fromCharCode( ( ( num & 1 ) ? "A" : "a" ).charCodeAt( 0 ) + c1, "0".charCodeAt( 0 ) + c2 ) );
}

//==================================
//	access message
//==================================
function accessMessage( modeKey ){
	if( modeKey == 'join' ){
		return '参加に失敗しました' + "\nNo." + CALL_GAME.SERIAL;
	}else if( modeKey == 'JOIN' ){
		return '参加しました' + "\nNo." + CALL_GAME.SERIAL;
	}else if( modeKey == 'join_game' ){
		return '参加に失敗しました\n20局以上同時進行できません' + "\nNo." + CALL_GAME.SERIAL;
	}else if( modeKey == 'max_game' ){
		return '開局に失敗しました\n全体で400局以上同時進行できません';
	}else if( modeKey == 'max_mine' ){
		return '開局に失敗しました\n１人で20局以上同時進行できません';
	}else if( modeKey == 'max_open' ){
		return '開局に失敗しました\n１人で10局以上同時に開けません';
	}else if( modeKey == 'last' ){
		return '着珠に失敗しました';
	}else if( modeKey == 'cancel' ){
		return 'キャンセルに失敗しました';
	}

	return modeKey;
}
//==================================
//	access message
//==================================
function sendingMessage( modeKey ){
	if( modeKey == 'view' ){
		return '読み込み中';
	}

	return modeKey;
}

//==================================
//	tag iframe
//==================================
function changeIframeById ( roomType ){
	submitWtPBS( {
		AREA : "FengChu004",
		ROOM : "PLAY",
		LANGUAGE : "JPN",
		PLAYER1 : document.getElementById( "PLAYER1" ).value
	} );
}

/*
	var callID = document.getElementById( "PLAYER1" ).value;
	with( document ){
		getElementById( "WtPBS_FRAME" ).src = "./WtPBSaccess.php?AREA=FengChu004&LANGUAGE=JPN&ROOM=" + roomType +
				"&CALL=" + callID +
				"&RELOAD=" + ( new Date() ).getTime();
	}
//===================================
//	make Players Selecter tag
//===================================
function makeSelectPlayersTag( roomType, CGIkey, sortMode, defaultID ){


	return "[SelectPlayers]";
}

*/


//==============================
//	make flag tag
//==============================
function makeFromFlagTag( callFrom ){
	return( "/JPN/KOR/CHN/UKR/RUS/EST/SWE/ARM/AZE/UZB/LVA/BLR/POL/FIN/USA/".match( "/"+callFrom+"/" )
		? "<img src='../LoginPHP/NationalFlag/"+callFrom+".gif' border='1' alt='"+callFrom+"' style='width:1.5em;height:1em;'>"
		: callFrom
	);
}

//===================================
//	make Players Selecter tag
//===================================
function setPlayers( Sobj ){
	var IDkey = Sobj.value;

	var PIobj = document.getElementById( 'PLAYER_INFOMATION' );

	if( IDkey == '*' ){
		PIobj.innerHTML = "ここに、指名者の情報が出ます";
	}else if( ID_LIST[ IDkey ] ){
		with( ID_LIST[ IDkey ] ){
			PIobj.innerHTML = "<table style='width:100%;font-size:smaller;'><col>" +
				"<tr><th class='backGray'>NICK</th><td nowrap>" + NICK + "</td>" +
				"<th nowrap class='backGray'>段級</th>" +
				"<td nowrap>" + makeTitleText( TITLE ) + "</td>" +
				"</tr>" +
				"<tr>" +
				"<th class='backGray'>ID</th><td>" + IDkey + "</td>" +
				"<th nowrap class='backGray'>ｸﾞﾚｰﾄﾞ</th>" +
				"<td>" + ( GRADE + 1 ) + "</td>" +
				"</tr>" +
				"<tr>" +
				"<th nowrap class='backGray'>来自</th><td>" + makeFromFlagTag( FROM ) + "</td>" +
				"</tr>";
		}
	}else{
		Sobj.blur();
		HEAD_PLAYER[ 0 ] = IDkey;
		callWtPBS( 'view', 0 );
	}
}


//================================
//	change search
//================================
function changeSearch ( key2val ) {
	var getSearch = location.search;
	getSearch = getSearch.replace( /^(\?|&)/, "" ) + "&";

	with( key2val ){
		for( var KEYnum in key2val ){
			getSearch = getSearch.replace( new RegExp( KEYnum + "=[^&]*&", "g" ), "" ) + KEYnum + "=" + key2val[ KEYnum ] + "&";
		}
	}
	location.search = "?" + getSearch.replace( /&$/, "" );

}


//==================================
//	call player
//==================================
function callPlayer( playerNumber, Sobj ){

	var IDkey = Sobj.value;

	Sobj.blur();

	if( IDkey == '*' ){
		HEAD_PLAYER[ playerNumber ] = -1;
		CALL_PLAYer[ playerNumber ] = '*';
	}else if( ID_LIST[ IDkey ] ){
		HEAD_PLAYER[ playerNumber ] = ID_LIST[ IDkey ].HEAD;
		CALL_PLAYer[ playerNumber ] = IDkey;
	}else{
		HEAD_PLAYER[ playerNumber ] = IDkey;
	}
	callWtPBS( 'view', 0 );
}


//==================================
//	next player
//==================================
function nextPlayer( playerNumber, Sobj ){
	var IDkey = Sobj.value;

	if( IDkey == '*' ){
		HEAD_PLAYER[ playerNumber ] = -1;
	}else if( ID_LIST[ IDkey ] ){
		for( var HHnum in HEAD_HASH[ playerNumber ] ){
			if( IDkey == HEAD_HASH[ playerNumber ][ HHnum ] ){
				HEAD_PLAYER[ playerNumber ] = parseInt( HHnum );
				break;
			}
		}
	}else{
		Sobj.blur();
		HEAD_PLAYER[ playerNumber ] = IDkey;
		callWtPBS( 'over', 0 );
	}
}


/*
		submitWtPBS( {
			MODE : 'view',
			AREA : "FengChu004",
			ROOM : "PLAY",
			LANGUAGE : "JPN",
			PLAYER1 : IDkey
		} );
*/
//===================================
//	make tag Players Selecter
//

//	SORT_PLAYER : ID/NICK/GRADE

//	TOTAL_MEMBERs
//	HEAD_PLAYER
//===================================



function makeTagPlayersSelecter( hashNumber, CGIkey ){

	var isMainShow = SORT_PLAYER == 'NICK';


	var tagString = "<select name='" + CGIkey + "' id='" + CGIkey + "' style='font-size:100%;' " +
			"onchange='callPlayer(" + hashNumber + ",this);" + "'" +

		">";

	var Mnum = 0;





	//-----------------------------------
	//	extra options [before]
	//-----------------------------------
	var headPos = HEAD_PLAYER[ hashNumber ];
	for( var HDnum in HEAD_HASH[ hashNumber ] ){
		headPos = parseInt( HDnum );
		break;
	}

	var page = 0;
	var optString = "";
	while( 0 < headPos ){
		headPos += -ID_SPAN;
		optString = "<option value='" + Math.max( 0, headPos ) + "' style='background-color:lightgreen;'>" + (--page) + " page [" + ( 1 + Math.max( 0, headPos ) ) +
		"]</option>" + optString;

	}
	tagString += optString;



//	tagString += "<optgroup label='" + ( isMainShow ? "NICK-NAME" : "ID" ) + "'>";


	var lastHead = -1;

	for( var HDnum in HEAD_HASH[ hashNumber ] ){
		var IDkey = HEAD_HASH[ hashNumber ][ HDnum ];

		lastHead = parseInt( HDnum );



	//	if( PLAYer_LIST[ IDkey ] == null ){ continue; }





		tagString += "<option value='" + IDkey + "' style='padding-left:1em;'" +
//			"background-color:" + [ "#fff", "#ff3", "#fc3", "#f93", "#f63" ][ ID_LIST[ IDkey ].GRADE ] +
			"'" +
			( lastHead == HEAD_PLAYER[ hashNumber ] ? " selected" : "" ) +
			">" +
			( ID_LIST[ IDkey ].GRADE + 1 ) + "G [" + ( lastHead + 1 ) + "] " + ( SORT_PLAYER == 'NICK'
				? getShowName( IDkey )
				: IDkey
			) + "</option>";

	}

		tagString += "<option value='*'" + ( CALL_PLAYer[ 0 ] == '*' ? " selected" : "" ) + ">" + MASK_NAME + "</option>";



//	tagString += "</optgroup>";




	//-----------------------------------
	//	extra options [after]
	//-----------------------------------
	if( 0 <= lastHead ){
		var limitHead = TOTAL_MEMBERs;	// mine ID no count
		var headPos = lastHead + 1;
		var page = 0;
		while( headPos < limitHead ){
			tagString += "<option value='" + ( Math.min( limitHead - 1, headPos ) ) + "' style='background-color:lightgreen;'>+" + (++page) + " page" + " [" + ( Math.min( limitHead - 1, headPos ) + 1 ) + "]</option>";
			headPos += ID_SPAN;
		}
	}












	tagString += "</select>";




	return tagString;
}















//==================================
//	set Opening
//==================================
function setOpening ( OpeningGemLine ){
	var getBoard = document.applets[0].getGemLine()+"";
	if( !getBoard.match( /a4/ ) && !getBoard.match( /A0[a-o][A-O]/ ) ){
		document.applets[0].setGemLineString( OpeningGemLine );
	}
}




//=======================================================================================================
//	set Opening selecter used color
//
//	OPENing_FLAGs
/*
	OPENing_FLAGs.OPEN.DIRECT = [ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 ];
	OPENing_FLAGs.OPEN.INDIRECT = [ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0 ];
	OPENing_FLAGs.RETURN.DIRECT = [ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0 ];
	OPENing_FLAGs.RETURN.INDIRECT = [ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0 ];


	OPENINGs_LIST.INDIRECT[ 26 ].TITLE = '大彗星';
	OPENINGs_LIST.DIRECT[ 1 ].SHAPE = 'A1HHa2HGA3HF';
*/
//=======================================================================================================
function setOpeningList(){

	with( document.getElementById( 'MY_OPENINGs' ) ){

		for( var Onum = 0; Onum < 13; Onum ++ ){
			options[ Onum + 13 * 0 ].style.backgroundColor = OPENing_FLAGs.OPEN.DIRECT[ Onum ] ? "orange" : "transparent";
			options[ Onum + 13 * 1 ].style.backgroundColor = OPENing_FLAGs.OPEN.INDIRECT[ Onum ] ? "orange" : "transparent";
			options[ Onum + 13 * 2 ].style.backgroundColor = OPENing_FLAGs.OPEN.DIRECT[ Onum + 13 ] ? "orange" : "transparent";
			options[ Onum + 13 * 3 ].style.backgroundColor = OPENing_FLAGs.OPEN.INDIRECT[ Onum + 13 ] ? "orange" : "transparent";

		}
	}
}

//=======================================================================================================
//	make Opening selecter tag
//
//	OPENing_FLAGs
//=======================================================================================================
function makeTagOpeningSelecter(){

	var makeTag = "<select name='MY_OPENINGs' id='MY_OPENINGs' size='6' style='height:100%;font-size:100%;' " +
			"onclick='this.onchange();' onchange='setOpening(this.value);'" +
		">";

	var Onum;


	makeTag += "<optgroup label='直接'>";
	for( Onum=0; Onum<13; Onum++ ){
		makeTag += "<option value='" + OPENINGs_LIST.DIRECT[ Onum + 1 ].SHAPE + "'>" +
				( Onum + 1 ) + ": " + OPENINGs_LIST.DIRECT[ Onum + 1 ].TITLE + "</option>";
	}
	makeTag += "</optgroup>";

	makeTag += "<optgroup label='間接'>";

	for( Onum=0; Onum<13; Onum++ ){
		makeTag += "<option value='" + OPENINGs_LIST.INDIRECT[ Onum + 1 ].SHAPE + "'>" +
				( Onum + 1 ) + ": " + OPENINGs_LIST.INDIRECT[ Onum + 1 ].TITLE + "</option>";
	}
	makeTag += "</optgroup>";

	makeTag += "<optgroup label='大珠型 直接'>";
	for( Onum=13; Onum<26; Onum++ ){
		makeTag += "<option value='" + OPENINGs_LIST.DIRECT[ Onum + 1 ].SHAPE + "'>" +
				( Onum + 1 ) + ": " + OPENINGs_LIST.DIRECT[ Onum + 1 ].TITLE + "</option>";
	}
	makeTag += "</optgroup>";

	makeTag += "<optgroup label='大珠型 間接'>";
	for( Onum=13; Onum<26; Onum++ ){
		makeTag += "<option value='" + OPENINGs_LIST.INDIRECT[ Onum + 1 ].SHAPE + "'>" +
				( Onum + 1 ) + ": " + OPENINGs_LIST.INDIRECT[ Onum + 1 ].TITLE + "</option>";
	}
	makeTag += "</optgroup>";

	makeTag += "</select>";

	return makeTag;
}




//=======================================
//	is right opening
//=======================================
function isRightOpening( OpeningGemLine ){
	//------------------ opener
	if( !OpeningGemLine || getLastMove( OpeningGemLine ) < 3 ){
		return( "珠型を打って下さい。" );
	}

	//------------------ set gem line
	var thisOpeningNumber = getOpeningNumber( OpeningGemLine );
	var thisOpeningName = getOpeningName( OpeningGemLine );

	var errorOpening = null;
	if( thisOpeningNumber ){
		if( CANNOT_SAME_OPENINGS && OPENing_FLAGs.OPEN[ 0 < thisOpeningNumber ? "DIRECT" : "INDIRECT" ][ Math.abs( thisOpeningNumber ) - 1 ] ){
			errorOpening = "この珠型は既に使われています。\n26珠型を使い切らないと同じ珠型を提示できません。";
		}

		if( !OpeningGemLine.match( /A0[A-O]{2}/ ) ){
			errorOpening = "題数分のベタ珠を打って下さい。";
		}

	}else{
		errorOpening = "未知の珠型は提示できません。";
	}

	return( errorOpening );
}





//===================================================================================================
//	draw game table

//	REG_ID is impossible
// [70,'LLIO','',1096915601,'0V',60,['*',0,0,0],['LLIO',0,0,0],'A1HH!---',[[0,'8^-^8']]],

//	mode = 0:Open/1:Play/2:Hold/3:Over

//===================================================================================================

function makeGameTable(){

	var mineID = '';

	var tagString = "";


	//--------------------------- draw table
	tagString += "<table align='center' border='10' cellspacing='0' class='backWhite'>";

	tagString += "<colgroup style='text-align:center;'>" +
			"<col class='backBlack'>" +
			"<col span='8'>" +
		"</colgroup>";

	tagString += "<col style='vertical-align:top;padding:0px 1ex;'>";



	//--------------------------- header tag
	var headerString = "<tr class='backBlack'><th rowspan='2'>No.</th>";

	headerString += "<th rowspan='2' style='padding:0px 1ex;text-align:center;border-right-style:none;'>黒</th>";

	headerString += "<th style='font-size:1ex;border-bottom-style:none;border-left-style:none;'>&nbsp;</td>";
	headerString += "<th style='font-size:1ex;border-bottom-style:none;border-right-style:none;'>&nbsp;</td>";

	headerString += "<th rowspan='2' style='padding:0px 1ex;text-align:center;border-left-style:none;'>白</th>";



	headerString += "<th colspan='4'>設定</th>";

/*
	headerString += "<th rowspan='2'>"+( isOpen ? "開局日" : "最終珠" ) + "</th>";
*/


	headerString += "<th rowspan='2' style='vertical-align:middle;'>一言</th></tr>";




	headerString += "<tr class='backGray' style='font-size:smaller;'>";

	headerString += "<td nowrap colspan='2' style='text-align:center;'>情報</td>";

	headerString += "<td title='待った'>待</td><td title='代打ち'>代</td><td title='観戦OK'>観</td>";

/*
	headerString += "<td title='待った'>待</td><td title='代打ち'>代</td><td title='観戦OK'>観</td><td title='対局設定'>局</td>";
*/
	headerString += "<td>持日数</td></tr>";






	var buttonList = {
		cancel : {
			TITLE : "取消",
			CONFIRM : "取消 ?"
		},
		join : {
			TITLE : "参加",
			CONFIRM : "参加 ?"
		},
		call : {
			TITLE : getShowName( mineID ),
			CONFIRM : "参加 ?"
		}
/*
"指名"
*/
	};


	var linePos = 0;

	var joinableList = [];



	for( var Gpos in GAME_HASH ){
		var Gnum = GAME_HASH[ Gpos ];
		var pickUpGame = GAME_LIST.PLAY[ Gnum ];






		//---------------------------- header
		if( linePos % 10 == 0 ){
			tagString += headerString;
		}


		//---------------------------- header
		tagString += "<tr" + ( linePos & 1 ? " style='background-color:#ffd;'" : "" ) + ">";

		//-----------------------------------------------
		//	game number [OPEN:rare/PLAY:button]
		//-----------------------------------------------
		tagString += "<td rowspan='2' class='backBlack' style='text-align:center;'>" +
				"<button type='button' onclick='viewGame( \"PLAY\", " + Gnum + ");location.hash=\"PLAY_LIST\"' style='width:100%;'>" + Gnum + "</button>" +

			"</td>";

		with( pickUpGame ){
			var thisOpeningNumber = getOpeningNumber( GEM_LINE );
			var thisOpeningName = getOpeningName( GEM_LINE );

			var ImOWNer = mineID == OWNer;

		//	var isRandom = BLACK != '*' && !GEM_LINE.match( /A1HH/ );

			var gameInfomation = "";
			if( thisOpeningNumber ){	// %2b%2bAA


				gameInfomation += "<img src='http://works28.renju.info/RSFP/RSFP.php?SPAN=7&GEM_LINE=%23%23GI%23%23JF" +
					( 0 < thisOpeningNumber
						? [ "", "", "", "", "%23%23HF", "", "", "%23%23HJ", "", "%23%23HJ", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "" ]
						: [ "", "%23%23HF", "%23%23HF", "", "", "", "", "", "", "", "%23%23HJ", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "" ]
					)[ Math.abs( thisOpeningNumber ) - 1 ] +
					( GEM_LINE.match( /(A1..a2..A3..).+$/ )
					? RegExp.$1
					: GEM_LINE
				) + "' border='0'><br>";







			}
			if( FLAGs.match( /L/ ) ){
				gameInfomation += makeTagGameStatus( 'L', false, 'width:1em;height:1em;margin:0px 0.2ex;' );
			}

			//-----------------------------------------------
			//	access button
			//-----------------------------------------------
			var ButtonName = "view";


			var turnColor = getTurnColor( pickUpGame, mineID );


			//------------------ names

			tagString += "<td rowspan='2' nowrap style='border-right-style:none;text-align:center;background-color:" + turnColor.BLACK + ";' title='"+ BLACK + "'>" + getShowName( BLACK ) + "</td>";
				tagString += "<td style='font-size:1ex;background-color:" + turnColor.BLACK + ";border-bottom-style:none;border-left-style:none;'>&nbsp;</td>";

				tagString += "<td style='background-color:" + turnColor.WHITE + ";font-size:1ex;border-bottom-style:none;border-right-style:none;'>&nbsp;</td>";
			tagString += "<td rowspan='2' nowrap style='border-left-style:none;text-align:center;background-color:" + turnColor.WHITE + ";' title='"+ WHITE + "'>" + getShowName( WHITE ) + "</td>";




			//---------- status
			tagString += "<td rowspan='2' style='text-align:center;'>" + ( FLAGs.match( /U/ ) ? makeTagGameStatus( 'U', false, 'width:1em;height:1em;' ) : '&nbsp;' ) + "</td>";
			tagString += "<td rowspan='2' style='text-align:center;'>" + ( FLAGs.match( /E/ ) ? makeTagGameStatus( 'E', false, 'width:1em;height:1em;' ) : '&nbsp;' ) + "</td>";
			tagString += "<td rowspan='2' style='text-align:center;'>" + ( FLAGs.match( /V/ ) ? '&nbsp;' : makeTagGameStatus( 'H', false, 'width:1em;height:1em;' ) ) + "</td>";
	//		tagString += "<td rowspan='2' style='text-align:center;'>" + ( FLAGs.match( /([ML])/ ) ? makeTagGameStatus( RegExp.$1, false, 'width:1em;height:1em;' ) : '&nbsp;' ) + "</td>";

			//---------- limit
			tagString += "<td rowspan='2' style='text-align:center;font-size:smaller;'>" + ( pickUpGame.LIMIT ? pickUpGame.LIMIT : "無制限" ) + "</td>";


/*
			//---------- open date or last move
			if( isOpen ){
				with( new Date( pickUpGame.DATE_OPEN * 1000 ) ){
					tagString += "<td rowspan='2' style='text-align:center;font-size:smaller;' nowrap title='" +
						toLocaleString() + "'>" + toLocaleDateString() + "</td>";
				}
			}else{
				tagString += "<td rowspan='2' align='center' title='" + ( new Date( pickUpGame.DATE_LAST * 1000 ) ).toLocaleString() + "'>" + getLastMove( pickUpGame.GEM_LINE ) + "</td>";

			}
*/

			//---------- message
			var getMessage = "<div nowrap style='font-size:smaller;'>" + new Date( DATE_OPEN * 1000 ).toLocaleString() + "</div>";

			if( MESSAGE_LIST[ Gnum ] && MESSAGE_LIST[ Gnum ].length ){
				with( MESSAGE_LIST[ Gnum ][ MESSAGE_LIST[ Gnum ].length - 1 ] ){
					if( pickUpGame.DATE_LAST < POST_DATE ){
						getMessage = ID + " [" + MOVE + "] " + MESSAGE;
					}
				}
			}

			tagString += "<td rowspan='2'>" + getMessage + "</td>";

			//---------------------------- close
	 		tagString += "</tr>";


			//-----------------------------------------------
			//	2nd stair
			//	opening/random
			//-----------------------------------------------

			tagString += "<tr" + ( linePos & 1 ? " style='background-color:#ffd;'" : "" ) + ">";
				if( gameInfomation ){
					tagString += "<td colspan='2' style='text-align:center;border-style:solid solid none;border-color:gray;'>";
						tagString += gameInfomation;
					tagString += "</td>";
				}else{
					tagString += "<td style='background-color:" + turnColor.BLACK + ";color:white;border-top-style:none;border-left-style:none;'>&nbsp;</td>";
					tagString += "<td style='background-color:" + turnColor.WHITE + ";color:black;border-top-style:none;border-right-style:none;'>&nbsp;</td>";
				}
	 		tagString += "</tr>";
		}
		//---------------------------- count up
		linePos ++;
	}


	tagString += "</table>";





	return( tagString );






}





//==============================================
//	get NICK_NAME or ID
//==============================================
function getShowName( IDkey ){
	return( ID_LIST[ IDkey ] && ID_LIST[ IDkey ].NICK
		? ID_LIST[ IDkey ].NICK
		: "(" + IDkey + ")"
	);
}



//==============================
//	make title text
//==============================
function makeTitleText ( titleKey ){
	return [ '9級','8級','7級','6級','5級','4級','3級','2級','1級','無級','初段','二段','三段','四段','五段','六段','七段','八段','九段' ][ 9 + titleKey ];
}




//==============================================
//	make turn color string
//==============================================
function getTurnColor( pickUpGame, mineID ){

	with( {
		WINner : "#aaf",
		DReW : "#9f9",		// palegreen

		MY_TURN : "#f66",
		IS_TURN : "#f90",

//		UNDO_COLOR : "yellow",
		NONE : "transparent"
	} ){

		if( pickUpGame.STATUS == 'P' ){
			var isTurn = getLastMove( pickUpGame.GEM_LINE ) & 1;

			var retColor = ( pickUpGame.GEM_LINE.match( /@\-/ )
				? [
					pickUpGame[ isTurn ? "WHITE" : "BLACK" ] == mineID ? MY_TURN : IS_TURN,
					pickUpGame[ isTurn ? "BLACK" : "WHITE" ] == mineID ? MY_TURN : IS_TURN
				]
				: [
					pickUpGame[ isTurn ? "WHITE" : "BLACK" ] == mineID ? MY_TURN : IS_TURN,
					NONE
				]
			);

			if( isTurn ){
				retColor.reverse();
			}

			return {
				BLACK : retColor[ 0 ],
				WHITE : retColor[ 1 ]
			};
		}else if( pickUpGame.STATUS.match( /B/i ) ){
			return {
				BLACK : WINner,
				WHITE : NONE
			};
		}else if( pickUpGame.STATUS == 'W' ||  pickUpGame.STATUS == 'w' ){
			return {
				BLACK : NONE,
				WHITE : WINner
			};
		}else if( pickUpGame.STATUS == 'D' ){
			return {
				BLACK : DReW,
				WHITE : DReW
			};
		}

		return {
			BLACK : NONE,
			WHITE : NONE
		};

	}

}



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

	GemLine = GemLine.replace( /A0n./g, "" );

	//---------------------------------- A0 to couner
	var newGemLine = "";
	var gem5th = 0;
	for( var pos=0; pos<GemLine.length; pos += 4 ){
		if( GemLine.substr( pos, 2 ) == "A0" ){
			if( GemLine.substr( pos + 2, 1 ) != "n" ){
				gem5th++;
			}
		}else{
			newGemLine += GemLine.substr( pos, 4 );
		}
	}
	//---------------------------------- A0 must be top of string for "getLastMove()"
/*
	newGemLine.match( /(A3..)/ );

	return newGemLine.replace( /A3../,
		RegExp.$1 + "A0oOA0oNA0oMA0oLA0oKA0oJA0oIA0oHA0oGA0oFA0oEA0oDA0oCA0oBA0oA".substr( 0, Math.min( 15, gem5th ) * 4 )
	);
*/



	var markUndoExtra = "";
	if( newGemLine.match( /(@[\+\-]..)/ ) ){
		markUndoExtra = RegExp.$1;
	}




	return( newGemLine
		.replace( /@[\+\-]../, "" )
		.replace( /!---/, "A0oOA0oNA0oMA0oLA0oKA0oJA0oIA0oHA0oGA0oFA0oEA0oDA0oCA0oBA0oA".substr( 0, Math.min( 15, gem5th ) * 4 ) + markUndoExtra + "!---" )
	);


}





//========================================
//	change view name radio bottuns
//========================================
function makeTagViewName( useForm ){
	var tagString = "";

	tagString += useForm ? "<form>" : "<div>";

	tagString += "<input type='radio' name='VIEW_NAME' id='VIEW_NAME_ID' " +
			"onclick='callWtPBS( \"view\", 0 );'>" +
//			"onclick='try{ document.getElementById( \"GAME_SELECTER_BOX\" ).innerHTML = " +
//				"makeTagGameSelecterTag( \"PLAY\", \"GAMEs\", \"ID\" ); }catch( errorMSG ){}'>" +
		"<label for='VIEW_NAME_ID'>ID</label>";
	tagString += "<input type='radio' name='VIEW_NAME' id='VIEW_NAME_NICK' checked " +
			"onclick='callWtPBS( \"view\", 0 );'>" +
//			"onclick='try{ document.getElementById( \"GAME_SELECTER_BOX\" ).innerHTML = " +
//				"makeTagGameSelecterTag( \"PLAY\", \"GAMEs\", \"NICK\" ); }catch( errorMSG ){}'>" +
		"<label for='VIEW_NAME_NICK'>NICK_NAME</label>";

	tagString += useForm ? "</form>" : "</div>";


	return tagString;
}






//************************************************************************************************
//************************************************************************************************
//************************************************************************************************
//===============================
//	game selecter tag
//===============================
function makeTagGameSelecterTag( roomType, formID, showType ){

showType = SORT_PLAYER == 'NICK' ? 'NICK' : 'ID';

	var tagKey = formID + ( showType == 'NICK' ? "_NICK" : "" );
	var tagKey = formID;
	var makeTag = "<select name='" + tagKey + "' id='" + tagKey + "' " +
		( roomType == 'OVER' ? "size='8' " : "size='10'" ) +
		"style='font-size:90%;' onclick='/*this.onchange();*/' " +
		"onchange='viewGame( \"" + roomType + "\", parseInt( this.value ) );'" +
	">";

/*
	makeTag += "<option value='0'>対局</option>";
*/

//	makeTag += "<optgroup label='" + ( showType == "NICK" ? "NICK-NAME" : "ID" ) + "'>";

	if( roomType == 'OVER' ){

		if( !HEAD_LIST[ 0 ] ){
			makeTag += "<option value='0'>Top</option>";
		}

		var pageTag = "";
		var page = 1;
		for( var headPos=0; headPos < OFFSET_HEAD; headPos += GROUP_COUNT * 2 ){
			if( HEAD_LIST[ headPos ] ){ continue; }
			pageTag += "<option value='" + headPos + "'>&rArr;" + page++ + "㌻</option>";
		}
		makeTag += pageTag;

		overHead = OFFSET_HEAD;
	}

	var hasGame = false;


	for( var Gpos in GAME_HASH ){
		var Gnum = GAME_HASH[ Gpos ];
		with( GAME_LIST.PLAY[ Gnum ] ){



			var blackName = BLACK;
			var whiteName = WHITE;

			var result = "&times;";
			switch( STATUS ){
				case 'B': result = "&gt;"; break;
				case 'b': result = "&sup2;/"; break;
				case 'w': result = "\\&sup2;"; break;
				case 'W': result = "&lt;"; break;
				case 'D': result = "&equiv;"; break;
			}









		//	result = "&hArr;&gt;&ge;&equiv;&le;&lt;&ni;&isin;&supe;&sube;&laquo;&raquo;&rsaquo;&lsaquo;&sup1;&sub1;&sup2;&sub2;";

			if( showType == "NICK" ){
				if( blackName != MASK_NAME ){
					blackName = getShowName( blackName );
				}
				if( whiteName != MASK_NAME ){
					whiteName = getShowName( whiteName );
				}
			}

			if( roomType == 'OVER' ){
				var hasData = HEAD_LIST[ overHead ];

				makeTag += "<option value='" + overHead++ + "'" +
						( hasData ? " style='background-color:palegreen;'" : "" ) +
						">" + ( hasData ? "[" : "(" ) + Gnum + ( hasData ? "]" : ")" ) +
						" " + blackName + " " + result + " " + whiteName + "</option>";

			}else{
				var turnColor = getTurnColor( GAME_LIST[ roomType ][ Gnum ], getCookie( 'ID' ) );
				var viewMyTurn = GAME_LIST[ roomType ][ Gnum ].STATUS != 'P' ? "yellow" : ( BLACK == getCookie( 'ID' )
							? turnColor.BLACK
							: ( WHITE == getCookie( 'ID' )
								? turnColor.WHITE
								: ""
							)
						);
				makeTag += "<option value='" + Gnum + "'" +
					( viewMyTurn ? " style='background-color:" + viewMyTurn + ";'" : "" ) +
					">[" + Gnum + "] " + blackName + " " + result + " " + whiteName + "</option>";
			}

		}

		hasGame = true;
	}




	if( roomType == 'OVER' ){
		var pageTag = "";
		var page = Math.ceil( ( overHead + 1 ) / GROUP_COUNT );
		for( var headPos=overHead; headPos < GAME_COUNT; headPos += GROUP_COUNT * 2 ){
			if( HEAD_LIST[ headPos ] ){ continue; }
			pageTag += "<option value='" + headPos + "'>&rArr;" + page++ + "㌻</option>";
		}
		makeTag += pageTag;

		if( !HEAD_LIST[ GAME_COUNT - 1 ] ){
			makeTag += "<option value='" + ( GAME_COUNT - 1 ) + "'>Bottom</option>";
		}
	}









//	makeTag += "</optgroup>";
	makeTag += "</select>";


	return( hasGame
		? makeTag
		: "<div style='text-align:center;'>no games</div>"
	);
}





function viewGame ( roomType, valueNumber ){

	var mineID = getCookie( 'ID' );

	var gameSerial = valueNumber;
	if( roomType == 'OVER' ){
		if( !HEAD_LIST[ valueNumber ] && 0 < FIND_COUNT ){
			if( FIND_COUNT <= valueNumber ){
				valueNumber = 0;
			}
			callWtPBS( 'over', Math.min( FIND_COUNT, valueNumber ) );
			return;
		}
		gameSerial = HEAD_LIST[ valueNumber ];
	}


	if( isNaN( gameSerial ) || gameSerial == 0 ){
		clearBoard ();
		return 0;
	}

	//--------------------------- get game data
	var getGame = GAME_LIST[ roomType ][ gameSerial ];
	if( getGame == null ){
		clearBoard ();
		return;
	}


	GAME_SERIAL = gameSerial;


	//----------------- set names
	var turnColor = getTurnColor( getGame, mineID );
	var nameBlack = getGame.BLACK;
	var nameWhite = getGame.WHITE;
	with( document ){

		with( getElementById( 'BLACK_ID' ) ){
			innerHTML = nameBlack;
			style.backgroundColor = turnColor.BLACK;
		}

		with( getElementById( 'WHITE_ID' ) ){
			innerHTML = nameWhite;
			style.backgroundColor = turnColor.WHITE;
		}

		with( getElementById( 'BLACK_NICK' ) ){
			innerHTML = getShowName( nameBlack );
			style.backgroundColor = turnColor.BLACK;
		}

		with( getElementById( 'WHITE_NICK' ) ){
			innerHTML = getShowName( nameWhite );
			style.backgroundColor = turnColor.WHITE;
		}

	}

	//---------------------------------- time [ add last time ]
	var Bsec = getGame.TIME_BLACK;
	var Wsec = getGame.TIME_WHITE;

	if( getGame.STATUS == 'P' ){
//		var addClock = Math.floor( ( new Date () ).getTime() / 1000 ) + SERVER_CLOCK - getGame.DATE_LAST;
		var addClock = getAddTime( getGame.DATE_LAST );

		if( getNextTurn( getGame.GEM_LINE ) ){
			Bsec += addClock;
		}else{
			Wsec += addClock;
		}
	}

	with( document ){
//		getElementById( 'BLACK_TIME' ).innerHTML = makeUseTimeString( getGame.TIME_BLACK ) + "<br>" + makeUseTimeString( Bsec );
//		getElementById( 'WHITE_TIME' ).innerHTML = makeUseTimeString( getGame.TIME_WHITE ) + "<br>" + makeUseTimeString( Wsec );
		getElementById( 'BLACK_TIME' ).innerHTML = makeUseTimeString( Bsec );
		getElementById( 'WHITE_TIME' ).innerHTML = makeUseTimeString( Wsec );
	}



	var formNumber = 0;
	//------------------- status

	var statusString = "";
	with( getGame.FLAGs ){
		if( match( /U/ ) ){ statusString += makeTagGameStatus( 'U', true, 'margin:0.5ex;' ); }
		if( match( /E/ ) ){ statusString += makeTagGameStatus( 'E', true, 'margin:0.5ex;' ); }
		if( match( /M/ ) ){ statusString += makeTagGameStatus( 'M', true, 'margin:0.5ex;' ); }
		if( match( /L/ ) ){ statusString += makeTagGameStatus( 'L', true, 'margin:0.5ex;' ); }
		if( match( /R/ ) ){ statusString += makeTagGameStatus( 'R', true, 'margin:0.5ex;' ); }
		if( !match( /V/ ) ){ statusString += makeTagGameStatus( 'H', true, 'margin:0.5ex;' ); }
	}

	document.getElementById( 'STATUS_BOX' ).innerHTML = statusString;

	//------------------- days limit

	document.getElementById( 'DAYs_LIMIT' ).innerHTML = ( getGame.LIMIT
		? ( getGame.LIMIT + "日" )
		: "無制限"
	);


	//------------------- turns

	var viewGemLine = getGame.GEM_LINE;
	var lastMove = getLastMove( viewGemLine );

	var hasSwap = viewGemLine.match( /\$[X|=]/ );

	var openTurnList = [
		[
			"示",
			"#ccc"
		],
		[
			"択",
			"transparent"
		]
	];
	if( hasSwap ){
		openTurnList.reverse();
	}

	with( document ){
		with( getElementById( 'OPEN_BLACK' ) ){
			innerHTML = openTurnList[ 0 ][ 0 ];
			style.backgroundColor = openTurnList[ 0 ][ 1 ];
		}
		with( getElementById( 'OPEN_WHITE' ) ){
			innerHTML = openTurnList[ 1 ][ 0 ];
			style.backgroundColor = openTurnList[ 1 ][ 1 ];
		}
		if( ( hasSwap ? 2 : 3 ) < lastMove ){
			with( getElementById( 'TURN_BLACK' ) ){
				style.backgroundColor = "black";
				style.color = "white";
				innerHTML = "黒";
			}
			with( getElementById( 'TURN_WHITE' ) ){
				style.backgroundColor = "white";
				style.color = "black";
				innerHTML = "白";
			}
		}else{
			with( getElementById( 'TURN_BLACK' ) ){
				innerHTML = "-";
				style.backgroundColor = "white";
				style.color = "black";
			}
			with( getElementById( 'TURN_WHITE' ) ){
				innerHTML = "-";
				style.backgroundColor = "white";
				style.color = "black";
			}
		}
	}


	//------------------- set RDFA

	var appletNumber = 0;

	with( getGame ){
		if( FLAGs.match( /L/ ) && ( lastMove == 4 || ( lastMove == 3 && hasSwap ) ) ){
			var gradePlus = Math.floor( GRADE / 10 ) - GRADE % 10;

			if( 0 < gradePlus ){
				viewGemLine = viewGemLine.replace( /(A0n.)*A0oO/, "A0nOA0nNA0nMA0nL".substr( 0, gradePlus * 4 ) + "A0oO" );
				GEM_LINE = viewGemLine;
			}
		}
	}

//	document.applets[ appletNumber ].setGemLineString( viewGemLine );
	document.applets[ appletNumber ].setGemLineString( viewGemLine +
			( roomType == 'OVER' ? getGame.UNDO : "" )
		);


	//------------------------------- show caption
	if( roomType == 'PLAY' ){
		document.getElementById( 'PROMPT' ).innerHTML = makeCaption( getGame );
	}
	//------------------------------- show caption
	with( document.getElementById( 'MESSAGE_BOX' ) ){
		scrollTop = 0;
		innerHTML = makeMessage( GAME_SERIAL, getGame, 'fore' ) + "<hr style='text-align:center;'>" +
			"<div style='text-align:center;font-family:monospace;font-size:smaller;'>最終着手: " + ( new Date( getGame.DATE_LAST * 1000 ) ).toLocaleString() +
			"</div>" +
			makeMessage( GAME_SERIAL, getGame, 'hind' );


		//---------------------------------- box slide to bottom !!!! (2004/10/05)
		//	scrollTop = scrollHeight;
		//	scrollTop = memoPosition;
	}

	setTimeout( "with( document.getElementById( 'MESSAGE_BOX' ) ){ scrollTop = scrollHeight; }", 1000 );

	//------------------- game selecter
	with( document ){
		if( getElementById( 'GAMEs' ) ){
			getElementById( 'GAMEs' ).value = valueNumber;
		}
		if( getElementById( 'GAMEs_SHOW' ) ){
			getElementById( 'GAMEs_SHOW' ).value = valueNumber;
		}

		getElementById( 'GAME_NUMBER' ).innerHTML = "対局 No." + GAME_SERIAL + "";
	}
}



//===========================================
//	get add time
//===========================================
function getAddTime( lastTime ){
	return Math.floor( new Date().getTime() / 1000 ) + SERVER_CLOCK - lastTime;
}


//===========================================
//	clear board
//===========================================
function clearBoard (){
	//----------------- set names
	with( document ){

		with( getElementById( 'BLACK_ID' ) ){
			innerHTML = "-";
			style.backgroundColor = "transparent";
		}

		with( getElementById( 'WHITE_ID' ) ){
			innerHTML = "-";
			style.backgroundColor = "transparent";
		}

		with( getElementById( 'BLACK_NICK' ) ){
			innerHTML = "8^-^8";
			style.backgroundColor = "transparent";
		}

		with( getElementById( 'WHITE_NICK' ) ){
			innerHTML = "8^-^8";
			style.backgroundColor = "transparent";
		}

		//---------------------------------- time [ add last time ]
		getElementById( 'BLACK_TIME' ).innerHTML = "0";
		getElementById( 'WHITE_TIME' ).innerHTML = "0";
		//------------------- game status
		getElementById( 'STATUS_BOX' ).innerHTML = "?";

		//------------------- days limit
		getElementById( 'DAYs_LIMIT' ).innerHTML = "0";

		//------------------- turns
		with( getElementById( 'OPEN_BLACK' ) ){
			innerHTML = "-";
			style.backgroundColor = "transparent";
		}
		with( getElementById( 'OPEN_WHITE' ) ){
			innerHTML = "-";
			style.backgroundColor = "transparent";
		}
		with( getElementById( 'TURN_BLACK' ) ){
			innerHTML = "-";
			style.backgroundColor = "white";
			style.color = "black";
		}
		with( getElementById( 'TURN_WHITE' ) ){
			innerHTML = "-";
			style.backgroundColor = "white";
			style.color = "black";
		}

		//------------------------------- show caption
		getElementById( 'MESSAGE_BOX' ).innerHTML = "no games";
		if( getElementById( 'PROMPT' ) ){
			getElementById( 'PROMPT' ).innerHTML = "8^-^8";
		}

		//------------------- game selecter
		getElementById( 'GAME_NUMBER' ).innerHTML = "対局 No.?";

		//------------------- set RDFA
		var appletNumber = 0;
		applets[ appletNumber ].setGemLineString( "$8FH$^GH$-HH$^IH$8JH" );

	}




}




//===========================================
//	clear board
//===========================================
function resetBoard ( gameSerial ){

	try{
		document.applets[ 0 ].setGemLineString( GAME_LIST[ 'OVER' ][ gameSerial ].GEM_LINE );
	}catch( errorMSG ){
	}

/*
	if( isNaN( gameSerial ) || gameSerial == 0 ){
		return;
	}

	//--------------------------- get game data
	var getGame = GAME_LIST[ 'OVER' ][ gameSerial ];
	if( getGame == null ){
		return;
	}


	document.applets[ appletNumber ].setGemLineString( viewGemLine );
*/
}







//=================================
//	message open
//=================================
function openMessage( roomType, serial ){

	Wobj = window.open( "./Message.html","WtPBS_MESSAGEs","width=500,height=600,dependent=yes,directories=no,personalbar=no,location=no,menubar=no,toolbar=no,status=no,resizable=yes,scrollbars=yes");

	if( Wobj ){
		with( Wobj.document ){
			open();
			write(
				makeMessage( serial, GAME_LIST[ roomType ][ serial ], 'fore' ),
				makeMessage( serial, GAME_LIST[ roomType ][ serial ], 'hind' )
			);
			close();

			title = "Game No." + serial;
			with( body ){
				scrollTop = scrollHeight;
			}

			focus();

		}
	}
}

//=================================
//	make use time string
//=================================

function makeUseTimeString ( showSec ){
	var showDays = Math.floor( showSec / ( 3600 * 24 ) );
	with( new Date( showSec % ( 3600 * 24 ) * 1000 ) ){
		return( ( showDays
				? showDays + "日 "
				: ""
			) +
			( showDays || getUTCHours()
				? ( getUTCHours() < 10 ? "0" : "" ) + getUTCHours() + ":"
				: ""
			) +
			( showDays || getUTCHours() || getUTCMinutes()
				? ( getUTCMinutes() < 10 ? "0" : "" ) + getUTCMinutes() + ":"
				: ""
			) +
			( getUTCSeconds() < 10 ? "0" : "" ) + getUTCSeconds() + ""
		);
	}
}


//=================================
//	make message string
//=================================
function makeMessage ( gameNumber, getGame, requestFore ){


	var IDblack = getGame.BLACK;
	var IDwhite = getGame.WHITE;

	var lastDate = getGame.DATE_LAST;

	//--------------- message set
	var tagString = "";


	var gameMessage = MESSAGE_LIST[ gameNumber ];

	if( !gameMessage ){
		return requestFore == 'fore' ? "<div class='backGray' style='text-align:center;'>no message</div>" : "";
	}

	for( var Mnum in gameMessage ){

		var moveList = gameMessage[ Mnum ];

		with( moveList ){
			if( requestFore == 'fore' ? ( lastDate <= POST_DATE ) : ( POST_DATE < lastDate ) ){
				continue;
			}

			var showName = getShowName( ID );
			var backColor = "transparent";
			if( ID == IDblack ){
				backColor = "cyan";
			}else if( ID == IDwhite ){
				backColor = "palegreen";
			}

			tagString += "<div style='padding:0.5ex;margin-bottom:1ex;background-color:" + backColor + ";'>";

			tagString += "[" + MOVE + "] " + showName + "&gt; ";
			if( MESSAGE.match( /^\{.*MODE.+\}$/ ) ){
				try{
					eval( "var MSGobj = " + MESSAGE );

					if( MSGobj.MODE ){
						with( MSGobj ){
							if( MODE == 'time' ){
								tagString += "<span></span><div style='padding-left:1em'>" +
										"last move = " + new Date( LAST_TIME * 1000 ).toLocaleString() + "<br>" +
										"black time = " + makeUseTimeString( BLACK_TIME ) + "<br>" +
										"white time = " + makeUseTimeString( WHITE_TIME ) +
									"</div>";
							}
						}
					}
				}catch( errorMSG ){
					tagString += "error data";
				}
			}else{
				tagString += MESSAGE;
			}
				tagString += "<div style='text-align:right;font-size:smaller;'>" + ( new Date( POST_DATE * 1000 ) ).toLocaleString() + "</div>";
			tagString += "</div>";

		}
	}

	return tagString;

}



//===============================
//	make game status
//===============================
function makeTagGameStatus( gameStatus, size, styleString ){

	with( {
		U : { GIF : 'Undo', ALT : "待った" },
		E : { GIF : 'Extra', ALT : "代打ち" },
		H : { GIF : 'Hide', ALT : "密局w" },
		R : { GIF : 'Random', ALT : "示択握り" },
		M : { GIF : 'Mask', ALT : "覆面打ち" },
		L : { GIF : 'Ladder', ALT : "梯子打ち" }
	}[ gameStatus ] ){
		return( "<img src='./Marks/mark" + GIF + ( size ? "" : "Small" ) + ".gif' " +
				"border='0' alt='" + ALT + "'style='" + styleString + "'>"
		);
	}
}


//===============================
//	get Last Move
//===============================
function getLastMove ( GemLine ){

	if( GemLine.match( /@_/ ) && !GemLine.match( /A5/ ) ){
		return 5;
	}

	var Gnum = GemLine.indexOf("!---");
	if( Gnum == -1 ){
		Gnum = GemLine.length;
	}


	while( Gnum ){
		Gnum -= 4;
//		var gn = GemLine.charAt(Gnum).toUpperCase();
		var gn = GemLine.substr(Gnum,1).toUpperCase();
		var xp = GemLine.charAt(Gnum+2);
		if(gn<'A' || 'Z'<gn || ('Z'<xp && GemLine.substr(Gnum,2)!="A5")){
			continue;
		}
		return((parseInt(gn,36)-10)*10+parseInt(GemLine.substr(Gnum+1,1)));
//		return((parseInt(gn,36)-10)*10+parseInt(GemLine.charAt(Gnum+1)));
	}

	return( 0 );
}



//===============================
//	get Next turn
//	true:	black
//	false:	white
//===============================
function getNextTurn ( GemLine ){
	return( ( getLastMove( GemLine ) & 1 ) == 0 );
}


//============================
//	get Opening Name
//============================
function get5thGemsCount( GemLine ){
	var count5 = 0;
	for( var Gpos=0; Gpos<GemLine.length; Gpos+=4 ){
		var cutGem = GemLine.substr( Gpos,2 );
		if( cutGem=="A5" || cutGem=="A0" || cutGem=="@_" ){
			count5++;
		}
	}
	return( count5 );
}


















































































//================================================
//	link button
// ['text',passageSec,'URL','hash','target']
//================================================
function drawLinkMenu(){

	var linkList = {
		OPEN : {
			TITLE : "OPEN-GAMEs",
			URL : "./OPEN-GAMEs.php?AREA=FengChu004&LANGUAGE=JPN"
		},
		PLAY : {
			TITLE : "PLAY-GAMEs",
			URL : "./PLAY-GAMEs.php?AREA=FengChu004&LANGUAGE=JPN"
		},
		OVER : {
			TITLE : "OVER-GAMEs",
			URL : "./OVER-GAMEs.php?AREA=FengChu004&LANGUAGE=JPN"
		},
		GTB : {
			TITLE : "GEM-TREE BUNDLER",
			URL : "./GemTreeBundler.php?AREA=FengChu004&LANGUAGE=JPN"
		},
		RANKing : {
			TITLE : "RANKing",
			URL : "./RANKing.php?GENRE=WtPBS&AREA=FengChu004&LANGUAGE=JPN"
		},
		SCAN : {
			TITLE : "SCAN-GAMEs",
			URL : "./SCAN-GAMEs.php?GENRE=WtPBS&AREA=FengChu004&CALL=&LANGUAGE=JPN"
		}	};

	var tagString = "";

	tagString += "<div style='text-align:center;margin:0.5ex;'>";

	for( var Lkey in linkList ){
		tagString += "<a href='" + linkList[ Lkey ].URL + "' style='margin:0px 1ex;'>" + Lkey + "</a>";
	}

	tagString += "</div>";


	var doronString = "document.getElementById(\"FLOAT_MENU\").style.display=\"none\";";


	var lineString = "";
	for( var Lkey in linkList ){
		lineString += "<tr><td nowrap colspan='2' class='backGray'>"+
				"<a href='" + linkList[ Lkey ].URL + "' style='margin:0px 1ex;' onclick='" + doronString + "'>●" +
					linkList[ Lkey ].TITLE +
				"</a>"+
			"</td></tr>";
	}

	tagString += "<div id='FLOAT_MENU' style='display:none;border-style:ridge;background-color:cyan;'>" +
		"<table cellspacing='0'>"+
			"<tr class='backBlack' style='font-size:larger;font-weight:bold;text-align:center;padding:0.2ex 0.5ex;'>"+
				"<td nowrap>WtPBS 目録</td>"+
				"<td align='right'>"+
					"<button type='button' style='font-weight:bold;background-color:yellow;' onclick='" + doronString + "'>&times;</button>"+
				"</td>"+
			"</tr>" + lineString +

		"</table></div>";


	document.write( tagString );
}

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//	window double click
//_________________________________________
document.ondblclick = function() {
	try{
		document.getElementById( "FLOAT_MENU" ).style.display = "block";

		with( isNN ? CATCH_AXIS : event ){
			callFloatBox( "FLOAT_MENU",
				document.body.scrollLeft + x -20,
				document.body.scrollTop + y -20
			);
		}
	}catch( errorMSG ){
	}
}