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