alias pbn {
  sockclose hppn 
  sockopen hppn samair.ru 80 
  set %sira 0
}
on *:sockopen:hppn:{
  if %sira == 0 { sockwrite -n $sockname GET /proxy/socks.htm HTTP/1.1 | inc %sira 1 }
  if %sira == 1 { sockwrite -n $sockname GET /proxy/socks2.htm HTTP/1.1 | inc %sira 1 }
  if %sira == 2 { sockwrite -n $sockname GET /proxy/socks3.htm HTTP/1.1 | inc %sira 1 }
  if %sira == 3 { sockwrite -n $sockname GET /proxy/socks4.htm HTTP/1.1 | inc %sira 1 }
  if %sira == 4 { sockwrite -n $sockname GET /proxy/socks5.htm HTTP/1.1 | inc %sira 1 }
  if %sira == 5 { sockwrite -n $sockname GET /proxy/socks6.htm HTTP/1.1 | inc %sira 1 }
  if %sira == 6 { sockwrite -n $sockname GET /proxy/socks7.htm HTTP/1.1 | inc %sira 1 }
  if %sira == 7 { sockwrite -n $sockname GET /proxy/socks8.htm HTTP/1.1 | inc %sira 1 }
  if %sira == 8 { sockwrite -n $sockname GET /proxy/socks9.htm HTTP/1.1 | inc %sira 1 }
  if %sira == 9 { sockwrite -n $sockname GET /proxy/socks10.htm HTTP/1.1 | inc %sira 1 }
  if %sira == 10 { sockwrite -n $sockname GET /proxy/socks11.htm HTTP/1.1 | inc %sira 1 }
  if %sira == 11 { sockwrite -n $sockname GET /proxy/socks12.htm HTTP/1.1 | inc %sira 1 }
  if %sira == 12 { sockwrite -n $sockname GET /proxy/socks13.htm HTTP/1.1 | inc %sira 1 }
  if %sira == 13 { sockwrite -n $sockname GET /proxy/socks14.htm HTTP/1.1 | inc %sira 1 }
  if %sira == 14 { sockwrite -n $sockname GET /proxy/socks15.htm HTTP/1.1 | inc %sira 1 }
  if %sira == 15 { sockwrite -n $sockname GET /proxy/socks16.htm HTTP/1.1 | inc %sira 1 }
  if %sira == 16 { sockwrite -n $sockname GET /proxy/socks17.htm HTTP/1.1 | inc %sira 1 }
  if %sira == 17 { sockwrite -n $sockname GET /proxy/socks18.htm HTTP/1.1 | inc %sira 1 }
  if %sira == 18 { sockwrite -n $sockname GET /proxy/socks19.htm HTTP/1.1 | inc %sira 1 }
  if %sira == 19 { sockwrite -n $sockname GET /proxy/socks20.htm HTTP/1.1 }
  sockwrite -n $sockname Host: samair.ru $+ $crlf $+ $crlf
}
on *:sockread:hppn:{
  sockread %hppn
  if $gettok($gettok(%hppn,1,32),2,58) == 1080 {
    var %hp $gettok(%hppn,1,58)
    if !$read(tor.txt,w,%hp) {
      write tor.txt %hp
    }
  }
}