on *:input:*:{
  if (/* iswm $1-) {
    if ($2 > 30) { echo -a Page Number Must Not Be more Than 30 | halt }
    set %pagenum $2
  }
}
alias ProxyList {
  sockclose ProxyList.*
  set %ProxyListfile ProxyList.txt
  if (%pagenum > 30) { halt }
  if ($isfile(ProxyList.txt)) { remove %ProxyListfile }
  sockopen ProxyList. $+ %pagenum samair.ru 80
  echo -a 2* ProxyList: Downloading latest proxy list..
}
alias RemoveHTML {
  var %x, %i = $regsub($replace($1-,<td>,$chr(32),<tr>,$chr(20),<br>,$chr(20)),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
alias getiphost {
  %var = /\b((?:(?:[a-z]+)\.)+(?:[a-z]+)[: ]\d{2,5})\b|\b((?:(?:(25[0-5]|2[0-4]\d|[01]?\d?\d))\.){3}(?3)[: ]\d{2,5})\b/i
  if $regex(ip,$remove($1-,$chr(9)),%var) { $iif($isid,return,echo -a) $replace($regml(ip,1),:,$chr(32)) }
}
on *:sockopen:ProxyList.*:{
  if (%pagenum < 10) { sockwrite -nt $sockname GET $+(/proxy/time-0 $+ %pagenum $+ .htm) HTTP/1.1 }
  if (%pagenum >= 10) { sockwrite -nt $sockname GET $+(/proxy/time- $+ %pagenum $+ .htm) HTTP/1.1 }
  sockwrite -nt $sockname Host: samair.ru
  sockwrite -nt $sockname $crlf
}
on *:sockread:ProxyList.*:{
  sockread -n %temp
  if ($getiphost($RemoveHTML(%temp))) {
    unset %incvar
    :INC
    inc %incvar
    write ProxyList.txt $getiphost($wildtok($RemoveHTML(%temp),*.*.*.*:*,%incvar,32))
    if (%incvar >= $wildtok($RemoveHTML(%temp),*.*.*.*:*,0,32)) goto end
    goto inc
    :end
    .timerecho 1 3 echo -a 4Downloaded $lines(%ProxyListfile) Proxies. In $qt(%ProxyListfile)
    .timerrun 1 1 run ProxyList.txt
  }
}