/*
Tetris Game by Xie Yong (nsxy@163.net)
Modifications by DynamicDrive.com for interface enhancements
For this script, visit http://www.dynamicdrive.com
DynamicDrive.comのシンプルテトリスに、連続遊戯及び、ハイスコア機能、
得点表示位置変更などを加えた改造テトリスです。
付属のハイスコアＣＧＩと連動することで、得点が記録できます
このプログラムに興味のある方は、私のＨＰのＢＢＳに全行解説
のせましたので、どうぞ、ご覧ください
Modifications by This is it!
*/

/* ハイスコアＣＧＩを使用しない場合は0にしてください */
var witc=1;

/* ハイスコアＣＧＩのパスを記入してください */
var url = "http://chalo.hp.infoseek.co.jp/cgi-bin/tetris/highscore.cgi";


/* JavaScriptに自信のない方は下記以降いじらないでください */

if (document.all){
var n_IncStep = 10;
var curBlcok,nextBlock;
var arr_curBlock = new Array(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
var curX,curY;
var speed=1;
var maxspeed=9;
var clr_per_line=18;
var fource=0;
var triple=0;
var double=0;
var pause=0;
var gameover=0;
var colors = new Array("#999999","#0000FF","#80FFFF","#80FF80","#FFFF00","#FF8000","#FF00FF","#FF0000");
var cid;
var ncid;

var blocks = new Array("tt_O1","tt_T2","tt_Z1","tt_S1","tt_L1","tt_J1","tt_I2");
var bid;
var killedlines=0;

var tt_O1 = new Array(0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,0);
var tt_O2 = new Array(0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,0);
var tt_O3 = new Array(0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,0);
var tt_O4 = new Array(0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,0);

var tt_T1 = new Array(0,0,0,0,0,1,0,0,1,1,0,0,0,1,0,0);
var tt_T2 = new Array(0,0,0,0,0,0,0,0,1,1,1,0,0,1,0,0);
var tt_T3 = new Array(0,0,0,0,0,1,0,0,0,1,1,0,0,1,0,0);
var tt_T4 = new Array(0,0,0,0,0,1,0,0,1,1,1,0,0,0,0,0);

var tt_Z1 = new Array(0,0,0,0,1,1,0,0,0,1,1,0,0,0,0,0);
var tt_Z2 = new Array(0,0,0,0,0,0,1,0,0,1,1,0,0,1,0,0);
var tt_Z3 = new Array(0,0,0,0,0,1,1,0,0,0,1,1,0,0,0,0);
var tt_Z4 = new Array(0,0,1,0,0,1,1,0,0,1,0,0,0,0,0,0);

var tt_S1 = new Array(0,0,0,0,0,1,1,0,1,1,0,0,0,0,0,0);
var tt_S2 = new Array(0,0,0,0,0,1,0,0,0,1,1,0,0,0,1,0);
var tt_S3 = new Array(0,0,0,0,0,0,1,1,0,1,1,0,0,0,0,0);
var tt_S4 = new Array(0,1,0,0,0,1,1,0,0,0,1,0,0,0,0,0);

var tt_L1 = new Array(0,1,0,0,0,1,0,0,0,1,1,0,0,0,0,0);
var tt_L2 = new Array(0,0,0,0,0,0,1,0,1,1,1,0,0,0,0,0);
var tt_L3 = new Array(0,0,0,0,0,1,1,0,0,0,1,0,0,0,1,0);
var tt_L4 = new Array(0,0,0,0,0,1,1,1,0,1,0,0,0,0,0,0);

var tt_J1 = new Array(0,0,1,0,0,0,1,0,0,1,1,0,0,0,0,0);
var tt_J2 = new Array(0,0,0,0,1,1,1,0,0,0,1,0,0,0,0,0);
var tt_J3 = new Array(0,0,0,0,0,1,1,0,0,1,0,0,0,1,0,0);
var tt_J4 = new Array(0,0,0,0,0,1,0,0,0,1,1,1,0,0,0,0);

var tt_I1 = new Array(0,1,0,0,0,1,0,0,0,1,0,0,0,1,0,0);
var tt_I2 = new Array(0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1);
var tt_I3 = new Array(0,0,1,0,0,0,1,0,0,0,1,0,0,0,1,0);
var tt_I4 = new Array(0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1);
var table = new Array(
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
                1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
		1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)
var tmpt=table;

}
else{
alert("InternetExplorer4.0以上でないとできません");}

function dimension2(row,col,num){
	var i = row * num + col;
	return (this[i]);
}
Array.prototype.getd = dimension2;

function ShowBlock(x,y,block_type,color){
	for (var i=0;i<block_tbl.rows.length;i++){
		for (var j=0;j<block_tbl.rows(i).cells.length;j++){		
			var d2 = i * 4 + j;
			if (block_type[d2]==1){
				block_tbl.rows(i).cells(j).style.background = color;
			}
			else{
				block_tbl.rows(i).cells(j).style.background = "";
			}
		}
	}
	block_div.style.pixelLeft=x;
	block_div.style.pixelTop=y;
}

function ShowBlock1(x,y,block_type,color,obj_tabID,obj_divID){
	for (var i=0;i<obj_tabID.rows.length;i++){
		for (var j=0;j<obj_tabID.rows(i).cells.length;j++){		
			var d2 = i * 4 + j;
			if (block_type[d2]==1){
				obj_tabID.rows(i).cells(j).style.background = color;
			}
			else{
				obj_tabID.rows(i).cells(j).style.background = "";
			}
		}
	}
	obj_divID.style.pixelLeft=x;
	obj_divID.style.pixelTop=y;
}

function Change(inc){
	var type = curBlock.substr(0,4);
	var num = curBlock.substr(curBlock.length-1);
	num = parseInt(num) + inc;
	if (num>4||num<1) num -= 4*inc;
	type += num;
	eval("arr_tmp = " + type + ";");
	if (CanMove(curX,curY,arr_tmp)){
		curBlock = type;
		eval("arr_curBlock = " + curBlock + ";");
		eval("ShowBlock(block_div.style.pixelLeft,block_div.style.pixelTop," + curBlock + ",colors[" + cid + "]);");
	}
}

function CanMove(x,y,block){
	for (i=0;i<4;i++){
		for (j=0;j<4;j++){
			if (block.getd(i,j,4)&table.getd(y/n_IncStep+i,x/n_IncStep+j,16)) return false;
		}
	}
	return true;
}

function NewBlock(){
	curBlock = nextBlock;
	cid = ncid;
	bid = Math.round(Math.random()*(blocks.length-1));
	ncid = Math.round(Math.random()*(colors.length-1));
	nextBlock = blocks[bid];
	eval("arr_curBlock = " + curBlock + ";");
	eval("ShowBlock(60,20," + curBlock + ",colors[" + cid + "]);");
	eval("arr_curBlock = " + curBlock + ";");
	eval("ShowBlock1(60,-60," + nextBlock + ",colors[" + ncid + "],nblock_tbl,nblock_div);");
}

function SaveBlock(){
	for (i=0;i<4;i++){
		for (j=0;j<4;j++){
			table[(curY/n_IncStep+i)*16+curX/n_IncStep+j]|=arr_curBlock[i*4+j];
			if (arr_curBlock[i*4+j]==1)
				if ((curY/n_IncStep+i<22)&&(curX/n_IncStep+j>1)&&(curX/n_IncStep+j<14))
					table_tbl.rows(curY/n_IncStep+i).cells(curX/n_IncStep+j).style.background = colors[cid];
			if (table[(curY/n_IncStep+i)*16+curX/n_IncStep+j]!=1)
					table_tbl.rows(curY/n_IncStep+i).cells(curX/n_IncStep+j).style.background = "black";
		}
	}
}

function DelLine(line){
	for(i=line;i>0;i--){
		for(j=2;j<14;j++){
			table[i*16+j]=table[(i-1)*16+j];
		}
	}
	table_tbl.deleteRow(line);
	table_tbl.insertRow(0);
	table_tbl.rows(0).height = 10;
	table_tbl.rows(0).style.background="black";
	for (i=0;i<16;i++){
		table_tbl.rows(0).insertCell();
		if (i<2||i>13) table_tbl.rows(0).cells(i).style.background="orange";
		table_tbl.rows(0).cells(i).width = 10;
	}
	killedlines++;
	cll.innerText=parseInt(cll.innerText)+1;
}

function DelLines(){
	var c,d,i,j;
	d=0;
	curY=block_div.style.pixelTop;
	for(i=(curY/10+3);i>curY/10-1;i--){
		c=0;
		for(j=2;j<14;j++){
			if (isNaN(table[i*16+j])||i==22) break;
			c+=table[i*16+j];
		}
		if(c==12){
			DelLine(i);
			i++;
			d++;
			if(d==4) { fource++;}
			if(d==3) { triple++;}
			if(d==2) { double++;}
		}
	}
	if (d>0)
		sco.innerText=parseInt(sco.innerText)+d*d*36;
}

function Lucifer(){
	for(var i=2;i<14;i++){
		if (table[48+i]==1) return true;
	}
	return false;
}

function GameOver(){
	gameover=1;
	clearInterval(gameInterval);
	infobar2_div.innerHTML = "Game Over";
	if(witc==1) {
	flag=confirm("スコアを記録しますか？");
	if(flag){
		str=prompt("半角英数字で名前を入力してね♪","");
		register();
		document.myform.submit();
	}
	else{
		retable();
	}
	}
	else{
		retable();
	}
}

function document_onkeydown() {
	if (gameover==1) return;
	with (block_div.style){
	curX = pixelLeft;
	curY = pixelTop;
	switch (event.keyCode){
		case 37:
			if (CanMove(curX-n_IncStep,curY,arr_curBlock))
				pixelLeft-=n_IncStep;
			break;
		case 38:
			Change(1);
			break;
		case 39:
			if (CanMove(curX+n_IncStep,curY,arr_curBlock))
				pixelLeft+=n_IncStep;
			break;
		case 40:
			if (CanMove(curX,curY+n_IncStep,arr_curBlock)){
				pixelTop+=n_IncStep;
			}
			else{
				SaveBlock();
				DelLines();
				if (Lucifer()){
					GameOver();
					return;
				}
				sco.innerText=parseInt(sco.innerText)+2;
				NewBlock();
			}
			break;
		case 32:
			if (pause==0){
				clearInterval(gameInterval);
				pause=1;
			}
			else{
				gameInterval=window.setInterval("Handle_Interval()",(maxspeed-speed+1)*60);
				pause=0;
			}
			break;
		case 90:		
			Change(1);
			break;
		case 88:	
			Change(-1);
			break;
		default:
	}
	}
}

function Handle_Interval(){
	curX = block_div.style.pixelLeft;
	curY = block_div.style.pixelTop;
	if (CanMove(curX,curY+n_IncStep,arr_curBlock)){
		block_div.style.pixelTop+=n_IncStep;
	}
	else{
		SaveBlock();
		DelLines();
		if (Lucifer()){
			GameOver();
			return;
		}
		sco.innerText=parseInt(sco.innerText)+2;
		NewBlock();
	}
	if (killedlines>=clr_per_line){
		killedlines-=clr_per_line;
		if (speed<maxspeed)
			speed++;
		else
			speed=maxspeed;
		spd.innerText=speed;
		clearInterval(gameInterval);
		gameInterval=window.setInterval("Handle_Interval()",(maxspeed-speed+1)*60);
	}
}
function retable() {
if (document.all){
	var htmlstr="<table id=table_tbl border=0 cellspacing=0 cellpadding=0>";
	document.all.speedin.disabled=false;
	document.all.but.disabled=false;
	table_div.innerHTML="";
	for (var i=0;i<22;i++){
		for (var j=2;j<14;j++){
		var d2 = i * 16 + j;
		table[d2]= 0;}
	}
	for (var i=0;i<24;i++){
		htmlstr +="<tr>";
		for (var j=0;j<16;j++){
			var d2 = i * 16 + j;
			if (table[d2]==1)
			htmlstr +="<td style=\"background:orange;height:10;width:10;\"></td>";
			else
			htmlstr +="<td style=\"background:black;height:10;width:10;\"></td>";
		}
		htmlstr +="</tr>";
	}
	table_div.innerHTML= htmlstr +"</table>";
	ncid = Math.round(Math.random()*(colors.length-1));
	bid = Math.round(Math.random()*(blocks.length-1));
	nextBlock = blocks[bid];
	NewBlock();
	gameover=0;
}
}