on *:TEXT:!setgreet*:#: {
  set %greet $+ $address($nick,4) $2-
msg $chan 4Greet 11Set 4for11 $nick
}

on *:TEXT:!saygreet*:#: {
msg $iif($eval($+(%,greet,$address($Nick,4)),2),msg $chan  $Nick $+ :  $v1,notice $nick set a greet)
}