on *:TEXT:!setgreet*:#:{
  /set %greet $+ $address($nick,4) $2-
  /msg $nick greet updated to " $+ $2- $+ "
}


on *:join:#:{
  if ($eval($+(%,greet,$address($nick,4)),2) != $null) {
    /msg $chan 7,7*12,12* $nick 7,7*12,12* $eval($+(%,greet,$address($nick,4)),2)
  }
  else {
    /msg $nick you do not havre a greet set use !setgreet to set 1
  }
}