Unnamed

on *:TEXT:?bstats*:#:{
  if ($2 == -i) {
    hadd -m bstatsa $nick $iif($left($1,1) == @,msg $chan,.notice $nick)
    sockopen bstatsa $+ $nick altscripts.net 80
  }
  elseif ($2 == -m) {
    hadd -m bstatsb $nick $iif($left($1,1) == @,msg $chan,.notice $nick)
    sockopen bstatsb $+ $nick altscripts.net 80
  }
  elseif ($2 == -u) || ($2 == -o) {
    hadd -m bstatsc $nick $iif($left($1,1) == @,msg $chan,.notice $nick)
    sockopen bstatsc $+ $nick altscripts.net 80
  }
  elseif ($2 == -p) {
    hadd -m bstatsd $nick $iif($left($1,1) == @,msg $chan,.notice $nick)
    sockopen bstatsd $+ $nick altscripts.net 80
  }
  elseif ($2 == -n) {
    hadd -m bstatse $nick $iif($left($1,1) == @,msg $chan,.notice $nick)
    sockopen bstatse $+ $nick altscripts.net 80
  }
  else {
    .notice $nick Incorrect Syntax used. Flags Supported: -n, -s, -m, -o, -p.
    .notice $nick -n Gives the current News item, -i Gives a few basic board stats, -m gives the latest member, -o lists who is online, and -p returns the latest post.
  }
}
on *:sockopen:bstats*:{
  if ($right($left($sockname,7),1) == f) {
    sockwrite -nt $sockname GET /forum/index.php?action=search2;search=anything HTTP/1.1
  }
  else sockwrite -nt $sockname GET /forum/index.php HTTP/1.1
  sockwrite -nt $sockname Host: altscripts.net
  sockwrite -nt $sockname $crlf.0
}
on *:sockread:bstats*:{
  If ($sockerr) {
    halt
  }
  else {
    var %read
    var %i = 0
    sockread %read
    while ($sockbr) {
      sockread -f %read
      if ($right($left($sockname,7),1) == a) {
        if (*<div style="height: 35px; padding: 5px;" class="smalltext">* iswm %read) {
          sockread -f %read
          %read = $remove(%read,$chr(9),<br />)
          $hget(bstatsa,$right($sockname,-7)) $replace(%read,<b>,,</b>,) 12www.AltScripts.net
        }
      }
      elseif ($right($left($sockname,7),1) == b) {
        if (*Latest member: <b> * iswm %read) {
          %read = $remove(%read,$chr(9),<br />)
          $hget(bstatsb,$right($sockname,-7)) Latest Member: $remove($gettok(%read,3-,62),</a></b) 12www.AltScripts.net
        }
      }
      elseif ($right($left($sockname,7),1) == c) {
        if (*<td class="windowbg2" width="100%">* iswm %read) {
          sockread -f %read
          if (*<a href="http://altscripts.net/forum/index.php?action=who">* iswm %read) {
            var %o = $remove($gettok(%read,2,62),$chr(9),</a><br />,</a)
            sockread -f %read | sockread -f %read
            var %u = $gettok($nohtml(%read),2,58)
            $hget(bstatsc,$right($sockname,-7)) Online Now: %o $+ ;14 %u 12www.AltScripts.net
          }
        }
      }
      elseif ($right($left($sockname,7),1) == d) {
        if (*Latest post:* iswm %read) {
          %read = $remove(%read,$chr(9))
          $hget(bstatsd,$right($sockname,-7)) Latest Post: $qt($gettok(%read,4,34)) 12 $+ $gettok($gettok(%read,2,34),1-3,46)
        }
      }
      elseif ($right($left($sockname,7),1) == e) {
        if (*http://altscripts.net/forum/Themes/default/images/english/newsbox.gif* iswm %read) {
          sockread -f %read
          %read = $remove(%read,$chr(9))
          $hget(bstatse,$right($sockname,-7)) $nohtml(%read) 12www.AltScripts.net
        }
      }
;;
;;
;;
;;
;; this is what im having problems with.
;;
;;
;;
;;
      elseif ($right($left($sockname,7),1) == f) {
        if (*		<td class="windowbg" valign="middle" width="56%">* iswm %read) {
          sockread -f %read
          %read = $remove(%read,$chr(9))
          echo -s %read
          halt
        }
      }
    }
  }
}
alias nohtml {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  var %x = $replace(%x,&#039;,') 
  return %x
}