on ^*:snotice:*:{ Haltdef }
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
  debug -i debug1.txt $!console2
}
alias debugaçç { debug -i debug1.txt $!console2 }

Alias console2 {
  tokenize 32 $1-
  if $regex($1-,/Client connecting (at|on port) (.+)\: (.+) \((.+)@(.+)\)/Si) {
    var %:port = $remove($regml(2),$chr(40),$chr(41))
    var %:ip $iif(%:port == 6667,$gettok($regml(5),-2,41),$remove($regml(5),$chr(40),$chr(41)))
    var %:nick $remove($regml(3),$chr(40),$chr(41))
    echo -st 3Giriş:4 %:nick 3nickli kullanıcı0 (4 %:ip 0)3 ip üzerinden bağlandı.
  }
  if $regex($1-,/Client exiting/Si) { 
    if $regex($1-,/Client exiting\: (.+) \((.+)@(.+)\) .+/Si) { var %_cnk = $regml(1), %_cit $regml(2), %_cip $token($regml(3),1,32) }
    elseif $regex($1-,/Client exiting at .+: (.+)!(.+)@(.+)/Si) { var %_cnk = $regml(1), %_cit $regml(2), %_cip $token($regml(3),1,32) }
    echo -st 14Çıkış: IRC`den Çıktı: $+(%_cnk,!,%_cit,@,%_cip) (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if $hfind(p,%:ip,1,W).item {
    if $hfind(m,%:nick,1,W).item { echo -st 11****7 Muaf nick girişi:4 $nick 7atılmadı | return  }
    gline %:nick 12Proxy4/12Vpn4/12Tor Kullanımı 4yasaktır. 3Mask:0 $hfind(p,%:ip,1,W).item
  }  
}
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 == ON { set %proxy.koruma ON | echo 11 -ae ***12 Proxy Koruması aktif edildi. } | if $1 == Close { set %proxy.koruma Off | echo 11 -ae ***4 Proxy Koruması kapatılmıştır.. }
  if $1 == ekle {
    if !$2 { echo -ae 11***7 Lütfen ip adresi yaz, $me $+ . | return }
    if $hfind(p,$2,1,W).item { echo -ae11*** 7Eklemek istediğin4 Proxy7 listesin de mecvuttur. | return }
    hadd -m p $2 Proxy | hsave p pr.x
    echo -ae 11***3 $2 4Listeye eklenmiştir.
  }
  if $1 == sil {
    if !$2 { echo -ae 11***7 Lütfen ip adresi yaz, $me $+ . | return }
    if $hfind(p,$2,1,W).item {
      hdel p $ifmatch | hsave p pr.x
      echo -ae 11*** $ifmatch 7Listeden silinmiştir.
    }
    else { echo -ae 11***7 Listeden bulunamamıştır. }
  }
  if $1 == liste {
    var %s 1, %f $hget(p,0).item
    if $hget(p,0).item == 0 { echo 3 -ae 11***7 Liste boş durumda. | return }
    while %s <= %f {
      echo -ae 11***3 Proxy IP listesi:0 $hget(p,%s).item
      inc %s
    }
  }
  if $1 == muaf {
    if $2 == ekle {
      if $hfind(m,$3,1,W).item { echo -ae 11***7 Eklemeye açlıştığın4 Nick7 listede mevcuttur. | return }
      hadd -m m $3 Proxy | hsave m m.x
      echo -ae 11*** $3 4Muaf nick listeye eklenmiştir.
    }
    if $2 == sil {
      if $hfind(m,$3,1,W).item {
        hdel m $ifmatch | hsave m m.x
      }
      else { echo -ae 11***7 Silmek istediğin4 Proxy7 liste de bulunamamıştır. }
    }
    if $2 == liste {
      var %s 1, %f $hget(m,0).item
      if $hget(m,0).item == 0 { echo -ae 11***7 Liste boş durumda. | return }
      while %s <= %f {
        echo -ae 11***4 Proxy muaf Nick Listesi: $hget(m,%s).item
        inc %s
      }
    }
  }
}