罪と罰++二律背反
罪罰/待ち伏せ
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
] [
リンク元
]
開始行:
[[罪罰改造]]
*軍事コマンド:待ち伏せ [#i6bf7a1e]
**./inc/ore_sub-mission.cgi [#u92fce56]
-方面を指定して待ち伏せを行う。
-待ち伏せ行動中のキャラが戦争の迎撃にあたった場合、
侵攻している軍は急襲され、混乱のため訓練度が低下する
-当罪罰なら訓練度が反映されやすくなっているのでこれでいい...
そうでない場合、もっと違う効果がいいのかも知れない
*** sub mission [#pdb94bf3]
# メニューに追加
my @gu = ('やめる','諜報','強奪','洗脳','待伏');
# 待ち伏せ時間メニュー
sub misson_menu3{
$log .= qq|待ち伏せを行う時間を決定してください<b...
my @gu = ('やめる','30分','1時間','1.5...
$log2 .=qq|<form action="$script" method="$method...
$log2 .=qq|<td align="center" valign="middle">\n|...
$log2 .=qq|<input type="hidden" name="id" value="...
$log2 .=qq|<select name="cmd" size="1">\n|;
foreach(0 .. $#gu){ $log2 .=qq|<option value="$_"...
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="N...
}
*** sub mission_exe [#d43863ee]
}elsif($cmd==4){
$log .= qq|敵国の侵攻を待ち伏せます<br>方面を選んで下...
&call_mapdata if($mv_mode eq 'pc');
&misson_menu2;
$tm = 40;
}
}elsif($tm==36){#洗脳内容2
&gun_tm36;
}elsif($tm==40){#待ち伏せ1
&gun_tm40;
}elsif($tm==41){
&gun_tm41;
}elsif($tm==42){
&gun_tm42;
}
#-------------------------------------------------------...
#待ち伏せ
sub gun_tm40{
if($cmd<=0){
$log .= qq|中止します<br>\n|;
$tm = $cmd = 0;
&mission_menu;
}elsif($cmd>0){
$v = $cmd;
if($v==$camp){
$log .= qq|自国を選択することは出来ません<br>\n|;
$tm = $cmd =0;
&mission_menu;
}elsif($v>=1 && $v<=5){
$log .= qq|$cmp[$cmd]方面に向かいました<br>\n|;
$tm=41;
$nation = $cmd;
&misson_menu3;
}else{
$log .= qq|中止しました<br>\n|;
$tm = $cmd =0;
&mission_menu;
}
}else{
$log .= qq|中止しました<br>\n|;
$tm = $cmd =0;
&mission_menu;
}
}
#-------------------------------------------------------...
# 待ち伏せ行動開始
sub gun_tm41{
if($cmd<1){
$log .= qq|中止しました<br>\n|;
$tm=$cmd=0;
$mission_menu;
}elsif($cmd<=3){
$pr = $GMT*$cmd;
$log .= qq|30分間、$cmp[$nation]方面の待ち伏せ...
if($cmd==1);
$log .= qq|1時間、$cmp[$nation]方面の待ち伏せ任...
$log .= qq|1.5時間の間、$cmp[$nation]方面の待ち伏...
$type = '待伏';
$tm=42;
}else{
$log .= qq|中止しました<br>\n|;
$tm=$cmd=0;
$mission_menu;
}
}
#-------------------------------------------------------...
sub gun_tm42{
$log .= qq|待ち伏せ任務を完了しました<br>\n|;
$rank_exe+=int(rand(2)+1);
$sol_lv+=int(rand(10)+5);
$sol_lv=100 if($sol_lv>100);
$amb_cnt++;
if($amb_cnt==50){
}
$type='';
$tm=$cmd=0;
&call_main_st;
}
*戦争時の効果を追加 [#q0a787a8]
***./inc/ore_sub-wartime.cgi [#z3ab296d]
$tnm = $DAT{'nm'}; ...
$tlv = $DAT{'lv'}; ...
$thp = $DAT{'max_hp'};...
$thp_max= $DAT{'max_hp'};...
$tmp = $DAT{'max_mp'};...
$tua = $DAT{'ua'}; ...
$tud = $DAT{'ud'}; ...
$tag = $DAT{'ag'}; ...
$tcp = $DAT{'camp'}; ...
$tdf_a = $DAT{'df_a'}; ...
$tdg_a = $DAT{'dg_a'}; ...
$tlr = $DAT{'lr'}; ...
$tsol = $g_p[$DAT{'rank...
$tsol_lv= $DAT{'sol_lv'};...
$ttype = $DAT{'type'}; ...
$tpr = $DAT{'pr'}; ...
$tla = $DAT{'la'}; ...
$tcamp = $DAT{'camp'}; ...
$tnation= $DAT{'nation'};...
$ck=1;
}
$sach++;
}
# NPC読み込み
if(!$tnm){
require './inc/ore_sub-npc_1.cgi';
local $v=int(rand(5));
&ck_ne_1;
}else{
# 待ち伏せ
if($tnation==$camp && $tcamp==$nation && $ttype eq '待伏...
$log .= qq|$tnmは、待ち伏せしていました!$nm の部隊は...
$wr_mes = qq|$nm は、$tnmの待伏せに遭遇しました<br>|;
&hist_write;
$sol_lv = int($sol_lv/5*int(rand(2)+2));
}
}
*待ち伏せ中の行動処理振り分け [#n69b7981]
**./ore_.cgi [#c5ddb4fd]
elsif($type eq '軍事' || $type eq '待伏') { requir...
*更新 [#of67ddcd]
-待ち伏せでの迎撃を履歴に書き込み
-04.08.04 指摘していただいたryukku☆さんに感謝
--gun_tm41のmission_menu記述ミス(misson_menu→mission_menu)
--設置手順に変数読み込みが抜けていたので追加
-04.08.05 &hist_write部分を修正
-04.08.22 tm41のバグ修正
終了行:
[[罪罰改造]]
*軍事コマンド:待ち伏せ [#i6bf7a1e]
**./inc/ore_sub-mission.cgi [#u92fce56]
-方面を指定して待ち伏せを行う。
-待ち伏せ行動中のキャラが戦争の迎撃にあたった場合、
侵攻している軍は急襲され、混乱のため訓練度が低下する
-当罪罰なら訓練度が反映されやすくなっているのでこれでいい...
そうでない場合、もっと違う効果がいいのかも知れない
*** sub mission [#pdb94bf3]
# メニューに追加
my @gu = ('やめる','諜報','強奪','洗脳','待伏');
# 待ち伏せ時間メニュー
sub misson_menu3{
$log .= qq|待ち伏せを行う時間を決定してください<b...
my @gu = ('やめる','30分','1時間','1.5...
$log2 .=qq|<form action="$script" method="$method...
$log2 .=qq|<td align="center" valign="middle">\n|...
$log2 .=qq|<input type="hidden" name="id" value="...
$log2 .=qq|<select name="cmd" size="1">\n|;
foreach(0 .. $#gu){ $log2 .=qq|<option value="$_"...
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="N...
}
*** sub mission_exe [#d43863ee]
}elsif($cmd==4){
$log .= qq|敵国の侵攻を待ち伏せます<br>方面を選んで下...
&call_mapdata if($mv_mode eq 'pc');
&misson_menu2;
$tm = 40;
}
}elsif($tm==36){#洗脳内容2
&gun_tm36;
}elsif($tm==40){#待ち伏せ1
&gun_tm40;
}elsif($tm==41){
&gun_tm41;
}elsif($tm==42){
&gun_tm42;
}
#-------------------------------------------------------...
#待ち伏せ
sub gun_tm40{
if($cmd<=0){
$log .= qq|中止します<br>\n|;
$tm = $cmd = 0;
&mission_menu;
}elsif($cmd>0){
$v = $cmd;
if($v==$camp){
$log .= qq|自国を選択することは出来ません<br>\n|;
$tm = $cmd =0;
&mission_menu;
}elsif($v>=1 && $v<=5){
$log .= qq|$cmp[$cmd]方面に向かいました<br>\n|;
$tm=41;
$nation = $cmd;
&misson_menu3;
}else{
$log .= qq|中止しました<br>\n|;
$tm = $cmd =0;
&mission_menu;
}
}else{
$log .= qq|中止しました<br>\n|;
$tm = $cmd =0;
&mission_menu;
}
}
#-------------------------------------------------------...
# 待ち伏せ行動開始
sub gun_tm41{
if($cmd<1){
$log .= qq|中止しました<br>\n|;
$tm=$cmd=0;
$mission_menu;
}elsif($cmd<=3){
$pr = $GMT*$cmd;
$log .= qq|30分間、$cmp[$nation]方面の待ち伏せ...
if($cmd==1);
$log .= qq|1時間、$cmp[$nation]方面の待ち伏せ任...
$log .= qq|1.5時間の間、$cmp[$nation]方面の待ち伏...
$type = '待伏';
$tm=42;
}else{
$log .= qq|中止しました<br>\n|;
$tm=$cmd=0;
$mission_menu;
}
}
#-------------------------------------------------------...
sub gun_tm42{
$log .= qq|待ち伏せ任務を完了しました<br>\n|;
$rank_exe+=int(rand(2)+1);
$sol_lv+=int(rand(10)+5);
$sol_lv=100 if($sol_lv>100);
$amb_cnt++;
if($amb_cnt==50){
}
$type='';
$tm=$cmd=0;
&call_main_st;
}
*戦争時の効果を追加 [#q0a787a8]
***./inc/ore_sub-wartime.cgi [#z3ab296d]
$tnm = $DAT{'nm'}; ...
$tlv = $DAT{'lv'}; ...
$thp = $DAT{'max_hp'};...
$thp_max= $DAT{'max_hp'};...
$tmp = $DAT{'max_mp'};...
$tua = $DAT{'ua'}; ...
$tud = $DAT{'ud'}; ...
$tag = $DAT{'ag'}; ...
$tcp = $DAT{'camp'}; ...
$tdf_a = $DAT{'df_a'}; ...
$tdg_a = $DAT{'dg_a'}; ...
$tlr = $DAT{'lr'}; ...
$tsol = $g_p[$DAT{'rank...
$tsol_lv= $DAT{'sol_lv'};...
$ttype = $DAT{'type'}; ...
$tpr = $DAT{'pr'}; ...
$tla = $DAT{'la'}; ...
$tcamp = $DAT{'camp'}; ...
$tnation= $DAT{'nation'};...
$ck=1;
}
$sach++;
}
# NPC読み込み
if(!$tnm){
require './inc/ore_sub-npc_1.cgi';
local $v=int(rand(5));
&ck_ne_1;
}else{
# 待ち伏せ
if($tnation==$camp && $tcamp==$nation && $ttype eq '待伏...
$log .= qq|$tnmは、待ち伏せしていました!$nm の部隊は...
$wr_mes = qq|$nm は、$tnmの待伏せに遭遇しました<br>|;
&hist_write;
$sol_lv = int($sol_lv/5*int(rand(2)+2));
}
}
*待ち伏せ中の行動処理振り分け [#n69b7981]
**./ore_.cgi [#c5ddb4fd]
elsif($type eq '軍事' || $type eq '待伏') { requir...
*更新 [#of67ddcd]
-待ち伏せでの迎撃を履歴に書き込み
-04.08.04 指摘していただいたryukku☆さんに感謝
--gun_tm41のmission_menu記述ミス(misson_menu→mission_menu)
--設置手順に変数読み込みが抜けていたので追加
-04.08.05 &hist_write部分を修正
-04.08.22 tm41のバグ修正
ページ名: