DDO style dice

Published Jun 13, 2012

Updated Jun 13, 2012

666 4

Description

		Code 			
;--- DDO style dice ---<br />
on *:TEXT:!Roll*:# {<br />
  if (%quote.flood == $null) {<br />
    if ($$2- == help) {<br />
      /notice $nick * The syntax almost mirrors the in-game syntax with the only difference being that<br />
      /notice $nick * you use "!roll" instead or "/roll" like:  !Roll {Number}d{Sides}[+|-][Modifier]<br />
      /notice $nick * {Number} is the number of dice to roll.<br />
      /notice $nick ** Defaults to 1 if omitted.<br />
      /notice $nick * {Sides} is the number of sides per dice.<br />
      /notice $nick ** Current acceptable range is 2 - 10000000000<br />
      /notice $nick ** If {Number} * {Sides} > 9999999999 !roll will overflow (you will roll a 0).<br />
      /notice $nick * [+|-][Modifier] is the number to be added or subtracted to the outcome of the roll total.<br />
      /notice $nick ** Ommitted if not a number.<br />
    }<br />
    else {<br />
      /set %DT_DiceRolled 0<br />
      /set %DT_length $len($$2-)<br />
      /set %DT_oneD $count($$2-,d)<br />
      if (%DT_oneD != 1) {<br />
        /notice $nick $$2- is an invalid roll attempt. Please try again. If you need directions, type: !Roll help<br />
        goto CleanUp<br />
      }<br />
      /set %DT_dPos $pos($$2-,d,1)<br />
      /set %DT_oneP $count($$2-,+)<br />
      if (%DT_oneP == 1) { /set %DT_pPos $pos($$2-,+,1) }<br />
      else { /unset %DT_oneP }<br />
      /set %DT_oneM $count($$2-,-)<br />
      if (%DT_oneM == 1) { /set %DT_mPos $pos($$2-,-,1)  }<br />
      else { /unset %DT_oneM }<br />
      /set %DT_dice $left($$2-,$calc(%DT_dPos - 1))<br />
      if (%DT_dice == $null) { /set %DT_dice 1 }<br />
      if (%DT_dice !isnum 1-10000000000) {<br />
        /notice $nick " $+ %DT_dice $+ " is NOT a valid number of dice.  Please try again.<br />
        goto CleanUp<br />
      }<br />
      /set %DT_sides $right($$2,$calc(%DT_length - %DT_dPos))<br />
      if (%DT_sides !isnum 2-10000000000) {<br />
        if (%DT_oneP == 1) {<br />
          /set %DT_mod $right($$2-,$calc(%DT_length - %DT_pPos))<br />
          /set %DT_sides $mid($$2-,$calc(%DT_dPos + 1),$calc(%DT_pPos - (%DT_dPos + 1)))<br />
          /set %DT_modSign +<br />
          if  (%DT_sides !isnum 2-10000000000) {<br />
            /notice $nick " $+ %DT_sides $+ " is NOT a valid number of sides.  Please try again.<br />
            goto CleanUp<br />
          }<br />
          if (%DT_mod !isnum) {<br />
            /notice $nick " $+ %DT_modSign $+ %DT_mod $+ " is not a valid modifier -- it will be ignored from the result.<br />
            /unset %DT_mod %DT_modSign<br />
          }<br />
          if (%DT_mod > 9999999998) {<br />
            /notice $nick " $+ %DT_modSign $+ %DT_mod $+ " is too large of a modifier -- it will be ignored from the result.<br />
            /unset %DT_mod %DT_modSign<br />
          }<br />
        }<br />
        elseif (%DT_oneM == 1) {<br />
          /set %DT_mod $right($$2-,$calc(%DT_length - %DT_mPos)) <br />
          /set %DT_sides $mid($$2-,$calc(%DT_dPos + 1),$calc(%DT_mPos - (%DT_dPos + 1)))<br />
          /set %DT_modSign -<br />
          if (%DT_sides !isnum 2-10000000000) {<br />
            /notice $nick " $+ %DT_sides $+ " is NOT a valid number of sides.  Please try again.<br />
            goto CleanUp<br />
          }<br />
          if (%DT_mod !isnum) {<br />
            /notice $nick " $+ %DT_modSign $+ %DT_mod $+ " is not a valid modifier -- it will be ignored from the result.<br />
            /unset %DT_mod %DT_modSign<br />
          }<br />
        }<br />
        else {<br />
          /notice $nick " $+ %DT_sides $+ " is NOT a valid number of sides.  Please try again.<br />
          goto CleanUp<br />
        }<br />
      }<br />
      if ($calc(%DT_dice * %DT_sides) >= 10000000000) {<br />
        /set %DT_RollSum 0<br />
      }<br />
      else {<br />
        while (%DT_DiceRolled < %DT_dice) {<br />
          set %DT_roll $rand(1,%DT_sides)<br />
          set %DT_RollSum $calc(%DT_RollSum + %DT_roll)<br />
          inc %DT_DiceRolled<br />
        }<br />
      }<br />
      /set %DT_TotalRollPreComma $calc(%DT_RollSum %DT_modSign %DT_mod)<br />
      $regsub($ticks,%DT_TotalRollPreComma,/\G([+-]?\d+?)(?=(?:\d{3})++(?=\.\d++$|$))/g,\1 $+ $chr(44),%DT_TotalRoll)<br />
      if ((%DT_TotalRoll == 11) || (%DT_TotalRoll == 18) || ($left(%DT_TotalRoll,1) == 8)) {<br />
        /set %DT_anA an<br />
      }<br />
      else {<br />
        /set %DT_anA a<br />
      }<br />
      msg $chan $nick rolled %DT_anA %DT_TotalRoll ( $+ %DT_dice $+ d $+ %DT_sides $+ %DT_modSign $+ %DT_mod $+ ).<br />
      /notice $nick You rolled %DT_anA %DT_TotalRoll ( $+ %DT_dice $+ d $+ %DT_sides $+ %DT_modSign $+ %DT_mod $+ ).<br />
      /set %DT_Users $nick($chan,0)<br />
      /set %DT_UserCounter 1<br />
      while (%DT_UserCounter < %DT_Users) {<br />
        if ($nick != $nick($chan,%DT_UserCounter)) {<br />
          /notice $nick($chan,%DT_UserCounter) $nick rolled %DT_anA %DT_TotalRoll ( $+ %DT_dice $+ d $+ %DT_sides $+ %DT_modSign $+ %DT_mod $+ ).<br />
        }<br />
        inc %DT_UserCounter<br />
      }<br />
      :CleanUp<br />
      /unset %DT_*<br />
    }<br />
  }<br />
  ;  set -u2 %quote.flood on<br />
}	

Download

Filename

Size

Date

Downloads

Dice.zip

1.56 KB

Jun 13, 2012

180

Comments

MoshMage - Aug 05, 2012

Unless he is thinking of updating the code, then there's a purpose for a script entry. Still, he could remove de code and add a descriptiong to make it script-entry-like ^^'

Respond

toclafane1 - Jun 14, 2012

No problem, just for future reference. :)

Respond

Technical_13 - Jun 13, 2012

This is my first post here... Still learning the ropes... Apparently I can't move it... Can the admins move it, or should I repost it in snippits and remove it here?

Respond

toclafane1 - Jun 13, 2012

This should of been posted as an mIRC snippet.

Respond