Calc script

public text v1 · immutable

#1908835

·published 2010-07-26 21:13 UTC

on $*:TEXT:/^[@!.]calc.*$/Si:#:{ 
  if (!$2) { notice $nick 14Please specify an 7equation 14and try 7again14! 
  } 
  else { 
    set %calc.answer $calc($replace($2-,k,*1000,m,*1000000,b,*1000000000,t,*1000000000000))
    /var %target $iif($left($1,1) = @,msg $chan,notice $nick) 
    %target 15The answer to 7" $+ $2- $+ " 15is: 7 %calc.answer
    unset %calc.target
    unset %calc.answer
  } 
}