#! /usr/local/bin/perl

	
	loadFormdata();
	if($F{"mode"} eq ""){
		DecCoise();
	}elsif($F{"mode"} eq "game"){
		Game();
	}elsif($F{"mode"} eq "DecMake"){
		yomikomiK("deck/$F{'DecNumber'}.dat");
		$key =~ s/\n//;
		if($F{"key"} eq $key){
			DecMake();
		}else{
			DecCoise();
		}
	}elsif($F{"mode"} eq "DecMake1"){
			DecMake1();
	}elsif($F{"mode"} eq "DecDelete"){
		yomikomiK("deck/$F{'DecNumber'}.dat");
		
		$key =~ s/\n//;
		if($F{"key"} eq $key){
			DecDelete();
		}else{
			DecCoise();
		}
	}elsif($F{"mode"} eq "Lobby"){
		Lobby();
	}else{
		DecCoise();
	}

	exit;
#=ゲーム=========================================================================================
sub Game {

	yomikomiGame();

#############################################
#　新規ゲーム　（デッキをＧＤデータに入れ、シャッフル）
#
	if($F{"NewGame"}){
		yomikomiK("deck/$F{'DecNumber'}.dat");

	#ゲームデータに名前を登録
		yomikomiGame();
		yomikomiGame2($F{"PlayNumber"});
		$PlayName{$F{"PlayNumber"}}=$F{"Name"};
		$DecNumber{$F{"PlayNumber"}}=$F{'DecNumber'};
		kakikomiGame2($F{"PlayNumber"});
		kakikomiGame();

	#デッキデータをＧＤデータに
		$b=-1;
		for($i=1 ; $i < @KDECDATA ; ++$i){
			for($a=0 ; $a < $Maisuu{$i} ; ++$a){
				++$b;
				$CardListN[$b]=$CardListN{$i};
				$Basyo[$b]="LB";
			}
		}
		#$bはここから合計枚数
		for($a=0 ; $a <= $b ; ++$a){
			$c=0;
			for($i=0 ; $i <= $b ; ++$i){
				if($Z[$i] eq ""){
					$kariban[$c]=$i;
					++$c;
				}
			}
			#$cは次のループまで「$Z[]が割り振られていないカードの数」
			if($c == 0){$Z[$kariban[$c]]=0}
			else{
				$e=int(rand $c);--$c;
				$Z[$kariban[$e]]=$c;
			}
		}
		#書き込み。Ｇ２，３は枚数が不確定なこの時しか使わない。
		kakikomiG2($b);
		kakikomiG3("game/$F{'PlayNumber'}.dat");
	}

#############################################
#　ループの準備　$PlayL[０〜プレイヤー数]で、ループするプレイヤーナンバーを返す
#
#・$PlayL[テーブル内プレイヤーナンバー]＝一般プレイヤーナンバー；

	if($F{'PlayNumber'} == 0 or $F{'PlayNumber'} == 1){$PlayL[0] = 0 ; $PlayL[1] = 1 ; $Table=1}
	elsif($F{'PlayNumber'} == 2 or $F{'PlayNumber'} == 3){$PlayL[0] = 2 ; $PlayL[1] = 3; $Table=2}
	elsif($F{'PlayNumber'} == 4 or $F{'PlayNumber'} == 5 or $F{'PlayNumber'} == 6 or $F{'PlayNumber'} == 7){$PlayL[0] = 4 ; $PlayL[1] = 5 ; $PlayL[2] = 6 ; $PlayL[3] = 7; $Table=3}
	elsif($F{'PlayNumber'} == 8 or $F{'PlayNumber'} == 9 or $F{'PlayNumber'} == 10 or $F{'PlayNumber'} == 11){$PlayL[0] = 8 ; $PlayL[1] = 9 ; $PlayL[2] = 10 ; $PlayL[3] = 11; $Table=4}
	$i2=0;#全デッキのカードデータを表示するための、全デッキのカードの種類（デッキ間において重複の可能性はあり）
#############################################
#　ここからループ！
#

for($i = 0 ; $i < @PlayL ; ++$i){
	yomikomiGame2($PlayL[$i]);

	#############################################
	#　ライフ操作

	if($PlayL[$i] eq $F{"PlayNumber"} and $F{"mode2"} eq "LifeS"){
		$Life{$F{"PlayNumber"}}=$F{"Life"};
		kakikomiGame2($F{"PlayNumber"});
		kakikomiGame();
	}

	#
	#############################################
	#　ゲームデッキデータを読み込み、それぞれの場所のカード枚数をカウント
	#・二次元ハッシュを使う。「$MaisuuG{場所記号}->{プレイヤーナンバー}」という形で

	yomikomiG("game/$PlayL[$i].dat");
	%MaisuuG="";
	for($i2=0 ; $i2 < @GDECDATA ; ++$i2){
		++$MaisuuG{$Basyo[$i2]}
	}

	#
	#############################################
	#　構築デッキデータからカードテキストを読み込む
	#

	yomikomiK("deck/$DecNumber{$PlayL[$i]}.dat");

	for($i2=1 ; $i2 < @KDECDATA ; ++$i2){
		$CardDataH[$CardDataSuu]="if(CN == $CardListN{$i2}){\n text.innerHTML='<div class=\"$CardColor{$CardListN{$i2}}\">$CardData{$CardListN{$i2}}</div>';\n}";
		++$CardDataSuu;
	}

	#
	#############################################
	#　書き込み系プログラム
	#

	if($PlayL[$i] eq $F{'PlayNumber'} and $F{"mode2"} eq "Draw"){
		for ($a=0; $a < $F{"Maisuu"} ; ++$a) {
			if($MaisuuG{$F{'SakiB'}} eq ""){$MaisuuG{$F{'SakiB'}}=0}
			if($MaisuuG{"LB"} > 0){
				for($i2=0 ; $i2 < @GDECDATA ; ++$i2){
					if($Basyo[$i2] eq "LB" and $Z[$i2] > $MAX){
						$MAX=$Z[$i2];$Taisyou=$i2;
					}
				}
				$Basyo[$Taisyou]=$F{'SakiB'};
				$Z[$Taisyou]=$MaisuuG{$F{'SakiB'}};
				--$MaisuuG{"LB"};
				++$MaisuuG{$F{'SakiB'}};
				$MAX=0;$Taisyou=0;
			}
		}
		kakikomiG("game/$PlayL[$i].dat");
	}elsif($PlayL[$i] eq $F{'PlayNumber'} and $F{"mode2"} eq "Kakikomi"){
	 if($Basyo[$F{"Taisyou"}] ne $F{"Basyo"} or $F{"Basyo"} eq "PU" or $F{"Basyo"} eq "PT" or $F{"Basyo"} eq "MU" or $F{"Basyo"} eq "MT" or $F{"Basyo"} eq "TU" or $F{"Basyo"} eq "TT"){
		if($Basyo[$F{"Taisyou"}] ne $F{"Basyo"} and $F{"Basyo"} ne ""){
			$Seiri=$Basyo[$F{"Taisyou"}];
			$Seiri2=$Z[$F{"Taisyou"}];
			$Basyo[$F{"Taisyou"}]=$F{"Basyo"};
		}
		if($F{"Basyo"} eq "PU" or $F{"Basyo"} eq "PT" or $F{"Basyo"} eq "MU" or $F{"Basyo"} eq "MT" or $F{"Basyo"} eq "TU" or $F{"Basyo"} eq "TT"){
			if($F{"Z"} ne ""){$Z[$F{"Taisyou"}]=$F{"Z"}}
			if($F{"X"} ne ""){$X[$F{"Taisyou"}]=$F{"X"}}
			if($F{"Y"} ne ""){$Y[$F{"Taisyou"}]=$F{"Y"}}
			if($F{"Comment"} ne ""){$Comment[$F{"Taisyou"}]=$F{"Comment"}}
		}
		if($F{"Basyo"} eq "LB" or $F{"Basyo"} eq "HA" or $F{"Basyo"} eq "GY" or $F{"Basyo"} eq "RM" or $F{"Basyo"} eq "FR"){
			if($MaisuuG{$F{"Basyo"}} eq ""){$MaisuuG{$F{"Basyo"}}=0}
			$Z[$F{"Taisyou"}]=$MaisuuG{$F{"Basyo"}};
			$X[$F{"Taisyou"}]="";$Y[$F{"Taisyou"}]="";
		}
		if($Seiri eq "LB" or $Seiri eq "HA" or $Seiri eq "GY" or $Seiri eq "RM" or $Seiri eq "FR"){
			for($i2=0 ; $i2 < @GDECDATA ; ++$i2){
				if($Basyo[$i2] eq $Seiri and $Z[$i2] > $Seiri2){
					--$Z[$i2];
				}
			}
		}
		if($Seiri ne $F{"Basyo"}){
			--$MaisuuG{$Seiri};
			++$MaisuuG{$F{"Basyo"}};
		}
		kakikomiG("game/$PlayL[$i].dat");
	 }
	}elsif($PlayL[$i] eq $F{'PlayNumber'} and $F{"mode2"} eq "LBBottom"){
	 if($Basyo[$F{"Taisyou"}] ne "LB"){
		for($i2=0 ; $i2 < @GDECDATA ; ++$i2){
			if($Basyo[$i2] eq "LB"){
				++$Z[$i2];
			}
		}
		$Seiri=$Basyo[$F{"Taisyou"}];
		$Seiri2=$Z[$F{"Taisyou"}];
		$Basyo[$F{"Taisyou"}]="LB";
		$Z[$F{"Taisyou"}]=0;
		$X[$F{"Taisyou"}]="";$Y[$F{"Taisyou"}]="";
		if($Seiri eq "LB" or $Seiri eq "HA" or $Seiri eq "GY" or $Seiri eq "RM" or $Seiri eq "FR"){
			for($i2=0 ; $i2 < @GDECDATA ; ++$i2){
				if($Basyo[$i2] eq $Seiri and $Z[$i2] > $Seiri2){
					--$Z[$i2];
				}
			}
		}
		--$MaisuuG{$Seiri};
		++$MaisuuG{"LB"};
		kakikomiG("game/$PlayL[$i].dat");
	 }
	}elsif($PlayL[$i] eq $F{'PlayNumber'} and $F{"mode2"} eq "TupUntup"){
		if($Basyo[$F{"Taisyou"}] eq "PU"){$Basyo[$F{"Taisyou"}]="PT"}
		elsif($Basyo[$F{"Taisyou"}] eq "PT"){$Basyo[$F{"Taisyou"}]="PU"}
		elsif($Basyo[$F{"Taisyou"}] eq "MT"){$Basyo[$F{"Taisyou"}]="MU"}
		elsif($Basyo[$F{"Taisyou"}] eq "MU"){$Basyo[$F{"Taisyou"}]="MT"}
		elsif($Basyo[$F{"Taisyou"}] eq "TT"){$Basyo[$F{"Taisyou"}]="TU"}
		elsif($Basyo[$F{"Taisyou"}] eq "TU"){$Basyo[$F{"Taisyou"}]="TT"}
		kakikomiG("game/$PlayL[$i].dat");
	}elsif($PlayL[$i] eq $F{'PlayNumber'} and $F{"mode2"} eq "Untup"){
		for($i2=0 ; $i2 < @GDECDATA ; ++$i2){
			if($Basyo[$i2] eq "PT"){$Basyo[$i2]="PU"}
			elsif($Basyo[$i2] eq "MT"){$Basyo[$i2]="MU"}
			elsif($Basyo[$i2] eq "TT"){$Basyo[$i2]="TU"}
		}
		kakikomiG("game/$PlayL[$i].dat");
	}elsif($PlayL[$i] eq $F{'PlayNumber'} and $F{"mode2"} eq "Shuffle"){
		for($a=0 ; $a < @GDECDATA ; ++$a){
			if($Basyo[$a] eq "LB"){$Z[$a]="";}
		}
		for($a=0 ; $a < @GDECDATA ; ++$a){
			$c=0;
			for($i2=0 ; $i2 <= @GDECDATA ; ++$i2){
				if($Z[$i2] eq "" and $Basyo[$i2] eq "LB"){
					$kariban[$c]=$i2;
					++$c;
				}
			}
			#$cは次のループまで「$Z[]が割り振られていないカードの数−１」
			if($c == 0){$Z[$kariban[$c]]=0}
			else{
				$e=int(rand $c);--$c;
				$Z[$kariban[$e]]=$c;
			}
		}
		kakikomiG("game/$PlayL[$i].dat");
	}

	#
	#############################################
	#　ゲームデッキデータをループさせ、変数に具体的な表示用パーツを登録する。
	#
	#・手札、リムーブ、フリーは自分のものしか表示しない
	#・場、墓地はみんな表示するが、自分のものしか選択はできない
	#・ライブラリーはみんな表示しない（サーチモードの時は自分のをする）
	#・カウント用変数　$HAG[テーブル内プレイヤーナンバー]：手札合計　$LMG[テーブル内プレイヤーナンバー]：リムーブ合計　……
	#・表示用変数　$HAH[手札番号(Z)]：手札　　$RMG[0〜リムーブ枚数]：リムーブ　……
	#・$i2にはゲーム内カードナンバー
	#・$CountPは全てのプレイヤーのパーマネントの総数
	#・$TekiMikataはこのプレイヤーが敵か見方か。敵だと１、見方だと０が入る。
	#・敵プレイヤーはカードムーブ領域の中心座標に対して、データに記載されている位置と対象になるよう表示する。
	#　　現在のカードムーブ領域の中心座標は(X=500px,Y=205px)。カードムーブ領域のインターフェイスをいじればここも変更すること！

	$TekiMikata=($PlayL[$i]+$F{"PlayNumber"})%2;

	for($i2=0 ; $i2 < @GDECDATA ; ++$i2){
		if($PlayL[$i] eq $F{"PlayNumber"}){
			if($Basyo[$i2] eq "HA"){
				$HAH[$Z[$i2]]="$Z[$i2].<font onClick=CardData($CardListN[$i2],$i2,\'$Comment[$i2]\',3) style='font-size:10pt;' class='$CardColor{$CardListN[$i2]}'>$CardName{$CardListN[$i2]}</font><br>";
			}elsif($Basyo[$i2] eq "GY"){
				$GYH[$Z[$i2]]="$Z[$i2].<font onClick=CardData($CardListN[$i2],$i2,\'$Comment[$i2]\',3) style='font-size:10pt;' class='$CardColor{$CardListN[$i2]}'>$CardName{$CardListN[$i2]}</font><br>";
			}elsif($Basyo[$i2] eq "FR"){
				$FRH[$Z[$i2]]="$Z[$i2].<font onClick=CardData($CardListN[$i2],$i2,\'$Comment[$i2]\',3) style='font-size:10pt;' class='$CardColor{$CardListN[$i2]}'>$CardName{$CardListN[$i2]}</font><br>";
			}elsif($Basyo[$i2] eq "RM"){
				$RMH[$Z[$i2]]="$Z[$i2].<font onClick=CardData($CardListN[$i2],$i2,\'$Comment[$i2]\',3) style='font-size:10pt;' class='$CardColor{$CardListN[$i2]}'>$CardName{$CardListN[$i2]}</font><br>";

		##サーチテスト##
			}elsif($Basyo[$i2] eq "LB" and $F{"mode2"} eq "Search"){
				$HOUKOKU[$Z[$i2]]="$Z[$i2].<font onClick=CardData($CardListN[$i2],$i2,\'$Comment[$i2]\',3) style='font-size:10pt;' class='$CardColor{$CardListN[$i2]}'>$CardName{$CardListN[$i2]}</font><br>";

		##サーチ本物##
#			}elsif($Basyo[$i2] eq "LB" and $F{"mode2"} eq "Search"){
#				$HOUKOKU[$Z[$i2]]="$Z[$i2].<font onClick=CardData($CardListN[$i2],$i2,\'$Comment[$i2]\',3) style='font-size:10pt;' class='$CardColor{$CardListN[$i2]}'>$CardName{$CardListN[$i2]}</font><br>";

		##パーマネント表示##
			}elsif($Basyo[$i2] eq "PU"){
				$PH[$CountP]="<DIV style='top : $Y[$i2] px;left : $X[$i2] px; width : 30px; height: 40px; position : absolute; z-index : $Z[$i2];' class='H$CardColor{$CardListN[$i2]}' onClick=\"CardData($CardListN[$i2],$i2,\'$Comment[$i2]\',$Z[$i2],0)\" onDblClick='TupUntup($i2)'>$CardName{$CardListN[$i2]}</DIV>\n";
				++$CountP;
			}elsif($Basyo[$i2] eq "PT"){
				$Y[$i2]=$Y[$i2]+5;$X[$i2]=$X[$i2]-5;
				$PH[$CountP]="<DIV style='top : $Y[$i2] px;left : $X[$i2] px; width : 40px; height: 30px; position : absolute; z-index : $Z[$i2];' class='H$CardColor{$CardListN[$i2]}' onClick=\"CardData($CardListN[$i2],$i2,\'$Comment[$i2]\',$Z[$i2],0)\" onDblClick='TupUntup($i2)'>$CardName{$CardListN[$i2]}</DIV>\n";
				++$CountP;
			}elsif($Basyo[$i2] eq "MU"){
				$PH[$CountP]="<DIV style='top : $Y[$i2] px;left : $X[$i2] px; width : 30px; height: 40px; position : absolute; z-index : $Z[$i2];' class='HL' onClick=CardData($CardListN[$i2],$i2,\'$Comment[$i2]\',$Z[$i2],1) onDblClick='TupUntup($i2)'>裏返し</DIV>\n";
				++$CountP;
			}elsif($Basyo[$i2] eq "MT"){
				$Y[$i2]=$Y[$i2]+5;$X[$i2]=$X[$i2]-5;
				$PH[$CountP]="<DIV style='top : $Y[$i2] px;left : $X[$i2] px; width : 40px; height: 30px; position : absolute; z-index : $Z[$i2];' class='HL' onClick=CardData($CardListN[$i2],$i2,\'$Comment[$i2]\',$Z[$i2],1) onDblClick='TupUntup($i2)'>裏返し</DIV>\n";
				++$CountP;
			}

		##他プレイヤーの表示##
		}else{
			if($Basyo[$i2] eq "GY"){
#				$GYH[$PlayL[$i]][$Z[$i2]]="$Z[$i2].<font onClick='CardData($CardListN[$i2])' style='font-size:10pt;' class='$CardColor{$CardListN[$i2]}'>$CardName{$CardListN[$i2]}</font><br>";

		##パーマネント表示##
			}elsif($Basyo[$i2] eq "PU"){
				if($TekiMikata){$X[$i2]=960-$X[$i2];$Y[$i2]=380-$Y[$i2]}
				$PH[$CountP]="<DIV style='top : $Y[$i2] px;left : $X[$i2] px; width : 30px; height: 40px; position : absolute; z-index : $Z[$i2];' class='H$CardColor{$CardListN[$i2]}' onClick=CardData($CardListN[$i2],\"Kinshi\",\'$Comment[$i2]\')>$CardName{$CardListN[$i2]}</DIV>\n";
				++$CountP;
			}elsif($Basyo[$i2] eq "PT"){
				$Y[$i2]=$Y[$i2]+5;$X[$i2]=$X[$i2]-5;
				if($TekiMikata){$X[$i2]=960-$X[$i2];$Y[$i2]=380-$Y[$i2]}
				$PH[$CountP]="<DIV style='top : $Y[$i2] px;left : $X[$i2] px; width : 40px; height: 30px; position : absolute; z-index : $Z[$i2];' class='H$CardColor{$CardListN[$i2]}' onClick=CardData($CardListN[$i2],\"Kinshi\",\'$Comment[$i2]\')>$CardName{$CardListN[$i2]}</DIV>\n";
				++$CountP;
			}elsif($Basyo[$i2] eq "MU"){
				if($TekiMikata){$X[$i2]=960-$X[$i2];$Y[$i2]=380-$Y[$i2]}
				$PH[$CountP]="<DIV style='top : $Y[$i2] px;left : $X[$i2] px; width : 30px; height: 40px; position : absolute; z-index : $Z[$i2];' class='HL' onClick=CardData(999,\"Kinshi\",\'$Comment[$i2]\')>裏返し</DIV>\n";
				++$CountP;
			}elsif($Basyo[$i2] eq "MT"){
				$Y[$i2]=$Y[$i2]+5;$X[$i2]=$X[$i2]-5;
				if($TekiMikata){$X[$i2]=960-$X[$i2];$Y[$i2]=380-$Y[$i2]}
				$PH[$CountP]="<DIV style='top : $Y[$i2] px;left : $X[$i2] px; width : 40px; height: 30px; position : absolute; z-index : $Z[$i2];' class='HL' onClick=CardData(999,\"Kinshi\",\'$Comment[$i2]\')>裏返し</DIV>\n";
				++$CountP;
			}
		}
	}

	#
	#############################################

	$LBM[$PlayL[$i]]=$MaisuuG{"LB"};
	$HAM[$PlayL[$i]]=$MaisuuG{"HA"};
	$GYM[$PlayL[$i]]=$MaisuuG{"GY"};
	$FRM[$PlayL[$i]]=$MaisuuG{"FR"};
	if($GYM[$PlayL[$i]] eq ""){$GYM[$PlayL[$i]]=0}
	if($FRM[$PlayL[$i]] eq ""){$FRM[$PlayL[$i]]=0}
}

print <<END;
Content-type: text/html;

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Frameset//EN">

<HTML>
<HEAD><TITLE>Magic: The Gathering</TITLE></HEAD>
<link rel="stylesheet" href="css.css" type="text/css">
<style type=text/css>
	td{font-size:10pt;}
</style>

<!--##########################################################################################// -->
<!--#　ジャバスクリプト									      // -->

<script language="JavaScript"><!--
CGN2="Kinshi";

function BasyoHyouji(BASYO){
  if(BASYO){
  	  BH=document.forms[0].SELECT1.options[document.forms[0].SELECT1.selectedIndex].value;
  }else {
  	  BH=document.forms[0].SELECT2.options[document.forms[0].SELECT2.selectedIndex].value;
  }
  if(BH == "HA"){
 	var str = [
 	 "<DIV class='SakiMenu' onClick=CardMove2('HA')>手札</DIV>"+
END

for($i=@HAH-1 ; $i > 0 ; --$i){
	print qq(	"$HAH[$i]" +\n);
}
	print qq(	"$HAH[0]"\n);

print <<END;
 	];
  }else if(BH == "GY"){
 	var str = [
 	 "<DIV class='SakiMenu' onClick=CardMove2('GY')>墓地</DIV>"+
END

for($i=@GYH-1 ; $i > 0 ; --$i){
	print qq(	"$GYH[$i]" +\n);
}
	print qq(	"$GYH[0]"\n);

print <<END;
 	];
  }else if(BH == "FR"){
 	var str = [
 	 "<DIV class='SakiMenu' onClick=CardMove2('FR')>フリー</DIV>"+
END

for($i=@FRH-1 ; $i > 0 ; --$i){
	print qq(	"$FRH[$i]" +\n);
}
	print qq(	"$FRH[0]"\n);

print <<END;
 	];
  }else if(BH == "RM"){
 	var str = [
 	 "<DIV class='SakiMenu' onClick=CardMove2('RM')>リムーブ</DIV>"+
END

for($i=@RMH-1 ; $i > 0 ; --$i){
	print qq(	"$RMH[$i]" +\n);
}
	print qq(	"$RMH[0]"\n);

print <<END;
 	];
  }
  if(BASYO) text1.innerHTML = str;
  else text2.innerHTML = str;
}

function CardData(CN,CGN,COM,Z,MOP){

if(CN == 999) text.innerHTML='<div class="L"><b>裏返し</b></div>'
END
for($i=0 ; $i < @CardDataH ; ++$i){
	print qq($CardDataH[$i]\n);
}
print <<END;
 CGN2=CGN;
 if(CGN2 != "Kinshi"){
  text4.innerHTML='<div style="text-align:right;"><br><input type="text" name="Comment" size="36" maxlength="20" class="base"><br><select name="Z" style="font-size:8pt;"><option>最下<option>下<option>中<option>上<option>最上</select>　<input type="checkbox" name="Morph" class="big"><font style="color:#555555;font-size:10pt;">：裏返し　<input type="button" onClick="Henkou()" value="変更" class="base2"></div>';
  document.forms[0].Comment.value=COM;
  document.forms[0].Z.selectedIndex=Z-1;
  document.forms[0].Morph.checked=MOP;
 }else{
  text4.innerHTML='<div style="text-align:right;"><br><input type="text" name="Comment" size="36" maxlength="20" class="base"></div>';
  document.forms[0].Comment.value=COM;
 }
}
function Henkou(){
  COM=document.forms[0].Comment.value;
  Z=document.forms[0].Z.selectedIndex + 1;
  if(document.forms[0].Morph.checked) window.location="$ENV{'SCRIPT_NAME'}?mode=game&PlayNumber=$F{'PlayNumber'}&mode2=Kakikomi&Basyo=MU&Taisyou=" + CGN2 + "&Comment=" + COM + "&Z=" + Z;
  else window.location="$ENV{'SCRIPT_NAME'}?mode=game&PlayNumber=$F{'PlayNumber'}&mode2=Kakikomi&Basyo=PU&Taisyou=" + CGN2 + "&Comment=" + COM + "&Z=" + Z;
}
function CardMove(){
 if(CGN2 != "Kinshi"){
    COM=document.forms[0].Comment.value;
    Z=document.forms[0].Z.selectedIndex + 1;
    mouseX = -15 + window.event.clientX;
    mouseY  = -20 + window.event.clientY;
    if(document.forms[0].Morph.checked) window.location="$ENV{'SCRIPT_NAME'}?mode=game&PlayNumber=$F{'PlayNumber'}&mode2=Kakikomi&Basyo=MU&Taisyou=" + CGN2 + "&Z=" + Z + "&X=" + mouseX + "&Y=" + mouseY;
    else window.location="$ENV{'SCRIPT_NAME'}?mode=game&PlayNumber=$F{'PlayNumber'}&mode2=Kakikomi&Basyo=PU&Taisyou=" + CGN2 + "&Z=" + Z + "&X=" + mouseX + "&Y=" + mouseY;
 }
}
function CardMove2(BASYO){
 if(CGN2 != "Kinshi"){
    window.location="$ENV{'SCRIPT_NAME'}?mode=game&PlayNumber=$F{'PlayNumber'}&mode2=Kakikomi&Basyo=" + BASYO + "&Taisyou=" + CGN2;
 }
}
function CardMove3(){
 if(CGN2 != "Kinshi"){
    window.location="$ENV{'SCRIPT_NAME'}?mode=game&PlayNumber=$F{'PlayNumber'}&mode2=LBBottom&Taisyou=" + CGN2;
 }
}
function TupUntup(CGN){
    window.location="$ENV{'SCRIPT_NAME'}?mode=game&PlayNumber=$F{'PlayNumber'}&mode2=TupUntup&Taisyou=" + CGN;
}
function LifeK(){
    Life=document.forms[0].Life.value;
    window.location="$ENV{'SCRIPT_NAME'}?mode=game&PlayNumber=$F{'PlayNumber'}&mode2=LifeS&Life=" + Life;
}
function Draw(){
    MaisuuA=document.forms[0].Maisuu.value;

    if (document.forms[0].Saki.length) {
        for (i = 0; i < document.forms[0].Saki.length; i++) {
            if (document.forms[0].Saki[i].checked) SakiA=document.forms[0].Saki[i].value;
        }
    } else {
        SakiA=SakiA=document.forms[0].Saki.value;
    }

    window.location="$ENV{'SCRIPT_NAME'}?mode=game&PlayNumber=$F{'PlayNumber'}&Maisuu=" + MaisuuA + "&mode2=Draw&SakiB=" + SakiA ;
}
// --></script>

<!--##########################################################################################// -->

<BODY onLoad="BasyoHyouji(1);BasyoHyouji(0)">
<form>

<DIV style="top : 5px;left : 10px; width : 200px; height : 50px; position : absolute; z-index : 1;padding:10px;" class="base">
	<font style="font-weight:bold;font-size:20px;">ＭＴＧＣＧＩ</font>　　
	<input type="button" onClick='location="$ENV{'SCRIPT_NAME'}?mode=Lobby&DecNumber=$DecNumber{$F{'PlayNumber'}}&Reset=$Table"' value="戻る" class="base" style="font-size:10px;">
	<input type="button" onClick='location="$ENV{'SCRIPT_NAME'}?mode=game&PlayNumber=$F{'PlayNumber'}"' value="更新" class="base" style="font-size:10px;">
</DIV>
<DIV style="top : 65px;left : 10px; width : 200px; height :120px; position : absolute; z-index : 1;padding:10px;" class="base">
ライブラリー：$LBM[$F{"PlayNumber"}]枚
  <table>
	<tr>
		<td><input type='radio' name='Saki' value='HA' CHECKED>手札</td>
		<td><input type="text" name="Maisuu" size="2" maxlength="2" class="base" value="1">枚</td>
		<td>
			<input type="button" onClick="CardMove2('LB')" value="トップ" class="base2">
		</td>
	</tr>
	<tr>
		<td><input type='radio' name='Saki' value='FR'>フリー</td>
		<td><input type="button" onClick='Draw()' value="ドロー" class="base"></td>
		<td>
			<input type="button" onClick="CardMove3()" value="ボトム" class="base2">
		</td>
	</tr>
	<tr>
		<td colspan=2 style="text-align:right;"><input type="button" onClick='location="$ENV{'SCRIPT_NAME'}?mode=game&PlayNumber=$F{'PlayNumber'}&mode2=Search"' value="サーチ" class="base2"></td>
		<td><input type="button" onClick='location="$ENV{'SCRIPT_NAME'}?mode=game&PlayNumber=$F{'PlayNumber'}&mode2=Shuffle"' value="シャッフル" class="base2"></td>
	</tr>
  </table>
</DIV>

END
#=場のカードを表示===================================================================

for($i=0 ; $i < @PH ; ++$i){
	print qq($PH[$i]);
}

print <<END;

<DIV style="top : 195px;left : 10px; position : absolute; z-index : 0;">
	<DIV style="width : 200px; z-index : 0;" id="text"></DIV>
	<DIV style="width : 200px; z-index : 0;" id="text4"></DIV>
</DIV>

<DIV style="top : 5px;left : 215px; width : 570px; height : 400px; position : absolute; z-index : 0;" class="base"
 onClick="CardMove()">
</DIV>
<DIV style="top : 415px;left : 215px; width : 320px; height :160px; position : absolute; z-index : 1;padding:5px;text-align:right;line-height: 22px;" class="base">
END


if($PlayName{$PlayL[0]} ne ""){print qq(<font style="font-weight:bold;font-size:12px;">$PlayName{$PlayL[0]}</font>　<font style="font-size:10px;">　ﾗｲﾌﾞﾗﾘｰ：$LBM[$PlayL[0]]　手札：$HAM[$PlayL[0]]　墓地：$GYM[$PlayL[0]]　ﾌﾘｰ：$FRM[$PlayL[0]]　ライフ：</font><b>$Life{$PlayL[0]}</b><br>\n)}
if($PlayName{$PlayL[2]} ne ""){print qq(<font style="font-weight:bold;font-size:12px;">$PlayName{$PlayL[2]}</font>　<font style="font-size:10px;">　ﾗｲﾌﾞﾗﾘｰ：$LBM[$PlayL[2]]　手札：$HAM[$PlayL[2]]　墓地：$GYM[$PlayL[2]]　ﾌﾘｰ：$FRM[$PlayL[2]]　ライフ：</font><b>$Life{$PlayL[2]}</b><br>\n)}

print qq(<hr>);

if($PlayName{$PlayL[1]} ne ""){print qq(<font style="font-weight:bold;font-size:12px;">$PlayName{$PlayL[1]}</font>　<font style="font-size:10px;">　ﾗｲﾌﾞﾗﾘｰ：$LBM[$PlayL[1]]　手札：$HAM[$PlayL[1]]　墓地：$GYM[$PlayL[1]]　ﾌﾘｰ：$FRM[$PlayL[1]]　ライフ：</font><b>$Life{$PlayL[1]}</b><br>\n)}
if($PlayName{$PlayL[3]} ne ""){print qq(<font style="font-weight:bold;font-size:12px;">$PlayName{$PlayL[3]}</font>　<font style="font-size:10px;">　ﾗｲﾌﾞﾗﾘｰ：$LBM[$PlayL[3]]　手札：$HAM[$PlayL[3]]　墓地：$GYM[$PlayL[3]]　ﾌﾘｰ：$FRM[$PlayL[3]]　ライフ：</font><b>$Life{$PlayL[3]}</b><br>\n)}

print <<END;
	<hr>
	<font style="font-size:10px;">ライフ：</font><input type="text" name="Life" size="3" maxlength="3" class="base" value="$Life{$F{'PlayNumber'}}">　<input type="button" onClick="LifeK()" value="変更" class="base2">
</DIV>

<DIV style="top : 415px;left : 545px; width : 90px; height :160px; position : absolute; z-index : 1;padding:5px;text-align:center" class="base">
	<br>
	<input type="button" onClick='location="$ENV{'SCRIPT_NAME'}?mode=game&PlayNumber=$F{'PlayNumber'}"' value="トークン" class="base2"><br><br>
	<input type="button" onClick='location="$ENV{'SCRIPT_NAME'}?mode=game&PlayNumber=$F{'PlayNumber'}&mode2=Untup"' value="アンタップ" class="base2"><br><br>
	<SELECT style="width:70;font-size:8pt;" onChange="BasyoHyouji(1)" Name="SELECT1">
		<OPTION value="HA" selected>手札</OPTION>
		<OPTION value="GY">墓地</OPTION>
		<OPTION value="RM">リムーブ</OPTION>
		<OPTION value="FR">フリー</OPTION>
		<OPTION value="4">墓地()</OPTION>
	</SELECT><br><br>
	<SELECT style="width:70;font-size:8pt;" onChange="BasyoHyouji()" Name="SELECT2">
		<OPTION value="HA">手札</OPTION>
		<OPTION value="GY" selected>墓地</OPTION>
		<OPTION value="RM">リムーブ</OPTION>
		<OPTION value="FR">フリー</OPTION>
		<OPTION value="4">墓地()</OPTION>
	</SELECT>

</DIV>


<DIV style="top : 415px;left : 645px; width : 170px; height :160px; position : absolute; z-index : 1;padding:5px; overflow:scroll;white-space:nowrap;" class="base" id="text1">
</DIV>

<DIV style="top : 5px;left : 795px; width : 200px; height : 400px; position : absolute; z-index : 0;padding:5px;overflow:scroll;" class="base">
	<DIV class="SakiMenu">報告</DIV>
END
for($i=@HOUKOKU ; $i >= 0 ; --$i){
	print qq($HOUKOKU[$i]\n);
}
print <<END;
</DIV>

<DIV style="top : 415px;left : 825px; width : 170px; height :160px; position : absolute; z-index : 1;padding:5px; overflow:scroll;white-space:nowrap;" class="base" id="text2">
</DIV>

</form>
</BODY>
</HTML>
END
}
#=ロビー=========================================================================================
sub Lobby {

yomikomiK("deck/$F{'DecNumber'}.dat");

yomikomiGame();

if($F{"Reset"} ne ""){
	if($F{"Reset"} == 1){
		yomikomiGame2(0);	yomikomiGame2(1);
		%PlayName="";%DecNumber="";$Life{0}=20;$Life{1}=20;
		kakikomiGame2(0);	kakikomiGame2(1);
	}elsif($F{"Reset"} == 2){
		yomikomiGame2(2);	yomikomiGame2(3);
		%PlayName="";%DecNumber="";$Life{2}=20;$Life{3}=20;
		kakikomiGame2(2);	kakikomiGame2(3);
	}elsif($F{"Reset"} == 3){
		yomikomiGame2(4);	yomikomiGame2(5);
		yomikomiGame2(6);	yomikomiGame2(7);
		%PlayName="";%DecNumber="";$Life{4}=30;$Life{5}=0;$Life{6}=30;$Life{7}=0;
		kakikomiGame2(4);	kakikomiGame2(5);
		kakikomiGame2(6);	kakikomiGame2(7);
	}elsif($F{"Reset"} == 4){
		yomikomiGame2(8);	yomikomiGame2(9);
		yomikomiGame2(10);	yomikomiGame2(11);
		%PlayName="";%DecNumber="";$Life{8}=30;$Life{9}=0;$Life{10}=30;$Life{11}=0;
		kakikomiGame2(8);	kakikomiGame2(9);
		kakikomiGame2(10);	kakikomiGame2(11);
	}
	kakikomiGame();
}

for($i=0;$i<@GAMEDATA;++$i){
	yomikomiGame2($i);
	if($i == 0 or $i == 2){
		if($PlayName{$i} eq ""){
			$Button[$i]="<input type='button' value='Ａ' class='button' onClick='GoToGame($i)'>"
		}else{
			$Button[$i]="　"
		}
	}elsif($i == 1 or $i == 3){
		if($PlayName{$i} eq ""){
			$Button[$i]="<input type='button' value='Ｂ' class='button' onClick='GoToGame($i)'>"
		}else{
			$Button[$i]="　"
		}
	}elsif($i == 4 or $i == 8){
		if($PlayName{$i} eq ""){
			$Button[$i]="<input type='button' value='Ａ1' class='button' onClick='GoToGame($i)'>"
		}else{
			$Button[$i]="　"
		}
	}elsif($i == 5 or $i == 9){
		if($PlayName{$i} eq ""){
			$Button[$i]="<input type='button' value='Ｂ1' class='button' onClick='GoToGame($i)'>"
		}else{
			$Button[$i]="　"
		}
	}elsif($i == 6 or $i == 10){
		if($PlayName{$i} eq ""){
			$Button[$i]="<input type='button' value='Ａ2' class='button' onClick='GoToGame($i)'>"
		}else{
			$Button[$i]="　"
		}
	}elsif($i == 7 or $i == 11){
		if($PlayName{$i} eq ""){
			$Button[$i]="<input type='button' value='Ｂ2' class='button' onClick='GoToGame($i)'>"
		}else{
			$Button[$i]="　"
		}
	}
}

print <<END;
Content-type: text/html;

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Frameset//EN">
<HTML>
<HEAD><TITLE>Magic: The Gathering</TITLE></HEAD>
<link rel="stylesheet" href="css.css" type="text/css">
<style type=text/css>
	td{width:60px;height:40px;}
</style>
<script language="JavaScript"><!--
function CardData(CN,KM){
END

#########################
#デッキのカードデータ
#########################
for($i=1 ; $i < @KDECDATA ; ++$i){
	$DecMaisuu=$DecMaisuu+$Maisuu{$i};
print <<END;
 if(CN == $CardListN{$i}){
  text.innerHTML='<div class="$CardColor{$CardListN{$i}}">$CardData{$CardListN{$i}}</div>';
 }
END
}

print <<END;
}
function setck(){
	ckary = document.forms[0].Play.value;
	exp=new Date();
	exp.setTime(exp.getTime()+1000*60*60*24*3);

	ckstr = escape(ckary);
		
	document.cookie = "ASH_jsc=" + ckstr + "; expires=" + exp.toGMTString();
}
function getck(){
	cklng = document.cookie.length;
	ckary2 = document.cookie.split("; ");

	ckstr = "";

	i = 0;
	while (ckary2[i]){
		if (ckary2[i].substr(0,8) == "ASH_jsc="){
			ckary = ckary2[i].substr(8,ckary2[i].length);
			break;
		}
		i++;
	}
	if (ckary) document.forms[0].Play.value = unescape(ckary);
}
function GoToGame(PN){
	PlayName = document.forms[0].Play.value;
	if (PlayName == "") alert("名前を入力してください");
	else {
		setck();
		location="$ENV{'SCRIPT_NAME'}?mode=game&PlayNumber=" + PN + "&Name=" + PlayName + "&DecNumber=$F{'DecNumber'}&NewGame=1";
	}
}
// --></script>
<BODY onLoad="getck()">

<DIV style="top : 5px;left : 10px; width : 200px; height : 65px;padding:10px;" class="base">
	<font style="font-weight:bold;font-size:20px;">ロビー</font>
	<div style="text-align:right"><input type="button" onClick='location="$ENV{'SCRIPT_NAME'}"' value="戻る" class="base"></div>
</DIV>

<form action="$ENV{'SCRIPT_NAME'}" method="POST">
 <input type="hidden" name="mode" value="game">
 <input type="hidden" name="DecNumber" value="$F{'DecNumber'}">

<!--デッキ名の書き込みフォーム--!>
<DIV style="top : 80px;left : 10px; width : 200px; height : 60px; padding:10px;" class="base">
	プレイヤー名：<br>
	<input type="text" name="Play" size="20" maxlength="10" class="base"><br>
</div>

<!--カードデータ表示用ダイナミックHTML--!>
<DIV style="top : 150px;left : 10px; width : 200px; height : 400px; position : absolute; z-index : 0;" id="text">
</DIV>

<!--カードリスト表示--!>
<DIV style="top : 5px;left : 220px; width : 300px; height : 100px;text-align:center; position : absolute; z-index : 1;padding:10px;" class="base">
	<font style="font-weight:bold;font-size:16px;">1st Desk</font>　　　　　　　　　　　　　　　（２人戦用）
	<table>
		<tr><td>$Button[0]</td><td>$Button[1]</td><td style="width:80px;">　　<input type="button" value="リセット" class="base" onClick="location='$ENV{"SCRIPT_NAME"}?mode=Lobby&DecNumber=$F{"DecNumber"}&Reset=1'"></td></tr>
	</table>
</div>
<DIV style="top : 115px;left : 220px; width : 300px; height : 100px;text-align:center; position : absolute; z-index : 1;padding:10px;" class="base">
	<font style="font-weight:bold;font-size:16px;">2nd Desk</font>　　　　　　　　　　　　　　　（２人戦用）
	<table>
		<tr><td>$Button[2]</td><td>$Button[3]</td><td style="width:80px;">　　<input type="button" value="リセット" class="base" onClick="location='$ENV{"SCRIPT_NAME"}?mode=Lobby&DecNumber=$F{"DecNumber"}&Reset=2'"></td></tr>
	</table>
</div>
<DIV style="top : 225px;left : 220px; width : 300px; height : 170px;text-align:center; position : absolute; z-index : 1;padding:10px;" class="base">
	<font style="font-weight:bold;font-size:16px;">3rd Desk</font>　　　　　　　　　　　　　　　（４人戦用）<br><br>
	<table>
		<tr><td>$Button[4]</td><td>$Button[5]</td><td rowspan="2" style="width:80px;">　　<input type="button" value="リセット" class="base" onClick="location='$ENV{"SCRIPT_NAME"}?mode=Lobby&DecNumber=$F{"DecNumber"}&Reset=3'"></td></tr>
		<tr><td>$Button[6]</td><td>$Button[7]</td></tr>
	</table>
</div>
<DIV style="top : 405px;left : 220px; width : 300px; height : 185px;text-align:center; position : absolute; z-index : 1;padding:10px;" class="base">
	<font style="font-weight:bold;font-size:16px;">4th Desk</font>　　　　　　　　　　　　　　　（４人戦用）<br><br>
	<table>
		<tr><td>$Button[8]</td><td>$Button[9]</td><td rowspan="2" style="width:80px;">　　<input type="button" value="リセット" class="base" onClick="location='$ENV{"SCRIPT_NAME"}?mode=Lobby&DecNumber=$F{"DecNumber"}&Reset=4'"></td></tr>
		<tr><td>$Button[10]</td><td>$Button[11]</td></tr>
	</table>
</div>
</from>

<!--デッキ表示--!>
<DIV style="top : 5px;left : 530px; width : 300px; height : 55px; position : absolute; z-index : 1;padding:10px;" class="base">
	<font style="font-weight:bold;font-size:16px;">$DecName</font>
	<div style="text-align:right"><font style="font-size:12px;">（$DecMaisuu枚）　　製作者：$DecOwner</font></div>
</div>

<DIV style="top : 70px;left : 530px; width : 300px; height : 520px; position : absolute; z-index : 1;padding:10px; overflow:scroll;" class="base">
END

for($i=1 ; $i < @KDECDATA ; ++$i){
	print qq(<font onClick="CardData($CardListN{$i},0)" style="font-size:10pt;" class='$CardColor{$CardListN{$i}}'>$CardName{$CardListN{$i}}</font>　×$Maisuu{$i}<br>\n);
}

print <<END;
</DIV>

</BODY>
</HTML>
END
}

#=デッキメイク=========================================================================================

sub DecMake {

if($DecName eq ""){
	$KDECDATA[0]="デッキ名をつけて下さい\t名前を入力してください\t\n";
	open(FILE,">deck/$F{'DecNumber'}.dat");
	eval{ flock(FILE, 2) };
	print FILE @KDECDATA;
	close FILE;
}else{
	yomikomiK("deck/$F{'DecNumber'}.dat");
}
print <<END;
Content-type: text/html;

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Frameset//EN">
<HTML>
<HEAD><TITLE>Magic: The Gathering</TITLE></HEAD>
<link rel="stylesheet" href="css.css" type="text/css">
<script language="JavaScript"><!--
function CardData(CN,KM){
END

#########################
#エキスパンションのカードデータ
#########################
require '10.pl';
$a=(keys %CardData) + 10000;
for($i=10000 ; $i < $a ; ++$i){
print <<END;
 if(CN == $i){
  text.innerHTML='<div class="$CardColor{$i}">$CardData{"$i"}</div>';
 }
END
}

#########################
#デッキのカードデータ
#########################
for($i=1 ; $i < @KDECDATA ; ++$i){
	$DecMaisuu=$DecMaisuu+$Maisuu{$i};
print <<END;
 if(CN == $CardListN{$i}){
  text.innerHTML='<div class="$CardColor{$CardListN{$i}}">$CardData{$CardListN{$i}}</div>';
 }
END
}

print <<END;
 if(KM){
  text.innerHTML+='<br><div style="text-align:right"><input type="hidden" name="CardListN" value="' + CN + '"><input type="text" name="kazu" value="1" size="2" maxlength="2" class="base"> <input type="submit" value="追加" class="base"></div>';
 }else{
  text.innerHTML+='<br><div style="text-align:right"><input type="hidden" name="CardListN" value="' + CN + '"><input type="text" name="kazu" value="1" size="2" maxlength="2" class="base"> <input type="submit" value="変更" class="base"></div>';
 }
}
// --></script>
<BODY>

<DIV style="top : 5px;left : 10px; width : 200px; height : 65px;padding:10px;" class="base">
	<font style="font-weight:bold;font-size:20px;">デッキメイク</font>
	<div style="text-align:right"><input type="button" onClick='location="$ENV{'SCRIPT_NAME'}"' value="戻る" class="base"></div>
</DIV>

<form action="$ENV{'SCRIPT_NAME'}" method="POST" name="0">
 <input type="hidden" name="mode" value="DecMake1">
 <input type="hidden" name="DecNumber" value="$F{'DecNumber'}">

<!--デッキ名の書き込みフォーム--!>
<DIV style="top : 80px;left : 10px; width : 200px; height : 140px; padding:10px;" class="base">
	デッキ名：<br>
	<input type="text" name="DecName" value="$DecName" size="20" maxlength="10" class="base"><br>
	制作者：<br>
	<input type="text" name="DecOwner" value="$DecOwner" size="12" maxlength="6" class="base"><br>
	キー：$key<br>
	<input type="password" name="key" size="8" maxlength="4" class="base">
	　　　　　　<input type="submit" value="変更" class="base"> 
</div>

<!--カードデータ表示用ダイナミックHTML--!>
<DIV style="top : 230px;left : 10px; width : 200px; height : 400px; position : absolute; z-index : 0;" id="text">
</DIV>


<!--デッキ表示--!>
<DIV style="top : 5px;left : 220px; width : 300px; height : 55px; position : absolute; z-index : 1;padding:10px;" class="base">
	<font style="font-weight:bold;font-size:16px;">$DecName</font>
	<div style="text-align:right"><font style="font-size:12px;">（$DecMaisuu枚）　　製作者：$DecOwner</font></div>
</div>

<DIV style="top : 70px;left : 220px; width : 300px; height : 520px; position : absolute; z-index : 1;padding:10px; overflow:scroll;" class="base">
END

for($i=1 ; $i < @KDECDATA ; ++$i){
	print qq(<font onClick="CardData($CardListN{$i},0)" style="font-size:10pt;" class='$CardColor{$CardListN{$i}}'>$CardName{$CardListN{$i}}</font>　×$Maisuu{$i}<br>\n);
}

print <<END;
</DIV>

<!--カードリスト表示--!>
<DIV style="top : 5px;left : 530px; width : 300px; height : 50px; position : absolute; z-index : 1;padding:10px;" class="base">
	<font style="font-weight:bold;font-size:16px;">10版カードリスト</font>
</div>
<DIV style="top : 60px;left : 530px; width : 300px; height : 530px; position : absolute; z-index : 1;padding:10px; overflow:scroll;" class="base">
END

for($i=10000 ; $i < $a ; ++$i){
	print qq(<font onClick="CardData($i,1)" style="font-size:10pt;" class='$CardColor{$i}'>$CardName{$i}</font><br>);
}

print <<END;
</DIV>
</from>

</BODY>
</HTML>
END
}

sub DecMake1 {
	yomikomiK("deck/$F{'DecNumber'}.dat");

		
		$key =~ s/\n//;
		if($F{"DecName"} ne ""){$DecName=$F{"DecName"}}
		if($F{"DecOwner"} ne ""){$DecOwner=$F{"DecOwner"}}
		if($F{"key"} ne ""){$key=$F{"key"}}
		$KDECDATA[0]="$DecName\t$DecOwner\t$key\n";

		if($F{"kazu"} > 0){
			require '10.pl';
			for($i=1 ; $i < @KDECDATA ; ++$i){
			 if($CardListN{$i} == $F{"CardListN"}){
				$Maisuu{$i}=$F{"kazu"};
				kakikomiK2($i);
				$flag=1;$i=@KDECDATA;
			 }elsif($CardListN{$i} > $F{"CardListN"}){
				kakikomiK4($i,"$F{'CardListN'}\t$F{'kazu'}\t$CardData{$F{'CardListN'}}\t$CardName{$F{'CardListN'}}\t$CardColor{$F{'CardListN'}}\n");
				$flag=1;$i=@KDECDATA;
			 }
			}
			if($flag != 1){
				$a=1+@KDECDATA;
				kakikomiK4($a,"$F{'CardListN'}\t$F{'kazu'}\t$CardData{$F{'CardListN'}}\t$CardName{$F{'CardListN'}}\t$CardColor{$F{'CardListN'}}\n");
			}
		}elsif($F{"kazu"} eq "0"){
			for($i=1 ; $i < @KDECDATA ; ++$i){
			 if($CardListN{$i} == $F{"CardListN"}){
				kakikomiK3($i);
				$i=@KDECDATA+1;
			 }
			}
		}

		kakikomiK("deck/$F{'DecNumber'}.dat");
	kanryou("書き込みました。","$ENV{'SCRIPT_NAME'}?mode=DecMake&DecNumber=$F{'DecNumber'}&key=$key ");
}
sub DecDelete {
	yomikomiK("deck/nodata.dat");
	kakikomiK("deck/$F{'DecNumber'}.dat");
	kanryou("削除しました","$ENV{'SCRIPT_NAME'}");
}
#==========================================================================================

sub DecCoise {
print <<END;
Content-type: text/html;

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Frameset//EN">

<HTML>
<HEAD><TITLE>Magic: The Gathering</TITLE></HEAD>
<link rel="stylesheet" href="css.css" type="text/css">
<BODY>
<DIV style="top : 5px;left : 10px; width : 600px; position : absolute;padding:10px; z-index : 1;" class="base">
<form action="$ENV{'SCRIPT_NAME'}" method="POST">

		<font style="font-size:24pt;">デッキ選\択\</font><br>
		<font style="font-size:12pt;">　　　
		<input type='radio' name='mode' value='Lobby'>\：ゲームへ　　[ 
		<input type="password" name="key" size="8" maxlength="4" class="base">：キー　
		<input type='radio' name='mode' value='DecMake'>\：\調\整・新規作成　
		<input type='radio' name='mode' value='DecDelete'>\：\削除 ]　
		<input type="submit" value="次へ" class="base">
		</font>
		<br><br>

END
for($i=0;$i<50;++$i){
		yomikomiK2("deck/$i.dat");
		($DecName,$DecOwner)=split(/\t/,$KDECDATA[0]);
		if($DecName ne ""){
			$DecName="<input type='radio' name='DecNumber' value='$i'><font style='font-size:12pt;font-weight:bold;'>$DecName</font>　<font style='font-size:10pt;'>$DecOwner</font>";
		}else{
			$DecName="<input type='radio' name='DecNumber' value='$i'><font style='font-size:12pt;'>新規デッキ</font>";
		}
		print qq($i \ $DecName <br>\n)
}
print <<END;
</font>
</form>
</DIV>
</BODY>
</HTML>
END
}

#=その他細かいの=========================================================================================

# 構築デッキデータの読み込み書き込み

sub	yomikomiK
{
	my $i;
	open(FILE,"<$_[0]");
	eval{ flock(FILE, 1) };
	@KDECDATA = <FILE>;
	close FILE;
	($DecName,$DecOwner,$key)=split(/\t/,$KDECDATA[0]);
	for($i=1 ; $i < @KDECDATA ; ++$i){
		yomikomiK3($i);
	}
}
sub	yomikomiK2
{
	open(FILE,"<$_[0]");
	eval{ flock(FILE, 1) };
	@KDECDATA = <FILE>;
	close FILE;
}
sub	yomikomiK3
{
	my	($CD, $CN , $CL);
	($CardListN{$_[0]},$Maisuu{$_[0]},$CD,$CN,$CL) = split(/\t/,$KDECDATA[$_[0]]);
	$CardData{$CardListN{$_[0]}}=$CD;	$CardName{$CardListN{$_[0]}}=$CN;
	$CardColor{$CardListN{$_[0]}}=$CL;
	$CardColor{$CardListN{$_[0]}} =~ s/\n//;
}

sub	kakikomiK2
{
	$KDECDATA[$_[0]]="$CardListN{$_[0]}\t$Maisuu{$_[0]}\t$CardData{$CardListN{$_[0]}}\t$CardName{$CardListN{$_[0]}}\t$CardColor{$CardListN{$_[0]}}\n";
}

sub	kakikomiK3
{
	splice @KDECDATA,$_[0],1;
}

sub	kakikomiK4
{
	splice @KDECDATA,$_[0],0,"$_[1]";
}

sub	kakikomiK
{
	open(FILE,">$_[0]");
	eval{ flock(FILE, 2) };
	print FILE @KDECDATA;
	close FILE;
}


# ゲームデータの読み込み書き込み

sub	yomikomiGame
{
	open(FILE,"<game/GameData.dat");
	eval{ flock(FILE, 1) };
	@GAMEDATA = <FILE>;
	close FILE;
}
sub	yomikomiGame2
{
	($PlayName{$_[0]},$Life{$_[0]},$DecNumber{$_[0]}) = split(/\t/,@GAMEDATA[$_[0]]);
	$DecNumber{$_[0]} =~ s/\n//;
}
sub	kakikomiGame2
{
	@GAMEDATA[$_[0]]="$PlayName{$_[0]}\t$Life{$_[0]}\t$DecNumber{$_[0]}\n";
}
sub	kakikomiGame
{
	open(FILE,">game/GameData.dat");
	eval{ flock(FILE, 2) };
	print FILE @GAMEDATA;
	close FILE;
}


# ゲームデッキデータの読み込み書き込み

sub	yomikomiG
{
	my $i;
	@CardListN="";@Basyo="";@Z="";@X="";@Y="";@Comment="";

	open(FILE,"<$_[0]");
	eval{ flock(FILE, 1) };
	@GDECDATA = <FILE>;
	close FILE;
	for($i=0 ; $i < @GDECDATA ; ++$i){
		($CardListN[$i],$Basyo[$i],$Z[$i],$X[$i],$Y[$i],$Comment[$i]) = split(/\t/,@GDECDATA[$i]);
		$Comment[$i] =~ s/\n//;
	}
}
sub	kakikomiG
{
	my $i;
	for($i=0 ; $i < @GDECDATA ; ++$i){
		$GDECDATA[$i]="$CardListN[$i]\t$Basyo[$i]\t$Z[$i]\t$X[$i]\t$Y[$i]\t$Comment[$i]\n";
	}
	open(FILE,">$_[0]");
	eval{ flock(FILE, 2) };
	print FILE @GDECDATA;
	close FILE;
}

sub	kakikomiG2
{
	my $i;
	for($i=0 ; $i <= $_[0] ; ++$i){
	#	push @GDECDATA , "$CardListN[$i]\t$Basyo[$i]\t$Z[$i]\t$X[$i]\t$Y[$i]\t$Comment[$i]\n";
		$GDECDATA[$i]="$CardListN[$i]\t$Basyo[$i]\t$Z[$i]\t$X[$i]\t$Y[$i]\t$Comment[$i]\n";
	}
}
sub	kakikomiG3
{
	open(FILE,">$_[0]");
	print FILE @GDECDATA;
	close FILE;
}

sub	loadFormdata
{
	my	($query, $pair);
	
	if($ENV{'REQUEST_METHOD'} eq 'POST') {
		read(STDIN, $query, $ENV{'CONTENT_LENGTH'});
	}
	else {
		$query = $ENV{'QUERY_STRING'};
	}
	
	foreach $pair (split(/&/, $query)) {
		my	($key, $value) = split(/=/, $pair);
		
		$value =~ tr/+/ /;
		$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg;

		
		$F{$key} = $value;
	}
}

#完了＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
#０にコメント、１に戻る場所を入れる。２を入れればボタンを押さなければ戻らない

sub kanryou
{
print <<END;
Content-type: text/html; charset=$CHARSET


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
<head><title></title></head>
<body>

<p style="font-weight : bold; ">$_[0]</p>
<script language="JavaScript"><!--
 function change(){
 location.href="$_[1]";
}
 setTimeout("change()",1000)
// --></script>
</body>
</html>
END
exit;
}

#＝プログラムの説明＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
#
#
#　●●●●●●●用語、変数の確認
#
#　データの種類
#
#	構築デッキデータ
#		デッキレシピと、デッキのテキストが収納されている。カードのテキストが収納されているのは、
#		ゲーム中にいちいちカードリストファイルを全部読み込むわけにはいかないため。
#
#	ゲームデータ
#		プレイヤー名、使用デッキ、ライフが収納されている。
#		収納枠は４つあるデスク（ゲームエリア）のプレイヤーナンバーにそれぞれ対応している。
#
#	ゲームデッキデータ
#		ゲーム中に使うファイルで、デッキにあるカード一枚一枚のパラメータが収納されている。
#		収納枠は４つあるデスク（ゲームエリア）のプレイヤーナンバーにそれぞれ対応している。
#		ゲームが始まったときに、使用デッキの構築デッキデータを参照し、このデータに具体的な
#		ゲーム中のカードデータとして書き込む。
#
#
#　変数の種類
#
#　　構築デッキデータ：@KDECDATA
#　　　一行目
#	$DecName：デッキ名	$DecOwner：デッキの制作者	$key：デッキの削除、変更パスワード
#
#　　　二行目以降
#	$CardListN{行数}：カードリストからの通し番号		$Maisuu{行数}：この種類のカードの枚数
#	$SaidBoard{行数}：サイドボードかどうか
#	$CardData{$CardListN{カード番号}}：カードリストにあるこの種類のカードのテキストデータ
#	$CardColor{$CardListN{カード番号}}：カードリストにあるこの種類のカードの色
#	$CardName{$CardListN{カード番号}}：カードリストにあるこの種類のカードの名前
#
#
#　　ゲームデータ：@GAMEDATA
#	$PlayName{行数・プレイヤーナンバー}：プレイヤー名	$Life{行数・プレイヤーナンバー}：ライフ
#	$DecNumber{行数・プレイヤーナンバー}：使用する構築デッキデータ
#
#
#　　ゲームデッキデータ：@GDECDATA
#	$CardListN[行数]：カードリストからの通し番号	$Basyo[行数]：場所データ※
#	$Z[行数]：場所におけるカードの順番、場においてのみカード表示用のレイヤー番号
#	$X[行数]：場のみ使用カード表示時のX座標
#	$Y[行数]：Xと同様、Y座標		$Comment[行数]：コメント。カウンター等に使う
#	※ 場所データの記号
#		LB:ライブラリー		HA:手札		GY:墓地
#		RM:リムーブ		FR:効果解決用フリーエリア
#		PU:パーマネントアンタップ	PT:パーマネントタップ
#		MU:裏返しアンタップ		MT:裏返しタップ
#		TU:トークンアンタップ		TT:トークンタップ
#　　ゲーム画面のフォームデータ受け渡し変数
#	mode：game	PlayNumber：プレイヤーナンバー
#	Basyo：異動先の場所	Taisyou：移動するカードの行ナンバー
#	Z：異動先のZ
#
#　●●●●●●●画面説明
#
#　・１モードに１画面が対応しており、それぞれのモードには以下の役割がある
#
#　　デッキ選択───┬─────┐
#　　　　│　　　　　│　　　　　│
#　　ロビー画面　デッキ削除　デッキ構築
#　　　(Lobby)　 (DecDelete)　(DekMake)
#　　　　│
#　　ゲーム画面
#　　　(Game)
#
#　デッキ選択：デッキを選択する画面。選択した後で
#	ゲームへ　→　このデッキを持ってロビーに行く
#	デッキの削除、デッキの調節　→　キーを入れなければその画面に行けない
#	新規作成　→　デッキの作成。デッキには５０枠があり、からの枠には新規作成メニューが現れる。
#
#　デッキ構築：カードリストから構築デッキデータを作成する。
#
#　デッキ削除：選択された構築デッキデータを削除し、白紙に戻す。
#
#　ロビー画面：４つあるDeskのうち、どこで戦うか選ぶ。ゲーム内で使うニックネームを入力する。
#
#　ゲーム画面：実際にゲームをやる画面。最初に構築デッキデータの内容を、ゲームデッキデータに反映させる。
#	ゲームデータ、ゲームデッキデータを参照する。
#
#
#
#
#
#
#