on *:TEXT:*:#:{
  /set %calc $bytes($calc($remove($replace($1,k,000,m,000000,b,000000000,x,*,pi,3.141592)$1,$chr(44),$chr(32))) ,bd)
  if (%calc == 0) /Halt {
    elseif ($2 == $null) {
      /notice $nick %calc
    }
  }
}