Unnamed

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-
if ($me isop $chan) { 
    var %nick = <@ $+ $me $+ > 
  } 
  elseif ($me ishop $chan) { 
    var %nick = <% $+ $me $+ > 
  } 
  elseif ($me isvoice $chan) { 
    var %nick = <+ $+ $me $+ > 
  } 
  else { 
    var %nick = < $+ $me $+ > 
  } 
  
  .echo -t $active %nick $chr(2) $+ $replace(%text,_,$chr(32))
  .msg $active $chr(2) $+ $replace(%text,_,$chr(32))
  halt 
}
#
#rainbow end
#
#christmas off
#
on *:input:#:{
/r $1-
if ($me isop $chan) { 
    var %nick = <@ $+ $me $+ > 
  } 
  elseif ($me ishop $chan) { 
    var %nick = <% $+ $me $+ > 
  } 
  elseif ($me isvoice $chan) { 
    var %nick = <+ $+ $me $+ > 
  } 
  else { 
    var %nick = < $+ $me $+ > 
  } 
  
  .echo -t $active %nick $chr(2) $+ $replace(%text,_,$chr(32))
  .msg $active $chr(2) $+ $replace(%text,_,$chr(32))
  halt 
}
#
#christmas end
#
#holloween off
#
on *:input:#:{
/r $1-
if ($me isop $chan) { 
    var %nick = <@ $+ $me $+ > 
  } 
  elseif ($me ishop $chan) { 
    var %nick = <% $+ $me $+ > 
  } 
  elseif ($me isvoice $chan) { 
    var %nick = <+ $+ $me $+ > 
  } 
  else { 
    var %nick = < $+ $me $+ > 
  } 
  
  .echo -t $active %nick $chr(2) $+ $replace(%text,_,$chr(32))
  .msg $active $chr(2) $+ $replace(%text,_,$chr(32))
  halt 
}
#
#holloween end
#
#blood off
#
on *:input:#:{
/r $1-
if ($me isop $chan) { 
    var %nick = <@ $+ $me $+ > 
  } 
  elseif ($me ishop $chan) { 
    var %nick = <% $+ $me $+ > 
  } 
  elseif ($me isvoice $chan) { 
    var %nick = <+ $+ $me $+ > 
  } 
  else { 
    var %nick = < $+ $me $+ > 
  } 
  
  .echo -t $active %nick $chr(2) $+ $replace(%text,_,$chr(32))
  .msg $active $chr(2) $+ $replace(%text,_,$chr(32))
  halt 
}
#
#blood end