#!/usr/local/bin/perl
require 'ebs_sub1.cgi';
#################################################
#
#　挑戦状スクリプト　ver.1.00
#
#################################################
#設置方法
#
#・一番上の行の　#!/usr/local/bin/perl　を設置するサーバーにあわせて変更。
#------------------------
#・ebs.cgiと同じフォルダに tyosen.cgi というファイル名でアップロードし、パーミッションを755に設定。
#------------------------
#・ebs.cgiと同じフォルダの中に、"tyosen"という名前のフォルダを作成。
#------------------------
#・ebs.cgiの一番下に以下の一行を追加。
#	sub TYOSEN		{require 'tyosen.cgi';&TYOSEN;}
#------------------------
#・ebs_sub3の150行目付近のボタンのところに以下の一行を追加。
#	<td><input type=button value="挑戦" $STYLE_B1 onClick="parent.Sub.location.replace('./tyosen.cgi')"></td>
#------------------------
#・ebs_sub4の9行目あたりの
#	&HEADER;
#	require "./$LOG_FOLDER/$HASH_DATA";
#　の1行上に以下の行を追加。
#	if($FORM{'b_mode'} eq '挑戦'){&TYOSEN;exit;}
#
#################################################
#設定

$SCRIPT_NAME = "./tyosen.cgi";		#　このスクリプトのファイル名
$FOLDER_NAME = "tyosen";			#　作成したフォルダ名
$LOG_NAME = "./$FOLDER_NAME/tyosen.log";	#　ログファイル名
$OLDLOG_NAME = "./$FOLDER_NAME/old.log";	#　過去ログファイル名
$TABLE_STYLE = "bordercolor=#404040 border=1 cellspacing=0 style=\"font-size:10pt\"";	#　テーブルスタイル

$MAX_ENTRY = "20";		#　最大挑戦人数
$MIN_MONEY = "10000";	#　賞金の最低額
$MAX_MONEY = "8";		#　賞金の最高額の桁数(8なら99999999Gまで)
$MAX_LIMIT = "99";		#　最大制限回数
$MAX_LOG = "30";		#　ログ保存行数
$OLD_KEEP = "10";		#　過去ログの保存人数
$MSN_SELECT = "0";		#　作戦をランダムにするなら"0"、選択にするなら"1"を記入
$INFINITY_ON = "1";	#　回数無制限を許可するなら"1"、しないのなら"0"を記入
$YOKIN = "39";		#　銀行預金の$PL_VALUES。銀行を導入していないのであれば、所持金の8で代用

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

if($SUB){&ERROR('直リンクは禁止です','入り口からのアクセスお願いします。') if $ENV{'HTTP_REFERER'} !~ m/^$THIS_DIR/ && $DIRECT_LINK && $SUB ne 'MY_LIST' && $SUB ne 'C_LIST';}

if($FORM{'inname'}){
	$inname = $FORM{'inname'};
	$inpass = $FORM{'inpass'};
}
else{
	@pair = split(/\;/, $ENV{'HTTP_COOKIE'});
	foreach (@pair) {
		my($key, $value) = split(/=/, $_);
		$key =~ s/ //;
		$DUMMY{$key} = $value;
	}
	@pairs = split(/\,/, $DUMMY{'EB'});
	foreach (@pairs) {
		my($key, $value) = split(/\:/, $_);
		$cookies{"$key"} = $value;
	}
	$inname = $cookies{'pname'};
	$inpass = $cookies{'pass'};
}
if(!$inname){&COOKIE_IN;}

&DBM_INPORT(P);
@LOOK = split(/\s/,$P{"$inname"});

open(TXT,$LOG_NAME);
seek(TXT,0,0);
@lists=<TXT>;
close(TXT);

open(OLD,$OLDLOG_NAME);
seek(OLD,0,0);
@old=<OLD>;
close(OLD);

if(crypt($inpass,$LOOK[2]) ne $LOOK[2]){&ERROR('パスワードエラー','クッキー情報に間違いがあります。');}

&TEKKAI if $FORM{'tekkai'};
&TOROKU if $FORM{'shokin'};
&RIREKI if $FORM{'rireki'};
&KAKOLOG if $FORM{'oldlog'};
&KOJINLOG if $FORM{'kojinlog'};

!$SUB && ($SUB='INPUT');
&$SUB;

sub COOKIE_IN {
&HEADER;
print<<"_HTML";
	<form aciton=$SCRIPT_NAME method=POST>
	<table $TABLE_STYLE>
	<tr><td bgcolor=$TABLE_COLOR1>
	<table style="font-size:10pt">
	<tr><td align=left bgcolor=$TABLE_COLOR2 colspan=2>挑戦状スクリプト
	</td></tr><tr>
	<td align=left bgcolor=$TABLE_COLOR2>名前</td>
	<td align=left bgcolor=$TABLE_COLOR1><input type=text name=inname size=40 $STYLE_B1></td>
	</tr><tr>
	<td align=left bgcolor=$TABLE_COLOR2>パスワード</td>
	<td align=left bgcolor=$TABLE_COLOR1><input type=password name=inpass size=40 $STYLE_B1></td>
	</tr><tr>
	<td align=right bgcolor=$TABLE_COLOR1 colspan=2><input type=submit value=入室 $STYLE_B1></td>
	</tr></table>
	</form>
	</body>
	</html>
_HTML
exit;
}

sub INPUT{

	&ERROR('クッキーが見つかりません。') if $inname eq '';
	&DBM_INPORT(P);
	&HEADER;
	@PL_VALUES = split(/\s/,$P{"$inname"});

	$kaisu="<option value=\"infinity\">無制限" if $INFINITY_ON;
	for(1..$MAX_LIMIT){
		$kaisu.="<option value=$_>$_回\n";
	}

print<<_HTML;

	<table><tr valign=top><td>
	<form action="$SCRIPT_NAME" method=post>
	<input type="hidden" name="inname" value="$inname">
	<input type="hidden" name="inpass" value="$inpass">
	<table $TABLE_STYLE>
	<tr><td bgcolor="$TABLE_COLOR2" colspan=2 align="center" style="font-weight:bold;size:15px">$innameの挑戦状
	<tr><td bgcolor="$TABLE_COLOR2">賞金額
	<td bgcolor="$TABLE_COLOR1"><input type="text" name="shokin" maxlength=$MAX_MONEY size=10 style="ime-mode:disabled;" $STYLE_B1>
	<tr><td bgcolor="$TABLE_COLOR2">挑戦回数
	<td bgcolor="$TABLE_COLOR1"><select name="kaisu" $STYLE_B1>$kaisu</select>
	<tr><td bgcolor="$TABLE_COLOR2">コメント
	<td bgcolor="$TABLE_COLOR1"><input type="text" name="comment" maxlength=20 size=30 style="ime-mode:active" $STYLE_B1>
	<tr><td bgcolor="$TABLE_COLOR2">銀行預金
	<td bgcolor="$TABLE_COLOR1">＄$PL_VALUES[$YOKIN]
	<input type="hidden" name="yokin" value="$PL_VALUES[$YOKIN]">
	<tr><td bgcolor="$TABLE_COLOR1" colspan=2 align="right"><input type="submit" value="挑戦する" $STYLE_B1>
	</td></tr>
	</form>
	</table>
	<form action="$SCRIPT_NAME" method="post">
	<input type="submit" value="過去ログ" $STYLE_B1>
	$Sakusen
	<input type="hidden" name="oldlog" value=1>
	</form>
_HTML
&LISTING;
}

sub LISTING{

	&JScfm(checkend,"挑戦状を取り下げます。よろしいですか？");
	&JScfm(checkbtt,"戦闘を挑みます。よろしいですか？");
	$nownum=@lists;
	print"<td><table $TABLE_STYLE>\n<tr><td bgcolor=$TABLE_COLOR2 colspan=6 align=center>挑戦状一覧　($nownum/$MAX_ENTRY人)</tr>\n";
	print"<tr bgcolor=$TABLE_COLOR2><td>挑戦者<td>賞金<td>制限回数<td>コメント<td>挑戦ボタン<td>戦闘ログ</tr>\n";

	$i=0;
	foreach(@lists){
	my($name,$shokin,$kaisu,$comment)=split(/<>/,$lists[$i]);
	$DATE=time;

	if($name ne $inname){
	print<<_HTML;
	<form action="$MAIN_SCRIPT" method="post" target=Sub>
	<tr bgcolor="$TABLE_COLOR1" align="right">
	<td bgcolor="$TABLE_COLOR2"><b>$name</b>の挑戦状
	<td>＄$shokin<td>$kaisu<td>$comment<td>
	<input type="hidden" name="pname" value="$inname">
	<input type="hidden" name="vsname" value="$name">
	<input type="hidden" name="pass" value="$inpass">
	<input type="hidden" name="check" value="$DATE">
	<input type="hidden" name="cmd" value="BATTLE_1">
	<input type="submit" name="b_mode" value="挑戦" $STYLE_B1 onClick="return checkbtt();">
_HTML
	}else{
	print<<_HTML;
	<form action="$SCRIPT_NAME" method="post" target=Sub>
	<tr bgcolor="$TABLE_COLOR1" align="right">
	<td bgcolor="$TABLE_COLOR2"><b>$name</b>の挑戦状
	<td>＄$shokin<td>$kaisu<td>$comment<td>
	<input type="hidden" name="vsname" value="$name">
	<input type="hidden" name="tekkai" value="1">
	<input type="submit" name="b_mode" value="撤回" $STYLE_B1 onClick="return checkend()">
_HTML
	}
print<<_HTML;
	</td>
	</form>
	<form action="$SCRIPT_NAME" method="post"><td>
	<input type="submit" value="履歴" $STYLE_B1>
	<input type="hidden" name="rireki" value="$name">
	</td></tr>
	</form>
_HTML

	$i++;
	}

	if($MSN_SELECT){
		@pair = split(/;/, $ENV{'HTTP_COOKIE'});
			foreach (@pair) {my($key, $value) = split(/=/, $_);$DUMMY{$key} = $value;}
		@MISSION=('通常攻撃,0','突撃,5','防御,18','ヒットアンドアウェイ,25',
					'狙撃,30','捨て身,40','見切り,50','全弾放出,70');
		$Sakusen="<td bgcolor=$TABLE_COLOR1 colspan=6 align=right>作戦&nbsp;<select size=1 name=\"mode\" $STYLE_L>\n";
		foreach (@MISSION){$c++;
			my($M,$R)=split(/\,/,$_);
			if($PL_VALUES[29] >= $R){
				$Sakusen .= "<option value=\"$c\"";
				$Sakusen .= "selected"if $c ==  $DUMMY{'EBMISSON'};
				$Sakusen .= ">$M \n";
			}
		}
		$Sakusen .= "</select>";
	}
	print"$Sakusen</table></table>\n";
	print"<div style=\"font-size:13px;color:#cccccc;text-align:center;\">Copyright &copy; 2003 <a href=\"http://www.otyanoma.net/~juryoku/\" target=\"_blank\">無重力</a> All rights reserved.</div>";
	&FOOTER;
}

sub TOROKU{
	ERROR('再入室してください。')if !$FORM{'inname'};
	ERROR("最低金額は$MIN_MONEYです。")if $FORM{'shokin'} < $MIN_MONEY;
	ERROR('預金が足りません') if $FORM{'shokin'} > $FORM{'yokin'};
	ERROR('預金が足りません') if $FORM{'shokin'} > $FORM{'yokin'}*$FORM{'kaisu'} && $FORM{'kaisu'} ne 'infinity';
	ERROR('最大人数を超えています') if @lists >= $MAX_ENTRY;

	$i=0;
	foreach(@lists){
		my($name,$dmmy)=split(/<>/,$lists[$i]);
		if($name eq $FORM{'inname'}){ERROR('挑戦状は一人同時に一枚までです。');}
		$i++;
	}
	$news="$FORM{'inname'}<>$FORM{'shokin'}<>$FORM{'kaisu'}<>$FORM{'comment'}\n";
	unshift @lists,$news;

	$i=0;
	foreach(@old){
		if ($old[$i] =~ $FORM{'inname'}){
			splice(@old,$i,1);
			last;
		}
		$i++;
	}

	open(OLG,"> $OLDLOG_NAME");
	print OLG @old;
	close(OLG);
	chmod 0666, "$OLDLOG_NAME";

	open(LOG,"> $LOG_NAME");
	print LOG @lists;
	close(LOG);
	chmod 0666, "$LOG_NAME";

	open(OUT,"> $FOLDER_NAME/$inname.cgi");
	print OUT $pout;
	close(OUT);
	chmod 0666, "$FOLDER_NAME/$inname.cgi";
}

sub TEKKAI{
	foreach(@lists){
		my($name,$dmmy)=split(/<>/,$lists[$i]);
		if($name eq $FORM{'vsname'}){
			splice(@lists,$i,1);
			last;
		}
		$i++;
	}
	open(LOG,"> $LOG_NAME");
	print LOG @lists;
	close(LOG);

	unshift @old ,"$FORM{'vsname'}\n";
	pop(@old) if @old > $OLD_KEEP;

	open(OLG,"> $OLDLOG_NAME");
	print OLG @old;
	close(OLG);

}


sub RIREKI{

	open(RRK,"$FOLDER_NAME/$FORM{'rireki'}.cgi");
	seek(RRK,0,0);
	@btlog=<RRK>;
	close(RRK);

	&HEADER;
	print"<table $TABLE_STYLE><tr><th bgcolor=$TABLE_COLOR2 colspan=3 width=250>$FORM{'rireki'}の戦歴</td></tr>\n";
	print"<tr bgcolor=$TABLE_COLOR2><th>挑戦者</th><th>戦闘結果</th><th>戦闘時刻</th>\n";
	foreach(@btlog){
		my($logname,$win,$logtime)=split(/<>/,$btlog[$i]);
		($sec,$min,$hour,$mday,$mon,$year)=localtime($logtime);
		$battletime="";
		$battletime="$mon/$mday($hour:$min)" if $mon;
		if($win==0){$rslt="<font color=aaaaff>敗北</font>";}
		elsif($win==1){$rslt="<font color=ffff99>撃退</font>";}
		else{$rslt="<font color=ffffff>引き分け</font>";}
		print"<tr bgcolor=$TABLE_COLOR1><td>$logname<td>$rslt</td><td>$battletime</td></tr>\n";
		$i++;
	}
	print"</table>\n";
	print"<input type=\"button\" value=\"戻る\" $STYLE_B1 onClick=\"location.replace('./$SCRIPT_NAME')\">\n";
	&FOOTER;
	exit;
}

sub KAKOLOG{
	&HEADER;
	print"<table $TABLE_STYLE><tr bgcolor=$TABLE_COLOR2><th colspan=2>過去ログ</th></tr>\n";
	foreach(@old){
		print<<_HTML;
		<form action=$SCRIPT_NAME method="post">
		<tr bgcolor="$TABLE_COLOR1"><td><b>$old[$i]</b>の戦闘履歴</td>
		<td>
		<input type="submit" $STYLE_B1 value="見る">
		<input type="hidden" name="rireki" value="$old[$i]">
		</td></tr>
		</form>
_HTML
		$i++;
	}
	print"</table>\n";
	print"<input type=\"button\" value=\"戻る\" $STYLE_B1 onClick=\"location.replace('./$SCRIPT_NAME')\">\n";
	&FOOTER;
	exit;
}


sub TYOSEN{

	open(TXT,$LOG_NAME);
	seek(TXT,0,0);
	@lists=<TXT>;
	close(TXT);

	@VS_VAL = split(/\s/,$P{"$FORM{'vsname'}"});
	$flag=0;$i=0;
	foreach(@lists){
		if ($lists[$i] =~ "$FORM{'vsname'}"){
			my($damy,$shokin,$damy)=split(/<>/,$lists[$i]);
			$flag=1;
			last;
		}
		$i++;
	}
	if ($VS_VAL[$YOKIN] < $shokin){
		splice(@lists,$i,1);
		open(OLD,$OLDLOG_NAME);
		seek(OLD,0,0);
		@old=<OLD>;
		close(OLD);
		unshift @old ,"$FORM{'vsname'}\n";
		pop(@old) if @old > $OLD_KEEP;
		open(OLG,"> $OLDLOG_NAME");
		print OLG @old;
		close(OLG);
		open(LOG,"> $LOG_NAME");
		print LOG @lists;
		close(LOG);
		&ERROR('相手の預金が足りません。');
	}
	&ERROR('回数制限over') if !$flag;

	if(!$MSN_SELECT){$FORM{'mode'} = int(rand(8)+1);}

	&BATTLE2;

	$i=0;
	$time=time;
	foreach(@lists){
	if($lists[$i] =~ $FORM{'vsname'}){
		my($name,$shokin,$kaisu,$comment)=split(/<>/,$lists[$i]);
		if($name eq $FORM{'vsname'}){
			open(LOG,"./$FOLDER_NAME/$FORM{'vsname'}.cgi");
		seek(LOG,0,0);
		@entry=<LOG>;
		close(LOG);
		unshift @entry ,"$FORM{'pname'}<>$ResultBattle<>$time\n";
		pop(@entry) if @entry > $MAX_LOG;

		if(!$ResultBattle){
		if($kaisu ne 'infinity'){
			$kaisu--;
			$lists[$i]="$name<>$shokin<>$kaisu<>$comment";
			if($kaisu <= 0){
			splice(@lists,$i,1);

			open(OLD,$OLDLOG_NAME);
			seek(OLD,0,0);
			@old=<OLD>;
			close(OLD);

			unshift @old ,"$FORM{'vsname'}\n";
			pop(@old) if @old > $OLD_KEEP;

			open(OLG,"> $OLDLOG_NAME");
			print OLG @old;
			close(OLG);
			}
			}
		$PL_VALUES[$YOKIN] += $shokin;
		$VS_VAL[$YOKIN] -= $shokin;
		}
		open(OUT,"> ./$FOLDER_NAME/$FORM{'vsname'}.cgi");
		print OUT @entry;
		close(OUT);
		last;
		}
	}
	$i++;
	}
	open(LOG,"> $LOG_NAME");
	print LOG @lists;
	close(LOG);
	if(!$ResultBattle){
		&LOCK;
		dbmopen (%PL,"$DBM_P",0666);
			$PL{"$FORM{'pname'}"}="@PL_VALUES";
			$PL{"$FORM{'vsname'}"}="@VS_VAL";
		dbmclose %PL;
		&UNLOCK;
	}

}

1;