野手特殊能力を追加する

login.cgiを修正する

        case "$imgurl/zetsurin.gif": title = "絶倫"; comment = "スタミナの消費が少なくなる"; break;
        case "$imgurl/jubaku.gif": title = "呪縛"; comment = "相手打者の走力大きくダウン"; break;
        case "$imgurl/kihaku.gif": title = "気迫"; comment = "連打をとてもされにくくなる"; break;
        case "$imgurl/アイコン": title = "名前"; comment = "新しい特殊の説明"; 
}


        for($t=0; $t<20; $t++){
                $ff[$t] = substr("$tok[$i]", $t, 1);
                if($t eq 0){ if($ff[$t] eq 1){ print "<img src=$imgurl/bantbatsu.gif onMouseOver=\"Navi('$imgurl/bantbatsu.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }elsif($ff[$t] eq 2){ print "<img src=$imgurl/bantmaru.gif onMouseOver=\"Navi('$imgurl/bantmaru.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }elsif($ff[$t] eq 3){ print "<img src=$imgurl/bant5.gif onMouseOver=\"Navi('$imgurl/bant5.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 1){ if($ff[$t] eq 1){ print "<img src=$imgurl/chancebatsu.gif onMouseOver=\"Navi('$imgurl/chancebatsu.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }elsif($ff[$t] eq 2){ print "<img src=$imgurl/chancemaru.gif onMouseOver=\"Navi('$imgurl/chancemaru.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }elsif($ff[$t] eq 3){ print "<img src=$imgurl/chance5.gif onMouseOver=\"Navi('$imgurl/chance5.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 2){ if($ff[$t] eq 1){ print "<img src=$imgurl/hidaritobatsu.gif onMouseOver=\"Navi('$imgurl/hidaritobatsu.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }elsif($ff[$t] eq 2){ print "<img src=$imgurl/hidaritomaru.gif onMouseOver=\"Navi('$imgurl/hidaritomaru.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }elsif($ff[$t] eq 3){ print "<img src=$imgurl/hidarito5.gif onMouseOver=\"Navi('$imgurl/hidarito5.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 3){ if($ff[$t] eq 1){ print "<img src=$imgurl/touruibatsu.gif onMouseOver=\"Navi('$imgurl/touruibatsu.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }elsif($ff[$t] eq 2){ print "<img src=$imgurl/tourui.gif onMouseOver=\"Navi('$imgurl/tourui.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 4){ if($ff[$t] eq 1){ print "<img src=$imgurl/timelyerror.gif onMouseOver=\"Navi('$imgurl/timelyerror.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }elsif($ff[$t] eq 2){ print "<img src=$imgurl/syubisyokunin.gif onMouseOver=\"Navi('$imgurl/syubisyokunin.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 5){ if($ff[$t] eq 1){ print "<img src=$imgurl/powerh.gif onMouseOver=\"Navi('$imgurl/powerh.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 6){ if($ff[$t] eq 1){ print "<img src=$imgurl/averageh.gif onMouseOver=\"Navi('$imgurl/averageh.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 7){ if($ff[$t] eq 1){ print "<img src=$imgurl/gyakkyo.gif onMouseOver=\"Navi('$imgurl/gyakkyo.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 8){ if($ff[$t] eq 1){ print "<img src=$imgurl/manrui.gif onMouseOver=\"Navi('$imgurl/manrui.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 9){ if($ff[$t] eq 1){ print "<img src=$imgurl/naiyaanda.gif onMouseOver=\"Navi('$imgurl/naiyaanda.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 10){ if($ff[$t] eq 1){ print "<img src=$imgurl/katameuchi.gif onMouseOver=\"Navi('$imgurl/katameuchi.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 11){ if($ff[$t] eq 1){ print "<img src=$imgurl/chance_maker.gif onMouseOver=\"Navi('$imgurl/chance_maker.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 12){ if($ff[$t] eq 1){ print "<img src=$imgurl/sayonara.gif onMouseOver=\"Navi('$imgurl/sayonara.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 13){ if($ff[$t] eq 1){ print "<img src=$imgurl/soukyu.gif onMouseOver=\"Navi('$imgurl/soukyu.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 14){ if($ff[$t] eq 1){ print "<img src=$imgurl/iatsukan.gif onMouseOver=\"Navi('$imgurl/iatsukan.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 15){ if($ff[$t] eq 1){ print "<img src=$imgurl/anteikan.gif onMouseOver=\"Navi('$imgurl/anteikan.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 16){ if($ff[$t] eq 1){ print "<img src=$imgurl/murakke.gif onMouseOver=\"Navi('$imgurl/murakke.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 17){ if($ff[$t] eq 1){ print "<img src=$imgurl/ninkimono.gif onMouseOver=\"Navi('$imgurl/ninkimono.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 18){ if($ff[$t] eq 1){ print "<img src=$imgurl/gouriki.gif onMouseOver=\"Navi('$imgurl/gouriki.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }elsif($ff[$t] eq 2){ print "<img src=$imgurl/shinsoku.gif onMouseOver=\"Navi('$imgurl/shinsoku.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }elsif($ff[$t] eq 3){ print "<img src=$imgurl/touki.gif onMouseOver=\"Navi('$imgurl/touki.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }elsif($ff[$t] eq 4){ print "<img src=$imgurl/datsuryoku.gif onMouseOver=\"Navi('$imgurl/datsuryoku.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }elsif($ff[$t] eq 5){ print "<img src=$imgurl/kinbaku.gif onMouseOver=\"Navi('$imgurl/kinbaku.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 19){ if($ff[$t] eq 1){ print "<img src=$imgurl/アイコン onMouseOver=\"Navi('$imgurlアイコン')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
        }

ore_login.cgi

sub tokbuyを修正する

        if($ff[18] ne 3){ print "<tr><td align=center><input type=checkbox name=tokunou24 value=1></td><td align=center>闘気</td><td align=center>95000</td><td>相手投手の能\力大きくダウン</td></tr>"; }
        if($ff[18] ne 4){ print "<tr><td align=center><input type=checkbox name=tokunou25 value=1></td><td align=center>奪力</td><td align=center>85000</td><td>相手投手のスタミナ消費大</td></tr>"; }
        if($ff[18] ne 5){ print "<tr><td align=center><input type=checkbox name=tokunou26 value=1></td><td align=center>緊縛</td><td align=center>80000</td><td>相手投手の変化レベルを1ダウン</td></tr>"; }
        if($ff[19] < 1){ print "<tr><td align=center><input type=checkbox name=tokunou27 value=1></td><td align=center>能力名</td><td align=center>値段</td><td>説明</td></tr>"; }
        print "</table>";

sub tokbuy2を修正する

if($form{'tokunou24'}){ $ff[18] = 3; $mainasu += 95000; }
if($form{'tokunou25'}){ $ff[18] = 4; $mainasu += 85000; }
if($form{'tokunou26'}){ $ff[18] = 5; $mainasu += 80000; }
if($form{'tokunou27'}){ $ff[19] = 1; $mainasu += 値段; }
$newtok=&ytokuend;

game.cgi

sub syoriを修正する

        @ff = ();
        $v = $iatukanb = $daturyoku = $kinbaku = 0;
        for($t=0; $t<20; $t++){
                $ff[$t] = substr("$k_tok", $t, 1);
                if($t eq 0){ if($ff[$t] eq 1){ $banto = -10; }elsif($ff[$t] eq 2){ $banto = 10; }elsif($ff[$t] eq 3){ $banto = 20; }else{ $banto = 0; } }
                elsif($t eq 1){ if($ff[$t] eq 1){ $tya = -2; }elsif($ff[$t] eq 2){ $tya = 2; }elsif($ff[$t] eq 3){ $tya = 4; }else{ $tya = 0; } }
                elsif($t eq 2){ if($ff[$t] eq 1){ $taihidarip = -0.5; }elsif($ff[$t] eq 2){ $taihidarip = 0.5; }elsif($ff[$t] eq 3){ $taihidarip = 1; }else{ $taihidarip = 0; } }
                elsif($t eq 5){ if($ff[$t] eq 1){ $v = 3; }else{ $v = 0; } }
                elsif($t eq 6){ if($ff[$t] eq 1){ $mi = 3; }else{ $mi = 0; } }
                elsif($t eq 7){ if($ff[$t] eq 1){ $gya = 0.5; }else{ $gya = 0; } }
                elsif($t eq 8){ if($ff[$t] eq 1){ $manrui = 4; }else{ $manrui = 0; } }
                elsif($t eq 9){ if($ff[$t] eq 1){ $naianda = 4; }else{ $naianda = 0; } }
                elsif($t eq 10){ if($ff[$t] eq 1){ $katame = 5; }else{ $katame = 0; } }
                elsif($t eq 11){ if($ff[$t] eq 1){ $tyamake = 5; }else{ $tyamake = 0; } }
                elsif($t eq 12){ if($ff[$t] eq 1){ $sayonaraboy = 1; }else{ $sayonaraboy = 0; } }
                elsif($t eq 14){ if($ff[$t] eq 1){ $iatukanb = 0.5; }else{ $iatukanb = 0; } }
                elsif($t eq 15){ if($ff[$t] eq 1){ $anteikan = 0.5; }else{ $anteikan = 0; } }
                elsif($t eq 18){ if($ff[$t] eq 1){ $v += 5; }elsif($ff[$t] eq 3){ $iatukanb += 1; }elsif($ff[$t] eq 4){ $daturyoku = 0.2; }elsif($ff[$t] eq 5){ $kinbaku = 2; } }
                elsif($t eq 19){ if($ff[$t] eq 1){ フラグを立てるなり能力を上げるなり }
        }

ore.cgi

##### 野手特能チェック
sub ytokucheck{
                @ff = ();
                for($t=0; $t<20; $t++){
                        $ff[$t] = substr("$_[0]", $t, 1);
                        $ff[$t] = 0 if !$ff[$t];
                }
}
##### 野手特能エンド
sub ytokuend{
                $newtokuend='';
                for($t=0; $t<20; $t++){
                        $newtokuend .= $ff[$t];
                }
                return $newtokuend;
}

投手特殊能力を追加する

login.cgiを修正する

        case "$imgurl/zetsurin.gif": title = "絶倫"; comment = "スタミナの消費が少なくなる"; break;
        case "$imgurl/jubaku.gif": title = "呪縛"; comment = "相手打者の走力大きくダウン"; break;
        case "$imgurl/kihaku.gif": title = "気迫"; comment = "連打をとてもされにくくなる"; break;
        case "$imgurl/アイコン": title = "名前"; comment = "新しい特殊の説明"; 
}

        for($t=0; $t<17; $t++){
                $ff[$t] = substr("$tok[$i]", $t, 1);
                if($t eq 0){ if($ff[$t] eq 1){ print "<img src=$imgurl/nobibatsu.gif onMouseOver=\"Navi('$imgurl/nobibatsu.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }elsif($ff[$t] eq 2){ print "<img src=$imgurl/nobimaru.gif onMouseOver=\"Navi('$imgurl/nobimaru.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 1){ if($ff[$t] eq 1){ print "<img src=$imgurl/kirebatsu.gif onMouseOver=\"Navi('$imgurl/kirebatsu.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }elsif($ff[$t] eq 2){ print "<img src=$imgurl/kiremaru.gif onMouseOver=\"Navi('$imgurl/kiremaru.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 2){ if($ff[$t] eq 1){ print "<img src=$imgurl/pinchibatsu.gif onMouseOver=\"Navi('$imgurl/pinchibatsu.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }elsif($ff[$t] eq 2){ print "<img src=$imgurl/pinchimaru.gif onMouseOver=\"Navi('$imgurl/pinchimaru.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 3){ if($ff[$t] eq 1){ print "<img src=$imgurl/hidaridabatsu.gif onMouseOver=\"Navi('$imgurl/hidaridabatsu.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }elsif($ff[$t] eq 2){ print "<img src=$imgurl/hidaridamaru.gif onMouseOver=\"Navi('$imgurl/hidaridamaru.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 4){ if($ff[$t] eq 1){ print "<img src=$imgurl/quickbatsu.gif onMouseOver=\"Navi('$imgurl/quickbatsu.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }elsif($ff[$t] eq 2){ print "<img src=$imgurl/quickmaru.gif onMouseOver=\"Navi('$imgurl/quickmaru.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 5){ if($ff[$t] eq 1){ print "<img src=$imgurl/makeun.gif onMouseOver=\"Navi('$imgurl/makeun.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }elsif($ff[$t] eq 2){ print "<img src=$imgurl/kachiun.gif onMouseOver=\"Navi('$imgurl/kachiun.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 6){ if($ff[$t] eq 1){ print "<img src=$imgurl/utareyowai.gif onMouseOver=\"Navi('$imgurl/utareyowai.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }elsif($ff[$t] eq 2){ print "<img src=$imgurl/utareduyoi.gif onMouseOver=\"Navi('$imgurl/utareduyoi.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 7){ if($ff[$t] eq 1){ print "<img src=$imgurl/ippatsubyo.gif onMouseOver=\"Navi('$imgurl/ippatsubyo.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }elsif($ff[$t] eq 2){ print "<img src=$imgurl/nigedama.gif onMouseOver=\"Navi('$imgurl/nigedama.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 8){ if($ff[$t] eq 1){ print "<img src=$imgurl/omoitama.gif onMouseOver=\"Navi('$imgurl/omoitama.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 9){ if($ff[$t] eq 1){ print "<img src=$imgurl/siriagari.gif onMouseOver=\"Navi('$imgurl/siriagari.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 10){ if($ff[$t] eq 1){ print "<img src=$imgurl/iatsukan.gif onMouseOver=\"Navi('$imgurl/iatsukan.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 11){ if($ff[$t] eq 1){ print "<img src=$imgurl/hannoumaru.gif onMouseOver=\"Navi('$imgurl/hannoumaru.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 12){ if($ff[$t] eq 1){ print "<img src=$imgurl/anteikan.gif onMouseOver=\"Navi('$imgurl/anteikan.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 13){ if($ff[$t] eq 1){ print "<img src=$imgurl/murakke.gif onMouseOver=\"Navi('$imgurl/murakke.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 14){ if($ff[$t] eq 1){ print "<img src=$imgurl/ninkimono.gif onMouseOver=\"Navi('$imgurl/ninkimono.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 15){ if($ff[$t] eq 1){ print "<img src=$imgurl/tetsuwan.gif onMouseOver=\"Navi('$imgurl/tetsuwan.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }elsif($ff[$t] eq 2){ print "<img src=$imgurl/goukyu.gif onMouseOver=\"Navi('$imgurl/goukyu.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }elsif($ff[$t] eq 3){ print "<img src=$imgurl/zetsurin.gif onMouseOver=\"Navi('$imgurl/zetsurin.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }elsif($ff[$t] eq 4){ print "<img src=$imgurl/jubaku.gif onMouseOver=\"Navi('$imgurl/jubaku.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }elsif($ff[$t] eq 5){ print "<img src=$imgurl/kihaku.gif onMouseOver=\"Navi('$imgurl/kihaku.gif')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
                elsif($t eq 16){ if($ff[$t] eq 1){ print "<img src=$imgurl/アイコン onMouseOver=\"Navi('$imgurlアイコン')\"; onMouseOut=\"NaviClose(); return false\">"; }else{ print ''; } }
        }

ore_login.cgi

sub tokbuyを修正する

        if($ff[15] ne 3){ print "<tr><td align=center><input type=checkbox name=tokunou18 value=1></td><td align=center>絶倫</td><td align=center>85000</td><td>スタミナの消費が少なくなる</td></tr>"; }
        if($ff[15] ne 4){ print "<tr><td align=center><input type=checkbox name=tokunou19 value=1></td><td align=center>呪縛</td><td align=center>80000</td><td>相手打者の走力ダウン</td></tr>"; }
        if($ff[15] ne 5){ print "<tr><td align=center><input type=checkbox name=tokunou20 value=1></td><td align=center>気迫</td><td align=center>95000</td><td>連打をとてもされにくくなる</td></tr>"; }
        if($ff[16] < 1){ print "<tr><td align=center><input type=checkbox name=tokunou21 value=1></td><td align=center>能力名</td><td align=center>値段</td><td>説明</td></tr>"; }
        print "</table>";

sub tokbuy2を修正する

if($form{'tokunou18'}){ $ff[15] = 3; $mainasu += 85000; }
if($form{'tokunou19'}){ $ff[15] = 4; $mainasu += 80000; }
if($form{'tokunou20'}){ $ff[15] = 5; $mainasu += 95000; }
if($form{'tokunou21'}){ $ff[16] = 1; $mainasu += 値段; }
$newtok=&ptokuend;

game.cgi

sub syoriを修正する

        @ff = ();
        $nobi = $omoi = $goodsta = $noto = $kihaku = 0;
        for($t=0; $t<17; $t++){
                $ff[$t] = substr("$d_tok", $t, 1);
                if($t eq 0){ if($ff[$t] eq 1){ $nobi = -3; }elsif($ff[$t] eq 2){ $nobi = 3; }else{ $nobi = 0; } }
                elsif($t eq 1){ if($ff[$t] eq 1){ $kire = -1; }elsif($ff[$t] eq 2){ $kire = 1; }else{ $kire = 0; } }
                elsif($t eq 2){ if($ff[$t] eq 1){ $pinti = -2; }elsif($ff[$t] eq 2){ $pinti = 2; }else{ $pinti = 0; } }
                elsif($t eq 3){ if($ff[$t] eq 1){ $taihidarib = -0.5; }elsif($ff[$t] eq 2){ $taihidarib = 0.5; }else{ $taihidarib = 0; } }
                elsif($t eq 4){ if($ff[$t] eq 1){ $noto = -5; }elsif($ff[$t] eq 2){ $noto = 5; }else{ $noto = 0; } }
                elsif($t eq 5){ if($ff[$t] eq 1){ $katiun = -1; }elsif($ff[$t] eq 2){ $katiun = 1; }else{ $katiun = 0; } }
                elsif($t eq 6){ if($ff[$t] eq 1){ $kihaku = -4; }elsif($ff[$t] eq 2){ $kihaku = 4; }else{ $kihaku = 0; } }
                elsif($t eq 7){ if($ff[$t] eq 1){ $ippatu = -2; }elsif($ff[$t] eq 2){ $ippatu = 2; }else{ $ippatu = 0; } }
                elsif($t eq 8){ if($ff[$t] eq 1){ $omoi = 3; }else{ $omoi = 0; } }
                elsif($t eq 9){ if($ff[$t] eq 1){ $siri = 0.1; }else{ $siri = 0; } }
                elsif($t eq 10){ if($ff[$t] eq 1){ $iatukanp = 0.5; }else{ $iatukanp = 0; } }
                elsif($t eq 11){ if($ff[$t] eq 1){ $hannou = 3; }else{ $hannou = 0; } }
                elsif($t eq 12){ if($ff[$t] eq 1){ $anteikan = 0.5; }else{ $anteikan = 0; } }
                elsif($t eq 15){ if($ff[$t] eq 1){ $nobi += 5; }elsif($ff[$t] eq 2){ $omoi += 5; }elsif($ff[$t] eq 3){ $goodsta = 0.02; }elsif($ff[$t] eq 4){ $nototo = 3; }elsif($ff[$t] eq 5){ $kihaku += 7; } }
                elsif($t eq 16){ if($ff[$t] eq 1){ フラグを立てるなり能力を上げるなり }
        }

ore.cgi

##### 投手特能チェック
sub ptokucheck{
                @ff = ();
                for($t=0; $t<17; $t++){
                        $ff[$t] = substr("$_[0]", $t, 1);
                        $ff[$t] = 0 if !$ff[$t];
                }
}
##### 投手特能エンド
sub ptokuend{
                $newtokuend='';
                for($t=0; $t<17; $t++){
                        $newtokuend .= $ff[$t];
                }
                return $newtokuend;
}

特殊能力改良を導入してることが前提。
新規登録などは割愛。

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