Neler yeni

IRCForumları - IRC ve mIRC Yardım ve Destek Platformu - İRCforumlari

Duyuru; 📢

Forumda 'Tanıtım Yazısı' şeklinde Sitelerinizin Tanıtımını Yaparak sitenizi yükselte bilirsiniz.İRCForumları Ailesi İyi Forumlar Diler.!

PM Kuralları; 📢

Forumunda yer alan bir konuya istineden kesinlikle (özel mesaj) yolu ile destek talep etmeyiniz, zira bu tip alınan mesajlar kesinlikle cevapsız kalacaktır. İlgili konuya istinaden forumda destek konusu oluşturunuz.

İçerik hk; 📢

Sizde bilgi deneyim sahibi olduğunuz konu ve alanları forumda kolayca paylaşarak daha geniş kitlelere ulaşmasını sağlayabilir, oluşturduğunuz ticari konular sayesinde kazanç elde edebilirsiniz.

sohbet Online Okey Reklam Reklam
okey oyna

Küfür koruma.tcl

Root

Forum Sahibi
Yönetici
1 Şub 2022
1,301
221
63
www.ircforumlar.com
Küfür koruma.tcl
Kod:
#Kick yada oper ise kill mesaji
set bansebebi "Kufur Ettiginiz icin Banlandiniz..!"

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

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

set opass "operpass"

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

set kufurler {
"am"
"got"
"sik*"
"göt*"
"düzerim"
"duzerim"
"sık*"
"sokar*"
"yalarım"
"yalarim"
"********"
"*orozpu*"
"yarrak*"
"******"
"pic"
"*****"
"yarrag"
"hasiktir"
"*siker*"
"*amci*"
"*amcı*"
"*ibne*"
"gotun*"
}


# Bu kadar..!



bind pubm - * kufurban


# DOKUNMAYIN..!
# Dokunma hacı...



bind evnt - init-server botoper_yap

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

 

Benzer konular

shape1
shape2
shape3
shape4
shape7
shape8
Üst