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

たま様専用：好感度によってメッセージを変えつつ、そのメッセージがランダムになるように

好感度によってキャラの反応を変える改造をすると、下記のようになっていると思います。

    elsif ($FORM{'good'} =~ /$fa/) {
        if ($love < 0) {
            &petnow($good_imgb{$fa},$good_msgb{$fa});
        }
        elsif ($love < 7) {
            &petnow($good_imga{$fa},$good_msga{$fa});
        }
        else {
        &petnow($good_img{$fa},$good_msg{$fa});
        }
        $love++;$good++;
        if ($fa eq "feed") { $lastfeed = time; }
    }

これを、
『つまり、好感度０〜９で「珈琲」を選んだら
A,B,Cのうちどれかのメッセージを、
「紅茶」なら
1,2,3のうちのどれかを、

好感度９〜１９で「珈琲」を選んだら
D,E,Fのうちからどれかのメッセージを、
「紅茶」なら
4,5,6のうちのどれかを、』

のように改造すると、下記のようになります。

    elsif ($FORM{'good'} =~ /$fa/) {
#        if ($love < 0) {
#            &petnow($good_imgb{$fa},$good_msgb{$fa});
#        }
#        elsif ($love < 7) {
#            &petnow($good_imga{$fa},$good_msga{$fa});
#        }
#        else {
#        &petnow($good_img{$fa},$good_msg{$fa});
#        }
        if ($love >= 0 && $love < 9) {    # 好感度が０〜９の場合
            if ($fa eq "珈琲") {    # コマンドが珈琲なら
                if ($rnd <= 4) {    # $rndにより、３つに分岐
                    &petnow(Ａの画像配列,Ａのメッセージ配列);
                }
                elsif ($rnd <= 7) {
                    &petnow(Ｂの画像配列,Ｂのメッセージ配列);
                }
                else {
                    &petnow(Ｃの画像配列,Ｃのメッセージ配列);
                }
            }
            elsif ($fa eq "紅茶") {    # コマンドが紅茶なら
                if ($rnd <= 4) {
                    &petnow(１の画像配列,１のメッセージ配列);
                }
                elsif ($rnd <= 7) {
                    &petnow(２の画像配列,２のメッセージ配列);
                }
                else {
                    &petnow(３の画像配列,３のメッセージ配列);
                }
            }
            elsif ($fa eq "〜") {    # コマンドが〜なら
                （中略）
            }
            （中略）
            else {    # 上記のどのコマンドにも当てはまらなかったら
                （中略）
            }
        }
        elsif ($love >= 9 && $love < 19) {    # 好感度が９〜１９の場合
            if ($fa eq "珈琲") {
                if ($rnd <= 4) {
                    &petnow(Ｄの画像配列,Ｄのメッセージ配列);
                }
                elsif ($rnd <= 7) {
                    &petnow(Ｅの画像配列,Ｅのメッセージ配列);
                }
                else {
                    &petnow(Ｆの画像配列,Ｆのメッセージ配列);
                }
            }
            elsif ($fa eq "紅茶") {
                if ($rnd <= 4) {
                    &petnow(４の画像配列,４のメッセージ配列);
                }
                elsif ($rnd <= 7) {
                    &petnow(５の画像配列,５のメッセージ配列);
                }
                else {
                    &petnow(６の画像配列,６のメッセージ配列);
                }
            }
            elsif ($fa eq "〜") {
                （中略）
            }
            （中略）
            else {
                （中略）
            }
        }
        elsif (〜) {    # 好感度が〜の場合
            （中略）
        }
        （中略）
        else {    # 上記のどの好感度にも当てはまらなかった場合
            （中略）
        }
        $love++;$good++;
        if ($fa eq "feed") { $lastfeed = time; }
    }

この場合、好感度が０未満だと、一番最後のelseの処理へ入りますので、ご注意下さい。
（中略）が多くて、ちょっと分かりづらいですかねぇ・・・(^^;
また、分岐に使われているランダム数$rndですが、
$rnd_borderの値により、微妙に調整が必要です。
$rnd_borderが３の場合、$rndが１、２、３の時はランダムの処理へ入ってしまい、
こちらの処理へは来ないので、実際に使えるのは４〜１０と言うことになります。