on $*:text:/[!.]f(i|ı)kra$/ASi:#:if ($sock(komik,1).status == active || $play(1)) { notice $nick Çalışmanın bitmesini bekleyin } | else { fikra | set %difychan $chan } 
alias fikra {
  .remove fikra.txt
  .remove fikralar.txt
  sockclose komik
  sockopen komik www.fikraoku.com 80
}
on *:sockopen:komik:{
  sockwrite -n $sockname GET /fikragoster.asp?id= $+ $r(1,3000) HTTP/1.1
  sockwrite -n $sockname Host: $sock($sockname).addr
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; tr; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5
  sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  sockwrite -n $sockname Accept-Language: tr-TR,tr;q=0.8,en-us;q=0.5,en;q=0.3
  sockwrite -n $sockname Accept-Encoding: gzip,deflate
  sockwrite -n $sockname Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7  
  sockwrite -n $sockname Connection: Close
  sockwrite -n $sockname $crlf
}
on *:sockread:komik:{
  sockread %dify
  if $sockerr { msg %difychan $sock($sockname).wsmsg }
  else {
    write fikra.txt $htmlfree(%dify)
    if $regex(%dify,/f(i|ı)kray(i|ı).+payla(s|ş|Ş)/i) { 
      sockclose komik  
      if $read(fikra.txt,r,/google\_ad\_height/) { var %oku $calc($readn +1) }
      if $read(fikra.txt,r,/\.css1\s\{/) { var %dur $calc($readn -1) }
      filter -ffr $+(%oku,-,%dur) fikra.txt fikralar.txt
      if %difychan { play %difychan fikralar.txt 1000 }
      else { window -ae @Fıkra | aline 4 @Fıkra * * * * * | loadbuf @Fıkra fikralar.txt | editbox @Fıkra fikra }
    }
  }
}
on *:playend:if $regex($nopath($filename),/fikralar\.txt/i) && %difychan { msg %difychan 5- - Son - - | unset %dify* }
on *:input:@Fıkra:$iif($regex($1,/f(i|ı)kra/Si),fikra)
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$chr(32),%x), %x = $remove(%x,&nbsp;)   
  return %x
}
menu * {
  Fıkra Oku:fikra
}
;Product by Difuzyon