Mine

on *:text:!setgreet*:#: {
  if ($me == pctech318) halt | 
  else  (!$read(Greets.txt,s,$nick)) {
    write greets.txt $nick $2- 
    notice $nick 4Your greet has been set to:5 $2-
  }
  else {
    write -ds $+ $nick Greets.txt
    write Greets.txt $nick $2- 
    notice $nick 4Your greet has been set to:5 $2-
  }
}
on *:join:#: {
  if ($me == pctech318) halt |
  else ($read(Greets.txt,s,$nick)) {
    msg $chan 5 $+ $nick $+ :4 $read(greets.txt,s,$nick)
  }
  else { notice $nick Hello $nick, I am Ecoman318, a bot for the clan Scarlet Empire (http://www.scarletempire.com). My owner is Pctech318. To see a list of my commands please type !commands.
  notice $nick $nick, You have not set a greet yet, to do so please type !setgreet <greet> ,but please keep it clean  }
} 
on *:text:!unsetgreet:#: {
  if ($me == pctech318) halt 
  else
  write -ds $+ $nick Greets.txt
  notice $nick Your greet has been deleted