5 Color Script (Fade)

By Epik-Fail on Dec 07, 2008

Okay so i made this script bout 2 weeks ago i had some problems with it but its working now if it doubles i'm sorry i use mIRC Invincible and it didn't double for me at all. i had some help from my friend Mugen with the input part Rate & Comment

YOU CAN CHANGE THE COLORS BUT YOU HAVE TO DO THAT IN THE SCRIPT. I'm working on making it into a Dialog for easier use. when i get it working into a dialog ill update the script.

##########################################
# Color Script Made By Epik-Fail & Mugen #
##########################################

Strobe3

menu menubar,channel,query {
  $iif($group(#Strobe3.Text) == Off,Strobe3 Text [Off],Strobe3 Text [On]):{
    $iif($group(#Strobe3.Text) == Off,.enable #Strobe3.Text,.disable #Strobe3.Text)
  }
}
#Strobe3.Text on

on *:INPUT:*: {
  if ($left($1,1) = /) || ($ctrlenter) || ($inpaste) return
  ;### wave text generator ###

  ;#### start of editable values

  ;## USER SETTING: first color in wave (3 characters)
  var %mrfw_color.1 = 04

  ;## USER SETTING: second color in wave (2 characters)
  var %mrfw_color.2 = 05

  ;## USER SETTING: third color in wave (1 character)
  var %mrfw_color.3 = 14

  ;## USER SETTING: forth color in wave (1 character)
  var %mrfw_color.4 = 00

  ;## USER SETTING: fifth color in wave (1 character)
  var %mrfw_color.4 = 07

  ;## USER SETTING: background color
  var %mrfw_color.background = 01

  ;#### end of editable values

  if ($0 == 0) { halt }
  var %mrfw_string $1-
  var %mrfw_string.len $len(%mrfw_string)
  var %mrfw_i 1
  var %mrfw_c 1
  var %mrfw_string.new  $+ %mrfw_color.1 $+ $chr(44) $+ %mrfw_color.background
  var %mrfw_string.color $null
  while (%mrfw_i <= %mrfw_string.len) {
    if (%mrfw_c == 1) { %mrfw_string.color = %mrfw_color.1 }
    elseif (%mrfw_c == 4) { %mrfw_string.color = %mrfw_color.2 }
    elseif (%mrfw_c == 6) { %mrfw_string.color = %mrfw_color.3 }
    elseif (%mrfw_c == 5) { %mrfw_string.color = %mrfw_color.4 }
    elseif (%mrfw_c == 10) { %mrfw_string.color = %mrfw_color.5 }
    elseif (%mrfw_c == 7) { %mrfw_string.color = %mrfw_color.2 }
    elseif {%mrfw_c == 9) { %mrfw_string.color = %mrfw_color.1 }
    var %mrfw_spaces = $mid(%mrfw_string,%mrfw_i - 1,1)
    %mrfw_string.new = %mrfw_string.new $+  $+ %mrfw_string.color $+ $iif(%mrfw_spaces == $chr(32),$+ $chr(32)) $+ $mid(%mrfw_string,%mrfw_i,1)
    inc %mrfw_c
    inc %mrfw_i
    if (%mrfw_c == 10) { %mrfw_c = 1 }
  }
  msg $active %mrfw_string.new
  unset %mrfw_*
  haltdef

}
#Strobe3.Text End

Like Page Follow Author

Comments

dma - Oct 31, 2015

to bad i have another script that does colors dont know which to change

Respond

ZoMb1eRaBb1tT - Oct 09, 2012

its easy to change the colours but u cant add more colour strings ive tried it screws it all up

Respond

Blud - Apr 24, 2011

I tried having only 3 lines but it didnt turn out the way i wanted to

Respond

Gummo - Jul 18, 2010

  ;## USER SETTING: forth color in wave (1 character)
  var %mrfw_color.4 = 00

  ;## USER SETTING: fifth color in wave (1 character)
  var %mrfw_color.4 = 07

Is that a ".4" I see there? :P
Also, fourth << spell it like that. :)

Looking at the script more, it won't use that 5th colour anyway. Once you reach the 9th character it resets to 1 again, skipping the 10.

Respond

Epik-Fail - Jul 17, 2010

UPDATED SCRIPT TO 5 COLORS BY REQUEST

Respond

Mugen- - Jan 28, 2009

The enable / disable works perfectly. >__> Lol.

Respond

Epik-Fail - Jan 17, 2009

i've been using this script for a LONG while now and i have no error like that

Respond

Virus - Jan 13, 2009

If you move it to the top of the order in your script editor the echo stops, but there is an issue with the enable/disable. When I have it turned on, I get a "#Strobe3.Text UNKNOWN COMMAND" notice. I'll see what I can work out for it on my own, just thought I'd let you know.

Respond

DragonFlare - Dec 07, 2008

Indeed, Gummo And other than that nicley coded Epik_Fail Keep up the good work.

Respond

Gummo - Dec 07, 2008

You don't have to /unset when you only use /var. Also,

if ($0 == 0) { halt }

The on input event can't trigger if $0 is 0, so the line isn't needed.

Respond