#------------------------------------------------
#
# 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Com / Org 
# MsqN
#------------------------------------------------
set badkicker { 
"penis" 
"fuck" 
"SANAL_SIKICI" 
"sanalsevermisin" 
"***delisi" 
"***xxxxmm19cm" 
"sikici_m_" 
"tecavuz" 
"sikicii" 
"TeLDe__" 
"amdelisi" 
"zembut" 
"amgotisterim" 
"amgotsikerim" 
"sutyen" 
"vagina" 
"ammin_nasil" 
"ANNENE21cm" 
"annenisikeyim" 
"telde-f-" 
"cam_olgunM_evde" 
"sertsikici" 
"jigolo" 
"camda" 
"CAMDA_31cekiyom" 
"CPLKMCAM" 
"camda18santim_yrk_" 
"Esini_gizli_izlet" 
"evde_mini_giyen_varm" 
"evli_f_araniyor" 
"evli" 
"evlilere_3cu_27m" 
"evlilere_" 
"ICINDEHISSET_MM" 
"irimemelifvarmii" 
"camda_21_Santim" 
"camda_18_cm" 
"******m_olurmusun" 
"******" 
"*****" 
"pic" 
"CAMDA_PATLICAN_" 
"camdasiker" 
"camda***" 
"camda" 
"cam" 
"kiza_yrrk" 
"kizgibi" 
"camda-a" 
"darbeli" 
"cam_pasif" 
"cam_aktif" 
"trv" 
"travesti"
"Ayak" 
} 
#------------------------------------------------
#
# 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Com / Org 
# MsqN
#------------------------------------------------
set gelistirci "KOD 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Tarafindan gelistirilmistir" 
bind nick - * Detected_changebad 
proc Detected_changebad {nick uhost hand chan newnick} { 
global badkicker botnick 
if {(![matchattr $hand b]) && ($nick != $botnick)} { 
foreach badchange [string tolower $badkicker] { 
if {[string match *$badchange* [string tolower $newnick]]} { 
set banmask "*!*[string range $uhost [string first "@" $uhost] end]" 
putserv "MODE $chan +b $banmask" 
putserv "KICK $chan $newnick :Lütfen Uygunsuz Nickler Kullanmayınız. Nickinizin uygun oldugu kanalara gönderildiniz ! " 
putserv "sajoin $nick #***,#gay,#lezbiye" 
return 0 
} 
} 
} 
} 
putlog "${gelistirci}" 
putlog "Yükleme Tamamlandı"