######################################################
 ##Este codigo muestra las estadisticas del coronavirus 
 ##Recuerde habilitar .chanset +virus
 ######################################################
 #Autor: GaMbiTo
 #Email: [email protected]
 #######################################################
 


	## 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://www.worldometers.info/coronavirus/"
		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