on *:TEXT:!link *:#:{
  set %name $2
  set %chan $chan
  if ($sock(link)).sockclose link
  sockopen link kingsofchaos.com 80
  ;msg %chan 7Searching Database...
}
on *:SOCKOPEN:link: {
  sockwrite -nt $sockname GET /battlefield.php?jump=&search_type=s&search= $+ %name HTTP/1.1
  sockwrite -nt $sockname Host: www.kingsofchaos.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:link: {
  var %lolwut
  sockread %lolwut

  ;echo -a Results: %lolwut

  if (*<td><a class="player" href="/stats.php?id=* iswm %lolwut) {

    tokenize 60 %lolwut
    tokenize 62 $3
    set %account $2
    tokenize 34 %lolwut
    msg %chan 4 %account  $chr(187) http://www.kingsofchaos.com $+ $4

    var %ltff
    sockread %ltff
    if (*<td align="right">* iswm %ltff) {
      ;msg %chan 4Armysize: $+ $remove(%ltff,<td align="right">,</td>) $chr(91) Tbg: $+ 11Removed $chr(93)

      ;var %lrank
      sockread %lllllrank
      sockread %llllrank
      sockread %lllrank
      sockread %llrank
      sockread %lrank
      msg %chan 4Armysize: $+ $remove(%ltff,<td align="right">,</td>) 4Rank: $+ $remove(%lrank,<td align="right" style="padding-right: 20px;">,</td>) $chr(187) 4Race: $+ %llllrank
      ; msg %chan 4Race: $+ %llllrank
      ;echo -a !linkDone...

      sockclose $sockname

    }
  }
}
on *:SOCKCLOSE:link:{
  msg %chan 7Person you are searching for is not on battlefield or is inactive!
  unset %name
  unset %chan
  unset %account
}