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

さくら様専用：時刻によって背景画像を切り替える

すでにいろいろ改造がお済みですので、とっても簡単です(^-^)
ではでは、早速行きましょう。
ペットの現在の状況（sub petnow＆sub petnowwaku）に下記のように追記してください。

# ------------------------- #
# Sub Pet Now
# ペットの現在の状況
# ------------------------- #
sub petnow {
    if ($ihour < 6) { $bgimage = '背景画像ファイル名１'; }
    elsif ($ihour < 12) { $bgimage = '背景画像ファイル名２'; }
    elsif ($ihour < 18) { $bgimage = '背景画像ファイル名３'; }
    else { $bgimage = '背景画像ファイル名４'; }
    print "<tr>\n";
#    print "<td align=\"center\" background=\"t_roomd.jpg\" width=\"320\" height=\"240\" valign=\"bottom\">";
    print "<td align=\"center\" background=\"$bgimage\" width=\"320\" height=\"240\" valign=\"bottom\">";
    print "<img src=\"$img$_[0]\" border=\"0\"></td>\n";
    print "</tr>\n";
    &bar('',$_[1]);
}

# ------------------------- #	# ★
# Sub Pet Now Waku				# ★
# ペットの現在の状況（吹き出し）# ★
# ------------------------- #	# ★
sub petnowwaku {
    if ($ihour < 6) { $bgimage = '背景画像ファイル名１'; }
    elsif ($ihour < 12) { $bgimage = '背景画像ファイル名２'; }
    elsif ($ihour < 18) { $bgimage = '背景画像ファイル名３'; }
    else { $bgimage = '背景画像ファイル名４'; }
    print "<tr>\n";
#    print "<td align=\"center\" background=\"t_roomd.jpg\" width=\"320\" height=\"240\" valign=\"bottom\">";
    print "<td align=\"center\" background=\"$bgimage\" width=\"320\" height=\"240\" valign=\"bottom\">";
    print "<img src=\"$img$_[0]\" border=\"0\">\n";
    print "</td>";
    print "</tr>\n";
    &barwaku('',$_[1]);
}

上から、０時〜６時、６時〜１２時、１２時〜１８時、１８時〜０時です。
あと、背景画像を、キャラ画像と同じフォルダに入れる場合は、

background=\"$bgimage\"
を、
background=\"$img$bgimage\"

としてください。