#!/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
#                       カジノ換金スクリプト
#
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#ver.2
#設定
$SCRIPTNM="money.cgi";               #換金スクリプト名
$KRATE="1";                          #換金レート
#
#カジノからの呼び出し設定
#
#  カジノＣＧＩに以下のボタンをつけてください。
#
#<form action=money.cgi method=POST>
#<input type=hidden name="cmd" value="MAINTE">
#<input type=hidden name="medal" value="$QUERY{'medal'}">
#<input type=submit value=換金 $STYLE_B2></form>
#
#  ランキングボタンと終了ボタンの間がいいでしょう。
#
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/




require 'ebs_sub1.cgi';
require 'ec_config.pl';

&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="SYUSEI">
		<tr><td style="background-color:#404040;" colspan=2>
		&nbsp;Cashing 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'}
                <input type=hidden name="medal" value="$FORM{'medal'}">
		<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>
	<form action=e_casino.cgi method=POST>
	<input type=submit value=戻る $STYLE_B2>
        <input type=hidden name="medal" value="$FORM{'medal'}">
	</form>
	</td></tr></table>
		
	-----END-----
}

sub SYUSEI2{
&ERROR('ID入力エラー！！') if $FORM{'plname'} eq '';
&ERROR('パスワードエラー！！') if $FORM{'pass'} eq '';

&DBM_INPORT(P);

@VALS = split(/\s/,$P{"$FORM{'plname'}"});
&ERROR('パスワードエラー！！') if crypt ($FORM{'pass'},eb) ne "$VALS[2]";

&HEADER;

$KANKIN="$VALS[8]";
$GOLD="$FORM{'medal'}"-$START_MEDAL;
if($GOLD < 0){$GOLD=0;}
$SILVER=int($GOLD*$KRATE);
$KANKIN+=$SILVER;
print << "-----END-----";
	<script language="JavaScript">
		function tyousei(nm){
                        alert("$GOLD メダル換金します。");
			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="medal" value=0>
	<input type=hidden name="pass" value="$FORM{'pass'}">
	<input type=submit name="sbm1" onClick="parent.window.close()">
        <input type=hidden name="para8" value="$KANKIN">
        </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></tr>

<tr><td>＄</td><td>$GOLD × $KRATE = <font color=RED>$SILVER</font></td><td><marquee>★　　☆　　★　　☆　　★　　☆</marquee></td></tr>
                
-----END-----

print "<tr><td>$FORM{'plname'}</td><td>$VALS[8]</td><td><a href=\"javascript:tyousei('$FORM{'plname'}')\">決定</a></td></tr>";


print << "-----END-----";

<form action=$SCRIPTNM method=POST>
<input type=hidden name="cmd" value="MAINTE">
<input type=hidden name="pass" value=\"$FORM{'pass'}\"><tr><td colspan=35>
<input type=hidden name="medal" value="$FORM{'medal'}">
<input type=submit value=戻る $STYLE_B2>
</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></form></body>";
}

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

                $VALS[8]=$FORM{'para8'};

		$P{"$FORM{'plname'}"}="@VALS";
	dbmclose %P;
&UNLOCK;
}