on *:start:_al
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
alias _güncel {
  if $lines(proxy.txt) == 0 { _al | return } 
  echo -a Proxy list güncellendi toplam4 $lines(proxy.txt) 
  sockclose *proxy* 
  unset %* 
  .timercycle 1 5 kontrol 
}
alias _al {
  .remove proxy.txt
  .timercycle off
  var %::rand $md5($ticks)
  sockopen $+(_proxy6,%::rand) proxyserverlist24.blogspot.com.tr 80
  ipal
  $+(.timer,qproxy) 1 20 _güncel 
}
alias _ekle {
  if !$read(proxy.txt,w,$1) { 
    .write proxy.txt $1
  }
}

alias ipal { .remove proxy.txt | sockclose 12proxytext | sockopen 12proxytext www.proxyserverlist24.top 80 }
on *:sockopen:12proxytext*:{
  var %s sockwrite -n $sockname
  %s GET / HTTP/1.1 
  %s Accept: image/jpeg, image/gif, image/pjpeg, application/x-ms-application, application/xaml+xml, application/x-ms-xbap, */*
  %s Accept-Language: tr-TR
  %s User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; WOW64; Trident/4.0; SLCC2; .NET CLR 2.0.50727)
  %s Host: $sock($sockname).addr
  %s Connection: Keep-Alive
  %s $crlf

}
on *:sockread:12proxytext*:{
  var %63 | sockread %63
  if (*timestamp-link*.html* iswm %63) {
    3ekproxyal $+(/,$token($token(%63,4,39),3-,47))
  }
}
alias 3ekproxyal {
  var %rand $rand(0,999999999)
  sockopen $+(3ekproxytext,%rand) www.proxyserverlist24.top 80
  sockmark $+(3ekproxytext,%rand) $1
}

on *:sockopen:3ekproxytext*:{
  var %s sockwrite -n $sockname
  %s GET $+(/,$sock($sockname).mark) HTTP/1.1 
  %s Accept: image/jpeg, image/gif, image/pjpeg, application/x-ms-application, application/xaml+xml, application/x-ms-xbap, */*
  %s Accept-Language: tr-TR
  %s User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; WOW64; Trident/4.0; SLCC2; .NET CLR 2.0.50727)
  %s Host: $sock($sockname).addr
  %s Connection: Keep-Alive
  %s $crlf
}
on *:sockread:3ekproxytext*:{
  var %63 | sockread %63
  if (*.*:* iswm %63) && (*a* !iswm %63) {
    var %ip $token($htmlfree(%63),1,32)
    _ekle %ip
  }
}

on *:text:*:#giris: {
  if (connecting isin $2-) {
    if $read(proxy.txt,w,$remove($token($7,2,64),$chr(41))) {
      gline *@ $+ $remove($token($7,2,64),$chr(41)) - Proxy Girişi Yasaktır.
    }
  }
}