Sizlere kullandığım mIRC deki bir dialoğu daha paylaşacağım tabiki Coder değilim, dialog bana ait Ustalığı
ait bir kod. işlem belli sitenizdeki Forbid listeleme ekleme ve silme işlemi yapıyor.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias forbid { dialog -m forbid forbid }
dialog forbid {
title "Yasaklı Nick Listesi"
size -1 -1 129 175
option dbu
list 1, 2 3 124 121, size
text " Silmek icin ustunu Tıklayınız", 6, 4 144 98 8
box "", 7, 2 139 101 16
button "« « KAPAT » »", 8, 1 156 126 15, flat ok
text " Yasakla :", 2, 5 128 38 8
box "", 3, 3 124 43 14
button "Ekle", 4, 105 126 22 29, flat
edit "", 5, 47 127 55 11, multi autohs
}
on *:dialog:forbid:sclick:4:{ msg nickserv forbid $did(5)
did -a forbid 1 $did(5) | did -c $dname 1 $did(1).lines }
on *:notice:*:*:if ($nick == NickServ) && $dialog(forbid) && (Forbidden isin $1-) { did -a forbid 1 $1 }
on *:dialog:forbid:dclick:1:ns dropnick $did(1).seltext | did -d forbid 1 $did(1).sel
on *:dialog:forbid:init:*: {
mdx MarkDialog $dname
mdx SetDialog $dname bgcolor $rgb(237,241,219)
mdx SetColor $dname 1 textbg $rgb(237,241,219)
mdx SetColor $dname 1 background $rgb(237,241,219)
mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 15 950 Tahoma
mdx SetColor $dname 2,4,6,11,13,10,12 background $rgb(237,241,219)
mdx SetColor $dname 2,4,6,11,13,12,10 textbg $rgb(237,241,219)
mdx SetFont $dname 2,4,6,11,13,12,10,14,15,16 15 950 Tahoma
mdx SetColor $dname 6l text $rgb(199,92,2)
}