Tekil Mesaj gösterimi
Alt 25 Kasım 2010, 17:40   #1
Çevrimdışı
CesuryureK
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Tarihte Bugün




--------------------------
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:   Kodu kopyalamak için üzerine çift tıklayın!
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..

__________________
Şimdi Saat Sensizliğin Ertesi..

Konu CesuryureK tarafından (14 Temmuz 2011 Saat 00:30 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver