Disease

By Cherish on Nov 11, 2006

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
}

Comments

Sign in to comment.
oRtakVeLja   -  Apr 01, 2012

For eggdrop you have simular script: http://www.hawkee.com/snippet/9417/ ;)
Tnx author for idea! ;)

 Respond  
chachin   -  Sep 06, 2011

needs a spam filter

 Respond  
BrainBryce   -  Apr 21, 2007

I want it to kik ppl :P

 Respond  
darkircu   -  Nov 21, 2006

Nice script! .... but use iswm instead of isin :)

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.