Someone

alias halloween {
  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 blood {
  if ($1 == on) { //echo -a You have just enabled blood colors! | enable #blood }
  if ($1 == off) { //echo -a You have just disabled blood colors! | disable #blood }
}
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 domino {
  if ($1 == on) { //echo -a You have just enabled domino colors! | enable #dom }
  if ($1 == off) { //echo -a You have just disabled domino colors! | disable #dom }
}
alias h {
  if ($left($1-,1) == /) { $1- | halt } 
  var %color1 = 14
  var %color2 = 7
  var %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 }
    if ($mid(%tehthing,%x,1) == $chr(44)) { 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 $chr(2) $+ $replace(%text,_,$chr(32))
  halt
}
alias b {
  if ($left($1-,1) == /) { $1- | halt } 
  var %color1 = 5
  var %color2 = 1
  var %color3 = 14
  var %tehthing = $replace($1-,$chr(32),_)
  var %x = 0
  var %o = 0
  :check1
  while (%x < $len(%tehthing)) {
    if (%o < 4) { inc %o 1 }
    if (%o == 4) { dec %o 3 }  
    inc %x 1
    if ($mid(%tehthing,%x,1) isnum) { var %text = %text $mid(%tehthing,%x,1) | goto check1 }
    if ($mid(%tehthing,%x,1) == $chr(44)) { 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 $chr(2) $+ $replace(%text,_,$chr(32))
  halt
}
alias c {
  if ($left($1-,1) == /) { $1- | halt } 
  var %color1 = 4
  var %color2 = 3
  var %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 }
    if ($mid(%tehthing,%x,1) == $chr(44)) { 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 $chr(2) $+ $replace(%text,_,$chr(32))
  halt
}
alias r {
  if ($left($1-,1) == /) { $1- | halt } 
  var %color1 = 4
  var %color2 = 7
  var %color3 = 8
  var %color4 = 3
  var %color5 = 12
  var %color6 = 10
  var %color7 = 13
  var %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 }
    if ($mid(%tehthing,%x,1) == $chr(44)) { 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))
  halt
}
alias d {
  if ($left($1-,1) == /) { $1- | halt } 
  var %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 }
    if ($mid(%tehthing,%x,1) == $chr(44)) { var %text = %text $mid(%tehthing,%x,1) | goto check1 }
    var %text = %text $chr(22) [ $+ [ %o ] ] $+ $mid(%tehthing,%x,1) $+
  }
  var %text = $remove(%text,$chr(32))
  msg $active $replace(%text,_,$chr(32))
  halt
}
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
#blood off
on *:input:#:{ /b $1- | halt }
#blood end
#dom off
on *:input:#:{ /d $1- | halt }
#dom end