This is a customizable dice rolling script ideal for RPing and use in "Pen-and-Paper" type RPGs, such as D&D and stuff. The syntax is a bit complicated:
/advdice {Number}!{Sides}[+|-][Modifier] [c|r|a]
{Number} is the number of dice to roll, {Sides} is the number of sides per dice, [Modifier] is the number to be added or subtracted to the outcome of each roll, [+|-] specifies whether [Modifier] should be added or subtracted. [c|r|a] determines what should be done with the dice once they have all been rolled, if c is specified it will add all of the rolls together, if r is specified it will randomly select one roll, and if a is selected it will average all the rolls together. If nothing is specified it defaults to c.
This thing took me forever to make. And a thanks to Sigh_ for helping me with muh variables.

alias advdice {
  if ( !$1 ) {
    var %d = $rand(1,6)
    echo $colour(info) -a * You rolled %d
    halt
  }
  elseif ( $chr(33) !isin $1 ) || ( $gettok($1,1,33) < 1 ) || ( $gettok($1,1,33) !isnum ) {
    echo $colour(info) -a * ERR: Syntax: /advdice [dicemod] [c|r|a]
    halt
  }
  if ( $chr(43) isin $1 ) {
    var %op = +
  }
  elseif ( $chr(45) isin $1 ) {
    var %op = -
  }
  var %x = 1
  while ( %x <= $gettok($1,1,33) ) {
    if ( %op ) {
      set -l %dr. $+ %x $calc($rand(1,$gettok($gettok($1,2,33),1,$asc(%op))) $(%op) $gettok($gettok($1,2,33),2,$asc(%op))))
    }
    else {
      set -l %dr. $+ %x $rand(1,$gettok($1,2,33))
    }
    inc %x 1
  }
  window -do @DiceResults
  var %a = 1
  while (* iswm $($+(%,dr.,%a),2)) {
    aline @DiceResults *  $+ %a $+ : $v2
    inc %a
  } 
  if ( !$2 ) || ( $2 == c ) {
    var %f = 0,%g = 1
    while ( * iswm $($+(%,dr.,%g),2) ) {
      %f = $calc(%f + $($+(%,dr.,%g),2))
      inc %g 1
    }
    echo $colour(info) -a * Cumulative Dice Total: %f
  }
  elseif ( $2 == r ) {
    var %g = 1

    while ( * iswm $($+(%,dr.,%g),2) ) {
      inc %g
    }
    var %se = $rand(1,%g)
    echo $colour(info) -a * Randomly Selected Dice: $($+(%,dr.,%se),2)
  }
  elseif ( $2 == a ) {
    var %g = 1,%f = 0
    while ( * iswm $($+(%,dr.,%g),2) ) {
      %f = $calc(%f + $($+(%,dr.,%g),2))
      inc %g 1
    }
    var %avg = $calc(%f / %g)
    if ( $chr(46) isin %avg ) {
      if ( 3333* iswm $gettok(%avg,2,46) ) {
        echo $colour(info) -a * Average of all rolled dice: $gettok(%avg,1,46) 1/3
      }
      elseif ( 6666* iswm $gettok(%avg,2,46) ) {
        echo $colour(info) -a * Average of all rolled dice: $gettok(%avg,1,46) 2/3
      }
      else {
        echo $colour(info) -a * Average of all rolled dice: $round(%avg,2)
      }
    }
    else {
      echo $colour(info) -a * Average of all rolled dice: %avg
    }
  }
  else {
    echo $colour(info) * This case should not have triggered
  }
}