劇ぱわ改造法(ver 3.00b用)

まず無改造の配布版の317〜320行目
$ten_pri = "<font size=4><b>$tokuten[$kougeki]</b></font>";
if($kai_ten){
$ten_pri = "<font size=5 color=\"FF0000\"><b>$tokuten[$kougeki]</b></font>";
}
を削除して
$ten_pri2 = '';
$ten_pri = "<font size=4><b>$tokuten[$kougeki]</b></font>";
if($kai_ten){
$ten_pri2 = "<font size=5 color=\"FF0000\"><b>$tokuten[$kougeki]</b></font>";
}else{
$ten_pri2 = '';
}
と書き換えます。

次に338行目
$ten_pri[$kougeki][$kai-1] = "$ten_pri$tuika";
を削除して

$ten_pri[$kougeki][$kai-1] = "$ten_pri";
$ten_pri2[$kougeki][$kai-1] = "$ten_pri2";
$tuika_pri[$kougeki][$kai-1] = "$tuika";
と書き換えます。

最後に817〜841行目
$log[$m] = "<table border=1 cellspacing=0 width=85%><tr align=center bgcolor=\"#48BB22\"><td colspan=2>【 $kai回 】</td></tr>";
$m++;
$log[$m] = "<tr align=center><td width=50%>おもて</td><td width=50%>う　ら</td></tr>";
$m++;
$log[$m] = "<tr align=center>";

for($j=0; $j<2; $j++){
$log[$m] = "<td valign=top><table width=100%>";
$m++;
if($i eq 0){
$log[$m] = "<tr align=center><td>順</td><td>名前</td><td>結果</td><td>ランナー</td><td>アウト</td></tr>";
$m++;
}
for($k=0; $k<$#{$out_pri[$j][$i]}+1; $k++){
$log[$m] = "<tr align=center><td>$jun_pri[$j][$i][$k]</td><td>$name_pri[$j][$i][$k]</td><td>$taisen_pri[$j][$i][$k]</td><td>$run_pri[$j][$i][$k]</td><td>$out_pri[$j][$i][$k]</td></tr>";
$m++;
}
$log[$m] = "</table></td>";
$m++;
}

if($ten_pri[1][$i] eq ''){ $ten_pri[1][$i] = "<font size=4><b>$tokuten[1]</b></font>"; }
$log[$m] = "</tr><tr align=center><td>$ten_pri[0][$i]</td><td>$ten_pri[1][$i]</td></tr></table><br><br>";
$m++;
}
を削除して

に変更すればできあがりです。
F0FFF0、48BB22、ECF5FF、0080FFといった色の部分は、自分で適当に変更してください。

次に「gekipawa.cgi」の# 登録処理のところ、無改造なら68行目の
if($form{'playball'}) { require './geki_game.cgi'; &playlog; exit; }
の下に
if($form{'kougo'}) { require './geki_gameb.cgi'; &playlog; exit; }
とつけ加えて下さい。

最後に「geki_login.cgi」の無改造なら414行目
print "<input type=submit name=playball value=\"試合開始\"></form>\n";
を
print "<input type=submit name=playball value=\"試合開始（うらおもて同時）\">\n";
print "<input type=submit name=kougo value=\"試合開始（うらおもて交互）\"></form>\n";
と変更すればできあがりです。

このようなゲーム処理ファイルの複数使用は、他にもいろいろ応用ができます。 例えばホームラン確率のちがうファイルを複数用意すれば、試合ごとの球場の選択が可能になります。 みなさんも良いアイデアを出して、面白い改造をしてみて下さい。

次にgekipawa.iniの##### 基本設定のところに $newsfile = './news.cgi'; # ニュースファイル とつけ加えて下さい。場所は基本設定のところならどこでもいいですが、# コメントファイルの次の行にするのがわかりやすいですね。

その次はgekigame_cgiです。
無改造版の1330行目〜1346行目の段落
# コメントファイル記入
if($geki_news && ($news_kekka || $news_record)){
open(CF,"+<$commentfile") || &error('指定されたファイルが開けません。');
eval 'flock(CF,2);';

@comments = <CF>;
if($news_record){ $news_kekka = $news_record; }
$kakiko = "1<><><>$times<>$news_kekka<>$team[0] $tokuten[0] - $tokuten[1] $team[1]<>\n";

unshift(@comments, $kakiko);
splice(@comments, $com_max);

truncate (CF, 0);
seek(CF,0,0); print CF @comments;
close(CF);
eval 'flock(CF,8);';
}
を削除して

<link rel="stylesheet" type="text/css" href="$cssurl/$c_sukin">

と変更して下さい。 splice(@news, 6);の数字を変えれば表示されるニュースの数が変えられます。ここを6にしているのでなにわ劇場では新しいものから6つのニュースが観覧できます。

最後にgekipawa.cgiです。無改造版の296行目「最近の試合」と317行目「コメント」の段落の間に、下記のように新たな段落を加えて下さい。

最後に無改造版の415行目@game_priの次の行に@news_priと書き足してください。これを加える位置によってニューステーブルの位置が変わって来ます。トップページの位置関係を改変するためには、HTMLの知識（最低限テーブルタグの意味くらいまでは）が必要になります。それは各自で勉強して下さい。そのへんの質問に関しましてはお答えしませんのであしからず。

まずはgekipawa.iniですが、# タイトルの段落に
$cssurl = 'http://'; # cssフォルダのＵＲＬ（最後の「/」はいりません）
とつけ加えて cssフォルダのＵＲＬを記入して下さい。# 画像フォルダのＵＲＬの下の行に加えておくとわかりやすいです。

そしてもうひとつ下記のような段落を加えて下さい。
# スキン
@sukins = ('a.css','b.css','c.css','d.css','e.css'); # スキンファイル名
@sukinsname = ('あ','い','う','え','お'); # スキン名
$kihoncss = 'a.css'; # デフォルトスキン
スキンファイル名、スキン名はわかりやすい名前に変更して下さい。
$kihoncssはスキン変更していない最初の状態でのスキンになります。

次はgekipawa.cgiです。まずは# 登録処理の段落(無改造なら49行目）に
if($form{'sukinselect'}){ require './geki_else.cgi'; &sukinselect; exit; }
if($form{'sukincookie'}){ require './geki_else.cgi'; &sukincookie; }
と書き加えて下さい。50〜68行目のどこに入れてもいいですが、自分がわかりやすい場所にして下さい。

そして##### ヘッダー表示(無改造なら168行目）の段落です。
まず、いちばん最初のsub header{の次の行に
&get_cookie;
if(!$c_sukin){ $c_sukin = "$kihoncss"; }
とつけ加えて下さい。
そして
<STYLE type="text/css">
<!--
body,tr,td,th { font-size: 10pt }
.score { font-size: 10pt; color: #FFFFFF; background-color: #008800 }
-->
</STYLE>
というところを削除して
<link rel="stylesheet" type="text/css" href="$cssurl/$c_sukin"> と書き変えて下さい。

次はスキン変更ボタンの作成です。自分の好きな場所に
<input type="submit" name="sukinselect" value="スキン変更">
という１行を加えて下さい。フッターに入れるのなら、無改造版では200〜205行目の間です。
新規ボタンのとなりなら、無改造版なら403行目$sinkiの次の行になります。

次は無改造版なら1283行目からのクッキーを取得の段落です。
1302行目if ($in{'home'}){ $c_home = $in{'home'}; }というところの次の行から
@pairs = split(/,/, $GET{'SUKIN'});
foreach(@pairs){
local($key,$val) = split(/<>/);
$COOK{$key} = $val;
}
$c_sukin = $COOK{'sukin'};
if($form{'sukin'}){ $c_sukin = $form{'sukin'}; }
と書き加えて下さい。

最後のエラーの時の処理の段落は以下のものに変更して下さい。
##### エラーの時の処理
sub error {

&get_cookie;

if(!$c_sukin){ $c_sukin = "$kihoncss"; }
$err_msg = @_[0];
print "Content-type: text/html\n\n";#コンテントタイプ出力
print <<"_ERROR_";
<html><head><title>ERROR</title><META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=x-sjis">
<link rel="stylesheet" type="text/css" href="$cssurl/$c_sukin"></head>
$body<center>
<font color="$tcolor" size="$tsize">エラー</font>
<br><br><br>
$err_msg<BR>
</body>
</html>
_ERROR_

&footer;
&chosaku;
exit;

}#END error

geki_else.cgiは以下の段落を最下段の}#end league_endと1;の間につけ加えて下さい。