Stuff

on $*:TEXT:/^[!@.](clan|gang)/Si:#: {
  if ($2 == $null) { 
    set %c.name $nick
    set %c.return $iif(@ isin $1,msg $chan,notice $nick)
    %c.return 4Checking RuneHead...
    /sockopen clan www.runehead.com 80
  }
  else {
    set %c.name $iif($chr(32) isin $2-,$replace($2-,$chr(32),$chr(95)))
    set %c.return $iif(@isin $1,msg $chan,notice $nick)
    %c.return 4Checking RuneHead...
    /sockopen clan www.runehead.com 80
  }
}
on *:SOCKOPEN:clan: {
  sockwrite -nt $sockname GET /clans/search.php?search= $+ %c.name 
  sockwrite -nt $sockname Host: www.runehead.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:clan: {
  if ($sockerr) { 
    %c.return Socket Error.
  }
  else {
    var %c.read
    sockread %c.read
    if (*<p>No results were found for the <b>exact</b> search* iswm %c.read) { 
      %c.return 4No Results were found for the search:12 $replace(%c.name,$chr(95),$chr(32))
      unset %c.*
      sockclose $sockname
      halt
    }
    if (*<td class='tableborder'>* iswm %c.read) { 
      set %c.name $htmlfree(%c.read)
      var %c.read
      sockread %c.read
    }
    if (*<td class='tableborder'><a href='ml.php?clan=* iswm %c.read) {
      set %c.clan $htmlfree(%c.read)
      set %c.htm $remove(%c.read,%c.clan,<td class='tableborder'><a href='ml.php?clan=,' title='View Ashley Ftw Memberlist'>,</a></td>)
      var %c.read
      sockread %c.read
    }
    if (*<td class='tableborder'>* iswm %c.read) { 
      set %c.rank $htmlfree(%c.read)
    }
    %c.return 4Name:12 %c.name 4 $+ $chr(124) Clan:12 %c.clan 4 $+ $chr(124) Rank:12 %c.rank
    %c.return 4URL:12 Http://www.runehead.com/clan/ml.php?clan= $+ %c.htm
    %c.return 12 $+ $chr(91) $+ 1 $+ $chr(90) $+ $chr(119) $+ $chr(101) $+ $chr(107) $+ 12 $+ $chr(93)
    /unset %c.*
    sockclose $sockname 
  }
}
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&amp;) | return %x }