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/)

- - Tarihte Bugün (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/367418-tarihte-bugun.html)

--------------------------
Tarih: 25 Kasım 2010
Yazar: CesuryureK
Bilgi: Emeğe Saygı

---------------------------

Merhaba, herkese iyi forumlar..

Alanım gereği olsa gerek "Tarihte Bugün" adı altında bir çalışma yaptım. Bu çalışma sayesinde tarihte o günde neler olmuşsa haberdar olmamızı sağlar. Aynı zamanda bilgilerimize bilgi katmış olacağız.

Kod ALT+R yapılıp Remote kısmına eklenecektir.
Kod remote kısmına eklendikten sonra herhangi bir kanalda !tarih veya .tarih denilmesi taktirde Tarihte bugün manşetleri aynı zamanda o gün doğan ve Ölen ünlü kişilerin bilgilerini de kanala yansıtılacaktır. Kod bir bota entegre edilip, #Tarih kanalı daha aktif bir kullanıma sahip olabilir.

Kod:

 

alias bugun { 

  if ($mid($gettok($date,1,47),1,1) != 0) {

    var %S = %C5%9Eubat, %M = May%C4%B1s, %A = A%C4%9Fustos, %E = Eyl%C3%BCl, %K = Kas%C4%B1m, %A1 = Aral%C4%B1k

    set %bugun $+($gettok($date,1,47),_,$replace($gettok($date,2,47),01,Ocak,02,%S,03,Mart,04,Nisan,05,%M,06,Haziran,07,Temmuz,08,%A,09,%E,10,Ekim,11,%K,12,%A1))

  }

  elseif ($mid($gettok($date,1,47),1,1) == 0) {

    var %S = %C5%9Eubat, %M = May%C4%B1s, %A = A%C4%9Fustos, %E = Eyl%C3%BCl, %K = Kas%C4%B1m, %A1 = Aral%C4%B1k

    set %bugun $+($mid($gettok($date,1,47),2,1),_,$replace($gettok($date,2,47),01,Ocak,02,%S,03,Mart,04,Nisan,05,%M,06,Haziran,07,Temmuz,08,%A,09,%E,10,Ekim,11,%K,12,%A1))

  }

}

alias htmlfree {  

  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,wgNamespaceNumber=0;wgAction="view";wgPageName=",%bugun,";wgMainPageTitle="Ana Sayfa";wgWikimediaMobileUrl="http:\/\/tr.m.wikipedia.org\/wiki";body{behavior:url("/w/skins-1.17/vector/csshover.min.htc")},2 DoÄŸumlar,3 Ã–lÃ¼mler,[deÄŸiÅŸtir])

  return %x  

} 

alias history { .bugun | set %tarihg [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | .timer 1 1 .sockopen Tarih tr.wikipedia.org 80  }  

on *:SockOpen:Tarih:{  

  sockwrite -n $sockname GET /wiki/ $+ %bugun HTTP/1.1

  sockwrite -n $sockname host: tr.wikipedia.org  

  sockwrite -n $sockname $crlf  

}  

on *:SockRead:Tarih:{  

  var %gun $replace(%bugun,_,$chr(32))

  var %bilgi

  sockread %bilgi

  if $regex($gettok($htmlfree(%bilgi),1,32),\d) && ($regex($gettok($htmlfree(%bilgi),2,32),\x2D)) || $regex($htmlfree(%bilgi),/^(Ã–lÃ¼mler|DoÄŸumlar|olaylar)$/i) || (Gregoryen isin $htmlfree(%bilgi))  { 

    msg %tarihchan $replace($htmlfree(%bilgi),Ã–lÃ¼mler,$+($+($chr(3),4,$chr(32),%gun,$chr(32),Tarihinde ÖLENLER)),Olaylar,$+($+($chr(3),4,$chr(32),%gun,$chr(32),Tarihinde Yaşanan Olaylar)),DoÄŸumlar,$+($+($chr(3),4,$chr(32),%gun,$chr(32),Tarihinde DOĞANLAR))) 

    .timer 1 4 sockclose tarih

  }

}

on *:TEXT:*:#: {

  if $regex($1,/(^[!.](Tarih|history)$)/i) {

    set %tarihchan $chan 

    .history

    .timer 1 8 .msg %tarihchan %tarihg

  }

}

NOT: Kod 14 Temmuz 2011 tarihinde yeniden güncellenmiştir. Önceden veri çektiğim yehhu adlı bir internet sitesi ilgili tarihte bugün kısmını kaldırdığı için veri alınmamaktaydı. Bu muhtemel sorunu bir daha yaşamamak için wikipedia.org sitesinden veriyi kod ile çektirdim. Eski kodu kaldırıp yenisini yukarıya ekledim.

Umarım tarihe bir katkımız olur.
Saygı ve sevgilerimle..

Cevap: Tarihte Bugün

yine güzel bir paylaşım emeğine sağlık.

Cevap: Tarihte Bugün

Biliyorsun bu işi usta ( ek olarak birşey sorucam örneğin rapzede C o m sitesinde müzik dinliyorum ve bu dinlediğim müzik sitenin başlığında gözüküyor bunu mirc'e yansıtmak mümkünmüdür mümkünse nasıl yapabiliriz.? )

Cevap: Tarihte Bugün

Her zamanki gibi hoca'm döktürmüş yine.. Eline sağlık CesuryureK

Cevap: Tarihte Bugün

Printscreen 1 satır eksik çıkmış ;)

25/11/2010 Difuzyon , CesuryureK'i tebrik etti.

Cevap: Tarihte Bugün

Güzel bir çalışma olmuş eline sağlık dostum.

Cevap: Tarihte Bugün

Alıntı:

Difuzyon Nickli Üyeden Alıntı (Mesaj 1040591184)

Printscreen 1 satır eksik çıkmış ;)

25/11/2010 Difuzyon , CesuryureK'i tebrik etti.

Cenk'im Senin de başka siteden çekeni yayınlayalım iyice sağlam olsun :p

Cevap: Tarihte Bugün

Eline sağlık güzelbir çalışma.

Cevap: Tarihte Bugün

emeğine sağlık. bunu /tarih yazarak kanala yansıtabilirmiyiz

Cevap: Tarihte Bugün

Alıntı:

DenperaS Nickli Üyeden Alıntı (Mesaj 1040591393)

emeğine sağlık. bunu /tarih yazarak kanala yansıtabilirmiyiz

Kod:

 

on *:Text:*:#: {

  if ($regex($1,/(!Tarih|.Tarih)/i)) {

    set %tarihchan $chan

    .history

  }

}

Şu kısım yerine aşağıdaki kod ile değiştirmeniz yeterli.

Kod:

 

alias tarih {

  if ($active == $chan) {

    set %tarihchan $active

    .history

  }

  else { echo 4 Bu Komutu Sadece Kanalda Kullanabilirsiniz! }

}

bir kanalda /Tarih şeklinde komut kullanmanız dahilinde ilgili bilgiler o kanala yansıtılacaktır.

Cevap: Tarihte Bugün

Kod:

 

on *:Text:*:#: {

  if ($regex($1,/(!Tarih|.Tarih)/i)) {

    set %tarihchan $chan

    .history

  }

}

yerine

Kod:

on $*:text:/^[!.]Tarih$/i:#: { 

  set %tarihchan $chan

  .history

}

olarakta kullanabilirsin Cesuryurek.
.tarih
!tarih olarak çalışması için.

Cevap: Tarihte Bugün

Öncelikle Güzel bir çalışma Tebrik ederim..
Kullanan Kişinin Floodan Düşmemesi için Bir Eklenme Yapılabilir mi..
Bir anda Döküyor çünki içeriği...
Geliştirme Açısından söylemek istedim.. bir timer a bağlansa belli sürede mesajı gönderse daha sağlıklı olabilir bence.

Cevap: Tarihte Bugün

Alıntı:

Egzodya Nickli Üyeden Alıntı (Mesaj 1040591719)

Kod:

 

on *:Text:*:#: {

  if ($regex($1,/(!Tarih|.Tarih)/i)) {

    set %tarihchan $chan

    .history

  }

}

yerine

Kod:

on $*:text:/^[!.]Tarih$/i:#: { 

  set %tarihchan $chan

  .history

}

olarakta kullanabilirsin Cesuryurek.
.tarih
!tarih olarak çalışması için.

zaten .tarih ve !tarih olarak çalışıyor. keyfim böyle istedi tabi istesem

on $*:text:/[\.!]tarih/ASi

bu şekilde de kullanabilirdim. söylediğin .tarih !tarih işlevini sağlayacak bir regex ile zaten yaptım. canım o an nasıl isterse o an onu öyle yaparım.
herkesin stili farklı.

----------

Alıntı:

Chelt Nickli Üyeden Alıntı (Mesaj 1040591727)

merak etmeyin zaten kullanan kişi bir anda verdiğini zannediyor ama karşı tarafa kullanan kişi kadar hızlı gitmiyor. Eğerki bir flood durumu yaşanırsa ancak o zaman değişiklik yaparım.

Cevap: Tarihte Bugün

Emeklerine Sağlık Kardeşim ;)

Cevap: Tarihte Bugün

Teşekkürler çok faydalı bir çalışma olmuş, başarılarının devamını dilerim.

Cevap: Tarihte Bugün

Bir öğretmene yakışır :)

Cevap: Tarihte Bugün

Alıntı:

GodOfwaR Nickli Üyeden Alıntı (Mesaj 1040590799)

Bunun için ek bir dll gerekir.

Cevap: Tarihte Bugün

Döktürmüşsün Usta, Emeğine Sağlık ..

Cevap: Tarihte Bugün

Emeğine sağlık Cesuryurek

Cevap: Tarihte Bugün

Merhaba.

Kod:

on *:Text:*:#: {

  if ($regex($1,/(!Tarih|.Tarih)/i)) {

    set %tarihchan $chan

    .history

  }

}

Kod bu şekilde yazılınca, bot eklentisi gibi olup komutun başkası tarafından verilmesi gerekiyor.

Kendileri için kullanmak isteyenler kodu şu şekilde değiştirebilirler;

Kod:

on *:input:*:#: {

  if ($regex($1,/(!Tarih|.Tarih)/i)) {

    if ($1 == !Tarih|.Tarih) {

      set %tarihchan $chan

      .history

    }

  }

İzin almadan değiştirdiğim için kusura bakmazsınız umarım, çok yararlı bir kod elinize sağlık.

Cevap: Tarihte Bugün

Yine Güzel Bir İş Çıkarmışsınız Hocam Teprik Ediyorum Emeğinize Sağlık Birde Buna Oynatmayı Yavaşlatması İçin Bişeyler Eklesek ?

Cevap: Tarihte Bugün

msg %tarihchan yerine write komutu ile bilgileri bir txt dosyasına aktarır sonra play komutu ile zaman aralıklı okutursun. Verileri silmek için de write -dl20 gibi bir komut daha ekleyip dosyası sildirirsin sonra.

Cevap: Tarihte Bugün

Güzel ve Yararlı Bir Kod Usta Emegine sağlık.

Cevap: Tarihte Bugün

Güzel bir calısma ellerine saglık.

Cevap: Tarihte Bugün

Çok güzel bir çalışma olmuş usta emegine saglık.

Cevap: Tarihte Bugün

Bu kodu genele deyilde özele yansıtma gibi bir ihtimali varmı?
Bence özelde daha hoş olur.

Cevap: Tarihte Bugün

set %tarihchan $chan
yerine
set %tarihchan $nick
yapılması halinde verileri #kanal genelinde !tarih veya .tarih yazan kişinin özeline yazacaktır.

Cevap: Tarihte Bugün

Güzel kod başarılar dilerim.

Cevap: Tarihte Bugün

hocam tşklerde !tarih yazanın kendisine gözükmüyor bende :(

Cevap: Tarihte Bugün

26/03/HTTP/1.0 302 Found
artık kod çalışmıyor Cesuryürek yenileyebilirmisin acaba, galiba bilgilerin alındığı site deaktif olmuş. Başarılar

Cevap: Tarihte Bugün

Alıntı:

amasyaLi Nickli Üyeden Alıntı (Mesaj 1040709515)

26/03/HTTP/1.0 302 Found
artık kod çalışmıyor Cesuryürek yenileyebilirmisin acaba, galiba bilgilerin alındığı site deaktif olmuş. Başarılar

Hayır veri aldığı sitede ve kodda sorun yok.

Bakınız;

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

Cevap: Tarihte Bugün

demekki geçici bir sorunmuş evet çalıştı iyi İF ler.

Cevap: Tarihte Bugün

<Nick> .tarih
<Bot> 13/07/HTTP/1.1 302 Redirect
<Bot> 13/07/Server: Microsoft-IIS/7.5

Sorun Bu CesurYurek

Cevap: Tarihte Bugün

Alıntı:

Skys Nickli Üyeden Alıntı (Mesaj 1040776561)

<Nick> .tarih
<Bot> 13/07/HTTP/1.1 302 Redirect
<Bot> 13/07/Server: Microsoft-IIS/7.5

Sorun Bu CesurYurek

Kod 14 Temmuz 2011 tarihinde yeniden güncellenmiştir. Önceden veri çektiğim yehhu adlı bir internet sitesi ilgili tarihte bugün kısmını kaldırdığı için veri alınmamaktaydı. Bu muhtemel sorunu bir daha yaşamamak için wikipedia.org sitesinden veriyi kod ile çektirdim. Eski kodu kaldırıp yenisini anasayfaya ekledim ordan alıp deneyebilirsin.

Kodu denedim.
Bakınız,
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Tarihte Bugün

Eline sağlık, Tarihe çok faydalı, güzel.

Cevap: Tarihte Bugün

başka bir kod la çakışma imkanı varmı acaba? bir türlü işlemedi kod.
.tarih !tarih .history !history bunları denedim hatta /tarih olarakta denedim.

Cevap: Tarihte Bugün

Kod sorunsuz calısmakta. Ancak okadar flood atıyorki bir anda ::) Bunun yerine !tarih dediğimizde ilgili tarih vegüne ait tarihi 1-2 satır atabilse ? Teşekkürler.

Cevap: Tarihte Bugün

Peki bilgiyi yansıtanı laga sokmamak için 1 kişi 1 saat içinde 1 kere kullanabilse daha iyi olmaz mı?