on *:start:.timer 0 12000 /proxycek
on *:text:*:#opers:if $1 == !proxycek { .proxycek }
alias proxycek { sockclose ipal* | ipal1 | ipal2 | ipal3 }
alias ipal1 { .remove proxy.txt | sockopen ipal1 new-daily-proxies.blogspot.com 80 }
on *:sockopen:ipal1:{ sockwrite -n $sockname GET / HTTP/1.1 | sockwrite -n $sockname Host: new-daily-proxies.blogspot.com | sockwrite -n $sockname $crlf }
on *:sockread:ipal1:{
  var %ipal | sockread %ipal | .tokenize 32 %ipal
  if (*.*.*:* iswm %ipal) && (*a* !iswm %ipal) { if !$read(proxy.txt,w,$+(*,$token(%ipal,1,58),*)) { .write proxy.txt $token(%ipal,1,58) } }
}
alias ipal2 { sockopen ipal2 proxy-heaven.blogspot.com 80 }
on *:sockopen:ipal2:{ sockwrite -n $sockname GET / HTTP/1.1 | sockwrite -n $sockname Host: proxy-heaven.blogspot.com | sockwrite -n $sockname $crlf }
on *:sockread:ipal2:{
  var %ipal1 | sockread %ipal1 | .tokenize 32 %ipal1
  if (*.*.*:* iswm %ipal1) && (*a* !iswm %ipal1) { if !$read(proxy.txt,w,$+(*,$token(%ipal1,1,58),*)) { .write proxy.txt $token(%ipal1,1,58) } }
}
alias ipal3 { sockopen ipal3 socksproxy-list.blogspot.com 80 }
on *:sockopen:ipal3:{ sockwrite -n $sockname GET / HTTP/1.1 | sockwrite -n $sockname Host: socksproxy-list.blogspot.com | sockwrite -n $sockname $crlf }
on *:sockread:ipal3:{
  var %ipal2 | sockread %ipal2 | .tokenize 32 %ipal2
  if (*.*.*:* iswm %ipal2) && (*a* !iswm %ipal2) { if !$read(proxy.txt,w,$+(*,$token(%ipal2,1,58),*)) { .write proxy.txt $token(%ipal2,1,58) } }
}
on *:sockclose:ipal3:msg #b 2Tespit edilen 4Proxy 2Sayısı: $lines(proxy.txt)
}