Anonymous

on $*:TEXT:/^[!@.]clan/Si:#:{
  114.
  if (!$2) {
    115.
    notice $nick *|* [ Clan ]: You must supply a name 
    116.
  }
  117.
  else {
    118.
    unset %x
    119.
    sockclose Clan
    120.
    set %clan.nick $replace($2-,$chr(32),$chr(95))
    121.
    set %output.clan $iif($left($1,1) == @,msg $chan, .notice $nick)
    122.
    %output.clan $s1 Your search for %clan.nick returned this : A Max of 5 will be dissplayed.
    123.
    sockopen clan www.runehead.com 80
    124.
  }
  125.
}
126.
on *:SOCKOPEN:clan:{
  127.
  sockwrite -nt $sockname GET /clans/search.php?search= $+ %clan.nick
  128.
  sockwrite -nt $sockname Host: www.runehead.com
  129.
  sockwrite -nt $sockname $crlf
  130.
}
131.
on *:SOCKREAD:clan:{
  132.
  if ($sockerr) {
    133.
    %output.clan An error occured while connecting
    134.
  }
  135.
  else {
    136.
    var %reader
    137.
    sockread %reader
    138.
    if (*<td class='tableborder'><a href='* Iswm %reader) {
      139.
      set %1 $remove(%Reader,<td class='tableborder'><a href=',$chr(9),',/a/td,</a></td>,$chr(32))
      140.
      set %clan.url $replace(%1,>,$chr(32))
      141.
      inc %x
      142.
      if (%x > 5) {
        143.
        Halt
        144.
      }
      145.
      %output.clan  $s4 :: $+ %x $+ ::  $s2  www.runehead.com $+ $s3 $+ /clans/ $+ $s4 $+ $+ %clan.url $+
      146.
    }
    147.
  }
  148.
}