## Version 2C of Retrosheet Scoresheet Released

A wild event in yesterday’s Pirates’ game prompted the release of Version 2C of my Retrosheet Scoresheet.

Carlos Zambrano was pitching to Nate McLouth in the 7th inning, and he threw a wild pitch, allowing Nyjer Morgan to score from 3rd. Zambrano argued and was ejected. Angel Guzman entered to replace Zambrano, and continue pitching to Nate McLouth.

In this situation, you can place a “P” (for “P”ost “P”replay) in the BA column. This isn’t a perfect fix, as I haven’t considered a complex combination of “P”, “B”, and “A” codes… but this should cover 99.9% of games.

## Game 47 – Pirates @ Cubs

“)) {
\$starter=strpos(\$rowvalue, ““);
\$stopper=strpos(\$rowvalue, “
“, \$starter);
\$amount=\$stopper-\$starter;
\$venue=substr(\$rowvalue, \$starter+12, \$amount-12);
}
If(strpos(\$rowvalue, ““)){
\$starter=strpos(\$rowvalue, ““);
\$stopper=strpos(\$rowvalue, “
“, \$starter);
\$amount=\$stopper-\$starter;
If(\$team==1)\$home_first_name=substr(\$rowvalue, \$starter+9, \$amount-9);
If(\$team==0)\$away_first_name=substr(\$rowvalue, \$starter+9, \$amount-9);
}
If(strpos(\$rowvalue, ““)){
\$starter=strpos(\$rowvalue, ““);
\$stopper=strpos(\$rowvalue, “
“, \$starter);
\$amount=\$stopper-\$starter;
If(\$team==1)\$home_last_name=substr(\$rowvalue, \$starter+10, \$amount-10);
If(\$team==0)\$away_last_name=substr(\$rowvalue, \$starter+10, \$amount-10);
}
If(strpos(\$rowvalue, ““)){
\$starter=strpos(\$rowvalue, ““);
\$stopper=strpos(\$rowvalue, “
“, \$starter);
\$amount=\$stopper-\$starter;
If(\$team==1)\$home_throwing_hand=substr(\$rowvalue, \$starter+14, \$amount-14);
If(\$team==0)\$away_throwing_hand=substr(\$rowvalue, \$starter+14, \$amount-14);
}
If(strpos(\$rowvalue, ““)){
\$starter=strpos(\$rowvalue, ““);
\$stopper=strpos(\$rowvalue, “
“, \$starter);
\$amount=\$stopper-\$starter;
If(\$team==1)\$home_wins=substr(\$rowvalue, \$starter+6, \$amount-6);
If(\$team==0)\$away_wins=substr(\$rowvalue, \$starter+6, \$amount-6);
}
If(strpos(\$rowvalue, ““)){
\$starter=strpos(\$rowvalue, ““);
\$stopper=strpos(\$rowvalue, “
“, \$starter);
\$amount=\$stopper-\$starter;
If(\$team==1)\$home_losses=substr(\$rowvalue, \$starter+8, \$amount-8);
If(\$team==0)\$away_losses=substr(\$rowvalue, \$starter+8, \$amount-8);
}
If(strpos(\$rowvalue, ““)){
\$starter=strpos(\$rowvalue, ““);
\$stopper=strpos(\$rowvalue, “
“, \$starter);
\$amount=\$stopper-\$starter;
If(\$team==1)\$home_era=substr(\$rowvalue, \$starter+5, \$amount-5);
If(\$team==0)\$away_era=substr(\$rowvalue, \$starter+5, \$amount-5);
}
If(strpos(\$rowvalue, ““)){
\$starter=strpos(\$rowvalue, ““);
\$stopper=strpos(\$rowvalue, “
“, \$starter);
\$amount=\$stopper-\$starter;
If(\$team==1)\$home_so=substr(\$rowvalue, \$starter+4, \$amount-4);
If(\$team==0)\$away_so=substr(\$rowvalue, \$starter+4, \$amount-4);
\$team–;
}

}
echo \$away_first_name . ” ” . \$away_last_name . ” (” . \$away_throwing_hand . “) (” . \$away_wins . “-” . \$away_losses . “, ” . \$away_era . ” ERA, ” . \$away_so . ” K) @ ” . \$home_first_name . ” ” . \$home_last_name . ” (” . \$home_throwing_hand . “) (” . \$home_wins . “-” . \$home_losses . “, ” . \$home_era . ” ERA, ” . \$home_so . ” K)

“.\$gametime.” EST @ “. \$venue;
?>

Post Game Update

Locked in a pitchers’ dual, the Pirates trailed the Cubs 2-1 in the 7th. Nyjer Morgan singled, but advanced to 3rd on Alfonso Soriano’s error. Carlos Zambrano threw a wild pitch, scoring Morgan. Zambrado did not agree. He exploded in anger, was ejected by the home plate umpire, and he ended his day by destroying a Gatorade machine in the dugout with his bat.

Still, it wasn’t enough for the Bucs to get the series win in Chicago. Reed Johnson homered in the bottom of the 8th, and that was enough. Cubs won 5-2.

The game did reveal a weakness in my Retrosheet scoresheet. Version 2b was unable to handle a substitution following a preplay event. I will post version 2c this afternoon.

Live Updates: “, \$starter);
\$amount=\$stopper-\$starter;
\$good_stuff=substr(\$rowvalue, \$starter+13, \$amount-14);
if(\$starter>\$teamchange)\$home=1;
\$inningarray[\$counter]=\$inning;
\$homearray[\$counter]=\$home;
\$playarray[\$counter]=\$good_stuff;
\$starterarray[\$counter]=\$starter;
\$counter++;
\$starter=\$starter+1;
}
}

array_multisort(\$inningarray, \$homearray, \$starterarray, \$playarray);

\$loopcount=0;
\$currentinning=0;
\$currenthalf=1;
while(\$loopcount\$currentinning){
echo(“
Inning \$inningarray[\$loopcount]
“);
\$currentinning++;
}
if(\$homearray[\$loopcount]!=\$currenthalf){
if(\$homearray[\$loopcount]==0){echo(“
Away
“);\$currenthalf=0;}
if(\$homearray[\$loopcount]==1){echo(“
Home
“);\$currenthalf=1;}
}
echo(\$playarray[\$loopcount].”
“);
\$loopcount++;
}

?>