Badnick.tcl - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Shiniori · 23 Ağustos 2013, 20:06

arkadaşlar aşağıdaki küfür tcl dosyasını badnick dosyasına cevirirmisiniz lütfen.

piyasadaki badnick tcl ler kafamı karıstırdı birsey anlamadım ama bu küfür.tcl i yapan arkadas güzel yapmıs bunun badnick versiyonunu istiyorum yardımlarınız şimdiden tşkler.

# Kick yada oper ise kill mesaji
set bansebebi "Sunucuda Kufur Ettiginiz icin Atildiniz Lütfen Bir Daha Yapmayiniz.!"

# Eger bot oper olup reklam yapanlara gline aticaksa
# bu ayari 1 yapin, aksi takdirde dokunmayin..
set botoper "1"

## Bot oper olucaksa oper username ve sifre
## Dikkat, conf dosyanizda baska bir init-server olmadigindan emin olun
set onick "Kraker"

set opass "sikerimanani"

# Kufurler - Eklemek istediginiz kufur varsa asagidan
# ekliyebilirsiniz..

set kufurler {
"am"
"got"
"sik"
"göt"
"düzerim"
"duzerim"
"sık"
"sokar"
"yalarım"
"yalarim"
"orozpu"
"******"
"pic"
"***"
"yarrag"
"hasiktir"
"siker"
"amci"
"amcı"
"ibne"
"******"
"*****"
"amc1k"
"siktir"
"********"
"P1C"
"P1Ç"
"AMINA"
"ipne"
"********"
}

# Bu kadar..!

bind pubm - * kufurban

# DOKUNMAYIN..!
# Dokunmak delikanliyi bozar ;P

proc botoper_yap {type} {
global onick opass
if {$botoper == 1} {
putquick "OPER $onick $opass"
}
}

proc kufurban {nick uhost hand chan rest} {
global kufurler botoper bansebebi
foreach w $kufurler {
if {[string match -nocase "* $w *" " $rest "] && ![isop $nick $chan]} {
if {$botoper == 1} {
putquick "GLINE +*[string range $uhost [string first @ $uhost] e] 1d :$bansebebi" -next
putquick "KILL $nick :$bansebebi" -next
return 1
} else {
putquick "MODE $chan +b *!*[string range $uhost [string first @ $uhost] e]" -next
putkick $chan $nick $bansebebi
return 1
}
}
}
}

putlog "Kufur.tcl 2.0 by Stonkeep Yuklendi..."

MesqeN · 23 Ağustos 2013, 21:36

Kod: Kodu kopyalamak için üzerine çift tıklayın!

#------------------------------------------------
#
# 
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ı"

buyur bunu Kulan.

Shiniori · 24 Ağustos 2013, 05:03

tşk ederim ama bu olmuyor ben eschat okey sistemli irc kuılandığım icin webden girenler sadece tek salona girebiliyorlar o yüzden sajoin li istemiyorum zaten ilk mesajımda belirtmiştim vermiş olduğumun aynısını sadece badnick olanını istiyorum suan kullandıgım küfür.tcl cok güzel o yüzden badnick versiyonunu arıyorum insallah anlatabilmisimdir tşkler simdiden.

MesqeN · 25 Ağustos 2013, 00:15

putserv "sajoin $nick #***,#gay,#lezbiye"

Satrını silmenizyeterlidir Sajoin engelemek için.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
BADNICK Hk.	Prens	mIRC Scripting Sorunları	6	30 Mart 2013 02:37
Badnick	Kay	mIRC Scripting Sorunları	1	14 Haziran 2010 15:52
badnick	AtLaNTa	mIRC Scripting Sorunları	8	28 Şubat 2009 17:09
BadNicK!	ask_bocugu	mIRC Scripting Sorunları	5	26 Aralık 2008 14:27

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.