Ç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.