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,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;