alias chrwrite

By Korvin on Nov 22, 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
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.

More
 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

More
 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))

More
 Respond  
opticlens   -  Dec 22, 2007

The above code could however receive errors with long strings, yet is actually functional. $n2t()

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.

More
 Respond  
opticlens   -  Dec 22, 2007
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
}
More
 Respond  
PowerDragon   -  Nov 27, 2007

I got a slightly shorter one,

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) }
More
 Respond  
Lindrian   -  Nov 23, 2007

it should work with $+() and whats this? $ $+ + Why not use: $!+

More
 Respond  
Korvin   -  Nov 22, 2007

tried that, it doesnt work.

More
 Respond  
brinxy   -  Nov 22, 2007

You could get rid of all those $+\'s and use one $+(etc,etc,etc)

More
 Respond  
Korvin   -  Nov 22, 2007

=/ anything?

More
 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.