Sohbet muhabbet sohbet, sohbet odası
reklam alanı reklam alanı

  • Konu İçeriğini Görebilmek İçin Lütfen Üye Olun. Aksi Takdirde İçeriği Göremezsiniz.

Covid19 TCL

admin

Forever mIRCX!
Yönetici
Yetkili
mIRCX Admin
Denetleyici
Katılım
16 Kas 2019
Mesajlar
343
Tepkime puanı
0
Puanları
16
Konum
public_html
Web sitesi
www.mircx.net

İtibar:

Tcl-TLS 1.7 Sürümlerden Birine, En Azından Tcl 8.5 Veya Üstü Sürüme, tcllib/JSON Paketine İhtiyacınız Olacak!

Kod:
set url {https://testsite2.saglik.gov.tr/covid19/covid19api?getir=liste}

setudef flag korona

package require http
package require tls 1.7
package require json
package present Tcl 8.5

::http::register https 443 [list tls::socket -autoservername 1]

bind pub - .cov covid_pubs

proc covid_pubs {nick uhost hand chan text} {
    if {![channel get $chan korona]} { return 0 }
    set token [http::geturl $::url]
    set data [json::json2dict [http::data $token]]
    ::http::cleanup $token
    set cov [lindex $data 0]
    dict with cov {
        puthelp "privmsg $chan :\00312$tarih\003 \00314T?rkiye'deki G?ncel Durum\003 \00303T?RK?YE G?NL?K KORONAV?R?S TABLOSU\003 :"
        puthelp "privmsg $chan :\002BUG?NK? TEST SAYISI\002 : \00304$gunluk_test\003 \002BUG?NK? HASTA SAYISI\002 : \00304$gunluk_vaka\003\
            \002BUG?NK? VEFAT SAYISI\002 : \00304$gunluk_vefat\003 \002BUG?NK? ?Y?LE?EN SAYISI\002 : \00304$gunluk_iyilesen\003"
        puthelp "privmsg $chan :\002TOPLAM TEST SAYISI\002 : \00304$toplam_test\003 \002TOPLAM HASTA SAYISI\002 : \00304$toplam_vaka\003\
            \002TOPLAM VEFAT SAYISI\002 : \00304$toplam_vefat\003"
        puthelp "privmsg $chan :\002HASTALARDA ZAT?RRE ORANI (%)\002 : \00304$hastalarda_zaturre_oran\003\
            \002A?IR HASTA SAYISI\002 : \00304$agir_hasta_sayisi\003  \002TOPLAM ?Y?LE?EN HASTA SAYISI\002 : \00304$toplam_iyilesen\003"
    }
    return 0
}
Kod sahibi: Heartbroken

Kullanımı;

set covidKnl "#Kanal" bilgileri verecek kanal adını yazın.
.cov komutuyla botu kullanabilirsiniz.

cov.png
 

Aynı Kategoriden Farklı Konular

Üst Alt