GitHub
/
pbot
mirror of https://github.com/pragma-/pbot.git
3
0
Fork 0
Code Issues Projects Releases Wiki Activity

Factoids: properly set range for pick $variable modifier

This commit is contained in:
Pragmatic Software 2020-05-30 02:47:08 -07:00
parent b8ec975f67
commit 945b81f12d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
PBot/Factoids.pm
View File

@ -472,7 +472,7 @@ sub expand_factoid_vars {
$action =~ s/(?<!\\)\$0/$root_keyword/g;
my $const_action = $action;
while ($const_action =~ /(\ba\s*|\ban\s*)?(?<!\\)\$(?:(\{[a-zA-Z0-9_#]+(?::[a-zA-Z0-9_(),.#:-]+)?\}|[a-zA-Z0-9_#]+(?::[a-zA-Z0-9_(),.#:-]+)?))/gi) {
while ($const_action =~ /(\ba\s*|\ban\s*)?(?<!\\)\$(?:(\{[a-zA-Z0-9_#]+(?::[a-zA-Z0-9_(),.#:+-]+)?\}|[a-zA-Z0-9_#]+(?::[a-zA-Z0-9_(),.#:+-]+)?))/gi) {
my ($indefinite_article, $v) = ($1, $2);
$indefinite_article = '' if not defined $indefinite_article;
next if not defined $v;
@ -594,7 +594,8 @@ sub expand_factoid_vars {
} elsif ($settings{'pick'}) {
my $min = $settings{'pick_min'};
my $max = $settings{'pick_max'};
$max = $#list if $max > $#list;
$max = @list if $max > @list;
$min = $max if $min > $max;
my $count = $max;
if ($settings{'random'}) {
@ -603,8 +604,7 @@ sub expand_factoid_vars {
my @choices;
while ($count-- > 0) {
my $index = int rand @list;
my $index = int rand @list;
my $choice = $list[$index];
if ($settings{'unique'}) {