(cache) 投手4人制改造 -　Storept

赤字が追加、青字が削除

gekipawa.cgi
#####の後の言葉を検索したらでやすいかと。

##### 能力値合計JavaScript
sub java_sum{
　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・

function selectCahnge() {
	frmsta = new Array(39);
	stam = new Array(9);

	var t_total = 0;
	ten = 0;
	etnn = 0;
	for (i=0; i<10; i++) {
	for (i=0; i<12; i++) {
		stam[i] = 0;
		for (j=0; j<4; j++) {
			if(i < 8){
				x = i * 7 + j + $base[0];
			}else{
				x = (i - 8) * 6 + j + $base[1];
			}
			y = i * 4 + j;
			frmsta[y] = parseInt(document.para.elements[x].value);
			stam[i] += frmsta[y];
			ten_check(frmsta[y]);
		}
		t_total += stam[i];
	}
	for (i=0; i<10; i++) {
	for (i=0; i<12; i++) {
		if(i < 8){
			x = i * 7 + $base[2];
		}else{
			x = (i - 8) * 6 + $base[3];
		}
		document.para.elements[x].value = stam[i];
　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・

##### 選手登録テーブル sub make_table{ print "守備位置を選択して、名前と4つの能\力を記入してください。\n"; print "<table border=1 width=90%>\n";

	for (i=0; i<10; i++) {
	for (i=0; i<12; i++) {
		$jun = $i + 1;
		if($form{'sinki_make'}){
			@{$positlist[$i]} = @positlist;
			$name_value = '';
			$para1[$i] = $para2[$i] = $para3[$i] = $para4[$i] = 5;
			$parasum[$i] = 20;
		}else{
			$name_value = "value=$p_name[$i]";
		}
　　　　　　　　　・
　　　　　　　　　・
		}elsif($i eq 8){

print "<tr align=center><td rowspan=3>投　手</td>\n"; print "<tr align=center><td rowspan=5>投　手</td>\n";


　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・

##### 登録確認画面 sub make_end{ 　　　　　　　　　・　　　　　　　　　・　　　　　　　　　・ print <<"_EOF_"; <font color=$tcolor size=$tsize>登録確認</font> <br><br>これで登録します。よろしいですか？<br>（戻るときはブラウザのブックマークでね♪）<br><br> <form action=$cgifile method=$method> <input type=hidden name=record value=1> _EOF_

	for (i=0; i<10; i++) {
	for (i=0; i<12; i++) {

print "<input type=hidden name=posit$i value=$posit[$i]>\n"; print "<input type=hidden name=p_name$i value=$p_name[$i]>\n"; print "<input type=hidden name=para1_$i value=$para1[$i]>\n"; print "<input type=hidden name=para2_$i value=$para2[$i]>\n"; 　　　　　　　　　・　　　　　　　　　・　　　　　　　　　・

##### キャラごとのパラメータ
sub chara_para{

　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・
	($home =~ /^http:\/\/[a-zA-Z0-9]+/) || ($home = '');

	for (i=0; i<10; i++) {
	for (i=0; i<12; i++) {
		$posit[$i]	= $form{"posit$i"};
		$p_name[$i]	= $form{"p_name$i"};
		$para1[$i]	= $form{"para1_$i"};
		$para2[$i]	= $form{"para2_$i"};
		$para3[$i]	= $form{"para3_$i"};
		$para4[$i]	= $form{"para4_$i"};
	}
# 各キャラのチェック
	for (i=0; i<10; i++) {
	for (i=0; i<12; i++) {
		if(length($p_name[$i]) < 1 || length($p_name[$i]) > 5 * 2){ &error('選手の名前の長さは5文字までにしてね。'); }
		for($j=0; $j<$i; $j++){
			if($i < 9 && $posit[$i] eq $posit[$j]) { &error('ポジションが重複しているよ。'); }
			if($p_name[$i] eq $p_name[$j]){ &error('選手の名前は違う名前にしてね。'); }
		}
	}

# 能力値チェック
	$totalpoint	= 0;
	$check1		= 0;
	$check2		= 0;
	for (i=0; i<10; i++) {
	for (i=0; i<12; i++) {
　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・
##### 登録結果テーブル
sub touroku_table{


　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・

_EOF_

	for (i=0; i<10; i++) {
	for (i=0; i<12; i++) {
		if($form{'make_end'}){
			$condition = "普通";
		}else{
			if($cond[$i] < 2)	{ $condition = "最悪"; }
			elsif($cond[$i] < 4){ $condition = "悪い"; }
　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・

print "<tr align=center><td rowspan=3>投　手</td>\n"; print "<tr align=center><td rowspan=5>投　手</td>\n";



##### チーム登録処理
sub record{

　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・

# ログへ書き込むスタイルの整形
	@players = ();
	for (i=0; i<10; i++) {
	for (i=0; i<12; i++) {
		$id = $jun = $i + 1;
		$posit	= $form{"posit$i"};
		$p_name	= $form{"p_name$i"};
		$para1	= $form{"para1_$i"};
		$para2	= $form{"para2_$i"};
		$para3	= $form{"para3_$i"};
		$para4	= $form{"para4_$i"};
		if($i < 8){
　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・

geki_login.cgi


##### ログイン画面
sub login{

	$userdata = &user_check;

　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・
			$daritu[$i] = ".000";
		}

		$para[$i] = $pow[$i] + $mit[$i] + $run[$i] + $def[$i];
		if($i < 8)	{ $para_sum[0] += $para[$i]; }
		else		{ $para_sum[1] += $para[$i]; }
	}

	@bouritu = ();
	for (i=8; i<10; i++) {
	for (i=8; i<12; i++) {
	
　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・
	}

	@condition = @condition_bar = ();
	for (i=0; i<10; i++) {
	for (i=0; i<12; i++) {
		if($cond[$i] < 2)	{ $condition[$i] = "最悪"; $condition_bar[$i] = $cond_bar[0]; }
		elsif($cond[$i] < 4){ $condition[$i] = "悪い"; $condition_bar[$i] = $cond_bar[1]; }
		elsif($cond[$i] < 6){ $condition[$i] = "普通"; $condition_bar[$i] = $cond_bar[2]; }

　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・

	for (i=8; i<10; i++) {
	for (i=8; i<12; i++) {

@parameta = ($fas[$i],$cha[$i],$sei[$i],$def[$i]); for($j=0; $j<4; $j++){ if($parameta[$j] > 7){ if($parameta[$j] eq 10){ $parameta[$j] = "<font color=\"FF0000\">$parameta[$j]</font>"; }else{ $parameta[$j] = "<font color=\"0000FF\">$parameta[$j]</font>"; } } } 　　　　　　　　　・　　　　　　　　　・　　　　　　　　　・ ##### 試合登録確認 sub playkaku{ @bosspara = ($form{'b_act'},$form{'b_bnt'},$form{'b_ste'},$form{'b_mnd'});

# 各キャラのチェック
	for (i=0; i<10; i++) {
	for (i=0; i<12; i++) {
		$dajun[$i] = $form{"jun$i"};
		if($dajun[$i] ne int($dajun[$i])){ &error('打順は整数で入力してね。'); }
		if($i < 8){
			if($dajun[$i] < 1 || $dajun[$i] > 8){ &error('野手の打順は1～8までにしてね。'); }
		}else{
	
if($dajun[$i] < 9 || $dajun[$i] > 10){ &error('投手の打順は9～10までにしてね。'); }
if($dajun[$i] < 9 || $dajun[$i] > 12){ &error('投手の打順は9～12までにしてね。'); }
		}
		for($j=0; $j<$i; $j++){	if($dajun[$i] eq $dajun[$j]){ &error('打順が重複しているよ。'); } }
	}


　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・
	if(($times < $date + $between * 60) && ($win + $lose > 0)){ &error('連続で試合はできないよ。'); }

	@players = split(//, $charadata);
	for (i=0; i<10; i++) {
	for (i=0; i<12; i++) {
		$j = $dajun[$i] - 1;
		($id[$j], $jun[$j], $posit[$j], $p_name[$j], $cond[$j], $para1[$j], $　･　･　･　･　･
	}

	&header;

print <<"_EOF_"; <font color="$tcolor" size="$tsize">試合登録確認</font> <br><br>これで試合に挑みますます。よろしいですか？<br>（戻るときはブラウザのブックマークでね♪）<br><br> <form action="$cgifile" method="$method"> _EOF_

	for (i=0; i<10; i++) {
	for (i=0; i<12; i++) {
　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・
##### キャンプ画面
sub campin{

　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・
	@positname	= ('捕','一','二','三','遊','左','中','右');
	for (i=0; i<10; i++) {
	for (i=0; i<12; i++) {
		($id[$i], $jun[$i], $posit[$i], $p_name[$i], $cond[$i], $para　･　･　･　･　･

		for($j=0; $j<8; $j++) {
			$select = '';
			if($positname[$j] eq $posit[$i]){ $select = 'selected'; }
			push @{$positlist[$i]}, "";
		}
		$parasum[$i] = $para1[$i] + $para2[$i] + $para3[$i] + $para4[$i];

　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・

##### キャンプ終了処理
sub camp_rec{

　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・
	for (i=8; i<10; i++) {
	for (i=8; i<12; i++) {
		($id, $jun, $posit, $pitch, $cond, 　･　･　･　･　･

　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・

geki_game.cgi

##### 試合結果画面
sub playlog{


　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・
	@players = split(//, $charadata);
	for (i=0; i<10; i++) {
	for (i=0; i<12; i++) {
		$dajun[$i] = $form{"jun$i"};
		$j = $dajun[$i] - 1;
		$jun[0][$j]	= $dajun[$i];
	
　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・

	@{$player[1]} = split(//, $charadata[1]);
	for($i=0; $i<8; $i++){
		($id[1][$i],$jun[1][$i], $posit[1][$i], $yasyu[1][　･　･　･　･　･
	}
	for (i=8; i<10; i++) {
	for (i=8; i<12; i++) {
		($id[1][$i],$jun[1][$i], $posit[1][$i], $pitch[1][$i], $cond[1][$i　･　･　･　･　･
		$yasyu[1][$i]   = $pitch[1][$i];
	}

　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・


##### 結果表示
sub kekka{

　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・

	for($i=0; $i<2; $i++){
		if($i eq 1 && $end_flag){
			$k_charadata[$i] = $charadata[$i];
		}else{
			@g_win = @g_lose = ();
			if($tensa2 > 0){ $g_win[0] = 1; $g_lose[1] = 1; }
			else		   { $g_win[1] = 1; $g_lose[0] = 1; }

			for($k=0; $k<8; $k++){ &koushin_yasyu; }
for($k=8; $k<10; $k++){ &koushin_pitch;}
for($k=8; $k<12; $k++){ &koushin_pitch;}

			$k_charadata[$i] = join('', @{$player[$i]});
		}

		&koushin_team;

　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・


##### 投手データ更新
sub koushin_pitch{

	if($k eq 8){

		$jun[$i][$k] = 10;
		$kk = 9;

		$jun[$i][$k] = 12;
		$kk = 11;


　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・

		}
	}else{

		$jun[$i][$k] = 9;
		$kk = 8;

            $jun[$i][$k] = $jun[$i][$k] - 1;
            $kk = $jun[$i][$k] - 1;
	}

　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・


##### 試合後の処理
sub game_end{

　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・


# 選手データファイルへの書き込み
	open(YD,"$leaguefold/$yasyufile") || &error('指定されたファイルが開けません。');
	eval 'flock(YD,1);';
	seek(YD,0,0);  @yasyus = ;  close(YD);
	eval 'flock(YD,8);';

	open(PD,"$leaguefold/$pitchfile") || &error('指定されたファイルが開けません。');
	eval 'flock(PD,1);';
	seek(PD,0,0);  @pitchs = ;  close(PD);
	eval 'flock(PD,8);';

for($k=0; $k<10; $k++){
for($k=0; $k<12; $k++){
		($id[0]) = split(/<>/,$player[0][$k]);
		($id[1]) = split(/<>/,$player[1][$k]);
		$c_play_flag = 0;
		$w_play_flag = 0;
		$c_play_kakiko = "$team[0]<>$times<>$player[0][$k]<>\n";
		$w_play_kakiko = "$team[1]<>$times<>$player[1][$k]<>\n";

　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・

geki_else.cgi

##### リーグ期間終了処理
sub league_end{

　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・
			if($j eq 0){ $champ_team = $team; }
			$j++;

			$lastjun = $j;
			$teamdata  = "$lastjun<>0<>0<>0<>0<>0<>0<>0<>0<>0<>0<>0<>0<>0<>0";

			@players = split(//, $charadata);
			@player = ();
			for($i=0; $i<8; $i++){
				($id[$i], $jun[$i], $posit[$i], $yasyu[$i], $cond[$i], $pow[$i]　･　･　･　･　･
				$player[$i] = "$s_yasyu$id[$i]<>$jun[$i]<>$posit[$i]<>$yasyu[$i]<>5<>$pow[$i]<>$mit　･　･　･　･　･
			}
for($i=8; $i<10; $i++){
for($i=8; $i<12; $i++){
				($id[$i], $jun[$i], $posit[$i], $pitch[$i], $cond[$i], $fas[$i], 　･　･　･　･　･
				$player[$i] = "$s_pitch$id[$i]<>$jun[$i]<>$posit[$i]<>$pitch[$i]<>　･　･　･　･　･
			}
			$charadata = join('', @player);

　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・

これを変更すれば多分投手4人制が動作するかと思います。

このページのトップへ