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