Miscellany

on $*:TEXT:/^[!@.]clan */si:#: {
  if ($sock(clan)) .sockclose clan
  set %clan.return /notice $nick
  set %clan.search $replace($2-,$chr(32),$chr(95)) 
  if (@ isin $1) set %clan.return /msg $chan
  if (!$2) set %clan.search $nick
  sockopen clan www.runehead.com 80
}
on *:SOCKOPEN:clan: {
  sockwrite -nt $sockname GET /clans/search.php?searchtype=exact&search= $+ %clan.search HTTP/1.1
  sockwrite -nt $sockname Host: www.runehead.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:clan {
  if ($sockerr) {
    /notice Spoonadoon SockError: $sockname $chr(124) Error Codes: $sockerr
  }
  else {
    var %clan.read
    sockread %clan.read
    if (*No results were found* iswm %clan.read) { %clan.return 1You Searched:4 %clan.search | %clan.return 1Name:4 -- No Result -- 1 $+ $chr(124) Clan:4 -- No Result -- | %clan.return 12 $+ $chr(91) $+ 1 $+ $chr(90) $+ $chr(119) $+ $chr(101) $+ $chr(107) $+ 12 $+ $chr(93) | unset %clan.* | sockclose $sockname | halt }
    if (*<td class='tableborder'><b>* iswm %clan.read ) { set %clan.nick $htmlfree(%clan.read)
      var %clan.read
      sockread %clan.read
      if (*<td class='tableborder'><a href='ml.php?clan=* iswm %clan.read) { set %clan.clan $htmlfree(%clan.read)
        %clan.return 1You Searched:4 %clan.search 
        %clan.return 1Name:4 %clan.nick 1 $+ $chr(124) Clan:4 %clan.clan
        %clan.return 1URL:4 http://runehead.com/clans/ml.php?clan= $+ %clan.clan
        %clan.return 12 $+ $chr(91) $+ 1 $+ $chr(90) $+ $chr(119) $+ $chr(101) $+ $chr(107) $+ 12 $+ $chr(93)
        unset %clan.*
        sockclose $sockname
      }
    }
  }
}