on *:text:!setgreet *:#: {
  if ($me != \seaN) {
    if ($chr(36) !isin $2- && $chr(37) !isin $2- && $chr(36) !isin $2-) {
      set $+(%,$nick,greet) [12 $+ $nick $+ ]: $2-
      notice $nick Greet successfully changed to: $2-
    }
    else {
      notice $nick Illegal character(s). Ignored for 5 minutes.
    ignore -u300 $nick }
  }
}

on *:join:#: { 
  if ($chan != #) {
    if ($me != \sean) {
      if ($len($eval($+(%,$nick,greet),2)) > 0) {
        msg $chan $eval($+(%,$nick,greet),2) 
        elseif (!$eval($+(%,$nick,greet),2) {
          notice $nick You do not have a greet set. Set it with !setgreet greet, or type nothing to unset it.
        }
      }
    }
  }
}