www.pudn.com > NETv2.0.rar > admin.cgi

#!/usr/bin/perl  
 
################################################################# 
# 【免責事項】 # 
# このスクリプトはフリーソフトです。このスクリプトを使用した # 
# いかなる損害に対して作者は一切の責任を負いません。 # 
# また設置に関する質問はサポート掲示板にお願いいたします。 # 
# 直接メールによる質問は一切お受けいたしておりません。 # 
################################################################# 
 
require 'jcode.pl'; 
require './ini_file/index.ini'; 
require 'suport.pl'; 
 
if($MENTE) { &ERR2("错误。"); } 
&DECODE; 
 
if(!$ADMIN_SET) { &ERR2("管理员使用。"); } 
 
# ------------ 要先注册下面你设的用户，才可以登录管理。管理用ID PASS設定 ----------- 
$adminid = "xxxx"; 
$adminpass = "xxxx00"; 
# ------------ ここまで ----------- 
 
 
 
 
if($mode eq 'CHANGE') { &CHANGE; } 
elsif($mode eq 'MENTE') { &MENTE; } 
elsif($mode eq 'MENTE2') { &MENTE2; } 
elsif($mode eq 'ITEM') { &ITEM; } 
elsif($mode eq 'ITEM2') { &ITEM2; } 
elsif($mode eq 'ITEM3') { &ITEM3; } 
elsif($mode eq 'ITEM4') { &ITEM4; } 
elsif($mode eq 'ARM') { &ARM; } 
elsif($mode eq 'ARM2') { &ARM2; } 
elsif($mode eq 'ARM3') { &ARM3; } 
elsif($mode eq 'PRO') { &PRO; } 
elsif($mode eq 'PRO2') { &PRO2; } 
elsif($mode eq 'PRO3') { &PRO3; } 
elsif($mode eq 'ACC') { &ACC; } 
elsif($mode eq 'ACC2') { &ACC2; } 
elsif($mode eq 'ACC3') { &ACC3; } 
elsif($mode eq 'CHANGE2') { &CHANGE2; } 
elsif($mode eq 'BBS') { &BBS; } 
elsif($mode eq 'BANK') { &BANK; } 
elsif($mode eq 'BANK2') { &BANK2; } 
elsif($mode eq 'BANK3') { &BANK3; } 
elsif($mode eq 'CONT') { &CONT; } 
elsif($mode eq 'CON2') { &CON2; } 
elsif($mode eq 'CON3') { &CON3; } 
elsif($mode eq 'TOW') { &TOW; } 
elsif($mode eq 'TOW2') { &TOW2; } 
elsif($mode eq 'TOW3') { &TOW3; } 
elsif($mode eq 'TOW_DEL') { &TOW_DEL; } 
elsif($mode eq 'CON_DEL') { &CON_DEL; } 
elsif($mode eq 'DEL') { &DEL; } 
elsif($mode eq 'DEL2') { &DEL2; } 
elsif($mode eq 'DEL_LIST') { &DEL_LIST; } 
elsif($mode eq 'ALL_DEL') { &ALL_DEL; } 
elsif($mode eq 'INIT_DATA') { &INIT_DATA; } 
else{⊤} 
 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ MAIN画面 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub TOP { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR2("ＩＤ、パスワードエラー $num ");} 
 
 
&HEADER; 
print <<"EOM"; 
管理ツール
 
 
 
 
 
 
 
 

 
 
登録者のデータを編集します。通常はこちらで編集してください。 
参加者の数が増えると使えなくなる可\能\性があります。 
 
 
 
 
 
 

 
 
ランキングデータから登録者を編集します。キャラ編集１で編集できない 
場合はこちらで編集してください。ランキングデータが更新されていないと 
編集できないので参加者に「ランキングの更新」をして貰ってください。 
 
 
 
 
 
 

 
 
持ち物データを編集します。 
 
 
 
 
 
 

 
 
武器の編集、新規武器の作成 
 
 
 
 
 
 

 
 
防具の編集、新規防具の作成 
 
 
 
 
 
 
 

 
 
アクセサリの編集、新規アクセサリの作成 
 
 
 
 
 
 
 

 
 
銀行データを編集します。 
 
 
 
 
 
 

 
 
国データの編集、新しい国を作成します。 
 
 
 
 
 
 

 
 
街データの作成、新しい街を作成します。 
 
 
 
 
 
 
 
 

 
 
すべてのデータを初期化します。 
 
 
 
 
 
 
MEMO: 
NAME: 
 
 
 

 
 
 
 

 
 
裏口入学 
 
 
 
 
前回の続きから始める
 
USER ID
 
PASS WORD
 
 
 
 
 
 
EOM 
open(IN,"$ADMIN_BBS"); 
@A_BBS = ; 
close(IN); 
 
print "@A_BBS"; 
 
&FOOTER; 
exit; 
} 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ MENTE画面 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub MENTE { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR2("ＩＤ、パスワードエラー $num ");} 
 
$dir="./charalog/main"; 
opendir(dirlist,"$dir"); 
$i=0; 
while($file = readdir(dirlist)){ 
if($file =~ /\.cgi/i){ 
$datames = "検索：$dir/$file
\n"; 
if(!open(page,"$dir/$file")){ 
$datames .= "$dir/$fileがみつかりません。
\n"; 
return 1; 
} 
@page = ; 
close(page); 
$list[$i]="$file"; 
($eid,$epass,$ename,$echara,$estr,$eint,$elea,$echa,$esol,$egat,$econ,$egold,$erice,$ecex,$eclass,$earm,$ebook,$ebank,$esub1,$esub2,$epos,$emes,$ehost,$edate,$email,$eos) = split(/<>/,$page[0]); 
 
if("$in{'serch'}" ne ""){ 
if("$ename" =~ "$in{'serch'}"){ 
$human_data[$i]="$ehost<>$ename<>$eid<>"; 
}else{ 
next; 
} 
}else{ 
if($in{'no'} eq "2"){ 
$human_data[$i]="$ename<>$ehost<>$eid<>"; 
}elsif($in{'no'} eq "3"){ 
$human_data[$i]="$eid<>$ehost<>$ename<>"; 
}else{ 
$human_data[$i]="$ehost<>$ename<>$eid<>"; 
} 
} 
push(@newlist,"@page
"); 
$i++; 
} 
} 
closedir(dirlist); 
 
@human_data = sort @human_data; 
 
$tt = time - (60 * 60 * 24 * 34); 
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = localtime($tt); 
$year += 1900; 
$mon++; 
$ww = (Sun,Mon,Tue,Wed,Thu,Fri,Sat)[$wday]; 
$daytime = sprintf("%4d\/%02d\/%02d\/(%s) %02d:%02d:%02d", $year,$mon,$mday,$ww,$hour,$min,$sec); 
 
 
&HEADER; 
print <<"EOM"; 
キャラ管理ツール
 

 
IDはファイル名と同じになっているので変更しないで下さい。
 
削除をする時は闘技場、天真に登録していないかを確認してから削除して下さい。
 
ホスト名は随時更新しています。
 
 
編集するファイル： 
 
EOM 
$i=0;$w_host=""; 
foreach(@human_data){ 
if($in{'no'} eq "2"){ 
($ename,$ehost,$eid) = split(/<>/); 
}elsif($in{'no'} eq "3"){ 
($eid,$ehost,$ename) = split(/<>/); 
}else{ 
($ehost,$ename,$eid) = split(/<>/); 
} 
print "$eid $ename $ehost\n"; 
if($in{'no'} eq "" || $in{'no'} eq "1"){ 
if($w_host eq "$ehost"){ 
$mess .= "$ename | $w_name
\n"; 
} 
} 
$w_host = "$ehost"; 
$w_name = "$ename"; 
$i++; 
} 
print <<"EOM"; 
 
 
 

 
 
 
 
 
 

ホスト名順（2重登録チェック）
 
名前順
 
ＩＤ順
 
名前検索
 
 

 
 
ファイル消去
 
２重登録者を強制削除します。
 
 
 
 
 
 
 

 
 
 
２重登録疑惑者
 
$mess 
 
 
 
 

 
 
EOM 
open(IN,"$ADMIN_LIST"); 
@A_LOG = ; 
close(IN); 
print "@A_LOG"; 
&FOOTER; 
exit; 
} 
 
#_/_/_/_/_/_/_/_/_/_/_/# 
#_/ DEL LIST画面 _/# 
#_/_/_/_/_/_/_/_/_/_/_/# 
 
sub DEL_LIST { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR2("ＩＤ、パスワードエラー $num ");} 
 
$tt = time - (60 * 60 * 24 * 34); 
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = localtime($tt); 
$year += 1900; 
$mon++; 
$ww = (Sun,Mon,Tue,Wed,Thu,Fri,Sat)[$wday]; 
$daytime = sprintf("%4d\/%02d\/%02d\/(%s) %02d:%02d:%02d", $year,$mon,$mday,$ww,$hour,$min,$sec); 
 
$dir="./charalog/main"; 
opendir(dirlist,"$dir"); 
$i=0; 
while($file = readdir(dirlist)){ 
if($file =~ /\.cgi/i){ 
$datames = "検索：$dir/$file
\n"; 
if(!open(page,"$dir/$file")){ 
$datames .= "$dir/$fileがみつかりません。
\n"; 
return 1; 
} 
@page = ; 
close(page); 
$list[$i]="$file"; 
($eid,$epass,$ename,$echara,$estr,$eint,$elea,$echa,$esol,$egat,$econ,$egold,$erice,$ecex,$eclass,$earm,$ebook,$ebank,$esub1,$esub2,$epos,$emes,$ehost,$edate,$email,$eos) = split(/<>/,$page[0]); 
 
if($edate < $tt){ 
$i++; 
($sec2,$min2,$hour2,$mday2,$mon2,$year2,$wday2,$yday2) = localtime($edate); 
$mon2++; 
$last_login = "$mon2月$mday2日$hour2時$min2分"; 
$LIST .= "$ename$eid$email$last_login"; 
} 
} 
} 
closedir(dirlist); 
 
@human_data = sort @human_data; 
$a = "ss"; 
$dir="./charalog/main"; 
unlink("$dir/$a\.cgi"); 
 
&HEADER; 
print <<"EOM"; 
キャラ管理ツール
 

 
 
ファイル消去
 
 
$LIST 
 
名前
ID
MAIL
最終更新
 
 
＞＞以上の人を削除します。宜しいですか？
 
 
 
 
 
 

 
 
 
 
 
 

 
 
 
EOM 
 
&FOOTER; 
exit; 
} 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ ファイル削除 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub ALL_DEL { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR("ＩＤ、パスワードエラー $num ");} 
$tt = time - (60 * 60 * 24 * 34); 
 
$dir="./charalog/main"; 
opendir(dirlist,"$dir"); 
$i=0; 
while($file = readdir(dirlist)){ 
if($file =~ /\.cgi/i){ 
$datames = "検索：$dir/$file
\n"; 
if(!open(page,"$dir/$file")){ 
$datames .= "$dir/$fileがみつかりません。
\n"; 
} 
@page = ; 
close(page); 
$list[$i]="$file"; 
($eid,$epass,$ename,$eurl,$echara,$esex,$ehp,$emaxhp,$emp,$emaxmp,$eele,$estr,$evit,$eint,$emen,$eagi,$ecom,$egold,$e_ex,$ecex,$eunit,$econ,$earm,$epro,$eacc,$esub1,$esub2,$etac,$esta,$epos,$emes,$ehost,$edate,$esyo,$eclass,$etotal,$ekati) = split(/<>/,$page[0]); 
if($edate < $tt){ 
$dir2="./charalog/main"; 
unlink("$dir2/$eid\.cgi"); 
$dir2="./charalog/bank"; 
unlink("$dir2/$eid\.cgi"); 
$dir2="./charalog/arm"; 
unlink("$dir2/$eid\.cgi"); 
$dir2="./charalog/item"; 
unlink("$dir2/$eid\.cgi"); 
$dir2="./charalog/chara_max"; 
unlink("$dir2/$eid\.cgi"); 
$dir2="./charalog/map"; 
unlink("$dir2/$eid\.cgi"); 
 
$i++; 
} 
} 
} 
closedir(dirlist); 
 
 
&HOST_NAME; 
 
&TIME_DATA; 
 
unshift(@S_MOVE,"\[削除\] ３４日以降ログインのない方を削除しました。($mday日$hour時$min分)
\n"); 
splice(@S_MOVE,20); 
 
open(OUT,">$MAP_LOG_LIST") or &ERR2('LOG 新しいデータを書き込めません。'); 
print OUT @S_MOVE; 
close(OUT); 
 
&HEADER; 
print <<"EOM"; 
３４日以降ログインのない方($i名)を削除しました。
 
 
 
 
 

 
EOM 
 
&FOOTER; 
exit; 
} 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ WRITE画面 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub BBS { 
 
&TIME_DATA; 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR2("ＩＤ、パスワードエラー $num ");} 
 
open(IN,"$ADMIN_BBS"); 
@AD_DATA = ; 
close(IN); 
 
if($in{'message'} eq "") { &ERR2("メッセージが記入されていません。"); } 
 
$bbs_num = @AD_DATA; 
if($bbs_num > 40) { pop(@AD_DATA); } 
 
unshift(@AD_DATA,"$in{'message'} $in{'name'}より($mday日$hour時$min分)
\n"); 
 
open(OUT,">$ADMIN_BBS"); 
print OUT @AD_DATA; 
close(OUT); 
 
&HEADER; 
print <<"EOM"; 
書き込みました。
 
 
 
 
 

 
EOM 
&FOOTER; 
exit; 
} 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ MENTE2画面 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub MENTE2 { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR2("ＩＤ、パスワードエラー $num ");} 
 
open(IN,"$CHARA_DATA_LIST"); 
@CL_DATA = ; 
close(IN); 
 
foreach(@CL_DATA) { 
($eid,$epass,$ename,$echara,$estr,$eint,$elea,$echa,$esol,$egat,$econ,$egold,$erice,$ecex,$eclass,$earm,$ebook,$ebank,$esub1,$esub2,$epos,$emes,$ehost,$edate,$email,$eos) = split(/<>/); 
$human_data[$i]="$ehost<>$ename<>$eid<>"; 
push(@newlist,"@page
"); 
$i++; 
} 
 
@human_data = sort @human_data; 
 
&HEADER; 
print <<"EOM"; 
キャラ管理ツール
 

 
IDはファイル名と同じになっているので変更しないで下さい。
 
削除をする時は闘技場、天真に登録していないかを確認してから削除して下さい。
 
ホスト名は随時更新しています。
 
 
編集するファイル： 
 
EOM 
$i=0;$w_host=""; 
foreach(@human_data){ 
($ehost,$ename,$eid) = split(/<>/); 
print "$ename ($eid) $ehost\n"; 
if($w_host eq "$ehost"){ 
$mess .= "$ename
\n"; 
} 
$w_host = "$ehost"; 
$i++; 
} 
print <<"EOM"; 
 
 
 

 
２重登録疑惑者 
$mess 
 
 
 
 

 
 
EOM 
open(IN,"$ADMIN_LIST"); 
@A_LOG = ; 
close(IN); 
print "@A_LOG"; 
&FOOTER; 
exit; 
} 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ 武器編集 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub ARM { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR2("ＩＤ、パスワードエラー $num ");} 
 
open(IN,"$TOWN_LIST") or &ERR("指定されたファイルが開けません。"); 
@TOWN_DATA = ; 
close(IN); 
 
foreach(@TOWN_DATA){ 
($zcid,$zname,$zele,$zcon,$zmoney,$zmes,$zx,$zy,$zarm,$zpro,$zacc,$zuni,$zdis,$zbat)=split(/<>/); 
$town_name[$zcid] = $zname; 
} 
 
open(IN,"$ARM_LIST"); 
@ARM_DATA = ; 
close(IN); 
 
$i=0; 
foreach(@ARM_DATA) { 
($karmname,$karmval,$karmdmg,$karmwei,$karmele,$karmsta,$karmclass,$karmtownid) = split(/<>/); 
if($karmdmg/2 <= $armwei){$wei=0;}else{$wei=($karmdmg-$karmwei);} 
$karmval = int(((5000000*($karmdmg**2))+(50000000*($wei**2)))/(255**2)); 
if($karmtownid eq "0"){ 
$town = "全て"; 
}elsif($town_name[$karmtownid] eq ""){ 
$town = "非売品"; 
}else{ 
$town = "$town_name[$karmtownid]"; 
} 
if($i >= 162 && $i <= 171){ 
$arm_data .= "$karmname$karmval$karmdmg$karmwei$ELE[$karmele]$town"; 
}elsif($karmdmg eq ""){ 
$arm_data .= "$karmname"; 
}else{ 
$arm_data .= "$karmname$karmval$karmdmg$karmwei$ELE[$karmele]$town"; 
} 
$i++; 
} 
$arm_data .= "新規武器作成"; 
 
&HEADER; 
print <<"EOM"; 
武器管理ツール
 

 
オリジナル武器はここでは変更できません。（/charalog/arm を参照。）
 
現在装備している武器も変更されるので注意してください。
 
メモリが足りない場合は\表\示できない場合があります。
 
ピンクの部分は上級の敵が落とすレアアイテム
 
 
編集する武器： 
 
$arm_data
 
選択
武器名
価格
威力
重さ
属性
販売店舗
 
 
 
 

 
 
 
 
 

 
 
EOM 
&FOOTER; 
exit; 
} 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ 編集画面 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub ARM2 { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR("ＩＤ、パスワードエラー $num ");} 
if($in{'select'} eq ""){&ERR2("選択されていません。");} 
 
open(IN,"$TOWN_LIST") or &ERR2("指定されたファイルが開けません。"); 
@TOWN_DATA = ; 
close(IN); 
 
foreach(@TOWN_DATA){ 
($zcid,$zname,$zele,$zcon,$zmoney,$zmes,$zx,$zy,$zarm,$zpro,$zacc,$zuni,$zdis,$zbat)=split(/<>/); 
if($zcid eq "1"){ 
$zcid = 0; 
$town = "全て"; 
}elsif($zname eq ""){ 
$town = "非売品"; 
}else{ 
$town = "$zname"; 
} 
$town_sel .= "$town\n"; 
} 
$town_sel .= "非売品\n"; 
 
open(IN,"$ARM_LIST"); 
@ARM_DATA = ; 
close(IN); 
 
$i=0; 
($karmname,$karmval,$karmdmg,$karmwei,$karmele,$karmsta,$karmclass,$karmtownid) = split(/<>/,$ARM_DATA[$in{'select'}]); 
if($karmsta eq ""){$karmsta = 0;} 
if($karmele eq ""){$karmele = 0;} 
$arm_data .= "$town_sel"; 
$i++; 
 
&HEADER; 
print <<"EOM"; 
 
$karmname ファイル
 
 
$arm_data 
 
 
武器名
価格
威力
重さ
属性
ステータス
販売店舗
 

 
 
 
 
 
 

 

 
 
 
 
 
 

 
EOM 
 
&FOOTER; 
exit; 
} 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ 編集画面 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub ARM3 { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR("ＩＤ、パスワードエラー $num ");} 
if($in{'select'} eq ""){&ERR2("選択されていません。");} 
 
 
open(IN,"$ARM_LIST"); 
@ARM_DATA = ; 
close(IN); 
 
($karmname,$karmval,$karmdmg,$karmwei,$karmele,$karmsta,$karmclass,$karmtownid) = split(/<>/,$ARM_DATA[$in{'select'}]); 
splice(@ARM_DATA,$in{'select'},1,"$in{'name'}<>$in{'val'}<>$in{'dmg'}<>$in{'wei'}<>$in{'ele'}<>$in{'sta'}<>$in{'class'}<>$in{'townid'}<>\n"); 
 
open(OUT,">$ARM_LIST") or &ERR('ARM 新しいデータを書き込めません。'); 
print OUT @ARM_DATA; 
close(OUT); 
 
 
&HEADER; 
print <<"EOM"; 
$in{'name'}を編集しました。
 

 

 
 
 
 
 
 

 
EOM 
 
&FOOTER; 
exit; 
} 
 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ 編集画面 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub CHANGE { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR("ＩＤ、パスワードエラー $num ");} 
$dir="./charalog/main"; 
if(!open(page,"$dir/$in{'fileno'}")){ 
$datames .= "$dir/$fileがみつかりません。
\n"; 
return 1; 
} 
@page = ; 
close(page); 
 
($eid,$epass,$ename,$echara,$estr,$eint,$elea,$echa,$esol,$egat,$econ,$egold,$erice,$ecex,$eclass,$earm,$ebook,$ebank,$esub1,$esub2,$epos,$emes,$ehost,$edate,$email,$eos) = split(/<>/,$page[0]); 
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = localtime($edate); 
$year += 1900; 
$mon++; 
$ww = (Sun,Mon,Tue,Wed,Thu,Fri,Sat)[$wday]; 
$daytime = sprintf("%4d\/%02d\/%02d\/(%s) %02d:%02d:%02d", $year,$mon,$mday,$ww,$hour,$min,$sec); 
 
&HEADER; 
print <<"EOM"; 
 
 $ename ファイル
 
 
 
ID
 
PASS
 
NAME
 
画像ID
 
 
武力
 
知力
 
統率力
 
人望
 
 
 
兵士数
 
訓練
 
国
 
金
 
 
 
米
 
貢献
 
階級値
 
武器
 
 
 
書籍
 
忠誠
 
サブ１
 
サブ２
 
 
 
現在位置
 
メッセージ
 
ホスト
 
更新日時
 
 
 
MAIL
 
行動チェック
 
 
 
 
 
 
 

 
 
 
 
 
 

 

 
 
 
 
 
 

 

 

 

 
MAPログあり
 
 
 
 
 
 
 
 

 

 

 
MAPログなし
 
 
 
 
 
 
 
 

 
EOM 
 
&FOOTER; 
exit; 
} 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ 編集画面 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub CHANGE2 { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR("ＩＤ、パスワードエラー $num ");} 
$dir="./charalog/main"; 
 
$newdata = "$in{'eid'}<>$in{'epass'}<>$in{'ename'}<>$in{'echara'}<>$in{'estr'}<>$in{'eint'}<>$in{'elea'}<>$in{'echa'}<>$in{'esol'}<>$in{'egat'}<>$in{'econ'}<>$in{'egold'}<>$in{'erice'}<>$in{'ecex'}<>$in{'eclass'}<>$in{'earm'}<>$in{'ebook'}<>$in{'ebank'}<>$in{'esub1'}<>$in{'esub2'}<>$in{'epos'}<>$in{'emes'}<>$in{'ehost'}<>$in{'edate'}<>$in{'email'}<>$in{'eos'}<>\n"; 
 
open(page,">$dir/$in{'fileno'}"); 
print page $newdata; 
close(page); 
&HOST_NAME; 
 
&ADMIN_LOG("$in{'ename'} $dir/$in{'fileno'}を更新しました。「$host」"); 
&HEADER; 
print <<"EOM"; 
$in{'ename'} のファイル$dir/$in{'fileno'}を更新しました。
 

 
 
 
 
 
 
EOM 
 
&FOOTER; 
exit; 
} 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ BANK 編集 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub BANK { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR2("ＩＤ、パスワードエラー $num ");} 
 
$dir="./charalog/bank"; 
opendir(dirlist,"$dir"); 
$i=0; 
while($file = readdir(dirlist)){ 
if($file =~ /\.cgi/i){ 
$datames = "検索：$dir/$file
\n"; 
if(!open(page,"$dir/$file")){ 
$datames .= "$dir/$fileがみつかりません。
\n"; 
return 1; 
} 
@page = ; 
close(page); 
$list[$i]="$file"; 
($eid,$epass,$gold) = split(/<>/,$page[0]); 
$human_data[$i]="$gold<>$eid<>"; 
push(@newlist,"@page
"); 
$i++; 
} 
} 
closedir(dirlist); 
@human_data = sort @human_data; 
 
&HEADER; 
print <<"EOM"; 
銀行管理ツール
 

 
銀行データを編集します。
 
 
編集するファイル： 
 
EOM 
$i=0;$w_host=""; 
foreach(@human_data){ 
($gold,$eid,$epass) = split(/<>/); 
print "$gold\G $eid \n"; 
} 
print <<"EOM"; 
 
 
 

 
 
 
 
 

 
 
EOM 
open(IN,"$ADMIN_LIST"); 
@A_LOG = ; 
close(IN); 
print "@A_LOG"; 
&FOOTER; 
exit; 
} 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ 編集画面 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub BANK2 { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR("ＩＤ、パスワードエラー $num ");} 
$dir="./charalog/bank"; 
if(!open(page,"$dir/$in{'fileno'}")){ 
$datames .= "$dir/$fileがみつかりません。
\n"; 
return 1; 
} 
@page = ; 
close(page); 
 
($eid,$epass,$egold) = split(/<>/,$page[0]); 
 
&HEADER; 
print <<"EOM"; 
 
 
ID
 
PASS
 
GOLD
 
 

 
 
 
 
 
 

 

 
 
 
 
 
 

 

 
EOM 
 
&FOOTER; 
exit; 
} 
#_/_/_/_/_/_/_/_/_/# 
#_/ 編集画面 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub BANK3 { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR("ＩＤ、パスワードエラー $num ");} 
$dir="./charalog/bank"; 
 
$newdata = "$in{'eid'}<>$in{'epass'}<>$in{'egold'}<>\n"; 
 
open(page,">$dir/$in{'fileno'}"); 
print page $newdata; 
close(page); 
&HOST_NAME; 
 
&ADMIN_LOG("銀行ファイル $dir/$in{'fileno'}を更新しました。「$host」"); 
&HEADER; 
print <<"EOM"; 
銀行 ファイル$dir/$in{'fileno'}を更新しました。
 

 
 
 
 
 
 
EOM 
 
&FOOTER; 
exit; 
} 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ ITEM 編集 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub ITEM { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR2("ＩＤ、パスワードエラー $num ");} 
 
$dir="./charalog/item"; 
opendir(dirlist,"$dir"); 
$i=0; 
while($file = readdir(dirlist)){ 
if($file =~ /\.cgi/i){ 
$datames = "検索：$dir/$file
\n"; 
if(!open(page,"$dir/$file")){ 
$datames .= "$dir/$fileがみつかりません。
\n"; 
return 1; 
} 
@page = ; 
close(page); 
$list[$i]="$file"; 
($it_mark,$it_no,$it_name,$it_val,$it_dmg,$it_sta,$it_wei) = split(/<>/); 
$human_data[$i]="$gold<>$eid<>"; 
push(@newlist,"@page
"); 
$i++; 
} 
} 
closedir(dirlist); 
@human_data = sort @human_data; 
 
&HEADER; 
print <<"EOM"; 
アイテム管理ツール
 

 
アイテムデータを編集します。
 
 
編集するファイル： 
 
EOM 
$i=0;$w_host=""; 
foreach(@list){ 
($gold,$eid,$epass) = split(/<>/); 
print "$list[$i] \n"; 
$i++; 
} 
print <<"EOM"; 
 
 
 

 
 
 
 
 

 
 
EOM 
open(IN,"$ADMIN_LIST"); 
@A_LOG = ; 
close(IN); 
print "@A_LOG"; 
&FOOTER; 
exit; 
} 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ 編集画面 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub ITEM2 { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR("ＩＤ、パスワードエラー $num ");} 
$dir="./charalog/item"; 
if(!open(page,"$dir/$in{'fileno'}")){ 
$datames .= "$dir/$fileがみつかりません。
\n"; 
return 1; 
} 
@page = ; 
close(page); 
 
 
&HEADER; 
print "
"; 
print "変更したいアイテムを選択してください。
"; 
print "一度に変更できるアイテムは１つまでです。
"; 
$i=0; 
foreach(@page){ 
($it_mark,$it_no,$it_name,$it_val,$it_dmg,$it_sta,$it_wei) = split(/<>/); 
print <<"EOM"; 
 
$it_name 
 
種類
 
番号
 
NAME
 
価格
 
威力
 
ステータス
 
重さ
 
 
EOM 
$i++; 
} 
 
print <<"EOM"; 
種類：
 
0：武器
 
1：防具
 
2：アクセサリ
 
3：アイテム
 

 
 
 
 
 
 

 
アイテムの削除
 
EOM 
$i=0; 
print "
"; 
foreach(@page){ 
($it_mark,$it_no,$it_name,$it_val,$it_dmg,$it_sta,$it_wei) = split(/<>/); 
print <<"EOM"; 
$it_name
 
EOM 
$i++; 
} 
print <<"EOM"; 
 
 
 
 
 

 
 

 
 
 
 
 
 

 

 
EOM 
 
&FOOTER; 
exit; 
} 
#_/_/_/_/_/_/_/_/_/# 
#_/ 編集画面 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub ITEM3 { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR("ＩＤ、パスワードエラー $num ");} 
if($in{'select'} eq ""){&ERR2("選択されていません。");} 
$dir="./charalog/item"; 
 
open(IN,"$dir/$in{'fileno'}"); 
@ITEM_DATA = ; 
close(IN); 
$no = $in{'select'}; 
splice(@ITEM_DATA,$in{'select'},1,"$in{\"mark$no\"}<>$in{\"no$no\"}<>$in{\"name$no\"}<>$in{\"val$no\"}<>$in{\"dmg$no\"}<>$in{\"sta$no\"}<>$in{\"wei$no\"}<>\n"); 
 
open(page,">$dir/$in{'fileno'}"); 
print page @ITEM_DATA; 
close(page); 
&HOST_NAME; 
 
&ADMIN_LOG("アイテムファイル $dir/$in{'fileno'}を更新しました。「$host」"); 
&HEADER; 
print <<"EOM"; 
アイテム ファイル$dir/$in{'fileno'}を更新しました。
 

 
 
 
 
 
 
EOM 
 
&FOOTER; 
exit; 
} 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ 編集画面 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub ITEM4 { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR("ＩＤ、パスワードエラー $num ");} 
if($in{'select'} eq ""){&ERR2("選択されていません。");} 
$dir="./charalog/item"; 
 
open(IN,"$dir/$in{'fileno'}"); 
@ITEM_DATA = ; 
close(IN); 
$no = $in{'select'}; 
 
splice(@ITEM_DATA,$no,1); 
 
open(page,">$dir/$in{'fileno'}"); 
print page @ITEM_DATA; 
close(page); 
&HOST_NAME; 
 
&ADMIN_LOG("アイテムファイル $dir/$in{'fileno'}を削除しました。「$host」"); 
&HEADER; 
print <<"EOM"; 
アイテム ファイル$dir/$in{'fileno'}を削除しました。
 

 
 
 
 
 
 
EOM 
 
&FOOTER; 
exit; 
} 
 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ ファイル削除 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub DEL { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR("ＩＤ、パスワードエラー $num ");} 
&HOST_NAME; 
open(IN,"./charalog/main/$in{'filename'}") or &ERR('ファイルを削除できませんでした。'); 
@CN_DATA = ; 
close(IN); 
($kid,$kpass,$kname) = split(/<>/,$CN_DATA[0]); 
 
$dir2="./charalog/main"; 
unlink("$dir2/$in{'filename'}"); 
$dir2="./charalog/log"; 
unlink("$dir2/$in{'filename'}"); 
$dir2="./charalog/command"; 
unlink("$dir2/$in{'filename'}"); 
 
&ADMIN_LOG("$knameを削除しました。「$host」 "); 
 
open(IN,"$MAP_LOG_LIST"); 
@S_MOVE = ; 
close(IN); 
&TIME_DATA; 
 
unshift(@S_MOVE,"\[削除\] $knameは削除されました。($mday日$hour時$min分)
\n"); 
splice(@S_MOVE,20); 
 
open(OUT,">$MAP_LOG_LIST") or &ERR2('LOG 新しいデータを書き込めません。'); 
print OUT @S_MOVE; 
close(OUT); 
 
&HEADER; 
print <<"EOM"; 
$knameを削除しました。
 
 
 
 
 

 
EOM 
 
&FOOTER; 
exit; 
} 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ ファイル削除 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub DEL2 { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR("ＩＤ、パスワードエラー $num ");} 
&HOST_NAME; 
open(IN,"./charalog/main/$in{'filename'}") or &ERR('ファイルを削除できませんでした。'); 
@CN_DATA = ; 
close(IN); 
($kid,$kpass,$kname) = split(/<>/,$CN_DATA[0]); 
 
$dir2="./charalog/main"; 
unlink("$dir2/$in{'filename'}"); 
$dir2="./charalog/log"; 
unlink("$dir2/$in{'filename'}"); 
$dir2="./charalog/command"; 
unlink("$dir2/$in{'filename'}"); 
&ADMIN_LOG("$knameを削除しました。「$host」 "); 
 
 
&HEADER; 
print <<"EOM"; 
$knameを削除しました。
 
 
 
 
 

 
EOM 
 
&FOOTER; 
exit; 
} 
 
sub ADMIN_LOG { 
 
if($lockkey) { &F_LOCK; } 
open(IN,"$ADMIN_LIST"); 
@A_LOG = ; 
close(IN); 
&TIME_DATA; 
 
unshift(@A_LOG,"$_[0]($mday日$hour時$min分)
\n"); 
splice(@A_LOG,20); 
 
open(OUT,">$ADMIN_LIST") or &ERR('LOG 新しいデータを書き込めません。'); 
print OUT @A_LOG; 
close(OUT); 
if (-e $lockfile) { unlink($lockfile); } 
 
} 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ 防具編集 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub PRO { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR2("ＩＤ、パスワードエラー $num ");} 
 
open(IN,"$TOWN_LIST") or &ERR("指定されたファイルが開けません。"); 
@TOWN_DATA = ; 
close(IN); 
 
foreach(@TOWN_DATA){ 
($zcid,$zname,$zele,$zcon,$zmoney,$zmes,$zx,$zy,$zarm,$zpro,$zacc,$zuni,$zdis,$zbat)=split(/<>/); 
$town_name[$zcid] = $zname; 
} 
 
open(IN,"$PRO_LIST"); 
@PRO_DATA = ; 
close(IN); 
 
$i=0; 
foreach(@PRO_DATA) { 
($kproname,$kproval,$kprodmg,$kprowei,$kproele,$kprosta,$kproclass,$kprotownid) = split(/<>/); 
if($kprotownid eq "0"){ 
$town = "全て"; 
}elsif($town_name[$kprotownid] eq ""){ 
$town = "非売品"; 
}else{ 
$town = "$town_name[$kprotownid]"; 
} 
if($i >= 92 && $i <= 101){ 
$pro_data .= "$kproname$kproval$kprodmg$kprowei$town"; 
}elsif($kproval eq ""){ 
$pro_data .= "$kproname"; 
}else{ 
$pro_data .= "$kproname$kproval$kprodmg$kprowei$town"; 
} 
$i++; 
} 
$pro_data .= "新規防具作成"; 
 
&HEADER; 
print <<"EOM"; 
防具管理ツール
 

 
現在装備している防具も変更されるので注意してください。
 
メモリが足りない場合は\表\示できない場合があります。
 
 
編集する防具： 
 
$pro_data
 
選択
防具名
価格
防御力
重さ
販売店舗
 
 
 
 

 
 
 
 
 

 
 
EOM 
&FOOTER; 
exit; 
} 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ 編集画面 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub PRO2 { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR("ＩＤ、パスワードエラー $num ");} 
if($in{'select'} eq ""){&ERR2("選択されていません。");} 
 
open(IN,"$TOWN_LIST") or &ERR2("指定されたファイルが開けません。"); 
@TOWN_DATA = ; 
close(IN); 
 
foreach(@TOWN_DATA){ 
($zcid,$zname,$zele,$zcon,$zmoney,$zmes,$zx,$zy,$zarm,$zpro,$zacc,$zuni,$zdis,$zbat)=split(/<>/); 
if($zcid eq "1"){ 
$zcid = 0; 
$town = "全て"; 
}elsif($zname eq ""){ 
$town = "非売品"; 
}else{ 
$town = "$zname"; 
} 
$town_sel .= "$town\n"; 
} 
$town_sel .= "非売品\n"; 
 
open(IN,"$PRO_LIST"); 
@PRO_DATA = ; 
close(IN); 
 
$i=0; 
($kproname,$kproval,$kprodmg,$kprowei,$kproele,$kprosta,$kproclass,$kprotownid) = split(/<>/,$ARM_DATA[$in{'select'}]); 
if($kprosta eq ""){$kprosta = 0;} 
if($kproele eq ""){$kproele = 0;} 
$pro_data .= "$town_sel"; 
$i++; 
 
&HEADER; 
print <<"EOM"; 
 
$kproname ファイル
 
 
$pro_data 
 
 
防具名
価格
威力
重さ
属性
ステータス
販売店舗
 

 
 
 
 
 
 

 

 
 
 
 
 
 

 
EOM 
 
&FOOTER; 
exit; 
} 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ 編集画面 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub PRO3 { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR("ＩＤ、パスワードエラー $num ");} 
if($in{'select'} eq ""){&ERR2("選択されていません。");} 
 
 
open(IN,"$PRO_LIST"); 
@PRO_DATA = ; 
close(IN); 
 
($kproname,$kproval,$kprodmg,$kprowei,$kproele,$kprosta,$kproclass,$kprotownid) = split(/<>/,$PRO_DATA[$in{'select'}]); 
splice(@PRO_DATA,$in{'select'},1,"$in{'name'}<>$in{'val'}<>$in{'dmg'}<>$in{'wei'}<>$in{'ele'}<>$in{'sta'}<>$in{'class'}<>$in{'townid'}<>\n"); 
 
open(OUT,">$PRO_LIST") or &ERR('PRO 新しいデータを書き込めません。'); 
print OUT @PRO_DATA; 
close(OUT); 
 
 
&HEADER; 
print <<"EOM"; 
$in{'name'}を編集しました。
 

 

 
 
 
 
 
 

 
EOM 
 
&FOOTER; 
exit; 
} 
 
#_/_/_/_/_/_/_/_/_/_/_/_/# 
#_/ アクセサリ編集 _/# 
#_/_/_/_/_/_/_/_/_/_/_/_/# 
 
sub ACC { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR2("ＩＤ、パスワードエラー $num ");} 
 
open(IN,"$TOWN_LIST") or &ERR("指定されたファイルが開けません。"); 
@TOWN_DATA = ; 
close(IN); 
 
foreach(@TOWN_DATA){ 
($zcid,$zname,$zele,$zcon,$zmoney,$zmes,$zx,$zy,$zarm,$zpro,$zacc,$zuni,$zdis,$zbat)=split(/<>/); 
$town_name[$zcid] = $zname; 
} 
 
open(IN,"$ACC_LIST"); 
@ACC_DATA = ; 
close(IN); 
 
$i=0; 
foreach(@ACC_DATA) { 
($kaccname,$kaccval,$kaccdmg,$kaccwei,$kaccele,$kaccsta,$kaccclass,$kacctownid) = split(/<>/); 
if($kacctownid eq "0"){ 
$town = "全て"; 
}elsif($town_name[$kacctownid] eq ""){ 
$town = "非売品"; 
}else{ 
$town = "$town_name[$kacctownid]"; 
} 
if($kaccval eq ""){ 
$acc_data .= "$kaccname"; 
}else{ 
$acc_data .= "$kaccname$kaccval$kaccdmg$kaccwei$town"; 
} 
$i++; 
} 
$acc_data .= "新規アクセサリ作成"; 
 
&HEADER; 
print <<"EOM"; 
アクセサリ管理ツール
 

 
現在装備している武器も変更されるので注意してください。
 
メモリが足りない場合は\表\示できない場合があります。
 
 
編集するアクセサリ： 
 
$acc_data
 
選択
武器名
価格
防御力
重さ
販売店舗
 
 
 
 

 
 
 
 
 

 
 
EOM 
&FOOTER; 
exit; 
} 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ 編集画面 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub ACC2 { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR("ＩＤ、パスワードエラー $num ");} 
if($in{'select'} eq ""){&ERR2("選択されていません。");} 
 
open(IN,"$TOWN_LIST") or &ERR2("指定されたファイルが開けません。"); 
@TOWN_DATA = ; 
close(IN); 
 
foreach(@TOWN_DATA){ 
($zcid,$zname,$zele,$zcon,$zmoney,$zmes,$zx,$zy,$zarm,$zpro,$zacc,$zuni,$zdis,$zbat)=split(/<>/); 
if($zcid eq "1"){ 
$zcid = 0; 
$town = "全て"; 
}elsif($zname eq ""){ 
$town = "非売品"; 
}else{ 
$town = "$zname"; 
} 
$town_sel .= "$town\n"; 
} 
$town_sel .= "非売品\n"; 
 
open(IN,"$ACC_LIST"); 
@ACC_DATA = ; 
close(IN); 
 
$i=0; 
($kaccname,$kaccval,$kaccdmg,$kaccwei,$kaccele,$kaccsta,$kaccclass,$kacctownid) = split(/<>/,$ACC_DATA[$in{'select'}]); 
if($kaccsta eq ""){$kaccsta = 0;} 
if($kaccele eq ""){$kaccele = 0;} 
$acc_data .= "$town_sel"; 
$i++; 
 
&HEADER; 
print <<"EOM"; 
 
$kaccname ファイル
 
 
$acc_data 
 
 
アクセサリ名
価格
防御力
重さ
属性
ステータス
販売店舗
 

 
 
 
 
 
 

 

 
 
 
 
 
 

 
EOM 
 
&FOOTER; 
exit; 
} 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ 編集画面 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub ACC3 { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR("ＩＤ、パスワードエラー $num ");} 
if($in{'select'} eq ""){&ERR2("選択されていません。");} 
 
 
open(IN,"$ACC_LIST"); 
@ACC_DATA = ; 
close(IN); 
 
($kaccname,$kaccval,$kaccdmg,$kaccwei,$kaccele,$kaccsta,$kaccclass,$kacctownid) = split(/<>/,$ARM_DATA[$in{'select'}]); 
splice(@ACC_DATA,$in{'select'},1,"$in{'name'}<>$in{'val'}<>$in{'dmg'}<>$in{'wei'}<>$in{'ele'}<>$in{'sta'}<>$in{'class'}<>$in{'townid'}<>\n"); 
 
open(OUT,">$ACC_LIST") or &ERR('ARM 新しいデータを書き込めません。'); 
print OUT @ACC_DATA; 
close(OUT); 
 
 
&HEADER; 
print <<"EOM"; 
$in{'name'}を編集しました。
 

 

 
 
 
 
 
 

 
EOM 
 
&FOOTER; 
exit; 
} 
 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ 国編集 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub CONT { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR2("ＩＤ、パスワードエラー $num ");} 
 
open(IN,"$COUNTRY_LIST"); 
@CON_DATA = ; 
close(IN); 
 
$i=0; 
foreach(@CON_DATA) { 
($xxcid,$xxname,$xxele,$xxnum,$xxins,$xxind,$xxall,$xxgold,$xxhp,$xxmaxhp,$xxstr,$xxvit,$xxagi)=split(/<>/); 
$con_data .= "$xxcid$xxname$xxgold$xxmaxhp$xxhp"; 
$con .= "$xxname"; 
$i++; 
} 
$con_data .= "新規国作成"; 
 
&HEADER; 
print <<"EOM"; 
国管理ツール
 

 
国を追加する場合はini_file/index.iniに追加が必要です。
 
ゲーム開始後に国を追加する場合はデータがおかしくなる場合があります。
 
 
編集する国： 
 
$con_data
 
選択
国ID
国名
国の資金
要塞最大HP
要塞HP
 
 
 
 

 
 
 
$con 
 
 
 
 

 
 
 
 
 
 
 

 
 
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 = ; 
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 .= "IDNAME属性人口街ID未定新入国者メッセージ資金HPMAXHP攻撃力防御力攻撃回数"; 
$e=0; 
foreach(@ELE){ 
$print_e .= "$e:$ELE[$e]
"; 
$e++; 
} 
 
&HEADER; 
print <<"EOM"; 
 
$xxname ファイル
 
 
 
$con_data 
 
 
属性：
$print_e
 
 
 
 
 
 

 

 
 
 
 
 
 

 
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 = ; 
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"; 
$in{'xname'}を編集しました。
 

 

 
 
 
 
 
 

 
EOM 
 
&FOOTER; 
exit; 
} 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ 街編集 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub TOW { 
 
if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){ 
&ERR2("ＩＤ、パスワードエラー $num ");} 
 
open(IN,"$TOWN_LIST"); 
@TOW_DATA = ; 
close(IN); 
 
open(IN,"$COUNTRY_LIST"); 
@CON_DATA = ; 
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 .= "$zname$con_name[$zcon]$zmoney"; 
$op_data .= "$zname"; 
 
$i++; 
} 
$tow_data .= "新規街作成"; 
 
&HEADER; 
print <<"EOM"; 
街管理ツール
 

 
ゲーム開始後に街を追加する場合はデータがおかしくなる場合があります。
 
 
編集する街： 
 
$tow_data
 
選択
街名
支配国
資金
 
 
 
 

 
 
 
 
削除する街： 
 
$op_data 
 
 
 
 

 
 
 
 
 
 
 

 
 
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 = ; 
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
"; 
} 
 
open(IN,"$TOWN_LIST"); 
@TOW_DATA = ; 
close(IN); 
 
$e=0; 
foreach(@ELE){ 
$print_e .= "$e:$ELE[$e]
"; 
$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 .= "IDNAME属性支配国金メッセージＸ座標Ｙ座標武器開発値防具開発値アクセサリ開発値産業値交通網訓練施設"; 
 
 
&HEADER; 
print <<"EOM"; 
 
$zname ファイル
 
支配国
 
$con_name 
 
$tow_data 
 
 
 
属性：
$print_e 

 
 
 
 
 
 

 

 
 
 
 
 
 

 
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 = ; 
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"; 
$in{'zname'}を編集しました。
 

 

 
 
 
 
 
 

 
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 = ; 
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("$znameを削除しました。「$host」 "); 
 
&HEADER; 
print <<"EOM"; 
$znameを削除しました。
 

 

 
 
 
 
 
 

 
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 = ; 
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("$xxnameを削除しました。「$host」 "); 
 
&HEADER; 
print <<"EOM"; 
$xxnameを削除しました。
 

 

 
 
 
 
 
 

 
EOM 
 
&FOOTER; 
exit; 
} 
 
#_/_/_/_/_/_/_/_/_/# 
#_/ 編集画面 _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub INIT_DATA { 
 
 
require "reset.pl"; 
&RESET_MODE; 
 
&ADMIN_LOG("全データを初期化しました。"); 
 
&HEADER; 
print <<"EOM"; 
全データを初期化しました。
 

 

 
 
 
 
 
 

 
EOM 
 
&FOOTER; 
exit; 
}