miRC Ignore List

dialog ignorelist {
  title "Ignore listeniz"
  size -1 -1 112 134
  option dbu
  list 1, 3 11 107 96, sort size
  edit "", 2, 3 109 70 10, autohs
  button "Ekle", 3, 74 109 35 10, flat
  text "             Cift tiklayarak silebilirsiniz.", 4, 5 2 103 8
  button "Kapat", 5, 3 120 107 12, flat ok
}


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))
  }
}
menu menubar,channel {
  • Ayar
  .Ignore List:f2
}
alias ignorelist $iif($dialog(ignorelist),echo -at Ignore listeniz acik.,dialog -m ignorelist ignorelist)
alias F2 ignorelist