Mine

on $*:TEXT:/^[!@.](s(et)?)?greet/Si:#:{
  if (!$2 && $readini(Greets.ini,-n,Greet,$address($nick,2))) {
    notice $nick You greet is now removed
    remini Greets.ini Greet $address($nick,2)
  }
  elseif ($2) {
    writeini Greets.ini Greet $address($nick,2) $2-
    notice $nick Your greet has been set to: $strip($2-)
  }
}
on *:JOIN:#:{
  if ($readini(Greets.ini,-n,Greet,$address($nick,2))) { msg $chan $+([,$nick,]) $ifmatch }
}