#-----------------------------------------------------------#
# 罪と罰++ 二律背反 #
# 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.2
# Arranged by あくあ
# Aqure's Web Page [http://aqure.zive.net/]
#--- [注意事項] --------------------------------------------#
# ・このスクリプトは以下の利用規程に従って配布しています。 #
# http://www24.big.or.jp/~obo/game/ore_/gild/ #
#-----------------------------------------------------------#
# 1.2 06.11.05 友好度成功確率バグ修正(マサさん報告)
# 1.1 05.05.15 メニューバグ修正(いしい家さん報告)
# 1.0 04.09.19 不可コマンドを非表示/やめるコマンド修正(aniさんバグ修正報告)
# 1.0 04.09.19 交戦中と同盟中メッセージ/不可条件 修正
#
# 1.0 04.02.26 友好条約の成功確率を修正、$wr_mesに出力しない
# 1.0 04.02.14 資金援助、食料援助、援軍派遣を追加
# 友好条約、成功条件変更
# 1.0 04.02.06 操作ミス防止外交選択メニューを追加
# 国ログ記録を個々のメッセージごとに書き込み
# 国ログに名前を記載
# 1.0 04.02.01 停戦交渉失敗処理を追加
#
#-----------------------------------------------------------#
sub fore{
if($camp<1){
$log.="放浪の身では外交は行えない
\n";
$tm=$cmd=0;
$type='';
&call_main_st;
}else{
$type='外交';
$log.="条約など他国に対して外交を行います
\n";
$log.="外交を行う相手国を選んでください";
$log.="(交渉の場に向かうのに$GMM分かかります)";
$tm=0;
&fore_menu;
&call_mapdata if($mv_mode eq 'pc');
}
&dat_write;
}
# ------------------------------------------------------------
# 相手国選択
# ------------------------------------------------------------
sub fore_menu{
$log2 .=qq|