gistfile2.txt

mamipekobot.pl

#!/usr/bin/env perl
use strict;
use warnings;
use lib 'lib';
use utf8;

use AnySan::Provider::Twitter;
use Config::Pit;

my $config = {
    consumer_key    => 'GFLBM1lljaukJkoHC4OgTA',
    consumer_secret => '5e0YnEvsUBWqSMCUiLIeZhORudN6vAiOuy96LzdU',
    token           => '211797958-fIIDyttK4UyNOBFh8fkotP3onvl66J7eyGO88Rr0',
    token_secret    => 'mPv4PGgWthzqnQdF9veAI7QlN8hvZddPJ1hejOummY',
};

my $twitter = twitter
    %{ $config },
    method          => 'userstream',
    ;

my @mamipeko = qw(
    はぁはぁ
    あわよくぱぁ
    大好きです！大好きです！
    さみしい
    貧血っぽいど
    泣いてばかりいる
    おなほー
    ヨガりますかに
    おちんちんで腹話術
    おっぱい
    ちっぱい
    G（自慰）しました
    さみしいさみしいなの
    変態DMもぐもぐ
    おしっこ
    あんあん
    いっちゃうー
    飢えています
    犯しくれなきゃいたずらするぞー
    ひどいSMプレイをしています
    いろいろたまってるんじゃないですか？
    添い寝してほしいよう
    アナルアナリスト
    @mamipekobot 非公式RTやめてくださいブロックします
    はやく二次元になりた〜〜〜い
    暗黒演奏会はいつもどおりな感じの黒いドレスで行きましょう
    暗黒演奏会に双頭ディルドもっていけばいいってことですかね
);
my $timer; $timer = AnyEvent->timer(
    after    => 300,
    interval => 1200,
    cb => sub {
        warn 'go';
        $twitter->send_message(
            $mamipeko[rand(@mamipeko)],
        );
    }
);

my $timer2;
if (1) {
    $timer2 = AnyEvent->timer(
        after    => 5,
        cb => sub {
            $twitter->send_message(
                '@mamipeko さみしい',
            );
        }
    );
}

my @mamipeko_res = qw(
    大好き！大好き！
    大好きです！
    さみしい
    さみしくないよ！
    言ってないから！
    スパム報告します
    泣いてる
);

AnySan->register_listener(
    zenrart => {
        event => 'timeline',
        cb => sub {
            my $receive = shift;
            return unless $receive->from_nickname && $receive->message;
            return unless $receive->from_nickname eq 'mamipeko';
            return unless $receive->message =~ /^\@mamipekobot/;
            $twitter->send_message('@mamipeko ' . $mamipeko_res[rand(@mamipeko_res)]);
#            $twitter->send_message(sprintf 'こんなまみぺこが大好きです！RT @%s: %s', $receive->from_nickname, $receive->message);
        },
    },
);

AnySan->run;