on *:TEXT:!setgreet *:#: {
  write greets.txt $address($nick,2) $$2-
  .notice $nick You're default greet has been set to12 $$2- 
}
on *:JOIN:#: {
  msg $chan [4 $nick ] $gettok($read(Greets.txt,w,$+($address($nick,2),*)),2,32) $replace($3-,$chr(32),-)
}