alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:sockopen:hppn:{
  var %s sockwrite -n $sockname
  if %sira == 0 { %s GET /proxy/time-01.htm HTTP/1.1 }
  if %sira == 1 { %s GET /proxy/time-02.htm HTTP/1.1 }
  if %sira == 2 { %s GET /proxy/time-03.htm HTTP/1.1 }
  if %sira == 3 { %s GET /proxy/time-04.htm HTTP/1.1 }
  if %sira == 4 { %s GET /proxy/time-05.htm HTTP/1.1 }
  if %sira == 5 { %s GET /proxy/time-06.htm HTTP/1.1 }
  if %sira == 6 { %s GET /proxy/time-07.htm HTTP/1.1 }
  if %sira == 7 { %s GET /proxy/time-08.htm HTTP/1.1 }
  if %sira == 8 { %s GET /proxy/time-09.htm HTTP/1.1 }
  if %sira == 9 { %s GET /proxy/time-10.htm HTTP/1.1 }
  if %sira == 10 { %s GET /proxy/time-11.htm HTTP/1.1 }
  if %sira == 11 { %s GET /proxy/time-12.htm HTTP/1.1 }
  if %sira == 12 { %s GET /proxy/time-13.htm HTTP/1.1 }
  if %sira == 13 { %s GET /proxy/time-14.htm HTTP/1.1 }
  if %sira == 14 { %s GET /proxy/time-15.htm HTTP/1.1 }
  if %sira == 15 { %s GET /proxy/time-16.htm HTTP/1.1 }
  if %sira == 16 { %s GET /proxy/time-17.htm HTTP/1.1 }
  if %sira == 17 { %s GET /proxy/time-18.htm HTTP/1.1 }
  if %sira == 18 { %s GET /proxy/time-19.htm HTTP/1.1 }
  if %sira == 19 { %s GET /proxy/time-20.htm HTTP/1.1 }
  %s Host: samair.ru $+ $crlf $+ $crlf
}
/* 
;h4pp3n yazdığı kod satırıdır. Sadece ekleme ve düzenleme yapılmıştır
*/
on *:sockread:hppn:{
  sockread %hppn
  if $gettok($gettok(%hppn,1,32),2,58) == 1080 {
    var %hp $gettok(%hppn,1,58)
    if !$read(proxylist.txt,w,%hp) {
      write proxylist.txt %hp
    }
  }
}
on *:sockclose:hppn:{
  if %sira == 20 { 
    swbot1 PRIVMSG %botlogkanal 2Hızlandırılmış proxy listesi çekildi. Toplam $lines(proxylist.txt) kadar IP mevcut.
  } 
  else { 
    inc %sira
    sockclose hppn*
    sockopen hppn samair.ru 80 
  }
}
alias pbn {
  sockclose hppn 
  sockopen hppn samair.ru 80 
  set %sira 0
  set %prox 0
}