| Difuzyon | 04 Aralık 2010 01:19 |
.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) 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 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, )
return %x
}
menu * {
Fıkra Oku:fikra
}
;Product by Difuzyon
mIRC 6,35 version'da düzenlenmiştir. Hoşca paylaşımlar dilerim... | 