##### Proxy Koruması ßy Proxy (Güncellenmiş) ##########

; Başlatma
on *:start:ipal | $+(.timer,ipal) 0 5000 /ipal

#proxy off

; === MUAF IP DOSYASI ===
; Bu dosyaya yazılan IP’ler banlanmaz. (örnek: 1.2.3.4)
; her satıra bir IP ekleyebilirsin.
; /write muafip.txt 1.2.3.4
; /write muafip.txt 85.97.123.56
; /write muafip.txt 213.14.55.77

alias proxy_ {
  if ($1) {
    inc %_
    sockopen $+(proxy*,%_) simpleproxylist.com 80
    sockmark $+(proxy*,%_) $1
  }
}

on *:sockopen:proxy*: {
  var %s = sockwrite -n $sockname
  %s GET /info.php?ip= $+ $sock($sockname).mark HTTP/1.1
  %s Host: simpleproxylist.com
  %s $crlf
}

on *:sockread:proxy*: {
  var %v
  sockread %v
  var %ip = $sock($sockname).mark
  if ($read(muafip.txt,w,$+(*,%ip,*))) return
  if (Proxy: <b> isin %v) {
    gzline $+(*@,%ip) 1h 1IP adresinizde 4PROXY 1girişi tespit edildi. 
  }
}

on *:snotice:*on*port*: { .who +I $9 }
on *:snotice:*changed his/her nickname*: { .who +I $11 }

raw 352:*: {
  if ($read(proxy.txt,w,$+(*,$4,*))) {
    if ($read(muafip.txt,w,$+(*,$4,*))) return
    gzline $+(*@,$4) +1h 4Proxy girişi tespit edildi.
    return
  }
  ptara $4
  proxy_ $4
}

alias htmlfree {
  var %x
  var %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x)
  return $remove(%x,&nbsp;)
}

alias ptara {
  var %ip = $1
  if ($read(muafip.txt,w,$+(*,%ip,*))) return
  if ($regex(%ip,/(\d+\.\d+\.\d+\.\d+)/)) {
    if ($regex(%ip,/^(10|192\.168|172\.(1[6-9]|2[0-9]|3[01])|127\.)/)) return
    if ($read(proxy.txt,w,$+(*,%ip,*))) {
      gzline $+(*@,%ip) - 2Proxy / Tor / Wingate girişi yasak!
    }
  }
}

#proxy end

; === Menü ===
menu channel,menubar {
  » Proxy Koruması
  .» Proxy Koruması Aç: .enable #proxy | echo -a Proxy Koruması Açıldı.
  .-
  .» Proxy Koruması Kapat: .disable #proxy | echo -a Proxy Koruması Kapatıldı.
  .-
  .» Muaf IP Ekle: set %muafip $$?="Muaf IP gir (ör: 1.2.3.4)" | write muafip.txt %muafip | echo -a %muafip eklendi.
  .» Muaf IP Listele: run notepad muafip.txt
}

; === Proxy listeleri ===
alias ipal {
  .remove proxy.txt
  sockclose links
  sockopen links multiproxy.org 80
}

on *:sockopen:links: {
  var %:links sockwrite -n $sockname
  %:links GET /txt_all/proxy.txt HTTP/1.1
  %:links Host: multiproxy.org
  %:links $crlf
}

on *:sockread:links: {
  var %data
  sockread %data
  if (*.*.*:* iswm %data) && (*a* !iswm %data) {
    write proxy.txt %data
  }
}

on *:sockclose:links: {
  sockopen ipcek2 proxylists.net 80
}

on *:sockopen:ipcek2: {
  var %s = sockwrite -n $sockname
  %s GET /socks4.txt HTTP/1.1
  %s Host: proxylists.net
  %s $crlf
}

on *:sockread:ipcek2: {
  var %data
  sockread %data
  if (*.*.*:* iswm %data) && (*a* !iswm %data) {
    write proxy.txt %data
  }
}

on *:sockclose:ipcek2: {
  echo -a Proxy listesi güncellendi. 4Toplam: $lines(proxy.txt) IP.
}

; === Kanal Komutları ===
on *:text:*:#opers: {
  if ($1 == !ac) { .enable #proxy | msg # Proxy koruması aktif. }
  if ($1 == !kapat) { .disable #proxy | msg # Proxy koruması kapatıldı. }
}