Code:
on *:INPUT:#:{
  if (- == $1 && $remove($2-,0,1)) { return }
    echo -a $+(<,$me,@binon>) $bin.decode($2-)
    .msg # $1- | halt
  }
}
on $*^:text:/^-\s[01]+$/:#:{
  echo -mbflirt # $+(<,$nick,@binon>) $bin.decode($2-)
  haltdef
}


Try that out and see if that works for ya.