Forums Scripts & Popups random dice roller

 
on *:TEXT:!roll:#:{
  if ($rand(1,6) == 1 {
    /msg $chan the number is 1
  }
  if ($rand(2,6) == 2 {
    /msg $chan the number is 2
  }
  if ($rand(3,6) == 3 {
    /msg $chan the number is 3
  }
  if ($rand(4,6) == 4 {
    /msg $chan the number is 4
  }
  if ($rand(5,6) == 5 {
    /msg $chan the number is 5
  }
  if ($rand(6,6) == 6 {
    /msg $chan the number is 6 
  }
}
 

 
on *:text:*:*:{
if ($2 == !d4) { 
msg $chan $nick rolles a $rand(1,4)
}
if ($2 == !d6) { 
msg $chan $nick rolles a $rand(1,6)
}
if ($2 == !d8) { 
msg $chan $nick rolles a $rand(1,8)
}
if ($2 == !d10) { 
msg $chan $nick rolles a $rand(1,10)
}
if ($2 == !d12) { 
msg $chan $nick rolles a $rand(1,12)
}
if ($2 == !d20) { 
msg $chan $nick rolles a $rand(1,20)
}
if ($2 == !d100) { 
msg $chan $nick rolles a $rand(1,100)
}
 

on *:TEXT:!d*:#:{
  tokenize 32 $int($+(0,[color:orange]$mid($1,3)[/color])) $iif(($int($+(0,$2)) >= 1),$v1,1) $int($3) 0
   [color:blue]if (($1 isnum 2-100) && ($2 isnum 1-20) && ($3 isnum)) {[/color]
    var %rolls, %total
    var %i = $2
    while (%i) {
      var %roll = $rand(1,$1)
      var %rolls = $instok(%rolls,%roll,1,44)
      inc %total %roll
      dec %i
    }
    inc %total $3
    msg $chan Die Rolls %rolls giving a final value of %total
  }
   [color:blue]else { msg $chan !d<dice sides 2-100> <number of rolls 1-20> <additional value> }[/color]
}

on $*:text:/^!(\d+)d(\d+)(\+(\d+))?$/g:#: {
  ; $regml(1) is the number before the d
  ; $regml(2) is the number after the d
  ; $regml(3) is the number after the +
  ; You dont need the +num so it will work without it or with it
    var %1 = $regml(1)
    var %2 = $regml(2)
    var %3 = $regml(3)
  if (%2 !isnum 2-1000) || (%1 !isnum 1-200) .notice $nick The number of sides on the die must be within 2-1000, the number of die that are rolled must be within 1-200.
  else {
    while (%1) {
      dec %1
      var %4 = $calc(%4 + $rand(1,%2))
    }
    msg $chan $nick $+ , You rolled $calc(%4 + %3) in total.
  }
}

on $*:text:/^!(\d+)d(\d+)(\+(\d+))?$/g:#: {
  if (($regml(1) isnum 1-200) && ($regml(2) isnum 2-1000)) { msg $chan $nick $+ , You rolled $calc($rand($regml(1),$calc($regml(1) * $regml(2))) + $regml(3)) in total. }
  else { .notice $nick Format !<rolls>d<dice sides>+<additional value> The number of die that are rolled must be within 1-200 & The number of sides on the die must be within 2-1000 . }
}

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.
  }
}

on $*:text:/^!(\d+)d(\d+)((\+|-|\^|\*|\/)(\d+))?$/g:#: {
  ; $regml(1) is the number before the d
  ; $regml(2) is the number after the d
  ; $regml(3) is the number after the +|-|*|/|^
  ; You dont need the +-*/^, but if you do specify it you need to put a value after it so it will work without it or with it
  var %1 = $regml(1), %2 = $regml(2), %3 = $regml(3), %a = $regml(4), %b = $regml(5)
  if (%a == ^) && (%b !isnum 1-5) .notice $nick If you use ^ (to the X power) the last number you specify must be within 1-5.
 elseif (%a == *) && (%b !isnum 0.01-50) .notice $nick If you use * (multiply by) the last number you specify must be within 0.01-50.
elseif (%a = /) && (%b !isnum 2-50) .notice $nick If you use / (divide by) the last number you specify must be within 1-50.
  elseif (%2 !isnum 2-1000) || (%1 !isnum 1-200) .notice $nick The number of sides on the die must be within 2-1000, the number of die that are rolled must be within 1-200.
  else {
    msg $chan $nick $+ , You rolled $calc($rand(%1,$calc(%1 * %2)) %3) in total.
  }
}

hmake weapons 10
hadd weapons shortsword 1d4
hadd weapons flail 1d8+1

alias attack {
  set %damage 0
  set %dice 1
  while (%dice <= $gettok($gettok($hget(weapons,$1).data,1,32),1,100)) {
    set %damage $calc(%damage + $rand(1,$gettok($gettok($gettok($hget(weapons,$1).data,1,32),2,100),1,43)) + $gettok($hget(weapons,$1),2,43))
    inc %dice
  }
  unset %dice
}