Kod

on ^1:NOTICE:*:*:{
  if (*@* iswm $1) && (%akilnotice == on) {  
    write akill.txt $gettok($1,2,64)
    did -a aklist 1 $regsubex(akill,$gettok($1,2,64),/(\*)$/S,)
  }
}
dialog aklist {
  title "Akill Listesi - Liste Otomatik Akill Yer"
  size -1 -1 123 169
  option dbu
  list 1, 2 16 119 104, size
  edit "", 2, 46 124 57 10, multi autohs
  text " IP Girin :", 3, 3 125 43 8
  button "Ekle", 7, 105 123 16 26
  button "KAPAT", 6, 1 152 120 14, ok
  text "Örnek: 78.161.*", 4, 3 139 98 9
  box "", 8, 2 135 101 14
  box "", 9, 2 121 42 13
  box "", 10, 2 0 119 13
  text " Silmek icin ipin uzerine Cift tiklayin", 11, 3 4 111 8
}

on *:dialog:aklist:*:*:{
  if $devent == init {
    ;mdx MarkDialog $dname
    //set %akilnotice on | .os akill list 
    .timer 1 1 //set %akilnotice off
    ; mdx MarkDialog $dname
    ; mdx SetDialog $dname bgcolor $rgb(237,241,219)
    ; mdx SetFont $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 +b Turkish 13 950 Verdana
    ;  mdx SetColor $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 textbg $rgb(237,241,219)
    ;  mdx SetColor $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 background $rgb(237,241,219)
    ;  mdx SetColor $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 text $rgb(0,0,0)
    ;  mdx SetColor $dname 11,13,10,12 background $rgb(237,241,219)
    ;  mdx SetColor $dname 11,13,12,10 textbg $rgb(237,241,219)
    ;  mdx SetFont $dname 2,7,6,11,13,12,10,14,15,16 13 950 Tahoma
    ;  mdx SetColor $dname 11,4l text $rgb(199,92,2)
  }
  if $devent == dclick {
    if $did == 1 {
      .os akill del $+(*@, $did(1).seltext,*)
      did -d $dname 1 $did(1).sel
    }
  }
  if $devent == sclick && $did == 7 { haltdef
    .os akill add +0 *@ $+ $did(2)  $+ *  Sunucu Kurallarini İhlal Ettiniz.. | did -a aklist 1 $did(2) 
  }
  if $devent == sclick && $did == 4 { dialog -m xbilgi xbilgi }
  if $devent == close {
    write -c akill.txt
    set %akilnotice off
  }
}
alias xakil { dialog -m aklist aklist }