#!/usr/bin/perl
# eirin4.pl - Don Yang (uguu.org)
#
# set enc=utf8
#
# 05/11/09

use Text::WrapI18N;

@w=
qw{
博麗霊夢
霧雨魔理沙
ルーミア
チルノ
紅美鈴
パチュリー・ノーレッジ
十六夜咲夜
レミリア・スカーレット
フランドール・スカーレット
妖々夢
レティ・ホワイトロック
橙
アリス・マーガトロイド
リリーホワイト
ルナサ・プリズムリバー
メルラン・プリズムリバー
リリカ・プリズムリバー
魂魄妖夢
西行寺幽々子
八雲藍
八雲紫
リグル・ナイトバグ
ミスティア・ローレライ
上白沢慧音
因幡てゐ
鈴仙・優曇華院・イナバ
八意永琳
蓬莱山輝夜
藤原妹紅
伊吹萃香
射命丸文
メディスン・メランコリー
風見幽香
小野塚小町
四季映姫・ヤマザナドゥ
秋静葉
秋穣子
鍵山雛
河城にとり
犬走椛
東風谷早苗
八坂神奈子
洩矢諏訪子
永江衣玖
比那名居天子
キスメ
黒谷ヤマメ
水橋パルスィ
星熊勇儀
古明地さとり
火焔猫燐
霊烏路空
古明地こいし
サニーミルク
ルナチャイルド
スターサファイア
小悪魔
てるよ
};

@q=split/\n/,
q{いい
だがそれがいい
賛成
了承
ですね、わかります
えっ
アッー！アッー！
(ﾉ∀｀)ｱﾁｬｰ
(;´Д`)ﾊｧﾊｧ
(；´Д`)'`ｧ'`ｧ
（ﾟдﾟ）ｳﾏｰ
(ﾟДﾟ)ﾊｧ?
(´Д`;)ﾊｧﾊｧ/lァ/lァ/ヽァ/ヽァノ ＼ア ノ ＼ア
(；ﾟдﾟ） (ﾟдﾟ；（ﾟдﾟ；）な、なんだってー!?
Σ(´Д｀；)
Σ(゜ロ゜)
！！！！！Σ(ﾟДﾟ;）
！！！！？？？Σ(ﾟ□ﾟ;）
Σ(´Д｀lll)ｶﾞｰﾝ
((ﾟДﾟ)) ｶﾞｸｶﾞｸﾌﾞﾙﾌﾞﾙ
((((；ﾟДﾟ)))ｶﾞｸｶﾞｸﾌﾞﾙﾌﾞﾙ
(ﾟ⊿ﾟ)ｲﾗﾈ
(；ﾟ∀ﾟ)
（・∀・）ｲｲ!
（・∀・）ｶｴﾚ!
m9（・∀・）
（ ´∀｀）＜ ぬるぽ
くぁｗせｄｒｆｔｇｙふじこｌｐ；
ヽ(ﾟ∀。)ﾉｱﾋｬﾋｬﾋｬ
（ ﾟ∀ﾟ）o彡゜えーりん！えーりん};

@f=<>;

for($t=time-3600;$t<time;$t+=int(60+rand 300))
{
@e=
(
$q[int(rand$#q+1)]."\n",
"\n",
scalar(localtime$t)." ".$w[int(rand$#w+1)].":\n"
);

$r=$i="";
$o="> ";
foreach$h(@f)
{
if($h=~s/^(>* ?)(.*)$/$2/s)
{
if($1eq$r)
{
$i.=$h;
}
else
{
push@e,"$_\n"foreach split/[\r\n]+/s,wrap($o,$o,$i);

$i=$h;
$r=$1;
$o=($r=~/^\s*$/?"> ":">$r");
}
}
}

push@e,"$_\n"foreach split/[\r\n]+/s,wrap($o,$o,$i);

push@e,"\n";
@f=@e;
}

print foreach@f;