俺ペナ改造

打順変更履歴

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ore_login.cgiを以下に変更

青色の部分を変更・追加してください

プログラムの上から239行付近

$com_pri[$i+3] = "$sya：『<font color=red> $comm </font>』<small>($date3)</small>\n";

↓

$com_pri[$i+3] = "<a href=\"./$dajyunfold/$date2.html\" target=\"_blank\">$sya：『<font color=red> $comm </font>』<small>($date3)</small></a>(クリックで変更ログ表\示)\n";

プログラムの上から491行付近

foreach(@coms){
($d, $sikibetu, $d, $siki) = split(/<>/, $_);
if($sikibetu eq $form{'team'}){
if($totaicom eq 0){ $totaicom = $siki + 1; }
$count++; if($count >= 30){ $_ = ''; }
}
}

↓

foreach(@coms){
($no, $sikibetu, $d, $siki, $d, $d, $date2) = split(/<>/, $_);
if($sikibetu eq $form{'team'}){
if($totaicom eq 0){ $totaicom = $siki + 1; }
$count++;
if($count > 30){ $_ = '';
if($no == 1){
my $LOG="./$dajyunfold/$date2\.html";
if (-e $LOG){unlink $LOG;}
}
}
}
}

プログラムの上から556行付近

if($dajun[$i] < 1 || $dajun[$i] > 9){ &error('野手の打順は1～9までにしてね。'); }
($id[$j], $d, $bannpu[$j], $yasyu[$j], $cond[$j], $pow[$j], $mit[$j], $run[$j], $kat[$j], $def[$j], $sakusya[$j], $kojin[$j], $home[$j], $host[$j], $sayuu[$j], $nenrei[$j], $purei[$j], $ato[$j], $zen[$j], $camp[$j], $tok[$j], $foom[$j], $nenpou[$j], $syoji[$j], $allkai[$j], $box[$j], $hit[$j], $ten[$j], $hr[$j], $ste[$j], $err[$j], $for[$j], $gid[$j], $tbox[$j], $thit[$j], $tten[$j], $thr[$j], $tste[$j] ,$terr[$j], $tfor[$j], $tgid[$j], $ytitle1[$j], $ytitle2[$j], $ytitle3[$j], $ytitle4[$j], $ynew[$j], $ymvp[$j], $yallmvp[$j], $ybest[$j]) = split(/<>/, $players[$i]);
if($league_day eq $penantday){ $newposit[$j] = $bannpu[$j]; }
if($newposit[$j] ne '捕' && $newposit[$j] ne '一' && $newposit[$j] ne '二' && $newposit[$j] ne '三' && $newposit[$j] ne '遊' && $newposit[$j] ne '左' && $newposit[$j] ne '中' && $newposit[$j] ne '右' && $newposit[$j] ne 'DH') { &error("ポジションが意味不明です。"); }
$player[$j] = "$id[$j]<>$jun[$j]<>$newposit[$j]<>$yasyu[$j]<>$cond[$j]<>$pow[$j]<>$mit[$j]<>$run[$j]<>$kat[$j]<>$def[$j]<>$sakusya[$j]<>$kojin[$j]<>$home[$j]<>$host[$j]<>$sayuu[$j]<>$nenrei[$j]<>$purei[$j]<>$ato[$j]<>$zen[$j]<>$camp[$j]<>$tok[$j]<>$foom[$j]<>$nenpou[$j]<>$syoji[$j]<>$allkai[$j]<>$box[$j]<>$hit[$j]<>$ten[$j]<>$hr[$j]<>$ste[$j]<>$err[$j]<>$for[$j]<>$gid[$j]<>$tbox[$j]<>$thit[$j]<>$tten[$j]<>$thr[$j]<>$tste[$j]<>$terr[$j]<>$tfor[$j]<>$tgid[$j]<>$ytitle1[$j]<>$ytitle2[$j]<>$ytitle3[$j]<>$ytitle4[$j]<>$ynew[$j]<>$ymvp[$j]<>$yallmvp[$j]<>$ybest[$j]";

↓

if($dajun[$i] < 1 || $dajun[$i] > 9){ &error('野手の打順は1～9までにしてね。'); }
($id[$j], $d, $bannpu[$j], $yasyu[$j], $cond[$j], $pow[$j], $mit[$j], $run[$j], $kat[$j], $def[$j], $sakusya[$j], $kojin[$j], $home[$j], $host[$j], $sayuu[$j], $nenrei[$j], $purei[$j], $ato[$j], $zen[$j], $camp[$j], $tok[$j], $foom[$j], $nenpou[$j], $syoji[$j], $allkai[$j], $box[$j], $hit[$j], $ten[$j], $hr[$j], $ste[$j], $err[$j], $for[$j], $gid[$j], $tbox[$j], $thit[$j], $tten[$j], $thr[$j], $tste[$j] ,$terr[$j], $tfor[$j], $tgid[$j], $ytitle1[$j], $ytitle2[$j], $ytitle3[$j], $ytitle4[$j], $ynew[$j], $ymvp[$j], $yallmvp[$j], $ybest[$j]) = split(/<>/, $players[$i]);
@{$hairetu[$i]}[0]="$bannpu[$j]<>$yasyu[$j]<>$pow[$j]<>$mit[$j]<>$run[$j]<>$kat[$j]<>$def[$j]<>$sakusya[$j]<>$kojin[$j]<>$sayuu[$j]<>$tok[$j]<>$foom[$j]";
if($league_day eq $penantday){ $newposit[$j] = $bannpu[$j]; }
if($newposit[$j] ne '捕' && $newposit[$j] ne '一' && $newposit[$j] ne '二' && $newposit[$j] ne '三' && $newposit[$j] ne '遊' && $newposit[$j] ne '左' && $newposit[$j] ne '中' && $newposit[$j] ne '右' && $newposit[$j] ne 'DH') { &error("ポジションが意味不明です。"); }
@{$hairetu[$j]}[1]="$newposit[$j]<>$yasyu[$j]<>$pow[$j]<>$mit[$j]<>$run[$j]<>$kat[$j]<>$def[$j]<>$sakusya[$j]<>$kojin[$j]<>$sayuu[$j]<>$tok[$j]<>$foom[$j]";
$player[$j] = "$id[$j]<>$jun[$j]<>$newposit[$j]<>$yasyu[$j]<>$cond[$j]<>$pow[$j]<>$mit[$j]<>$run[$j]<>$kat[$j]<>$def[$j]<>$sakusya[$j]<>$kojin[$j]<>$home[$j]<>$host[$j]<>$sayuu[$j]<>$nenrei[$j]<>$purei[$j]<>$ato[$j]<>$zen[$j]<>$camp[$j]<>$tok[$j]<>$foom[$j]<>$nenpou[$j]<>$syoji[$j]<>$allkai[$j]<>$box[$j]<>$hit[$j]<>$ten[$j]<>$hr[$j]<>$ste[$j]<>$err[$j]<>$for[$j]<>$gid[$j]<>$tbox[$j]<>$thit[$j]<>$tten[$j]<>$thr[$j]<>$tste[$j]<>$terr[$j]<>$tfor[$j]<>$tgid[$j]<>$ytitle1[$j]<>$ytitle2[$j]<>$ytitle3[$j]<>$ytitle4[$j]<>$ynew[$j]<>$ymvp[$j]<>$yallmvp[$j]<>$ybest[$j]";

プログラムの上から569行付近

($id[$j], $d, $d, $pitch[$j], $cond[$j], $fas[$j], $hen1[$j], $henlv1[$j], $hen2[$j], $henlv2[$j], $hen3[$j], $henlv3[$j], $hen4[$j], $henlv4[$j], $hen5[$j], $henlv5[$j], $sei[$j], $def[$j], $sta[$j], $sakusya[$j], $kojin[$j], $home[$j], $host[$j], $sayuu[$j], $nenrei[$j], $purei[$j], $ato[$j], $zen[$j], $camp[$j], $tok[$j], $foom[$j], $nenpou[$j], $syoji[$j], $allkai[$j], $pitwin[$j], $pitlose[$j], $kai[$j], $jiseki[$j], $san[$j], $four[$j], $hrp[$j], $save[$j], $tpitwin[$j], $tpitlose[$j], $tkai[$j], $tjiseki[$j], $tsan[$j], $tfour[$j], $thrp[$j], $tsave[$j], $ttitle1[$j], $ttitle2[$j], $ttitle3[$j], $ttitle4[$j], $tnew[$j], $tmvp[$j], $tallmvp[$j], $tbest[$j]) = split(/<>/, $players[$i]);
if($j < 14){ $newposit[$j] = "先"; }elsif($j < 17){ $newposit[$j] = "中"; }else{ $newposit[$j] = "抑"; }
$player[$j] = "$id[$j]<>$jun[$j]<>$newposit[$j]<>$pitch[$j]<>$cond[$j]<>$fas[$j]<>$hen1[$j]<>$henlv1[$j]<>$hen2[$j]<>$henlv2[$j]<>$hen3[$j]<>$henlv3[$j]<>$hen4[$j]<>$henlv4[$j]<>$hen5[$j]<>$henlv5[$j]<>$sei[$j]<>$def[$j]<>$sta[$j]<>$sakusya[$j]<>$kojin[$j]<>$home[$j]<>$host[$j]<>$sayuu[$j]<>$nenrei[$j]<>$purei[$j]<>$ato[$j]<>$zen[$j]<>$camp[$j]<>$tok[$j]<>$foom[$j]<>$nenpou[$j]<>$syoji[$j]<>$allkai[$j]<>$pitwin[$j]<>$pitlose[$j]<>$kai[$j]<>$jiseki[$j]<>$san[$j]<>$four[$j]<>$hrp[$j]<>$save[$j]<>$tpitwin[$j]<>$tpitlose[$j]<>$tkai[$j]<>$tjiseki[$j]<>$tsan[$j]<>$tfour[$j]<>$thrp[$j]<>$tsave[$j]<>$ttitle1[$j]<>$ttitle2[$j]<>$ttitle3[$j]<>$ttitle4[$j]<>$tnew[$j]<>$tmvp[$j]<>$tallmvp[$j]<>$tbest[$j]";

↓

($id[$j], $d, $d, $pitch[$j], $cond[$j], $fas[$j], $hen1[$j], $henlv1[$j], $hen2[$j], $henlv2[$j], $hen3[$j], $henlv3[$j], $hen4[$j], $henlv4[$j], $hen5[$j], $henlv5[$j], $sei[$j], $def[$j], $sta[$j], $sakusya[$j], $kojin[$j], $home[$j], $host[$j], $sayuu[$j], $nenrei[$j], $purei[$j], $ato[$j], $zen[$j], $camp[$j], $tok[$j], $foom[$j], $nenpou[$j], $syoji[$j], $allkai[$j], $pitwin[$j], $pitlose[$j], $kai[$j], $jiseki[$j], $san[$j], $four[$j], $hrp[$j], $save[$j], $tpitwin[$j], $tpitlose[$j], $tkai[$j], $tjiseki[$j], $tsan[$j], $tfour[$j], $thrp[$j], $tsave[$j], $ttitle1[$j], $ttitle2[$j], $ttitle3[$j], $ttitle4[$j], $tnew[$j], $tmvp[$j], $tallmvp[$j], $tbest[$j]) = split(/<>/, $players[$i]);
@{$hairetu[$i]}[2]="$pitch[$j]<>$fas[$j]<>$hen1[$j]<>$henlv1[$j]<>$hen2[$j]<>$henlv2[$j]<>$hen3[$j]<>$henlv3[$j]<>$hen4[$j]<>$henlv4[$j]<>$hen5[$j]<>$henlv5[$j]<>$sei[$j]<>$def[$j]<>$sta[$j]<>$sakusya[$j]<>$kojin[$j]<>$sayuu[$j]<>$tok[$j]<>$foom[$j]";
if($j < 14){ $newposit[$j] = "先"; }elsif($j < 17){ $newposit[$j] = "中"; }else{ $newposit[$j] = "抑"; }
@{$hairetu[$j]}[3]="$pitch[$j]<>$fas[$j]<>$hen1[$j]<>$henlv1[$j]<>$hen2[$j]<>$henlv2[$j]<>$hen3[$j]<>$henlv3[$j]<>$hen4[$j]<>$henlv4[$j]<>$hen5[$j]<>$henlv5[$j]<>$sei[$j]<>$def[$j]<>$sta[$j]<>$sakusya[$j]<>$kojin[$j]<>$sayuu[$j]<>$tok[$j]<>$foom[$j]";
$player[$j] = "$id[$j]<>$jun[$j]<>$newposit[$j]<>$pitch[$j]<>$cond[$j]<>$fas[$j]<>$hen1[$j]<>$henlv1[$j]<>$hen2[$j]<>$henlv2[$j]<>$hen3[$j]<>$henlv3[$j]<>$hen4[$j]<>$henlv4[$j]<>$hen5[$j]<>$henlv5[$j]<>$sei[$j]<>$def[$j]<>$sta[$j]<>$sakusya[$j]<>$kojin[$j]<>$home[$j]<>$host[$j]<>$sayuu[$j]<>$nenrei[$j]<>$purei[$j]<>$ato[$j]<>$zen[$j]<>$camp[$j]<>$tok[$j]<>$foom[$j]<>$nenpou[$j]<>$syoji[$j]<>$allkai[$j]<>$pitwin[$j]<>$pitlose[$j]<>$kai[$j]<>$jiseki[$j]<>$san[$j]<>$four[$j]<>$hrp[$j]<>$save[$j]<>$tpitwin[$j]<>$tpitlose[$j]<>$tkai[$j]<>$tjiseki[$j]<>$tsan[$j]<>$tfour[$j]<>$thrp[$j]<>$tsave[$j]<>$ttitle1[$j]<>$ttitle2[$j]<>$ttitle3[$j]<>$ttitle4[$j]<>$tnew[$j]<>$tmvp[$j]<>$tallmvp[$j]<>$tbest[$j]";

プログラムの上から596行付近

foreach(@coms){
($d, $sikibetu, $d, $siki) = split(/<>/, $_);
if($sikibetu eq $form{'team'}){
if($totaicom eq 0){ $totaicom = $siki + 1; }
$count++; if($count >= 30){ $_ = ''; }
}
}

↓

foreach(@coms){
($no, $sikibetu, $d, $siki, $d, $d, $date2) = split(/<>/, $_);
if($sikibetu eq $form{'team'}){
if($totaicom eq 0){ $totaicom = $siki + 1; }
$count++;
if($count > 30){ $_ = '';
if($no == 1){
my $LOG="./$dajyunfold/$date2\.html";
if (-e $LOG){unlink $LOG;}
}
}
}
}

プログラムの上から607行付近

print CO @coms;
close(CO);
eval 'flock(CO,8);';

for($z=0; $z<4; $z++){

if($z <=1){
for($i=0; $i<9; $i++){
my($posit,$yasyu,$pow,$mit,$run,$kat,$def,$sakusya,$kojin,$sayuu,$tok,$foom) = split(/<>/, $hairetu[$i][$z]);
my@parameta = ($pow,$mit,$run,$kat,$def);
$jyun=$i+1;
for($j=0; $j<5; $j++){
if($j eq 0){ $tuikapara = int($parameta[$j] * 25.5); }
elsif($j eq 1){ if($parameta[$j] >= 10){ $tuikapara = 8; }elsif($parameta[$j] > 9){ $tuikapara = 7; }elsif($parameta[$j] > 8){ $tuikapara = 6; }elsif($parameta[$j] > 7){ $tuikapara = 5; }elsif($parameta[$j] > 6){ $tuikapara = 4; }elsif($parameta[$j] > 5){ $tuikapara = 3; }elsif($parameta[$j] > 3){ $tuikapara = 2; }else{ $tuikapara = 1; } }
else{
if($parameta[$j] >= 10){ $tuikapara = 15; }
elsif($parameta[$j] > 9.5){ $tuikapara = 14; }
elsif($parameta[$j] > 9){ $tuikapara = 13; }
elsif($parameta[$j] > 8.5){ $tuikapara = 12; }
elsif($parameta[$j] > 8){ $tuikapara = 11; }
elsif($parameta[$j] > 7.5){ $tuikapara = 10; }
elsif($parameta[$j] > 7){ $tuikapara = 9; }
elsif($parameta[$j] > 6.5){ $tuikapara = 8; }
elsif($parameta[$j] > 6){ $tuikapara = 7; }
elsif($parameta[$j] > 5.5){ $tuikapara = 6; }
elsif($parameta[$j] > 5){ $tuikapara = 5; }
elsif($parameta[$j] > 4){ $tuikapara = 4; }
elsif($parameta[$j] > 3){ $tuikapara = 3; }
elsif($parameta[$j] > 2){ $tuikapara = 2; }
elsif($parameta[$j] > 1){ $tuikapara = 1; }
}
if($parameta[$j] >= 10){ $parameta[$j] = "<font color=\"D9B300\"><b>S</b></font> <small>$tuikapara";
}elsif($parameta[$j] > 9){$parameta[$j] = "<font color=\"FF00FF\">A</font> <small>$tuikapara";
}elsif($parameta[$j] > 8){$parameta[$j] = "<font color=\"FF0000\">B</font> <small>$tuikapara";
}elsif($parameta[$j] > 7){$parameta[$j] = "C <small>$tuikapara";
}elsif($parameta[$j] > 6){$parameta[$j] = "D <small>$tuikapara";
}elsif($parameta[$j] > 5){$parameta[$j] = "E <small>$tuikapara";
}elsif($parameta[$j] > 3){$parameta[$j] = "F <small>$tuikapara";
}else{ $parameta[$j] = "G <small>$tuikapara";
}
}
if($posit eq "捕"){$positcolor = "B5EBFF";}
elsif($posit eq "DH"){$positcolor = "CFCFCF";}
elsif($posit eq "右" || $posit eq "中" || $posit eq "左"){$positcolor = "8CFDC1";}
else{$positcolor = "FFFFBF";}
$renketu[$z].= "<tr align=center BgColor=$positcolor><td>$jyun</td>\n";

$renketu[$z].= "<td>$posit</td>\n";

$renketu[$z].= "<td width=10%>$yasyu<br><small>$sakusya</td>\n";
$renketu[$z].= "<td>$sayuu<br><small>$foom</td>\n";

$renketu[$z].= "<td><table width=100% border=1 Frame=void cellspacing=0 cellpadding=1><tr align=center><td width=20%>$parameta[0]</td><td width=20%>$parameta[1]</td><td width=20%>$parameta[2]</td><td width=20%>$parameta[3]</td><td width=20%>$parameta[4]</td></tr><tr><td colspan=5>\n";
for($t=0; $t<19; $t++){
$ff[$t] = substr("$tok", $t, 1);
if($t eq 0){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/bantbatsu.gif>"; }elsif($ff[$t] eq 2){ $renketu[$z].= "<img src=$imgurl/bantmaru.gif>"; }elsif($ff[$t] eq 3){ $renketu[$z].= "<img src=$imgurl/bant5.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 1){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/chancebatsu.gif>"; }elsif($ff[$t] eq 2){ $renketu[$z].= "<img src=$imgurl/chancemaru.gif>"; }elsif($ff[$t] eq 3){ $renketu[$z].= "<img src=$imgurl/chance5.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 2){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/hidaritobatsu.gif>"; }elsif($ff[$t] eq 2){ $renketu[$z].= "<img src=$imgurl/hidaritomaru.gif>"; }elsif($ff[$t] eq 3){ $renketu[$z].= "<img src=$imgurl/hidarito5.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 3){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/touruibatsu.gif>"; }elsif($ff[$t] eq 2){ $renketu[$z].= "<img src=$imgurl/tourui.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 4){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/timelyerror.gif>"; }elsif($ff[$t] eq 2){ $renketu[$z].= "<img src=$imgurl/syubisyokunin.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 5){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/powerh.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 6){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/averageh.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 7){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/gyakkyo.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 8){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/manrui.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 9){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/naiyaanda.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 10){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/katameuchi.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 11){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/chance_maker.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 12){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/sayonara.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 13){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/soukyu.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 14){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/iatsukan.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 15){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/anteikan.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 16){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/murakke.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 17){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/ninkimono.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 18){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/gouriki.gif>"; }elsif($ff[$t] eq 2){ $renketu[$z].= "<img src=$imgurl/shinsoku.gif>"; }elsif($ff[$t] eq 3){ $renketu[$z].= "<img src=$imgurl/touki.gif>"; }elsif($ff[$t] eq 4){ $renketu[$z].= "<img src=$imgurl/datsuryoku.gif>"; }elsif($ff[$t] eq 5){ $renketu[$z].= "<img src=$imgurl/kinbaku.gif>"; }else{ $renketu[$z].= ''; } }
}
$renketu[$z].= "</tr></table></td></tr>";

}
}else{
for($i=9; $i<18; $i++){
my($pitch,$fas,$hen1,$henlv1,$hen2,$henlv2,$hen3,$henlv3,$hen4,$henlv4,$hen5,$henlv5,$sei,$def,$sta,$sakusya,$kojin,$sayuu,$tok,$foom) = split(/<>/, $hairetu[$i][$z]);
my@parameta = ($sei,$sta);
$jyun=$i+1;
for($j=0; $j<2; $j++){
$tuikapara = int($parameta[$j] * 25.5);
if($parameta[$j] >= 10){ $parameta[$j] = "<font color=\"D9B300\"><b>S</b></font> <small>$tuikapara";
}elsif($parameta[$j] > 9){$parameta[$j] = "<font color=\"FF00FF\">A</font> <small>$tuikapara";
}elsif($parameta[$j] > 8){$parameta[$j] = "<font color=\"FF0000\">B</font> <small>$tuikapara";
}elsif($parameta[$j] > 7){$parameta[$j] = "C <small>$tuikapara";
}elsif($parameta[$j] > 6){$parameta[$j] = "D <small>$tuikapara";
}elsif($parameta[$j] > 5){$parameta[$j] = "E <small>$tuikapara";
}elsif($parameta[$j] > 3){$parameta[$j] = "F <small>$tuikapara";
}else{ $parameta[$j] = "G <small>$tuikapara";
}
}
$fass = int(120 + $fas * 4);
if($i < 14){ $positcolor = "FDD8FE"; }elsif($i eq 17){ $positcolor = "FDACFD"; }else{ $positcolor = "FDC4FD"; }
if($fass >= 150){$fass = "<b>$fass</b>";}

$renketu[$z].= "<tr align=center BgColor=$positcolor><td>$jyun</td>\n";

$renketu[$z].= "<td width=10%>$pitch<br><small>$sakusya</td>\n";
$renketu[$z].= "<td><input type=hidden name=posit$i value=$posit>$sayuu<br><small>$foom</td>\n";

$renketu[$z].= "<td><table width=100% border=1 Frame=void cellspacing=0 cellpadding=1><tr align=center><td width=16%>$fasskm</td>\n";
$renketu[$z].= "<td><H6>";
@henkakyuu = ("$hen1","$hen2","$hen3","$hen4","$hen5");
@henkakyuulv = ("$henlv1","$henlv2","$henlv3","$henlv4","$henlv5");
for($h=0; $h<5; $h++){
if($henkakyuulv[$h] >= 7){ $renketu[$z].= " $henkakyuu[$h]<b>$henkakyuulv[$h]</b>"; }
elsif($henkakyuulv[$h] >= 1){ $renketu[$z].= " $henkakyuu[$h]$henkakyuulv[$h]"; }
}
$renketu[$z].= "</td>\n";
$renketu[$z].= "<td width=16%>$parameta[0]</td>\n";
$renketu[$z].= "<td width=16%>$parameta[1]</td>\n";
$renketu[$z].= "</tr><tr><td colspan=4>";
for($t=0; $t<16; $t++){
$ff[$t] = substr("$tok[$i]", $t, 1);
if($t eq 0){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/nobibatsu.gif>"; }elsif($ff[$t] eq 2){ $renketu[$z].= "<img src=$imgurl/nobimaru.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 1){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/kirebatsu.gif>"; }elsif($ff[$t] eq 2){ $renketu[$z].= "<img src=$imgurl/kiremaru.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 2){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/pinchibatsu.gif>"; }elsif($ff[$t] eq 2){ $renketu[$z].= "<img src=$imgurl/pinchimaru.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 3){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/hidaridabatsu.gif>"; }elsif($ff[$t] eq 2){ $renketu[$z].= "<img src=$imgurl/hidaridamaru.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 4){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/quickbatsu.gif>"; }elsif($ff[$t] eq 2){ $renketu[$z].= "<img src=$imgurl/quickmaru.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 5){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/makeun.gif makeun.gif>"; }elsif($ff[$t] eq 2){ $renketu[$z].= "<img src=$imgurl/kachiun.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 6){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/utareyowai.gif>"; }elsif($ff[$t] eq 2){ $renketu[$z].= "<img src=$imgurl/utareduyoi.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 7){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/ippatsubyo.gif>"; }elsif($ff[$t] eq 2){ $renketu[$z].= "<img src=$imgurl/nigedama.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 8){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/omoitama.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 9){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/siriagari.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 10){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/iatsukan.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 11){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/hannoumaru.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 12){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/anteikan.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 13){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/murakke.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 14){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/ninkimono.gif>"; }else{ $renketu[$z].= ''; } }
elsif($t eq 15){ if($ff[$t] eq 1){ $renketu[$z].= "<img src=$imgurl/tetsuwan.gif>"; }elsif($ff[$t] eq 2){ $renketu[$z].= "<img src=$imgurl/goukyu.gif>"; }elsif($ff[$t] eq 3){ $renketu[$z].= "<img src=$imgurl/zetsurin.gif>"; }elsif($ff[$t] eq 4){ $renketu[$z].= "<img src=$imgurl/jubaku.gif>"; }elsif($ff[$t] eq 5){ $renketu[$z].= "<img src=$imgurl/kihaku.gif>"; }else{ $renketu[$z].= ''; } }
}
$renketu[$z].= "</tr></table></td></tr>";

}
}
@tokunou=();
}

$hyouji="
<html>
<head>
<title>俺のペナント２</title>
<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-sjis\">
<link rel=\"stylesheet\" type=\"text/css\" href=\"$cssurl/sky.css\">
</head><center>
<body>
<table width=95%>
<tr>
<td>
<table border=1 cellspacing=0 cellpadding=1 bordercolor=004D11>
<tr align=center BgColor=32CD32>
<td>順</td><td>ﾎﾟｼﾞ</td><td>野手/製作者</td><td>ﾌｫｰﾑ</td><td><table width=100% border=1 Frame=void cellspacing=0 cellpadding=1><tr align=center><td width=20%>ＰＷ</td><td width=20%>ＭＴ</td><td width=20%>走力</td><td width=20%>肩力</td><td width=20%>守備</td></tr></table></td>
</tr>
$renketu[0]
</table>

</td>
<td align=center>
⇒
</td>
<td>

<table border=1 cellspacing=0 cellpadding=1 bordercolor=004D11>
<tr align=center BgColor=32CD32>
<td>順</td><td>ﾎﾟｼﾞ</td><td>野手/製作者</td><td>ﾌｫｰﾑ</td><td><table width=100% border=1 Frame=void cellspacing=0 cellpadding=1><tr align=center><td width=20%>ＰＷ</td><td width=20%>ＭＴ</td><td width=20%>走力</td><td width=20%>肩力</td><td width=20%>守備</td></tr></table></td>
</tr>
$renketu[1]
</table>

</td>
</tr>
<tr>
<td>

<table border=1 cellspacing=0 cellpadding=1 bordercolor=004D11>
<tr align=center BgColor=32CD32>
<td>順</td><td>投手/製作者</td><td>ﾌｫｰﾑ</td><td><table width=100% border=1 Frame=void cellspacing=0 cellpadding=1><tr align=center><td width=16%>速球</td><td>変化球</td><td width=16%>制球</td><td width=16%>ｽﾀﾐﾅ</td></tr></table></td>
</tr>
$renketu[2]
</table>

</td>
<td align=center>
⇒
</td>
<td>

<table border=1 cellspacing=0 cellpadding=1 bordercolor=004D11>
<tr align=center BgColor=32CD32>
<td>順</td><td>投手/製作者</td><td>ﾌｫｰﾑ</td><td><table width=100% border=1 Frame=void cellspacing=0 cellpadding=1><tr align=center><td width=16%>速球</td><td>変化球</td><td width=16%>制球</td><td width=16%>ｽﾀﾐﾅ</td></tr></table></td>
</tr>
$renketu[3]
</table>

</td>
</tr>
</table>
</body>
</html>
";

# 打順履歴書き込み
open(DA,">./$dajyunfold/$times.html");
eval 'flock(DA,2);';
truncate (DA, 0);
seek(DA,0,0); print DA $hyouji;
close(DA);
eval 'flock(DA,8);';

&login;

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ini.cgiを以下に変更

適当なところに下記を追加

$dajyunfold='dazyunn'; #打順履歴用フォルダ

$imgurl と　$cssurl　は絶対パスで書いてないと表示されません。
打順履歴用フォルダを作成してください。

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