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

Etiketlenen Kullanıcılar

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 15 Aralık 2007, 23:25   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Küfür ve Reklam Koruma Botu




Arkadaşlar selamlar

Aşağıdaki küfür ve reklam koruma botunu kullanıyorum. Ama bazı değişiklikler yapmak istiyorum.

1) Küfürlerde sadece kanaldan Kick yapıyor
2) Reklamlarda ise Kill atıyor

Ben hem Küfür hem de Reklam kelimelerinde "Gline + Ban" yapmasınınasıl sağlayabilirim? Aşağıdaki kodu ona göre düzenleyecek biri var mı acaba, neresini değişmem lazım, üstadlar bi yardım etsin lütfen. Kod da aşağıda.

Saygılarımla, şimdiden teşekkür ederim.

Alıntı:

## 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 0
}}
if {([ matchattr $hand m ])} {
putserv "MODE $chan -o $nick"
putserv "KICK $chan $nick :$ZBan"
return 1
} elseif {([matchattr $hand 3])} {
chattr $hand +k
set ZZReason "$ZName Detected $Ohh For $hand"
# newchanban $chan [maskhost $host] $botnick $ZZReason perm
putserv "KICK $chan $nick :$ZBan"
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 "KICK $chan $nick :$ZBan"
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 "KICK $chan $nick :$ZBan"
return 1
} elseif {[ matchattr $hand o ]} {
chattr $hand +1
putserv "MODE $chan -o $nick"
putserv "KICK $chan $nick :$ZBan"
return 1
} {
adduser $nick [maskhost [getchanhost $nick $chan]]
chattr $hand +1-op
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 :4Server reklami yasaktir"
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 :4Server reklami yasaktir"
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 :4Server reklami yasaktir"
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 :4Server reklami yasaktir"
return 1
} elseif {[ matchattr $hand o ]} {
chattr $hand +1
putserv "KILL $nick :4Server reklami yasaktir"
return 1
} {
# adduser $nick [maskhost [getchanhost $nick $chan]]
# chattr $hand +1-op
putserv "KILL $nick :4Server reklami yasaktir"
return 0



}}


putlog "\[Word|KiCk\] v3.0 By -=( ZimoZimo )=- is Loaded"




 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet sohbet
Alt 15 Aralık 2007, 23:46   #2
Ç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




Oncelikle konunuzu gerekli bolume tasidik, konu acarken basliklara dikkat ettiginiz gibi konunun olmasi gerektigi yere de dikkat ederseniz daha hizli yardim edinebilirsiniz.


Asagidaki kod satiri vermis oldugunuz TCL kodlarinin Gline atmasi icin duzeltilmis olanidir.

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 
0
}}
if {([ 
matchattr $hand m ])} {
putserv "GLINE $nick :$ZBan
return 1
} elseif {([matchattr $hand 3])} {
chattr $hand +k
set ZZReason 
"$ZName Detected $Ohh For $hand"
# newchanban $chan [maskhost $host] $botnick $ZZReason perm
putserv "GLINE $nick :$ZBan
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 "GLINE $nick :$ZBan"
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 "GLINE $nick :$ZBan
return 
} elseif {[ matchattr $hand o ]} {
chattr $hand +1
putserv 
"GLINE $nick :$ZBan"
return 1
} {
adduser $nick [maskhost [getchanhost $nick $chan]]
chattr $hand +1-op
putserv 
"GLINE $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 "GLINE $nick :4Server reklami yasaktir" 
return 1
} elseif {([matchattr $hand 3])} {
chattr $hand +k
set ZZReason 
"$ZName Detected $Ohh For $hand"
# newchanban $chan [maskhost $host] $botnick $ZZReason perm
putserv "GLINE $nick :4Server reklami yasaktir" 
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 "GLINE $nick :4Server reklami yasaktir" 
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 "GLINE $nick :4Server reklami yasaktir" 
return 
} elseif {[ matchattr $hand o ]} {
chattr $hand +1
putserv 
"GLINE $nick :4Server reklami yasaktir" 
return 1
} {
# adduser $nick [maskhost [getchanhost $nick $chan]]
# chattr $hand +1-op
putserv "GLINE $nick :4Server reklami yasaktir" 
return 0



}}


putlog "\[Word|KiCk\] v3.0 By -=( ZimoZimo )=- is Loaded" 

ikisi arasinda ufak 1 inceleme yapacak olursaniz, kick ve kill satirlarini degistirip GLINE olarak yeniden adlandirdigimi goreceksiniz, basit 1 calisma umarim sizde pratik anlamda cozum uretebilirsiniz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________
Our brain is Our Weapon
 
Alıntı ile Cevapla

Alt 16 Aralık 2007, 03:22   #3
Ç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
çok teşekkür ederim. Küfreden kişi yada reklam yapan kişi Gline de atılsa aynı nickle gelmesin istiyorum, yoksa hemen modemini resetleyip gelebiliyorlar. Acaba Gline komutunun yanına BAN da ekleyebilir miyiz, yani hem o nicki banlasın, hem de gline çeksin hem reklam hem de küfürde?

Çok saol değerli yardımların için

 
Alıntı ile Cevapla

Alt 16 Aralık 2007, 06:44   #4
Ç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




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.

__________________
Our brain is Our Weapon
 
Alıntı ile Cevapla

Alt 16 Aralık 2007, 21:33   #5
Ç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.

Ne kadar teşekkür etsem az, gerçekten çok büyük bi iyilik yaptın aCoustiC, harikasın, çok güzel de işledi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Bir de son bişey sormak istiyorum, seni de çok yordum ama.

Ben bu koruma botumu Radyo ve Oyun kanallarına sokamıyorum, çünkü onları da atıyor, bazı kelimeleri küfür yada reklam olarak algılıyor onlarda, ha bire atıyor. Glineye de döndükten sonra zaten hiç sokamam artık. Acaba bu koruma botuna Radyo ve Oyuncak nicki hariç diye bir satır girebilir miyiz acaba? Eğer öyle yapabilirsek o kanalları da korumaya almış olurum.

Edit: ilave
netadmins.c diye bir module varmış sanırım bir de, yeni duydum. Bunu kurunca kendinden yukarısını atamıyormuş sanırım adminler. Ben de zaten Radyo ve Oyuncak botuma Network Admin Operi girdiriyorum, dolayısıyla aynı seviyede olmuş olacaklar Koruma botumla, o da çünkü Network Admin. Sanırım aynı yetkide olunca atamayacaktır, belki bu yolu da deneyebilirim ne dersiniz acaba.

Saygılar


Konu seal tarafından (16 Aralık 2007 Saat 22:34 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 17 Aralık 2007, 13:45   #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




proc badword {nick host hand chan rest} {

proc reklam {nick host hand chan rest} {

satirlarinin hemen altina

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if {$nick == "Radyo"} { return 0 } if {$nick == "Oyuncak"} { return 0 }

satirlarini eklersen sorunun ortadan kalkacaktir.

__________________
Our brain is Our Weapon
 
Alıntı ile Cevapla

Alt 19 Aralık 2007, 01:18   #7
Ç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.
proc badword {nick host hand chan rest} {

proc reklam {nick host hand chan rest} {

satirlarinin hemen altina

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if {$nick == "Radyo"} { return 0 } if {$nick == "Oyuncak"} { return 0 }

satirlarini eklersen sorunun ortadan kalkacaktir.

aCoustiC Allah razı olsun walla tüm dertlerime tek tek çare buluyosun. Yaw ben çok seviyom ircforumlari.net 'i , iyi ki tanıdım sizleri ve iyi ki burdayım, çok saolun gerçekten.

Bu komut çalıştı, atılmıyor artık botlarım, çok saol aCoustiC ;love

 
Alıntı ile Cevapla

Alt 19 Aralık 2007, 01:24   #8
Ç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

Alt 19 Aralık 2007, 03:25   #9
Ç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




bence her zehirin bir panzehiri vardır hem ben küfür ediyordum neden böle bişi cıkardınız ki
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
(
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
(
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

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