#-----------------------------------------------------------# # 罪と罰++ 二律背反 # # Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD # # Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ] # # BLANK BOARD [ http://pom.to/ ] # #-----------------------------------------------------------# # 討伐 Version 1.0 #--- [注意事項] --------------------------------------------# # 1.このスクリプトは以下の利用規程に従って配布しています。 # # http://www24.big.or.jp/~obo/game/ore_/gild/ # #-----------------------------------------------------------# #------------------------------------------------------------------------------- #討伐メニュー sub subdue{ if(!$type){ $log .= "エルタニアの地に蔓延る魑魅魍魎を討伐します。
成功すると地位と賞金が獲得できます。
\n"; $tm=0; $type='討伐'; &call_mapdata if($mv_mode eq 'pc'); &subdue_menu; }elsif($type eq '討伐'){ &subdue_exe } &dat_write; } sub subdue_menu{ $log2 .=qq|
\n|; $log2 .=qq|\n| if($mv_mode eq 'pc'); $log2 .=qq|\n\n|; $log2 .=qq|
\n|; $log2 .=qq|$td_end
\n|; } #------------------------------------------------------------------------------- #討伐処理(討伐 >> 討伐中へ移行まで) sub subdue_exe{ if(!$tm){ if($cmd<=0 || $cmd>$#cmp){ $log .= "またお越しください…
\n"; $tm = $cmd = 0; $type=''; &call_main_st; }elsif($cmd){ if($camp<1){ $log .= "放浪の身で討伐は行えません
\n"; $tm = $cmd = 0; &call_main_st; }else{ my $x = int($g_p[$rank]/3); if($max_sol<=$my_cs){ $sol= $max_sol; }elsif($max_sol>$my_cs){ $sol= $my_cs; } my $y = int($sol/10); $log .= "$cmp[$cmd]の魑魅魍魎を討伐します
\n"; $log .= "探索を開始します。
\n"; $nation=$cmd; $tm=0; $type='討伐中'; $log2 .=qq|
\n|; $log2 .=qq|\n| if($mv_mode eq 'pc'); $log2 .=qq|\n\n|; $log2 .=qq|$td_end
\n|; } } } &dat_write; } 1;