ip yasaklama açma dialog addonu

[Tutsaq]

Aşğıda resimde de gösterdiğim gibi bazı ip yasaklama zline gline kline G-zline gibi yasaklar koymanıza vede açmanıza yarayan bir remotedir.
Dialog paneli ile ***et rahat bir sekilde ip yasaklaya bilir yada aca bilirsiniz bu işlemleri yapa bilmeniz icin en az sunucuda services admin olmanız gerekli bunuda hatırlatayım.

Remote

Remoteyi açmak icin mircin üst kısımdaki menüden sece bilir yada kanalın ortasına sağklick yaparak ip yasaklama seceneğinden aça bilirsiniz. şunuda unutmadan hemen not edelim arkadaşlar sunucuda başka adminler tarafından yasaklanmış ip adreslerinizi stats komutu ile dialog a dökerek tüm yasaklanmış ip adreslerini göre bilirsiniz.

menu status,menubar,channel {
  -
  » İp YasakLama:/dialog -m glist glist
  -
}

dialog glist {
  title "Ban Listesi"
  size -1 -1 423 162
  option dbu
  list 1, 2 10 82 126, size
  text "Gline Listesi", 4, 4 2 45 8
  button "« « KAPAT » »", 5, 170 116 82 20, flat ok
  list 2, 86 10 82 126, size
  list 3, 254 10 82 126, size
  text "Shun Listesi", 6, 86 2 71 8
  text "Zline Listesi", 7, 254 2 54 8
  text "Kaldirmak istediginiz Banin ip numarasinin Uzerine Cift tiklayinca Ban Kalkacak.", 8, 72 140 266 8
  list 9, 170 10 82 103, size
  text "G-Zline Listesi", 10, 170 2 65 8
  list 11, 338 10 82 126, size
  text "Kline Listesi", 12, 338 2 60 8
  edit "", 13, 116 150 147 10, read
}

on *:dialog:glist:*:*:{
  if $devent == init {
    mdx MarkDialog $dname
    mdx SetDialog $dname bgcolor $rgb(240,240,240)
    mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13 +b Turkish 13 950 Tahoma
    mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13 textbg $rgb(240,240,240)
    mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13 background $rgb(240,240,240)
    mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13 text $rgb(0,0,0)
    mdx SetColor $dname 8 text $rgb(199,92,2)
    mdx SetColor $dname 13 text $rgb(255,0,0)
    if !$regex($usermode,/o/) { did -a $dname 13 Bu islemi Yapmaniz icin Admin olmalisiniz.. | return }
    set %gkontrol on | .enable #bangizle | .stats g | .stats s | .stats k | .stats Z
    .timer 1 1 .disable #bangizle
  }
  if $devent == dclick {
    if $did == 1 {
      gline $+(-*@, $did(1).seltext)
      did -d $dname 1 $did(1).sel
    }
    if $did == 2 {
      shun $+(-*@, $did(2).seltext)
      did -d $dname 2 $did(2).sel
    }
    if $did == 3 {
      zline $+(-*@, $did(3).seltext)
      did -d $dname 3 $did(3).sel
    }
    if $did == 9 {
      gzline $+(-*@, $did(9).seltext)
      did -d $dname 9 $did(9).sel
    }
    if $did == 11 {
      kline $+(-*@, $did(11).seltext)
      did -d $dname 11 $did(11).sel
    }
  }
  if $devent == close {
    write -c gline.txt
    write -c zline.txt
    write -c shun.txt
    write -c gzline.txt
    write -c kline.txt
  }
}
raw 223:*: {
  if ($2 isincs G) && (%gkontrol == on) && ($dialog(glist)) {
    did -a glist 1 $gettok($3,2,64) | write gline.txt $gettok($3,2,64)
    .timer 1 3 unset %gkontrol
  }
  if ($2 isincs z) && (%gkontrol == on) && ($dialog(glist)) {
    did -a glist 3 $gettok($3,2,64) | write zline.txt $gettok($3,2,64)
  }
  if ($2 isincs s) && (%gkontrol == on) && ($dialog(glist)) {
    did -a glist 2 $gettok($3,2,64) | write shun.txt $gettok($3,2,64)
  }
  if ($2 isincs Z) && (%gkontrol == on) && ($dialog(glist)) {
    did -a glist 9 $gettok($3,2,64) | write gzline.txt $gettok($3,2,64)
  }
  if ($2 isincs K) && (%gkontrol == on) && ($dialog(glist)) {
    did -a glist 11 $gettok($3,2,64) | write kline.txt $gettok($3,2,64)
  }
  /halt
}
alias glist { dialog -m glist glist }
#bangizle off
raw 223:*: { /halt }
raw 249:*: { /halt }
raw 219:*: { /halt }
raw 216:*: { /halt }
#bangizle end