on 100:TEXT:.takeuser *:#:{
  if ($read(apply.txt,w,$+(*,$2,*))) {
    write -dl $+ $readn apply.txt
    msg $2 0,1 $2 Your application has been sent to: $nick 
  }
  else msg $chan 0,1 This person cannot be helped because he/she has not typed .apply yet 
}