?? 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?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -