Something

alias holloween {
  if ($1 == on) { //echo -a You have just enabled Holloween colors! | enable #holloween }
  if ($1 == off) { //echo -a You have just disabled Holloween colors! | disable #holloween }
}
alias rainbow {
  if ($1 == on) { //echo -a You have just enabled rainbow colors! | enable #rainbow }
  if ($1 == off) { //echo -a You have just disabled rainbow colors! | disable #rainbow }
}
alias christmas {
  if ($1 == on) { //echo -a You have just enabled Christmas colors! | enable #Christmas }
  if ($1 == off) { //echo -a You have just disabled Christmas colors! | disable #Christmas }
}
alias h {
  if ($1- == /holloween off) { holloween off | halt }
  if ($1- == /christmas off) { christmas off | halt }
  if ($1- == /rainbow off) { rainbow off | halt }
  if ($1- == /holloween on) { holloween on | halt }
  if ($1- == /rainbow on) { rainbow on | halt }
  if ($1- == /christmas on) { christmas on | halt }
  set %color1 14
  set %color2 7
  set %tehthing $replace($1-,$chr(32),_)
  var %x = 0
  var %o = 0
  :check1
  while (%x <= $len(%tehthing)) {
    if (%o < 3) { inc %o 1 }
    if (%o == 3) { dec %o 2 }  
    inc %x 1
    if ($mid(%tehthing,%x,1) isnum) { var %text = %text $mid(%tehthing,%x,1) | goto check1 }
    var %text = %text $chr(3) $+ %color [ $+ [ %o ] ] $+ $mid(%tehthing,%x,1) $+
  }
  var %text = $remove(%text,$chr(32))
  msg $active $replace(%text,_,$chr(32))
}
alias c {
  if ($1- == /holloween off) { holloween off | halt }
  if ($1- == /christmas off) { christmas off | halt }
  if ($1- == /rainbow off) { rainbow off | halt }
  if ($1- == /holloween on) { holloween on | halt }
  if ($1- == /rainbow on) { rainbow on | halt }
  if ($1- == /christmas on) { christmas on | halt }
  set %color1 4
  set %color2 3
  set %tehthing $replace($1-,$chr(32),_)
  var %x = 0
  var %o = 0
  :check1
  while (%x <= $len(%tehthing)) {
    if (%o < 3) { inc %o 1 }
    if (%o == 3) { dec %o 2 }  
    inc %x 1
    if ($mid(%tehthing,%x,1) isnum) { var %text = %text $mid(%tehthing,%x,1) | goto check1 }
    var %text = %text $chr(3) $+ %color [ $+ [ %o ] ] $+ $mid(%tehthing,%x,1) $+
  }
  var %text = $remove(%text,$chr(32))
  msg $active $replace(%text,_,$chr(32))
}
alias r {
  if ($1- == /holloween off) { holloween off | halt }
  if ($1- == /christmas off) { christmas off | halt }
  if ($1- == /rainbow off) { rainbow off | halt }
  if ($1- == /holloween on) { holloween on | halt }
  if ($1- == /rainbow on) { rainbow on | halt }
  if ($1- == /christmas on) { christmas on | halt }
  set %color1 4
  set %color2 7
  set %color3 8
  set %color4 3
  set %color5 12
  set %color6 10
  set %color7 13
  set %tehthing $replace($1-,$chr(32),_)
  var %x = 0
  var %o = 0
  :check1
  while (%x <= $len(%tehthing)) {
    if (%o < 8) { inc %o 1 }
    if (%o == 8) { dec %o 7 }  
    inc %x 1
    if ($mid(%tehthing,%x,1) isnum) { var %text = %text $mid(%tehthing,%x,1) | goto check1 }
    var %text = %text $chr(3) $+ %color [ $+ [ %o ] ] $+ $mid(%tehthing,%x,1) $+
  }
  var %text = $remove(%text,$chr(32))
  msg $active $replace(%text,_,$chr(32))
}
alias lc return $chr(3),%color,%o)
#rainbow off
on *:input:#: /r $1- | halt
#rainbow end
#christmas off
on *:input:#:{ /c $1- | halt }
#christmas end
#holloween off
on *:input:#: /h $1- | halt
#holloween end