5 Color Strobe [Rebuilt..Kinda]

Platform:  mIRC
Published  Jul 08, 2012
Updated  Jan 20, 2013
This is just like my 3 color fade but updated. I got bored one day and was looking through my scripts and decided to fix it and add stuff to it.

__What's new______________________________

- Added two more color options, now shows five colors instead of 3.
- Added Automatic Formatting, Acronyms, Emoticons.

__Bugs____________________________________

- NONE

- Tested on two separate mIRC's on two different OS's

__Plans for next release_______________________

- Working highlight when a name is said. <- In Progress/few bugs
- Colored /me. <- Someone volunteered to do this.
- Bold/Underline option. <- After I finish making highlight
- Change colors from menu instead of going into the script. <- Read above

__Thanks To________________________________

- Spanky, fixed the stripping of colors when +c is set on a channel.
- Mugen/Nic, helped me with the first release

__Contact__________________________________

Prefix on Peercommons (Frostwire Chat) 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 (c isincs $gettok($chan($target).mode,1,32)) return
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 = 09

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

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

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

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

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

;#### end of editable values

tokenize 32 $replacexcs($1-,Nigadoo,Ñigga do,black,Ñigger,black,ÑIGGER,black,ñigger,WTS,~ What The Shït ~,FishS,~ These Fish Sticks Are Hard As Tïts! ~,!@#$,~ fark Salt ~,INR,~ inorïte? ~,WTD,~ What The Dueçes ~,BAMF,~ You are one BadAssMoFo FOO :D ~,BRB,~ ße Rïght ßaçk ~,YW,~ You're Welçome ~,LMD,~ £ïçk My Ðïçk ~,AFK,~ Away From Keyboard ~,BBL,~ ße ßaçk Later ~,G2G,~ Gotta Go ~,FFS,~ For Fµçk Sakes ~,LMFAO,~ £aµghïng My Fµçkïng Ass Øff ~,LMAO,~ £aµghïng My Ass Øff ~,ES&D,~ Eat Shït & Dïe ~,ILY,~ I <3 Yoµ ~,IHY,~ I </3 Yoµ ~,FOFF,~ Fµçk off ~,GFU,~ Go Fµçk Yourself ~,HTFU,~ Hµrry The Fµçk Up ~,LMAO,~ Laµghïng My Ass Off ~,LOL,~ Laµghïng Øut Loud ~,NP,~ No Problem ~,PMSL,Þïss Myself Laµghïng,ROFL,~ Rollïng On The Floor Laµghïng ~,FML,~ Fµck My Lïfe! ~,SMD,~ Sµck My !@#$ ~,STFU,~ Shµt The Fµck Up ~,TY,~ Thánk Yoµ ~,HTFB,~ Hµrry The Fµck ßáck ~,HB,~ Hµrry ßáck ~,WB,~ WelÇöme ßáÇk ~,WTF,~ What The Fµck ~,IWK,~ I Wás Kïddïng Brµh Táke It Eásy ~,JK,~ Jµst Kïddïn Brµh ~,BRB,~ Be Rïght Báck ~)
tokenize 32 $replacexcs($1-,x.x,×.×,x_x,×_×,<_>,«.»,<.>,«.»,>.>,».»,>_>,».»,<.<,«.«,<_<,«.«,>_<,».«,>.<,».«,xd,xÐ,:D,:Ð,D:<,Ð:<,:p,:Þ,v.v,[v.v]",:o,:ð,D:,Ð:,<<3,❤,:S,:§,O_O,Ò_Ó,O_o,Ò_ó,o_O,ò_Ó,O.O,Ò.Ó,o.o,ò.ó,O.o,Ò.ó,o.O,ò.Ó,^.^,¤.¤,-.-,¬.¬)
tokenize 32 $regsubex($replacex($1-,dont,don't),/(^[A-z]|[.?!:]\s[A-z]|\bi\b)/g,$upper(\1)) $+ $iif(!$regex($1-,/^[!?@.]|[^A-z0-9]$/S),.)
tokenize 32 $strip($1-,c)

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 == 4) { %mrfw_string.color = %mrfw_color.4 }
elseif (%mrfw_c == 5) { %mrfw_string.color = %mrfw_color.5 }
elseif (%mrfw_c == 6) { %mrfw_string.color = %mrfw_color.6 }

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

Comments

Sign in to comment.
dragonheurt   -  Nov 25, 2012
love it but the 4th color in the row doesnt show please help
 Respond  
BiSoN   -  Oct 18, 2012
Good Job
its a very nice really i like it
 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.