Tekil Mesaj gösterimi
Alt 19 Aralık 2007, 01:24   #8
Çevrimdışı
seal
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Küfür ve Reklam Koruma Botu




aCoustiC Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
putserv "GLINE $nick :4Server reklami yasaktir

putserv "GLINE $nick :$ZBan"

yazan tum satirlarin ustune

PUTSERV "MODE $chan +b $nick"

diye eklersen gline atilmadan once ban islemi kanalda uygulanir.

Bunu aynen yaptım ama sanırım bir yerde eksik bişey mi yapıyorum anlayamadım. Bu sefer koruma botum küfürlerde Gline de atmamaya başlamıştı, geçici olarak eskiye dönmüştüm. Şu şekilde yapmıştım

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
## HeRe We Go eh! 
bind pubm "*fuck*" badword 
bind pub 
"orosp*" badword 
bind pub 
"orosb*" badword 
bind pubm 
"irc.*" reklam 
bind pubm 
"*.com" reklam 
bind pubm 
"*.c o m" reklam 
bind pubm 
"*.net" reklam 
bind pubm 
"*.n e t" reklam 
set ZName 
"Kufur Korumasi]" 
set ZZ "-=( ZimoZimo )=-" 
set ZBan "4Kufurlu yazilar yazmayin" 
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 

}} 
if {([ 
matchattr $hand m ])} { 
PUTSERV "MODE $chan +b $nick"
putserv "GLINE $nick :$ZBan
return 
} elseif {([matchattr $hand 3])} { 
chattr $hand +
set ZZReason 
"$ZName Detected $Ohh For $hand
# newchanban $chan [maskhost $host] $botnick $ZZReason perm 
PUTSERV "MODE $chan +b $nick"
putserv "GLINE $nick :$ZBan
return 
} elseif {([matchattr $hand 2])} { 
chattr $nick +3-
set 3EDReason 
"$ZName Detected $3ED For $hand
# newchanban $chan [maskhost $host] $botnick $3EDReason perm 
PUTSERV "MODE $chan +b $nick"
putserv "GLINE $nick :$ZBan
return 
} elseif {([matchattr $hand 1])} { 
chattr $hand +2-1o 
set 2EDReason 
"$ZName Detected $2ED For $hand
# newchanban $chan [maskhost $host] $botnick $2EDReason 60 
PUTSERV "MODE $chan +b $nick"
putserv "GLINE $nick :$ZBan
return 
} elseif {[ matchattr $hand o ]} { 
chattr $hand +
PUTSERV 
"MODE $chan +b $nick"
putserv "GLINE $nick :$ZBan
return 
} { 
adduser $nick [maskhost [getchanhost $nick $chan]] 
chattr $hand +1-op 
PUTSERV 
"MODE $chan +b $nick"
putserv "GLINE $nick :$ZBan
return 
 
 
}} 
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 

}} 
if {([ 
matchattr $hand m ])} { 
PUTSERV "MODE $chan +b $nick"
putserv "GLINE $nick :4Server reklami yasaktir" 
return 
} elseif {([matchattr $hand 3])} { 
chattr $hand +
set ZZReason 
"$ZName Detected $Ohh For $hand
# newchanban $chan [maskhost $host] $botnick $ZZReason perm 
PUTSERV "MODE $chan +b $nick"
putserv "GLINE $nick :4Server reklami yasaktir" 
return 
} elseif {([matchattr $hand 2])} { 
chattr $nick +3-
set 3EDReason 
"$ZName Detected $3ED For $hand
# newchanban $chan [maskhost $host] $botnick $3EDReason perm 
PUTSERV "MODE $chan +b $nick"
putserv "GLINE $nick :4Server reklami yasaktir" 
return 
} elseif {([matchattr $hand 1])} { 
chattr $hand +2-1o 
set 2EDReason 
"$ZName Detected $2ED For $hand
# newchanban $chan [maskhost $host] $botnick $2EDReason 60 
PUTSERV "MODE $chan +b $nick"
putserv "GLINE $nick :4Server reklami yasaktir" 
return 
} elseif {[ matchattr $hand o ]} { 
chattr $hand +
PUTSERV 
"MODE $chan +b $nick"
putserv "GLINE $nick :4Server reklami yasaktir" 
return 
} { 
# adduser $nick [maskhost [getchanhost $nick $chan]] 
# chattr $hand +1-op 
PUTSERV "MODE $chan +b $nick"
putserv "GLINE $nick :4Server reklami yasaktir" 
return 
 
 
}} 
 
putlog "\[Word|KiCk\] v3.0 By -=( ZimoZimo )=- is Loaded" 

Bi yerde hata mı yaptım acaba, anlayamadım


Konu seal tarafından (19 Aralık 2007 Saat 01:29 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver