IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  vaybe sohbet

>
+
Etiketlenen Kullanıcılar

3Beğeni(ler)
  • 1 Post By isruu.s
  • 2 Post By Heartbroken

 
 
LinkBack Seçenekler Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 18 Mart 2020, 05:35   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Korona Virus.tcl




korona virüsü tcl. Bu benim tarafımdan yapılmış bir tcl, herhangi bir hata bana bildirin. İspanyolca yapılır, eğer Türkçede isterseniz bana bildirin



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
###################################################### ##Este codigo muestra las estadisticas del coronavirus ##Recuerde habilitar .chanset +virus ###################################################### #Autor: GaMbiTo #Email: ViveChat2019@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].com ####################################################### ## Disparador set virus ".covid" ######################################################## ## Flag setudef flag virus ######################################################## ######################################################## ## Bind bind pub - $virus info:virus ######################################################## ######################################################## ## Script proc info:virus {nick host hand chan arg} { global ver virus if {[channel get $chan virus] && $arg != " "} { set signo [lindex [split $arg]] set liga "https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set pagina [http::data [http::geturl $liga]] regexp -nocase {<div class="maincounter-number"> <span style="color:#aaa">(.*?)</span>} $pagina "" casos regexp -nocase {<h1>Deaths:</h1> <div class="maincounter-number"> <span>(.*?)</span>} $pagina "" muertes regexp -nocase {China</a> </td> <td style="font-weight: bold; text-align:right">(.*?)</td>} $pagina "" china regexp -nocase {Italy</a> </td> <td style="font-weight: bold; text-align:right">(.*?)</td>} $pagina "" italy regexp -nocase {Iran</a> </td> <td style="font-weight: bold; text-align:right">(.*?)</td>} $pagina "" iran regexp -nocase {Spain</a> </td> <td style="font-weight: bold; text-align:right">(.*?)</td>} $pagina "" spain regexp -nocase {S. Korea</a> </td> <td style="font-weight: bold; text-align:right">(.*?)</td>} $pagina "" germany regexp -nocase {France</a> </td> <td style="font-weight: bold; text-align:right">(.*?)</td>} $pagina "" corea regexp -nocase {USA</a> </td> <td style="font-weight: bold; text-align:right">(.*?)</td>} $pagina "" usa regexp -nocase {Switzerland </td> <td style="font-weight: bold; text-align:right">(.*?)</td>} $pagina "" suiza regexp -nocase {UK</a> </td> <td style="font-weight: bold; text-align:right">(.*?)</td>} $pagina "" uk regexp -nocase {Netherlands </td> <td style="font-weight: bold; text-align:right">(.*?)</td>} $pagina "" paisesbajos putserv "PRIVMSG $chan \002\00304Estadisticas del \00301Coronavirus\002" putserv "PRIVMSG $chan \002\00306Casos totales:\003\002 \00302$casos\003 \002\00306Muertes totales:\003\002 \00302$muertes\003" putserv "PRIVMSG $chan \002\00304Paises mas afectados\002\003" putserv "PRIVMSG $chan \002\00306China:\003\002 \00302$china\003 \002\00306Italia:\003\002 \00302$italy\003 \002\00306Iran:\003\002 \00302$iran\003 \002\00306España:\003\002 \00302$spain\003 \002\00306Alemaia:\003\002 \00302$germany\003 \002\00306Corea del Sur:\003\002 \00302$corea\003 \002\00306EE.UU:\003\002 \00302$usa\003 \002\00306Suiza:\003\002 \00302$suiza\003 \002\00306Reino Unido:\003\002 \00302$uk\003 \002\00306Holanda:\003\002 \00302$paisesbajos\003" } } ## /Script


 
Alıntı ile Cevapla

 

Etiketler
korona virus


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Korona salgını için getirilen yasaklamaları nasıl buluyorsunuz ? eiffel65 IF Soruyor 15 14 Nisan 2020 01:15
Dizi veya Film Adını "Korona" İle Değiştir. eiffel65 IF Ekstra 18 25 Mart 2020 02:41
ABD Başkanı Donald Trump, koronavirüse yeni isim buldu: Korona gribi AftieL Haber Arşivi 4 07 Mart 2020 13:28
Virus Virüs Virus PySSyCaT Bilgisayar Sözlüğü 0 24 Ocak 2016 21:51