# もうすぐ終わりです。
# アクションを起こした後のそれぞれの反応を設定します。

# ↓良いときの画像。左辺は変更しないでください。
%good_img = (                 # ラブポイント大
    'feed' , 'esa.gif',
    'pat'  , 'jare.gif',
    'play' , 'fun.gif',
    'hit'  , 'keikai.gif',
    'out'  , 'dash.gif',
);

%good_imga = (                # ラブポイント中
    'feed' , 'esa.gif',
    'pat'  , 'jare.gif',
    'play' , 'fun.gif',
    'hit'  , 'keikai.gif',
    'out'  , 'dash.gif',
);

%good_imgb = (                # ラブポイント小
    'feed' , 'esa.gif',
    'pat'  , 'jare.gif',
    'play' , 'fun.gif',
    'hit'  , 'keikai.gif',
    'out'  , 'dash.gif',
);

# ↓悪い時の画像。
%bad_img = (                 # ラブポイント大
    'feed' , 'tukare.gif',
    'pat'  , 'bite.gif',
    'play' , 'tukare.gif',
    'hit'  , 'dash.gif',
    'out'  , 'soppo.gif',
);

%bad_imga = (                # ラブポイント中
    'feed' , 'tukare.gif',
    'pat'  , 'bite.gif',
    'play' , 'tukare.gif',
    'hit'  , 'dash.gif',
    'out'  , 'soppo.gif',
);

%bad_imgb = (                # ラブポイント小
    'feed' , 'tukare.gif',
    'pat'  , 'bite.gif',
    'play' , 'tukare.gif',
    'hit'  , 'dash.gif',
    'out'  , 'soppo.gif',
);

# ↓どっちでもないときの画像。
%else_img = (                 # ラブポイント大
    'feed' , 'soppo.gif',
    'pat'  , 'soppo.gif',
    'play' , 'boo.gif',
    'hit'  , 'bite.gif',
    'out'  , 'soppo.gif',
);

%else_imga = (                # ラブポイント中
    'feed' , 'soppo.gif',
    'pat'  , 'soppo.gif',
    'play' , 'boo.gif',
    'hit'  , 'bite.gif',
    'out'  , 'soppo.gif',
);

%else_imgb = (                # ラブポイント小
    'feed' , 'soppo.gif',
    'pat'  , 'soppo.gif',
    'play' , 'boo.gif',
    'hit'  , 'bite.gif',
    'out'  , 'soppo.gif',
);

# ↓良いときのメッセージ。
%good_msg = (                 # ラブポイント大
    'feed' , 'おいしそうに食べてます♪',
    'pat'  , 'お腹をみせて喜んでいます♪',
    'play' , 'とても楽しそうに遊んでいます♪',
    'hit'  , 'ちょっといじけてますが、大丈夫でしょう',
    'out'  , '喜んで外に飛び出していきました♪',
);

%good_msga = (                # ラブポイント中
    'feed' , 'おいしそうに食べてます♪',
    'pat'  , 'お腹をみせて喜んでいます♪',
    'play' , 'とても楽しそうに遊んでいます♪',
    'hit'  , 'ちょっといじけてますが、大丈夫でしょう',
    'out'  , '喜んで外に飛び出していきました♪',
);

%good_msgb = (                # ラブポイント小
    'feed' , 'おいしそうに食べてます♪',
    'pat'  , 'お腹をみせて喜んでいます♪',
    'play' , 'とても楽しそうに遊んでいます♪',
    'hit'  , 'ちょっといじけてますが、大丈夫でしょう',
    'out'  , '喜んで外に飛び出していきました♪',
);

# ↓悪いときのメッセージ。
%bad_msg = (                 # ラブポイント大
    'feed' , 'いくらなんでも与え過ぎですよ',
    'pat'  , '触れられるのを嫌がっています',
    'play' , 'とてもそんな気分じゃないようです',
    'hit'  , '脱兎のごとく逃げていきました',
    'out'  , '無理やり外に放り出しました',
);

%bad_msga = (                # ラブポイント中
    'feed' , 'いくらなんでも与え過ぎですよ',
    'pat'  , '触れられるのを嫌がっています',
    'play' , 'とてもそんな気分じゃないようです',
    'hit'  , '脱兎のごとく逃げていきました',
    'out'  , '無理やり外に放り出しました',
);

%bad_msgb = (                # ラブポイント小
    'feed' , 'いくらなんでも与え過ぎですよ',
    'pat'  , '触れられるのを嫌がっています',
    'play' , 'とてもそんな気分じゃないようです',
    'hit'  , '脱兎のごとく逃げていきました',
    'out'  , '無理やり外に放り出しました',
);

# ↓どっちでもないときのメッセージ。
%else_msg = (                 # ラブポイント大
    'feed' , 'あんまり食べたくないみたいです',
    'pat'  , 'ダルそうにあっちに行ってしまいました',
    'play' , '全く興味なさそうです',
    'hit'  , 'ムカついて噛み付いてきました',
    'out'  , 'しぶしぶ外へ出て行きました',
);

%else_msga = (                # ラブポイント中
    'feed' , 'あんまり食べたくないみたいです',
    'pat'  , 'ダルそうにあっちに行ってしまいました',
    'play' , '全く興味なさそうです',
    'hit'  , 'ムカついて噛み付いてきました',
    'out'  , 'しぶしぶ外へ出て行きました',
);

%else_msgb = (                # ラブポイント小
    'feed' , 'あんまり食べたくないみたいです',
    'pat'  , 'ダルそうにあっちに行ってしまいました',
    'play' , '全く興味なさそうです',
    'hit'  , 'ムカついて噛み付いてきました',
    'out'  , 'しぶしぶ外へ出て行きました',
);

# ------------------------- #
# Sub Action
# アクション
# ------------------------- #
sub action {
    $playmsg = "$playtime時間" if $playtime != 0;
    $playmsg = "$playminute分" if $playtime == 0;

    &checkname;
    &error("まだ$playmsg経過していません") if $enter == 1;

    &header;
    &title;
    &bodytop("ペットデータ($num代目)");
    &petdata;
    srand(time);
    $rnd = int(rand(10) + 1);
    $fa = $FORM{'mode'};

    if ($fa eq 'play') { $lastplay = time; }
    if ($fa eq 'out')  { $out = 1; $outdate = time; }
    
    if ($rnd <= $rnd_border) {
        &petnow($rnd_img,$rnd_msg);
        $love--;
    }
    elsif ($FORM{'good'} =~ /$fa/) {
        if ($love < 0) {
            &petnow($good_imgb{$fa},$good_msgb{$fa});
        }
        elsif ($love < 7) {
            &petnow($good_imga{$fa},$good_msga{$fa});
        }
        else {
        &petnow($good_img{$fa},$good_msg{$fa});
        }
        $love++;$good++;
        if ($fa eq "feed") { $lastfeed = time; }
    }
    elsif ($FORM{'bad'} =~ /$fa/) {
        if ($love < 0) {
            &petnow($bad_imgb{$fa},$bad_msgb{$fa});
        }
        elsif ($love < 7) {
            &petnow($bad_imga{$fa},$bad_msga{$fa});
        }
        else {
        &petnow($bad_img{$fa},$bad_msg{$fa});
        }
        $love--;$bad++;
    }
    else {
        if ($love < 0) {
            &petnow($else_imgb{$fa},$else_msgb{$fa});
        }
        elsif ($love < 7) {
            &petnow($else_imga{$fa},$else_msga{$fa});
        }
        else {
        &petnow($else_img{$fa},$else_msg{$fa});
        }
    }

    &openoutpetdata;

    $goodbye = time - (60 * 60 * 24 * $goodbye);
    $newlove = $love;
    &openinuserdata('action');
    &openoutuserdata;
    $actionflag = 1; # 飼い主ランキングのリンクを表示
    &bodybottom;
    &footer;
}