Mine

on *:START: {
  if (!$hget(greets)) {
    hmake greets 
  }
  elseif ($hget(greets)) {
    hload greets.hsh
  }
}
on *:EXIT: {
  hsave -a greets greets.hsh
}
on $*:TEXT:/^[!]setgreet?msg/Si:#:{
  if ($1 == !setgreet) && ($2-) {
    if (!$hget(greets,$address($nick,2))) {
      hadd -m greets $address($nick,2) $2-
      notice $nick *** [Greeting]: Your greet message was successfully set as: $2-
    }
    elseif ($hget(greets,$address($nick,2) {
      hdel greets $address($nick,2)
      hadd greets $address($nick,2) $2-
      notice $nick *** [Greeting]: Your greet message was usccessfully changed to: $2-
    }
  }
  elseif (!$2-) {
    if ($hget(greets,$address($nick,2))) {
      hdel greet $address($nick,2)
      notice $nick *** [Greeting]: Your greet message was successfully deleted.
    }
    elseif ($1 == !greet) {
      if ($hget(greets,$address($nick,2))) {
        notice $nick *** [Greeting]: Your current greet is: $hget(greets,$address($nick,2)))
        notice $nick *** [Greeting]: If you are not satisfied with this greet message please type: !setgreet Message
      }
      elseif (!$hget(greets,$address($nick,2))) {
        notice $nick *** [Greeting]: You do not have a greet message. If you wish to set one please type: !setgreet Message
      }
    }
  }
}
on *:JOIN:#:{
  if ($hget(greets,$address($nick,2))) {
    msg $chan [ $+ $nick $+ ]: $hget(greet,$address($nick,2))
  }
}