menu * {
  Sunucu Line IP Listesi:/sunucuban
}
 
 
alias sunucuban { .dialog -m glist glist } 
 
dialog glist {
  title "Sunucu Genel Ban Listesi"
  size -1 -1 423 149
  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 "Kaldırmak istediğiniz banın ip numarasının üzerine çift tıklayınca 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
}
 
 
on *:dialog:glist:*:*:{
  if $devent == init {
    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

raw 223:*:{
  write proxy.txt $+($3,$chr(9)) $+($4,$chr(9)) $+($7,$chr(9)) $+($8,$chr(9)) $+($9,$chr(9)) $10-
  halt
}

alias _kralaz {
  stats g
  .timerdenemes 1 3 /__kralaz
}

menu * {
  Banlistesi Gzline:_kralaz
}

menu @kralaz {
  .Sil: {
    gline  $+ $gettok($remove($1-,$chr(9)),1,32)
    gzline  $+ $gettok($remove($1-,$chr(9)),1,32)
  }

  Ban Satiri Gster
  .Satr Gster: {
    if (!$window(@Satr.Gster)) {
      window -g @Satr.Gster -1 -1 800 100 Fixedsys 11
    }
    .echo -tm @Satr.Gster $remove($1-,$chr(9))
    halt
  }
}
alias __kralaz {
  if ($window @kralaz)) { window -c @kralaz } {
    window -glk0 @kralaz -1 -1 800 600 Fixedsys 11
    iline @kralaz 1 Eklenmi ban silerken tek tek siliniz
    iline @kralaz 2  IP    -  SEBEB  - BANLAYAN
    iline @kralaz 3 1 ----------- 2 --------- 3 --------- 4 ----------- 5 ----------- 6
    titlebar @kralaz by KraLaz
    var s = 4
    while %s <= $lines(proxy.txt) {
      var %k = $read(proxy.txt,%s)
      iline @kralaz %s $gettok(%k,1,32) $gettok(%k,2,32) $gettok(%k,3,32) $gettok(%k,4,32) $gettok(%k,5,32) $gettok(%k,6-,32)
      inc %s
      unset %k
    }
    remove proxy.txt
  }
  halt
}