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/21077-tarihte-bugun.html)

Kod:

; Tarihte Bugün Gösterici By SCouNDReL

; 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
a teşekkürler
 

alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) | return %x } }

alias -l tarih { return $+($replace($gettok($date,2,$asc(/)),01,ocak,02,subat,03,mart,04,nisan,05,mayis,06,haziran,07,temmuz,08,agustos,09,eylul,10,ekim,11,kasim,12,aralik),_,$gettok($date,1,$asc(/)),.htm) }

alias tbugun { dialog -m tarih tarih  }

on *:SockOpen:tarih*:{

  sockwrite -n $sockname GET $+(/tarih_arsiv/,$tarih) HTTP/1.0

  sockwrite -n $sockname host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:SockRead:tarih*:{ 

  var %a

  sockread %a

  if ($sockerr) { did -ra tarih 1 Bağlantı Hatası Lütfen Daha Sonra Tekrar Deneyin | return }

  if (%sjn == Ok!) && (sayfa başına !isin %a) && (dön</FONT> !isin %a) { did -a tarih 1 $htmlfree($replace($+(%a,$chr(160)),<BR>,$crlf)) }

  if (Tarihte bugün isin %a) { set %sjn Ok! | did -ra tarih 1 Tarihte Bugün $+ $crlf }

}

dialog tarih {

  title "Tarihte Bugün Gösterici"

  size -1 -1 133 169

  option dbu

  edit "Yükleniyor..", 1, 4 2 124 144, read multi return autovs vsbar

  button "Çıkış", 2, 47 151 37 12, ok

}

on *:dialog:tarih:init:*:{

  unset %sjn 

  sockclose tarih* 

  sockopen $+(tarih,$r(1,999)) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80

}

Tarihte Bugün Neler Olmuş, Kimler Ölmüş, Kimler Doğmuş.. bunları gösteren bi addon /tbugun komutuyla çalıştırın

Güncelleme ;

Site Değişiklğinden Kaynaklana hata Düzeltilmiştir
Dialog Eklenmiştir.

Yanıt: Tarihte Bugün

Senin ve Serdar'ın Çalışmalarına, Aşığım.

Tebrikler.

Yanıt: Tarihte Bugün

Addonların güzel ama tipin kurtamıo (:

Güzel addon.Eline sağlık...

Yanıt: Tarihte Bugün

Serdar Sende nası bi aaz var anlamadım ne şom aazlı bi adamsın eline sağlık demişin şu anda kolumda 5 tane dikiş var bu postuda zorluklar üzerinde atıyorum Ah.. :S

Addon Güncellendi Bu Arada Ayrıntılı bilgi ilk sayfada.

Yanıt: Tarihte Bugün

çoook gerekli bir olay tşkler irc tarihinde dönüm

Yanıt: Tarihte Bugün

Senin Hesap Makinesine nOldu Yaw Yeni Versionunu BekLioS Burda Güncelle Artık Şunu

lol

Yanıt: Tarihte Bugün

ula resmen el33t in kodlarını alıp url değiştirmişsin :D

[box=Moderator mesajı: el33t]Ben neden farketmedim? -P[/box]

Yanıt: Tarihte Bugün

Alıntı:

UpsIDintAgain Nickli Üyeden Alıntı

ula resmen el33t in kodlarını alıp url değiştirmişsin :D

Örnek Var mI ?

Yanıt: Tarihte Bugün

Emeğe SayqısızLık yapmayaLım Arkadaslar.. Sonucunda SCouNDReL Arkadasımız ßurada ßir Emek Sarf Etmiş.. Ha değiŞtirmiş veya değiştirmemiş Kimseyi ILqıLendirmez..Sonucunda ßuraya ßir Emek Sarf Etmiş.. TeşşekurLer SCouNDReL..

Yanıt: Tarihte Bugün

Alıntı:

UpsIDintAgain Nickli Üyeden Alıntı

ula resmen el33t in kodlarını alıp url değiştirmişsin :D

2 tane mesajı var birisinide özellikle buraya yazmış , ilginç