on *:SNOTICE:*:{ if *Client connecting* iswm $1- { who +I $9 } }
raw 352:*:{ if $read(proxy.txt,w,$+(*,$4,*)) { gzline $+(*@,$4) : 1[2IRC-Security-Protection4™]

on *:start:timeripal 0 10800 ipal
alias ipal { .remove proxy.txt | sockclose ipal | sockopen ipal slyhold.com 80 }
on *:sockopen:ipal:{ var %:ipal sockwrite -n $sockname | %:ipal GET /proxy_any_any.txt HTTP/1.1 | %:ipal Host: slyhold.com | %:ipal $crlf }
on *:sockread:ipal:{ var %ipal | sockread %ipal | .tokenize 32 %ipal | if $regex(ip1,%ipal,/^((\d+\.\d+\.\d+\.\d+)[\72]\d+$)/i) { if !$read(proxy.txt,w,$+(*,$regml(ip1,2),*)) { write proxy.txt $regml(ip1,2) } } }
on *:sockclose:ipal:{ sockclose ipal1 | sockopen ipal1 dan.me.uk 80 }
on *:sockopen:ipal1:{ var %:ipal1 sockwrite -n $sockname | %:ipal1 GET /torlist HTTP/1.1 | %:ipal1 Host: dan.me.uk | %:ipal1 $crlf }
on *:sockread:ipal1:{ var %ipal1 | sockread %ipal1 | .tokenize 32 %ipal1 | if $regex(ip2,%ipal1,/^((\d+\.\d+\.\d+\.\d+)[\72]\d+$)/i) { if !$read(proxy.txt,w,$+(*,$regml(ip2,2),*)) { write proxy.txt $regml(ip2,2) } } }
on *:sockclose:ipal1:{ sockclose ipal2 | sockopen ipal2 multiproxy.org 80 }
on *:sockopen:ipal2:{ var %:ipal2 sockwrite -n $sockname | %:ipal2 GET /txt_all/proxy.txt HTTP/1.1 | %:ipal2 Host: multiproxy.org | %:ipal2 $crlf }
on *:sockread:ipal2:{ var %ipal2 | sockread %ipal2 | .tokenize 32 %ipal2 | if $regex(ip3,%ipal2,/^((\d+\.\d+\.\d+\.\d+)[\72]\d+$)/i) { if !$read(proxy.txt,w,$+(*,$regml(ip3,2),*)) { write proxy.txt $regml(ip3,2) } } }
on *:sockclose:ipal2:{ sockclose ipal3 | sockopen ipal3 tubeincreaser.com 80 }
on *:sockopen:ipal3:{ var %:ipal3 sockwrite -n $sockname | %:ipal3 GET /proxylist.txt HTTP/1.1 | %:ipal3 Host: tubeincreaser.com | %:ipal3 $crlf }
on *:sockread:ipal3:{ var %ipal3 | sockread %ipal3 | .tokenize 32 %ipal3 | if $regex(ip4,%ipal3,/^((\d+\.\d+\.\d+\.\d+)[\72]\d+$)/i) { if !$read(proxy.txt,w,$+(*,$regml(ip4,2),*)) { write proxy.txt $regml(ip4,2) } } }
on *:sockclose:ipal3:{ echo -a Proxy list güncellendi4 $lines(proxy.txt) ip mevcut. }
on *:SNOTICE:*Client connecting*:if $read(proxy.txt,w,$token($gettok($10,2,64),1,41)) { gzline $+(*@,$token($gettok($10,2,64),1,41)) +1h Proxy Yasak! }