229
@verb #7407:"roll*i" any none none rdo #60
@program #7407:"roll*i" any none none
rx = $regexp:new("%([0-9]+%)d%([0-9]+%)%([+-]%([0-9]+%)%)?")
rx:exec(argstr)
{nbr, die, bonus} = {toint(rx._1), toint(rx._2), toint(rx._3)}
total = 0
for i in [1..nbr]
  total = total + random(die)
  if (verb == "rolli")
    total = total + bonus
    player:tell("Running Total of ", i, "d", die, bonus < 0 ? "-" | "+", abs(bonus), ": ", total)
  endif
endfor
player:tell("Result: ", total)
"Last modified by Dax (#789) on Tue May  3 14:13:13 2005 MDT."
.

0