Kod : Kodu kopyalamak için üzerine çift tıklayın!

         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,<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: 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,<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) www.siirparki.com 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) www.siirparki.com 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
}