Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:!ulke*.*.*.*.*: gip $nick $1
alias gip { var %´ $+($2,-,$md5($1-),@,$1) | if !$sock(%´) { sockopen -e %´
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
443 } }
on *:sockopen:*@*: {
var %s sockwrite -nt $sockname
%s GET /en/advisory/ip/ $+ $regsubex($gettok($sockname,1,45),/(\.)/ig,/) HTTP/1.1
%s Host: $sock($sockname).addr
%s User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:43.0) Gecko/20100101 Firefox/43.0
%s Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
%s Connection: keep-alive
%s $crlf
}
on *:sockread:*@*: {
if (!$sockerr) {
sockread -fn %~
if %~ {
if $regsubex(%~,/(<td data-sort="\w+,\w+,".+<\/td>)/gi,\1) {
var %` $regsub($replace($regml(1),<td>,$chr(32),<tr>,$chr(20),<br>,$chr(20)),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%´), %´ = $remove(%´, )
$iif(%´,msg $gettok($sockname,2,64) $gettok($sockname,1,45) = %´ )
}
}
}
}