on *:input:#: { if ($regex($1-,/[\.!]giri[sş]\s/Si) && $2) { write girisizinn.txt $2 | msg # $2 için giriş izni verildi. } | elseif ($regex($1-,/[\.!]giri[şs]sil\s/Si) && $2) && $read(girisizinn.txt,w,$2) { write $+(-dl,$2) girisizinn.txt | msg # $2 Giriş izin listesinden silindi. } | elseif $regex($1-,/[\.!]glist$/Si) && ($lines(girisizinn.txt) == 0) { msg # Giriş izin listesi boş. } | elseif $regex($1,/[\.!]glist$/Si)  { msg # Giriş izni verilen kanallar listeleniyor... | .play # girisizinn.txt 1000 } }
on *:join:#: { if ($nick == $me) && !$read(girisizinn.txt,w,#) {  part # } | else { return } }