1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267

    Private Sub picPitchLocation_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picPitchLocation.MouseUp
 
        Dim recalc As Boolean
        Dim newPlay As New Data.Baseball.Play
        Dim advanceRunners As Boolean
        Dim i As Integer
        Dim p As New Data.Baseball.Play
        Dim advanceBaseCtr As Integer
        Dim runsScored As Integer
        Dim outRecorded As Boolean
 
        Play_InitializeGS(glob.currentPlay, PLAY_TYPE_PITCH)
        pitchPtX = e.X / 2
        pitchPtY = e.Y / 2
 
        advanceRunners = False
        outRecorded = False
 
        Dim f As New EventPitchEntry
        f.ShowDialog()
 
        If Not pitchCancel Then
            ' get defense if necessary
            If glob.currentPlay.PitchResult = PITCH_RESULT_STRIKE_SWINGING Or glob.currentPlay.PitchResult = PITCH_RESULT_STRIKE_CALLED Then
                If BitIsOn(glob.currentPlay.PitchFlags, PITCH_FLAGS_K_PUTOUT) Then
                    glob.currentPlay.DefensiveSequence = PBPDefensiveSequence(glob.currentPlay.DefensiveSequence)
                    advanceRunners = True
                    runnersAdvanceDescription = "strikeout (putout)"
                End If
            End If
            If BitIsOn(glob.currentPlay.PitchFlags, PITCH_FLAGS_WILD_PITCH) Then
                advanceRunners = True
                runnersAdvanceDescription = "wild pitch"
            End If
            If BitIsOn(glob.currentPlay.PitchFlags, PITCH_FLAGS_PASSED_BALL) Then
                advanceRunners = True
                runnersAdvanceDescription = "passed ball"
            End If
            glob.currentPlay.Create(glob.conn)
            If glob.currentPlay.PitchResult = PITCH_RESULT_BALL Or _
                                glob.currentPlay.PitchResult = PITCH_RESULT_BALL_CHECK_SWING Or _
                                glob.currentPlay.PitchResult = PITCH_RESULT_INTENTIONAL_BALL Or _
                                glob.currentPlay.PitchResult = PITCH_RESULT_PITCHOUT Then
                recalc = False
                gameState.balls = gameState.balls + 1
                gameState.numberOfPitches = gameState.numberOfPitches + 1
                If gameState.balls >= glob.currentBaseballContestPreference.ballsPerWalk Then
                    ' see if runners on base need to advance
                    AdvanceRunnersByWalk()
                    advanceRunners = False
                    ' put the batter on base
                    Play_InitializeGS(newPlay, PLAY_TYPE_ON_BASE)
                    newPlay.FinalBase = 1
                    newPlay.Create(glob.conn)
                    gameState.batterPlayerID = GetNextBatter()
                    recalc = True
                End If
            End If
            If glob.currentPlay.PitchResult = PITCH_RESULT_STRIKE_SWINGING Or _
                                glob.currentPlay.PitchResult = PITCH_RESULT_STRIKE_CALLED Then
                gameState.numberOfPitches = gameState.numberOfPitches + 1
                gameState.numberOfStrikes = gameState.numberOfStrikes + 1
                recalc = False
                If BitIsOn(glob.currentPlay.PitchFlags, PITCH_FLAGS_K_ON_BASE) Then
                    advanceRunners = True
                    runnersAdvanceDescription = "strikeout (on base)"
                    Play_InitializeGS(newPlay, PLAY_TYPE_ON_BASE)
                    newPlay.FinalBase = 1
                    newPlay.Create(glob.conn)
                    gameState.batterPlayerID = GetNextBatter()
                    recalc = True
                Else
                    gameState.strikes = gameState.strikes + 1
                    If gameState.strikes >= glob.currentBaseballContestPreference.strikesPerStrikeout Then
                        outRecorded = True
                        gameState.batterPlayerID = GetNextBatter()
                        recalc = True
                    End If
                End If
            End If
            If glob.currentPlay.PitchResult = PITCH_RESULT_FOUL_BALL Then
                gameState.numberOfPitches = gameState.numberOfPitches + 1
                gameState.numberOfStrikes = gameState.numberOfStrikes + 1
                If gameState.strikes < glob.currentBaseballContestPreference.strikesPerStrikeout - 1 Then
                    gameState.strikes = gameState.strikes + 1
                End If
                recalc = False
            End If
            If glob.currentPlay.PitchResult = PITCH_RESULT_HIT_BY_PITCH Then
                gameState.numberOfPitches = gameState.numberOfPitches + 1
                ' see if runners on base need to advance
                AdvanceRunnersByWalk()
                ' put the batter on base
                Play_InitializeGS(newPlay, PLAY_TYPE_ON_BASE)
                newPlay.FinalBase = 1
                newPlay.Create(glob.conn)
                gameState.batterPlayerID = GetNextBatter()
                recalc = True
            End If
            If glob.currentPlay.PitchResult = PITCH_RESULT_BALL_IN_PLAY Then
                gameState.numberOfPitches = gameState.numberOfPitches + 1
                gameState.numberOfStrikes = gameState.numberOfStrikes + 1
                Play_InitializeGS(bipPlay, PLAY_TYPE_ON_BASE)
                cancelFlag = False
                Dim eip As New EventInPlay
                eip.ShowDialog()
                If cancelFlag Then
                    bipPlay.BallInPlayResult = 0
                    Data.Baseball.Play.Delete(glob.conn, glob.currentPlay.PlayID)
                    Redraw(True)
                    Exit Sub
                Else
                    bipPlay.Create(glob.conn)
                    advanceRunners = True
                    runnersAdvanceDescription = "ball in play"
                End If
            Else
                bipPlay = New Data.Baseball.Play
            End If
            runsScored = 0
            If bipPlay.ballInPlayResult = BALL_IN_PLAY_RESULT_HR Then
                runsScored = 1
            End If
            If bipPlay.ballInPlayResult = BALL_IN_PLAY_RESULT_OUT Or bipPlay.ballInPlayResult = BALL_IN_PLAY_RESULT_HRO Then
                outRecorded = True
            End If
            If advanceRunners Then
                recalc = True
                ' final check to make sure that the advance runners screen needs to pop up
                advanceBaseCtr = 0
                If BasePlayers_Count(gameState.thirdBasePlayers) > 0 Then advanceBaseCtr = advanceBaseCtr + 1
                If BasePlayers_Count(gameState.secondBasePlayers) > 0 Then advanceBaseCtr = advanceBaseCtr + 1
                If BasePlayers_Count(gameState.firstBasePlayers) > 0 Then advanceBaseCtr = advanceBaseCtr + 1
                If advanceBaseCtr = 0 Then advanceRunners = False
                ' do not show advance runners screen if the inning number of outs has been reached
                If outRecorded Then
                    If (gameState.outs + 1) >= glob.currentBaseballContestPreference.outsPerHalfInning And _
                                glob.currentBaseballContestPreference.automaticallyEndInnings Then advanceRunners = False
                End If
            End If
            If advanceRunners Then
                ' manually advance all runners on base
                For i = 1 To 3
                    runnersAdvancePlayerID(i) = Nothing
                    runnersAdvanceFinalBase(i) = Nothing
                Next
                If BasePlayers_Count(gameState.thirdBasePlayers) > 0 Then
                    runnersAdvancePlayerID(3) = gameState.thirdBasePlayers(1)
                    runnersAdvanceFinalBase(3) = 3
                End If
                If BasePlayers_Count(gameState.secondBasePlayers) > 0 Then
                    runnersAdvancePlayerID(2) = gameState.secondBasePlayers(1)
                    runnersAdvanceFinalBase(2) = 2
                End If
                If BasePlayers_Count(gameState.firstBasePlayers) > 0 Then
                    runnersAdvancePlayerID(1) = gameState.firstBasePlayers(1)
                    runnersAdvanceFinalBase(1) = 1
                End If
                runnersAdvanceEnableOuts = False
                If bipPlay.ballInPlayResult = BALL_IN_PLAY_RESULT_FC Then
                    runnersAdvanceDescription = "fielder's choice"
                    runnersAdvanceEnableOuts = True
                End If
                If bipPlay.ballInPlayResult = BALL_IN_PLAY_RESULT_DP Then
                    runnersAdvanceDescription = "double play"
                    runnersAdvanceEnableOuts = True
                End If
                If bipPlay.ballInPlayResult = BALL_IN_PLAY_RESULT_ERROR Then
                    runnersAdvanceDescription = "error"
                End If
                If bipPlay.ballInPlayResult = BALL_IN_PLAY_RESULT_HR Then
                    For i = 1 To 3
                        If runnersAdvanceFinalBase(i) > 0 Then runnersAdvanceFinalBase(i) = 5
                    Next
                End If
                If advanceBaseCtr = 1 And (bipPlay.ballInPlayResult = BALL_IN_PLAY_RESULT_FC Or _
                                            bipPlay.ballInPlayResult = BALL_IN_PLAY_RESULT_DP) Then
                    ' automatically mark out the runner on FC and DP when there is only one runner on base
                    runnersAdvanceFinalBase(1) = -1
                    runnersAdvanceFinalBase(2) = -1
                    runnersAdvanceFinalBase(3) = -1
                Else
                    Dim ra As New RunnersAdvance
                    ra.ShowDialog()
                End If
                If BasePlayers_Count(gameState.thirdBasePlayers) > 0 Then
                    If runnersAdvanceFinalBase(3) > 3 Then
                        If runnersAdvanceFinalBase(3) >= 4 Then runsScored = runsScored + 1
                        Play_InitializeOB(p, gameState.thirdBaseEvents(1), True)
                        If runnersAdvanceFinalBase(3) = 5 Then
                            p.finalBase = 4
                            p.onBaseFlags = 2 ^ ON_BASE_FLAGS_EARNED_RUN
                        Else
                            p.finalBase = runnersAdvanceFinalBase(3)
                            p.onBaseFlags = 0
                        End If
                        If runnersAdvanceDescription = "wild pitch" Then
                            p.OnBaseFlags = p.OnBaseFlags + 2 ^ ON_BASE_FLAGS_WP_ADVANCE
                        ElseIf runnersAdvanceDescription = "passed ball" Then
                            p.OnBaseFlags = p.OnBaseFlags + 2 ^ ON_BASE_FLAGS_PB_ADVANCE
                        End If
                        p.Create(glob.conn)
                    ElseIf runnersAdvanceFinalBase(3) = -1 Then
                        Play_InitializeOB(p, gameState.thirdBaseEvents(1), False)
                        p.onBaseResult = ON_BASE_RESULT_OUT
                        p.Create(glob.conn)
                    End If
                End If
                If BasePlayers_Count(gameState.secondBasePlayers) > 0 Then
                    If runnersAdvanceFinalBase(2) > 2 Then
                        If runnersAdvanceFinalBase(2) >= 4 Then runsScored = runsScored + 1
                        Play_InitializeOB(p, gameState.secondBaseEvents(1), True)
                        If runnersAdvanceFinalBase(2) = 5 Then
                            p.finalBase = 4
                            p.onBaseFlags = 2 ^ ON_BASE_FLAGS_EARNED_RUN
                        Else
                            p.finalBase = runnersAdvanceFinalBase(2)
                            p.onBaseFlags = 0
                        End If
                        If runnersAdvanceDescription = "wild pitch" Then
                            p.OnBaseFlags = p.OnBaseFlags + 2 ^ ON_BASE_FLAGS_WP_ADVANCE
                        ElseIf runnersAdvanceDescription = "passed ball" Then
                            p.OnBaseFlags = p.OnBaseFlags + 2 ^ ON_BASE_FLAGS_PB_ADVANCE
                        End If
                        p.Create(glob.conn)
                    ElseIf runnersAdvanceFinalBase(2) = -1 Then
                        Play_InitializeOB(p, gameState.secondBaseEvents(1), False)
                        p.onBaseResult = ON_BASE_RESULT_OUT
                        p.Create(glob.conn)
                    End If
                End If
                If BasePlayers_Count(gameState.firstBasePlayers) > 0 Then
                    If runnersAdvanceFinalBase(1) > 1 Then
                        If runnersAdvanceFinalBase(1) >= 4 Then runsScored = runsScored + 1
                        Play_InitializeOB(p, gameState.firstBaseEvents(1), True)
                        If runnersAdvanceFinalBase(1) = 5 Then
                            p.finalBase = 4
                            p.onBaseFlags = 2 ^ ON_BASE_FLAGS_EARNED_RUN
                        Else
                            p.finalBase = runnersAdvanceFinalBase(1)
                            p.onBaseFlags = 0
                        End If
                        If runnersAdvanceDescription = "wild pitch" Then
                            p.OnBaseFlags = p.OnBaseFlags + 2 ^ ON_BASE_FLAGS_WP_ADVANCE
                        ElseIf runnersAdvanceDescription = "passed ball" Then
                            p.OnBaseFlags = p.OnBaseFlags + 2 ^ ON_BASE_FLAGS_PB_ADVANCE
                        End If
                        p.Create(glob.conn)
                    ElseIf runnersAdvanceFinalBase(1) = -1 Then
                        Play_InitializeOB(p, gameState.firstBaseEvents(1), False)
                        p.onBaseResult = ON_BASE_RESULT_OUT
                        p.Create(glob.conn)
                    End If
                End If
            End If
            If runsScored > 0 Then
                If bipPlay.ballInPlayResult <> BALL_IN_PLAY_RESULT_DP Then
                    bipPlay.runsBattedIn = runsScored
                    bipPlay.Put(glob.conn)
                End If
            End If
            Redraw(recalc)
        End If
 
    End Sub