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

応用:時刻と好感度によって背景画像を切り替えよう

「背景画像にキャラを登場させてみよう」がお済みでない方は、
とりあえず、その改造を施してくださいませ。

次に、現在時刻を取得するために、下記のスクリプトを追加するのですが、
これは、他の改造ですでに組み込まれている方が多いと思います。

# 現在の日付取得
($isec,$imin,$ihour,$iday,$imon,$iyear) = localtime(time);
$iyear += 1900;
$imon++;

追加する場所は、「メイン処理」より上なら、どこでも良いのですが、
すでにメイン処理より上に、これが組み込まれている方は、改造の必要はありません。
メイン処理より上に、これがない方は、メイン処理のすぐ上辺りに追加して下さい。

# 現在の日付取得
($isec,$imin,$ihour,$iday,$imon,$iyear) = localtime(time);
$iyear += 1900;
$imon++;

# ------------------------- #
# Main Program
# メイン処理
# ------------------------- #
&decode;
&openinpetdata;
&titlecheck;

メイン処理より下にある、このプログラムは削除していただいて構いません。
プログラムの最初の方で、一回設定すれば、OKですので。

なんだかよく分からなくて心配な方は、とりあえず上記の場所に追加だけして下さい。
いくつあっても、問題にはなりませんので、ご安心下さい。


これで準備はOKです。
では、ペットの状態(sub petnow)、
フキダシの改造をしている方は(sub petnowwaku)も、
下記のように改造してください。

# ------------------------- #
# Sub Pet Now
# ペットの現在の状況
# ------------------------- #
sub petnow {
    if ($ihour < 6) {                                                    # 0:00〜6:00
        if ($love >= $loved)       { $bgimage = '背景画像ファイル名01'; } # 好感度最大
        elsif ($love >= $loved_k)  { $bgimage = '背景画像ファイル名02'; } # 好感度上位
        elsif ($love >= $disliked) { $bgimage = '背景画像ファイル名03'; } # 好感度下位
        else                       { $bgimage = '背景画像ファイル名04'; } # 好感度最低
    }
    elsif ($ihour < 12) {                                                # 6:00〜12:00
        if ($love >= $loved)       { $bgimage = '背景画像ファイル名05'; } # 好感度最大
        elsif ($love >= $loved_k)  { $bgimage = '背景画像ファイル名06'; } # 好感度上位
        elsif ($love >= $disliked) { $bgimage = '背景画像ファイル名07'; } # 好感度下位
        else                       { $bgimage = '背景画像ファイル名08'; } # 好感度最低
    }
    elsif ($ihour < 18) {                                                # 12:00〜18:00
        if ($love >= $loved)       { $bgimage = '背景画像ファイル名09'; } # 好感度最大
        elsif ($love >= $loved_k)  { $bgimage = '背景画像ファイル名10'; } # 好感度上位
        elsif ($love >= $disliked) { $bgimage = '背景画像ファイル名11'; } # 好感度下位
        else                       { $bgimage = '背景画像ファイル名12'; } # 好感度最低
    }
    else {                                                                  # 18:00〜0:00
        if ($love >= $loved)       { $bgimage = '背景画像ファイル名13'; } # 好感度最大
        elsif ($love >= $loved_k)  { $bgimage = '背景画像ファイル名14'; } # 好感度上位
        elsif ($love >= $disliked) { $bgimage = '背景画像ファイル名15'; } # 好感度下位
        else                       { $bgimage = '背景画像ファイル名16'; } # 好感度最低
    }
    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) {                                                    # 0:00〜6:00
        if ($love >= $loved)       { $bgimage = '背景画像ファイル名01'; } # 好感度最大
        elsif ($love >= $loved_k)  { $bgimage = '背景画像ファイル名02'; } # 好感度上位
        elsif ($love >= $disliked) { $bgimage = '背景画像ファイル名03'; } # 好感度下位
        else                       { $bgimage = '背景画像ファイル名04'; } # 好感度最低
    }
    elsif ($ihour < 12) {                                                # 6:00〜12:00
        if ($love >= $loved)       { $bgimage = '背景画像ファイル名05'; } # 好感度最大
        elsif ($love >= $loved_k)  { $bgimage = '背景画像ファイル名06'; } # 好感度上位
        elsif ($love >= $disliked) { $bgimage = '背景画像ファイル名07'; } # 好感度下位
        else                       { $bgimage = '背景画像ファイル名08'; } # 好感度最低
    }
    elsif ($ihour < 18) {                                                # 12:00〜18:00
        if ($love >= $loved)       { $bgimage = '背景画像ファイル名09'; } # 好感度最大
        elsif ($love >= $loved_k)  { $bgimage = '背景画像ファイル名10'; } # 好感度上位
        elsif ($love >= $disliked) { $bgimage = '背景画像ファイル名11'; } # 好感度下位
        else                       { $bgimage = '背景画像ファイル名12'; } # 好感度最低
    }
    else {                                                                  # 18:00〜0:00
        if ($love >= $loved)       { $bgimage = '背景画像ファイル名13'; } # 好感度最大
        elsif ($love >= $loved_k)  { $bgimage = '背景画像ファイル名14'; } # 好感度上位
        elsif ($love >= $disliked) { $bgimage = '背景画像ファイル名15'; } # 好感度下位
        else                       { $bgimage = '背景画像ファイル名16'; } # 好感度最低
    }
    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\"

としてください。