Top

alias chrwrite


mIRC Code
+ 0 likes
Please Register to submit score.
Average Score  3.5
Scores Submitted  2
Date Added  Nov 22, 2007
Last Updated  Dec 25, 2007
Tags  alias  chr 
  Bookmark and Share

Introduction

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"

Grab the Code

Comments

  (10)  RSS
Korvin
Comments: 238
 
mIRC Snippet:  alias chrwrite
Posted on Nov 22, 2007 4:16 pm
=/ anything?
brinxy
Comments: 30
 
mIRC Snippet:  alias chrwrite
Posted on Nov 22, 2007 6:55 pm
You could get rid of all those $+'s and use one $+(etc,etc,etc)
Korvin
Comments: 238
 
mIRC Snippet:  alias chrwrite
Posted on Nov 22, 2007 10:15 pm
tried that, it doesnt work.
Lindrian
Comments: 755
 
mIRC Snippet:  alias chrwrite
Posted on Nov 23, 2007 3:34 am
it should work with $+()
and whats this?
$ $+ +
Why not use:
$!+
PowerDragon
Comments: 32
 
mIRC Snippet:  alias chrwrite
Posted on Nov 27, 2007 6:26 pm
I got a slightly shorter one,
Code:
alias 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 } | say $chr(36) $+ $chr(43) $+ $chr(40) $+ $replace(%xy,$chr(32),$chr(44)) $+ $chr(41) }
opticlens
Comments: 9
 
mIRC Snippet:  alias chrwrite
Posted on Dec 22, 2007 6:27 pm
Code:
alias n2t {
  var %x = 1, %u
  while ($gettok($1-,%x,32)) { 
    %u = %u $+($!+,$chr(40),$left($regsubex($v1,/(.)/g,$+(,$asc(\1),$chr(44))),-1),$chr(41))
    inc %x
  }
  return %u
}

opticlens
Comments: 9
 
mIRC Snippet:  alias chrwrite
Posted on Dec 22, 2007 6:31 pm
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.
opticlens
Comments: 9
 
mIRC Snippet:  alias chrwrite
Posted on Dec 22, 2007 6:35 pm
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))
Korvin
Comments: 238
 
mIRC Snippet:  alias chrwrite
Posted on Dec 25, 2007 9:00 pm
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
Korvin
Comments: 238
 
mIRC Snippet:  alias chrwrite
Posted on Dec 25, 2007 9:23 pm
Code:
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)


redid it.

Please Register or Login to start posting comments.
Bottom