PETROOM大改造
【萌え萌えキャラクターズと遊ぼー。】

かなた様専用:1回きりのイベント→キャラ一致の改造

1回にりのイベントの「ペットフォーム」の改造末尾の
(略)
        &input('radio','mode','event02_02','','叱る');
        print "</td>\n";
        print "</tr>\n";
    }
    else {
        &input('radio','mode','feed',' checked','餌をあげる<br>');
(中略)
        print "</tr>\n";
    }

キャラ一致改造前は、このようになっているんですよね?(^^;
ここで、キャラ一致の改造を加える場合、下記のようにします。
上の緑の部分が、下のオレンジの部分に置き換わる感じです。

(略)
        &input('radio','mode','event02_02','','叱る');
        print "</td>\n";
        print "</tr>\n";
    }
    elsif ($timeafter == 1 || $timeafter == 3 || $timeafter == 5 ||
        $timeafter == 7 || $timeafter == 9 || $timeafter == 11 ||
        $timeafter == 13 || $timeafter == 15 || $timeafter == 17 ||
        $timeafter == 19 || $timeafter == 21 || $timeafter == 23) {

        &input('radio','mode','feed',' checked','餌をあげる<br>');
        &input('radio','mode','pat','','なでる<br>');
        &input('radio','mode','out','','外に出す');
        print "</td>\n";
        print "<td>\n";
        &input('radio','mode','play','','遊ぶ<br>');
        &input('radio','mode','hit','','しかる<br>');
        &input('radio','mode','owner','','飼い主ランキング');
        print "</td>\n";
        print "</tr>\n";
    }
    else {
        &input('radio','mode','feed',' checked','餌をあげる<br>');
        &input('radio','mode','pat','','なでる<br>');
        &input('radio','mode','out','','外に出す');
        print "</td>\n";
        print "<td>\n";
        &input('radio','mode','play','','遊ぶ<br>');
        &input('radio','mode','hit','','しかる<br>');
        &input('radio','mode','owner','','飼い主ランキング');
        print "</td>\n";
        print "</tr>\n";
    }

ただ、注釈の「ifelsifに」をやる前の、
かなたさんのやり方でも、問題はないハズですので、
エラーが出てしまうのは、ここが原因というわけでも無さそうです。

クリアのランキングの改造の時に、一緒に拝見しますね。