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))) $+ )

Like Page Follow Author

Comments

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.

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

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

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
}

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

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