Stuff

on $*:text:/^[=](-[0-9]|[0-9]) */Si:#: { 
var %calc = $remove($1,=)
var %calculate = %calc
$replace($remove(%calculate,$chr(44),$chr(61)),x,*,k,*1000,m,*1000000)
if ($3 == $null) /notice $nick  %calc = $comma($calc( %calculate ))
}
alias -l comma {
  var %a, %b = $regsub($ticks,$$1,/\G([+-]?\d+?)(?=(?:\d{3})++(?=\.\d++$|$))/g,\1 $+ $chr(44),%a)
  return %a
}