ore.cgi

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

ore_login.cgi

sub tokbuyを修正する

644行目
        if($sakusya eq $sakusya[$i] && $kojin eq $kojin[$i]){
                for($t=0; $t<19; $t++){
                        $ff[$t] = substr("$tok[$i]", $t, 1);
                }
                $syojikin = $syoji[$i];
                last;
                }
        }

↓

        if($sakusya eq $sakusya[$i] && $kojin eq $kojin[$i]){
                &ytokucheck($tok[$i]);
                $syojikin = $syoji[$i];
                last;
                }
        }
691行目
        if($sakusya eq $sakusya[$i] && $kojin eq $kojin[$i]){
                for($t=0; $t<16; $t++){
                        $ff[$t] = substr("$tok[$i]", $t, 1);
                }
                $syojikin = $syoji[$i];
                last;
                }
        }

↓

        if($sakusya eq $sakusya[$i] && $kojin eq $kojin[$i]){
                &ptokucheck($tok[$i]);
                $syojikin = $syoji[$i];
                last;
                }
        }

sub tokbuy2を修正する

753行目
        if($sakusya eq $sakusya[$i] && $kojin eq $kojin[$i]){
                $syojikin = $syoji[$i];
                for($t=0; $t<19; $t++){
                        $ff[$t] = substr("$tok[$i]", $t, 1);
                }
                last;
        }

↓

        if($sakusya eq $sakusya[$i] && $kojin eq $kojin[$i]){
                $syojikin = $syoji[$i];
                &ytokucheck($tok[$i]);             
                last;
        }

793行目
$newtok = $ff[0].$ff[1].$ff[2].$ff[3].$ff[4].$ff[5].$ff[6].$ff[7].$ff[8].$ff[9].$ff[10].$ff[11].$ff[12].$ff[13].$ff[14].$ff[15].$ff[16].$ff[17].$ff[18];

↓

$newtok=&ytokuend;

798行目
        if($sakusya eq $sakusya[$i] && $kojin eq $kojin[$i]){
                $syojikin = $syoji[$i];
                for($t=0; $t<16; $t++){
                        $ff[$t] = substr("$tok[$i]", $t, 1);
                }
                last;
        }

↓

        if($sakusya eq $sakusya[$i] && $kojin eq $kojin[$i]){
                $syojikin = $syoji[$i];
                &ptokucheck($tok[$i]);
                last;
        }

836行目
$newtok = $ff[0].$ff[1].$ff[2].$ff[3].$ff[4].$ff[5].$ff[6].$ff[7].$ff[8].$ff[9].$ff[10].$ff[11].$ff[12].$ff[13].$ff[14].$ff[15];

↓

$newtok=&ptokuend;

特殊能力の処理の一部をサブルーチン化する。
特殊能力の追加が容易になる。

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