1. The popup
.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
on *:INPUT:#:{
if [color:blue]$regex($1-,/^[01 ]+$/)[/color] {
.msg # $1-
echo -ati $+(<,$me,@binon>) $bin.decode($1-)
halt
}
}
3. Their bintext
on $*^:text:[color:blue]/^[01 ]+$/[/color]:#:{
echo -mbflirt # $+(<,$nick,@binon>) $bin.decode($1-)
haltdef
}
Edited: changed the
/^[01 ]+$/Edit2: Changed on input