on 1:text:!thelp*:#:{
  msg $nick number sides division multiplication addition/subtraction multiplication division
  on 1:text:!tr*:#:{
    if ($2 !isnum) || ($3 !isnum) || ($4 !isnum) || ($5 !isnum) || ($6 !isnum) || ($7 !isnum) || ($8 !isnum) {
      msg $chan correcting invalid values but calculating}
      ;halt
    }
    else {
      msg $chan calculating
    }
    if ($2 == $null) || ($2 <=0) || ($2 !isnum){
    msg $chan How many dice?}
    else {
    set %dice==$2 }
    if ($3 == $null) || ($3 <=0) || ($3 !isnum){
    %sides=20}
    ;%result= $rand(%dice,6)
    ;msg $chan %result
    ;%result=0
    ;%dice=0
    else {
      %sides=$3}
      ;%result1=$rand(1,%sides)
      if ($4 == $null) || ($4 =0) || ($4 !isnum){
      %div1=1}
      else {
        %div1=$4}
        ;%result2=%result/%div1
        if ($5 == $null) || ($5 <=0) || ($5 !isnum){
        %mul1=1}
        else {
          %mul1=$5}
          ;%result3=%result2*%mul1
          if ($6==$null) || ($6 !isnum){
          %add=0}
          else {
            %add=$6}
            ;%result4=%result3+%add
            if ($7 == $null) || ($7 =0) || ($7 !isnum){
            %div2=1}
            else {
              %div2=$7}
              ;%result5=%result4/%div2
              if ($8 == $null) || ($8 <=0) || ($8 !isnum){
              %mul2=1}
              else {
                %mul2=$5}
                ;%result6=%result6*%mul2
                ;msg $chan (%result / $div1) = (%result2 x %mul1) = (%result3 + %add) = (%result4 / %div2) = (%result5 x %mul2) = %result6 $9 $10 $11 $12 $13 $14 $15 $16 $17 $18 $19 $20 $21 $22 $23 $24 $25 $26 $27 $28 $29 $30
                %i=0
                while (%i<=%dice){
                %i=%i+1
                %result=%result+$rand(1,%sides)}
                %result2=(((((%result/%div1)*mul1)+%add)/%div2)*mul2)
                msg $chan %result2 $9 $10 $11 $12 $13 $14 $15 $16 $17 $18 $19 $20 $21 $22 $23 $24 $25 $26 $27 $28 $29 $30