Cevap: Sadece belirli nicklere otomatik mesaj gönderme
Alıntı:
Giant Nickli Üyeden Alıntı
(Mesaj 1042634633)
Belirlediğim nick'e oto kick nasıl atarım + Belirlediğim nick Ahmet bu nickin yanında Ahmet17 olursa buna da kick atmak istiyorum.
içerisinde *Ahmet17* geçen kelimeler dahil kick nasıl atabilirim?
Bunu ekle çıkar nick şeklince nasıl yapabilirim.
| Kod:
#####################################################################
# Başlık:Bad Nick v1.2
# Yazar:Epic (http://epicnet.ru, irc.epicnet.ru:6667 #Code)
# Açıklam:Kanala katılan kullanıcıları veritabanında tarar ve kötü kullanıcılara Kick+Ban atar.
#####################################################################
alias -l bn_set {
%bn_badwords = scripts\BadNick\badwords.txt | ;# Komut sözdizimi kullanımı: /bnb <*badword*> [Sayı] [sebep]
%bn_excepts = scripts\BadNick\exceptions.txt | ;# Komut sözdizimi kullanımı: /bne <*masknick*> [Sayı] [sebep]
%bn_whitelist = scripts\BadNick\whitelist.txt | ;# Komut sözdizimi kullanımı: /bnw <nick/host> [Sayı]
%bn_database = scripts\BadUser\baduser.txt | ;# Kick+Ban atılan nick kayıt txt yeri.
%bn_bad_reason = Nickin badnick listesinde | ;# Badnick'e kick+ban atılma sebebi.
%bn_exc_reason = Sahte nick! | ;# Sahte isme kick+ban atılma sebebi.
%bn_whi_reason = Muaf nick listesindesin | ;# Muaf nick adı.
%bn_length = 5 | ;# Bir nick'e verilen karakter sayısı.
}
---------------------------------------------------------------------
on !*:JOIN:#sohbet: bn_set | checknick $nick $chan
on !*:NICK: bn_set | var %nick $newnick | var %n 1 | while (%n <= $comchan(%nick,0)) { checknick %nick $comchan(%nick,%n) | inc %n }
---------------------------------------------------------------------
alias -l checknick {
var %nick $1 | var %chan $2 | var %host $gettok($address(%nick,5),2,64)
if ($read(%bn_whitelist,nw,$+(%nick,;*))) || ($read(%bn_whitelist,nw,$+(%host,;*))) {
if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) .window -nk0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $mircexe 21
.aline -hnp @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+(10[,$time,]) 05[Muaf]14 %chan 15->07 %nick $+(12*!*@,%host) | halt
}
var %res_e $except(%nick) | if (%res_e) {
tokenize 59 %res_e | if ($len(%nick) > $2) {
if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) .window -nk0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $mircexe 21
.aline -hnp @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+(10[,$time,]) 05[Uzunluk]14 %chan 15-> $+(14,$chr(40),04,$2,+14,$chr(41),07) %nick $+(12*!*@,%host)
if (!$read(%bn_database,nw,$+(*;,%host,;*))) .write -il1 %bn_database $+(%nick,;,%host,;,$3-)
if ($me isop %chan) { .mode %chan +b $address(%nick,2) | .kick %chan %nick $3- }
} | halt
}
var %res_w $badword(%nick) | if (%res_w) {
tokenize 59 %res_w | if ($len(%nick) > $2) {
if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) .window -nk0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $mircexe 21
.aline -hnp @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+(10[,$time,]) 05[Kötü Kelime]14 %chan 15-> $+(14,$chr(40),04,$1,14,$chr(41),07) %nick $+(12*!*@,%host)
if (!$read(%bn_database,nw,$+(*;,%host,;*))) .write -il1 %bn_database $+(%nick,;,%host,;,$3-)
if ($me isop %chan) { .mode %chan +bb $+(%nick,!*@*) $address(%nick,2) | .kick %chan %nick $3- }
}
}
}
alias -l except { var %i 1 | while (%i <= $lines(%bn_excepts)) { var %str $read(%bn_excepts,n,%i) | var %mask $gettok(%str,1,59) | if (%mask iswm $1) return %str | inc %i } }
alias -l badword { var %i 1 | while (%i <= $lines(%bn_badwords)) { var %str $read(%bn_badwords,n,%i) | var %mask $gettok(%str,1,59) | if (%mask iswm $1) return %str | inc %i } }
---------------------------------------------------------------------
alias bnb {
bn_set | if (!$1) { echo -a 05Kullanımı:12 /bnb <*Kötü Kelime*> [Uzunluk] [Sebep] | halt }
if (!$read(%bn_badwords,nw,$+($1,;*))) {
if ($2) var %bn_l $2 | else var %bn_l %bn_length | if ($3) var %bn_r $3- | else var %bn_r %bn_bad_reason
var %bn_wstr $+($1,;,%bn_l,;,%bn_r) | .write -il1 %bn_badwords %bn_wstr | echo -a 04Kötü kelime ekli:12 %bn_wstr
} | else echo -a 04Kötü kelime $+(,$1,) - listesinde yer alıyor.
}
alias bne {
bn_set | if (!$1) { echo -a 05Kullanımı:12 /bne <*masknick*> [Uzunluk] [Sebep] | halt }
if (!$read(%bn_excepts,nw,$+($1,;*))) {
if ($2) var %bn_l $2 | else var %bn_l %bn_length | if ($3) var %bn_r $3- | else var %bn_r %bn_exc_reason
var %bn_wstr $+($1,;,%bn_l,;,%bn_r) | .write -il1 %bn_excepts %bn_wstr | echo -a 03İstisna ekli:12 %bn_wstr
} | else echo -a 03İstisna $+(,$1,) - listesinde yer alıyor.
}
alias bnw {
bn_set | if (!$1) { echo -a 05Kullanımı:12 /bnw <nick/host> [Sebep] | halt }
if (!$read(%bn_whitelist,nw,$+($1,;*))) {
if ($2) var %bn_r $2- | else var %bn_r %bn_whi_reason
var %bn_wstr $+($1,;,%bn_r) | .write -il1 %bn_whitelist %bn_wstr | echo -a 15MUAF ekli:12 %bn_wstr
} | else echo -a 15Muaf $+(,$1,) - listesinde yer alıyor.
}
---------------------------------------------------------------------
|
