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 
}