on 1:text:!wiki *:#:%wikichan = $chan | %wikimot = $2 | sockclose wiki | sockopen wiki fr.wikipedia.org 80
on 1:sockopen:wiki:{
  if ($sockerr) { echo 4 -at Erreur sur WIKI : $sock($sockname).wserr $sock($sockname).wsmsg | return }
  sockwrite -n wiki GET /wiki/ $+ $regsubex(%wikimot,^(.),$upper(\1)) HTTP/1.1
  sockwrite -n wiki User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13
  sockwrite -n wiki Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  sockwrite -n wiki Accept-Language: fr,fr-fr;q=0.8,en-us;q=0.5,en;q=0.3
  sockwrite -n wiki Accept-Encoding: *;q=0
  sockwrite -n wiki Accept-Charset: ISO-8859-1,*;q=0.7
  sockwrite -n wiki Host: fr.wikipedia.org
  sockwrite -n wiki $lf
}
on 1:sockread:wiki:{
  :read
  sockread &t
  if (!$sockbr) return
  var %t = $+(</ul>,$lf,</td>,$lf,</tr>,$lf,</table>)
  var %s = $bfind(&t,1,%t)
  if (!%s) goto read
  var %e = $bfind(&t,%s,</p>)
  msg %wikichan 12 $remove($regsubex($bvar(&t,%s,$calc(%e - %s)).text,/\<[^\>]+\>/g,),$cr,$lf)
  sockclose wiki
}