$chr *DELETED* - mIRC Discussion Forums

Post deleted by MTec89

http://www.asciitable.com/

41
40
44
124
32

well, i didnt want everyone to know what i was making and take my idea :tongue: but i need help. mirc doesnt save this alias when i try to enter it.

Code:

bin $replacecs($1-,a,01100001,b,01100010,c,01100011d,01100100,e,01100101,f,01100110,g,01100111,h,01101000,i,01101001,j,01101010,k,01101011,l,01101100,m,01101101,n,01101110,o,01101111,p,01110000,q,01110001,r,01110010,s,01110011,t,01110100,u,01110101,v,01110110,w,01110111,x,01111000,y,01111001,z,01111010,A,01000001,B,01000010,C,01000011,D,01000100,E,01000101,F,01000110,G,01000111,H,01001000,I,01001001,J,01001010,K,01001011,L,01001100,M,01001101,N,01001110,O,01001111,P,01010000,Q,01010001,R,01010010,S,01010011,T,01010100,U,01010101,V,01010110,W,01010111,X,01011000,Y,01011001,Z,01011010,1,00110001,2,00110010,3,00110011,4,00110100,5,00110101,6,00110110,7,00110111,8,00111000,9,00111001,0,00110000`,01100000,~,01111110,!,00100001,@,01000000,#,00100011,$,00100100,%,00100101,^,01011110,&amp;,00100110,*,00101010,$chr(41),00101001,$chr(40),00101000,$chr(44),00101100,$chr(124),01111100,$chr(32),00100000,$chr(123),01111011,$chr(125),01111101,-,00101101,_,01011111,=,00111101,+,00101011,\,01011100,[,01011011,],01011101,;,00111011,:,00111010,',00100111,",00100010,&lt;,00111100,&gt;,00111110,.,00101110,/,00101111,?,00111111)

bin $base($1-,10,2)

im trying to use my own alias instead of that one

yours won't work...
a = 1010
b = 1011
ab = 1101111
----------------
your method
ab = 10101011

try this:

Code:

/chr_to_bin {
  var %dec = $asc($1)

  var %p = 128
  while (%p &gt; 0) {
    if (%dec &gt;= %p) var %bin = %bin $+ 1, %dec = %dec - %p
    else var %bin = %bin $+ 0
    var %p = $int($calc(%p / 2))
  }

  return %bin
}

you can either use $replacecs, or loop through each letter..

Code:

var %l = 1
while ($mid($1-, %l, 1)) {
  var %result = %result $chr_to_bin($ifmatch)
  /inc %l
}

abc = 01100001 01100010 01100011

$chr_to_bin(a) = 01100001
$chr_to_bin(b) = 01100010
$base(a,10,2) = 1010
$base(b,10,2) = 1011
which one's right? ;\

Both are, but King's is what he's after I think.

Yours:
a = 10 = 1010
b = 11 = 1011

Kings:
$asc(a) = 97 = 01100001
$asc(b) = 98 = 01100010

elseif (%binary == on) {
if (left($1,1) == /) && ($1 != /notice) && ($1 != /me) { return $1- }
elseif ($1 == /me) { describe # $replace($1-,$1-,$bin($1-)) }
elseif ($1 == /notice) { notice $2 $replace($2-,$1-,$bin($2-)) }
else { msg $active $replace($2-,$2-,$bin($2-)) }
}

alias bin {
var %dec = $asc($1)
var %p = 128
while (%p > 0) {
if (%dec >= %p) var %bin = %bin $+ 1, %dec = %dec - %p
else var %bin = %bin $+ 0
var %p = $int($calc(%p / 2))
}
return %bin
}

i get
* /msg: insufficient parameters (line 24, txtsuite.mrc)
and then the normal text is displayed

line 24 is:
else { msg $active $replace($2-,$2-,$bin($2-)) }

how do i make it change all text, just plain /return $bin(a s d f g) only affects a

Code:

/chr_to_bin {
  var %dec = $asc($1)

  var %p = 128
  while (%p &gt; 0) {
    if (%dec &gt;= %p) var %bin = %bin $+ 1, %dec = %dec - %p
    else var %bin = %bin $+ 0
    var %p = $int($calc(%p / 2))
  }

  return %bin
}

/binary {
  var %l = 1
  while ($mid($1-, %l, 1)) {
    var %str = %str $chr_to_bin($ifmatch)
    /inc %l
  }
  return %str
}

//say $binary(This is a test)

edited:
ok i fixed everything, but how do i remove the space between the letteres that wasnt originally spaced?

( i couldnt edit the post before this one)
ok i fixed everything, but how do i remove the space between the letteres that wasnt originally spaced?
like hello is:
01101000 01100101 01101100 01101100 01101111
instead of
0110100001100101011011000110110001101111

but i still want spaces to be binary like this:
hello there
0110100001100101011011000110110001101111001000000111010001101000011001010111001001100101

var %str = %str $chr_to_bin($ifmatch)
turns into
var %str = %str $+ $chr_to_bin($ifmatch)

worked:) Thx

Only to answer your original question, though I'm sure the suggestions above are better than this...
To get this to save in your script, you need to break it into multiple lines using $&.

replacecs($1-,a,01100001,b,01100010,c,01100011,d,01100100,e,01100101,f,01100110, $&
g,01100111,h,01101000,i,01101001,j,01101010,k,01101011,l,01101100,m,01101101, $&
n,01101110,o,01101111,p,01110000,q,01110001,r,01110010,s,01110011,t,01110100, $&
u,01110101,v,01110110,w,01110111,x,01111000,y,01111001,z,01111010,A,01000001, $&
B,01000010,C,01000011,D,01000100,E,01000101,F,01000110,G,01000111,H,01001000, $&
I,01001001,J,01001010,K,01001011,L,01001100,M,01001101,N,01001110,O,01001111, $&
P,01010000,Q,01010001,R,01010010,S,01010011,T,01010100,U,01010101,V,01010110, $&
W,01010111,X,01011000,Y,01011001,Z,01011010,1,00110001,2,00110010,3,00110011, $&
4,00110100,5,00110101,6,00110110,7,00110111,8,00111000,9,00111001,0,00110000, $&
`,01100000,~,01111110,!,00100001,@,01000000,#,00100011,$,00100100,%,00100101, $&
^,01011110,&,00100110,*,00101010,$chr(41),00101001,$chr(40),00101000, $&
$chr(44),00101100,$chr(124),01111100,$chr(32),00100000,$chr(123),01111011, $&
$chr(125),01111101,-,00101101,_,01011111,=,00111101,+,00101011,\,01011100, $&
[,01011011,],01011101,;,00111011,:,00111010,',00100111,",00100010,<,00111100, $&
>,00111110,.,00101110,/,00101111,?,00111111)

Or you could just use $base in the loop and avoid that chr_to_bin alias altogether.

Code:

alias bin {
  var %i = 1
  while $mid($1-,%i,1) {
    var %r = %r $+ $base($asc($ifmatch),10,2,8)
    inc %i
  }
  return %r
}

Try this:

---
/d2b {
%d2b = $strip($1-)
unset %bin
while ( %d2b ) {
if $asc(%d2b) = 32 { set %bin $+(%bin,$chr(160)) }
else { set %bin $+(%bin,$base($asc(%d2b),10,2,8)) }
%d2b = $mid(%d2b,2)
}
return %bin
}
---
//echo binary: $d2b(Hello with spaces)

will produce:
binary: 0100100001100101011011000110110001101111 01110111011010010111010001101000 011100110111000001100001011000110110010101110011

If you don't want spaces, then remove that line that checks for ascii value 32, or change the 160 at the end to 32.
Easy to make it the way you want.

Have fun