# ↓一日の予定を組みます(餌を与えられてから24時間のスケジュール)
# 上から順に0〜1時間、1〜2時間となっています。
# その間に表示させたい画像を以下に指定します。
# ただし、画像は全て同じ大きさのものを使用してください。
# 変更する場合は→'画像ファイル名',でワンセットですので、
# 点を間違って削除したりしないよう注意してください。
# かならず24時間分指定してください。
# 24時間以上経つとペットはお腹を空かせ、後はずっと鳴いた画像が表示されます。
@scheduleimg = (
                'name.gif',
                'tume.gif',
                'neteru.gif',
                'neteru.gif',
                'boo.gif',
                'nobi.gif',
                'soto.gif',
                'naku.gif',
                'naku.gif',
                'unko.gif',
                'name.gif',
                'tume.gif',
                'maru.gif',
                'neteru.gif',
                'boo.gif',
                'tume.gif',
                'soto.gif',
                'naku.gif',
                'naku.gif',
                'maru.gif',
                'maru.gif',
                'unko.gif',
                'boo.gif',
                'maru.gif',
                'boo.gif',
                'maru.gif',
);

# ↓上の画像のリストと対になっています。
# 画像が表示される時の説明文です。
# かならず24個用意してください。
@schedulemsg = (
                '自分の体をなめています',
                '爪をといでいます',
                '寝ているようです',
                'いびきをかいて寝ています',
                'ぼーっとしています',
                'のびをしています',
                '外の様子が気になるようです',
                'うるさく鳴いています',
                'ヒステリックに鳴いています',
                'ペット用トイレでうんこしています',
                '毛繕いしているようです',
                '壁一面、バリバリ掻いてます',
                'タンスの上で丸まっています',
                '夢をみているようです',
                'ヒマそうです',
                '暴れています',
                '窓の外を眺めています',
                'ニャーニャー鳴いています',
                'ひたすら鳴いています',
                '部屋の隅っこで丸まっています。',
                '布団の上で丸まっています',
                '部屋の中にウンコをしました・・・',
                '何もやることがなさそうです',
                'テーブルの上で丸まっています',
                '何もやることがなさそうです',
                'テーブルの上で丸まっています',
);

# ↓更に上と対になっています。
# その時間帯にペットが一番やってほしいこと(もしくは効果があること)。
# play = 遊ぶ,pat = なでる,feed = 餌をやる,hit = しかる,out = 外に出す。
# ない場合は点の間を空白。
# 複数ある場合は'play_pat',のように間を_で繋ぐ。
@scheduledsr = (
                'pat',
                'play',
                'pat',
                'pat',
                'pat',
                'pat',
                'out',
                'out',
                'out',
                '',
                'pat',
                'hit',
                '',
                'pat',
                'play',
                'hit',
                'out',
                'out',
                'out',
                '',
                'pat',
                'hit',
                'play',
                '',
                'play',
                '',
);

# 更に続きます。
# その時間帯に来客者がやっては行けないことです。
# ただし、やってほしい事とやってはいけないことを重複させないようにしてください。
@schedulednt = (
                'hit_out_feed',
                'hit_pat_out_feed',
                'hit_out_feed',
                'hit_out_feed',
                'hit_out',
                'hit',
                'hit',
                'hit',
                'hit',
                'hit_pat_play_out',
                'hit_out',
                'pat_play',
                'hit',
                'hit_out_feed',
                'hit',
                'pat_play',
                'hit',
                '',
                '',
                'hit_out_pat',
                'hit_out',
                'pat_play',
                'hit',
                'hit',
                'hit',
                'hit',
);

# ------------------------- #
# Sub Pet Data
# ペットデータ
# ------------------------- #
sub petdata {
    # 何日以上か面会がない場合、ペットの機嫌が下がる
    if (&checkday($lastvisit) >= $novisit) { $good--; }
    # 何日間食べていないか。
#   $hungry = &checkday($lastfeed);
    $hungry = int((time - $lastfeed)/($daysec + (2 * 60 * 60)));
    
    # ゲストが何日ぶりの来訪かをチェックし、ラブ数を減らす
#    $love-- if $love - &checkday($gdate) > 1;
    $love = $love - &checkday($gdate);