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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 28 Mayıs 2009, 16:44   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Çok Önemli Bir Sorun




Slm arkadaşlar.. Kendime koruma yaptım eggdrop halinde kufur.tcl yükledim bot kufur edildiğinde çok geç algılıyo ve bazen hiç atmıyo oper girdiğimde yazıyorum deneme amaçlı atıyo odadan ama user olarak geldiğimde küfür ediyorum atmıyo ne yapabilirim... Saygılarımla..

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 28 Mayıs 2009, 23:32   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Çok Önemli Bir Sorun




TCL'i görmeden sana şunu yap diyemeyiz hangi foksiyonları kullanarakdan oluşturdunuz tcl'i ? v.s

 
Alıntı ile Cevapla

Alt 29 Mayıs 2009, 09:39   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Çok Önemli Bir Sorun




set bword "badword1"
set ban-time 10
##Kanaldan Ban mesaji.
set Ban "Kanalda Kufur Etmek Yasaktir.!"
set flag1 Y
set flag2 E
set flag3 G
###Botun kanaldan aticagi kufurlerin listesi
bind pubm - "*fuck*" badword
bind pubm - "*bastard*" badword
bind pubm - "*cock *" badword
bind pub - "cunt" badword
bind pub - "nigger" badword
bind pubm - "*fag*" badword
bind pubm - "*shit*" badword
bind pubm - "am" badword
bind pubm - "got*" badword
bind pubm - "sik" badword
bind pubm - "göt" badword
bind pubm - "sikiyim" badword
bind pubm - "amnı" badword
bind pubm - "dasak*" badword
bind pubm - "sikeyim" badword
bind pubm - "*amına koyayım*" badword
bind pubm - "fahi$" badword
bind pubm - "ibna" badword
bind pubm - "amcug" badword
bind pubm - "İbine" badword
bind pubm - "ALETİMİ" badword
bind pubm - "sıkıme" badword
bind pubm - "sikime" badword
bind pubm - "khbe" badword
bind pubm - "amınız" badword
bind pubm - "ŞikeÇem" badword
bind pubm - "amına" badword
bind pubm - "gÖdÖs" badword
bind pubm - "siktirgit" badword
bind pubm - "sikim" badword
bind pubm - "yalarım" badword
bind pubm - "yalarim" badword
bind pubm - "*orozpu*" badword
bind pubm - "orozpu" badword
bind pubm - "pic" badword
bind pubm - "penıs" badword
bind pubm - "sokturma" badword
bind pubm - "sİkek" badword
bind pubm - "*kaltak" badword
bind pubm - "aq" badword
bind pubm - "a.k" badword
bind pubm - "onun bunun" badword
bind pubm - "sıç" badword
bind pubm - "sic" badword
bind pubm - "siçarim" badword
bind pubm - "kancık" badword
bind pubm - "*****" badword
bind pubm - "kancik" badword
bind pubm - "*bitch*" badword
bind pubm - "*pussy*" badword
bind pubm - "qavat" badword
bind pub - "seks" badword
bind pub - "***" badword
bind pub - "sakso" badword
bind pub - "yalarım" badword
bind pub - "yalarim" badword
bind pub - "zittir" badword
bind pub - "whore" badword
bind pub - "whore" badword
bind pub - "slut" badword
bind pub - "dickhead" badword
bind pub - "pezevenk" badword
bind pub - "nigger" badword
bind pub - "******" badword
bind pub - "sik" badword
bind pub - "maricone" badword
bind pub - "suck" badword
bind pub - "shithead" badword
bind pub - "prick" badword
bind pub - "***" badword
bind pub - "******" badword
bind pubm - "*amc*" badword
bind pubm - "*sike*" badword
bind pub - "salak" badword
bind pubm - "*got*" badword
bind pub - :picos: badword
bind pub - "******" badword
bind pub - "******" badword
bind pub - "pic" badword
bind pubm - "*yarrag*" badword
bind pubm - "*******" badword
bind pubm - "*amcik*" badword
bind pubm - "*y4r4k*" badword
bind pubm - "*domaltırım*" badword
bind pubm - "*domal*" badword
bind pubm - "*s2ci*" badword
bind pubm - "*s1ker1m*" badword
bind pubm - "*döl*" badword
bind pubm - "*sakso*" badword
bind pubm - "*zikerim*" badword
bind pubm - "*penis*" badword
bind pubm - "*vajina*" badword
bind pubm - "*vacina*" badword
bind pubm - "*a.q*" badword
bind pubm - "*aq*" badword
bind pubm - "*am*" badword
bind pubm - "*amk*" badword
bind pubm - "*sokarım*" badword
bind pubm - "*seks*" badword
bind pubm - "*amkılı*" badword
bind pubm - "*ananı*" badword
bind pubm - "*anani*" badword
bind pubm - "*skerim*" badword
bind pubm - "******" badword
bind pubm - "*kürt*" badword
bind pubm - "*kurd*" badword
bind pubm - "*salak*" badword
bind pubm - "*gerizekalı*" badword
bind pubm - "*a.k*" badword
bind pubm - "**********" badword
bind pubm - "*serefsiz*" badword
bind pubm - "*pezevenk*" badword
bind pubm - "*abaza*" badword
bind pubm - "*s'ker'm*" badword
bind pubm - "*sokarım*" badword
bind pubm - "*sokarim*" badword
bind pubm - "*zokarım*" badword
bind pubm - "*amuhunu*" badword
bind pubm - "*şerrefsiz*" badword
bind pubm - "*******" badword
bind pubm - "**********" badword
bind pubm - "*serefini*" badword
bind pubm - "*amcunu*" badword
bind pubm - "*kahpe*" badword
bind pubm - "*skerim*" badword
bind pubm - "******elim*" badword

proc badword {nick uhost hand chan rest} {
putlog "$nick $uhost $hand $chan $rest"
global botnick ban-time Ban bword
if {([ matchattr $hand f ])} {
putserv "PRIVMSG $chan :\002$nick\002 dua et tanidiksin, genede bi daha kufur etme.!"
return 1
} elseif {([matchattr $hand G])} {
chattr $nick +dk
setuser $nick COMMENT "4 Kotu Kelime Yasaklandi."
putserv "PRIVMSG $chan :$nick Hosgeldiniz.."
putserv "KICKBAN $chan $nick :$Ban \[Perm\]"
return 1
} elseif {([matchattr $hand E])} {
chattr $nick +dkG-E
putserv "PRIVMSG $chan :$nick adli kullanici kufur kullanmaya devam ettiginden dolayi kanaldan temelli atilmistir"
putserv "PRIVMSG $nick :Sana verilen sanslari degerlendirmedin vede bu kanaldan temelli olarak atildin.! Eger bu sekilde davranmaya devam edersen, serverdan da atilicaksin.!"
putserv "PRIVMSG $chan :Arkadaslar Lutfen Kanal Kurallarina Uyalim. Kanal Genelinde kufur etmek yasaktir. Kanalda kufur edenler kanaldan direkman uzaklistiralacaklardir.!"
set banlamer [maskhost [getchanhost $nick $chan]]
newban $banlamer Badword $Ban 120 none
setuser $nick COMMENT "3 Bad Word Offenses"
return 1
} elseif {([matchattr $hand Y])} {
chattr $nick +E-Y
putserv "PRIVMSG $chan :$nick adli kullanici kufur kullanmaya devam ettiginden dolayi kanaldan temelli atilmistir"
set banlamer [maskhost [getchanhost $nick $chan]]
newban $banlamer Badword $Ban 10 none
setuser $nick COMMENT "2 Bad Word Offenses"
return 1
}
adduser $nick [maskhost [getchanhost $nick $chan]]
putserv "PRIVMSG $chan :Arkadaslar Lutfen Kanal Kurallarina Uyalim. Kanal Genelinde kufur etmek yasaktir. Kanalda kufur edenler kanaldan direkman uzaklistiralacaklardir.!"
putserv "PRIVMSG $nick :Server ve Kanal Kurallarina Uymadiginizdan dolayi Kanaldan uzaklatirildiniz. Baniniz 10 dakka icin acilicaktir. Eger tekrar kufur kullanirsaniz kalici banla cezalandirilicaksiniz."
set banlamer [maskhost [getchanhost $nick $chan]]
newban $banlamer Badword $Ban 10 none
setuser $nick COMMENT "2 Bad Word Offenses"
putserv "KICKBAN $chan $nick :Lutfen Knal Kurallarina Uyalim.!"
chattr $nick +E
setuser $nick PASS $bword
setuser $nick COMMENT "1st Offense Badword"
return 0
}
putlog "NetHost"



Tcl si bu ve ban atıyo bir süre sonra açmıyo Ghostly ban öyle kalıyo.. Msn Adresmini eklersen Sevinirim



Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
SaygıLarımla

 
Alıntı ile Cevapla

Cevapla

Etiketler
bîr, cok, onemli, sorun


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
İyi Akşamlar Önemli Bir Sorun Ustalardan Yardım Lütfen maxiumut Servisler 4 08 Ocak 2010 16:42
Cycle da önemli bir sorun.. Askyagmuru Eggdrop, NeoStats, BNC 1 03 Haziran 2009 01:03