alias c1 { return $+($chr(3),14,$1-) } 
alias c2 { return $+($chr(3),07,$1-) } 
alias c3 { return $+($chr(3),01,$1-) }

ON $*:TEXT:/^[!@.]setgreet/Si:#:{ 
  if (!$read(greets.txt, s, $address($nick,2))) {
    write greets.txt $address($nick,2) $2-
    notice $nick $c1(Your greet has been set to;) $c2($2-)
  }
  else {
    write -ds $+ $address($nick,2) greets.txt
    write greets.txt $address($nick,2) $2-
    notice $nick $c1(Your new greet has been set to;) $c2($2-)
  }
}

ON $*:TEXT:/^[!@.]greetsettings/Si:#:{ 
  if ($nick isop $chan) || ($address($nick,2) == $address($2,2)) {
    if ($2 == none) {
      write -ds $+ $chan greets.txt
      write greets.txt $chan none
    notice $nick $c2(Greet settings) $c1(set to;) $c2(No Greets) $+ $c1(.) }
    elseif ($2 == op) {
      write -ds $+ $chan greets.txt
      write greets.txt $chan op
    notice $nick $c2(Greet settings) $c1(set to;) $c2(Op only) $+ $c1(.) }
    elseif ($2 == hop) {
      write -ds $+ $chan greets.txt
      write greets.txt $chan hop
    notice $nick $c2(Greet settings) $c1(set to;) $c2(HOp+ only) $+ $c1(.) }
    elseif ($2 == voice) {
      write -ds $+ $chan greets.txt
      write greets.txt $chan voice
    notice $nick $c2(Greet settings) $c1(set to;) $c2(Voice+ only) $+ $c1(.) }
    elseif ($2 == all) {
      write -ds $+ $chan greets.txt
      write greets.txt $chan all
    notice $nick $c2(Greet settings) $c1(set to;) $c2(Everyone) $+ $c1(.) }
    else { 
    notice $nick $c1(SyntaxError:) $c2(!greetsettings) $c1(<) $+ $c2(none) $+ $c1(/) $+ $c2(op) $+ $c1(/) $+ $c2(hop) $+ $c1(/) $+ $c2(voice) $+ $c1(/) $+ $c2(all) $+ $c1(>.) | halt }
  }
}

on !*:JOIN:#:{
  if !$read(greets.txt, s, $address($nick,2)) { | halt }
  elseif ($read(greets.txt, s, $chan) == op) && ($nick isop $chan) { msg $chan $c1([) $+ $c2($nick) $+ $c1(]) $read(greets.txt, s, $address($nick,2)) }
  elseif ($read(greets.txt, s, $chan) == hop) && ($nick ishop $chan) || ($nick isop $chan) { msg $chan $c1([) $+ $c2($nick) $+ $c1(]) $read(greets.txt, s, $address($nick,2)) }
  elseif ($read(greets.txt, s, $chan) == voice) && ($nick isvoice $chan) || ($nick ishop $chan) || ($nick isop $chan) { msg $chan $c1([) $+ $c2($nick) $+ $c1(]) $read(greets.txt, s, $address($nick,2)) }
  elseif ($read(greets.txt, s, $chan) == all) { msg $chan $c1([) $+ $c2($nick) $+ $c1(]) $read(greets.txt, s, $address($nick,2)) }
  elseif ($read(greets.txt, s, $chan) == none) { | halt }
  else { | halt }
}