alias chrwrite

Platform:  mIRC
Published  Nov 22, 2007
Updated  Dec 25, 2007
Ok, this script transfers text into a managable $chr format.
so typing "/chrwrite Jesus Pwns You" returns:
"$+($chr(74),$chr(101),$chr(115),$chr(117),$chr(115)) $+($chr(80),$chr(119),$chr(110),$chr(115)) $+($chr(89),$chr(111),$chr(117))"
in result, typing:
"//echo -ta $+($chr(74),$chr(101),$chr(115),$chr(117),$chr(115)) $+($chr(80),$chr(119),$chr(110),$chr(115)) $+($chr(89),$chr(111),$chr(117))"
returns "Jesus Pwns You"
same as $chrwrite(Jesus Pwns You)

This is a variation that i created of /lettonumb, not sure who made that one, but im proud of this so dont be mean =/

You can paste this into remotes, or aliases, if you put it in aliases, remove the "alias" alias chrwrite $iif($isid,return,echo -ta) $ $+ + $+ ( $+ $ $+ chr $+ $chr(40) $+ $replace($regsubex($1-,/(.)/g,$calc($lower($asc(1)-96)) $+ $chr(41) $+ $chr(44) $+ $ $+ chr $+ $chr(40)) $+ $chr(41) $+ $chr(41),$chr(44) $+ $ $+ chr $+ $chr(40) $+ $chr(41),$null,$chr(44) $+ $ $+ chr $+ $chr(40) $+ 32 $+ $chr(41) $+ $chr(44),$chr(41) $ $+ + $+ $chr(40))



;Shorter:
alias chrwrite $iif($isid,return,echo -ta) $!+( $+ $!chr( $+ $replace($remove($regsubex($1-,/(.)/g,$asc(1) $+ $+($chr(41),$chr(44),$!chr,$chr(40))) $+ $chr(41),$chr(44) $+ $!chr()),$+($chr(44),$!chr(32),$chr(44)),$+($chr(41) $!+,$chr(40))) $+ $chr(41)



;even shorter:
chrwrite $iif($isid,return,echo) $!+( $+ $replace($mid($regsubex($1-,/(.)/g,$+($!chr,$chr(40),$asc(\t),$chr(41),$chr(44))),1,-1),$+($chr(44),$!chr(32),$chr(44)),$+($chr(41) $!+,$chr(40))) $+ )

Comments

Sign in to comment.
Korvin   -  Dec 25, 2007
Code
 


redid it.
 Respond  
Korvin   -  Dec 25, 2007
chr { var %xy | var %x 1 | while ($len($1-) >= %x) { set %xy $+(%xy,$iif(%x != 1,$chr(32)) $+ $chr(36) $+ chr $+ $chr(40) $+ $asc($mid($1-,%x,1)) $+ $chr(41)) | inc %x } | $iif($isid,return,echo) $chr(36) $+ $chr(43) $+ $chr(40) $+ $replace(%xy,$chr(32),$chr(44),$!chr(32),$chr(41) $!+ $+ $chr(40),$+($chr(41),$chr(44),$chr(41)),$+($chr(41),$chr(41)),$!+ $+ $chr(40) $+ $chr(44),$!+ $+ $chr(40)) $+ $chr(41) }
Now yours does what mine does, power dragon. =p
 Respond  
opticlens   -  Dec 22, 2007
Odd how it completely disregarded the backslash.

Replace: $+($!+,$chr(40),$left($regsubex($v1,/(.)/g,$+(,$asc(1),$chr(44))),-1),$chr(41))
With: $+($!+,$chr(40),$left($regsubex($v1,/(.)/g,$+(,$asc(\\1),$chr(44))),-1),$chr(41))
 Respond  
opticlens   -  Dec 22, 2007
The above code could however receive errors with long strings, yet is actually functional. $n2t(<string>)

Anyway, the output received was merely a string of $chr(49)\'s. Not sure how this received even a 4.0, because this isn\'t functional at all. Besides, the code is very sloppy.

Now I would point out constructive criticism, but it seems most of what I had to say was covered above.
 Respond  
opticlens   -  Dec 22, 2007
Code
 

 Respond  
PowerDragon   -  Nov 27, 2007
I got a slightly shorter one,
Code
 
 Respond  
Lindrian   -  Nov 23, 2007
it should work with $+()
and whats this?
$ $+ +
Why not use:
$!+
 Respond  
Korvin   -  Nov 22, 2007
tried that, it doesnt work.
 Respond  
brinxy   -  Nov 22, 2007
You could get rid of all those $+\'s and use one $+(etc,etc,etc)
 Respond  
Korvin   -  Nov 22, 2007
=/ anything?
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.