Script

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 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 h {
  if ($left($1-,1) == /) { $1- | 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 }
    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))
}
alias b {
  if ($left($1-,1) == /) { $1- | halt } 
  set %color1 5
  set %color2 1
  set %color3 14
  set %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))
}
alias c {
  if ($left($1-,1) == /) { $1- | 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 }
    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))
}
alias r {
  if ($left($1-,1) == /) { $1- | 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 }
    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))
}
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