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, ,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
}
}