#-----------------------------------------------------------# # 罪と罰++ 二律背反 # # 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.1 #--- [注意事項] --------------------------------------------# # 1.このスクリプトは以下の利用規程に従って配布しています。 # # http://www24.big.or.jp/~obo/game/ore_/gild/ # #-----------------------------------------------------------# #------------------------------------------------------------------------------- #戦争メニュー sub war{ if(!$type){ $log .= "戦争を実行します。攻め込む国を選んで下さい
\n"; $tm=0; $type='戦争'; &call_mapdata if($mv_mode eq 'pc'); &war_menu; } &dat_write; } sub war_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 war_exe{ if(!$tm){ if($camp<=0){ $log .= "放浪の身で戦争は起こせません
\n"; $tm = $cmd = 0; $type=''; &call_main_st; }elsif($sogo==4){ $log .= "まずは借金を返済して$sogo_p[$sogo] の烙印を消してください。
\n"; $tm = $cmd = 0; $type=''; &call_main_st; }else{ if($cmd<=0 || $cmd>$#cmp){ $log .= "戦争を中止します
\n"; $tm = $cmd = 0; $type=''; &call_main_st; }elsif($cmd>0){ $v=$cmd; if($v==$camp){ $log .= "自国には攻め込めません
\n"; $tm = $cmd = 0; $type=''; &call_main_st; }elsif( ($cmd==1&&$cn1==0)|| ($cmd==2&&$cn2==0)|| ($cmd==3&&$cn3==0)|| ($cmd==4&&$cn4==0)|| ($cmd==5&&$cn5==0)){ $log .= "国力0の国を攻めることはできません。
\n"; $tm = $cmd = 0; $type=''; &call_main_st; }elsif($v==0){ $log .= "
\n"; $tm = $cmd = 0; $type=''; &call_main_st; }else{ $x=int($g_p[$rank]/3); if($max_sol<=$my_cs){ $sol=$max_sol; }elsif($max_sol>$my_cs){ $sol=$my_cs; } $y=int($sol/10); if($my_cs<$x){ $log .= "兵数が少なすぎます。予\備\兵\数を1/3以上確保して下さい
\n"; $tm = $cmd = 0; $type=''; &call_main_st; }elsif($my_cg<$y){ $log .= "戦争を行なうだけのお金が我が国にはありません。
出撃兵数の約\十\分の一の金が必要です
\n"; $tm = $cmd = 0; $type=''; &call_main_st; }elsif($my_cf<$sol){ $log .= "戦争を行なうだけの兵糧がありません。
出撃兵数と同数の兵糧が必要です
\n"; $tm = $cmd = 0; $type=''; &call_main_st; }else{ $log .= "$cmp[$v]に攻め込みます
\n"; if($camp==1){ $cg1-=int($sol/10); $cf1-=int($sol); $cs1-=int($sol); }elsif($camp==2){ $cg2-=int($sol/10); $cf2-=int($sol); $cs2-=int($sol); }elsif($camp==3){ $cg3-=int($sol/10); $cf3-=int($sol); $cs3-=int($sol); }elsif($camp==4){ $cg4-=int($sol/10); $cf4-=int($sol); $cs4-=int($sol); }elsif($camp==5){ $cg5-=int($sol/10); $cf5-=int($sol); $cs5-=int($sol); } $log .= "行軍開始します。敵国国境まで$GMW時間です
\n"; $nation=$v; $pr=$GMT; $tm=0; $type='戦争中'; } } } } } &write_data; } 1;