on $*:TEXT:/^[!@](math|calc) .*$/Si:#:{
  if ($left($1,1) == @) && ($left($remove($chan(#).mode,+),1) === c) || ($left($remove($chan(#).mode,+),2) === c) { set %math.color.strip on }
  if ($remove($2-,+,-,/,*,x,^,$chr(40),$chr(41),$chr(44),$chr(46),m,k,b,t) !isnum) { unset %math.* | halt }
  set %math.send $iif($left($1,1) == @,.msg $chan,.notice $nick) | set %math $remove($replace($2-,k,000,m,000000,b,000000000,t,000000000000,x,*),$chr(44),$chr(46)) | %math.send $iif(%math.color.strip != $null,$2- = $bytes($calc(%math),bd),12 $+ $2- =4 $bytes($calc(%math),bd)) | unset %math | unset %math.send | halt
}