alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
}
on *:text:*:#:{
  if $1 == !pr {
    set %pr-chan $chan
    msg $chan $2 sitesinin bilgileri toplanıyor. Lütfen bekleyin.
    set %cumle $2
    sockopen aLieN-PR prsorgulama.org 80
  }
}
on *:sockopen:aLieN-PR: {
    var %s sockwrite -nt $sockname 
  %s GET  $+(/,%cumle) HTTP/1.1
  %s Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:15.0) Gecko/20100101 Firefox/15.0.1
  %s Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  %s Accept-Language: tr-tr,tr;q=0.8,en-us;q=0.5,en;q=0.3
  ;%s Accept-Encoding: gzip, deflate
  %s Connection: keep-alive
  %s  $crlf $crlf
}
on *:sockread:aLieN-PR: {
 if ($sockerr > 0) return
  ::
  sockread %~
  if ($sockbr) {
    if  $regex(%~,/title="Google PageRank (\d)"/)  { write pr.txt $regml(1) }
    if $remove($htmlfree(%~),$chr(9))  { write pr.txt $ifmatch }
    goto :
  }
}

on *:sockclose:aLieN-PR: {
var %~msg msg %pr-chan
%~msg Site Adresi : $read(pr.txt,29)
%~msg PR Değeri : $read(pr.txt,31)
;%~msg Alexa Sıra : $read(pr.txt,33)
;%~msg Yahoo Backlink : $read(pr.txt,59)
%~msg Google Backlick: $read(pr.txt,40)
%~msg Alexa Backlink : $read(pr.txt,43)
%~msg Yahoo Dizini : $read(pr.txt,45)
%~msg Google İndex S.: $read(pr.txt,47)
%~msg Bing İndex S. : $read(pr.txt,51)
%~msg Yahoo İndex S. : $read(pr.txt,49)
%~msg Digg Link : $read(pr.txt,54)
%~msg Delicious Link : $read(pr.txt,56)
%~msg Dmoz Kaydı : $replace($read(pr.txt,35),ı,ı)
%~msg Son İndex. Trh.: $read(pr.txt,68)
%~msg Site Değeri($) : $read(pr.txt,62)
  remove pr.txt
}