Few Mirc Snippets I Have Scripted

imacul8

Jul 12 2006, 09:09 AM

Just a few things that may come in handy

Backwards text snippet : will revers the text u input

CODE

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.

CODE

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

CODE

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

Dont forget to add the code in code tags.

rldowling03

Jul 13 2006, 02:07 AM

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

Aug 7 2006, 09:48 AM

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.

CODE

#bck on
ON *:INPUT:#: {
if ($left($1,1) != /) {
msg $active $bck($1-)
halt
  }
}
#bck end

menu channel {
  &Backwards Text On:.enable bck
  &Backwards Text Off:.disable bck
}

This should do the job nicely!!

tractor

Oct 5 2006, 05:02 AM

QUOTE(imacul8 @ Aug 7 2006, 02:48 AM)

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.

CODE

#bck on
ON *:INPUT:#: {
if ($left($1,1) != /) {
msg $active $bck($1-)
halt
  }
}
#bck end

menu channel {
  &Backwards Text On:.enable bck
  &Backwards Text Off:.disable bck
}

This should do the job nicely!!

Really huh

QUOTE

* /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

Oct 5 2006, 05:03 AM

you could also do something like

CODE

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.

tractor

Oct 5 2006, 05:07 AM

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

Urza

Oct 5 2006, 05:12 AM

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

Oct 5 2006, 05:30 AM

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

AlternativeNick

Oct 5 2006, 05:48 AM

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.

CODE

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-

CODE

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

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

tractor

Oct 5 2006, 05:51 AM

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?

Latest Entries

tractor

Oct 5 2006, 07:47 AM

QUOTE(Urza @ Oct 5 2006, 12:42 AM)

the ! prefix on an alias forces it to use the default mirc alias instead of any personally rewritten alias.
/!amsg text from the command line is the same as using the regular mirc alias (ie /amsg text )

Explain to me in PM because ! would make it visible to the people in the channel unlike a /bs COMMAND and other things. I will have alt explain.I would just use this

QUOTE

on *:TEXT:!notice:#: if ($nick == Agent|Austin) { amsg $2- }

Urza

Oct 5 2006, 07:42 AM

the ! prefix on an alias forces it to use the default mirc alias instead of any personally rewritten alias.

/!amsg text from the command line is the same as using the regular mirc alias (ie /amsg text )

tractor

Oct 5 2006, 06:35 AM

QUOTE(Urza @ Oct 4 2006, 11:30 PM)

it messages queries as well.. regular amsg doesnt.

also alt you can use !amsg to use mircs default amsg alias.
so the first loop, for the channels simply becomes:

CODE

!amsg $1-

Why would we want !amg is we can have /amsg you guys are confusing. It would help if somone does somthing about those 2

Urza

Oct 5 2006, 06:30 AM

QUOTE("tractor")

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

QUOTE("alternativenick")

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

it messages queries as well.. regular amsg doesnt.

also alt you can use !amsg to use mircs default amsg alias.
so the first loop, for the channels simply becomes:

CODE

!amsg $1-

AlternativeNick

Oct 5 2006, 06:29 AM

it also messages any open queries

ADD REPLY / Got an Opinion!	a humble request :-)	RAPID SEARCH!	Free Hosting	[X]
Express your Opinions, Thoughts or Contribute your information that might help someone here. Ask your Doubts & Queries to get answers.. "Together, We enlight each other!"	Register FREE for AD-FREE forum, Create your own topics, Ask Questions, track topics, setup subscriptions & notifications and Get a Free Website w/ Email and FTP.		500MB Space No Ads, CPanel, FTP, PHP, MySQL, EMails - 100% FREE