ことねっつ

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

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

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

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

# 現在の日付取得
($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;

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

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

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

# ------------------------- #
# Sub Pet Now
# ペットの現在の状況
# ------------------------- #
sub petnow {
    if ($ihour < 6) {                                                    # ０：００～６：００
        if ($love >= $loved)       { $bgimage = '背景画像ファイル名０１'; } # 好感度最大
        elsif ($love >= $loved_k)  { $bgimage = '背景画像ファイル名０２'; } # 好感度上位
        elsif ($love >= $disliked) { $bgimage = '背景画像ファイル名０３'; } # 好感度下位
        else                       { $bgimage = '背景画像ファイル名０４'; } # 好感度最低
    }
    elsif ($ihour < 12) {                                                # ６：００～１２：００
        if ($love >= $loved)       { $bgimage = '背景画像ファイル名０５'; } # 好感度最大
        elsif ($love >= $loved_k)  { $bgimage = '背景画像ファイル名０６'; } # 好感度上位
        elsif ($love >= $disliked) { $bgimage = '背景画像ファイル名０７'; } # 好感度下位
        else                       { $bgimage = '背景画像ファイル名０８'; } # 好感度最低
    }
    elsif ($ihour < 18) {                                                # １２：００～１８：００
        if ($love >= $loved)       { $bgimage = '背景画像ファイル名０９'; } # 好感度最大
        elsif ($love >= $loved_k)  { $bgimage = '背景画像ファイル名１０'; } # 好感度上位
        elsif ($love >= $disliked) { $bgimage = '背景画像ファイル名１１'; } # 好感度下位
        else                       { $bgimage = '背景画像ファイル名１２'; } # 好感度最低
    }
    else {                                                                  # １８：００～０：００
        if ($love >= $loved)       { $bgimage = '背景画像ファイル名１３'; } # 好感度最大
        elsif ($love >= $loved_k)  { $bgimage = '背景画像ファイル名１４'; } # 好感度上位
        elsif ($love >= $disliked) { $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) {                                                    # ０：００～６：００
        if ($love >= $loved)       { $bgimage = '背景画像ファイル名０１'; } # 好感度最大
        elsif ($love >= $loved_k)  { $bgimage = '背景画像ファイル名０２'; } # 好感度上位
        elsif ($love >= $disliked) { $bgimage = '背景画像ファイル名０３'; } # 好感度下位
        else                       { $bgimage = '背景画像ファイル名０４'; } # 好感度最低
    }
    elsif ($ihour < 12) {                                                # ６：００～１２：００
        if ($love >= $loved)       { $bgimage = '背景画像ファイル名０５'; } # 好感度最大
        elsif ($love >= $loved_k)  { $bgimage = '背景画像ファイル名０６'; } # 好感度上位
        elsif ($love >= $disliked) { $bgimage = '背景画像ファイル名０７'; } # 好感度下位
        else                       { $bgimage = '背景画像ファイル名０８'; } # 好感度最低
    }
    elsif ($ihour < 18) {                                                # １２：００～１８：００
        if ($love >= $loved)       { $bgimage = '背景画像ファイル名０９'; } # 好感度最大
        elsif ($love >= $loved_k)  { $bgimage = '背景画像ファイル名１０'; } # 好感度上位
        elsif ($love >= $disliked) { $bgimage = '背景画像ファイル名１１'; } # 好感度下位
        else                       { $bgimage = '背景画像ファイル名１２'; } # 好感度最低
    }
    else {                                                                  # １８：００～０：００
        if ($love >= $loved)       { $bgimage = '背景画像ファイル名１３'; } # 好感度最大
        elsif ($love >= $loved_k)  { $bgimage = '背景画像ファイル名１４'; } # 好感度上位
        elsif ($love >= $disliked) { $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\"

としてください。