1. The popup
Code:
.Say Something in Binary:.msg # $bin.encode($$input(Enter your text.,e)) | echo -ati $+(<,$me,@binon>) $!

This will output
<D@binon> The text you entered.
and msg the channel with the binary text.

2. Typing 0011.. in the editbox
Code:
on *:INPUT:#:{
  if [color:blue]$regex($1-,/^[01 ]+$/)[/color] {
    .msg # $1-
    echo -ati $+(&lt;,$me,@binon&gt;) $bin.decode($1-)
    halt
  }
}


3. Their bintext
Code:
on $*^:text:[color:blue]/^[01 ]+$/[/color]:#:{
  echo -mbflirt # $+(&lt;,$nick,@binon&gt;) $bin.decode($1-)
  haltdef
}

Edited: changed the /^[01 ]+$/
Edit2: Changed on input

Last edited by Iori; 19/01/04 03:47 AM.