Initial commit of original files

2026-06-22 21:09:26 +09:00
commit dc9058e0da
74 changed files with 12466 additions and 0 deletions
@@ -0,0 +1,172 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反 										#
+#  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 ability{
+
+	if(!$type){
+
+		&abi_up_data;
+
+		$log .= "UA $va G UD $vd G LR $vl G AG $vg G<br>体力・精神を15000 G を使いそれぞれの能\力を上げます<br>\n";
+		$tm=0;
+		$type='能力';
+
+		&ability_menu;
+
+	}
+
+	&dat_write;
+}
+
+sub ability_menu{
+
+	# 能力コマンド
+	@st		 = ('やめる','HP-UP','MP-UP','UA-UP','UD-UP','LR-UP','AG-UP');
+
+	$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 .. $#st){ $log2 .= "<option value=$_>$st[$_]</option>\n";}
+	$log2 .=qq|</select><br>\n|;
+	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+}
+
+#-------------------------------------------------------------------------------
+# 能力処理
+sub ability_exe{
+
+	if(!$tm){
+
+		&abi_up_data;
+
+		if($cmd<=0){
+			$log .= "止めておきます<br>\n";
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+		}elsif($cmd==1){
+			if($gold<15000){
+				$log .= "お金が足りません<br>\n";
+				$tm = $cmd = 0;
+				$type='';
+				&ability_menu;
+			}else{
+				$log .= "最大HPが３上がった<br>\n";
+				$max_hp+=3;
+				$gold-=15000;
+				$tm = $cmd = 0;
+				$type='';
+				&call_main_st;
+			}
+		}elsif($cmd==2){
+			if($gold<15000){
+				$log .= "お金が足りません<br>\n";
+				$tm = $cmd = 0;
+				$type='';
+				&ability_menu;
+			}else{
+				$log .= "最大MPが３上がった<br>\n";
+				$max_mp+=3;
+				$gold-=15000;
+				$tm = $cmd = 0;
+				$type='';
+				&call_main_st;
+			}
+		}elsif($cmd==3){
+			if($gold<$va){
+				$log .= "お金が足りません<br>\n";
+				$tm = $cmd = 0;
+				&ability_menu;
+			}else{
+				$log .= "攻撃力が１上がった<br>\n";
+				$ua++;
+				$gold-=$va;
+				$tm = $cmd = 0;
+				$type='';
+				&call_main_st;
+			}
+		}elsif($cmd==4){
+			if($gold<$vd){
+				$log .= "お金が足りません<br>\n";
+				$tm = $cmd = 0;
+				&ability_menu;
+			}else{
+				$log .= "防御力が１上がった<br>\n";
+				$ud++;
+				$gold-=$vd;
+				$tm = $cmd = 0;
+				$type='';
+				&call_main_st;
+			}
+		}elsif($cmd==5){
+			if($gold<$vl){
+				$log .= "お金が足りません<br>\n";
+				$tm = $cmd = 0;
+				&ability_menu;
+			}else{
+				$log .= "指揮力が１上がった<br>\n";
+				$lr++;
+				$gold-=$vl;
+				$tm = $cmd = 0;
+				$type='';
+				&call_main_st;
+			}
+		}elsif($cmd==6){
+			if($gold<$vg){
+				$log .= "お金が足りません<br>\n";
+				$tm = $cmd = 0;
+				&ability_menu;
+			}else{
+				$log .= "敏捷力が１上がった<br>\n";
+				$ag++;
+				$gold-=$vg;
+				$tm = $cmd = 0;
+				$type='';
+				&call_main_st;
+			}
+		}
+	}
+
+	&dat_write;
+
+}
+
+# 能力上昇値計算
+sub abi_up_data{
+
+	$va=int($ua*$ua)*100;
+	$va=15000 if($va<15000);
+	$va=500000 if($va>500000);
+	$vd=int($ud*$ud)*100;
+	$vd=15000 if($vd<15000);
+	$vd=500000 if($vd>500000);
+	$vl=int($lr*$lr)*100;
+	$vl=30000 if($vl<30000);
+	$vl=500000 if($vl>500000);
+	$vg=int($ag*$ag)*100;
+	$vg=15000 if($vg<15000);
+	$vg=500000 if($vg>500000);
+
+	return ($va,$vd,$vl,$vg);
+
+}
+
+
+
+
+
+1;
@@ -0,0 +1,150 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反 										#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://pom.to/ ]							#
+#-----------------------------------------------------------#
+# 表示 PC用パーツ1 Version 1.0								#
+#--- [注意事項] --------------------------------------------#
+# 1.このスクリプトは以下の利用規程に従って配布しています。	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#-------------------------------------------------------------------------------
+# 通常表示用
+sub layout_flag_0{
+	print <<EOM;
+<table width="740" border="0" cellspacing="0" cellpadding="0">
+<tr>
+<td align="left" valign="top" width="540">
+EOM
+
+	if($log){
+		print <<"EOM";
+<table width="100%" border="0" cellspacing="4" cellpadding="10" height="100" bgcolor="#444466">
+<tr>
+<td bgcolor="#000000" align="left" valign="top">
+<tt class="moji1">
+$log
+</tt>
+</td>
+</tr>
+</table>
+
+<br>
+EOM
+}
+
+	my @metu=('','(亡)');
+	my $reset_time_out = int(($set-$time)/(3600*24));
+	print <<"EOM";
+<table width="100%" border="0" cellspacing="4" cellpadding="4" bgcolor="#444466">
+<tr>
+<td bgcolor="#000000" align="center">
+<tt class="moji1">
+$bmes
+</tt>
+</td>
+</tr>
+</table>
+
+<br>
+
+<table width="100%" border="0" cellspacing="4" cellpadding="0" bgcolor="#444466">
+<tr>
+<td bgcolor="#000000" align="left" valign="top">
+<!-- $rstで作っていた表示 -->
+<table border=0 cellpadding=2 cellspacing=2 width=100% align=center>
+<tr>
+<td bgcolor=#CCCCFF width=72>&nbsp;</td>
+<td bgcolor=$color[1] align=center width=92>$cmp[1]$metu[$ce1]</td>
+<td bgcolor=$color[2] align=center width=92>$cmp[2]$metu[$ce2]</td>
+<td bgcolor=$color[3] align=center width=92>$cmp[3]$metu[$ce3]</td>
+<td bgcolor=$color[4] align=center width=92>$cmp[4]$metu[$ce4]</td>
+<td bgcolor=$color[5] align=center width=92>$cmp[5]$metu[$ce5]</td>
+</tr>
+<tr>
+<td bgcolor=#CCCCFF>総国力</td>
+<td bgcolor=$color[1] align=center>$cn1</td>
+<td bgcolor=$color[2] align=center>$cn2</td>
+<td bgcolor=$color[3] align=center>$cn3</td>
+<td bgcolor=$color[4] align=center>$cn4</td>
+<td bgcolor=$color[5] align=center>$cn5</td>
+</tr>
+<tr>
+<td bgcolor=#CCCCFF>国家\予\算</td>
+<td bgcolor=$color[1] align=center>$cg1</td>
+<td bgcolor=$color[2] align=center>$cg2</td>
+<td bgcolor=$color[3] align=center>$cg3</td>
+<td bgcolor=$color[4] align=center>$cg4</td>
+<td bgcolor=$color[5] align=center>$cg5</td>
+</tr>
+<tr>
+<td bgcolor=#CCCCFF>総兵糧</td>
+<td bgcolor=$color[1] align=center>$cf1</td>
+<td bgcolor=$color[2] align=center>$cf2</td>
+<td bgcolor=$color[3] align=center>$cf3</td>
+<td bgcolor=$color[4] align=center>$cf4</td>
+<td bgcolor=$color[5] align=center>$cf5</td>
+</tr>
+<tr><td bgcolor=#CCCCFF>総兵士数</td>
+<td bgcolor=$color[1] align=center>$cs1</td>
+<td bgcolor=$color[2] align=center>$cs2</td>
+<td bgcolor=$color[3] align=center>$cs3</td>
+<td bgcolor=$color[4] align=center>$cs4</td>
+<td bgcolor=$color[5] align=center>$cs5</td>
+</tr>
+<tr>
+<td bgcolor=#CCCCFF>所属人数</td>
+<td bgcolor=$color[1] align=center>$c1/$c1a</td>
+<td bgcolor=$color[2] align=center>$c2/$c2a</td>
+<td bgcolor=$color[3] align=center>$c3/$c3a</td>
+<td bgcolor=$color[4] align=center>$c4/$c4a</td>
+<td bgcolor=$color[5] align=center>$c5/$c5a</td>
+</tr>
+</table>
+<!-- ここまで -->
+</td>
+</tr>
+</table>
+
+</td>
+<td align="right" valign="top" width="190">
+
+<table width="190" border="0" cellspacing="4" cellpadding="4" bgcolor="#444466" height="140">
+<tr>
+<td bgcolor="#000000" align="left" valign="top" class="moji2">
+<div align="center">- System Infomation -</div>
+<hr size="2" noshade color="#9999bb" width="100%">
+&nbsp;&nbsp;第 $goal_no 期<br>
+&nbsp;&nbsp;統一期限まで 後 $reset_time_out日
+</div>
+</td>
+</tr>
+</table>
+
+<br>
+
+<table width="190" border="0" cellspacing="4" cellpadding="4" bgcolor="#444466">
+<tr>
+<td bgcolor="#000000" align="left" valign="top" class="moji2">
+参加総数: $all_mem名 / $sanka人定員<br>
+統一国力: $data_reset&nbsp;&nbsp;難易度: $reset_point
+<hr size="2" noshade color="#9999bb"width=160>
+前回の覇者: $hasya [$cmp[$hcamp]]
+</td>
+</tr>
+</table>
+
+</td>
+</tr>
+</table>
+
+EOM
+}
+
+
+
+
+
+1;
@@ -0,0 +1,82 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反										#
+#  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 html{
+
+	local($shop_i);
+	$shop_i = qq|<a href=$script?id=$id&pw=$pw&cmd=20 accesskey="2">2.ｼｮｯﾋﾟﾝｸﾞ</a>/| if(!$type && $cmd<=0);
+
+	print "Content-type: text/html; charset=shift_jis\n\n" ;
+
+	print qq|<html><head><meta http-equiv="Cache-Control" content="no-cache"><title>$titleh</title></head><body $body><center>|;
+	print qq|$title_i<br>| if(!$tm && !$log);
+
+	if($lt_mode =~ /00/){print qq|$log1<hr color=white>| if(!$tm && !$log)}
+	else{print qq|$log1<hr color=white>|;}
+
+	print qq|$log2<hr color=white>|;
+	print qq|$log<hr color=white>|;
+
+	if(!$type && $cmd<=0){
+		print qq|<a href="$index" accesskey="9">9.ﾀｲﾄﾙ</a>/<a href="$park?id=$id&pw=$pw&camp=$camp&sogo=$sogo" accesskey="1">1.交流広場</a>/$shop_i<a href="$hist?id=$id&pw=$pw" accesskey="3">3.過去の栄光</a>/<a href="$public?id=$id&pw=$pw" accesskey="4">4.公式条約</a>/<a href="$campbbs?id=$id&pw=$pw" accesskey="5">5.作戦会議</a><hr color=white>| if($lt_mode =~ /01/);
+		print qq|$bmes<hr color=white>| if($lt_mode =~ /02/ && !$log);
+		print qq|$rst<hr color=white>| if($lt_mode =~ /03/ && !$log);
+		print qq|参加総数:$now_sanka名/$sanka人定員//統一国力:$data_reset/難易度:$reset_point//前回の覇者: $hasya [$cmp[$hcamp]]<hr color=white>| if($lt_mode =~ /04/ && !$log);
+		print qq|現在の参加者<br>$now_nm| if($lt_mode =~ /05/ && !$log);
+		print qq|<br>$kakiko<br>| if($lt_mode =~ /06/ && !$log);
+	}else{
+		print qq|<a href="$index" accesskey="9">9.ﾀｲﾄﾙ</a>/<a href="$park?id=$id&pw=$pw&camp=$camp&sogo=$sogo" accesskey="1">1.交流広場</a>/$shop_i<a href="$hist?id=$id&pw=$pw" accesskey="3">3.過去の栄光</a>/<a href="$public?id=$id&pw=$pw" accesskey="4">4.公式条約</a>/<a href="$campbbs?id=$id&pw=$pw" accesskey="5">5.作戦会議</a><hr color=white>| if($lt_mode =~ /11/);
+		print qq|$bmes<hr color=white>| if($lt_mode =~ /22/);
+		print qq|$rst<hr color=white>| if($lt_mode =~ /33/);
+		print qq|参加総数:$now_sanka名/$sanka人定員//統一国力:$data_reset/難易度:$reset_point//前回の覇者: $hasya [$cmp[$hcamp]]<hr color=white>| if($lt_mode =~ /44/);
+		print qq|ﾌﾟﾚｲ人数<br>$now_nm| if($lt_mode =~ /55/);
+		print qq|<br>$kakiko<br>| if($lt_mode =~ /66/);
+	}
+}
+
+#-------------------------------------------------------------------------------
+#ｽﾃｰﾀｽ表示
+sub status{
+
+$log1.=<<EOM;
+$nm<br>
+LV$lv $gold\G<br>
+HP$hp/$max_hp MP$mp/$max_mp<br>
+UA$ua/UD$ud/LR$lr/AG$ag<br>
+経験値$exe/$next_lv<br>
+$cmp[$camp] $cl[$rank]<br>
+部隊$g_p[$rank] 訓練度$sol_lv<br>
+EOM
+$log1.="称号[$sogo_p[$sogo]]<br>" if($sogo);
+$log1.="[$dg_data[$dg_a][1]]/$dg_cnt<br>" if($dg_a && $dg_cnt);
+$log1.="[$df_data[$df_a][1]]/$df_cnt<br>" if($df_a && $df_cnt);
+$log1.="[$di_data[$di_a][1]]/$di_cnt<br>" if($di_a && $di_cnt);
+
+my @metu=('','(亡)');
+
+$rst.=<<EOM;
+$cmp[1]$metu[$ce1] 国力$cn1 予\算$cg1 兵糧$cf1 兵士$cs1 人数$c1/$c1a
+<hr color=white>$cmp[2]$metu[$ce2] 国力$cn2 予\算$cg2 兵糧$cf2 兵士$cs2 人数$c2/$c2a
+<hr color=white>$cmp[3]$metu[$ce3] 国力$cn3 予\算$cg3 兵糧$cf3 兵士$cs3 人数$c3/$c3a
+<hr color=white>$cmp[4]$metu[$ce4] 国力$cn4 予\算$cg4 兵糧$cf4 兵士$cs4 人数$c4/$c4a
+<hr color=white>$cmp[5]$metu[$ce5] 国力$cn5 予\算$cg5 兵糧$cf5 兵士$cs5 人数$c5/$c5a
+<hr color=white>
+EOM
+}
+
+
+
+
+
+1;#削除不可
@@ -0,0 +1,368 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反										#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://pom.to/ ]							#
+#-----------------------------------------------------------#
+# PC用サブルーチン	Version 1.1								#
+#--- [注意事項] --------------------------------------------#
+# 1.このスクリプトは以下の利用規程に従って配布しています。	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#-------------------------------------------------------------------------------
+# 画面レイアウト
+sub html{
+
+	# ヘッダー&圧縮転送有無
+	&content_type;
+
+	# ﾏｳｽ自動操作ﾁｰﾄ撃退 戦闘時に4/400 の確立で発動
+	my $no_mouse = ($no_mouse && $type eq '修行中') ? int(rand(400)) : 100 ;
+
+	print <<EOM;
+<html>
+<head>
+<title>$titleh</title>
+<link rel=stylesheet type="text/css" href="$css" title="style">
+EOM
+
+# Javascript自動操作チート防衛(frame取り込み防衛)
+if($no_js){
+	print <<EOM;
+<script language="javascript">
+<!--
+	if(self!=top){
+		top.location = self.location;
+	}
+//-->
+</script>
+EOM
+}
+
+	print <<EOM;
+</head>
+<body $body class="bar">
+<center>
+<table width="740" border="0" cellspacing="0" cellpadding="0">
+<tr>
+<td align="left">
+$title
+</td>
+</tr>
+</table>
+
+<table width="740" border="0" cellspacing="0" cellpadding="0" height="300">
+<tr>
+<td align="center" valign="middle" width="500">
+
+<table width="540" border="0" cellspacing="6" cellpadding="6" height="285" bgcolor="#444466">
+<tr>
+<td bgcolor="#000000" align="left" valign="top">
+$log1
+</td>
+</tr>
+</table>
+
+</td>
+<td align="right" valign="middle" width="200">
+
+<table border="0" cellspacing="0" cellpadding="5" height="285">
+<tr>
+<form method="get" action="$index">
+<td bgcolor="#000000" valign="middle">
+<input type="submit" value="† タイトルへ戻る †" class="button1">
+</td>
+</form>
+</tr>
+EOM
+	if($no_mouse==0){
+		print qq|<tr>$log2</tr>|;
+	}
+	print<<EOM;
+<tr>
+<form method="$method" action="$park">
+<td valilgn="middle">
+<input type="hidden" name="id" value="$id">
+<input type="hidden" name="pw" value="$pw">
+<input type="hidden" name="camp" value="$camp">
+<input type="hidden" name="sogo" value="$sogo">
+<input type="submit" value="† 国際交流広場 †" class="button1">
+</td>
+</form>
+</tr>
+EOM
+	if($no_mouse==1){
+		print qq|<tr>$log2</tr>|;
+	}
+	print<<EOM;
+<tr>
+<form method="$method" action="$hist">
+<td valilgn="middle">
+<input type="hidden" name="id" value="$id">
+<input type="hidden" name="pw" value="$pw">
+<input type="submit" value="†   過去の栄光   †" class="button1">
+</td>
+</form>
+</tr>
+EOM
+
+if(!$type && $cmd<=0){
+	print <<"EOM";
+<tr>
+<form method="$method" action="$script">
+<td valilgn="middle">
+<input type="hidden" name="id" value="$id">
+<input type="hidden" name="pw" value="$pw">
+<input type="hidden" name="cmd" value="20">
+<input type="submit" value="†  ｼｮｯﾋﾟﾝｸﾞﾓｰﾙ  †" class="button1">
+</td>
+</form>
+</tr>
+EOM
+}
+	print <<"EOM";
+<tr>
+<form method="$method" action="$public">
+<td valilgn="middle">
+<input type="hidden" name="id" value="$id">
+<input type="hidden" name="pw" value="$pw">
+<input type="submit" value="†     公式条約     †" class="button1">
+</td>
+</form>
+</tr>
+EOM
+	if($no_mouse==2){
+		print qq|<tr>$log2</tr>|;
+	}
+	print<<EOM;
+<tr>
+<form method="$method" action="$campbbs">
+<td>
+<input type="hidden" name="id" value="$id">
+<input type="hidden" name="pw" value="$pw">
+<input type="submit" value="†各国作戦会議室†" class="button1">
+</td>
+</form>
+</tr>
+EOM
+	if($no_mouse>=3){
+		print qq|<tr>$log2</tr>|;
+	}
+	print<<EOM;
+</table>
+
+</td>
+</tr>
+</table>
+<br>
+EOM
+
+	my($uti, $sti, $cuti, $csti) = times();
+	$uti += $cuti;
+	$sti += $csti;
+	my($cpu) = $uti + $sti;
+	my $disp="CPUs($cpu): User($uti) System($sti)<br>";
+
+	if($layout_flag==1){
+		print <<EOM;
+<table width="740" border="0" cellspacing="4" cellpadding="4" bgcolor="#444466">
+<tr>
+<td bgcolor="#000000" align="center" valign="top" height="120">
+<tt class="moji1">
+$log
+</tt>
+</td>
+</tr>
+</table>
+<br><br>
+EOM
+	}elsif(!$layout_flag){
+		require './inc/ore_sub-base-p1_pc.cgi';&layout_flag_0;
+	}
+
+	print <<"EOM";
+$disp<br>
+<br>
+$kakiko
+EOM
+
+}
+
+#-------------------------------------------------------------------------------
+#ステータス表示
+sub status{
+
+	&settei;#設定読み込み
+
+	my(
+		$hp_v,$hp_c,$hp_y,
+		$mp_v,$mp_c,$mp_y,
+		$ua_v,$ua_c,
+		$ud_v,$ud_c,
+		$lr_v,$lr_c,
+	);
+
+	#HPグラフ
+	if($max_hp <= 75){
+		$hp_v = $hp*2;
+		$hp_c = "#00bbff";
+		$hp_y = $max_hp*2-$hp*2;
+	}elsif($max_hp <= 300){
+		$hp_v = $hp;
+		$hp_c = "#0099ff";
+		$hp_y = $max_hp-$hp;
+	}elsif($max_hp <= 600){ 
+		$hp_v = int($hp/2);
+		$hp_c = "#0077ff";
+		$hp_y = int($max_hp/2-$hp/2);
+	}elsif($max_hp <= 1200){
+		$hp_v = int($hp/4);
+		$hp_c = "#0055ff";
+		$hp_y = int($max_hp/4-$hp/4);
+	}elsif($max_hp <= 2400){
+		$hp_v = int($hp/8);
+		$hp_c = "#0033ff";
+		$hp_y = int($max_hp/8-$hp/8);
+	}elsif($max_hp <= 4800){
+		$hp_v = int($hp/16);
+		$hp_c = "#0011ff";
+		$hp_y = int($max_hp/16-$hp/16);
+	}else{
+		$hp_v = int($hp/32);
+		$hp_c = "#0011ff";
+		$hp_y = int($max_hp/32-$hp/32);
+	}
+	#MPグラフ
+	if($max_mp <= 75){
+		$mp_v = $mp*2;
+		$mp_c = "#00ffcc";
+		$mp_y = $max_mp*2-$mp*2;
+	}elsif($max_mp <= 300){
+		$mp_v = $mp;
+		$mp_c = "#00ddcc";
+		$mp_y = $max_mp-$mp;
+	}elsif($max_mp <= 600){ 
+		$mp_v = int($mp/2);
+		$mp_c = "#00bbcc";
+		$mp_y = int($max_mp/2-$mp/2);
+	}elsif($max_mp <= 1200){
+		$mp_v = int($mp/4);
+		$mp_c = "#0099cc";
+		$mp_y = int($max_mp/4-$mp/4);
+	}elsif($max_mp <= 2400){
+		$mp_v = int($mp/8);
+		$mp_c = "#0077cc";
+		$mp_y = int($max_mp/8-$mp/8);
+	}elsif($max_mp <= 4800){
+		$mp_v = int($mp/16);
+		$mp_c = "#0055cc";
+		$mp_y = int($max_mp/16-$mp/16);
+	}else{
+		$mp_v = int($mp/32);
+		$mp_c = "#0033cc";
+		$mp_y = int($max_mp/32-$mp/32);
+	}
+	#UAグラフ
+	if($ua <= 25){
+		$ua_v = $ua*4;
+		$ua_c = "#99ccff";
+	}elsif($ua <= 50){
+		$ua_v = $ua*2;
+		$ua_c = "#9999ff";
+	}elsif($ua <= 100){ 
+		$ua_v = $ua;
+		$ua_c = "#9966ff";
+	}elsif($ua <= 500){ 
+		$ua_v = int($ua/2);
+		$ua_c = "#9933ff";
+	}else{ 
+		$ua_v = int($ua/4);
+		$ua_c = "#9900ff";
+	}
+	#UDグラフ
+	if($ud <= 25){
+		$ud_v = $ud*4;
+		$ud_c = "#33ffff";
+	}elsif($ud <= 50){
+		$ud_v = $ud*2;
+		$ud_c = "#33ccff";
+	}elsif($ud <= 100){ 
+		$ud_v = $ud;
+		$ud_c = "#3399ff";
+	}elsif($ud <= 500){ 
+		$ud_v = int($ud/2);
+		$ud_c = "#3366ff";
+	}else{ 
+		$ud_v = int($ud/4);
+		$ud_c = "#3333ff";
+	}
+	#LRグラフ
+	if($lr <= 25){
+		$lr_v = $lr*4;
+		$lr_c = "#ccccff";
+	}elsif($lr <= 50){
+		$lr_v = $lr*2;
+		$lr_c = "#cc99ff";
+	}elsif($lr <= 100){ 
+		$lr_v = $lr;
+		$lr_c = "#cc66ff";
+	}elsif($lr <= 500){ 
+		$lr_v = int($lr/2);
+		$lr_c = "#cc33ff";
+	}else{ 
+		$lr_v = int($lr/4);
+		$lr_c = "#cc00ff";
+	}
+	#LRグラフ
+	if($ag <= 25){
+		$ag_v = $ag*4;
+		$ag_c = "#ccccff";
+	}elsif($ag <= 50){
+		$ag_v = $ag*2;
+		$ag_c = "#cc99ff";
+	}elsif($ag <= 100){ 
+		$ag_v = $ag;
+		$ag_c = "#cc66ff";
+	}elsif($ag <= 500){ 
+		$ag_v = int($ag/2);
+		$ag_c = "#cc33ff";
+	}else{ 
+		$ag_v = int($ag/4);
+		$ag_c = "#cc00ff";
+	}
+
+	$hp_y = (!$hp_y) ? "" : "<img src=\"$imgs/spc.gif\" height=\"8\" width=\"$hp_y\" style=\"background-color:#555555\">";
+	$mp_y = (!$mp_y) ? "" : "<img src=\"$imgs/spc.gif\" height=\"8\" width=\"$mp_y\" style=\"background-color:#555555\">";
+	$ua_y = (!$dg_a) ? "" : "<img src=\"$imgs/spc.gif\" height=\"8\" width=\"$dg_data[$dg_a][4]\" style=\"background-color:#6666cc\">";
+	$ud_y = (!$df_a) ? "" : "<img src=\"$imgs/spc.gif\" height=\"8\" width=\"$df_data[$df_a][4]\" style=\"background-color:#6666cc\">";
+
+	$log1.=<<EOM;
+<tt class="moji1">
+<b>$nm</b>　　　<span style="font-size:12px">$seibetu[$sei]</span>&nbsp;&nbsp;&nbsp;&nbsp;ID: $id<br>
+レベル <b>$lv</b>　階　級 <b>$cl[$rank]</b>　称　号 [<b>$sogo_p[$sogo]</b>]<br>
+<br>
+体　力[HP] <img src="$imgs/spc.gif" height="8" width="$hp_v" style="background-color:$hp_c">$hp_y $hp/$max_hp<br>
+魔　力[MP] <img src="$imgs/spc.gif" height="8" width="$mp_v" style="background-color:$mp_c">$mp_y $mp/$max_mp<br>
+攻撃力[UA] <img src="$imgs/spc.gif" height="8" width="$ua_v" style="background-color:$ua_c">$ua_y $ua +$dg_data[$dg_a][4]<br>
+防御力[UD] <img src="$imgs/spc.gif" height="8" width="$ud_v" style="background-color:$ud_c">$ud_y $ud +$df_data[$df_a][4]<br>
+指揮力[LR] <img src="$imgs/spc.gif" height="8" width="$lr_v" style="background-color:$lr_c"> $lr<br>
+敏捷力[AG] <img src="$imgs/spc.gif" height="8" width="$ag_v" style="background-color:$ag_c"> $ag<br>
+<br>
+資　金 <b>$gold</b>　経験値 <b>$exe/$next_lv</b>　貢献値 <b>$rank_exe</b><br>
+<br>
+所　属 <b>$cmp[$camp]</b>　部　隊 <b>$g_p[$rank]</b>　訓練度 <b>$sol_lv</b><br>
+<br>
+武　具 [<b>$dg_data[$dg_a][1]</b>]　回数 [<b>$dg_cnt</b>]<br>
+防　具 [<b>$df_data[$df_a][1]</b>]　回数 [<b>$df_cnt</b>]<br>
+道　具 [<b>$di_data[$di_a][1]</b>]　回数 [<b>$di_cnt</b>]
+</tt>
+EOM
+
+}
+
+
+
+
+
+1;#削除不可
@@ -0,0 +1,305 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反 										#
+#  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/				#
+#-----------------------------------------------------------#
+
+#===============================================================================
+# 各種掲示板共通設定項目
+
+require './jcode.pl';					# jcode.plのパス
+
+$ore_game	= './ore_.cgi';				# 罪と罰++本体のパス
+$index		= './index.cgi';			# 罪と罰++トップページ
+$usrdata	= "./usrdata/";				# キャラデータ格納ディレクトリ。
+
+$no_window	= 1;						# 現状維持・拘束時間以外の他窓禁止(0:なし 1:あり)[負荷対策]
+
+# 各国設定情報
+@camp_info	=(	['無所属',		'#eeeeee'],
+				['ｱﾙﾒﾘｱ王国',	'#ee9999'],
+				['ﾌﾗﾘﾝ教国',	'#00eeee'],
+				['ｲｷﾞｽ連合国',	'#88ee88'],
+				['ｿｰﾃﾞｨﾅ帝国',	'#ffccff'],
+				['ﾔﾏﾄ神国',		'#55bbff']);
+
+# 称号
+@sogo_p	 	=('----','覇者','英雄','借金王','鬼畜',' ',' ',' ',' ',' ','管理人');
+
+# デバックモード
+# なし:PC･ﾓﾊﾞｲﾙ両対応
+# pc  :PC限定モード(ﾓﾊﾞｲﾙ非対応)
+# mv  :ﾓﾊﾞｲﾙ固定モード(PC上でモバイル画面をエミュレート表示)
+$mv_mode	= '';
+
+# 機種別設定
+if(	$ENV{'HTTP_USER_AGENT'}=~/DoCoMo/ ||
+	$ENV{'HTTP_USER_AGENT'}=~/UP\.Browser/ ||
+	$ENV{'HTTP_USER_AGENT'}=~/J-PHONE/ ||
+	$ENV{'HTTP_USER_AGENT'}=~/ASTEL/ ||
+	$ENV{'HTTP_X_JPHONE_MSNAME'} || $mv_mode eq 'mv'){
+
+	$mv_mode= 'mv';						# ﾓﾊﾞｲﾙ用フラグ(変更不可)
+	$method	= "GET";					# フォームメソッド(ﾓﾊﾞｲﾙ)
+}else{
+
+	$mv_mode= 'pc';						# PC用フラグ(変更不可)
+	$method	= "POST";					# フォームメソッド(PC)
+
+	# スタイルシート
+	$css	=<<EOM;
+<style type="text/css">
+<!--
+.button1{
+	font-family: "ＭＳ Ｐゴシック", "Osaka"; font-size: 12px; font-weight: 400; color: #bbbbcc;
+	border: 2px #9999cc ridge; cursor: hand; background-color: #333366;
+}
+body	{ font-size: 12pt;}
+.mem	{ font-size: 10pt; color:#ddddee}
+.date	{ font-size: 10pt; color:#dddddd}
+.f1{font-size:16pt; font-family:'Symbol','Palatino'; color:#ff99cc;}
+-->
+</style>
+EOM
+
+}
+
+# ホスト名取得モード
+#  --> 0 : $ENV{'REMOTE_HOST'} で取得できる場合
+#  --> 1 : gethostbyaddr で取得できる場合
+$get_remotehost	= 1;
+
+# 他サイトから投稿排除時に指定 (http://から書く)
+$base_url = "";
+
+# アクセス制限(ホスト名もしくはIPアドレスを記述)
+@deny	 = (
+	"anonymizer.com",
+	"cache*.*.interlog.com",
+	"",
+	""
+	);
+
+
+#===============================================================================
+# 以下処理 基本的にこれ以下はいじらないように。
+
+#-------------------------------------------------------------------------------
+# 参加者データ個別読み込み
+sub mandata_open{
+
+	open(IN,"$usrdata$id\.cgi") || &error("Open Error : $usrdata$id\.cgi");
+	$dat = <IN>;
+	close(IN);
+
+	%DAT = '';
+	my @prats = split(/,/,$dat);
+	foreach (0 .. $#prats){
+		my($key,$v) = split(/;/,$prats[$_]);
+		$DAT{$key} = $v;
+	}
+
+	if($pw ne $DAT{'pw'}){ &error("パスワードが間違ってます"); }
+
+	if($no_window){
+		&error("現在のイベントを終了してからご利用ください。") if($DAT{'pr'}<=0 && $DAT{'type'});
+	}
+
+}
+
+#-------------------------------------------------------------------------------
+# デコード処理
+sub decode {
+	local($buffer, @pairs, $name, $value);
+	$post_flag=0;
+	if($ENV{'REQUEST_METHOD'} eq "POST"){
+		$post_flag=1;
+		&error("投稿量が大きすぎます") if($ENV{'CONTENT_LENGTH'}>8192);
+		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
+	}else{
+		$buffer = $ENV{'QUERY_STRING'};
+		&error("投稿量が大きすぎます") if(length($buffer)>7500)
+	}
+	@pairs = split(/&/, $buffer);
+	foreach (@pairs) {
+		($name,$value) = split(/=/);
+		$value =~ tr/+/ /;
+		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
+
+		# 文字コードをシフトJIS変換
+		&jcode'convert(*value, "sjis", "", "z");
+
+		$value =~ s/\&/&amp\;/g;
+		$value =~ s/\;/&#59\;/g;
+		$value =~ s/\,/&#44\;/g;
+
+		# タグ処理
+		if ($tagkey) {
+			$value =~ s/<!--(.|\n)*-->//g;
+			$value =~ s/<>/&lt;&gt;/g;
+		} else {
+			$value =~ s/</&lt;/g;
+			$value =~ s/>/&gt;/g;
+			$value =~ s/\"/&quot;/g;
+		}
+
+		# 改行等処理
+		if ($name eq "comment" && $br_mode) {
+			$value =~ s/\r\n/<br>/g;
+			$value =~ s/\r/<br>/g;
+			$value =~ s/\n/<br>/g;
+		} else {
+			$value =~ s/\r//g;
+			$value =~ s/\n//g;
+		}
+
+		# 荒らし処理 1
+		$value =~ s/(<br>){4,}//g;
+		$value =~ s/( |　){6,}//g;
+
+		# 記号置換え
+		$value =~ s/\//&#47\;/g;
+		$value =~ s/\./&#46\;/g;
+		$value =~ s/cgi/&#99\;&#103\;&#105\;/g;
+
+		$in{$name} = $value;
+	}
+
+	&no_link($in{'comment'}) if($nolink);
+
+	$com	= $in{'comment'};	if(length($in{'comment'})>$com_limit)		{ &error("文字数エラーです 1"); }
+	$mode	= $in{'mode'};		if(length($in{'mode'})>10)					{ &error("文字数エラーです 2"); }
+	$pw		= $in{'pw'};		if(length($in{'pw'})>8 || !$in{'pw'})		{ &error("文字数エラーです 3"); }
+	$id		= $in{'id'};		if(length($in{'id'})>24 || !$in{'id'})		{ &error("文字数エラーです 4"); }
+	$ids	= $in{'ids'};		if(length($in{'ids'})>12)					{ &error("文字数エラーです 5"); }
+	$rd		= $in{'rd'};		if(length($in{'rd'})>1)						{ &error("文字数エラーです 6"); }
+
+	if ($base_url) {
+		$ref_url = $ENV{'HTTP_REFERER'};
+		$ref_url =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
+		if ($ref_url !~ /$base_url/i) { &error("不正なアクセスです"); }
+	}
+}
+
+#-------------------------------------------------------------------------------
+# エラー処理
+sub error {
+	if (-e $lockfile) { unlink($lockfile); }
+
+	&header(1);
+	print "<center><hr width='75%'><P><h3>ERROR !</h3>\n";
+	print "<P><font color=red><B>$_[0]</B></font>\n";
+	print "<P><hr width='75%'></center>\n";
+	&copyright;
+	exit;
+}
+
+#-------------------------------------------------------------------------------
+# ロックファイルの生成
+sub lock {
+	local($lflag) = 0;
+	foreach (1 .. 5) {
+		if (-e $lockfile) { sleep(1); }
+		else {
+			open(LOCK,">$lockfile") || &error("Can't create $lockfile");
+			close(LOCK);
+			$lflag = 1;
+			last;
+		}
+	}
+	if ($lflag == 0) { &error("LOCK is BUSY"); }
+}
+
+#-------------------------------------------------------------------------------
+# アクセスチェック(アクセス拒否)
+sub axs_check {
+	&get_host;
+
+	local($flag)=0;
+	foreach (@deny) {
+		if (!$_) { next; }
+		$_ =~ s/\*/\.\*/g;
+		if ($host =~ /$_/i || $addr =~ /$_/i) { $flag=1; last; }
+	}
+	if ($flag) { &error("アクセスを許可されていません"); }
+}
+
+#-------------------------------------------------------------------------------
+# ホスト情報取得
+sub get_host {
+	$host = $ENV{'REMOTE_HOST'};
+	$addr = $ENV{'REMOTE_ADDR'};
+	$agent = $ENV{'HTTP_USER_AGENT'};
+
+	if ($get_remotehost) {
+		if ($host eq "" || $host eq "$addr") {
+			$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
+		}
+	}
+	if ($host eq "") { $host = $addr; }
+}
+
+#-------------------------------------------------------------------------------
+# 時間取得
+sub get_time {
+	$time = time;
+	($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime($time);
+	$hour= "0$hour" if($hour<10);
+	$min = "0$min" if($min<10);
+	$sec = "0$sec" if($sec<10);
+	$month++;
+	$month = "0$month" if(month<10);
+	@week=('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
+	$date = "$month/$mday($week[$wday]) $hour:$min";
+	srand($time);
+}
+
+#-------------------------------------------------------------------------------
+# プレイ規制
+sub safetime {
+	foreach (0 .. $#safetime){
+		&error("プレイ規制時間中です。暫くお待ち下さい。") if $hour eq $safetime[$_];
+	}
+}
+
+#-------------------------------------------------------------------------------
+# URL排除
+sub no_link {
+	$_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1<!-- $2 -->/g;
+}
+
+#-------------------------------------------------------------------------------
+# 削除変更不可 必ず表示すること
+#著作権表示(削除･変更不可)
+sub copyright{
+	if($mv_mode eq 'mv'){
+		print <<"EOM";
+<br><hr color="white">
+過去の栄光 $ver<br>
+<a href="http://pom.to/" target="_blank">BLANK BOARD[ねっと遊園地♪]</a>
+</body>
+</html>
+EOM
+	}else{
+		print <<"EOM";
+<div align="right" style="font-size:12px">
+$ver<br>
+<a href="http://www17.big.or.jp/~obochan/vivid/" target="_blank" style="font-size:13px">Vivid Studio.</a><br>
+<a href="http://pom.to/" target="_blank" style="font-size:11px">BLANK BOARD[ねっと遊園地♪]</a>
+</div>
+</body>
+</html>
+EOM
+	}
+}
+
+
+
+
+1;#削除不可
@@ -0,0 +1,142 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反 										#
+#  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
+#--- [注意事項] --------------------------------------------#
+# 1.このスクリプトは以下の利用規程に従って配布しています。	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#-------------------------------------------------------------------------------
+# 仕官メニュー
+sub changes{
+
+	if(!$type){
+
+		&usrdata_read;
+		&usrdata_open;
+		require './inc/ore_sub-members-p1.cgi';&member_list;
+
+		$log .= "参加者集計を更新します。<br>\n";
+		$log .= "全参加者:$all_mem<br>$cmp[0]:$c0<br>$cmp[1]:$c1/$c1a<br>$cmp[2]:$c2/$c2a<br>$cmp[3]:$c3/$c3a<br>$cmp[4]:$c4/$c4a<br>$cmp[5]:$c5/$c5a<br>\n" if($mv_mode eq 'pc');
+		$tm=0;
+		$type='仕官';
+
+		&changes_menu1;
+
+	}
+
+	&dat_write;
+}
+
+sub changes_menu1{
+
+	$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|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+}
+
+sub changes_menu2{
+
+	$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|;
+	$log2 .=qq|<option value="-1">やめる</option>\n|;
+	foreach(0 .. $#cmp){ $log2 .=qq|<option value="$_">$cmp[$_]</option>\n|;}
+	$log2 .=qq|</select><br>\n|;
+	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+}
+
+#-------------------------------------------------------------------------------
+# 仕官処理
+sub changes_exe{
+
+	if(!$tm){
+
+		$log .= "現在の所属から新たな所属へ<br>\n";
+		$tm=1;
+		$type='仕官';
+
+		&changes_menu2;
+
+	}elsif($tm==1){
+
+		if($cmd<=-1 || $cmd>$#cmp){
+			$log .= "やめておきます<br>\n";
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+		}elsif($cmd>=0 && (($c1 >= $c1a && $cmd == 1)||($c2 >= $c2a && $cmd == 2)||($c3 >= $c3a && $cmd == 3)||($c4 >= $c4a && $cmd == 4)||($c5 >= $c5a && $cmd == 5))){
+			for($i=1,$j=1;$i<=$#cmp;$i++,$j++){
+				if($cmd==$j){
+					$log .= "$cmp[$i] は定員一杯で入国できません<br>\n";
+				}
+			}
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+		}elsif($lv < $clv){
+			$log .= "仕官はレベル $clv からです。<br>まずは修行で己を鍛えてください。<br>\n";
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+		}else{
+
+			if($lv >= 20 && $camp && $cmd){#ﾚﾍﾞﾙが15以上で先が無所属以外で元が無所属以外(国→国)
+				$gold -=(15-$rank)*(int($lv/4))*8;
+				$log .= "国家移籍料金として金貨 $zx を支払います。<br>\n";
+
+				my $zy = $rank*(int($lv/10))*4;
+				if($camp == 1){$cg1 += $zy;}
+				elsif($camp == 2){$cg2 += $zy;}
+				elsif($camp == 3){$cg3 += $zy;}
+				elsif($camp == 4){$cg4 += $zy;}
+				elsif($camp == 5){$cg5 += $zy;}
+				$log .= "$cmp[$camp] の国家\予\算が $zy 上昇した。<br>\n";
+	
+			}elsif($lv >= 20 && !$cmd){#ﾚﾍﾞﾙが15以上で先が無所属(無or国→無)
+
+				$gold -=(15-$rank)*(int($lv/4))*8;
+				$log .= "国家移籍料金として金貨 $zx を支払います。<br>\n";
+	
+				my $zy = $rank*(int($lv/10))*4;
+				if($camp == 1){$cg1 += $zy;}
+				elsif($camp == 2){$cg2 += $zy;}
+				elsif($camp == 3){$cg3 += $zy;}
+				elsif($camp == 4){$cg4 += $zy;}
+				elsif($camp == 5){$cg5 += $zy;}
+				$log .= "$cmp[$camp] の国家\予\算が $zy 上昇した。<br>\n";
+	
+			}
+	
+			$camp = $cmd;
+			#ﾚﾍﾞﾙによる仕官時のマイナス値
+			$rank-=($lv > 40)? int(rand(3))+3 : int(rand(4))+1;
+
+			$rank=1 if($rank<1);
+			$rank=0 if(!$camp);
+			$log .= "$cmp[$camp] へと所属を変え、$cl[$rank] の階級が与えられた<br>\n";
+			$roku=$time;
+
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+		}
+	}
+
+	&write_data;
+
+}
+
+
+
+
+
+1;
@@ -0,0 +1,125 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反										#
+#  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 infomation_com{
+	$log .= qq|現在の $cmp[$camp] の将兵一覧<br>\n|;
+
+	local(@usrfile,@tdat);
+
+	# 参加者データファイル一覧取得/読み込み
+	&usrdata_read;
+	&usrdata_open;
+	require './inc/ore_sub-members-p1.cgi';&member_list;
+
+	if($camp eq'' || $camp < 1 || $camp > 5){
+
+		foreach (0 .. $#tdat){
+
+			%R = '';
+			my @prats = split(/,/,$tdat[$_]);
+			foreach $prats (@prats){
+				my($y,$x) = split(/;/,$prats);
+				$R{$y} = $x;
+			}
+
+			$NM_V				= $R{'nm'};
+			$HP_MAX_V			= $R{'max_hp'};
+			$MP_MAX_V			= $R{'max_mp'};
+			$LV_V				= $R{'rank'};
+			$TM_V				= $R{'lv'};
+			$UA_V				= $R{'ua'};
+			$UD_V				= $R{'ud'};
+			$LR_V				= $R{'lr'};
+			$AG_V				= $R{'ag'};
+			$DG_A_V				= $R{'dg_a'};#武具
+			$DF_A_V				= $R{'df_a'};#防具
+			$SOGO_V				= $R{'sogo'};#称号
+			$SEI_V				= $R{'sei'};#性別
+			$MES_V				= $R{'info_mes'};
+
+			$TYPE_V				= ($R{'type'}) ? "$R{'type'}" : "待機中";
+
+			$cnt				= $_+1;
+
+			if($R{'camp'} == 0){
+				$log .=qq|$cnt位 Lv$TM_V|;
+
+				# 称号
+				$log .= ($SOGO_V > 0) ? "$NM_V [$sogo_p[$SOGO_V]]" : "$NM_V";
+
+				$log .=qq|HP$HP_MAX_V/MP$MP_MAX_V/UA$UA_V/UD$UD_V/LR$LR_V/AG$AG_V $cl[$LV_V]<hr color="white">\n|;
+
+			}
+		}
+
+	}else{
+
+		foreach(0 .. $#tdat){
+			%R = '';
+			my @prats = split(/,/,$tdat[$_]);
+			foreach $prats (@prats){
+				my($y,$x) = split(/;/,$prats);
+				$R{$y} = $x;
+			}
+
+			if($camp == $R{'camp'}){
+				$NM_V{$R{'nm'}}		= $R{'nm'};
+				$HP_MAX_V{$R{'nm'}}	= $R{'max_hp'};
+				$MP_MAX_V{$R{'nm'}}	= $R{'max_mp'};
+				$LV_V{$R{'nm'}}		= $R{'rank'};
+				$TM_V{$R{'nm'}}		= $R{'lv'};
+				$UA_V{$R{'nm'}}		= $R{'ua'};
+				$UD_V{$R{'nm'}}		= $R{'ud'};
+				$LR_V{$R{'nm'}}		= $R{'lr'};
+				$AG_V{$R{'nm'}}		= $R{'ag'};
+				$DG_A{$R{'nm'}}		= $R{'dg_a'};#武具
+				$DF_A{$R{'nm'}}		= $R{'df_a'};#防具
+				$SOGO_V{$R{'nm'}}	=$R{'sogo'};#称号
+				$SEI_V{$R{'nm'}}	=$R{'sei'};#性別
+				$MES_V{$R{'nm'}}	=$R{'info_mes'};
+
+				$TYPE_V{$R{'nm'}}	= ($R{'type'}) ? "$R{'type'}" : "待機中";
+
+				$N_M{$R{'nm'}}		= $_;
+			}
+		}
+
+		$l = $rk = 1;
+		foreach $nm (sort sclv keys(%LV_V)){
+			$lv_v = $LV_V{$nm};
+			next if($lv_v<=0);
+			if($lv_v<$prv_lv){ $rk = $l; }
+
+			$log .="$rk位 Lv$TM_V{$nm} ";
+
+			#称号
+			$log .= ($SOGO_V{$nm} > 0) ? "$NM_V{$nm} [$sogo_p[$SOGO_V{$nm}]]" : "$NM_V{$nm}";
+
+			$log .=qq| HP$HP_MAX_V{$nm}/MP$MP_MAX_V{$nm}/UA$UA_V{$nm}/UD$UD_V{$nm}/LR$LR_V{$nm}/AG$AG_V{$nm} $cl[$lv_v]<hr color="white">\n|;
+
+			$prv_lv = $lv_v;
+			$l++;
+		}
+	}
+
+	$tm = $cmd = 0;
+	$layout_flag=1;
+	&call_main_st;
+}
+
+
+
+
+
+1;#削除不可
@@ -0,0 +1,164 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反										#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://pom.to/ ]							#
+#-----------------------------------------------------------#
+# 情報 PC用サブルーチン	Version 1.0							#
+#--- [注意事項] --------------------------------------------#
+# 1.このスクリプトは以下の利用規程に従って配布しています。	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#-------------------------------------------------------------------------------
+# 情報
+sub infomation_com{
+	$log .= qq|<b style="color:$color[$camp]">現在の $cmp[$camp] に所属する将兵一覧</b><br><br>\n|;
+
+	if($com){
+		if($com =~ /:/){ &error("名前に不正な文字( : )が含まれています｡",1); }
+		if($com =~ /;/){ &error("名前に不正な文字( ; )が含まれています｡",1); }
+		if($com =~ /,/){ &error("名前に不正な文字( , )が含まれています｡",1); }
+		if($com =~ /"/){ &error("名前に不正な文字( \" )が含まれています｡",1); }
+		if($com =~ /'/){ &error("名前に不正な文字( ' )が含まれています｡",1); }
+		if($com =~ /\//){ &error("名前に不正な文字( / )が含まれています｡",1); }
+		if(length($com)>80){ &error("全角40文字までです。",1); }
+		$com =~ s/\n//g;
+		$info_mes=$com;
+	}
+
+	local(@usrfile,@tdat);
+
+	# 参加者データファイル一覧取得/読み込み
+	&usrdata_read;
+	&usrdata_open;
+	require './inc/ore_sub-members-p1.cgi';&member_list;
+
+	if($camp eq'' || $camp < 1 || $camp > 5){
+
+		$log .= "<table border=0 cellpadding=2 cellspacing=2 width=100%>\n<tr align=center bgcolor=#ccccee><td>順位</td><td>LV</td><td>名前</td><td>体力/精神</td><td>攻撃/防御/指揮/敏捷</td><td>武具</td><td>防具</td><td>階級</td><td>行動</td></tr>";
+
+		foreach (0 .. $#tdat){
+
+			%R = '';
+			my @prats = split(/,/,$tdat[$_]);
+			foreach $prats (@prats){
+				my($y,$x) = split(/;/,$prats);
+				$R{$y} = $x;
+			}
+
+			$NM_V				= $R{'nm'};
+			$HP_MAX_V			= $R{'max_hp'};
+			$MP_MAX_V			= $R{'max_mp'};
+			$LV_V				= $R{'rank'};
+			$TM_V				= $R{'lv'};
+			$UA_V				= $R{'ua'};
+			$UD_V				= $R{'ud'};
+			$LR_V				= $R{'lr'};
+			$AG_V				= $R{'ag'};
+			$DG_A_V				= $R{'dg_a'};#武具
+			$DF_A_V				= $R{'df_a'};#防具
+			$SOGO_V				= $R{'sogo'};#称号
+			$SEI_V				= $R{'sei'};#性別
+			$MES_V				= $R{'info_mes'};
+
+			$TYPE_V				= ($R{'type'}) ? "$R{'type'}" : "待機中";
+
+			$cnt				= $_+1;
+
+			if($R{'camp'} == 0){
+				$log .=qq|<tr align="center" bgcolor="#ccccee"><td>$cnt</td><td>$TM_V</td><td>|;
+
+				# 称号
+				$log .= ($SOGO_V > 0) ? "$NM_V <small>[$sogo_p[$SOGO_V]]</small>" : "$NM_V";
+
+				$log .="</td><td>$HP_MAX_V/$MP_MAX_V</td><td align=center>$UA_V/$UD_V/$LR_V/$AG_V</td><td>$dg_data[$DG_A_V][1]</td><td>$df_data[$DF_A_V][1]</td><td>$cl[$LV_V]</td><td></td>$TYPE_V</tr>\n";
+
+				$log .=qq|<tr align="left" bgcolor="#ccccee"><td style="font-size:12px" colspan="8">&gt;&gt; 備考: $seibetu[$SEI_V]&nbsp;&nbsp;&nbsp;&nbsp;格言: $MES_V</td></tr>\n|;
+			}
+		}
+
+	}else{
+
+		foreach(0 .. $#tdat){
+			%R = '';
+			my @prats = split(/,/,$tdat[$_]);
+			foreach $prats (@prats){
+				my($y,$x) = split(/;/,$prats);
+				$R{$y} = $x;
+			}
+
+			if($camp == $R{'camp'}){
+				$NM_V{$R{'nm'}}		= $R{'nm'};
+				$HP_MAX_V{$R{'nm'}}	= $R{'max_hp'};
+				$MP_MAX_V{$R{'nm'}}	= $R{'max_mp'};
+				$LV_V{$R{'nm'}}		= $R{'rank'};
+				$TM_V{$R{'nm'}}		= $R{'lv'};
+				$UA_V{$R{'nm'}}		= $R{'ua'};
+				$UD_V{$R{'nm'}}		= $R{'ud'};
+				$LR_V{$R{'nm'}}		= $R{'lr'};
+				$AG_V{$R{'nm'}}		= $R{'ag'};
+				$DG_A{$R{'nm'}}		= $R{'dg_a'};#武具
+				$DF_A{$R{'nm'}}		= $R{'df_a'};#防具
+				$SOGO_V{$R{'nm'}}	=$R{'sogo'};#称号
+				$SEI_V{$R{'nm'}}	=$R{'sei'};#性別
+				$MES_V{$R{'nm'}}	=$R{'info_mes'};
+
+				$TYPE_V{$R{'nm'}}	= ($R{'type'}) ? "$R{'type'}" : "待機中";
+
+				$N_M{$R{'nm'}}		= $_;
+			}
+		}
+
+		$log .=qq|<table border="0" cellpadding="2" cellspacing="2" width="100%">\n<tr align="center" bgcolor="#ccccee"><td style="font-size:12px">順位</td><td style="font-size:12px">LV</td><td style="font-size:12px">名前</td><td style="font-size:12px">体力/精神</td><td style="font-size:12px">攻撃/防御/指揮/敏捷</td><td style="font-size:12px">武具</td><td style="font-size:12px">防具</td><td style="font-size:12px">階級</td><td style="font-size:12px">行動</td></tr>|;
+
+		$l = $rk = 1;
+		foreach $nm (sort sclv keys(%LV_V)){
+			$lv_v = $LV_V{$nm};
+			next if($lv_v<=0);
+			if($lv_v<$prv_lv){ $rk = $l; }
+
+			$log .="<tr align=center bgcolor=#ccccee><td>$rk</td><td>$TM_V{$nm}</td><td>";
+
+			#称号
+			$log .= ($SOGO_V{$nm} > 0) ? "$NM_V{$nm} <small>[$sogo_p[$SOGO_V{$nm}]]</small>" : "$NM_V{$nm}";
+
+			$log .="</td><td>$HP_MAX_V{$nm}/$MP_MAX_V{$nm}</td><td align=center>$UA_V{$nm}/$UD_V{$nm}/$LR_V{$nm}/$AG_V{$nm}</td><td>$dg_data[$DG_A{$nm}][1]</td><td>$df_data[$DF_A{$nm}][1]</td><td>$cl[$lv_v]</td><td>$TYPE_V{$nm}</td></tr>\n";
+
+			$log .=qq|<tr align="left" bgcolor="#ccccee"><td style="font-size:12px" colspan="9">&gt;&gt; 備考: $seibetu[$SEI_V{$nm}]&nbsp;&nbsp;&nbsp;&nbsp;格言: $MES_V{$nm}</td></tr>\n|;
+
+			$prv_lv = $lv_v;
+			$l++;
+		}
+	}
+
+	$log .="</table>\n";
+
+	$log.=<<EOM;
+<br><br>
+<div align="center" class="moji2">
+<form method="$method" action="$script" name="ore_">
+<input type="hidden" name="id" value="$id">
+<input type="hidden" name="pw" value="$pw">
+<input type="hidden" name="cmd" value="6">
+<input type=text name="com" class="button2" style="width:360px">
+<input type=submit value="ﾎﾟﾁｯ/更新" class="button2" style="width:100px">
+<input type=reset value="ｸﾘｱ"  class="button2" style="width:40px">
+<br>
+コメントは全角40文字まで。
+</form>
+</div>
+EOM
+
+	$log .="</table>\n";
+
+	$tm = $cmd = 0;
+	$layout_flag=1;
+	&call_main_st;
+}
+
+
+
+
+
+1;#削除不可
@@ -0,0 +1,152 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反 										#
+#  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 main_st { # メイン
+
+	# 回復
+
+	$hrg=int($time-$la);
+	$hrg=int($hrg/$hrg_time);
+	$hrg=0 if($hrg<1);
+	$d=$time;
+	$d=$d-$roku;
+
+	if($ck!=1){
+		for($x=0;$x<$hrg;++$x){
+			$hp++;
+			$mp++;
+		}
+	}
+
+	$hp=$max_hp if($hp>$max_hp);
+	$mp=$max_mp if($mp>$max_mp);
+
+	# 給料
+
+	if($camp>0&&$d>21600){
+		$v=$g_p[$rank];
+		$v=int($v/5);
+		$v=int($my_cn*0.8)+$v;
+		$gold+=$v;
+		$log .= " $v の給与が支給された<br>";
+		$d-=21600;
+		$roku=$time;
+	}
+
+	# データリセット
+
+	if(	$cn1>=$data_reset||
+		$cn2>=$data_reset||
+		$cn3>=$data_reset||
+		$cn4>=$data_reset||
+		$cn5>=$data_reset){
+		$log .="全国統一が成された！<br>国力が初期化されます<br>\n";
+		require './inc/ore_sub-main_reset.cgi';&reset_cdat;
+	}
+	if($set<$time){
+		require './inc/ore_sub-main_reset.cgi';&reset_time_limit;
+	}
+
+	# 経験
+
+	$next_rank=int(($rank*$rank)*3);
+
+	if($rank_exe>=$next_rank){
+		if($camp!=0&&$rank<14){
+			$log .="日頃の仕事ぶりが認められ階級があがった<br>\n";
+			$rank++;
+			$rank_exe-=$next_rank;
+		}
+	}
+
+	if($exe>$next_lv){
+		$log .="経験を積みより強く成長した<br>\n";
+		$lv++;
+		$a =int(rand(2));
+		$max_hp +=int($a);
+		$b =int(rand(2));
+		$max_mp +=int($b);
+		$w =int(rand(2));
+		$ua +=int($w);
+		$d =int(rand(2));
+		$ud +=int($d);
+		$l =int(rand(2));
+		$lr +=int($l);
+
+		if($lv<=5){$gg=2;}
+		if($lv<=10){$gg=1;}
+		$g =int(rand(2)+$gg);
+		$ag +=int($g);
+
+		$exe-=$next_lv;
+		$log .="体力が$a上がった<br>精神力が$b上がった<br>攻撃が$w上がった<br>防御が$d上がった<br>指揮が$l上がった<br>敏捷が$g上がった<br>\n";
+	}
+
+	# アナウンス
+
+	if($mes && $pr<1){
+		$log .="$mes<br>\n";
+		$mes='';
+	}
+
+	# 内政義務制
+	if($act_cnt>=$act_cnt_limit && $camp){
+		$log .= "行動セッションが限界に達しています。一度内政を行ってください。<br>\n";
+		$tm=0;
+	}elsif($act_cnt>=$act_cnt_limit && !$camp){
+		$log .= "行動セッションが限界に達しています。休憩してください。<br>\n";
+		$pr=int($GMT/2);
+		$tm=0;
+		# 行動カウントのリセット(無条件)
+		$act_cnt=0;
+	}
+
+	# メインコマンド
+	my @c		 = ('現状維持','修業','内政','戦争','能力','仕官','情報','討伐','軍事');
+
+	$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 .. $#c){ $log2 .=qq|<option value="$_">$c[$_]</option>\n|;}
+	$log2 .=qq|</select><br>\n|;
+	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+	&write_data;
+
+}
+
+#-------------------------------------------------------------------------------
+# 拘束時間
+sub wt_st {
+	$whour = int($pr/3600);
+	$wmin = int(($pr%3600)/60);
+	$wsec = $pr%60;
+	if($whour>0){
+		$wmin = "0$wmin" if($wmin<10);
+		$log .="行動中･･･あと$whour時間$wmin分\n";
+	}elsif($wmin>0){
+		$wsec = "0$wsec" if($wsec<10);
+		$log .="行動中…あと$wmin分\n";
+	}else{
+		$log .="行動中…あと$wsec秒\n";
+	}
+}
+
+
+
+
+
+1;
@@ -0,0 +1,104 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反 										#
+#  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 reset_cdat{
+
+	if($limit_mode){
+		require './inc/ore_sub-members-p1.cgi';
+		&member_adjust;
+	}
+
+	# 旧式・固定モード
+	if(!$reset_cdat){
+		my @camp_pw = (0,4500,4500,3500,5000,3500);	# 国力 変更可能
+		my @camp_gl = (0,900,200,400,250,300);		# 国家予算
+		my @camp_fd = (0,2000,5000,3500,8000,6000);	# 総兵糧
+		my @camp_sl = (0,3000,2500,4000,5000,4000);	# 総兵士数
+
+		$cn1=$camp_pw[1];
+		$cg1=$camp_gl[1];
+		$cf1=$camp_fd[1];
+		$cs1=$camp_sl[1];
+
+		$cn2=$camp_pw[2];
+		$cg2=$camp_gl[2];
+		$cf2=$camp_fd[2];
+		$cs2=$camp_sl[2];
+
+		$cn3=$camp_pw[3];
+		$cg3=$camp_gl[3];
+		$cf3=$camp_fd[3];
+		$cs3=$camp_sl[3];
+
+		$cn4=$camp_pw[4];
+		$cg4=$camp_gl[4];
+		$cf4=$camp_fd[4];
+		$cs4=$camp_sl[4];
+
+		$cn5=$camp_pw[5];
+		$cg5=$camp_gl[5];
+		$cf5=$camp_fd[5];
+		$cs5=$camp_sl[5];
+	}
+
+	# ランダムモード
+	else{
+
+		# リセット処理
+
+		$cn1=int(rand(40))*100+2500;
+		$cn2=int(rand(40))*100+2500;
+		$cn3=int(rand(40))*100+2500;
+		$cn4=int(rand(40))*100+2500;
+		$cn5=int(rand(40))*100+2500;
+
+		$cg1=int(rand(50))*20+200;
+		$cg2=int(rand(50))*20+200;
+		$cg3=int(rand(50))*20+200;
+		$cg4=int(rand(50))*20+200;
+		$cg5=int(rand(50))*20+200;
+
+		$cf1=int(rand(60))*100+2500;
+		$cf2=int(rand(60))*100+2500;
+		$cf3=int(rand(60))*100+2500;
+		$cf4=int(rand(60))*100+2500;
+		$cf5=int(rand(60))*100+2500;
+
+		$cs1=int(rand(60))*50+2000;
+		$cs2=int(rand(60))*50+2000;
+		$cs3=int(rand(60))*50+2000;
+		$cs4=int(rand(60))*50+2000;
+		$cs5=int(rand(60))*50+2000;
+	}
+	$ce1=$ce2=$ce3=$ce4=$ce5=0;
+	$set=$reset_time_limit * 3600 * 24 + $time;
+	$goal_no++;
+	# 国データを配列化したいけど、めんどくさいからいいや・・・。
+}
+
+#-------------------------------------------------------------------------------
+# タイムアウトによるリセット
+sub reset_time_limit{
+
+	$log .="長き年月が過ぎたが、戦乱の世を制する覇者は最後まで出現しなかった。<br>各国データがリセットされます。\n";
+	$wr_mes="長き年月が過ぎたが、戦乱の世を制する覇者は最後まで出現しなかった。各国データがリセットされた";
+	&reset_cdat;
+	&hist_write;
+}
+
+
+
+
+
+1;
@@ -0,0 +1,54 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反										#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://pom.to/ ]							#
+#-----------------------------------------------------------#
+# マップ PC用サブルーチン	Version 1.0						#
+#--- [注意事項] --------------------------------------------#
+# 1.このスクリプトは以下の利用規程に従って配布しています。	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#############################################################
+# 以下処理 基本的にこれ以下はいじらないように。
+
+#-------------------------------------------------------------------------------
+# クリッカブルマップ
+sub mapdata{
+$log.=<<EOM;
+<tt><br>　<br></tt><table width=440 cellspacing=1 cellpadding=0 height=360 bordercolor=#000000>
+<tr>
+<td width=55 height=45>　</td><td width=55>　</td><td width=55 bgcolor=$color[4]>　</td><td width=55>　</td><td width=55>　</td><td width=55>　</td><td width=55 bgcolor=$color[5]>　</td><td width=55>　</td>
+</tr><tr>
+<td height=45>　</td><td bgcolor=$color[4]>　</td><td bgcolor=$color[4]>　</td><td bgcolor=$color[1]>　</td><td bgcolor=$color[1]>　</td><td>　</td>
+<td bgcolor=$color[5]><a style="color:white" href="$script?id=$id&pw=$pw&cmd=5"><b class=map>$cmp[5]</b></a></td>
+<td bgcolor=$color[5]>　</td>
+</tr><tr>
+<td bgcolor=$color[4] height=45>　</td><td bgcolor=$color[4]>　</td>
+<td bgcolor=$color[4]><a style="color:white" href="$script?id=$id&pw=$pw&cmd=4"><b class=map>$cmp[4]</b></a></td>
+<td bgcolor=$color[4]>　</td><td bgcolor=$color[1]>　</td><td>　</td><td bgcolor=$color[5]>　</td><td bgcolor=$color[5]>　</td>
+</tr><tr>
+<td height=45>　</td><td bgcolor=$color[4]>　</td><td bgcolor=$color[4]>　</td><td bgcolor=$color[1]>　</td><td bgcolor=$color[1]><a style="color:white" href="$script?id=$id&pw=$pw&cmd=1"><b class=map>$cmp[1]</b></a></td>
+<td bgcolor=$color[1]>　</td><td>　</td><td bgcolor=$color[5]>　</td>
+</tr><tr>
+<td bgcolor=$color[2] height=45>　</td><td bgcolor=$color[2]>　</td><td bgcolor=$color[4]>　</td>
+<td bgcolor=$color[4]><small>永遠の証<br>跡地</small></td>
+<td bgcolor=$color[1]>　</td><td bgcolor=$color[1]>　</td><td>　</td><td>　</td>
+</tr><tr>
+<td height=45>　</td><td bgcolor=$color[2]>　</td>
+<td bgcolor=$color[2]><a style="color:white" href="$script?id=$id&pw=$pw&cmd=2"><b class=map>$cmp[2]</b></a></td>
+<td bgcolor=$color[2]>　</td><td bgcolor=$color[3]>　</td><td bgcolor=$color[3]>　</td><td bgcolor=$color[3]>　</td><td>　</td>
+</tr><tr>
+<td height=45>　</td><td>　</td><td bgcolor=$color[2]>　</td><td bgcolor=$color[3]>　</td>
+<td bgcolor=$color[3]><a style="color:white" href="$script?id=$id&pw=$pw&cmd=3"><b class=map>$cmp[3]</b></a></td>
+<td bgcolor=$color[3]>　</td><td>　</td><td>　</td>
+</tr><tr>
+<td height=45>　</td><td>　</td><td>　</td><td>　</td><td bgcolor=$color[3]>　</td><td>　</td><td>　</td><td>　</td>
+</tr></table><tt><br><b>ｴﾙﾀﾆｱ ﾜｰﾙﾄﾞﾏｯﾌﾟ</b><br></tt>
+EOM
+}
+
+
+
+
+
+1;#削除不可
@@ -0,0 +1,106 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反 										#
+#  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 member_list{
+
+	$all_mem=$#tdat+1;
+
+	# 参加者合計取得
+	$c0 = grep(/camp;0/, @tdat);
+	$c1 = grep(/camp;1/, @tdat);
+	$c2 = grep(/camp;2/, @tdat);
+	$c3 = grep(/camp;3/, @tdat);
+	$c4 = grep(/camp;4/, @tdat);
+	$c5 = grep(/camp;5/, @tdat);
+
+	if($limit_mode){
+		$c1a = $c2a = $c3a = $c4a = $c5a = ($all_mem<18) ?  3 : int($all_mem/6)+1 ;
+		&member_adjust if(!$member_flag);
+	}
+
+	&cdat_write;
+}
+
+#-------------------------------------------------------------------------------
+# 前回統一の優劣設定(参加人数)
+sub member_adjust{
+
+	$c1a = $c2a = $c3a = $c4a = $c5a = ($all_mem<18) ?  3 : int($all_mem/6)+1 ;
+
+	local($rca_p,$rca_m);
+	$rca_p=1 if($all_mem<50);
+	$rca_p=2 if($all_mem=>50 && $all_mem<100);
+	$rca_p=3 if($all_mem=>100 && $all_mem<150);
+	$rca_p=4 if($all_mem=>150 && $all_mem<200);
+	$rca_p=5 if($all_mem=>200);
+
+	if($all_mem<50){
+		$rca_p=0;
+		$rca_m=-1;
+	}
+	elsif($all_mem=>50 && $all_mem<100){
+		$rca_p=0;
+		$rca_m=-2;
+	}
+	elsif($all_mem=>100 && $all_mem<150){
+		$rca_p=1;
+		$rca_m=-3;
+	}
+	elsif($all_mem=>150 && $all_mem<200){
+		$rca_p=1;
+		$rca_m=-4;
+	}
+	elsif($all_mem=>200){
+		$rca_p=2;
+		$rca_m=-5;
+	}
+
+	if($cn1>=$data_reset || $hcamp==1){
+		$c1a +=$rca_m;
+		$c2a +=$rca_p;
+		$c3a +=$rca_p;
+		$c4a +=$rca_p;
+		$c5a +=$rca_p;
+	}elsif($cn2>=$data_reset || $hcamp==2){
+		$c1a +=$rca_p;
+		$c2a +=$rca_m;
+		$c3a +=$rca_p;
+		$c4a +=$rca_p;
+		$c5a +=$rca_p;
+	}elsif($cn3>=$data_reset || $hcamp==3){
+		$c1a +=$rca_p;
+		$c2a +=$rca_p;
+		$c3a +=$rca_m;
+		$c4a +=$rca_p;
+		$c5a +=$rca_p;
+	}elsif($cn4>=$data_reset || $hcamp==4){
+		$c1a +=$rca_p;
+		$c2a +=$rca_p;
+		$c3a +=$rca_p;
+		$c4a +=$rca_m;
+		$c5a +=$rca_p;
+	}elsif($cn5>=$data_reset || $hcamp==5){
+		$c1a +=$rca_p;
+		$c2a +=$rca_p;
+		$c3a +=$rca_p;
+		$c4a +=$rca_p;
+		$c5a +=$rca_m;
+	}
+}
+
+
+
+
+
+1;
@@ -0,0 +1,436 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反 										#
+#  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 mission{
+
+	if(!$type){
+
+		$log .= "軍事を行います。実行するものを選んで下さい。<br>\n";
+		$tm=0;
+		$type='軍事';
+
+		&mission_menu;
+
+	}
+
+	&dat_write;
+}
+
+sub mission_menu{
+
+	# 軍事コマンド
+	my @gu		 = ('やめる','諜報','強奪','洗脳');
+
+	$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|;
+}
+
+
+sub misson_menu2{
+	$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|;
+	$log2 .=qq|<option value="0">やめる</option>\n|;
+	foreach(1 .. $#cmp){ $log2 .=qq|<option value="$_">$cmp[$_]</option>\n|;}
+	$log2 .=qq|</select><br>\n|;
+	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+}
+
+#-------------------------------------------------------------------------------
+#軍事処理
+sub mission_exe{
+
+	if(!$tm){
+
+		if($camp<1){
+			$log .= "放浪の身でこの軍事は行なえません。<br>\n";
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+		}elsif($sogo==3||$sogo==4){
+			$log .= "まずは借金を返済して$sogo_p[$sogo] の烙印を消してください。<br>\n";
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+		}elsif($cmd<=0 || $cmd>$#cmp){
+			$log .= "軍事を中止します<br>\n";
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+		}elsif($cmd==1){
+			$log .= "敵国に諜報員を送り込み、資金調達ﾙｰﾄをかく乱させます。<br>標的国を選んで下さい<br>\n";
+			&call_mapdata if($mv_mode eq 'pc');
+			&misson_menu2;
+			$tm=31;
+		}elsif($cmd==2){
+			$log .= "敵国の兵糧を強奪します。標的国を選んで下さい(ｸﾘｯｶﾌﾞﾙﾏｯﾌﾟ対応)<br>\n";
+			&call_mapdata if($mv_mode eq 'pc');
+			&misson_menu2;
+			$tm=32;
+		}elsif($cmd==3){
+			$log .= "敵国の兵士を洗脳し、自国へ引き入れます。<br>標的国を選んで下さい<br>\n";
+			&call_mapdata if($mv_mode eq 'pc');
+			&misson_menu2;
+			$tm=33;
+		}
+	}elsif($tm==31){#諜報内容1
+		&gun_tm31;
+	}elsif($tm==32){#略奪内容1
+		&gun_tm32;
+	}elsif($tm==33){#洗脳内容1
+		&gun_tm33;
+	}elsif($tm==34){#諜報内容2
+		&gun_tm34;
+	}elsif($tm==35){#強奪内容2
+		&gun_tm35;
+	}elsif($tm==36){#洗脳内容2
+		&gun_tm36;
+	}
+
+	&write_data;
+}
+
+#洗脳内容
+sub gun_tm33{
+
+	if($cmd<=0){
+		$log .= "洗脳を中止します<br>\n";
+		$tm = $cmd = 0;
+		&mission_menu;
+	}elsif($cmd>0){
+		$v=$cmd;
+		if($v==$camp){
+			$log .= "自国は洗脳できません。<br>\n";
+			$tm = $cmd = 0;
+			&mission_menu;
+		}elsif(	(($cmd==1&&$cs1<2500) || ($cmd==1&&$ce1==1))||
+				(($cmd==2&&$cs2<2500) || ($cmd==2&&$ce2==1))||
+				(($cmd==3&&$cs3<2500) || ($cmd==3&&$ce3==1))||
+				(($cmd==4&&$cs4<2500) || ($cmd==4&&$ce4==1))||
+				(($cmd==5&&$cs5<2500) || ($cmd==5&&$ce5==1))){
+			$log .= "亡国または、総兵士数2500未満の国を洗脳することはできません。<br>\n";
+			$tm = $cmd = 0;
+			&misson_menu2;
+		}elsif($v==0){
+			$log .= "<br>\n";
+			$tm = $cmd = 0;
+			&mission_menu;
+		}else{
+			$log .= "$cmp[$v]の兵士陣を洗脳します。<br>\n";
+			$log .= "催眠術師を送り込みます。敵国国境まで$GMW時間です<br>\n";
+
+			$nation=$v;
+			$pr=$GMT;
+			$tm=36;
+		}
+	}
+}
+
+#洗脳内容2
+sub gun_tm36{
+
+	&syogo;
+
+	$vv=int(rand(3));
+	if($vv > 0){#成功確率
+
+		$mes = "$cmp[$nation] の 兵士陣の洗脳に成功しました！<br>$cmp[$nation] から";
+
+		$wr_mes ="$date $cmp[$camp] の $syogo が $cmp[$nation] の兵士";
+
+		$v=int(((rand(10)+1)*5)*$lr);
+		$v=2300 + int(rand(300)) if($v>2300);
+		$rank_exe++;
+		$mes .= "$v 人の兵士を洗脳し、$cmp[$camp]の兵として取り込みました。";
+
+		$wr_mes .="$v 人を洗脳することに成功！ $cmp[$camp]の兵として取り込みました";
+
+		if($camp==1){
+			$cs1 += $v;
+		}elsif($camp==2){
+			$cs2 += $v;
+		}elsif($camp==3){
+			$cs3 += $v;
+		}elsif($camp==4){
+			$cs4 += $v;
+		}elsif($camp==5){
+			$cs5 += $v;
+		}
+		if($nation==1 && $cs1>=$v){
+			$cs1 -= $v;
+		}elsif($nation==2 && $cs2>=$v){
+			$cs2 -= $v;
+		}elsif($nation==3 && $cs3>=$v){
+			$cs3 -= $v;
+		}elsif($nation==4 && $cs4>=$v){
+			$cs4 -= $v;
+		}elsif($nation==5 && $cs5>=$v){
+			$cs5 -= $v;
+		}
+		$nation=0;
+		$tm = $cmd = 0;
+		$type='';
+		&call_main_st;
+
+		&hist_write;#国ログ
+	}else{
+		$mes = "$cmp[$nation] の兵士陣の洗脳に失敗した･･･。";
+
+		$wr_mes ="$date $cmp[$camp] の $syogo が $cmp[$nation] の兵士陣を洗脳を企てたが、失敗したようだ";
+
+		&gun_no;
+
+		&hist_write;#国ログ
+	}
+}
+#強奪内容1
+sub gun_tm32{
+
+	&syogo;
+
+	if($cmd<=0){
+		$log .= "強奪を中止します<br>\n";
+		$tm = $cmd = 0;
+		&mission_menu;
+	}elsif($cmd>0){
+		$v=$cmd;
+		if($v==$camp){
+			$log .= "自国は強奪できません。<br>\n";
+			$tm = $cmd = 0;
+			&mission_menu;
+		}elsif(	(($cmd==1&&$cf1<5000) || ($cmd==1&&$ce1==1))||
+				(($cmd==2&&$cf2<5000) || ($cmd==2&&$ce2==1))||
+				(($cmd==3&&$cf3<5000) || ($cmd==3&&$ce3==1))||
+				(($cmd==4&&$cf4<5000) || ($cmd==4&&$ce4==1))||
+				(($cmd==5&&$cf5<5000) || ($cmd==5&&$ce5==1))){
+			$log .= "亡国または、総兵糧5000未満の国を強奪することはできません。\n";
+			$tm = $cmd = 0;
+			&mission_menu;
+		}elsif($v==0){
+			$log .= "<br>\n";
+			$tm = $cmd = 0;
+			&mission_menu;
+		}else{
+			$log .= "$cmp[$v]から兵糧を強奪します。<br>\n";
+			$log .= "奇襲部隊を送り込みます。敵国国境まで$GMW時間です<br>\n";
+
+			$nation=$v;
+			$pr=$GMT;
+			$tm=35;
+		}
+	}
+}
+#強奪内容2
+sub gun_tm35{
+
+	&syogo;
+
+	$vv=int(rand(3));
+	if($vv > 0){#成功確率
+
+		$mes = "$cmp[$nation] に奇襲攻撃をかけ、強奪に成功しました！<br>$cmp[$nation] から";
+
+		$wr_mes ="$date $cmp[$camp] の $syogo が $cmp[$nation] に奇襲攻撃を実施。";
+
+		$v=int(((rand(10)+1)*10)*$lr);
+		$v=4500 + int(rand(1000)) if($v>4500);
+		$rank_exe++;
+		$vv=int($v/3*2);
+		$mes .= "$v の兵糧を強奪し、<br>そのうち $vv を持ち帰り$cmp[$camp]の兵糧に割り当てた。<br>";
+
+		$wr_mes .="$v の兵糧を強奪することに成功した";
+
+		if($camp==1){
+			$cf1 += $vv;
+		}elsif($camp==2){
+			$cf2 += $vv;
+		}elsif($camp==3){
+			$cf3 += $vv;
+		}elsif($camp==4){
+			$cf4 += $vv;
+		}elsif($camp==5){
+			$cf5 += $vv;
+		}
+		if($nation==1 && $cf1>=$v){
+			$cf1 -= $v;
+		}elsif($nation==2 && $cf2>=$v){
+			$cf2 -= $v;
+		}elsif($nation==3 && $cf3>=$v){
+			$cf3 -= $v;
+		}elsif($nation==4 && $cf4>=$v){
+			$cf4 -= $v;
+		}elsif($nation==5 && $cf5>=$v){
+			$cf5 -= $v;
+		}
+		$nation=0;
+		$tm = $cmd = 0;
+		$type='';
+		&call_main_st;
+
+		&hist_write;#国ログ
+	}else{
+		$mes = "$cmp[$nation] の 奇襲攻撃に失敗した･･･。<br>";
+
+		$wr_mes ="$date $cmp[$camp] の $syogo が $cmp[$nation] に奇襲攻撃を行ったが、失敗したようだ";
+
+		&gun_no;
+
+		&hist_write;#国ログ
+	}
+}
+
+#諜報内容 1
+sub gun_tm31{
+
+	if($cmd<=0){
+		$log .= "諜報を中止します<br>\n";
+		$tm = $cmd = 0;
+		&mission_menu;
+	}elsif($cmd>0){
+		$v=$cmd;
+		if($v==$camp){
+			$log .= "自国は諜報できません。<br>\n";
+			$tm = $cmd = 0;
+			&mission_menu;
+		}elsif(	(($cmd==1&&$cg1<600) || ($cmd==1&&$ce1==1))||
+				(($cmd==2&&$cg2<600) || ($cmd==2&&$ce2==1))||
+				(($cmd==3&&$cg3<600) || ($cmd==3&&$ce3==1))||
+				(($cmd==4&&$cg4<600) || ($cmd==4&&$ce4==1))||
+				(($cmd==5&&$cg5<600) || ($cmd==5&&$ce5==1))){
+			$log .= "亡国または、国家\予\算800以下の国を諜報することはできません。\n";
+			$tm = $cmd = 0;
+			&mission_menu;
+		}elsif($v==0){
+			$log .= "<br>\n";
+			$tm = $cmd = 0;
+			&mission_menu;
+		}else{
+			$log .= "$cmp[$v]の資金調達ﾙｰﾄを撹乱させます<br>\n";
+			$log .= "諜報員を送り込みます。敵国国境まで$GMW時間です<br>\n";
+
+			$nation=$v;
+			$pr=$GMT;
+			$tm=34;
+		}
+	}
+}
+#諜報内容 2
+sub gun_tm34{
+
+	&syogo;
+
+	$vv=int(rand(3));
+	if($vv > 0){
+
+		$mes = "$cmp[$nation] の 資金調達ﾙｰﾄの撹乱に成功！<br>$cmp[$nation] から";
+
+		$wr_mes ="$date $cmp[$camp] の $syogo が $cmp[$nation] の資金調達ﾙｰﾄを撹乱し、";
+
+		$v=int(((rand(5)+1)*5)*$lr);
+		$v=600 + int(rand(200)) if($v>600);
+		$rank_exe++;
+		$vv=int($v/2);
+		$mes .= "$v の国家予\算が流失した！<br>そのうち $vv を持ち帰り$cmp[$camp]の国家予\算に割り当てた。<br>";
+
+		$wr_mes .="$v の国家予\算を流失させることに成功した";
+
+		if($camp==1){
+			$cg1 += $vv;
+		}elsif($camp==2){
+			$cg2 += $vv;
+		}elsif($camp==3){
+			$cg3 += $vv;
+		}elsif($camp==4){
+			$cg4 += $vv;
+		}elsif($camp==5){
+			$cg5 += $vv;
+		}
+		if($nation==1 && $cg1>=$v){
+			$cg1 -= $v;
+		}elsif($nation==2 && $cg2>=$v){
+			$cg2 -= $v;
+		}elsif($nation==3 && $cg3>=$v){
+			$cg3 -= $v;
+		}elsif($nation==4 && $cg4>=$v){
+			$cg4 -= $v;
+		}elsif($nation==5 && $cg5>=$v){
+			$cg5 -= $v;
+		}
+		$nation=0;
+		$tm = $cmd = 0;
+		$type='';
+		&call_main_st;
+
+		&hist_write;#国ログ
+	}else{
+		$mes = "$cmp[$nation] の 資金調達ﾙｰﾄの撹乱に失敗した･･･。<br>";
+
+		$wr_mes ="$date $cmp[$camp] の $syogo が $cmp[$nation] の資金調達ﾙｰﾄの撹乱を策略したが、失敗したようだ";
+
+		&gun_no;
+
+		&hist_write;#国ログ
+	}
+
+}
+
+#軍事失敗の国ステータス減少
+sub gun_no{
+
+	$rank_exe-=5;
+
+	$tm = $cmd = 0;
+	$type='';
+	&call_main_st;
+
+	$v=int(rand(50)+1);
+	$v2=int(rand(200)+1);
+	$v3=int(rand(100)+1);
+
+	if($camp==1&&$cg1>$v&&$cf1>$v2&&$cs1>$v3){
+		$cg1 -= $v;
+		$cf1 -= $v2;
+		$cs1 -= $v3;
+	}elsif($camp==2&&$cg2>$v&&$cf2>$v2&&$cs2>$v3){
+		$cg2 -= $v;
+		$cf2 -= $v2;
+		$cs2 -= $v3;
+	}elsif($camp==3&&$cg3>$v&&$cf3>$v2&&$cs3>$v3){
+		$cg3 -= $v;
+		$cf3 -= $v2;
+		$cs3 -= $v3;
+	}elsif($camp==4&&$cg4>$v&&$cf4>$v2&&$cs4>$v3){
+		$cg4 -= $v;
+		$cf4 -= $v2;
+		$cs4 -= $v3;
+	}elsif($camp==5&&$cg51>$v&&$cf5>$v2&&$cs5>$v3){
+		$cg5 -= $v;
+		$cf5 -= $v2;
+		$cs5 -= $v3;
+	}
+}
+
+
+
+
+
+1;
@@ -0,0 +1,93 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反 										#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://pom.to/ ]							#
+#-----------------------------------------------------------#
+# NPC定義 Version 1.0
+#--- [注意事項] --------------------------------------------#
+# 1.このスクリプトは以下の利用規程に従って配布しています。	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#-------------------------------------------------------------------------------
+# NPC定義(国)
+sub ck_ne_1 {
+
+	if($nation==1){
+		@boss	=('ﾗﾝｽ皇子','ｸﾞｽﾀﾌ老','ｱﾙﾆｰﾄﾞ将軍','ﾌｨﾘﾅ将軍','傭兵隊');# 国１のＮＰＣ
+		@bs_lv	=(99,80,40,30,15);										# レベル
+		@bs_h	=(20000,18000,14000,12000,2000,100);					# 最大兵数
+		@bs_hp	=(1000,450,300,200,100);								# 最大ＨＰ
+		@bs_mp	=(300,100,90,150,40);									# 最大ＭＰ
+		@bs_ua	=(55,80,60,45,10, 99,55,80,60,45,150,200);				# ＵＡ
+		@bs_ud	=(50,75,30,30,5);										# ＵＤ
+		@bs_l	=(50,75,45,30,5,99);									# ＬＲ
+		@bs_ag	=(80,80,55,40,20);										# ＡＧ
+
+	}elsif($nation==2){
+		@boss	=('ｴｶﾃﾘｰﾅ女王','ｷﾞﾘﾅﾑ将軍','ﾙｰｼｱ将軍','ｸﾞﾙｭｰﾝ将軍','傭兵隊');
+		@bs_lv	=(99,55,40,30,15);
+		@bs_h	=(20000,18000,10000,6000,2000,100);
+		@bs_hp	=(1600,500,250,200,30);
+		@bs_mp	=(400,100,200,150,40);
+		@bs_ua	=(40,60,65,25,10);
+		@bs_ud	=(40,45,60,20,5);
+		@bs_l	=(30,65,40,20,5);
+		@bs_ag	=(70,80,50,35,25);
+
+	}elsif($nation==3){
+		@boss	=('ﾔﾝ元帥','ｼｪｰﾝｺｯﾌﾟ将軍','ｱｯﾃﾝﾎﾞﾛｰ将軍','ﾐﾝﾂ将軍','傭兵隊');
+		@bs_lv	=(99,50,40,30,15);
+		@bs_h	=(20000,16000,12000,10000,2000,100);
+		@bs_hp	=(999,3000,150,250,30);
+		@bs_mp	=(4000,130,120,70,40);
+		@bs_ua	=(50,65,30,40,10);
+		@bs_ud	=(60,70,35,35,5);
+		@bs_l	=(75,40,35,30,5);
+		@bs_ag	=(90,40,60,40,30);
+
+	}elsif($nation==4){
+		@boss	=('皇帝ｷﾞｻﾞﾛﾌ','ﾗﾝﾌｫｰﾄﾞ将軍','ﾗﾝﾃﾞｨｳｽ将軍','ﾘｰｳﾞｧｽ将軍','傭兵隊');
+		@bs_lv	=(99,60,40,30,15);
+		@bs_h	=(30000,18000,16000,14000,2000,100);
+		@bs_hp	=(2500,350,400,250,30);
+		@bs_mp	=(99999,150,120,70,40);
+		@bs_ua	=(60,75,60,40,10);
+		@bs_ud	=(50,60,55,50,5);
+		@bs_l	=(80,70,55,45,5);
+		@bs_ag	=(60,90,50,30,20);
+
+	}elsif($nation==5){
+		@boss	=('皇帝ｿﾞｰﾏ','ﾊﾞﾗﾓｽ将軍','ｶﾝﾀﾞﾀ将軍','ｵﾙﾃﾞｶ将軍','傭兵隊');
+		@bs_lv	=(30,60,40,30,15);
+		@bs_h	=(50000,4000,30000,2000,10000,1000);
+		@bs_hp	=(5000,4000,3000,2000,1000);
+		@bs_mp	=(99999,150,120,70,40);
+		@bs_ua	=(60,75,60,40,10);
+		@bs_ud	=(99,60,55,50,5);
+		@bs_l	=(80,70,55,45,5);
+		@bs_ag	=(40,40,50,20,20);
+
+	}
+
+	$tnm	=$boss[$v];
+	$tsol	=$bs_h[$v];
+	$tlv	=$bs_lv[$v];
+	$thp	=$bs_hp[$v];
+	$thp_max=$bs_hp[$v];
+	$tmp	=$bs_mp[$v];
+	$tua	=$bs_ua[$v];
+	$tud	=$bs_ud[$v];
+	$tlr	=$bs_l[$v];
+	$tag	=$bs_ag[$v];
+	$tsol_lv=100;
+	$tcp	=$nation;
+
+}
+
+
+
+
+
+1;
@@ -0,0 +1,86 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反 										#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://pom.to/ ]							#
+#-----------------------------------------------------------#
+# NPC定義 Version 1.0
+#--- [注意事項] --------------------------------------------#
+# 1.このスクリプトは以下の利用規程に従って配布しています。	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#-------------------------------------------------------------------------------
+# NPC定義(魑魅魍魎)
+sub ck_ne_2 {
+
+	if($nation==1){
+		@boss	=('ｱﾓﾝ','ﾊﾞｱﾙ','ｻﾞｴﾎﾞｽ','ｳﾞｧｯｻｺﾞ','ｻﾐｼﾞｰﾅ','ﾏﾙﾊﾞｽ','ﾌﾞｫﾙﾌｫｰﾙ');	# 国１のＮＰＣ
+		@bs_lv	=(99,99,99,80,40,30,35);										# レベル
+		@bs_hp	=(6000,2000,2000,6000,900,1500,600);							# 最大ＨＰ
+		@bs_mp	=(6000,4000,600,1500,900,1500,400);								# 最大ＭＰ
+		@bs_ua	=(180,110,65,90,70,55,40);										# ＵＡ
+		@bs_ud	=(300,99,50,75,50,30,30);										# ＵＤ
+		@bs_l	=(120,70,95,65,50,40,35);										# ＬＲ
+		@bs_ag	=(60,87,70,77,57,45,36);										# ＡＧ
+
+	}elsif($nation==2){
+		@boss	=('ﾊﾞﾙﾊﾞﾄｽ','ﾊﾟｲﾓﾝ','ﾌﾞｴﾙ','ｸﾞｲｿﾝ','ｼﾄﾘｰ','ﾍﾞﾚｽ','ﾚﾗｰｼﾞｭ');
+		@bs_lv	=(99,99,99,55,40,40,35);
+		@bs_hp	=(8000,1200,3000,2500,800,1000,300);
+		@bs_mp	=(8000,1600,4000,1000,800,600,800);
+		@bs_ua	=(99,300,150,130,140,80,40);
+		@bs_ud	=(99,99,80,90,60,50,20);
+		@bs_l	=(99,99,30,65,40,20,5);
+		@bs_ag	=(50,70,70,77,57,40,36);
+
+	}elsif($nation==3){
+		@boss	=('ｴﾘｺﾞｰﾙ','ｾﾞﾊﾟｰﾙ','ﾎﾞｰﾃｨｽ','ﾊﾞｼﾑ','ｻﾛｽ','ﾌﾟﾙｿﾝ','ﾏﾗｸｽ');
+		@bs_lv	=(99,99,99,50,40,35,35);
+		@bs_hp	=(4000,4000,999,3000,1200,1000,4000);
+		@bs_mp	=(4000,4000,4000,1000,1440,2100,6000);
+		@bs_ua	=(110,110,80,75,90,180,60);
+		@bs_ud	=(110,99,70,80,45,45,25);
+		@bs_l	=(110,99,85,50,45,40,25);
+		@bs_ag	=(70,80,70,80,60,40,36);
+
+	}elsif($nation==4){
+		@boss	=('ｲﾎﾟｽ','ﾊﾎﾞﾘﾑ','ﾅﾍﾞﾘｳｽ','ｶｰｼﾓﾗﾙ','ﾌﾞｰﾈ','ﾛﾉｳｪ','ﾍﾞﾘｽ');
+		@bs_lv	=(99,99,99,60,40,35,35);
+		@bs_hp	=(5000,2000,1500,1000,800,1500,500);
+		@bs_mp	=(1000,1500,5000,1000,600,900,400);
+		@bs_ua	=(99,200,60,95,100,40,50);
+		@bs_ud	=(99,99,70,60,55,60,5);
+		@bs_l	=(99,99,80,70,55,45,5);
+		@bs_ag	=(60,70,80,70,80,60,40);
+
+	}elsif($nation==5){
+		@boss	=('ｱｽﾀﾛｽ','ﾌｫﾙﾈｳｽ','ﾌｫﾗｽ','ｱｽﾓﾀﾞｲ','ｶﾞｰﾌﾟ','ﾌｰﾙﾌｰﾙ','ﾏﾙｺｷｱｽ');
+		@bs_lv	=(99,99,99,60,40,35,40);
+		@bs_hp	=(2000,20000,4000,3000,2000,1500,800);
+		@bs_mp	=(2000,20000,6000,1500,150,2000,4000);
+		@bs_ua	=(150,99,90,105,90,70,30);
+		@bs_ud	=(200,99,130,90,85,80,35);
+		@bs_l	=(99,110,100,85,75,35,99);
+		@bs_ag	=(60,10,50,60,70,60,40);
+	}
+
+	$tnm	=$boss[$v];
+	$tlv	=$bs_lv[$v];
+	$thp	=$bs_hp[$v];
+	$thp_max=$bs_hp[$v];
+	$tmp	=$bs_mp[$v];
+	$tua	=$bs_ua[$v];
+	$tud	=$bs_ud[$v];
+	$tlr	=$bs_l[$v];
+	$tag	=$bs_ag[$v];
+	$tsol_lv=100;
+	$tcp=$nation;
+
+}
+
+
+
+
+
+1;
@@ -0,0 +1,299 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反 										#
+#  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 politics{
+
+	if(!$type){
+
+		if($camp<1){
+			$log .= "放浪の身では内政は行えない<br>\n";
+			$tm = $cmd = 0;
+			&call_main_st;
+
+		}else{
+
+			$log .= "内政を行います。実行するものを選んで下さい<br>\n";
+			$tm=0;
+			$type='内政';
+
+			&politics_menu;
+
+			&dat_write;
+		}
+	}
+}
+
+sub politics_menu{
+	# 内政コマンド
+	my @hm	= ('やめる','農業','商業','徴兵','兵を訓練する');
+
+	$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 .. $#hm){ $log2 .= "<option value=$_>$hm[$_]</option>\n";}
+	$log2 .=qq|</select><br>\n|;
+	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+}
+
+#-------------------------------------------------------------------------------
+# 内政処理
+sub politics_exe{
+
+	if(!$tm){
+
+		if($cmd<=0){
+			$log .= "あとで行うことにした。<br>\n";
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+
+		# 農業
+		}elsif($cmd==1){
+
+			# 行動カウントのリセット(無条件)
+			$act_cnt=0;
+
+			$log .= "農業を行います。結果は$GMW時間後。<br>\n";
+			$v=int(((rand(10)+1)*100)*$lr);
+			$v=9999 if($v>9999);
+			$tm=25;
+			$rank_exe++;
+			$pr=$GMT;
+	
+			if($camp==1){
+				$cf1 += $v;
+			}elsif($camp==2){
+				$cf2 += $v;
+			}elsif($camp==3){
+				$cf3 += $v;
+			}elsif($camp==4){
+				$cf4 += $v;
+			}elsif($camp==5){
+				$cf5 += $v;
+			}
+			$mes = "$v の兵糧を得た";
+
+			$tm=50;
+
+		# 商業
+		}elsif($cmd==2){
+
+			# 行動カウントのリセット(無条件)
+			$act_cnt=0;
+
+			$log .= "商業を行います。結果は$GMW時間後。<br>\n";
+			$v=int(((rand(10)+1)*15)*$lr);#最初は$v=int(((rand(10)+1)*10)*$lr);
+			$v=999 if($v>999);
+			$tm=25;
+			$rank_exe++;
+			$pr=$GMT;
+	
+			if($camp==1){
+				$cg1 += $v;
+			}elsif($camp==2){
+				$cg2 += $v;
+			}elsif($camp==3){
+				$cg3 += $v;
+			}elsif($camp==4){
+				$cg4 += $v;
+			}elsif($camp==5){
+				$cg5 += $v;
+			}
+			$mes = "$v G 国家予\算が増えた";
+
+			$tm=50;
+
+		# 徴兵-1
+		}elsif($cmd==3){
+			$log .= "徴兵を実行しますか？兵 1 人につき 1 G必要です<br>\n";
+			$tm=15;
+
+			$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|;
+			$log2 .=qq|<option value="0">やめる</option>\n|;
+			$log2 .=qq|<option value="1">千人</option>\n|;
+			$log2 .=qq|<option value="2">五千人</option>\n|;
+			$log2 .=qq|<option value="3">一万人</option>\n|;
+			$log2 .=qq|</select><br>\n|;
+			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+		# 兵を訓練する
+		}elsif($cmd==4){
+
+			if($my_cs<1){
+				$log .= "兵がいません<br>\n";
+				$tm = $cmd = 0;
+				&politics_menu;
+			}elsif($sol_lv>99){
+				$log .= "訓練度はこれ以上あがりません<br>\n";
+				$tm = $cmd = 0;
+				&politics_menu;
+			}else{
+
+				# 行動カウントのリセット(限界時のみ)
+				$act_cnt=0 if($act_cnt>$act_cnt_limit);
+
+				$log .= "兵の訓練を行ないます<br>\n";
+				$pr=int($GMT/2);
+				$x = int($lr/2);
+				if($x<1){
+					$x=1;
+			}
+				$v = int((rand(20))+$x);
+				$sol_lv += $v;
+				if($sol_lv>100){
+					$sol_lv=100;
+				}
+				$mes = "訓練度が $v 上昇した";
+				$tm=50;
+			}
+		}
+
+	# 徴兵-2
+	}elsif($tm==15){
+
+		$z=$g_p[$rank]-$sol;
+		if($cmd<=0){
+			$log .= "あとで行うことにした。<br>\n";
+			$tm = $cmd = 0;
+			&politics_menu;
+		}elsif($cmd==1){
+
+			# 行動カウントのリセット(無条件)
+			$act_cnt=0;
+
+			$log .= "最大千人規模の徴兵を実行します。結果は$GMW時間後に<br>\n";
+			$S = int(((rand(50))+100)*$lr);
+			$S = 1000 if($S>1000);
+			$rank_exe++;
+
+			if($S<$gold){
+				$gold-=$S;
+			}elsif($gold<$S){
+				$S=$gold;
+				$gold=0;
+			}
+
+			if($camp==1){
+				$cs1+=$S;
+			}elsif($camp==2){
+				$cs2+=$S;
+			}elsif($camp==3){
+				$cs3+=$S;
+			}elsif($camp==4){
+				$cs4+=$S;
+			}elsif($camp==5){
+				$cs5+=$S;
+			}
+
+			$mes = "$S 人の兵が集まった";
+			$pr=$GMT;
+			$tm=50;
+		}elsif($cmd==2){
+
+			# 行動カウントのリセット(無条件)
+			$act_cnt=0;
+
+			$log .= "最大五千人規模の徴兵を実行します。結果は$GMW時間後に<br>\n";
+			$S = int(((rand(50))+100)*$lr);
+			$S = 5000 if($S>5000);
+			$rank_exe+=int(rand(2)+1);
+
+			if($S<$gold){
+				$gold-=$S;
+			}elsif($gold<$S){
+				$S=$gold;
+				$gold=0;
+			}
+
+			if($camp==1){
+				$cs1+=$S;
+			}elsif($camp==2){
+				$cs2+=$S;
+			}elsif($camp==3){
+				$cs3+=$S;
+			}elsif($camp==4){
+				$cs4+=$S;
+			}elsif($camp==5){
+				$cs5+=$S;
+			}
+
+			$mes = "$S 人の兵が集まった";
+			$pr=$GMT;
+			$tm=50;
+		}elsif($cmd==3){
+
+			# 行動カウントのリセット(無条件)
+			$act_cnt=0;
+
+			$log .= "最大一万人規模の徴兵を実行します。結果は$GMW時間後に<br>\n";
+			$S = int(((rand(50))+100)*$lr);
+			$S = 10000 if($S>10000);
+			$rank_exe+=int(rand(3)+1);
+
+			if($S<$gold){
+				$gold-=$S;
+			}elsif($gold<$S){
+				$S=$gold;
+				$gold=0;
+			}
+
+			if($camp==1){
+				$cs1+=$S;
+			}elsif($camp==2){
+				$cs2+=$S;
+			}elsif($camp==3){
+				$cs3+=$S;
+			}elsif($camp==4){
+				$cs4+=$S;
+			}elsif($camp==5){
+				$cs5+=$S;
+			}
+
+			$mes = "$S 人の兵が集まった";
+			$pr=$GMT;
+			$tm=50;
+		}
+	}
+
+	# 内政の終了(功労金授与)
+	elsif($tm==50){
+		if($rank > 7 && $sogo!=3 && $sogo!=4){#烙印は無効化
+			$gold += $v = $rank * 200;
+			$log .= "今までの功績が認められ国より $v Ｇの功労金をもらった。<br>\n";
+		}
+		$tm = $cmd = 0;
+		$type="";
+		&call_main_st;
+	}
+	# 内政の終了(功労金なし)
+	elsif($tm==55){
+		$tm = $cmd = 0;
+		$type="";
+		&call_main_st;
+	}
+
+	&write_data;
+
+}
+
+
+
+
+
+1;
@@ -0,0 +1,149 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反 										#
+#  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 lotto{
+
+	if($tm==90){
+		if($cmd<=0){
+			$log .= "またお越しください…<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($cmd==1){
+			$S = 500;
+			if($S < $gold){
+				$gold -= $S;
+				$log .= "五百Ｇを支払った…<br>さぁ当たったかな～？<br>\n";
+				$tm=95;
+
+				$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|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+			}else{
+				$log .= "お金が足りないよ! ﾀﾀﾞじゃ夢も買えないこの現実･･･<br>\n";
+				$tm = $cmd = 0;
+				&shop_menu;
+			}
+		}
+	}elsif($tm==95){ # 宝くじ処理
+
+		my $dh =int(rand(450)) ;
+		if($dh == 0){
+			$gold += 100000;
+			$log .="ﾄﾞﾝﾄﾞﾝﾋｭｰﾋｭｰﾊﾟﾌﾊﾟﾌ♪<br>壱等賞が当たった!!!<br>$nm は \十\万\Ｇを獲得した!<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($dh > 0 && $dh <= 2){
+			$gold += 50000;
+			$log .="ﾄﾞﾝﾄﾞﾝﾋｭｰﾋｭｰﾊﾟﾌﾊﾟﾌ♪<br>弐等賞が当たった!!!<br>$nm は 五万Ｇを獲得した!<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($dh > 10 && $dh <= 20){
+			$gold += 10000;
+			$log .="ﾄﾞﾝﾄﾞﾝﾋｭｰﾋｭｰﾊﾟﾌﾊﾟﾌ♪<br>参等賞が当たった!!!<br>$nm は 壱万Ｇを獲得した!<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($dh > 20 && $dh <= 60){
+			$gold += 1000;
+			$log .="ﾄﾞﾝﾄﾞﾝﾋｭｰﾋｭｰﾊﾟﾌﾊﾟﾌ♪<br>四等賞が当たった!!!<br>$nm は 壱千Ｇを獲得した!<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($dh == 447){
+			$dh =int(rand(2)) ;
+			if($dh){
+				$hp = $max_hp;
+				$log .="ﾄﾞﾝﾄﾞﾝﾋｭｰﾋｭｰﾊﾟﾌﾊﾟﾌ♪<br>幸運賞が当たった!!!<br>$nm は HP が全回復した!<br>\n";
+			}else{
+				$mp = $max_mp;
+				$log .="ﾄﾞﾝﾄﾞﾝﾋｭｰﾋｭｰﾊﾟﾌﾊﾟﾌ♪<br>幸運賞が当たった!!!<br>$nm は MP が全回復した!<br>\n";
+			}
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($dh == 448){
+			$dh =int(rand(2)) ;
+			if($dh){
+				$hp = int($hp/2);
+				$log .="ｶﾞｰｰﾝ!!　　不幸賞が当たってしまった･･･。<br>$nm は HP が半分になった･･･。<br>\n";
+			}else{
+				$mp = int($mp/2);
+				$log .="ｶﾞｰｰﾝ!!　　不幸賞が当たってしまった･･･。<br>$nm は MP が半分になった･･･。<br>\n";
+			}
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($dh == 449){#$dh == 449
+			$dh =int(rand(5)) ;
+			if($dh==0){
+				$log .="おーっと!!　滅多に当たらない$dg_data[1][1]が当たった!!<br><br>装備する場合、現在所持している武具は破棄されます。<br>どうしますか？<br>\n";
+				$tm = 100;
+
+				$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|;
+				$log2 .=qq|<option value="1">受け取る</option><option value="0">いらない</option>\n|;
+				$log2 .=qq|</select><br>\n|;
+				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+			}elsif($dh==1){
+				$log .="おーっと!!　滅多に当たらない$df_data[1][1]が当たった!!<br><br>装備する場合、現在所持している防具は破棄されます。<br>どうしますか？<br>\n";
+				$tm = 115;
+
+				$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|;
+				$log2 .=qq|<option value="1">受け取る</option><option value="0">いらない</option>\n|;
+				$log2 .=qq|</select><br>\n|;
+				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+			}else{
+				$log .= "外れた･･･　また挑戦してくださいネェ♪<br>\n";
+				$tm = $cmd = 0;
+				&shop_menu;
+			}
+		}else{
+			$log .= "外れた･･･　また挑戦してくださいネェ♪<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}
+
+	}elsif($tm==100){#宝くじ 罪罰賞処理
+		if($cmd){
+			$log .="$nm は <b>$dg_data[1][1]</b>を手に入れた!!<br>\n";
+			$dg_a = 1;
+			$dg_cnt = $dg_data[1][3];
+		}else{
+			$log .="$nm は 涙をしのんで諦めた･･････\n";
+		}
+		$tm = $cmd = 0;
+		&shop_menu;
+	}elsif($tm==115){#宝くじ 罪罰賞処理
+		if($cmd){
+			$log .="$nm は <b>$df_data[1][1]</b>を手に入れた!!<br>\n";
+			$df_a = 1;
+			$df_cnt = $df_data[1][3];
+		}else{
+			$log .="$nm は 涙をしのんで諦めた･･････\n";
+		}
+		$tm = $cmd = 0;
+		&shop_menu;
+	}
+}
+
+
+
+
+
+1;
@@ -0,0 +1,122 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反 										#
+#  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 medical{
+
+	if($tm==120){
+
+		if($cmd<=0){
+			$log .= "またお越しください…<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+
+		# 治療-1
+		}elsif($cmd==1){
+
+			$S = ($lv < 50) ? $lv*2000 : 100000;
+			$log .= "…ここでは古の秘術によって体力と魔力を<br>瞬時に全快まで回復してさしあげられます<br>…ただし$SＧ\頂きますが…<br>\n";
+			$tm=125;
+
+			$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|;
+			$log2 .=qq|<option value=0>やめる</option>\n|;
+			$log2 .=qq|<option value=1>治療</option>\n|;
+			$log2 .=qq|</select><br>\n|;
+			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+		# 性転換-1
+		}elsif($cmd==2){
+
+			$log.="ここでは性転換手術を受けられます。<br>ただし入院と手術費に20万G ほどかかりますが･･･<br>";
+			$tm=135;
+	
+			$log2 .= qq|<form action="$script" method="$method" name="ore_">|;
+			$log2 .= qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
+			$log2 .= qq|<input type="hidden" name="id" value="$id">\n|;
+			$log2 .= qq|<input type="hidden" name="pw" value="$pw">\n|;
+			$log2 .= qq|<select name="cmd">\n|;
+	
+			$log2 .= qq|<option value="0">逃げる</option>\n|;
+			$log2 .= ($sei==1) ?
+				qq|<option value="3">女になる</option>\n|:
+				qq|<option value="3">男になる</option>\n|;
+	
+			$log2 .= qq|</select><br>\n|;
+			$log2 .= qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+		}
+
+	# 治療-2
+	}elsif($tm==125){
+
+		if($cmd<=0){
+			$log .= "$nm は立ち去った。<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}else{
+			$S = ($lv < 50) ? $lv*2000 : 100000;
+			if($S < $gold){
+				$hp = $max_hp;
+				$mp = $max_mp;
+				$gold -= $S;
+				$log .= "$SＧを支払った…<br>体力と魔力が全回復した。<br>\n";
+				$tm = $cmd = 0;
+				&shop_menu;
+			}else{
+				$log .= "お金が足りないわ…<br>\n";
+				$tm=0;
+				&shop_menu;
+			}
+		}
+
+	# 性転換-2
+	}elsif($tm==135){
+
+		if($cmd<=0){
+			$log .= "$nm は何事も無かったように立ち去った。<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}else{
+			if($gold>=200000){
+	
+				$gold-=200000;
+				$log.="ｵﾍﾟを開始します。目覚めるとそこは別世界になっていることでしょう。<br>";
+				$pr=$GMT*8;
+	
+				if($sei==1){
+					$sei=2;
+					$sei2="女性";
+				}else{
+					$sei=1;
+					$sei2="男性";
+				}
+				$mes.= qq|麻酔から目を覚ました。$nm は $sei2 になった。|;
+				$tm = $cmd = 0;
+				$type='';
+				&call_main_st;
+			}else{
+				$log2.="お金が足りません。";
+				$tm = $cmd = 0;
+				&shop_menu;
+			}
+		}
+	}
+}
+
+
+
+
+
+1;
@@ -0,0 +1,73 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反										#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://pom.to/ ]							#
+#-----------------------------------------------------------#
+# お買い物 PC用パーツ1	Version 1.0							#
+#--- [注意事項] --------------------------------------------#
+# 1.このスクリプトは以下の利用規程に従って配布しています。	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#############################################################
+# 以下処理 基本的にこれ以下はいじらないように。
+
+#-------------------------------------------------------------------------------
+#武具(ｼｮｯﾋﾟﾝｸﾞ)
+sub bugu_s{
+
+	$log.=<<EOM;
+<form action=$script method=$method name=ore_>
+<input type=hidden name=id value="$id_p">
+<input type=hidden name=pw value="$pw_p">
+<input type=hidden name=cmd value=-1>
+EOM
+
+	foreach(11 .. $#dg_data){
+		$log .=qq|<hr color=white><input type=radio value="$_" name=cmd>\n|;
+		$log .=qq|$dg_data[$_][1] $dg_data[$_][2]G 回数$dg_data[$_][3] $dg_data[$_][5]\n|;
+	}
+	$log .=qq|<hr color=white><input type=submit value="購入/やめる"></form>\n|;
+
+}
+
+#-------------------------------------------------------------------------------
+#防具(ｼｮｯﾋﾟﾝｸﾞ)
+sub bogu_s{
+
+	$log.=<<EOM;
+<form action=$script method=$method name=ore_>
+<input type=hidden name=id value="$id_p">
+<input type=hidden name=pw value="$pw_p">
+<input type=hidden name=cmd value=-1>
+EOM
+
+	foreach(11 .. $#df_data){
+		$log .=qq|<hr color=white><input type=radio value="$_" name=cmd>\n|;
+		$log .=qq|$df_data[$_][1] $df_data[$_][2]G 回数$df_data[$_][3] $df_data[$_][5]\n|;
+	}
+	$log .=qq|<hr color=white><input type=submit value="購入/やめる"></form>\n|;
+
+}
+
+#-------------------------------------------------------------------------------
+#道具(ｼｮｯﾋﾟﾝｸﾞ)
+sub dogu_s{
+	$log.=<<EOM;
+<form action=$script method=$method name=ore_>
+<input type=hidden name=id value="$id_p">
+<input type=hidden name=pw value="$pw_p">
+<input type=hidden name=cmd value=-1>
+EOM
+
+	foreach(11 .. $#di_data){
+		$log .=qq|<hr color=white><input type=radio value="$_" name=cmd>\n|;
+		$log .=qq|$di_data[$_][1] $di_data[$_][2]G 回数$di_data[$_][3] $di_data[$_][4]\n|;
+	}
+	$log .=qq|<hr color=white><input type=submit value="購入/やめる"></form>\n|;
+}
+
+
+
+
+
+1;#削除不可
@@ -0,0 +1,103 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反										#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://pom.to ]							#
+#-----------------------------------------------------------#
+# お買い物 PC用パーツ1	Version 1.5							#
+#--- [注意事項] --------------------------------------------#
+# 1.このスクリプトは以下の利用規程に従って配布しています。	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#############################################################
+# 以下処理 基本的にこれ以下はいじらないように。
+
+#-------------------------------------------------------------------------------
+# 武具(ｼｮｯﾋﾟﾝｸﾞ)
+sub bugu_s{
+
+	$log.=<<EOM;
+<form action=$script method=$method name=ore_>
+<input type=hidden name=id value="$id">
+<input type=hidden name=pw value="$pw_p">
+<input type=hidden name=cmd value=-1>
+
+<table border=0 cellpadding=2 cellspacing=2 width=100%>
+<tr align=center bgcolor="#ccccee">
+<td>&nbsp;</td>
+<td>武具</td>
+<td>値段</td>
+<td>回数</td>
+<td>説明</td>
+</tr>
+EOM
+
+	foreach(11 .. $#dg_data){
+		$log .=qq|<tr align="center" bgcolor="#ccccee">\n|;
+		$log .=qq|<td><input type="radio" value="$_" name="cmd" class="a5">\n|;
+		$log .=qq|<td>$dg_data[$_][1]</td><td>$dg_data[$_][2]</td><td>$dg_data[$_][3]</td><td>$dg_data[$_][5]</td></tr>\n|;
+	}
+	$log .=qq|</table>\n|;
+	$log .=qq|<tt><br></tt><input type=submit value="購入/やめる" class="button1"></form>\n|;
+}
+
+#-------------------------------------------------------------------------------
+# 防具(ｼｮｯﾋﾟﾝｸﾞ)
+sub bogu_s{
+
+	$log.=<<EOM;
+<form action=$script method=$method name=ore_>
+<input type=hidden name=id value="$id_p">
+<input type=hidden name=pw value="$pw_p">
+<input type=hidden name=cmd value=-1>
+
+<table border=0 cellpadding=2 cellspacing=2 width=100%>
+<tr align=center bgcolor="#ccccee">
+<td>&nbsp;</td>
+<td>防具</td>
+<td>値段</td>
+<td>回数</td>
+<td>説明</td>
+</tr>
+EOM
+
+	foreach(11 .. $#df_data){
+		$log .=qq|<tr align="center" bgcolor="#ccccee">\n|;
+		$log .=qq|<td><input type="radio" value="$_" name="cmd" class="a5">\n|;
+		$log .=qq|<td>$df_data[$_][1]</td><td>$df_data[$_][2]</td><td>$df_data[$_][3]</td><td>$df_data[$_][5]</td></tr>\n|;
+	}
+	$log .=qq|</table>\n|;
+	$log .=qq|<tt><br></tt><input type="submit" value="購入/やめる" class="button1"></form>\n|;
+}
+
+#-------------------------------------------------------------------------------
+# 道具(ｼｮｯﾋﾟﾝｸﾞ)
+sub dogu_s{
+	$log.=<<EOM;
+<form action=$script method=$method name=ore_>
+<input type=hidden name=id value="$id_p">
+<input type=hidden name=pw value="$pw_p">
+<input type=hidden name=cmd value=-1>
+<table border=0 cellpadding=2 cellspacing=2 width=100%>
+<tr align=center bgcolor="#ccccee">
+<td>&nbsp;</td>
+<td>道具</td>
+<td>値段</td>
+<td>回数</td>
+<td>説明</td>
+</tr>
+EOM
+
+	foreach(11 .. $#di_data){
+		$log .=qq|<tr align="center" bgcolor="#ccccee">\n|;
+		$log .=qq|<td><input type="radio" value="$_" name="cmd" class="a5">\n|;
+		$log .=qq|<td>$di_data[$_][1]</td><td>$dg_data[$_][2]</td><td>$di_data[$_][3]</td><td>$di_data[$_][4]</td></tr>\n|;
+	}
+	$log .=qq|</table>\n|;
+	$log .=qq|<tt><br></tt><input type="submit" value="購入/やめる" class="button1"></form>\n|;
+}
+
+
+
+
+
+1;#削除不可
@@ -0,0 +1,505 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反 										#
+#  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 shop{
+
+	if(!$type){
+
+		$log .= "$nm はｼｮｯﾋﾟﾝｸﾞﾓｰﾙに来た。<br>\n";
+		$tm=0;
+		$type='お買い物';
+
+		&shop_menu;
+
+	}
+
+	&dat_write;
+}
+
+sub shop_menu{
+	# ｼｮｯﾋﾟﾝｸﾞﾓｰﾙ
+	my @sg		 = ('去る','武具屋','防具屋','道具屋','金融業','ﾌﾟﾁﾛﾄ','診療所');
+
+	$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 .. $#sg){ $log2 .=qq|<option value="$_">$sg[$_]</option>\n|;}
+	$log2 .=qq|</select><br>\n|;
+	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+}
+
+#-------------------------------------------------------------------------------
+#ｼｮｯﾋﾟﾝｸﾞﾓｰﾙ処理
+sub shop_exe{
+	# 行き先選択
+	if(!$tm){
+		if($cmd<=0){
+			$log .= "$nm は逃げるように立ち去った。<br>\n";
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+		}elsif($cmd==1){
+			$log .= "いらっしゃい。今日はどうするんだい？<br>\n";
+			$tm=10;
+
+			$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|;
+			$log2 .=qq|<option value="0">やめる</option>\n|;
+			$log2 .=qq|<option value="1">買う</option>\n|;
+			$log2 .=qq|<option value="2">売る</option>\n|;
+			$log2 .=qq|</select><br>\n|;
+			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+		}elsif($cmd==2){
+			$log .= "いらっしゃいませ。何をお求めですか？<br>\n";
+			$tm=30;
+
+			$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|;
+			$log2 .=qq|<option value="0">やめる</option>\n|;
+			$log2 .=qq|<option value="1">買う</option>\n|;
+			$log2 .=qq|<option value="2">売る</option>\n|;
+			$log2 .=qq|</select><br>\n|;
+			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+		}elsif($cmd==3){
+			$log .= "ようこそ。色々なものを扱ってます。<br>\n";
+			$tm=50;
+
+			$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|;
+			$log2 .=qq|<option value="0">やめる</option>\n|;
+			$log2 .=qq|<option value="1">買う</option>\n|;
+			$log2 .=qq|<option value="2">売る</option>\n|;
+			$log2 .=qq|</select><br>\n|;
+			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+		}elsif($cmd==4){
+			$log .= "いらっしゃい。ﾏﾈｰｼｮｯﾌﾟにようこそ。<br>\n";
+			$tm=70;
+
+			$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|;
+			$log2 .=qq|<option value=0>やめる</option>\n|;
+			$log2 .=qq|<option value=1>借金</option>\n|;
+			$log2 .=qq|<option value=2>返済</option>\n|;
+			$log2 .=qq|</select><br>\n|;
+			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+		}elsif($cmd==5){
+			$log .= "イラッシャイマセェ～♪一枚五百Ｇになりまぁす♪<br>　<br>壱等　\十\万\Ｇ<br>弐等　五万Ｇ<br>参等　壱万Ｇ<br>四等　壱千Ｇ<br><br>幸運賞　？？？<br>不幸賞　？？？<br><br>罪罰賞1 $dg_data[1][1] (希少)<br>罪罰賞2 $df_data[1][1] (希少)\n";
+			$tm=90;
+
+			$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|;
+			$log2 .=qq|<option value=0>やめる</option>\n|;
+			$log2 .=qq|<option value=1>挑戦</option>\n|;
+			$log2 .=qq|</select><br>\n|;
+			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+		}elsif($cmd==6){
+			$log .= "いらっしゃい。罪罰診療所にようこそ。<br>\n";
+			$tm=120;
+
+			$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|;
+			$log2 .=qq|<option value=0>やめる</option>\n|;
+			$log2 .=qq|<option value=1>治療</option>\n|;
+			$log2 .=qq|<option value=2>性転換</option>\n|;
+			$log2 .=qq|</select><br>\n|;
+			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+		}elsif($cmd==7){
+			$log .= "きっと素敵な恋始まる!? 結婚相談所へようこそ♪<br>\n";
+			$tm=150;
+
+			$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|;
+			$log2 .=qq|<option value=0>後回し</option>\n|;
+			$log2 .=($sei==1) ? qq|<option value=2>お嫁さん捜索</option>\n| : qq|<option value=1>旦那様捜索</option>\n| ;
+			$log2 .=qq|</select><br>\n|;
+			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+		}
+
+	# 武具屋 - 買 or 売
+	}elsif($tm==10){
+		if($cmd<=0){#消
+			$log .= "なんだ、やめるのかい。また来てくれよな！<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($cmd==1){#買-1
+			if($sogo==3||$sogo==4){
+				$log .= "$sogo_p[$sogo] の烙印ついてちゃ買い物はできないぜ。<br>\n";
+				$tm = $cmd = 0;
+				&shop_menu;
+			}else{
+				$log .= "何を買うんだい？<br>ちなみに武具は1個しか所持できないぜ！<br>\n";
+				$tm=12;
+				require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&bugu_s;
+			}
+		}elsif($cmd==2){#売-1
+			if($dg_a==0){
+				$log .= "$nm さんは武具を所持してないぜ！<br>\n";
+				$tm = $cmd = 0;
+				&shop_menu;
+			}else{
+				if($dg_a<=10){
+					my $v = int(($dg_data[$dg_a][2]-$dg_data[$dg_a][2]/$dg_cnt)/2);
+					$log .= "お！ 隠し武器の$dg_data[$dg_a][1] じゃないか! どこで手に入れだんだい？<br>ぜひ $v Gで買い取らせてくれ。\n";
+					$tm=25;
+				}else{
+					my $v = int(($dg_data[$dg_a][2]-$dg_data[$dg_a][2]/$dg_cnt)/2);
+					$log .= "そうだねえ、$dg_data[$dg_a][1] は $v Gで買い取るよ!<br>\n";
+					$tm=25;
+				}
+
+				$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|;
+				$log2 .=qq|<option value=0>やめる</option>\n|;
+				$log2 .=qq|<option value=1>売る</option>\n|;
+				$log2 .=qq|</select><br>\n|;
+				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+			}
+		}
+	}elsif($tm==12){#買-2
+		if($cmd<=0){#消
+			$log .= "なんだやめるのかい。で、他にどうするんだ？<br>\n";
+		}else{
+			foreach(11 .. $#dg_data){
+				if($cmd eq $_ && $gold >= $dg_data[$_][2]){
+					$log .= "$dg_data[$_][2]Gを支払い、$dg_data[$_][1] を購入しました。<br>\n";
+					$gold -= $dg_data[$_][2];
+					$dg_a = $_;
+					$dg_cnt = $dg_data[$_][3];
+				}elsif($cmd eq $_ && $gold<$dg_data[$_][2]){
+					$log .= "お金が足りないよ！<br>\n";
+				}
+			}
+		}
+		$tm = $cmd = 0;
+		&shop_menu;
+	}elsif($tm==25){#売-2
+		if($cmd<=0){#消
+			$log .= "なんだやめるのかい。で、他にどうするんだ？<br>\n";
+		}elsif($cmd==1){
+			my $v = int(($dg_data[$dg_a][2]-$dg_data[$dg_a][2]/$dg_cnt)/2);
+			$log .= "$dg_data[$dg_a][1] を $v G で売却しました。<br>\n";
+			$gold += $v;
+			$dg_a = $dg_cnt = 0;
+		}
+		$tm = $cmd = 0;
+		&shop_menu;
+
+	# 防具屋 - 買 or 売
+	}elsif($tm==30){
+		if($cmd<=0){#消
+			$log .= "またおこしください。<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($cmd==1){#買-1
+			if($sogo==3||$sogo==4){
+				$log .= "$sogo_p[$sogo] の烙印ついてる方はお買い上げできません。<br>\n";
+				$tm=0;
+				&shop_menu;
+			}else{
+				$log .= "何をお求めですか？<br>防具の所持は1個までとなっております。<br>\n";
+				$tm=32;
+				require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&bogu_s;
+			}
+		}elsif($cmd==2){#売-1
+			if($df_a==0){
+				$log .= "$nm さまは防具を所持できません。<br>\n";
+				$tm = $cmd = 0;
+				&shop_menu;
+			}else{
+				if($df_a<=10){
+					my $v = int(($df_data[$df_a][2]-$df_data[$df_a][2]/$df_cnt)/2);
+				$log .= "お！ 隠し防具の$df_data[$df_a][1] ですね! どこで手に入れたんですか？<br>ぜひ $v Gで買い取らせてください。\n";
+					$tm=45;
+				}else{
+					my $v = int(($df_data[$df_a][2]-$df_data[$df_a][2]/$df_cnt)/2);
+				$log .= "そうですね･･･ $df_data[$df_a][1] は $v Gで買い取らせて頂きますが。<br>\n";
+					$tm=45;
+				}
+
+				$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|;
+				$log2 .=qq|<option value=0>やめる</option>\n|;
+				$log2 .=qq|<option value=1>売る</option>\n|;
+				$log2 .=qq|</select><br>\n|;
+				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+			}
+		}
+	}elsif($tm==32){#売-2
+		if($cmd<=0){#消
+			$log .= "その他はどうしますか？<br>\n";
+		}else{
+			foreach(11 .. $#df_data){
+				if($cmd eq $_ && $gold >= $df_data[$_][2]){
+					$log .= "$df_data[$_][2]Gを支払い、$df_data[$_][1] を購入しました。<br>\n";
+					$gold -= $df_data[$_][2];
+					$df_a = $_;
+					$df_cnt = $df_data[$_][3];
+				}elsif($cmd eq $_ && $gold<$df_data[$_][2]){
+					$log .= "お金が足りません。<br>\n";
+				}
+			}
+		}
+		$tm = $cmd = 0;
+		&shop_menu;
+	}elsif($tm==45){#買-2
+		if($cmd<=0){#消
+			$log .= "他にどうしますか？<br>\n";
+		}elsif($cmd==1){
+			my $v = int(($df_data[$df_a][2]-$df_data[$df_a][2]/$df_cnt)/2);
+			$log .= "$df_data[$df_a][1] を $v G で売却しました。<br>\n";
+			$gold += $v;
+			$df_a = $df_cnt = 0;
+		}
+		$tm = $cmd = 0;
+		&shop_menu;
+
+	# 道具屋 - 買 or 売
+	}elsif($tm==50){
+		if($cmd<=0){#消
+			$log .= "他なにか御用ですか？<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($cmd==1){#買-1
+			if($sogo==3||$sogo==4){
+				$log .= "$sogo_p[$sogo] の烙印ついていては買い物はできません。<br>\n";
+				$tm = $cmd = 0;
+				&shop_menu;
+			}else{
+				$log .= "何をお買い上げですか？<br>ちなみに道具は1個しか所持できません。<br>\n";
+				$tm=52;
+				require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&dogu_s;
+			}
+		}elsif($cmd==2){#売-1
+			if(!$di_a){
+				$log .= "$nm さんは道具を所持していません。<br>\n";
+				$tm = $cmd = 0;
+				&shop_menu;
+			}else{
+				if($di_a<=10){
+					my $v = int(($di_data[$di_a][2])/2);
+					$log .= "お！ 隠しｱｲﾃﾑの$di_data[$di_a][1] じゃないですか！どこで手に入れたんですか？<br>ぜひ $v Gで買い取らせてください。\n";
+					$tm=65;
+				}else{
+					my $v = int(($di_data[$di_a][2])/2);
+					$log .= "そうですねえ、$di_data[$di_a][1] は $v G で買い取ります。<br>\n";
+					$tm=65;
+				}
+
+				$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|;
+				$log2 .=qq|<option value=0>やめる</option>\n|;
+				$log2 .=qq|<option value=1>売る</option>\n|;
+				$log2 .=qq|</select><br>\n|;
+				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+			}
+		}
+	}elsif($tm==52){#買-2
+		if($cmd<=0){#消
+			$log .= "他何か御用ですか？<br>\n";
+		}else{
+			foreach(11 .. $#di_data){
+				if($cmd eq $_ && $gold >= $di_data[$_][2]){
+					$log .= "$di_data[$_][2]Gを支払い、$di_data[$_][1] を購入しました。<br>\n";
+					$gold -= $di_data[$_][2];
+					$di_a = $_;
+					$di_cnt = $di_data[$_][3];
+				}elsif($cmd eq $_ && $gold<$di_data[$_][2]){
+					$log .= "お金が足りません。お引取り願います。<br>\n";
+				}
+			}
+		}
+		$tm = $cmd = 0;
+		&shop_menu;
+	}elsif($tm==65){
+		if($cmd<=0){#消
+			$log .= "他何か御用ですか？<br>\n";
+		}elsif($cmd==1){
+			my $v = int(($di_data[$di_a][2])/2);
+			$log .= "$di_data[$di_a][1] を $v G で売却しました。<br>\n";
+			$gold += $v;
+			$di_a = 0;
+		}
+		$tm = $cmd = 0;
+		&shop_menu;
+
+	# 金融業
+	}elsif($tm==70){
+		if($cmd<=0){#消
+			$log .= "ご利用はご計画的に♪<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($cmd==1){#借
+			if($sogo==3||$sogo==4){
+				$log .= "これ以上は身のためにならないよ。早いﾄｺ返してくれないと恐いｵﾆｰｻﾝが来るよ･･･。<br>\n";
+				$tm = $cmd = 0;
+				&shop_menu;
+			}else{
+				&syakin;
+				$log .= "金借りたいのかい。いくら借りたいんだ？<br>$vw G　<b>$sogo_p[3]</b>の烙印<br>$vx G　<b>$sogo_p[4]</b>の烙印<br>　<br>烙印は借金を返済するか、他の称号を取得するまで外れません。\n";
+				$tm=72;
+
+				$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|;
+				$log2 .=qq|<option value="0">やめる</option>\n|;
+				$log2 .=qq|<option value="1">$vw G</option>\n|;
+				$log2 .=qq|<option value="2">$vx G</option>\n|;
+				$log2 .=qq|</select><br>\n|;
+				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+
+			}
+		}elsif($cmd==2){#返
+			if($sogo!=3&&$sogo!=4){
+				$log .= "$nm さんに返済義務はないよ。<br>\n";
+				$tm = $cmd = 0;
+				&shop_menu;
+			}else{
+				$log .= "やっと借金返済してくれるのかい。$nm さんの返済額は";
+				&syakin;
+				if($sogo==3){
+					$log .= "<b>$vw2 G</b>だよ。\n";
+				}elsif($sogo==4){
+					$log .= "<b>$vx2 G</b>だよ。\n";
+				}
+
+				$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|;
+				$log2 .=qq|<option value="0">やめる</option>\n|;
+				$log2 .=qq|<option value="1">支払う</option>\n|;
+				$log2 .=qq|</select><br>\n|;
+				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+				$tm=74;
+			}
+		}
+	}elsif($tm==72){#借 - 額
+		if($cmd<=0){#消
+			$log .= "なんだやめるのかい。で、他にどうするんだ？<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($cmd==1){
+			&syakin;
+			$gold +=$vw;
+			$sogo =3;
+			$log .= "$vw G を借りました。$nm は<b>$sogo_p[3]</b> の烙印がつきました･･･<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($cmd==2){
+			&syakin;
+			$gold +=$vx;
+			$sogo =4;
+			$log .= "$vx G を借りました。$nm は<b>$sogo_p[4]</b> の烙印がつきました･･･<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}
+	}elsif($tm==74){#返 - 額
+		if($cmd<=0){#消
+			$log .= "早いとこ、金返してくれよ！ で、他にどうするんだ？<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($cmd==1){
+			&syakin;
+			if($sogo==3){
+				if($gold > $vw2){
+					$gold -=$vw2;
+					$log .= "借金$vw2 G を返済しました。<br>\n";
+					$sogo =0;
+				}else{
+					$log .= "そんな はした金じゃ足りないよ！<br>\n";
+				}
+			}elsif($sogo==4){
+				if($gold > $vx2){
+					$gold -=$vx2;
+					$log .= "借金$vx2 G を返済しました。<br>\n";
+					$sogo =0;
+				}else{
+					$log .= "そんな　はした金じゃ足りないよ！<br>\n";
+				}
+			}
+			$tm = $cmd = 0;
+			&shop_menu;
+		}
+	}
+
+	# 宝くじ
+	elsif($tm>=90 && $tm<120){require './inc/ore_sub-shop-lotto.cgi';&lotto;}
+
+	# 診療所
+	elsif($tm>=120 && $tm<140){require './inc/ore_sub-shop-medical.cgi';&medical;}
+
+	# 結婚相談所
+	elsif(	$tm>=150 && $tm<200 && $mv_mode eq 'pc' &&
+			$lv>=15 && $lv<=50){require './inc/ore_sub-shop-marry.cgi';&marry;}
+
+	&dat_write;
+
+}
+
+#-------------------------------------------------------------------------------
+#借金計算
+sub syakin {
+	if($lv < 40){
+		$vw = int($lv*1000);
+		$vx = int($lv*2000);
+		$vw2 = int($lv*1250);
+		$vx2 = int($lv*2500);
+	}else{
+		$vw = 40000;
+		$vx = 80000;
+		$vw2 = 50000;
+		$vx2 = 100000;
+	}
+}
+
+
+
+
+
+1;
@@ -0,0 +1,91 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反 										#
+#  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 .= "ｴﾙﾀﾆｱの地に蔓延る魑魅魍魎を討伐します。<br>成功すると地位と賞金が獲得できます。<br>\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|<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|;
+	$log2 .=qq|<option value="0">やめる</option>\n|;
+	foreach(1 .. $#cmp){ $log2 .=qq|<option value="$_">$cmp[$_]</option>\n|;}
+	$log2 .=qq|</select><br>\n|;
+	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+}
+
+#-------------------------------------------------------------------------------
+#討伐処理(討伐 >> 討伐中へ移行まで)
+sub subdue_exe{
+
+	if(!$tm){
+
+		if($cmd<=0 || $cmd>$#cmp){
+			$log .= "またお越しください…<br>\n";
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+		}elsif($cmd){
+
+			if($camp<1){
+				$log .= "放浪の身で討伐は行えません<br>\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]の魑魅魍魎を討伐します<br>\n";
+	
+				$log .= "探索を開始します。<br>\n";
+				$nation=$cmd;
+				$tm=0;
+				$type='討伐中';
+
+				$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|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+			}
+		}
+	}
+	&dat_write;
+}
+
+
+
+
+
+1;
@@ -0,0 +1,348 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反 										#
+#  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 ws_st {
+	if(!$tm && !$ck){
+
+		$log .="$date $cmp[$nation] を探索中です<br>\n";
+
+		# NPC(魑魅魍魎)読み込み
+		require './inc/ore_sub-npc_2.cgi';
+		local $v=int(rand(7));
+		&ck_ne_2;
+
+		$log .="<hr size=1 noshade>\n";
+
+		$log .="$cmp[$nation] に蔓延る $tnm を発見した！<br>\n";
+
+		$log .="戦闘態勢をとります！<br>\n";
+
+		$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|<input type="hidden" name="cmd" value="-1"><input $button1 type="submit" value=" 戦闘突入！！">$td_end</form>\n|;
+
+		$tm=40;
+		$ck=1;
+	}elsif($ck){
+
+		# 戦闘処理読み込み
+		require './inc/ore_sub-battle.cgi';
+
+		if(!$b_n && !$tlr){
+			$tm = 0;
+			$ck = 0;
+			$nation = 0;#討伐
+			$type='';
+
+			$log .="戦闘中にバグが発生しました！強制的にメイン画面に戻ります<br>\n";
+		}
+
+		if($tm==40 && $cmd==-1){
+			$tm=55;
+			$log .="<p>$tnm との対決！！</p><p>どうしますか？</p>\n";
+			$log .="<p>魑魅魍魎ｽﾃｰﾀｽ - $tnm ( HP $thp MP $tmp UA $tua UD $tud LV $tlv )</p>\n";
+		}
+
+		if($tm==55){
+
+			if($cmd==10){
+
+				my $btp = $ag + int(rand($lv)*0.8);
+				my $bte = $tag+ int(rand($tlv)*0.8);
+
+				if($btp>=$bte){
+					$log .="$nm は 脱兎の如く逃げ出した･･･<br>評価が著しく下がった<br>\n";
+					$tm=0;
+					$v = int(2 + rand(4));
+					$rank_exe-=$v;
+
+					$sol=0;
+					$tnm='';
+					$ck=0;
+					$nation=0;#討伐
+					$type='';
+
+					$vv = int(rand(2));
+					if(!$vv){
+						$we-- if($we>0);
+					}
+				}else{
+					$log .="$nm は 脱兎の如く逃げ出した･･･<br>しかし！　$tnm に追いつかれてしまった！！<br>\n";
+					$tm=65;
+					$rank_exe-=1;
+				}
+
+			}elsif($cmd==20){
+				$log .="$tnm の討伐を行なう事に！<br>\n";
+				$tm=65;
+				$rank_exe+=1;
+			}
+
+		}elsif($tm==65){
+
+			$log .="真剣勝負開始！<br>\n";
+			$tm=75;
+
+		}elsif($tm==75){
+
+			&bt_cm;
+
+			if($thp<1){
+				# 獲得金
+				$G =int(rand(200))+((500*$tlv)-($lv*50));
+				$G =1 if($G<1);
+				$G =int(rand(500))+1500 if($G>2000);
+				$gold +=$G;
+				# 経験値
+				$E = int((($tlv*2)+$tua+$tud+$tag)*(rand($lv/10)+3))-$lv*2;
+				$E = int(rand(300)+1300) if($E>1500);
+				$exe+=$E;
+
+				$thp=0;
+				$bst ='';
+				$bt =0;
+				$log .="$nm は $tnm を倒した！<br>\n";
+				$log .="$G の金 と $E の経験値を得た！<br>\n";
+				$log .="<br>\n";
+
+				# 賞金(自国優位)
+				if($nation==$camp){
+					$G =int($my_cg/(rand(6)+15));
+					$G =int(rand(500))+1500 if(int(2000>=$G));
+					$G =int(rand(1500))+4000 if(int(5000<=$G));
+				}else{
+					if($nation==1){$G =int($cg1/(rand(11)+20));}
+					elsif($nation==2){$G =int($cg2/(rand(11)+20));}
+					elsif($nation==3){$G =int($cg2/(rand(11)+20));}
+					elsif($nation==4){$G =int($cg2/(rand(11)+20));}
+					elsif($nation==5){$G =int($cg2/(rand(11)+20));}
+
+					$G =int(rand(500))+500 if(int(1000>=$G));
+					$G =int(rand(1000))+2500 if(int(3500<=$G));
+				}
+
+				$exe+=$E;
+				$gold+=$G;
+
+				$tsol=int($tsol/2);
+
+				$log .="$cmp[$nation]から $G の賞金を得た！<br>\n";#討伐
+
+				$V =int(rand(4));
+				$sol_lv-=$V;
+				$rank_exe+=int($V*2)+5;
+
+				# 拾得物処理 1
+				if(int(rand(100))==0){
+					&syutoku1;
+				}else{
+					$sol=0;
+					$tnm='';
+					$ck = $tm = 0;
+					$nation=0;
+					$type='';
+				}
+
+				$we++;
+				if($we>250){
+					$log .="ｴﾙﾀﾆｱの地に蔓延る魑魅魍魎の討伐の励みより $nm は $sogo_p[2] の称号を授かった！<br>\n";
+					$sogo =2;
+					$we =0;
+				}
+
+			}elsif($hp<1){
+
+				$bst ='';
+				$bt =0;
+				$ck =0;
+				$hp =0;
+				$G=int(rand(10))+1;
+				$E=int(rand(5))+1;
+				$gold+=$G;
+				$exe+=$E;
+				$log .="あなたは $tnm に敗れ去った…<br>\n";
+				$log .="$G の金 と $E の経験値を得た<br>\n";
+				$log .="<p></p>\n";
+
+				$sol=int($sol/2);
+
+				$rank_exe-=25;
+				$log .="魑魅魍魎に返り討ちにあうという不名誉な敗北に、<br>貴方に対する評価が著しく低下した<br>\n";
+				if($rank_exe<1){
+					$rank--;
+					$rank=1 if($rank<1);
+					$next_rank=int(($rank*$rank)*3);
+					$v=$next_rank-10;
+					$rank_exe=$v;
+					$log .="一階級降格されてしまった…<br>\n";
+				}
+
+				$sol=0;
+				$tnm='';
+				$ck= $tm = 0;
+				$nation=0;#討伐
+				$type='';
+
+			}
+
+		}
+
+		# 拾得物処理 2
+		if($cmd==40){
+			&syutoku2;
+		}elsif($cmd ==41){
+			$log .="$nm は 気づかなかったﾌﾘをして立ち去った･･････<br>\n";
+
+			$sol=0;
+			$tnm='';
+			$ck = $tm = 0;
+			$nation=0;#討伐
+			$type='';
+		}
+
+		$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
+		$log2 .=qq|<td 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|;
+		if($tsol<1||$sol<1){
+			$log2 .=qq|<input type="hidden" name="cmd" value="-1">\n|;
+		}if($tm==55){
+			$log2 .=qq|<select name="cmd" size="1"><option value="10">逃げる</option><option value="20">闘う</option>\n|;
+			$log2 .=qq|</select>|;
+		}elsif($tm==65){
+			$log2 .=qq|<input type="hidden" name="cmd" value="-1">\n|;
+		}elsif($tm==75){
+			&spell_sp;
+		}elsif($tm>=100){
+			$log2 .=qq|<select name="cmd" size="1"><option value="40">拾う</option><option value="41">ほっとく</option>\n|;
+			$log2 .=qq|</select>|;
+		}
+		$log2 .=qq|<br>|;#テーブルずれ修正
+		$log2 .=qq|<input type="submit" $button1 value="NEXT！">$td_end</form>\n|;#テーブル追加</tr></table>
+	}
+
+	&dat_write;
+
+}
+
+#拾得物処理
+sub syutoku1{
+
+	$log .="$tnm が消滅した場所に何か落ちている･････<br>$nm は ";
+
+	my $S = int(rand(10)+1);
+
+	# 武具
+	if($S == 1){
+		$log .="$dg_data[2][1]を発見した!!<br><br>装備する場合､現在所持している武具";
+		$tm = 110;
+	}elsif($S == 2){
+		$log .="$dg_data[3][1]を発見した!!<br><br>装備する場合､現在所持している武具";
+		$tm = 120;
+	}elsif($S == 3){
+		$log .="$dg_data[4][1]を発見した!!<br><br>装備する場合､現在所持している武具";
+		$tm = 130;
+
+	# 道具
+	}elsif($S == 4){
+		$log .="$di_data[1][1]を発見した!!<br><br>装備する場合､現在所持している道具";
+		$tm = 140;
+	}elsif($S == 5){
+		$log .="$di_data[2][1]を発見した!!<br><br>装備する場合､現在所持している道具";
+		$tm = 150;
+	}elsif($S == 6){
+		$log .="$di_data[3][1]を発見した!!<br><br>装備する場合､現在所持している道具";
+		$tm = 160;
+	}elsif($S == 7){
+		$log .="$di_data[4][1]を発見した!!<br><br>装備する場合､現在所持している道具";
+		$tm = 170;
+
+	# 防具
+	}elsif($S == 8){
+		$log .="$df_data[2][1]を発見した!!<br><br>装備する場合､現在所持している道具";
+		$tm = 180;
+	}elsif($S == 9){
+		$log .="$df_data[3][1]を発見した!!<br><br>装備する場合､現在所持している道具";
+		$tm = 190;
+	}elsif($S == 10){
+		$log .="$df_data[4][1]を発見した!!<br><br>装備する場合､現在所持している道具";
+		$tm = 200;
+	}
+	$log .="は破棄されます｡<br>どうしますか?<br>";
+}
+
+#拾得物処理2
+sub syutoku2{
+	$log .="$nm は ";
+
+	# 武具2
+	if($tm==110){
+		$log .="$dg_data[2][1]";
+		$dg_a = 2;
+		$dg_cnt=$dg_data[2][3];
+	}elsif($tm==120){
+		$log .="$dg_data[3][1]";
+		$dg_a = 3;
+		$dg_cnt=$dg_data[3][3];
+	}elsif($tm==130){
+		$log .="$dg_data[4][1]";
+		$dg_a = 4;
+		$dg_cnt=$dg_data[4][3];
+
+	# 道具2
+	}elsif($tm==140){
+		$log .="$di_data[1][1]";
+		$di_a = 1;
+		$di_cnt=$di_data[1][3];
+	}elsif($tm==150){
+		$log .="$di_data[2][1]";
+		$di_a = 2;
+		$di_cnt=$di_data[2][3];
+	}elsif($tm==160){
+		$log .="$di_data[3][1]";
+		$di_a = 3;
+	}elsif($tm==170){
+		$log .="$di_data[4][1]";
+		$di_a = 4;
+		$di_cnt=$di_data[4][3];
+
+	# 防具2
+	}elsif($tm==180){
+		$log .="$df_data[2][1]";
+		$df_a = 2;
+		$df_cnt=$df_data[2][3];
+	}elsif($tm==190){
+		$log .="$df_data[3][1]";
+		$df_a = 3;
+		$df_cnt=$df_data[3][3];
+	}elsif($tm==200){
+		$log .="$df_data[4][1]";
+		$df_a = 4;
+		$df_cnt=$df_data[4][3];
+	}
+
+	$log .="を手に入れた!!<br>\n";
+
+	$sol=0;
+	$tnm='';
+	$ck = $tm = 0;
+	$nation=0;#討伐
+	$type='';
+}
+
+
+
+
+
+1;
@@ -0,0 +1,497 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反										#
+#  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/				#
+#-----------------------------------------------------------#
+
+#-------------------------------------------------------------------------------
+# ファイル IN 関連
+
+#---------------------------------------#
+# 参加者データ全取得                    #
+#---------------------------------------#
+# 参加者データファイル一覧取得
+sub usrdata_read{
+	opendir(DIR,"$usrdata") || &error("ユーザデータ読みこみエラー",1);
+	@usrfile = grep /\.cgi/,readdir(DIR);
+	closedir(DIR);
+}
+# 参加者データ一括読み込み
+sub usrdata_open{
+	foreach (0 .. $#usrfile) {
+		open(IN,"$usrdata$usrfile[$_]") || &error("Can't open $usrfile[$_]",1);
+		$line = <IN>;
+		close(IN);
+		push(@tdat,$line);
+	}
+}
+
+#---------------------------------------#
+# 参加者データ個別取得                  #
+#---------------------------------------#
+# 参加者データ個別読み込み
+sub usr_file_open{
+
+	open(IN,"$usrdata$id\.cgi") || &error("ﾕｰｻﾞｰIDが間違っているか、登録されていません。<br>Open Error : $usrdata$id\.cgi",1);
+	@dat = <IN>;
+	close(IN);
+
+	%DAT = '';
+#	chop $dat[0];
+	my @prats = split(/,/,$dat[0]);
+	foreach (0 .. $#prats){
+		my($key,$v) = split(/;/,$prats[$_]);
+		$DAT{$key} = $v;
+	}
+	&error("パスワードが間違っています",1) if($pw ne $DAT{'pw'} && $admin_pass ne $pw);
+
+	&hash_data;
+
+	# 行動セッションリセット
+	$act_cnt=0	if($time-$la>3600*24);
+
+}
+
+# ハッシュ割り当て
+sub hash_data{
+	$pw			= $DAT{'pw'};		# パスワード
+	$gold		= $DAT{'gold'};		# お金
+	$nm			= $DAT{'nm'};		# 名前
+	$lv			= $DAT{'lv'};		# レベル
+	$sei		= $DAT{'sei'};		# 性別
+	$hp			= $DAT{'hp'};		# 体力
+	$max_hp		= $DAT{'max_hp'};	# 最大体力
+	$mp			= $DAT{'mp'};		# 魔力
+	$max_mp		= $DAT{'max_mp'};	# 最大魔力
+	$ua			= $DAT{'ua'};		# 攻撃力
+	$ud			= $DAT{'ud'};		# 防御力
+	$lr			= $DAT{'lr'};		# 指揮力
+	$ag			= $DAT{'ag'};		# 敏捷力
+	$exe		= $DAT{'exe'};		# 経験値
+	$rank		= $DAT{'rank'};		# 階級
+	$rank_exe	= $DAT{'rank_exe'};	# 貢献値
+	$camp		= $DAT{'camp'};		# 所属国
+	$sol		= $DAT{'sol'}; 		# 部隊数
+	$sol_lv		= $DAT{'sol_lv'};	# 部隊訓練度
+	$nation		= $DAT{'nation'};	# 対象国
+	$we			= $DAT{'we'};		# 討伐 回数
+	$dg_a		= $DAT{'dg_a'};		# 武具
+	$dg_cnt		= $DAT{'dg_cnt'};	# 武具 回数
+	$df_a		= $DAT{'df_a'};		# 防具
+	$df_cnt		= $DAT{'df_cnt'};	# 防具 回数
+	$di_a		= $DAT{'di_a'};		# 道具
+	$di_cnt		= $DAT{'di_cnt'};	# 道具 回数
+	$sogo		= $DAT{'sogo'};		# 称号
+	$type		= $DAT{'type'};		# 行動判定(行動フラグ)
+	$tm			= $DAT{'tm'};		# 行動判定(行動フラグ)
+	$bt			= $DAT{'bt'};		# 戦闘時敵キャラ判別(行動フラグ)
+	$bst		= $DAT{'bst'};		# 技による能力上昇の判定
+	$ck			= $DAT{'ck'};		# 戦闘判定(行動フラグ)
+	$pr			= $DAT{'pr'};		# 拘束時間 残り(行動フラグ)
+	$la			= $DAT{'la'};		# 更新時間
+	$roku		= $DAT{'roku'};		# 前回給料が払われた時間(仕官した時間)
+	$mes		= $DAT{'mes'};		# メッセージ
+	$tnm		= $DAT{'tnm'};		# 名前 敵
+	$tid		= $DAT{'tid'};		# ID 敵
+	$thp		= $DAT{'thp'};		# 体力 敵
+	$thp_max	= $DAT{'thp_max'};	# 最大体力 敵
+	$tmp		= $DAT{'tmp'};		# 魔力 敵
+	$tlv		= $DAT{'tlv'};		# レベル 敵
+	$tua		= $DAT{'tua'};		# 攻撃力 敵
+	$tud		= $DAT{'tud'};		# 防御力 敵
+	$tlr		= $DAT{'tlr'};		# 指揮力 敵
+	$tag		= $DAT{'tag'};		# 敏捷力 敵
+	$tdf_a		= $DAT{'tdf_a'};	# 防具 敵
+	$tdg_a		= $DAT{'tdg_a'};	# 武器 敵
+	$tcp		= $DAT{'tcp'};		# 所属国 敵
+	$tsol		= $DAT{'tsol'};		# 部隊数 敵
+	$tsg		= $DAT{'tsg'};		# 称号 敵
+	$tsol_lv	= $DAT{'tsol_lv'};	# 敵部隊訓練度
+	$b_n		= $DAT{'b_n'};		# 戦闘限界ターン
+	$b_v		= $DAT{'b_v'};		# 現在のターン数
+	$n			= $_;				# 配列インデックス
+
+	$act_cnt	= $DAT{'act_cnt'};	# 行動セッション値
+	$age_time	= $DAT{'age_time'};	# 前回のレベルアップ < time式
+	$info_mes	= $DAT{'info_mes'};	# 情報時に表示されるコメント
+
+	$pr			-= $time-$la;
+	$pr			= 0 if($pr<0);
+}
+
+# 国ﾃﾞｰﾀ読み込み
+sub cdata_open{
+	open (IN,"$cdatfile") || &error("国ﾃﾞｰﾀﾌｧｲﾙが開けませんでした",1);
+	@cdat = <IN>;
+	close(IN)    or die "Can't close   : $!";
+
+	%CP = '';
+	my @prats = split(/,/,$cdat[0]);
+	foreach $prats (@prats){
+		my($k,$v) = split(/;/,$prats);
+		$CP{$k} = $v;
+	}
+
+	$cn1=$CP{'cn1'};# 国1の国力
+	$cg1=$CP{'cg1'};# 国1の財政
+	$cf1=$CP{'cf1'};# 国1の蓄米
+	$cs1=$CP{'cs1'};# 国1の予備兵
+	$ce1=$CP{'ce1'};# 国1の現状
+	$c1	=$CP{'c1'};	# 国1の参加人数
+	$c1a=$CP{'c1a'};# 国1の定員数
+	$cn2=$CP{'cn2'};
+	$cg2=$CP{'cg2'};
+	$cf2=$CP{'cf2'};
+	$cs2=$CP{'cs2'};
+	$ce2=$CP{'ce2'};
+	$c2	=$CP{'c2'};
+	$c2a=$CP{'c2a'};
+	$cn3=$CP{'cn3'};
+	$cg3=$CP{'cg3'};
+	$cf3=$CP{'cf3'};
+	$cs3=$CP{'cs3'};
+	$ce3=$CP{'ce3'};
+	$c3	=$CP{'c3'};
+	$c3a=$CP{'c3a'};
+	$cn4=$CP{'cn4'};
+	$cg4=$CP{'cg4'};
+	$cf4=$CP{'cf4'};
+	$cs4=$CP{'cs4'};
+	$ce4=$CP{'ce4'};
+	$c4	=$CP{'c4'};
+	$c4a=$CP{'c4a'};
+	$cn5=$CP{'cn5'};
+	$cg5=$CP{'cg5'};
+	$cf5=$CP{'cf5'};
+	$cs5=$CP{'cs5'};
+	$ce5=$CP{'ce5'};
+	$c5	=$CP{'c5'};
+	$c5a=$CP{'c5a'};
+	$set=$CP{'set'};
+	$all_mem=$CP{'all_mem'};
+	$goal_no=$CP{'goal_no'};	# 現在何期か。
+	$hasya=$CP{'hasya'};
+	$hcamp=$CP{'hcamp'};
+	$wr_mes=$CP{'wr_mes'};
+
+	if($camp==1){
+		$my_cn=$cn1;
+		$my_cg=$cg1;
+		$my_cf=$cf1;
+		$my_cs=$cs1;
+		$my_ce=$ce1;
+	}elsif($camp==2){
+		$my_cn=$cn2;
+		$my_cg=$cg2;
+		$my_cf=$cf2;
+		$my_cs=$cs2;
+		$my_ce=$ce2;
+	}elsif($camp==3){
+		$my_cn=$cn3;
+		$my_cg=$cg3;
+		$my_cf=$cf3;
+		$my_cs=$cs3;
+		$my_ce=$ce3;
+	}elsif($camp==4){
+		$my_cn=$cn4;
+		$my_cg=$cg4;
+		$my_cf=$cf4;
+		$my_cs=$cs4;
+		$my_ce=$ce4;
+	}elsif($camp==5){
+		$my_cn=$cn5;
+		$my_cg=$cg5;
+		$my_cf=$cf5;
+		$my_cs=$cs5;
+		$my_ce=$ce5;
+	}
+}
+
+# ログデータ読み込み
+sub read_data{
+
+	# キャラデータ読み込み
+	&usr_file_open;
+
+	# リロード規制
+	foreach(0 .. $#act_limit){
+		# エラー表示式(リロード抑制を明示的に行いたい方はコチラがオススメ。)
+#		&error("行動は $act_limit[$_][1]秒以上間隔を空けて行なってください",1) if($time<=$la+$act_limit[$_][1] && $hour==$act_limit[$_][0]);
+		# リロード無効式
+		if($time<=$la+$act_limit[$_][1] && $hour==$act_limit[$_][0]){
+			print "Status: 204\n\n";
+			if($mode ne "mes_write"){
+				&unlock($lock) if $lock_check;
+			}
+			exit;
+		}
+	}
+
+	# 国データ読み込み
+	&cdata_open;
+
+	$id_p = $id;
+	$pw_p = $pw;
+
+	$next_lv	= int(($lv*$lv)*10);
+	$max_sol	= $g_p[$rank];
+	$sol_lv		= 1		if($sol_lv<1);
+	$sol_lv		= 100	if($sol_lv>100);
+	$max_hp		= 9999	if($max_hp>9999);
+	$max_mp		= 9999	if($max_mp>9999);
+	$mp			= 1		if($mp<1);
+	$ua			= 999	if($ua>999);
+	$ud			= 999	if($ud>999);
+	$lr			= 999	if($lr>999);
+	$ag			= 999	if($ag>999);
+	$rank		= 14	if($rank>14);
+	$rank_exe	= 0		if($rank_exe<1);
+	$lv			= 1		if($lv<1);
+	$hp			= $max_hp	if($hp>$max_hp);
+	$mp			= $max_mp	if($mp>$max_mp);
+
+	if($pr<1){
+		&settei;#設定読み込み
+		&status;#ステータス表示
+	}
+	$bmes="最新情報 ◎ $wr_mes\n" if $wr_mes;
+
+	$data_reset = int(($cn1+$cn2+$cn3+$cn4+$cn5) * $reset_point);
+
+}
+
+#-------------------------------------------------------------------------------
+# ファイル OUT 関連
+
+# 国データ＆キャラデータ書き込み
+sub write_data{
+	&cdat_write;
+	&dat_write;
+}
+
+# 国データ書き込み
+sub cdat_write{
+	$cdat = "cn1;$cn1,cg1;$cg1,cf1;$cf1,cs1;$cs1,ce1;$ce1,c1;$c1,c1a;$c1a,cn2;$cn2,cg2;$cg2,cf2;$cf2,cs2;$cs2,ce2;$ce2,c2;$c2,c2a;$c2a,cn3;$cn3,cg3;$cg3,cf3;$cf3,cs3;$cs3,ce3;$ce3,c3;$c3,c3a;$c3a,cn4;$cn4,cg4;$cg4,cf4;$cf4,cs4;$cs4,ce4;$ce4,c4;$c4,c4a;$c4a,cn5;$cn5,cg5;$cg5,cf5;$cf5,cs5;$cs5,ce5;$ce5,c5;$c5,c5a;$c5a,set;$set,all_mem;$all_mem,goal_no;$goal_no,hasya;$hasya,hcamp;$hcamp,ad;$addr,ht;$host,date;$date,wr_mes;$wr_mes,\n";
+
+	open (OUT,">$cdatfile") || &error("open error:$cdatfile",1);
+	print OUT $cdat;
+	close(OUT)		or die "Can't close   : $!";
+}
+
+# キャラデータ書き込み
+sub dat_write{
+
+	&error("open error no such a file!",1) if(!$nm || !$id);
+
+	$dat[0] = "la;$time,nm;$nm,pw;$pw,id;$id,sei;$sei,type;$type,age_time;$age_time,act_cnt;$act_cnt,hp;$hp,max_hp;$max_hp,lv;$lv,mp;$mp,max_mp;$max_mp,rank;$rank,ua;$ua,ud;$ud,lr;$lr,ag;$ag,ck;$ck,tm;$tm,bt;$bt,bst;$bst,exe;$exe,rank_exe;$rank_exe,sol;$sol,sol_lv;$sol_lv,nation;$nation,we;$we,camp;$camp,pr;$pr,tnm;$tnm,tid;$tid,thp;$thp,tlr;$tlr,tag;$tag,tsol;$tsol,tsg;$tsg,tsol_lv;$tsol_lv,b_n;$b_n,b_v;$b_v,thp_max;$thp_max,tlv;$tlv,tdg_a;$tdg_a,tdf_a;$tdf_a,tua;$tua,tud;$tud,tmp;$tmp,tcp;$tcp,gold;$gold,roku;$roku,dg_a;$dg_a,dg_cnt;$dg_cnt,df_a;$df_a,df_cnt;$df_cnt,di_a;$di_a,di_cnt;$di_cnt,sogo;$sogo,mes;$mes,info_mes;$info_mes,\n";
+	$dat[1] = "$date<>$addr<>$host<>$agent<>\n";
+
+	open (OUT,">$usrdata$id\.cgi") || &error("open error:$usrdata$id\.cgi",1);
+	print OUT @dat;
+	close(OUT)		or die "Can't close   : $!";
+}
+
+# 過去の栄光書き込み＆バックアップ処理
+sub hist_write{
+
+	$cdat = "cn1;$cn1,cg1;$cg1,cf1;$cf1,cs1;$cs1,ce1;$ce1,c1;$c1,c1a;$c1a,cn2;$cn2,cg2;$cg2,cf2;$cf2,cs2;$cs2,ce2;$ce2,c2;$c2,c2a;$c2a,cn3;$cn3,cg3;$cg3,cf3;$cf3,cs3;$cs3,ce3;$ce3,c3;$c3,c3a;$c3a,cn4;$cn4,cg4;$cg4,cf4;$cf4,cs4;$cs4,ce4;$ce4,c4;$c4,c4a;$c4a,cn5;$cn5,cg5;$cg5,cf5;$cf5,cs5;$cs5,ce5;$ce5,c5;$c5,c5a;$c5a,set;$set,all_mem;$all_mem,goal_no;$goal_no,hasya;$hasya,hcamp;$hcamp,ad;$addr,ht;$host,date;$date,wr_mes;$wr_mes,\n";
+
+	open (DB,">>$histfile") || &error("open error:$histfile",1);
+	print DB $cdat;
+	close(DB)		or die "Can't close   : $!";
+}
+
+#-------------------------------------------------------------------------------
+# ファイルロック関連(rename式)
+
+#	$lock = &lock if($lock_check);
+#	&unlock($lock) if($lock_check);
+# -----ロック-----
+sub lock {
+	my %lock = (dir => "$lockdir", basename => "$lockfile", timeout => 30, trytime => 10, @_);
+	$lock{path} = $lock{dir} . $lock{basename};
+	for (my $i = 0; $i < $lock{trytime}; $i++, sleep 1) {
+		return \%lock if (rename($lock{path}, $lock{current} = $lock{path} . time));
+	}
+	opendir(LOCKDIR, $lock{dir});
+	my @filelist = readdir(LOCKDIR);
+	closedir(LOCKDIR);
+	foreach (@filelist) {
+		if (/^$lock{basename}(\d+)/) {
+			return \%lock if (time - $1 > $lock{timeout} and
+			rename($lock{dir} . $_, $lock{current} = $lock{path} . time));
+			last;
+		}
+	}
+	undef;
+	&error("ファイルがロックされています");
+}
+
+# -----ロック解除-----
+sub unlock {
+	rename($_[0]->{current}, $_[0]->{path});
+}
+
+#-------------------------------------------------------------------------------
+# フォームデータ関連
+
+# フォームデコード処理
+sub decode {
+	local($buffer, @pairs, $name, $value);
+	$post_flag=0;
+	if($ENV{'REQUEST_METHOD'} eq "POST"){
+		$post_flag=1;
+		&error("投稿量が大きすぎます") if($ENV{'CONTENT_LENGTH'}>1024);
+		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
+	}else{
+		$buffer = $ENV{'QUERY_STRING'};
+		&error("投稿量が大きすぎます") if(length($buffer)>800)
+	}
+	@pairs = split(/&/, $buffer);
+	foreach (@pairs) {
+		($name,$value) = split(/=/);
+		$value =~ tr/+/ /;
+		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
+
+		# 記号置換え
+		$value =~ s/&/&amp;/g;
+		$value =~ s/\;/&#59\;/g;
+		$value =~ s/,/&#44\;/g;
+		$value =~ s/</&lt;/g;
+		$value =~ s/>/&gt;/g;
+		$value =~ s/"/&quot;/g;
+		$value =~ s/\//&#47\;/g;
+		$value =~ s/\./&#46\;/g;
+		$value =~ s/cgi/&#99\;&#103\;&#105\;/g;
+		# 改行等処理
+		$value =~ s/\r\n//g;
+		$value =~ s/\r//g;
+		$value =~ s/\n//g;
+
+		# 文字コードをシフトJIS変換
+		&jcode'convert(*value, "sjis", "", "z");
+
+		$in{$name} = $value;
+
+		# 一括削除用
+		if ($name eq "usr_del") { push(@USR_DEL,$value); }
+	}
+	$pw		= $in{'pw'};
+	$cmd	= $in{'cmd'};
+	$com	= $in{'com'};
+	$id		= $in{'id'};
+	$mode	= $in{'mode'};
+}
+
+#-------------------------------------------------------------------------------
+# アクセス制御関連
+
+# アクセスチェック(アクセス拒否)
+sub axs_check {
+	&get_host;
+
+	local($flag)=0;
+	foreach (@deny) {
+		if (!$_) { next; }
+		$_ =~ s/\*/\.\*/g;
+		if ($host =~ /$_/i || $addr =~ /$_/i) { $flag=1; last; }
+	}
+	if ($flag) { &error("アクセスを許可されていません"); }
+}
+
+# ホスト情報取得
+sub get_host {
+	$host = $ENV{'REMOTE_HOST'};
+	$addr = $ENV{'REMOTE_ADDR'};
+	$agent= $ENV{'HTTP_USER_AGENT'};
+
+	if ($get_remotehost) {
+		if ($host eq "" || $host eq "$addr") {
+			$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
+		}
+	}
+	if ($host eq "") { $host = $addr; }
+}
+
+# 時間取得
+sub get_time {
+	$time = time;
+	($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime($time);
+	$min = "0$min" if($min<10);
+	$sec = "0$sec" if($sec<10);
+	$month++;
+	@week=('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
+	$date = "$month/$mday $hour:$min:$sec";
+	srand($time);
+}
+
+# プレイ規制
+sub safetime {
+	foreach (0 .. $#safetime){
+		&error("プレイ規制時間中です。暫くお待ち下さい。") if $hour eq $safetime[$_];
+	}
+}
+
+#-------------------------------------------------------------------------------
+# 表示関連
+
+# 圧縮転送
+sub content_type {
+	if($gzip){
+		$|=1;
+		if($ENV{'HTTP_ACCEPT_ENCODING'}=~/gzip/ ){
+			print "Content-type: text/html; charset=shift_jis\n";
+			print "Content-encoding: gzip\n\n";
+			open(STDOUT,"| $gzip -1 -c");
+		}else{
+			print "Content-type: text/html; charset=shift_jis\n\n";
+		}
+		print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">\n";
+	} else {
+		print "Content-type: text/html; charset=shift_jis\n\n";
+		print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">\n";
+	}
+}
+
+#著作権表示(削除･変更不可)
+sub copyright{
+	if($mv_mode eq 'mv'){
+		print qq|<hr color="white">罪と罰++ 二律背反 $ver<br><a href="http://pom.to/">BLANK BOARD[ねっと遊園地♪]</a>| if(!$tm && !$log);
+		print qq|</body></html>|;
+	}else{
+		print <<"EOM";
+<div align="right" style="font-size:12px">
+罪と罰++ 二律背反 $ver<br>
+<a href="http://www17.big.or.jp/~obochan/vivid/" target="_blank" style="font-size:13px">Vivid Studio.</a><br>
+<a href="http://pom.to/" target="_blank" style="font-size:11px">BLANK BOARD[ねっと遊園地♪]<br>
+<img src="$imgs/bb.gif" border="0" alt="BLANK BOARD[ねっと遊園地♪]"></a>
+</div>
+</body>
+</html>
+EOM
+	}
+}
+
+# エラー表示
+sub error{
+	print "Content-type: text/html\n\n";
+	print "<html><head><title>CGI Error</title></head>\n";
+	print "<body $body><h1>CGI Error</h1>\n";
+	print "<p>This program encountered an internal error.</p>";
+	print "<p><b>Error:</b> $_[0]</p>\n";
+	print "</body></html>";
+	if ($_[1] && $lock_check) { &unlock($lock); }
+	exit;
+}
+
+
+
+
+
+1;#削除不可
@@ -0,0 +1,243 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反										#
+#  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 training{
+
+	if(!$type){
+
+		if($hp<4){
+			$log .= "体力が少なすぎます<br>\n";
+			$tm= $cmd = 0;
+			$type='';
+			&call_main_st;
+		}else{
+			$log	.= "修行を行います<br>\n";
+			$tm= $cmd = 0;
+			$type	= '修行';
+
+			$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|;
+			$log2 .=qq|<option value="1">前回の対戦者</option>\n| if($tid);
+			$log2 .=qq|<option value="2">一覧から選出</option>\n|;
+			$log2 .=qq|<option value="0">やめる</option>\n|;
+			$log2 .=qq|</select><br>\n|;
+			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+		}
+	}
+	&dat_write;
+}
+
+#-------------------------------------------------------------------------------
+# 修行処理1
+sub training_exe{
+
+	if($cmd==0){
+		$log .= "修行を中止します<br>\n";
+		$tm = $cmd = 0;
+		$type='';
+		&call_main_st;
+
+	}elsif($cmd==1){
+
+		open(IN,"$usrdata$tid\.cgi") || &error("Open Error : $usrdata$tid\.cgi",1);
+		$tdat = <IN>;
+		close(IN);
+	
+		%VS = '';
+		my @prats = split(/,/,$tdat);
+		foreach $prats (@prats){
+			my ($u,$q) = split(/;/,$prats);
+			$VS{$u} = $q;
+		}
+	
+		$tid	= $VS{'id'};		# ID
+		$tnm	= $VS{'nm'};		# 名前
+		$tlv	= $VS{'lv'};		# ﾚﾍﾞﾙ
+		$thp	= $VS{'max_hp'};	# HP
+		$thp_max= $VS{'max_hp'};	# MAX_HP
+		$tmp	= $VS{'max_mp'};	# MP
+		$tua	= $VS{'ua'};		# UA
+		$tud	= $VS{'ud'};		# UD
+		$tag	= $VS{'ag'};		# AG
+		$tcp	= $VS{'camp'};		# 所属
+		$tsg	= $VS{'sogo'};		# 称号
+	
+		$tdf_a	= $VS{'df_a'};		# 防具
+		$tdg_a	= $VS{'dg_a'};		# 武具
+	
+		$log	.="前回の対戦相手と修行を行います。<br>試合開始！<br>\n";
+		$type	= '修行中';
+		$tm		= 0;
+
+		$cmd	=-1;
+#		$log2 .=qq|<form action="$script" method="$method" name="ore_"><td align="center" valign="middle">\n|;
+#		$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
+#		$log2 .=qq|<input type="hidden" name="cmd" value="-1">\n|;
+#		$log2 .=qq|<input type="submit" $button1 value="対戦">$td_end</form>\n|;
+
+		# 行動セッション加算
+		$act_cnt++;
+
+#		&dat_write;
+
+		require './inc/ore_sub-battle.cgi';	&bt_st;
+
+	}else{&sele_list;}
+
+}
+
+#-------------------------------------------------------------------------------
+# 修行リスト表示
+sub sele_list {
+
+	local(@usrfile,@BT_LIST,@tdat);
+
+	# 参加者データファイル一覧取得
+	&usrdata_read;
+
+	# 表示参加者ランダム選出
+	foreach(0 .. $bt_count){
+		$bt_list = int(rand($#usrfile));
+
+		$flag = 0;
+		foreach(0 .. $#BT_LIST){
+			$flag = 1 if $bt_list eq $BT_LIST[$_];
+		}
+		push(@BT_LIST,$bt_list) if !$flag;
+	}
+	@BT_LIST = sort(@BT_LIST);
+
+	# ランダム選出参加者のデータ一括読み込み
+	foreach (0 .. $#BT_LIST) {
+		open(IN,"$usrdata$usrfile[$BT_LIST[$_]]") || &error("Can't open $usrfile[$BT_LIST[$_]].cgi",1);
+		push(@tdat,<IN>);
+		close(IN);
+	}
+
+	# 参加者ステータス取得
+	foreach(0 ..$#tdat){
+		%R = '';
+		my @prats = split(/,/,$tdat[$_]);
+		foreach $prats (@prats){
+			my($y,$x) = split(/;/,$prats);
+			$R{$y} = $x;
+		}
+
+		if($nm ne $R{'nm'}){
+			$NM_V{$R{'nm'}}		= $R{'nm'};		# 名前
+			$HP_MAX_V{$R{'nm'}}	= $R{'max_hp'};	# HP
+			$MP_MAX_V{$R{'nm'}}	= $R{'max_mp'};	# MP
+			$LV_V{$R{'nm'}}		= $R{'lv'};		# ﾚﾍﾞﾙ
+			$TM_V{$R{'nm'}}		= $R{'tm'};		# 行動
+			$UA_V{$R{'nm'}}		= $R{'ua'};		# UA
+			$UD_V{$R{'nm'}}		= $R{'ud'};		# UD
+			$LR_V{$R{'nm'}}		= $R{'lr'};		# LR
+			$AG_V{$R{'nm'}}		= $R{'ag'};		# AG
+			$CP_V{$R{'nm'}}		= $R{'camp'};	# 所属
+			$SG_V{$R{'nm'}}		= $R{'sogo'};	# 称号
+			$N_M{$R{'nm'}}		= $R{'id'};		# ID
+		}
+	}
+
+	# 修行ﾘｽﾄ表示
+	if(!$tm){
+
+		$l = $rk = 1;
+		foreach $nm (sort sclv keys(%LV_V)){
+			$lv_v = $LV_V{$nm};
+			next if($lv_v<=0);
+			if($lv_v<$prv_lv){ $rk = $l; }
+
+			$log .=qq|<a href="$script?id=$id&pw=$pw&cmd=-1&com=$N_M{$nm}">$rk位 Lv$lv_v |;
+
+			# 称号
+			$log .= ($SG_V{$nm} > 0) ? "$NM_V{$nm} [$sogo_p[$SG_V{$nm}]]" : "$NM_V{$nm}";
+
+			$log .=qq|</a> HP$HP_MAX_V{$nm}/MP$MP_MAX_V{$nm}/UA$UA_V{$nm}/UD$UD_V{$nm}/AG$AG_V{$nm}<br>\n|;
+
+			$prv_lv = $lv_v;
+			$l++;
+		}
+
+		$log .=qq|<a href="$script?id=$id&pw=$pw&cmd=-1">中止する</a> |;
+
+		$tm=1;
+
+		# 行動セッション加算
+		$act_cnt++;
+
+		$layout_flag=1;
+		&dat_write;
+	}
+
+	# 対戦相手割り当て
+	elsif($tm){
+
+		if($com){
+			open(IN,"$usrdata$com\.cgi") || &error("Open Error : $usrdata$com\.cgi",1);
+			$tdat = <IN>;
+			close(IN);
+
+			%VS = '';
+			my @prats = split(/,/,$tdat);
+			foreach $prats (@prats){
+				my ($u,$q) = split(/;/,$prats);
+				$VS{$u} = $q;
+			}
+
+			$tid	= $VS{'id'};		# ID
+			$tnm	= $VS{'nm'};		# 名前
+			$tlv	= $VS{'lv'};		# ﾚﾍﾞﾙ
+			$thp	= $VS{'max_hp'};	# HP
+			$thp_max= $VS{'max_hp'};	# MAX_HP
+			$tmp	= $VS{'max_mp'};	# MP
+			$tua	= $VS{'ua'};		# UA
+			$tud	= $VS{'ud'};		# UD
+			$tag	= $VS{'ag'};		# AG
+			$tcp	= $VS{'camp'};		# 所属
+			$tsg	= $VS{'sogo'};		# 称号
+
+			$tdf_a	= $VS{'df_a'};		# 防具
+			$tdg_a	= $VS{'dg_a'};		# 武具
+
+			$log	.="試合開始！<br>\n";
+			$type	= '修行中';
+			$tm		= 0;
+
+			require './inc/ore_sub-battle.cgi';	&bt_st;
+		}
+		elsif(!$com){
+			$log .="中止した…<br>\n";
+			$type	= '';
+			$tm		= 0;
+			&call_main_st;
+		}
+	}
+
+#	&dat_write;
+}
+
+
+
+
+
+1;#削除不可
+
+
+
+
+
+1;#削除不可
@@ -0,0 +1,274 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反										#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://pom.to/ ]							#
+#-----------------------------------------------------------#
+# 修行 PC用			Version 1.1								#
+#--- [注意事項] --------------------------------------------#
+# 1.このスクリプトは以下の利用規程に従って配布しています。	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#-------------------------------------------------------------------------------
+#修行メニュー
+sub training{
+
+	if(!$type){
+
+		if($hp<4){
+			$log .= "体力が少なすぎます。<br>\n";
+			$tm= $cmd = 0;
+			$type='';
+			&call_main_st;
+		}else{
+			$log	.= "修行を行います。<br>\n";
+			$tm= $cmd = 0;
+			$type	= '修行';
+
+			$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|;
+			$log2 .=qq|<option value="1">前回の対戦者</option>\n| if($tid);
+			$log2 .=qq|<option value="2">一覧から選出</option>\n|;
+			$log2 .=qq|<option value="0">やめる</option>\n|;
+			$log2 .=qq|</select><br>\n|;
+			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+		}
+	}
+	&dat_write;
+}
+
+#-------------------------------------------------------------------------------
+# 修行処理1
+sub training_exe{
+
+	if($cmd==0){
+		$log .= "修行を中止します<br>\n";
+		$tm = $cmd = 0;
+		$type='';
+		&call_main_st;
+
+	}elsif($cmd==1 && !$com){
+
+		# GETによる不正処理にペナルティ
+		&penalty if($mv_mode eq 'pc' && $method eq 'POST' && !$post_flag);
+
+		open(IN,"$usrdata$tid\.cgi") || &error("Open Error : $usrdata$tid\.cgi",1);
+		$tdat = <IN>;
+		close(IN);
+	
+		%VS = '';
+		my @prats = split(/,/,$tdat);
+		foreach $prats (@prats){
+			my ($u,$q) = split(/;/,$prats);
+			$VS{$u} = $q;
+		}
+	
+		$tid	= $VS{'id'};		# ID
+		$tnm	= $VS{'nm'};		# 名前
+		$tlv	= $VS{'lv'};		# ﾚﾍﾞﾙ
+		$thp	= $VS{'max_hp'};	# HP
+		$thp_max= $VS{'max_hp'};	# MAX_HP
+		$tmp	= $VS{'max_mp'};	# MP
+		$tua	= $VS{'ua'};		# UA
+		$tud	= $VS{'ud'};		# UD
+		$tag	= $VS{'ag'};		# AG
+		$tcp	= $VS{'camp'};		# 所属
+		$tsg	= $VS{'sogo'};		# 称号
+	
+		$tdf_a	= $VS{'df_a'};		# 防具
+		$tdg_a	= $VS{'dg_a'};		# 武具
+	
+		$log	.="前回の対戦相手と修行を行います。<br>試合開始！<br>\n";
+		$type	= '修行中';
+		$tm		= 0;
+
+		$cmd	=-1;
+#		$log2 .=qq|<form action="$script" method="$method" name="ore_"><td align="center" valign="middle">\n|;
+#		$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
+#		$log2 .=qq|<input type="hidden" name="cmd" value="-1">\n|;
+#		$log2 .=qq|<input type="submit" $button1 value="対戦">$td_end</form>\n|;
+
+		# 行動セッション加算
+		$act_cnt++;
+
+#		&dat_write;
+
+		require './inc/ore_sub-battle.cgi';	&bt_st;
+
+	}else{&sele_list;}
+
+}
+
+#-------------------------------------------------------------------------------
+# 修行リスト表示
+sub sele_list {
+
+	# GETによる不正処理にペナルティ
+	&penalty if($mv_mode eq 'pc' && $method eq 'POST' && !$post_flag);
+
+	local(@usrfile,@BT_LIST,@tdat);
+
+	# 参加者データファイル一覧取得
+	&usrdata_read;
+
+	# 表示参加者ランダム選出
+	foreach(0 .. $bt_count){
+		$bt_list = int(rand($#usrfile));
+
+		$flag = 0;
+		foreach(0 .. $#BT_LIST){
+			$flag = 1 if $bt_list eq $BT_LIST[$_];
+		}
+		push(@BT_LIST,$bt_list) if !$flag;
+	}
+	@BT_LIST = sort(@BT_LIST);
+
+	# ランダム選出参加者のデータ一括読み込み
+	foreach (0 .. $#BT_LIST) {
+		open(IN,"$usrdata$usrfile[$BT_LIST[$_]]") || &error("Can't open $usrfile[$BT_LIST[$_]].cgi",1);
+		push(@tdat,<IN>);
+		close(IN);
+	}
+
+	# 参加者ステータス取得
+	foreach(0 ..$#tdat){
+		%R = '';
+		my @prats = split(/,/,$tdat[$_]);
+		foreach $prats (@prats){
+			my($y,$x) = split(/;/,$prats);
+			$R{$y} = $x;
+		}
+
+		if($nm ne $R{'nm'}){
+			$NM_V{$R{'nm'}}		= $R{'nm'};		# 名前
+			$HP_MAX_V{$R{'nm'}}	= $R{'max_hp'};	# HP
+			$MP_MAX_V{$R{'nm'}}	= $R{'max_mp'};	# MP
+			$LV_V{$R{'nm'}}		= $R{'lv'};		# ﾚﾍﾞﾙ
+			$TM_V{$R{'nm'}}		= $R{'tm'};		# 行動
+			$UA_V{$R{'nm'}}		= $R{'ua'};		# UA
+			$UD_V{$R{'nm'}}		= $R{'ud'};		# UD
+			$LR_V{$R{'nm'}}		= $R{'lr'};		# LR
+			$AG_V{$R{'nm'}}		= $R{'ag'};		# AG
+			$CP_V{$R{'nm'}}		= $R{'camp'};	# 所属
+			$SG_V{$R{'nm'}}		= $R{'sogo'};	# 称号
+			$N_M{$R{'nm'}}		= $R{'id'};		# ID
+		}
+	}
+
+	# 修行ﾘｽﾄ表示
+	if(!$tm){
+
+		$log .=qq|<form action="$script" method="$method" name="ore_">\n|;
+		$log .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
+		$log .=qq|<input type="hidden" name="cmd" value="-1">\n|;
+		$log .=qq|<table border="0" cellpadding="4" sellpadding="4" width="100%">\n<tr align="center" bgcolor="#ccccee"><td></td><td>順位</td><td>LV</td><td>名前</td><td>体力/精神</td><td>攻撃/防御/指揮/敏捷</td><td>所属</td></tr>\n|;
+
+		$l = $rk = 1;
+		foreach $nm (sort sclv keys(%LV_V)){
+			$lv_v = $LV_V{$nm};
+			next if($lv_v<=0);
+			if($lv_v<$prv_lv){ $rk = $l; }
+
+			$log .= ($agent !~ /Mac/) ?
+				qq|<tr bgcolor="#ccccee" align="center"><td><input type="radio" value="$N_M{$nm}" name="com" class="a5" onClick="location.href='#bt_start'">\n|:
+				qq|<tr bgcolor="#ccccee" align="center"><td><input type="radio" value="$N_M{$nm}" name="com" class="a5">\n|;
+
+			$log .="</td><td>$rk</td><td>$lv_v</td><td>";
+
+			# 称号
+			$log .= ($SG_V{$nm} > 0) ? "$NM_V{$nm} [$sogo_p[$SG_V{$nm}]]" : "$NM_V{$nm}";
+
+			$log .=qq|</td><td>$HP_MAX_V{$nm}/$MP_MAX_V{$nm}</td><td>$UA_V{$nm}/$UD_V{$nm}/$LR_V{$nm}/$AG_V{$nm}</td><td>$cmp[$CP_V{$nm}]</td></tr>\n|;
+
+			$prv_lv = $lv_v;
+			$l++;
+		}
+		$log .="</table>\n";
+		$log .="<tt><br></tt><a name=\"bt_start\"><input type=submit value=\"対戦\" class=\"button1\">\n";
+		$log .="</td></form>\n";
+
+		$tm=1;
+
+		# 行動セッション加算
+		$act_cnt++;
+
+		$layout_flag=1;
+		&dat_write;
+	}
+
+	# 対戦相手割り当て
+	elsif($tm){
+
+		if($com){
+			open(IN,"$usrdata$com\.cgi") || &error("Open Error : $usrdata$com\.cgi",1);
+			$tdat = <IN>;
+			close(IN);
+
+			%VS = '';
+			my @prats = split(/,/,$tdat);
+			foreach $prats (@prats){
+				my ($u,$q) = split(/;/,$prats);
+				$VS{$u} = $q;
+			}
+
+			$tid	= $VS{'id'};		# ID
+			$tnm	= $VS{'nm'};		# 名前
+			$tlv	= $VS{'lv'};		# ﾚﾍﾞﾙ
+			$thp	= $VS{'max_hp'};	# HP
+			$thp_max= $VS{'max_hp'};	# MAX_HP
+			$tmp	= $VS{'max_mp'};	# MP
+			$tua	= $VS{'ua'};		# UA
+			$tud	= $VS{'ud'};		# UD
+			$tag	= $VS{'ag'};		# AG
+			$tcp	= $VS{'camp'};		# 所属
+			$tsg	= $VS{'sogo'};		# 称号
+
+			$tdf_a	= $VS{'df_a'};		# 防具
+			$tdg_a	= $VS{'dg_a'};		# 武具
+
+			$log	.="試合開始！<br>\n";
+			$type	= '修行中';
+			$tm		= 0;
+#			$log2	.=qq|<input type=submit value="NEXT!!" class="button1">$td_end</form>\n|;
+
+			require './inc/ore_sub-battle.cgi';	&bt_st;
+		}
+		elsif(!$com){
+			$log .="中止した…<br>\n";
+			$type	= '';
+			$tm		= 0;
+			&call_main_st;
+		}
+	}
+
+#	&dat_write;
+}
+
+# 不正GET処理のペナルティ
+sub penalty{
+	$pr=3600*24*3;
+	$sogo=4;
+	$camp=0;
+
+	$tm = $cmd = 0;
+	$type='服役中';
+	$max_hp	=int($max_hp*0.8);
+	$max_mp	=int($max_mp*0.8);
+	$ua		=int($ua*0.8);
+	$ud		=int($ud*0.8);
+	$lr		=int($lr*0.8);
+	$ag		=int($ag*0.8);
+
+	&dat_write;
+
+	&error("不正処理です。ペナルティが発生します。",1);
+}
+
+
+
+
+
+1;#削除不可
@@ -0,0 +1,148 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反 										#
+#  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 .= "戦争を実行します。攻め込む国を選んで下さい<br>\n";
+		$tm=0;
+		$type='戦争';
+		&call_mapdata if($mv_mode eq 'pc');
+
+		&war_menu;
+	}
+	&dat_write;
+}
+
+sub war_menu{
+	$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|;
+	$log2 .=qq|<option value="0">やめる</option>\n|;
+	foreach(1 .. $#cmp){ $log2 .=qq|<option value="$_">$cmp[$_]</option>\n|;}
+	$log2 .=qq|</select><br>\n|;
+	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+}
+
+#-------------------------------------------------------------------------------
+#戦争処理(戦争 >> 戦争中へ移行まで)
+sub war_exe{
+
+	if(!$tm){
+		if($camp<=0){
+			$log .= "放浪の身で戦争は起こせません<br>\n";
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+		}elsif($sogo==4){
+			$log .= "まずは借金を返済して$sogo_p[$sogo] の烙印を消してください。<br>\n";
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+		}else{
+			if($cmd<=0 || $cmd>$#cmp){
+				$log .= "戦争を中止します<br>\n";
+				$tm = $cmd = 0;
+				$type='';
+				&call_main_st;
+			}elsif($cmd>0){
+				$v=$cmd;
+				if($v==$camp){
+					$log .= "自国には攻め込めません<br>\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 .= "国力０の国を攻めることはできません。<br>\n";
+					$tm = $cmd = 0;
+					$type='';
+					&call_main_st;
+				}elsif($v==0){
+					$log .= "<br>\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以上確保して下さい<br>\n";
+						$tm = $cmd = 0;
+						$type='';
+						&call_main_st;
+					}elsif($my_cg<$y){
+						$log .= "戦争を行なうだけのお金が我が国にはありません。<br>出撃兵数の約\十\分の一の金が必要です<br>\n";
+						$tm = $cmd = 0;
+						$type='';
+						&call_main_st;
+					}elsif($my_cf<$sol){
+						$log .= "戦争を行なうだけの兵糧がありません。<br>出撃兵数と同数の兵糧が必要です<br>\n";
+						$tm = $cmd = 0;
+						$type='';
+						&call_main_st;
+					}else{
+						 $log .= "$cmp[$v]に攻め込みます<br>\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時間です<br>\n";
+						$nation=$v;
+						$pr=$GMT;
+						$tm=0;
+						$type='戦争中';
+					}
+				}
+			}
+		}
+	}
+	&write_data;
+}
+
+
+
+
+
+1;
@@ -0,0 +1,876 @@
+#-----------------------------------------------------------#
+#  罪と罰++ 二律背反 										#
+#  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 wr_st {
+
+	&syogo;
+
+	if(!$ck){
+		$log .="$date $cmp[$nation] に進入しました<br>\n";
+		$tm=0;
+
+		&usrdata_read;
+
+		$sach=0;
+		while($sach<15){
+
+			my $tg = int(rand($#usrfile));
+
+			open(IN,"$usrdata$usrfile[$tg]") || &error("Can't open $usrfile[$tg].cgi",1);
+			$tdat=<IN>;
+			close(IN);
+
+			# 参加者ステータス取得
+			%DAT = '';
+			@prats = split(/,/,$tdat);
+			foreach $prats (@prats){
+				($key,$v) = split(/;/,$prats);
+				$DAT{$key} = $v;
+			}
+
+			$z = ($lv-20);
+
+			if ($nation==$DAT{'camp'} && $DAT{'lv'}>$z){
+				$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'};	#
+				$ck=1;
+			}
+			$sach++;
+		}
+
+		# NPC読み込み
+		if(!$tnm){
+			require './inc/ore_sub-npc_1.cgi';
+			local $v=int(rand(5));
+			&ck_ne_1;
+		}
+
+		if($nation==1){
+			$t_cs=$cs1;
+		}elsif($nation==2){
+			$t_cs=$cs2;
+		}elsif($nation==3){
+			$t_cs=$cs3;
+		}elsif($nation==4){
+			$t_cs=$cs4;
+		}elsif($nation==5){
+			$t_cs=$cs5;
+		}
+
+
+		if($tsol<=$t_cs){
+			$t_cs-=$tsol;
+		}elsif($tsol>$t_cs){
+			$tsol=$t_cs;
+		}
+
+		if($nation==1){
+			$cs1-=$tsol;
+		}elsif($nation==2){
+			$cs2-=$tsol;
+		}elsif($nation==3){
+			$cs3-=$tsol;
+		}elsif($nation==4){
+			$cs4-=$tsol;
+		}elsif($nation==5){
+			$cs5-=$tsol;
+		}
+
+
+		if($tsol<100){
+			$log .="$cmp[$nation] 側は\予\備\兵不足の為、市民を急遽徴兵したようだ<br>\n";
+			$tsol=$g_p[$DAT{'rank'}];
+			if($nation==1){
+				$cn1-=100;
+				$cn1=0 if($cn1<1);
+			}elsif($nation==2){
+				$cn2-=100;
+				$cn2=0 if($cn2<1);
+			}elsif($nation==3){
+				$cn3-=100;
+				$cn3=0 if($cn3<1);
+			}elsif($nation==4){
+				$cn4-=100;
+				$cn4=0 if($cn4<1);
+			}elsif($nation==5){
+				$cn5-=100;
+				$cn5=0 if($cn5<1);
+			}
+
+			&hist_write;#国ログ
+
+		}
+
+		if($tsol<100){
+			$tsol=$bs_h[$v];
+		}
+
+		$b_n = int((rand(6))+5);
+		$log .="今回の作戦の戦闘限界ターンは $b_n ターンです<br>\n";
+		$b_v=0;
+
+		$log .="<hr size=1 noshade>\n";
+
+		$log .="$cmp[$nation] から $tnm が率いる防衛部隊が出撃してきた！<br>\n";
+
+		$log .="<hr size=1 noshade>\n";
+
+		$log .="侵攻作戦を実行に移します！戦闘開始！<br>\n";
+
+		$log2 .="<form action=$script method=$method name=ore_>\n";
+		$log2 .="<td align=center valign=middle>\n" if($mv_mode eq 'pc');
+		$log2 .="<input type=hidden name=id value=$id><input type=hidden name=pw value=$pw>\n";
+		$log2 .="<input type=hidden name=cmd value=\"-1\"><input type=submit $button1 value=\"  戦闘突入！！ \">\n";
+
+		$log .="<hr size=1 noshade>\n";
+
+		$ck=1;
+	}elsif($ck==1){
+
+		# 戦闘処理読み込み
+		require './inc/ore_sub-battle.cgi';
+
+		$j=int($b_n-$b_v);
+		$j=0 if($j<1);
+		$log .="<p>$cmp[$camp]軍 $nm $cl[$rank] 指揮($lr) 部隊数($sol) VS $cmp[$nation]軍 $tnm 指揮($tlr) 部隊数($tsol)</p>\n";
+
+		$log .="<p>- 戦闘限界まであと $j ターン -</p>\n";
+
+		$log .="<hr size=1 noshade>\n";
+
+		$qz = int($lv-20);
+
+		if($b_n eq'' && $tlr eq''){
+			$tm = $ck = $cmd = 0;
+			$nation = 0;
+			$type='';
+			$log .="戦闘中にバグが発生しました！強制的にメイン画面に戻ります<br>\n";
+			&call_main_st;
+		}
+
+		if($j>2 && $tm<10 && $cmd !=-1){
+			my $l=int(rand(5));
+			if($l==0 && $qz<$tlv){
+				$tm=50;
+				$log .="<p>なんと敵軍を指揮する $tnm から一騎討ちの申\し込みが！</p><p>どうしますか？</p>\n";
+
+				$log .="<p>敵将ｽﾃｰﾀｽ - $tnm ( HP $thp MP $tmp UA $tua UD $tud LV $tlv )</p>\n";
+
+			}
+		}
+
+		if($tm==50){
+
+			if($cmd==10){
+				$log .="一騎討ちの申\し込みを断った<br>評価がほんの少し下がった<br>\n";
+				$tm=0;
+				$rank_exe-=1;
+			}elsif($cmd==20){
+				$log .="$tnm の挑戦を受けてこの戦いの勝敗を架けた一騎討ちを行なう事に！<br>\n";
+				$tm=60;
+				$rank_exe+=1;
+			}
+
+		}elsif($tm==60){
+
+			$log .="真剣勝負開始！<br>\n";
+			$tm=70;
+
+		}elsif($tm==70){
+
+			# 戦闘処理呼び出し
+			&bt_cm;
+
+			if($thp<1){
+				$G =int(rand(200))+((500*$tlv)-($lv*50)); 
+				$G =1 if($G<1);
+				$G =int(rand(500))+1500 if($G>2000);
+				$gold +=$G;
+				$E =int((((((rand(5))+5)+$tlv)*2)*0.8)-$lv);
+				$E =1 if($E<1);
+				$E =int(rand(50))+250 if($E>300);
+				$exe+=$E;
+				$thp=0;
+				$bst ='';
+				$bt =0;
+				$log .="$nm は $tnm を倒した！<br>\n";
+				$log .="$G の金 と $E の経験値を得た！<br>\n";
+				$log .="<p></p>\n";
+
+				$H =int(rand(51)); 				$E = int((100+$H)*$lv);
+				$E = int((rand(500))+1800) if($E>2000);
+				$G = 20000;
+				#改造前は50+$H
+				$N = $H+150;
+				#ここまで
+				$exe+=$E;
+				$gold+=$G;
+
+				if($camp==1){
+					$cs1+=int($sol);
+					$cn1+=$N;
+				}elsif($camp==2){
+					$cs2+=int($sol);
+					$cn2+=$N;
+				}elsif($camp==3){
+					$cs3+=int($sol);
+					$cn3+=$N;
+				}elsif($camp==4){
+					$cs4+=int($sol);
+					$cn4+=$N;
+				}elsif($camp==5){
+					$cs5+=int($sol);
+					$cn5+=$N;
+				}
+
+				$tsol=int($tsol/2);
+
+				if($nation==1){
+					$cs1+=$tsol;
+				}elsif($nation==2){
+					$cs2+=$tsol;
+				}elsif($nation==3){
+					$cs3+=$tsol;
+				}elsif($nation==4){
+					$cs4+=$tsol;
+				}elsif($nation==5){
+					$cs5+=$tsol;
+				}
+
+				if($nation==1){
+					$cn1-=$N;
+					$cn1=0 if($cn1<1);
+				}elsif($nation==2){
+					$cn2-=$N;
+					$cn2=0 if($cn2<1);
+				}elsif($nation==3){
+					$cn3-=$N;
+					$cn3=0 if($cn3<1);
+				}elsif($nation==4){
+					$cn4-=$N;
+					$cn4=0 if($cn4<1);
+				}elsif($nation==5){
+					$cn5-=$N;
+					$cn5=0 if($cn5<1);
+				}
+
+				$log .="敵軍は $tnm の敗北に戦意を喪失しました！将を欠いた部隊など敵ではありません<br>敵軍を追撃し、かなりの被害を与えました！<br>\n";
+
+				$log .="$cmp[$nation]から $N の国力を奪いました<br>更に$E の経験値と $G の報酬を得た！<br>\n";
+
+				$wr_mes ="$date $cmp[$camp] の $syogo が $cmp[$nation] に侵攻、$tnm と一騎討ちの末これを下し $N の国力を奪う事に成功したようです";
+
+				&touitu;
+
+				$V =int(rand(6))+5;
+				$sol_lv-=$V;
+				$rank_exe+=int($V*2)+5;
+				$sol=0;
+				$tnm='';
+				$ck = $tm = $cmd = 0;
+				$nation=0;
+				$type='';
+
+				&hist_write;#国ログ
+
+			}elsif($hp<1){
+
+				$bst ='';
+				$bt =0;
+				$ck =0;
+				$hp =0;
+				$G=int(rand(10))+1;
+				$E=int(rand(5))+1;
+				$gold+=$G;
+				$exe+=$E;
+				$log .="あなたは $tnm に敗れ去った…<br>\n";
+				$log .="$G の金 と $E の経験値を得た<br>\n";
+				$log .="<p></p>\n";
+
+				$sol=int($sol/2);
+
+				if($camp==1){
+					$cs1+=int($sol);
+					$cn1+=$N;
+				}elsif($camp==2){
+					$cs2+=int($sol);
+					$cn2+=$N;
+				}elsif($camp==3){
+					$cs3+=int($sol);
+					$cn3+=$N;
+				}elsif($camp==4){
+					$cs4+=int($sol);
+					$cn4+=$N;
+				}elsif($camp==5){
+					$cs5+=int($sol);
+					$cn5+=$N;
+				}
+
+				if($nation==1){
+					$cs1+=$tsol;
+				}elsif($nation==2){
+					$cs2+=$tsol;
+				}elsif($nation==3){
+					$cs3+=$tsol;
+				}elsif($nation==4){
+					$cs4+=$tsol;
+				}elsif($nation==5){
+					$cs5+=$tsol;
+				}
+
+				$log .="一騎討ちに敗れ指揮官を失ったあなたの部隊は敵にかなりの損害を与えられた…<br>\n";
+
+				$rank_exe-=15;
+				$log .="部隊全滅という不名誉な敗北に、貴方に対する評価が著しく低下した<br>\n";
+				if($rank_exe<1){
+					$rank--;
+					$rank=1 if($rank<1);
+					$next_rank=int(($rank*$rank)*3);
+					$v=$next_rank-10;
+					$rank_exe=$v;
+					$log .="一階級降格されてしまった…<br>\n";
+				}
+
+				$wr_mes ="$date $cmp[$camp] の $syogo が $cmp[$nation] に侵攻、$tnm と一騎討ちを演じるが敗北し部隊は敗走したようです";
+
+				$sol=0;
+				$tnm='';
+				$ck = $tm = $cmd = 0;
+				$nation=0;
+				$type='';
+
+				&hist_write;#国ログ
+
+			}
+
+		}elsif($tm<1){
+
+			if($cmd==10){
+
+				my $btp = $ag + int(rand($lv/2) +1);
+				my $bte = $tag+ int(rand($tlv/2)+1);
+
+				if($j<3){
+					$log .="ここまで戦闘が進行した状態での退却は不\可\能\です<br>\n";
+					$b_n+=1;
+				}elsif($btp<$bte){
+					$log .="敵軍に逃走経路を塞がれ、もはや撤退は不可能です。<br>\n";
+					$b_n+=1;
+				}else{
+
+					$log .="残念ですが作戦を中止し退却します<br>\n";
+
+					if($camp==1){
+						$cs1+=int($sol);
+					}elsif($camp==2){
+						$cs2+=int($sol);
+					}elsif($camp==3){
+						$cs3+=int($sol);
+					}elsif($camp==4){
+						$cs4+=int($sol);
+					}elsif($camp==5){
+						$cs5+=int($sol);
+					}
+
+					if($nation==1){
+						$cs1+=$tsol;
+					}elsif($nation==2){
+						$cs2+=$tsol;
+					}elsif($nation==3){
+						$cs3+=$tsol;
+					}elsif($nation==4){
+						$cs4+=$tsol;
+					}elsif($nation==5){
+						$cs5+=$tsol;
+					}
+
+					$wr_mes ="$date $cmp[$camp] の $syogo が $cmp[$nation] に侵攻、 $tnm 防衛部隊と交戦。余儀なく撤退した模様";
+
+					$sol_lv-=int(rand(40));
+					$rank_exe-=1;
+					$rank_exe = 0 if($rank_exe<1);
+
+					$tnm='';
+					$ck = $tm = $cmd = 0;
+					$nation=0;
+					$type='';
+
+					&hist_write;#国ログ
+
+				}
+			}elsif($cmd==1){
+				$l=int(rand(3));
+				if($l==0){
+					$x=int(($sol/100)+($lr*10))+$sol_lv;
+					$y=int(($tsol/100)+($tlr*10))+$tsol_lv;
+					$x=1 if($x<1);
+					$y=1 if($y<1);
+					$log .="$nm (攻撃陣形) VS $tnm (攻撃陣形)<br>\n";
+					$log .="○自軍被害 $y ●敵軍被害 $x<br>\n";
+					$sol-=$y;
+					$tsol-=$x;
+				}elsif($l==1){
+					$x=int((($sol/100)+($lr*10))*2)+$sol_lv;
+					$y=int((($tsol/100)+($tlr*10))*0.5)+$tsol_lv;
+					$x=1 if($x<1);
+					$y=1 if($y<1);
+					$log .="$nm (攻撃陣形) VS $tnm (防御陣形)<br>\n";
+					$log .="○自軍被害 $y ●敵軍被害 $x<br>\n";
+					$sol-=$y;
+					$tsol-=$x;
+				}elsif($l==2){
+					$x=int((($sol/100)+($lr*10))*0.5)+$sol_lv;
+					$y=int((($tsol/100)+($tlr*10))*2)+$tsol_lv;
+					$x=1 if($x<1);
+					$y=1 if($y<1);
+					$log .="$nm (攻撃陣形) VS $tnm (突撃陣形)<br>\n";
+					$log .="○自軍被害 $y ●敵軍被害 $x<br>\n";
+					$sol-=$y;
+					$tsol-=$x;
+				}
+			}elsif($cmd==2){
+				$l=int(rand(3));
+				if($l==0){
+					$x=int((($sol/100)+($lr*10))*0.5)+$sol_lv;
+					$y=int((($tsol/100)+($tlr*10))*2)+$tsol_lv;
+					$x=1 if($x<1);
+					$y=1 if($y<1);
+					$log .="$nm (防御陣形) VS $tnm (攻撃陣形)<br>\n";
+					$log .="○自軍被害 $y ●敵軍被害 $x<br>\n";
+					$sol-=$y;
+					$tsol-=$x;
+				}elsif($l==1){
+					$x=int(($sol/100)+($lr*10))+$sol_lv;
+					$y=int(($tsol/100)+($tlr*10))+$tsol_lv;
+					$x=1 if($x<1);
+					$y=1 if($y<1);
+					$log .="$nm (防御陣形) VS $tnm (防御陣形)<br>\n";
+					$log .="○自軍被害 $y ●敵軍被害 $x<br>\n";
+					$sol-=$y;
+					$tsol-=$x;
+				}elsif($l==2){
+					$x=int((($sol/100)+($lr*10))*2)+$sol_lv;
+					$y=int((($tsol/100)+($tlr*10))*0.5)+$tsol_lv;
+					$x=1 if($x<1);
+					$y=1 if($y<1);
+					$log .="$nm (防御陣形) VS $tnm (突撃陣形)<br>\n";
+					$log .="○自軍被害 $y ●敵軍被害 $x<br>\n";
+					$sol-=$y;
+					$tsol-=$x;
+				}
+			}elsif($cmd==3){
+				$l=int(rand(3));
+				if($l==0){
+					$x=int((($sol/100)+($lr*10))*2)+$sol_lv;
+					$y=int((($tsol/100)+($tlr*10))*0.5)+$tsol_lv;
+					$x=1 if($x<1);
+					$y=1 if($y<1);
+					$log .="$nm (突撃陣形) VS $tnm (攻撃陣形)<br>\n";
+					$log .="○自軍被害 $y ●敵軍被害 $x<br>\n";
+					$sol-=$y;
+					$tsol-=$x;
+				}elsif($l==1){
+					$x=int((($sol/100)+($lr*10))*0.5)+$sol_lv;
+					$y=int((($tsol/100)+($tlr*10))*2)+$tsol_lv;
+					$x=1 if($x<1);
+					$y=1 if($y<1);
+					$log .="$nm (突撃陣形) VS $tnm (防御陣形)<br>\n";
+					$log .="○自軍被害 $y ●敵軍被害 $x<br>\n";
+					$sol-=$y;
+					$tsol-=$x;
+				}elsif($l==2){
+					$x=int(($sol/100)+($lr*10))+$sol_lv;
+					$y=int(($tsol/100)+($tlr*10))+$tsol_lv;
+					$x=1 if($x<1);
+					$y=1 if($y<1);
+					$log .="$nm (突撃陣形) VS $tnm (突撃陣形)<br>\n";
+					$log .="○自軍被害 $y ●敵軍被害 $x<br>\n";
+					$sol-=$y;
+					$tsol-=$x;
+				}
+			}
+
+			$log .="<hr size=1 noshade>\n";
+
+			if($sol<1&&$tsol<1){
+				$log .="両軍ともに壊滅的損害を受け戦闘継続が不可能となりました<br>今回の作戦は引き分けです\n";
+
+				$log .="国力は両陣営とも変化なし<br>\n";
+
+				$H =int(rand(21));
+
+				$E = int((20+$H)*$lv);
+				$E = int(rand(50))+170 if($E>200);
+				$G = 5000;
+				$exe+=$E;
+				$gold+=$G;
+				$rank_exe-=10;
+				$log .="部隊全滅という不名誉な敗北の為、貴方に対する評価が著しく低下した<br>\n";
+				if($rank_exe<1){
+					$rank--;
+					$rank=1 if($rank<1);
+					$next_rank=int(($rank*$rank)*3);
+					$v=$next_rank-10;
+					$rank_exe=$v;
+					$log .="一階級降格されてしまった…<br>\n";
+				}
+
+				$log .="$E の経験値と $G の報酬を得た<br>\n";
+
+				$wr_mes ="$date $cmp[$camp] の $syogo が $cmp[$nation] に侵攻、$tnm 防衛部隊に阻まれ激戦の末、両軍壊滅したようです";
+
+				$sol=0;
+				$sol_lv=0;
+				$tnm='';
+				$ck = $tm = $cmd = 0;
+				$nation=0;
+				$type='';
+
+				&hist_write;#国ログ
+
+			}elsif($tsol<1){
+				$log .="敵部隊を撃破しました！<br>我が軍の勝利です！<br>\n";
+				$H =int(rand(51));
+				$E = int((100+$H)*$lv);
+				$E = int((rand(500))+1800) if($E>2000);
+				$G = 20000;
+				#改造前は50+$H
+				$N = $H+150;
+				#ここまで
+				$exe+=$E;
+				$gold+=$G;
+
+				if($camp==1){
+					$cs1+=int($sol);
+					$cn1+=$N;
+				}elsif($camp==2){
+					$cs2+=int($sol);
+					$cn2+=$N;
+				}elsif($camp==3){
+					$cs3+=int($sol);
+					$cn3+=$N;
+				}elsif($camp==4){
+					$cs4+=int($sol);
+					$cn4+=$N;
+				}elsif($camp==5){
+					$cs5+=int($sol);
+					$cn5+=$N;
+				}
+
+				if($nation==1){
+					$cn1-=$N;
+					$cn1=0 if($cn1<1);
+				}elsif($nation==2){
+					$cn2-=$N;
+					$cn2=0 if($cn2<1);
+				}elsif($nation==3){
+					$cn3-=$N;
+					$cn3=0 if($cn3<1);
+				}elsif($nation==4){
+					$cn4-=$N;
+					$cn4=0 if($cn4<1);
+				}elsif($nation==5){
+					$cn5-=$N;
+					$cn5=0 if($cn5<1);
+				}
+
+				$log .="$cmp[$nation]から $N の国力を奪いました<br>$E の経験値と $G の報酬を得た！<br>\n";
+
+				$wr_mes ="$date $cmp[$camp] の $syogo が $cmp[$nation] に侵攻、$tnm 防衛部隊を撃破。 $N の国力を奪う事に成功したようです";
+
+				&touitu;
+
+				$V =int(rand(6))+10;
+				$sol_lv-=$V;
+				$rank_exe+=$V;
+				$sol=0;
+				$tnm='';
+				$ck = $tm = $cmd = 0;
+				$nation=0;
+				$type='';
+
+				&hist_write;#国ログ
+
+			}elsif($sol<1){
+				$log .="我が軍は敗北しました…。残念ですが撤退します。<br>\n";
+
+				$log .="国力は両陣営とも変化なし<br>\n";
+
+				$H =int(rand(21));
+
+				$E = int((20+$H)*$lv);
+				$E = int(rand(50))+170 if($E>200);
+				$G = 5000;
+				$exe+=$E;
+				$gold+=$G;
+
+				$log .="$E の経験値と $G の報酬を得た<br>\n";
+
+				$wr_mes ="$date $cmp[$camp] の $syogo が $cmp[$nation] に侵攻、$tnm 防衛部隊の前に敗退したようです";
+
+				if($nation==1){
+					$cs1+=$tsol;
+				}elsif($nation==2){
+					$cs2+=$tsol;
+				}elsif($nation==3){
+					$cs3+=$tsol;
+				}elsif($nation==4){
+					$cs4+=$tsol;
+				}elsif($nation==5){
+					$cs5+=$tsol;
+				}
+
+				$rank_exe-=10;
+				$log .="部隊全滅という不名誉な敗北に、貴方に対する評価が著しく低下した<br>\n";
+				if($rank_exe<1){
+					$rank--;
+					$rank=1 if($rank<1);
+					$next_rank=int(($rank*$rank)*3);
+					$v=$next_rank-10;
+					$rank_exe=$v;
+					$log .="一階級降格されてしまった…<br>\n";
+				}
+
+				$sol=0;
+				$tnm='';
+				$ck = $tm = $cmd = 0;
+				$nation=0;
+				$type='';
+
+					&hist_write;#国ログ
+			}elsif($b_n<$b_v){
+				$log .="戦闘限界ターンを超えてしまった…これ以上は戦えません<br>\n";
+
+				$log .="国力は両陣営とも変化なし<br>\n";
+
+				$H =int(rand(21));
+
+				$E = int((20+$H)*$lv);
+				$E = int(rand(50))+170 if($E>200);
+				$G = 5000;
+				$exe+=$E;
+				$gold+=$G;
+
+				$log .="$E の経験値と $G の報酬を得た<br>\n";
+
+				$wr_mes ="$date $cmp[$camp] の $syogo が $cmp[$nation] に侵攻、$tnm 防衛部隊に阻まれ戦闘限界をオーバーしたようです";
+
+				$rank_exe-=5;
+				$log .="作戦に失敗した為、貴方に対する評価が低下した<br>\n";
+				if($rank_exe<1){
+					$rank--;
+					$rank=1 if($rank<1);
+					$next_rank=int(($rank*$rank)*3);
+					$v=$next_rank-10;
+					$rank_exe=$v;
+					$log .="一階級降格されてしまった…<br>\n";
+				}
+
+				$sol_lv-=int(rand(40));
+				$sol=0;
+				$tnm='';
+				$ck = $tm = $cmd = 0;
+				$nation=0;
+				$type='';
+
+				&hist_write;#国ログ
+			}
+
+			$b_v+=1 if($cmd>0);
+
+		}
+
+		$log2 .="<form action=$script method=$method name=ore_>\n";
+		$log2 .="<td align=center valign=middle>\n" if($mv_mode eq 'pc');
+		$log2 .="<input type=hidden name=id value=\"$id_p\">\n";
+		$log2 .="<input type=hidden name=pw value=\"$pw_p\">\n";
+		if($tsol<1||$sol<1){
+			$log2 .="<input type=hidden name=cmd value=-1>\n";
+		}elsif($tm==50){
+			$log2 .="<select name=cmd size=1><option value=10>嫌だ</option><option value=20>了承</option>\n";
+			$log2 .="</select>";
+		}elsif($tm==60){
+			$log2 .="<input type=hidden name=cmd value=-1>\n";
+		}elsif($tm==70){
+			&spell_sp;
+		}elsif($tm<1){
+			$log2 .="<select name=cmd size=1><option value=1>攻撃陣形</option><option value=2>防御陣形</option><option value=3>突撃陣形</option><option value=10>逃走</option>\n";
+			$log2 .="</select>";
+		}
+		$log2 .="<br>";#テーブルずれ修正
+		$log2 .="<input type=submit $button1 value=\"NEXT！\">$td_end</form>\n";#テーブル追加</tr></table>
+	}
+
+	if($cn1<1&&$ce1<1){
+
+		$wr_mes ="$date $cmp[1] が $syogo によって壊滅的損害を受け亡国となりました。";
+
+		$ce1=1;
+
+		&hist_write;#国ログ
+
+	}elsif($cn2<1&&$ce2<1){
+
+		$wr_mes ="$date $cmp[2] が $syogo によって壊滅的損害を受け亡国となりました。";
+
+		$ce2=1;
+
+		&hist_write;#国ログ
+
+	}elsif($cn3<1&&$ce3<1){
+
+		$wr_mes ="$date $cmp[3] が $syogo によって壊滅的損害を受け亡国となりました。";
+
+		$ce3=1;
+
+		&hist_write;#国ログ
+
+	}elsif($cn4<1&&$ce4<1){
+
+		$wr_mes ="$date $cmp[4] が $syogo によって壊滅的損害を受け亡国となりました。";
+
+		$ce4=1;
+
+		&hist_write;#国ログ
+
+	}elsif($cn5<1&&$ce5<1){
+
+		$wr_mes ="$date $cmp[5] が $syogo によって壊滅的損害を受け亡国となりました。";
+
+		$ce5=1;
+
+		&hist_write;#国ログ
+
+	}elsif($cn1>1000&&$ce1>0){
+
+		$wr_mes ="$date $cmp[1] が $syogo の活躍により亡国から復興しました。";
+
+		$ce1=0;
+
+		&hist_write;#国ログ
+
+	}elsif($cn2>1000&&$ce2>0){
+
+		$wr_mes ="$date $cmp[2] が $syogo の活躍により亡国から復興しました。";
+
+		$ce2=0;
+
+		&hist_write;#国ログ
+
+	}elsif($cn3>1000&&$ce3>0){
+
+		$wr_mes ="$date $cmp[3] が $syogo の活躍により亡国から復興しました。";
+
+		$ce3=0;
+
+		&hist_write;#国ログ
+
+	}elsif($cn4>1000&&$ce4>0){
+
+		$wr_mes ="$date $cmp[4] が $syogo の活躍により亡国から復興しました。";
+
+		$ce4=0;
+
+		&hist_write;#国ログ
+
+	}elsif($cn5>1000&&$ce5>0){
+
+		$wr_mes ="$date $cmp[5] が $syogo の活躍により亡国から復興しました。";
+
+		$ce5=0;
+
+		&hist_write;#国ログ
+	}
+
+	$layout_flag=1;
+	&write_data;
+	&hist_write if($touitu_flag);
+}
+
+#-------------------------------------------------------------------------------
+#統一処理
+sub touitu{
+
+	&syogo;
+
+	if($camp==1){
+		if($cn1>=$data_reset){
+
+			$wr_mes ="$date $cmp[$camp] が $syogo 等の活躍により大陸を制覇しました！！！";
+
+			$sogo=1;#覇者記録
+			$hasya=$nm;#覇者記録
+			$hcamp=$camp;
+			$touitu_flag=1;
+		}
+	}elsif($camp==2){
+		if($cn2>=$data_reset){
+
+			$wr_mes ="$date $cmp[$camp] が $syogo 等の活躍により大陸を制覇しました！！！";
+
+			$sogo=1;#覇者記録
+			$hasya=$nm;#覇者記録
+			$hcamp=$camp;
+			$touitu_flag=1;
+		}
+	}elsif($camp==3){
+		if($cn3>=$data_reset){
+
+			$wr_mes ="$date $cmp[$camp] が $syogo 等の活躍により大陸を制覇しました！！！";
+
+			$sogo=1;#覇者記録
+			$hasya=$nm;#覇者記録
+			$hcamp=$camp;
+			$touitu_flag=1;
+		}
+	}elsif($camp==4){
+		if($cn4>=$data_reset){
+
+			$wr_mes ="$date $cmp[$camp] が $syogo 等の活躍により大陸を制覇しました！！！";
+
+			$sogo=1;#覇者記録
+			$hasya=$nm;#覇者記録
+			$hcamp=$camp;
+			$touitu_flag=1;
+		}
+	}elsif($camp==5){
+		if($cn5>=$data_reset){
+
+			$wr_mes ="$date $cmp[$camp] が $syogo 等の活躍により大陸を制覇しました！！！";
+
+			$sogo=1;#覇者記録
+			$hasya=$nm;#覇者記録
+			$hcamp=$camp;
+			$touitu_flag=1;
+		}
+	}
+}
+
+
+
+
+
+1;