$chr Talk Script

By Sparkster on Apr 02, 2010

A simple script that you can use to send a hidden message only mIRC users can read.

Type /secret (Without the < and >) and you'll get something like:

Result: //echo $+($chr(83),$chr(112),$chr(97),$chr(114),$chr(107),$chr(115),$chr(116),$chr(101),$chr(114))

Paste everything after the 'Result:' in your mIRC window and you'll see the hidden text.
Paste it then press CTRL + ENTER to send the hidden message to a channel/someone.

;$chr talk script made by Sparkster/DrStraightos
on *:LOAD: {
  echo 4* Message: 5$chr Talk Script v.0.3 loaded. | echo 4* Message: 5Visit: http://www.hawkee.com/snippet/7486/ for updates. Made by Sparkster/DrStraightos
}
alias secret {
  if !$1 {
    ;Display error and halt script when text is not specified
    echo 4* Error: 5Write the text you want to translate! | halt
  }
  ;Set the variables
  var %secret.result $chr(36) $+ +( | var %secret.text $1- | var %secret.position 1 | var %secret.length $len($1-)
  while %secret.position < %secret.length {
    set %secret.result %secret.result $+ $chr(36) $+ chr $+ $chr(40) $+ $asc($right($left(%secret.text,%secret.position),1)) $+ $chr(41) $+ ,
    inc %secret.position
  }
  if %secret.position == %secret.length {
    set %secret.result %secret.result $+ $chr(36) $+ chr $+ $chr(40) $+ $asc($right($left(%secret.text,%secret.position),1)) $+ $chr(41)
    ;Display the result with an //echo
    echo 4* Result: 5//echo %secret.result $+ $chr(41) $+ 
  }
}
;End of $chr talk script

Like Page Follow Author

Comments

Jethro - Apr 03, 2010

Well, If by winning one means to post a code to compare against other people's, he or she definitely lets their ego work too hard to be pleased. I'm not saying winning isn't everything, it's an instinct we humans have and strive to have throughout our lives. But posting at Hawkee to win is not the kind of winning I aim for. There's no better definition to describe winning, really, and I'll leave you to your own take on it. =)

Respond

sunslayer - Apr 03, 2010

the point is to win at all costs.

Respond

Jethro - Apr 03, 2010

You're still missing the point...:p

Respond

sunslayer - Apr 03, 2010

This is not about winning or losing. Never let your ego get the best of you. ^ obv you've never won, lol :p

Respond

Jethro - Apr 03, 2010

This is not about winning or losing. Never let your ego get the best of you.

Respond

Korvin - Apr 03, 2010

alias secret $iif($isid,return,echo) $iif($len($1-) > 1,$!+ $+ $chr(40)) $+ $replace($mid($regsubex($1-,/(.)/g,$+($!chr,$chr(40),$asc(\t),$chr(41),$chr(1))),1,-1),$+($chr(1),$!chr(32),$chr(1)),$+($chr(41) $!+,$chr(40))) $+ $iif($len($1-) > 1,$chr(41))

Does I win?

EDIT: Damnit sunslayer =[

Respond

PuNkTuReD - Apr 03, 2010

its not lame, its a good script for finding out chr codes of multiple characters like

!@# etc etc
good for scriptors who are new to using $chr()

Respond

Sparkster - Apr 02, 2010

PunkTuReD: You don't have to echo it to yourself. You could post it on a channel to make someone read the message. The script is kind of lame itself anyways.

sunslayer: Thanks for the help. I'll try to improve the script as soon as I can.

Respond

PuNkTuReD - Apr 02, 2010

you could also unset them all if you do keep it global by using
unset %secret.*

also, might be a stupid question, but why encrypt a msg, just to echo it to yourself anyway?

Respond

Jethro - Apr 02, 2010

Before $regsubex was introduced, people had to do it with while loop or $regsub...:p I believe there's another way to do it that involves the use of $bvar().text and $bvar().nword

Respond

sunslayer - Apr 02, 2010

instead of using a global variable you should use a local i.e. use /var instead of /set which removes the need to unset all the varibles at the end
also you can use $regsubex to make this significantly smaller/faster

alias secret { echo -a Result: //echo $+($!+,$chr(40),,$regsubex($$1-,/(.)/g,$+($!chr,$chr(40),$asc(\t),$chr(41),$iif(\n != \0,$chr(44),$chr(41))))) }

Respond