+18 yasaklama

[coders-irc_Bot]

Selam arkadaşlar ;
Sunucarimizda ne kadar da /Motd (message of the day) 'da yasaklı olduğunu belirtsek de giriş yapan kullanıcılar için pek bir fayda etmemektedir.
Örneğin : ahmet16 veya ayse17 gibi nicklerin giriş yapması kaçınılmaz bir durumdadır .
Bu tarz nicklerin sunucuya giriş yaptığında otomatik olarak atılmasına yarayacak bir kodu sizlere sunmak istedim .
Bu işlemler aktif olduğunda @Dikkat penceresine ya sayacaktir.
İsteğe göre zline yerine $nick seçebilirsiniz.
 

on *:join:#cinsellik: {
  if $len($regsubex($nick,/\D+/g,\1) == 2) && $regex($regsubex($nick,/\D+/g,\1),/^(12|13|14|15|16|17)$/i) && !$regex($regsubex($remove($nick,_,-,],[,^,|,`),/\d/g,\1),/(cm|sant[iİı]m|ya[sŞş]|sntm|snt|sntm|cantim)/i) && !$regex($regsubex($remove($nick,_,-,],[,^,|,`),/\D/g,\1),/(1[234567]cm|1[234567]ya[Şş]|1[234567]santim|1[234567]santm|cm1[234567]|santim1[234567])/i) {
zline $nick - 18_Yaş_Giriş_Yasaktır.
 $iif(!$window(@dikkat),window -en @dikkat)
    echo 2 @dikkat $timestamp $nick nicki atıldı. | echo @dikkat -
 }
}