Forums Scripts & Popups random dice roller

on $*:text:/^!(\d+)d(\d+)((\+|-)(\d+))?$/g:#: {
  var %1 = $regml(1), %2 = $regml(2), %3 = $regml(3)
  if (%2 !isnum 2-1000) || (%1 !isnum 1-200) .notice $nick The syntax for rolling die is !<1-200>d<2-200>(+/- num)
  else {
    while (%1) {
      dec %1
      var %4 = $calc(%4 + $rand(1,%2))
    }
    msg $chan $nick $+ , You rolled $calc(%4 %3) in total.
  }
}