ドリキャス用タイニー What If ソース

ドリキャス用タイニー What If ソース

<html>
<head>
<title>WHAT IF !!</title>
<script language="JavaScript">
<!--

game=0;		 // 1のときゲーム中
cr="\r\n";	  // 文字の折り返し用空白文字
counter=0;	  // カードを積み上げた枚数
hicount=0; // 最高クリア枚数
ct=1;		   // カードを出す順番
maime=new Array(53);	// カードの順番が入った配列(1～52)
bacard=1;	   // 場に出ている6枚のカードの場所
nokoris="";			 // 各スーツの残りカード
nokoric="";
nokorid="";
nokorih="";
basuuji=new Array(7);   // 場に出ているカードの数字
basuit=new Array(7);	// 場に出ているカードのスーツ
caflag=new Array(7);	// カードが重ねられるか？のフラグ　×と○

function Syokika() {

		// ＊＊＊＊＊　カードをくる　＊＊＊＊＊
		// カードの数を文字列にする
 mojiretu="";
		for (i=1; i<=9; i++) {
				mojiretu=mojiretu+"0"+i+",";
		}
		for (i=10; i<=52; i++) {
				mojiretu=mojiretu+String(i)+",";
		}

		// カードの順番ををランダムにする
		for (i=52; i>0; i--) {
				rnd=Math.floor(Math.random()*i); // 乱数の作成
				maime[i]=mojiretu.substr(rnd*3, 2);

				//maime[i]に入れた数をmojiretuから切り取る
				mojiretu=mojiretu.substr(0,rnd*3)+mojiretu.substr(rnd*3+3);

				// maime[i]を数字に変換
				maime[i]=parseInt(maime[i].charAt(0))*10 + parseInt(maime[i].charAt(1));
		}


		// 　最初の6枚を作成
		for (ct=1; ct<=6; ct++) {
				bacard=ct;
				Csakusei();
		}


		// 残りカードの作成　
		for (i=1; i<=9; i++) {
				nokoris=nokoris+"0"+i+":";
				nokoric=nokoric+"0"+i+":";
				nokorid=nokorid+"0"+i+":";
				nokorih=nokorih+"0"+i+":";
		}
		for (i=10; i<=13; i++) {
				nokoris=nokoris+i+":";
				nokoric=nokoric+i+":";
				nokorid=nokorid+i+":";
				nokorih=nokorih+i+":";
		}

		// カードと残りカードを表示
		basuit[0]="";basuuji[0]=cr; // 重ねる場所を空白にする

		for (i=0; i<=6; i++) {
				caflag[i]="○"; //カードを重ねられる状態にする
				Chyouji(i);
				Nokori(basuit[i],basuuji[i]);
		}


		game=1 // ゲーム開始
}

function Csakusei() {

		// ＊＊＊＊　52の数字を、４つのスーツ＆１３枚のカードにする関数　＊＊＊＊

		if (maime[ct] <= 13) {						  // スペード
				basuit[bacard]="S";
				basuuji[bacard]=maime[ct];
		}else if (13<maime[ct] && maime[ct]<=26) {	  // クラブ
				basuit[bacard]="C";
				basuuji[bacard]=maime[ct]-13;
		}else if (26<maime[ct] && maime[ct]<=39) {	  // ダイヤ
				basuit[bacard]="D";
				basuuji[bacard]=maime[ct]-26;
		}else if (39<maime[ct] && maime[ct]<=52) {	  // ハート
				basuit[bacard]="H";
				basuuji[bacard]=maime[ct]-39;
		}else{										  // カードが無くなった時
				basuit[bacard]="";
				basuuji[bacard]=cr;
		}

}


function Chyouji(a) {
		// ＊＊＊＊　カードを表示する関数　＊＊＊＊
		// 引数　a表示する場所

		switch (a) {
				case 0:
						document.what.card0.value=basuit[0]+" "+basuuji[0];
						document.what.maisuu.value=counter;
						break;
				case 1:
						document.what.card1.value=basuit[1]+" "+basuuji[1];
						document.what.ok1.value=caflag[1]
						break;
				case 2:
						document.what.card2.value=basuit[2]+" "+basuuji[2];
						document.what.ok2.value=caflag[2]
						break;
				case 3:
						document.what.card3.value=basuit[3]+" "+basuuji[3];
						document.what.ok3.value=caflag[3]
						break;
				case 4:
						document.what.card4.value=basuit[4]+" "+basuuji[4];
						document.what.ok4.value=caflag[4]
						break;
				case 5:
						document.what.card5.value=basuit[5]+" "+basuuji[5];
						document.what.ok5.value=caflag[5]
						break;
				case 6:
						document.what.card6.value=basuit[6]+" "+basuuji[6];
						document.what.ok6.value=caflag[6]
						break;
		}
}


function Nokori(a,b) {
		// ＊＊＊＊　残りカードを表示する関数　＊＊＊＊
		// 引数　aカードのスーツ,bカードの数

		if (a != "") {

				switch (a) {
						case "S":
								nokoris=nokoris.substr(0,(b-1)*3)+"   "+nokoris.substr((b-1)*3+3);
								break;
						case "C":
								nokoric=nokoric.substr(0,(b-1)*3)+"   "+nokoric.substr((b-1)*3+3);
								break;
						case "D":
								nokorid=nokorid.substr(0,(b-1)*3)+"   "+nokorid.substr((b-1)*3+3);
								break;
						case "H":
								nokorih=nokorih.substr(0,(b-1)*3)+"   "+nokorih.substr((b-1)*3+3);
								break;
				}
				// textareaに表示する
				document.what.nokori.value=
						"S "+nokoris+cr+
						"C "+nokoric+cr+
						"D "+nokorid+cr+
						"H "+nokorih;
		}
}

// ＊＊＊＊ カードのボタンを押したときの関数　＊＊＊＊＊

function Card1() {
		if (game==1 && caflag[1]=="○") {
				basuit[0] = basuit[1];
				basuuji[0]=basuuji[1];

				bacard=1;
				Csakusei();
				Nokori(basuit[1],basuuji[1]);
				Main();
		}
}

function Card2() {
		if (game==1 && caflag[2]=="○") {
				basuit[0] = basuit[2];
				basuuji[0]=basuuji[2];

				bacard=2;
				Csakusei();
				Nokori(basuit[2],basuuji[2]);
				Main();
		}
}

function Card3() {
		if (game==1 && caflag[3]=="○") {
				basuit[0] = basuit[3];
				basuuji[0]=basuuji[3];

				bacard=3;
				Csakusei();
				Nokori(basuit[3],basuuji[3]);
				Main();
		}
}

function Card4() {
		if (game==1 && caflag[4]=="○") {
				basuit[0] = basuit[4];
				basuuji[0]=basuuji[4];

				bacard=4;
				Csakusei();
				Nokori(basuit[4],basuuji[4]);
				Main();
		}
}

function Card5() {
		if (game==1 && caflag[5]=="○") {
				basuit[0] = basuit[5];
				basuuji[0]=basuuji[5];

				bacard=5;
				Csakusei();
				Nokori(basuit[5],basuuji[5]);
				Main();
		}
}

function Card6() {
		if (game==1 && caflag[6]=="○") {
				basuit[0] = basuit[6];
				basuuji[0]=basuuji[6];

				bacard=6;
				Csakusei();
				Nokori(basuit[6],basuuji[6]);
				Main();
		}
}


function Ccheck(a) {
		// ＊＊＊＊　カードが重ねられるかのチェック　＊＊＊＊
		// 引数a、カードの場所


		// 重ねられるとき ○ 重ねられないとき ×

		if (basuit[a] == basuit[0]) {
				caflag[a]="○";
		}else if (basuuji[a] == basuuji[0]) {
				caflag[a]="○";
		}else{
				caflag[a]="×";
		}
}


function Main() {

		// ＊＊＊＊　メインルーチン　＊＊＊＊

		counter++;


		// カードの書き換え
		for (i=0; i<=6; i++) {
				Ccheck(i);

				Chyouji(i);
		}
		ct++;
		Message();

		// オールクリアのチェック
		if (counter==52) {
				Allcler();
		}

		// ゲームオーバーのチェック
		if (caflag[1]=="×" && caflag[2]=="×" &&caflag[3]=="×" &&
			caflag[4]=="×" && caflag[5]=="×" && caflag[6]=="×") {
				Gameover();
		}
}


function Message() {
		if (counter==15) {
				alert("１５枚クリア！");
		}else if (counter==26) {
				alert("２６枚クリア！あと半分だ！");
		}else if (counter==35) {
				alert("３５枚クリア！絶好調！！");
		}else if (counter==45) {
				alert("４５枚クリア！！すげぇ～！！");
		}
}


function Allcler() {
		//　＊＊＊＊　オールクリア　＊＊＊＊

		alert("５２枚クリアです！！"+cr+"おめでとう！！");
}


function Gameover() {
		//　＊＊＊＊　ゲームオーバー　＊＊＊＊

		document.what.card2.value=basuit[2]+" "+basuuji[2]+cr+"GAME";
		document.what.card3.value=basuit[3]+" "+basuuji[3]+cr+"OVER";
		document.what.card4.value=basuit[4]+" "+basuuji[4]+cr+"Click";
		document.what.card5.value=basuit[5]+" "+basuuji[5]+cr+"RESET";

		if (hicount < counter) {
				hicount=counter;
				document.what.himaisuu.value=hicount;
		}
}


function Rest(){
		// ＊＊＊＊　RESETボタンを押したとき　＊＊＊＊

		game=0;
		counter=0;
		ct=1;
		bacard=1;
		nokoris="";
		nokoric="";
		nokorid="";
		nokorih="";

		Syokika();
}


// -->
</script>
<body onload="Syokika()">
<form name="what">
<textarea name="nokori" rows="5" cols="30"></textarea>
<table>
<tr>
		<td>
				　　　　<input type="button" name="reset" value="RESET" onclick="Rest()">
				<textarea name="card0" rows="2" cols="4"></textarea>
		</td>
		<td>
				<table>
				<tr>
						<td>クリア枚数</td>
						<td>　最高枚数</td>
				</tr>
				<tr>
						<td>
								<input type="text" size="2" name="maisuu" value="0">
						</td>
						<td>
								　<input type="text" size="2" name="himaisuu" value="0">
						</td>
				</tr>
				</table>
		</td>
</tr>
</table>
<table>
<tr>
		<td>
				<textarea name="card1" rows="2" cols="4"></textarea>
		</td>
		<td>
				<textarea name="card2" rows="2" cols="4"></textarea>
		</td>
		<td>
				<textarea name="card3" rows="2" cols="4"></textarea>
		</td>
		<td>
				<textarea name="card4" rows="2" cols="4"></textarea>
		</td>
		<td>
				<textarea name="card5" rows="2" cols="4"></textarea>
		</td>
		<td>
				<textarea name="card6" rows="2" cols="4"></textarea>
		</td>
</tr>
<tr>

		<td align="center">
				<input type="button" name="button1" value=" 1 " onclick="Card1()">
				<input type="text" size="1" name="ok1" value="○">
		</td>
		<td align="center">
				<input type="button" name="button2" value=" 2 " onclick="Card2()">
				<input type="text" size="1" name="ok2" value="○">
		</td>
		<td align="center">
				<input type="button" name="button3" value=" 3 " onclick="Card3()">
				<input type="text" size="1" name="ok3" value="○">
		</td>
		<td align="center">
				<input type="button" name="button4" value=" 4 " onclick="Card4()">
				<input type="text" size="1" name="ok4" value="○">
		</td>
		<td align="center">
				<input type="button" name="button5" value=" 5 " onclick="Card5()">
				<input type="text" size="1" name="ok5" value="○">
		</td>
		<td align="center">
				<input type="button" name="button6" value=" 6 " onclick="Card6()">
				<input type="text" size="1" name="ok6" value="○">
		</td>
</tr>

</table>
</form>
</body>
</head>
</html>



サンプルを自由に使っていいとおっしゃる方のソースを
参考に作ったので、好き勝手に使ってください。

オールクリア時のリンクは、はずしています。

こちらはＰＣ版とは違ってかなり苦労しました。
どの命令が使えてどの命令が使えないのか
全く資料が無かったし、テレホタイムにならないと
手がつけられなかったからです。
また、ドリキャスがエラー表示してくれないので、
どこにバグがあるのか全然判らなかったのはとにかく
苦労させられました。

ＰＣ版と見比べると、どの辺で苦労しているか解ると
思います。
●　タイニー What If のページへ戻る