IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Can sıkıntısından yazdıgım bir cod olup siir okumak isteyen arkadaslara bir katkıda bulunur ins.

Kullanimi;

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

Ins. isinize yarar Hayırlı IF'ler..
Kod:
on *:sockopen:siir*: {

  var %komut sockwrite -n $sockname

  %komut GET $+(/usta,$sock($sockname).mark,siir.html) HTTP/1.1

  %komut 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 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: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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,<font size="1">)) { echo @Siir 6Siirler:2 $htmlfree(%s) 6Link:2 %links [ $+ [ $sockname ] ] 6Anahtar Kelime:2 %anahtar [ $+ [ $sockname ] ] | inc %h [ $+ [ $sockname ] ] }

  if ($regex(%s,width=500></TD></TR></TBODY></TABLE>)) { 

    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: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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,<br>,$chr(9))

  if ($regex(%63x,class="TimesRoman20")) { echo @Siir 6 $htmlfree(%63x) }

  if ($regex(%63x,<p align="center"><I><FONT COLOR)) { echo @Siir 2 $htmlfree(%63x) }

  if (!$regex(%63x,(<|#|-|/|}|GMT|=|{))) {  $iif($htmlfree(%63x),echo @Siir 2 $htmlfree(%63x)) }

}

alias siir {

  if (!$1) { echo -ae 2Lutfen bir harf giriniz! | halt }

  if ($len($1) !== 1) { echo -ae 2Lutfen sadece bir harf giriniz! | halt }

  $iif(!$window(@Siir),window -e @Siir,window -e @Siir)

  var %rands $rand(0,999999)

  sockopen $+(siir,%rands) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80

  sockmark $+(siir,%rands) $replace($1,ç,c,ğ,g,ı,i,l,k,ö,o,r,p,ş,s,ü,u,j,i)

}

alias goster {

  if (!$1) { echo -ae 2Lutfen anahtar kelime giriniz! | halt }

  var %randos $rand(0,999999)

  sockopen $+(goster,%randos) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80

  sockmark $+(goster,%randos) $1

  $iif(!$window(@Siir),window -e @Siir,window -e @Siir)

  echo @Siir 1,6 $str($chr(35),30) $(|) 1,6 $str($chr(35),30) 

}

alias htmlfree {

  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;)

  return %x

}