競馬であそぶ ６

4. 　kbsTk の 部分的な修正 　　

公開しているものと、sSeia が個人で使っているものとでは現在かなり違っていて、現段階での
修正バージョンを更新しようという気はあまり無くなってしまったので、部分的な修正でお茶を
濁したいと思います。

ということで、ご指摘いただいた、kbsTk のなかの、戦績集計で「芝の成績」に 芝・直線のレース
の数値が加算されていない件です。
ここはあまり使ってないなぁ〜というのはイイワケです。恥_^;

修正⇒　0021 だと 1014 〜 1017 行あたりに以下の４行があります。

            $m5 = $sskm[0] + $sskh[0] ;
            $m6 = $sskm[1] + $sskh[1] ;
            $m7 = $sskm[2] + $sskh[2] ;
            $m8 = $sskm[3] + $sskh[3] + $sskm[4] + $sskh[4] + $sskm[5] + $sskh[5] ;

確かに、右回りと左回りしか加算されていません。
この下に、下の４行を追加してください。

            if ( $tr < 23 ) {
                $m5 += $ssks[0] ;
                $m6 += $ssks[1] ;
                $m7 += $ssks[2] ;
                $m8 += $ssks[3] + $ssks[4] + $ssks[5] ;
            }

慣れれば、かなりいろいろ書き換えて楽しめると思います。

---

レースタイトル行に外回りなら、外。直線なら、直 と表示させる。
修正⇒　0021 だと808行あたりに

    my $t_dz = $tr < 23 ? '芝' : 'ダ' ;

とあるので、その下に以下を追加してください。

    my $cors = substr( $kline, 570, 1 ) ;
    {
        my $soto = '' ;
        $soto = '外' if $tr =~ /12|14|16|18|19|22/ ;
        $soto = '直' if $tr == 10 ;
        $t_dz .= $soto ;
        $t_dz .= $cors if $tr < 23  ;
    }

ココの修正を忘れていました。
ついでだから、芝の仮柵が関係するコース表示を追加しておきます。(2005.11.09)

そうすると、タイトル行の距離、芝orダ の後に、外とか直が表示されます。
新潟や京都では必要な表示かもしれませんね。

---

以下、適宜追加するかも、