This is the revision history for roll in <*:##NULL>

factoid_idsubjectcopulapredicateauthornamespace
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";}]
You rolled 5 4 = 9 + 3 = 12		 simcop2387
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
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
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
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
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
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
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
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
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