alias ProxyList {
  ; Syntax: /ProxyList [-pageNo]
  ; eg. /ProxyList 4
  ; ----------------
  ; By Jonesy44
  ; ----------------
  ; EDIT THIS NEXT LINE FOR PROXYLIST FILE NAME!
  set %ProxyList.FileName ProxyList.dat
  ; STOP EDITING HERE!
  
  .sockclose ProxyList.1 | .sockclose ProxyList.2 | .sockclose ProxyList.3
  .remove %ProxyList.FileName
  .timerCompletedCheck 0 1 ProxyList.CompletedCheck
  var %n = 1
  echo -a 2* ProxyList: Downloading latest proxy list..
  while %n <= $iif($1 isnum 1-,$1,3) {
    sockopen $+(ProxyList.,%n) samair.ru 80
    inc %n
  }
}
alias ProxyList.CompletedCheck {
  if !$sock(ProxyList.1) || !$sock(ProxyList.2) || !$sock(ProxyList.3) {
    echo -a 4Succesfully downloaded $lines(%ProxyList.FileName) proxy addresses. Stored in $qt(%ProxyList.FileName)
    .timerCompletedCheck off
    unset %ProxyList.*
  }
}
alias ProxyList.RemoveHTML return $regsubex($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)|&[^;]+;|       /g,$null)
on *:sockopen:ProxyList.*:{
  if $sockerr { echo -a Socket error: $sock($sockname).wsmsg }
  else { 
    sockwrite -nt $sockname GET $+(/proxy/time-0,$gettok($sockname,2,46),.htm) HTTP/1.1 
    sockwrite -nt $sockname Host: samair.ru
    sockwrite -nt $sockname $crlf
  }
}
on *:sockread:ProxyList.*:{
  var %SocketRead
  sockread %SocketRead
  if !$sockerr {
    if $regex(%SocketRead,/(\D=\d)/g) {
      var %Index = 1,
      while %Index <= $regml(0) {
        set %ProxyList.Decode. [ $+ [ $gettok($sockname,2,46) ] ] $+(%ProxyList.Decode. [ $+ [ $gettok($sockname,2,46) ] ],$chr(32),$gettok($regml(%Index),1,61),-,$gettok($regml(%Index),2,61))
        inc %Index
      }
      echo -a 2* ProxyList: Generating decode key for page $gettok($sockname,2,46) -- 3Created key succesfully
    }
    if $regex(%SocketRead,/<tr><td>.*<\/td><\/tr>/i) { 
      var %SocketRead = $remove($ProxyList.RemoveHTML(%SocketRead),document.write,$chr(40),+,")
      var %Index = 1
      while %Index <= $numtok(%SocketRead,41) {
        noop $regex($gettok(%SocketRead,%Index,41),/(\d+.\d+.\d+.\d+\:.*)/)
        var %Output = $regml(1)
        if $regml(1) {
          var %SubIndex = 1
          while %SubIndex <= $numtok(%ProxyList.Decode. [ $+ [ $gettok($sockname,2,46) ] ],32) {
            %Output = $replace(%Output,$gettok($gettok(%ProxyList.Decode. [ $+ [ $gettok($sockname,2,46) ] ],%SubIndex,32),1,45),$gettok($gettok(%ProxyList.Decode. [ $+ [ $gettok($sockname,2,46) ] ],%SubIndex,32),2,45))
            inc %SubIndex
          }
          write %ProxyList.FileName %Output
        }
        inc %Index 1
      }
    }
  }
  else echo -a Socket error: $sock($sockname).wsmsg 
}

alias samair {
  set %samair 1 | set %samairt $lines(ips.txt)
  sockclose samair-*
  sockopen samair-1 samair.ru 80
}

on *:sockopen:samair-*:{
  var %a $gettok($sockname,2,45),%k sockwrite -tn $sockname
  %k GET $+(/proxy/proxy-,$iif(%a > 9,%a,0 $+ %a),.htm) HTTP/1.1
  %k host: samair.ru | %k
}
on *:sockread:samair-*:{
  var %d
  sockread %d
  if <td> isin %d && <script isin %d { noop $regsubex(%d,/(\d+.\d+.\d+.\d+)/g,$ipyaz(\t))  }
  if proxycountry"> isin %d {  var %a $gettok($sockname,2,45),%b (*4Proxy Downloader*)
    if %a == 30 { echo -at %b Proxy alımı bitti. | echo -at %b Toplam proxy sayısı: $lines(ips.txt) 
    echo -at %b Bu sefer çekilen farklı proxy: $calc($lines(ips.txt) - %samairt) }
    else { inc %samair | sockopen samair- $+ %samair samair.ru 80 }
    sockclose $sockname 
  }
}
alias -l ipyaz if (!$read(ips.txt,w,$1)) write ips.txt $1

on *:snotice:*Client connecting*:.who +I $9
raw 352:*:if $read(ips.txt,w,$4) { gzline $+(*@,$4) 1h 1IP adresinizde 4TOR/Proxy 1girişi tespit edilmiştir. }