This is the revision history for roll in <freenode.net:#perlbot>

factoid_idsubjectcopulapredicateauthornamespace
16201 roll is [eval no warnings;use Rand::MersenneTwister; $r=Rand::MersenneTwister->new(); $r->seed(); if ("[arg arg]" =~ /^(\d+|)d(\d+)(?:\s*(\+|-)\s*(\d+))?$/i) {$d=$2; $c=$1||1;$o=($4*($3 eq"-"?-1:1))||0; @t=(); for $i (1..$c){$q=1+int($r->rand($d));push@t,$q;$t+=$q;}; $z=$t+$o; "You rolled @t = $t + $o = $z";}]
You rolled 17 6 14 9 5 = 51 + 1 = 52		 simcop2387 <*:##NULL>
10955 roll is [eval use Rand::MersenneTwister; $r=Rand::MersenneTwister->new(); $r->seed(); if ("[arg arg]" =~ /^(\d+|)d(\d+)(?:\s*(\+|-)\s*(\d+))?$/i) {$d=$2; $c=$1||1; $o=($4*($3 eq"-"?-1:1))||0; @t=(); for $i (1..$c){$q=1+int($r->rand($d));push@t,$q;$t+=$q;}; $z=$t+$o; "You rolled @t = $t + $o = $z";}]
Use of uninitialized value $3 in string eq at (IRC) line 1. Use of uninitialized value $4 in multiplication (*) at (IRC) line 1. You rolled 5 6 = 11 + 0 = 11		 simcop2387 <*:##NULL>
8264 roll is [eval if ("[arg arg]" =~ /^(\d+|)d(\d+)(?:\s*(\+|-)\s*(\d+))?$/i) {$d=$2; $c=$1||1; $o=($4*($3 eq"-"?-1:1))||0; @t=(); for $i (1..$c){$q=1+int(rand($d));push@t,$q;$t+=$q;}; $z=$t+$o; "You rolled @t = $t + $o = $z";}]
Not Available		 simcop2387 <*:##NULL>
8263 roll is [eval if ("[arg arg]" =~ /^(\d+|)d(\d+)(?:\s*(\+|-)\s*(\d+))?)$/i) {$d=$2; $c=$1||1; $o=($4*($3 eq"-"?-1:1))||0; @t=(); for $i (1..$c){$q=1+int(rand($d));push@t,$q;$t+=$q;}; $z=$t+$o; "You rolled @t = $t + $o = $z";}]
Not Available		 simcop2387 <*:##NULL>
8262 roll is [eval if ("[arg arg]" =~ /^(\d+|)d(\d+)(?:\s*(+|-)\s*(\d+))?)$/i) {$d=$2; $c=$1||1; $o=($4*($3 eq"-"?-1:1))||0; @t=(); for $i (1..$c){$q=1+int(rand($d));push@t,$q;$t+=$q;}; $z=$t+$o; "You rolled @t = $t + $o = $z";}]
Not Available		 simcop2387 <*:##NULL>
8261 roll is [eval if ("[arg arg]" =~ /^(\d+|)d(\d+)(?:\s*(+|-)\s*(\d+))?)$/i) {$d=$2; $c=$1||1; $o=$3||0; @t=(); for $i (1..$c){$q=1+int(rand($d));push@t,$q;$t+=$q;}; $z=$t+$o; "You rolled @t = $t + $o = $z";}]
Not Available		 simcop2387 <*:##NULL>
8260 roll is [eval if ("[arg arg]" =~ /^(\d+|)d(\d+)$/i) {$d=$2; $c=$1||1; @t=(); for $i (1..$c){$q=1+int(rand($d));push@t,$q;$t+=$q;}; "You rolled @t = $t";}]
Not Available		 simcop2387 <*:##NULL>
5828 roll is [eval if ("[arg arg]" =~ /^(\d+|)d(\d+)$/i) {$d=$2; $c=$1||1; @t=(); for $i (1..$c){$q=1+int(rand($d));push@t,$q;$t+=$q;}; "You rolled @t = $t";}]
Not Available		 simcop2387 <*:##NULL>
5820 roll is [eval if ("[arg arg]" =~ /^(\d+|)d(\d+)$/i) {$d=$2; $c=$1||1; @t=(); for $i (1..$c){$q=1+int(rand($d));push@t,$q;$t+=$q;}; print "You rolled @t = $t";} else {print "Syntax is dY || XdY where X is the number of dice and Y is how many sides"}]
Not Available		 simcop2387 <*:##NULL>
5819 roll is [eval if ("[arg arg]" =~ /^(\d+|)d(\d+)$/i) {$d=$2; $c=$1||1; @t=(); for $i (1..$c){$q=1+int(rand($d));push@t,$q;$t+=$q;}; print "You rolled @t = $t";} else {print "Syntax is dY || XdY where X is the number of dice and Y is how many sides"}]
Not Available		 simcop2387 <*:##NULL>
5815 roll is [eval if ("[arg arg]" =~ /^(\d+|)d(\d+)$/i) {$d=$2; $c=$1||1; @t=(); for $i (1..$c){$q=1+int(rand($d));push@t,$q;$t+=$q;}; print "You rolled @t = $t";}]
Not Available		 simcop2387 <*:##NULL>