Now, say you're waiting around with some friends in a chatroom. And you want to say something and have some fun in the channel. Well, say the other people in the channel are scripting n00bs. Well... what you do is::> talk in code! My script uses the mime encoding. Its quite simple, actually.
Just get both you and your buddy to load it up
then you can use codes to talk. Just type /codon to start talking in code
Use `decodon to start decoding your friend's codes.
on *:input:*: {
if ($1 == `codoff) {
set %code off
echo $active 7,2 You are no longer speaking in CODE!!
amsg 7,2 $me $+ 's code is now OFF! (samcobra script!)
haltdef
}
if ($1 == `decodon) {
set %decode on
var %enigma $$?="Which nick's comments do you want to decode?"
msg %enigma 7,2 Your code is being deciphered by $me (samcobra script!)
echo $active 7,2 You are now decoding %enigma $+ 's coded messages!
if (%enigma !isin %dcnick) {
set %dcnick $instok(%dcnick,%enigma,$calc($numtok(%dcnick,32)+1),32)
}
haltdef
}
if ($1 == `decodoff) {
set %decode off
var %enigmatic $$?="Which nick's comments won't you decode?"
msg %enigmatic 7,2 Your code is no longer being deciphered by $me (samcobra script!)
echo $active 7,2 You will no longer be able to understand %enigmatic $+ 's coded messages!
if (%enigmatic isin %dcnick) {
set %dcnick $remtok(%dcnick,%enigmatic,1,32)
}
haltdef
}
elseif ( %code == on ) && (/ !isin $1) {
say $encode($1-,m)
echo $active 7,2 $1-
haltdef
}
}
on *:text:*:*: {
if (%decode == on) && ($nick isin %dcnick) {
echo $active 7,2 < $+ $nick $+ > $decode($1-,m)
}
}
menu server,active,nicklist,status,query,channel {
Toggle Decoding: decoding
}
alias decoding {
if (%decode == off) { set %decode on }
elseif (%decode == on) { set %decode off }
echo $active 7,2 Decoding is now set to %decode
}
alias codon {
set %code on
echo $active 7,2 You will now speak in CODE!!
amsg 7,2 $me $+ 's code is now ON! please pm me to find out what it is! (samcobra script!)
haltdef
}