ＰＥＴＲＯＯＭ大改造
【萌え萌えキャラクターズと遊ぼー。】

ランキング表示でプレイヤーを明示させるには

遊びに来て下さる方が増えてくると、
当然ランキング表示は縦にどんどん長くなっていき、
「はて、今自分はどの辺りだろう？」と自分の名前を探そうとしたときに、
あまりにも人数が多くて、ヘタすると見つけられない、なんて事になりかねません。

そこで、遊びに来てくれたプレイヤーさんの名前だけ色を変えて、
パッと見で、すぐ分かるようにしようというのが、今回の狙いっぷり。


ユーザーデータの読み込み（sub openinuserdata）の下の方へ、
下記のように追記します。

        if ($_[0] eq 'ownerlist') {
            if ($love >= $loved) {
                @lovelist[$lovenum] = "$name";
                $lovenum++;
                if ($FORM{'name'} eq $name) {
                    $ownername = $name;
                }
                if ($bestlove < $love)
                    { $bestowner = "$name"; $bestlove = $love; }
            } elsif ($love <= $disliked) {
                @hatelist[$hatenum] = "$name";
                $hatenum++;
                if ($FORM{'name'} eq $name) {
                    $ownername = $name;
                }
            } else {
                @otherlist[$othernum] = "$name";
                $othernum++;
                if ($FORM{'name'} eq $name) {
                    $ownername = $name;
                }
            }
        }
    }
}

$ownernameにプレイヤーの名前を保存しておきます。
次に実際に表示させるところの変更を行います。
飼い主ランキング（sub ownerlist）を、
下記のように変更します。

# ------------------------- #
# Sub Owner List
# 飼い主ランキング
# ------------------------- #
sub ownerlist {
    &header;
    &title;
    $bestlove = $lovenum = $hatenum = $othernum = 0;
    &openinuserdata('ownerlist');

    &bodytop('飼い主ランキング');
    &tabletop;

    print "$font2$petnameが一番なついている人は</font><br>";
    if ($bestlove < $loved) { print "いません<br>\n";}
#   else { print "$bestownerさんです<br>\n"; }
    else {
        if ($ownername eq $bestowner) {
            print "<FONT color=white><B>$bestowner</B></FONT>さんです<br>\n";
        }
        else {
            print "$bestownerさんです<br>\n";
        }
    }
    print "<br>\n";

    print "$font2$petnameがなついている人は</font><br>";
    if ($lovenum == 0) { print "いません<br>"; }
#   else { foreach $owner (@lovelist)  { print "$ownerさん<br>\n"; } }
    else {
        foreach $owner (@lovelist) {
            ($name) = split(/<>/,$owner);
            if ($name eq $ownername) {
                print "<FONT color=white><B>$name</B></FONT>さん<br>\n";
            }
            else {
                print "$nameさん<br>\n";
            }
        }
    }
    print "<br>\n";

    print "$font2$petnameが嫌いな人は</font><br>";
    if ($hatenum == 0) { print "いません<br>";}
#   else { foreach $owner (@hatelist)  { print "$ownerさん<br>\n"; } }
    else {
        foreach $owner (@hatelist) {
            ($name) = split(/<>/,$owner);
            if ($name eq $ownername) {
                print "<FONT color=white><B>$name</B></FONT>さん<br>\n";
            }
            else {
                print "$nameさん<br>\n";
            }
        }
    }
    print "<br>\n";

    print "$font2それ以外の人</font><br>";
    if ($othernum == 0) { print "いません<br>"; }
#   else { foreach $owner (@otherlist) { print "$ownerさん<br>\n"; } }
    else {
        foreach $owner (@otherlist) {
            ($name) = split(/<>/,$owner);
            if ($name eq $ownername) {
                print "<FONT color=white><B>$name</B></FONT>さん<br>\n";
            }
            else {
                print "$nameさん<br>\n";
            }
        }
    }

    &tablebottom;
    &bodybottom;
    &footer;
}

オレンジ部分の中のwhiteは、背景等に合わせて変えて下さいね。