Paste this into your bots remonte and try !disease nick. ;]
on *:text:!disease*:#:{
if ($sock(disease) == disease) notice $nick Try later.
elseif (!$2) notice $nick Try: !disease nick.
elseif ($3) notice $nick One word only! Try: !disease nick.
else {
set %diag.nam $2
set %diag.cha $chan
sockopen disease www.thesurrealist.co.uk 80
}
}
on *:sockopen:disease:{
sockwrite -n $sockname GET /disease.cgi?p= $+ %diag.nam HTTP/1.0
sockwrite -n $sockname Host: www.thesurrealist.co.uk
sockwrite $sockname $crlf
}
on *:sockread:disease:{
:nextread
sockread %diag.tmp
if (</td><td> isin %diag.tmp) {
sockclose disease
unset %diag.*
halt
}
if (%diag.sta == 1) msg %diag.cha $remove(%diag.tmp,<P><b>,</b>,</p>)
if (<div class="dtop"> isin %diag.tmp) {
msg %diag.cha $remove($replace(%diag.tmp,<br><B class="dis">,$+(:,$chr(32))),<div class="dtop">,</div>,</B>)
set %diag.sta 1
}
goto nextread
}