this snippet's will be colouring nick when you type a nick who exist in channel, wherever the position of that nick on text you type. Just Paste this in your remote (Alt + r)
-----------------------------------------------------------------
;to activate it ..type /enable #nstyle
;to deactivate it ..type /disable #nstyle
alias -l ncs say $nickcolr($1-)
alias -l rand:col {
if ($len($1-) == 1) {
unset %nc.mid %nc.last %nc.rest %nc.ranfirst %nc.ranlast
set %nc.first $left($1-,1)
set %nc.rndclr $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32)
set %nc.ranclr $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32)
set %nc.rancol $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32)
goto $rand(1,37)
}
elseif ($len($1-) == 2) {
unset %nc.mid
set %nc.first $left($1-,1)
set %nc.last $right($1-,1)
set %nc.rest $mid($1-,2,$calc($len($1-) - 1))
set %nc.ranfirst $left($1-,$rand(1,$len($1-)))
set %nc.ranlast $right($1-,$calc($len($1-) - $len(%nc.ranfirst)))
set %nc.rndclr $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32)
set %nc.ranclr $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32)
set %nc.rancol $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32)
goto $rand(1,37)
}
else {
set %nc.first $left($1-,1)
set %nc.last $right($1-,1)
set %nc.mid $mid($1-,2,$calc($len($1-) - 2))
set %nc.rest $mid($1-,2,$calc($len($1-) - 1))
set %nc.ranfirst $left($1-,$rand(1,$len($1-)))
set %nc.ranlast $right($1-,$calc($len($1-) - $len(%nc.ranfirst)))
set %nc.rndclr $chr(3) $+ $gettok(01 02 03 04 05 06 07 10 11 12 13 14,$rand(1,12),32)
set %nc.ranclr $chr(3) $+ $gettok(01 02 03 04 05 06 07 10 11 12 13 14,$rand(1,12),32)
set %nc.rancol $chr(3) $+ $gettok(01 02 03 04 05 06 07 10 11 12 13 14,$rand(1,12),32)
goto $rand(1,37)
:1
return $chr(3) $+ 04 $+ %nc.first $+ $chr(3) $+ 03 $+ %nc.first $+ $chr(3) $+ 02 $+ $1- $+ $chr(3) $+ 03 $+ %nc.last $+ $chr(3) $+ 04 $+ %nc.last $+ $chr(3) | return
:2
return $chr(3) $+ 15 $+ %nc.first $+ $chr(3) $+ 14 $+ %nc.first $+ $chr(3) $+ 12 $+ $1- $+ $chr(3) $+ 14 $+ %nc.last $+ $chr(3) $+ 15 $+ %nc.last $+ $chr(3) | return
:3
return $chr(3) $+ 02 $+ $chr(31) $+ %nc.first $+ $chr(31) $+ %nc.rndclr $+ %nc.mid $+ $chr(3) $+ 02 $+ $chr(31) $+ %nc.last $+ $chr(31) $+ $chr(3) | return
:4
return $chr(3) $+ 12[ $+ $chr(3) $+ 02 $+ %nc.first $+ $chr(3) $+ 10 $+ %nc.mid $+ $chr(3) $+ 02 $+ %nc.last $+ $chr(3) $+ 12] $+ $chr(3) | return
:5
return $chr(2) $+ $chr(3) $+ 04×* $+ $chr(2) $+ $chr(3) $+ 02 $+ $chr(31) $+ $1- $+ $chr(31) $+ $chr(2) $+ $chr(3) $+ 04*× $+ $chr(2) $+ $chr(3) | return
:6
return $chr(3) $+ 06ª $+ $chr(3) $+ 02 $+ $1- $+ $chr(3) $+ 06ª $+ $chr(3) | return
:7
return $chr(3) $+ 03 $+ %nc.ranfirst $+ $+ $chr(31) $+ $chr(3) $+ 12 $+ %nc.ranlast $+ $chr(3) $+ $chr(31) | return
:8
return $chr(3) $+ 12[ $+ $chr(3) $+ $1- $+ $chr(3) $+ 12] $+ $chr(3) | return
:9
return $chr(31) $+ %nc.first $+ $chr(31) $+ %nc.mid $+ $chr(31) $+ %nc.last $+ $chr(31) | return
:10
return $chr(31) $+ $chr(3) $+ 04 $+ %nc.first $+ $chr(31) $+ $chr(3) $+ 03 $+ %nc.rest $+ $chr(3) | return
:11
return $chr(3) $+ 06 $+ %nc.ranfirst $+ $chr(3) $+ 14 $+ %nc.ranlast $+ $chr(3) | return
:12
return $chr(3) $+ 04 $+ × $+ $chr(3) $+ 02 $+ $1- $+ $chr(3) $+ 04 $+ × $+ $chr(3) | return
:13
return $chr(3) $+ 04¿ $+ $chr(3) $+ 03 $+ $1- $+ $chr(3) $+ 04? $+ $chr(3) | return
:14
return $chr(3) $+ 12÷ $+ $chr(3) $+ 04 $+ %nc.ranfirst $+ $chr(3) $+ 14 $+ %nc.ranlast $+ $chr(3) $+ 12÷ $+ $chr(3) | return
:15
return $chr(3) $+ 03‡ $+ $chr(3) $+ 12 $+ $1- $+ $chr(3) $+ 03‡ $+ $chr(3) | return
:16
return $chr(3) $+ 03§ $+ $chr(3) $+ 12 $+ $1- $+ $chr(3) $+ 03§ $+ $chr(3) | return
:17
return $chr(3) $+ 03~ $+ $chr(3) $+ 12 $+ %nc.ranfirst $+ $chr(3) $+ 04 $+ %nc.ranlast $+ $chr(3) $+ 03~ $+ $chr(3) | return
:18
return %nc.rndclr $+ %nc.first $+ %nc.rancol $+ %nc.mid $+ %nc.ranclr $+ %nc.last $+ $chr(3) | return
:19
return $chr(3) $+ 12 $+ %nc.ranfirst $+ $chr(3) $+ 07 $+ %nc.ranlast $+ $chr(3) | return
:20
return $chr(3) $+ 04¡ $+ $chr(3) $+ 14 $+ %nc.ranfirst $+ $chr(3) $+ 12 $+ %nc.ranlast $+ $chr(3) $+ 04! $+ $chr(3) | return
:21
return $chr(3) $+ 03«» $+ $chr(3) $+ 04 $+ $1- $+ $chr(3) $+ 03«» $+ $chr(3) | return
:22
return $chr(3) $+ 14¦ $+ $chr(3) $+ 04 $+ %nc.ranfirst $+ $chr(3) $+ 03 $+ %nc.ranlast $+ $chr(3) $+ 14¦ $+ $chr(3) | return
:23
return $chr(3) $+ 05¤ $+ $chr(3) $+ 12( $+ $chr(3) $+ 04 $+ $1- $+ $chr(3) $+ 12) $+ $chr(3) $+ 05¤ $+ $chr(3) | return
:24
return $chr(2) $+ $chr(3) $+ 12° $+ $chr(3) $+ 04 $+ %nc.first $+ $chr(3) $+ 10 $+ %nc.mid $+ $chr(3) $+ 04 $+ %nc.last $+ $chr(3) $+ 12° $+ $chr(3) $+ $chr(2) | return
:25
return $chr(3) $+ 02ø $+ $chr(3) $+ 04 $+ %nc.ranfirst $+ $chr(3) $+ 03 $+ %nc.ranlast $+ $chr(3) $+ 02ø $+ $chr(3) | return
:26
return $chr(3) $+ 05¢ $+ $chr(3) $+ 04 $+ %nc.ranfirst $+ $chr(3) $+ 02 $+ %nc.ranlast $+ $chr(3) $+ 05¢ $+ $chr(3) | return
:27
return $chr(3) $+ 12×°× $+ %nc.rndclr $+ $1- $+ $chr(3) $+ 12×°× $+ $chr(3) | return
:28
return %nc.rndclr $+ ( $+ %nc.first $+ ) $+ %nc.ranclr $+ $1- $+ %nc.rndclr $+ ( $+ %nc.last $+ ) $+ $chr(3) | return
:29
return $chr(3) $+ 14|¤| $+ $chr(3) $+ 04 $+ %nc.ranfirst $+ $chr(3) $+ 12 $+ %nc.ranlast $+ $chr(3) $+ 14|¤| $+ $chr(3) | return
:30
return $chr(3) $+ 14|§| $+ $chr(3) $+ 04 $+ %nc.ranfirst $+ $chr(3) $+ 03 $+ %nc.ranlast $+ $chr(3) $+ 14|§| $+ $chr(3) | return
:31
return $chr(3) $+ 01|€| $+ %nc.rndclr $+ %nc.ranfirst $+ %nc.rancol $+ %nc.ranlast $+ $chr(3) $+ 01|€| $+ $chr(3) | return
:32
return $chr(3) $+ 04æ $+ $chr(3) $+ 10 $+ $1- $+ $chr(3) $+ 04æ $+ $chr(3) | return
:33
return $chr(3) $+ 12® $+ $chr(3) $+ 04 $+ $1- $+ $chr(3) $+ 12® $+ $chr(3) | return
:34
return $chr(3) $+ 12© $+ $chr(3) $+ 04 $+ $1- $+ $chr(3) $+ 12© $+ $chr(3) | return
:35
return $chr(3) $+ 12± $+ $chr(3) $+ 04 $+ $1- $+ $chr(3) $+ 12± $+ $chr(3) | return
:36
return $chr(3) $+ 04~~~ $+ $chr(3) $+ 12 $+ $1- $+ $chr(3) $+ 04~~~ $+ $chr(3) | return
:37
return $chr(3) $+ 04• $+ $chr(3) $+ 12 $+ $1- $+ $chr(3) $+ 04• $+ $chr(3) | return
}
}
alias -l nickcolr {
var %ctext = $1-, %i = 0
while (%i < $numtok(%ctext,32)) {
inc %i
var %n = $nick(#,0)
while (%n) {
if ($gettok(%ctext,%i,32) == $nick(#,%n)) { %ctext = $replace(%ctext,$nick(#,%n),$rand:col($nick(#,%n))) | return %ctext }
dec %n
}
}
return $1-
}
#nstyle off
on *:input:#:if ($left($1,1) == $readini mirc.ini text commandchar) { return } | if ($active ischan) && (c isin $chan(#).mode) { say $strip($1-) | halt } | else { ncs $1- | halt }
#nstyle end
-----------------------------------------------------------------
Hey Join Us At /server irc.7chatlovers.net , Join #AllniteCafe
Thanks
