| Forbidden |
06.Ekim.2025 03:52 |
Güncel Takvim Kodu Socket v2
;--------------------------------------------------------------
; Günün Takvim Bilgilerini Gösteren Kod
;
; Kullaným:
; - Kanala !takvim yazarak çalýþtýrýn.
; - Bu kod turktakvim(.)com sitesinden günün tarih, hafta,
; gün durumu, günün sözü ve günün olayý bilgilerini çeker.
;
; Not:
; - Curl programýnýn C:\CURL\bin\curl.exe yolunda olmasý gerekir.
; - Bilgiler kanal mesajý olarak gönderilir.
;--------------------------------------------------------------
; Örnek:
https://i.hizliresim.com/ttuz7qx.png
Kod:
on $*:text:/^[.!]takvim/i:#sohbet: {
if (%takvimkanal) { msg # $nick Takvim sorgusu yapmak için 30 saniye beklemelisiniz. | return }
set -eu31 %takvimkanal #
set %takvimchan $chan
.remove tkv.txt
.remove tkv_gun.txt
.remove tkv_dur.txt
.remove tkv_soz.txt
.remove tkv_oly.txt
run -h C:\CURL\bin\curl.exe -s -H "Cache-Control: no-cache" -H "Pragma: no-cache" -o tkv.txt https://www.turktakvim.com/index.php?page=onyuz
.timer 1 3 takvim_oku
}
alias takvim_oku {
if (!$isfile(tkv.txt)) { msg %takvimchan Dosya yok. | return }
filter -ff tkv.txt tkv_gun.txt *#61A6CF*
filter -ff tkv.txt tkv_dur.txt *gundurumu_band*
filter -ff tkv.txt tkv_soz.txt *gununsozu*
filter -ff tkv.txt tkv_oly.txt *gununolayi*
if ($lines(tkv_gun.txt)) {
var %frb = $tkv_temiz($read(tkv_gun.txt,1))
if (%frb) { msg %takvimchan %frb }
}
if ($lines(tkv_gun.txt) > 1) {
var %frb = $tkv_temiz($read(tkv_gun.txt,2))
if (%frb) { msg %takvimchan %frb }
}
if ($lines(tkv_dur.txt)) {
var %durline = $read(tkv_dur.txt,1)
var %frb = $tkv_temiz(%durline)
if (%frb) { msg %takvimchan [Gun Durumu] | msg %takvimchan %frb }
}
if ($lines(tkv_soz.txt)) {
var %frb = $tkv_temiz($read(tkv_soz.txt,1))
if (%frb) { msg %takvimchan [Gunun Sozu] | msg %takvimchan %frb }
}
if ($lines(tkv_oly.txt)) {
var %frb = $tkv_temiz($read(tkv_oly.txt,1))
if (%frb) { msg %takvimchan [Gunun Olayi] | msg %takvimchan %frb }
}
unset %takvimchan
}
alias tkv_temiz {
var %t = $1-
var %t = $xturkcex(%t)
var %t = $remove(%t,, , , , , , ,,,,align="center")
var %t = $regsubex(%t,/<[^>]+>/g,$chr(32))
var %t = $regsubex(%t,/\s+/g,$chr(32))
var %t = $strip(%t)
return %t
}
alias xturkcex { return $replacecs($1-,’,$chr(39),ü,$chr(252),Ö,$chr(214), ,$chr(32),î,î,â,â,Ãœ,Ü,Åž,Þ,Äž,Ð,Ç,Ç,Ä°,Ý,Ö,Ö,ü,ü,ÅŸ,þ,ÄŸ,ð,ç,ç,ı,ý,ö,ö,ê,ê,“,$chr(32),”,$chr(32),’,",‘,',“,",–,-,É™,e,',',Ö,Ö,ü,ü,Ý,I,ý,i,Ö,Ö,ö,ö,Ü,Ü,ü,ü,Ç,Ç,ç,ç,Ð,Ð,ð,ð,Þ,Þ,þ,þ) }
|
