Someone

on *:TEXT:`setgreet*:#: {
  set %greet $+ $nick $2-
  msg $chan 15 $+ $nick $+ , Your greet for $chan has been set to:15 $2- $+ .
}
on *:TEXT:`unset*:#: {
  unset %greet $+ $nick $2-
  msg $chan 15 $+ $nick $+ , Your greet for $chan has been unset $2- $+ .
}
on *:JOIN:#: {
  msg $chan [ $+ $nick $+ ]: %greet [ $+ [ $nick ] ]
}
else if (%greet [ $+ [ $nick ] ] == $null) {
  notice $nick To set a greet for $chan type: [ `setgreet (greet message here) ]
}