# メニューに追加 my @gu = ('やめる','諜報','強奪','洗脳','待伏'); # 待ち伏せ時間メニュー sub misson_menu3{ $log .= qq|待ち伏せを行う時間を決定してください<br>\n|; my @gu = ('やめる','30分','1時間','1.5時間'); $log2 .=qq|<form action="$script" method="$method" name="ore_">\n|; $log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc'); $log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|; $log2 .=qq|<select name="cmd" size="1">\n|; foreach(0 .. $#gu){ $log2 .=qq|<option value="$_">$gu[$_]</option>\n|;} $log2 .=qq|</select><br>\n|; $log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|; } }elsif($cmd==4){ $log .= qq|敵国の侵攻を待ち伏せます<br>方面を選んで下さい<br>\n|; &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]方面の待ち伏せ任務につきます。<br>\n| if($cmd==1); $log .= qq|1時間、$cmp[$nation]方面の待ち伏せ任務につきます。<br>\n| if($cmd==2); $log .= qq|1.5時間の間、$cmp[$nation]方面の待ち伏せ任務につきます。<br>\n| if($cmd==3); $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; } $tnm = $DAT{'nm'}; #名前 敵 $tlv = $DAT{'lv'}; #レベル 敵 $thp = $DAT{'max_hp'}; #HP $thp_max= $DAT{'max_hp'}; #HP $tmp = $DAT{'max_mp'}; #MP $tua = $DAT{'ua'}; #UA $tud = $DAT{'ud'}; #UD $tag = $DAT{'ag'}; #AG $tcp = $DAT{'camp'}; #所属 $tdf_a = $DAT{'df_a'}; #防具 敵 $tdg_a = $DAT{'dg_a'}; #武具 敵 $tlr = $DAT{'lr'}; #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 '待伏' && $tla+$tpr<$time){ $log .= qq|$tnmは、待ち伏せしていました!$nm の部隊は混乱している!!<br><br>|; $wr_mes = qq|$nm は、$tnmの待伏せに遭遇しました<br>|; &hist_write; $sol_lv = int($sol_lv/5*int(rand(2)+2)); } } elsif($type eq '軍事' || $type eq '待伏') { require './inc/ore_sub-mission.cgi'; &mission_exe; } |