menu channel { 

  -

  H » Zline Koruması:/gzl

  -

}

alias gzl { dialog -m gzl gzl }

dialog Gzl {

  title "KiLLed Zline Paneli"

  size -1 -1 310 210

  option dbu

  list 57, 10 30 50 50, size

  edit "", 2, 10 19 50 10 return autohs

  button "Ekle", 3, 10 8 25 10

  button "Sil", 4, 35 8 25 10

  list 5, 70 30 50 50, size

  edit "", 6, 70 19 50 10 return autohs

  button "Ekle", 7, 70 8 25 10

  button "Sil", 8, 95 8 25 10

  list 9, 130 30 50 50, size

  edit "", 10, 130 19 50 10 return autohs

  button "Ekle", 11, 130 8 25 10

  button "Sil", 12, 155 8 25 10

  list 13, 10 122 50 50, size

  edit "", 14, 10 111 50 10 return autohs

  button "Ekle", 15, 10 100 25 10

  button "Sil", 16, 35 100 25 10

  list 17, 70 122 50 50, size

  edit "", 18, 70 111 50 10 return autohs

  button "Ekle", 19, 70 100 25 10

  button "Sil", 20, 95 100 25 10

  list 21, 130 122 50 50, size

  edit "", 22, 130 111 50 10 return autohs

  button "Ekle", 23, 130 100 25 10

  button "Sil", 24, 155 100 25 10

  list 25, 190 30 50 50, size

  edit "", 26, 190 19 50 10 return autohs

  button "Ekle", 27, 190 8 25 10

  button "Sil", 28, 215 8 25 10

  list 29, 190 122 50 50, size

  edit "", 30, 190 111 50 10 return autohs

  button "Ekle", 31, 190 100 25 10

  button "Sil", 32, 215 100 25 10

  list 33, 250 30 50 50, size

  edit "", 34, 250 19 50 10 return autohs

  button "Ekle", 35, 250 8 25 10

  button "Sil", 36, 275 8 25 10

  list 37, 250 122 50 50, size

  edit "", 38, 250 111 50 10 return autohs

  button "Ekle", 39, 250 100 25 10

  button "Sil", 40, 275 100 25 10

  check "Ac/Kapat", 41, 10 80 50 10

  check "Ac/Kapat", 42, 70 80 50 10

  check "Ac/Kapat", 43, 130 80 50 10

  check "Ac/Kapat", 44, 190 80 50 10

  button "Tamam Kapat", 46, 10 190 290 12,ok

  box "BadNick Korumasi", 47, 5 1 60 90

  box "Ident Korumasi", 48, 65 1 60 90

  box "Host Korumasi", 49, 125 1 60 90

  box "Küfür Korumasi", 50, 185 1 60 90

  box "Tüm Korumalara Muaf", 51, 245 1 60 90

  box "Muaf Nick Kor.", 52, 5 92 60 90

  box "Muaf Ident Kor.", 53, 65 92 60 90

  box "Muaf Host Kor.", 54, 125 92 60 90

  box "Muaf Kelime Kor.", 55, 185 92 60 90

  box "Muaf Kanal Kor.", 56, 245 92 60 90

}

on *:dialog:gzl:sclick:*:{

  if ($did(41).state == 1) { .enable #znick } | else { .disable #znick }

  if ($did(42).state == 1) { .enable #zident } | else { .disable #zident }

  if ($did(43).state == 1) { .enable #zhost } | else { .disable #zhost }

  if ($did(44).state == 1) { .enable #zkufur } | else { .disable #zkufur }

  if ($did == 3) { did -a gzl 57 $did(2) | .auser zni $did(2) | did -r gzl 2 }

  if ($did == 4) { .ruser zni $did(57).seltext | did -d gzl 57 $did(57).sel }

  if ($did == 7) { did -a gzl 5 $did(6) | .auser zid $did(6) | did -r gzl 6 }

  if ($did == 8) { .ruser zid $did(5).seltext | did -d gzl 5 $did(5).sel }

  if ($did == 11) { did -a gzl 9 $did(10) | .auser zho $did(10) | did -r gzl 10 }

  if ($did == 12) { .ruser zho $did(9).seltext | did -d gzl 9 $did(9).sel }

  if ($did == 27) { did -a gzl 25 $did(26) | .auser zku $did(26) | did -r gzl 26 }

  if ($did == 28) { .ruser zku $did(25).seltext | did -d gzl 25 $did(25).sel }

  if ($did == 35) { did -a gzl 33 $did(34) | .auser tkm $did(34) | did -r gzl 34 }

  if ($did == 36) { .ruser tkm $did(33).seltext | did -d gzl 33 $did(33).sel }

  if ($did == 15) { did -a gzl 13 $did(14) | .auser zmni $did(14) | did -r gzl 14 }

  if ($did == 16) { .ruser zmni $did(13).seltext | did -d gzl 13 $did(13).sel }

  if ($did == 19) { did -a gzl 17 $did(18) | .auser zmid $did(18) | did -r gzl 18 }

  if ($did == 20) { .ruser zmid $did(17).seltext | did -d gzl 17 $did(17).sel }

  if ($did == 23) { did -a gzl 21 $did(22) | .auser zmho $did(22) | did -r gzl 22 }

  if ($did == 24) { .ruser zmho $did(21).seltext | did -d gzl 21 $did(21).sel }

  if ($did == 31) { did -a gzl 29 $did(30) | .auser kmke $did(30) | did -r gzl 30 }

  if ($did == 32) { .ruser kmke $did(29).seltext | did -d gzl 29 $did(29).sel }

  if ($did == 39) { did -a gzl 37 $did(38) | .auser zmka $did(38) | did -r gzl 38 }

  if ($did == 40) { .ruser zmka $did(37).seltext | did -d gzl 37 $did(37).sel }

}

on 1:dialog:gzl:init:*: { 

  if ($group(#znick) == on) { did -c gzl 41 } 

  if ($group(#zident) == on) { did -c gzl 42 }

  if ($group(#zhost) == on) { did -c gzl 43 }

  if ($group(#zkufur) == on) { did -c gzl 44 } 

  if $ulist(*,zni,0) > 0 {

    var %i 1

    while %i <= $ulist(*,zni,0) {

      .did -a gzl 57 $ulist(*,zni,%i)

      inc %i 

    }

  }

  if $ulist(*,zmni,0) > 0 {

    var %i 1

    while %i <= $ulist(*,zmni,0) {

      .did -a gzl 13 $ulist(*,zmni,%i)

      inc %i 

    }

  }

  if $ulist(*,zku,0) > 0 {

    var %i 1

    while %i <= $ulist(*,zku,0) {

      .did -a gzl 25 $ulist(*,zku,%i)

      inc %i 

    }

  }

  if $ulist(*,zid,0) > 0 {

    var %i 1

    while %i <= $ulist(*,zid,0) {

      .did -a gzl 5 $ulist(*,zid,%i)

      inc %i 

    }

  }

  if $ulist(*,zmid,0) > 0 {

    var %i 1

    while %i <= $ulist(*,zmid,0) {

      .did -a gzl 17 $ulist(*,zmid,%i)

      inc %i 

    }

  }

  if $ulist(*,zho,0) > 0 {

    var %i 1

    while %i <= $ulist(*,zho,0) {

      .did -a gzl 9 $ulist(*,zho,%i)

      inc %i 

    }

  }

  if $ulist(*,zmho,0) > 0 {

    var %i 1

    while %i <= $ulist(*,zmho,0) {

      .did -a gzl 21 $ulist(*,zmho,%i)

      inc %i 

    }

  }

  if $ulist(*,tkm,0) > 0 {

    var %i 1

    while %i <= $ulist(*,tkm,0) {

      .did -a gzl 33 $ulist(*,tkm,%i)

      inc %i 

    }

  }

  if $ulist(*,zmka,0) > 0 {

    var %i 1

    while %i <= $ulist(*,zmka,0) {

      .did -a gzl 37 $ulist(*,zmka,%i)

      inc %i 

    }

  }

  if $ulist(*,kmke,0) > 0 {

    var %i 1

    while %i <= $ulist(*,kmke,0) {

      .did -a gzl 29 $ulist(*,kmke,%i)

      inc %i 

    }

  }

}

#znick on

on !zni:join:#:{

  if ($ulist($nick,zmni,0) >= 1) { return }

  if ($ulist($chan,zmka,0) >= 1) { return }

  if ($ulist($fulladdress,tkm,0) >= 1) { return }

  .gzline $nick +30d 2 ( $nick ) HayırLı YoLcuLukLar...

}

on *:nick: {

  if ($ulist($chan,zmka,0) >= 1) { return }

  if ($ulist($fulladdress,tkm,0) >= 1) { return }

  if $ulist($newnick,zmni,0) > 0 { halt }

  if $level($newnick) == zni {

    var %i 1

    while %i <= $comchan($newnick,0) {

      if ($nick != $me) && $level($newnick) == zni && $level($comchan($newnick,%i)) != zmka { .gzline $newnick +30d 2  ( $newnick ) HayırLı YoLcuLukLar... }

      inc %i

    }

  }

}

#znick end

#zident on

on !zid:join:#: {

  if ($ulist($chan,zmka,0) >= 1) { return }

  if ($ulist($fulladdress,tkm,0) >= 1) { return }

  if ($ulist($address,zmid,0) >= 1) { return }

  if $level($gettok($gettok($address($nick,5),2,33),1,64)) == zid {

    .gzline $nick +30d 1,14 ( $nick ) ident Korumasına Yakalandınız. 

  }

}

#zident end

#zhost off

on !zho:join:#: {

  if ($ulist($chan,zmka,0) >= 1) { return }

  if ($ulist($fulladdress,tkm,0) >= 1) { return }

  if ($ulist($address,zmho,0) >= 1) { return }

  if $level($gettok($gettok($address($nick,5),2,33),2,64)) == zho {

    .gzline $nick +30d 1,14  ( $nick ) Host Korumasına Yakalandınız. 

  }

}

#zhost end

#zkufur off

on *:text:*:#:{

  if ($ulist($chan,zmka,0) >= 1) { return }

  if ($ulist($fulladdress,tkm,0) >= 1) { return }

  var %i 1

  while %i <= $0 {

    if $ulist($eval($ $+ %i,2),kmke,0) > 0  { goto cyc2 }

    if $level($eval($ $+ %i,2)) == zku && $len($eval($ $+ %i,2)) > 1  { .gzline $nick +30d 14,14l15,1  ( $nick ) ( $chan ) KanaLın'da Küfür Ettiğiniz Tespit Edildi. 14,14l }

    :cyc2

    inc %i

  }

}

#zkufur end