1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17

                If pl.PitchResult = PITCH_RESULT_STRIKE_SWINGING Or pl.PitchResult = PITCH_RESULT_STRIKE_CALLED Then
                    AddPitch()
                    rec.Strikes = rec.Strikes + 1
                    If rec.Strikes >= g.Strikes And BitIsOff(pl.PitchFlags, PITCH_FLAGS_K_ON_BASE) Then
                        AddResult(EVENT_TYPE_K)
                        rec.Balls = 0
                        rec.Strikes = 0
                        rec.Outs = rec.Outs + 1
                        advanceBatter = True
                    End If
                    If rec.Strikes >= g.Strikes And BitIsOn(pl.PitchFlags, PITCH_FLAGS_K_ON_BASE) Then
                        AddResult(EVENT_TYPE_K)
                        rec.Balls = 0
                        rec.Strikes = 0
                        advanceBatter = True
                    End If
                End If