| Forbidden | 09 Ocak 2024 19:00 |
Takvim Socket Kodu
Komut; !takwim
Örnek;
[18:48]» <Atom> !takvim
[18:48]» <Forbidden> Yýlýn 9. günü, Kalan Gün : 357
[18:48]» <Forbidden> 1. Ay, 31 Gün, 02. Hafta
[18:48]» <Forbidden> [Gun Durumu]
[18:48]» <Forbidden> Gündüzün uzamasý 3 dakika - Ezani saat 2 dakika geri alýnýr.
[18:48]» <Forbidden> [Gunun Sozu]
[18:48]» <Forbidden> Þan, þeref ve üstünlük, mal ile deðil, ilim
[18:48]» <Forbidden> ve irfan ile ölçülür. Hadis-i þerif
[18:48]» <Forbidden> [Gunun Olayi]
[18:48]» <Forbidden> Ahmet Hamdi Akseki"nin vefatý (1951)
[18:48]» <Forbidden> Dörtyol"un kurtuluþu (1922) - Enerji Tasarrufu Haftasý
[18:48]» <Forbidden>
Kod sahibi: jeun Kod:
on $*:text:/^[.!]takvim/i:#: { if %takvimchan { return } | set -eu10 %takvimchan $chan | takvim }
alias takvim { if $sock(takvim1) { .sockclose takvim1 } | .sockopen takvim1 $st 80 }
on *:sockopen:takvim1:{ $m GET /index.php?page=onyuz HTTP/1.0 | $m Host: $st | $m $crlf }
on *:sockread:takvim1:{
var %takvim
sockread -f %takvim
if (*#61A6CF* iswm %takvim) { $a $xturkcex($htmlfree(%takvim)) }
if (*gundurumu_band* iswm %takvim) { $a [Gun Durumu] | $a $xturkcex($htmlfree(%takvim)) }
if (%gunsozudevam) { $a $xturkcex($htmlfree(%takvim)) | if (*</div>* iswm %takvim) { unset %gunsozudevam } }
if (*gununsozu* iswm %takvim) { $a [Gunun Sozu] | $a $xturkcex($htmlfree(%takvim)) | if *</div>* !iswm %takvim { set %gunsozudevam OK } }
if (%gunolaydevam) { $a $xturkcex($htmlfree(%takvim)) | if (*</div>* iswm %takvim) { unset %gunolaydevam } }
if *gununolayi* iswm %takvim { $a [Gunun Olayi] | $a $xturkcex($htmlfree(%takvim)) | if *</div>* !iswm %takvim { set %gunolaydevam OK } }
}
on *:sockclose:takvim1:takvim2
alias takvim2 { if $sock(takvim2) { .sockclose takvim2 } | .sockopen takvim2 $st 80 }
on *:sockopen:takvim2:{ $m GET /index.php?page=arkayuz HTTP/1.0 | $m Host: $st | $m $crlf }
on *:sockread:takvim2:{ sockread -f %takvim | if *<div class="alt">* iswm %takvim { $a $xturkcex($htmlfree(%takvim)) } }
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&,$chr(9)) | return %x }
alias -l a return msg %takvimchan | unset %takvim
alias -l st return www.turktakvim.com
alias -l m return sockwrite -n $sockname
alias -l xturkcex { return $replacecs($1-,î,i,â,a,Ãœ,Ü,Åž,Þ,Äž,Ð,Ç,Ç,Ä°,Ý,Ö,Ö,ü,ü,ÅŸ,þ,ÄŸ,ð,ç,ç,ı,ý,ö,ö,ê,ê,“,$chr(32),”,$chr(32),’,",‘,',“,",–,-,É™,e,',',Ö,Ö,ü,ü,Ý,I,ý,i,Ö,Ö,ö,ö,Ü,Ü,ü,ü,Ç,Ç,ç,ç,Ð,Ð,ð,ð,Þ,Þ,þ,þ) }
|
