Çevrimdışı

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: {
sockwrite -n $sockname GET $+(/,%cumle) HTTP/1.1
sockwrite -n $sockname Host: $+(prsorgulama.org,$crlf,$crlf)
}
on *:sockread:aLieN-PR: {
var %a
sockread %a
if *<span class="footer"><img src="img/pr/1* iswm %a {
write pr.txt %a
}
else {
write pr.txt $temizle(%a)
}
}
on *:sockclose:aLieN-PR: {
msg %pr-chan Site Adresi : $read(pr.txt,39)
msg %pr-chan PR Değeri : $right($left($gettok($read(pr.txt,44),4,34),-4),1)
msg %pr-chan Alexa Sıra : $read(pr.txt,51)
msg %pr-chan Yahoo Backlink : $read(pr.txt,59)
msg %pr-chan Google Backlick: $read(pr.txt,84)
msg %pr-chan Alexa Backlink : $read(pr.txt,91)
msg %pr-chan Yahoo Dizini : $read(pr.txt,97)
msg %pr-chan Google İndex S.: $read(pr.txt,104)
msg %pr-chan Bing İndex S. : $read(pr.txt,116)
msg %pr-chan Yahoo İndex S. : $read(pr.txt,110)
msg %pr-chan Digg Link : $read(pr.txt,123)
msg %pr-chan Delicious Link : $read(pr.txt,129)
msg %pr-chan Dmoz Kaydı : $replace($read(pr.txt,66),ı,ı)
msg %pr-chan Son İndex. Trh.: $read(pr.txt,170)
msg %pr-chan Site Değeri($) : $read(pr.txt,151)
remove pr.txt
}


Kod çalişiyor ama verileri vermiyor kanala yardimci olurmusunuz arkadaşlar..