SCouNDReL
Kayıtlı Üye
Kayıt: 24.08.2006
Üye no: 26
Mesaj: 17
Başlık: 0
Şehir: Edirne
0 Aşk puanı
|
|
 Tarihte Bugün |
|
|
| Kod: |
; Tarihte Bugün Gösterici By SCouNDReL
;Linkleri Sadece Kayıtlı Kullanıcılar Görebilir!!! Kayıt olmak için BURAYAyada giriş yapmak için BURAYA tıklayınız
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | 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:Linkleri Sadece Kayıtlı Kullanıcılar Görebilir!!! Kayıt olmak için BURAYAyada giriş yapmak için BURAYA tıklayınız
}
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))Linkleri Sadece Kayıtlı Kullanıcılar Görebilir!!! Kayıt olmak için BURAYAyada giriş yapmak için BURAYA tıklayınız
}
|
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 Kaynaklanan hata Düzeltilmiştir
Dialog Eklenmiştir.
|
| |
|
