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