Mine

on $*:text:/^[!@.]setgreet*/Si:#: {
  if (!$2) { .notice $nick Specify A Greet Message. | halt }
  else {
    if ($ip isin $2-) { halt }
    if (privmsg isin $2-) { halt }
    if (nickserv isin $2-) { halt }
    if (ns isin $2-) { halt }
    if (password isin $2-) { halt }
    if (*lf isin $1-) { halt }
    writeini greets.ini $address($nick,2) GREET $2-
    notice $nick Your new greet has been set to: $2- $+
    Halt
  }
}
ON *:JOIN:#:{
  if ($readini(greets.ini,$address($nick,2),GREET)) { /MSG $Chan $+([,$nick,]): $readini(greets.ini,$address($nick,2),GREET) }
}
on *:TEXT:!delgreet*:#: {
  remini greets.ini $address($nick,2) GREET $2-
  notice $nick Greet removed.
}