劇ぱわ 改造方法

2位チームのアイコン表示

要旨

TOPページの順位表で、首位チーム同様に2位チームのアイコンを表示するように改造する。
この改造を参考にすれば、3位以降のアイコン表示も出来ると思います。

2位チームのアイコンを表示する改造

gekipawa.cgi」ファイルをエディタで開きます。
下記の部分を探して下さい。(無編集なら254行目〜)

##### トップページ
sub top{

 open(US,"$leaguefold/$userfile") ||
  &error('指定されたファイルが開けません。');
 eval 'flock(US,1);';
 seek(US,0,0); @users = <US>; close(US);
 eval 'flock(US,8);';

 @icon_pri = ();
 for($i=0; $i<3; $i++){
  ($saku[$i], $pass[$i], $home[$i], $team[$i], $icon[$i], $date[$i],
    $ip[$i], $teamdata[$i]) = split(/<p>/, $users[$i]);
  ($lastjun[$i], $win[$i], $wincon[$i], $winmax[$i], $lose[$i])
    = split(/<>/, $teamdata[$i]);
  if($home[$i]){
   $saku[$i] = "<a href=\"$home[$i]\" target=\"_blank\">$saku[$i]</a>";
  }
 }

 if($icon_use) {
  $icon_pri[0] = 
   "<img src=\"$imgurl/$icon[0]\"></td>
    <td><font size=5 color=\"FF0000\"><b>$team[0]</b></font><br>"; }
 else {
  $icon_pri[0] = 
   "<font size=5 color=\"FF0000\"><b>$team[0]</b></font>"; }

 $sinki = '';
 if($#users+1 < $team_max){
 $sinki = "  <input type=submit name=sinki_make value=\"新 規\">";
}

上記赤文字部分に下記青色部分を追加します。

##### トップページ
sub top{

 open(US,"$leaguefold/$userfile") ||
  &error('指定されたファイルが開けません。');
 eval 'flock(US,1);';
 seek(US,0,0); @users = <US>; close(US);
 eval 'flock(US,8);';

 @icon_pri = ();
 for($i=0; $i<3; $i++){
  ($saku[$i], $pass[$i], $home[$i], $team[$i], $icon[$i], $date[$i],
    $ip[$i], $teamdata[$i]) = split(/<p>/, $users[$i]);
  ($lastjun[$i], $win[$i], $wincon[$i], $winmax[$i], $lose[$i])
    = split(/<>/, $teamdata[$i]);
  if($home[$i]){
   $saku[$i] = "<a href=\"$home[$i]\" target=\"_blank\">$saku[$i]</a>";
  }
 }

 if($icon_use) {
  $icon_pri[0] = 
   "<img src=\"$imgurl/$icon[0]\"></td>
    <td><font size=5 color=\"FF0000\"><b>$team[0]</b></font><br>";
  $icon_pri[2] = 
   "<img src=\"$imgurl/$icon[1]\"></td>
    <td><font size=4><b>$team[1]</b></font><br>"; }
 else {
  $icon_pri[0] = 
   "<font size=5 color=\"FF0000\"><b>$team[0]</b></font>";
  $icon_pri[2] = 
   "<font size=4><b>$team[1]</b></font>"; }

 $sinki = '';
 if($#users+1 < $team_max){
 $sinki = "  <input type=submit name=sinki_make value=\"新 規\">";
}

更に下記部分を探して下さい。(無編集なら359行目〜)

<table width=$ysize cellpadding=10>
<tr align=center>
<td width=75%>
<font size=5 color="008000"><b>− リーグ状況 −</b></font><br>
<table border=1 width="100%" cellspacing=0 cellpadding=5>
<tr align=center>
<td><font color="#FF0000" size=5><b>首位</b></font></td>
<td>
<table border=0 width=70%>
<tr align=center>
<td>$icon_pri[0]
<font size=4>($saku[0])<br>$win[0]勝$lose[0]敗</font>
</td></tr>
</table>
</td></tr>
<tr align=center>
<td><font size=4><b>2位</b></font></td>
<td><font size=4><b>$team[1]</b></font>($saku[1])<br>$win[1]勝$lose[1]敗</font>
</td></tr>
<tr align=center>
<td><b>3位</b></td>

赤字部分を下記青字部分の様に編集して下さい。

<table width=$ysize cellpadding=10>
<tr align=center>
<td width=75%>
<font size=5 color="008000"><b>− リーグ状況 −</b></font><br>
<table border=1 width="100%" cellspacing=0 cellpadding=5>
<tr align=center>
<td><font color="#FF0000" size=5><b>首位</b></font></td>
<td>
<table border=0 width=70%>
<tr align=center>
<td>$icon_pri[0]
<font size=4>($saku[0])<br>$win[0]勝$lose[0]敗</font>
</td></tr>
</table>
</td></tr>
<tr align=center>
<td><font size=4><b>2位</b></font></td>
<td>
<table border=0 width=70%>
<tr align=center>
<td>$icon_pri[2]
<font size=4>($saku[1])<br>$win[1]勝$lose[1]敗</font>
</td></tr>
</table>
</td></tr>
<tr align=center>
<td><b>3位</b></td>

改造内容の注意事項

首位チームのアイコン表示が「$icon_pri[0]」であるのに今回2位チームに「$icon_pri[2]」を使用したのは、「$icon_pri[1]」がチャンピオンチームのアイコン表示のために既に使用されているためです。

当サイトへのリンクを貼って下さい

「劇ぱわ」の下部著作権部分へのリンクを貼る方法

##### 著作権表示
sub chosaku{
  print <<"_CHOSAKU_";
  </center>
  <hr size="1">
  <div align="right">
    <a href="http://homepage2.nifty.com/osktaka/" target="_blank" title="気ままなまま">
      <font size="2">劇空間ぱわふるリーグ2 ver 3.00b (Free)</font>
    </a>
  </div>
  <div align="right">
    <a href="http://ryoquest.sakura.ne.jp/" target="_blank" title="改造:「野良猫のCGI講座」Take it easy !">
      <font size="2">改造:「野良猫のCGI講座」Take it easy !</font>
    </a>
  </div>
  <!--広告バナー挿入位置、ページ下部-->
  </body>
  </html>
  _CHOSAKU_
}#end chosaku

前後の内容

CGI/perl劇ぱわ俺ペナ
不具合対策改造方法
チームランキングの色表示2位チームのアイコン表示「メンテナンス中」にコメント追加

【劇ぱわ改造設置支援サイト】Take it easy ! RYOQUEST presents

『野良猫のCGI講座』は、
【劇ぱわ改造設置支援サイト】Take it easy ! RYOQUEST presents のコンテンツとして、虎猫が公開しています。

「劇空間ぱわふるリーグ2 ver 3.00b(劇ぱわ)」は、
きままなまま』で管理人にーやん様が作成・無料配布されているCGI/Perlによる野球ゲームです。

参考にされた方は、当サイトへリンクを貼って下さい♪
サイト名:Take it easy ! RYOQUEST presents
(サイト名:Take it easy !
URL:http://ryoquest.sakura.ne.jp/
バナーURL:http://ryoquest.sakura.ne.jp/image/tie_8831an.gif
Take it easy !

『旧:野良猫のCGI講座』

以前の『野良猫のCGI講座』をご覧になりたい方は、『旧:野良猫のCGI講座』からアクセスして下さい。
但し、更新は一切していません。

ページのトップへ戻る