alias fctest {
  sockopen fc friendcodes.com 80
}

on *:sockread:fc:{
  if ($sockerr) {
    echo -a Error.
    halt
  }
  else {
    sockread -f %temptext
    echo -a - %temptext
    if (*/><strong>*</strong>* iswm %temptext) {
      echo -a -
      ;echo -a $htmlfree(%temptext)
      echo -a %temptext
      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
}