Anonymous

on *:TEXT:!stats*:#:{
  if ($2) {
    sockopen stats [ $+ [ %stats ] ] rune-town.com 80
    inc %stats
    set %stats $+ %stats $2-
    set %nstats $+ %stats $nick
  }
  if (!$2) {
    sockopen stats [ $+ [ %stats ] ] rune-town.com 80
    inc %stats 1
    set %stats $+ %stats $nick
    set %nstats $+ %stats $nick
  }
}
on *:sockread:stats*:{
  if ($sockerr) {
    echo -a Error. $sockname [ $sockerr ]
    notice %nstats [ $+ [ $right($sockname,3) ] ] Error. [ $sockerr ]
    halt
  }
  else {
    var %allstats [ $+ [ $right($sockname,3) ] ]
    sockread %allstats [ $+ [ $right($sockname,3) ] ]
    if (<tr align="center"><td> Attack </td><td> * </td><td> * </td><td> * </td></tr> iswm %allstats [ $+ [ $right($sockname,3) ] ] ) {
      var %strip [ $+ [ $right($sockname,3) ] ] = $nohtml( %allstats [ $+ [ $right($sockname,3) ] ] ), %atklvl [ $+ [ $right($sockname,3) ] ] = $gettok(%strip [ $+ [ $right($sockname,3) ] ],2,32), %atkexp [ $+ [ $right($sockname,3) ] ] = $gettok(%strip [ $+ [ $right($sockname,3) ] ],3,32), %atkrnk [ $+ [ $right($sockname,3) ] ] = $gettok(%strip [ $+ [ $right($sockname,3) ] ],4,32)
      notice %nstats [ $+ [ $right($sockname,3) ] ] %stats [ $+ [ $right($sockname,3) ] ] - Attack - %atklvl [ $+ [ $right($sockname,3) ] ] -  %atkexp [ $+ [ $right($sockname,3) ] ] -  %atkrnk [ $+ [ $right($sockname,3) ] ]
    }
  }
}
alias nohtml {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
  return %x
}
on *:sockopen:stats*:{ 
  .sockwrite -n $sockname GET /rshighscore/index.php?name= %stats [ $+ [ $right($sockname,3) ] ] HTTP/1.1 
  .sockwrite -n $sockname Accept-Language: en-us
  .sockwrite -n $sockname Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20051111 Firefox/1.5
  .sockwrite -n $sockname Host: rune-town.com
  .sockwrite -n $sockname Connection: keep-alive
  .sockwrite $sockname $str($crlf,2)
}