git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@50
c11ca15a-4712-0410-83d8-
924469b57eb5
if ($reply =~ /\$rand/) {
my $rand = rand();
my $randp = int($rand*100);
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?
### TODO: number of digits. 'x.y'
if ($reply =~ /\$rand(\d+)/) {
# will this work as it does in C?