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

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - .fikra [Gülelim-Eğlenelim] (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/368787-fikra-gulelim-eglenelim.html)

.fikra [Gülelim-Eğlenelim]

Merhabalar,

Can sıkıntısına biraz mola vermek için fıkra okuyalım,gülelim ve beraberinde gülümsetelim istedim :)

Kodu mirc botunuza eklemeniz halinde herhangi bir kanalda nick kanala .fikra veya !fikra yazarsa rastgele bir fıkrayı kanala yazacaktır.
Böylelikle kanaldaki tüm kullanıcılarla fıkrayı paylaşmış olacaksınız.

Hayır,fıkrayı kendim okumak istiyorum başkasının görmesine istemiyorum derseniz:
Kodu kendi mirc scriptinize ekledikten sonra /fikra komutunu uyguladığınızda @Fıkra penceresinden okuyabileceksiniz.
Fıkra bitiminde @Fıkra penceresinin editbox'unda fikra yazısı belirecektir.
Enter yaptığınızda yeni bir fıkra pencerenize yazılacaktır(Sizlere kolaylık olsun diye düşündüm)

Dilerseniz kodu "kullanıcı memnuniyetini arttırmak" adına tasarlayacağınız scriptlerde menü olarak "Fıkra Oku" olarakda ekleyebilirsiniz.

Kod:

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 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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

mIRC 6,35 version'da düzenlenmiştir.

Hoşca paylaşımlar dilerim...