#!/usr/bin/perl
# kaguya4.pl - Don Yang (uguu.org)
#
# 05/11/09

use Text::Wrap;

@l=
qw{
Reimu
Marisa
Rumia
Cirno
Meirin
Patchouli
Sakuya
Remilia
Flandre
Letty
Chen
Alice
Lily
Lunasa
Marlin
Lyrica
Youmu
Yuyuko
Ran
Yukari
Wriggle
Mystia
Keine
Tewi
Udonge
Eirin
Kaguya
Mokou
Suika
Aya
Medicine
Yuka
Komachi
Shikieiki
Shizuha
Minoriko
Hina
Nitori
Momizi
Sanae
Kanako
Suwako
Iku
Tenshi
Kisume
Yamame
Parsee
Yugi
Satori
Rin
Utsuho
Koishi
Sunnymilk
Lunachild
Starsapphire
Koakuma
Teruyo
};

@g=split/!/,
q{agreed!Agreed!AGREED!awesome!Awesome!AWESOME!correct!Correct!CORRECT!do it!Do it!DO IT!good idea!Good idea!GOOD IDEA!good job!Good job!GOOD JOB!great!Great!GREAT!great idea!Great idea!i agree!I agree!i second this!I second this!i second that!I second that!it's all good!It's all good!looks good to me!Looks good to me!nice!Nice!NICE!nice going!Nice going!NICE GOING!nice job!Nice job!NICE JOB!ok!Ok!OK!right!Right!RIGHT!ship it!Ship it!SHIP IT!sure!Sure!SURE!totally!Totally!TOTALLY!true dat!True dat!TRUE DAT!wonderful!Wonderful!WONDERFUL!word!Word!WORD!yes!Yes!YES!};

@r=<>;

for($o=time-3600;$o<time;$o+=int(60+rand 300))
{
@e=
(
$g[int(rand$#g+1)],
"\n",
"On ".scalar(localtime$o).", ".$l[int(rand$#l+1)]." wrote:\n"
);
$e[0].=(rand>.5)?"!\n":"\n";

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

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

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

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

print foreach@r;