mIRC Web Siir Okuma

Kullanimi;

Harfa gore arama yapabilme!
* Komut: /siir harf
* Ornek: /siir A

on *:sockopen:siir*: {
var %komut sockwrite -n $sockname
%komut GET $+(/usta,$sock($sockname).mark,siir.html) HTTP/1.1
%komut Host: www.siirparki.com
%komut User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:5.0) Gecko/20100101 Firefox/5.0
%komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
%komut Accept-Language: tr-TR
%komut Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7
%komut Connection: keep-alive
%komut Referer: http://www.siirparki.com/siireh.html
%komut Cookie: fadedin=yes
%komut $crlf
}
on *:sockread:siir*: {
var %s | sockread %s
if ($regex(%s,javascript:winopen)) { set %links [ $+ [ $sockname ] ] $gettok(%s,2,39) | set %anahtar [ $+ [ $sockname ] ] $gettok($gettok(%s,3,47),1,46) }
if ($regex(%s,)) { echo @Siir 6Siirler:2 $htmlfree(%s) 6Link:2 %links [ $+ [ $sockname ] ] 6Anahtar Kelime:2 %anahtar [ $+ [ $sockname ] ] | inc %h [ $+ [ $sockname ] ] }
if ($regex(%s,width=500>)) {
echo @Siir 2Siir aramasinda belirtiginiz harf $+(6,$upper($sock($sockname).mark),2) ,
echo @Siir 2Toplam siir sayisi:6 %h [ $+ [ $sockname ] ]
echo @Siir 2Okumak istediginiz siiri listeden6 /goster AnahtarKelime 2 olarak belirtebilirsiniz.
echo @Siir 2Ya da link'i yıklayip siir'i okuyabilirsiniz.
unset %h [ $+ [ $sockname ] ] %links [ $+ [ $sockname ] ] %anahtar [ $+ [ $sockname ] ]
}
}
on *:sockopen:goster*: {
var %kmt sockwrite -n $sockname
%kmt GET $+(/,$sock($sockname).mark,.html) HTTP/1.1
%kmt Host: www.siirparki.com
%kmt User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:5.0) Gecko/20100101 Firefox/5.0
%kmt Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
%kmt Accept-Language: tr-TR
%kmt Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7
%kmt Connection: keep-alive
%kmt Cookie: fadedin=yes
%kmt $crlf
}
on *:sockread:goster*: {
var %63 | sockread %63 | var %63x $remove(%63,
,$chr(9))
if ($regex(%63x,class="TimesRoman20")) { echo @Siir 6 $htmlfree(%63x) }
if ($regex(%63x,

|< [^>]*>|< [^>]*$)/gi,$null,%x), %x = $remove(%x, )
return %x
}