;#############################
;# Binary God V1.0 #
;# Made by DeathfireD 1/3/04 #
;#############################
dialog bin2 {
title "Binary God V1.0 by: DeathfireD"
size -1 -1 160 120
option dbu
link "www.o-cmembers.cjb.com", 2, 90 109 65 8
text "Send me your feedback", 3, 3 3 59 8
button "Send", 5, 3 15 59 12, default
text "Special thanks to Gene for giving me the idea of makeing an add-on where we could talk in binary. ", 6, 9 55 61 35
box "Thanks", 4, 5 47 70 68
box "Script Info", 7, 80 5 75 99
text "Binary God was made for the people that wish to talk in chats without anyone knowing what there saying I know most of you know binary but later on you will be abel to change the code for now its in Bin. If anyone you out there would like to give me input or would like to help please drop me an e-mail click the little button at the top.", 8, 84 15 68 85
}
alias bin2 { dialog -md bin2 bin2 }
on *:dialog:bin2:sclick:*:{
if $did == 5 { run mailto:DJOrdway@adelphia.net?subject=Binary God v1.0 input }
if $did == 2 { run http://www.o-cmembers.cjb.net }
}
on *:dialog:bin2:edit:*:{
if $did == 4 { set %bin222 $did(4) }
}
alias bin.decode {
var %temp = $1-
var %output
while (%temp) {
var %char = $chr($base($left(%temp,8),2,10))
%output = %output $+ $iif(%char == $chr(32),$chr(1),%char)
%temp = $right(%temp,-8)
}
return $replace(%output,$chr(1),$chr(32))
}
alias bin.encode {
var %output
var %temp = $1-
while (%temp) {
%output = %output $+ $base($asc($left(%temp,1)),10,2,8)
%temp = $right(%temp,-1)
}
return %output
}
menu channel,Query {
-
.Say Something in Binary:.msg # $bin.encode($$input(Enter your text.,e)) | echo -a < $+ $me $+ @binon> $!
.Info About Binary God
..about:/bin2
}
menu Status {
-
.Info About Binary God
..about:/bin2
}
on *:INPUT:#: {
if $left($1,1) isin 01 {
.msg # $1-
echo -a $+(<,$me,@binon>) $bin.decode($1-)
halt }
}
on $*^:text:/^[01 ]+$/:#: {
echo -mbflirt # $+(<,$nick,@binon>) $bin.decode($1-)
haltdef
}
on 1:LOAD:/echo 12Binary God V1.0 Script Loaded!
on 1:UNLOAD:/echo 4Binary God V1.0 Script unloading
}