Rainbow Script

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	5.5
Scores Submitted	4
Date Added	Nov 29, 2007
Last Updated	Nov 29, 2007
Tags	channel rainbow script

Introduction

Hello I'm dark(Antwan) and this is my first rainbow script. Hope you enjoy!!!

Grab the Code

on *:INPUT:#: {
  if (%colortype == $null) && ($mid($1,1,1) != /) { /echo -a 2Please specify a color type by typing /ctype light or /ctype dark.  You may also right click this window and select it in Rainbow Text->Options->Color Type. | /halt }
  if (%colorbold == $null) && ($mid($1,1,1) != /) { /echo -a 2Please specify bold by typing /cbold on or /cbold off.  You may also right click this window and select it in Rainbow Text->Options->Bold. | /halt }
  if (%color == on) && ($mid($1,1,1) != /) {
    /set %color.words $strip($1-)
    /set %color.wcounter 0
    if (%colorbold == on) { /set %color.final 0,1 }
    if (%colorbold == off) { /set %color.final 0,1 }
    if (%colortype == light) { /set %color.colors 4 7 8 9 11 13 | /set %color.colorsc 0 }
    if (%colortype == dark) { /set %color.ccolor 4 }
    while (%color.wcounter != $numtok(%color.words,32)) {
      /inc %color.wcounter
      /set %color.cletter 0
      while (%color.cletter != $len($gettok(%color.words,%color.wcounter,32))) {
        /inc %color.cletter
        if (%colortype == light) {
          /inc %color.colorsc
          if (%color.colorsc == 7) { /set %color.colorsc 1 }
          if ($mid($gettok(%color.words,%color.wcounter,32),%color.cletter,1) isnum) { /set %color.final %color.final $+  $+ $gettok(%color.colors,%color.colorsc,32) $mid($gettok(%color.words,%color.wcounter,32),%color.cletter,1) }
          else { /set %color.final %color.final $+  $+ $gettok(%color.colors,%color.colorsc,32) $+ $mid($gettok(%color.words,%color.wcounter,32),%color.cletter,1) }
        }       
        if (%colortype == dark) {
          if ($mid($gettok(%color.words,%color.wcounter,32),%color.cletter,1) isnum) { /set %color.final %color.final $+  $+ %color.ccolor $mid($gettok(%color.words,%color.wcounter,32),%color.cletter,1) }
          else { /set %color.final %color.final $+  $+ %color.ccolor $+ $mid($gettok(%color.words,%color.wcounter,32),%color.cletter,1) }
          /inc %color.ccolor
          if (%color.ccolor == 14) { /set %color.ccolor 4 }
        }
        if (%color.cletter == $len($gettok(%color.words,%color.wcounter,32))) { /break }
      }
      /set %color.final %color.final $+ $chr(32) $+ $chr(32)
      if (%color.wcounter == $numtok(%color.words,32)) { /break }
    }
    /msg $active %color.final
    /unset %color.*
    /halt
  }
}

alias /color {
  if ($1 == on) { /set %color on }
  if ($1 == off) { /set %color off }
}
alias /ctype {
  if ($1 == light) { /set %colortype light }
  if ($1 == dark) { /set %colortype dark }
}
alias /cbold {
  if ($1 == on) { /set %colorbold on }
  if ($1 == off) { /set %colorbold off }
}

menu channel {
  Rainbow Text
  .Options
  ..Bold
  ...$iif(%colorbold == on,$style(1)) $+ On: /set %colorbold on
  ...$iif(%colorbold == off,$style(1)) $+ Off: /set %colorbold off
  ..Color Type
  ...$iif(%colortype == light,$style(1)) $+ Light:  /set %colortype light
  ...$iif(%colortype == dark,$style(1)) $+ Dark: /set %colortype dark
  .$iif(%color == on,$style(1)) $+ On: /set %color on
  .$iif(%color == off,$style(1)) $+ Off: /set %color off
}

Comments

(10) RSS

Go to Bottom

DarkDaemon

Comments: 51

mIRC Snippet: Rainbow Script
Posted on Nov 29, 2007 8:13 pm

Tell me if you like it or anyway bugs or mistakes!

DarkDaemon

Comments: 51

mIRC Snippet: Rainbow Script
Posted on Nov 29, 2007 8:13 pm

Tell me if you like it or anyway bugs or mistakes!

juuruichki

Comments: 9

mIRC Snippet: Rainbow Script
Posted on Dec 12, 2007 9:13 pm

kewl script Alexis...even though i script way betta than u ___

Comments: 1,249

mIRC Snippet: Rainbow Script
Posted on Dec 12, 2007 9:21 pm

Well folks theres the biggest jump in mIRC code programming i have ever seen.Cant check to see if it works cause the server im on is down but i\'ll be sure to check it out soon.`-.-�

DarkDaemon

Comments: 51

mIRC Snippet: Rainbow Script
Posted on Feb 14, 2008 7:54 pm

More comments :D

napa182

Comments: 1,006

mIRC Snippet: Rainbow Script
Posted on Feb 14, 2008 11:39 pm

um could be better. but i do like to options you incorped in to it.
heres an ez one..

Code:

on *:input:*:{
if (%rainbows == on) && (/* !iswm $1) {
var %x = $len($1-),%y = 1
while (%y <= %x) {
var %z = $iif($mid($1-,%y,1) = $chr(32),$chr(1), $+ $rand(0,15) $+ $mid($1-,%y,1))
var %zz = %zz $+ %z
inc %y
}
msg $chan $replace(%zz,$chr(1),$chr(32))
halt
}
}
menu channel {
.Rainbow Colors
..On:{ set %rainbows on | echo -a Colors Are Now On }
..Off:{ unset %rainbows | echo -a Colors Are Now Off }
}

parselmouth

Comments: 4

mIRC Snippet: Rainbow Script
Posted on Feb 19, 2008 11:56 am

hey do i have to add any aliases or menu things?

RagBot

Comments: 34

mIRC Snippet: Rainbow Script
Posted on May 26, 2008 3:49 pm

this is either copied or stole from, i forget the website, but i\'ve seen this before i came to this site, hope you weren\'t the one that took it :O and some1 else got it from you. Did you take it?

Comments: 1,249

mIRC Snippet: Rainbow Script
Posted on May 26, 2008 5:23 pm

@ragbot, no proof stfu till then k thanks:P

SnoooP

Comments: 343

mIRC Snippet: Rainbow Script
Posted on May 26, 2008 5:55 pm

RagBot proof helps lol... I could go on any single snippet on this site & say
\"this isnt yours you copied it & stole it... I cant remember were you stole it from.. Or from whom it was stolen.. But you stole it..\"
lol... Untill there is proof dont make accusations.

DarkDaemon

		Commanding Army of Darkness Hell
Last seen: Aug 13, 2008 Profile Friends (4) Snippets (7) Comments Received (39) Comments Submitted (51) Forum Posts (1)