Çevrimdışı

selam arkadaslar aşağidaki verdiğim kodda kanala ggirince bad nicke kill çekip +b yapiyor ve kanal kirliliği meydana geliyor bunu snotice ile gorup kanala girmeden sunucudan ata bilirmiyiz?

menu query {
Bad nick Ekle:auser opers $active
Bad Nick Sil:ruser opers $active
}
menu nicklist {
Bad Nick Ekle: auser opers $$1
Bad Nick Sil: ruser opers $$1
}
alias badekle {
auser opers $1
}
alias badsil {
ruser opers $1
}
on opers:join:#: {
mode # +b $address($nick,2)
kill $nick 4Lütfen Nickinizi Değiştiriniz!
}

 

Çevrimdışı

Elimde SöyLe Bir Kod Var İşini Görürse Ekleyebilirsin.

Users ( kullanıcı Kisimina )
Kırımızı Gördüğün Yerdeki Sekilde Ekle.
Blacklist:Nick*! sekilinde eklersen işini Görecektir.

Popuse Bölüme ( ALT + P )
Yasanick: /dialog -m dusmanlist dusmanlist

Yaparsan mİRC Erkanında Sağ Tıkladiğinda Menuya Daha Rahat Ulaşabilirsin.
ALT +R Yapip Remotelere Ekle
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod :

alias -l _buser { .guser blacklist $1 3 }
alias -l _rbuser { .ruser blacklist $1 3 }
alias -l _luser { dialog -m dusmanlist dusmanlist }
alias -l _blist {
did -r dusmanlist 11
var %_btotal = $ulist(*,blacklist,0) , %_b = 0
while (%_b < %_btotal) {
inc %_b
did -a dusmanlist 11 $ulist(*,blacklist,%_b)
}
}
alias dusman { /dialog -m dusmanlist dusmanlist }
dialog dusmanlist {
title "X Script - Düşman Listesi"
size -1 -1 106 117
option dbu
combo 11, 6 19 94 50, extsel sort autohs autovs
text " Eklediğiniz nickler Kill Yiyecektir. Buna Göre Ekleyeceğiniz nicklere dikkat edin", 2, 6 4 95 15
box "", 3, 3 0 101 96
edit "", 12, 6 69 94 10 , read autohs
button "Ekle", 20, 7 81 40 12 , default
button "Sil", 30, 58 81 40 12 , default
box "", 7, 3 94 101 21
button "Pencereyi Kapat", 8, 17 100 73 12, ok
}
on *:dialog:dusmanlist:init:*: {
_blist
}
on *:dialog:dusmanlist:sclick:*: {
if ($did == 20) {
if ($did(11).text != $null && $level($did(11).text) != blacklist) {
var %_badd = $did(11).text
.auser blacklist %_badd
_blist
did -o $dname 12 1 %_badd Kara Listeye Alındı...
}
}
if ($did == 30) {
if ($did(11).text != $null && $level($did(11).text) == blacklist) {
var %_brem = $did(11).text
.ruser blacklist %_brem
_blist
did -o $dname 12 1 %_brem Kara Listeden Silindi...
}
}
}
on blacklist:join:#: {
.Kill $nick 4‡1 $server 0,1 3By 9[ 3 $me 9,1 ] 4Saat3 $time 9 Tarih 4 $Date  4 6[ 3Y1asak 3N1ick 3L11istemdesin 6] 4‡ 5,1Security 0,1System5,1™9,1[0,10,1Proxy9/0Tor9/0Trojan9/0Random 0,1Ni9¢0k9,1]  4‡
}

Umarim İşini Görür.

Not: Kod Sahibini Bilmiyorum yapanın eline sağlık.

 

Çevrimdışı

güzel bir kod ama benimkiyle ayni kanala giriyor atiyot snotice ile girmeden ucurmak lazim kanal kirliliği olmasin.

 

Çevrimdışı

Leo Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

güzel bir kod ama benimkiyle ayni kanala giriyor atiyot snotice ile girmeden ucurmak lazim kanal kirliliği olmasin.

+b olayi bu kode yok, cok aşiri ise badnick girişi görüntü kirliliği olabilir. girişte nasil atilacağini bilseydim verdiğim kodeye eklerdim cok fazla bilgim yok bu konularda.