add to your part 1 to aliases type /neon|/water|/cm|/tpc|/rc to generate,

not my best script. just made this cause i was bored!

NOTE:: **** after the bracket after return %neo ADD script titled part 2
then you can type /on and when you type anything it will do that color, if you dont want it then just remove it!

;rcolor script by Weasel/twango
;i was bored so i made this
;list of colors:
;/neon
;/water
;/cm (christmas)
;/tpc (tropical)
;/rc (random)

r {
  %r =  $+ $rand(2,13)
  return %r
}
rcolor {
  %rcolor = $replace($1-,a,$r $+ a,b,$r $+ b,c,$r $+ c,d,$r $+ d,e,$r $+ e,f,$r $+ f,g,$r $+ g,h,$r $+ h,i,$r $+ i,j,$r $+ j,k,$r $+ k,l,$r $+ l,m,$r $+ m,n,$r $+ n,o,$r $+ o,p,$r $+ p,q,$r $+ q,r,$r $+ r,s,$r $+ s,t,$r $+ t,u,$r $+ u,v,$r $+ v,w,$r $+ w,x,$r $+ x,y,$r $+ y,z,$r $+ z)
  return %rcolor
}
/rc /msg # $rcolor($1-)
g {
  %green =  $+ $rand(3,4)
  return %green
}
$g $+ 
christmas {
  %christmas = $replace($1-,a,$g $+ a,b,$g $+ b,c,$g $+ c,d,$g $+ d,e,$g $+ e,f,$g $+ f,g,$g $+ g,h,$g $+ h,i,$g $+ i,j,$g $+ j,k,$g $+ k,l,$g $+ l,m,$g $+ m,n,$g $+ n,o,$g $+ o,p,$g $+ p,q,$g $+ q,r,$g $+ r,s,$g $+ s,t,$g $+ t,u,$g $+ u,v,$g $+ v,w,$g $+ w,x,$g $+ x,y,$g $+ y,z,$g $+ z)
  return %christmas 3
}
/cm /msg # $christmas($1-)
fn {
  %fn = $nick(#,1,a) $nick(#,2,a) $nick(#,3,a) $nick(#,4,a) $nick(#,5,a) $nick(#,6,a) $nick(#,7,a) $nick(#,8,a) $nick(#,9,a) $nick(#,10,a) $nick(#,11,a) $nick(#,12,a) $nick(#,13,a) $nick(#,14,a) $nick(#,15,a) $nick(#,16,a) $nick(#,17,a) $nick(#,18,a)
  return %fn
}
t {
  %t =  $+ $rand(7,8)
  return %t
}
tp {
  %tp = $replace($1-,a,$t $+ a,b,$t $+ b,c,$t $+ c,d,$t $+ d,e,$t $+ e,f,$t $+ f,g,$t $+ g,h,$t $+ h,i,$t $+ i,j,$t $+ j,k,$t $+ k,l,$t $+ l,m,$t $+ m,n,$t $+ n,o,$t $+ o,p,$t $+ p,q,$t $+ q,r,$t $+ r,s,$t $+ s,t,$t $+ t,u,$t $+ u,v,$t $+ v,w,$t $+ w,x,$t $+ x,y,$t $+ y,z,$t $+ z)
  return %tp
}
/tpc /msg # 7,1 $tp($1-)
w {
  %w =  $+ $rand(10,12)
  return %w
}
wr {
  %wr = $replace($1-,a,$w $+ a,b,$w $+ b,c,$w $+ c,d,$w $+ d,e,$w $+ e,f,$w $+ f,g,$w $+ g,h,$w $+ h,i,$w $+ i,j,$w $+ j,k,$w $+ k,l,$w $+ l,m,$w $+ m,n,$w $+ n,o,$w $+ o,p,$w $+ p,q,$w $+ q,r,$w $+ r,s,$w $+ s,t,$w $+ t,u,$w $+ u,v,$w $+ v,w,$w $+ w,x,$w $+ x,y,$w $+ y,z,$w $+ z)
  return %wr
}
/water //msg # $wr($1-)
ne {
  %ne =  $+ $rand(8,9)
  return %ne
}
neo {
  %neo = $replace($1-,a,$ne $+ a,b,$ne $+ b,c,$ne $+ c,d,$ne $+ d,e,$ne $+ e,f,$ne $+ f,g,$ne $+ g,h,$ne $+ h,i,$ne $+ i,j,$ne $+ j,k,$ne $+ k,l,$ne $+ l,m,$ne $+ m,n,$ne $+ n,o,$ne $+ o,p,$ne $+ p,q,$ne $+ q,r,$ne $+ r,s,$ne $+ s,t,$ne $+ t,u,$ne $+ u,v,$ne $+ v,w,$ne $+ w,x,$ne $+ x,y,$ne $+ y,z,$ne $+ z)
  return %neo
}
*part 2*

alias on /set %rdc on | set %type / $+ $$1
alias off /set %rdc off
on *:input:#: {
  if (/ !isin $1) && (%rdc == on) { %type $1- | halt }
  if (/ isin $1) { $1- | halt }
}