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