on $*:text:/^[!@~.](Set)?Greet(ing)? */Si:#: {
  if ($chr(36) !isin $2- && $chr(37) !isin $2- && $chr(38) !isin $2- && $chr(124) !isin $2-) {
    set $+(%,$nick,Greet) $2-
    notice $nick Your greet has been successfully set to: $2- $+ . Type !DisableGreet to disable your greet.
    set $+(%,$nick,Greeting) Enabled
  }  
}
on *:join:#: {
  0,13if ($eval($+(%,$nick,Greet),2) != $null && $eval($+(%,$nick,Greeting),2) == Enabled) {
    msg $chan [3 $+ $nick $+ ] $eval($+(%,$nick,Greet),2)
  }
}
on $*:text:/^[!@~.]Dis(able)?Greet(ing)?/Si:#: {
  set $+(%,$nick,Greeting) Disabled
  notice $nick Your greet has been disabled. Type !EnableGreet to re-enable it.
}
on $*:text:/^[!@~.]EnableGreet(ing)?/Si:#: {
  if ($eval($+(%,$nick,Greet),2) != $null) {
    set $+(%,$nick,Greeting) Enabled
    notice $nick Your greet has been enabled. Type !DisableGreet to disable it.
  }
}