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

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

dialog ignorelist {

  title "Ignore listeniz"

  size -1 -1 120 115

  option dbu

  list 1, 3 11 114 81, size

  edit "", 2, 4 95 70 10, autohs

  button "Ekle", 3, 77 95 37 9

  text "Çift tıklayarak silebilirsiniz.", 4, 30 2 62 8

  button "Kapat", 5, 40 105 37 9

}

on *:dialog:ignorelist:*:*:{

  if $devent == init {

    var %i 1

    while %i <= $ignore(0) { did -a $dname 1 $ignore(%i) | inc %i }

  }

  if $devent == dclick && $did == 1 {

    ignore -rw $did(1).seltext

    did -d $dname 1 $did(1).sel

  }

  if $devent == sclick && $did == 3 && $did(2) {

    ignore -w $did(2)

    did -a $dname 1 $ignore($ignore(0))

  }

}
 

alias ignorelist $iif($dialog(ignorelist),echo -a Ignore listeniz açık.,dialog -m ignorelist ignorelist)

alias F2 ignorelist

/ignorelist veya F2 yaparak çalıştırabilirsiniz.