- 追加された行はこの色です。
- 削除された行はこの色です。
- 罪罰/内政の追加 へ行く。
[[罪罰改造]]
*罪罰/内政の追加 ./inc/ore_sub-politics.cgi [#dc3db824]
**メニュー追加 [#xe2cd3bb]
# my @hm = ('やめる','農業','商業','徴兵','兵を訓練する');
my @hm = ('やめる','農業','商業','徴兵','兵を訓練する','一括内政');
**結果の追加 [#vfe20b6c]
- 最初のコマンドの数字をメニューの順番にあわせる。↑の順番だと最初を０として５番目なので$cmd==5
- 下の例は、農業と商業をそれぞれ１回分の効果
$mes = "$v の兵糧を得た";
$tm=50;
#------------------------------------------------------------------------
}elsif($cmd==5){ # この数字をメニューの順番にあわせる。↑の順番だと最初を０として５番目なので$cmd==5
# 行動カウントのリセット(無条件)
$act_cnt=0;
$log .= "一括内政を行います。結果は$GMW時間後。<br>\n";
# 農業
$v=int(((rand(10)+1)*100)*$lr);
$v=9999 if($v>9999);
# 商業
$v1=int(((rand(10)+1)*15)*$lr);
$v1=999 if($v1>999);
$tm=25;
$rank_exe+=2; # 貢献は+2
$pr=$GMT*2; # 待ち時間を２倍に
if($camp==1){
$cf1 += $v;
$cg1 += $v1;
}elsif($camp==2){
$cf2 += $v;
$cg2 += $v1;
}elsif($camp==3){
$cf3 += $v;
$cg3 += $v1;
}elsif($camp==4){
$cf4 += $v;
$cg4 += $v1;
}elsif($camp==5){
$cf5 += $v;
$cg5 += $v1;
}
$mes = "$v の兵糧と $v1 G 国家予\算が増えた";
$tm=50;
#------------------------------------------------------------------------
# 商業
}elsif($cmd==2){
