IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Sizlere kullandığım mIRC deki bir dialoğu daha paylaşacağım tabiki Coder değilim, dialog bana ait Ustalığı Feragat ait bir kod. işlem belli sitenizdeki Forbid listeleme ekleme ve silme işlemi yapıyor.

Kod:

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)

}