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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)
-   -   Küfür ve Reklam Koruma Botu (https://www.ircforumlari.net/tcl-scriptler/44447-kufur-ve-reklam-koruma-botu.html)

seal 15 Aralık 2007 23:25

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"




Brain 15 Aralık 2007 23:46

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- Kodu:

## 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 ;)

seal 16 Aralık 2007 03:22

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

Brain 16 Aralık 2007 06:44

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.

seal 16 Aralık 2007 21:33

Cevap: Küfür ve Reklam Koruma Botu
 
Alıntı:

aCoustiC Nickli Üyeden Alıntı (Mesaj 308530)
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 ;)

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

Brain 17 Aralık 2007 13:45

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:

if {$nick == "Radyo"} { return 0 }
if {$nick == "Oyuncak"} { return 0 }

satirlarini eklersen sorunun ortadan kalkacaktir.

seal 19 Aralık 2007 01:18

Cevap: Küfür ve Reklam Koruma Botu
 
Alıntı:

aCoustiC Nickli Üyeden Alıntı (Mesaj 309530)
proc badword {nick host hand chan rest} {

proc reklam {nick host hand chan rest} {

satirlarinin hemen altina

Kod:

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

seal 19 Aralık 2007 01:24

Cevap: Küfür ve Reklam Koruma Botu
 
Alıntı:

aCoustiC Nickli Üyeden Alıntı (Mesaj 308530)
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- Kodu:

## 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

LiSsa 19 Aralık 2007 03:25

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 :(:(:(:(:(


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 04:03.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk