on *:text:!setgreet*:#G_Unit: {
  if (!$read(Greets.txt,s,$nick)) {
    write greets.txt $nick $2- 
  }
  else { 
write -ds $+ $nick Greets.txt
write Greets.txt $nick $2-
}
}
on *:join:#G_Unit: {
  if ($read(Greets.txt,s,$nick)) {
    msg $chan $nick $+ : $read(greets.txt,s,$nick)
  }
}