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

日付でイベントを発生させよう

ひと通りＰＥＴＲＯＯＭが動いて、自分でも遊びに行ったりしていると、
そのうち欲しくなるのが、「いつもと違った特別なイベント」。
その実現方法にはいくつかあると思われますが、今回は日付を使った方法をご紹介します。

まず、ここでいう「イベント」ですが、えー・・・文章で説明するのって難しいですね(^^;
たとえば、誕生日。
キャラの誕生日が１０月９日（ちなみに琴音ちゃん）だとして、
１０月９日にプレイヤーが遊びに来ます。
特別な日なので、キャラにいつもと違ったセリフを言わせたりしたいわけですが、
その後、また同じ日のうちに同じプレイヤーが遊びに来たとき、
また、同じセリフを言うのは、なんか芸がないなと。
１回訪れた後は、通常に戻したいのです。
ここでいう「イベント」は、そういう１回限りのイベントのことを言います。
１回限りじゃなくていいイベントは、応用で実現可能ですので、ここでは省略します。
また、この「イベント」は、プレイヤーが訪れたときの話で、
選択肢を選んだ後のことではありません。
選択肢は通常通りで、選択肢を選んだ後も通常通りですので、ご注意下さい。
（「琴音ちゃんと遊ぼー。」ではその辺もいじってますけどね(^^;）

ＰＥＴＲＯＯＭのユーザーデータには、
はじめから「最後に訪れた日付（厳密には秒数）」が記録されています。
方法としては、
まず、遊びに来たときに日付をチェックし、イベントを発生させる日かどうか確認する。
次に、前回遊びに来た日付をチェックし、その日１回目の訪問かどうか確認する。
それだけです(^^;
１回限りじゃなくてもいいイベントの時は、この２つ目のチェックをしなければいいのです。

では、具体的にやってみましょう。先程の誕生日を例に進めていきます。
ペットのコンディション（sub condition）の中で設定するのですが、
今から作ろうと思っているイベントの優先度によって、挿入する場所が変わります。
今回は、通常の場合より優先度が高く、スペシャル画像（？）よりは優先度が低い、として設置します。
なので、挿入場所はここになります。

    # スペシャル画像2
    if ($love > $special2) {
        if ($timeafter == $specialtime2a || $timeafter == $specialtime2b) {
            &petnow($friend_img,$friend_msg);
            return;
        }
    }

# →　ここ！

    # ラブポイントが一定以上でノーマル画像
    if ( $love >= $bad - $good ) {
        &petnow($scheduleimg[$timeafter],$schedulemsg[$timeafter]);
        return;
    }

# →　ここ！の部分に入るのは、これです。

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

# イベント用前回の日付取得
    ($zsec,$zmin,$zhour,$zday,$zmon,$zyear) = localtime($gdate);
    $zyear += 1900;
    $zmon++;

# イベント・誕生日
    if ( $imon == 10 && $iday == 9 ) {
        if ( $zmon != 10 || $zday != 9 ) {
            $event_img  = 'char_ten.gif';
            $event_msg  = '今日は誕生日です。';
            &petnow($event_img,$event_msg);
            return;
        }
    }

簡単に説明したいところですが、おいらにもよく分かりません（爆）
１ブロック目が、現在時刻を拾ってくるところ。
２ブロック目が、前回訪れた時刻を拾ってくるところ。
timeと$gdateには、いつからだかの秒数が入っています。
それを、年月日時分秒に分割、１９００年を足して、月をプラス１すると、
・・・なにか、良いらしいのです（爆）

３ブロック目は、１行目で今日が１０月９日かどうかチェック。
２行目で、前回訪れたのが１０月９日かどうかチェック、
つまり、前回訪れたのが１０月９日でなくて、今日が１０月９日ならイベント発生というわけです。

１回限りでなくて、その日ずっと発生して良ければ、下記のようにして下さい。

# イベント・誕生日
    if ( $imon == 10 && $iday == 9 ) {
#       if ( $zmon != 10 || $zday != 9 ) {
            $event_img  = 'char_ten.gif';
            $event_msg  = '今日は誕生日です。';
            &petnow($event_img,$event_msg);
            return;
#       }
    }

応用次第で、○月○日〜○月○日までとか、毎月○日とか、○月中ずっととか、
いろいろイベントを作れます。