on *:open:?:if $regex($nick,/^deneme/i) || $read(muafnickler.txt,w,$nick) { closemsg $nick }