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

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - Badnick.tcl (https://www.ircforumlari.net/eggdrop-neostats-bnc/544094-badnicktcl.html)

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..."

Cevap: Badnick.tcl

Kod:

#------------------------------------------------

#

# 
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.

Cevap: Badnick.tcl

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.

Cevap: Badnick.tcl

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

Satrını silmenizyeterlidir Sajoin engelemek için.