admin.cgi

三国网页游戏原码 增加了亡命也就是判国 还修进了管理工具

open(IN,"$COUNTRY_LIST");
@CON_DATA = <IN>;
close(IN);

$i=0;
foreach(@CON_DATA) {
($xxcid,$xxname,$xxele,$xxnum,$xxins,$xxind,$xxall,$xxgold,$xxhp,$xxmaxhp,$xxstr,$xxvit,$xxagi)=split(/<>/);
$con_data .= "<tr><td><input type=radio name=select value=$i></td><td>$xxcid</td><td>$xxname</td><td>$xxgold</td><td>$xxmaxhp</td><td>$xxhp</td></tr>";
$con .= "<option value=$i>$xxname";
$i++;
}
$con_data .= "<tr><td><input type=radio name=select value=$i></td><th colspan=5>新規国作成</th></tr>";

&HEADER;
print <<"EOM";
<h2>国管理ツール</h2>
<br>
国を追加する場合はini_file/index.iniに追加が必要です。<br>
ゲーム開始後に国を追加する場合はデータがおかしくなる場合があります。<br>
<form method="post" action="admin.cgi">
<input type=hidden name=mode value=CON2>編集する国：
<table bgcolor=aa0000><tbody bgcolor=FFFFF8>
<tr><td>選択</td><td>国ID</td><td>国名</td><td>国の資金</td><td>要塞最大HP</td><td>要塞HP</td></tr>
$con_data</tbody></table>
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
<input type=submit value='編集'>
<br></form>
<hr size=0>
<form method="post" action="admin.cgi">
<select name=select>$con</select>
<input type=hidden name=mode value=CON_DEL>
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
</select><input type=submit value='削除'>
<br></form>

<hr size=0>
<form method="post" action="admin.cgi">
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
</select><input type=submit value='TOP'>
<br></form>

EOM
&FOOTER;
exit;
}

#_/_/_/_/_/_/_/_/_/#
#_/ 編集画面 _/#
#_/_/_/_/_/_/_/_/_/#

sub CON2 {

if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){
&ERR("ＩＤ、パスワードエラー $num ");}
if($in{'select'} eq ""){&ERR2("選択されていません。");}

open(IN,"$COUNTRY_LIST");
@CON_DATA = <IN>;
close(IN);

$i=0;
($xxcid,$xxname,$xxele,$xxnum,$xxins,$xxind,$xxall,$xxgold,$xxhp,$xxmaxhp,$xxstr,$xxvit,$xxagi)=split(/<>/,$CON_DATA[$in{'select'}]);
$xno = $in{'select'}+1;
if($xxnum eq ""){$xxnum = 0;}
if($xxele eq ""){$xxele = 1;}
if($xxgold eq ""){$xxgold = 0;}
if($xxhp eq ""){$xxhp = 1000;}
if($xxmaxhp eq ""){$xxmaxhp = 1000;}
if($xxstr eq ""){$xxstr = 50;}
if($xxvit eq ""){$xxvit = 50;}
if($xxagi eq ""){$xxagi = 50;}

$con_data .= "<tr><td>ID</td><td><input type=text name=xid value=$xno></td><td>NAME</td><td><input type=text name=xname value=$xxname></td><td>属性</td><td><input type=text name=xele value=$xxele></td><td>人口</td><td><input type=text name=xnum value=$xxnum></td><td>街ID</td><td><input type=text name=xins value=$xxins></td></tr><tr><td>未定</td><td><input type=text name=xind value=$xxind></td><td>新入国者メッセージ</td><td><input type=text name=xall value=$xxall></td><td>資金</td><td><input type=text name=xgold value=$xxgold></td><td>HP</td><td><input type=text name=xhp value=$xxhp></td><td>MAXHP</td><td><input type=text name=xmaxhp value=$xxmaxhp></td></tr><tr><td>攻撃力</td><td><input type=text name=xstr value=$xxstr></td><td>防御力</td><td><input type=text name=xvit value=$xxvit></td><td>攻撃回数</td><td><input type=text name=xagi value=$xxagi></td></tr>";
$e=0;
foreach(@ELE){
$print_e .= "$e:$ELE[$e]<br>";
$e++;
}

&HEADER;
print <<"EOM";
<form method="post" action="admin.cgi">
<h3><font size=5 color=green>$xxname</font> ファイル</h3>

<table>
$con_data

</table>
属性：<br>$print_e<br>
<input type=hidden name=mode value=CON3>
<input type=hidden name=select value=$in{'select'}>
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
<input type=submit value='編集'>
<br></form>
<br>
<form method="post" action="admin.cgi">
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
<input type=submit value='編集を止める'>
</form>
<br>
EOM

&FOOTER;
exit;
}

#_/_/_/_/_/_/_/_/_/#
#_/ 編集画面 _/#
#_/_/_/_/_/_/_/_/_/#

sub CON3 {

if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){
&ERR("ＩＤ、パスワードエラー $num ");}
if($in{'select'} eq ""){&ERR2("選択されていません。");}
if($in{'xele'} eq "0" || $in{'xele'} eq ""){"無属性の国は作成できません。"}

open(IN,"$COUNTRY_LIST");
@CON_DATA = <IN>;
close(IN);

($xxcid,$xxname,$xxele,$xxnum,$xxins,$xxind,$xxall,$xxgold,$xxhp,$xxmaxhp,$xxstr,$xxvit,$xxagi)=split(/<>/,$CON_DATA[$in{'select'}]);

splice(@CON_DATA,$in{'select'},1,"$in{'xid'}<>$in{'xname'}<>$in{'xele'}<>$in{'xnum'}<>$in{'xins'}<>$in{'xind'}<>$in{'xall'}<>$in{'xgold'}<>$in{'xhp'}<>$in{'xmaxhp'}<>$in{'xstr'}<>$in{'xvit'}<>$in{'xagi'}<>\n");

open(OUT,">$COUNTRY_LIST") or &ERR('CON 新しいデータを書き込めません。');
print OUT @CON_DATA;
close(OUT);


&HEADER;
print <<"EOM";
<h2><font color=red>$in{'xname'}</font>を編集しました。</h2>
<br>
<br>
<form method="post" action="admin.cgi">
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
<input type=submit value='戻る'>
</form>
<br>
EOM

&FOOTER;
exit;
}

#_/_/_/_/_/_/_/_/_/#
#_/ 街編集 _/#
#_/_/_/_/_/_/_/_/_/#

sub TOW {

if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){
&ERR2("ＩＤ、パスワードエラー $num ");}

open(IN,"$TOWN_LIST");
@TOW_DATA = <IN>;
close(IN);

open(IN,"$COUNTRY_LIST");
@CON_DATA = <IN>;
close(IN);

$con_name[0]="無所属";
foreach(@CON_DATA){
($xxcid,$xxname,$xxele,$xxnum,$xxins,$xxind,$xxall,$xxgold,$xxhp,$xxmaxhp,$xxstr,$xxvit,$xxagi)=split(/<>/);
$con_name[$xxcid] = $xxname;
}
$i=0;
foreach(@TOW_DATA) {
($zcid,$zname,$zele,$zcon,$zmoney,$zmes,$zx,$zy,$zarm,$zpro,$zacc,$zuni,$zdis,$zbat)=split(/<>/);

$tow_data .= "<tr><td><input type=radio name=select value=$i></td><td>$zname</td><td>$con_name[$zcon]</td><td>$zmoney</td></tr>";
$op_data .= "<option value=$i>$zname";

$i++;
}
$tow_data .= "<tr><td><input type=radio name=select value=$i></td><th colspan=5>新規街作成</th></tr>";

&HEADER;
print <<"EOM";
<h2>街管理ツール</h2>
<br>
ゲーム開始後に街を追加する場合はデータがおかしくなる場合があります。<br>
<form method="post" action="admin.cgi">
<input type=hidden name=mode value=TOW2>編集する街：
<table bgcolor=aa0000><tbody bgcolor=FFFFF8>
<tr><td>選択</td><td>街名</td><td>支配国</td><td>資金</td></tr>
$tow_data</tbody></table>
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
<input type=submit value='編集'>
<br></form>
<hr size=0>

<form method="post" action="admin.cgi">
<input type=hidden name=mode value=TOW_DEL>削除する街：
<select name=select>
$op_data
</select>
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
<input type=submit value='削除'>
<br></form>

<hr size=0>
<form method="post" action="admin.cgi">
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
</select><input type=submit value='TOP'>
<br></form>

EOM
&FOOTER;
exit;
}

#_/_/_/_/_/_/_/_/_/#
#_/ 編集画面 _/#
#_/_/_/_/_/_/_/_/_/#

sub TOW2 {

if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){
&ERR("ＩＤ、パスワードエラー $num ");}
if($in{'select'} eq ""){&ERR2("選択されていません。");}

open(IN,"$COUNTRY_LIST");
@CON_DATA = <IN>;
close(IN);

$con_name[0]="無所属";
foreach(@CON_DATA){
($xxcid,$xxname,$xxele,$xxnum,$xxins,$xxind,$xxall,$xxgold,$xxhp,$xxmaxhp,$xxstr,$xxvit,$xxagi)=split(/<>/);
$con_name .= "$xxcid:$xxname<br>";
}

open(IN,"$TOWN_LIST");
@TOW_DATA = <IN>;
close(IN);

$e=0;
foreach(@ELE){
$print_e .= "$e:$ELE[$e]<br>";
$e++;
}
$i=0;
($zcid,$zname,$zele,$zcon,$zmoney,$zmes,$zx,$zy,$zarm,$zpro,$zacc,$zuni,$zdis,$zbat)=split(/<>/,$TOW_DATA[$in{'select'}]);

if($zcid eq ""){$zcid = $in{'select'} + 1;}
if($zele eq ""){$zele = 0;}
if($zcon eq ""){$zcon = 0;}
if($zmoney eq ""){$zmoney = 0;}
if($zmes eq ""){$zmes = "自作の街";}
if($zx eq ""){$zx = 0;}
if($zy eq ""){$zy = 0;}
if($zarm eq ""){$zarm = 0;}
if($zpro eq ""){$zpro = 0;}
if($zacc eq ""){$zacc = 0;}
if($zuni eq ""){$zuni = 0;}
if($zdis eq ""){$zdis = 0;}
if($zbat eq ""){$zbat = 0;}

$tow_data .= "<tr><td>ID</td><td><input type=text name=zid value=$zcid></td><td>NAME</td><td><input type=text name=zname value=$zname></td><td>属性</td><td><input type=text name=zele value=$zele></td><td>支配国</td><td><input type=text name=zcon value=$zcon></td><td>金</td><td><input type=text name=zmoney value=$zmoney></td></tr><tr><td>メッセージ</td><td><input type=text name=zmes value=$zmes></td><td>Ｘ座標</td><td><input type=text name=zx value=$zx></td><td>Ｙ座標</td><td><input type=text name=zy value=$zy></td><td>武器開発値</td><td><input type=text name=zarm value=$zarm></td><td>防具開発値</td><td><input type=text name=zpro value=$zpro></td></tr><tr><td>アクセサリ開発値</td><td><input type=text name=zacc value=$zacc></td><td>産業値</td><td><input type=text name=zuni value=$zuni></td><td>交通網</td><td><input type=text name=zdis value=$zdis></td><td>訓練施設</td><td><input type=text name=zbat value=$zbat></td></tr>";


&HEADER;
print <<"EOM";
<form method="post" action="admin.cgi">
<h3><font size=5 color=orange>$zname</font> ファイル</h3>
支配国<br>
$con_name
<table>
$tow_data

</table>
<hr size=0>
属性：<br>$print_e
<br>
<input type=hidden name=mode value=TOW3>
<input type=hidden name=select value=$in{'select'}>
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
<input type=submit value='編集'>
<br></form>
<br>
<form method="post" action="admin.cgi">
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
<input type=submit value='編集を止める'>
</form>
<br>
EOM

&FOOTER;
exit;
}

#_/_/_/_/_/_/_/_/_/#
#_/ 編集画面 _/#
#_/_/_/_/_/_/_/_/_/#

sub TOW3 {

if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){
&ERR("ＩＤ、パスワードエラー $num ");}
if($in{'select'} eq ""){&ERR2("選択されていません。");}


open(IN,"$TOWN_LIST");
@TOW_DATA = <IN>;
close(IN);

($zcid,$zname,$zele,$zcon,$zmoney,$zmes,$zx,$zy,$zarm,$zpro,$zacc,$zuni,$zdis,$zbat)=split(/<>/,$TOW_DATA[$in{'select'}]);

splice(@TOW_DATA,$in{'select'},1,"$in{'zid'}<>$in{'zname'}<>$in{'zele'}<>$in{'zcon'}<>$in{'zmoney'}<>$in{'zmes'}<>$in{'zx'}<>$in{'zy'}<>$in{'zarm'}<>$in{'zpro'}<>$in{'zacc'}<>$in{'zuni'}<>$in{'zdis'}<>$in{'zbat'}<>\n");

open(OUT,">$TOWN_LIST") or &ERR('CON 新しいデータを書き込めません。');
print OUT @TOW_DATA;
close(OUT);


&HEADER;
print <<"EOM";
<h2><font color=red>$in{'zname'}</font>を編集しました。</h2>
<br>
<br>
<form method="post" action="admin.cgi">
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
<input type=submit value='戻る'>
</form>
<br>
EOM

&FOOTER;
exit;
}
#_/_/_/_/_/_/_/_/_/#
#_/ 編集画面 _/#
#_/_/_/_/_/_/_/_/_/#

sub TOW_DEL {

if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){
&ERR("ＩＤ、パスワードエラー $num ");}
if($in{'select'} eq ""){&ERR2("選択されていません。");}


open(IN,"$TOWN_LIST");
@TOW_DATA = <IN>;
close(IN);

($zcid,$zname,$zele,$zcon,$zmoney,$zmes,$zx,$zy,$zarm,$zpro,$zacc,$zuni,$zdis,$zbat)=split(/<>/,$TOW_DATA[$in{'select'}]);

splice(@TOW_DATA,$in{'select'},1);

open(OUT,">$TOWN_LIST") or &ERR('TOWN 新しいデータを書き込めません。');
print OUT @TOW_DATA;
close(OUT);

&HOST_NAME;

&ADMIN_LOG("<font color=red>$znameを削除しました。「$host」 </font>");

&HEADER;
print <<"EOM";
<h2><font color=red>$zname</font>を削除しました。</h2>
<br>
<br>
<form method="post" action="admin.cgi">
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
<input type=submit value='戻る'>
</form>
<br>
EOM

&FOOTER;
exit;
}

#_/_/_/_/_/_/_/_/_/#
#_/ 編集画面 _/#
#_/_/_/_/_/_/_/_/_/#

sub CON_DEL {

if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){
&ERR("ＩＤ、パスワードエラー $num ");}
if($in{'select'} eq ""){&ERR2("選択されていません。");}


open(IN,"$COUNTRY_LIST");
@CON_DATA = <IN>;
close(IN);

($xxcid,$xxname,$xxele,$xxnum,$xxins,$xxind,$xxall,$xxgold,$xxhp,$xxmaxhp,$xxstr,$xxvit,$xxagi)=split(/<>/,$CON_DATA[$in{'select'}]);

splice(@CON_DATA,$in{'select'},1);

open(OUT,">$COUNTRY_LIST") or &ERR('TOWN 新しいデータを書き込めません。');
print OUT @CON_DATA;
close(OUT);

&HOST_NAME;

&ADMIN_LOG("<font color=red>$xxnameを削除しました。「$host」 </font>");

&HEADER;
print <<"EOM";
<h2><font color=red>$xxname</font>を削除しました。</h2>
<br>
<br>
<form method="post" action="admin.cgi">
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
<input type=submit value='戻る'>
</form>
<br>
EOM

&FOOTER;
exit;
}

#_/_/_/_/_/_/_/_/_/#
#_/ 編集画面 _/#
#_/_/_/_/_/_/_/_/_/#

sub INIT_DAT