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

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

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

# ------------------------- #
# Sub Pet Now
# ペットの現在の状況
# ------------------------- #
sub petnow {
    if ($ihour < 6) { $bgimage = '背景画像ファイル名1'; }
    elsif ($ihour < 12) { $bgimage = '背景画像ファイル名2'; }
    elsif ($ihour < 18) { $bgimage = '背景画像ファイル名3'; }
    else { $bgimage = '背景画像ファイル名4'; }
    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 = '背景画像ファイル名1'; }
    elsif ($ihour < 12) { $bgimage = '背景画像ファイル名2'; }
    elsif ($ihour < 18) { $bgimage = '背景画像ファイル名3'; }
    else { $bgimage = '背景画像ファイル名4'; }
    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]);
}

上から、0時〜6時、6時〜12時、12時〜18時、18時〜0時です。
あと、背景画像を、キャラ画像と同じフォルダに入れる場合は、

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

としてください。