Considering how easy a dice script is, you'd be better off learning how to write it yourself so that you can edit it later to suit your needs.

/help on text
/help while
/help $rand

Either way, here's a script.

Code:
on *:text:roll &:#: {
  if ($2 !isnum) { msg $chan Invalid number of dice. | return }
  var %c = $2
  while (%c) {
    var %roll = $rand(1,10)
    if (%roll = 1) { var %roll = 04,01 $+ %roll }
    elseif (%roll isnum 2-7) { var %roll = 00,01 $+ %roll }
    elseif (%roll isnum 8-9) { var %roll = 03,01 $+ %roll }
    else { var %roll = 09,01 $+ %roll }
    var %dice = %dice $+ $iif(%dice, $+ $chr(44)) %roll
    dec %c
  }
  describe $chan $nick rolls $2 dice: $replace(%dice,$chr(46), $+ $chr(44) $+ $chr(32))
}