Anonymous

Alias pulse {
  set %ticks $ticks
  set $+(%,prefix.,%ticks) msg $active
  if ($sock($+(wp.,%ticks))) { sockclose $+(wp.,%ticks) }
  sockopen $+(wp.,%ticks) whatpulse.org 80
  set %id 268200
}

on *:SOCKOPEN:wp.*:{
  sockwrite -nt $sockname GET //stats/users/ $+ %id $+ /normal/ HTTP/1.1
  sockwrite -nt $sockname Host: whatpulse.org
  sockwrite -nt $sockname $crlf
}

on *:SOCKREAD:wp.*:{
  if ($sockerr) { echo -a $sockerr | halt }
  else {
    var %read
    sockread %read
    if (place.<br /> isin %read) { tokenize 32 %read | set %place $4 }
    if (participant isin %read) {
      tokenize 32 %read
      $($+(%,prefix.,$remove($sockname,wp.)),2) 11[06WhatPulse06]:11 $remove($1,$chr(44)) 06- Key's Hit:06 $17 11- Clicks:06 $20 11- Mouse:06 $29 miles.06
    }
  }
}
on *:SOCKCLOSE:wp.*:{
  unset $+(%,erm.,$remove($sockname,wp.)) | unset $+(%,prefix.,$remove($sockname,wp.)) | unset %place | unset %ticks
}