皇帝流テトリス PC版ソース

皇帝流テトリス PC版ソース

<html>
<head>
<title>テトリスもどき</title>
<script language="JavaScript">
<!--

// 使用する変数の宣言 --------------------------------------------------------

x = 4; y = -2;	// X座標とY座標（一番下のブロックが基準）
cr = "\r\n"
mojiretu= "";	// 画面に表示する文字列取得用
width = 8;	// 画面の広さ
height = 20;	// 画面の高さ
blockNo = 0;	// ブロックの種類保存用
blockNo2 = 0;	// 次のブロックの種類保存用
blockX = new Array( 4 );	// 動かすブロックの位置取得用配列変数
blockY = new Array( 4 );	// 0上　1右　2左　3下　を判断する
blockWX = new Array( 4 );	// 動かすブロック位置チェック用ワーク配列変数
blockWY = new Array( 4 );
kaiten = 0;		// ブロックの回転状態
gameflag = false;	// ゲーム中かどうかのフラグ
mode = 0;		// 現在のゲームの状態チェック用変数
gamespeed = 1000;	// ゲームの速度
speed = 1000;		// 次の処理へ進むスピード
score = 0;		// スコア
level = 1;		// レベル
levelcount = 0;		// レベルを上げるタイミングを数える変数

// 仮想VRAM用２次配列
vr = new Array( width );
for ( i = 0; i < width; i++ ) {
	vr[i] = new Array( height );
}

// 仮想VRAM次ブロック用２次配列(0:空白 1:ブロック）
vr2 = new Array( 4 );
for ( i = 0; i < 4; i++ ) {
	vr2[i] = new Array( 4 );
}


// ブロックの形を仮想的に作る関数
function MakeWBlock() {
	switch ( blockNo ) {
		case 0:		// 棒
			switch ( kaiten ) {
				case 0:
				case 2:
					blockWX[0] = x;
					blockWY[0] = y - 3;
					blockWX[1] = x;
					blockWY[1] = y - 2;
					blockWX[2] = x;
					blockWY[2] = y - 1;
					blockWX[3] = x;
					blockWY[3] = y;
					break;
				case 1:
				case 3:
					blockWX[0] = x;
					blockWY[0] = y - 2;
					blockWX[1] = x + 1;
					blockWY[1] = y - 2;
					blockWX[2] = x - 2;
					blockWY[2] = y - 2;
					blockWX[3] = x - 1;
					blockWY[3] = y - 2;
					break;
			}
			break;
		
		case 1:		// Lその1
			switch ( kaiten ) {
				case 0:
					blockWX[0] = x - 1;
					blockWY[0] = y - 1;
					blockWX[1] = x + 1;
					blockWY[1] = y;
					blockWX[2] = x - 1;
					blockWY[2] = y;
					blockWX[3] = x;
					blockWY[3] = y;
					break;
				case 1:
					blockWX[0] = x - 1;
					blockWY[0] = y - 1;
					blockWX[1] = x;
					blockWY[1] = y - 1;
					blockWX[2] = x - 1;
					blockWY[2] = y;
					blockWX[3] = x - 1;
					blockWY[3] = y + 1;
					break;
				case 2:
					blockWX[0] = x - 1;
					blockWY[0] = y - 1;
					blockWX[1] = x;
					blockWY[1] = y - 1;
					blockWX[2] = x - 2;
					blockWY[2] = y - 1;
					blockWX[3] = x;
					blockWY[3] = y;
					break;
				case 3:
					blockWX[0] = x;
					blockWY[0] = y - 2;
					blockWX[1] = x;
					blockWY[1] = y - 1;
					blockWX[2] = x - 1;
					blockWY[2] = y;
					blockWX[3] = x;
					blockWY[3] = y;
					break;
			}
			break;
		case 2:		// Lその2
			switch ( kaiten ) {
				case 0:
					blockWX[0] = x;
					blockWY[0] = y - 1;
					blockWX[1] = x;
					blockWY[1] = y;
					blockWX[2] = x - 2;
					blockWY[2] = y;
					blockWX[3] = x - 1;
					blockWY[3] = y;
					break;
				case 1:
					blockWX[0] = x - 1;
					blockWY[0] = y - 2;
					blockWX[1] = x;
					blockWY[1] = y;
					blockWX[2] = x - 1;
					blockWY[2] = y - 1;
					blockWX[3] = x - 1;
					blockWY[3] = y;
					break;
				case 2:
					blockWX[0] = x;
					blockWY[0] = y - 1;
					blockWX[1] = x + 1;
					blockWY[1] = y - 1;
					blockWX[2] = x - 1;
					blockWY[2] = y - 1;
					blockWX[3] = x - 1;
					blockWY[3] = y;
					break;
				case 3:
					blockWX[0] = x;
					blockWY[0] = y - 1;
					blockWX[1] = x;
					blockWY[1] = y;
					blockWX[2] = x - 1;
					blockWY[2] = y - 1;
					blockWX[3] = x;
					blockWY[3] = y + 1;
					break;
			}
			break;
		case 3:		// クランクその1
			switch ( kaiten ) {
				case 0:
				case 2:
					blockWX[0] = x;
					blockWY[0] = y - 1;
					blockWX[1] = x + 1;
					blockWY[1] = y;
					blockWX[2] = x - 1;
					blockWY[2] = y - 1;
					blockWX[3] = x;
					blockWY[3] = y;
					break;
				case 1:
				case 3:
					blockWX[0] = x;
					blockWY[0] = y - 2;
					blockWX[1] = x;
					blockWY[1] = y - 1;
					blockWX[2] = x - 1;
					blockWY[2] = y - 1;
					blockWX[3] = x - 1;
					blockWY[3] = y;
					break;
			}
			break;
		case 4:		// クランクその2
			switch ( kaiten ) {
				case 0:
				case 2:
					blockWX[0] = x;
					blockWY[0] = y - 1;
					blockWX[1] = x + 1;
					blockWY[1] = y - 1;
					blockWX[2] = x - 1;
					blockWY[2] = y;
					blockWX[3] = x;
					blockWY[3] = y;
					break;
				case 1:
				case 3:
					blockWX[0] = x - 1;
					blockWY[0] = y - 2;
					blockWX[1] = x;
					blockWY[1] = y - 1;
					blockWX[2] = x - 1;
					blockWY[2] = y - 1;
					blockWX[3] = x;
					blockWY[3] = y;
					break;
			}
			break;
		case 5:		// 凸
			switch ( kaiten ) {
				case 0:
					blockWX[0] = x;
					blockWY[0] = y - 1;
					blockWX[1] = x + 1;
					blockWY[1] = y;
					blockWX[2] = x - 1;
					blockWY[2] = y;
					blockWX[3] = x;
					blockWY[3] = y;
					break;
				case 1:
					blockWX[0] = x;
					blockWY[0] = y - 1;
					blockWX[1] = x + 1;
					blockWY[1] = y;
					blockWX[2] = x;
					blockWY[2] = y;
					blockWX[3] = x;
					blockWY[3] = y + 1;
					break;
				case 2:
					blockWX[0] = x;
					blockWY[0] = y;
					blockWX[1] = x + 1;
					blockWY[1] = y;
					blockWX[2] = x - 1;
					blockWY[2] = y;
					blockWX[3] = x;
					blockWY[3] = y + 1;
					break;
				case 3:
					blockWX[0] = x;
					blockWY[0] = y - 1;
					blockWX[1] = x;
					blockWY[1] = y;
					blockWX[2] = x - 1;
					blockWY[2] = y;
					blockWX[3] = x;
					blockWY[3] = y + 1;
					break;
			}
			break;
		case 6:		// 四角
			blockWX[0] = x - 1;
			blockWY[0] = y - 1;
			blockWX[1] = x;
			blockWY[1] = y - 1;
			blockWX[2] = x - 1;
			blockWY[2] = y;
			blockWX[3] = x;
			blockWY[3] = y;
			break;
	}
}


// 次に落ちるブロックを表示する関数-------------------------------------------------
function MakeNextBlock( number ) {
	switch ( number ) {
		case 0:
			mojiretu =	"□□■□" + cr +
				  	"□□■□" + cr +
				  	"□□■□" + cr +
				  	"□□■□";
			break;
		case 1:
			mojiretu =	"□□□□" + cr +
					"□□■□" + cr +
					"□□■□" + cr +
					"□■■□";
			break;
		case 2:
			mojiretu =	"□□□□" + cr +
					"□■□□" + cr +
					"□■□□" + cr +
					"□■■□";
			break;
		case 3:
			mojiretu =	"□□□□" + cr +
					"□■■□" + cr +
					"□□■■" + cr +
					"□□□□";
			break;
		case 4:
			mojiretu =	"□□□□" + cr +
					"□■■□" + cr +
					"■■□□" + cr +
					"□□□□";
			break;
		case 5:
			mojiretu =	"□□□□" + cr +
					"□□■□" + cr +
					"□■■■" + cr +
					"□□□□";
			break;
		case 6:
			mojiretu =	"□□□□" + cr +
					"□■■□" + cr +
					"□■■□" + cr +
					"□□□□";
			break;
	}
	document.game.tugi.value = mojiretu;
}



// ブロックが移動できるかをチェックする関数 ----------------------------------------
function CheckBlockMove() {
	// 左右と下チェック
	if ( blockWX[2] < 0 || blockWX[1] >= width || blockWY[3] >= height ) {
		return( false );
	}
	// ブロックの下が空白かチェック
	for ( i = 0; i < 4; i++ ) {
		if ( blockWY[i] >= 0 ) {
			if ( vr[blockWX[i]][blockWY[i]] == "■" ) {
				return( false );
			}
		}
	}
	return( true );
}


// 仮想ブロックからブロックを作る関数
function MakeBlock() {
	for ( i = 0; i < 4; i++ ) {
		blockX[i] = blockWX[i];
		blockY[i] = blockWY[i];
	}
}


// 初期化用関数 -------------------------------------------------------------------
function Syokika() {
	
	// 変数の初期化
	gameflag = false;
	buttonflag = true;
	mode = 0;
	score = 0;
	level = 1;
	levelcount = 0;
	gamespeed = 1000;
	speed = 1000;
	
	for ( i = 0; i < height; i++ ) {
		for ( j = 0; j < width; j++ ) {
			vr[j][i] = "□";	// 仮想画面クリア
		}
	}
	// 仮想画面を表示する
	Hyouji();
	
	// 次画面をクリアする
	mojiretu =	"□□□□" + cr +
			"□□□□" + cr +
			"□□□□" + cr +
			"□□□□";
	document.game.tugi.value = mojiretu;
	
	// 最初に落ちるブロックを決める
	blockNo2 = Math.floor( Math.random() * 7 );
}


// 画面に書き込む関数 --------------------------------------------------------------
function Kakikomi() {
	// 仮想画面に現在動かすブロックを書き込む
	for ( i = 0; i < 4; i++ ) {
		if ( blockX[i] >= 0 && blockY[i] >= 0 ) {
			vr[blockX[i]][blockY[i]] = "■";
		}
	}
	// 仮想画面を表示する
	Hyouji();
	
	// 仮想画面から現在動かしているブロックを消去
	for ( i = 0; i < 4; i++ ) {
		if ( blockX[i] >= 0 && blockY[i] >= 0 ) {
			vr[blockX[i]][blockY[i]] = "□";
		}
	}
}


// 仮想画面を表示する関数
function Hyouji() {
	// 画面に表示する文字列の作成
	mojiretu = "";
	for ( i = 0; i < height; i++) {
		for ( j = 0; j < width; j++ ) {
			mojiretu = mojiretu + vr[j][i];
		}
		if ( i != height - 1 ) {
			mojiretu = mojiretu + cr;
		}
	}
	// 画面の表示
	document.game.gamen.value = mojiretu;
	document.game.SCORE.value = score;
	document.game.LEVEL.value = level;
}


// 各ボタンに対する関数
// 回転
function Moveturn() {
	// ゲームが始まっていない時は、ゲームを始める
	if ( !( gameflag ) ) {
		gameflag = true;
		Main();
	} else {
		// ゲーム中のボタンの動き
		var tmp = kaiten;	// 現在の回転状態をtmp変数に代入
		if ( kaiten < 3 ) {
			kaiten++;
		} else {
			kaiten = 0;
		}
		MakeWBlock();
		var ret = CheckBlockMove();
		if ( ret ) {
			MakeBlock();
			Kakikomi();
		} else {
			kaiten = tmp;
		}
	}
}
// 左
function Moveleft() {
	// ゲームが始まっていない時は、ゲームを始める
	if ( !( gameflag ) ) {
		gameflag = true;
		Main();
	} else {
		// ゲーム中のボタンの動き
		var tmp = x;
		x--;
		MakeWBlock();
		var ret = CheckBlockMove();
		if ( ret ) {
			MakeBlock();
			Kakikomi();
		} else {
			x = tmp;
		}
	}
}
// 右
function Moveright() {
	// ゲームが始まっていない時は、ゲームを始める
	if ( !( gameflag ) ) {
		gameflag = true;
		Main();
	} else {
		// ゲーム中のボタンの動き
		var tmp = x;
		x++;
		MakeWBlock();
		var ret = CheckBlockMove();
		if ( ret ) {
			MakeBlock();
			Kakikomi();
		} else {
			x = tmp;
		}
	}
}
// 下
function Movedown() {
	// ゲームが始まっていない時は、ゲームを始める
	if ( !( gameflag ) ) {
		gameflag = true;
		Main();
	} else {
		// ゲーム中のボタンの動き
		var tmp = y;
		y++;
		MakeWBlock();
		var ret = CheckBlockMove();
		if ( ret ) {
			score += 10;
			MakeBlock();
			Kakikomi();
		} else {
			y = tmp;
		}
	}
}


// ゲームオーバー
function GameOver() {
	gameflag = false;	// ゲームを停止
	alert( "GameOver" );
	Syokika();
}


// メインルーチン
function Main() {
	// ゲームが始まっている時のみ処理をする
	if ( gameflag ) {
		// ゲームの状態によって、処理を変える
		switch ( mode ) {
			case 0:
				// 落下するブロックと、次落下するブロックを設定
				blockNo = blockNo2;
				blockNo2 = Math.floor( Math.random() * 7 );
				kaiten = 0;
				x = 4;
				y = 0;
				// 落下させるごとにレベルアップに近づける
				levelcount++;
				// 次落下するブロックを描く
				MakeNextBlock( blockNo2 );
				// 仮想ブロックの作成
				MakeWBlock();
				// 仮想ブロックが置けるかどうかチェック
				if ( CheckBlockMove() ) {
					// 置ける時
					MakeBlock();	// ブロックを作成
					Kakikomi();	// ブロックの表示
					mode = 1;	// ブロックが落ちるモードに変更
				} else {
					// 置けない時
					MakeBlock();	// こちらもブロックは表示させる
					Kakikomi();
					GameOver();	// ゲームオーバー
					return;
				}
				speed = gamespeed;
				break;
				
			case 1:
				// ブロックを下に落とす
				var tmp = y;
				y++;
				MakeWBlock();
				var ret = CheckBlockMove();
				if ( ret ) {	// ブロックを移動できる時の処理
					// ブロックを表示する
					MakeBlock();
					Kakikomi();
				} else {	// ブロックを移動できない時の処理
					// ブロックの位地を元に戻す
					y = tmp;
					// 仮想画面にブロックを書き込む
					for ( i = 0; i < 4; i++ ) {
						if ( blockX[i] >= 0 && blockY[i] >= 0 ) {
							vr[blockX[i]][blockY[i]] = "■";
						}
					}
					mode = 2;	// ラインチェックモードに変更
					speed = 250;
				}
				break;
				
			case 2:
				// ラインチェック
				var makeScore = 0;	// スコア作成用ローカル変数
				// 動かしていたブロックの一番下の位置から上へラインをチェック
				for ( i = blockY[3]; i >= blockY[0]; i-- ) {
					if ( i < 0 ) {
						break;
					}
					for ( j = 0; j < width; j++ ) {
						if ( vr[j][i] == "□" ) {
							// ブロックが無かった時はループを抜ける
							break;
						}
						if ( j == width - 1 ) {
							// 一番右端までブロックだった時は、ブロックを消す
							for ( k = 0; k < width; k++ ) {
								vr[k][i] = "□";
							}
							// 点数を作成
							if ( makeScore == 0 ) {
								makeScore = 100;
							} else {
								makeScore += makeScore;
							}
						}
					}
				}
				if ( makeScore > 0 ) {
					// スコアが入ったときの処理
					score += makeScore;
					Hyouji();
					mode = 3;	// 空白部分を詰めるモードへ
				} else {
					buttonflag = true;
					mode = 0;	// 次に落ちてくるブロックを作成モードへ
				}
				break;
				
			case 3:
				// 空白部分を埋める
				var blankcount = 0;	// ブロックを何段動かすかを数えるローカル変数
				var blockflag = false;	// ラインのブロック存在フラグ
				// 動かしていたブロックの一番下の位置から画面一番上までチェック
				for ( i = blockY[3]; i >= 0; i-- ) {
					blockflag = false;
					for ( j = 0; j < width; j++ ) {
						if ( vr[j][i] == "■" ) {
							blockflag = true;
							// ブロックがあった時はループを抜ける
							break;
						}
						if ( j == width -1 ) {
							// 一番右端まで空白だった時はブロックを動かす数を増やす
							blankcount++;
						}
					}
					if ( blockflag && ( blankcount != 0 ) ) {
						// ラインにブロックがあった時は、ブロックを詰める
						for ( j = 0; j < width; j++ ) {
							vr[j][i + blankcount] = vr[j][i];
							// 元あった場所は空白にする
							vr[j][i] = "□";
						}
					}
				}
				// レベル計算
				if ( levelcount >= 10 ) {
					levelcount = 0;
					level++;
					if ( level % 5 == 0 ) {
						gamespeed += 300;
					} else {
						gamespeed -= 150;
						if ( gamespeed < 100 ) {
							gamespeed = 300;
						}
					}
				}
				speed = gamespeed;
				mode = 0;
				break;
		}
	}
	window.setTimeout( "Main()", speed );
}


// キー入力判定
document.onkeydown = myKeyEvent;
function myKeyEvent(e) {
	var keyNo;
	keyNo = e.keyCode;
	if ( keyNo == 38 || keyNo == 104 || keyNo == 101 ) {
		Moveturn();
	} else if ( keyNo == 37 || keyNo == 100 ) {
		Moveleft();
	} else if ( keyNo == 39 || keyNo == 102 ) {
		Moveright();
	} else if ( keyNo == 40 || keyNo == 98 ) {
		Movedown();
	}
}

// -->
</script>
</head>
<body onload="Syokika()">
<form name="game">
<center>
<table>
<tr><td>
</td><td>
	<input type="text" name="SCORE" size="20">
</td><tr>
<tr><td valign="top">
	<textarea name="tugi" rows="4" cols="10"></textarea><br>
	Next<br><br>
	<input type="text" name="LEVEL" size="5"><br>
	Level
</td><td>
	<textarea name="gamen" rows="20" cols="20"></textarea>
	<table>
	<tr align="center">
	<td colspan="2">
		<input type="button" name="TURN" value="TURN" onclick="Moveturn()">
	</td>
	</tr>
	<tr align="center">
	<td>
		<input type="button" name="LEFT" value=" LEFT" onclick="Moveleft()">
	</td>
	<td>
		<input type="button" name="RIGHT" value="RIGHT" onclick="Moveright()">
	</td>
	</tr>
	<tr align="center">
	<td colspan="2">
		<input type="button" name="DOWN" value="DOWN" onclick="Movedown()">
	</td>
	</tr>
	</table>
</td></tr>
</table>
</center>
</form>
</body>
</html>


ソースは好き勝手に使っていただいてかまいません。


一言でテトリスと言っても、そう簡単なものではなくて、
現在のブロックがどうなっていて、動くとどうなるのか？
というのを調べる状態を作るのに苦労しました。
それでも、テトリスがどういうゲーム性だというのは
解っているので、それを解らずに作った初代テトリスの
プログラマは、やっぱりすごいと思います。
また、今見ても、セガのアーケードのテトリスのできが
一番良いと思います。
レベル上がると、背景が変わる所とかね。

というわけで、操作性は元祖セガ版を真似て作ったつもり
です。でも違ったら、皇帝版ということで
許してください。（汗）
実はあまり知らないんです。（T_T）
ブロックの回転も、ブロックの真中を中心にして
回しているわけではないんですよ。

変な（？）処理なんですが
■４つで１つのブロックが構成されているのを利用して、
４つのうちの１つずつに上下左右が空白かを監視をさせています。
上を調べる時はこのブロック、みたいな。
ちょうどブロック４つなので、上下左右の管理に
都合がいいのですよ。

●皇帝流テトリスへ戻る