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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   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)

Difuzyon 04 Aralık 2010 01:12
.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...

uFuK 04 Aralık 2010 15:24
Cevap: .fikra [Gülelim-Eğlenelim]
 
Yararlı bir code aslında bende socket'le birşeyler yapmaya yönelsem iyi olucak. Biliyorumda pek uğraşmıyorum.

Ama sen bir bir projeleri tüketiyorsun Difizyon :)

diyorumki 04 Aralık 2010 16:25
Cevap: .fikra [Gülelim-Eğlenelim]
 
Cinsel içerikli fıkralarda çıkıyor bu hoş olmuyor önlemi yokmu bunun acaba?

Difuzyon 04 Aralık 2010 18:15
Cevap: .fikra [Gülelim-Eğlenelim]
 
Verileri aldığım sitede fıkralar aşağıdaki sistemde:

Temel Fıkraları
Karadeniz Fıkraları
Nasreddin Hoca Fıkraları
Sarhoş Fıkraları
Kadın-Erkek Fıkraları
Cinsel İçerikli Fıkralar
...

kategorize edilmiş.Bir çoğuda üyelerin kendi eklediği fıkralardan oluşuyor.
Site Editör'leri aşırı bir şekilde uygun olmayanları taşımış\silmiş ama gözden kaçırdıklarıda epey var ?

Verileri aldığım sitede rastgele konumda Cinsel İçerikli fıkraları ayıklama imkanım gözükmüyor gibi 1 ile 3.000 arasında rastgele bir rakam üzerinden fıkraları çekme yoluna gittim.

Cinsel İçerikli olanlarında belli bir aralık durumu yok.(yani 300 ile 500 rakamı arası Cinsel İçerikli'dir diye bir tespitim yok,olsaydı onu ayıklardım)
Belki şu olabilirdi "belli bir kategoriden fıkra seçimi" yapılabilirdi.Bu durumda da fıkra sayısı çok az olacaktı.

Anlayacağımız 3.000 adet fıkra arasına rakamsal olarak rastgele ve kontrol edilmeksizin dağıtılmış.

Üzücüdür ki birçok sitede durum bu şekildedir.

Ravage 04 Aralık 2010 19:42
Cevap: .fikra [Gülelim-Eğlenelim]
 
Emeğine Sağlık, Üstat.

SeRDaR406 04 Aralık 2010 19:47
Cevap: .fikra [Gülelim-Eğlenelim]
 
Aslında bir önlem alınabilinir.Anasayfada yer alan fıkranın türüne göre durumları belirtilen açıklama var.O açıklamadaki ibare fıkra görüntülendiğinde hangi türden ise ilk başta belirtiliyor.Verileri çekerken o ibareye işlem yapılabilinir.Eğer "küfür,erotik vs.." içerikte ise
ona göre işlem yapılır diye düşünüyorum.

Ama gel gör ki gözden kaçanlarda var.Şimdi denk geldim mesela birine :D

CesuryureK 04 Aralık 2010 20:04
Cevap: .fikra [Gülelim-Eğlenelim]
 
Alıntı:
SeRDaR406 Nickli Üyeden Alıntı (Mesaj 1040602715)
Ama gel gör ki gözden kaçanlarda var.Şimdi denk geldim mesela birine :D
çok utanmışındır :D

SeRDaR406 04 Aralık 2010 20:07
Cevap: .fikra [Gülelim-Eğlenelim]
 
Alıntı:
CesuryureK Nickli Üyeden Alıntı (Mesaj 1040602739)
çok utanmışındır :D
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

(Yüzünü Kapat)

Tamda okuduğum fıkra bu idi.İyi denk gelmiş :D

Difuzyon 04 Aralık 2010 20:12
Cevap: .fikra [Gülelim-Eğlenelim]
 
Bu belki istenmeyen türleri elemek için daha doğrusu "azaltmak için" yöntem olarak kullanılabilir.
Bununla beraber içeriklerin ayrıştırılmasında da sıkıntılar var ki bir örnekle durum daha net anlaşılacaktır:

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Her iki fıkrada Doktor Fıkraları kategorisinde görünüyor ama içeriğe baktığımızda 1. linkteki fıkra daha çok cinsel içerikli geliyor bana.

SeRDaR406 04 Aralık 2010 20:16
Cevap: .fikra [Gülelim-Eğlenelim]
 
En kökten çözüm kaynak siteyi değiştirmek :)

Difuzyon 04 Aralık 2010 20:27
Cevap: .fikra [Gülelim-Eğlenelim]
 
Epey araştırdım Serdar,belki uygun bir site vardır.Belkide ben görememiş\atlamış olabilirim.
Araştırma yaptığım sitelerde durumlar pek farklı değil maaselef:

* Bizleri güldürmekle beraber düşündüren Nasreddin Hoca'mız ile hiç alakası olmayan ama ismi geçen fıkralar
* İnsanların manevi değerlerini hiçe sayan fıkralar
* İnsanların memleketiyle hiç alakası olmayan,banal düşünceleri komiklik olsun diye yazılan fıkralar

vs bu durumlara çoğu sitede denk geldim.Belki iyice tekrar bakmak gerekir.

SeRDaR406 04 Aralık 2010 20:41
Cevap: .fikra [Gülelim-Eğlenelim]
 
Hımm.O zaman hiç uğraşmamak lazım.Dediğim konuyuda dahil et senden çıksın gerisinide daha iyisini yapabilecek düşünsün :)

CesuryureK 04 Aralık 2010 20:57
Cevap: .fikra [Gülelim-Eğlenelim]
 
Fırkaranın iyisi kötüsü olmaz. Cem yılmaz belden aşağı vuruyor hep ama seviyoruz :D

SeRDaR406 04 Aralık 2010 21:06
Cevap: .fikra [Gülelim-Eğlenelim]
 
Tabi bu fıkra Cem Yılmaz'dan önce yokmuş o icat etmişti değil mi? :P

fLayer 04 Aralık 2010 23:31
Cevap: .fikra [Gülelim-Eğlenelim]
 
<Str> .fikra
<Str> .fikra
<Str> !fikra
<Str> !fikra
<Str> .fikra
yaptım olmuyor ama
/fikra yazınCa ozele veriyor

diyorumki 05 Aralık 2010 01:18
Cevap: .fikra [Gülelim-Eğlenelim]
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Uyarımı dikkate alıp ilgilendiğin için teşekkür ederim..

Difuzyon 05 Aralık 2010 12:45
Cevap: .fikra [Gülelim-Eğlenelim]
 
Alıntı:
SuRGuN Nickli Üyeden Alıntı (Mesaj 1040603090)
<Str> .fikra
<Str> .fikra
<Str> !fikra
<Str> !fikra
<Str> .fikra
yaptım olmuyor ama
/fikra yazınCa ozele veriyor
kodu kendine eklediysen kanalda,senin dışında bir nick .fıkra yazarsa çalışır.
Şayet kendin de kanala .fıkra yazdığında çalışmasını istiyorsan senin dışında bir nickin(bot) bu kodu mircine eklemesi gerekir.

diyorumki 27 Aralık 2010 22:21
Cevap: .fikra [Gülelim-Eğlenelim]
 
Bu fıkra kodunda düzenleme yapılmamış cinsel içerikli fıkralar var bunlar bizim örf ve adetimizi uygun şeyler değil (burda bi kod paylaşılıyorsa ) içeriğine çok dikkat edilmesi gerekir diye düşünüyorum kaldıki kötü şeylere teşvik değilde iyi şeylere teşvik edilmesi gerekir sadece bi görüş saygılar..Daha özgün çalışmalarınızı bekliyoruz.

CesuryureK 27 Aralık 2010 23:23
Cevap: .fikra [Gülelim-Eğlenelim]
 
Alıntı:
diyorumki Nickli Üyeden Alıntı (Mesaj 1040630979)
Bu fıkra kodunda düzenleme yapılmamış cinsel içerikli fıkralar var bunlar bizim örf ve adetimizi uygun şeyler değil (burda bi kod paylaşılıyorsa ) içeriğine çok dikkat edilmesi gerekir diye düşünüyorum kaldıki kötü şeylere teşvik değilde iyi şeylere teşvik edilmesi gerekir sadece bi görüş saygılar..Daha özgün çalışmalarınızı bekliyoruz.
o zaman senin gibi düşünenlerede iş düşüyor. O sitedeki binlerce fıkrayı tek tek okuyup sonra uygun olanları uygun bir site yapıp ekleyin. Biz üstümüze düşeni yaptığımız gibi tekrardan yaparız.

Hadi elimizi taşın altına koyalım.
+
mesajını atmadan önce ilgili konuda bu durumun izahı edilmeye çalışılmış.
+
Daha özgün derken? Özgün görmediğin ne peki? veya özgün kavramının gerçek anlamının dışında hangi anlamı yüklüyorsun merak ettim.

diyorumki 30 Aralık 2010 12:45
Cevap: .fikra [Gülelim-Eğlenelim]
 
Senin gibi düşünen derken..benim düşüncem cinsel içerikli yazılara karşı olmam..ve sadece bi görüş..fikir sundum..isteyen istediği gibi düşünür yazar çizer ben karışamam buna..

dEathLeSs 30 Aralık 2010 14:33
Cevap: .fikra [Gülelim-Eğlenelim]
 
Emegine saglık..

Spyhinx 12 Ocak 2011 23:58
Cevap: .fikra [Gülelim-Eğlenelim]
 
Difuzyon harikalar yaratıyorsun, emeğine sağlık. rica etsem input olarakta verebilir misin

armuthasan 25 Şubat 2011 19:55
Cevap: .fikra [Gülelim-Eğlenelim]
 
* /sockwrite: 'komik' Bağlı Değil (Satır 9, fıkra.txt) acaba bu sorun neden oluyor yardım edermisiniz lütfen

N1z3m 02 Mart 2011 18:56
Cevap: .fikra [Gülelim-Eğlenelim]
 
Eline saglık kardeşim güzel olmuş ; paylaşimlarinin devamını dilerim .

FirariSevdam 13 Mart 2011 02:52
Cevap: .fikra [Gülelim-Eğlenelim]
 
Hocam Düşünceniz Çok Süper
Ben Scriptime EkLedim

Ama /fikra Yaazında Hiçbirşey oLmuyo
Statuda Hata Mesajıda Vermiyor Acaba Sorun Neyden KaynakLanıyordur

Difuzyon 13 Mart 2011 20:20
Cevap: .fikra [Gülelim-Eğlenelim]
 
Siteden alınan verilere dayalı bir kodlama olduğundan (siteye ulaşılamaması,sitede değişiklik yapılmış olması,erişim hataları vb. sebeplerden) bazen aksamalara denk gelinebilir.
Örneğin 2 mesaj öncesinde de armuthasan ? nicki tarafından hata alındığı belirtilmiş,o an veri aldığım siteye erişim hataları sebebiyle bağlanamıyordum.Ama site bağlantı sorunlarını düzeltmiş.
Şu anda /fikra komutunu manuel uyguladığımda sonuç alabiliyorum.

izmirlitutku35 20 Ağustos 2011 20:22
Cevap: .fikra [Gülelim-Eğlenelim]
 
Ben BöyLe Bir Adon YazmıŞ Olsaydim !Fikra dediyimde KanaL Yerine Komutu KuLLanan KuLLanıcının ÖzeLine Gitmesini SagLardim.. ( :

Emeyine sagLik..

Heartbroken 21 Ağustos 2011 04:23
Cevap: .fikra [Gülelim-Eğlenelim]
 
bu şekilde eklerseniz nickin özeline atar. tek yapılması gereken %difychan olan yerleri %difynick yapmak ve set %difychan $chan kısmını set %difynick $nick yapmak hepsi bu...

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 %difynick $nick }
alias fikra {
  .remove fikra.txt
  .remove fikralar.txt
  sockclose komik
  sockopen komik [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 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 %difynick $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 %difynick { play %difynick 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) && %difynick { msg %difynick 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

enemy2653 26 Ekim 2011 14:06
Cevap: .fikra [Gülelim-Eğlenelim]
 
çalışmıyor

kheldor 12 Ekim 2013 01:59
Cevap: .fikra [Gülelim-Eğlenelim]
 
calısmıyor ne yazikki

Difuzyon 12 Ekim 2013 22:17
Cevap: .fikra [Gülelim-Eğlenelim]
 
Merhaba,

Kodlamanın veri aldığı websitesi yayında değil bu nedenle çalışmıyor. Başka sitelere baktım ama arada uygun olmayan fıkralara denk geliyor. Uygun bir websitesine denk gelmek dileğiyle..


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 18:51.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk