ore_login.cgi

sub campを修正する


        &header;
        @pu = @up = ();
        if($ok < 9){
                @up     = ("筋トレ","トスバッティング","走り込み","遠投","ノック");
        for($j=0; $j<5; $j++){
                push @{$pu}, "<option value=\"$up[$j]\">$up[$j]</option>";
                }
        }else{
                for($i=9; $i<18; $i++){
                ($id[$i], $jun[$i], $posit[$i], $pitch[$i], $cond[$i], $fas[$i], $hen1[$i], $henlv1[$i], $hen2[$i], $henlv2[$i], $hen3[$i], $henlv3[$i], $hen4[$i], $henlv4[$i], $hen5[$i], $henlv5[$i], $sei[$i], $def[$i], $sta[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i]) = split(/<>/, $players[$i]);
                        if($sakusya eq $sakusya[$i] && $kojin eq $kojin[$i]){ $no = $i; last; }
                }
                if($sayuu[$no] eq "右"){ $sinkakei = "シンカー系練習"; }else{ $sinkakei = "スクリュー系練習"; }
                if($henlv1[$no] >= 1){ @up1 = ("カーブ系練習","スローカーブ","Ｓスライダー"); }else{ @up1 = ("カーブ系練習"); }
                if($henlv2[$no] >= 1){ @up2 = ("スライダー系練習","Ｈスライダー","カットボール"); }else{ @up2 = ("スライダー系練習"); }
                if($henlv3[$no] >= 1){ @up3 = ("フォーク系練習","Ｖスライダー","ＳＦＦ","チェンジアップ","パーム","ナックル"); }else{ @up3 = ("フォーク系練習"); }
                if($henlv4[$no] >= 1){ @up4 = ("$sinkakei","Ｈシンカー","シュート系練習"); }else{ @up4 = ("$sinkakei","シュート系練習"); }
                @up     = ("速球","コントロール","スタミナ");
                push(@up, @up1,@up2,@up3,@up4);
        $j = 0;
        foreach(@up){
                push @{$pu}, "<option value=\"$up[$j]\">$up[$j]</option>";
                $j++;
                }
        }

↓

        &header;
        @pu = @up = ();
        if($ok < 9){
                @up     = ("筋トレ","トスバッティング","走り込み","遠投","ノック");
        for($j=0; $j<5; $j++){
                push @{$pu}, "<option value=\"$up[$j]\">$up[$j]</option>";
                }
        }else{
                for($i=9; $i<18; $i++){
                ($id[$i], $jun[$i], $posit[$i], $pitch[$i], $cond[$i], $fas[$i], $hen1[$i], $henlv1[$i], $hen2[$i], $henlv2[$i], $hen3[$i], $henlv3[$i], $hen4[$i], $henlv4[$i], $hen5[$i], $henlv5[$i], $sei[$i], $def[$i], $sta[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i]) = split(/<>/, $players[$i]);
                        if($sakusya eq $sakusya[$i] && $kojin eq $kojin[$i]){ $no = $i; last; }
                }
                if($sayuu[$no] eq "右"){ $sinkakei = "シンカー系練習"; }else{ $sinkakei = "スクリュー系練習"; }
                        if($henlv1[$no] >= 1){ 
                        @up1 = ("カーブ系練習","スローカーブ","Ｓスライダー"); 
                        foreach (@up1) {
                        next if $hen1[$i] eq $_;
                        @upp1 = (@upp1, $_); 
                        }
                }else{ @upp1 = ("カーブ系練習"); }
                        if($henlv2[$no] >= 1){ @up2 = ("スライダー系練習","Ｈスライダー","カットボール"); 
                        foreach (@up2) {
                        next if $hen2[$i] eq $_;
                        @upp2 = (@upp2, $_); 
                        }
                }else{ @up2 = ("スライダー系練習"); }
                        if($henlv3[$no] >= 1){ 
                        @up3 = ("フォーク系練習","Ｖスライダー","ＳＦＦ","チェンジアップ","パーム","ナックル"); 
                        foreach (@up3) {
                        next if $hen3[$i] eq $_;
                        @upp3 = (@upp3, $_); 
                        }
                }else{ @up3 = ("フォーク系練習"); }
                        if($henlv4[$no] >= 1){ 
                        @up4 = ("$sinkakei","Ｈシンカー","シュート系練習"); 
                        foreach (@up4) {
                        next if $hen4[$i] eq $_;
                        @upp4 = (@upp4, $_); 
                        }
                }else{ @up4 = ("$sinkakei","シュート系練習"); }
                @up = ("速球","コントロール","スタミナ");
                push(@up, @upp1,@upp2,@upp3,@upp4);
        $j = 0;
        foreach(@up){
                push @{$pu}, "<option value=\"$up[$j]\">$up[$j]</option>";
                $j++;
                }
        }

覚えている特殊変化球は練習メニューに出ません
間違って二回選択するミスを防ぐことが出来ると思います
変化球を増やしてる場合はそれなりに対応してください

フレームが無かったらココをクリックしてください