Stuff

on *:INPUT:#:{ 
  if ( $left($1-,3) == raw ) {
    say $1- | halt 
  }
  if ( $left($1-,1) == ! ) || ( $left($1-,1) == @ ) {
    say $1- | halt 
  }
  if ( $right($1-,9) == CondomBot ) {
    say $1- | halt 
  }
  if ($regex($chan(#).mode,c)) { 
    if ( $left($1-,1) != / ) {
      say $1- | halt 
    }
  }
  if ( %con == on ) {
    if ( $left($1-,1) != / ) { 
      say $replace($1-,$1-,%colour $+ $1-) | halt
    }
  }
}

alias con {
  echo Colours are now on.
  set %con on
  set %onoroff On.
}

alias coff {
  echo Colours are now off.
  unset %con
  set %onoroff Off.
}
alias c {
  echo Colours are %onoroff
}

alias colour {
  if ( $1 == blue ) { set %colour 12 }
  if ( $1 == red ) { set %colour 4 }
  if ( $1 == green ) { set %colour 3 }
  if ( $1 == $null ) { set %colour 1 }
  if ( $1 == brown ) { set %colour 5 }
  if ( $1 == teal ) { set %colour 10 }
  if ( $1 == yellow ) { set %colour 8 }
  if ( $1 == gray ) { set %colour 14 }
  if ( $1 == purple ) { set %colour 6 }
  if ( $1 == orange ) { set %colour 7 }
  if ( $1 == pink ) { set %colour 13 }
  if ( $1 == cyan ) { set %colour 11 }
}