terroll.ini

on 1:text:!thelp*:#:{
  msg $nick number sides division multiplication addition/subtraction multiplication division}
  halt
  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
    }
    elseif () {
      msg $chan calculating
    }
    if ($2 == $null) || ($2 <=0) || ($2 !isnum){
    msg $chan How many dice?}
    elseif () {
    set %dice==$2 }
    if ($3 == $null) || ($3 <=0) || ($3 !isnum){
    %sides=20}
    ;%result= $rand(%dice,6)
    ;msg $chan %result
    ;%result=0
    ;%dice=0
    elseif () {
      %sides=$3}
      ;%result1=$rand(1,%sides)
      if ($4 == $null) || ($4 =0) || ($4 !isnum){
      %div1=1
    }
    elseif (){
    %div1=$4}
    ;%result2=%result/%div1
    if ($5 == $null) || ($5 <=0) || ($5 !isnum){
    %mul1=1}
    elseif (){
    %mul1=$5}
    ;%result3=%result2*%mul1
    if ($6==$null) || ($6 !isnum){
    %add=0}
    elseif (){
    %add=$6}
    ;%result4=%result3+%add
    if ($7 == $null) || ($7 =0) || ($7 !isnum){
    %div2=1}
    elseif (){
    %div2=$7}
    ;%result5=%result4/%div2
    if ($8 == $null) || ($8 <=0) || ($8 !isnum){
    %mul2=1}
    elseif (){
    %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-