Random colors

By bearruler on May 17, 2005

This completely randomizes your text colors
I made this awhile ago, but I finally decided to submit it
To use this script, instead of saying "Random colors", you say "c Random Colors", and it will send the channels/person the words "Random colors", just in completely random mIRC colors
Warnng: This script will not randomize colors for numbers

Bear

on *:input:*: {
  if ($1 == c) {
    /set %a 2
    while ($ [ $+ [ %a ] ]) {
      /set %text %text $colors($ [ $+ [ %a ] ])
      /unset %return
      /inc %a
    }
    //say %text
    /unset %a
    /unset %text
    halt
  }
}
alias colors {
  /set %b 1
  while (%b <= $len($1)) {
    /set %return %return $+  $+ $rand(0,14) $+ $right($left($1,%b),1)
    /inc %b
  }
  return %return
}

Like Page Follow Author

Comments

erry - Sep 26, 2007

Heilos,i loved that comment u posted <333333

Respond

Heilos - May 28, 2005

Wouldnt it be easier to use something like:

on :INPUT::{
if ($1 == !off) { %text = off | echo Text formatting is off | halt }
if ($1 == !random) { %text = rand | echo Text color is now random | halt }
if ((%text == rand) && (/ !iswm $1) && (! !iswm $1)) { say $random($1-) | halt }
}
alias random {
var %i = $len($1),%o
while (%i) {
%o = $+(,$gettok(02 03 04 05 06 07 10 12 13 14,$r(1,10),32),$mid($1,%i,1),%o)
dec %i
}
return %o
}

That way the user can edit the colors used by changing:
$gettok(02 03 04 05 06 07 10 12 13 14,$r(1,10),32)

Respond