15 Aralık 2007, 23:25
|
#1 |
| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| 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"
|
|
|
|  |