Count.mrc

; Count script created using Chessnut's Simple Socket Script Creator
; Property of `Joshua (SwiftIRC). Visit RsHelp community @ http://runeboards.com/forum/index.php
on $*:text:/^[!@](visit)/Si:#:{ if ($nick isreg $chan) halt | else {
    if ($sock(Count)) .sockclose Count
    if ($left($1,1) == !) set %way notice $nick
    if ($left($1,1) == @) set %way msg $chan
    sockopen Count www.runeboards.com 80
} }
on *:SOCKOPEN:Count: {
  sockwrite -nt $sockname GET /forum/index.php HTTP/1.1
  sockwrite -nt $sockname Host: www.runeboards.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:Count: {
  if ($sockerr) {
    %way Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*Members Online Today* iswm %sockreader) {
      noop $regex(%sockreader,/&nbsp(.*?)&nbsp/Si)
      var %tempvar $remove($nohtml($regml(1)),;)
      %way 2Members on 4http://Runeboards.com/forum 2Today: 6 %tempvar
      sockclose $sockname
    }
  }
}