俺ペナ改造

オールスター試合数3⇒6へ変更

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ore.cgiを以下に変更

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

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

if(($kousin eq 1 || $kousin eq 2 || $kousin eq 3) && $g_date+$allkankaku*60 < $times){ require './game.cgi'; require './ore_game.cgi'; &playlog; }

↓

if(($kousin >= 1 && $kousin <= 3.5) && $g_date+$allkankaku*60 < $times){ $allstar++;require './game.cgi'; require './ore_game.cgi'; &playlog; }

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　all.cgiを以下に変更

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

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

# 最近の試合
$game_pri[0] = "<table border=1 width=100% cellspacing=0 cellpadding=3 bordercolor=004D11>\n";
for($i=1; $i<7; $i++){
$game_pri[$i] = "<tr align=center><td> - </td></tr>\n";
}
$i = 0;
open(LG,"$leaguefold/$alllogfile") || &error('指定されたファイルが開けません。');
while(<LG>){
($g_date, $g_kekka, $d, $kyuuzyou) = split(/<>/, $_);
$gamedate = &date($g_date);
$j = $i + 1;
if($kyuuzyou){
$game_pri[$j] = "<tr align=center><td><a href=\"$cgifile?mode=game_log3&no=$i\">（第$j戦） $g_kekka 【$gamedate】</a><br>$kyuuzyou</td></tr>\n";
$i++;
}
}
close(LG);
$game_pri[7] = "</table>\n";

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　game.cgiを以下に変更

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

$kousin ne 1 && $kousin ne 2 && $kousin ne 3　⇒　!$allstar

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

if(rand(50)+5 < $jt4 && $k_pow > 8 && $ghr eq 0 && $kousin ne 1 && $kousin ne 2 && $kousin ne 3){

↓

if(rand(50)+5 < $jt4 && $k_pow > 8 && $ghr eq 0 && !$allstar){

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

if($kousin ne 1 && $kousin ne 2 && $kousin ne 3){

↓

if(!$allstar){

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

f($kousin ne 1 && $kousin ne 2 && $kousin ne 3){

↓

if(!$allstar){

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

$kousin eq 1 || $kousin eq 2 || $kousin eq 3　⇒　$allstar

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

if($kousin eq 1 || $kousin eq 2 || $kousin eq 3){#####投手交代判定

↓

if($allstar){#####投手交代判定

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

if($kousin eq 1 || $kousin eq 2 || $kousin eq 3){ $pitchjunplus = 2; }else{ $pitchjunplus = 0; }

↓

if($allstar){ $pitchjunplus = 2; }else{ $pitchjunplus = 0; }

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ore_game.cgiを以下に変更

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

$kousin ne 1 && $kousin ne 2 && $kousin ne 3　⇒　!$allstar

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

if($kousin ne 1 && $kousin ne 2 && $kousin ne 3){ $log[$m] = "監督：$sakusya<br>"; $m++; }

↓

if(!$allstar){ $log[$m] = "監督：$sakusya<br>"; $m++; }

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

if($kousin ne 1 && $kousin ne 2 && $kousin ne 3 && !$hyoujisinai){#シリーズ＋他

↓

if(!$allstar && !$hyoujisinai){#シリーズ＋他

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

until(($kai eq 9 && $kougeki && $tensa2 < 0) || ($kai > 9 && !$kougeki && $tensa2) || ($bannpuflag ne 3 && $kousin ne 1 && $kousin ne 2 && $kousin ne 3 && $kai eq 13 && !$kougeki && !$tensa2)){ ## 試合開始

↓

until(($kai eq 9 && $kougeki && $tensa2 < 0) || ($kai > 9 && !$kougeki && $tensa2) || ($bannpuflag ne 3 && !$allstar && $kai eq 13 && !$kougeki && !$tensa2)){ ## 試合開始

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

if($bannpuflag ne 3 && $kousin ne 1 && $kousin ne 2 && $kousin ne 3){#他

↓

if($bannpuflag ne 3 && !$allstar){#他

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

if($bannpuflag ne 3 && $kousin ne 1 && $kousin ne 2 && $kousin ne 3){#他

↓

iif($bannpuflag ne 3 && !$allstar){#他

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

$kousin eq 1 || $kousin eq 2 || $kousin eq 3　⇒　$allstar

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

}elsif($kousin eq 1 || $kousin eq 2 || $kousin eq 3){#オールスター

↓

}elsif($allstar){#オールスター

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

}elsif($bannpuflag eq 3 || $kousin eq 1 || $kousin eq 2 || $kousin eq 3){

↓

}elsif($bannpuflag eq 3 || $allstar){

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

if($bannpuflag eq 3 || $kousin eq 1 || $kousin eq 2 || $kousin eq 3){ open(US,"+<$leaguefold/$nihonfile") || &error('指定されたファイルが開けません。'); }

↓

if($bannpuflag eq 3 || $allstar){ open(US,"+<$leaguefold/$nihonfile") || &error('指定されたファイルが開けません。'); }

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

}elsif($kousin eq 1 || $kousin eq 2 || $kousin eq 3){#オールスター

↓

}elsif($allstar){#オールスター

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

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

if($kousin eq 1){
if($pripri % 6 eq 0 || $pripri % 6 eq 3){ $kyuuzyou[1] = "$all_name[0]"; $ryouyoku[1] = "$all_kyuu[0]"; }
elsif($pripri % 6 eq 1 || $pripri % 6 eq 4){ $kyuuzyou[1] = "$all_name[1]"; $ryouyoku[1] = "$all_kyuu[1]"; }
else{ $kyuuzyou[1] = "$all_name[2]"; $ryouyoku[1] = "$all_kyuu[2]"; }
}elsif($kousin eq 2){
if($pripri % 6 eq 0 || $pripri % 6 eq 3){ $kyuuzyou[1] = "$all_name[2]"; $ryouyoku[1] = "$all_kyuu[2]"; }
elsif($pripri % 6 eq 1 || $pripri % 6 eq 4){ $kyuuzyou[1] = "$all_name[0]"; $ryouyoku[1] = "$all_kyuu[0]"; }
else{ $kyuuzyou[1] = "$all_name[1]"; $ryouyoku[1] = "$all_kyuu[1]"; }
}else{
if($pripri % 6 eq 0 || $pripri % 6 eq 3){ $kyuuzyou[1] = "$all_name[1]"; $ryouyoku[1] = "$all_kyuu[1]"; }
elsif($pripri % 6 eq 1 || $pripri % 6 eq 4){ $kyuuzyou[1] = "$all_name[2]"; $ryouyoku[1] = "$all_kyuu[2]"; }
else{ $kyuuzyou[1] = "$all_name[0]"; $ryouyoku[1] = "$all_kyuu[0]"; }
}

$end_flag = 0;
if($win[1] + $lose[1] >= 3){ $end_flag = 1; }

↓

if($kousin eq 1){
if($pripri % 6 eq 0 || $pripri % 6 eq 3){ $kyuuzyou[1] = "$all_name[0]"; $ryouyoku[1] = "$all_kyuu[0]"; }
elsif($pripri % 6 eq 1 || $pripri % 6 eq 4){ $kyuuzyou[1] = "$all_name[1]"; $ryouyoku[1] = "$all_kyuu[1]"; }
else{ $kyuuzyou[1] = "$all_name[2]"; $ryouyoku[1] = "$all_kyuu[2]"; }
}elsif($kousin eq 2){
if($pripri % 6 eq 0 || $pripri % 6 eq 3){ $kyuuzyou[1] = "$all_name[2]"; $ryouyoku[1] = "$all_kyuu[2]"; }
elsif($pripri % 6 eq 1 || $pripri % 6 eq 4){ $kyuuzyou[1] = "$all_name[0]"; $ryouyoku[1] = "$all_kyuu[0]"; }
else{ $kyuuzyou[1] = "$all_name[1]"; $ryouyoku[1] = "$all_kyuu[1]"; }
}elsif($kousin eq 3){
if($pripri % 6 eq 0 || $pripri % 6 eq 3){ $kyuuzyou[1] = "$all_name[1]"; $ryouyoku[1] = "$all_kyuu[1]"; }
elsif($pripri % 6 eq 1 || $pripri % 6 eq 4){ $kyuuzyou[1] = "$all_name[2]"; $ryouyoku[1] = "$all_kyuu[2]"; }
else{ $kyuuzyou[1] = "$all_name[0]"; $ryouyoku[1] = "$all_kyuu[0]"; }
}elsif($kousin eq 1.5){
if($pripri % 6 eq 0 || $pripri % 6 eq 3){ $kyuuzyou[1] = "$all_name[0]"; $ryouyoku[1] = "$all_kyuu[0]"; }
elsif($pripri % 6 eq 1 || $pripri % 6 eq 4){ $kyuuzyou[1] = "$all_name[1]"; $ryouyoku[1] = "$all_kyuu[1]"; }
else{ $kyuuzyou[1] = "$all_name[2]"; $ryouyoku[1] = "$all_kyuu[2]"; }
}elsif($kousin eq 2.5){
if($pripri % 6 eq 0 || $pripri % 6 eq 3){ $kyuuzyou[1] = "$all_name[2]"; $ryouyoku[1] = "$all_kyuu[2]"; }
elsif($pripri % 6 eq 1 || $pripri % 6 eq 4){ $kyuuzyou[1] = "$all_name[0]"; $ryouyoku[1] = "$all_kyuu[0]"; }
else{ $kyuuzyou[1] = "$all_name[1]"; $ryouyoku[1] = "$all_kyuu[1]"; }
}else{
if($pripri % 6 eq 0 || $pripri % 6 eq 3){ $kyuuzyou[1] = "$all_name[1]"; $ryouyoku[1] = "$all_kyuu[1]"; }
elsif($pripri % 6 eq 1 || $pripri % 6 eq 4){ $kyuuzyou[1] = "$all_name[2]"; $ryouyoku[1] = "$all_kyuu[2]"; }
else{ $kyuuzyou[1] = "$all_name[0]"; $ryouyoku[1] = "$all_kyuu[0]"; }
}

$end_flag = 0;
if($win[1] + $lose[1] >= 6){ $end_flag = 1; }

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

# 更新
open(PR,"+<$leaguefold/$past_rankfile") || &error('指定されたファイルが開けません。');
eval 'flock(PR,2);';
@kakikos = <PR>;
($kakiko_times, $pripri, $kousin) = split(/<d>/, $kakikos[0]);
$kousin++;
$kakiko = "$kakiko_times<d>$pripri<d>$kousin<d>\n";
truncate (PR, 0);
seek(PR,0,0); print PR $kakiko;
close(PR);
eval 'flock(PR,8);';

↓

# 更新
open(PR,"+<$leaguefold/$past_rankfile") || &error('指定されたファイルが開けません。');
eval 'flock(PR,2);';
@kakikos = <PR>;
($kakiko_times, $pripri, $kousin) = split(/<d>/, $kakikos[0]);
$kousin+=0.5;
$kakiko = "$kakiko_times<d>$pripri<d>$kousin<d>\n";
truncate (PR, 0);
seek(PR,0,0); print PR $kakiko;
close(PR);
eval 'flock(PR,8);';

3リーグ制を作るときになんとなく作成。

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