「cadmin.cgi」の編集履歴(バックアップ)一覧はこちら
「cadmin.cgi」(2010/10/02 (土) 00:43:08) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
<p># Sub City Admin #<br />
sub cadmin_dis {<br />
&form_table('up','100%',1);<br />
&reload;<br />
print <<ADUP;<br />
町管理</td></tr><tr><td align=left><br />
資金を引き出す:<br><div align=right><input type=text name=cmoney
class=text size=10>G<br><br />
町資金:$cmoney G<br><br />
<input type=hidden name=id value="$F{'id'}"><br />
<input type=hidden name=ps value="$F{'ps'}"><br />
<input type=hidden name=mode value="cadmin_money"><br />
<input type=submit value="$sub_lbl"
class=button></div><br><br />
</form><br />
<form method=$method action=$seacgi><br />
<input type=hidden name=reload value="$action"><br />
町を修復:<br><div align=right><input type=text name=repair
class=text size=10>pt<br><br />
($r_fee Gで1pt回復)<br>現在HP:$chp(MAX:$poten)<br><br />
<input type=hidden name=id value="$F{'id'}"><br />
<input type=hidden name=ps value="$F{'ps'}"><br />
<input type=hidden name=mode value="cadmin_repair"><br />
<input type=submit value="$sub_lbl"
class=button></div></form><br><br />
<form method=$method action=$seacgi><br />
積荷搬入:<br><br />
ADUP<br />
&reload;<br />
my @city_goods = split(/△/,$load);<br />
foreach (0 .. $#city_goods) {<br />
($goods) = split(/,/,$city_goods[$_]);<br />
$checked = $_ == 0 ? ' checked' : '';<br />
print qq|<input type=radio name=cgoods value="$_"$checked>|;<br />
print qq|$goods<br>\n|;<br />
}<br />
&id_ps;<br />
print <<ADMD;<br />
<div align=right>搬入量:<input type=text name=quan class=text
size=10><br><br />
価格設定:<input type=text name=gprice class=text size=10><br><br />
<input type=hidden name=mode value="cadmin_intrade"><br />
<input type=submit value="$sub_lbl"
class=button></div></form><br><br />
<form method=$method action=$seacgi><br />
船搬入:<br><br />
ADMD<br />
&reload;<br />
foreach (0 .. $#ship_ind) {<br />
$checked = $_ == 0 ? ' checked' : '';<br />
print qq|<input type=radio name=cship value="$_"$checked>|;<br />
print qq|$ship[$_][4]<br>\n|;<br />
print qq|[積載:$ship[$_][1] 耐久:$ship[$_][2]
速度:$ship[$_][3]]<br>|;<br />
}<br />
&id_ps;<br />
print <<ADDN;<br />
<div align=right>価格設定:<input type=text name=sprice class=text
size=10><br><br />
<input type=hidden name=mode value="cadmin_inyard"><br />
<input type=submit value="$sub_lbl"
class=button></div></form><br><br />
<form method=$method action=$seacgi><br />
財宝搬入:<br><br />
ADDN<br />
&reload;<br />
my @item_ind = split(/,/,$item_line);<br />
foreach (0 .. $#item_ind) {<br />
$checked = $_ == 0 ? ' checked' : '';<br />
print qq|<input type=radio name=citem value="$_"$checked>|;<br />
print qq|$item_ind[$_]<br>\n|;<br />
}<br />
&id_ps;<br />
print <<ADBM;<br />
<div align=right>価格設定:<input type=text name=iprice class=text
size=10><br><br />
<input type=hidden name=mode value="cadmin_initem"><br />
<input type=submit value="$sub_lbl"
class=button></div></form><br><br />
<form method=$method action=$seacgi><br />
町売却:<br><br />
ADBM<br />
&reload;<br />
print qq|<input type=checkbox name=csell value="1">|;<br />
print qq|町を売却する<br>\n|;<br />
&id_ps;<br />
print <<ADSL;<br />
<div align=right>価格設定:<input type=text name=cprice class=text
size=10><br><br />
(買取人指定&lt;IDで指定&gt;:<input type=text name=buyer class=text
size=10>)<br><br />
<input type=hidden name=mode value="cadmin_csell"><br />
<input type=submit value="$sub_lbl" class=button></div><br />
ADSL<br />
&form_table('down');<br />
}<br /><br />
# Sub Cadmin Money #<br />
sub cadmin_money {<br />
&get_me($F{'id'});<br />
if ($action ne $F{'reload'}) { &play; exit }<br />
require 'csys.cgi';<br />
&get_city;<br />
if ( $id != $owner ) { &error("不正です") }<br />
if ($F{'cmoney'} =~ /[^0-9]/) { &play("数の入力が不正です");exit }<br />
my $outmoney = int($F{'cmoney'});<br />
$outmoney = 0 if $outmoney < 0;<br />
# if ( ($money + $outmoney) < 0 ) { &play("資金が足りません"); exit }<br /><font color="#339966">↑製作者の消し忘れだろうか?</font><br />
$outmoney = $cmoney if $outmoney > $cmoney;<br />
$money += $outmoney;<br />
$cmoney -= $outmoney;<br />
$F{'cmode'} = 4;<br />
&msg("$cnameから$outmoney G引き出しました");<br />
&add_record("$cnameから $outmoney G 出金");<br />
&set_city;<br />
&play;<br />
}<br /><br />
# Sub Cadmin Repair #<br />
sub cadmin_repair {<br />
&get_me($F{'id'});<br />
if ($action ne $F{'reload'}) { &play; exit }<br />
require 'csys.cgi';<br />
&get_city;<br />
if ($id != $owner) { &error("不正です") }<br />
if ($F{'repair'} =~ /[^0-9]/) { &play("数の入力が不正です");exit }<br />
my $hpup = int($F{'repair'});<br />
$hpup = (-1) * $hpup if $hpup < 0;<br />
if ( $hpup * $r_fee > $money ) { &play("資金が足りません"); exit }<br />
if ( $hpup + $chp > $poten ) {<br />
$money -= ($poten - $chp) * $r_fee;<br />
$chp = $poten;<br />
} else {<br />
$money -= $hpup * $r_fee;<br />
$chp += $hpup;<br />
}<br />
&msg("町を修復しました");<br />
&set_city;<br />
$F{'cmode'} = 4;<br />
&play;<br />
}<br /><br />
# Sub Cadmin In Trade #<br />
sub cadmin_intrade {<br />
&get_me($F{'id'});<br />
if ($action ne $F{'reload'}) { &play; exit }<br />
require 'csys.cgi';<br />
&get_city;<br />
if ($id != $owner) { &error("不正です") }<br />
if ($F{'quan'} =~ /[^0-9]/) { &play("数の入力が不正です");exit }<br />
if ($F{'gprice'} =~ /[^0-9]/) { &play("数の入力が不正です");exit }<br />
$F{'gprice'} = int($F{'gprice'});<br />
if ($F{'gprice'} < 0 ) { &play("マイナスの価格は付けられません"); exit }<br />
my @cload_ind = split(/△/,$cload);<br />
if (@cload_ind > $cl_limit) { &play("これ以上積荷を搬入できません"); exit }<br />
my @city_goods = split(/△/,$load);<br />
($goods,$load_quan) = split(/,/,$city_goods[$F{'cgoods'}]);<br />
if (!$goods) { &play; exit }<br />
$added = $load_quan - $F{'quan'};<br />
if ($added > 0) {<br />
splice(@city_goods , $F{'cgoods'} , 1 , "$goods,$added");<br />
}<br />
elsif ($added <= 0) {<br />
splice(@city_goods , $F{'cgoods'} , 1 );<br />
$F{'quan'} = $load_quan;<br />
}<br />
$load = join('△',@city_goods);<br />
$cload = join('△',@cload_ind,"$goods,$F{'quan'},$F{'gprice'}");<br />
&msg("$goodsを$F{'quan'}個 搬入しました");<br />
&add_record("$cnameに $goodsを @$F{'gprice'}で $F{'quan'}個 搬入");<br />
&set_city;<br />
$F{'cmode'} = 4;<br />
&play;<br />
}<br /><br />
# Sub Cadmin In Yard #<br />
sub cadmin_inyard {<br />
&get_me($F{'id'});<br />
if ($action ne $F{'reload'}) { &play; exit }<br />
require 'csys.cgi';<br />
&get_city;<br />
if ($id != $owner) { &error("不正です") }<br />
if ($F{'sprice'} =~ /[^0-9]/) { &play("数の入力が不正です");exit }<br />
$F{'sprice'} = int($F{'sprice'});<br />
if ($F{'sprice'} < 0) { &play("マイナスの価格は付けられません"); exit }<br />
my @cship_ind = split(/△/,$cship);<br />
if (@cship_ind > $cs_limit) { &play("これ以上船を搬入できません"); exit }<br />
&ship_data;<br />
&fleet;<br />
&load_data;<br />
if (!$ship[$F{'cship'}][4]) { &play; exit }<br />
if ( ($total - $total_load - $food - $sailor - $ship[$F{'cship'}][1]) <
0 ) {<br />
&play("残積荷が足りません");<br />
return;<br />
}<br />
$cship = join('△',@cship_ind,"$ship_ind[$F{'cship'}],$F{'sprice'}");<br />
&msg("$ship[$F{'cship'}][4]を搬入しました");<br />
&add_record("$cnameに $ship[$F{'cship'}][4]を 搬入");<br />
splice(@ship_ind , $F{'cship'} ,1);<br />
&set_city;<br />
$F{'cmode'} = 4;<br />
&play;<br />
}<br /><br />
# Sub Cadmin In Item #<br />
sub cadmin_initem {<br />
&get_me($F{'id'});<br />
if ($action ne $F{'reload'}) { &play; exit }<br />
require 'csys.cgi';<br />
&get_city;<br />
if ($id != $owner) { &error("不正です") }<br />
if ($F{'iprice'} =~ /[^0-9]/) { &play("数の入力が不正です");exit }<br />
$F{'iprice'} = int($F{'iprice'});<br />
if ($F{'iprice'} < 0) { &play("マイナスの価格は付けられません"); exit }<br />
my @item_ind = split(/,/,$item_line);<br />
my @citem_ind = split(/△/,$citem);<br />
if (!$item_ind[$F{'citem'}]) { &play; exit }<br />
$citem = join('△',@citem_ind,"$item_ind[$F{'citem'}],$F{'iprice'}");<br />
&msg("$item_ind[$F{'citem'}]を搬入しました");<br />
&add_record("$cnameに $item_ind[$F{'citem'}]を 搬入");<br />
splice(@item_ind , $F{'citem'} , 1);<br />
$item_line = join(',',@item_ind);<br />
&set_city;<br />
$F{'cmode'} = 4;<br />
&play;<br />
}<br /><br />
# Sub Cadmin Bank #<br />
sub cadmin_bank {<br />
&form_table('up','100%',1);<br />
&reload;<br />
print qq|銀行・手数料設定 |;<br />
&submit_button;<br />
print <<CBNK;<br />
</td></tr><tr><td><br />
引出額 × <input type=text name=rate value="$crate" class=text
size=5>%<br><br />
<input type=hidden name=mode value="cadmin_setbk"><br />
CBNK<br />
&id_ps;<br />
&form_table('down');<br />
}<br /><br />
# Sub Cadmin Set Bank #<br />
sub cadmin_setbk {<br />
&get_me($F{'id'});<br />
if ($action ne $F{'reload'}) { &play; exit }<br />
require 'csys.cgi';<br />
&get_city;<br />
if ($id != $owner) { &error("不正です") }<br />
if ($F{"rate"} =~ /[^0-9]/) { &play("値が不正です"); exit }<br />
if ($F{'rate'} >= 99) { &play("無茶です"); exit }<br />
$crate = int($F{'rate'});<br />
$action = '';<br />
&set_city;<br />
&play;<br />
}<br /><br />
# Sub Cadmin Intro #<br />
sub cadmin_intro {<br />
&form_table('up','100%',1);<br />
&reload;<br />
print qq|宣伝文編集 |;<br />
&submit_button;<br />
print <<CIN;<br />
</td></tr><tr><td><br />
<textarea name=cin cols=30 rows=4
class=text>$cintro</textarea><br><br />
<input type=hidden name=mode value="cadmin_setin"><br />
CIN<br />
&id_ps;<br />
&form_table('down');<br />
}<br /><br />
# Sub Cadmin Set Intro #<br />
sub cadmin_setin {<br />
&get_me($F{'id'});<br />
if ($action ne $F{'reload'}) { &play; exit }<br />
require 'csys.cgi';<br />
&get_city;<br />
if ($id != $owner) { &error("不正です") }<br />
if (length($F{'cin'}) > $def_ib) { &play("宣伝文の長さは半角$def_ib文字まで");
exit }<br />
$cintro = $F{'cin'};<br />
$action = '';<br />
&set_city;<br />
&play;<br />
}<br /><br />
# Sub Cadmin City Sell #<br />
sub cadmin_csell {<br />
&get_me($F{'id'});<br />
if ($action ne $F{'reload'}) { &play; exit }<br />
if (!$F{'csell'}) { &play; exit }<br />
require 'csys.cgi';<br />
&get_city;<br />
if ($id != $owner) { &error("不正です") }<br />
if ($F{'cprice'} =~ /[^0-9]/) { &play("価格が不正です"); exit }<br />
if ($F{'buyer'} && $F{'buyer'} =~ /[^0-9]/) {
&play("指定IDが不正です"); exit }<br />
$csell = $F{'cprice'} + 1000000;<br />
$buyer = $F{'buyer'};<br />
$action = '';<br />
&set_city;<br />
&play;<br />
}<br /><br />
# Sub Cadmin Name #<br />
sub cadmin_name {<br />
&form_table('up','100%',1);<br />
&reload;<br />
print qq|名前変更 |;<br />
&submit_button;<br />
print <<CNM;<br />
</td></tr><tr><td><br />
<input type=text name=cnm class=text size=$stx_wth><br><br />
<input type=hidden name=mode value="cadmin_setnm"><br />
CNM<br />
&id_ps;<br />
&form_table('down');<br />
}<br /><br />
# Sub Cadmin Set Name #<br />
sub cadmin_setnm {<br />
&get_me($F{'id'});<br />
if ($action ne $F{'reload'}) { &play; exit }<br />
require 'csys.cgi';<br />
&get_city;<br />
if ($id != $owner) { &error("不正です") }<br />
if (!$F{'cnm'}) { &play("名前を付けてください"); exit }<br />
if (length($F{'cnm'}) > $def_nb) { &play("名前は半角$def_nb文字まで"); exit
}<br />
$cname = $F{'cnm'};<br />
$action = '';<br />
&set_city;<br />
&play;<br />
}<br /><br />
1;</p>
<p><font color="#339966">特に説明することもないところ</font><br /><br />
# Sub City Admin #<br />
sub cadmin_dis {<br />
&form_table('up','100%',1);<br />
&reload;<br />
print <<ADUP;<br />
町管理</td></tr><tr><td align=left><br />
資金を引き出す:<br><div align=right><input type=text name=cmoney
class=text size=10>G<br><br />
町資金:$cmoney G<br><br />
<input type=hidden name=id value="$F{'id'}"><br />
<input type=hidden name=ps value="$F{'ps'}"><br />
<input type=hidden name=mode value="cadmin_money"><br />
<input type=submit value="$sub_lbl"
class=button></div><br><br />
</form><br />
<form method=$method action=$seacgi><br />
<input type=hidden name=reload value="$action"><br />
町を修復:<br><div align=right><input type=text name=repair
class=text size=10>pt<br><br />
($r_fee Gで1pt回復)<br>現在HP:$chp(MAX:$poten)<br><br />
<input type=hidden name=id value="$F{'id'}"><br />
<input type=hidden name=ps value="$F{'ps'}"><br />
<input type=hidden name=mode value="cadmin_repair"><br />
<input type=submit value="$sub_lbl"
class=button></div></form><br><br />
<form method=$method action=$seacgi><br />
積荷搬入:<br><br />
ADUP<br />
&reload;<br />
my @city_goods = split(/△/,$load);<br />
foreach (0 .. $#city_goods) {<br />
($goods) = split(/,/,$city_goods[$_]);<br />
$checked = $_ == 0 ? ' checked' : '';<br />
print qq|<input type=radio name=cgoods value="$_"$checked>|;<br />
print qq|$goods<br>\n|;<br />
}<br />
&id_ps;<br />
print <<ADMD;<br />
<div align=right>搬入量:<input type=text name=quan class=text
size=10><br><br />
価格設定:<input type=text name=gprice class=text size=10><br><br />
<input type=hidden name=mode value="cadmin_intrade"><br />
<input type=submit value="$sub_lbl"
class=button></div></form><br><br />
<form method=$method action=$seacgi><br />
船搬入:<br><br />
ADMD<br />
&reload;<br />
foreach (0 .. $#ship_ind) {<br />
$checked = $_ == 0 ? ' checked' : '';<br />
print qq|<input type=radio name=cship value="$_"$checked>|;<br />
print qq|$ship[$_][4]<br>\n|;<br />
print qq|[積載:$ship[$_][1] 耐久:$ship[$_][2]
速度:$ship[$_][3]]<br>|;<br />
}<br />
&id_ps;<br />
print <<ADDN;<br />
<div align=right>価格設定:<input type=text name=sprice class=text
size=10><br><br />
<input type=hidden name=mode value="cadmin_inyard"><br />
<input type=submit value="$sub_lbl"
class=button></div></form><br><br />
<form method=$method action=$seacgi><br />
財宝搬入:<br><br />
ADDN<br />
&reload;<br />
my @item_ind = split(/,/,$item_line);<br />
foreach (0 .. $#item_ind) {<br />
$checked = $_ == 0 ? ' checked' : '';<br />
print qq|<input type=radio name=citem value="$_"$checked>|;<br />
print qq|$item_ind[$_]<br>\n|;<br />
}<br />
&id_ps;<br />
print <<ADBM;<br />
<div align=right>価格設定:<input type=text name=iprice class=text
size=10><br><br />
<input type=hidden name=mode value="cadmin_initem"><br />
<input type=submit value="$sub_lbl"
class=button></div></form><br><br />
<form method=$method action=$seacgi><br />
町売却:<br><br />
ADBM<br />
&reload;<br />
print qq|<input type=checkbox name=csell value="1">|;<br />
print qq|町を売却する<br>\n|;<br />
&id_ps;<br />
print <<ADSL;<br />
<div align=right>価格設定:<input type=text name=cprice class=text
size=10><br><br />
(買取人指定&lt;IDで指定&gt;:<input type=text name=buyer class=text
size=10>)<br><br />
<input type=hidden name=mode value="cadmin_csell"><br />
<input type=submit value="$sub_lbl" class=button></div><br />
ADSL<br />
&form_table('down');<br />
}<br /><br />
# Sub Cadmin Money #<br />
sub cadmin_money {<br />
&get_me($F{'id'});<br />
if ($action ne $F{'reload'}) { &play; exit }<br />
require 'csys.cgi';<br />
&get_city;<br />
if ( $id != $owner ) { &error("不正です") }<br />
if ($F{'cmoney'} =~ /[^0-9]/) { &play("数の入力が不正です");exit }<br />
my $outmoney = int($F{'cmoney'});<br />
$outmoney = 0 if $outmoney < 0;<br />
# if ( ($money + $outmoney) < 0 ) { &play("資金が足りません"); exit }<br /><font color="#339966">↑製作者の消し忘れだろうか?</font><br />
$outmoney = $cmoney if $outmoney > $cmoney;<br />
$money += $outmoney;<br />
$cmoney -= $outmoney;<br />
$F{'cmode'} = 4;<br />
&msg("$cnameから$outmoney G引き出しました");<br />
&add_record("$cnameから $outmoney G 出金");<br />
&set_city;<br />
&play;<br />
}<br /><br />
# Sub Cadmin Repair #<br />
sub cadmin_repair {<br />
&get_me($F{'id'});<br />
if ($action ne $F{'reload'}) { &play; exit }<br />
require 'csys.cgi';<br />
&get_city;<br />
if ($id != $owner) { &error("不正です") }<br />
if ($F{'repair'} =~ /[^0-9]/) { &play("数の入力が不正です");exit }<br />
my $hpup = int($F{'repair'});<br />
$hpup = (-1) * $hpup if $hpup < 0;<br />
if ( $hpup * $r_fee > $money ) { &play("資金が足りません"); exit }<br />
if ( $hpup + $chp > $poten ) {<br />
$money -= ($poten - $chp) * $r_fee;<br />
$chp = $poten;<br />
} else {<br />
$money -= $hpup * $r_fee;<br />
$chp += $hpup;<br />
}<br />
&msg("町を修復しました");<br />
&set_city;<br />
$F{'cmode'} = 4;<br />
&play;<br />
}<br /><br />
# Sub Cadmin In Trade #<br />
sub cadmin_intrade {<br />
&get_me($F{'id'});<br />
if ($action ne $F{'reload'}) { &play; exit }<br />
require 'csys.cgi';<br />
&get_city;<br />
if ($id != $owner) { &error("不正です") }<br />
if ($F{'quan'} =~ /[^0-9]/) { &play("数の入力が不正です");exit }<br />
if ($F{'gprice'} =~ /[^0-9]/) { &play("数の入力が不正です");exit }<br />
$F{'gprice'} = int($F{'gprice'});<br />
if ($F{'gprice'} < 0 ) { &play("マイナスの価格は付けられません"); exit }<br />
my @cload_ind = split(/△/,$cload);<br />
if (@cload_ind > $cl_limit) { &play("これ以上積荷を搬入できません"); exit }<br />
my @city_goods = split(/△/,$load);<br />
($goods,$load_quan) = split(/,/,$city_goods[$F{'cgoods'}]);<br />
if (!$goods) { &play; exit }<br />
$added = $load_quan - $F{'quan'};<br />
if ($added > 0) {<br />
splice(@city_goods , $F{'cgoods'} , 1 , "$goods,$added");<br />
}<br />
elsif ($added <= 0) {<br />
splice(@city_goods , $F{'cgoods'} , 1 );<br />
$F{'quan'} = $load_quan;<br />
}<br />
$load = join('△',@city_goods);<br />
$cload = join('△',@cload_ind,"$goods,$F{'quan'},$F{'gprice'}");<br />
&msg("$goodsを$F{'quan'}個 搬入しました");<br />
&add_record("$cnameに $goodsを @$F{'gprice'}で $F{'quan'}個 搬入");<br />
&set_city;<br />
$F{'cmode'} = 4;<br />
&play;<br />
}<br /><br />
# Sub Cadmin In Yard #<br />
sub cadmin_inyard {<br />
&get_me($F{'id'});<br />
if ($action ne $F{'reload'}) { &play; exit }<br />
require 'csys.cgi';<br />
&get_city;<br />
if ($id != $owner) { &error("不正です") }<br />
if ($F{'sprice'} =~ /[^0-9]/) { &play("数の入力が不正です");exit }<br />
$F{'sprice'} = int($F{'sprice'});<br />
if ($F{'sprice'} < 0) { &play("マイナスの価格は付けられません"); exit }<br />
my @cship_ind = split(/△/,$cship);<br />
if (@cship_ind > $cs_limit) { &play("これ以上船を搬入できません"); exit }<br />
&ship_data;<br />
&fleet;<br />
&load_data;<br />
if (!$ship[$F{'cship'}][4]) { &play; exit }<br />
if ( ($total - $total_load - $food - $sailor - $ship[$F{'cship'}][1]) <
0 ) {<br />
&play("残積荷が足りません");<br />
return;<br />
}<br />
$cship = join('△',@cship_ind,"$ship_ind[$F{'cship'}],$F{'sprice'}");<br />
&msg("$ship[$F{'cship'}][4]を搬入しました");<br />
&add_record("$cnameに $ship[$F{'cship'}][4]を 搬入");<br />
splice(@ship_ind , $F{'cship'} ,1);<br />
&set_city;<br />
$F{'cmode'} = 4;<br />
&play;<br />
}<br /><br />
# Sub Cadmin In Item #<br />
sub cadmin_initem {<br />
&get_me($F{'id'});<br />
if ($action ne $F{'reload'}) { &play; exit }<br />
require 'csys.cgi';<br />
&get_city;<br />
if ($id != $owner) { &error("不正です") }<br />
if ($F{'iprice'} =~ /[^0-9]/) { &play("数の入力が不正です");exit }<br />
$F{'iprice'} = int($F{'iprice'});<br />
if ($F{'iprice'} < 0) { &play("マイナスの価格は付けられません"); exit }<br />
my @item_ind = split(/,/,$item_line);<br />
my @citem_ind = split(/△/,$citem);<br />
if (!$item_ind[$F{'citem'}]) { &play; exit }<br />
$citem = join('△',@citem_ind,"$item_ind[$F{'citem'}],$F{'iprice'}");<br />
&msg("$item_ind[$F{'citem'}]を搬入しました");<br />
&add_record("$cnameに $item_ind[$F{'citem'}]を 搬入");<br />
splice(@item_ind , $F{'citem'} , 1);<br />
$item_line = join(',',@item_ind);<br />
&set_city;<br />
$F{'cmode'} = 4;<br />
&play;<br />
}<br /><br />
# Sub Cadmin Bank #<br />
sub cadmin_bank {<br />
&form_table('up','100%',1);<br />
&reload;<br />
print qq|銀行・手数料設定 |;<br />
&submit_button;<br />
print <<CBNK;<br />
</td></tr><tr><td><br />
引出額 × <input type=text name=rate value="$crate" class=text
size=5>%<br><br />
<input type=hidden name=mode value="cadmin_setbk"><br />
CBNK<br />
&id_ps;<br />
&form_table('down');<br />
}<br /><br />
# Sub Cadmin Set Bank #<br />
sub cadmin_setbk {<br />
&get_me($F{'id'});<br />
if ($action ne $F{'reload'}) { &play; exit }<br />
require 'csys.cgi';<br />
&get_city;<br />
if ($id != $owner) { &error("不正です") }<br />
if ($F{"rate"} =~ /[^0-9]/) { &play("値が不正です"); exit }<br />
if ($F{'rate'} >= 99) { &play("無茶です"); exit }<br />
$crate = int($F{'rate'});<br />
$action = '';<br />
&set_city;<br />
&play;<br />
}<br /><br />
# Sub Cadmin Intro #<br />
sub cadmin_intro {<br />
&form_table('up','100%',1);<br />
&reload;<br />
print qq|宣伝文編集 |;<br />
&submit_button;<br />
print <<CIN;<br />
</td></tr><tr><td><br />
<textarea name=cin cols=30 rows=4
class=text>$cintro</textarea><br><br />
<input type=hidden name=mode value="cadmin_setin"><br />
CIN<br />
&id_ps;<br />
&form_table('down');<br />
}<br /><br />
# Sub Cadmin Set Intro #<br />
sub cadmin_setin {<br />
&get_me($F{'id'});<br />
if ($action ne $F{'reload'}) { &play; exit }<br />
require 'csys.cgi';<br />
&get_city;<br />
if ($id != $owner) { &error("不正です") }<br />
if (length($F{'cin'}) > $def_ib) { &play("宣伝文の長さは半角$def_ib文字まで");
exit }<br />
$cintro = $F{'cin'};<br />
$action = '';<br />
&set_city;<br />
&play;<br />
}<br /><br />
# Sub Cadmin City Sell #<br />
sub cadmin_csell {<br />
&get_me($F{'id'});<br />
if ($action ne $F{'reload'}) { &play; exit }<br />
if (!$F{'csell'}) { &play; exit }<br />
require 'csys.cgi';<br />
&get_city;<br />
if ($id != $owner) { &error("不正です") }<br />
if ($F{'cprice'} =~ /[^0-9]/) { &play("価格が不正です"); exit }<br />
if ($F{'buyer'} && $F{'buyer'} =~ /[^0-9]/) {
&play("指定IDが不正です"); exit }<br />
$csell = $F{'cprice'} + 1000000;<br />
$buyer = $F{'buyer'};<br />
$action = '';<br />
&set_city;<br />
&play;<br />
}<br /><br />
# Sub Cadmin Name #<br />
sub cadmin_name {<br />
&form_table('up','100%',1);<br />
&reload;<br />
print qq|名前変更 |;<br />
&submit_button;<br />
print <<CNM;<br />
</td></tr><tr><td><br />
<input type=text name=cnm class=text size=$stx_wth><br><br />
<input type=hidden name=mode value="cadmin_setnm"><br />
CNM<br />
&id_ps;<br />
&form_table('down');<br />
}<br /><br />
# Sub Cadmin Set Name #<br />
sub cadmin_setnm {<br />
&get_me($F{'id'});<br />
if ($action ne $F{'reload'}) { &play; exit }<br />
require 'csys.cgi';<br />
&get_city;<br />
if ($id != $owner) { &error("不正です") }<br />
if (!$F{'cnm'}) { &play("名前を付けてください"); exit }<br />
if (length($F{'cnm'}) > $def_nb) { &play("名前は半角$def_nb文字まで"); exit
}<br />
$cname = $F{'cnm'};<br />
$action = '';<br />
&set_city;<br />
&play;<br />
}<br /><br />
1;</p>