alias mdx return $dll(ufuk/mdx.dll,$1,$2-)
dialog fenomens {
  title "Proxy Koruma Sistemi"
  size -1 -1 251 121
  option dbu
  list 1, 3 11 50 84, size
  edit "", 4, 8 98 35 10, autohs
  button "Ekle", 2, 11 110 24 11
  text "İp Listesi", 3, 16 3 28 8
  list 5, 69 11 50 84, size
  edit "", 6, 74 98 35 10, autohs
  button "Ekle", 7, 77 110 24 11
  text "Muaf İp Listesi", 8, 77 3 44 8
  list 9, 136 11 50 84, size
  edit "", 10, 141 98 35 10, autohs
  button "Ekle", 11, 146 110 24 11
  text "Muaf Nick Listesi", 12, 139 3 47 8
  radio "Zline At", 13, 200 11 41 10
  radio "Shun At", 14, 200 23 42 10
  radio "G:Zline At", 15, 200 50 40 10
  radio "G:line At", 16, 200 36 42 10
  radio "Kill At", 17, 200 74 40 10
  radio "Kline At", 18, 200 62 39 10
  box "Ceza Türü", 19, 194 2 50 110
  edit "", 20, 197 97 44 10, autohs
  check "Proxy Sistem Aç/Kapa", 22, 179 114 70 10
  radio "Kanal Çek", 21, 200 85 40 10
}

on *:dialog:fenomens:*:*: { 
  if $devent == sclick { 
    if $did == 2 { did -a $dname 1 $did(4) | hadd -m t1 $did(4) | hsave t1 ufuk/t1.hash }
    if $did == 7 { did -a $dname 5 $did(6) | hadd -m t2 $did(6) | hsave t2 ufuk/t2.hash }
    if $did == 11 { did -a $dname 9 $did(10) | hadd -m t3 $did(10) | hsave t3 ufuk/t3.hash }
    if $did(13).state == 1 { set %cezatur zline } 
    if $did(14).state == 1 { set %cezatur shun } 
    if $did(16).state == 1 { set %cezatur gline }
    if $did(15).state == 1 { set %cezatur gzline }
    if $did(18).state == 1 { set %cezatur kline }
    if $did(17).state == 1 { set %cezatur kill }
    if $did(21).state == 1 { set %cezatur kcek | set %kcek1 $did(20) }
    if $did(22).state == 1 { set %proxysistem on } 
    else { unset %proxysistem }
  }
  if $devent == init { 
    mdx MarkDialog $dname
    mdx SetDialog $dname bgcolor $rgb(47,163,204)
    mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22 +b Turkish 12 600 Arial
    mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22 textbg $rgb(47,163,204)
    mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22 background $rgb(47,163,204)
    mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22 text $rgb(0,0,0) 
    mdx SetDialog $dname style title tool sysmenu
    var %t 1
    while %t <= $hmatch(t1,*,0) {
      did -a $dname 1 $hmatch(t1,*,%t)
      inc %t
    }
    var %t 1
    while %t <= $hmatch(t2,*,0) {
      did -a $dname 5 $hmatch(t2,*,%t)
      inc %t
    }
    var %t 1
    while %t <= $hmatch(t3,*,0) {
      did -a $dname 9 $hmatch(t3,*,%t)
      inc %t
    }
    if %cezatur == zline { did -c $dname 13 }
    if %cezatur == shun { did -c $dname 14 }
    if %cezatur == gline { did -c $dname 16 }
    if %cezatur == gzline { did -c $dname 15 }
    if %cezatur == kline { did -c $dname 18 }
    if %cezatur == kill { did -c $dname 17 } 
    if %cezatur == shun { did -c $dname 14 }
    if %cezatur == kcek { did -c $dname 21 }
    did -a $dname 20 %kcek1 
    if %proxysistem { did -c $dname 22 }
  }
  if $devent == dclick { 
    if ($did == 1) { hdel t1 $did(1).seltext | did -d $dname 1 $did(1).sel | hsave t1 ufuk/t1.hash  }
    if ($did == 5) { hdel t2 $did(5).seltext | did -d $dname 5 $did(5).sel | hsave t2 ufuk/t2.hash  }
    if ($did == 9) { hdel t3 $did(9).seltext | did -d $dname 9 $did(9).sel | hsave t3 ufuk/t3.hash  }
  }
  if $devent == close { 
    if $did(20) != $null { set %kcek1 $did(20) }
  }
}
on *:start: {
  hmake t1 200
  hmake t2 200
  hmake t3 200 
  .hload t1 ufuk/t1.hash
  .hload t2 ufuk/t2.hash
  .hload t3 ufuk/t3.hash
}
on *:snotice:*: { 
  if *client*connect* iswm $1- {
    if %proxysistem && !$hmatch(t3,$9) && !$hmatch(t2,$gettok($10,2,64)) { 
      if !$hmatch(t1,$gettok($10,2,64)) {
        if %cezatur == kcek { sajoin $9 %kcek1 | halt } 
        if %cezatur == kill { kill $9 Proxy Kontrol Sistemi | halt }
        else { %cezatur $9 900 Proxy Kontrol Sistemi }
      }
    }
  }
}