#!/usr/local/bin/perl

#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#
#              The Endless Battle program Satellite
#       Copyright Net Game Communications All Rights reserved
#                       メインスクリプト
#
#         フリーウェアですが、著作権は放棄していません。
#			再配布、商用利用する場合はご報告願います。
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#
#              The Endless Battle sub program 
#       Copyright masimaro All Rights reserved
#                       修理スクリプト
#
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#設定
$SCRIPTNM="repair.cgi";    #修理スクリプト名
$REPAIRRATE='0.3';         #ＨＰを１回復するのにかかる費用（Ｇ）
$timer = "30";             #使用できる時間の間隔（分）
#
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

require 'ebs_sub1.cgi';


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

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

sub MAINTE		{&MAINTENANCE;}
sub MASTER              {&MASTER2;}
sub SYUSEI		{&SYUSEI2;}
sub TYOUSEI		{&TYOUSEI2;&SYUSEI2;}

sub MAINTENANCE{
		@pair = split(/;/, $ENV{'HTTP_COOKIE'});
		foreach (@pair) {my($key, $value) = split(/=/, $_);$DUMMY{$key} = $value;}
	@pairs = split(/,/, $DUMMY{EB});
		foreach (@pairs) {my($key, $value) = split(/:/, $_);$COOKIE{$key} = $value;}

	&HEADER;
        if($FORM{'medal'} eq ''){$FORM{'medal'}=0;}
	print << "	-----END-----";

	<table width=100% height=100%><tr><td align=center>
		<table border=0 cellpadding=0 cellspacing=0 bgcolor="#909090" align=center
		 style="border:1px outset #909090;font-size:16px;">
		<form action=$SCRIPTNM method=POST><input type=hidden name="cmd" value="MASTER">
		<tr><td style="background-color:#404040;" colspan=2>
		&nbsp;Repair Mode</td></tr>
                <tr><td align=center><b style="color:#000000;">ID</b></td>
		<td><input type=hidden name="plname" value="$COOKIE{'pname'}" style="height:21px; color:#ffffff; font-size:16px; background:#000000; border:1 inset #c0c0c0;">$COOKIE{'pname'}

		<tr><td align=center><b style="color:#000000;">PASS</b></td>
		<td><input type=hidden name="pass" value="$COOKIE{'pass'}" style="height:21px; color:#ffffff; font-size:16px; background:#000000; border:1 inset #c0c0c0;">$COOKIE{'pass'}
		<input type=submit value=Login $STYLE_B2>
		</td></tr></form></table>
	</td></tr></table>
		
	-----END-----
}

sub MASTER2{
&ERROR('ID入力エラー！！') if $FORM{'plname'} eq '';
&ERROR('パスワードエラー！！') if $FORM{'pass'} eq '';
&HEADER;
&DBM_INPORT(P);
print << "-----END-----";
	<script language="JavaScript">
		function syusei(nm){
			fm1.plname.value=nm;
			fm1.sbm1.click();
		}
		
	</script>
	<form action=$SCRIPTNM method=POST name=fm1 style="position:absolute;visibility:hidden;">
	<input type=hidden name="cmd" value=SYUSEI>
	<input type=hidden name="plname">

	<input type=hidden name="pass" value="$FORM{'pass'}">
	<input type=submit name="sbm1">
        </form>
-----END-----

while (my($key,$val) = each %P){
@VALS = split(/\s/,$val);$ET++;
  if($FORM{'plname'} eq $key){

if ( $VALS[26] >= time-$timer*60){
print << "-----END-----";
<table width=100% height=100%><tr><td align=center>
<table cellspacing=2 cellpadding=3 bgcolor="#909090" style="font-size:16px;" border=1>
<tr><td bgcolor=#404040 colspan=35><center><b>修理は最終ログインから$timer分後に使えます。ゲームを開始したら修理中だった、という場合に使用しましょう。</b></center></td></tr>

-----END-----
}else{
print << "-----END-----";
<table width=100% height=100%><tr><td align=center>
<table cellspacing=2 cellpadding=3 bgcolor="#909090" style="font-size:16px;" border=1>
<tr><td bgcolor=#404040 colspan=35><center><b>機体確認</b></center></td></tr>
<tr><td>名前</td><td>資金</td><td>機体</td><td>ＨＰ</td><td>確認</td></tr>

-----END-----

print "<tr><td>$key</td><td>$VALS[8]</td><td>$VALS[3]</td><td>$VALS[15] / $VALS[16]</td><td><a href=\"javascript:syusei('$key')\">決定</a></td></tr>";

}

  }
}

print << "-----END-----";
</td></tr></table>
-----END-----
	print "<BR><center>修理：EDIT BY <a href=\"http://members.jcom.home.ne.jp/masimaro/\">MASIMARO</a></center>";
&FOOTER;
print "</td></tr></table></body>";
}

sub SYUSEI2{
&ERROR('パスワードエラー！！') if $FORM{'pass'} eq '';
&HEADER;
&DBM_INPORT(P);
dbmopen (%P,"$DBM_P",0666);
@VALS = split(/\s/,$P{"$FORM{'plname'}"});
dbmclose %P;
$SIKIN="$VALS[8]";
$GOLD="$VALS[16]"-"$VALS[15]";
$KAIFUKU="$VALS[16]";
$HIYOU=int($GOLD*$REPAIRRATE);
$SIKIN-=$HIYOU;
print << "-----END-----";
	<script language="JavaScript">
		function tyousei(nm){
			fm1.plname.value=nm;
			fm1.sbm1.click();
		}
		
	</script>
	<form action=$SCRIPTNM method=POST name=fm1 style="position:absolute;visibility:hidden;">
	<input type=hidden name="cmd" value=TYOUSEI>
	<input type=hidden name="plname">

	<input type=hidden name="pass" value="$FORM{'pass'}">
	<input type=submit name="sbm1">
        <input type=hidden name="para15" value="$KAIFUKU">
        <input type=hidden name="para8" value="$SIKIN">
        </form>
<table width=100% height=100%><tr><td align=center>
<table cellspacing=2 cellpadding=3 bgcolor="#909090" style="font-size:16px;" border=1>
<tr><td bgcolor=#404040 colspan=35><center><b>修理</b></center></td></tr>
<tr><td>名前</td><td>資金</td><td>機体</td><td>ＨＰ</td><td>修理</td></tr>

<tr><td>修理費＄</td><td><font color=RED>$HIYOU</font></td><td> >>> </td><td><font color=BLUE>$GOLD</font></td><td> ☆ </td></tr>
                
-----END-----

print "<tr><td>$FORM{'plname'}</td><td>$VALS[8]</td><td>$VALS[3]</td><td>$VALS[15] / $VALS[16]</td>";
if($GOLD>0 and $VALS[8]>=$HIYOU){print "<td><a href=\"javascript:tyousei('$FORM{'plname'}')\">決定</a></td>";}

print << "-----END-----";
</tr>
</td></tr></table>
-----END-----
	print "<BR><center>修理：EDIT BY <a href=\"http://members.jcom.home.ne.jp/masimaro/\">MASIMARO</a></center>";
&FOOTER;
print "</td></tr></table></body>";
}

sub TYOUSEI2{

&LOCK;
	dbmopen (%P,"$DBM_P",0666);
		@VALS = split(/\s/,$P{"$FORM{'plname'}"});

if ( $VALS[26] <= time-$timer*60){
                $VALS[8]  = $FORM{'para8'};
                $VALS[15] = $FORM{'para15'};
                $VALS[25] = 0;
                $VALS[26] = $DATE ;
}
		$P{"$FORM{'plname'}"}="@VALS";
	dbmclose %P;
&UNLOCK;
}