on *:TEXT:!stats*:#: {
msg $chan test
if ($sock(FAFstats)) .sockclose FAFstats
set %FAFSearchfaction $+(*,class="common-playing-link",*)
set %FAFSearchunit $+(*,>,$3-,</span>,*)
set %searchchan $chan
sockopen FAFstats battlelog.battlefield.com 80
}
on *:SOCKOPEN:FAFstats: {
msg %searchchan test2
sockwrite -nt $sockname GET //bf4/user/HELLRAPTOR408/ HTTP/1.1
sockwrite -nt $sockname Host: battlelog.battlefield.com
sockwrite $sockname $crlf
}
on *:SOCKREAD:FAFstats: {
if (!$sockerr) {
var %sockreader
sockread %sockreader
if (%FAFSearchfaction iswm %sockreader && %FAFSearchunit iswm %sockreader ) {
msg %searchchan $gettok(%sockreader,24,34)
write c:\users\wolf\desktop\socket.txt %sockreader
unset %searchchan
unset %FAFSearchfaction
unset %FAFSearchtext
sockclose FAFstats
}
}
}