added randnick

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@50 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/Factoids/Reply.pl b/src/Factoids/Reply.pl
index 01d9e81b0d1afe3f0607f1500fbcd0715224b356..19fe09a84e34b38f3010a1f92fc50e08e6ae6ced 100644 (file)
--- a/src/Factoids/Reply.pl
+++ b/src/Factoids/Reply.pl
@@ -200,7 +200,14 @@ sub getReply {
     if ($reply =~ /\$rand/) {
        my $rand  = rand();
        my $randp = int($rand*100);
-       $reply =~ s/\$randpercentage/$randp/g;
+       $reply =~ s/\$randpercentage/$randp/g;  # ???
+       # randnick.
+       if ($reply =~ /\$randnick/) {
+           my @nicks = keys %{$channels{$chan}{''}};
+           my $randnick = $nicks[$rand*$#nicks];
+           s/\$randnick/$randnick/;
+       }
+
        ### TODO: number of digits. 'x.y'
        if ($reply =~ /\$rand(\d+)/) {
            # will this work as it does in C?