on *:TEXT:`setgreet*:#: {
  set %greet $+ $nick $2-
  msg $chan 15 $+ $nick $+ , Your greet for $chan has been set to:15 $2- $+ .
}
on *:JOIN:#: {
  notice $nick [ $+ $nick $+ ]: %greet [ $+ [ $nick ] ]
}