- 追加された行はこの色です。
- 削除された行はこの色です。
- 罪罰/軍事煽動 へ行く。
[[罪罰改造]]
*軍事コマンド 暴動の煽動 ./inc/ore_sub-mission.cgi [#vd3ffa9b]
**まず、メニューに煽動を追加します [#n088a660]
sub mission_menu{
# 軍事コマンド
my @gu = ('やめる','諜報','強奪','洗脳','煽動');
**処理分岐を追加 [#y3193587]
# 軍事処理
sub mission_exe{
if(!$tm){
if($camp<1){
$log .= "放浪の身でこの軍事は行なえません。<br>\n";
...( 省略 )...
}elsif($cmd==3){
$log .= "敵国の兵士を洗脳し、自国へ引き入れます。<br>標的国を選んで下さい<br>\n";
&call_mapdata if($mv_mode eq 'pc');
&misson_menu2;
$tm=33;
}elsif($cmd==4){ # ここから下が追加部分
$log .= qq|煽動し暴\動を誘発させます<br>標的国を選んでください<br>\n|;
&misson_menu2;
$tm = 60;
}
... ( 省略 ) ...
}elsif($tm==36){# 洗脳内容2
&gun_tm36;
}elsif($tm==60){# 煽動
&gun_tm60;
}elsif($tm==61){# 煽動結果
&gun_tm61;
}
**煽動処理を追加 [#naf16325]
-追加する場所は、ore_sub-mission.cgiの最後、1; の上の行あたりに。
sub gun_tm60{
if( (($cmd==1&&$cg1<800) || ($cmd==1&&$ce1==1))||
(($cmd==2&&$cg2<800) || ($cmd==2&&$ce2==1))||
(($cmd==3&&$cg3<800) || ($cmd==3&&$ce3==1))||
(($cmd==4&&$cg4<800) || ($cmd==4&&$ce4==1))||
(($cmd==5&&$cg5<800) || ($cmd==5&&$ce5==1))){
$log .= "亡国または、国家\予\算800以下の国を諜報することはできません。\n";
$tm = $cmd = 0;
&mission_menu;
}elsif($cmd>0 && $cmd<6 && $cmd!=$camp){
$nation = $cmd;
$log .= qq|$cmp[$nation]で暴\動を煽動します<br>|;
$tm=61;
$pr = $GMT;
}else{
$log .= qq|キャンセルしました<br>|;
$type=''; $tm=$cmd=0; &call_main_st;
}
}
sub gun_tm61{
$log .= qq|$cmp[$nation]での煽動結果、|;
if($nation>0 && $nation<6 && $nation!=$camp){
$ctv=$ct1 if($nation==1);
$ctv=$ct2 if($nation==2);
$ctv=$ct3 if($nation==3);
$ctv=$ct4 if($nation==4);
$ctv=$ct5 if($nation==5);
$v = int(rand($ctv+20));
if($v<20){
$rank_exe += 1;
$log = qq|暴\動を起こす事に成功しました！！<br>|;
if($nation==1){
# $cg1-=$vg=int($cg1/$v);
# $cf1-=$vf=int($cf1/$v);
$cg1-=$vg=$cg1/$v<10000 ? int($cg1/$v) : 10000;
$cf1-=$vf=$cf1/$v<100000 ? int($cf1/$v): 100000;
$log.= qq|$cmp[$nation]は、暴\動により$vg Ｇの資金と$vfの兵糧を失いました<br>|;
}elsif($nation==2){
# $cg2-=$vg=int($cg2/$v);
# $cf2-=$vf=int($cf2/$v);
$cg2-=$vg=$cg2/$v<10000 ? int($cg2/$v) : 10000;
$cf2-=$vf=$cf2/$v<100000 ? int($cf2/$v): 100000;
$log.= qq|$cmp[$nation]は、暴\動により$vg Ｇの資金と$vfの兵糧を失いました<br>|;
}elsif($nation==3){
# $cg3-=$vg=int($cg3/$v);
# $cf3-=$vf=int($cf3/$v);
$cg3-=$vg=$cg3/$v<10000 ? int($cg3/$v) : 10000;
$cf3-=$vf=$cf3/$v<100000 ? int($cf3/$v): 100000;
$log.= qq|$cmp[$nation]は、暴\動により$vg Ｇの資金と$vfの兵糧を失いました<br>|;
}elsif($nation==4){
# $cg4-=$vg=int($cg4/$v);
# $cf4-=$vf=int($cf4/$v);
$cg4-=$vg=$cg4/$v<10000 ? int($cg4/$v) : 10000;
$cf4-=$vf=$cf4/$v<100000 ? int($cf4/$v): 100000;
$log.= qq|$cmp[$nation]は、暴\動により$vg Ｇの資金と$vfの兵糧を失いました<br>|;
}elsif($nation==5){
# $cg5-=$vg=int($cg5/$v);
# $cf5-=$vf=int($cf5/$v);
$cg5-=$vg=$cg5/$v<10000 ? int($cg5/$v) : 10000;
$cf5-=$vf=$cf5/$v<100000 ? int($cf5/$v): 100000;
$log.= qq|$cmp[$nation]は、暴\動により$vg Ｇの資金と$vfの兵糧を失いました<br>|;
}
$type=''; $tm=$cmd=0; &call_main_st;
}else{
$mes = qq|失敗し暴\動は起きませんでした<br>|;
# $mes.=$v." / ".int(10/($ctv+20)*100);
&gun_no; #
}
}else{
$log .= qq|キャンセルしました<br>|;
$type=''; $tm=$cmd=0; &call_main_st;
}
}
*修正 [#i85bd0cf]
-2005/03/12 - 対亡国を抑制
-効果が大きすぎるので、上限を設定。罪罰改造板２/141より適用
