on *:join:#:{
  if ($count($nick($chan,$me).pnick,@,&,~,%) != 0) && %Proxy.koruma == On {
    var %ip $gettok($address,2,$asc(@))
    if $hfind(p,%ip,1,W).item { if $hfind(m,$nick,1,W).item { echo 3 -ae **** Muaf nick girişi:4 $nick  Atilmadi.  | return } 
    kick $chan $nick sebep| mode $chan +b $+(*!*@,$hfind(p,%ip,1,W).item) }
  }
}

on *:Start:{
  if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x 
  if !$file(m.x) { write -c m.x } | hmake m | hload m m.x 
}
alias pr {
  if !$hget(p) { if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x  }
  if !$hget(m) { if !$file(m.x) { write -c m.x } | hmake m | hload m m.x }
  if $1 == Ac { set %proxy.koruma ON | echo 3 -ae *** 5Proxy Koruması acılmıştır. } | if $1 == Kapat { set %proxy.koruma Off | echo 3 -ae *** 5Proxy Korumasi kapatılmıştır.. }
  if $1 == ekle {
    if !$2 { echo 3 -ae *** Lütfen ip adresi yaz, $me $+ . | return }
    if $hfind(p,$2,1,W).item { echo 3 -ae *** Bu ip listede mecvuttur. | return }
    hadd -m p $2 Proxy | hsave p pr.x 
    echo 3 -ae *** $2 Listeye eklenmiştir.
  }
  if $1 == sil {
    if !$2 { echo 3 -ae *** Lütfen ip adresi yaz, $me $+ . | return }
    if $hfind(p,$2,1,W).item {
      hdel p $ifmatch | hsave p pr.x
      echo 3 -ae *** $ifmatch Listeden silinmiştir.
    }
    else { echo 3 -ae *** Listeden bulunamamistır. }
  }
  if $1 == liste {
    var %s 1, %f $hget(p,0).item
    if $hget(p,0).item == 0 { echo 3 -ae *** Liste bos durumda. | return }
    while %s <= %f {
      echo 3 -ae ***4 Proxy IP listesi: $hget(p,%s).item
      inc %s
    }
  }
  if $1 == muaf {
    if $2 == ekle {
      if $hfind(m,$3,1,W).item { echo 3 -ae *** Bu nick listede mecvuttur. | return }
      hadd -m m $3 Proxy | hsave m m.x 
      echo 3 -ae *** $3 Muaf nick listeye eklenmiştir.
    }
    if $2 == sil {
      if $hfind(m,$3,1,W).item {
        hdel m $ifmatch | hsave m m.x
      }
      else { echo 3 -ae *** Listeden bulunamamistır. }
    }
    if $3 == liste {
      var %s 1, %f $hget(m,0).item
      if $hget(m,0).item == 0 { echo 3 -ae *** Liste bos durumda. | return }
      while %s <= %f {
        echo 3 -ae ***4 Proxy muaf nick listesi: $hget(m,%s).item
        inc %s
      }
    }
  }
}
on *:join:#:{
  if ($count($nick($chan,$me).pnick,@,&,~,%) != 0) && %Proxy.koruma == On {
    var %ip $gettok($address,2,$asc(@))
    if $hfind(p,%ip,1,W).item { if $hfind(m,$nick,1,W).item { echo 3 -ae **** Muaf nick girişi:4 $nick  Atilmadi.  | return } 
    kick $chan $nick SEBEP | mode $chan +b $+(*!*@,$hfind(p,%ip,1,W).item) }
  }
}