on *:sockread:fc:{
  if ($sockerr) {
    echo -a Error.
    halt
  }
  else {
    sockread -f %temptext
    ;echo -a - %temptext
    if (*Activity:* iswm %temptext) {
      echo -a -
      echo -a 1 $htmlfree(%temptext)
      echo -a -
      echo -a 2 %temptext
      echo -a 3 $htmlfree($right(%temptext,22))
      sockclose fc
    }
  }
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
on *:sockopen:fc:{
  sockwrite -nt $sockname GET /forums/member.php?username=clueless HTTP/1.1
  sockwrite -nt $sockname Host: friendcodes.com
  sockwrite -nt $sockname $crlf
  ;set %data ?username=clueless HTTP/1.1
  ;sockwrite -nt fc POST /forums/member.php?username= $+ %curnick HTTP/1.1
  ;sockwrite -nt fc Host: friendcodes.com
  ;sockwrite -nt fc Content-Type: application/x-www-form-urlencoded
  ;sockwrite -nt fc Content-Length: $len(%data)
  ;sockwrite -nt fc $crlf %data
}