on *:TEXT:`setgreet*:#:{
  write greet.txt $2- 
  write nick.txt $nick
  msg $chan 12 The Greet For 4 $nick 12 Has been 4Saved.
}

on *:JOIN:#:{
  if ($nick($nick,2) isin nick.txt $read(greet.txt)) { 
  }
}