/cdie {
  /var %x = $$?1="Enter the amount of sides your die will have:"
  if (%x == 0) goto one
  elseif (%x <= 0) goto two
  elseif (%x >= 35000) goto three
  elseif (%x == 1) goto four
  else goto five
  :one
  /me rolls a %x sided die and gets... $rand(0,%x) ... That was to be expected, though, huh?
  halt
  :two 
  /me rolls a %x sided die and gets... An old dicemaker yelling at him that it is impossible to make negative-sided dice.
  halt
  :three
  /me rolls a %x sided die and gets... An old dicemaker yelling at him that a die with that many sides would be, for all intents and purposes, a sphere! Not to mention it would be massive, and weigh heaps, and painting all the numbers on is near impossible.
  halt
  :four
  /me rolls a sphere and gets... To chase after it...
  halt
  :five
  /me rolls a %x sided die and gets... $rand(1,%x)
  halt
  /* CustomDice script v2
  By Tonjevic.
  Special thanks: Amiculi for the sphere line. */
  }