This Is A Simple Dialog Dice Roller. It Uses 1d4, 1d6, 1d8, 1d10, 1d12, And 1d20 dice. Also Automatically Does 6d* Rolls Of Each Individual Dice For Games Such As D&D.(in the case you lose your dice, as i have.)All You Have To Do To Run This Script Is Load It Into Your Remotes On mIRC And Then Use Any Menu To Access It. I Didnt Add A Ok Or Cancel Button Because The X Works Fine.

alias [Dice][Roller] { dialog -md dice dice }
menu * {
  -
  [Dice][Roller]:dialog -md dice dice
  -
}
dialog dice {
  title "[Dice][Roller] ~ Cryptic_Creature"
  size -1 -1 208 165
  option dbu
  button "ROLL", 1, 10 124 188 30
  box "[Dice][Roller]", 2, 10 10 188 105
  check "1d4", 3, 19 20 20 10
  edit "", 4, 44 20 20 10, center
  edit "", 5, 69 20 20 10, center
  edit "", 6, 94 20 20 10, center
  edit "", 7, 119 20 20 10, center
  edit "", 8, 144 20 20 10, center
  edit "", 9, 169 20 20 10, center
  check "1d6", 10, 19 35 20 10
  edit "", 11, 44 35 20 10, center
  edit "", 12, 69 35 20 10, center
  edit "", 13, 94 35 20 10, center
  edit "", 14, 119 35 20 10, center
  edit "", 15, 144 35 20 10, center
  edit "", 16, 169 35 20 10, center
  check "1d8", 17, 19 50 20 10
  edit "", 18, 44 50 20 10, center
  edit "", 19, 69 50 20 10, center
  edit "", 20, 94 50 20 10, center
  edit "", 21, 119 50 20 10, center
  edit "", 22, 144 50 20 10, center
  edit "", 23, 169 50 20 10, center
  check "1d10", 24, 19 65 25 10
  edit "", 25, 44 65 20 10, center
  edit "", 26, 69 65 20 10, center
  edit "", 27, 94 65 20 10, center
  edit "", 28, 119 65 20 10, center
  edit "", 29, 144 65 20 10, center
  edit "", 30, 169 65 20 10, center
  check "1d12", 31, 19 80 25 10
  edit "", 32, 44 80 20 10, center
  edit "", 33, 69 80 20 10, center
  edit "", 34, 94 80 20 10, center
  edit "", 35, 119 80 20 10, center
  edit "", 36, 144 80 20 10, center
  edit "", 37, 169 80 20 10, center
  check "1d20", 38, 19 95 25 10
  edit "", 39, 44 95 20 10, center
  edit "", 40, 69 95 20 10, center
  edit "", 41, 94 95 20 10, center
  edit "", 42, 119 95 20 10, center
  edit "", 43, 144 95 20 10, center
  edit "", 44, 169 95 20 10, center
}
on *:DIALOG:dice:sclick:*:{
  if ($did == 1) {
    did -ra $dname 4 $iif($did(3).state == 1,$rand(1,4))
    did -ra $dname 5 $iif($did(3).state == 1,$rand(1,4))
    did -ra $dname 6 $iif($did(3).state == 1,$rand(1,4))
    did -ra $dname 7 $iif($did(3).state == 1,$rand(1,4))
    did -ra $dname 8 $iif($did(3).state == 1,$rand(1,4))
    did -ra $dname 9 $iif($did(3).state == 1,$rand(1,4))
    did -ra $dname 11 $iif($did(10).state == 1,$rand(1,6))
    did -ra $dname 12 $iif($did(10).state == 1,$rand(1,6))
    did -ra $dname 13 $iif($did(10).state == 1,$rand(1,6))
    did -ra $dname 14 $iif($did(10).state == 1,$rand(1,6))
    did -ra $dname 15 $iif($did(10).state == 1,$rand(1,6))
    did -ra $dname 16 $iif($did(10).state == 1,$rand(1,6))
    did -ra $dname 18 $iif($did(17).state == 1,$rand(1,8)) 
    did -ra $dname 19 $iif($did(17).state == 1,$rand(1,8))  
    did -ra $dname 20 $iif($did(17).state == 1,$rand(1,8))  
    did -ra $dname 21 $iif($did(17).state == 1,$rand(1,8))  
    did -ra $dname 22 $iif($did(17).state == 1,$rand(1,8))  
    did -ra $dname 23 $iif($did(17).state == 1,$rand(1,8))
    did -ra $dname 25 $iif($did(24).state == 1,$rand(1,10))
    did -ra $dname 26 $iif($did(24).state == 1,$rand(1,10))
    did -ra $dname 27 $iif($did(24).state == 1,$rand(1,10))
    did -ra $dname 28 $iif($did(24).state == 1,$rand(1,10))
    did -ra $dname 29 $iif($did(24).state == 1,$rand(1,10))
    did -ra $dname 30 $iif($did(24).state == 1,$rand(1,10))
    did -ra $dname 32 $iif($did(31).state == 1,$rand(1,12))
    did -ra $dname 33 $iif($did(31).state == 1,$rand(1,12))
    did -ra $dname 34 $iif($did(31).state == 1,$rand(1,12))
    did -ra $dname 35 $iif($did(31).state == 1,$rand(1,12))
    did -ra $dname 36 $iif($did(31).state == 1,$rand(1,12))
    did -ra $dname 37 $iif($did(31).state == 1,$rand(1,12))
    did -ra $dname 39 $iif($did(38).state == 1,$rand(1,20))
    did -ra $dname 40 $iif($did(38).state == 1,$rand(1,20))
    did -ra $dname 41 $iif($did(38).state == 1,$rand(1,20))
    did -ra $dname 42 $iif($did(38).state == 1,$rand(1,20))
    did -ra $dname 43 $iif($did(38).state == 1,$rand(1,20))
    did -ra $dname 44 $iif($did(38).state == 1,$rand(1,20))
  }