【Twitter bot 開発】三毛猫botを改良 その1

【三毛猫bot改良案】

・@〜ねこじゃらし、@〜またたび等、botに向かって返信すると単語によってつぶやき内容が変化する。

・話しかけてると「なつき度」が加算され、閾値を超えると猫botにフォローされる。

・感情パラメータが設定されており、機嫌の悪いときに@返信で話しかけると怒られる。

 

というような機能を最終的に実装したいのですが、いきなり全部やるのは無理なので、一番簡単そうな返信するとbotが「にゃー」とか話しかけてくる機能を実装する事にしました。

 

【実装手順】

「twitter bot php 返信」とかで検索するとベタのコードが掲載されているサイトがそれなりに見つかるのですが、APIとかデータの整形とか面倒くさいので、もっと簡単に楽して作れる方法は無いものかと探していたらとても素晴らしいフレームワークが見つかりました。

 

Tuitter / Tuibotter

 

この素晴らしいフレームワークを使って作成したのが以下のコードです。

「be_replied.php」 ※2010/02/07修正

class BeReplied implements TuiBotter_Event_BeReplied{
 public function eventBeReplied(Tuitter_Tweet $tweet, Tuitter $tuitter){	
	
	$say_num = rand(0, 5);
	$say[0] = "ゴロニャーン";
	$say[1] = "ニャン";
	$say[2] = "ゴロゴロゴロゴロ";
	$say[3] = "ニャンニャーン";
	$say[4] = "ニャン!";
	$say[5] = "ニャオーン";
	
	$tweet->reply($say[$say_num]);

 }
}

毎度の事ながら書き方が良く分かってないのですが、上記のコードとiniファイルやHeartBeat.phpなど、tuitter、tuibotterフレームワーク一式をアップロードして、GAEのcronでファイルを叩くと一応動作しているようです。

ただし、tuibotterのキャッシュの設定か、そもそもコード自体に記述が無いためか、今のところcronで実行される直前に話しかけたユーザーにしか@返信を行わないようになってます。(そのうち直します)

↑単なる勘違いでした。

何かがおかしい太陽系シミュレータ(作成途中)

太陽系の「今」を知る事が出来る太陽系シミュレータみたいなものがあったら面白いんじゃないかという話があって、昨年末に友人にシミュレーションにおいて最も重要で最も面倒くさい部分である惑星の現在位置を求める関数を書いてもらって、あとはインターフェース作れば楽勝だろと思ってたら頭が錆び付いてまったく動かなくて困った。

主に比率がおかしい。何か考え違いを起こしている。あと太陽系広い、やばい。

とりあえず今の状態のものを載せておきます。

http://www.proto-star.com/solar/index.html

【Twitter bot 開発】三毛猫botを作成

柴犬botのフォロワーが予想外に多く付いたので、心情的にいじりにくくなってしまったため、代わりに三毛猫botを作っていじる事にしました。

三毛猫bot:http://twitter.com/calico_cat_bot

 

このbotもGAEのcronで動いています。(30分15分間隔)

またもや例によってランダムに鳴いてるだけなんですが、状態と感情の乱数を与えてるので、柴犬botより幾分かまとも?な感じになっています。

@返信と状態と感情制御を上手い事すると若干猫らしくなりそうな気がします。

 

以下何の参考にもならないソース(PHP)

//Twitter認証
$url = "http://twitter.com/statuses/update.xml?";
$username = "ユーザー名";
$password = "パスワード";

//猫の状態設定 0:寝ている 1~4:起きている
$cat_state = rand(0, 4);

//感情状態_感情状態によって鳴き声が分岐する
//感情状態は「喜:0」「怒:1」「哀:2」「楽:3」でランダムに変化
$mood = rand(0, 3);

//感情表現符
$mood_effect[0] = "♪";
$mood_effect[1] = "!";
$mood_effect[2] = "・・・";
$mood_effect[3] = "";

//鳴き声_喜・哀・楽
$mes_kiairaku[0] = "ニャーン";
$mes_kiairaku[1] = "ニャッ";
$mes_kiairaku[2] = "ニャオーン";
$mes_kiairaku[3] = "ナオーン";
$mes_kiairaku[4] = "ゴロゴロ";
$mes_kiairaku[5] = "ニャン";

//鳴き声_怒
$mes_do[0] = "ウゥー";
$mes_do[1] = "ニャーン";
$mes_do[2] = "ニャーッ";
$mes_do[3] = "フーッ";
$mes_do[4] = "シャーッ";
$mes_do[5] = "ウゥウウーウー";




//$moodによって鳴き声が変化(起きている時)
if($cat_state >= 1 ){
	
	//$moodが喜:0の時
	if( $mood == 0 ){
		$voice = rand(0, 5); //鳴き声乱数
		$message .= $mes_kiairaku[$voice];
		$message .= $mood_effect[0];
	}
	
	//$moodが哀:2の時
	if( $mood == 2 ){
		$voice = rand(0, 5); //鳴き声乱数
		$message .= $mes_kiairaku[$voice];
		$message .= $mood_effect[2];
	}
	
	//$moodが楽:3の時
	if( $mood == 3 ){
		$voice = rand(0, 5); //鳴き声乱数
		$message .= $mes_kiairaku[$voice];
		$message .= $mood_effect[3];
	}
	
	//$moodが怒:1の時
	if( $mood == 1 ){
		$voice = rand(0, 5); //鳴き声乱数
		$message .= $mes_do[$voice];
		$message .= $mood_effect[1];
	}
}

//寝ているとき(cat_state == 0 )
if($cat_state == 0 ){
		$message = "Zzz...";
}

//rawurlencode() でエンコード
$params = "status=". rawurlencode($message);

//Twitterにポストする
$result = file_get_contents($url.$params , false, stream_context_create(array(
	"http" => array(
		"method" => "POST",
		"header" => "Authorization: Basic ". base64_encode($username. ":". $password)
	)
)));
IT起業アカデミア