ore.cgi

以下を追加する

##### 評価チェック
sub evaluationcheck{
                ($nipponiti, $riguyuusyou, $lastteamjun1, $lastteamjun2, $lastteamjun3, $lastteamjun4, $lastteamjun5, $lastteamjun6, $lastteamjun7, $lastteamjun8, $lastteamjun9, $lastteamjun10) = split(/<>/, $_[0]);
                $heikinjyun=$lastteamjun1 + $lastteamjun2 + $lastteamjun3 + $lastteamjun4 + $lastteamjun5 + $lastteamjun6 + $lastteamjun7 + $lastteamjun8 + $lastteamjun9 + $lastteamjun10;
                $heikinjyun/=10;

}

sub kakuninmaeを修正する

1152行目
                ($saku[$j], $d[$j], $d[$j], $d[$j], $d[$j], $kd[$j], $d[$j], $d[$j], $d[$j], $d[$j], $d[$j], $d[$j], $charadata[$j]) = split(/<p>/, $users[$j]);
↓
                ($saku[$j], $d[$j], $d[$j], $d[$j], $d[$j], $kd[$j], $d[$j], $d[$j], $d[$j], $d[$j], $pointdata[$j], $d[$j], $charadata[$j]) = split(/<p>/, $users[$j]);


1173行目
                ($saku[$j], $d[$j], $d[$j], $d[$j], $d[$j], $kd[$j], $d[$j], $d[$j], $d[$j], $d[$j], $d[$j], $d[$j], $charadata[$j]) = split(/<p>/, $users2[$j-6]);
↓
                ($saku[$j], $d[$j], $d[$j], $d[$j], $d[$j], $kd[$j], $d[$j], $d[$j], $d[$j], $d[$j], $pointdata[$j], $d[$j], $charadata[$j]) = split(/<p>/, $users2[$j-6]);

ore_else.cgi

sub kakuninを修正する

print "</Tr><Tr align=center><Td>総合力</Td>";
for($k=0; $k<12; $k++){ print"<td>$sougou[$k]</Td>"; }

print "</Tr><Tr align=center><Td>評価</Td>";
for($k=0; $k<12; $k++){
&evaluationcheck($pointdata[$k]);
        if($heikinjyun <= 1){
        $hyouka="常勝";
        }elsif($heikinjyun <= 3){
        $hyouka="強豪";
        }elsif($heikinjyun <= 4){
        $hyouka="普通";
        }elsif($heikinjyun <= 5){
        $hyouka="弱小";
        }else{
        $hyouka="暗黒";
        }
        print "<Td>$hyouka</Td>";
}
        print <<"_EOF_";
</Tr></Table><br><br><Table Border=1 cellpadding=5 cellspacing=0 Width="95%" bordercolor=004D11>
<Tr align=center bgcolor=32CD32><Td Width="3%">順</Td>
_EOF_

過去10年間のチーム成績でチーム評価を出す。

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