terroll.ini

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 replacing invalid values and calculating...
  }
  ;halt
  elseif () {
    msg $chan calculating...
  }
  if ($2 == $null) || ($2 <=0) || ($2 !isnum){
  set %dice=1
}
elseif () {
  set %dice==$2 
}
if ($3 == $null) || ($3 <=0) || ($3 !isnum){
set %sides=20
}
;%result= $rand(%dice,6)
;msg $chan %result
;%result=0
;%dice=0
elseif () {
set %sides=$3
}
;%result1=$rand(1,%sides)
if ($4 == $null) || ($4 =0) || ($4 !isnum){
set %div1=1
}
elseif (){
set %div1=$4
}
;%result2=%result/%div1
if ($5 == $null) || ($5 <=0) || ($5 !isnum){
set %mul1=1
}
elseif (){
set %mul1=$5
}
;%result3=%result2*%mul1
if ($6==$null) || ($6 !isnum){
set %add=0
}
elseif (){
set %add=$6
}
;%result4=%result3+%add
if ($7 == $null) || ($7 =0) || ($7 !isnum){
set %div2=1
}
elseif (){
set %div2=$7
}
;%result5=%result4/%div2
if ($8 == $null) || ($8 <=0) || ($8 !isnum){
set %mul2=1
}
elseif (){
set %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
set %i=0
while (%i<=%dice) {
set %i=%i+1
set %result=%result+($rand(1,%sides)) 
}
set %result2=(((((%result/%div1)*mul1)+%add)/%div2)*mul2)
msg $chan %result2 $9-