its still not working just give me the full script with the part u edited
mine is set like this

on $*:text:$(/^!binary ( $+ $2- $+ )/iS):*:{
  msg $iif(#,#,$nick) $binary($2-)
}
alias binary {
  if ($regex($$1-,/^([01]{8})+$/)) {
    .noop $regex(bin,$1-,/([01]{8})/g)
    var %a = 1,%b = 128 64 32 16 8 4 2 1,%bin
    while ($regml(bin,%a) != $null) { var %bin = $+(%bin,$iif($chr($calc($regsubex($v1,/(\d)/g,$+($calc($gettok(%b,\n,32) * \t),+)))) == $chr(32),$v1),$v1) | inc %a }
  }
  else {
    var %chr = $regsubex($$1-,/(.)/g,$+($asc(\t),$chr(32))),%a = $numtok(%chr,32),%bin
    while (%a) {
      var %b = $gettok(%chr,%a,32),%c = 1,%d,%e
      while (%c <= 8) { var %d = $floor($calc(%b /2)),%e = $+($calc(%b % 2),%e),%b = %d | inc %c }
      %bin = $+(%e,%bin)
      dec %a
    }
  }
  $iif($isid,return,echo -a) %bin
}