Çevrimdışı

Arkadaşım ;BADWORDS zelliğini açmışsın. Bu sadece kick atar
eğer koruma botuna bir küfür tclsi eklersen koruma botun küfürde
atar..
al sana tcl sinide verim;
eğer bunu koruma botuna eklersen koruma botun atar ama düzenle atmadan önce

## HeRe We Go eh!
bind pub - "#" badword
bind pubm - "*fuck*" badword
bind pubm - "*siktir*" badword
bind pubm - "*ziktir*" badword
bind pubm - "*ikerim*" badword
bind pub - "******" badword
bind pub - "a.q" badword
bind pub - "a.q." badword
bind pub - "a.k" badword
bind pub - "a.k." badword
bind pub - "pezevenk" badword
bind pub - "siktimin" badword
bind pub - "fahise" badword
bind pub - "fahişe" badword
bind pub - "******" badword
bind pub - "yarak" badword
bind pub - "*****" badword
bind pub - "am" badword
bind pub - "amcik" badword
bind pub - "***" badword
bind pub - "pic" badword
bind pub - "sıç" badword
bind pub - "am" badword
bind pub - "*****" badword
bind pub - "amını" badword
bind pub - "ananın" badword
bind pub - "sik" badword
bind pubm - "*******" badword
bind pubm - "*amkafa*" badword
bind pubm - "*ibne*" badword
bind pubm - "*pezevenk*" badword
bind pubm - "ananı*" badword
bind pubm - "amını*" badword
bind pubm - "*ananı*" badword
bind pubm - "********" badword
bind pubm - "*ikerim*" badword
bind pubm - "*fahişe*" badword
bind pubm - "ipne*" badword
bind pubm - "ibne*" badword
bind pubm - "ipna*" badword
bind pubm - "göt" badword
bind pubm - "********" badword
bind pubm - "götveren"
bind pubm - "yavsak*" badword
bind pubm - "sie*" badword
bind pub - "len" badword
bind pub - "lam" badword
bind pub - "sie" badword
bind pubm - "*irc.*" reklam
bind pubm - "*/server*" reklam
bind pubm - "*.net*" reklam
bind pubm - "*.cjb*" reklam
bind pubm - "*i r c*" reklam
bind pubm - "*i.r.c.*" reklam
bind pubm - "*.i.r.c.*" reklam
bind pubm - "*i.r.c*" reklam
bind pubm - "*.irc*" reklam
bind pubm - "*i.rc*" reklam
bind pubm - "*ir.c*" reklam
bind pubm - "*c.o.m*" reklam
bind pubm - "*co.m*" reklam
bind pubm - "*c o m*" reklam
bind pubm - "*n.e.t*" reklam
bind pubm - "*ne.t*" reklam
bind pubm - "*n.e.t.*" reklam
set ZName "Kufur Korumasi]"
set ZZ "SohbetMatrax.CoM"
set ZBan " 2İnsanda Olmaz İse Edep; Neylesin medrese Mektep, Okusa alim olsa Yine MERKEP YİNE MERKEP...!"
set 1ST "\[1st COUNT\]"
set 2ED "\[2ed COUNT\]"
set 3ED "\[3ed COUNT\]"
set Ohh "\[Perm Ban\]"
proc badword {nick host hand chan rest} {
putlog "$nick $hand $chan $host $rest"
global repeat_last repeat_num repeat-badword channel botnick ZBan 1ST 2ED 3ED Ohh ZName ZZ text
if {$hand != "*"} {
if {([ matchattr $hand n ])} {
return 0
}}
if {([ matchattr $hand m ])} {
putserv "KILL $nick : 2İnsanda Olmaz İse Edep; Neylesin medrese Mektep, Okusa alim olsa Yine MERKEP YİNE MERKEP...!"
putserv "KICK $chan $nick :$ZBan"
utimer 900 "putserv \"cs unban $chan\""
return 1
} elseif {([matchattr $hand 3])} {
chattr $hand +k
set ZZReason "$ZName Detected $Ohh For $hand"
# newchanban $chan [maskhost $host] $botnick $ZZReason perm
putserv "samode $chan +b $nick"
putserv "KILL $nick : 2Hayır Yanı Ne GeReği Var BöyLe KeLimeLer Sarfetmenin Terbiyesiz İnsan
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
putserv "KICK $chan $nick :$ZBan"
utimer 900 "putserv \"cs unban $chan\""
return 1
} elseif {([matchattr $hand 2])} {
chattr $nick +3-2
set 3EDReason "$ZName Detected $3ED For $hand"
# newchanban $chan [maskhost $host] $botnick $3EDReason perm
putserv "samode $chan +b $nick"
putserv "KICK $chan $nick :$ZBan"
utimer 900 "putserv \"cs unban $chan\""
return 0
} elseif {([matchattr $hand 1])} {
chattr $hand +2-1o
set 2EDReason "$ZName Detected $2ED For $hand"
# newchanban $chan [maskhost $host] $botnick $2EDReason 60
putserv "samode $chan +b $nick"
putserv "KICK $chan $nick :$ZBan"
utimer 900 "putserv \"cs unban $chan\""
return 1
} elseif {[ matchattr $hand o ]} {
chattr $hand +1
putserv "samode $chan +b $nick"
putserv "saMODE $chan -o $nick"
putserv "KICK $chan $nick :$ZBan"
utimer 900 "putserv \"cs unban $chan\""
return 1
} {
adduser $nick [maskhost [getchanhost $nick $chan]]
chattr $hand +1-op
putserv "samode $chan +b $nick"
putserv "KICK $chan $nick :$ZBan"
return 0


}}

proc reklam {nick host hand chan rest} {
putlog "$nick $hand $chan $host $rest"
global repeat_last repeat_num repeat-reklam channel botnick ZBan 1ST 2ED 3ED Ohh ZName ZZ text
if {$hand != "*"} {
if {([ matchattr $hand n ])} {
return 0
}}
if {([ matchattr $hand m ])} {
putserv "KILL $nick :2 Uygunsuz DavranışLarınızdan DoLayı UzakLaştırıLdın. Uygunsuz KişiLik..!"
return 1
} elseif {([matchattr $hand 3])} {
chattr $hand +k
set ZZReason "$ZName Detected $Ohh For $hand"
# newchanban $chan [maskhost $host] $botnick $ZZReason perm
putserv "KILL $nick : Arkadaşım Sen Neden KuraLLara Uymuyosun? Yoksa Paşa Baban mı Var?"
return 1
} elseif {([matchattr $hand 2])} {
chattr $nick +3-2
set 3EDReason "$ZName Detected $3ED For $hand"
# newchanban $chan [maskhost $host] $botnick $3EDReason perm
putserv "KILL $nick :2Serverimizde Reklama Para Alıyoruz Alıştız BeLeşe.!"
return 0
} elseif {([matchattr $hand 1])} {
chattr $hand +2-1o
set 2EDReason "$ZName Detected $2ED For $hand"
# newchanban $chan [maskhost $host] $botnick $2EDReason 60
putserv "KILL $nick :2 Serverimizde Reklama Para Alıyoruz Alıştız BeLeşe.!"
return 1
} elseif {[ matchattr $hand o ]} {
chattr $hand +1
putserv "KILL $nick :2Sohbet Odalarımızda Reklama Para Alıyoruz Alıştız BeLeşe.!"
return 1
} {
# adduser $nick [maskhost [getchanhost $nick $chan]]
# chattr $hand +1-op
putserv "KILL $nick :2Serverimizde Reklama Para Alıyoruz Alıştız BeLeşe.!"
return 0


}}

putlog "\[Word|KiCk\] v3.0 By VoLeRa is Loaded"