1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13

            If pl.PlayType = PLAY_TYPE_CHANGE_GAME_STATE Then
                rec.Inning = pl.Inning
                rec.InningTop = (pl.InningTop <> 0)
                rec.Outs = CInt(Val(Mid(pl.DefensiveSequence, 1, 1)))
                rec.Balls = CInt(Val(Mid(pl.DefensiveSequence, 2, 1)))
                rec.Strikes = CInt(Val(Mid(pl.DefensiveSequence, 3, 1)))
                BasePlayers_Clear(rec.FirstBasePlayers, rec.FirstBaseEvents)
                If Val(Mid(pl.DefensiveSequence, 4, 1)) <> 0 Then BasePlayers_Add(rec.FirstBasePlayers, rec.FirstBaseEvents, TEAM_PLAYER_UID, 0)
                BasePlayers_Clear(rec.SecondBasePlayers, rec.SecondBaseEvents)
                If Val(Mid(pl.DefensiveSequence, 5, 1)) <> 0 Then BasePlayers_Add(rec.SecondBasePlayers, rec.SecondBaseEvents, TEAM_PLAYER_UID, 0)
                BasePlayers_Clear(rec.ThirdBasePlayers, rec.ThirdBaseEvents)
                If Val(Mid(pl.DefensiveSequence, 6, 1)) <> 0 Then BasePlayers_Add(rec.ThirdBasePlayers, rec.ThirdBaseEvents, TEAM_PLAYER_UID, 0)
            End If