Rainbow Colors Text

By BrandinA on Jan 18, 2010

Copyright © 2010 – Brandin Arsenault, Known Syntax – BOINC Services, Int. – All rights reserved.

Editing of this script is allowed.

This script is originally from the iKnown IRC Bot which is now discontinued.

-

This script has 2 parts to it. The alias and the remote text. If you change the alias, you MUST change the alias in the remote script. You may set the command for the remote below in the on *:TEXT: part.

-

Commands:

!rc WHATYOU WANTIN RAINBOW COLORS - Replace anything after '!rc'.

alias rc {
  var %linechar 1
  while (%linechar <= $len($1-)) {
    var %c1 $r(1,15), %c2 $r(1,15)
    while (%c1 == %c2) { var %c1 $r(1,15), %c2 $r(1,15) }
    var %line [ %line $+  $+ [ %c1 ] $+ , $+ [ %c2 ] $+  $+ [ $mid($1-,%linechar,1) ] $+  ]
    inc %linechar
  }
  msg $active %line
}
#rc off
on *:input:*: { if ($left($1-,1) != /) && (c !isincs $chan(#).mode) && (!$ctrlenter) { rc $1- | haltdef } }
#rc End
menu * {
  $iif($group(#rc) == On,$style(1)) Random Colors
  .$iif($group(#rc) == On,$style(2)) On: .enable #rc
  .$iif($group(#rc) == Off,$style(2)) Off: .disable #rc
}

ON *:TEXT:!rc *:#: {
  rc $2-
}

Comments

Sign in to comment.
The6PuffPack   -  Feb 11, 2012

EHEH... good good.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.