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