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,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;#削除不可