Stuff

on *:TEXT:!Link *:#ff:{
  if (!%kocstats.busy) {
    set %statsid $2
    set %link.chan $chan
    set %link.nick $nick
    sockopen Link kingsofchaos.com 80
    unset %temp.ness %temp.count
  }
  else { msg $chan Please wait for this check to complete. }
}
on *:sockopen:Link:{
  sockwrite -n $sockname GET /battlefield.php?jump=&search_type=s&search= $+ %statsid $+ &buddy_type=none HTTP/1.1
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)
  sockwrite -n $sockname Host: www.kingsofchaos.com $+ $crlf $+ $crlf
}
on *:sockread:Link:{
  sockread %temptext
  if (%temptext) { }
  if ($sockerr) { msg %link.chan My socket slipped down. | halt }
  if (Alliance isin %temptext) { set %temp.count 1 }
  if (%temp.count == 1) { inc %temp.ness 1 | ; echo -ag %temp.ness $htmlfree($remove(%temptext,	)) }
  if (%temp.ness == 9) { set %temp.ally $htmlfree($remove(%temptext,	)) }
  if (%temp.ness == 10) { set %temp.name $htmlfree($remove(%temptext,	)) | set %temp.stat $left($gettok(%temptext,4,61),7) }
  if (%temp.ness == 11) { set %temp.size $remove($htmlfree($remove(%temptext,	)),$chr(44)) }
  if (%temp.ness == 13) { set %temp.race $htmlfree($remove(%temptext,	)) }
  if (%temp.ness == 16) { set %temp.rank $htmlfree($remove(%temptext,	)) }
  if (0 players isin %temptext) { msg %link.chan  There is no player with that name.  | sockclose Link | halt }
  if (* players total * page * iswm %temptext) { 
    if ($gettok($htmlfree(%temptext),1,32) isnum $chr(48)) { msg %link.chan No such player. | sockclose Link }
    else {
      msg %link.chan %temp.name $+ : http://www.kingsofchaos.com/stats.php?id= $+ %temp.stat
      msg %link.chan $bytes(%temp.size,b) %temp.race - Rank: $+($chr(35),%temp.rank))
      sockclose Link
    }
  }
}

on *:TEXT:!Age*:#: {
  if ($sock(link)) { sockclose link }
  set %age.chan $chan
  set %age.nick $nick
  sockopen age kingsofchaos.com 80 
}
on *:sockopen:age: { 
  if ($sockerr) { msg $chan Error. Try again. | HALT }
  else { 
    sockwrite -n $sockname GET / HTTP/1.1
    sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)
    sockwrite -n $sockname HOST: www.kingsofchaos.com $+ $crlf $+ $crlf
  }
}
on *:sockread:age: {
  if ($sockerr) { halt }
  else {
    var %age
    sockread %age
    if (*<tr><th><font size="2">*</font></th></tr>* iswm %age) {
      msg %age.chan $remove($htmlfree(%age),$chr(9))
    } 
  }
}

alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) | return %x }