Few Mirc Snippets I Have Scripted

[imacul8 0]

Just a few things that may come in handy

Backwards text snippet : will revers the text u input

bck {  var %x = 1,%bck  while (%x <= $len($1-)) { %bck = $mid($1-,%x,1) $+ %bck | inc %x }  return %bck}

Usage: $bck(text) ie. //echo -a $bck(hello everyone)
Returns: enoyreve olleh

Random letter/number generator : creates a random letter/number combo for the length specified.

rx {  if ($1 == $null) { echo -a ERROR: You must specify a value for N | halt }  if ($1 !isnum) { echo -a ERROR: The value of N can only be numbers | halt }  if ($1 != $null) {	var %i = $1	while (%i > 0) {	  dec %i	  if ($r(1,3) == 3) { var %r = %r $+ $r(1,9) }	  elseif ($r(1,3) == 2) { var %r = %r $+ $r(A,Z) }	  else { var %r = %r $+ $r(a,z) }	}	return %r  }}

Usage: $rx(N) ie. //echo -a $rx(5)
Returns: w34ci, 7kag1, cxhqx, 15i62

RGB to Hex converter: converts rgb color values into hex color values

toHex {  var %hexChars = 0123456789ABCDEF  var %r.i = $dremain($1,16)  var %g.i = $dremain($2,16)  var %b.i = $dremain($3,16)  var %r.j = $calc((($1 - %r.i) / 16) + 2)  var %g.j = $calc((($2 - %g.i) / 16) + 2)  var %b.j = $calc((($3 - %b.i) / 16) + 2)  return $chr(35) $+ $chrat(%hexchars,%r.j) $+ $chrat(%hexchars,%r.i) $+ $chrat(%hexchars,%g.j) $+ $chrat(%hexchars,%g.i) $+ $chrat(%hexchars,%b.j) $+ $chrat(%hexchars,%b.i)}chrat {  return $mid($1,$2,1)}

Usage $tohex(red,green,blue) ie. //echo -a $tohex(255,255,255)
Returns: #FFFFFF

And thats all from me at the moment, hope these come in handy to somebody

Notice from mayank:

Dont forget to add the code in code tags.

[rldowling03 0]

Hey i like the backwards text one, But how do u get it to work so that u do it in a chat window and everyone can see u said that like when u normally talk?

[imacul8 0]

you can just do //say $bck(hello everyone)

or add a on input event to your remotes section. and add a popup to enable,disable it from activating.

#bck onON *:INPUT:#: {if ($left($1,1) != /) {msg $active $bck($1-)halt   }} #bck endmenu channel {  &Backwards Text On:.enable bck  &Backwards Text Off:.disable bck}

This should do the job nicely!!
Edited August 7, 2006 by imacul8 (see edit history)

[tractor 0]

you can just do //say $bck(hello everyone)
or add a on input event to your remotes section. and add a popup to enable,disable it from activating.

#bck onON *:INPUT:#: {if ($left($1,1) != /) {msg $active $bck($1-)halt   }} #bck endmenu channel {  &Backwards Text On:.enable bck  &Backwards Text Off:.disable bck}

This should do the job nicely!!

Really huh

* /msg: insufficient parameters (line 4, script13.ini)

I think you need to learn a little more and yet //say $bck(TEXT) dosn't work * /say: insufficient parameters

[Urza 0]

you could also do something like

bck {  var %x = 1,%bck  while (%x <= $len($1-)) { %bck = $mid($1-,%x,1) $+ %bck | inc %x }  if ($isid) return %bck  else msg $active %bck}

also you havent added the $dremain alias anywhere.

 

 

Edit

Tractor - the only reason what he posted wouldnt work is if you deleted, or incorectly added the bck alias. If it doesn't work it is through no fault of his.

Edited October 5, 2006 by Urza (see edit history)

[tractor 0]

I hope you know im Agent|Austin..... And hmm ill talk to you.

[Urza 0]

i do now, but that in no way changes the fact of what i said lol.sooooo i really don't see how its relative

[tractor 0]

Well ok. -.- Just thought your script didn't work xD It also might not work because i have another on INPUT scrip

[AlternativeNick 0]

good stuff imacul8, thanks for posting

if you dont mind my contribution, i have a useful snippet to post as well, this will kick/ban a user in all channels you have access in.

alias gban {  var %i = 0  while (%i < $chan(0)) {	inc %i	ban $iif($1 ison $chan(%i),-k) $chan(%i) $1 2 $2-  }}

Usage- /gb <nick> [Reason]

also, just for fun-

alias maybe { return $($+($,$r(1,$0)),2) }

Usage- $maybe(yes,no,maybe)
will return either yes, no, or maybe

[tractor 0]

Lol alt did you just get that from when you made it for me today. ^^^ Very good script^^^ I love it somone gets on y nerves im just like /gb HAHAHA Lol its quite fun. And for the alises whats it do?

[AlternativeNick 0]

the $maybe alias returns a random parameter given, for instance $maybe(yes,no) could return either yes or no, and $maybe(elephant,cat,dog) could return either elephant, cat, or dog

[tractor 0]

So in other words is $maybe a standard indentifier for mIRC?

[Urza 0]

So in other words is $maybe a standard indentifier for mIRC?

why on earth would he be posting an alias for it if its a standard mirc identifier lol.

[AlternativeNick 0]

here is a remake of standard mirc alias, amsg

alias amsg {  var %i = 0,%x = 0  while (%i < $chan(0)) {	inc %i	msg $chan(%i) $1-  }  while (%x < $query(0)) {	inc %x	msg $query(%x) $1-  }}

This will msg all channels as well as all queries for the current connection.

[tractor 0]

why on earth would he be posting an alias for it if its a standard mirc identifier lol.

Hmm because he wants to?

here is a remake of standard mirc alias, amsg

alias amsg {  var %i = 0,%x = 0  while (%i < $chan(0)) {	inc %i	msg $chan(%i) $1-  }  while (%x < $query(0)) {	inc %x	msg $query(%x) $1-  }}

This will msg all channels as well as all queries for the current connection.

So messages all the channels sounds like a normal /amsg whats the dif?