.fikra mirc kodu

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.

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

Leave a Reply

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir