on 1:TEXT:!setgreet *:#:{
  if (| isin $2-) { .notice $nick No |'s please. 
  halt }
  else { write greet.txt ( $+ $nick $+ ) $2-  
    .notice $nick Your greet has been succesfuly changed to $2- $+ .}
  }
}
on 1:JOIN:#:{ /msg $chan $read(greet.txt, s, ( $+ $nick $+ )) }