Stuff

on *:text:-clan on:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == Aile) {
    set %cjoin [ $+ [ $chan ] ] on
    msg $chan 14Clan look up on join is now on for4 $chan $+ 14.
  }
}
on *:text:-clan off:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == Aile) {
    unset %cjoin [ $+ [ $chan ] ]
    msg $chan 14Clan look up on join is now off for4 $chan $+ 14.
  }
}
on *:JOIN:#: { 
  if (%cjoin [ $+ [ $chan ] ] == on) {
    var %x = 1 
    while ($sock(clanaile. $+ %x)) { 
      inc %x 
    } 
    set $+(%,display.,%x) msg $chan 
    sockopen $+(clanaile.,%x) runehead.com 80 
    sockmark $+(clanaile.,%x) $iif($readini(defname.ini,Defname,$address($nick,3)),$readini(defname.ini,Defname,$address($nick,3)),$replace($nick,$chr(32),$chr(95)))
  } 
} 
on *:SOCKOPEN:ClanAile.*: { 
  sockwrite -nt $sockname GET /clans/search.php?search= $+ $sock($sockname).mark $+ &mltype=0&id=exact 
  sockwrite -nt $sockname Host: runehead.com 
  sockwrite -nt $sockname $crlf 
} 
on *:SOCKREAD:ClanAile.*: { 
  var %read 
  var %skip 
  var %clan 
  sockread %read 
  if (*no results* iswm %read) { 
    %display. [ $+ [ $gettok($sockname,2,46) ] ] [7 $+ $+($upper($left($gettok($sock($sockname).mark,1,126),1)),$lower($right($gettok($sock($sockname).mark,1,126),-1))) $+ ]: [3Clan]: No results found. 
    unset %display. [ $+ [ $gettok($sockname,2,46) ] ] 
    sockclose $sockname 
  } 
  if (*<tr class='hovertr'>* iswm %read) { 
    sockread %skip 
    sockread %clan 
    sockmark $sockname $sock($sockname).mark $+ ~ $+ $htmlfree(%clan) 4[14Url4] - 4(14 $+ http://runehead.com/clans/ $+ $gettok(%clan,4,39) $+ 4) 
  } 
  if (*</table>* iswm %read) { 
    %display. [ $+ [ $gettok($sockname,2,46) ] ] 4[14 $+ $+($upper($left($gettok($sock($sockname).mark,1,126),1)),$lower($right($gettok($sock($sockname).mark,1,126),-1))) $+ 4]: 4[14Clan4]:14 $replace($gettok($sock($sockname).mark,2-,126),$chr(126),$+($chr(32),$chr(124),$chr(32)))  
    unset %display. [ $+ [ $gettok($sockname,2,46) ] ] 
    sockclose $sockname 
  } 
}
alias -l htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
}