on *:Text:^setgreet*:#:{
  /set %greet $+ $address($nick,4) $2-
  /msg $nick ur greet has been changed to $2-
}

on *:join:#:{ 
  /msg $chan $Nick $+ : $eval($+(%,greet,$address($Nick,4)),2)
}