Anonymous

alias whatpulse {
  if ($sock(Whatpulse)) .sockclose Whatpulse
  sockopen Whatpulse whatpulse.org 80
}
on *:SOCKOPEN:Whatpulse: {
  sockwrite -nt $sockname GET /stats/users/217785/normal/ HTTP/1.1
  sockwrite -nt $sockname Host: whatpulse.org
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:Whatpulse: {
  if ($sockerr) {
    echo -s Socket Error: $sockname $+ . Error code: $sockerr.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*place.<br />* iswm %sockreader) {
      var %tempvar $nohtml($remove($nohtml(%sockreader),iPeer is in,place.,	))
      set %what.rank $remove(%tempvar,th)
    }
    if (*participant* iswm %sockreader) {
      noop $regex(%sockreader,/typed(.*?)$/Si)
      var %tempvar $remove($nohtml($regml(1)),$chr(44),clicked,keys,time,and,moved,his,or,her,mouse,f,s,Averaging,mile.,click per econd.,T uer lat ent a pule to t erver on,ha ent a total o,pule overall. iPeer live in United Kingdom.)
      set %what.type $gettok(%tempvar,1,32) | set %what.click $gettok(%tempvar,2,32) | set %what.miles $gettok(%tempvar,3,32) | set %what.avgk $gettok(%tempvar,4,32) | set %what.avgc $gettok(%tempvar,5,32) | set %what.pulse $gettok(%tempvar,8,32)
    }    
    if (*This user is in team SwiftIRC and is ranked* iswm %sockreader) {
      set %what.teamd $replace($remove(%sockreader,<br />,in that team.,This user is in team),and is ranked,$chr(32))
      set %what.team $gettok(%what.teamd,1,32)
      set %what.team.rank $gettok(%what.teamd,2,32)
      msg $active [WhatPulse $chr(149) iPeer $chr(149)  $+ $bytes(%what.rank,b) $+  $chr(149)  $+ $iif(%what.team,%what.team,SwiftIRC) [ $+ $iif(%what.team.rank,%what.team.rank,Unavailable) $+ ] $+ ] Keys: $bytes(%what.type,b) Clicks: $bytes(%what.click,b) Miles: %what.miles Averages: [ Keys: %what.avgk Clicks: %what.avgc ] Pulses: $bytes(%what.pulse,b)
      sockclose $sockname
      unset %what.*
    }
  }
}