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

>
+
Etiketlenen Kullanıcılar

 
 
LinkBack Seçenekler Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 19 Aralık 2007, 01:24   #6
Çevrimdışı
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

 

Etiketler
botu, koruma, kufur, küfür, reklam


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

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
Ayarlanabilir küfür, reklam koruma delikan82 mIRC Scripting Hazır Kodlar 10 18 Haziran 2014 20:00
küfür koruma Selim01 mIRC Scripting Sorunları 6 15 Kasım 2009 13:30
Hızlı (regex) ve Gelişmiş (Küfür&Reklam/FLOOD/REPLACE/ASCII) Koruma '$sw' identifier SpecifiC mIRC Scripting Hazır Kodlar 8 26 Haziran 2008 12:29
$prot() Kanal için koruma identiferı (tekrar,flood,caps,uzun yazı,küfür,reklam vs.) el33t mIRC Scripting Hazır Kodlar 22 23 Mayıs 2008 00:40