[Askyagmuru]

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

[GhostLy]

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

[Askyagmuru]

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