ホールドの導入
"ホールド"から"ホールド終わり"までをcgiに挿入する。
試合結果にホールドしたっぽい人が表示されるだけ。
-----------------game.cgi------------------------------
##### ランナーの処理Aにおいて
****ここから****
if($runnokori){ $holdfail[1-$kougeki][$zenpitch] = 1; $holdfail[1-$kougeki][$pitchno[1-$kougeki]] = 1; }else{ $holdfail[1-$kougeki][$pitchno[1-$kougeki]] = 1; }
}
###############ホールド
if($tokuten[$kougeki] < $tokuten[1-$kougeki] && ($pitchno[1-$kougeki] ne 9 || $pitchno[1-$kougeki] ne 17)){
if($tuikaten + $tokuten[$kougeki] >= $tokuten[1-$kougeki]){
if($runnokori >= $tuikaten - 1){ $holdfail[1-$kougeki][$zenpitch] = 1; $holdfail[1-$kougeki][$pitchno[1-$kougeki]] = 1; }else{ $holdfail[1-$kougeki][$pitchno[1-$kougeki]] = 1; }
}
}elsif($tokuten[$kougeki] eq $tokuten[1-$kougeki] && ($pitchno[1-$kougeki] ne 9 || $pitchno[1-$kougeki] ne 17)){
if($runnokori){ $holdfail[1-$kougeki][$zenpitch] = 1; $holdfail[1-$kougeki][$pitchno[1-$kougeki]] = 1; }else{ $holdfail[1-$kougeki][$pitchno[1-$kougeki]] = 1; }
}
###############ホールド終わり
if($tuikaten2){
****ここまで****
-----------------end------------------------------
----------------ore_game.cgi------------------------
****ここから****
$runnokori2 = 3;
}
}
######################ホールド
if($pitchchangeflag){
if(($tokuten[1-$kougeki]-$tokuten[$kougeki]) > 0 && ($tokuten[1-$kougeki]-$tokuten[$kougeki]) < 4){ $holdflag1[1-$kougeki][$pitchno[1-$kougeki]] = $pitchno[1-$kougeki]; }
elsif(($tokuten[1-$kougeki]-$tokuten[$kougeki]) > 0){ $holdflag3[1-$kougeki][$pitchno[1-$kougeki]] = $pitchno[1-$kougeki]; }
if($runner eq 1 || $runner eq 10 || $runner eq 100){#投手交替時の残りランナー数
$runnokori = 1; if((($tokuten[1-$kougeki]-$tokuten[$kougeki]) <= 3) && (($tokuten[1-$kougeki]-$tokuten[$kougeki]) > 0)){ $holdflag2[1-$kougeki][$pitchno[1-$kougeki]] = $pitchno[1-$kougeki]; }
}elsif($runner eq 11 || $runner eq 101 || $runner eq 110){
$runnokori = 2; if((($tokuten[1-$kougeki]-$tokuten[$kougeki]) <= 4) && (($tokuten[1-$kougeki]-$tokuten[$kougeki]) > 0)){ $holdflag2[1-$kougeki][$pitchno[1-$kougeki]] = $pitchno[1-$kougeki]; }
}elsif($runner eq 111){
$runnokori = 3; if((($tokuten[1-$kougeki]-$tokuten[$kougeki]) <= 5) && (($tokuten[1-$kougeki]-$tokuten[$kougeki]) > 0)){ $holdflag2[1-$kougeki][$pitchno[1-$kougeki]] = $pitchno[1-$kougeki]; }
}elsif($runner eq 0){
$runnokori = 0; if((($tokuten[1-$kougeki]-$tokuten[$kougeki]) <= 2) && (($tokuten[1-$kougeki]-$tokuten[$kougeki]) > 0)){ $holdflag2[1-$kougeki][$pitchno[1-$kougeki]] = $pitchno[1-$kougeki]; }
}
if($tokuten[1-$kougeki] eq $tokuten[$kougeki]){$holdflagd[1-$kougeki][$pitchno[1-$kougeki]] = $pitchno[1-$kougeki];}
}
######################ホールド終わり
}else{
$g_box[$kougeki][$number[$kougeki]] += $box;
****ここまで****
****ここから****
elsif($saveflaggg > 9 && $winflag ne $saveflaggg && $pitchno[1] eq $saveflaggg){ $p_save[1][$saveflaggg] = 1; $saveflag = $saveflaggg; }
$p_lose[0][$loseflag] = 1; }
######################ホールド
$moo1 = $moo2 = 0;
for($cow=10;$cow<18;$cow++){
if($holdflag1[0][$cow] > 9 && $holdfail[0][$cow] ne 1 && $winflag ne $cow && $saveflag ne $cow && $pitchno[0] ne $cow &&$cow eq $holdflag1[0][$cow] && $p_kai[0][$cow] >= 3){ $holdp[0][$moo1] = $cow; $moo1++; }
elsif($holdflag3[0][$cow] > 9 && $holdfail[0][$cow] ne 1 && $winflag ne $cow && $saveflag ne $cow && $pitchno[0] ne $cow && $cow eq $holdflag3[0][$cow] && $p_kai[0][$cow] >= 9){ $holdp[0][$moo1] = $cow; $moo1++; }
elsif($holdflag2[0][$cow] > 9 && $holdfail[0][$cow] ne 1 && $winflag ne $cow && $saveflag ne $cow && $pitchno[0] ne $cow && $cow eq $holdflag2[0][$cow]){ $holdp[0][$moo1] = $cow; $moo1++; }
elsif($holdflagd[0][$cow] > 9 && $holdfail[0][$cow] ne 1 && $winflag ne $cow && $saveflag ne $cow && $pitchno[0] ne $cow && $cow eq $holdflagd[0][$cow]){ $holdp[0][$moo1] = $cow; $moo1++; }
if($holdflag1[1][$cow] > 9 && $holdfail[1][$cow] ne 1 && $winflag ne $cow && $saveflag ne $cow && $pitchno[1] ne $cow && $cow eq $holdflag1[1][$cow] && $p_kai[1][$cow] >= 3){ $holdp[1][$moo2] = $cow; $moo2++; }
elsif($holdflag3[1][$cow] > 9 && $holdfail[1][$cow] ne 1 && $winflag ne $cow && $saveflag ne $cow && $pitchno[1] ne $cow && $cow eq $holdflag3[1][$cow] && $p_kai[1][$cow] >= 9){ $holdp[1][$moo2] = $cow; $moo2++; }
elsif($holdflag2[1][$cow] > 9 && $holdfail[1][$cow] ne 1 && $winflag ne $cow && $saveflag ne $cow && $pitchno[1] ne $cow && $cow eq $holdflag2[1][$cow]){ $holdp[1][$moo2] = $cow; $moo2++; }
elsif($holdflagd[1][$cow] > 9 && $holdfail[1][$cow] ne 1 && $winflag ne $cow && $saveflag ne $cow && $pitchno[1] ne $cow && $cow eq $holdflagd[1][$cow]){ $holdp[1][$moo2] = $cow; $moo2++; }
}
######################ホールド終わり
if($tensa2 > 0){ $g_win[0] = 1; $g_lose[1] = 1; }elsif($tensa2 < 0){ $g_win[1] = 1; $g_lose[0] = 1; }else{ $g_drow[0] = 1; $g_drow[1] = 1; }#チーム勝敗
****ここまで****
****ここから****
$log[$m] = "| [負] | $pitch[0][$loseflag] $pitwin[0][$loseflag]勝$pitlose[0][$loseflag]敗$save[0][$loseflag]Ｓ |
";
$m++;
}
########################ホールド
if($moo1>0){
$log[$m] = "| [H] | ";
$m++;
for($cow=0;$cow<$moo1;$cow++){
$log[$m] = "$pitch[0][$holdp[0][$cow]] $pitwin[0][$holdp[0][$cow]]勝$pitlose[0][$holdp[0][$cow]]敗$save[0][$holdp[0][$cow]]Ｓ ";
$m++;
}
$log[$m] = " |
";
$m++;
}
if($moo2>0){
$log[$m] = "| [H] | ";
$m++;
for($cow=0;$cow<$moo2;$cow++){
$log[$m] = "$pitch[1][$holdp[1][$cow]] $pitwin[1][$holdp[1][$cow]]勝$pitlose[1][$holdp[1][$cow]]敗$save[1][$holdp[1][$cow]]Ｓ ";
$m++;
}
$log[$m] = " |
";
$m++;
}
########################ホールド終わり
for($i=0; $i<2; $i++){
if($i eq 0) { $log[$m] = "| [本塁打] | "; $m++; }
****ここまで****
-----------------end---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|