mIRC Scripting Hazır Kodlar mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz. |
|
Seçenekler | Stil |
04 Kasım 2020, 21:45 | #1 |
Türkiye Covid19(Korona) Genel Durum Remotesi
Merhabalar,
Daha önce TCL olarak paylaşılmıştı. Remote olarak kullanabilmeniz için ayarladım... Kodon $*:text:/^[.!]covid$/Si:#: { .covid } alias kdzlt return $replace($1-,":",$+(:,$chr(32),$chr(3),04),tarih,Tarih,gunluk_test,Günlük Test,gunluk_vaka,Günlük Vaka,gunluk_vefat,Günlük Vefat,gunluk_iyilesen,Günlük İyileşen,toplam_test,Toplam Test,toplam_vefat,Toplam Vefat,toplam_vaka,Toplam Vaka,toplam_iyilesen,Toplan İyileşen,hastalarda_zaturre_oran,Hastalarda Zatürre Oranı,agir_hasta_sayisi,Ağır Hasta Sayısı,yatak_doluluk_orani,Yatak Doluluk Oranı,eriskin_yogun_bakim_doluluk_orani,Erişkin Yoğun Bakım Doluluk Oranı,ventilator_doluluk_orani,Ventilator Doluluk Oranı,ortalama_temasli_tespit_suresi,Ortalama Temaslı Tespit Süresi,filyasyon_orani,Filyasyon Oranı) alias tdzlt return $replace($1-,01,Ocak,02,Şubat,03,Mart,04,Nisan,05,Mayıs,06,Haziran,07,Temmuz,08,Ağustos,09,Eylül,10,Ekim,11,Kasım,12,Aralık) alias covid { if $sock(covid) { sockclose $ifmatch } sockopen -e covid covid19.saglik.gov.tr 443 sockmark covid $chan } on *:sockopen:covid: { if $sockerr { echo -a 12Bağlantı hatası $sock($sockname).wsmsg return } sockwrite -nt $sockname GET /TR-66935/genel-koronavirus-tablosu.html HTTP/1.0 sockwrite -nt $sockname Accept: */* sockwrite -nt $sockname Host: covid19.saglik.gov.tr sockwrite -nt $sockname } on *:sockread:covid: { var %f | sockread -f %f if (*var geneldurumjson*[{"tarih"* iswm %f) { if $regex(%f,/"(\w+":"[\d+\.]+)/Sgi) { var %r = 1 msg $sock($sockname).mark 06 $+ $token($token($regml(1),3,34),1,46) $tdzlt($token($regml(1),2,46)) $token($regml(1),3,46) 02TÜRKİYE Genel Koronavirüs Tablosu while %r <= $regml(0) { msg $sock($sockname).mark $kdzlt($regml(%r)) inc %r if ($token($regml($calc(%r +1)),1,34) == tarih) { break } } } } } Kullanım: .covid veya !covid Görsel: Konu Alper tarafından (04 Aralık 2020 Saat 23:06 ) değiştirilmiştir.. |
|
|
04 Kasım 2020, 21:54 | #2 |
Emeğinize sağlık
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
;ççk
________________
bazen insanlar iyilesmek istemez.
cünkü , icindeki acı sevdiklerinin son hatirasidir.. per aspera ad astra ✨ |
|
|
04 Kasım 2020, 21:59 | #3 |
Eline sağlık kanka
________________
Sayonaraaa.. |
|
|
04 Kasım 2020, 22:01 | #4 |
Emeğine sağlık üstad ☺
|
|
|
20 Kasım 2020, 14:03 | #5 |
Emeğine sağlık
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
________________
Edep; aklın Tercümanıdır. İnsan edebi kadar akıllı, Aklı kadar şerefli, Şerefi kadar Kıymetlidir. Massive.. ~ E & B ~ |
|
|
20 Kasım 2020, 14:05 | #6 |
emeginize saglik
________________
Hope. . . ✨
|
|
|
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
Seçenekler | |
Stil | |
|
|