on *:TEXT:!setgreet*:#: { 
  if ($2 == $null) { 
    notice $nick You must indicate a greet to set one. 
    halt
  }
  if ($read(greet.txt, s, $address($nick,1)) == $null) { 
    write greets.txt $address($nick,1) $2- 
    notice $nick Your greet has been set.
    halt 
  } 
  else {
    write -ds $+ $address($nick,1) greets.txt
    write greets.txt $address($nick,1) $2-
    notice $nick Your greet has been set. 
  } 
}